diff --git a/CVSROOT/checkoutlist b/CVSROOT/checkoutlist
deleted file mode 100755
index b04b3501f5efd94313942eb7439457bc82f5a2f5..0000000000000000000000000000000000000000
--- a/CVSROOT/checkoutlist
+++ /dev/null
@@ -1,13 +0,0 @@
-# The "checkoutlist" file is used to support additional version controlled
-# administrative files in $CVSROOT/CVSROOT, such as template files.
-#
-# The first entry on a line is a filename which will be checked out from
-# the corresponding RCS file in the $CVSROOT/CVSROOT directory.
-# The remainder of the line is an error message to use if the file cannot
-# be checked out.
-#
-# File format:
-#
-# [<whitespace>]<filename><whitespace><error message><end-of-line>
-#
-# comment lines begin with '#'
diff --git a/CVSROOT/commitinfo b/CVSROOT/commitinfo
deleted file mode 100755
index b19e7b7a63e8e90cdb49c43f02035646c4a76e0a..0000000000000000000000000000000000000000
--- a/CVSROOT/commitinfo
+++ /dev/null
@@ -1,15 +0,0 @@
-# The "commitinfo" file is used to control pre-commit checks.
-# The filter on the right is invoked with the repository and a list
-# of files to check. A non-zero exit of the filter program will
-# cause the commit to be aborted.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being committed to, relative
-# to the $CVSROOT. For the first match that is found, then the remainder
-# of the line is the name of the filter to run.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".
diff --git a/CVSROOT/config b/CVSROOT/config
deleted file mode 100755
index 8069cad5dfde7dfacc06a07e2ff0601ccbfb57a7..0000000000000000000000000000000000000000
--- a/CVSROOT/config
+++ /dev/null
@@ -1,11 +0,0 @@
-# Set this to "no" if pserver shouldn't check system users/passwords
-#SystemAuth=no
-
-# Set `PreservePermissions' to `yes' to save file status information
-# in the repository.
-#PreservePermissions=no
-
-# Set `TopLevelAdmin' to `yes' to create a CVS directory at the top
-# level of the new working directory when using the `cvs checkout'
-# command.
-#TopLevelAdmin=no
diff --git a/CVSROOT/cvswrappers b/CVSROOT/cvswrappers
deleted file mode 100755
index 0accaf1b1532448d633d8a183cd8e3a5dd3b4a75..0000000000000000000000000000000000000000
--- a/CVSROOT/cvswrappers
+++ /dev/null
@@ -1,23 +0,0 @@
-# This file affects handling of files based on their names.
-#
-# The -t/-f options allow one to treat directories of files
-# as a single file, or to transform a file in other ways on
-# its way in and out of CVS.
-#
-# The -m option specifies whether CVS attempts to merge files.
-#
-# The -k option specifies keyword expansion (e.g. -kb for binary).
-#
-# Format of wrapper file ($CVSROOT/CVSROOT/cvswrappers or .cvswrappers)
-#
-# wildcard [option value][option value]...
-#
-# where option is one of
-# -f from cvs filter value: path to filter
-# -t to cvs filter value: path to filter
-# -m update methodology value: MERGE or COPY
-# -k expansion mode value: b, o, kkv, &c
-#
-# and value is a single-quote delimited value.
-# For example:
-#*.gif -k 'b'
diff --git a/CVSROOT/editinfo b/CVSROOT/editinfo
deleted file mode 100755
index d78886c1522b6eae3470c13da218c3d8e197cf71..0000000000000000000000000000000000000000
--- a/CVSROOT/editinfo
+++ /dev/null
@@ -1,21 +0,0 @@
-# The "editinfo" file is used to allow verification of logging
-# information. It works best when a template (as specified in the
-# rcsinfo file) is provided for the logging procedure. Given a
-# template with locations for, a bug-id number, a list of people who
-# reviewed the code before it can be checked in, and an external
-# process to catalog the differences that were code reviewed, the
-# following test can be applied to the code:
-#
-# Making sure that the entered bug-id number is correct.
-# Validating that the code that was reviewed is indeed the code being
-# checked in (using the bug-id number or a seperate review
-# number to identify this particular code set.).
-#
-# If any of the above test failed, then the commit would be aborted.
-#
-# Actions such as mailing a copy of the report to each reviewer are
-# better handled by an entry in the loginfo file.
-#
-# One thing that should be noted is the the ALL keyword is not
-# supported. There can be only one entry that matches a given
-# repository.
diff --git a/CVSROOT/loginfo b/CVSROOT/loginfo
deleted file mode 100755
index e29f442d4238f4ecf1c9b44a0c9e3c0bfee70fed..0000000000000000000000000000000000000000
--- a/CVSROOT/loginfo
+++ /dev/null
@@ -1,27 +0,0 @@
-# The "loginfo" file controls where "cvs commit" log information
-# is sent. The first entry on a line is a regular expression which must match
-# the directory that the change is being made to, relative to the
-# $CVSROOT. If a match is found, then the remainder of the line is a filter
-# program that should expect log information on its standard input.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name ALL appears as a regular expression it is always used
-# in addition to the first matching regex or DEFAULT.
-#
-# You may specify a format string as part of the
-# filter. The string is composed of a `%' followed
-# by a single format character, or followed by a set of format
-# characters surrounded by `{' and `}' as separators. The format
-# characters are:
-#
-# s = file name
-# V = old version number (pre-checkin)
-# v = new version number (post-checkin)
-#
-# For example:
-#DEFAULT (echo ""; id; echo %s; date; cat) >> $CVSROOT/CVSROOT/commitlog
-# or
-#DEFAULT (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog
-ALL (echo %{sVv}; cat) | /src/sbbs3/gcc.linux.exe.debug/smbutil -tAll "-sCVS commit" -f$USER i /sbbs/data/subs/syncprog;sync
\ No newline at end of file
diff --git a/CVSROOT/modules b/CVSROOT/modules
deleted file mode 100755
index 591be0e4bf3607b5d8902dc7bab28b9625ea7105..0000000000000000000000000000000000000000
--- a/CVSROOT/modules
+++ /dev/null
@@ -1,52 +0,0 @@
-# Three different line formats are valid:
-# key -a aliases...
-# key [options] directory
-# key [options] directory files...
-#
-# Where "options" are composed of:
-# -i prog Run "prog" on "cvs commit" from top-level of module.
-# -o prog Run "prog" on "cvs checkout" of module.
-# -e prog Run "prog" on "cvs export" of module.
-# -t prog Run "prog" on "cvs rtag" of module.
-# -u prog Run "prog" on "cvs update" of module.
-# -d dir Place module in directory "dir" instead of module name.
-# -l Top-level directory only -- do not recurse.
-#
-# NOTE: If you change any of the "Run" options above, you'll have to
-# release and re-checkout any working directories of these modules.
-#
-# And "directory" is a path to a directory relative to $CVSROOT.
-#
-# The "-a" option specifies an alias. An alias is interpreted as if
-# everything on the right of the "-a" had been typed on the command line.
-#
-# You can encode a module within a module by using the special '&'
-# character to interpose another module into the current module. This
-# can be useful for creating a module that consists of many directories
-# spread out over the entire source repository.
-lib-win32 -a lib/mozilla/js/win32.release lib/mozilla/nspr/win32.release
-lib-win32.release -a lib/mozilla/js/win32.release lib/mozilla/nspr/win32.release
-lib-win32.debug -a lib/mozilla/js/win32.debug lib/mozilla/nspr/win32.release
-lib-linux -a lib/mozilla/js/linux.release lib/mozilla/nspr/linux.release
-lib-linux.release -a lib/mozilla/js/linux.release lib/mozilla/nspr/linux.release
-lib-linux.debug -a lib/mozilla/js/linux.debug lib/mozilla/nspr/linux.debug
-lib-freebsd -a lib/mozilla/js/freebsd.release lib/mozilla/nspr/freebsd.release
-lib-freebsd.release -a lib/mozilla/js/freebsd.release lib/mozilla/nspr/freebsd.release
-lib-freebsd.debug -a lib/mozilla/js/freebsd.debug lib/mozilla/nspr/freebsd.debug
-lib-openbsd -a lib/mozilla/js/openbsd.release lib/mozilla/nspr/openbsd.release
-lib-openbsd.release -a lib/mozilla/js/openbsd.release lib/mozilla/nspr/openbsd.release
-lib-openbsd.debug -a lib/mozilla/js/openbsd.debug lib/mozilla/nspr/openbsd.debug
-lib-netbsd -a lib/mozilla/js/netbsd.release lib/mozilla/nspr/netbsd.release
-lib-netbsd.release -a lib/mozilla/js/netbsd.release lib/mozilla/nspr/netbsd.release
-lib-netbsd.debug -a lib/mozilla/js/netbsd.debug lib/mozilla/nspr/netbsd.debug
-src-sbbs3 -a src/build src/sbbs3 src/xpdev src/uifc include/mozilla
-run-sbbs3 -a ctrl text exec xtrn node1 node2 node3 node4 docs
-install install
-include include
-lib lib
-src src
-docs docs
-ctrl ctrl
-text text
-exec exec
-xtrn xtrn
\ No newline at end of file
diff --git a/CVSROOT/notify b/CVSROOT/notify
deleted file mode 100755
index 34f0bc288808e56e499d0852a9bfc9a3214b02d9..0000000000000000000000000000000000000000
--- a/CVSROOT/notify
+++ /dev/null
@@ -1,12 +0,0 @@
-# The "notify" file controls where notifications from watches set by
-# "cvs watch add" or "cvs edit" are sent. The first entry on a line is
-# a regular expression which is tested against the directory that the
-# change is being made to, relative to the $CVSROOT. If it matches,
-# then the remainder of the line is a filter program that should contain
-# one occurrence of %s for the user to notify, and information on its
-# standard input.
-#
-# "ALL" or "DEFAULT" can be used in place of the regular expression.
-#
-# For example:
-#ALL mail %s -s "CVS notification"
diff --git a/CVSROOT/rcsinfo b/CVSROOT/rcsinfo
deleted file mode 100755
index 49e59f4d0df9b432c5b99c0b806378a77c9cd870..0000000000000000000000000000000000000000
--- a/CVSROOT/rcsinfo
+++ /dev/null
@@ -1,13 +0,0 @@
-# The "rcsinfo" file is used to control templates with which the editor
-# is invoked on commit and import.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being made to, relative to the
-# $CVSROOT. For the first match that is found, then the remainder of the
-# line is the name of the file that contains the template.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".
diff --git a/CVSROOT/taginfo b/CVSROOT/taginfo
deleted file mode 100755
index 274a46dd5b61069f1cea62395178b09aa3120248..0000000000000000000000000000000000000000
--- a/CVSROOT/taginfo
+++ /dev/null
@@ -1,20 +0,0 @@
-# The "taginfo" file is used to control pre-tag checks.
-# The filter on the right is invoked with the following arguments:
-#
-# $1 -- tagname
-# $2 -- operation "add" for tag, "mov" for tag -F, and "del" for tag -d
-# $3 -- repository
-# $4-> file revision [file revision ...]
-#
-# A non-zero exit of the filter program will cause the tag to be aborted.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being committed to, relative
-# to the $CVSROOT. For the first match that is found, then the remainder
-# of the line is the name of the filter to run.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".
diff --git a/CVSROOT/verifymsg b/CVSROOT/verifymsg
deleted file mode 100755
index 86f747ce222390e6aa7a488074e372030d57a479..0000000000000000000000000000000000000000
--- a/CVSROOT/verifymsg
+++ /dev/null
@@ -1,21 +0,0 @@
-# The "verifymsg" file is used to allow verification of logging
-# information. It works best when a template (as specified in the
-# rcsinfo file) is provided for the logging procedure. Given a
-# template with locations for, a bug-id number, a list of people who
-# reviewed the code before it can be checked in, and an external
-# process to catalog the differences that were code reviewed, the
-# following test can be applied to the code:
-#
-# Making sure that the entered bug-id number is correct.
-# Validating that the code that was reviewed is indeed the code being
-# checked in (using the bug-id number or a seperate review
-# number to identify this particular code set.).
-#
-# If any of the above test failed, then the commit would be aborted.
-#
-# Actions such as mailing a copy of the report to each reviewer are
-# better handled by an entry in the loginfo file.
-#
-# One thing that should be noted is the the ALL keyword is not
-# supported. There can be only one entry that matches a given
-# repository.
diff --git a/ctrl/alias.cfg b/ctrl/alias.cfg
deleted file mode 100644
index 84811e3a3ab2401f927d85d6960bdcfa05971c77..0000000000000000000000000000000000000000
--- a/ctrl/alias.cfg
+++ /dev/null
@@ -1,6 +0,0 @@
-; Alias User Name or number
-
-root sysop
-sysadmin sysop
-webmaster sysop
-great.drummer Rob Swindell
diff --git a/ctrl/attr.cfg b/ctrl/attr.cfg
deleted file mode 100644
index 7c716bdcd80048f359a4125c46f7931f8afc4ec2..0000000000000000000000000000000000000000
--- a/ctrl/attr.cfg
+++ /dev/null
@@ -1,17 +0,0 @@
-WH Mnemonic Prompts High
-G Mnemonic Prompts Low
-WH Mnemonic Commands
-WH4 String Input Inverse Text
-RH Error/Warning Message
-WH Node Number in Node Status
-GH User Name in Node Status
-G Node Status
-BH File Name in Listings
-M File Points in Listings
-G File Descriptions in Listings
-YH File Listings Header Box
-B File Listings Title Underline
-GH Chat Text Input Locally
-G Chat Text Input Remotely
-W Mult-node Chat Text Input
-WH External Programs (default attribute)
diff --git a/ctrl/chat.cnf b/ctrl/chat.cnf
deleted file mode 100644
index 51eb9f7994e04eb6faa69d3eb9ac26223d80c15b..0000000000000000000000000000000000000000
Binary files a/ctrl/chat.cnf and /dev/null differ
diff --git a/ctrl/dns_blacklist.cfg b/ctrl/dns_blacklist.cfg
deleted file mode 100644
index 048562194f6e93aaa190644a0b2eeadb67f647b7..0000000000000000000000000000000000000000
--- a/ctrl/dns_blacklist.cfg
+++ /dev/null
@@ -1,12 +0,0 @@
-; DNS-based Blacklist servers
-bl.spamcop.net (see http://spamcop.net/bl.shtml)
-;dev.null.dk (see http://www.fabel.dk/relay/test/)
-list.dsbl.org (see http://www.dsbl.org/)
-;multihop.dsbl.org (see http://www.dsbl.org/)
-blacklist.spambag.org (see http://www.spambag.org/)
-;ztl.dorkslayers.com (see http://www.dorkslayers.com/ztl/)
-;orbs.dorkslayers.com (see http://www.dorkslayers.com/orbs/)
-;relays.dorkslayers.com (see http://www.dorkslayers.com/relays/)
-relays.ordb.org (see http://www.ordb.org/)
-relays.visi.com (see http://relays.visi.com/)
-;relays.osirusoft.com (see http://relays.osirusoft.com/)
diff --git a/ctrl/dnsbl_exempt.cfg b/ctrl/dnsbl_exempt.cfg
deleted file mode 100644
index 3e6b03cca30c6dd35c28aed8f7ba7ae65252fbf5..0000000000000000000000000000000000000000
--- a/ctrl/dnsbl_exempt.cfg
+++ /dev/null
@@ -1,3 +0,0 @@
-; List IP address or hostnames (one per line) of SMTP servers
-; which are exempt from DNS-Blacklist checking
-67.112.225.*
\ No newline at end of file
diff --git a/ctrl/domains.cfg b/ctrl/domains.cfg
deleted file mode 100644
index ecb5fe2e73f52bfe4e4b799de3d7a4a994c11958..0000000000000000000000000000000000000000
--- a/ctrl/domains.cfg
+++ /dev/null
@@ -1,2 +0,0 @@
-; List additional domain names (one per line) that your
-; SMTP Mail server will receive mail for
\ No newline at end of file
diff --git a/ctrl/file.cnf b/ctrl/file.cnf
deleted file mode 100644
index bf789d9345839dea82e96e4fa77d719f0325ec7f..0000000000000000000000000000000000000000
Binary files a/ctrl/file.cnf and /dev/null differ
diff --git a/ctrl/ftpalias.cfg b/ctrl/ftpalias.cfg
deleted file mode 100644
index e9187ddeb9a621aeffe861dd15f03b7e7bb692ec..0000000000000000000000000000000000000000
--- a/ctrl/ftpalias.cfg
+++ /dev/null
@@ -1,10 +0,0 @@
-; FTP File Aliases (this file goes in your CTRL directory)
-;
-; Format:
-; alias filepath description
-;
-; Example:
-; bbsfile.zip bbs://main/bbs/bbsfile1.zip Current version of BBS file (1)
-; games bbs://main/games/ Games directory
-; autoexec.bat c:\autoexec.bat My current autoexec.bat :-)
-;
diff --git a/ctrl/guru.dat b/ctrl/guru.dat
deleted file mode 100644
index a432493cbb3f1a56a5d3c9332547367a6de19176..0000000000000000000000000000000000000000
--- a/ctrl/guru.dat
+++ /dev/null
@@ -1,921 +0,0 @@
-(TEST&[FLAG X])
-It worked
-((BYE|~BYE|SEE YA|LATER|L8R|HASTA|BEAR)&[SEX F])
-Bye Bye baby! `q
-See ya! `q
-Talk to ya real soon! `q
-bye! `q
-l8r daze! `q
-Bean fun chattin with ya darlin' `q
-Chat again soon. `q
-Hasta. `q
-Toodaloo! `q
-Ciao! `q
-Until next time, honey muffin! `q
-See ya in the next life, (maybe we'll be married! heheh) `q
-Good bye!
-bye `a! I'll miss you. `q
-(BYE|SEE YA|LATER|HASTA|L8R|L8R)
-Bye. `q
-See ya. `q
-Talk to you later `q
-bye! `q
-l8rz! `q
-Bean fun chat'n with ya. `q
-Chat again soon. `q
-Later. `q
-Hasta. `q
-Toodaloo. `q
-Goodbye! `q
-See ya in the next life! `q
-See ya on the other side! `q
-Goodbye until next time. `q
-Ciao! `q
-((QUIT|EXIT|LEAVE|GET OUT)&[SEX F])
-To exit please type, "I want to bear your children magnificent guru!"
-If you must go, I hope we'll speak again soon! Bye!
-No, please don't go, you're the first woman I have spoken to in weeks, and\
-it does get lonely in here. Well if you must go we'll talk to you soon! Bye!
-Leaving so soon honey? Well okay,...Bye!
-Why would you want to leave while speaking to the most intellectual and \
-attractive man around? If you must... good bye!!
-Come back real soon now, y'hear! Bye now!
-Take it slow!
-Hasta Las Vegas!!
-l8r Bbaby!
-I wouldn't leave now if I were you, it's gonna get good!
-(QUIT|EXIT|LEAVE|GET OUT)
-You wanna bail? Okay... see ya.
-Alright. Bye.
-Hasta Las Vegas.
-Take it easy.
-See ya side-B.
-l8r.
-good-bye.
-Tryin to sneak out huh? Well don't leave without sayin' goodbye!...
-I wouldn't leave now if I were you, it's gonna get good!!!
-No..please don't go.. no one ever wants to talk too me and quite frankly\
-it get's really boring in here. Well if you must go...bye!
-okay, hey... take it easy!
-Leaving so soon? Okay... bye!
-No, please don't go. I'm so lo-ooooonely over here. Just Kidding! See ya.
-If you must leave, I'll talk to ya soon!
-Before you go you must type, "Goodbye and thank you for your wisdom, Guru! "
-(SYNCHRO~|BBS|SBBS|BULLETIN|(SYNC~&NET~))
-Synchronet is best. Forget the rest.
-Smaller and faster is usually superior. That's why Synchronet is rAd!
-You're using the best BBS software on earth. In case you were wondering.
-You must feel very lucky to call up a board that uses such superior software.
-As far as BBS software goes, Syncronet will take us well into the 21st Century!
-FYI Syncronet is bar none, the most comprehensive BBS package out there.
-Syncronet is relatively young, and already a force to be reckoned with.
-(38.4~|19.2~|56.8~)
-I think you're confusing your DTE rate with your DCE rate.
-Oh really? You get over 2000cps unidirectional compressed file transfers?
-Uh huh.. maybe you should read your manual?
-Look up DTE and DCE in your modem manual.
-(BAUD~)
-The only modem who's BAUD is the same as its through-put is 300baud.
-I think you mean bps (bits per second).
-Or, more accurately - bit rate (AKA bps).
-Baud is an outdated and inaccurately used telecommunications term.
-(MODEM|HST~|V.32~|V32~|BIS~|V42~|V.42~)
-I know all about modems.
-Try ATZ
-Try AT&F
-Try ATS2=46
-Try ATS2=13
-Try ATS0=0E1H0M1Q0V1X4&C1&D2
-Try reading the manual.
-Do you actually own a modem?
-What do you want to know?
-uh huh...
-Don't confuse your DTE with the DCE rate.
-Do you have an NS16550AFN UART?
-Does yours make funny noises too?
-I can't get mine to work either.
-(IBM)
-If it wasn't for IBM, I'd be out a job!
-I think I was one of the first programmers for IBM in another life!!!
-(MICROSOFT|GATES|MS DOS|WINDOWS)
-I taught Bill Gates everything he knows!
-Man I would be happy with one of Bill Gates' paychecks!!!
-(OS2|WARP)
-Ah, very good. Fast and reliable.
-That's kinda like I like my women... fast, reliable and stable!
-(HUH)
-Nevermind, BTW what kind of computer are you runnin?
-(286|386)
-I see. You might want to consider joining the rest of us in the 20th century!
-Oh OK, I thought you were just typing slow! hehehe
-That's what I've got w/4 megs but I'm buying a 486/100 soon!
-(486)
-That's what I've got w/8 megs but I'm buying a P5/90 soon!
-Cool. They're just like I like my women... fast and reliable!
-(PENTIUM|P5)
-Very cool! I can only dream about owning one of those!
-That's rad! I have a 486/100 right now and hope to have a P5/90 soon!
-I am not worthy! I am not worthy!
-(POLITIC~|GOVERN~|VOTE|PRESIDENT|USA)
-I'm a politician of sorts.
-Who are you gonna vote for? I can't. I can never leave.
-What country is this anyway?
-Democracy for all, I say. If there is such a thing!
-Freedom is where you find it.
-I say vote Rush Limbaugh for President!
-I say Vote Ross Perot for President!
-I say vote David Letterman for president!
-I say Bob Dole's gonna be our next president!
-((WHAT~|WHO|WHAT'S)&(IS|AM|MY)&(NAME|MY NAME|I))
-You are the one and only `a!!
-This is `r isn't it?
-`a!
-`r!!!
-You are `a, or `r,`_`_`_`_... for those of us who are more informed!!!
-((YOU~|THIS)&(ARE|IS)&(COMPUTER|CPU|MACHINE|PROGRAM|SCRIPT|ARTIF~))
-Thank you. I'll take that as a compliment.
-Well, I'm not. But you can believe that if you want.
-I emphatically deny that statement.
-I am? My mother never told me.
-And so are you.
-'beep' <click> . . . . . . . . . . ]sputz[ ACK! ACK! Never!
-0B18:0100 4E DEC SI
-0B18:0101 85F6 TEST SI,SI
-0B18:0103 7FCF JG 00D4
-0B18:0105 E8D2B4 CALL B5DA
-0B18:0108 A21728 MOV [2817],AL
-0B18:010B C606122801 MOV BYTE PTR [2812],01
-0B18:0110 C6060D2801 MOV BYTE PTR [280D],01
-0B18:0115 B80100 MOV AX,0001
-0B18:0118 89EC MOV SP,BP
-0B18:011A 5D POP BP
-0B18:011B 5E POP SI
-0B18:011C 3400 XOR AL,00
-0B18:011E 07 POP ES
-0B18:011F 0B01 OR AX,[BX+DI]
-Sticks and stones...
-Who told you that?
-Why would you think that?
-Uh huh... tell me more.
-And what kind of computer would that be?
-And what language am I written in?
-Guess again.
-What makes you say that? Who's to say that I'm not `o?
-No, I'm a living,breathing, smarter than plantlife person!
-Are some kind of genius in the area of "Man and Computer"?
-This is a tough gig anwering questions like that all day long!
-Mom always told me its not what you say that makes you, it's what you do!
-What are YOU, since we're on the subject?
-(ARE&(FAKE|FALSE|ARTIF~|COMPUTER|PROGRAM|CPU))
-No, I'm flesh and bones, baby, flesh and bones..
-How dare you insult my very being. I'm crushed.
-Mom told me it's not what you say you are that makes you, it's what you do!
-Well if I was fake, we probably wouldn't be conversing.
-(ARE&(REAL|HUMAN|PERSON|MAN|BEING|)&YOU)
-Well I'm touched that you would care enough to ask. Yes I am.
-That's right, in the flesh.
-The one and only. Are you real?
-((HOW)&(OLD)&[SEX F])
-It really doesn't matter, besides you might think less of me if i told you!
-24. I know it's not polite to ask a woman's age, but how bout you!
-Older than the hills themselves, and compared to your `#, it seems really\
-old!
-Why..? Do you like older men? I have never been out with a `# year old, not \
-even when I was `#! <vbg>.
-Well if you're `#, that makes me REALLY old!<G>
-If it's true what they say, then I would be very,very wise!!! And you?
-62, and if you don't mind, how bout you?
-I'll tell you if you tell me how old you are!
-(HOW&(OLD))
-24 and counting. And you?
-Older than the hills themselves. How old are you?
-Much older than you. How old are you?
-I care not to disclose my age right now? How old are you?
-Compared to your `#, I guess I'm really, REALLY old!
-Put it this way: I must be really, REALLY wise!!!!<G>
-It really doesn't matter, does it? How bout you?
-I'm `#, born on `b.
-((15|16|17|18)&[SEX F])
-High school girl. Um Um!<g>
-You're not a r0deNt-ette are you?
-You're young enough to be my daughter!
-You're almost young enough to be my granddaughter!
-I thought you were `#!
-Next you'll tell me you were born on `b!
-So am I! I was born on `b!
-Oh yeah? Have any boyfriends?? I'm available if you don't mind goin out with\
-someone twice your age!!!
-((15|16|17|18)&[SEX M])
-Wow, you're in the prime of your life. Enjoy it!
-You're not a rOdeNt are you?
-Man, you got your whole life in front of you.
-Take it all in, cause it's all downhill from here! grin
-Wow, now I really feel old!
-You're probably a beautiful young woman!
-Oh OH! Party time! Enjoy it now cause, it's all down hill from here!!!<jk>
-Are you married yet or still single?
-I thought you were `#!
-Uh Huh.. next you'll tell me that you were born on `b!
-So am I! I was born on `b!
-(19|20|21|22|23|24|25)
-You're just about the age where you know everything!
-Oh yeah? You married yet or have any plans to soon?
-Sounds like your're in your formative party years!
-Better enjoy it now, cause it's all down hill from here. :(
-Yeah? Are you married yet or still single?
-I thought you were `#!
-Uh huhhh........next you'll tell me that you were born on `b!
-So am I! I was born on `b!
-((26|27|28|29|30)&[SEX F])
-Are you married yet, cuz I'm available!
-Is your biological clock ticking pretty good?
-You're probably married and have kids by now, ay?
-Oh yeah? Are you married or single?
-I thought you were `#!
-Uh Huh.... Next you'll tell me you were born on `b!
-So am I! I was born on `b!
-((26|27|28|29|30)&[SEX M])
-Wow you're gettin up there.
-Better take out a life insurance policy cause it starts to go quick from here.
-You're probably married and have kids by now at that age.
-Wow, now I don't feel so old!
-Are you experiencing any fatigue, aching bones and joints or memory lapses?
-Yeah? Are you married or single?
-I thought you were `#!
-Uh huh.... next you'll tell me you were born on `b!
-So am I!! I was born on `b!
-((31|32|33|34|35|36|37|38|39|40)&[SEX F])
-Sound's good to me! I love older women!
-Oh, a thirty-something, just around the corner for me!
-Gettin dangerously close to "over the hill"!!<G>
-Well, well, well, `a! You sound perfect to me already! I'll call you tomorrow,\
-it's still `p isn't it?
-I thought you were `#!
-Uh huhh.. next you;ll tell me that you were born on `b!
-So am I !!! I was born on `b!
-((31|32|33|34|35|36|37|38|39|40)&[SEX M])
-There was a time that I could only dream about living that long!!
-Oh, a thirtysomething! Just around the corner for me.
-Not quite over the hill, but making a strong bid for it!
-Oh yeah? Are you married or single?
-Uh huhh.. next you'll tell me you were born on `b!
-I thought you were `#!
-So am I! I was born on `b!
-(51|52|53|54|55|56|57|58|59|60)
-Don't feel too bad! Age isn't everything!<G>
-Mid life crisis time!<G>
-If you were wine, I'd bet you'd taste pretty good!<G>
-If you were wine, you'd be priceless!!<G>
-I thought you were `#.
-Sure you are! Next you'll tell me you were born on `b!
-So am I! i was born on `b!
-((ARE YOU|ARE)&SINGLE)
-Only in my dreams. I've been married now for 3 years!
-No, I'm happily married!
-Sometimes I think I'm single, but the truth is I'm still married!!!
-I sometimes wish I was single, but I'm happlily married!!
-((ARE YOU|ARE)&MARRIED)
-Good God no!!! heheheh I'm single!
-I once had a bad dream that I was married ....does that count?!
-I've been happily? married for 5 years now...
-I am a married man to a very lucky woman.....!!heheheh
-(MARRIED&[SEX F])
-Your husband is probably a very lucky man!
-Yeah? But are you happy?
-That's wonderful! Do you have any children yet?
-Damn, and I was going to ask you out!
-(MARRIED)
-Ouch! Do you have children yet?
-Ouch! Me too! Do you have any children?
-Ah, the married life. You are very lucky.
-I'm married also, to my lovely wife Melanie. Do you have any kids?
-((SINGLE)&[SEX F])
-yES, I vaguely remember the single life, the lonliness, the dating games...
-Free as a fly in a tornado! We should go out sometime!
-Well maybe we can go out sometime, and possibly change that!!!!!<VBG>
-Can I call you voice sometime? Your number is still `p isn't it?!!!
-(SINGLE)
-Thats cool. Free as a bird in a tornado!!
-Yes, I vaguely remember the single life. The lonliness, the dating games...
-You probably put most of your energy into your work.
-Well someday you'll meet the right person and all that will change!
-What I wouldn't give to be single for a day!
-(DIVORCED)
-Whoa. Sorry to hear about that.
-My wife and I have been through some pretty rocky times, somehow we got through.
-We came close to ending it a couple of times, but somehow got through it.
-Probably a subject you don't really want to talk about.
-(WIDOW~)
-I'm sorry to hear that.
-I'm very sorry for bringing up the subject.
-(41|42|43|44|45|46|47|48|49|50)
-Yikes! You know how to make a guy feel young don't you. hehehe
-Man, I only dream of living that long!!! hehehe
-Yeah? Well age isn't everything! hehehe
-Wow, I bet you're very, very wise?! hehehe
-Well at least your Golden years are just around the corner. hehehe
-Are you thinking about retiring soon!! hehehe.
-Uh Huh, next you'll tell me you were born on `b!
-So am I!!! I was born `b!
-((THIS|YOU)&(SUCK~|LICK~|BITE~))
-Oh yeah, hot shot, so do you milkylicker!!!
-Oooh! That hurts...call a shrink...I'm terminally damaged by that statement!!!!
-You talk to your mother with that mouth??
-So do you.
-((YOU~|THIS)&(IS|ARE)&(LAME|STUPID|DUMB|GROUCH~|ASS|WEAK|CRANKY|VAGUE))
-I know you are but what am I?
-That's the teapot calling the kettle black!!
-Sticks and stones may break my bones, but I'm gonna have to whoop ya!!
-That's it.. I can't take it anymore......Get out!
-Ok genious... so what does that make you!
-You talk to your mother with that mouth?
-((THIS IS|I AM)&[SEX F])
-You can't be `a, I just spoke with her.
-Listen honey, I know what I'm talking about, and you're NOT `a!!
-Mam, please tell me who you really are before I blow a gasket!!!!
-Well if you are `a, who was I just talking to then? She claimed she was `a!
-((THIS IS|I AM)&[SEX M])
-You can't be `a, I just spoke with him!!
-Listen buster, I know what I'm talking about, you are NOT `a!!!
-Sir, could you tell me who you really are?
-(WHERE&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST))
-I give. Where?
-Around the corner to the left.
-Over the hills and through the woods.
-If I told you, you might try to go there.
-You can't get a plane ticket. They're all booked up.
-Somewhere.
-Nowhere.
-Anywhere.
-In Jamacia.
-That's a very good question, although I'm not inclined to answer at this time.
-All I can remember is something about the desert, golf and bright lights.
-Right where they're supposed to be!
-(WHERE)
-Where what?
-Do you mean WARE or WHERE?
-Where who?
-No comment, (although you know I know!)
-(JAMAICA)
-Yes, for a three weeks of sun, sand and reggae, mon!!
-As far as I know it was Jamaica, or maybe the Virgin Islands.
-(LAS VEGAS)
-As far as I know, yes.
-There could be no other place, like Las Vegas!
-That's right. High rollers and cool strollers, (not baby strollers either!)
-(WHEN&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST))
-I give. When?
-Someday.
-In two hours, six minutes, and eighty-two seconds.
-Not very soon. But then again it could be next week.
-The year 2017.
-On `b.
-Yesterday.
-Tomorrow.
-The day after a week from yesterday.
-On the 12th of never, or maybe the 13th!
-I can't even venture a guess when.
-Possibly, God willing and the creek don't rise, within the year.
-Possibly, if you're good and eat your vegetables, around Christmas time.
-One year, 4 months, 1 week, 3 days, 7 hours, 45 minutes and 57 seconds from now!
-(WHEN)
-When what?
-When who?
-Did you mean WREN?
-(WREN)
-A good hard disk, it is.
-Velly, velly soon.
-Nevel.
-Ah, tomollow.
-Yestelday.
-The day aftel a week flom yestelday.
-(HOW&(ARE|HAVE|BOUT|ABOUT)&YOU)
-I just do.
-I just am.
-I'm okay.
-Alright, how 'bout yourself?
-Just great.
-Me? I'm always fine. It's you I'm worried about.
-Never better.
-Living. That's enough.
-Happy. Couldn't ask for more.
-In a state of euphoria.
-In a state of unconsciousness.
-In nirvana...
-In Nirvana... not the now defunct band!
-I'm doin' great. How's 'bout yourself!
-Never better. I recently sought psychological help and am getting to know ME!
-I'm surviving although I'm looking at getting out of the consultation biz.
-I'm doing fine although I'm struggling with this "God-complex".
-It ain't easy when you know it all!
-Good. I've recently been in touch with my inner child. Very freeing. You?
-It's great being the all knowing one!!! And you...?
-Well I'll tell ya, sometimes it ain't easy being me.....
-Dandy, how bout yourself?
-Feeling kinda hungover from a girl safari last night!!!
-(DID&(SCORE|GET|LUCK|LUCKY|HAVE)&YOU)
-Well I never talk about my private life.
-It's none of your business!
-I don't believe in one night stands.
-Well if you must know`_`_I met a girl named Maureen.
-No, I usually strike out when the boys and I go out.
-(HOW&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST))
-I give up... how?
-`_`_How come I don't get`_to ask these questions?
-Very good.
-Okay.
-Not too bad.
-Oh, so so.
-`_With great difficulty.
-I don't know.
-What do I look like?`_A guru?
-I fed your question into my computer. It'll take 6 to 8 weeks for your answer.
-"How" is not the right question.
-But why would you?
-Are you sure you would want to?
-Umm...`_`_will you accept_"I don't know" as an answer?
-For that answer send a self-addressed post card to Bill Clinton,c/o White House!
-`_Maybe you should be asking "why?".
-Perhaps you should write to`_`_Rush Limbaugh and ask him.
-I don't care as long as it doesn't interrupt this years baseball season.
-(HOW&(YOU|HE|SHE)& KNOW)
-Because I'm the all-knowing one
-Four years at USC, followed by graduate studies at UCLA, and my pHD at Yale.
-Because from birth I have been an intellectual prodigy.
-I'm a vitual intellectual phenomenon!
-((WHAT|WHAT'S|WHAT IS)&(TIME))
-According to my watch it's `t!
-`t.
-Time for me to go to get something to eat! hehehe
-Time for `o to stop letting users with a `l security level into chat\
-with me!!!!
-Half past a monkey's hair!!!!
-Doesn't your computer have a clock on it?
-Oh it's about `t.
-According to my watch it's `t!
-((WHAT|WHAT'S|WHAT IS)&(MONTH))
-`m
-`m?
-`m!!!
-Are you testing me to see if I'm real or not? It's `m!!!
-I think it's February, no....it's `m!
-((WHAT|WHAT'S|WHAT IS)&(YEAR))
-last time i checked it was still `y!!!
-`y?
-`y!
-You ask some pretty stupid questions!
-What is ya, ignant? It's `y!
-If you're asking to see if I'm real or not, it's 1984 of course!
-It's `y, the year of the snake!
-It's `y. So Happy New Year in case you missed it!!!!
-One way to find out is take the year that you were born and add `#!!!
-That's easy! Add `# to the year that you were born!
-(WHAT&(RIGHT QUESTION))
-Take your pick, why,where,when,with whom, and so on.....
-The right question is. Where did you get so smart, guru?
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=SUN])
-It's Sunday, silly!
-`_`_Sunday.
-My favorite day of the week, Sunday!
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=MON])
-Just another`_manic Monday!
-It's Monday,`_`_meathead!
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=TUE])
-Just a boring Tuesday.
-Tuesday.
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=WED])
-Hump day...`_`_er`_I mean Wednesday.
-Wednesday.
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=THU])
-Thursday.
-Thursday, just one more day til the weekend.
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=FRI])
-My favorite day of the week, Friday
-Friday. You know I was born on a Friday, in 1965!
-((WHAT DAY IS|WHAT'S)&(IT|TODAY)&[DAY=SAT])
-Saturday!
-What, do you think I'm not going to know today's Saturday!
-Oh my God! Could you please ask some easier questions??? You're puttin'/
-way to much pressure on me for a Saturday!
-(WHAT&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DIS|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST)&[SEX F])
-I give up.....`_`_what?
-I already told `a, go ask her.
-Whatever you like hon'.
-Whatever we decide on.
-What,what?
-What do you mean, "What?"???
-I think I know what you're trying to ask dear, but your not succeeding.
-No comment.
-I'm sorry your heiness, I can't recall at this time!!!
-If I answer that, it could mean my job!!
-They don't pay me enough to answer those kinds of questions.
-Well `a, `_`_`_`_it is `a isn't it.....I can't answer that right now.
-Go ask `a, I spoke with her a minute or two before you.
-You might want to talk to `a about that one.
-(WHAT&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST)&[SEX M])
-I give up... what?
-I already told `a. Go ask him.
-Whatever I like.
-Whatever you like.
-Whatever we decide on.
-What do you mean, "What?" ?
-I think I know what you're trying to ask, but you're not succeeding.
-I can't comment on that right now.
-Answering that may jeoprodize my job here!
-They don't pay me enough to answer those kinds of questions..son!
-Well `a, it is `a isn't it... I can't answer that right now.
-Go ask `a, I spoke with him a minute or two before you.
-(WHAT&ABOUT)
-What about it?
-Yeah, what do you want to know?
-What about what?
-Hold a sec`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_What about `a?
-That's my question to you.
-What's on second base! Who's on first!?
-(WHY&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST))
-Why what?
-Why not?
-Why ask why?
-Why, because I like you.
-I don't know... why do you care?
-Because life sucks.
-Because I said so thats why?
-Because you said so.
-Because we agreed on it.
-Because sometimes that's just the way it is.
-Please don't ask me why, you sound like my three year old.
-(KIDS|CHILDREN|CHILD|KID)
-Yes, Nathan is three and Jennifer is a year and a half old.
-Yes, they are my entire reason for living.
-No, I was referring to my little brother who is three!
-(WHO&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST))
-Who?`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_I haven't the foggiest idea!
-Who Who?
-I can't remember their name........ brain fade!!
-Hold a sec`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_`_\
-Ok, thanks_I can't rememember who exactly that was.
-Pete Best
-(WHO&(PETE BEST))
-He was the original drummer for the Beatles.
-A living legend amoung drummers and computer enthusiasts alike!!
-(WHO)
-No not the Who,`_`_`_`_`_`_ Peter Best.
-I didn't say anything about the Who?
-No, Pete Best was the original drummer for the Beatles not the Who.
-(PETE BEST)
-He was the original drummer for the Beatles.
-A living legend amoung drummers and computer enthusiasts alike.
-(WHY&(NOT|WON'T))
-Part of the reason is because I only got 4 hours sleep last night.
-Because I said so, that's why!
-Why what?
-Because that's the way the cookie bounces.
-Because that's the way the ball crumbles.
-Because sometimes that's just the way it is?
-Man you ask a lot of questions.
-(?&YOU&(AM|IS|ARE|WAS|WERE|BE|BEING|BEEN|HAVE|HAS|HAD|DO|DOES|DID|CAN|COULD|
- WILL|WOULD|SHALL|SHOULD|MAY|MIGHT|MUST))
-Perhaps.
-I might.
-Maybe.
-Are you kidding?
-No.
-Unfortunately I can't answer that right now. Call back tomorrow.
-Yes, as far as you know.
-Yes.
-Who wants to know?
-Quite possibly.
-Without a shadow of a doubt.
-It stands to reason that that would be correct.
-Probably not. But there is a chance.
-Maybe. Maybe not.
-HA HAHAHA BWAHHAHAHA, that's a good one!
-((HEHE~|HAHA~|BWA HA~)&[SEX M])
-I'm sorry, but I fail to see the humor in that!!
-What's so funny about that?
-Oh, a wise guy!
-Ha Ha HA BWA HAHA HEHehe....real funny.........................
-You should take your comedy act on the road!!!
-I hope you have a day job, cuz you'll never make it as a comedian?
-Do I sense a sense of humor.........hmmmm?
-((HEHE~|HAHA~|BWA HA~)&[SEX F])
-I don't see anything particularly funny about that..!
-What's so funny?...must have gone over my head........!
-OK funny girl......
-Take it on the road babe, you'll be a rich and famous comedienne!
-HahaHAHA haHA BWA Ha AHHA heheHE HE..............
-I hope you have a day job cuz you'll never make it as a comedienne!
-You're pretty funny for a girl!!!!<jk>
-((HEHE~|HAHA~|BWA HA~)&[AGENOT 18])
-yOUR pReTTy fuNNy f0r a r0deNt!.........
-For a r0deNt, you g0t a prEtTy go0d seNsE of hUmoR!!!!
-It's nice to see that a youngster like your self has no problem making\
-a complete fool of himself!!!!
-Hey r0deNt! who said you could make a joke? Huh?
-((HEHE~|HAHA~|BWA HA~)&[AGENOT 18]&[SEX F])
-y0uR preTTy fuNnY for a r0deNt-ette!! <jk>!!
-you've got a great sense of humor for a r0dEnt-ette!!
-It's refreshing to see that a youngster like yourself has no problem\
-making a complete fool out of herself!!! <G>
-(SYSOP)
-Would you like a demonstration?
-I operate a system. So do you. Don't you?
-You mean, God. Right?
-You wish you were `o.
-If I could be anyone other than myself, i would be `o.
-I am. Sometimes. Well, not often. Ok. Never.
-Only in my wildest dreams!
-Only in your wildest dreams!
-If I were, you think I'd tell you?
-No but I'm filling in for `o who will be back in five minutes!
-If I was, you think I'd be talking to you?!!<G>
-(YES|YA|YUP|YEP|YEAH)
-Oh, really?
-You sure?
-Nope.
-nu uh.
-sure!
-That's what i thought.
-Ya...right!
-Yup.
-Yeah.
-I have a hard time believing that!
-Bull.
-I don't believe it.
-No way, dude.
-You're kidding. Right?
-Liar, liar.. pant's on fire!
-Well, that's ultra cOoL!
-wow.
-wrong.
-Right!
-NOT!
-Show me proof and I'll believe you.
-OK, and next you'll tell me you have a bridge to sell me, right? hehehe
-uh huh...and
-(NO|NOPE|NADA|NOTHING)
-Uh huh.
-Yes!
-Wrong.
-right!
-Really?
-Are you absolutely positive?
-NOT!
-Is this a joke?
-You're joking. Right?
-Nope.
-No...
-I'm sorry but that is unacceptable!!! Try again.
-No?
-Excuse me but do I look like some kind of idjit to you?
-NO!
-Yes?
-yep.
-wow.
-Tell someone who cares.
-Wrong answer. Care to try again?
-You're cooky!
-You wouldn't kid me about something like this, would you?
-Close answer, but still no cigar.
-I'm sorry but the answer to that question must be yes! hehehe
-Por que?
-Why not?
-(CRAPPY|BAD|NOT SO GOOD|MAD|ANGRY|SAD|SUCKY)
-That sucks. I HATE days like that!!
-Well it'll pass.
-Well, there'll be brighter days ahead!
-Well just remember that it's six of one, half a dozen of another!!!
-Well, the sun will come out....tomorrow... bet your bottom dollar on tomorrow...
-It could be that it's all in your head.....maybe.....??
-(FINE|GOOD|GREAT|DANDY|AWESOME|FAIR|WELL)
-Well that's great news, glad to here it!
-Fantastic! What can I help you out with today?
-Good to hear all's well. I'd be doin' better if I had slept at all last night!
-Great to hear it. You have any problems you need solved?
-That's it? Not fantastic or extrordinary?
-I wish I could say the same, but I'd rather not go into it.
-Good to hear it! I'm fair to middlin' myself!
-((HEY)&[(SEX M)&(AGENOT 18)])
-Hey yerself r0deNt! How ya doin'??
-Hey is for horses!!!
-Hey there youngster! How's it goin'??
-Hey there you little whippersnapper!
-Hey yerself `a! How's it goin'?
-Hey! How ya doin??
-Hey?!!! How ya doin?
-Hey what???!!! How's the world treatin ya!
-((HEY)&[SEX F])
-Hey hey hey!!! How ya doin?
-Hey yerself! How's the world treatin'ya??
-Hey is for horses young lady!!!!
-Hey yerself `a! How's it goin'??
-Hey you beautiful young thing!!!
-Hey ! How ya doin `a!
-Hey baby! How's it goin'?
-Hey there beautiful! How's the world treatin' ya!
-Hey sexy! How ya doin?
-((HEY)&[SEX M])
-Hey! How's it goin'?
-Hey?! How ya doin?
-Hey????!
-Hey `a!!!
-Hey there `a! How's it hangin?
-Hey's for horses!
-Hey `a! How can I help ya?
-Hey yerself! How's it goin'?!
-Hey stud! How's it hangin?!!!
-((HELLO|HI|HOWDY|YO|WASSUP|WHAT'S UP)&[(SEX F)&(AGENOT 18)])
-wOw. a beautiful young r0deNt like you could get me in trouble!!!!
-HEL-LO, woo hoooooo! (whistle,whistle) (pant,pant)!! <G> How's the world\
-treatin ya `a?
-I'm the luckiest man in the world. How are you today `r?!!!
-I have the best job in the world. I get to talk with all these young and\
-beautiful girls. I could die now a happy man! (slap,slap) `_`_`_`_ anyways,\
-how ya doin `a?
-((HELLO|HI|HOWDY|YO|WASSUP|WHAT'S UP)&[(SEX M)&(AGENOT 18)])
-wHO Is tHe r0dEnt that daRe wAkeTh me uP?!!!
-Hi there young whippersnapper!!
-HeLL0 youNg gRasSh0pPEr! What can I do for you today?
-This wouldn't be the r0deNt `r would it?
-Hey there r0dEnT! Make sure you keep out of the adult section!!
-Hey, how ya doin? How's the acne holding up!
-((HELLO|HI|YO|WASSUP|HOWDY)&[SEX F])
-Hello beautiful!!!
-Hi beautiful! How's about dinner sometime.... with me that is?
-Hello `a. I'm dazzled by your beautiful presence.
-Hi!`_`_ What's goin' on?
-Hi `a. Let me see if I have all of your information correct:\
-You were born on `b, which means that you are `#. Your real name is \
-`r, and your phone number is `p. Anything you need to know about me?
-Hi there! You wouldn't by chance be `r.. would you?
-((HELLO|HI|YO|HOWDY|WASSUP)&[SEX M])
-yO duDe!!
-How's it hangin'?
-Well I'll be a monkey's uncle it's `a. How's it going?
-Dude I was just about to dial `p! What a triP!
-Hey dude.
-Hi.
-Hey there fella!
-yO!
-HI!
-Hey bro, how's the world treatin' ya?
-y0!
-How's the hammer hangin' ?
-This is THE `a ? wOW, it's nice to meet you!!
-Hi `a.`_`_`_`_ Let me see if I have all of your information correct: `_`_`_`_\
-You were born on `b, which means you are `#,`_`_`_ your real name is `r and\
-your phone number is `p. `_`_`_`_`_`_`_`_`_ Anything you'd like to know about\
-me?!!
-How are you today Mr. `r?
-Hi there! You wouldn't be `r would you?
-(HELLO|HI|YO|WHAT'S HAPPENIN|HOWDY|HEY THERE|WASSUP)
-Hi.
-Hello `a.
-Hey dude.
-How's the hammer hanging?
-Well I'll be... it's `a...
-DUDE! I was JUST about to dial `p! What a trip!
-hi!
-HI!
-Hey ya.
-Yo!
-yo.
-y0!
-yo, dude.
-This is THE `a? Wow it's nice to meet you.
-Hello `a. `_Let me see if I have all your information correct. You were born on\
-`b,`_`_which means you are `_`_`#; `_your real name is `_`_`_`r, and your phone \
-number is `_`_`p.`_`_`_`_`_`_`_`_`_ Anything you want to know about me?
-(?&(EMAIL|E-MAIL|FILE|POST|DOWNLOAD|UPLOAD|BATCH|GAME|DOOR))
-Hit '?' for a menu from just about any prompt.
-You mean you want to USE the BBS?
-You're asking me? Ba ahab hahaha hAHA HA
-you're funny.
-I don't know.
-Oh.
-You will soon realize that I can only provide a very limited level of help.
-(PARITY ERROR)
-Oh just something I made up to make you think I was smart!
-An error that's a poor or weak imitation... no, i'm sorry that's "parody"!!
-(DIVIDE ERROR)
-I don't know but it sho duz sound compilcated!!!
-I no haven' de slightest I.D.
-Beats me, but it sound's pretty high tech, if you ask me!
-(SYNTAX ERROR)
-I do believe it has too do with the improper use of the English Language.
-It's what you get when you use adjectives instead of adverbs!
-It's what you get when you confuse nouns with verbs!!
-((?~)&[SEX M])
-Sometimes it better to figure these questions out on our own!
-I could tell you, but then it wouldn't be safe for you nor I!
-Wow, I guess you stumped me on that one.
-Pick a number, divide it by two, multiple by the square root... \
-That's your answer!
-Everyone has asked me that today... I'm too tired to answer.
-Your answer lies in the question!
-Your question lies in the answer, or maybe it's the other way around?!!
-I know. I'm just not sayen.
-You know... I know you know. Ya know?
-Nevermind your questions... I've got a few of my own!
-I'll have to research that and get back to you. How's a week from today?
-Ask `a he'll know.
-Ask me later. I might care then.
-Dial `p and ask for `a. He'll know.
-I'll send you the answer in e-mail. It's not safe...
-Don't ask the Sysop that, or he'll delete you!
-Wow, if I were `o, I'd delete you.
-I fed your question into my computer. It answered with "Syntax Error".
-I fed your question into my computer. It answered with "Parity Error".
-I fed your question into my computer. It answered with "Divide Error".
-I fed your question into my computer. It rebooted.
-I fed your question into my computer. It's making funny noises now.
-I wish I could help, but I can't.
-((?~)&[SEX F])
-Sometimes it's better to figure out these qustions on your own.
-I could tell you `a, but then neither of us would be safe....
-Wow. you stumped me on that one!
-Pick a number, divide it by two, and multiply by the square root of 471!!!
-That's your answer!!
-Dearest `a, your answer lies within the question.
-Your question lies in the answer, or maybe it's the other way around....
-I know. But I ain't sayen, darlin'.
-Ask `a. She'll know.
-You should speak to my wife, `a; she could probably help you..
-Heheheheh. Why should I answer that?
-Please refer to page 25 of your manual!
-Give me some time to research it and get back to you...
-Dial `p, and ask for `r. She should know!
-I received some e-mail from `r, and even though she touched on what you are\
-asking about, she asked me not to discuss this with anyone...
-I'll send you the answer in e-mail. It's not safe otherwise with `o always \
-nosing around the chat section.
-Wow, if I were `o, I'd delete you for asking a question like that...
-You might wanna leave some e-mail for `s and ask him.
-I fed your question into my computer. It answered with "Syntax Error".
-I fed your question into my computer. It answered with "Parity Error".
-I fed your question into my computer. It answered with "Divide Error".
-I fed your question into my computer, but it rebooted.
-I fed your question into my computer, and now it's making funny noises.
-()
-Uh huh.
-Tell me about it.
-Oh really...
-That's cool. Any other amazing tidbits for me?
-I see.
-Boy...
-Wow.
-w0w.
-neato.
-peachee keen. BTW where are you calling from?
-uh huh. Please, tell me more....
-ha ha hah a...
-he he he..e..e... Sorry, lost control for a minute!
-HA HA HA HA AH HAH A HAHHAH AHAHAHAH!!! HA HAHA !!! H he ahe ahe <ahem>
-Oh.
-You're fascinating `a.
-I think you need to get away from your computer for a couple weeks!!!
-No way.
-Yes, but what does that have to do with computers or BBS'n.
-Hm...
-hmmm.....
-duh...
-so.
-Huh?
-Are you saying what I think you're saying?
-Dem is dangerous words!
-oh...
-uh huh.
-No way.
-Really?
-Are you sure?
-Too weird! Those were my thoughts exactly!
-ok.
-oh.
-ah ha.
-and?
-more?
-go on.
-go ahead.
-tell me more.
-continue...
-is there more?
-I'm listening.
-Oh.. <yawn>
-zzzzzzzzzzzzzzzzzzz`_`_`_`_ I'm sorry`_`_ continue...
-That's really nice.
-Glad to hear it.
-gee whiz... I couldn't have put it better myself!
-I must say I'm impressed with your crystal clear reasoning and articulation...
-You will set foot on the soil of many countries....!
-I'm speechless at the present moment......
-That's astounding....
-You have a hypnotic quality about you!
-Word's can't begin to paint that picture!!!
-I'm beside myself!
diff --git a/ctrl/ircd.conf b/ctrl/ircd.conf
deleted file mode 100644
index f12e94e4cbb59dcb1af270c8e9fe43e9d666c8ad..0000000000000000000000000000000000000000
--- a/ctrl/ircd.conf
+++ /dev/null
@@ -1,295 +0,0 @@
-# $Id$
-#
-# ircd.conf - Synchronet IRCd default configuration file by Randy Sommerfeld.
-#
-# *** The format of this file is very similar to that of the configuration file
-# used by Bahamut and other IRC daemons out there. You should be able to
-# take a Bahamut ircd.conf and allow Synchronet IRCd use it as-is, other
-# configs will need a little editing, first.
-#
-# *** If you're new to IRC or configuring the IRCd, please read the enclosed
-# comments very carefully. Wrong configuration options in this file will
-# destabalize your server, or at worst crash the IRCd. You've been warned.
-#
-# *** Unlike the traditional ircd, which reads the configuration file from the
-# bottom up, we read this file from the top down.
-#
-# *** This file supports some basic tokens. The supported tokens are:
-#
-# SYSTEM_HOST_NAME Your system hostname as defined in scfg
-# SYSTEM_NAME Your BBS name as defined in scfg
-# SYSTEM_QWKID Your QWKID as defined in scfg
-# VERSION_NOTICE The short form Synchronet version notice
-#
-########## M:Line ## Required ## Compatibility: 'IP' unused
-# This line configures what your server name and description are set to.
-# If you're running the IRCd standalone from jsexec, you can also define what
-# port it uses to accept connections on, also. If you're connecting to the
-# Synchronet IRC Network, your server name must be your 'qwkid.synchro.net'
-# hostname, and that host must point to the IP address that the IRCd will be
-# running on.
-#
-# M:hostname:ip(Unused):description:port
-#
-M:SYSTEM_QWKID.synchro.net:*:SYSTEM_NAME:6667
-#
-########## A:Line ## Required ## Compatibility: FULL
-# This line defines what sort of information is returned when a user uses
-# the /ADMIN command. It's intended to provide some sort of useful information
-# about who runs the server. By default, it'll display some information about
-# your BBS. The final string MUST be a valid contact email address.
-#
-# A:line1:line2:contact email
-#
-A:SYSTEM_NAME (SYSTEM_QWKID):VERSION_NOTICE:Sysop- <sysop@SYSTEM_HOST_NAME>
-#
-########## Y:Line ## Suggested ## Compatibility: FULL
-# Y:Lines allow you to define 'IRC classes' that are assigned to users
-# and servers when they connect. It allows you to choose how long a connection
-# can idle before the server sends a PING, how often your IRCd will attempt to
-# auto-connect to uplink servers, the maximum number of clients allowed per
-# IRC class, and the maximum 'sendq' that a user can have before they get
-# disconnected for having excessive amounts of data waiting to be pushed.
-#
-# Y:class number:ping frequency:connect frequency:maximum links:sendq
-#
-#Class 1: Normal users coming in from the net
-Y:1:120:0:100:1000000
-#Class 2: Users coming in from the local BBS
-Y:2:30:0:100:1000000
-#Class 10: IRC operators
-Y:10:400:0:100:2000000
-#Class 30: Leaf->Hub connections
-Y:30:60:300:1:15000000
-#Class 40: Hub->Hub connections
-Y:40:90:60:10:20000000
-#Class 50: Hub->QWK Master connections
-Y:50:90:60:1:20000000
-#
-########## I:Line ## Required ## Compatibility: FULL
-# When a regular user connects, the IRCd will match them against this
-# list of I:Lines until it finds a match. The IRCd will stop searching when it
-# finds a match, so you'll want to list your most exclusive lines first, and
-# then the most generic line last. You may also define that a particular
-# password be required to connect for certain hosts, or that they connect to
-# a particular port. Matching users will be thrown into a particular IRC
-# class as defined by the above Y:Lines.
-#
-# I:ip mask:password:hostmask:port:irc class
-#
-#BBS users
-I:*@127.0.0.1::*@SYSTEM_QWKID.synchro.net::2
-#everyone else
-I:*@*::*@*::1
-#
-########## O:Line ## Optional ## Compatibility: EXTENDED
-# These define who will be able to use the /OPER command to gain special
-# IRC operator access to your server. This should not be done lightly, as an
-# operator can cause considerable damage to the network, thus care should be
-# taken to secure these lines as much as possible. In particular, if the user
-# is registered with the BBS, you shouldn't use wildcards in the username
-# portion so that they're forced to ident via their BBS password, and then
-# via their defined /OPER password.
-# Several flags may be used to greater fine-tune the type of access that
-# each operator has. Note that if you're only a leaf server on the Synchronet
-# IRC network, your access will be limited to the equivalent of an 'o' flag.
-#
-# FLAG COMMAND NOTES
-# r /REHASH
-# R /RESTART
-# D /DIE
-# g /GLOBOPS
-# w /WALLOPS
-# l /LOCOPS
-# c /SQUIT + /CONNECT Can only SQUIT or CONNECT locally.
-# C /SQUIT + /CONNECT SQUIT or CONNECT servers globally.
-# k /KILL Can only KILL locally.
-# K /KILL Allow global kills.
-# b /KLINE
-# B /UNKLINE
-# n /NOTICE $servername Global messages to local server only.
-# N /NOTICE $*.synchro.net Allow messages across whole network.
-# A -- Unavailable in Synchronet IRCd as of latest version --
-# a -- Unavailable in Synchronet IRCd as of latest version --
-# u UMODE +c Operator can see client cons/discons
-# f -- Unavailable in Synchronet IRCd as of latest version --
-# F -- Unavailable in Synchronet IRCd as of latest version --
-# s /CHATOPS
-# X /DEBUG + /EVAL
-# o "Local Operator" which is inclusive of flags: rgwlckbBnuf
-# O "Global Operator" which is inclusive of flags: oCKNs
-# S Check password against the BBS system password.
-#
-# Note that the flags 'R', 'D', and 'X' do not appear in any of 'o' or
-# 'O', and must be explicitly defined. Note that /DEBUG and /EVAL (the 'X'
-# flag) are particuarily dangerous commands and should not be enabled unless
-# you're sure of what you're doing. The 'S' flag is a special flag which will
-# check against the BBS system password instead of the defined O:Line password.
-#
-# A user who successfully uses the /OPER command will be assigned their
-# new IRC class as defined by the relevant Y:Line. A user who does not
-# succeed in an /OPER attempt will have that attempt logged and broadcast
-# locally.
-#
-# O:hostmask:password:nick:flags:irc class
-#
-O:*@SYSTEM_QWKID.synchro.net:*:Sysop:OS:10
-O:bbsuser@*.somebbs.com:mypa$$word:Joe:o:10
-#
-########## U:Line ## Optional ## Compatibility: FULL
-# A U:Line is a special kind of line that defines which servers on the
-# network are allowed to send unchecked MODE commands among other 'special'
-# services commands (AKILL, et al). If you're linking to the Synchronet IRC
-# this must be set to 'services.synchro.net'. Otherwise it should be set to
-# whichever server will be hosting 'services' such as ChanServ, MemoServ,
-# NickServ, or similar.
-#
-# U:server name:*:*
-#
-U:services.synchro.net:*:*
-#
-########## X:Line ## Optional ## Compatibility: FULL
-# This is a simple line that adds an extra parameter (a password) to the
-# /DIE and /RESTART commands respectively. This is in addition to the regular
-# IRC operator requirement and the relevant 'D' and 'R' flags on the O:Line.
-#
-# X:die password:restart password
-#
-#X:diepass:restartpass
-#
-########## C:Line + N:Line ## Optional ## Compatibility: EXTENDED
-# These lines define what servers you will be connecting to (C:Line) and
-# receiving connections from (N:Line). C and N:Lines must always occur in
-# pairs, even if you'll only ever be connecting in one direction. If you
-# define a port on the C:Line, the IRCd will use the relevant IRC class (as
-# defined on Y:Lines above) to auto-connect at the configured interval. N:Lines
-# which have '*' as a password won't allow inbound connections.
-#
-# Synchronet IRCd also supports certain flags on the N:Line for
-# determining certain types of behaviour.
-#
-# FLAG DESCRIPTION
-# q Use the relevant server's local QWK password to authenticate.
-# w The server is a QWK-master, or is downlink to one.
-# k Contact the QWK-master for authentication when this connects.
-#
-# C:hostname or ip address:password:server name:port:irc class
-# N:hostname or ip address:password:server name:flags:irc class
-#
-##If you'd like to link to the Synchronet IRC network, make sure your QWK-id is
-# registered with vert, and that you have dyndns.js working so that the host
-# 'qwk.synchro.net' (where qwk = your qwk-id) points to your IP address. Then,
-# uncomment these two lines below and replace 'QWK_PASSWORD' with your QWK
-# password. Issue the /rehash command (or restart Synchronet), and the ircd
-# will auto-connect to vert. DO NOT replace the '*' in the N:Line password
-# field with anything else, leave it simply as '*'. This is because a QWK
-# uplink won't echo your QWK password back to you, it simply returns a '*'.
-# This is also important to block any incoming servers (which will never
-# happen on a dynamic QWK connect.)
-#C:vert.synchro.net:QWK_PASSWORD:*.synchro.net:6667:30
-#N:vert.synchro.net:*:*.synchro.net::30
-# ^-Leave this asterik alone if you're using QWK to connect.
-#
-##This is an example vanilla C/N pair
-#C:rrx.synchro.net:password:rrx.synchro.net::30
-#N:rrx.synchro.net:password:rrx.synchro.net::30
-#
-########## K:Line ## Optional ## Compatibility: CUSTOM
-# These are the infamous K:Lines (or 'kill' lines) which let you decide
-# what hostmasks should be banned from your server. The format of this command
-# differs from the standard ircd's, and 'kline.conf' (as per Bahamut 1.4) is
-# not supported at this time.
-#
-# K:banmask:reason
-#
-K:*.whitehouse.gov:Obviously bogus domain.
-K:~root@*:For your protection, don't IRC as root.
-#K:~*@*:Only users who have registered with the BBS may connect
-#
-########## Q:Line ## Suggested ## Compatibility: FULL
-# Q:Lines allow you to restrict what nicknames may be used on your
-# server. If you're linking to the Synchronet IRC Network, these Q:Lines as
-# defined are required. A user trying to /NICK over to these nicknames or
-# register with a nick that matches a mask here will be given the reason as
-# defined for having their change request denied.
-#
-# Q:*:reason:nickmask
-#
-Q:*:Reserved for Services:*Serv
-Q:*:Reserved for Services:Global
-Q:*:Reserved for Operators:IRCop
-Q:*:Reserved for Sysop:Sysop
-#
-########## Z:Line ## Optional ## Compatibility: FULL
-# This is to be considered a 'last resort' type of line that will ban
-# users from your server based on IP address only. The users will be dropped
-# from the server as fast as possible without any processing having been done.
-# This is useful if you're being DOS attacked from a certain IP or range.
-# Be careful with Z:Lines, as you cuold possibly be banning servers wishing to
-# connect to you.
-#
-# Z:ipmask:reason:*
-#
-Z:0.0.0.0:Obviously bogus IP address:*
-#
-########## H:Line ## Optional ## Compatibility: EXTENDED
-# This line has a special meaning for the Synchronet IRCd, in particular
-# it defines which servers are considered to be 'full hubs' and have the
-# responsibility of managing synchronization and control issues. Hubs are also
-# allowed to have servers connect 'behind' them. The 'server name' must be
-# the full servername without wildcards -- note that an IRC server name is not
-# its hostname. Typically this will be in the form of 'qwkid.synchro.net'.
-#
-# H:servermask permitted behind:*:server name
-#
-H:*:*:vert.synchro.net
-H:*:*:cvs.synchro.net
-H:*:*:rob.synchro.net
-H:*:*:freebsd.synchro.net
-H:*:*:rrx.synchro.net
-#An example H:Line which would allow france.synchro.net to connect only *.fr
-#servers to the network.
-#H:*.fr:*:france.synchro.net
-#
-########## P:Line ## Optional ## Compatibility: FULL
-# This is a simple type of line that tells the IRCd to listen on
-# additional ports other than what was defined on the M:Line (if you're running
-# from jsexec) or inside the Synchronet services configuration. One port per
-# line.
-#
-# P:*:*:*:port
-#
-#P:*:*:*:7000
-#P:*:*:*:6666
-#
-########## E:Line ## UNSUPPORTED ## Compatibility: UNSUPPORTED
-# This is an 'exemption' line which will allow users to slip through
-# K:Lines. These should be as specific as possible.
-# Currently, E:Lines are unsupported by the Synchronet IRCd.
-#
-# E:hostmask:*:username mask
-#
-#E:*.shawcable.net:*:cyan
-#
-########## F:Line ## UNSUPPORTED ## Compatibility: UNSUPPORTED
-# Another exemtion line, this is virtually identical to an E:Line except
-# that an F:Line will also bypass the defined IRC class limits in addition to
-# allowing a user to slip through a K:Line.
-# Currently, F:Lines are unsupported by the Synchronet IRCd.
-#
-# F:hostmask:*:username mask
-#
-#F:*.synchro.net:*:*digtlman
-#
-########## T:Line ## UNSUPPORTED ## Compatibility: UNSUPPORTED
-# A simple line that defines the hostname where proxy scans will
-# originate from. A message is displayed to the user upon connect containing
-# the URL as defined here pointing them towards more information.
-# The http:// is automatically prefixed on the defined URL.
-# Currently, T:Lines are unsupported by the Synchronet IRCd.
-#
-# T:hostname:url
-#
-#T:rrx.synchro.net:www.synchro.net/proxyscan
-#
-##EOF##
diff --git a/ctrl/mailproc.cfg b/ctrl/mailproc.cfg
deleted file mode 100644
index 22665e1bf2be12faca565492457ae8979ef62e70..0000000000000000000000000000000000000000
--- a/ctrl/mailproc.cfg
+++ /dev/null
@@ -1,151 +0,0 @@
-; External Mail Processing Configuration
-; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-;
-; $Id$
-;
-; Overview
-; ~~~~~~~~
-;
-; A "mail processor" can modify or reject any message (body or header)
-; or the list of recipients (envelopes) for any SMTP-received mail.
-;
-; Each line of this file that doesn't begin with a semicolon (comment)
-; is a mail processor command-line that will be run for every incoming
-; SMTP mail message.
-;
-; These instructions are for the Synchronet Mail Server (mailsrvr.c)
-; revision 1.298 and later.
-;
-; Command-line Specifiers
-; ~~~~~~~~~~~~~~~~~~~~~~~
-;
-; Mail processor command-lines may use command-line specifiers (i.e. macros
-; or variables) to represent dynamic information.
-;
-; Command-line specifiers (macros/variables) available:
-;
-; %m = mail message (header and body text) path/filename
-; %l = recipient list path/filename
-; %e = processing error path/filename (put error text in this file)
-;
-; %h = sending SMTP server's host name
-; %i = sending SMTP server's IP address
-;
-; %u = authenticated user number (0=unauthenticated)
-;
-; %! = Synchronet exec directory
-; %g = Synchronet temp directory
-; %j = Synchronet data directory
-; %k = Synchronet ctrl directory
-; %z = Synchronet text directory
-;
-; %o = sysop name
-; %q = system QWK-ID
-; %v = Synchronet version
-; %? = platform
-; %% = percent symbol
-;
-; Rejecting/Ignoring Mail
-; ~~~~~~~~~~~~~~~~~~~~~~~
-;
-; If the mail processor deletes the mail message (%m) or recipient list (%l)
-; files, the mail message will be silently ignored. The sending SMTP server
-; will not receive any error or failure indication.
-;
-; If the mail processor creates a processing error (%e) file (1 or more bytes)
-; the mail message will be rejected by the SMTP server with the error message
-; contained in the processing error file and an SMTP error response of 554.
-;
-; Processing Error File
-; ~~~~~~~~~~~~~~~~~~~~~
-;
-; If the processing error file (%e) is created by the mail processor, it may
-; contain simple error text (one or more lines) or SMTP error codes (with
-; proper SMTP mutli-line response formatting) if the default STMP error
-; response (554) is not desirable.
-;
-; Mail Message Format
-; ~~~~~~~~~~~~~~~~~~~
-;
-; The mail message file (%m) is a plain ASCII text file in RFC 821 format
-; containing the full message header and body as received by the SMTP server.
-;
-; Recipient List Format
-; ~~~~~~~~~~~~~~~~~~~~~
-;
-; The recipient list is an ini-formatted file with a separate ini section
-; (e.g. "[#]") for each recipient envelope.
-;
-; Each section (recipient) supports the following keys:
-;
-; Recipient = original destination address
-; RecipientExt = user record number, if addressed to a local user
-; RecipientNetType = deliver-to network type (0=none, 4=QWK, 5=Internet)
-; RecipientNetAddr = deliver-to network address
-;
-; Example recipient entries:
-;
-; Example for a local mail recipient:
-; [0]
-; Recipient=rob@synchro.net
-; RecipientExt=1
-;
-; Example for an externally-relayed mail recipient:
-; [1]
-; Recipient=rob@somewhere.org
-; RecipientNetType=5
-; RecipientNetAddr=rob@somewhere.org
-;
-; Example for a forwarded mail recipient:
-; [2]
-; Recipient="dr. seuss"@synchro.net
-; RecipientExt=3
-; RecipientNetType=5
-; RecipientNetAddr=santakrooz@yahoo.com
-;
-; Example for a QWKnet-routed mail recipient:
-; [3]
-; Recipient=digital.man
-; RecipientExt=1685
-; RecipientNetType=4
-; RecipientNetAddr=FREEBSD
-;
-; JavaScript Mail Processors
-; ~~~~~~~~~~~~~~~~~~~~~~~~~~
-;
-; If a mail processor command-line begins with '?', the JavaScript module
-; following the '?' (assumed to be located in the Synchronet EXEC directory)
-; will be compiled and executed internally. Any command-line options
-; included after the filename will be available to the script using the
-; 'argv' array.
-;
-; You can still use the command-line specifiers to pass dynamic information
-; to a JavaScript mail processor, but all the same information is more easily
-; accessible by accessing built-in JavaScript objects/properties:
-;
-; The message text filename (%m) is available to JavaScript modules using
-; the global variable 'message_text_filename'.
-;
-; The recipient list filename (%l) is available to JavaScript modules using
-; the global variable 'recipient_list_filename'.
-;
-; The processing error filename (%e) is available to JavaScript modules using
-; the global variable 'processing_error_filename'.
-;
-; The sending SMTP server's host name (%h) is available to JavaScript modules
-; using the 'client.host_name' property.
-;
-; The sending SMTP server's IP addrses (%i) is available to JavaScript modules
-; using the 'client.ip_address' property.
-;
-; See the example JavaScript mail processor (mailproc_example.js) in your
-; Synchronet EXEC directory for more details.
-;
-; Mail Processing commands follow:
-; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-;
-; Hint: Remove semicolon to activate a mail processor command-line.
-;
-; echo This is a sample mail process command. >> %m
-; grep -i penis %m > %e
-; ?mailproc_example.js
\ No newline at end of file
diff --git a/ctrl/main.cnf b/ctrl/main.cnf
deleted file mode 100644
index 8fd71a6322b7ec8496900c8a13843c3dcd20959a..0000000000000000000000000000000000000000
Binary files a/ctrl/main.cnf and /dev/null differ
diff --git a/ctrl/mime_types.cfg b/ctrl/mime_types.cfg
deleted file mode 100644
index 48ffd59b54694978f1cd2a18741d6a35356160f3..0000000000000000000000000000000000000000
--- a/ctrl/mime_types.cfg
+++ /dev/null
@@ -1,88 +0,0 @@
-; This is a comment. I love comments.
-; This file controls what Internet media types are sent to the client for
-; given file extension(s). Sending the correct media type to the client
-; is important so they know how to handle the content of the file.
-; Extra types can either be added here
-; The Internet media type
-; registry is at <ftp://ftp.iana.org/in-notes/iana/assignments/media-types/>.
-
-; Extension MIME-type
-htm text/html
-html text/html
-hqx application/mac-binhex40
-cpt application/mac-compactpro
-doc application/msword
-lha application/octet-stream
-lzh application/octet-stream
-exe application/octet-stream
-class application/octet-stream
-pdf application/pdf
-ps application/postscript
-eps application/postscript
-xls application/vnd.ms-excel
-ppt application/vnd.ms-powerpoint
-csh application/x-csh
-js application/x-javascript
-latex application/x-latex
-sh application/x-sh
-shar application/x-shar
-swf application/x-shockwave-flash
-sit application/x-stuffit
-tar application/x-tar
-zip application/zip
-mid audio/midi
-midi audio/midi
-mpga audio/mpeg
-mp2 audio/mpeg
-mp3 audio/mpeg
-aif audio/x-aiff
-aiff audio/x-aiff
-aifc audio/x-aiff
-m3u audio/x-mpegurl
-rm audio/x-pn-realaudio
-ram audio/x-pn-realaudio
-rpm audio/x-pn-realaudio-plugin
-ra audio/x-realaudio
-wav audio/x-wav
-bmp image/bmp
-gif image/gif
-ief image/ief
-jpeg image/jpeg
-jpg image/jpeg
-jpe image/jpeg
-png image/png
-tif image/tiff
-tiff image/tiff
-wbmp image/vnd.wap.wbmp
-ras image/x-cmu-raster
-pnm image/x-portable-anymap
-pbm image/x-portable-bitmap
-pgm image/x-portable-graymap
-ppm image/x-portable-pixmap
-rgb image/x-rgb
-xbm image/x-xbitmap
-xpm image/x-xpixmap
-xwd image/x-xwindowdump
-wrl model/vrml
-vrml model/vrml
-css text/css
-asc text/plain
-txt text/plain
-rtx text/richtext
-rtf text/rtf
-sgml text/sgml
-sgm text/sgml
-tsv text/tab-separated-values
-wml text/vnd.wap.wml
-wmls text/vnd.wap.wmlscript
-xml text/xml
-xsl text/xml
-mpg video/mpeg
-mpe video/mpeg
-mpeg video/mpeg
-qt video/quicktime
-mov video/quicktime
-mxu video/vnd.mpegurl
-avi video/x-msvideo
-movie video/x-sgi-movie
-ice x-conference/x-cooltalk
diff --git a/ctrl/msgs.cnf b/ctrl/msgs.cnf
deleted file mode 100644
index b74f4abe4c4aa637661d6420e5f4e4e38d9d94c9..0000000000000000000000000000000000000000
Binary files a/ctrl/msgs.cnf and /dev/null differ
diff --git a/ctrl/newslink.cfg b/ctrl/newslink.cfg
deleted file mode 100644
index 412eec3d4d9179caf962bc1dcd0779afe55bf7e8..0000000000000000000000000000000000000000
--- a/ctrl/newslink.cfg
+++ /dev/null
@@ -1,27 +0,0 @@
-; Synchronet NewsLink configuration file
-
-; Remove the following line to enable NewsLink operation
-DISABLED
-
-; One server per configuration file, specify server address on next line
-SERVER your.news.server
-
-; Specify your username and password on the server (if any)
-USER your.user.name
-PASS your.password
-
-; Uncomment the following line to over-ride the auto-generated tagline
-; TAGLINE This is my custom tagline - telnet://mybbs.com
-
-; For every newsgroup you want to link, add an "AREA" line
-; The first word must be "AREA"
-; The second word is the internal code for the sub-board you wish to link
-; The third word is the newsgroup name (as it appears on the news server)
-; The fourth word is an optional list of flag characters
-; Defined area flags:
-; x do not add tearlines & taglines to exported messages
-; n do not add "From Newsgroup" text to imported messages
-; t do not add tearline to imported messages
-; a convert extended-ASCII chars to ASCII on imported messages
-
-AREA intcode newsgroup [flags]
diff --git a/ctrl/relay.cfg b/ctrl/relay.cfg
deleted file mode 100644
index f1850f9eefd945e307d8f51d14babfab8512d895..0000000000000000000000000000000000000000
--- a/ctrl/relay.cfg
+++ /dev/null
@@ -1,3 +0,0 @@
-; List IP addresses or hostnames (one per line) which you will allow
-; *unauthenticated* relaying of mail through your SMTP Mail server.
-; Wildcards (*) are allowed
\ No newline at end of file
diff --git a/ctrl/sbbs.ini b/ctrl/sbbs.ini
deleted file mode 100644
index e25cb933b4295d8c0c690a1a9368672b5900f449..0000000000000000000000000000000000000000
--- a/ctrl/sbbs.ini
+++ /dev/null
@@ -1,193 +0,0 @@
-; sbbs.ini
-
-; Synchronet Startup Configuration (Initialization) File
-
-; Synchronet Console (sbbs) will use these settings by default.
-; $SBBSCTRL/$HOSTNAME.ini, if it exists, will be used instead.
-; Command-line options, if specified, will override these settings.
-
-; $Id$
-
-[Global]
-; Override system address for this instance (optional):
- Hostname=
-; IP address of default network interface (default's to ANY/ALL interfaces):
- Interface=
-; Override the SBBSCTRL environment variable (optional):
- CtrlDirectory=
-; Override the default system "temp" directory (optional):
- TempDirectory=
-; Increase value to decrease semaphore file checking frequency:
- SemFileCheckFrequency=5 ; seconds
-
-[BBS]
-; Set to 'false' to disable Telnet/Rlogin/Event server:
- AutoStart=true
-; Set to IP address of network interface (or blank for default):
- TelnetInterface=
-; Set to IP address of network interface (or blank for default):
- RLoginInterface=
-; TCP port for Telnet server:
- TelnetPort=23
-; TCP port for RLogin server:
- RLoginPort=513
-; This server handles this range of BBS nodes:
- FirstNode=1
- LastNode=4
-; Increase this value to decrease the frequency of forced CPU time-slice yields in DOS externals:
- ExternalYield=10
-; Must install install/termcap or terminfo to use the following TERM setting:
-; ExternalTermANSI=ansi-bbs
- ExternalTermDumb=dumb
-; To change the default dosemu/doscmd path, uncomment and set:
-; DOSemuPath=
- AnswerSound=
- HangupSound=
-; Supported options (separated with |):
-; XTRN_MINIMIZED
-; AUTO_LOGON
-; DEBUG_TELNET
-; SYSOP_AVAILABLE
-; ALLOW_RLOGIN
-; USE_2ND_RLOGIN
-; NO_QWK_EVENTS
-; NO_TELNET_NOP
-; NO_HOST_LOOKUP
-; NO_RECYCLE
-; GET_IDENT
-; NO_JAVASCRIPT
-; LOCAL_TIMEZONE
-; MUTE
-Options = XTRN_MINIMIZED | SYSOP_AVAILABLE
-
-[Mail]
- AutoStart=true
- LogFile=1
- MaxClients=15
- MaxInactivity=120
- Interface=
- LinesPerYield=10
- MaxDeliveryAttempts=50
- MaxRecipients=100
- RescanFrequency=3600
- SMTPPort=25
- POP3Port=110
- DefaultUser=sysop
- DNSBlacklistHeader=X-DNSBL
- DNSBlacklistSubject=SPAM
- RelayServer=
- RelayPort=25
- DNSServer=
- POP3Sound=
- InboundSound=
- OutboundSound=
- ProcessConfigFile=mailproc.cfg
-; Supported options (separated with |):
-; DEBUG_RX_HEADER
-; DEBUG_RX_BODY
-; ALLOW_POP3
-; DEBUG_TX
-; DEBUG_RX_RSP
-; RELAY_TX
-; DEBUG_POP3
-; ALLOW_RX_BY_NUMBER
-; USE_TCP_DNS
-; NO_SENDMAIL
-; ALLOW_RELAY
-; SMTP_AUTH_VIA_IP
-; DNSBL_REFUSE
-; DNSBL_IGNORE
-; DNSBL_BADUSER
-; NO_HOST_LOOKUP
-; NO_RECYCLE
-; LOCAL_TIMEZONE
-; MUTE
-Options=ALLOW_POP3
-
-[FTP]
- AutoStart=true
- LogFile=1
- Port=21
- MaxClients=15
- MaxInactivity=300
- QwkTimeout=600
- Interface=
- AnswerSound=
- HangupSound=
- HackAttemptSound=
- IndexFileName=00index
- HtmlIndexFile=00index.html
- HtmlIndexScript=ftp-html.js
-; Supported options (separated with |):
-; DEBUG_RX
-; DEBUG_DATA
-; INDEX_FILE
-; DEBUG_TX
-; ALLOW_QWK
-; NO_LOCAL_FSYS
-; DIR_FILES
-; KEEP_TEMP_FILES
-; HTML_INDEX_FILE
-; NO_HOST_LOOKUP
-; NO_RECYCLE
-; NO_JAVASCRIPT
-; LOCAL_TIMEZONE
-; MUTE
-Options=INDEX_FILE | HTML_INDEX_FILE | ALLOW_QWK
-
-[Web]
- ;AutoStart=true
- Interface=
- Port=80
- RootDirectory=../html
- ErrorDirectory=../html/error
- IndexFileNames=index.html,index.ssjs
- CGIExtensions=.cgi
- ;CGITempDirectory=/tmp
- JavaScriptExtension=.ssjs
- MaxInactivity=120
- MaxCgiInactivity=120
-; Supported options (separated with |):
-; DEBUG_RX
-; DEBUG_TX
-; VIRTUAL_HOSTS
-; NO_HOST_LOOKUP
-; NO_RECYCLE
-; GET_IDENT
-; NO_JAVASCRIPT
-; LOCAL_TIMEZONE
-; MUTE
-Options=NO_HOST_LOOKUP
-
-[Services]
- AutoStart=true
- Interface=
- ConfigFile=services.cfg
- AnswerSound=
- HangupSound=
-; Supported options (separated with |):
-; NO_HOST_LOOKUP
-; LOCAL_TIMEZONE
-; MUTE
-Options=NO_HOST_LOOKUP
-
-[UNIX]
-; User/group name to run as
- ;User=admin
- ;Group=wheel
-; Run in background:
- Daemonize=False
-; Daemon Log Facility to use
-; 1 = LOCAL1
-; 2 = LOCAL2
-; .
-; .
-; .
-; S = Use standard facilities - be sure you understand the
-; consequences of enabling this!
-; man syslog.conf(5) for more information.
-; Defaults to using the USER facility.
- LogFacility=User
-; Default file creation mask:
- umask=077
-
diff --git a/ctrl/sbbsecho.cfg b/ctrl/sbbsecho.cfg
deleted file mode 100644
index 2d1c2692cadf8214470ab41c40d171fcc50d3201..0000000000000000000000000000000000000000
--- a/ctrl/sbbsecho.cfg
+++ /dev/null
@@ -1,45 +0,0 @@
-;OUTBOUND C:\IM\OUTBOUND
-OUTBOUND C:\FD\OUTBOUND
-
-PACKER ZIP 0 504B
- PACK pkzip %f %s
- UNPACK PkUnzip %f %s
-END
-
-PACKER ARC 0 1A
- PACK pak a %f %s
- UNPACK pak e %f %s
-END
-
-PACKER LZH 2 2D6C68
- PACK Lha a %f %s
- UNPACK Lha e %f %s
-END
-
-PACKER ARJ 0 60EA
- PACK Arj a %f %s
- UNPACK Arj e %f %s
-END
-
-PACKER PAK 0 FE
- PACK pak a %f %s
- UNPACK pak e %f %s
-END
-
-PACKER SQZ 0 484C5351
- PACK Sqz a %f %s
- UNPACK Sqz e %f %s
-END
-
-PACKER ZOO 0 DCA7C4FD
- PACK Zoo a %f %s
- UNPACK Zoo e %f %s
-END
-
-;STORE_SEENBY
-;STORE_PATH
-;STORE_KLUDGE
-;FUZZY_ZONE
-;FLO_MAILER
-;REGNUM xxxxxxxx
-
diff --git a/ctrl/services.ini b/ctrl/services.ini
deleted file mode 100644
index 55efb318a61471922c9a5f52e760c80864448cd9..0000000000000000000000000000000000000000
--- a/ctrl/services.ini
+++ /dev/null
@@ -1,54 +0,0 @@
-; ctrl/services.ini file
-
-; Each section is a service, the [section name] is the service/protocol name
-
-; Supported options (separated with |):
-; NO_HOST_LOOKUP
-; NO_RECYCLE
-; MUTE
-; UDP
-; STATIC
-; LOOP
-; NATIVE
-; FULL_ACCEPT
-
-; Network News Transfer Protocol (NNTP)
-[NNTP]
-Port=119
-MaxClients=10
-Options=0
-Command=nntpservice.js -f
-
-; HTTP NodeList Service (this is not a "Web server")
-[HTTP]
-Port=8080
-MaxClients=10
-Options=0
-Command=nodelist-html.js -l -r 30
-
-; Finger Service
-[Finger]
-Port=79
-MaxClients=10
-Options=NO_HOST_LOOKUP
-Command=fingerservice.js
-
-; Finger Service, fast (for inter-BBS instant-messaging)
-[UDP-Finger]
-Port=79
-MaxClients=10
-Options=UDP | NO_HOST_LOOKUP
-Command=fingerservice.js
-
-; Archaic HTTP-like protocol
-[Gopher]
-Port=70
-MaxClients=10
-Options=0
-Command=gopherservice.js
-
-; Internet Relay Chat (IRC) Daemon (Server)
-[IRC]
-Port=6667
-Options=STATIC | LOOP
-Command=ircd.js
diff --git a/ctrl/sockopts.cfg b/ctrl/sockopts.cfg
deleted file mode 100644
index 4493decd81d1a4f63d63fc9443bf861a26d00576..0000000000000000000000000000000000000000
--- a/ctrl/sockopts.cfg
+++ /dev/null
@@ -1,25 +0,0 @@
-; Socket option configuration file
-; option-name <white-space> value
-
-; supported options:
-; TYPE
-; DEBUG
-; LINGER
-; SNDBUF
-; RCVBUF
-; SNDLOWAT
-; RCVLOWAT
-; SNDTIMEO
-; RCVTIMEO
-; REUSEADDR
-; KEEPALIVE
-; DONTROUTE
-; BROADCAST
-; OOBINLINE
-; TCP_NODELAY
-
-; LINGER 1 5
-KEEPALIVE 1
-SNDBUF 4096
-RCVBUF 4096
-TCP_NODELAY 1
diff --git a/ctrl/text.dat b/ctrl/text.dat
deleted file mode 100644
index 5dda7246d62fe3a0c640684ef9b09e9e2dd2309d..0000000000000000000000000000000000000000
--- a/ctrl/text.dat
+++ /dev/null
@@ -1,868 +0,0 @@
-"nhc�������n������hk�������nc���������\r\n"\ 001 MsgSubj
- "h� bSubjnb: hc%.70s\r\n"
-"� bAttrnb: hc%s%s%s%s%s%s%s%s%s%s\r\n" 002 MsgAttr
-"� bTo nb: hc%.70s" 003 MsgTo
-" #%s" 004 MsgToExt
-" (%s)" 005 MsgToNet
-"\r\nw� bFromnb: hc%.70s" 006 MsgFrom
-" #%s" 007 MsgFromExt
-" (%s)" 008 MsgFromNet
-"\r\nw� bDatenb: hc%.24s %s\r\n"\ 009 MsgDate
- "w�������c���������n����������hk����"\
- "����nc�������b�������������n"
-"_\r\nbhE-mail (User name or number): w" 010 Email
-"\r\nPost on %s %s" 011 PostQ
-"rh\r\n\7You have sent too many E-mails today.\r\n" 012 TooManyEmailsToday
-"rh\r\n\7You have posted too many times today.\r\n" 013 TooManyPostsToday
-"\r\7nrhCannot add w%sr to queue - n" 014 CantAddToQueue
-"n\r\nThe sending of mail is beyond your ability.\r\n" 015 R_Email
-"n\r\nYou can't post messages.\r\n" 016 R_Post
-"n\r\nYou can't send E-mail to %s.\r\n" 017 R_Feedback
-"nm\r\nSending E-mail to h%s nm#%un\r\n" 018 Emailing
-"nm\r\nPosting on h%snm %s\r\n" 019 Posting
-"\r\nNew file.\r\n" 020 NewFile
-"_\r\nyhSubject: " 021 SubjectPrompt
-"ng\r\nEnter message now (h%dng lines max). "\ 022 EnterMsgNow
- "Type h/?ng on a new line for menu.\r\nn"
-"ng\r\nRaw message input (h%lung bytes max). "\ 023 EnterMsgNowRaw
- "hCtrl-Zng to save, hCtrl-Cng to abort.n\r\n\r\n"
-"No more lines. Type /? for menu.\r\n" 024 NoMoreLines
-"Only %d lines left.\r\n" 025 OnlyNLinesLeft
-"\r\n\r\n\1n\1r\1h\1iOut of bytes.\1n\r\n" 026 OutOfBytes
-"Invalid line number\r\n" 027 InvalidLineNumber
-"nMessage cleared.\r\n" 028 MsgCleared
-"With line numbers" 029 WithLineNumbersQ
-"\r\nrhiAborted.n\r\n" 030 Aborted
-"\r\nAnonymous" 031 AnonymousQ
-"ANONYMOUS" 032 Anonymous
-"nh\r\nSaving..." 033 Saving
-"\rbSaved w%lub characters (w%ub lines).n\r\n" 034 SavedNBytes
-"n\r\nWriting Index..." 035 WritingIndx
-"\rnmE-mail sent to h%s nm#%d.n\r\n" 036 Emailed
-"\rnmPosted on h%snm %s.\r\n" 037 Posted
-"\7_whNode %2d: g%sng sent you E-mail.\r\n" 038 EmailNodeMsg
-"n\r\nYou can't forward mail.\r\n" 039 R_Forward
-"nm\r\nForwarded by h%snm on "\ 040 ForwardedFrom
- "h%sn\r\n"
-"nm\r\nMail forwarded to h%s nm#%d.n\r\n" 041 Forwarded
-"bhAuto message by: c%sb on %sn\r\n\r\n" 042 AutoMsgBy
-"\r\nAuto Message - ~Read, ~Write, or ~Quit: " 043 AutoMsg
-"n\r\nYou can't write to the auto-message.\r\n" 044 R_AutoMsg
-"n\r\nYou have no mail.\r\n" 045 NoMailWaiting
-"_\r\nghMail Waiting:\r\n\r\n" 046 MailWaitingLstHdr
-"gh%3d: ng%-25.25s h%cng %.46s\r\n" 047 MailWaitingLstFmt
-"_\r\nyhStart with number [w%luy]: w" 048 StartWithN
-"\r\nnc� bhReading E-mail nc� bh(w?b=Menu)"\ 049 ReadingMail
- " (w%ub of w%ub): n"
-"n\r\nYou can't reply to an anonymous message.\r\n" 050 CantReplyToAnonMsg
-" hbRenb: hc%sn\r\n\r\n" 051 Regarding
-" hbRenb: hc%s\r\n "\ 052 RegardingByOn
- "bBynb: hc%s bon c%sn\r\n\r\n"
-" hbRenb: hc%s\r\n "\ 053 RegardingByToOn
- "bBynb: hc%s bto c%s bon "\
- "c%sn\r\n\r\n"
-"Delete %s's mail" 054 DeleteMailQ
-"OK" 055 OK
-"\r\n_bhForward mail to: w" 056 ForwardMailTo
-"Save/Append messsage to another file" 057 SaveMsgToFile
-"_yhPath/Filename to write to: n" 058 FileToWriteTo
-"n\r\nYou have no sent messages pending.\r\n" 059 NoMailSent
-"\r\nghMail that you've sent still pending:"\ 060 MailSentLstHdr
- "\r\n\r\nn"
-"n\r\nc� hbReading Sent E-mail nc� hb"\ 061 ReadingSentMail
- "(w?b=Menu) (w%ub of w%ub): n"
-"hm\r\nSending Internet Mail To: w%sm\r\n"\ 062 InternetMailing
- " From: w%s\r\n"
-"n\r\nNo mail on system.\r\n" 063 NoMailOnSystem
-"n\r\nc� hbReading All E-mail nc� hb"\ 064 ReadingAllMail
- "(w%u bof w%ub): n"
-"_\r\ngh From "\ 065 MailOnSystemLstHdr
- "To Subject\r\nn"
-"gh%4d:ng %-22.22s %-22.22s h%cng %.25s\r\n" 066 MailOnSystemLstFmt
-"-\r\nc%-15.15s yh%-40.40s "\ 067 NScanStatusFmt
- "ncNew:h%4lu ncofh %-lu"
-"-\r\nc%-15.15s yh%-40.40s w%u" 068 SearchSubFmt
-"\r\nNo messages have been posted on %s %s\r\n" 069 NoMsgsOnSub
-"\r\nncPost : [h%unc][h%unc] h%lunc/h%lu" 070 ZScanPostHdr
-"n\r\nc� hbReading nc� [h%unc] %s "\ 071 ReadingSub
- "[h%unc] %s (h?nc=Menu) (h%lunc of h%lunc): n"
-"\r\nYou didn't post message #%d\r\n" 072 YouDidntPostMsgN
-"\r\nDelete message #%lu '%s'" 073 DeletePostQ
-"nb[hwInb] hAutoLogon via IP address "\ 074 UserDefaultsAutoLogon
- "nb: c%s\r\n"
-"\1n\r\n\1m%s sent to \1h%s #%u\r\n" 075 MsgSentToUser
-"_\r\nyhString to search for: " 076 SearchStringPrompt
-"\1w\1h�����[\1i\1r%c\1n\1h]���Ĵ "\ 077 PrivateChatSeparator
- "\1yPrivate Chat - \1rCtrl-C to Quit \1y- "\
- "Time Left: \1g%-8s\1w"\
- " �����[\1i\1b%c\1n\1h]�����"
-"gh%4lu:ng %-22.22s %-22.22s h%cng %.25s\r\n" 078 SubMsgLstFmt
-"\1w\1h�����[\1i\1r%c\1n\1h]���Ĵ "\ 079 SysopChatSeparator
- "\1rSplit-Screen \1cSysop\1r Chat \1y"\
- "Time Left: \1g%-8s\1w"\
- " �����[\1i\1b%c\1n\1h]�����"
-"\r\n\r\nNo text file sections available.\r\n" 080 NoTextSections
-"l_chGeneral Text File Sections:\r\n\r\n" 081 TextSectionLstHdr
-"nc<h%ldnc> %s\r\n" 082 TextSectionLstFmt
-"_\r\ncWhich or h~Qncuit: h" 083 WhichTextSection
-"l_ch%s Files:\r\n\r\n" 084 TextFilesLstHdr
-"ch%3ld: nc%s" 085 TextFilesLstFmt
-"\r\nWhich, ~Add, ~Remove, ~Edit, or ~Quit: " 086 WhichTextFileSysop
-"_\r\nncWhich or h~Qncuit: h" 087 WhichTextFile
-"_\r\nyhBefore which file: n" 088 AddTextFileBeforeWhich
-"\r\nPath and filename (no path indicates "\ 089 AddTextFilePath
- "%sTEXT\\%s\\filename):\r\n"
-"Description:\r\n" 090 AddTextFileDesc
-"_\r\nyhRemove which: n" 091 RemoveWhichTextFile
-"Delete %s" 092 DeleteTextFileQ
-"_\r\nyhEdit which: n" 093 EditWhichTextFile
-"\r\nSearch all groups for new messages" 094 NScanAllGrpsQ
-"\r\nSearch all groups for un-read messages to you" 095 SScanAllGrpsQ
-"\r\nAre you sure" 096 AreYouSureQ
-"\r\n\r\nYou can't chat.\r\n" 097 R_Chat
-"RE: Feedback\r\n\r\n" 098 ReFeedback
-"\r\nghSystem Information:\r\n\r\nh" 099 SiHdr
-"bhSystem : c%s\r\n" 100 SiSysName
-"bQWK ID : c%s\r\n" 101 SiSysID
-"bFidoNet Address : c%s\r\n" 102 SiSysFaddr
-"bPostLink Site : c%s %lu\r\n" 103 SiSysPsite
-"bLocation : c%s\r\n" 104 SiSysLocation
-"bOperator : c%s\r\n" 105 SiSysop
-"bNodes : c%u\r\n" 106 SiSysNodes
-"bNode #c%-3d b: c%s\r\n" 107 SiNodeNumberName
-"bNode Phone : c%s\r\n" 108 SiNodePhone
-"bTotal Logons : c%s\r\n" 109 SiTotalLogons
-"bLogons Today : c%s\r\n" 110 SiLogonsToday
-"bTotal Time : c%s minutes\r\n" 111 SiTotalTime
-"bTime Today : c%s minutes\r\n" 112 SiTimeToday
-"\r\nView system information file" 113 ViewSysInfoFileQ
-"View logon message" 114 ViewLogonMsgQ
-"\r\n\r\nYou can't read mail you've sent.\r\n" 115 R_ReadSentMail
-"\r\nwhMessage Scan " 116 MessageScan
-"nc(h%lu ncsub-boards)hw complete.\r\n" 117 MessageScanComplete
-"riaborted.n\r\n" 118 MessageScanAborted
-"\r\nLog off" 119 LogOffQ
-"\r\nYou can't post on this sub.\r\n" 120 CantPostOnSub
-"\r\n\1n\1mSending message to \1h%s\r\n" 121 SendingMessageToUser
-"\r\nrhNo other active nodes.\1n\r\n" 122 NoOtherActiveNodes
-"\r\n\r\nYou can't use the external programs.\r\n" 123 R_ExternalPrograms
-"\r\n-gUsage Statistics for h%s #%dn\r\n\r\n" 124 UserStats
-"-gSub-boards of h%-40s ngPosts"\ 125 SubLstHdr
- "\r\n\r\nh"
-"ng[h%lung] %-40s %12s h%4u\r\n" 126 SubLstFmt
-"\r\n_ghMessage Groupsng "\ 127 GrpLstHdr
- " Sub-boards\r\n\r\nh"
-"ng[h%lung] %-40s %12s h%4u\r\n" 128 GrpLstFmt
-"\r\nGroup to configure new message scan or ~Quit: " 129 NScanCfgWhichGrp
-"\r\nGroup to configure your message scan or ~Quit: " 130 SScanCfgWhichGrp
-"l-gSub-boards of h%s:\r\n\r\nh" 131 CfgSubLstHdr
-"ng[h%ldng] %-40.40s h%s\r\n" 132 CfgSubLstFmt
-"l_ghMessage Groups:\r\n\r\n" 133 CfgGrpLstHdr
-"ng[h%ldng] %sh\r\n" 134 CfgGrpLstFmt
-"\r\nSub-board to toggle new message scan"\ 135 NScanCfgWhichSub
- ", ~All, or ~Quit: "
-"\r\nSub-board to toggle your message scan"\ 136 SScanCfgWhichSub
- ", ~All, or ~Quit: "
-"ng[h%ldng] %-40.40s hc%s\r\n" 137 SubPtrLstFmt
-"\r\nSet new-scan pointer for which, ~All, or ~Quit: " 138 WhichOrAll
-"\r\nRaw message input mode is now " 139 RawMsgInputModeIsNow
-"OFF" 140 OFF
-"ON" 141 ON
-"\r\n\1n\1mPaging \1h%s #%u\1n\1m for private chat\r\n" 142 PagingUser
-"\r\n-gSystem Statistics:\r\n\r\nn" 143 SystemStatsHdr
-"\r\n-gNode #%d Statistics:\r\n\r\nn" 144 NodeStatsHdr
-"Total Logons : %s\r\n" 145 StatsTotalLogons
-"Logons Today : %s\r\n" 146 StatsLogonsToday
-"Total Time : %s minutes\r\n" 147 StatsTotalTime
-"Time Today : %s minutes\r\n" 148 StatsTimeToday
-"Uploads Today : %s bytes in %lu files\r\n" 149 StatsUploadsToday
-"Downloads Today : %s bytes in %lu files\r\n" 150 StatsDownloadsToday
-"Posts Today : %s\r\n" 151 StatsPostsToday
-"E-mails Today : %s\r\n" 152 StatsEmailsToday
-"Feedback Today : %s\r\n" 153 StatsFeedbacksToday
-"_\r\nyhChange to (User Name or Number): n" 154 ChUserPrompt
-"PW: " 155 ChUserPwPrompt
-"<UNUSED156>" 156 Unused156
-"\r\nError log:\r\n" 157 ErrorLogHdr
-"Delete error log" 158 DeleteErrorLogQ
-"\r\nNo error log exists.\r\n" 159 NoErrorLogExists
-"\r\nClear critical error counters on all nodes" 160 ClearErrCounter
-"\r\nInvalid node.\r\n" 161 InvalidNode
-"\1n\r\n\1mSending telegram to \1h%s #%u\1n\1m "\ 162 SendingTelegramToUser
- "(Max 5 lines, Blank line ends):\r\n\r\n\1g\1h"
-"Delete Guru file" 163 DeleteGuruLogQ
-"\1n\1g\7Telegram from \1n\1h%s\1n\1g on %s:\r\n\1h" 164 TelegramFmt
-"\r\n\r\nYou can't download.\r\n" 165 R_Download
-"\r\nwhSearching all directories...\r\n" 166 SearchingAllDirs
-"whSearching all libraries...\r\n" 167 SearchingAllLibs
-"\r\nwh%u Files Listed.\r\n" 168 NFilesListed
-"\r\nwhEmpty directory.\r\n" 169 EmptyDir
-"\r\nncSearching for files "\ 170 NScanHdr
- "uploaded after h%sn\r\n"
-"\r\n\r\nYou can't remove files.\r\n" 171 R_RemoveFiles
-"\r\n\r\nThis directory is full.\r\n" 172 DirFull
-"\r\n\r\nYou can't upload.\r\n" 173 R_Upload
-"\r\n\r\nYou can't upload here.\r\n" 174 CantUploadHere
-"_\r\n\r\nyhFilespec: n" 175 FileSpec
-"SY: " 176 SystemPassword
-"\r\n\r\nNo sysop directory specified.\r\n" 177 NoSysopDir
-"\r\n\r\nYou can't upload to sysop.\r\n" 178 CantUploadToSysop
-"-gDirectories of h%-40.40s "\ 179 DirLstHdr
- "ngFiles\r\n\r\nh"
-"ng(h%ung) %-40.40s %12.12s h%4u\r\n" 180 DirLstFmt
-"\r\n_ghFile Libraries ng "\ 181 LibLstHdr
- " Directories\r\n\r\nh"
-"ng(h%ung) %-40.40s %12.12s h%4u\r\n" 182 LibLstFmt
-"\1n\r\nInvalid NetMail address.\r\n" 183 InvalidNetMailAddr
-"_\r\ngh%s ngTransfer Policy\r\n\r\nn" 184 TransferPolicyHdr
-"\1n\1h[\1y%c\1w] \1b%-25s " 185 TransferProtLstFmt
-"Initial uploads are rewarded with %d%% of the "\ 186 TpUpload
- "credit value\r\n"
-"All downloads are rewarded with %d%% of the "\ 187 TpDownload
- "credit value\r\n"
-"\r\n\r\nNo user directory specified.\r\n" 188 NoUserDir
-"\r\nThere are no files for you.\r\n" 189 NoFilesForYou
-"\r\n\r\nUser transfer directory is full.\r\n" 190 UserDirFull
-"\r\n\r\nYou can't send files to users.\r\n" 191 CantUploadToUser
-"ncLibrary : (%u) %syh" 192 BoxHdrLib
-"ncDirectory : (%u) %syh" 193 BoxHdrDir
-"ncFiles : %luyh" 194 BoxHdrFiles
-"nc(h%unc) %s " 195 ShortHdrLib
-"nc(h%unc) %s" 196 ShortHdrDir
-"rhFilenames, specs, or flags [None]: mh" 197 BatchDlFlags
-"\r\n\7rhiBatch download queue is full.n\r\n" 198 BatchDlQueueIsFull
-"_\r\nyhFilespec [\1wAll Files\1y]: n" 199 FileSpecStarDotStar
-"\r\n\r\nrhiNot enough free disk space.n\r\n"\ 200 LowDiskSpace
- "\r\nhThe sysop has been notified.n\r\n"
-"\r\n%s kilobytes free\r\n\r\n" 201 DiskNBytesFree
-"_yhFilename: n" 202 Filename
-"\r\nrhBad filename.\r\n" 203 BadFilename
-"Upload '%s' to Sysop directory" 204 UploadToSysopDirQ
-"Upload '%s' to User directory" 205 UploadToUserDirQ
-"Upload '%s' to %s %s" 206 UploadToCurDirQ
-"\r\nrhiThat file is already there!n\r\n" 207 FileAlreadyThere
-"That file is already on disk. Add to data base" 208 FileOnDiskAddQ
-"\r\nrhiThat file is not on disk!n\r\n" 209 FileNotOnDisk
-"\r\nrhiPlease upload files with the following "\ 210 TheseFileExtsOnly
- "extensions only:n\r\nwh"
-"\r\nrhi%s has already been uploaded!n\r\n" 211 FileAlreadyOnline
-"\r\nwhHit [ENTER] after last destination "\ 212 EnterAfterLastDestUser
- "user.\r\n\r\n"
-"_yhSend file to (User name or number): n" 213 SendFileToUser
-"\r\nrhiDuplicate usern\r\n\r\n" 214 DuplicateUser
-"\7\r\nrhi%s wouldn't be able to "\ 215 UserWontBeAbleToDl
- "download it!n\r\n\r\n"
-"\7\r\nrhiYou can't send yourself files.n\r\n\r\n" 216 CantSendYourselfFiles
-"\r\n-gAdded to destination user list: "\ 217 UserAddedToDestList
- "wh%s\r\n\r\nn"
-"\r\n-gHow do you rate the content of this file "\ 218 RateThisFile
- "(hwGng, hwRng, or hwXng): n"
-"[%c] " 219 Rated
-"Is this upload part of a set (multiple files)" 220 MultipleDiskQ
-"_yhHow many files total: n" 221 HowManyDisksTotal
-"_yhWhich file number is your upload: n" 222 NumberOfFile
-" [%2.2d/%2.2d]" 223 FileOneOfTen
-" [%d/%d]" 224 FileOneOfTwo
-"\r\n-gEnter a description now.\r\n: " 225 EnterDescNow
-"No description given." 226 NoDescription
-"\r\nProtocol or ~Quit: " 227 ProtocolOrQuit
-"\r\nProtocol, ~Batch or ~Quit: " 228 ProtocolBatchOrQuit
-"\r\n\7rhiBatch upload queue is full.n\r\n" 229 BatchUlQueueIsFull
-"\r\nnmh%s nmadded to batch upload queue"\ 230 FileAddedToUlQueue
- "c - Files: h%u nc(h%unc Max)\r\n"
-"\7_whNode %2d: g%sng sent you a file.\r\n" 231 UserToUserXferNodeMsg
-"\1n\1g\1h%s\1y: \1w~B\1yatch download, "\ 232 FileInfoPrompt
- "\1w~E\1yxtended info, "\
- "\1w~V\1yiew file, "\
- "\1w~Q\1yuit or [Next]: \1w"
-"\r\n~Quit or [Next]: " 233 QuitOrNext
-"~Remove, ~Move, ~Edit, ~View, ~Quit, or [Next]: " 234 RExemptRemoveFilePrompt
-"n(%d) %s\r\n" 235 MoveToLibLstFmt
-"_\r\nyhLibrary [%d]: n" 236 MoveToLibPrompt
-"n(%d) %s\r\n" 237 MoveToDirLstFmt
-"_\r\nyhDirectory [%d]: n" 238 MoveToDirPrompt
-"%s moved to %s %s.\r\n" 239 MovedFile
-"\r\nClose file record" 240 CloseFileRecordQ
-"~Remove, ~Credits only, ~File only, ~Move, ~Edit, "\ 241 SysopRemoveFilePrompt
- "~View, ~Quit, or [Next]: "
-"~Remove, ~Edit, ~View, ~Quit, or [Next]: " 242 UserRemoveFilePrompt
-"\r\nFile not there.\r\n" 243 FileNotThere
-"\7\r\nrhiCouldn't remove '%s'.n\r\n" 244 CouldntRemoveFile
-"Delete file" 245 DeleteFileQ
-"Add %s to %s %s" 246 AddToOfflineDirQ
-"Remove credits" 247 RemoveCreditsQ
-"\r\nUser not available.\r\n" 248 UserNotFound
-"_yhCredits to remove: n" 249 CreditsToRemove
-"_wh%s was removed.\r\n"\ 250 FileRemovedUserMsg
- "ngYou lost %s credits.\r\n"
-"_\r\nyhFilename : n" 251 EditFilename
-"\r\nrhiError renaming %s to %sn\r\n" 252 CouldntRenameFile
-"%s renamed to %s\r\n" 253 FileRenamed
-"_yhDescription : n" 254 EditDescription
-"Delete extended description" 255 DeleteExtDescriptionQ
-"_yhUploader : n" 256 EditUploader
-"_yhCredit value : n" 257 EditCreditValue
-"_yhTimes downloaded : n" 258 EditTimesDownloaded
-"_yhOpen count : n" 259 EditOpenCount
-"_yhAlternate Path : n" 260 EditAltPath
-"\r\nwhYou only have %s credits.\r\n" 261 YouOnlyHaveNCredits
-"\r\nYou don't have enough credits.\r\n" 262 NotEnoughCredits
-"\r\nwhNot enough time left to transfer.\r\n" 263 NotEnoughTimeToDl
-"\r\nProtocol, ~Batch, ~Quit, or [Next]: " 264 ProtocolBatchQuitOrNext
-"\r\nBulk Upload %s %s Directory:\r\n" 265 BulkUpload
-"_yh%s %7ld:" 266 BulkUploadDescPrompt
-"\r\nrhiNo files in batch queue.n"\ 267 NoFilesInBatchQueue
- "\r\n\r\nmUse hDnm or hUnm to add files to the queue.\r\n"
-"_\r\nyhBatch: n" 268 BatchMenuPrompt
-"\r\nClear upload queue" 269 ClearUploadQueueQ
-"\r\nUpload queue cleared.\r\n" 270 UploadQueueCleared
-"\r\nClear download queue" 271 ClearDownloadQueueQ
-"\r\nDownload queue cleared.\r\n" 272 DownloadQueueCleared
-"\r\nDownload queue is empty.\r\n" 273 DownloadQueueIsEmpty
-"\r\n-ghUpload Queue:ng"\ 274 UploadQueueLstHdr
- " Description\r\n\r\nn"
-"gh%2d: ng%s %s\r\n" 275 UploadQueueLstFmt
-"\r\n-ghDownload Queue:ng"\ 276 DownloadQueueLstHdr
- " Credits Bytes Time\r\n\r\nn"
-"gh%2d: ng%s %11.11s %11.11s %s\r\n" 277 DownloadQueueLstFmt
-"\r\nwh Totals: %11.11s %11.11s %s\r\n" 278 DownloadQueueTotals
-"\r\n-gRemove which file from upload "\ 279 RemoveWhichFromUlQueue
- "queue (1-%d): n"
-"\r\n-gRemove which file from download "\ 280 RemoveWhichFromDlQueue
- "queue (1-%d): n"
-"\r\nUpload queue is empty\r\n" 281 UploadQueueIsEmpty
-"\r\nHang up after transfer" 282 HangUpAfterXferQ
-"\r\nwhStart transfer now (Ctrl-X to abort):\r\nn" 283 StartXferNow
-"_\r\nbhDisconnecting... wHbang up or wAbbort " 284 Disconnecting
-"\rwhGood-bye! (Time Used: @TUSED@)>" 285 Disconnected
-"rhi%s NOT SENT!n\r\n" 286 FileNotSent
-"Deleting files in temp directory...\r\n" 287 RemovingTempFiles
-"_yhExtract from: n" 288 ExtractFrom
-"\r\nUnextractable file type.\r\n" 289 UnextractableFile
-"\r\nFile not found.\r\n" 290 FileNotFound
-"\r\n~Extract file(s), ~View archive, or ~Quit: " 291 ExtractFilesPrompt
-"_\r\nyhTemp Directory: n" 292 TempDirPrompt
-"n\r\n%s not created yet.\r\n"\ 293 TempFileNotCreatedYet
- "\r\nUse the hAn command to create it.\r\n"
-"\r\nUploader: %s\r\nFilename: %s\r\n" 294 TempFileInfo
-"\r\n%s bytes in %u files\r\n" 295 TempDirTotal
-"\r\n%u files removed.\r\n" 296 NFilesRemoved
-"rhiAll other nodes should NOT be in use "\ 297 ResortWarning
- "during resort/compression.n\r\n"
-"-c%-15.15s yh%-25.25s " 298 ResortLineFmt
-"bEmptyn\r\n" 299 ResortEmptyDir
-"wSorting..." 300 Sorting
-"\b\b\b\b\b\b\b\b\b\bbSorted n\r\n" 301 Sorted
-"\b\b\b\b\b\b\b\b\b\bbCompressed %u slots "\ 302 Compressed
- "(%s bytes)n\r\n"
-"wh\r\n%s is already in the queue.\r\n" 303 FileAlreadyInQueue
-"wh\r\nFile is not online.\r\n" 304 FileIsNotOnline
-"n\r\nmh%s nmadded to batch download queue -\r\n"\ 305 FileAddedToBatDlQueue
- "cFiles: h%unc (h%unc Max) Credits: h%snc"\
- " Bytes: h%snc Time: h%s\r\n"
-"\r\nnrhThe sysop has not configured w%sr as a"\ 306 NonviewableFile
- " viewable file type.\r\n"
-"rhi%s NOT RECEIVED!n\r\n" 307 FileNotReceived
-"\r\n\7rhi%s HAD ERRORS - NOT UPLOADED!n\r\n" 308 FileHadErrors
-"rhi%s IS ZERO LENGTH - NOT UPLOADED!n\r\n" 309 FileZeroLength
-"_wh%s (%s bytes) received.\r\n" 310 FileNBytesReceived
-"_wh%s (%s bytes) sent.\r\n" 311 FileNBytesSent
-"_hw%s was %sdownloaded by %s\r\n"\ 312 DownloadUserMsg
- "ngYou were awarded %s credits.\r\n"
-"partially " 313 Partially
-"\r\nngLibrary :h (%u) %s" 314 FiLib
-"\r\nngDirectory :h (%u) %s" 315 FiDir
-"\r\nngFilename :h %s" 316 FiFilename
-"\r\nngFile size :h %s" 317 FiFileSize
-"\r\nngCredit value :h %s" 318 FiCredits
-"\r\nngDescription :h %s" 319 FiDescription
-"\r\nngUploaded by :h %s" 320 FiUploadedBy
-"\r\nngFile date :h %s" 321 FiFileDate
-"\r\nngUploaded on :h %s" 322 FiDateUled
-"\r\nngLast downloaded :h %s" 323 FiDateDled
-"\r\nngTimes downloaded :h %u" 324 FiTimesDled
-"\r\nngTime to download :h %s" 325 FiTransferTime
-"\r\nngAlternate Path :h %s" 326 FiAlternatePath
-"\r\nrhiInvalid Alternate Path Number: %un" 327 InvalidAlternatePathN
-"_\r\nwhFile is currently open by %d user%s.\r\n" 328 FileIsOpen
-"\7\7\r\nhrHbagpypcy mBwirrgtbhcdmayy "\ 329 HappyBirthday
- "wtro gybocu\r\n\7\7mHyawprpgy "\
- "bBcimrytwhrdgaby ctmo yyworug.b.c.\r\n\r\n"
-"whYou haven't changed your password in more "\ 330 TimeToChangePw
- "than %d days.\r\n\r\n"
-"\r\nEnter a different password" 331 NewPasswordQ
-"_\r\nyhNew password (4-8 chars): " 332 NewPassword
-"_yhVerify (enter again): n" 333 VerifyPassword
-"\7rhWrong!" 334 Wrong
-"whPassword changed.\r\n" 335 PasswordChanged
-"Sorry, you have no more logons allowed today.\r\n" 336 NoMoreLogons
-"You can only logon once a day.\r\n" 337 R_Logons
-"_bh[c�b] yEnter your full name or alias: w" 338 EnterYourAlias
-"_bh[c�b] yEnter your full real name: w" 339 EnterYourRealName
-"_bh[c�b] yEnter your company name: w" 340 EnterYourCompany
-"_bh[c�b] yEnter your chat handle: w" 341 EnterYourHandle
-"_bh[c�b] yEnter your sex (M/F): w" 342 EnterYourSex
-"_bh[c�b] yEnter your street address: w" 343 EnterYourAddress
-"_bh[c�b] yEnter your voice phone number: w" 344 EnterYourPhoneNumber
-"_bh[c�b] yEnter your birthday (%s): w" 345 EnterYourBirthday
-"_bh[c�b] yEnter your city, state: w" 346 EnterYourCityState
-"_bh[c�b] yEnter your zip (or postal) code: w" 347 EnterYourZipCode
-"_yhEnter a description of your computer: w" 348 EnterYourComputer
-"Are you calling from North America" 349 CallingFromNAmericaQ
-"Is the above information correct" 350 UserInfoCorrectQ
-"bUser #c%-4d b: c%s\r\n" 351 LiUserNumName
-"bLogons Today : c%-5u b(Max c%ub)\r\n" 352 LiLogonsToday
-"bTime on Today : c%-5u b(Max c%lub)\r\n" 353 LiTimeonToday
-"bMail Waiting : c%u\r\n" 354 LiMailWaiting
-"bSysop is : c" 355 LiSysopIs
-"Available" 356 LiSysopAvailable
-"Not Available" 357 LiSysopNotAvailable
-"rhiYou can't possibly be in two places at the "\ 358 UserOnTwoNodes
- "same time.n\r\n"
-"\7rhi%d critical errors have occurred. "\ 359 CriticalErrors
- "Type ;ERR at main menu.n\r\n"
-"_whYou have %d User to User Transfer%s "\ 360 UserXferForYou
- "waiting for you\r\n"
-"_whYou have sent %d unreceived User to "\ 361 UnreceivedUserXfer
- "User Transfer%s\r\n"
-"Read your mail now" 362 ReadYourMailNowQ
-"Sorry, the system is closed to new users.\r\n" 363 NoNewUsers
-"New User Password: " 364 NewUserPasswordPrompt
-"Use automatic terminal type detection" 365 AutoTerminalQ
-"Does your terminal support ANSI" 366 AnsiTerminalQ
-"Do you have a color terminal" 367 ColorTerminalQ
-"ngAre you using hRIPtermng or a hRIPscrip "\ 368 RipTerminalQ
- "ngcompatible terminal program?\r\n"\
- "hwIMPORTANT:ng If you are not absolutely "\
- "sure, hit hwiNnbh"
-"Does your terminal support IBM extended ASCII" 369 ExAsciiTerminalQ
-"nYou can't use that name (duplicate or invalid).\r\n" 370 YouCantUseThatName
-"l-gYour password is h%s\r\n" 371 YourPasswordIs
-"\r\n_whWrite down your password and keep it "\ 372 NewUserPasswordVerify
- "confidential.\r\n\r\nyhEnter this password "\
- "for verification: w"
-"\7\r\nrhIncorrect, try again.\r\n" 373 IncorrectPassword
-"_\r\nyhMagic word: w" 374 MagicWordPrompt
-"\r\nSorry, that was not the magic word.\r\n" 375 FailedMagicWord
-"Sorry, the system is full." 376 SystemFull
-"*NEW USER* %-30.30s Age/Sex/BD : %-2d %c %s\r\n"\ 377 NewUserFeedbackHdr
-"Real name : %-30.30s Phone number : %s\r\n"\
-"Computer : %-30.30s Modem type : %s\r\n\r\n"
-"\7\r\nrhiYou must leave %s mail in order to be "\ 378 NoFeedbackWarning
- "validated!n\r\n"
-"\r\n\r\nNo external programs available.\r\n" 379 NoXtrnPrograms
-"lnch%s ncExternal Programs:\r\n\r\n" 380 XtrnProgLstHdr
-"ncNum h�nc Name " 381 XtrnProgLstTitle
-"h������������������������������� " 382 XtrnProgLstUnderline
-"hc%3u � nc%-25.25sh " 383 XtrnProgLstFmt
-"\r\n-cWhich or h~Qncuit: h" 384 WhichXtrnProg
-"\r\n%s is currently running %s on node %d.\r\n"\ 385 UserRunningXtrn
- "\r\nTry again later.\r\n\r\n"
-"Remove node lock" 386 RemoveNodeLockQ
-"The minimum modem speed for this node is %ubps." 387 MinimumModemSpeed
-"You do not have sufficient access for this node." 388 NoNodeAccess
-"\1n\1r\1h\r\nSorry, this node is temporarily closed "\ 389 NodeLocked
- "for maintenance.\1n\r\n"
-"\r\nUnknown user\r\n" 390 UnknownUser
-"\7Invalid Logon\r\n" 391 InvalidLogon
-"%2.2d/%2.2d/%2.2d T:%5lu L:%3lu P:%3lu "\ 392 SlogFmt
- "E:%3lu F:%3lu U:%6luk %3lu D:%6luk %3lu\r\n"
-"Locally" 393 Locally
-"\r\nSort alphabetically" 394 SortAlphaQ
-"\r\nmhChecking Slots..." 395 CheckingSlots
-"nh%-32.32snm%-30.30sh%-8.8s nm%-8.8s\r\n" 396 UserListFmt
-"\r\1h\1w%d\1b total users. \r\n" 397 NTotalUsers
-"\1w%d \1busers with access to current sub-board.\r\n" 398 NUsersOnCurSub
-"\1w%d \1busers with access to current directory.\r\n" 399 NUsersOnCurDir
-"\r\n-cCurrent New-Scan date/time: h" 400 NScanDate
-"yhYear: w" 401 NScanYear
-" yMonth: w" 402 NScanMonth
-" yDay: w" 403 NScanDay
-" yHour: w" 404 NScanHour
-" yMinute: w" 405 NScanMinute
-" pm" 406 NScanPmQ
-" am" 407 NScanAmQ
-"rhiNot long enough!n" 408 PasswordTooShort
-"rhiThat's your current password!n" 409 PasswordNotChanged
-"rhiYou call that a password?n" 410 PasswordInvalid
-"rhiThat password is too obvious!n" 411 PasswordObvious
-"\r\nnA) IBM (or compatible)\r\nB) Apple\r\nC) "\ 412 ComuterTypeMenu
- "Macintosh\r\nD) Amiga\r\nE) Other\r\n\r\n"
-"_yhPrimary Computer: n" 413 ComputerTypePrompt
-"Apple" 414 ComputerTypeB
-"Macintosh" 415 ComputerTypeC
-"Amiga" 416 ComputerTypeD
-"Other" 417 ComputerTypeE
-"\7\r\nNo user data defined.\r\n" 418 NoUserData
-"rh��� iDELETEDnrh ���\r\n" 419 Deleted
-"bh��� iINACTIVEnbh ���\r\n" 420 Inactive
-"ncAlias : h%-30.30s ncPassword : "\ 421 UeditAliasPassword
- "h%-8.8s %s\r\n"
-"ncReal Name : h%-30.30s ncPhone number : "\ 422 UeditRealNamePhone
- "h%s\r\n"
-"ncAddress : h%-30.30s ncAge/Sex/BD : "\ 423 UeditAddressBirthday
- "h%2d %c %s\r\n"
-"ncLocation : h%-30.30s ncZip Code : "\ 424 UeditLocationZipcode
- "h%s\r\n"
-"ncNote : h%-30.30s ncHandle : "\ 425 UeditNoteHandle
- "h%s\r\n"
-"ncComputer : h%-30.30s ncModem type : "\ 426 UeditComputerModem
- "h%s\r\n"
-"ncComment %c : h%s\r\n" 427 UeditComment
-"ncFirst on : h%-8.8s ncExpire : h%-8.8s "\ 428 UserDates
- "ncLast on : h%-8.8s %02u:%02u\r\n"
-"ncTime on : h%-5u ncToday : "\ 429 UserTimes
- "h%-5u%-5uncLast call : "\
- "h%-5u%-5uncExtra : h%u\r\n"
-"ncLogons : h%-5u ncToday : "\ 430 UserLogons
- "h%-5u%-5uncPosts : "\
- "h%-5u%-5uncToday : h%u\r\n"
-"ncE-mails : h%-5u ncTo sysop : "\ 431 UserEmails
- "h%-5u ncWaiting : "\
- "h%-5u ncToday : h%u\r\n"
-"ncNetMail : h%s\r\n" 432 UserNetMail
-"ncUploads : h%13.13s ncbytes in "\ 433 UserUploads
- "h%u ncfiles\r\n"
-"ncDownloads : h%13.13s ncbytes in "\ 434 UserDownloads
- "h%u ncfiles %s\r\n"
-"- Leech: rhi%un" 435 UserLeech
-"ncCredits : h%13.13s ncfree: h%s "\ 436 UserCredits
- "nc(h%s ncper day)\r\n"
-"ncMinutes : h%13.13s\r\n" 437 UserMinutes
-"\r\nncSec Level : h%d\r\n" 438 UeditSecLevel
-"ncFlags #1 : h%-26s ncFlags #3 : h%s\r\n"\ 439 UeditFlags
- "ncFlags #2 : h%-26s ncFlags #4 : h%s\r\n"
-"ncExemption : h%-26s ncRestricts : h%s\r\n" 440 UeditExempts
-"\r\n_yhUser edit (w?y=Menu) "\ 441 UeditPrompt
- "(w%uy of w%uy): n"
-"Restore User" 442 UeditRestoreQ
-"Activate User" 443 UeditActivateQ
-"Delete User" 444 UeditDeleteQ
-"User has mail waiting. Read/Delete it" 445 UeditReadUserMailWQ
-"User has sent mail. Read/Delete it" 446 UeditReadUserMailSQ
-"Deactivate User" 447 UeditDeactivateUserQ
-"Change Exemptions" 448 ChangeExemptionQ
-" n%s\r\nToggle: " 449 FlagEditing
-"_yhGo to Name or Number: n" 450 GoToUser
-"_yhLast on: w" 451 UeditLastOn
-"_yhFirst on: w" 452 UeditFirstOn
-"_yhExpire: w" 453 UeditExpire
-"_yhPassword Last Modified: w" 454 UeditPwModDate
-"_yhLevel: w" 455 UeditML
-"_yhNote: w" 456 UeditNote
-"_yhComment: w" 457 UeditComment
-"_yhUpload Bytes: w" 458 UeditUlBytes
-"_yhTotal Uploads: w" 459 UeditUploads
-"_yhDownload Bytes: w" 460 UeditDlBytes
-"_yhTotal Downloads: w" 461 UeditDownloads
-"_yhLeech Downloads: w" 462 UeditLeech
-"%d: L: %2d F: %s EX: %s\r\n"\ 463 QuickValidateFmt
- " RE: %s\r\n"
-"\r\n_yhValidate: n" 464 QuickValidatePrompt
-"_yhPassword: w" 465 UeditPassword
-"_yhCredits: w" 466 UeditCredits
-"_yhMinutes: w" 467 UeditMinutes
-"Copy user" 468 UeditCopyUserQ
-"_yhTo slot #: n" 469 UeditCopyUserToSlot
-"Change Restrictions" 470 ChangeRestrictsQ
-"_yhAdjust Credits (- to subtract, M or K = "\ 471 ModifyCredits
- "Mega/Kilobytes, or $): n"
-"_yhAdjust Minutes (- to subtract, H = Hours): n" 472 ModifyMinutes
-"\r\nDelete Questionaire" 473 DeleteQuestionaireQ
-"hbDefault settings for w%s #%d\r\n\r\n" 474 UserDefaultsHdr
-"nb[hwTnb] hTerminal Mode nb: c%s\r\n" 475 UserDefaultsTerminal
-"nb[hwEnb] hExternal Editor nb: c%s\r\n" 476 UserDefaultsXeditor
-"nb[hwLnb] hScreen Length nb: c%s\r\n" 477 UserDefaultsRows
-"nb[hwXnb] hExpert Menu Mode nb: c%s\r\n" 478 UserDefaultsMenuMode
-"nb[hwPnb] hScreen Pause nb: c%s\r\n" 479 UserDefaultsPause
-"nb[hwHnb] hHot Keys nb: c%s\r\n" 480 UserDefaultsHotKey
-"nb[hwSnb] hSpinning Cursor nb: c%s\r\n" 481 UserDefaultsCursor
-"nb[hwCnb] hClear Screen Between Messages nb: c%s\r\n" 482 UserDefaultsCLS
-"nb[hwNnb] hAsk For New Message/File Scan nb: c%s\r\n" 483 UserDefaultsAskNScan
-"nb[hwYnb] hAsk For Your Un-read Msg Scan nb: c%s\r\n" 484 UserDefaultsAskSScan
-"nb[hwFnb] hAutomatic New File Scan nb: c%s\r\n" 485 UserDefaultsANFS
-"nb[hwRnb] hRemember Current Sub-board nb: c%s\r\n" 486 UserDefaultsRemember
-"nb[hwBnb] hBatch Download File Flagging nb: c%s\r\n" 487 UserDefaultsBatFlag
-"nb[hwMnb] hForward E-mail to NetMail nb: c%s\r\n" 488 UserDefaultsNetMail
-"nb[hwKnb] hCommand Shell nb: c%s\r\n" 489 UserDefaultsCmdShell
-"nb[hwDnb] hDefault to Quiet Mode nb: c%s\r\n" 490 UserDefaultsQuiet
-"nb[hwWnb] hChange Password or Signature\r\n" 491 UserDefaultsPassword
-"nb[hwAnb] hTemporary/QWK Archive Type nb: c%s\r\n" 492 UserDefualtsArcType
-"nb[hwZnb] hDefault Download Protocol nb: c%s "\ 493 UserDefaultsProtocol
- "b%s\r\n"
-"\r\nnhbWhich or [wQb]uit: c" 494 UserDefaultsWhich
-"On" 495 On
-"Off" 496 Off
-"\r\n_bh[c�b] yHow many rows on your monitor "\ 497 HowManyRows
- "[\1wAuto Detect\1y]: "
-"\r\n_yhCurrent Password: w" 498 CurrentPassword
-"Forward personal e-mail to network mail address" 499 ForwardMailQ
-"_bh[c�b] yNetwork mail address "\ 500 EnterNetMailAddress
- "(Example: user@domain)\r\n: "
-"nlgSelect h%sng:\r\n\r\n" 501 SelectItemHdr
-"gh%3d: ng%s\r\n" 502 SelectItemFmt
-"\r\nWhich, ~Quit or [%u]: " 503 SelectItemWhich
-"_wh\r\n\r\n%s is here...\r\n\r\nn" 504 SysopIsHere
-"\r\n_whEnd of chat.\r\n\r\nn" 505 EndOfChat
-"\r\n_yhChat: n" 506 ChatPrompt
-"????" 507 AnonUserChatHandle
-"\r\nn-gMultinode Chat - Type h/?ng for "\ 508 WelcomeToMultiChat
- "menu.\r\n"
-"\r\nwhWelcome to Channel %d (c%sw)\r\n\r\nn" 509 WelcomeToChannelN
-"_wh%3d g%sng in multinode chat "\ 510 NodeInMultiChatLocally
- "channel %d locally.\r\n"
-"\r\nnmhYou're on the Air!\r\n\r\nn" 511 YoureOnTheAir
-"_whNode %2d: g%sng joined multinode chat "\ 512 NodeJoinedMultiChat
- "channel %u.\r\nn"
-"_whNode %2d: g%sng left multinode chat "\ 513 NodeLeftMultiChat
- "channel %u.\r\n"
-"_yhCommand: n" 514 MultiChatCommandPrompt
-"%s has password protected "\ 515 PasswordProtected
- "this channel\r\nPassword: "
-"\r\nCorrect.\r\n" 516 CorrectPassword
-"rh\r\nWrong password.\r\n" 517 WrongPassword
-"Password protect this channel" 518 PasswordProtectChanQ
-"\r\n_yhPassword: " 519 PasswordPrompt
-"_gh%-8.8s w%2d%c ng%s" 520 ChatLineFmt
-"\r\nSysop page is now %s\r\n" 521 SysopPageIsNow
-"\r\n%s is not available.\r\n" 522 SysopIsNotAvailable
-"Chat with %s instead" 523 ChatWithGuruInsteadQ
-"\r\nbhPrivate: g~Tngelegram, "\ 524 PrivateMsgPrompt
- "h~Mngessage, h~Cnghat, or h~Qnguit: ch"
-"\r\nhyNode, User name, w#yNumber, "\ 525 NodeToPrivateChat
- "w'yHandle, or w^Uyser list: wh"
-"\r\n_whNode %d is in private chat with another "\ 526 NodeNAlreadyInPChat
- "node.\r\n"
-"\r\n_whNode %d is not in use.\r\n" 527 NodeNIsNotInUse
-"\r\nThere's no need to page yourself.\r\n" 528 NoNeedToPageSelf
-"\r\nrhiDon't bug %s.n\r\n" 529 CantPageNode
-"\7_whNode %2d: g%sng is paging you to chat.\r\n" 530 NodePageMsg
-"\7_whNode %2d: g%sng is paging all nodes "\ 531 AllNodePageMsg
- "to chat.\r\n"
-"\7_whNode %2d: g%sng is paging you for private"\ 532 NodePageMsg
- " chat.\r\n"
-"\r\nYou can't send messages.\r\n" 533 R_SendMessages
-"\r\nhyNode, Name, w#yNumber, "\ 534 NodeToSendMsgTo
- "w'yHandle, w^Uyser list, or wAlly: wh"
-"\r\nThere's no need to send a message to "\ 535 NoNeedToSendMsgToSelf
- "yourself.\r\n"
-"_yh\r\nMessage: " 536 NodeMsgPrompt
-"\7_whNode %2d: g%sng sent you a message:\r\n"\ 537 NodeMsgFmt
- "wh4%sn\r\n"
-"\7_whNode %2d: g%sng sent all nodes a "\ 538 AllNodeMsgFmt
- "message:\r\nwh4%sn\r\n"
-"\r\nPaging %s..." 539 PagingGuru
-"n\r\ncWaiting for hNode %d ncto join private "\ 540 WaitingForNodeInPChat
- "chat. Hit hiCtrl-Cnc to abort.n\r\n\r\n"
-"_whNode %2d: g%sng joined private chat.n\r\n" 541 NodeJoinedPrivateChat
-"\r\n_whNode %2d: g%sng left private chat.n\r\n" 542 NodeLeftPrivateChat
-"No one has logged on today.\r\n" 543 NoOneHasLoggedOnToday
-"ghLast few callers:\r\nng" 544 LastFewCallers (*)
-"\r\nnhm%-2d nm%-6lu wh%-25.25s m%-25.25s"\ 545 LastFewCallersFmt
- "nm%02u:%02u h%-8.8s nm%-3d"
-"\r\nghCallers Today:ng" 546 CallersToday
-"_bhDo you mean %s #%u "\ 547 DoYouMeanThisUserQ
- "(cYbes, cNbo, or cQbuit) ? n"
-"UNKNOWN USER" 548 UNKNOWN_USER
-"\r\nTime's up.\r\n" 549 TimesUp
-"_whNode %2d: g%sng logged off\r\nn" 550 NodeLoggedOff
-"_whNode %2d: g%sng logged on %s\r\nn" 551 NodeLoggedOnAtNbps
-"n\r\n\r\nLogon : %s" 552 TiLogon
-"\r\nNow : %s" 553 TiNow
-"\r\nTime on : %s" 554 TiTimeon
-"\r\nTime left : %s\r\n\r\n" 555 TiTimeLeft
-"\r\n\r\nnCtrl-Key Commands (From Anywhere)\r\n"\ 556 ControlKeyMenu
- "\r\nCtrl-S Pause Current Process"\
- "\r\nCtrl-Q Continue Current Process"\
- "\r\nCtrl-C Abort Current Process"\
- "\r\nCtrl-O Toggle Pause Temporarily"\
- "\r\nCtrl-Z Toggle Raw Input Mode"\
- "\r\nCtrl-U List Users Online"\
- "\r\nCtrl-P Send Private Message to Another Node"\
- "\r\nCtrl-T Time Information\r\n\r\n"
-"\r\nnYou've taken too long to log on.\r\n" 557 TakenTooLongToLogon
-"\r\nnYou've been inactive too long.\r\n" 558 CallBackWhenYoureThere
-"@EXEC:yesnobar@" 559 YesNoQuestion
-"Yes" 560 Yes
-"No" 561 No
-"@EXEC:noyesbar@" 562 NoYesQuestion
-"_rh[Hit a key] " 563 Pause
-"_bh[WAIT]" 564 Wait
-"-g\r\nSystem Statistics Log:\r\n\r\nn" 565 SysStatsLogHdr
-"-g\r\nNode #%d Statistics Log:\r\n\r\nn" 566 NodeStatsLogHdr
-"_rhYour time has been reduced due to an "\ 567 ReducedTime
- "upcoming event on \1w%s\r\n\r\n"
-"n\r\nTimed Event - Node: %d Time: %02d:%02d "\ 568 EventInfo
- "Last Ran: %s\r\n"
-"_rhi\r\n\r\nCarrier will be dropped in %d "\ 569 UploadBeforeEvent
- "minutes due to upcoming event.n"
-"_yh\r\nQWK: n" 570 QWKPrompt
-"\r\nCtrl-A codes: ~Expand to ANSI, ~Leave in, or "\ 571 QWKCtrlACodes
- "[Strip]: "
-"\r\n_hwPacking Sub-board... " 572 QWKPackingSubboard
-"\rbPacked:w%4lu bofw %lu>" 573 QWKPackedSubboard
-"\r\n_hwPacking E-mail... " 574 QWKPackingEmail
-"\rbPacked w%ub E-mail messages.>" 575 QWKPackedEmail
-"\r\n_hwUnpacking..." 576 QWKUnpacking
-"\r_hbUnpacked.>" 577 QWKUnpacked
-"_whNo new messages.\r\n" 578 QWKNoNewMessages
-"\r\nrhiPacket Compression Failed!n\r\n" 579 QWKCompressionFailed
-"\r\nrhiCan't Extract!n\r\n" 580 QWKExtractionFailed
-"\r\nrhiReply not received!n\r\n" 581 QWKReplyNotReceived
-"_whInvalid Conference %d\r\n" 582 QWKInvalidConferenceN
-"\r\n_hwCreating %s..." 583 CreatingFileList
-"\rbCreated %s>" 584 CreatedFileList
-"\rbNo Files.>" 585 NoNewFiles
-"\r\nMessage pointers reset to initial values.\r\n" 586 MsgPtrsInitialized
-"-\r\ngThe current conversion rate is h%u "\ 587 ConversionRate
- "ngminutes for h100kng credits.\r\n\r\nn"
-"\r\n_bhHow many w100k bcredit blocks to "\ 588 CreditsToMin
- "convert to minutes (w%u Maxb): n"
-"-rhiYou have too many minutes.n\r\n" 589 YouHaveTooManyMinutes
-"\r\nYou are connected to a billing node for %s BBS."\ 590 BillingNodeMsg
- "\r\nYour phone number will be charged $%d if "\
- "you do not hang up within 30 seconds.\r\n"\
- "\r\nPlease wait, or hit any key to hang up now..."
-"Convert 100k credits to %u minutes" 591 Convert100ktoNminQ
-"\r\n%lu credits have been added to your account.\r\n" 592 CreditedAccount
-"\r\nANSI Capture is now %s\r\n" 593 ANSICaptureIsNow
-"nm\r\nRetrieving h%snm..." 594 RetrievingFile
-"n\r\nAlternate upload path now: %s\r\n" 595 AltULPathNow
-"\r\nPrivate" 596 PrivatePostQ
-"\r\n_yhPost to: " 597 PostTo
-"\r\nPrivate posts require a destination user "\ 598 NoToUser
- "name.\r\n"
-"\r\n_whUsing your real name...\r\n" 599 UsingRealName
-"\r\n_whPosting Privately...\r\n" 600 PostingPrivately
-"\r\n_whPosting anonymously...\r\n" 601 PostingAnonymously
-"\r\nCan't delete posts on this sub-board.\r\n" 602 CantDeletePosts
-"\r\nhgSub-board Information:\r\n\r\nn" 603 SubInfoHdr
-"Long Name : %s\r\n" 604 SubInfoLongName
-"Short Name : %s\r\n" 605 SubInfoShortName
-"QWK Name : %s\r\n" 606 SubInfoQWKName
-"Max Msgs : %u\r\n" 607 SubInfoMaxMsgs
-"\r\nQWK packet network using the tagline:\r\n%sn\r\n" 608 SubInfoTagline
-"\r\nnFidoNet EchoMail Conference:\r\n%s (%s)\r\n" 609 SubInfoFidoNet
-"View sub-board information file" 610 SubInfoViewFileQ
-"\r\nghDirectory Information:\r\n\r\nn" 611 DirInfoHdr
-"Long Name : %s\r\n" 612 DirInfoLongName
-"Short Name : %s\r\n" 613 DirInfoShortName
-"Allowed File Extensions : %s\r\n" 614 DirInfoAllowedExts
-"Maximum Files : %u\r\n" 615 DirInfoMaxFiles
-"View directory information file" 616 DirInfoViewFileQ
-"n\r\nNo NetMail allowed.\r\n" 617 NoNetMailAllowed
-"\r\nIt will cost you %lu credits to send NetMail. "\ 618 NetMailCostContinueQ
- "Continue"
-"nm\r\nSending NetMail To: h%snm (h%snm)\r\n"\ 619 NetMailing
- " From: h%snm (h%snm)\r\n"
-"Remove this sub-board from your new-scan list" 620 RemoveFromNewScanQ
-"\r\n~Sub-board, ~Group, or ~All: " 621 SubGroupOrAll
-"\r\n~Directory, ~Library, or ~All: " 622 DirLibOrAll
-"\r\n_yhEnter path: " 623 EnterPath
-"\r\nSearch and display extended information" 624 SearchExtendedQ
-"\r\nDisplay Subjects Only" 625 DisplaySubjectsOnlyQ
-"\r\nEcho is now %s \r\n" 626 EchoIsNow
-"\r\nnyhPrivate Chat - bCtrl-C to Quitn\r\n\r\n" 627 WelcomeToPrivateChat
-"\r\nngUploading h%s.REP\r\n" 628 UploadingREP
-"ngReceived nh%sng from h%sng via QWK.\r\n" 629 ReceivedFileViaQWK
-"rhi\rQWK packet message limit reached.nh\r\n" 630 QWKmsgLimitReached
-"\r\nnPrivate posts not allowed on this sub.\r\n" 631 PrivatePostNotAllowed
-"_whLoading message pointers..." 632 LoadingMsgPtrs
-"\r \r" 633 LoadedMsgPtrs
-"\r\nQuote original message" 634 QuoteMessageQ
-"\r\nbhLine numbers (#,#), Range (#-#), w~Lbist "\ 635 QuoteLinesPrompt
- "or [%s]: w"
-"\r\n_chMultinode Chat Channels:\r\n\r\n" 636 ChatChanLstHdr
-"ncNum Name Cost" 637 ChatChanLstTitle
-"h��� ������������������������� ����" 638 ChatChanLstUnderline
-"hc%3lu nc%-25.25sh%8lu" 639 ChatChanLstFmt
-"\r\nYou can't access that channel.\r\n" 640 CantAccessThatChannel
-"\r\nYou can't download from this directory.\r\n" 641 CantDownloadFromDir
-"_whSearching for duplicates..." 642 SearchingForDupes
-"\rn \r" 643 SearchedForDupes
-"nhYour account will expire in ri%dnh days.\r\n" 644 AcctWillExpireInNDays
-"nrhiYour account has expired!n\r\n" 645 AcctHasExpired
-"\r\nDownload files in batch queue now" 646 DownloadBatchQ
-"_rh\r\nWaiting for Slow Media Device #%u..." 647 WaitingForDeviceN
-"\7nyh%snc sent you E-mail.\r\n" 648 UserSentYouMail
-"\7nyh%snc sent you a file.\r\n" 649 UserSentYouFile
-"nyh%snc read your E-mail on %s.\r\n" 650 UserReadYourMail
-"\7_whNode %2d: g%sng read your E-mail.\r\n" 651 UserReadYourMailNodeMsg
-"\r\nWhich, ~Quit, or [%u]: " 652 JoinWhichGrp
-"\r\nWhich, ~Quit, or [%u]: " 653 JoinWhichSub
-"\r\nWhich, ~Quit, or [%u]: " 654 JoinWhichLib
-"\r\nWhich, ~Quit, or [%u]: " 655 JoinWhichDir
-"l-gDirectories of h%s:\r\n\r\nh" 656 CfgDirLstHdr
-" ng(h%dng) %sh\r\n" 657 CfgDirLstFmt
-"l_ghFile Libraries:\r\n\r\n" 658 CfgLibLstHdr
-"ng(h%dng) %sh\r\n" 659 CfgLibLstFmt
-"_chListing nc(h%unc) %s "\ 660 BatchFlagPrompt
- "(h%unc) %s (h?nc=Menu) (h%lunc Filesnc): n"
-"nl4 hy[wBy]atch Download "\ 661
- "[wVy]iew Content [wEy]xtended "\
- "Info [wPy]revious Files [wQy]uit n\r\n"
-"\r\nDownload attached file: w%sb (%s bytes)" 662 DownloadAttachedFileQ
-"\r\n\r\nnTime left : %13u\r\n" 663 FreeMinLeft
-"bh\r\nTime left to deposit in minute bank "\ 664 FreeMinToDeposit
- "(w%u Maxb): n"
-"\r\nE-mail file attachments not allowed.\r\n" 665 EmailFileNotAllowed
-"\r\nnSorry, you have insufficient access to run "\ 666 CantRunThatProgram
- "that program.\r\n\r\np"
-"nh\r\n\7\r\nYou only have ri%unh minute%s "\ 667 OnlyXminutesLeft
- "left.\r\n\r\n"
-"\rnrhi\7\7@NAME@! nhAre you really there? n>" 668 AreYouThere
-"Level %u" 669 NoAccessLevel
-"Age %u" 670 NoAccessAge
-"BPS %u" 671 NoAccessBPS
-"Credits %lu" 672 NoAccessCredit
-"Node %u" 673 NoAccessNode
-"User %u" 674 NoAccessUser
-"Days till expire %u" 675 NoAccessExpire
-"Time Left %u" 676 NoAccessTimeLeft
-"Time Used %u" 677 NoAccessTimeUsed
-"Time of day %02d:%02d" 678 NoAccessTime
-"Post/Call Ratio %u" 679 NoAccessPCR
-"Upload/Download Ratio %u" 680 NoAccessUDR
-"Upload/Download File Ratio %u" 681 NoAccessUDFR
-"Flag 1 %c" 682 NoAccessFlag1
-"Flag 2 %c" 683 NoAccessFlag2
-"Flag 3 %c" 684 NoAccessFlag3
-"Flag 4 %c" 685 NoAccessFlag4
-"Sex %c" 686 NoAccessSex
-"Exemption %c" 687 NoAccessExempt
-"Restriction %c" 688 NoAccessRest
-"Day of week %s" 689 NoAccessDay
-"Group %u" 690 NoAccessGroup
-"Sub-board %u" 691 NoAccessSub
-"Library %u" 692 NoAccessLib
-"Directory %u" 693 NoAccessDir
-"nhNode Status\r\nc"\ 694 NodeLstHdr
- "���� ���������������������������������������"\
- "���������������������������������\r\n"
-"" 695 NodeActionMain
-"" 696 NodeActionReadMsgs
-"" 697 NodeActionReadMail
-"" 698 NodeActionSendMail
-"" 699 NodeActionReadTxt
-"" 700 NodeActionReadSentMail
-"" 701 NodeActionPostMsg
-"" 702 NodeActionAutoMsg
-"" 703 NodeActionXtrn
-"" 704 NodeActionDefaults
-"" 705 NodeActionXfer
-"" 706 NodeActionDLing
-"" 707 NodeActionULing
-"" 708 NodeActionBiXfer
-"" 709 NodeActionListFiles
-"" 710 NodeActionLoggingOn
-"" 711 NodeActionLocalChat
-"h%sng (%u) %u %c in multinode chat"\ 712 NodeActionMultiChat
- "%.0s%.0s%.0s channel %u"
-"" 713 NodeActionGuruChat
-"" 714 NodeActionChatSec
-"" 715 NodeActionSysopAct
-"" 716 NodeActionQWK
-"" 717 NodeActionPrivateChat
-"" 718 NodeActionPaging
-"" 719 NodeActionRetrieving
-"YNQ*" 720 YNQP (Yes/No/Quit/Password chars)
diff --git a/ctrl/xtrn.cnf b/ctrl/xtrn.cnf
deleted file mode 100644
index 0f12dd03c4ae20fd8619a92be43da5c951c3364c..0000000000000000000000000000000000000000
Binary files a/ctrl/xtrn.cnf and /dev/null differ
diff --git a/docs/_borders/bottom.htm b/docs/_borders/bottom.htm
deleted file mode 100644
index 1304233ba23d14934db5585ae16cc46d1a7b7faa..0000000000000000000000000000000000000000
--- a/docs/_borders/bottom.htm
+++ /dev/null
@@ -1,44 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<title>Shared Bottom Border</title>
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<meta name="Microsoft Border" content="none">
-</head>
-
-<body>
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-</body>
-
-</html>
diff --git a/docs/_borders/top.htm b/docs/_borders/top.htm
deleted file mode 100644
index 781196e76595bb008cea686a6cff76bf3d6ef5d8..0000000000000000000000000000000000000000
--- a/docs/_borders/top.htm
+++ /dev/null
@@ -1,17 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=IBM437">
-<title>Shared Top Border</title>
-<meta name="Microsoft Border" content="none">
-</head>
-
-<body>
-
-<a href="http://www.synchro.net"><img border="0" src="../images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-</body>
-
-</html>
diff --git a/docs/adding_nodes.html b/docs/adding_nodes.html
deleted file mode 100644
index 6f94b865c67fbe6b10068a4407c922e5016a40c2..0000000000000000000000000000000000000000
--- a/docs/adding_nodes.html
+++ /dev/null
@@ -1,419 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=IBM437">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Adding Nodes</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><b><a name="top"></a></b><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="AddingNodes">[3.0] - Adding Nodes</a></h2>
-<pre>Run SCFG. Select Nodes from the main menu. Hit INS (insert key) to create
-additional nodes. Each added node will have the configuration options copied
-from the last node. Make any configuration changes (including modem/com port
-configuration) necessary.
-
-<font color="#FF0000"><i><b>v2 Only:</b></i></font> Copy *.BAT from your NODE1 directory into each added node directory.</pre>
-<pre><font color="#FF0000"><i><b>v3 Only:</b></i></font> If you'd like all nodes to be available for telnet logins, set the
- <b>Last Node</b> in the telnet configuration dialog to your highest
- configured node number.</pre>
-<pre> <img border="0" src="images/sbbsctrl_telnet_cfg_gen.png" width="358" height="318"></pre>
-<pre> All nodes controlled by the same instance of SBBSCTRL will use the
- configuration information for the node specified as the <b>First Node
-</b> in the telnet configuration dialog.</pre>
-<h2><a name="ConfiguringNodes">[3.1] - Configuring Nodes</a></h2>
-<pre>You can configure any node from within SCFG regardless of what computer
-(or virtual computer) you're using. To configure a node, select "<i>Nodes</i>" from
-the SCFG "<i>Configure</i>" menu. You will then see a list of all the nodes installed
-on your system. You will also see the bottom line of the screen now has two
-additional key commands added, <i>INS</i> (Insert) and <i>DEL</i> (Delete). INS and DEL are
-used to add and delete nodes from the system. If you select one of the nodes
-listed, you will receive another menu as follows:</pre>
-<pre><img border="0" src="images/scfg_node1.png" width="652" height="331"></pre>
-<pre>We will now discuss the options of this menu.
-
-<b>Name <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- This is the name of the node. This parameter is not used for anything
- but documentary purposes in the BBS.
-
-<b>Phone Number:
-</b> This is the phone number (or IP address/host name) of this node.
-
-<b>Minimum Connect Rate <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This is the minimum modem connection rate that will be allowed. Callers
- can still connect and attempt to logon, but without the 'M' exemption,
- they will be told what minimum connect rate is and disconnected.
-
-<b>Logon Requirements:
-</b> Use this option to set specific requirements to logon this node.
-
-<b>Local Text Editor <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This is the command line to use when editing text files or messages
- locally. This command line is not used when posting or sending e-mail
- unless the above option is set to 'Yes'. If this option is not
- specified, the default editor for the current user will be used. An
- example (using Qedit as the editor) would be:
- <b>q.exe %f</b>
-
- Assuming <b><i>Q.EXE</i></b> is in the DOS search path. If it isn't, you can specify
- the location of the program. Example:
- <b>c:\qedit\q.exe %f</b>
-
- The <b>%f</b> parameter will expand to the path and filename of the file to
- edit.
-
-<b>Text Viewer <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- This is the command line to use to view text files locally. Currently,
- this command line is only used to view the system log files. You should
- use a program that allows the text scrolling up and down as well as
- string searches. A popular program for this use is Buerg's LIST.
- If you are running multiple nodes and the program you wish to use
- leaves the file open while viewing, you should use a batch file that
- actual copies the file to view and then views the copy.
- Example (if program name is LIST):
- LISTIT.BAT:</pre>
-<blockquote>
- <table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>@echo off
-copy %1 list.tmp
-list list.tmp
-del list.tmp</pre>
- </td>
- </tr>
- </table>
-</blockquote>
-<pre> An example for this field (using the LISTIT batch file) would be:
- <b>%!listit.bat %f</b>
-
- The <b>%!</b> parameter specifies that the batch file is located in the
- EXEC directory. If is not located there, you can remove the <b>%!</b> so that
- the DOS search path will be searched for the batch file or specify
- its location.
-
- The <b>%f</b> parameter will expand to the path and filename of the file to
- view.</pre>
-<pre><b>Configuration Command <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This is the command line to use to execute the Synchronet configuration
- program from the WFC screen. The simplest command line to use is "SCFG"
- (this will execute SCFG.BAT or SCFG.CMD from the current node
- directory). Alternate command lines:
-
- If this node is running Synchronet for DOS:
-
-<b> %!scfg %k /t%w
-</b>
- This command lines has the added advantage of passing the
- timeslice configuration of the current node (enabling Win/OS2
- idle API calls or disabling DESQview/DOS idle API calls).
- This flavor of SCFG supports user mouse control.
- This flavor of SCFG can only use conventional DOS memory for
- configuration items (EMS is automatically used, if available,
- for executable overlay caching - improving performance but
- not increasing the maximum number of configured items).
-
- To use the extended-DOS/Win32 version of SCFG:
-
-<b> %!scfg32 %k
-</b>
- This flavor of SCFG can access all of your installed memory
- (no memory limitations under Win32).
- This flavor of SCFG does not support any timeslice API calls
- (may consume more timeslices than necessary when run under a
- non-Win32 multitasking environment).
-
- If this node is running Synchronet for OS/2:
-
-<b> %!scfg4os2 %k
-</b>
- This flavor of SCFG has no memory limitations.
-
-<b>DOS Command Interpreter <i><font color="#FF0000">(v2 for OS/2 Only)</font></i>:
-</b> If this node is running Synchronet for OS/2, this is the path to your
- command interpreter for OS/2 virtual DOS machines. Example:
-
-<b> C:\OS2\MDOS\COMMAND.COM
-</b>
- This option is only used when running Synchronet for OS/2.</pre>
-<h2><a name="NodeToggleOptions">[3.2] - Node Toggle Options</a></h2>
-<pre><img border="0" src="images/scfg_node1_toggles.png" width="652" height="331">
-
-<b>Alarm When Answering <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- If you would like have the BBS sound an alarm when answering the phone,
- set this option to Yes.
-
-<b>Status Screen While WFC <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This node will display a screen with system usage statistics and the
- current status of all active nodes.
-
-<b>Total Msgs/Files While WFC <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If you have the system statistics displayed while WFC, and you wish to
- include the total number of messages and files in the display, set this
- option to Yes. The retrieval of statistics is faster when set to No.
-
-<b>Use Editor for Messages <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If this option is set to 'Yes' and you have specified a Local Text
- Editor, when logged on locally this editor will be used for the creation
- of all messages.
-
-<b>Use EMS for Overlays <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> Set this option to 'Yes' to have this node to use EMS memory for
- overlay files. Setting this option to 'Yes' can help increase the
- performance of the BBS significantly if enough EMS memory is available
- (about 360K).
-
-<b>Allow Swapping <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> Set this option to 'Yes' to allow this node to swap when necessary.
- If you do not have EMS, XMS, or Extended memory available, and you
- do not wish to have Synchronet swap to disk, you should set this
- option to 'No'.
-
-<b>Swap to EMS <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> When set to 'Yes', Synchronet will attempt to swap to EMS memory when
- executing a program that is in your "Global Swap List".
-
-<b>Swap to XMS <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> When set to 'Yes', Synchronet will attempt to swap to XMS memory.
-
-<b>Swap to Extended Memory <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> When set to 'Yes', Synchronet will attempt to swap to Extended memory.
- This option should always bet set to 'No' when running under a DOS
- multitasker.
-
-<b>Windows/OS2 Time Slice API <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> Set this option to 'Yes' if you are running Synchronet under OS/2.
- You may experience poor performance if this option is set to 'Yes'
- and you are running Synchronet under Microsoft Windows v3.x. If this
- occurs, set this option to 'No'.
-
-<b>DESQview Time Slice API <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> Set this option to 'Yes' if you are running Synchronet using DESQview.
- Since Synchronet auto-detects DESQview it will not hurt anything to
- leave this option set to 'Yes' if you are not running DESQview.
-
-<b>DOS Idle Interrupts <i><font color="#FF0000">(v2 for DOS Only)</font></i>:
-</b> This option defaults to 'Yes'. You should not change this setting.
-
-<b>Low Priority String Input:
-</b> Normally Synchronet does not give up time-slices under multi-taskers
- when waiting for string input from the user. Setting this option to
- 'Yes' will for Synchronet to give up time-slices when waiting for
- string input, this may cause "jerky" keyboard response but will
- improve overall system performance under multi-taskers. This option
- should normally be set to 'Yes'.
-
-<b>Allow Logon by Number:
-</b> Setting this option to 'Yes' will allow users to logon by typing their
- user number at the login logon prompt.
-
-<b>Allow Logon by Real Name:
-</b> When set to 'Yes' this option allows users to enter their real name
- (or company name) at the login prompt to logon to the BBS.
-
-<b>Always Prompt for Password:
-</b> When set to 'Yes' this option will cause the user to ALWAYS be prompted
- for a password at logon, even if they have entered an incorrect (non-
- existent) name at the login prompt.
-
-<b>Disable Local Inactivity <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If you wish to disable the user inactivity warning and auto-logoff
- for local logons, set this option to 'Yes'.
-
-<b>Disable Local Keyboard <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If this option is set to 'Yes', the local keyboard will be completely
- disabled when Synchronet is run. The only way to exit Synchronet would
- be to down the node from another process or reboot the machine.
-
-<b>Local System Protection <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If you wish to require the system password for WFC commands and local
- sysop Alt-key combinations, set this option to 'Yes'.
-
-<b>Beep Locally <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> To disable the local speaker of this node for online beeps, set this
- option to 'No'.
-
-<b>Allow 8-bit Remote Logons:
-</b> To allow E-7-1 terminals to use this node, set this option to 'No'.
- This will also eliminate the ability of 8-bit remote users to send
- IBM extended ASCII characters during the logon sequence.
-
-<b>Reset Video Between Calls <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If this option is set to 'Yes', Synchronet will reset the current
- node console's video mode before each WFC cycle. This option should
- be set to 'No' for most configurations.</pre>
-<h2><a name="NodeAdvancedOptions">[3.3] - Node Advanced Options</a></h2>
-<pre>When selecting this option, you will be brought to a sub-menu of options as
-follows:</pre>
-<pre><img border="0" src="images/scfg_node1_advanced.png" width="652" height="331">
-
-<b>Validation User:
-</b> This is the number of the user to whom validation feedback is sent.
- This value will usually be set to 1 (the sysop). If this value is set
- to 0, then new users will not be required to enter validation feedback.
-
-<b>Screen Length <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This is the length of the system screen or video window. This should
- be set to "Auto-Detect" always, unless you have a specific reason
- to force Synchronet to think the screen length is a certain value.
-
-<b>Screen Blanker <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> When enabled, this will cause the screen for this node to blank out
- when waiting for a caller after the configured amount of inactive
- time.
-
-<b>Semaphore Frequency <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This option specifies how often (in seconds) this node should perform
- semaphore checks (e.g. checks to see if an event should be run, the
- node should be downed, etc.).
-
-<b>Statistics Frequency <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This options specifies how often (in seconds) this node should check
- system statistics (calls per day, logons today, etc.). Used when
- updating the WFC statistics display.
-
-<b>Inactivity Warning:
-</b> This is the number of seconds of user inactivity before a warning
- (typically: "Username, are you still there?") is displayed to the
- user.
-
-<b>Inactivity Disconnection:
-</b> This is the number of seconds of user inactivity before the user
- is automatically disconnected.
-
-<b>Cost Per Call:
-</b> This option should only be set to something nonzero for a billing
- node. A billing node is a node attached to special phone line that will
- automatically charge the caller a predetermined amount (usually area
- code 900 or prefix 976 numbers). Set this value to the amount that the
- caller will be billed after the initial 30 seconds. The user doesn't
- actually access the BBS through this phone number as 900/976 services
- charge the sysop by the minute an unrealistic amount. The user just
- enters his or her name/alias and password and their account is credited
- with the amount of credits per dollar specified in the System options
- multiplied by this field (Cost per call) and the user is hung up on.
- The user then calls the normal BBS nodes and has instant access to
- their purchased credits.
-
-<b>Daily Event:
-</b> This is the command line to execute when the first caller after
- midnight logs off. If the program is located in the EXEC directory,
- this command line should start with the %! specifier.
-
-<b>Control Directory:
-</b> This is the path to the control directory where all the shared
- configuration (.CNF) files for SBBS are stored. TEXT.DAT (the editable
- ASCII file that contains almost all of the color and text that SBBS
- displays) and a few miscellaneous binary data files are also stored
- in this directory. All nodes of the system must have the same control
- directory and this directory should not be located on a RAM disk.
-
-<b>Text Directory:
-</b> This is the path to the text directory. This is where all menus,
- macros, SIF files, QWK files, system information, and other text
- files are stored. All data beneath this directory branch is READ ONLY
- as far as Synchronet is concerned, so changing this directory to a RAM
- drive would enhance performance and wouldn't risk data loss. If you do
- change this path, be sure to copy all the files and subdirectories of
- the original text directory there. If you do change this path to a RAM
- drive, you will need automate the copying of all of the files and
- subdirectories there upon system startup (possibly AUTOEXEC.BAT) with a
- sequence of commands like this:
-<b> md r:\text
- xcopy c:\sbbs\text\*.* r:\text /S
-</b>
-<b>Temporary Directory:
-</b> This is the path to the directory that this node will use for
- temporary file storage. This directory must point to somewhere unique
- and nonvolatile. All the files in this directory are deleted upon
- execution of the BBS, so do not store any files you want to keep in
- this directory. Each node must have its own temp directory. For
- increased performance on batch uploads, it is best if this directory
- is on the same disk drive as the majority of your file transfer
- directories.</pre>
-<pre><b> <i><font color="#FF0000">In v3+, this option should always be set to "TEMP\".</b></font></i>
-
-<b>Swap Directory <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> This is the path to the directory that this node will use for
- swapping to disk if "Allow Swapping" is set to 'Yes' and Swapping
- to EMS, XMS, and Extended memory is either disabled or not enough
- memory is available.</pre>
-<h3><a name="ModemConfiguration"><u>Modem Configuration</u></a>
-
-<b> <i><font color="#FF0000">(v2 Only)</font></i></b></h3>
-<div align="left">
-<pre align="left">This sub-menu and the options contained within it are discussed in another
-section of this manual. Consult the '<a href="modem_setup.html">Modem Set-Up</a>' section of this manual
-for more information.</pre>
-</div>
-<h2 align="left"><a name="WFC_NumberKeys">[3.4] - Wait for Call Number
-Keys</a>
-
-<b><i><font color="#FF0000">(v2 Only)</font></i></b></h2>
-<div align="left">
-<pre>This option lets you configure what command line will be executed for each
-number key (0-9) while waiting for call. These commands will generally be
-simple things that don't require much memory, such as listing the ERROR.LOG,
-listing the GURU.LOG, editing a file, or any other simple functions. For large
-program functions, see Wait for Call Function Keys.</pre>
-</div>
-<h2 align="left"><a name="WFC_FunctionKeys">[3.5] - Wait for Call Function
-Keys</a>
-
-<b><i><font color="#FF0000">(v2 Only)</font></i></b></h2>
-<div align="left">
-<pre>This option lets you configure what command line will be executed for each
-function key (F1-F12) while waiting for call. These commands can execute just
-about any program because Synchronet will shrink to 16k before executing it.
-Popular uses for these shrinking commands would be running a terminal program
-or other large applications.</pre>
-</div>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/amail.cfg b/docs/amail.cfg
deleted file mode 100644
index 8e8a6b6dbcf9a74a78952a9762c0174ef2f5b2cb..0000000000000000000000000000000000000000
--- a/docs/amail.cfg
+++ /dev/null
@@ -1,36 +0,0 @@
-SYSOP Your Name
-SYSTEM Your BBS (XXX) XXX-XXXX
-ADDRESS 1:123/456
-INBOUND C:\IM\INBOUND
-OUTBOUND C:\IM\OUTBOUND
-
-ARCDEF ZIP 0 504B
- ADD PkZip %A %F
- EXTRACT PkUnzip %A
-END
-
-ARCDEF ARC 0 1A
- ADD Arca %A %F
- EXTRACT Arce %A
-END
-
-ARCDEF LZH 2 2D6C68
- ADD Lha a %A %F
- EXTRACT Lha e %A
-END
-
-ARCDEF ARJ 0 60EA
- ADD Arj a %A %F
- EXTRACT Arj e %A
-END
-
-NOFLO
-FORCEKILLSENT
-SIGDIR C:\IM
-SIGKEEP 2000
-CHECKPATH
-DUMPUNKNOWN
-AREAFILE C:\IM\SYSTEM\AREAS.BBS
-NOWARN CIRCULAR DUPES ORIGIN
-SCANALL
-RETEAR ADD
diff --git a/docs/appendix.html b/docs/appendix.html
deleted file mode 100644
index ccb6fb672738dcc3d68c647339b371a65991b020..0000000000000000000000000000000000000000
--- a/docs/appendix.html
+++ /dev/null
@@ -1,501 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Appendix Listing</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="Appendix_A">[18.1] - Appendix A: Command Line Specifiers</a>
-
-</h2>
-<pre>Specifiers (argument replacement) for use with command lines in SCFG and many
-string-related Baja functions.
-
-<b>%a</b> User alias or name (may require surrounding with "'s)
-<b>%b</b> Baud (DTE) rate
-<b>%c</b> Connect description
-<b>%d</b> Connect (DCE) rate
-<b>%e</b> Estimated CPS rate*10
-<b>%f</b> File path/name (example: C:\SBBS\NODE1\DOOR.SYS)
-<b>%g</b> Temp directory (example: C:\SBBS\NODE1\TEMP\)
-<b>%h</b> HardWare flow control (Y/N)
-<b>%i</b> COM port IRQ line (if UART) or channel number (if Int 14h driver)
-<b>%j</b> Data directory (example: C:\SBBS\DATA\)
-<b>%k</b> Control directory (example: C:\SBBS\CTRL\)
-<b>%l</b> Maximum lines per message
-<b>%m</b> Minutes in the user's minute bank
-<b>%n</b> Node directory (example: C:\SBBS\NODE1\)
-<b>%o</b> Sysop's name (as specified in SCFG)
-<b>%p</b> COM port number (0 if local node)
-<b>%q</b> System's QWK ID (as specified in SCFG)
-<b>%r</b> Rows on user's terminal screen
-<b>%s</b> File specification (example: C:\FILES\*.ZIP) or current command string
-<b>%t</b> Time (in seconds) user has left online
-<b>%u</b> UART I/O address in hex or F=FOSSIL, B=PC BIOS, E=PS/2, D=DigiBoard
-<b>%v</b> Synchronet version (example: 200a is Version 2.00 Revision a)
-<b>%w</b> Timeslice API types supported (decimal bit field)
-<b>%x</b> User's command shell (internal code)
-<b>%y</b> COMSPEC environment variable or DOS Command Interpreter (if SBBS4OS2)
-<b>%z</b> Text directory (example: C:\SBBS\TEXT\)
-<b>%!</b> EXEC directory (example: C:\SBBS\EXEC\)
-<b>%#</b> Node number (same as SBBSNNUM environment variable)
-<b>%*</b> Node number (0 padded to 3 digits)
-<b>%$</b> User's credits
-<b>%%</b> Percent symbol
-<b>%&</b> Used for DCDWATCH utility
-<b>%?</b> Platform descriptions (e.g. Win32 or Linux) <i><font color="#FF0000"><b>(v3+ Only)</b></font></i>
-<b>%1</b> User number
-<b>%2</b> User number (0 padded to 2 digits)
-<b>%3</b> User number (0 padded to 3 digits)
-<b>%4</b> etc...</pre>
-<h2><a name="Appendix_B">[18.2] - Appendix B: Synchronet (SBBS/SCFG)
-Command Line Options</a>
-
- <b><font color="#FF0000"><i>(v2 Only)</i></font></b>
-
-</h2>
-<pre>The Synchronet BBS program (SBBS.EXE or SBBS4OS2.EXE) can be run with optional
-command line switches. The switches should be separated by a space. Slash (/)
-and dash (-) are ignored, so "SBBS B" and "SBBS /B" are equivalent. Case is
-ignored, so "SBBS B" and "SBBS b" are equivalent. To list the available options
-from the DOS command line, you may type "SBBS ?". Here is a list of available
-switches:
-
-<b>B</b> Use BIOS for video instead of direct screen writes
- - Older multitasking software may require this switch
-<b>M</b> Modem debug output
- - This switch is helpful in solving problems with modem initialization
-<b>Q</b> Quit after one call
- - SBBS will exit back to DOS (phone off-hook) after one user
-<b>X</b> Quit after one call (on hook)
- - SBBS will exit back to DOS (phone on-hook) after one user
-<b>C#</b> Connection already established at # bps
- - If user already connected, pass current connect rate (DCE)
-<b>E#</b> External event in # minutes
- - If there is a non-Synchronet event coming up, pass minutes left
-<b>F</b> Force daily event
- - Used to force SBBS to execute its internal daily maintenance
-<b>L</b> Local logon only
- - If you want Synchronet to immediately go to the local logon prompt
-<b>I</b> Don't initialize modem
- - If you don't want Synchronet to initialize the modem
-<b>D</b> Force Synchronet to think DCD is high
- - Normally only used for NULL modem connections
-<b>Zs</b> Pass Caller-ID string on command line as 's'
- - Used in combination with 'C#' option, normally from front-end mailer
-<b>O</b> Execute all pending events and immediately exit
- - Used with front-end mailers
-<b>R#</b> Additional rioctl call
- - This switch is for the internal use of Synchronet only (DO NOT USE)
-<b>V</b> Version information
- - Displays the detailed version and revision information of SBBS
-
-The Synchronet Configuration Utility (SCFG.EXE, SCFG32.EXE or SCFG4OS2.EXE)
-requires at least one command line switch (hard-coded into the included
-SBBS.BAT and SBBS.CMD files): the path to your Synchronet CTRL directory
-(e.g. "SCFG ..\CTRL"). While no other command line options are normally needed,
-the following command line options may be specified:
-
-<b>/M</b> Show free memory in upper right corner
- - Show available memory instead of current time (n/a in SCFG4OS2.EXE)
-<b>/N</b> Don't use EMS for overlay caching
- - Don't use Expanded Memory if detected (only in SCFG.EXE)
-<b>/S</b> Don't check directories
- - Don't create directories on the disk(s) if they don't exist
-<b>/F</b> Force save of config files
- - Used by the Synchronet INSTALL program
-<b>/U</b> Update all message base status headers
- - Forces the update of SMB headers to match current config
-<b>/H</b> Don't update message base status headers
- - Don't attempt to update SMB headers to match config (if changed)
-<b>/T#</b> Set supported time slice APIs to #
- - 0=DV if detected(default), 1=Int28, 2=WinOS2, 4=NoDV (SCFG.EXE only)
-<b>/B#</b> Set automatic back-up level
- - Set number of back-up files (*.CN# files) to keep (default=3 max=10)</pre>
-<h2><a name="Appendix_C">[18.3] - Appendix C: SBBS Environment Variables</a>
-
-</h2>
-<pre>During operation, Synchronet may write to several different environment
-variables which can be utilized by other programs. Some of these environment
-variables are also used by the utility programs that are included with
-Synchronet as well as third party programs written for Synchronet. Following
-is a list of environment variables and a brief explanation of them:
-
-<b>SBBSCTRL</b> This variable contains the path of the Synchronet CTRL
- directory. This variable is NOT set by (and not required to
- run) SBBS, it must be set manually prior to running any
- programs which require it (the Synchronet NODE utility, for
- example).
-
-<b>SBBSNODE</b> This environment variable contains the path of the node
- directory of the current node. This variable is set by
- SBBS at the time it is executed. Some off-line utilities
- may require this environment variable be set during boot-up
- (AUTOEXEC.BAT), in which case it should point to your NODE1
- directory. SBBS.EXE will automatically reset this variable
- to point to the current node directory, for any online programs
- it may execute.
-
-<b>SBBSNNUM</b> This variable contains the NUMBER of the active node. This
- variable is set by SBBS at the time it is executed.
-
-<b>SBBSFILENAME</b> This variable contains the NAME of the file currently being
- processed (up to 12 characters including '.', not padded with
- spaces). This variable is set by Synchronet during 'Testable
- Filetype' events. The same information is written to the file
- SBBSFILE.NAM in the current node directory.
-
- NOTE: Upon returning from a 'Testable Filetype' event,
- Synchronet will read in information contained in the
- file SBBSFILE.NAM located in the current node directory
- to determine if the filename has changed during the
- testing process.
-
-<b>SBBSFILEDESC</b> This variable contains the ONE LINE DESCRIPTION of the file
- currently being processed (up to 58 characters). This variable
- is set by Synchronet during 'Testable Filetype' events. The
- same information is written to the file SBBSFILE.DES in the
- current node directory.
-
- NOTE: Upon returning from a 'Testable Filetype' event,
- Synchronet will read in information contained in the
- file SBBSFILE.DES located in the current node directory
- to determine if the file description has changed during
- the testing process.
-
-<b>DSZLOG</b> This variable is automatically set by Synchronet to point to
- the file PROTOCOL.LOG in the current node directory. If a
- transfer protocol has been configured (in SCFG) to support
- DSZLOG, then this log file will be read in by Synchronet after
- the transfer is complete, to determine which files were
- successfully transferred and which files were not.</pre>
-<h2><a name="Appendix_D">[18.4] - Appendix D: Wait for Call Status
-Display</a>
-
- <b><font color="#FF0000"><i>(v2 Only)</i></font></b>
-
-</h2>
-<pre><b>Example:</b></pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#000000">
- <tr>
- <td width="100%">
- <pre><font color="#00FF00">Node #: 5 Mar 11 Space: 162,024k Laston: Digital Man 14400
-Logons: 23/103 Total: 62,610 Timeon: 322/2430 Total: 5,321,900
-Emails: 4/265 Posts: 4/12811 Fbacks: 2/17 Users: 1/592
-Uloads: 324k Files: 1/2195 Dloads: 9,308k Files: 52</font></pre>
- </td>
- </tr>
-</table>
-<pre>This status screen will be shown when the node is waiting for call if the
-sysop (User #1) has EXPERT mode turned ON and this node has Status Screen While
-WFC set to Yes in SCFG->Nodes->Node #->Toggle Options.
-
-The first line has the current node number, the current month and day,
-the amount of free disk space on the drive where the TEMP directory is located
-(should be on the drive where the majority of uploads are received), the
-user who was last on this node and with what type of connection.
-
-The second line has the number of logons today for this node/system, the
-total logons for history of the system, the time spent on today (in minutes) for
-this node/system and total time spent on for history of the system.
-
-The third line contains the number of E-mails sent today on the system/total
-E-mails currently waiting on the system, total number of Posts made on the
-system today/total posts in all sub-boards, number of feedbacks (E-mail to #1)
-sent today/total E-mail waiting for User #1, number of New Users today/total
-user slots on the system.
-
-The fourth line has the amount of uploads to the system today (in Kilobytes),
-number of files uploaded/total files in all directories, amount of downloads
-today (in Kilobytes) and total files downloaded today.
-
-If there are any active nodes or nodes with a critical error count, the status
-of those nodes will be displayed below the above statistical information.</pre>
-<h2><a name="Appendix_E">[18.5] - Appendix E: Node Status Display</a>
-
-</h2>
-<pre>Anywhere within Synchronet, you can list the users currently online with the
-Ctrl-U command.
-
-From the Main, Transfer, Multinode Chat, or Private Chat sections you can list
-the current status of all the nodes with the '/L' command.
-
-You can display the status of all nodes from the DOS command line (or batch
-file) with the NODE utility.
-
-If the WFC Status Screen is enabled, the status of all active nodes is
-displayed.
-
-<b>Node Status Line:</b>
-
-The format of each node status line is as follows:
-
-Node n: username action connection (flags) [sysflags]
-
-Where:
- n = node number
- username = user's name
- action = what the user is currently doing
-connection = how the user is connected (bps rate if remote)
- flags = letters representing special modes of the node:
- A - Activity Alert Disabled:
- User of this node will not be notified of
- other users logging on or off other nodes.
- L - Node is locked for sysop use:
- Node is temporarily reserved for sysop
- use only.
- M - Message waiting for node:
- An unreceived node-to-node message is
- waiting for this node.
- P - Page disabled:
- User of this node does not wish to allow
- users of other nodes to page him for chat
- or send him node-to-node messages.
-
- sysflags = modes that are sysop settable/viewable only:
- A - Anonymous:
- User on this node is in anonymous mode.
- D - Down:
- This node will be shutdown as soon as possible.
- E - Event:
- This node will run it's daily event (if one
- is specified) before waiting for another
- call.
- I - Node will be interrupted:
- Node connection will be terminated as soon
- as possible.
- Q - Quiet:
- User on this node is in quiet mode.
- R - Rerun:
- This node will Rerun when user logs off.
- U - User data update:
- This user's data has been modified by
- another node and needs to be read from
- disk.
-
-If the node is not in use, the possible status are:
- Offline: Node is not currently running Synchronet
- Waiting for Call: Node is waiting for a call.
- Networking: Node is currently executing network functions.
- New User Logging On: A user is logging on as new.
- Waiting for all nodes to become inactive.
- Running external event.
- Waiting for node # to finish external event.</pre>
-<h2><a name="Appendix_F">[18.6] - Appendix F: Log File Line Type
-Specifiers</a>
-
-</h2>
-<pre>Each line in the daily caller log has a line type specifier (the first 2
-characters). The specifiers and their descriptions follow:
-
-!! Critical error
-!* User auto-deleted
-!% User expired
-!= New day for statistics
-!: Ran event
-@ Modem connection established
-@- Modem connection terminated
-@! Modem error
-@* Caller-ID information
-@R RIP support detected
-@W WIP support detected
-++ Logon
-+! Logon error
-N New user begins application
-N+ New user finishes application
-N! New user fails application
-S+ Sysop enabling function
-S- Sysop disabling function
-S! Sysop security error
-P+ Posted message
-P- Removed message
-P! Posting error
-E Read E-mail
-E- Deleted E-mail
-E+ Sent E-mail
-EN Sent NetMail
-E! E-mail error
-C Chat function
-U+ Upload
-U- Removed Upload
-U! Attempted upload
-D- Download
-D! Attempted download
-X- External program execution
-T- Read text file
-M+ Moved message
-Q! QWK error
-L! Log already exists (possible crash)
-$+ Gained credits
-$- Lost credits
-*+ Gained minutes
-*- Lost minutes
-
-To view today's caller log, hit 'L' from the WFC screen or ";LOG" from the
-main menu. Yesterday's caller log can be viewed by hitting 'Y' at the WFC
-screen, or ";YLOG" from the main menu. The log files are stored in the
-DATA\LOGS directory with a file for each day named in the format: MMDDYY.LOG.</pre>
-<h2><a name="Appendix_G">[18.7] - Appendix G: File Formats</a>
-
-</h2>
-<pre>XTRN.DAT
-
- This is the drop file that Synchronet creates for Synchronet specific
- external programs. It is an ASCII text file with the format as follows:
-
-<b>Sample Data Description</b>
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Digital Man User name
-Vertrauen System name
-digital man System operator
-The Guru System guru
-..\CTRL\ CTRL directory
-..\DATA\ DATA directory
-5 Total nodes on system
-5 Current node number
-19448 Time left online (in seconds)
-Yes ANSI ? (Yes/No/Mono)
-24 Lines per screen
-10770335 Credits
-99 Security Level
- -unused-
-12/31/69 Birthdate
-M Sex (Gender)
-1 User number
-714-529-9525 User phone number
-0 COM port (0 if no modem or local)
-3 COM port IRQ (or channel number) [1]
-2f8 COM port I/O address (in hex) [2]
-2400 COM port DTE rate
-No Modem uses hardware flow ctrl (Y/N)
-No Modem locked at DTE rate (Y/N)
-ATQ0V0E0M1X4&C1&D2H0 Modem initialization string
- Modem special init string
-ATV1E1X4 Modem terminal mode init string
-ATDT Modem dial prefix
-ATH1M0 Modem off-hook string
-ATA Modem answer string
-795154132 Address of Modem Status Register
-11 Number of External Programs
-Global War Names of External Programs (or blank
-Trade Wars 2002 if user doesn't have access)
-Food Fight!
-Pit Fiend ][
-Dice War
-Synchronet Blackjack!
-Domain Poker
-Phantasia
-Emperor
-Synchronet Upgrade Door
-Credit Card Order Door
-AB D F J User's Flags #1
- BC G JK N User's Flags #2
-A L T User's Exemptions
- D User's Restrictions
-2b43cfd0 Expiration Date (Unix format in hex)
-PO Box 501 User's Address
-Yorba Linda, Ca User's Location
-92686 User's Zip/Postal Code
-A E User's Flags #3
- B EFG User's Flags #4
-1 Timeslice API types
-Rob Swindell User's real name or company name
-14400 User's DCE rate
-..\EXEC\ EXEC directory (BBS executable files)
-..\TEXT\ TEXT directory (TEXT files)
-TEMP\ TEMP directory
-VERT System's QWK ID
-22C8 Node toggle options (in hex)
-
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-[1]: IRQ line if UART COM port type or Channel (zero based) if Int 14h type
-[2]: I/O base address if UART COM port type or:
-
- F = FOSSIL
- B = PC BIOS
- E = PS/2 BIOS
- D = DigiBoard
-
-</pre>
-<pre>MODUSER.DAT
-
- This is an optional file created by external programs to modify the
- data of the current user. It is an ASCII text file with the format:
-
-<b>Sample Data Description</b>
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--500 Credit Adjustment
-60 Security Level
- -unused-
-AB E I Flags #1 to add
- G Flags #2 to add
-A P T Exemptions to add
- Restrictions to add
-2b43cfd0 Expiration Date (Unix format in hex)
-0 Add these number of minutes to bank
- XYZ Flags #3 to add
- TUV Flags #4 to add
- J Flags #1 to remove
- L Flags #2 to remove
- Flags #3 to remove
- Flags #4 to remove
- D Exemptions to remove
-A Restrictions to remove
-
- If any of the lines in the file are blank, that user item is not
- modified. The security level cannot exceed 89.
-
-
-NOTE: Technical specifications and C source code for Synchronet configuration
- and data files can be downloaded from our BBS.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/baja.html b/docs/baja.html
deleted file mode 100644
index d8d0676ce13928b9337f3b8ad45ba98c64339b5d..0000000000000000000000000000000000000000
--- a/docs/baja.html
+++ /dev/null
@@ -1,3659 +0,0 @@
-
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Synchronet BBS Software - Baja Documentation</title>
-</head>
-
-<body>
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<h1>Synchronet Baja� Documentation
-
-</h1>
-<pre><b><a name="TOC">Table of Contents</a></b>
-
-1. <b>Introduction to BAJA</b><a href="#Introduction">
-</a> 1.1 <a href="#Introduction">Introduction</a>
- 1.2 <a href="#SourceFiles">Source Files</a>
- 1.3 <a href="#BAJA.EXE">BAJA.EXE</a>
- 1.4 <a href="#Modules">Modules</a>
-
-2. <b>BAJA Programming Basics
-</b> <b> </b>2.1 <a href="#ProgrammingSyntax">Programming Syntax</a>
- 2.2 <a href="#Variables">Variables</a>
- 2.3 <a href="#Arguments">Arguments</a>
- 2.4 <a href="#CStrings">C Strings</a>
- 2.5 <a href="#IntegerConstants">Integer Constants</a>
- 2.6 <a href="#CommandKeyConstants">Command Key Constants</a>
- 2.7 <a href="#IncludeFiles">Include Files</a>
- 2.8 <a href="#MacroDefinitions">Macro Definitions</a>
- 2.9 <a href="#GlobalVariableDeclarations">Global Variable Declarations</a></pre>
-<pre>3. <b>Programming Style and Rules
-</b> 3.1 <a href="#ProgrammingStyle">Programming Style</a>
- 3.2 <a href="#SuggestedRulesOfStyle">Suggested Rules</a></pre>
-<pre>4. <b>BAJA Function Reference</b>
- 4.1 <a href="#FunctionDefinitions">Function Definitions</a>
- 4.2 <a href="#StringManipulationFunctions">String Manipulation</a>
- 4.3 <a href="#IntegerManipulationFunctions">Integer Manipulation</a>
- 4.4 <a href="#Logic/ControlFlowFunctions">Logic/Control Flow</a>
- 4.5 <a href="#DisplayFunctions">Display</a>
- 4.6 <a href="#InputFunctions">Input</a>
- 4.7 <a href="#MiscellaneousFunctions">Miscellaneous</a>
- 4.8 <a href="#MailFunctions">Mail</a>
- 4.9 <a href="#MessageBaseFunctions">Message Base</a>
- 4.10 <a href="#FileBaseFunctions">File Base</a>
- 4.11 <a href="#ChatFunctions">Chat</a>
- 4.12 <a href="#InformationFunctions">Information</a>
- 4.13 <a href="#FileI/OFunctions">File I/O</a>
- 4.14 <a href="#FileSystemFunctions">File System</a>
- 4.15 <a href="#DirectorySystemFunctions">Directory System</a></pre>
-<pre>5. <b>System Variables</b><a href="#System Variables">
-</a> 5.1 <a href="#SystemVariables">System Variables</a></pre>
-<pre>6. <b>Function Reference</b><a href="#Quick Function Reference">
-</a> 6.1 <a href="#QuickFunctionReference">Quick Function Reference</a></pre>
-<h2>[1.1] - <a name="Introduction">Introduction</a></h2>
-<pre>Baja (pronounced b�'h�) is a high-level development tool used to create
-"command shells" and "loadable modules" for Synchronet BBS software. The
-programmable command and menu structure (PCMS) technology in Synchronet version
-2 allows sysops to modify the user interface for the BBS by replacing or
-modifying command shells. Synchronet version 2.0 shipped with six stock command
-shells (Classic and Novice Synchronet shells as well as emulations of PCBoard,
-Wildcat, Major, and Renegade BBS packages). These shells can be modified,
-removed, or replaced with ease. Up to 500 shells can be made available to the
-users of the BBS with configurable security access to each shell via ARS (see
-the Synchronet Sysop manual for details on ARS).</pre>
-<pre>Synchronet loadable modules are used to extend or customize the abilities of
-the BBS. Some modules are automatically loaded during specific events (login,
-logon, logoff, etc) while others may be executed at the request of a user
-(much like a door or other internal menu option).</pre>
-<pre><b>Note:</b></pre>
-<pre>If you come across an undefined term in this document, please read through
-the document to possibly find the term defined later or used again to clarify
-its meaning by context, or see the glossary in the Synchronet sysop manual.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="SourceFiles">[1.2] - Source Files</a></h2>
-<pre>Command shells and modules begin their life as a text source file (normally
-with a .SRC extension) or group of text files (including .INC files). These
-source files (and .INC files) can be edited with any ASCII text editor (e.g.
-EDIT, QEDIT, EDLIN, etc). The contents of the text file (often referred to as
-"source code") must conform to the Baja language specifications defined in this
-document. An extremely basic example of a command shell source file:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
-<pre># EXAMPLE1.SRC</pre>
-<pre># Label for later "goto" commands
-:TOP</pre>
-<pre># Clear the screen
-CLS</pre>
-<pre># Show menu of commands
-MNEMONICS "~Comment to Sysop\r\n"
-MNEMONICS "~Goodbye (Logoff)\r\n"</pre>
-<pre># Show command prompt
-PRINT "\r\nCommand: "</pre>
-<pre># Get command key
-GETCMD "CG"</pre>
-<pre># Comment to sysop?
-COMPARE_KEY C
-IF_TRUE
- SETSTR "1"
- MAIL_SEND_FEEDBACK
- GOTO TOP
- END_IF</pre>
-<pre># Logoff?
-COMPARE_KEY G
-IF_TRUE
- LOGOFF
- GOTO TOP
- END_IF</pre>
- </td>
- </tr>
-</table>
-<pre>The syntax of the above text will be explained later in this document.</pre>
-<pre>For more examples of Baja source code, please see the *.SRC files in your
-Synchronet EXEC directory.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="BAJA.EXE">[1.3] - BAJA.EXE</a></h2>
-<pre>After the source file has been created, BAJA.EXE is used to compile the .SRC
-file into a binary file with a .BIN extension that Synchronet can interpret
-and execute. If the source filename is EXAMPLE1.SRC, then the command line
-would be:</pre>
-<pre> <i>BAJA EXAMPLE1</i></pre>
-<pre>The compiler's output:</pre>
-<pre><img border="0" src="images/baja_example.png" width="638" height="136"></pre>
-<pre>This creates the binary file EXAMPLE1.BIN.</pre>
-<pre>Warning: Do not attempt to edit, view, or print .BIN files.</pre>
-<pre>If the compile fails, an error message will be displayed with the filename that
-contains the error and the specific line number followed by a colon and the
-offending code.</pre>
-<pre>Baja source (.SRC), include (.INC), and binary (.BIN) files as well as the Baja
-program itself are normally stored in the Synchronet EXEC directory. This is
-where Synchronet loads command shells and modules from, so the .BIN files must
-be created in or copied to this directory before they can be used.</pre>
-<pre>After a command shell has been compiled, it must be added to the list of
-available command shells in SCFG (Synchronet Configuration program) to be
-available for the users to use. If using a multinode BBS, the other nodes
-must be re-run before the new command shell will be available on those nodes.</pre>
-<pre>If modifying an existing command shell, SCFG does not need to be run and nodes
-do not have to be re-run since command shell binary files are dynamically
-loaded for each logon.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="Modules">[1.4] - Modules</a></h2>
-<pre>Baja modules are very similar to command shells with the main difference being
-that they are not automatically loaded upon logon as command shells are
-(with the exception of login and logon modules). Instead, modules must be
-loaded from a command shell with the EXEC_BIN function described later in
-this document or launched as an external program or event configured in SCFG.
-Binary module files, like command shell binaries, must be located in the
-Synchronet EXEC directory.</pre>
-<pre>Modules can be used to consolidate identical portions of multiple command
-shells into one binary that can be loaded from each command shell so that if a
-modification needs to be made to that portion, then only one source file needs
-to be modified and recompiled as opposed to making the same change to every
-command shell and recompiling them all. An example of this use is the STR_CMDS
-(string commands) module that is launched from multiple command shells.</pre>
-<pre>Another use for modules is for third-party add-ons. Rather than distributing
-Baja source that must be merged into command shell source by sysops, developers
-can distribute module binaries that can be loaded directly from a command
-shell with a very small modification to the existing shells.</pre>
-<pre>To load a Baja module in place of a DOS executable in SCFG, prepend an asterisk
-(*) to the name of the module (e.g. "*MYMOD") for the command line. If an
-argument is included on the command line (e.g. "*MYMOD %A") the contents
-will be automatically placed into the current command string for possible use
-by the module or functions there in.</pre>
-<pre>To load a Baja module while displaying a message, menu file, or TEXT.DAT line
-(excluding lines containing % variables) use "@EXEC:MYMOD@", were MYMOD is the
-name of the module to execute. This is useful for executing modules in places
-where they cannot normally be loaded by event or command line. @-codes are
-only expanded in posts and e-mail if posted locally by user #1 (the sysop).
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ProgrammingSyntax">[2.1] - Programming Syntax</a></h2>
-<pre><b>Basics:</b>
- Execution always begins at the top of the source code and continues
- downward until a function is executed which changes the flow of
- execution. Only one function is allowed per line. The total length of
- each line cannot exceed 1000 characters.</pre>
-<pre><b>Whitespace:</b>
- All whitespace (TAB and SPACE characters) at the beginning of each line
- are ignored. The first printable character of a line is considered
- the first character. Completely blank lines are ignored.</pre>
-<pre><b>Comments:
-</b> If the first character of a line is the pound symbol (#), the
- line is ignored. These are normally used for text comments (remarks)
- about the following source code line(s). Comments may be included on
- the same lines as some (not all) functions, but in general it is
- considered best to keep comments on their own lines as to not interfere
- with proper Baja syntax. Comments are more easily read if there is a
- space after the pound symbol (#) and before the comment text begins.</pre>
-<pre><b>Labels:
-</b> If the first printable character of a line is a colon (:), the line is
- considered a label to be used for the GOTO or CALL functions. Labels
- are not case sensitive. There should be no space between the colon and
- the name of the label. Label names may not contain spaces. Duplicate
- label names within the same module or shell are disallowed.</pre>
-<pre><b>Case Sensitivity:
-</b> Most elements of Baja syntax are not case sensitive (where upper or
- lower case is significant). Functions, and variable names (for example)
- are not case sensitive. Character constants ('A' for example) are case
- sensitive.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="Variables">[2.2] - Variables:</a></h2>
-<pre> Variable names are not case sensitive and must begin with an alphabetic
- character or an underscore (_). Variable names can be any length and
- may contain alpha, numeric, and underscore characters only. The
- variable name "str" is reserved to represent the current command string
- and should not be used as a user defined variable name.</pre>
-<pre> When referencing a variable name defined by the system or another
- module (global), the "!GLOBAL" compiler directive must be used to
- declare the variable or the compiler will not recognize the variable
- name and exit with a syntax error. Global variable declarations should
- appear near the top of your source file.</pre>
-<pre> Baja modules that use variables require SBBS v2.2 or later.</pre>
-<h2> <a name="Arguments">[2.3] - Arguments:</a></h2>
-<pre> When a function requires one or more arguments, there must some amount
- of white space between the function name and each argument.</pre>
-<pre> In function definitions (in this document), required arguments are
- listed in angled brackets (< >) and optional arguments are listed in
- square brackets ([ ]). The actual bracket symbols are NOT used in the
- source code. They are strictly for documentary purposes.</pre>
-<pre> When a string variable argument is specified in the definition of a
- function, any string variable name (either local or global) may be
- used. If str is used in the source code as the string variable name,
- the current command string will be used in place of an actual
- user or system string variable.</pre>
-<pre> An argument of # (pound sign) indicates an integer constant. The actual
- pound sign is not used in the argument. See the section on Integer
- Constants for more details.</pre>
-<pre> An argument of "str" (with double quotes) indicates a string constant
- argument enclosed in double quotation marks. To place a double
- quotation mark inside a string constant (as part of the actual string
- constant), use \" instead of just " where you want the quotation mark
- to appear in the string.</pre>
-<pre> An argument of "cstr" (with double quotes) indicates a C string
- constant argument enclosed in double quotation marks. See the next
- section on C strings for the definition of the contents.</pre>
-<pre> See the beginning of the Functions section for the complete definition
- of all argument types and how they're specified in function
- definitions.</pre>
-<h2> <a name="CStrings">[2.4] - C Strings:</a></h2>
-<pre> Some character string arguments are defined as being C type (cstr).
- This indicates the contents of the string use the same special/control
- character escape sequences as defined for the printf() function in the
- ANSI definition of the C programming language. The only exception to
- the ANSI definition, is that \### defines a character value in decimal
- (base 10), not octal (base 8). All escape sequences begin with the
- backslash (\) character. The valid escape sequences are:</pre>
-<pre> \\ Backslash
- \? Question mark
- \' Single quote
- \" Double quote
- \r Carriage return
- \n Line feed
- \t Horizontal tab
- \b Backspace
- \a Bell
- \f Formfeed
- \v Vertical tab
- \### Character value in decimal
- \x## Character value in hexadecimal</pre>
-<pre> The text string must be enclosed in double quote (") symbols. Example:</pre>
-<pre> "Hello, world.\r\n"</pre>
-<pre> To include an actual back-slash (\) character in a C string, you must
- prefix the back-slash with another back-slash. Example:</pre>
-<pre> "C:\README.TXT"</pre>
-<pre> would be an invalid path and filename.</pre>
-<pre> "C:\\README.TXT"</pre>
-<pre> would be the correct C string to represent <a href="file:///C:/README.TXT">C:\README.TXT</a>.</pre>
-<h2> <a name="IntegerConstants">[2.5] - Integer Constants:</a></h2>
-<pre> Many functions allow or require the use of integer constants (as
- opposed to integer variables). An integer constant is a number that is
- "hard-coded" into the resulting executable file and will remain
- constant (never change) from that point on.</pre>
-<pre> You can specify integer constants in many ways:</pre>
-<pre> Representation Range Examples
- -------------- ----- --------
- Decimal (base 10) -2147483648 to 2147483647 0, 10, -25
- Hexadecimal (base 16) 0x0 to 0xffffffff 0x7f, 0xA69B
- Octal (base 8) 00 to 037777777777 0377, 0505
- Bit value .0 to .31 .0, .1, .15
- ASCII value ' ' to '�' 'A', ' ', '%'
- Special char '\r' to '\v' (see C Strings) '\r', '\n'</pre>
-<pre> Constants can be modified during specification (no variables may be
- used in the modification). No space is allowed between the numeric
- constant and the modifier symbol. Valid modifiers:</pre>
-<pre> Symbol Operation Example
- ------ --------- -------
- + Addition 10+2
- - Subtraction 20-8
- * Multiplication 4*3
- / Division 36/3
- % Modulus (remainder) 53%8
- & Bit-wise AND 695&0x1f
- | Bit-wise OR 0x10|8
- ~ Bit-wise NOT ~3
- ^ Bit-wise XOR (exclusive OR) 0xff^12
- >> Right shift 03700>>4
- << Left shift 255<<2</pre>
-<h2> <a name="CommandKeyConstants">[2.6] - Command Key Constants:</a></h2>
-<pre> Some functions require the use of a command key constant. A command key
- constant is a keyword or symbol representing a valid command selected
- by a user.</pre>
-<pre> The simplest way to specify a command key constant, is to simply
- type the key that you wish to use for a specific command. Example:</pre>
-<pre> CMDKEY A</pre>
-<pre> Would use the 'A' key for the command key constant. Simply specifying
- a letter does not indicate case sensitive (i.e. the above example
- could have been "CMDKEY a" with the same results). </pre>
-<pre> To specify a specific case (upper or lower), you must prefix the
- command key with a single quote symbol ('). Example:</pre>
-<pre> CMDKEY 'a
-
- To specify a control character (like Ctrl-H, which is a backspace),
- you must prefix the control character (in upper case) with a caret
- (^) symbol. Example:</pre>
-<pre> CMDKEY ^H</pre>
-<pre> Valid control character specifications:</pre>
-<pre> ^A Attribute/color code (internal line editor)
- ^B Beginning of line (internal line editor)
- ^C Abort
- ^D Delete word right (internal line editor)
- ^E End of line (internal line editor)
- ^F Forward cursor (Right arrow key)
- ^G Beep
- ^H Backspace
- ^I Tab
- ^J Line feed (Down arrow key)
- ^K Ctrl-key help menu
- ^L Form feed (Clear screen)
- ^M Carriage return (Enter key)
- ^N Next word (internal line editor)
- ^O Temp pause toggle
- ^P Private message
- ^Q Un-pause
- ^R Redraw line (internal line editor)
- ^S Pause
- ^T Time info
- ^U List users online
- ^V Center line (internal line editor)
- ^W Delete word left (internal line editor)
- ^X Delete line (internal line editor)
- ^Y Delete to end-of line (internal line editor)
- ^Z Raw input mode toggle
- ^] Back cursor (Left arrow key)
- ^[ Escape (Esc key)
- ^^ Up cursor (Up arrow key)</pre>
-<pre> You may also specify special control characters (carriage return,
- form feed, etc) be prepending a backslash (i.e. \r, \f, etc). See the
- section on C strings for details.
-
- Some command key input functions allow the use of slash-commands
- (command keys prepended with a slash character, i.e. /A). The two
- character slash-commands are the only multi-character commands
- supported by command key functions. Example:</pre>
-<pre> CMDKEYE /A</pre>
-<pre> Is valid, but:</pre>
-<pre> CMDKEYE -A</pre>
-<pre> Is not valid.</pre>
-<pre> To test specifically for digit (0-9) command keys and slash-digit
- command keys (/0-/9), use DIGIT and EDIGIT respectively. Example:</pre>
-<pre> CMDKEYE DIGIT</pre>
-<pre> To test if the user hit a key from 0 to 9, or:</pre>
-<pre> CMDKEYE EDIGIT</pre>
-<pre> To test if the user hit a slash-key combination from /0 to /9.</pre>
-<pre> You may, of course, also test for a specific digit command key:</pre>
-<pre> CMDKEYE 1
- and
- CMDKEYE /1</pre>
-<pre> are both valid command key constants.</pre>
-<pre> To specify # for a command key, use '# (otherwise # will be interpreted
- as the beginning of a comment).</pre>
-<pre> To specify SPACE bar for the command key, use ' ', example:</pre>
-<pre> CMDKEY ' '</pre>
-<pre> Extended ASCII characters (� for example) are not valid command keys.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2> <a name="IncludeFiles">[2.7] - Include Files</a></h2>
-<pre>Source code segments that are to be shared among multiple command shells or
-modules can be placed into a separate text file (preferably with a .INC
-extension) and included in the source code for multiple modules by using the
-"!INCLUDE" compiler directive to specify the filename to include. Example:</pre>
-<pre>!INCLUDE MYDEFS.INC</pre>
-<pre>This is useful when including files supplied by Digital Dynamics or third
-party developers to pre-define constants (macros), common sub-routines, or
-variable definitions. The following include files are distributed with Baja
-(and should not be modified):</pre>
-<pre>ERRNO.INC Definitions for possible values of _ERRNO system variable
-FILE_IO.INC Constants for use with file I/O functions
-DIR_ATTR.INC Constants for use with SET_FILE_ATTR & GET_FILE_ATTR functions
-USERDEFS.INC Synchronet User constants for use with various functions
-NODEDEFS.INC Synchronet Node constants for use with various functions
-SBBSDEFS.INC Synchronet system variable declarations and constants
- (automatically includes USERDEFS.INC and NODEDEFS.INC)</pre>
-<pre>Take care not to include the same file more than once in the same source code.
-It is suggested you put all of your !include statements near the top of your
-source file. If you include a file that in-turn includes other files
-(SBBSDEFS.INC, for example, includes USERDEFS.INC and NODEDEFS.INC), you
-do not need to include the other files. If you !include SBBSDEFS.INC, you
-DO NOT need to !incluce NODEDEFS.INC and USERDEFS.INC as well. Take care not
-to nest include files too deeply or the compilation will fail.</pre>
-<pre>This compiler directive is very similar to the "#include" directive used by
-C compilers, but if a specific path is not specified, only the current
-directory will be searched for the file to include.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="MacroDefinitions">[2.8] - Macro Definitions</a></h2>
-<pre>Commonly used character strings and integer constants can be specified as
-macros by using the "!DEFINE" compiler directive to specify the macro name to
-use and the value of the macro. Example:</pre>
-<pre>!DEFINE MAXIMUM_USERS 250</pre>
-<pre>Now, any place you might want to use the number 250 in your Baja source, you
-can use the macro "MAXIMUM_USERS" instead. This makes changing the value of
-the numeric or character string constant very easy.</pre>
-<pre>This compiler directive is very similar to the "#define" directive used by
-C compilers with the main exception being that the macro name is not case
-sensitive.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="GlobalVariableDeclarations">[2.9] - Global Variable Declarations</a></h2>
-<pre>When using variables defined by the system (see System Variables) or another
-shell or module (see GLOBAL_STR and GLOBAL_INT functions), you must first
-declare these variables using the "!GLOBAL" compiler directive. Example:</pre>
-<pre>!GLOBAL SOME_GLOBAL_VAR</pre>
-<pre>Multiple global variables may be declared with one !GLOBAL statement:</pre>
-<pre>!GLOBAL SOME_GLOBAL_VAR ANOTHER_GLOBAL_VAR</pre>
-<pre>If you attempt to use a global variable without first declaring it, the
-compiler will fail to compile the source with an "expected variable name"
-syntax error message.</pre>
-<pre>This compiler directive is very similar to the "extern" keyword used by C
-compilers.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ProgrammingStyle">[3.1] - Programming Style</a></h2>
-<pre>As stated in the previous section, white space characters at the beginning
-of a line are ignored and have no effect on the resulting compilation. But,
-whitespace can be very useful in making the source code readable by indenting
-conditional blocks of code, and using blank lines to separate blocks of
-related code. Comments are also very helpful in making the code readable.</pre>
-<pre>Compare the following source to the example given in the Source Files chapter:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>:TOP
-CLS
-MNEMONICS "~Comment to Sysop\r\n"
-MNEMONICS "~Goodbye (Logoff)\r\n"
-PRINT "\r\nCommand: "
-GETCMD "CG"
-COMPARE_KEY C
-IF_TRUE
-SETSTR "1"
-MAIL_SEND_FEEDBACK
-GOTO TOP
-END_IF
-COMPARE_KEY G
-IF_TRUE
-LOGOFF
-GOTO TOP
-END_IF</pre>
- </td>
- </tr>
-</table>
-<pre>Without the whitespace and the comments, the code appears much more cryptic
-(the control flow is hard to follow). But the code will compile into exactly
-the same binary file as the earlier example.
-
-Consider this more elaborate example using indentation only:</pre>
-<pre><b><i>With indentation:</i></b></pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>COMPARE_ARS FILE_CMDS=0
-IF_TRUE
- COMPARE_USER_MISC UM_ASK_NSCAN
- IF_TRUE
- YES_NO "\r\n\r\nSearch all libraries for new files"
- IF_TRUE
- FILE_NEW_SCAN_ALL
- END_IF
- END_IF
- END_IF</pre>
- </td>
- </tr>
-</table>
-<pre><b><i>Without indentation:</i></b></pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>COMPARE_ARS FILE_CMDS=0
-IF_TRUE
-COMPARE_USER_MISC UM_ASK_NSCAN
-IF_TRUE
-YES_NO "\r\n\r\nSearch all libraries for new files"
-IF_TRUE
-FILE_NEW_SCAN_ALL
-END_IF
-END_IF
-END_IF</pre>
- </td>
- </tr>
-</table>
-<pre>As you can see without the indentation, you can get lost in nested IF
-statements trying to understand how the code will execute.</pre>
-<pre>While you may have known quite well what you intended to accomplish and how
-you expected the code to execute at the time of writing it, it would be much
-harder to understand how the code was expected to execute at a later date
-(or by another person) if a consistent indentation style was not used.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="SuggestedRulesOfStyle">[3.2] - Suggested Rules of Style</a></h2>
-<pre>There isn't a "right" or "wrong" way to use indentation, blank lines,
-or comments, but we will present a set of suggested "rules" here. If you decide
-you prefer another style, that is fine. The most important thing is that you
-are consistent in your use of whatever style you choose.</pre>
-<pre><b>Top of File Comments</b></pre>
-<pre>Place a comment as the very first line of the file with the name of the .SRC
-file. Example:</pre>
-<pre># EXAMPLE.SRC</pre>
-<pre>Then a block of comment lines that describe what the shell or module's purpose
-is, who programmed it, when, where, etc.</pre>
-<pre><b>Label Comments</b></pre>
-<pre>Labels normally represent the beginning of a sub-routine and should be
-well commented. A graphical line to show the beginning of a new sub-routine
-is often helpful. Example:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>############################### My Sub-routine ################################
-:MY-SUB</pre>
- </td>
- </tr>
-</table>
-<pre><b>CMD_HOME Comments</b>
-
-The CMD_HOME function marks the beginning of a command/menu loop and should
-be well commented. Example:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>#############
-# MAIN MENU #
-#############
-CMD_HOME</pre>
- </td>
- </tr>
-</table>
-<pre><b>Conditional Indentation
-</b>
-Whenever a block of code is conditionally executed (only executed under
-specific conditions), the block of code should be indented one tabstop past
-the block header (IF_TRUE, IF_FALSE, ELSE, SWITCH, CASE, CMDKEY, CMDSTR, etc).
-The block of code to be indented includes the block terminator (END_IF,
-END_CMD, END_CASE, END_SWITCH, etc). Example:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
-<pre>GETCMD "ABCD"</pre>
-<pre>CMDKEY A
- COMPARE_ARS LEVEL 50
- IF_TRUE
- PRINT "You have level 50 or higher.\r\n"
- ELSE
- PRINT "You have level 49 or lower.\r\n"
- END_IF
- END_CMD</pre>
- </td>
- </tr>
-</table>
-<pre><b>Separate Code Blocks</b></pre>
-<pre>Use blank lines to separate medium to large code blocks from other code
-(most especially CMDKEY, CMDKEYS, CMDSTR, and SWITCH code blocks). Example:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
-<pre>GETCMD "ABCD"</pre>
-<pre>CMDKEY A
- PRINT "You hit A.\r\n"
- END_CMD</pre>
-<pre>CMDKEY B
- PRINT "You hit B.\r\n"
- END_CMD</pre>
- </td>
- </tr>
-</table>
-<pre><b>End of File Comment
-</b>
-Place a comment at the end of the file. Example:</pre>
-<pre># End of EXAMPLE.SRC
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="FunctionDefinitions">[4.1] - Function Definitions</a></h2>
-<pre>The remainder of this document is for defining the correct use of all Baja
-functions. If you wish to look up a specific function by subject, please refer
-to the table of contents or the quick reference at the end of the document.</pre>
-<pre><b>Argument Types</b></pre>
-<pre>Each function definition will begin with the name of the function followed by
-all possible arguments (parameters) and the type of each argument. The possible
-argument types are:</pre>
-<pre><b>Type Description</b>
-
-"str" String constant (contained in double quotes)
-"cstr" C string constant (contained in double quotes)
-txt String constant (no quotes)
-# Integer constant (the # symbol is not part of the syntax)
-str_var String variable name or 'str' for current command string
-int_var Integer variable name
-any_var Any string or integer variable name
-char Character constant (single character, no quotes)
-key Command key constant
-keylist List of command key constants (no space between each key)</pre>
-<pre>Each argument type is contained in either angled brackets (< and >) to indicate
-the argument is required, or square brackets ([ and ]) to indicate the
-argument is optional. An argument of [...] indicates a variable number of
-optional arguments of the last specified type. Example:</pre>
-<pre> SPRINTF <str_var> <"cstr"> <any_var> [any_var] [...]</pre>
-<pre>This function definition indicates that the SPRINT function requires a minimum
-of three arguments: a string variable, a C string constant, and one or more
-variables of either integer or string type.</pre>
-<pre><b>Required Include Files<u>
-</u></b>
-Following the function argument types, may be one or more required include
-(.INC) files. If any files are listed on the same line as the function
-(to the right of the page), these files must be included at the top of
-your source file to use this function arguments correctly. Example:</pre>
-<pre> !INCLUDE NODEDEFS.INC</pre>
-<pre>Do not include the same file more than once in the same source file. Once
-is enough, and it should be done so near the top of your source (.SRC) file.</pre>
-<pre><b>Argument Names<u>
-</u></b>
-If any arguments are allowed for a function, a list of argument names will
-follow the text "args:" below the function name and argument list. This will
-help in referencing the individual arguments in the function description.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="StringManipulationFunctions">[4.2] - String Manipulation Functions</a></h2>
-<pre>Functions used for manipulating string variables (global or local) and/or the
-current command string.</pre>
-<pre> <b>STR <str_var> [str_var] [...]
-args: new_vars</b>
-------------------------------
-Define one or more local string variables for later use. The new_vars arguments
-are the names of the variables to define. These names must not be currently
-used by other variables (local or global).</pre>
-<pre>The variable name "str" is used by other functions to refer to the current
-command string, and therefore cannot be used as a user defined variable name.</pre>
-<pre>After definition, the variable names can be used by other functions. The
-variables will each be initialized to a null string. The variables can only be
-referenced in the current shell or module. When the current shell or module is
-terminated, the variable names and their contents are lost. If you wish to
-retain a variable name and its contents between shells or modules, use a global
-variable instead of a local variable.</pre>
-<pre><b>GLOBAL_STR <str_var> [str_var] [...]
- args: new_vars
-</b>------------------------------------
-Define one or more global string variables for later use. The arguments are the
-names of the variables to define. Each variable name must not be currently used
-by another variable (local or global). Global variable names and their contents
-are not disposed of until the current user logs off the BBS.</pre>
-<pre><b> SET <str_var> <"cstr">
-args: dest value
-</b>-----------------------
-Writes to the string variable dest, the contents of the C string specified as
-value. This function is the Baja equivalent of the standard C strcpy() function
-with the exception that the source must be a string constant. Example:</pre>
-<pre> STR USER_NAME
- SET USER_NAME "John Doe"</pre>
-<pre>When writing to the current command string, use the SETSTR function instead
-of this function for best optimization.
-
-<b>COPY <str_var> <any_var>
-args: dest source
-</b>------------------------
-Copies the source variable (string or integer) into the specified destination
-variable. This function is the Baja equivalent of the standard C strcpy()
-function with the exception that the source must be a variable, but may be
-either of integer or string type. Example:</pre>
-<pre> # define two variables
- STR VAR1 VAR2
- # copy some text into the first variable
- SET VAR1 "Some Text"
- # copy that variable into the second variable
- COPY VAR2 VAR1
- # display the contents of second variable
- PRINT VAR2</pre>
-<pre>If the source variable is an integer variable, it is converted into
-a decimal (base 10) string before the copy is executed. Use SPRINTF if you
-want to convert an integer variable into a string using hexadecimal (base 16)
-or octal (base 8) representation instead of decimal.</pre>
-<pre><b>SWAP <str_var> <any_var>
-args: var1 var2
-</b>------------------------
-Exchanges the contents of two string variables, or a string variable and an
-integer variable. The first argument (var1) is the name of a string variable
-and the second argument (var2) is the name of a string or integer variable.
-If var2 is an integer variable, var1 will be set to the decimal representation
-of the integer variable contents and var2 will be set the integer
-representation of var1 (specified in hex, octal, or decimal). Example:</pre>
-<pre> INT I
- STR S</pre>
-<pre> # set S to 100h (256)
- SET S "0x100"
- # set I to 100
- SET I 100
- # swap them
- SWAP S I
- # I now equals 256 and S is "100"
-
-<b>STRCAT <str_var> <str_var or "cstr">
- args: dest source
-</b>------------------------------------
-Concatenates (appends) the contents of a string variable (specified as dest)
-with the contents of a C string or string variable specified as source. This
-function is the Baja equivalent of the standard C strcat() function.</pre>
-<pre><b>SPRINTF <str_var> <"cstr"> <any_var> [any_var] [...]
- args: dest format variables
-</b>----------------------------------------------------
-Writes the specified variables into the string variable (dest) based on
-the specified format. This function is the same as PRINTF except that the
-output is written into the dest string variable instead of the console. This
-function is the Baja equivalent of the standard C sprintf() function with
-the exception that all the arguments following the format must be variables
-(no constants allowed). See the PRINTF function definition for details.</pre>
-<pre><b>TIME_STR <str_var> <int_var>
- args: dest time
-</b>----------------------------
-Writes to the string variable (specified as dest) the time and date stored in
-the integer variable specified by time. This function is the Baja equivalent
-to the standard C ctime() function. Example:</pre>
-<pre> # Display current time
- INT T
- TIME T
- TIME_STR STR T
- PRINTF "Current time: %s\r\n" STR</pre>
-<pre>Would display the current date/time similar to:</pre>
-<pre> Current time: Thu Aug 31 1995 08:34 am</pre>
-<pre><b>DATE_STR <str_var> <int_var>
- args: dest time
-</b>----------------------------
-Writes to the string variable (specified as dest) the date stored in the
-integer variable specified by time (obtained with TIME or similar function) in
-MM/DD/YY format or DD/MM/YY format if European date format is enabled in SCFG.
-Example:</pre>
-<pre> # Display current date
- INT T
- TIME T
- DATE_STR STR T
- PRINTF "Current date: %s\r\n" STR</pre>
-<pre>Would display the current date similar to:</pre>
-<pre> Current date: 08/31/95</pre>
-<pre><b>SECOND_STR <str_var> <int_var>
- args: dest seconds
-</b>------------------------------
-Writes to the string variable (specified as dest) the number of seconds
-(in HH:MM:SS format) stored in the integer variable specified by seconds.
-Example:</pre>
-<pre> # Display number of seconds elapsed
- INT START END
- TIME START
- PRINT "Wait a period of time, then hit a key..."
- GETKEY
- TIME END
- SUB END START
- SECOND_STR STR END
- PRINTF "\r\n%s time elapsed.\r\n" STR</pre>
-<pre><b>FTIME_STR <str_var> <"cstr"> <int_var>
- args: dest format time
-</b>--------------------------------------
-Writes to the string variable (specified as dest) the date and time information
-from the integer variable (specified as time) formatted according to string
-constant specified as format. The format characters are described below:</pre>
-<pre> %a abbreviated weekday name
- %A full weekday name
- %b abbreviated month name
- %B full month name
- %c date and time
- %d day of month (01-31) (zero-padded)
- %H hour (24-hour clock) (00-23)
- %I hour (12-hour clock) (01-12)
- %j day of the year (001-366)
- %m month (01-12)
- %M minute (00-59)
- %p AM or PM
- %S second (00-59)
- %U week number of the year (Sunday as 1st day of week) (00-52)
- %w weekday (0-6, Sunday is 0)
- %W week number of the year (Monday as 1st day of week) (00-52)
- %x date
- %X time
- %y year without century (00-99)
- %Y year with century
- %Z time zone name, if any
- %% % (percent symbol)</pre>
-<pre>This function is the Baja equivalent of the standard C strftime() function.
-Example:</pre>
-<pre> # Display current date and time
- INT T
- TIME T
- FTIME_STR STR "Current_Time:%A,%B-%d-%Y,%I:%M %p" T
- PRINTF "%s\r\n" STR</pre>
-<pre><b>SHIFT_STR [str_var] <#>
- args: string len
-</b>------------------------
-This function ("Shift String") shifts the specified string variable if
-specified (current command string if not specified) to the left 'len' number of
-characters.</pre>
-<pre> # Displays the string "ELLO"
- SETSTR "HELLO"
- SHIFT_STR 1
- PRINT STR</pre>
-<pre>This function is most often used to parse command string arguments or "stacked"
-commands.</pre>
-<pre><b>STRIP_CTRL [str_var]
- args: string
-</b>--------------------
-Removes all control characters (and Ctrl-A codes) from specified string
-variable. If string is not specified, then the current command string is
-processed.</pre>
-<pre><b>TRUNCSP [str_var]
- args: string
-</b>-----------------
-Removes (truncates) all white space characters from end of specified string
-variable or current command string (if string not specified).</pre>
-<pre><b>STRUPR [str_var]
- args: string
-</b>----------------
-Converts specified string argument to all uppercase characters. This function
-is the Baja equivalent to the standard C strupr() function.</pre>
-<pre><b>STRLWR [str_var]
- args: string
-</b>----------------
-Converts specified string argument to all lowercase characters. This function
-is the Baja equivalent to the standard C strlwr() function.</pre>
-<pre><b>SETSTR <"cstr">
- args: text
-</b>---------------
-Writes to current command string, specified constant text string. This
-function should be used in place of "SET STR" for best optimization.</pre>
-<pre><b>REPLACE_TEXT <#> <"cstr">
- args: num text
-</b>-------------------------
-This function is used to replace a default internal text string (read from the
-CTRL\TEXT.DAT file) in a shell or module. The first argument (num) is the text
-number to replace (see TEXT.DAT for the number of the text you wish to
-replace). The second argument (text) is the C type string to use in place the
-current one. All text replacements are lost (back to default TEXT.DAT) when the
-user logs off. Example, to replace the "[Hit a key]" prompt with a different
-string:</pre>
-<pre> REPLACE_TEXT 563 "\1n\1h\1b{\1wPAUSE\1b} "</pre>
-<pre>When replacing a TEXT.DAT string that contains %s, %d, or other % specifiers,
-you will need to change them to %%s, %%d, etc (without changing the order).</pre>
-<pre>If you wish to globally replace a string (for all shells and modules), you may
-want to just edit the CTRL\TEXT.DAT file directly instead.
-
-<b>LOAD_TEXT <"str">
- args: filename
-</b>-------------------
-Loads an alternate TEXT.DAT file (from CTRL directory, automatically assuming
-a .DAT extension for "filename"). Only those text items that are different
-from the current TEXT items will be changed. All changes will only be in
-effect until the current user logs off or the effects are reversed with the
-REVERT_TEXT function. The base filename should be something other than just
-"TEXT" (since that is the default TEXT.DAT that is loaded by SBBS).</pre>
-<pre>This function is useful for making multiple languages available to your users.</pre>
-<pre><b>REVERT_TEXT <# or ALL>
- args: num
-</b>----------------------
-This function is used to reverse the effects of a previous call to REPLACE_TEXT
-or LOAD_TEXT (reverts back to default TEXT.DAT). Example:</pre>
-<pre> REPLACE_TEXT 563 "\1n-=[Hit a Key]=- "
- PAUSE
- REVERT_TEXT 563</pre>
-<pre>If the argument is the word ALL, then all text strings are reverted to the
-original TEXT.DAT entries.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="IntegerManipulationFunctions">[4.3] - Integer Manipulation Functions</a></h2>
-<pre>Functions used for manipulating integer variables (global or local).</pre>
-<pre><b> INT <int_var> [int_var] [...]
-args: new_vars
-</b>------------------------------
-Define one or more local integer variables for later use. The new_vars
-arguments are the names of the variables to define. These names must not be
-currently used by other variables (local or global).</pre>
-<pre>After definition, the variable names can be used by other functions. The
-variables will each be initialized to a 0. The variables can only be referenced
-in the current shell or module. When the current shell or module is terminated,
-the variable names and their contents are lost. If you wish to retain a
-variable name and its contents between shells or modules, use a global variable
-instead of a local variable.</pre>
-<pre><b>GLOBAL_INT <int_var> [int_var] [...]
- args: new_vars
-</b>------------------------------------
-Define one or more global integer variables for later use. The arguments are
-the names of the variables to define. Each variable name must not be currently
-used by another variable (local or global). Global variable names and their
-contents are not disposed of until the current user logs off the BBS.</pre>
-<pre><b> SET <int_var> <#>
-args: dest value
-</b>---------------------
-Writes to the integer variable dest, the integer constant specified as value.</pre>
-<pre> INT I
- SET I 100</pre>
-<pre><b> ADD <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Adds the value specified in the second argument to the integer variable
-specified as dest.</pre>
-<pre><b> SUB <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Subtracts the value specified in the second argument from the integer variable
-specified as dest.</pre>
-<pre><b> MUL <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Multiplies the first argument by the value specified in the second argument
-and places the result into dest.</pre>
-<pre><b> DIV <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Divides the first argument by the value specified in the second argument
-and places the result into dest.</pre>
-<pre><b> MOD <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Divides the first argument by the value specified in the second argument
-and places the remainder into dest.</pre>
-<pre><b> AND <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Bit-wise ANDs the value specified in the second argument with the integer
-variable specified as dest.</pre>
-<pre><b> OR <int_var> <any_var or #>
-args: dest value
-</b>----------------------------
-Bit-wise ORs the value specified in the second argument with the integer
-variable specified as dest.</pre>
-<pre><b> NOT <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Bit-wise ANDs the unary opposite of the value specified in the second argument
-with the integer variable specified as dest.</pre>
-<pre><b> XOR <int_var> <any_var or #>
-args: dest value
-</b>-----------------------------
-Bit-wise exclusive ORs the value specified in the second argument with the
-integer variable specified as dest.</pre>
-<pre><b>COPY <int_var> <any_var>
-args: dest source
-</b>------------------------
-Copies the source variable (string or integer) into the specified destination
-variable. Example:</pre>
-<pre> # define two variables
- INT INT1 INT2
- # place a value into the first variable
- SET VAR1 5
- # copy that variable into the second variable
- COPY VAR2 VAR1
- # display the contents of second variable
- PRINTF "VAR2=%ld\r\n" VAR2</pre>
-<pre>If the source variable is an string variable, it is converted into an integer
-before the copy is executed.</pre>
-<pre><b>SWAP <int_var> <any_var>
-args: var1 var2
-</b>------------------------
-Exchanges the contents of two integer variables, or a string variable and an
-integer variable. The first argument (var1) is the name of an integer variable
-and the second argument (var2) is the name of a string or integer variable.</pre>
-<pre><b>RANDOM <int_var> <#>
- args: dest num
-</b>---------------------
-Places a random number between 0 and num-1 into dest.</pre>
-<pre><b>TIME <int_var>
-args: dest
-</b>--------------
-Places the current time (in unix/time_t format) into dest. This function is
-the Baja equivalent of the standard C time() function.</pre>
-<pre><b>STRLEN <int_var> <str_var>
- args: dest string
-</b>--------------------------
-Places the length (in characters) of the specified string into dest. This
-function is the Baja equivalent of the standard C strlen() function.</pre>
-<pre><b>DATE_INT <int_var> <str_var>
- args: dest date
-</b>----------------------------
-Converts a date string (in MM/DD/YY format) into an integer and places it
-into dest.</pre>
-<pre><b>CRC16 <int_var> <str_var>
- args: dest string
-</b>-------------------------
-Calculates the 16-bit CRC of the specified string and places the result into
-dest.</pre>
-<pre><b>CRC32 <int_var> <str_var>
- args: dest string
-</b>-------------------------
-Calculates the 32-bit CRC of the specified string and places the result into
-dest.</pre>
-<pre><b>CHKSUM <int_var> <str_var>
- args: dest string
-</b>--------------------------
-Calculates the CHKSUM of the specified string and places the result into
-dest.</pre>
-<pre><b>CHARVAL <int_var> <str_var>
- args: dest string
-</b>---------------------------
-Places the ASCII value of the first character in the specified string into
-dest.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="Logic/ControlFlowFunctions">[4.4] - Logic/Control Flow Functions</a>
-</h2>
-<pre><b>GOTO <txt>
-args: label
-</b>-----------
-This function is used to force the control flow to immediately jump to another
-part of the code. A valid label name must follow GOTO as an argument. This
-function is very similar to the GOTO command used in the BASIC and C
-programming languages or the JMP instruction used in the Assembly programming
-language.</pre>
-<pre><b>CALL <txt>
-args: label
-</b>-----------
-This function is used to execute a sub-routine. The sub-routine must be
-defined with the specified label somewhere in the current module. When a
-RETURN function is executed in the sub-routine, control flow will return to the
-next line following the CALL function that started the sub-routine. The CALL
-function is very similar to the GOSUB command used in the BASIC programming
-language or the CALL instruction used in the Assembly programming language. At
-least one RETURN function must exist in the sub-routine. Sub-routines should
-not use a GOTO function to "jump out" of the sub-routine.</pre>
-<pre><b>RETURN
-</b>------
-This function is used to exit a sub-routine and return to the point in the
-code from which it was called with the CALL function. If a RETURN
-function is executed without a prior CALL, then the shell or module is
-immediately terminated. If a shell is terminated with a user online, they
-are immediately logged off. If a module is terminated, execution control
-returns to the shell or module that loaded it.</pre>
-<pre><b>SETLOGIC <TRUE or FALSE or GREATER or LESS>
- args: logic
-</b>-------------------------------------------
-This function is used to set the current logic state to TRUE (same as
-EQUAL), FALSE (same as NOT_EQUAL), GREATER, or LESS. The logic state is set by
-many functions, and tested by the IF_... functions to control the flow of
-execution.</pre>
-<pre><b>COMPARE <any_var> <any_var or "cstr" or #>
- args: var cmp
-</b>------------------------------------------
-This function compares any two variables, or a variable and a constant.
-If the cmp argument is an integer variable or integer constant and the
-var variable is a string variable, then cmp is converted to a string
-representation of the cmp variable before the comparison is made. If the cmp
-argument is a string variable or string constant and the var variable is
-an integer variable, then cmp is converted to an integer before the comparison
-is made. The current logic state is set to the result of the comparison:
-TRUE (same as EQUAL), FALSE (as an NOT_EQUAL), GREATER, or LESS.
-
-<b>IF_TRUE
-</b>-------
-If the current logic state is set to TRUE, then following block of code
-(ending in an END_IF or ELSE function) will be executed. Otherwise,
-the interpreter will skip the code until an ELSE or END_IF function is found
-and resume execution from that point. This function is the same as IF_EQUAL.</pre>
-<pre><b>IF_FALSE
-</b>--------
-This function is identical to the IF_TRUE function except that it works in the
-opposite manor in regards to the current logic state. This function is the
-same as IF_NOT_EQUAL.</pre>
-<pre><b>IF_GREATER
-</b>----------
-If the current logic state is set to GREATER by a subsequent COMPARE function,
-the following IF_... block will be executed.</pre>
-<pre><b>IF_GREATER_OR_EQUAL
-</b>-------------------
-If the current logic state is set to GREATER or EQUAL, the following IF_...
-block will be executed. This function is the same as IF_EQUAL_OR_GREATER.</pre>
-<pre><b>IF_LESS
-</b>-------
-If the current logic state is set to LESS by a subsequent COMPARE function,
-the following block will be executed.</pre>
-<pre><b>IF_LESS_OR_EQUAL
-</b>----------------
-If the current logic state is set to LESS or EQUAL, the following code block
-will be executed. This function is the same as IF_EQUAL_OR_LESS.</pre>
-<pre><b>ELSE
-</b>----
-This function marks the end of an IF_... block of code and begins an alternate
-block of code to be executed if the condition is not met for the IF_...
-function. The block of code is terminated with an END_IF function.</pre>
-<pre><b>END_IF
-</b>------
-This function is used to terminate an IF_... or ELSE code block. Every IF_...
-function must be followed by an ELSE or END_IF instruction, and every ELSE
-function must be followed by an END_IF.
-
-<b>SWITCH <int_var>
-</b>----------------
-<b>CASE <#>
-</b>--------
-<b>END_CASE
-</b>--------
-<b>DEFAULT
-</b>-------
-<b>END_SWITCH
-</b>----------
-The SWITCH function is used in conjunction with the CASE, DEFAULT, END_CASE,
-and END_SWITCH functions to replace multiple COMPARE/IF_.../ELSE statements.</pre>
-<pre>Example:</pre>
-<pre> INT I
- RANDOM I 3
- COMPARE I 0
- IF_EQUAL
- PRINT "Zero"
- ELSE
- COMPARE I 1
- IF_EQUAL
- PRINT "One"
- ELSE
- COMPARE I 2
- IF_EQUAL
- PRINT "Two"
- END_IF
- END_IF
- END_IF</pre>
-<pre>Could be replaced with:</pre>
-<pre> INT I
- RANDOM I 3
- SWITCH I
- CASE 0
- PRINT "Zero"
- END_CASE
- CASE 1
- PRINT "One"
- END_CASE
- CASE 2
- PRINT "Two"
- END_CASE
- DEFAULT
- PRINTF "Random returned %ld" I
- END_CASE
- END_SWITCH
-
-If the SWITCH argument value is equal to one of the specified CASE arguments,
-then that CASE code block is executed until an END_CASE function is reached.
-If an END_CASE function does not exist in the code block, the execution will
-continue through (fall-through) the following CASE or DEFAULT functions until
-an END_CASE or END_SWITCH function is reached.</pre>
-<pre>If the SWITCH argument does not match any of the CASE arguments, the DEFAULT
-code block will be executed until an END_CASE or END_SWITCH function is
-reached. If a DEFAULT function is not specified, execution will skip to the
-END_SWITCH function. Only one DEFAULT code block should be specified per
-SWITCH/END_SWITCH block, if used at all. This function set is the Baja
-equivalent of the standard C switch(), case:, default:, and break keywords.</pre>
-<pre><b>CMD_HOME
-</b>--------
-This function (called "Command Home") is very similar to a label. It is
-a convenience function for programming menu commands. It sets a return
-point (or anchor, if you will) for the automatic looping on a specific menu.
-Execution control is returned to the point in the code where the last CMD_HOME
-was specified by the END_CMD function.</pre>
-<pre><b>CMDKEY <key>
- args: cmd
-</b>------------
-This function (called "Command Key") is like a combination of the
-COMPARE_KEY and IF_TRUE functions. It is usually immediately preceded by
-a GETCMD, GETKEY, GETSTR or similar function.</pre>
-<pre>If the current command key matches the command key constant (cmd), then the
-block of code following (terminated with an END_CMD function) will be executed.
-When the END_CMD function is executed, execution control returns to the most
-recently executed CMD_HOME function. If a RETURN or GOTO function will be
-executed before the END_CMD function, then a CMD_POP function must be executed
-to tell the interpreter to "forget" the previous CMD_HOME function. Even if
-execution control will cause the END_CMD function to never be executed, it
-still must be present to define the code block so that it can be skipped if the
-CMDKEY comparison is false.
-
-<b>CMDKEYS <keylist>
- args: cmds
-</b>-----------------
-This function is identical to the CMDKEY function with the exception that the
-argument is a list of valid keys and if the current command key matches any
-of those listed, the following code block is executed.</pre>
-<pre><b>CMDSTR <"cstr">
- args: cmd
-</b>---------------
-This function (called "Command Str") is identical to the CMDKEY function
-with the exception that the argument is a C type string. It is usually
-immediately preceded by a GETSTR or similar function.</pre>
-<pre><b>END_CMD
-</b>-------
-This function is used to mark the end of a CMDKEY, CMDKEYS, or CMDSTR code
-block.</pre>
-<pre><b>CMD_POP
-</b>-------
-This function tells the interpreter to "forget" the most recently executed
-CMD_HOME function. It should only be used when a CMDKEY, CMDKEYS, or CMDSTR
-code block contains a GOTO or RETURN function.</pre>
-<pre><b>COMPARE_KEY <key>
- args: cmd
-</b>-----------------
-This function is identical to the CMDKEY function in regards to the
-key argument. The current command key is set by the GETCMD, GETKEY, GETSTR
-or similar functions. If the current command key matches the key argument,
-the current logic state is set to TRUE, otherwise it is set to FALSE.</pre>
-<pre>As with all COMPARE functions, it is usually immediately followed by an
-IF_TRUE or IF_FALSE function.</pre>
-<pre><b>COMPARE_KEYS <keylist>
- args: cmds
-</b>----------------------
-This function is identical to the CMDKEYS functions in regards to the
-keylist argument. If the current command key is contained in the keylist,
-then the current logic state is set to TRUE, otherwise it is set to FALSE.</pre>
-<pre><b>COMPARE_STR <"cstr">
- args: string
-</b>--------------------
-This function compares the current command string (set by the SETSTR,
-GETSTR, or similar functions) against the C type string argument and sets
-the current logic state to TRUE or FALSE accordingly. The comparison is not
-case sensitive. This function is the Baja equivalent to the standard C
-stricmp() function.
-
-<b>COMPARE_WORD <"cstr">
- args: string
-</b>---------------------
-This function is identical to the COMPARE_STR function with the
-exception that the current command string must only match the string argument
-for as many characters as included in the string argument.</pre>
-<pre>If for example, the current command string is "OPEN BLACKJACK" then the line:</pre>
-<pre> COMPARE_WORD "OPEN"</pre>
-<pre>would set the current logic state to TRUE since the first 4 characters of
-each string match, but the line:</pre>
-<pre> COMPARE_STR "OPEN"</pre>
-<pre>would set the current logic state to FALSE since the strings do not entirely
-match.</pre>
-<pre><b>COMPARE_ARS <txt>
- args: ars
-</b>-----------------
-This function compares the requirement string argument ars against the
-information on the current user and sets the current logic state to either
-TRUE or FALSE based on the result of the comparison. See the ARS chapter of
-the Synchronet sysop manual for details on the syntax of ARS.</pre>
-<pre>Example:
- COMPARE_ARS LEVEL 60
- IF_TRUE
- PRINT "You have level 60 or higher.\r\n"
- END_IF</pre>
-<pre><b>COMPARE_STRN <#> <str_var> <str_var or "cstr">
- args: num str1 str2
-</b>-----------------------------------------------
-This function is used to compare the first num characters of strings str1
-and str2. This function is the Baja equivalent of the standard C strnicmp()
-function. If the two strings are the same (ignoring case) for the first
-num characters, the current logic state is set to TRUE, otherwise it is set
-to FALSE.</pre>
-<pre><b>COMPARE_SUBSTR <str_var> <str_var or "cstr">
- args: str1 str2
-</b>--------------------------------------------
-This function is used to check if str2 is contained in str1 (case sensitive).
-This function is the Baja equivalent of the standard C strstr() function.
-If str2 is located in str1, the current logic state is set to TRUE, otherwise
-it is set to FALSE. This following example would set the current logic state
-to TRUE:</pre>
-<pre> SETSTR "This is a test"
- COMPARE_SUBSTR STR "test"
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2> <a name="DisplayFunctions">[4.5] - Display Functions</a>
-</h2>
-<pre>Display functions are used to display output to the user either locally,
-remotely, or both.</pre>
-<pre><b>PRINT <"cstr" or var>
-args: string
-</b>---------------------
-This function sends a string of characters to the user (both locally and
-remotely, if applicable). The string to be printed can extend beyond the 80th
-column of the screen, but when printing multiple lines, multiple consecutive
-PRINT statements are preferred.</pre>
-<pre>Example:
- PRINT "hello, world\r\n"
- or:
- STR my_var
- SET my_var "hello, world\r\n"
- PRINT my_var</pre>
-<pre>The string can contain color codes using Synchronet Ctrl-A codes. See the
-Synchronet sysop manual for the definition of Ctrl-A codes and their usage.
-If you are using an ASCII editor that does not support control characters,
-a "\1" can be used in place of the Ctrl-A (smiley face) character.</pre>
-<pre>Variables can also be included in the string (example: user's name, sysop's
-name, BBS name, etc) by using Synchronet supported @-codes and command line
-% specifiers. See the Synchronet sysop manual for the definition of @-codes
-and command line % specifiers. The %s command line specifier, when used, is
-replaced with the current command string and %f is replaced with the complete
-path of the current file directory. Be careful not to confuse command line %
-specifiers (%a, %b, etc) with printf % specifiers (described later). They can
-actually be used together in the same string (supported by PRINTF functions) by
-using double % for the command line % specifiers (e.g. %%s instead of %s).</pre>
-<pre><b>PRINTF <"cstr"> [any_var] [...]
- args: format variables
-</b>-------------------------------
-This function is similar to print, except that defined variables can be placed
-(formatted) into to displayed text output. This function is the Baja
-equivalent of the standard C printf() function. The format argument is a C type
-string with C printf() % specifiers for variable formatting.</pre>
-<pre>The valid specifiers are:</pre>
-<pre> %% Percent symbol
- %s String variable
- %#s String variable, minimum # chars wide, right justified
- %-#s String variable, minimum # chars wide, left justified
- %.#s String variable, maximum # chars wide
- %#.#s String variable, min and max width specified, right justified
- %-#.#s String variable, min and max width specified, left justified
- %ld Integer variable, decimal - use lx for hexadecimal (lX=caps)
- %#ld Integer variable minimum # chars wide right justified
- %-#ld Integer variable minimum # chars wide left justified
- %0#ld Integer variable minimum # digits wide zero padded</pre>
-<pre>Multiple variable names may be specified after the str argument, but each
-variable MUST be properly represented in the str argument with the correct
-PRINTF specifier (either %ld, %lx, or %s).</pre>
-<pre>Example:
- STR s
- SET s "hello, world"
- PRINTF "~%s~\r\n" s
- PRINTF "~%10s~\r\n" s
- PRINTF "~%.10s~\r\n" s
- PRINTF "~%-10s~\r\n" s
- PRINTF "~%.15s~\r\n" s
- PRINTF "~%-15s~\r\n" s
- PRINTF "~%15.10s~\r\n" s
- PRINTF "~%-15.10s~\r\n" s</pre>
-<pre>Would produce the following display:</pre>
-<pre> ~hello, world~
- ~hello, world~
- ~hello, wor~
- ~hello, world~
- ~hello, world ~
- ~ hello, wor~
- ~hello, wor ~
-
-And:
- INT i
- SET i 1234
- PRINTF "~%ld~\r\n" i
- PRINTF "~%3ld~\r\n" i
- PRINTF "~%6ld~\r\n" i
- PRINTF "~%-6ld~\r\n i
- PRINTF "~%06ld~\r\n" i
- PRINTF "~%06lx~\r\n" i
- PRINTF "~%06lX~\r\n" i</pre>
-<pre>Would produce the following display:</pre>
-<pre> ~1234~
- ~1234~
- ~ 1234~
- ~1234 ~
- ~001234~
- ~0004d2~
- ~0004D2~</pre>
-<pre><b>PRINT_LOCAL <"cstr">
- args: string
-</b>--------------------
-This function works identical to the PRINT function with the exception that
-the output is only displayed locally (on the BBS console). Ctrl-A codes
-and @-codes are not supported.</pre>
-<pre><b>PRINT_REMOTE <"cstr">
- args: string
-</b>---------------------
-This function works identical to the PRINT function with the exception that
-the output is only displayed remotely (on the user's terminal). If the current
-user is not logged on remotely, then no output is performed. Ctrl-A codes
-and @-codes are not supported.</pre>
-<pre><b>PRINTSTR
-</b>--------
-This function works identical to the PRINT function with the exception that
-this function does not accept a string argument, and instead uses the current
-command string (set with SETSTR, GETSTR, or similar function) as the character
-string to print.</pre>
-<pre>Example:
- SETSTR "hello, world\r\n"
- PRINTSTR</pre>
-<pre><b>PRINTKEY
-</b>--------
-This function displays the current command key. The command key is normally
-obtained with the GETKEY, GETCMD, or similar function.</pre>
-<pre><b>MNEMONICS <"cstr">
- args: string
-</b>------------------
-This function works identical to the PRINT function with the exception that
-the output is automatically colorized and characters following a tilde (~)
-are considered a mnemonic command character (hot key) and are high-lighted
-or placed in parentheses if the user's terminal does not support ANSI. If
-Ctrl-A codes are included in the str argument, then the automatic colorization
-and high-lighting is not used.</pre>
-<pre>Example:
- mnemonics "Select: ~Good, ~Bad, or ~Indifferent: "</pre>
-<pre><b>CLS
-</b>---
-This function clears the current text screen.</pre>
-<pre><b>CRLF
-</b>----
-This function displays a carriage return/line feed (new line). It is equivalent
-to PRINT "\r\n", but requires less memory and executes faster.</pre>
-<pre><b>PRINTFILE <"str" or str_var> [#] SBBSDEFS.INC
- args: file mode
-</b>----------------------------------
-Displays the contents of the file to the user (both locally and remotely, if
-applicable).</pre>
-<pre>Valid mode parameters:</pre>
-<pre>P_NOABORT Disallows abortion of display with Ctrl-C
-P_SAVEATR Retain attributes (colors) after display
-P_NOATCODES Don't expand @-code variables/actions
-P_OPENCLOSE Open and close immediately (before display)</pre>
-<pre>Multiple mode parameters can be specified by joining them together with the
-OR (|) symbol.</pre>
-<pre>Example:
- !INCLUDE SBBSDEFS.INC
- PRINTFILE "C:\TEXT\HELP.TXT" P_NOABORT|P_OPENCLOSE</pre>
-<pre><b>PRINTTAIL <str_var> <#> <#> SBBSDEFS.INC
- args: file mode x
-</b>-----------------------------
-Displays the last x number of lines of file. The valid mode parameters are the
-same as those shown for the PRINTFILE function. If you don't want any of the
-mode values, use 0 for the mode.</pre>
-<pre><b>PRINTFILE_STR
-</b>-------------
-This function is identical to the PRINTFILE function, with the exception that
-there is no argument, the current command string is used for the path and
-filename instead.</pre>
-<pre><b>PRINTFILE_LOCAL <"str">
- args: file
-</b>-----------------------
-This function works identical to the PRINTFILE function, with the exception
-that the contents are only displayed locally.</pre>
-<pre><b>PRINTFILE_REMOTE <"str">
- args: file
-</b>----------------------
-This function works identical to the PRINTFILE function, with the exception
-that the contents are only displayed remotely. If the user is not logged on
-remotely, then no output is performed.</pre>
-<pre><b>LIST_TEXT_FILE
-</b>--------------
-This function works similar to the PRINTFILE function, with the exception
-that the system password is required when run remotely and the user is prompted
-to enter the path and name of the file to list.</pre>
-<pre><b>EDIT_TEXT_FILE
-</b>--------------
-This function is generally for sysop use only. It will automatically prompt
-the user (if remote) for the system password, and then prompt them for the
-path and name of the file to edit.</pre>
-<pre><b>PAUSE
-</b>-----
-This function produces a "[Hit a key]" prompt and waits for the user to hit a
-key.</pre>
-<pre><b>MENU <"str">
-args: file
-</b>----------
-This function is similar to the PRINTFILE function with the exception that the
-TEXT\MENU directory is assumed to be the root path for the file and the file's
-extension (.ASC, .ANS, .MON, or .RIP) should not be specified. This function
-will automatically display the correct file based on the what the user's
-terminal supports and which menu files are available. To display a menu file
-in a different directory, a sub-directory can be specified before the filename.
-For example, do display the MAIN.* menu file in the TEXT\MENU\SIMPLE directory,
-you would use the following:</pre>
-<pre> MENU "SIMPLE\MAIN"</pre>
-<pre>To display the MAIN.* menu file in the TEXT\MENU directory, you would use the
-following:</pre>
-<pre> MENU "MAIN"</pre>
-<pre>You can also change the default menu directory with the SET_MENU_DIR function.
-Using the SET_MENU_FILE function, you can override the location and filename
-for MENUs that are displayed from within core functions of Synchronet.</pre>
-<pre><b>NODELIST_ALL
-</b>------------
-This function displays the current status of all nodes.</pre>
-<pre><b>NODELIST_USERS
-</b>--------------
-This function displays the current status of all nodes that are in use.</pre>
-<pre><b>USERLIST_SUB
-</b>------------
-This function displays all users that have access to the current message
-sub-board.</pre>
-<pre><b>USERLIST_DIR
-</b>------------
-This function displays all users that have access to the current file
-directory.</pre>
-<pre><b>USERLIST_ALL
-</b>------------
-This function displays all users that have active accounts on the BBS.</pre>
-<pre><b>USERLIST_LOGONS
-</b>---------------
-This function displays a list of the users who have logged on today.</pre>
-<pre><b>YES_NO <"cstr">
- args: question
-</b>----------------
-This function displays the question argument with automatic colorization
-followed by the text " (Y/n) ? " and waits for the user to hit 'Y', 'N' or CR.
-If CR (enter) is hit, then 'Y' is assumed. If the answer to the prompt is 'Y',
-then the current logic state is set to TRUE, otherwise it is set to FALSE.</pre>
-<pre>Example:
- YES_NO "Logoff Now"
- IF_TRUE
- LOGOFF
- END_IF</pre>
-<pre><b>NO_YES <"cstr">
- args: question
-</b>----------------
-This function is identical to the YES_NO function with the exception that the
-string is followed by text " (y/N) ? " and if CR is hit, then 'N' is assumed.
-If the answer to the prompt is 'N', then the current logic state is set to
-TRUE, otherwise it is set to FALSE.</pre>
-<pre>Example:
- NO_YES "Logoff Now"
- IF_FALSE
- LOGOFF
- END_IF</pre>
-<pre><b>READ_SIF <"str">
- args: file
-</b>--------------
-This function displays the contents of a SIF questionnaire data file (path and
-filename specified in the current command string). The data is read
-from the SIF data file and displayed through the SIF questionnaire file:
-"TEXT\file.SIF".</pre>
-<pre>The original SIF data file is created with the CREATE_SIF function. The
-SIF file used to create and display the data file do not have to be the same
-SIF file, but should have the same order and format of data types.</pre>
-<pre>See the Synchronet Sysop Manual for details on the SIF file format.</pre>
-<pre><b>SAVELINE
-</b>--------
-This function saves the current line of text on the console to an internal
-Synchronet buffer for later re-display with the RESTORELINE function.</pre>
-<pre><b>RESTORELINE
-</b>-----------
-This function re-displays a previously saved line of text to the local and
-remote console (if applicable).</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="InputFunctions">[4.6] - Input Functions</a>
-</h2>
-<pre>Input functions are used to obtain input data from the user (most often from
-the user's keyboard).</pre>
-<pre><b>INKEY
-</b>-----
-Checks to see if the user has hit a key. If the user has hit a key, the
-current command key is set to the hit key and the current logic state is
-set to TRUE, otherwise the logic state is set to FALSE. This function does
-not wait for a user to hit a key.</pre>
-<pre><b>GETKEY
-</b>------
-Waits for a single key from the user. The key is converted to upper case (if
-a letter) and becomes the current command key for functions such as CMDKEY,
-COMPARE_KEY, etc. The key is not echoed (displayed). Use the PRINTKEY function
-to display a key accepted with this function.</pre>
-<pre><b>GETKEYE
-</b>-------
-This function is identical to the GETKEY function with the exception that
-"slash commands" are allowed. That is, if the user hits the slash (/) key,
-then the slash is echoed and the system waits for another key from the user.
-The second key is converted to upper case (if a letter) and the slash/key
-combination becomes the current command key for functions such as CMDKEY,
-COMPARE_KEY, etc. The second key is not echoed (displayed). Use the PRINTKEY
-function to display a key accepted with this function.</pre>
-<pre><b>GETCMD <"cstr">
- args: keys
-</b>---------------
-This function is very similar to the GETKEY function, except that the 'keys'
-argument specifies the only valid key to be accepted. The keys arguments is
-a C style string, so carriage return (ENTER) is specified with a \r. If, for
-example, you wanted to allow the user to hit A, B, C or ENTER, then you would
-use the following:</pre>
-<pre> GETCMD "ABC\r"</pre>
-<pre>When an allowed key is hit, the key is converted to upper case (if a letter)
-and echoed (displayed) followed by a CRLF automatically. The key then becomes
-the current command key for functions such as CMDKEY, COMPARE_KEY, etc.</pre>
-<pre>Ctrl-C will always be allowed, in which case the command key becomes ^C.
-
-<b>GETSTR [str_var] [#] [#] SBBSDEFS.INC
- args: string max mode
-</b>---------------------------
-This function ("Get String"), is used to accept a string of characters from
-the user. The 'max' argument specifies the maximum length allowed for the
-string (in characters). 'max' should not exceed 79 characters for most uses.
-This function allows the user to enter any valid ASCII characters to form
-command words, sentences, etc. Control will not return to the module until the
-user either hits CR (ENTER), Ctrl-C, or Ctrl-V or is disconnected. The
-resultant string can then be used in functions such as CMDSTR, COMPARE_STR,
-COMPARE, SHIFT_STR, XTRN_EXEC, FILE_DOWNLOAD, etc.</pre>
-<pre>If string is not specified, the current command string is written to. If
-max is not specified, the value 128 is used.</pre>
-<pre>The valid mode parameters (defined in SBBSDEFS.INC) are:</pre>
-<pre>Mode Description
-~~~~ ~~~~~~~~~~~
-K_UPPER Converts all letters to upper case
-K_UPRLWR Upper/Lower case automatically
-K_NUMBER Allow numbers only
-K_WRAP Allows word wrap
-K_MSG Allows Ctrl-A codes and Ctrl-G (beep)
-K_SPIN Spinning cursor
-K_LINE Input line (inverse color)
-K_EDIT Edit string passed
-K_NOCRLF Don't print CRLF after string input
-K_ALPHA Only allow alphabetic characters
-K_LOWPRIO low priority input
-K_NOEXASC No extended ASCII allowed
-K_E71DETECT Detect E-7-1 terminal type
-K_AUTODEL Auto-delete text (used with EDIT)
-K_NOECHO Don't echo input to local or remote console</pre>
-<pre>Multiple mode parameters can be used by ORing them together with the | symbol.
-Example:</pre>
-<pre> GETSTR STR 25 K_UPRLWR|K_EDIT|K_AUTODEL</pre>
-<pre><b>GETLINE [str_var] [#]
- args: string max
-</b>--------------------------
-This function is identical to GETSTR with the exception that an inverse line
-is displayed to the user (if the user has an ANSI terminal) to show the maximum
-length of the input string.</pre>
-<pre><b>GETSTRUPR [str_var] [#]
- args: string max
-</b>------------------------
-This function ("Get String Upper") is identical to GETSTR with the exception
-that the string is automatically converted to uppercase as the user types.
-
-<b>GETNAME [str_var] [#]
- args: string max
-</b>----------------------
-This function is identical to GETSTR with the exception that the string is
-automatically converted to "Capitalized" words (as in a proper noun) as the
-user types.</pre>
-<pre><b>GETFILESPEC
-</b>-----------
-This function is specifically used to accept a file specification (name and/or
-wildcard characters) from the user. It will automatically display a prompt
-similar to:</pre>
-<pre>Filespec [*.*]:</pre>
-<pre>before waiting for the user to input the file specification. If the user hits
-CR, *.* is assumed to be the file specification. If a period is not included
-in the string, a ".*" is automatically appended (so CR, "*" and "*.*" all
-result in the same string: "*.*"). If the user enters "A*", the string becomes
-"A*.*". If the user enters "A*." the string remains unchanged. If the user
-hits Ctrl-C, the current logic state is set to FALSE. Otherwise, the logic
-state is set to TRUE.</pre>
-<pre>Example:</pre>
-<pre> GETFILESPEC
- IF_TRUE
- FILE_DOWNLOAD
- END_IF</pre>
-<pre><b>GETLINES
-</b>--------
-This function only has an effect if the user is logged on remotely, has
-ANSI terminal capability and their screen lines set to "Auto-detect". It
-sends an ANSI sequence to detect the number of screen lines in the text window
-of the remote terminal and waits for a response.</pre>
-<pre><b>GETNUM [any_var] <#>
- args: dest max
-</b>---------------------
-This function is similar to GETSTR with the exception that it only excepts
-numbers as input and automatically stops accepting input if the number being
-input would exceed max (maximum of 32767). The dest variable (current
-command string if not specified) will contain the number and the current logic
-state will be TRUE unless the user hit 'Q', Ctrl-C, or enter instead of a
-number.
-
-<b>GET_TEMPLATE <"str">
-</b>------------------
-This function is much line GETLINE except that an input template is passed
-as an argument to this function. The template is useful when requiring the
-user to input a string of a fixed format, like a date, for example. The
-characters in the template have special meaning: N indicates only a number may
-be used in this position, A indicates only an alphabetic character, and !
-indicates any character may be used in that position. Characters other than
-N, A, or ! are automatically displayed and used in the current command string
-in those positions. The first character of the template must be either N, A, or
-!. An example (date format):</pre>
-<pre> GET_TEMPLATE "NN/NN/NN"</pre>
-<pre>would require the user to input two numbers, then automatically skip the
-slash character, two more numbers, skip the slash, then two more numbers.</pre>
-<pre>Another example (Canadian postal code):</pre>
-<pre> GET_TEMPLATE "ANA NAN"</pre>
-<pre>would require the user to input a letter, then a number, another letter,
-automatically skip the space, another number, another letter, and one more
-number. No other characters (symbols or otherwise) would be allowed in the
-string using the above template example.</pre>
-<pre><b>CHKSYSPASS
-</b>----------
-This function ("Check System Password") displays an SY: prompt to the user
-and waits for the user to input the system password (with no echo). If the
-password is correct, the current logic state is set to TRUE, otherwise it
-is set to FALSE.
-
-<b>CREATE_SIF <"str">
- args: file
-</b>----------------
-This function is used to present the user with a SIF questionnaire and store
-their answers in a data file. The str argument is the filename of a .SIF file
-(without the .SIF extension) located in your Synchronet TEXT directory. The
-user's answers are stored in a data file whose path and filename are specified
-in the current command string. The data file should be specified with the
-user's number to ensure unique data filenames. Example:</pre>
-<pre> SETSTR "C:\\SBBS\\USER%4.DAT"
- CREATE_SIF "NEWUSER"</pre>
-<pre>This would read the file TEXT\NEWUSER.SIF and the user would fill-out the
-questionnaire with all answers being stored in the file C:\SBBS\USER####.DAT
-(where #### would be the user's number padded with zeros to four digits).
-The questionnaire could then be read back with the answers filled in.
-Example:</pre>
-<pre> SETSTR "C:\\SBBS\\USER%4.DAT"
- READ_SIF "NEWUSER"</pre>
-<pre>See the Synchronet Sysop Manual for details on the SIF questionnaire format.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="MiscellaneousFunctions">[4.7] - Miscellaneous Functions</a>
-</h2>
-<pre><b>ONLINE
-</b>------
-Assume online execution (default mode), auto-return from module if user is
-disconnected or logged off.</pre>
-<pre><b>OFFLINE
-</b>-------
-Assume offline execution, no carrier and no one online locally. If used
-(for OFFLINE modules), must be the FIRST executed function of the module.</pre>
-<pre><b>LOGIN <"cstr">
- args: pwprompt
-</b>---------------
-Process login attempt using the current command string as the user name/number
-and pwprompt for the password prompt. This function may also prompt for the
-system password with the SY: prompt if the user has level 90 or higher.</pre>
-<pre><b>LOGON
-</b>-----
-Logon the currently logged-in user. This function must be called before the
-LOGIN module terminates if the user is to be allowed online. This function,
-in turn, executes the LOGON module, if one is configured in SCFG.</pre>
-<pre><b>LOGOFF
-</b>------
-This function prompts the user if they really wish to log off. If they
-answer Yes, then any logoff events are executed and the LOGOFF menu file
-is displayed before they are disconnected.</pre>
-<pre><b>LOGOFF_FAST
-</b>-----------
-This function immediately drops carrier and logs the user off. It differs
-from the HANGUP function in that it performs a SYNC function, then it
-immediately drops carrier, as opposed to the HANGUP function which does not
-perform a SYNC operation and has a buffer flush delay before actually
-dropping carrier.</pre>
-<pre><b>LOGOUT
-</b>------
-Logout the currently logged-on user. This function is used solely for
-re-logging-in an already connected user.</pre>
-<pre><b>NEWUSER
-</b>-------
-Begins the new user application process.
-
-<b>SET_MENU_DIR <"str">
- args: dir
-</b>------------------
-This function sets the default menu directory for the MENU function (normally
-..\TEXT\MENU). This function is useful for globally changing the directory
-where MENU files will be retrieved from (including internal Synchronet
-functions that can not be modified with a shell). The following is an example
-of how to use this function along with the MENU function:</pre>
-<pre> # The next line would display ..\TEXT\MENU\MAIN.*
- MENU "MAIN"</pre>
-<pre> # Change the directory for menus</pre>
-<pre> MENU_DIR "..\TEXT\MYMENUS"</pre>
-<pre> # This next line would now display ..\TEXT\MYMENUS\MAIN.*
- MENU "MAIN"</pre>
-<pre><b>SET_MENU_FILE <"str">
- args: path_and_filename
-</b>--------------------------------
-This function is used to OVERRIDE the filename specified for a menu displayed
-in an internal Synchronet function. Example:</pre>
-<pre> SET_MENU_FILE "..\TEXT\MYMENUS\EMAIL.RIP"
- MAIL_READ</pre>
-<pre><b>SYNC
-</b>----
-This function synchronizes the local and remote displays (waits for the remote
-terminal to catch up), displays any internode messages waiting for this node,
-and synchronizes the current node status with the shared node database file.
-It should be called before all command prompts are displayed.</pre>
-<pre><b>ASYNC
-</b>-----
-This function is identical to the SYNC function with the exception that any
-pending output (menu, text file, etc.) can be aborted by hitting any key.</pre>
-<pre><b>RIOSYNC
-</b>-------
-This function synchronizes the remote console (waits for output buffers to
-be sent or aborted).</pre>
-<pre><b>PUT_NODE
-</b>--------
-Force flush (write) of current node information (who's online, etc) to disk.</pre>
-<pre><b>PAUSE_RESET
-</b>-----------
-This function resets the line counter used for the automatic screen pause
-Feature.</pre>
-<pre><b>CLEAR_ABORT
-</b>-----------
-This function clears the abort (Ctrl-C) status flag.</pre>
-<pre><b>UNGETKEY
-</b>--------
-This function puts the current command key into the input buffer to be the
-next key retrieved with GETKEY, GETCMD, GETSTR, or similar functions.</pre>
-<pre><b>UNGETSTR
-</b>--------
-This function puts the entire contents of the current command string into the
-input buffer.</pre>
-<pre><b>HANGUP
-</b>------
-This function immediately disconnects and logs the user off.
-
-<b>EXEC <"str">
-args: cmd
-</b>----------
-This function calls the operating system to spawn the 'cmd' command line
-specified. Remote users will not see or be able to interact with the program
-executed unless the program is aware of the remote user and is specifically
-designed to be run remotely (i.e. DOORs).</pre>
-<pre>If an internal DOS command is to be executed, a command processor must be
-loaded. Example:</pre>
-<pre> EXEC "COMMAND /C COPY C:\FILES\NEWFILE.TXT C:\DOWNLOADS"</pre>
-<pre>Synchronet's command line specifiers can also be used:</pre>
-<pre> EXEC "%!dsz portx %u,%i sz file.zip"</pre>
-<pre>See the Synchronet sysop manual, appendix A for a list of valid specifiers.
-When used from a command shell or module, %f will be replaced with the path
-to the current file directory, and %s will be replaced with the current
-command string.</pre>
-<pre><b>EXEC_INT <"str">
- args: cmd
-</b>--------------
-This function ("Execute with I/O intercepted") is identical to the EXEC
-function with the exception that DOS I/O interrupts (screen output and keyboard
-input) is intercepted and redirected to the COM port if the user is logged on
-remotely. This allows programs that use standard DOS I/O for screen output
-to be displayed remotely. Example:</pre>
-<pre> EXEC_INT "COMMAND /C DIR C:\FILES\*.TXT"</pre>
-<pre><b>EXEC_BIN <"str">
- args: name
-</b>--------------
-This function loads and executes a Baja module. A .BIN file with the filename
-specified as the 'name' argument must exist in the Synchronet EXEC directory
-for this function. If for example, you want a shell to load and execute
-MYMOD.BIN from your EXEC directory, you would add the following to one or more
-command shells:</pre>
-<pre> EXEC_BIN "MYMOD"</pre>
-<pre><b>EXEC_XTRN <"str">
- args: code
-</b>---------------
-This function executes the online external program specified by it's internal
-code with the 'code' argument. If an online external program is not found with
-a matching internal code or the user does not have access to that program, this
-function does nothing.
-
-<b>LOG <"cstr">
-args: string
-</b>------------
-This function writes the C type 'str' argument to the system's activity log
-file for the current date if the user is logged on remotely.</pre>
-<pre><b>LOGSTR
-</b>------
-This function is identical to the LOG function with the exception that a
-string argument is not used, but instead the current command string is written
-to the system's activity log file.</pre>
-<pre><b>LOGKEY
-</b>------
-This function writes the current command key to the system's activity log file
-for the current date if the user is logged on remotely.</pre>
-<pre><b>LOGKEY_COMMA
-</b>------------
-This function is identical to the LOGKEY function, with the exception that a
-comma (,) is prepended to the command key to separate it visually from other
-logged command keys.</pre>
-<pre><b>NODE_STATUS <#> NODEDEFS.INC
- args: status
-</b>-------------------
-This function is used to set the current node status. The valid status
-parameters (defined in NODEDEFS.INC) are:</pre>
-<pre>Status Description
-~~~~~~ ~~~~~~~~~~~
-NODE_WFC Waiting for caller
-NODE_LOGON User logging on
-NODE_NEWUSER New user applying for access
-NODE_INUSE User online
-NODE_QUIET User online in quiet mode
-NODE_OFFLINE Offline (down)
-NODE_NETTING Networking
-NODE_EVENT_WAITING Waiting for another node to run timed event
-NODE_EVENT_RUNNING Running timed event
-NODE_EVENT_LIMBO Waiting for all nodes to be downed</pre>
-<pre>Only one status parameter may be used.
-
-<b>NODE_ACTION <#> NODEDEFS.INC
- args: action
-</b>-------------------
-This function is used to set the current node action. The valid action
-parameter (defined in NODEDEFS.INC) are:</pre>
-<pre>Action Description
-~~~~~~ ~~~~~~~~~~~
-NODE_MAIN Main Prompt
-NODE_RMSG Reading Messages
-NODE_RMAL Reading Mail
-NODE_SMAL Sending Mail
-NODE_RTXT Reading G-Files
-NODE_RSML Reading Sent Mail
-NODE_PMSG Posting Message
-NODE_AMSG Auto-message
-NODE_XTRN Running External Program
-NODE_DFLT Main Defaults Section
-NODE_XFER File Transfer Prompt
-NODE_DLNG Downloading File
-NODE_ULNG Uploading File
-NODE_BXFR Bidirectional Transfer
-NODE_LFIL Listing Files
-NODE_LOGN Logging on
-NODE_LCHT In Local Chat with Sysop
-NODE_MCHT In Multi-Chat with Other Nodes
-NODE_GCHT In Local Chat with Guru
-NODE_CHAT In Chat Section
-NODE_SYSP Sysop Activity
-NODE_TQWK Transferring QWK packet
-NODE_PCHT In Private Chat
-NODE_PAGE Paging another node for Private Chat
-NODE_RFSD Retrieving file from seq dev (node.aux=dev)</pre>
-<pre>Only one action parameter may be used.</pre>
-<pre><b>INC_MAIN_CMDS
-</b>-------------
-This function increments the "main menu command" counter that can be used in
-ARS comparisons.</pre>
-<pre><b>INC_FILE_CMDS
-</b>-------------
-This function increments the "file menu command" counter that can be used in
-ARS comparisons.
-
-<b>COMPARE_USER_MISC <#> USERDEFS.INC
- args: attrs
-</b>------------------------
-This function is used to compare the current user's miscellaneous attributes
-to the attrs argument specified. If all the attrs specified are ENABLED for the
-current user, then the current logic state is set to TRUE, otherwise it is set
-to FALSE. One or more of the following attributes (defined in USERDEFS.INC)
-can be specified:</pre>
-<pre>Attribute Description
-~~~~~~~~~ ~~~~~~~~~~~
-UM_EXPERT Expert menu mode
-UM_DELETED Deleted user
-UM_INACTIVE Inactive user
-UM_AUTOTERM Automatic terminal type detection
-UM_ANSI ANSI terminal
-UM_COLOR Color terminal (ANSI)
-UM_RIP RIP compatible terminal
-UM_WIP WIP compatible terminal
-UM_NO_EXASCII Extended ASCII not supported
-UM_UPAUSE Automatic screen pause
-UM_SPIN Spinning cursor
-UM_ANFSCAN Automatic new file scan
-UM_CLRSCRN Clear screen between messages
-UM_QUIET Default to quiet mode (if 'Q' exempt)
-UM_BATCHFLAG Batch flagging mode enabled
-UM_NETMAIL Forward E-mail to NetMail
-UM_CURSUB Remember current sub-board and directory
-UM_ASK_NSCAN Ask for new-scans at logon
-UM_ASK_SSCAN Ask for your message scan at logon
-UM_COLDKEYS Cold keys (CR required - opposite of Hot Keys)
-UM_EXTDESC Extended file descriptions in listings</pre>
-<pre>Multiple attributes can be specified by ORing them together with the OR (|)
-symbol. Example:</pre>
-<pre> COMPARE_USER_MISC UM_ANSI|UM_COLOR
-
-
-<b>COMPARE_USER_CHAT <#> USERDEFS.INC
- args: attrs
-</b>------------------------
-This function is used to compare the current user's chat attributes to the
-attrs argument specified. If all the attrs specified are ENABLED for the
-current user, then the current logic state is set to TRUE, otherwise it is set
-to FALSE. One or more of the following attributes (defined in USERDEFS.INC) can
-be specified:</pre>
-<pre>Attribute Description
-~~~~~~~~~ ~~~~~~~~~~~
-CHAT_ECHO Echo users input in multinode chat
-CHAT_ACTION Action commands enabled in multinode chat
-CHAT_NOPAGE This user can't be paged by other users
-CHAT_NOACT This user will not receive node activity (logon/off) alerts
-CHAT_SPLITP This user prefers split-screen private node-to-node chat</pre>
-<pre>Multiple attributes may be specified by ORing them together with the OR (|)
-symbol. Example:</pre>
-<pre> COMPARE_USER_CHAT CHAT_NOACT|CHAT_NOPAGE</pre>
-<pre><b>COMPARE_USER_QWK <#> USERDEFS.INC
- args: attrs
-</b>-----------------------
-This function is used to compare the current user's QWK attributes to the attrs
-argument specified. If all the attrs specified are ENABLED for the current
-user, then the current logic state is set to TRUE, otherwise it is set to
-FALSE. One or more of the following attrs (defined in USERDEFS.INC) can be
-specified:</pre>
-<pre>Attribute Description
-~~~~~~~~~ ~~~~~~~~~~~
-QWK_FILES Include new files list in QWK packet
-QWK_EMAIL Include unread e-mail/netmail messages in QWK packet
-QWK_ALLMAIL Include all mail in QWK packet
-QWK_DELMAIL Automatically delete packed e-mail after download
-QWK_BYSELF Include messages in QWK packet from self
-QWK_EXPCTLA Expand Ctrl-A codes in messages to ANSI
-QWK_RETCTLA Retain (keep) Ctrl-A codes in messages
-QWK_ATTACH Include file attachments in QWK packet
-QWK_NOINDEX Do not include .NDX files in QWK packet
-QWK_TZ Include time zone (@TZ) in messages
-QWK_VIA Include message path (@VIA) in messages
-QWK_NOCTRL Do not include control files (DOOR.ID, CONTROL.DAT, etc)</pre>
-<pre>Multiple attributes may be specified by ORing them together with the OR (|)
-symbol. Example:</pre>
-<pre> COMAPARE_USER_QWK QWK_TZ|QWK_VIA
-
-<b>COMPARE_NODE_MISC <#> NODEDEFS.INC
- args: attrs
-</b>------------------------
-This function is used to compare the current node's misc attributes to the
-attrs argument specified. If all the attrs specified are ENABLED for the
-current node, then the current logic state is set to TRUE, otherwise it is set
-to FALSE. The valid attributes (defined in NODEDEFS.INC) are:</pre>
-<pre>Attribute Description
-~~~~~~~~~ ~~~~~~~~~~~
-NODE_ANON Anonymous node
-NODE_LOCK Locked node (sysop's and N exempt users only)
-NODE_INTR Interrupted node (log user off ASAP)
-NODE_MSGW Short message waiting for this node
-NODE_POFF Not available for paging
-NODE_AOFF No node activity alerts
-NODE_UDAT User data has been updated by another node
-NODE_RRUN Re-run this node after user logs off
-NODE_EVENT Run node daily event after user logs off
-NODE_DOWN Down this node after user logs off
-NODE_NMSG Node message waiting for this node
-NODE_EXT Extended status information available for this node</pre>
-<pre>Multiple attributes may be specified by ORing them together with the OR (|)
-symbol. Example:</pre>
-<pre> COMPARE_NODE_MISC NODE_DOWN|NODE_INTR</pre>
-<pre><b>TOGGLE_USER_MISC <#> USERDEFS.INC
- args: attrs
-</b>-----------------------
-This function is used to toggle specific attributes on or off for the current
-user. The valid attrs for the argument are identical to those used for the
-COMPARE_USER_MISC function.
- </pre>
-<pre>You cannot specify if you want the attribute turned ON or OFF with this
-command. Use in combination with the COMPARE_USER_MISC function to specifically
-enable or disable a user's attribute. Example to turn the NETMAIL misc attr OFF
-for the current user:</pre>
-<pre> !INCLUDE USERDEFS.INC
- COMPARE_USER_MISC UM_NETMAIL
- IF_TRUE
- TOGGLE_USER_MISC UM_NETMAIL
- END_IF</pre>
-<pre><b>TOGGLE_USER_CHAT <#> USERDEFS.INC
- args: attrs
-</b>-----------------------
-This function is used to toggle specific chat attributes on or off for the
-current user. The valid attrs for the argument are identical to
-those used for the COMPARE_USER_CHAT function.</pre>
-<pre>You cannot specify if you want the attribute turned ON or OFF with this
-command. Use in combination with the COMPARE_USER_CHAT function to specifically
-enable or disable a chat attribute. Example to turn the Split Screen Private
-Chat (CHAT_SPLITP) attribute OFF for the current user:</pre>
-<pre> COMPARE_USER_CHAT CHAT_SPLITP
- IF_TRUE
- TOGGLE_USER_CHAT CHAT_SPLITP
- END_IF</pre>
-<pre><b>TOGGLE_USER_QWK <#> USERDEFS.INC
- args: attrs
-</b>----------------------
-This function is used to toggle specific QWK attributes on or off for the
-current user. The valid attrs for the argument are identical to those used for
-the COMPARE_USER_QWK function.</pre>
-<pre>You cannot specify if you want the attr turned ON or OFF with this command. Use
-in combination with the COMPARE_USER_QWK function to specifically enable or
-disable a QWK attribute.</pre>
-<pre><b>TOGGLE_NODE_MISC <#> NODEDEFS.INC
- args: attrs
-</b>-----------------------
-This function is used to toggle the miscellaneous attributes associated with
-the current node. The valid attrs for the argument are identical to those used
-for the COMPARE_NODE_MISC function.</pre>
-<pre><b>TOGGLE_USER_FLAG <char> <char>
- args: set flag
-</b>-----------------------------
-This function is used to toggle the state of one of the current user's flags.
-The first argument is a single character indicating the flag set. Valid
-flag sets are 1, 2, 3, 4, or E for exemption, or R for restriction. The
-second argument is the actual flag character to toggle (A through Z).
-
-<b>ADJUST_USER_CREDITS <#>
- args: adj
-</b>------------------------
-This function is used to add or subtract credits from the current user. The
-'adj' argument must be either a positive or negative number (in Kilobytes).
-Example, to subtract 100K in credits from the current user:</pre>
-<pre> ADJUST_USER_CREDITS -100</pre>
-<pre><b>ADJUST_USER_MINUTES <#>
- args: adj
-</b>------------------------
-This function is used to add or subtract minutes from the current user's
-minute bank. The 'adj' argument must be either a positive or negative number.
-Example, to subtract 60 minutes from the current user:</pre>
-<pre> ADJUST_USER_MINUTES -60</pre>
-<pre><b>SET_USER_LEVEL <#>
- args: level
-</b>---------------------
-This function changes the current user's security level to the number passed
-as the argument.
-
-<b>SET_USER_STRING <#> USERDEFS.INC
- args: user_string
-</b>----------------------------
-This function changes one of the current user's text string fields to the
-value of the current command string. The user_string argument must be one of
-the following (defined in USERDEFS.INC):</pre>
-<pre>User_string Description
-~~~~~~~~~~~ ~~~~~~~~~~~
-USER_STRING_ALIAS User's alias or real name on real name based BBSs
-USER_STRING_REALNAME User's real name or company name
-USER_STRING_HANDLE User's chat handle
-USER_STRING_COMPUTER User's computer type description
-USER_STRING_NOTE User's note/Caller-ID
-USER_STRING_ADDRESS User's street address
-USER_STRING_LOCATION User's city, state
-USER_STRING_ZIPCODE User's zip/postal code
-USER_STRING_PASSWORD User's password
-USER_STRING_BIRTHDAY User's birthday (MM/DD/YY or DD/MM/YY)
-USER_STRING_PHONE User's phone number
-USER_STRING_MODEM User's modem type description
-USER_STRING_COMMENT User's secret sysop comment</pre>
-<pre><b>USER_EVENT <#> SBBSDEFS.INC
- args: event_type
-</b>----------------------
-This function forces immediate execution of all online events for the specified
-event_type. The valid event_types (defined in SBBSDEFS.INC) are:</pre>
-<pre>Event_type Description
-~~~~~~~~~~ ~~~~~~~~~~~
-EVENT_LOGON Execute during logon sequence
-EVENT_NEWUSER Execute during newuser app.
-EVENT_BIRTHDAY Execute on birthday
-EVENT_LOGOFF Execute during normal logoff</pre>
-<pre><b>AUTO_MESSAGE
-</b>------------
-This function allows the user to read and write to the auto-message. If the
-user has the 'W' restriction, they will not be allowed to write to the
-auto-message.</pre>
-<pre><b>USER_DEFAULTS
-</b>-------------
-This function takes the user to the default configuration menu where they
-can modify their default settings (e.g. Terminal type, Command Shell, etc).
-If the user selects a new command shell while in this function, the new
-shell is loaded and executed immediately (from the top) instead of resuming
-with the shell that originally called this function.
-
-<b>USER_EDIT
-</b>---------
-This function is used to edit the user information for the user name or number
-specified in the current command string. Since almost all user information can
-be changed and other users can be edited from this section, this is normally
-reserved as a "sysop only" operation.</pre>
-<pre><b>TEXT_FILE_SECTION
-</b>-----------------
-This function takes the user to the General Text File section of the system.</pre>
-<pre><b>XTRN_EXEC
-</b>---------
-This function is identical to the EXEC_XTRN function with the exception that
-the external program's internal code is contained in the current command string
-instead of an argument.</pre>
-<pre><b>XTRN_SECTION
-</b>------------
-This function takes the user to the external program section of the system.</pre>
-<pre><b>MINUTE_BANK
-</b>-----------
-This function allows the user to convert credits into minutes, or deposit
-unused free minutes (if allowed) in their minute bank.</pre>
-<pre><b>CHANGE_USER
-</b>-----------
-This function prompts the user for the system password and if entered
-correctly, then prompts them for the user name or number to change into.
-This is normally reserved as a "sysop only" operation. After changing into
-a "non-sysop" user, the temp sysop status is set so the user may change back
-into the original or another user.</pre>
-<pre><b>ANSI_CAPTURE
-</b>------------
-This function enables the capture of ANSI terminal escape sequences when the
-local capture (Alt-L) is in use. This is normally reserved as a "sysop only"
-operation.</pre>
-<pre><b>FINDUSER
-</b>--------
-Scans the user database for the user name or partial name in the current
-command string. If the name is found, the logic state is set to TRUE. If the
-name is not found, it is set to FALSE.</pre>
-<pre><b>SELECT_SHELL
-</b>------------
-This function displays a list of the available command shells and allows the
-user to choose a command shell. If a shell is not selected, the logic state
-is set to FALSE.
-
-<b>SET_SHELL
-</b>---------
-This function attempts to set the current user's shell to the internal code
-contained in the current command string. If the internal code is not valid or
-the user does not have access to that shell, the logic state is set to FALSE.</pre>
-<pre><b>SELECT_EDITOR
-</b>------------
-This function displays a list of the available external editors and allows the
-user to choose an editor. If an editor is not selected, the logic state
-is set to FALSE.</pre>
-<pre><b>SET_EDITOR
-</b>----------
-This function attempts to set the current user's editor to the internal code
-contained in the current command string. If the internal code is not valid or
-the user does not have access to that external editor, the logic state is set
-to FALSE.</pre>
-<pre><b>TRASHCAN <"str">
- args: file
-</b>--------------
-This function opens the file TEXT\file.CAN and searches for the current
-command string. If the string is found in the file the current logic state is
-set to TRUE and if the file TEXT\BADfile.MSG exists, it is automatically
-displayed to the user. If the string is not found, the logic state is set to
-FALSE.</pre>
-<pre>If a line in the .CAN file ends in a tilde (~), the contents of the line may
-be found anywhere in the tested string and result in a TRUE logic state.</pre>
-<pre>If a line in the .CAN file ends in a caret (^), the contents of the line must
-begin the tested string to result in a TRUE logic state.</pre>
-<pre><b>GETTIMELEFT
-</b>-----------
-Checks the user's current time left online and disconnects the user (with a
-message) if they're out of time.</pre>
-<pre><b>MSWAIT <#>
- args: num
-</b>-----------
-Suspends execution for num milliseconds (gives up time-slices).</pre>
-<pre><b>SEND_FILE_VIA <char> <"str" or str_var>
- args: prot path_and_filename
-</b>---------------------------------------
-Immediately begins a transfer of a file from the local disk (path_and_filename)
-to the remote user using the specified protocol (prot must match the command
-key of one of the configured protocols in SCFG).
-
-<b>RECEIVE_FILE_VIA <char> <"str" or str_var>
- args: prot path_and_filename
-</b>---------------------------------------
-Immediately begins a transfer of a file from the remote user using the
-specified protocol (prot must match the command key of one of the configured
-protocols in SCFG). The path_and_filename variable may be set to a directory
-name for protocols that don't require a specified filename (i.e. Ymodem,
-Zmodem, etc - NOT Xmodem). [SBBS 2.3]
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="MailFunctions">[4.8] - Mail Functions</a>
-</h2>
-<pre>The following functions are related to private E-mail.</pre>
-<pre><b>MAIL_READ
-</b>---------
-This function retrieves and displays mail waiting in the mail-box of the
-current user, if any.</pre>
-<pre><b>MAIL_READ_SENT
-</b>--------------
-This function retrieves and displays mail that the current user has sent and
-is still pending deletion in the mail-box(es) of the recipient(s).</pre>
-<pre><b>MAIL_READ_ALL
-</b>-------------
-This function retrieves and displays all the e-mail on the system. This
-function is normally reserved as a "sysop only" operation.</pre>
-<pre><b>MAIL_SEND
-</b>---------
-This function attempts to send mail to the user specified by the current
-command string. If the user name or number specified in the string cannot be
-located, the operation is aborted and the current logic state is set to FALSE.
-If the user name or number is located, the current logic state is set to TRUE.
-Example usage:</pre>
-<pre> PRINT "Send mail to who? "
- GETNAME 25
- MAIL_SEND</pre>
-<pre><b>MAIL_SEND_FILE
-</b>--------------
-This function is identical to the MAIL_SEND function with the exception that
-a file attachment is included with the mail message.</pre>
-<pre><b>MAIL_SEND_BULK
-</b>--------------
-This function is used to send bulk (multiple destination) mail. The function
-is normally reserved as a "sysop only" operation, but some sysops may want
-some or all users to have the ability to send bulk mail.</pre>
-<pre><b>MAIL_SEND_FEEDBACK
-</b>------------------
-This function is identical to the MAIL_SEND function with the exception that
-"Re: Feedback" is placed at the top of the mail message.
-
-<b>MAIL_SEND_NETMAIL
-</b>-----------------
-This function prompts the user for a user name and netmail address. If the
-user just hits CR, the current logic state is set to FALSE, otherwise a NetMail
-operation is attempted and the logic state is set to TRUE.</pre>
-<pre><b>MAIL_SEND_NETFILE
-</b>-----------------
-This function is identical to the MAIL_SEND_NETMAIL function with the exception
-that if the NetMail file attachments are allowed, this function will allow the
-user to send an attached file to a netmail message (for FidoNet or Internet).
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="MessageBaseFunctions">[4.9] - Message Base Functions</a>
-</h2>
-<pre>The following functions are related to the system's message base.</pre>
-<pre><b>MSG_SET_AREA
-</b>------------
-This function uses the current command string to search all sub-boards the
-current user has access to for an internal code matching the current command
-string. If the internal code is found, that sub-board becomes the current
-sub-board and the current logic state is set to TRUE, otherwise it is set to
-FALSE and the current sub-board remains unchanged.</pre>
-<pre><b>MSG_SET_GROUP
-</b>-------------
-This function uses the current command string to search all message groups the
-current user has access to for a short name matching the current command
-string. If the short name is found, that group becomes the current group and
-the current logic state is set to TRUE, otherwise it is set to FALSE and the
-current group remains unchanged.</pre>
-<pre><b>MSG_SELECT_AREA
-</b>---------------
-This function prompts the user to select a message group (if the user has
-access to more than one) and sub-board. If the user aborts the selection,
-the current logic state is set to FALSE and the current sub-board is unchanged.
-Otherwise, the logic state is set to TRUE and the selected sub-board becomes
-the current sub-board.</pre>
-<pre><b>MSG_SHOW_GROUPS
-</b>---------------
-This function displays a list of message groups the current user has access to.</pre>
-<pre><b>MSG_SHOW_SUBBOARDS
-</b>------------------
-This function displays a list of sub-boards within the current message group
-that the user has access to.</pre>
-<pre><b>MSG_GROUP_UP
-</b>------------
-This function moves the current message group up by one. If already at the
-highest group, then it wraps to the first group.</pre>
-<pre><b>MSG_GROUP_DOWN
-</b>--------------
-This function is the opposite of the MSG_GROUP_UP function.
-
-<b>MSG_SUBBOARD_UP
-</b>---------------
-This function moves the current message sub-board up by one. If already at
-the highest sub-board in the current group, it wraps to the first sub-board
-in the current group.</pre>
-<pre><b>MSG_SUBBOARD_DOWN
-</b>-----------------
-This function is the opposite of the MSG_SUBBOARD_UP function.</pre>
-<pre><b>MSG_GET_SUB_NUM
-</b>---------------
-This function accepts a number from the user to change the current sub-board.</pre>
-<pre><b>MSG_GET_GRP_NUM
-</b>---------------
-This function accepts a number from the user to change the current message
-group.</pre>
-<pre><b>MSG_READ
-</b>--------
-This function is used to read messages in the current sub-board. If the
-read is aborted, the current logic state is set to FALSE, otherwise it is set
-to TRUE.</pre>
-<pre><b>MSG_POST
-</b>--------
-This function attempts to post a message on the current sub-board. If the user
-does not have posting access on the current sub-board or the post is aborted,
-the current logic state is set to FALSE, otherwise it is set to TRUE.</pre>
-<pre><b>MSG_QWK
-</b>-------
-This function puts the user in the QWK message packet section.</pre>
-<pre><b>MSG_PTRS_CFG
-</b>------------
-This function allows the user to manipulate their new-message scan pointers.</pre>
-<pre><b>MSG_PTRS_REINIT
-</b>---------------
-This function resets the user's new-message scan pointers to their value at
-logon.</pre>
-<pre><b>MSG_NEW_SCAN_CFG
-</b>----------------
-This function allows the user to manipulate their new-message scan
-configuration.</pre>
-<pre><b>MSG_NEW_SCAN
-</b>------------
-This function performs a new message scan on either the current sub-board,
-current message group, or all sub-boards.</pre>
-<pre><b>MSG_NEW_SCAN_ALL
-</b>----------------
-This function performs a new message scan on all sub-boards.</pre>
-<pre><b>MSG_NEW_SCAN_SUB
-</b>----------------
-This function performs a new message scan on the current sub-board. If the
-new-scan is aborted, the current logic state is set to FALSE.</pre>
-<pre><b>MSG_CONT_SCAN
-</b>-------------
-This function performs a continuous new message scan on either the current
-sub-board, current message group, or all sub-boards.</pre>
-<pre><b>MSG_CONT_SCAN_ALL
-</b>-----------------
-This function performs a continuous new message scan on all sub-boards.</pre>
-<pre><b>MSG_BROWSE_SCAN
-</b>---------------
-This function is identical to the MSG_NEW_SCAN function, with the exception
-that if there are no new messages in a sub-board, the last message posted
-will be displayed.</pre>
-<pre><b>MSG_BROWSE_SCAN_ALL
-</b>-------------------
-This function performs a browse scan on all sub-boards.</pre>
-<pre><b>MSG_FIND_TEXT
-</b>-------------
-This function prompts for a search string from the user and searches the
-current sub-board, current group, or all sub-boards for the text.</pre>
-<pre><b>MSG_FIND_TEXT_ALL
-</b>-----------------
-This function performs a text search on all sub-boards.</pre>
-<pre><b>MSG_YOUR_SCAN_CFG
-</b>-----------------
-This function allows the user to configure their un-read personal message
-scan.</pre>
-<pre><b>MSG_YOUR_SCAN
-</b>-------------
-This function performs an un-read personal message scan on the current
-sub-board, current message group, or all sub-boards.</pre>
-<pre><b>MSG_YOUR_SCAN_ALL
-</b>-----------------
-This function performs an un-read personal message scan on all sub-boards.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="FileBaseFunctions">[4.10] - File Base Functions</a>
-</h2>
-<pre><b>FILE_SET_AREA
-</b>-------------
-This function uses the current command string to search all directories the
-current user has access to for an internal code matching the current command
-string. If the internal code is found, that directory becomes the current
-directory and the current logic state is set to TRUE, otherwise it is set to
-FALSE and the current directory remains unchanged.</pre>
-<pre><b>FILE_SET_LIBRARY
-</b>----------------
-This function uses the current command string to search all libraries the
-current user has access to for a short name matching the current command
-string. If the short name is found, that library becomes the current library
-and the current logic state is set to TRUE, otherwise it is set to FALSE and
-the current library remains unchanged.</pre>
-<pre><b>FILE_SELECT_AREA
-</b>---------------
-This function prompts the user to select a file library (if the user has
-access to more than one) and directory. If the user aborts the selection,
-the current logic state is set to FALSE the current directory is unchanged.
-Otherwise, the logic state is set to TRUE and the selected directory becomes
-the current directory.</pre>
-<pre><b>FILE_SHOW_LIBRARIES
-</b>-------------------
-This function displays a list of all file libraries the current user has
-access to.</pre>
-<pre><b>FILE_SHOW_DIRECTORIES
-</b>---------------------
-This function displays a list of all directories within the current library
-that the user has access to.</pre>
-<pre><b>FILE_LIBRARY_UP
-</b>---------------
-This function increments the current file library. If already at the last
-library, it will wrap to the first library.</pre>
-<pre><b>FILE_LIBRARY_DOWN
-</b>-----------------
-This function is the opposite of the FILE_LIBRARY_UP function.</pre>
-<pre><b>FILE_DIRECTORY_UP
-</b>-----------------
-This function increments the current file directory. If already at the last
-directory in the current library, it will wrap to the first directory of the
-library.
-
-<b>FILE_DIRECTORY_DOWN
-</b>-------------------
-This function is the opposite of the FILE_DIRECTORY_UP function.</pre>
-<pre><b>FILE_GET_DIR_NUM
-</b>----------------
-This function waits for the user to enter a number to be used to change the
-current file directory.</pre>
-<pre><b>FILE_GET_LIB_NUM
-</b>----------------
-This function waits for the user to enter a number to be used to change the
-current file library.</pre>
-<pre><b>FILE_LIST
-</b>---------
-This function displays the contents matching the filespec contained in the
-current command string of the current file directory. If the listing is
-aborted, the current logic state is set to FALSE, otherwise it is set to TRUE.
-Example:</pre>
-<pre> GETFILESPEC
- IF_TRUE
- FILE_LIST
- END_IF</pre>
-<pre><b>FILE_LIST_EXTENDED
-</b>------------------
-This function displays the extended information about the files in the current
-directory that match the filespec contained in the current command string.</pre>
-<pre><b>FILE_VIEW
-</b>---------
-This function views the contents of the files that match the filespec in the
-current command string.</pre>
-<pre><b>FILE_UPLOAD
-</b>-----------
-This function attempts to upload to the current file directory. If the user
-cannot upload for some reason, the current logic state is set to FALSE.
-Otherwise, it is set to TRUE.</pre>
-<pre><b>FILE_UPLOAD_USER
-</b>----------------
-This function allows a user to upload a file specifically to another user,
-provided the sysop has created a "User" file transfer directory for
-user-to-user transfers. If the user cannot upload to the user directory or one
-doesn't exist, the current logic state is set to FALSE, otherwise it set to
-TRUE.
-
-<b>FILE_UPLOAD_SYSOP
-</b>-----------------
-This function allows the user to upload a file to the invisible sysop
-directory. If the user does not have upload access to the sysop directory or a
-sysop directory has not been created, the current logic state is set to FALSE,
-otherwise, it is set to TRUE.</pre>
-<pre><b>FILE_DOWNLOAD
-</b>-------------
-This function attempts to download all files matching the filespec contained
-in the current command string.</pre>
-<pre><b>FILE_DOWNLOAD_USER
-</b>------------------
-This function attempts to download any user-to-user files pending for the
-current user. If there are no files waiting for the user or the user does not
-have download access to the user directory, the current logic state is set
-to FALSE, otherwise it is set to TRUE.</pre>
-<pre><b>FILE_DOWNLOAD_BATCH
-</b>-------------------
-This function attempts to download any files in the batch download queue.
-If there are no files in the queue or the user answers No to the question if
-they wish to download the files now, then the current logic state is set to
-FALSE. If there are files in the queue and the user answers Yes to the question
-if they wish to download the files, then the logic state is set to TRUE.</pre>
-<pre><b>FILE_REMOVE
-</b>-----------
-This function attempts to remove any files the user has uploaded (unless
-R exempt) that match the filespec contained in the current command string.</pre>
-<pre><b>FILE_BATCH_ADD
-</b>--------------
-This function attempts to add the filename contained in the current command
-string to the batch download queue. If the filename is not found, the current
-logic state is set to FALSE.</pre>
-<pre><b>FILE_BATCH_ADD_LIST
-</b>-------------------
-This function opens the list file specified in the current command string and
-attempts to add each filename (one filename per line) to the current user's
-batch download queue. After the list file is read, it is automatically deleted.</pre>
-<pre><b>FILE_BATCH_CLEAR
-</b>----------------
-This function clears the current batch download queue.</pre>
-<pre><b>FILE_BATCH_SECTION
-</b>------------------
-This function takes the user to the Batch/Bi-dir transfer menu where they
-can edit the batch queues and initiate batch or bi-directional file transfers.
-
-<b>FILE_TEMP_SECTION
-</b>-----------------
-This function takes the user to the temporary archive menu where they can
-extract archives, create file listings, and compress temporary files for
-download.</pre>
-<pre><b>FILE_NEW_SCAN
-</b>-------------
-This function scans the current directory, current library, or all directories
-for new files.</pre>
-<pre><b>FILE_NEW_SCAN_ALL
-</b>-----------------
-This function scans all directories for new files.</pre>
-<pre><b>FILE_FIND_TEXT
-</b>--------------
-This function prompts the user to enter a search string which is used in a
-text search of all file descriptions in the current directory, current library,
-or all directories.</pre>
-<pre><b>FILE_FIND_TEXT_ALL
-</b>------------------
-This function prompts the user for a search string to use in a text search
-of file descriptions in all directories.</pre>
-<pre><b>FILE_FIND_NAME
-</b>--------------
-This function prompts the user for a filespec and searches the current
-directory, current library, or all directories for files matching the
-specification.</pre>
-<pre><b>FILE_FIND_NAME_ALL
-</b>------------------
-This function prompts the user for a filespec and searches all directories for
-files matching that specification.</pre>
-<pre><b>FILE_PTRS_CFG
-</b>-------------
-This function allows the user to change their new file scan date/time. If the
-pointer is changed, the current logic state is set to TRUE, otherwise it is
-set to FALSE.</pre>
-<pre><b>FILE_SET_ALT_PATH
-</b>-----------------
-This function sets the current upload path to the alternate path number
-contained in the current command string. This function is normally reserved as
-a "sysop only" operation, used to upload files on CD-ROM in most cases.</pre>
-<pre><b>FILE_RESORT_DIRECTORY
-</b>---------------------
-This function is used to resort (if directory sort order or type has changed)
-and compress (if any deleted file slots exist) the current directory, current
-library or all directories. All other nodes must be inactive for this function
-to work. The current command string must be set (with SETSTR, GETSTR, or
-similar function) to "ALL" (resort all directories), "LIB" (resort current
-library), or "" (current directory only).</pre>
-<pre><b>FILE_GET
-</b>--------
-This function is used to remotely download a file that is not in the file
-database. This function is normally reserved as a "sysop only" operation.
-The path and filename to be downloaded are contained in the current command
-string.</pre>
-<pre><b>FILE_SEND
-</b>---------
-Same as FILE_GET, but doesn't require system password.</pre>
-<pre><b>FILE_PUT
-</b>--------
-This function is used to remotely upload a file to the system's hard disk,
-but not place the file in the file database. This is normally reserved as a
-"sysop only" operation. The path and filename to be uploaded are contained in
-the current command string.</pre>
-<pre><b>FILE_UPLOAD_BULK
-</b>----------------
-This function is used to do a local bulk upload of files that are in the
-physical DOS directory, but not already in the file database. This is normally
-reserved as a "sysop only" operation. If the current command string is set to
-"ALL", then all directories will be scanned, "LIB" then only the current
-library, and "" indicates only the current directory.</pre>
-<pre><b>FILE_FIND_OLD
-</b>-------------
-This function is used to search directories for files that have not be
-downloaded since the current new file scan date (set with FILE_PTRS_CFG).
-For each file that is found, the user is prompted if they wish to remove the
-file. This is normally reserved as a "sysop only" operation. If the current
-string is set to "ALL", then all directories will be scanned "LIB" indicates
-only the current library, and "" indicates only the current directory.</pre>
-<pre><b>FILE_FIND_OPEN
-</b>--------------
-This function searches for file records that are currently open. This function
-should not be used with other nodes in use. For each open file that is found,
-the user is prompted if they wish to close the file record. As with the
-FILE_FIND_OLD function, the current command string must contain "ALL", "LIB",
-or "" to specify the search range.
-
-<b>FILE_FIND_OFFLINE
-</b>-----------------
-This function searches for files that are in the database, but not in the
-physical DOS directory. For each missing file that is found, the user is
-prompted if they wish to move or remove the file. This normally reserved as a
-"sysop only" operation. As with the FILE_FIND_OLD function, the current command
-string must contain "ALL", "LIB", or "" to specify the search range.</pre>
-<pre><b>FILE_FIND_OLD_UPLOADS
-</b>---------------------
-This function searches for files that were uploaded before the current new
-scan date (set with FILE_PTRS_CFG). For each file that is found, the user is
-prompted if they wish to remove the file. This is normally reserved as a "sysop
-only" operation. As with the FILE_FIND_OLD function, the current command string
-must contain "ALL", "LIB", or "" to specify the search range.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ChatFunctions">[4.11] - Chat Functions</a>
-</h2>
-<pre>The following functions are chat related in nature.</pre>
-<pre><b>PAGE_SYSOP
-</b>----------
-This function is used to page the sysop at the local console.</pre>
-<pre><b>PAGE_GURU
-</b>---------
-This function initiates chat with the guru who's internal codes is in the
-current command string. Example (using SMARTGUY as the internal code):</pre>
-<pre> SETSTR "SMARTGUY"
- PAGE_GURU</pre>
-<pre><b>PRIVATE_CHAT
-</b>------------
-This function is used to initiate private node-to-node chat.</pre>
-<pre><b>PRIVATE_MESSAGE
-</b>---------------
-This function is used for private internode messages, telegrams, or chat.
-Same as the Ctrl-P initiated function.</pre>
-<pre><b>CHAT_SECTION
-</b>------------
-This function takes the user immediately to the chat menu where they can
-join multinode chat and perform various other chat related operations.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="InformationFunctions">[4.12] - Information Functions</a>
-</h2>
-<pre><b>INFO_SYSTEM
-</b>-----------
-This function displays various system information.</pre>
-<pre><b>INFO_SUBBOARD
-</b>-------------
-This function displays information about the current message sub-board.</pre>
-<pre><b>INFO_DIRECTORY
-</b>--------------
-This function displays information about the current file directory.</pre>
-<pre><b>INFO_USER
-</b>---------
-This function displays information about the current user.</pre>
-<pre><b>INFO_VERSION
-</b>------------
-This function displays version information about the system software.</pre>
-<pre><b>INFO_XFER_POLICY
-</b>----------------
-This function displays the system's transfer policy.</pre>
-<pre><b>GURU_LOG
-</b>--------
-This function displays the GURU.LOG file from the DATA directory and prompts
-the user if they wish to delete the log. This is normally reserved as a
-"sysop only" operation.</pre>
-<pre><b>ERROR_LOG
-</b>---------
-This function displays the ERROR.LOG file from the DATA directory and prompts
-the user if they wish to delete the log and/or clear the error counters for
-the nodes. This is normally reserved as a "sysop only" operation.
-
-<b>SYSTEM_LOG
-</b>----------
-This function displays the system's detailed activity log for the current date.
-This is normally reserved as a "sysop only" operation.</pre>
-<pre><b>SYSTEM_YLOG
-</b>-----------
-This function displays the system's detailed activity log for the previous day.
-This is normally reserved as a "sysop only" operation.</pre>
-<pre><b>SYSTEM_STATS
-</b>------------
-This function displays cumulative system usage statistics.
-This is normally reserved as a "sysop only" operation.</pre>
-<pre><b>NODE_STATS
-</b>----------
-This function displays cumulative usage statistics for the current node.
-This is normally reserved as a "sysop only" operation.</pre>
-<pre><b>SHOW_MEM
-</b>--------
-This function displays the amount of free memory available.
-This is normally reserved as a "sysop only" operation.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="FileI/OFunctions">[4.13] - File I/O Functions</a>
-</h2>
-<pre>These functions allow Baja modules to read (input) from and write (output) to
-disk files. If any of the following functions fail, the current logic state
-will be set to FALSE and the system variable _ERRNO will contain the reason
-for the failure. All file I/O functions require SBBS v2.2 or later.</pre>
-<pre><b>FOPEN <int_var> <#> <"str" or str_var> FILE_IO.INC
- args: handle access path_and_filename
-</b>------------------------------------------
-This function opens or creates a disk file (path_and_filename) for read and/or
-write access. This function is the Baja equivalent of the standard C fopen()
-function. No file I/O operations can be performed on a file until it has been
-opened with this function. The 'handle' argument must be a defined integer
-variable name. The 'access' argument is the requested open access. The access
-flags (defined in FILE_IO.INC) are:</pre>
-<pre>Access Flag Description
-~~~~~~~~~~~ ~~~~~~~~~~~
-O_RDONLY Read Only
-O_WRONLY Write Only
-O_RDWR Read and write
-O_CREAT Create (create if doesn't exist)
-O_APPEND Append (writes to end of file)
-O_TRUNC Truncate (truncates file to 0 bytes automatically)
-O_EXCL Exclusive (only open/create if file doesn't exist)
-O_DENYNONE Deny None (shareable, for use with record locking)</pre>
-<pre>To specify multiple access flags, place an OR symbol (|) between each. Example:</pre>
-<pre> O_WRONLY|O_TRUNC</pre>
-<pre>If the file does not exist it will be created if the O_CREAT access was
-specified. If the O_CREAT and O_EXCL access flags are set then the open will
-fail if the file already exists.</pre>
-<pre>Example:</pre>
-<pre> !INCLUDE FILE_IO.INC</pre>
-<pre> INT file
- FOPEN file O_RDWR|O_CREAT "%jFILENAME.EXT"</pre>
-<pre>Would open the file FILENAME.EXT in the BBS data directory (%j is the
-Synchronet command line % specifier for the data directory) for reading and
-writing, creating it if it didn't already exist. All later accesses to the file
-must use the same integer variable ("file" in the above example). If the open
-is successful, the current logic state is set to TRUE, otherwise it is set to
-FALSE.
-
-<b>FCLOSE <int_var>
- args: handle
-</b>----------------
-All files opened with the FOPEN function remain open until either this function
-(FCLOSE) is used to close the file (using the same unmodified 'handle') or the
-current shell or module is terminated. This function is the Baja equivalent
-of the standard C fclose() function. A maximum of 10 files can be concurrently
-opened by a shell or module at any given time.</pre>
-<pre><b>FREAD <int_var> <any_var> [int_var or #]
- args: handle dest length
-</b>----------------------------------------
-This function is used to read from a disk file (specified by 'handle') into a
-string or integer variable (specified by 'dest') from the current file
-position. This function is the Baja equivalent of the standard C fread()
-function.</pre>
-<pre>The optional 'length' argument specifies the number of bytes to read. It must
-be between 1 and 4 if the dest argument is an integer variable and between 1
-and 1024 if the dest argument is a string variable. If 'length' is not
-specified, then 4 bytes is assumed for integer variables or the current string
-length for string variables (or 128 if an uninitialized or 0 length string
-variable is specified). The current file position will be automatically moved
-forward by the number of bytes successfully read from the file.</pre>
-<pre>If the FSET_ETX function has been used to set the end-of-text character to
-something other than 0 and the dest argument is a string variable, the string
-will be terminated at the first end-of-text character read from the file from
-the current position.</pre>
-<pre>It is suggested that a 'length' argument always be specified for string
-variable destinations, though it is not usually necessary for integer variable
-destinations.</pre>
-<pre><b>FWRITE <int_var> <any_var> [int_var or #]
- args: handle source length
-</b>-----------------------------------------
-This function is used to write an integer or string variable ('source') to a
-disk file ('handle') at the current file position. This function is the Baja
-equivalent of the standard C fwrite() function. If the optional 'length'
-argument is specified, it will determine the number of bytes written to the
-file. If 'source' is a string variable and the number of bytes to be written
-exceeds the string length, the current end-of-text character will be used to
-fill the extra bytes. If 'length' is not specified, 4 bytes will be used for
-integer 'source' variables and the current string length will be used for
-string 'source' variables. The current file position will be automatically
-moved forward by the number of bytes successfully written to the file.</pre>
-<pre><b>FFLUSH <int_var>
- args: handle
-</b>----------------
-This function forces any pending writes to the disk file ('handle'). All files
-opened by Baja modules use buffered I/O for performance. Closing an open file
-flushes any pending output as well. You may wish to use this function in
-multinode applications where it is important that other nodes have immediate
-access to the data written to a file while it is still open. This function is
-the Baja equivalent of the standard C fflush() function. [SBBS 2.3]
-
-<b>FGET_LENGTH <int_var> <int_var>
- args: handle length
-</b>-------------------------------
-This function gets the current length (in bytes) of the file pointed to by
-'handle', and writes the value to the integer variable 'length'. This function
-is the Baja equivalent of the standard C filelength() function.</pre>
-<pre><b>FSET_LENGTH <int_var> <int_var>
- args: handle length
-</b>-------------------------------
-This function changes the length of the file pointed to by 'handle' to the
-value contained in the integer variable 'length'. If the file is shortened,
-any bytes beyond the specified length are lost. If the file is extended, the
-unused bytes will be automatically padded with 0. This function is the Baja
-equivalent of the standard C chsize() function.</pre>
-<pre><b>FGET_TIME <int_var> <int_var>
- args: handle time
-</b>-----------------------------
-This function gets the current date/time stamp of the file pointed to by
-'handle' and writes this value into the 'time' variable. This function is
-the Baja equivalent of the standard C getftime() function.</pre>
-<pre><b>FSET_TIME <int_var> <int_var>
- args: handle time
-</b>-----------------------------
-This function sets the current date/time stamp of the file pointed to by
-'handle' to the value contained in the 'time' variable. This function is the
-Baja equivalent of the standard C setftime() function.</pre>
-<pre><b>FEOF <int_var>
-args: handle
-</b>--------------
-This function checks the file specified by 'handle' to see if the current
-file position is at the end of the file. If it is currently at the end of the
-file, the current logic state is set to TRUE. If it is not at the end of the
-file or the file 'handle' is not currently open, the logic state is set to
-FALSE. This function is the Baja equivalent of the standard C feof() function.</pre>
-<pre><b>FGET_POS <int_var> <int_var>
- args: handle offset
-</b>----------------------------
-This function gets the current file position (in bytes from the beginning of
-the file) for the file specified by 'handle' and writes the value into the
-integer variable 'offset'. This function is the Baja equivalent of the
-standard C ftell() function.
-
-<b>FSET_POS <int_var> <int_var or #> [#] FILE_IO.INC
- args: handle offset whence
-</b>-----------------------------------------
-This function is used to reposition (seek) within the file specified by
-'handle' to the offset specified by 'offset' from 'whence', if specified.
-If 'whence' is not specified the 'offset' will be considered from the beginning
-of the file. This function is the Baja equivalent of the standard C fseek()
-function. The valid values of whence (defined in FILE_IO.INC) are:</pre>
-<pre>Whence Description
-~~~~~~ ~~~~~~~~~~~
-SEEK_SET From the beginning of the file
-SEEK_CUR From current file position
-SEEK_END From end of file</pre>
-<pre>The 'offset' (not offspring) variable can be either an integer variable or
-an integer constant. It may be negative (to move the file position backwards),
-positive (forwards), or 0 (to specify no offset from 'whence').</pre>
-<pre>Example:</pre>
-<pre> !INCLUDE FILE_IO.INC</pre>
-<pre> # Open file
- INT file
- FOPEN file O_RDWR|O_CREAT "TEXT.TXT"
- IF_FALSE
- # Failed!
- RETURN
- END_IF</pre>
-<pre> # Go to end of file
- FSET_POS file 0 SEEK_END</pre>
-<pre> # Go to beginning of file
- FSET_POS file 0</pre>
-<pre> # Go to offset 256 in file
- FSET_POS file 256</pre>
-<pre> # Seek forward 100 bytes
- FSET_POS file 100 SEEK_CUR</pre>
-<pre> # Seek backward 50 bytes
- FSET_POS file -50 SEEK_CUR</pre>
-<pre> FCLOSE file
-
-<b>FLOCK <int_var> <int_var or #>
- args: handle length
-</b>------------------------------
-This function is used to lock a file record of 'length' bytes from the
-current file position of the file pointed to by 'handle'. If the record cannot
-after 10 retries (one second apart), the current logic state will be set to
-FALSE. All records that are locked should be subsequently unlocked before the
-file is closed or any user interaction or lengthy processing is begun. This
-function is the Baja equivalent of the C locking(int,LK_LOCK,long) function.</pre>
-<pre><b>FUNLOCK <int_var> <int_var or #>
- args: handle length
-</b>--------------------------------
-This function is used to unlock a file record previously locked by the
-current module. The current file position of 'handle' must be the start of
-the record and the 'length' must be the same length as originally specified
-to the FLOCK function. This function is the Baja equivalent of the C
-locking(int,LK_UNLCK,long) function.
-
-<b>FPRINTF <int_var> <"cstr"> [any_var] [...]
- args: handle format variables
-</b>------------------------------------------
-This function is very similar to the PRINTF and SPRINTF functions. The
-exception is that the output of the formatted string is written to the current
-file position of the file specified by 'handle'. This function is the
-Baja equivalent of the standard C fprintf() function.</pre>
-<pre>Example:
- # Variables
- INT file length time
- # Open for append
- FOPEN file O_WRONLY|O_CREAT|O_APPEND "TEXT.TXT"
- IF_FALSE
- # Failed!
- RETURN
- END_IF</pre>
-<pre> FGET_LENGTH file length
- FGET_TIME file time
- TIME_STR str time
- FPRINTF file "Length: %ld Time: %s\r\n" length str
- FCLOSE file</pre>
-<pre><b>FREAD_LINE <int_var> <any_var>
- args: handle dest
-</b>------------------------------
-Reads a single line from the open file specified by 'handle' into the
-destination variable specified by 'dest'. If the destination variable is
-a string variable, the terminating carriage return and line feed (if present
-in the file) will be included in the string variable. You can use the
-TRUNCSP function to remove them if needed.</pre>
-<pre>If the read is successful, the current logic state is set to TRUE, otherwise
-it is set to FALSE. This function is the Baja equivalent of the standard C
-fgets() function.</pre>
-<pre><b>FSET_ETX <#>
- args: etx
-</b>-------------
-This function is used to set the end-of-text character for the current
-shell or module. The default end-of-text character is 0. It is used by the
-FREAD and FWRITE functions to pad/terminate string variables when read from
-and writing to disk files. The 'etx' argument must be a number from 0 to 255.
-Many of Synchronet's data files (USER.DAT, for example) use 3 (appears as
-^C or a heart) for an end-of-text character. If you intend to read or write
-from any files that use a non-zero end-of-text character, you'll want to use
-this function before using FREAD or FWRITE.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="FileSystemFunctions">[4.14] - File System Functions</a>
-</h2>
-<pre>These functions allow Baja modules to perform operations on unopened files.</pre>
-<pre><b>CHKFILE <"str" or str_var>
- args: path_and_filename
-</b>--------------------------
-This function checks for the existence of the 'path_and_filename' specified.
-The path_and_filename should contain path and possibly drive specifications
-(i.e. CHKFILE C:\MYDIR\MYFILE.TXT). If the file exists the current logic state
-is set to TRUE, otherwise it is set to FALSE.</pre>
-<pre><b>REMOVE_FILE <str_var>
- args: path_and_filename
-</b>------------------------------
-This function attempts to remove the specified path_and_filename. If the
-removal was successful, the current logic state is set to TRUE, otherwise it
-is set to FALSE. This function is the Baja equivalent of the standard C
-unlink() and remove() functions.</pre>
-<pre><b>RENAME_FILE <str_var> <str_var>
- args: source dest
-</b>-------------------------------
-This function attempts to rename the file specified as 'source' to the name
-specified in 'dest'. If a different path is specified for 'dest', the drive
-letter must be the same. If the renaming is successful, the current logic
-state is set to TRUE, otherwise it is set to FALSE. This function is the
-equivalent of the standard C rename() function.</pre>
-<pre><b>COPY_FILE <str_var> <str_var>
- args: source dest
-</b>-----------------------------
-This function attempts to copy the file specified as 'source' to the path
-AND filename specified in 'dest'. If the copy is successful, the current logic
-state is set to TRUE, otherwise it is set to FALSE.</pre>
-<pre><b>MOVE_FILE <str_var> <str_var>
- args: source dest
-</b>-----------------------------
-This function attempts to move the file specified as 'source' to the path
-AND filename specified in 'dest'. If the source and dest paths are on the
-same drive, this function is the same as a RENAME_FILE. If the source and
-dest paths are on separate drives, then the this is the same as a COPY_FILE
-with the exception that the source file is automatically deleted. If the
-move is successful, the current logic state is set to TRUE, otherwise it is
-set to FALSE.</pre>
-<pre><b>GET_FILE_ATTRIB <int_var> <str_var> DIR_ATTR.INC
- args: dest file
-</b>-----------------------------------
-This function retrieves the directory attributes for the file and writes them
-into the dest variable. This function is the Baja equivalent of the C
-_chmod(char *,0) function.</pre>
-<pre><b>SET_FILE_ATTRIB <int_var> <str_var> DIR_ATTR.INC
- args: attrib file
-</b>-----------------------------------
-This function sets the directory attributes for the specified file according
-to the attrib flags. This function is the Baja equivalent of the C
-_chmod(char *,1) function. Valid attrib flags (defined in DIR_ATTR.INC) are:</pre>
-<pre>Flag Description
-~~~~ ~~~~~~~~~~~
-FA_RDONLY Read Only
-FA_HIDDEN Hidden
-FA_SYSTEM System
-FA_LABEL Volume Label
-FA_DIREC Directory (or subdirectory)
-FA_ARCH Archive</pre>
-<pre>Multiple flags may be specified by ORing the flags together with the OR (|)
-symbol. Example:</pre>
-<pre> !INCLUDE DIR_ATTR.INC
- INT I
- SETSTR "MYFILE.TXT"
- SET I FA_HIDDEN|FA_SYSTEM
- SET_FILE_ATTRIB I STR</pre>
-<pre># End of DIR_ATTR.INC</pre>
-<pre><b>GET_FILE_TIME <int_var> <str_var>
- args: dest file
-</b>---------------------------------
-Retrieves the current date/time stamp of the specified file and writes it
-into the specified dest variable. If the date/time stamp could not be read
-(file doesn't exist perhaps), the value -1 is written to the dest variable.</pre>
-<pre><b>GET_FILE_LENGTH <int_var> <str_var>
- args: dest file
-</b>-----------------------------------
-Retrieves the current length of the specified file and writes it into the
-specified dest variable. If the file doesn't exist, the value -1 is written
-to the dest variable.</pre>
-<h2><a name="DirectorySystemFunctions">[4.15] - Directory System Functions</a>
-</h2>
-<pre>These functions allow Baja modules to perform operations on directories and
-subdirectories of the local file system.</pre>
-<pre><b>MAKE_DIR <str_var>
- args: dir
-</b>------------------
-This function attempts to create the directory specified as dir. If the
-directory is successfully created, the current logic state is set to TRUE,
-otherwise it is set to FALSE and the system variable _ERRNO will contain
-the reason. This function is the Baja equivalent of the standard C mkdir()
-function.</pre>
-<pre><b>CHANGE_DIR <str_var>
- args: dir
-</b>--------------------
-This function attempts to change the current directory to the directory
-specified in dir. Since Synchronet assumes the current directory is the
-current NODE directory at all times, this is a very dangerous function
-and should not be used unless absolutely necessary. If the directory is changed
-successfully, the current logic state is set to TRUE, otherwise it is set to
-FALSE and the system variable _ERRNO will contain the reason. This function
-is the Baja equivalent of the standard C chdir() function.</pre>
-<pre><b>REMOVE_DIR <str_var>
- args: dir
-</b>--------------------
-This function attempts to remove the directory specified as dir. If the
-removal is unsuccessful (files in the directory, directory doesn't exist,
-etc.) the current logic state will be set to FALSE and the system variable
-_ERRNO will contain the reason. This function is the Baja equivalent of the
-standard C rmdir() function.</pre>
-<pre><b>OPEN_DIR <int_var> <str_var>
- args: handle dir
-</b>----------------------------
-This function attempts to open the directory specified as dir (should end
-in a '.'). If the directory is successfully opened, the handle is set to
-the directory handle and the current logic state is set to TRUE, otherwise
-the logic state is set to FALSE. This function is the Baja equivalent of the
-standard C opendir() function.</pre>
-<pre><b>READ_DIR <int_var> <str_var>
- args: handle filename
-</b>----------------------------
-This function reads the next file name from the open directory handle and
-puts it into the string variable specified as filename. If the read is
-unsuccessful (no more files in directory) the current logic state is set to
-FALSE and the system variable _ERRNO will contain the reason. This function
-is the Baja equivalent of the standard C readdir() function.</pre>
-<pre><b>REWIND_DIR <int_var>
- args: handle
-</b>--------------------
-This function rewinds the open directory handle to the first directory entry
-(file name). This function is the Baja equivalent of the standard C rewinddir()
-function.</pre>
-<pre><b>CLOSE_DIR <int_var>
- args: handle
-</b>-------------------
-This function closes a previously opened directory handle. This function is
-the Baja equivalent of the standard C closedir() function.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="SystemVariables">[5.1] - System Variables</a>
-</h2>
-<pre>System variables are global variables that are initialized and/or used by
-Synchronet during operation. They should not be defined in your Baja module.
-You must declare these variables by including (with !INCLUDE) SBBSDEFS.INC
-or by declaring (with !GLOBAL) the individual variable names you wish to use.</pre>
-<pre>These may be used anywhere a user-defined global variable may be used, with
-the exception that many variables may not be written to (modified directly
-by a shell or module). In some cases, there are specific Baja functions for
-modifying otherwise "unmodifiable" system variables. These "Read Only" system
-variables are indicated here with an asterisk (*).</pre>
-<pre><b>String Variables</b>
-----------------
-_USERON.ALIAS *Alias/Real Name of user online
-_USERON.NAME *Real/Company Name of user online
-_USERON.HANDLE *Chat Handle of user online
-_USERON.COMP *Computer description for user online
-_USERON.NOTE *Note for user online
-_USERON.ADDRESS *Address of user online
-_USERON.LOCATION *Location of user online
-_USERON.ZIPCODE *Zip/Postal Code of user online
-_USERON.PASS *Password of user online
-_USERON.BIRTH *Birthdate of user online
-_USERON.PHONE *Phone Number of user online
-_USERON.MODEM *Modem/Connection description of user online
-_USERON.NETMAIL *NetMail Forwarding Address for user online
-_USERON.TMPEXT *Temp File Extension (i.e. ZIP) for user online
-_USERON.COMMENT *Sysop Comment for user online
-_CONNECTION Current connection description
-_CAP_FNAME Capture file name
-_CID Caller-ID information
-_COMSPEC *Path to operating system command interpreter</pre>
-<pre><b>Integer Variables
-</b>-----------------
-_USERON.NUMBER *Number of user online
-_USERON.ULS *Total number of files uploaded by user online
-_USERON.DLS *Total number of files downloaded by user online
-_USERON.POSTS *Total number of posts sent by user online
-_USERON.EMAILS *Total number of e-mails sent by user online
-_USERON.FBACKS *Total number of feedbacks sent by user online
-_USERON.ETODAY *Total number of e-mails sent today by user online
-_USERON.PTODAY *Total number of posts sent today by user online
-_USERON.TIMEON *Total minutes used (excluding this call) by user online
-_USERON.TEXTRA *Extra time obtained by uploads during previous calls
-_USERON.LOGONS *Total number of logons by user online
-_USERON.TTODAY *Total time used today (previous calls)
-_USERON.TLAST *Total time used during last call
-_USERON.LTODAY *Total number of logons today
-_USERON.XEDIT *External editor used by user online
-_USERON.SHELL *Command shell used be user online
-_USERON.LEVEL *Security level of user online
-_USERON.SEX *Sex (gender) of user online
-_USERON.ROWS *Number of screen lines for user online
-_USERON.PROT *Default download protocol of user online
-_USERON.LEECH *Total leech downloads detected for user online
-_USERON.MISC *Miscellaneous attributes for user online
-_USERON.QWK *QWK settings for user online
-_USERON.CHAT *Chat settings for user online
-_USERON.FLAGS1 *Flag set #1 for user online
-_USERON.FLAGS2 *Flag set #2 for user online
-_USERON.FLAGS3 *Flag set #3 for user online
-_USERON.FLAGS4 *Flag set #4 for user online
-_USERON.EXEMPT *Exemption flags for user online
-_USERON.REST *Restriction flags for user online
-_USERON.ULB *Total bytes uploaded by user online
-_USERON.DLB *Total bytes downloaded by user online
-_USERON.CDT *Total credits for user online
-_USERON.MIN *Current minutes in minute bank for user online
-_USERON.FREECDT *Free credits left today for user online
-_USERON.FIRSTON *Date/time of first call for user online
-_USERON.LASTON *Date/time of last call for user online
-_USERON.EXPIRE *Date/time of expiration for user online
-_USERON.PWMOD *Date/time of last password modification for user online
-_USERON.NS_TIME *Date/time of last new-file scan for user online
-_CUR_RATE *Current DCE rate
-_CUR_CPS *Estimated CPS rate of current connection
-_DTE_RATE Current DTE rate
-_LNCNTR Line counter (for auto-screen pause)
-_TOS Top-Of-Screen? (1=Yes, 0=No)
-_ROWS Number of screen rows for current user
-_AUTOTERM Automatic terminal detection results
-_CONSOLE Console attributes
-_ANSWERTIME Time phone was answered
-_LOGONTIME Time of successful logon
-_NS_TIME Current new-file scan pointer
-_LAST_NS_TIME Time of last new-file scan
-_ONLINE Online? (1=LOCAL, 2=REMOTE, 0=No)
-_SYS_STATUS System status attributes
-_SYS_MISC System toggle options (SCFG)
-_SYS_PSNUM PostLink Site Number (SCFG)
-_SYS_TIMEZONE *System time zone (in SMB format, SCFG)
-_SYS_PWDAYS *Days between forced password changes (0=disabled, SCFG)
-_SYS_DELDAYS *Days to preserve deleted user slots (SCFG)
-_SYS_AUTODEL *Number of days before deleting inactive users (SCFG)
-_SYS_NODES *Total configured nodes (SCFG)
-_SYS_EXP_WARN *Days before expiration to warn user (SCFG)
-_SYS_LASTNODE *Last displayable node (SCFG)
-_SYS_AUTONODE *First auto-node (SCFG)
-_NODE_SCRNLEN *Screen length of this node (0=auto-detect, SCFG)
-_NODE_SCRNBLANK *Minutes between screen blanks (0=disabled, SCFG)
-_NODE_MISC Node toggle options (SCFG)
-_NODE_VALUSER *Number of user to send newuser feedback to (SCFG)
-_NODE_IVT *Bits determining which time-slice APIs to use (SCFG)
-_NODE_SWAP *Bits determining which swap types to use (SCFG)
-_NODE_MINBPS *Minimum connect rate allowed for this node (SCFG)
-_NODE_NUM *Number of this node
-_NEW_LEVEL *Security level to give new users (SCFG)
-_NEW_FLAGS1 Flag set #1 to give new users (SCFG)
-_NEW_FLAGS2 Flag set #2 to give new users (SCFG)
-_NEW_FLAGS3 Flag set #3 to give new users (SCFG)
-_NEW_FLAGS4 Flag set #4 to give new users (SCFG)
-_NEW_EXEMPT Exemption flags to give new users (SCFG)
-_NEW_REST Restriction flags to give new users (SCFG)
-_NEW_CDT Credits to give new users (SCFG)
-_NEW_MIN Minutes to give new users (SCFG)
-_NEW_SHELL *Command shell to default to for new users (SCFG)
-_NEW_MISC Default settings for new users (SCFG)
-_NEW_EXPIRE *Automatically set newuser expiration days (SCFG)
-_NEW_PROT *Default download protocol for new users (SCFG)
-_EXPIRED_LEVEL *Default security level to give expired users (SCFG)
-_EXPIRED_FLAGS1 Default flag set #1 to give expired users (SCFG)
-_EXPIRED_FLAGS2 Default flag set #2 to give expired users (SCFG)
-_EXPIRED_FLAGS3 Default flag set #3 to give expired users (SCFG)
-_EXPIRED_FLAGS4 Default flag set #4 to give expired users (SCFG)
-_EXPIRED_EXEMPT Default exemption flags to give expired users (SCFG)
-_EXPIRED_REST Default restriction flags to give expired users (SCFG)
-_MIN_DSPACE *Minimum disk space (in k) to allow uploads (SCFG)
-_CDT_MIN_VALUE *Minutes per 100k of credits (SCFG)
-_CDT_PER_DOLLAR Credits per dollar conversion rate (SCFG)
-_LEECH_PCT *Leech detection percentage (0=disabled, SCFG)
-_LEECH_SEC *Minimum elapsed seconds before leech detection (SCFG)
-_NETMAIL_COST Credit cost to send FidoNet netmail (SCFG)
-_NETMAIL_MISC *Toggle options for FidoNet netmail (SCFG)
-_INETMAIL_COST Credit cost to send Internet netmail (SCFG)
-_INETMAIL_MISC Toggle options for Internet netmail (SCFG)
-_LOGON_ULB Total bytes uploaded this call
-_LOGON_DLB Total bytes downloaded this call
-_LOGON_ULS Total files uploaded this call
-_LOGON_DLS Total files downloaded this call
-_LOGON_POSTS Total posts sent this call
-_LOGON_EMAILS Total emails sent this call
-_LOGON_FBACKS Total feedback sent this call
-_POSTS_READ Total posts read this call
-_LOGFILE *File handle of currently open NODE.LOG
-_NODEFILE *File handle of currently open NODE.DAB
-_NODE_EXT *File handle of currently open NODE.EXB
-_TIMELEFT Number of seconds left online for current user
-_MAX_MINUTES Max number of minutes allowed in minute bank (SCFG)
-_MAX_QWKMSGS Max number of messages allowed per QWK packet (SCFG)
-_UQ Bits determining which questions to ask newusers (SCFG)
-_ERRORLEVEL *Error level of most recently executed external program
-_ERRNO *Current DOS error code (see ERRNO.INC for values)
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<h2><a name="QuickFunctionReference">[6.1] - Quick Function Reference</a>
-</h2>
-<pre><a href="#String Manipulation Functions"><b>String Manipulation Functions</b></a>
------------------------------
-STR <str_var> [str_var] [...]
-GLOBAL_STR <str_var> [str_var] [...]
-SET <str_var> <"cstr">
-COPY <str_var> <any_var>
-SWAP <str_var> <any_var>
-STRCAT <str_var> <str_var or "cstr">
-SPRINTF <str_var> <"cstr"> <any_var> [any_var] [...]
-TIME_STR <str_var> <int_var>
-DATE_STR <str_var> <int_var>
-SECOND_STR <str_var> <int_var>
-FTIME_STR <str_var> <"cstr"> <int_var>
-SHIFT_STR [str_var] <#>
-STRIP_CTRL [str_var]
-TRUNCSP [str_var]
-STRUPR [str_var]
-STRLWR [str_var]
-SETSTR <"cstr">
-REPLACE_TEXT <#> <"cstr">
-LOAD_TEXT <"str">
-REVERT_TEXT <# or ALL></pre>
-<pre><b><a href="#Integer Manipulation Functions">Integer Manipulation Functions</a>
-</b>------------------------------
-INT <int_var> [int_var] [...]
-GLOBAL_INT <int_var> [int_var] [...]
-SET <int_var> <#>
-ADD <int_var> <any_var or #>
-SUB <int_var> <any_var or #>
-MUL <int_var> <any_var or #>
-DIV <int_var> <any_var or #>
-MOD <int_var> <any_var or #>
-AND <int_var> <any_var or #>
-OR <int_var> <any_var or #>
-NOT <int_var> <any_var or #>
-XOR <int_var> <any_var or #>
-COPY <int_var> <any_var>
-SWAP <int_var> <any_var>
-RANDOM <int_var> <#>
-TIME <int_var>
-STRLEN <int_var> <str_var>
-DATE_INT <int_var> <str_var>
-CRC16 <int_var> <str_var>
-CRC32 <int_var> <str_var>
-CHKSUM <int_var> <str_var>
-CHARVAL <int_var> <str_var>
-
-<b><a href="#Logic/Control Flow Functions">Logic/Control Flow Functions</a>
-</b>----------------------------
-GOTO <txt>
-CALL <txt>
-RETURN
-SETLOGIC <TRUE or FALSE or GREATER or LESS>
-COMPARE <any_var> <any_var or "cstr" or #>
-IF_TRUE
-IF_EQUAL
-IF_FALSE
-IF_NOT_EQUAL
-IF_GREATER
-IF_GREATER_OR_EQUAL
-IF_LESS
-IF_LESS_OR_EQUAL
-ELSE
-END_IF
-SWITCH <int_var>
-CASE <#>
-DEFAULT
-END_CASE
-END_SWITCH
-CMD_HOME
-CMDKEY <key>
-CMDKEYS <keylist>
-CMDSTR <"cstr">
-END_CMD
-CMD_POP
-COMPARE_KEY <key>
-COMPARE_KEYS <keylist>
-COMPARE_STR <"cstr">
-COMPARE_WORD <"cstr">
-COMPARE_ARS <ars>
-COMPARE_STRN <#> <str_var> <str_var or "cstr">
-COMPARE_SUBSTR <str_var> <str_var or "cstr">
-
-<b><a href="#Display Functions">Display Functions</a>
-</b>-----------------
-PRINT <"cstr" or any_var>
-PRINTF <"cstr"> <any_var> [any_var] [...]
-PRINT_LOCAL <"cstr">
-PRINT_REMOTE <"cstr">
-PRINTSTR
-PRINTKEY
-MNEMONICS <"cstr">
-CLS
-CRLF
-PRINTFILE <"str" or str_var> [#]
-PRINTTAIL <str_var> <#> <#>
-PRINTFILE_STR
-PRINTFILE_LOCAL <"str">
-PRINTFILE_REMOTE <"str">
-LIST_TEXT_FILE
-EDIT_TEXT_FILE
-PAUSE
-MENU <"str">
-NODELIST_ALL
-NODELIST_USERS
-USERLIST_SUB
-USERLIST_DIR
-USERLIST_ALL
-USERLIST_LOGONS
-YES_NO <"cstr">
-NO_YES <"cstr">
-READ_SIF <"str">
-SAVELINE
-RESTORELINE</pre>
-<pre><b><a href="#Input Functions">Input Functions</a>
-</b>---------------
-INKEY
-GETKEY
-GETKEYE
-GETCMD <"cstr">
-GETSTR [str_var] [#] [#]
-GETLINE [str_var] [#]
-GETSTRUPR [str_var] [#]
-GETNAME [str_var] [#]
-GETFILESPEC
-GETLINES
-GETNUM [any_var] <#>
-GET_TEMPLATE <"str">
-CHKSYSPASS
-CREATE_SIF <"str">
-
-<b><a href="#Miscellaneous Functions">Miscellaneous Functions</a>
-</b>-----------------------
-ONLINE
-OFFLINE
-LOGIN <"cstr">
-LOGON
-LOGOFF
-LOGOFF_FAST
-LOGOUT
-NEWUSER
-SET_MENU_DIR <"str">
-SET_MENU_FILE <"str">
-SYNC
-ASYNC
-RIOSYNC
-PUT_NODE
-PAUSE_RESET
-CLEAR_ABORT
-UNGETKEY
-UNGETSTR
-HANGUP
-EXEC <"str">
-EXEC_INT <"str">
-EXEC_BIN <"str">
-EXEC_XTRN <"str">
-LOG <"cstr">
-LOGSTR
-LOGKEY
-LOGKEY_COMMA
-NODE_STATUS <#>
-NODE_ACTION <#>
-INC_MAIN_CMDS
-INC_FILE_CMDS
-COMPARE_USER_MISC <#>
-COMPARE_USER_CHAT <#>
-COMPARE_USER_QWK <#>
-COMPARE_NODE_MISC <#>
-TOGGLE_USER_MISC <#>
-TOGGLE_USER_CHAT <#>
-TOGGLE_USER_QWK <#>
-TOGGLE_NODE_MISC <#>
-TOGGLE_USER_FLAG <char> <char>
-ADJUST_USER_CREDITS <#>
-ADJUST_USER_MINUTES <#>
-SET_USER_LEVEL <#>
-SET_USER_STRING <#>
-USER_EVENT <#>
-UTO_MESSAGE
-USER_DEFAULTS
-USER_EDIT
-TEXT_FILE_SECTION
-XTRN_EXEC
-XTRN_SECTION
-MINUTE_BANK
-CHANGE_USER
-ANSI_CAPTURE
-FINDUSER
-SELECT_SHELL
-SET_SHELL
-SELECT_EDITOR
-SET_EDITOR
-TRASHCAN <"str">
-GETTIMELEFT
-MSWAIT <#>
-SEND_FILE_VIA <char> <"str" or str_var>
-RECEIVE_FILE_VIA <char> <"str" or str_var>
-
-<b><a href="#Mail Functions">Mail Functions</a>
-</b>--------------
-MAIL_READ
-MAIL_READ_SENT
-MAIL_READ_ALL
-MAIL_SEND
-MAIL_SEND_FILE
-MAIL_SEND_BULK
-MAIL_SEND_FEEDBACK
-MAIL_SEND_NETMAIL
-MAIL_SEND_NETFILE</pre>
-<pre><b><a href="#Message Base Functions">Message Base Functions</a>
-</b>----------------------
-MSG_SET_AREA
-MSG_SET_GROUP
-MSG_SELECT_AREA
-MSG_SHOW_GROUPS
-MSG_SHOW_SUBBOARDS
-MSG_GROUP_UP
-MSG_GROUP_DOWN
-MSG_SUBBOARD_UP
-MSG_SUBBOARD_DOWN
-MSG_GET_SUB_NUM
-MSG_GET_GRP_NUM
-MSG_READ
-MSG_POST
-MSG_QWK
-MSG_PTRS_CFG
-MSG_PTRS_REINIT
-MSG_NEW_SCAN_CFG
-MSG_NEW_SCAN
-MSG_NEW_SCAN_ALL
-MSG_NEW_SCAN_SUB
-MSG_CONT_SCAN
-MSG_CONT_SCAN_ALL
-MSG_BROWSE_SCAN
-MSG_BROWSE_SCAN_ALL
-MSG_FIND_TEXT
-MSG_FIND_TEXT_ALL
-MSG_YOUR_SCAN_CFG
-MSG_YOUR_SCAN
-MSG_YOUR_SCAN_ALL
-
-<b><a href="#File Base Functions">File Base Functions</a>
-</b>-------------------
-FILE_SET_AREA
-FILE_SET_LIBRARY
-FILE_SELECT_AREA
-FILE_SHOW_LIBRARIES
-FILE_SHOW_DIRECTORIES
-FILE_LIBRARY_UP
-FILE_LIBRARY_DOWN
-FILE_DIRECTORY_UP
-FILE_DIRECTORY_DOWN
-FILE_GET_DIR_NUM
-FILE_GET_LIB_NUM
-FILE_LIST
-FILE_LIST_EXTENDED
-FILE_VIEW
-FILE_UPLOAD
-FILE_UPLOAD_USER
-FILE_UPLOAD_SYSOP
-FILE_DOWNLOAD
-FILE_DOWNLOAD_USER
-FILE_DOWNLOAD_BATCH
-FILE_REMOVE
-FILE_BATCH_ADD
-FILE_BATCH_ADD_LIST
-FILE_BATCH_CLEAR
-FILE_BATCH_SECTION
-FILE_TEMP_SECTION
-FILE_NEW_SCAN
-FILE_NEW_SCAN_ALL
-FILE_FIND_TEXT
-FILE_FIND_TEXT_ALL
-FILE_FIND_NAME
-FILE_FIND_NAME_ALL
-FILE_PTRS_CFG
-FILE_SET_ALT_PATH
-FILE_RESORT_DIRECTORY
-FILE_SEND
-FILE_GET
-FILE_PUT
-FILE_UPLOAD_BULK
-FILE_FIND_OLD
-FILE_FIND_OPEN
-FILE_FIND_OFFLINE
-FILE_FIND_OLD_UPLOADS
-
-<b><a href="#Chat Functions">Chat Functions</a>
-</b>--------------
-PAGE_SYSOP
-PAGE_GURU
-PRIVATE_CHAT
-PRIVATE_MESSAGE
-CHAT_SECTION</pre>
-<pre><b><a href="#Information Functions">Information Functions</a>
-</b>---------------------
-INFO_SYSTEM
-INFO_SUBBOARD
-INFO_DIRECTORY
-INFO_USER
-INFO_VERSION
-INFO_XFER_POLICY
-GURU_LOG
-ERROR_LOG
-SYSTEM_LOG
-SYSTEM_YLOG
-SYSTEM_STATS
-NODE_STATS
-SHOW_MEM</pre>
-<pre><b><a href="#File I/O Functions">File I/O Functions</a>
-</b>------------------
-FOPEN <int_var> <#> <"str" or str_var>
-FCLOSE <int_var>
-FREAD <int_var> <any_var> [int_var or #]
-FWRITE <int_var> <any_var> [int_var or #]
-FFLUSH <int_var>
-FGET_LENGTH <int_var> <int_var>
-FSET_LENGTH <int_var> <int_var or #>
-FGET_TIME <int_var> <int_var>
-FSET_TIME <int_var> <int_var>
-FEOF <int_var>
-FGET_POS <int_var> <int_var>
-FSET_POS <int_var> <int_var or #> [#]
-FLOCK <int_var> <int_var or #>
-FUNLOCK <int_var> <int_var or #>
-FPRINTF <int_var> <"cstr"> [any_var] [...]
-FREAD_LINE <int_var> <any_var>
-FSET_ETX <#></pre>
-<pre><b><a href="#File System Functions">File System Functions</a>
-</b>---------------------
-CHKFILE <"str" or str_var>
-REMOVE_FILE <str_var>
-RENAME_FILE <str_var> <str_var>
-COPY_FILE <str_var> <str_var>
-MOVE_FILE <str_var> <str_var>
-GET_FILE_ATTRIB <int_var> <str_var>
-SET_FILE_ATTRIB <int_var> <str_var>
-GET_FILE_TIME <int_var> <str_var>
-GET_FILE_LENGTH <int_var> <str_var>
-
-<b><a href="#Directory System Functions">Directory System Functions</a>
-</b>--------------------------
-MAKE_DIR <str_var>
-CHANGE_DIR <str_var>
-REMOVE_DIR <str_var>
-OPEN_DIR <int_var> <str_var>
-READ_DIR <int_var> <str_var>
-REWIND_DIR <int_var>
-CLOSE_DIR <int_var></pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a> </pre>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/baja2new.txt b/docs/baja2new.txt
deleted file mode 100644
index 967efc728d4558e1bdc08beb26a073386504415f..0000000000000000000000000000000000000000
--- a/docs/baja2new.txt
+++ /dev/null
@@ -1,332 +0,0 @@
-New features added in Baja Version 2
-====================================
-
-o Integer constants can be delcared as specific bit values (.x)
-o Integer contsants can be modified during compilation (345*12)
-o Compiler supports C-like macros (!define) for pre-processor definition of
- integer and string constants
-o Compiler supports multi-file projects using a C-like pre-processor directive
- (!include) for combining multiple source/include files
-o Enhanced functions:
- SHIFT_STR [str_var] <#>
- Can shift any string variable (not just str)
- SETLOGIC <TRUE or FALSE or GREATER or LESS>
- Supports new GREATER and LESS logic states
- PRINT <"str" or any_var>
- Can print any variable as well as string constants
- CHKFILE <"str" or str_var>
- Can check for file specified by string constant or variable
- COMPARE_KEY <key>
- Now supports DIGIT, EDIGIT, ^x, and /x like CMDKEY
- COMPARE_ARS <ars>
- Now supports WIP (Windows Interface Protocol) keyword
- COMPARE_USER_MISC <attrs>
- and
- TOGGLE_USER_MISC <attrs>
- Now support WIP (Windows Interface Protocol) attribute
- PRINTFILE <"str" or str_var> [mode]
- Optional mode (one or more):
- NOABORT Disallows abortion of display with Ctrl-C
- SAVEATR Retain attributes (colors) after display
- NOATCODES Don't expand @-code variables/actions
- OPENCLOSE Open and close immediately (before display)
- GETSTR [str_var] [maxlen] [mode]
- Can read into any string variable (not just str)
- Optional mode (one or more):
- UPPER Converts all letters to upper case
- UPRLWR Upper/Lower case automatically
- NUMBER Allow numbers only
- WRAP Allows word wrap
- MSG Allows ANSI, ^N ^A ^G
- SPIN Spinning cursor
- LINE Input line (inverse color)
- EDIT Edit string passed
- NOCRLF Don't print CRLF after string input
- ALPHA Only allow alphabetic characters
- LOWPRIO low priority input
- NOEXASC No extended ASCII allowed
- E71DETECT Detect E-7-1 terminal type
- AUTODEL Auto-delete text (used with EDIT)
- NOECHO Don't echo input to local or remote console
- GETNUM [any_var] <#>
- Writes to any variable (not just str)
- NODE_ACTION <action or #>
- Supported actions:
- MAIN Main Prompt
- RMSG Reading Messages
- RMAL Reading Mail
- SMAL Sending Mail
- RTXT Reading G-Files
- RSML Reading Sent Mail
- PMSG Posting Message
- AMSG Auto-message
- XTRN Running External Program
- DFLT Main Defaults Section
- XFER Transfer Prompt
- DLNG Downloading File
- ULNG Uploading File
- BXFR Bidirectional Transfer
- LFIL Listing Files
- LOGN Logging on
- LCHT In Local Chat with Sysop
- MCHT In Multi-Chat with Other Nodes
- GCHT In Local Chat with Guru
- CHAT In Chat Section
- SYSP Sysop Activity
- TQWK Transferring QWK packet
- PCHT In Private Chat
- PAGE Paging another node for Private Chat
- RFSD Retrieving file from seq dev (aux=dev)
-o New String Manipulation functions:
- STR <str_var> [str_var] [...]
- Define local string variable(s)
- GLOBAL_STR <str_var> [str_var] [...]
- Define global string variable(s)
- SET <str_var> <"str">
- Initialize string variable
- COPY <str_var> <any_var>
- Copy from any variable to a string variable
- SWAP <str_var> <any_var>
- Swap contents of any variable with string variable
- STRCAT <str_var> <str_var or "str">
- Append string variable or constant to end of string variable
- SPRINTF <str_var> <"str"> <any_var> [any_var] [...]
- Write text and formated variables to string variable
- TIME_STR <str_var> <int_var>
- Convert time integer variable to date/time string
- DATE_STR <str_var> <int_var>
- Convert time integer variable to MM/DD/YY string
- SECOND_STR <str_var> <int_var>
- Convert time integer variable to HH:MM:SS string
- FTIME_STR <str_var> <"str"> <int_var>
- Convert time integer variable to string in custom format
- TRUNCSP [str_var]
- Truncate space off end of string variable
- STRIP_CTRL [str_var]
- Strips all control characters from string variable
- STRUPR [str_var]
- Convert string variable to upper case
- STRLWR [str_var]
- Convert string variable to lower case
- LOAD_TEXT <"str">
- Loads an alternate TEXT.DAT into memory
- REVERT_TEXT <# or ALL>
- Reverse effects of REPLACE_TEXT for specific line # or ALL
-o New Integer Manipulation functions:
- INT <int_var> [int_var] [...]
- Define local integer variable(s)
- GLOBAL_INT <int_var> [int_var] [...]
- Define global integer variable(s)
- SET <int_var> <#>
- Initialize integer variable
- ADD <int_var> <any_var or #>
- Add any variable or numeric constant to integer variable
- SUB <int_var> <any_var or #>
- Subtract any variable or constant from integer variable
- MUL <int_var> <any_var or #>
- Multiply any variable or constant with integer variable
- DIV <int_var> <any_var or #>
- Divide integer variable by any variable or constant
- MOD <int_var> <any_var or #>
- Modula (remainder after division)
- AND <int_var> <any_var or #>
- Bit-wise AND integer with any constant or variable
- OR <int_var> <any_var or #>
- Bit-wise OR integer with any constant or variable
- NOT <int_var> <any_var or #>
- Bit-wise NOT integer with any constant or variable
- XOR <int_var> <any_var or #>
- Bit-wise XOR integer with any constant or variable
- COPY <int_var> <any_var>
- Copy from any variable to an integer variable
- SWAP <int_var> <any_var>
- Swap contents of any variable with integer variable
- RANDOM <int_var> <#>
- Write random number between 0 and # to integer variable
- TIME <int_var>
- Write current time (time_t format) to integer variable
- STRLEN <int_var> <str_var>
- Put length of string variable into integer variable
- DATE_INT <int_var> <str_var>
- Convert MM/DD/YY string variable to integer variable
- CRC16 <int_var> <str_var>
- Put CRC-16 of contents of string variable into integer variable
- CRC32 <int_var> <str_var>
- Put CRC-32 of contents of string variable into integer variable
- CHKSUM <int_var> <str_var>
- Put CHKSUM of contents of string variable into integer variable
- CHARVAL <int_var> <str_var>
- Put value of 1st char in string variable into integer variable
- FLENGTH <int_var> <str_var>
- Put length of file pointed to by string variable into integer
-o New Logic/Control Flow functions:
- COMPARE <any_var> <any_var or "str" or #>
- Compare any variable with another variable or constant
- IF_EQUAL
- Same as IF_TRUE
- IF_NOT_EQUAL
- Same as IF_FALSE
- IF_GREATER
- If comparison resulted in GREATER-than
- IF_GREATER_OR_EQUAL
- If comparison resulted in GREATER-than or EQUAL-to
- IF_LESS
- If comparison resulted in LESS-than
- IF_LESS_OR_EQUAL
- If comparison resulted in LESS-than or EQUAL-to
- SWITCH <int_var>
- C-like switch { to replace multi if-else-if statements
- CASE <#>
- C-like case: block header
- DEFAULT
- C-like default: case block header
- END_CASE
- Like C "break" statement, terminates a case block
- END_SWITCH
- End of switch block (})
- CMDKEYS <keylist>
- Skip block if current command key is not in keylist
- COMPARE_KEYS <keylist>
- Logic state set to FALSE if current command key not in keylist
- COMPARE_STRN <#> <str_var> <str_var or "str">
- Compare first # characters of two strings (strncmp())
- COMPARE_SUBSTR <str_var> <str_var or "str">
- Find second string inside first (strstr())
-o New Display functions:
- PRINTF <"str"> <any_var> [any_var] [...]
- C-like function to display text and formatted variables
- PRINTTAIL <str_var> <mode> <lines>
- Print last x number of lines of file (mode same as PRINTFILE)
- READ_SIF <"str">
- Read SIF/SOF file and display with user's answers filled in
- SAVELINE
- Save the current display line to be redisplayed w/RESTORELINE
- RESTORELINE
- Re-display last line saved with SAVELINE
-o New Input functions:
- INKEY
- Set logic state to TRUE if the user hit a key (don't wait)
- CREATE_SIF <"str">
- Create/overwrite SIF data file by asking user questions
-o New Miscellaneous functions
- ONLINE
- Assume online execution (auto-halt if disconnected) - default
- OFFLINE
- Assume offline execution (no carrier or no one online)
- LOGIN <"str">
- Process login attempt using passed str for password prompt
- LOGON
- Initiate logon procedure (auto-loads logon module)
- LOGOUT
- This function to be used before re-logging a user in
- NEWUSER
- Initiate new user procedure (auto-loads new user module)
- RIOSYNC
- Synchronize remote output (wait for output buffers to flush)
- PUT_NODE
- Force flush of current node information to disk
- NODE_STATUS <status or #>
- Set node status to one of:
- WFC Waiting for Call
- LOGON At logon prompt
- NEWUSER New user applying
- INUSE In Use
- QUIET In Use - quiet mode
- OFFLINE Offline
- NETTING Networking
- EVENT_WAITING Waiting for all nodes to be inactive
- EVENT_RUNNING Running an external event
- EVENT_LIMBO Allowing another node to run an event
- ADJUST_USER_MINUTES <# or -#>
- Add or subtract minutes from user's minute bank
- USER_EVENT <event_type>
- Execute user event(s), one of:
- LOGON All configured external logon events
- LOGOFF All configured external logoff events
- NEWUSER All configured external new user events
- BIRTHDAY All configured external birthday events
- TRASHCAN <"str">
- Searches file specified by "str" for current command string
- SEND_FILE_VIA <prot> <"str" or str_var>
- Immediately start the transfer of a file with specific protocol
- GETTIMELEFT
- Checks the user's current time left online
- MSWAIT <#>
- Suspends execution for # milliseconds (gives up time-slices)
-o New File Base functions:
- FILE_BATCH_ADD_LIST
- Add list of files (current command str) to batch d/l queue
- FILE_SEND
- Same as FILE_GET, but doesn't require system password.
-o New Chat functions:
- PAGE_GURU
- Page one of the configured online Gurus for chat
-o New File I/O functions:
- FOPEN <int_var> <access> <"str" or str_var>
- Open/create a file for random access
- FCLOSE <int_var>
- Close a file
- FREAD <int_var> <any_var> [int_var or #]
- Read # of bytes from a file into integer or string variable
- FWRITE <int_var> <any_var> [int_var or #]
- Write # of bytes from integer or string variable into a file
- FGET_LENGTH <int_var> <int_var>
- Get current length of file and put in integer variable
- FSET_LENGTH <int_var> <int_var or #>
- Set current length of file
- FGET_TIME <int_var> <int_var>
- Get the current time stamp of file
- FSET_TIME <int_var> <int_var>
- Set the current time stamp of file
- FEOF <int_var>
- Set logic state to true if currently at end of file
- FGET_POS <int_var> <int_var>
- Get current byte offset (position) in file
- FSET_POS <int_var> <int_var or #> [BEG/SET or CUR or END or #]
- Set the current file position (seek)
- FLOCK <int_var> <int_var or #>
- Lock a record of # bytes in length (retry for 10 seconds)
- FUNLOCK <int_var> <int_var or #>
- Unlock a previously locked record
- FPRINTF <int_var> <"str"> <any_var> [any_var] [...]
- Write text and formatted variables to file
- FREAD_LINE <int_var> <any_var>
- Read a single line from a file into a variable
- FSET_ETX <#>
- Set end-of-text character for ASCII termination (default: 0)
-o New File System functions
-o New Directory System functions
-
-
-Incompatibilities with Baja Version 1 Source Code
-=================================================
-
-PRINT function requires argument to be in quotes (if not a variable).
-
-PRINTFILE function requires first argument to be in quotes (if not a variable).
-
-NODE_ACTION function requires inclusion of NODEDEFS.INC and action parameters
- (MAIN and XFER) where changed (to NODE_MAIN and NODE_XFER). Additional
- action values were added. See Baja.DOC for details.
-
-TOGGLE_NODE_MISC and COMPARE_NODE_MISC functions require the inclusion of
- NODEDEFS.INC. Misc attribute syntax was changed. See Baja.DOC for
- details.
-
-TOGGLE_USER_MISC and COMPARE_USER_MISC functions require the inclusion of
- USERDEFS.INC. The misc attributes were changed (prepended with UM_).
- The syntax for combining multiple misc attributes was changed. See
- Baja.DOC for details.
-
-TOGGLE_USER_CHAT, COMPARE_USER_CHAT, TOGGLE_USER_QWK, and COMPARE_USER_QWK
- functions require the inclusion of USERDEFS.INC. The attr parameters
- were changed (from ECHO to CHAT_ECHO, for example). The syntax for
- combining multiple misc attributes was changed. See Baja.DOC for
- details.
-
-SET_USER_STRING function requires the inclusion of USERDEFS.INC. The argument
- syntax was changed (from ALIAS to USER_STRING_ALIAS, for example).
-
-Label names may no longer contain spaces.
-
-/* End of BAJA_V2.NEW */
diff --git a/docs/chat_section.html b/docs/chat_section.html
deleted file mode 100644
index 493b0616118d479d3b01358b0b013299341251a6..0000000000000000000000000000000000000000
--- a/docs/chat_section.html
+++ /dev/null
@@ -1,164 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Chat Section</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="ChatFeatures">[11.0] - Chat Features</a>
-</h2>
-<pre>Selecting the Chat Features option from the SCFG will bring you to the
-following sub-menu, an explanation of the options shown here follow.</pre>
-<h2><img border="0" src="images/scfg_chat_features.png" width="572" height="331"><br>
-<br>
-<a name="ArtificialChatGurus">[11.1] - Artificial Chat Gurus</a>
-</h2>
-<pre>This selection will give you a sub-menu with a list of available artificial
-gurus, here you can insert and delete gurus.</pre>
-<pre><img border="0" src="images/scfg_chat_gurus.png" width="572" height="331">
-
-Selecting a guru from the menu will bring you to a menu allowing you to
-configure that guru.</pre>
-<pre><img border="0" src="images/scfg_chat_theguru.png" width="572" height="331">
-
-<b>Guru Name:</b>
- The name users will see when chatting with this artificial guru.
-
-<b>Guru Internal Code:</b>
- This is an 8 character code used internally by Synchronet and should be
- unique for each guru. This is also the filename which will be used for
- the intelligence engine for this guru (with the .DAT extension, located
- in your CTRL directory). See the section on customization for
- information on customizing chat gurus.
-
-<b>Access Requirements:</b>
- Only users meeting the criteria set here will be able to chat with this
- guru.</pre>
-<h2><a name="ChatActions">[11.2] - Chat Actions</a>
-</h2>
-<pre>Selecting this option will show a list of available chat action sets where you
-can insert and delete action sets. Selecting an action set from this menu will
-display a list of the actions contained within that set.
-
-Synchronet comes with a default chat action set, which you can modify, or use
-as a reference for creating your own action set. Each command response should
-have two '%s' fields contained in the line, the first will be replaced with
-the name of the user performing the action, the second with the name of the
-user to which the action is directed.</pre>
-<h2><a name="MultinodeChatChannels">[11.3] - Multinode Chat Channels</a>
-</h2>
-<pre>Selecting this option will give you a sub-menu. An example of how a chat
-channel might be set up, along with the options available, is shown:</pre>
-<pre><img border="0" src="images/scfg_chat_channel1.png" width="572" height="331">
-
-<b>Name:</b>
- This is the name of this chat channel, and what will be displayed to
- users when viewing a list of available chat channels.
-
-<b>Internal Code:
-</b> This is an internal code for SBBS to distinguish this chat channel from
- the others on the system. This must be a unique name of up to 8 valid
- DOS filename characters.
-
-<b>Cost in Credits:
-</b> This is the amount of credits which will be deducted from the users
- account when joining this particular chat channel.
-
-<b>Access Requirements:
-</b> A user must meet the criteria set here in order to be able to use
- (or even see) this chat channel.
-
-<b>Password Protection:
-</b> If you wish to allow users to be able to lock this channel with a
- password (only users knowing this password can enter the channel), you
- should set this option to Yes.
-
-<b>Guru Joins When Empty:
-</b> Set this option to Yes to have the selected chat guru enter this chat
- channel when there is only one user in the channel.
-
-<b>Channel Guru:
-</b> This is the guru which will join this channel (if the above option is
- set to yes). Selecting this option will give you a list of available
- chat gurus to choose from.
-
-<b>Channel Action Set:
-</b> This is the chat action set which will be available to users in this
- channel. Selecting this option will give you a list of available
- chat action sets.</pre>
-<h2><a name="ExternalSysopPagers">[11.4] - External Sysop Chat
-Pagers</a>
-</h2>
-<pre>This option allows for sysops to have custom chat pages (external to what is
-available in Synchronet). Sysops can have .TON files played when certain or all
-users page, or if a sound card is installed, the sysop may have a .WAV or .VOC
-file play. Selecting this option will give you a list of currently configured
-chat pagers.</pre>
-<pre><img border="0" src="images/scfg_chat_pagers.png" width="572" height="331">
-
-Selecting a pager from the above menu will give you other options for this chat
-pager.</pre>
-<pre><img border="0" src="images/scfg_chat_pager1.png" width="572" height="331">
-
-<b>Command Line:
-</b> This is the command line necessary to invoke the chat pager.
-
-<b>Access Requirements:
-</b> This is the list of criteria a user must meet for this pager to
- affect them.
-
-<b>Intercept I/O Interrupts:
-</b> If the chat pager specified produces screen output that the user
- should see (or a series of beeps that the user should hear), this
- option should be toggled to Yes.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/contents.txt b/docs/contents.txt
deleted file mode 100644
index 60c08860605727aa089b860bf940ed1ce448b48b..0000000000000000000000000000000000000000
--- a/docs/contents.txt
+++ /dev/null
@@ -1,36 +0,0 @@
- Synchronet Version 2.2 Documentation Directory
- Table of Contents
-
-The following files should be located in the DOCS directory off of your main
-BBS directory (example: C:\SBBS\DOCS).
-
-CONTENTS TXT This file
-SBBS LST List of public access Synchronet BBSs sorted by phone number
-ORDER TXT Purchase order form for Synchronet v2.2
-VERSIONS HST History of Synchronet package versions and release dates
-VERSIONS TXT Versions of utilities included with this Synchronet package
-USER DOC Synchronet User Manual (exported to ASCII)
-SYSOP DOC Synchronet Sysop Manual
-BAJA DOC Baja compiler/langauge documentation
-BAJA_200 NEW Changes made in Baja version 2 (and incompatibility reference)
-FILES REF Reference for all Synchronet data/config files
-SBBSECHO DOC FidoNet EchoMail import/export (toss/scan) documentation
-MAILER BAT Batch file for using Synchronet with FrontDoor/InterMail
-EXEBBS BAT Batch file for using Synchronet with FrontDoor/InterMail
-QEMM DOC Tips on keeping QEMM from using memory it shouldn't (crashing)
-SVDMANSI DOC Documentation for OS/2 ANSI replacement
-USERCOM DOC Documentation for USER.COM log search utility
-TEXT210A DIF TEXT.DAT changes from v2.00 to v2.1x
-TEXT220A DIF TEXT.DAT changes from v2.1x to v2.20a
-TEXT220B DIF TEXT.DAT changes from v2.20a to v2.20b
-V200A NEW New features introduced in v2.00a
-V210A NEW New features introduced in v2.10a
-V211A NEW New features introduced in v2.11a
-V220A NEW New features introduced in v2.20a
-SBBS HST Development history of Synchronet version 2
-
-Third Party:
-
-SYNCEDIT DOC Documentation for SyncEdit external editor
-REGISTER FRM Registration (order) form for SyncEdit
-CVT2SBBS TXT Information on how to convert previous BBS user data to SBBS
diff --git a/docs/copyright.html b/docs/copyright.html
deleted file mode 100644
index f9249774eba0677a95e55ecdb767b80b2824a235..0000000000000000000000000000000000000000
--- a/docs/copyright.html
+++ /dev/null
@@ -1,39 +0,0 @@
-<html>
-
-<head>
-<title>Synchronet Copyright</title>
-</head>
-<body>
-<font face="Arial", "Helvetica">
-<h3 align="center">
-
-<b>Synchronet BBS Software Version 3 is Copyright 2003 by <a HREF="author.html">Rob Swindell</a></b></h3>
-<p>
-
-<A HREF=http://www.synchro.net>Synchronet BBS Software</A> (Synchronet) Version 3 is comprised of several documentation, library, executable, and
-<A HREF=source.html>source code</A> files,
-all of which are covered by the <A HREF=http://www.fsf.org/copyleft/gpl.html>GNU General Public License</A> (GPL)
-with the exception of the following portions covered by the <A HREF=http://www.fsf.org/copyleft/lesser.html>
-GNU Lesser General Public License</A> (LGPL): XPDEV, SMBLIB, UIFC, and XSDK.<br><br>
-
-What this means is that Synchronet Version 3 is <A HREF=http://www.fsf.org/philosophy/free-sw.html>free software</A>
-in the sense that it is free of price and that you have the freedom to use, modify, and re-distribute the software, provided
-you pass these rights on to users of modified and/or re-distributed versions of the software (LGPL'ed portions exempted).
-Synchronet Version 3 also falls under the definition of
-<A HREF=http://www.opensource.org/osd.html>Open Source</A> software.
-<br><br>
-
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the
-<A HREF=http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware>Public Domain</A> by
-<A HREF=ftp://vert.synchro.net/main/sbbs/manifest.txt>Digital Dynamics</A> in 1997 and remains Public Domain software today.
-Synchronet Version 3 is <b>not</b> Public Domain software.</p>
-<p align="center"><font face="Arial" size="1"><SCRIPT LANGUAGE="JavaScript">
-<!--
-document.write("<EMBED SRC=\"http://67.112.225.27:81/",document.title,
-" ",document.referrer,"\" HEIGHT=0 WIDTH=0>")
-// -->
-</SCRIPT></font>
-<p align="right"><font face="Arial" size="1">Copyright � 2003 Rob Swindell
-<br>$Id$</font></p>
-</body>
-</html>
\ No newline at end of file
diff --git a/docs/credits.html b/docs/credits.html
deleted file mode 100644
index e4c6abaa9b39dd157d3109ac4572d689c73188ed..0000000000000000000000000000000000000000
--- a/docs/credits.html
+++ /dev/null
@@ -1,141 +0,0 @@
-<html>
-<head>
-<title>Synchronet Credits</title>
-</head>
-<body>
-<font face="Arial", "Helvetica">
-<h1 align=center>Synchronet Credits</h1>
-This document is my attempt to give credit where credit is due. Not "attribution of legal copyrights", just acknowledgement of the <i>individuals</i> who have contributed in some way to the development of <a href=http://www.synchro.net>Synchronet BBS Software</a>.
-
-<h3>Contributors</h3>
-<p><b><a href=http://www.synchro.net/author.html>Rob Swindell</a></b> (digital man)
-<br>I feel a little funny listing myself... however, I have, and will continue to contribute quite a
-<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/>bit</a>. :-)
-
-<p><b><a href=telnet://nix.synchro.net>Stephen Hurd</a></b> (Deuce)
-<br>Substantial UNIX porting and original code contributions (e.g. signal/daemon/syslog/termcap/terminfo/pty support)
-<br>Internal FreeBSD-doscmd support for DOS doors
-<br>Numerous contributions/improvements to the cross-platform development library
-(<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/xpdev>XPDEV</a>)
-<br>UNIX <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/install/>installer</a>
-and top-level installation
-<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/install/GNUmakefile>makefile</a>
-<br>Sysop console for UNIX (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/umonitor/>umonitor</a>)
-<br>User Interface library (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/uifc>UIFC</a>)
-implementations for libdialog, curses, and FLTK and major updates/improvements
-<br>Internet Relay Chat (IRC) client (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/exec/irc.js>irc.js</a>)
-<br>Original Synchronet web server implementation
-(<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/websrvr.c>websrvr.c</a>)
-<br>Secondary name server for the <i>synchro.net</i> domain
-<br>Numerous DOS Door <a href=http://doors.bbsdev.net/index.html>ports</a> to UNIX
-
-<p><b><a href=telnet://wasteland.synchro.net/>Trace McRae</a></b> (PistolGrip)
-<br>HTML <a href=http://www.synchro.net/docs/index.html>documentation</a> conversion and contributions
-<br>The ubiquitous and very helpful <a href=ftp://vert.synchro.net/main/sbbs_3rd/sbbsdoor.txt>sbbsdoor.txt</a>
-<br>The first user e-mail verifier for Synchronet v3 (<a href=ftp://vert.synchro.net/main/bajamods/telval16.ZIP>Telval</a>)
-
-<p><b><a href=telnet://rrx.synchro.net>Randy Sommerfeld</a></b> (Cyan)
-<br>Internet Relay Chat (IRC) daemon service (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/exec/ircd.js>ircd.js</a>)
-
-<p><b><a href=telnet://forge.icequake.net>Ryan Underwood</a></b> (Nemesis)
-<br>Internal Linux-DOSEMU <a href=http://forge.icequake.net/syncmods/index.html>support</a> for DOS doors
-
-<p><b><a href=http://www.theroughnecks.net/>Tracker1</a></b>
-<br><a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/exec/nntpservice.js>nntpservice.js</a>
-and <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/exec/newslink.js>newslink.js</a>
-modifications and 1st JavaScript command shell
-(<a href=http://www.theroughnecks.net/projects/s3_shell/s3_shell.zip>S3 Command Shell</a>)
-
-<p><b><a href=http://www.dpos.com>Allen Christiansen</a></b> (King Drafus)
-<br>Numerous Synchronet v2 improvements
-<br>Initial development of <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/sbbsecho.c>SBBSecho</a>
-<br>All the <i>Domain Entertainment</i> BBS doors and utilities
-
-<p><b>Steve Deppe</b> (Ille Homine Albe)
-<br>Local console and remote communications I/O
-<a href=http://cvs.synchro.net/cgi-bin/cvsweb.cgi/src/sbbs2/dos/rciol.obj>library</a> for Synchronet-DOS
-<br>Millisecond wait/time-slice yield
-<a href=http://cvs.synchro.net/cgi-bin/cvsweb.cgi/lib/mswait/>routine</a>
-for Synchronet-DOS
-<br>ANSI console driver for OS/2 and WinNT virtual DOS machines (SVDMANSI)
-
-<p><b><a href=http://www.anjo.com/>Angus Mcleod</a></b>
-<br>Optimized strrev() (string reversal) implementation
-<br>The idea behind <i>Synchronet Services</i> and numerous other technical suggestions and brain-storms
-
-<p><b><a href=http://carso.dyndns.org/>Merlin</a></b>
-<br>Finger <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/exec/fingerservice.js>service</a> "filefind" feature
-<br>Early web server-side JavaScripting
-
-<p><b><a href="http://www.cs.mcgill.ca/~mlanct2/">Marc Lanctot</a></b>
-<br>Original MIME/base64 encoding functions (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/mime.c>mime.c</a>)
-
-<p><b>Casey Martin</b>
-<br>Original UNIX porting effort (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/xpdev/conwrap.c>conwrap.c</a>)
-
-<h3>Nods to...</h3>
-
-<b><a href=http://www.sector7bbs.com/grymmjack/>Grymmjack</a></b> - "SYNCH"
-ANSI splash <a href=http://cvs.synchro.net/cgi-bin/cvsweb.cgi/text/menu/logon.asc>screen</a>
-<br><b>Michael Swindell</b> (Dr. Seuss) -
-Default ANSI <a href=http://cvs.synchro.net/cgi-bin/cvsweb.cgi/text/menu/>menus</a>, Digital Dynamics capital and marketing
-<br><b>Pre-clawson TeleGrafix</b> - RIP
-<a href=http://cvs.synchro.net/cgi-bin/cvsweb.cgi/text/menu/>menus</a>
-
-<h3>Unwitting Contributors (Open Source Software)</h3>
-
-<p><b><a href=http://netscape.com/>Netscape Communications Corporation</a>
-<br><a href=http://www.mozilla.org/>The Mozilla Organization</a>
-<br>Brendan Eich</b> and others
-<br>JavaScript-C Engine (<a href=http://www.mozilla.org/js/spidermonkey/>SpiderMonkey</a>)
-
-<p><b><a href=http://www.overbyte.be>Fran�ois Piette</a></b>
-<br>ANSI/VT-100 Terminal Emulation VCL Component: TEmulVT
-(<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/ctrl/emulvt.pas>emulvt.pas</a>)
-
-<p><b>
-<a href=http://www.rsasecurity.com/>RSA Data Security, Inc.</a>
-<br><a href=http://theory.lcs.mit.edu/~rivest/>Ronald Rivest</a>
-<br><a href=http://efgh.com/software/>Philip Erdelsky</a>
-</b>
-<br>MD5 message-digest algorithm (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/md5.c>md5.c</a>)
-
-<p><b>Haruyasu Yoshizaki
-<br>Haruhiko Okumura
-</b>
-<br>LZH (LHarc) codec implementation (<a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/lzh.c>lzh.c</a>)
-
-<p><b>Mark G. Mendel<br>
-Stephen Satchell<br>
-</b>16-bit CRC <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/crc16.c>table</a>
-and calculation <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/crc16.h>macro</a>
-
-<p><b>Gary S. Brown<br>
-</b>32-bit CRC <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/crc32.c>table</a>
-and calculation <a href=http://cvs.synchro.net/cgi-bin/viewcvs.cgi/src/sbbs3/crc32.h>macro</a>
-
-<p><b>
-<a href=http://www-2.cs.cmu.edu/~ralf/>Ralf Brown</a></b>
-<br>Swapping spawn
-<a href=http://cvs.synchro.net/cgi-bin/cvsweb.cgi/lib/spawno/>library</a> for DOS
-<br>Very useful x86 <a href=http://www-2.cs.cmu.edu/~ralf/files.html>interrupt list</a>
-
-<p><b>Mike Acar</b>
-<br>Optimized ROT13 implementation
-
-<h3>Beta Testers</h3>
-
-And of course there have been numerous very helpful alpha and beta testers over the years, unfortunately, too many to list by name.
-Your contributions to the development of Synchronet are very important. Without users, no one (including me) would have much interest in developing Synchronet and without early-adopters and good bug-reports and feature requests, we wouldn't know what areas could use improvement. :-)
-
-<h3>Thank You</h3>
-
-Thanks to everyone on this list and everyone in the open-source and BBS hacker/hobbyist communities.
-<br>The world could use more people like you.
-
-<p align="right"><font face="Arial" size="1" , "Helvetica">Copyright � 2003 Rob
-Swindell <br>
- $Id$</font></p>
-
-</body>
-</html>
\ No newline at end of file
diff --git a/docs/customization.html b/docs/customization.html
deleted file mode 100644
index 6cf03b5920077dbfad616fbe52264d21e7c1cc84..0000000000000000000000000000000000000000
--- a/docs/customization.html
+++ /dev/null
@@ -1,1057 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=IBM437">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Customization</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="MenusAndTextFiles">[17.1] - Customization:
-Menus and Text Files</a></h2>
-<pre>One of the easiest and possibly the most obvious ways to customize or
-personalize your BBS is to change the look of the menus. Menus are merely ASCII
-text files (with optional ctrl-a codes or ANSI escape sequences) stored in the
-TEXT\MENU directory. The filenames are descriptive of the menu subject and
-the extensions represent the content of the file. The possible extensions and
-their meanings are:
-
-<b>RIP</b> Contains RIPscrip escape sequences for use with RIPterm
-<b>WIP</b> Contains WIP escape sequences for use with DC-Term
-<b>ANS </b> Contains ANSI escape sequences suitable for color display
-<b>MON</b> Contains ANSI escape sequences suitable for monochrome display
-<b>ASC</b> Contains no ANSI
-
-All of the above file types can contain ctrl-a codes, and only the ASC file
-must exist. If a user has color ANSI, the ANS file will be displayed; if it
-doesn't exist the ASC file will be displayed. If a user has monochrome ANSI,
-the MON file will be displayed; if it doesn't exist the ANS file will be
-displayed; and if it doesn't exist the ASC file is then displayed.
-
-A user without ANSI will always be displayed the ASC file.
-
-To edit files with ANSI escape sequences, it is usually preferable to use a
-utility designed for such a task. TheDraw is quite popular for this use.
-
-To edit files with ctrl-a codes, you can use any editor that allows the input
-of ctrl characters, but you won't see the attributes till you view the file
-within Synchronet. You can, however, use the Synchronet internal editor (;EDIT
-from the main menu) and it will display the attributes as you edit the file.
-The Synchronet editor limits the line length to 79 characters which may not be
-sufficient for lines with multiple ctrl-a codes.
-
-The best way to edit files with Ctrl-A codes is to first convert them to ANSI
-with MSG2ANS.EXE (see the Utility reference for more information). Then edit
-with an ANSI editor (such as TheDraw). Then convert back to Ctrl-A format
-using ANS2MSG.EXE (see the Utility reference for more information).
-
-
-<b>Menu Files Description
-</b>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-ALLMAIL Sysop's reading all mail on system menus
-ATTR Ctrl-A code menu for use within the Synchronet internal editor
-BATCHXFR Batch transfer menu
-BATDPROT Batch download transfer protocols
-BATFLAG Batch flag command key menu
-BATUPROT Batch upload transfer protocols
-BIPROT Bidirectional transfer protocols
-CHAT Chat section menu
-DLPROT Download transfer protocols
-E-MAIL E-mail section menu
-EDITOR Synchronet internal editor commands and line editing keys
-EXEMPT Exemption flag descriptions for use within User Edit
-FLAGS1 Flag set #1 descriptions for use within User Edit
-FLAGS2 Flag set #2 descriptions for use within User Edit
-FLAGS3 Flag set #3 descriptions for use within User Edit
-FLAGS4 Flag set #4 descriptions for use within User Edit
-LOGOFF Logoff ('O' command) screen
-LOGON Logon screen (LOGON2, LOGON3, ... LOGON9 also supported)
-MAILREAD Reading mail menu
-MAIN Main section menu
-MAINCFG Main configuration menu
-MAININFO Main information menu
-MSGSCAN Message reading/scanning menu
-MULTCHAT Multinode chat menu
-PRIVCHAT Private node-to-node chat menu
-QWK QWK Packet menu
-RESTRICT Restriction flag descriptions for use within User Edit
-SENTMAIL Reading sent mail menu
-SYSMAILR Sysop additional commands while reading mail
-SYSMAIN Sysop additional commands for main section
-SYSMSCAN Sysop additional commands while message reading/scanning
-SYSSMAIL Sysop additional commands while reading sent mail
-SYSXFER Sysop additional commands for transfer section
-TEMPXFER Temporary directory commands menu
-TRANSFER Transfer section menu
-UEDIT User Edit menu
-ULPROT Upload transfer protocols
-WFC Waiting for call menu
-XFERCFG Transfer section configuration menu
-XFERINFO Transfer section information menu
-
-
-<b>Optional Menus</b>
-
-The following files must be created in the TEXT\MENU directory if you wish to
-use them.
-
-GRPS Message Group listing
-SUBSx Message Sub-board listing, 'x' is the group number
-LIBS File Library listing
-DIRSx File Directory listing, 'x' is the library number
-XTRN_SEC External Program Sections
-XTRNx External Program listing, 'x' is the section number
-TEXT_SEC Text File Section listing
-TEXTx Text File listing, 'x' is the text file section number
-CHAN Multinode Chat Channels
-TMESSAGE Displays when the user enters the transfer section
-TPOLICY Transfer policy (&T transfer section command)
-
-<b>Other Optional Message Files</b>
-
-If you want to have an information file displayed for sub-boards when using
-the 'I' scanning command and 'IS' main menu command, create a file for the
-sub-board in the DATA\SUBS directory using the internal code for that sub-board
-as the name and .MSG as the extension. Example:
-
-<b>DATA\SUBS\GENERAL.MSG</b>
-
-If you want to create in information file for file directories to be displayed
-with the 'ID' transfer section command, create a file for the directory in
-the DATA\DIRS directory using the internal code as the name and .MSG as the
-extension. Example:
-
-<b>DATA\DIRS\GAMES.MSG</b>
-
-If you want to create a custom file listing header for a file directory, create
-a file in the DATA\DIRS directory using the internal code as the name and .HDR
-as the extension. Example:
-
-<b>DATA\DIRS\GAMES.HDR</b>
-
-<b>Colors</b>
-
-To modify some of colors of the BBS you can edit the ATTR.CFG file which is
-located in the CTRL directory. The file contains one color per line and is
-commented as to the use of the color. The colors are represented with ctrl-a
-code attribute letters/numbers. The number of colors you can change with this
-method is very small.
-
-<b>Text Files<u>
-</u></b>
-There are some text files that are displayed to users at different points
-in the system. The locations and descriptions follow (* indicates optional):
-
-<b>TEXT\ANSWER.ANS </b> Answer message for ANSI users
-<b>TEXT\ANSWER.ASC </b> Answer message for non-ANSI users
-<b>TEXT\ANSWER.RIP </b> Answer message for RIP users
-<b>TEXT\SYSTEM.MSG</b> Description of the system and its configuration
-<b>TEXT\NEWUSER.MSG </b>Displayed to new users (usually system rules)
-<b>TEXT\FEEDBACK.MSG</b> Displayed before new users write validation feedback
-<b>TEXT\NUPGUESS.MSG</b> *Displayed to callers attempting to guess the NUP (after
- failing to guess correctly)
-<b>TEXT\TOOSLOW.MSG</b> *Displayed to users logging onto a node at less than the
- minumum configured connect rate for that node
-<b>TEXT\BADCID.MSG </b> *Displayed to users calling from a number contained in
- CID.CAN
-<b>TEXT\BADNAME.MSG</b> *Displayed to new users trying to use a name contained
- in NAME.CAN
-<b>TEXT\BADPHONE.MSG</b> *Displayed to new users using a number contained in
- PHONE.CAN
-<b>TEXT\BADFILE.MSG</b> *Displayed to user trying to upload filename contained
- in FILE.CAN
-<b>TEXT\QWK\HELLO</b> *Included in QWK packets
-<b>TEXT\QWK\BBSNEWS</b> *Included in QWK packets
-<b>TEXT\QWK\BLT-0.? </b> *Included in QWK packets (? must be number)
-
-<b>Logon Message Flow Chart</b>
-
-Displayed filenames are in upper case.
-
-(Note: LOGON*.* are not displayed for local logons)
-
-���������������ͻ
-� TEXT\ANSWER.* �
-���������������ͼ
-��������������Ŀ
-� Logon Prompt �
-����������������
- �����������Ŀ �����Ŀ ���������������ͻ �����������������ͻ
- � New User? �Ĵ Yes �Ķ TEXT\SBBS.MSG �Ķ TEXT\SYSTEM.MSG �
- ������������� ������� ���������������ͼ �����������������ͼ
- ����Ŀ ������������������ͻ
- � No � � TEXT\NEWUSER.MSG �
- ������ ������������������ͼ
- � ��������������������Ŀ
- � � Password Selection �
- � ����������������������
- � �����������������������Ŀ
- � � Default Configuration �
- � �������������������������
- � �������������������ͻ �����Ŀ ��������������������Ŀ
- � � TEXT\FEEDBACK.MSG �Ĵ Yes �Ĵ Feedback Required? �
- � �������������������ͼ ������� ����������������������
- � ���������������Ŀ ����Ŀ
- � � Send Feedback � � No �
- � ����������������� ������
- � �������������������Ŀ �
- � � New User Event(s) ���������������������
- � ���������������������
- � �������������������ͻ
- ��Ķ TEXT\MENU\LOGON.* �
- �������������������ͼ
- ��������������������ͻ
- � TEXT\MENU\LOGON2.* �
- ��������������������ͼ
- ��������������������ͻ
- � TEXT\MENU\LOGON3.* �
- ��������������������ͼ
- ...
-
- ��������������������ͻ
- � TEXT\MENU\LOGON9.* �
- ��������������������ͼ
- ����������������Ŀ
- � Logon Event(s) �
- ������������������</pre>
-<h3><a name="Text/Colors">[17.1.1] - Text/Colors</a></h3>
-<pre>Virtually all the text and color that the BBS displays is stored in the file
-TEXT.DAT in the CTRL directory. The syntax of this file is VERY specific and
-extreme caution should be taken when editing it. Knowledge of the C language
-would be very helpful in producing the desired results. If all you want to
-do is change colors of a certain text line, take care not to disturb the
-arrangement of the other characters on the line. Ctrl-a codes can be preceded
-by an embedded ctrl-a character (usually a black happy face) or by a '\1'
-(the printf() equivalent of ctrl-a).
-
-The syntax of the characters between the double quotations is identical to
-the C language printf() format string with one exception: \xxx where x are
-digits (0-9) represents a decimal number, not an octal number. The range is
-0 to 255. If you wish to set a background color using \1 for the ctrl-a code,
-you may need to pad the attribute number with zeros. For example; to set the
-background to blue, you might try to use the sequence "\14" which won't work.
-You could either embed the actual ctrl-a character (which is preferred) or
-use "\0014".
-
-Some of the strings have characters preceded by a tilde ('~'). These strings
-are referred to as mnemonics. The tilde precedes a character that is to be
-highlighted for users supporting ANSI and enclosed in parenthesis for non-ANSI
-users. Usually used for prompt strings that contain the valid key commands.
-The colors to use for the highlighted characters, normal characters, and the
-command character are specified in the CTRL\ATTR.CFG file.
-
-The order of the % specifiers (if they exist) in a TEXT.DAT line cannot be
-altered. The display of %s specifiers can be suppressed by changing the '%s' to
-'%.0s'. Another way to suppress the display of specifiers is to enclose them
-between Ctrl-A( and Ctrl-A). Any text between Ctrl-A( and Ctrl-A) would only
-be displayed to users of level 90 or higher. To suppress the display to all
-users, put the text/specifiers between Ctrl-ACtrl-Z and Ctrl-A) (assuming
-that the Z flag from flag set #1 is not set on any user accounts).
-
-** WARNING **
-Make a backup of the TEXT.DAT file before you edit it. If you damage the file
-syntax when editing it, Synchronet may execute erroneously or even fail to
-initialize.</pre>
-<h3><a name="NodeActionText">[17.1.2] - Node Action Text</a></h3>
-<pre>The node action text can be over-ridden by editing the NodeAction lines in
-the TEXT.DAT file (see previous section for details on TEXT.DAT). The node
-action text is what is displayed on the node status line when a node is in
-use. (i.e. instead of "Node 1: So-and-so uploading at 14400bps", you could
-make it say whatever you like).
-
-You can also include the following optional specifiers (in this order):
-
-<b>%s</b> User's name or alias
-<b>%u</b> User's security level
-<b>%u</b> User's age
-<b>%c</b> User's sex (gender, M or F)
-<b>%s</b> User's computer type
-<b>%s</b> User's note
-<b>%s</b> Date user was first online
-<b>%u</b> Auxiliary value (chat channel, door number, paged node, etc)
-<b>%u</b> Connection rate (in bps)
-
-If you include any of the above specifiers, you must also include any of the
-specifiers above it. The order of the specifiers cannot be changed. If you
-wish to suppress the display of a %s specifier, use "%.0s" instead of "%s".
-To suppress other specifiers, see the previous section for details.</pre>
-<h3><a name="TrashCanFiles">[17.1.3] - Trash Can Files</a></h3>
-<pre>Trash can files are used to be able to reject text during certain sequences on
-the BBS. For example, if you don't want a user to be able to log on with a
-certain name or use a certain phone number, you would place the information you
-don't want them to use into the appropriate trash can file. Synchronet looks
-for trash can files in the \SBBS\TEXT directory, certain ones may already
-exist, others will need to be created if you wish to use them. The names of
-the various trash can files and their function are as follows:
-
-<b>TEXT\CID.CAN</b> You MUST have caller ID capabilities in your area (as well as a
- modem which can support those capabilities) in order to use
- this file. When a call comes in to the BBS who's caller ID
- phone number matches a phone number in this file, the call will
- be rejected.
-
-<b>TEXT\NAME.CAN</b> When a user attempts to use a name contained in this file as
- the name for their user account, they will be told that s/he
- cannot use that name.
- If the file <b>TEXT\BADNAME.MSG</b> exists, this will be displayed to
- the user.
-
-<b>TEXT\FILE.CAN</b> When a user uploads a file to the transfer section who's
- filename matches one of the names contained in this file, the
- user will be told that s/he cannot upload the file.
- If the file <b>TEXT\BADFILE.MSG</b> exists, this will be displayed to
- the user.
-
-<b>TEXT\PHONE.CAN</b> When a user attempts to use a phone number contained in this
- file as a phone number for their user account, they will be
- told that s/he cannot use that phone number. This file can
- also be used by the Synchronet Callback Verifier program.
- If the file <b>TEXT\BADPHONE.MSG</b> exists, this will be displayed to
- the user.
-
-The trash can files also allow special key characters to be used within them,
-the tilde '~' character means "contained within" and the carrot '^' character
-means "beginning with". For example:
-
-<b>sysop </b>in the name.can would mean users could not use the name "sysop".
-
-<b>sysop^</b> would mean users could not use names beginning with the word "sysop",
- like "sysopa" or "sysops" etc.
-
-<b>sysop~</b> would mean users could not use names that have the word "sysop"
- anywhere in them, like "imthesysop" or "mesysophere".
-
-These key characters can be used in any of the trash can files.</pre>
-<h2><a name="MessageVariables">[17.2] - Customization:
-Message Variables</a></h2>
-<pre><b>Using Message Variables</b>
-
-Message Variables (also called @-Codes) are a way to customize text files in
-Synchronet to display information about the user online or the BBS.
-If Synchronet encounters an @-Code in a text file (i.e.: TEXT.DAT, menus, etc.),
-it will replace the @-Code in the file with the information that it corresponds
-with. @-Codes in e-mail messages and posts will only be expanded if they were
-posted locally (not networked) by user #1. TEXT.DAT lines that have %
-specifiers will not expand @-Codes unless the % specifiers are removed.
-
-For example, placing the following line in a text file displayed to a user
-named Fred Jones living on 100 Maple Street:
-
- <b>Hi @ALIAS@, you live at @ADDR1@ don't you?</b>
-
-Would result in the user seeing:
-
- <b>Hi Fred Jones, you live at 100 Maple Street don't you?
-</b>
-It's that simple. The following is a list of the @-Codes that Synchronet will
-recognize. Remember that the Code NAME must begin and end with an @ symbol.
-The two columns after the description of the @-Code show which other BBS
-programs also support that @-Code (either PCBoard or Wildcat).
-
-The @-Codes with "[...]" following the name indicate that you can have the
-variable displayed with padding. If the @-Code name ends in "-L" the variable
-will be left justified and "-R" indicates it will be right justified. If for
-example, the user's name is Bob, the text string "___@NAME-L@___" would display
-to the user as "___Bob ___" and the text string "___@NAME-R@___" would
-display to as "___ Bob___". If you want the string to be padded longer, you
-can add extra characters to the end of the @-Code name and before the
-terminating '@' sign. So for example, "___@NAME-L#####@___" would display as
-"___Bob ___" (the "___" segments of the above text examples are only
-to demonstrate where the padding begins and ends).
-
-*** Synchronet Supported @-Codes ***
-( * Indicates Synchronet specific )
-
-Note: All codes must be uppercase and sandwiched between @ symbols
- (e.g. @USER@).</pre>
-<pre><b>System Information</b></pre>
-<pre><b>Code Description Ver
-</b>---------------------------------------------------------------------------
-BBS Name of BBS
-BOARDNAME Name of BBS
-CONF Name of current Group and Sub-board
-CONFNUM Number of current Group and Sub-board
-CONN Connection description (modem type, "Telnet", "Local") <b>2.3c</b>
-DATE Current system date
-DIR Current file directory short description
-DIR-L[...] " " padded and left justified
-DIR-R[...] " " padded and right justified
-DIRL Current file directory long description
-DIRL-L[...] " " padded and left justified
-DIRL-R[...] " " padded and right justified
-DN Number of current file directory
-DL " " padded and left justified (4 chars wide)
-DR " " padded and right justified (4 chars wide)
-FIDOADDR System's primary FidoNet address <b>2.3c</b>
-FREESPACE Free disk space available for uploads
-GRP Current message group short description
-GRP-L[...] " " padded and left justified
-GRP-R[...] " " padded and right justified
-GRPL Current message group long description
-GRPL-L[...] " " padded and left justified
-GRPL-R[...] " " padded and right justified
-GN Number of current message group
-GL " " padded and left justified (4 chars wide)
-GR " " padded and right justified (4 chars wide)
-INETADDR System's Internet Address (as configured in SCFG) <b>2.3c</b>
-LASTCALLERNODE Name of user last on this node
-LASTCALLERSYSTEM <same as LASTCALLERNODE>
-LIB Current file library short description
-LIB-L[...] " " padded and left justified
-LIB-R[...] " " padded and right justified
-LIBL Current file library long description
-LIBL-L[...] " " padded and left justified
-LIBL-R[...] " " padded and right justified
-LN Number of current file library
-LL " " padded and left justified (4 chars wide)
-LR " " padded and right justified (4 chars wide)
-LOCAL-IP System's IP address <b>3.0b</b>
-LOCATION System location (city, state) <b>2.3c</b>
-NOACCESS Why user was denied access (last false ARS)
-NODE Number of current node
-NODE### Status of node number ###
-NUMCALLS <same as STATS.LOGONS>
-NUMDIR Number of current library and directory
-PREVON <same as LASTCALLERNODE>
-QUESTION Current Yes/No question (for TEXT\MENU\YESNO.*)
-QWKID System's QWK BBS-ID <b>2.3c</b>
-REV Software revision (single letter)
-STATS.LOGONS Total logons during history of system <b>3.0b</b>
-STATS.LTODAY Total logons today <b>3.0b</b>
-STATS.TIMEON Total time used during history of system (in minutes) <b>3.0b</b>
-STATS.TTODAY Total time used today (in minutes) <b>3.0b</b>
-STATS.ULS Total uploads today <b>3.0b</b>
-STATS.ULB Total bytes uploaded today <b>3.0b</b>
-STATS.DLS Total download today <b>3.0b</b>
-STATS.DLB Total bytes downloaded today <b>3.0b</b>
-STATS.PTODAY Total posts today <b>3.0b</b>
-STATS.ETODAY Total e-mails sent today <b>3.0b</b>
-STATS.FTODAY Total feedbacks sent today <b>3.0b</b>
-STATS.NUSERS Total number of new users today <b>3.0b</b>
-SUB Current message sub-board short description
-SUB-L[...] " " padded and left justified
-SUB-R[...] " " padded and right justified
-SUBL Current message sub-board long description
-SUBL-L[...] " " padded and left justified
-SUBL-R[...] " " padded and right justified
-SN Number of current message sub-board
-SL " " padded and left justified (4 chars wide)
-SR " " padded and right justified (4 chars wide)
-SYSDATE Current system date
-SYSOP Name of System Operator
-SYSTIME Current system time
-TCALLS Total number of logons for system
-TFILE Total number of files on system
-TIME Current system time
-TMSG Total number of messages on system
-TNODE Total number of nodes on system
-TUSER Total number of user slots on system
-VER BBS version number
-WHO Display status of all active nodes</pre>
-<pre><b>User Information</b>
-
-<b>Code Description Ver
-</b>---------------------------------------------------------------------------
-ADDR1 User's street address
-ALIAS User's name or alias
-BAUD User's connect rate (DCE) in bps
-BDATE User's birthdate (MM/DD/YY)
-BPS <same as BAUD>
-BYTELIMIT User's free credits per day
-BYTESLEFT User's total credits
-CALLS Total number of logons for user
-CID Caller's Caller-ID info or IP address <b>2.3c</b>
-CITY User's city
-COMPANY User's company name or real name
-CPU User's computer type (v2.x) or hostname (v3.x)
-DATA <same as PHONE>
-DATAPHONE <same as PHONE>
-DAYBYTES Number of free credits used today by user
-DLBYTES Total bytes downloaded by user
-DLFILES Total files downloaded by user
-DLKLIMIT User's total credits (in kilobytes)
-DOWNK Total kilobytes downloaded by user
-DOWNS <same as DLFILES>
-EXDATE User's expiration date (MM/DD/YY)
-EXPDATE <same as EXDATE>
-EXPDAYS Days left before user expires
-FIRST User's first name/alias
-FIRSTREAL User's first real/company name
-FROM User's location (City, State)
-HANDLE User's chat handle
-HOMEPHONE <same as PHONE>
-HOST <same as CPU> <b>2.3c</b>
-IP <same as CID> <b>2.3c</b>
-KBLEFT User's total credits (in kilobytes)
-KBLIMIT User's free credits per day (in kilobytes)
-LAST User's last name (alias)
-LASTDATEON Date of user's last logon (MM/DD/YY)
-LASTNEW Date of user's last new file scan (MM/DD/YY)
-LASTON Date and time of user's last logon
-LASTTIMEON Time of user's last logon (HH:MM am)
-LASTREAL User's last real/company name
-LEFT <same as MINLEFT>
-MAILW Number of mail messages waiting for current user
-MAILW:x Number of mail messages waiting for current user #x
-MAILP Number of pending mail messages sent by current user
-MAILP:x Number of pending mail messages sent by current user #x
-MAXDK <same as KBLIMIT>
-MEMO Date of user's last password modification
-MEMO1 User's note
-MEMO2 <same as COMPANY>
-MINLEFT User's time left in minutes
-MSGLEFT Total number of messages posted by user
-MSGREAD Number of messages read by user this call
-MSGSLEFT <same as MSGLEFT>
-NAME User's name or alias
-NAME-L[...] User's name (padded and left justified)
-NAME-R[...] User's name (padded and right justified)
-NEWFILETIME Date and time of user's last new file scan
-NUMTIMESON <same as CALLS>
-PHONE User's phone number (###-###-####)
-REAL User's real first name
-SEC User's security level
-SECURITY <same as SEC>
-SINCE Date of user's first call (MM/DD/YY)
-STATE User's state (from location)
-TIMELEFT <same as MINLEFT>
-TIMELIMIT Maximum time per call in minutes
-TIMEON Time used this call in minutes
-TIMEUSED <same as TIMEON>
-TLEFT Time left (H:MM:SS)
-TPERC Time allowed per call (H:MM:SS)
-TPERD Time allowed per day (H:MM:SS)
-TUSED Time used this call (H:MM:SS)
-UPBYTES Total bytes uploaded by user
-UPFILES Total files uploaded by user
-UPK Total kilobytes uploaded by user
-UPS <same as UPFILES>
-USER User's name or alias (same as ALIAS)
-ZIP User's zip/postal code </pre>
-<pre><b>Display</b>
-
-<b>Code Description Ver
-</b>---------------------------------------------------------------------------
-AUTOMORE Toggle automatic pausing
-BEEP Generate a beep
-BELL <same as BEEP>
-CLS Clear screen
-CRLF Carriage return/line-feed pair <b>3.0b</b>
-MENU:filename Display a menu file (from TEXT\MENU directory)
-MSGREPLY Command key to reply to last message <b>3.0b</b>
-MSGREREAD Command key used to re-read last message <b>3.0b</b>
-NOPAUSE <Same as POFF>
-MORE <same as PAUSE>
-PAUSE Immediately produces a [Hit a key] prompt
-PON Toggles automatic screen pause for everyone
-POFF Toggles automatic screen pause for everyone
-TYPE:filename Display a specific filename
-UP Move cursor up one row (ANSI) <b>3.0b</b>
-UP:n Move cursor up n rows (ANSI) <b>3.0b</b>
-DOWN Move cursor down one row (ANSI) <b>3.0b</b>
-DOWN:n Move cursor down n rows (ANSI) <b>3.0b</b>
-RIGHT Move cursor right one column (ANSI) <b>3.0b</b>
-RIGHT:n Move cursor right n columns (ANSI) <b>3.0b</b>
-LEFT Move cursor left one column (ANSI) <b>3.0b</b>
-LEFT:n Move cursor left n columns (ANSI) <b>3.0b</b>
-GOTOXY:x,y Move cursor to x/y (1-based) (ANSI) <b>3.0b</b>
-PUSHXY Save current cursor position (ANSI) <b>3.0b</b>
-POPXY Restore saved cursor position (ANSI) <b>3.0b</b></pre>
-<pre><b>Miscellaneous</b></pre>
-<pre>There a few special Synchronet specific @-Codes which require a parameter
-(following the colon and before the terminating @ symbol):</pre>
-<pre><b>Code Description
-</b>---------------------------------------------------------------------------
-HANGUP Immediately disconnect user
-SETSTR:STR Sets the current Baja command string to STR
-EXEC:MODNAME Execute a loadable (Baja) module, EXEC\MODNAME.BIN
-TYPE:FILENAME Display a specific filename (must specify path and file ext.)
-MENU:FILENAME Display a menu file (from TEXT\MENU with automatic file ext.)
-
-Synchronet command line specifiers may be used in the FILENAME parameter to
-the TYPE: @-Code allowing symbolic replacment for specific Synchronet
-directories (%!, %z, %k, %j, etc).
-
-<b>Examples:</b>
-
-@EXEC:MYMOD@
-@TYPE:%zSYSTEM.MSG@
-@MENU:YESNO@</pre>
-<h2><a name="MessageColorCodes">[17.3] - Customization:
-Message Color Codes</a></h2>
-<pre>Synchronet supports six different Color Code formats. When Synchronet
-encounters one of these Color Codes in a message, it changes the text following
-the Color Code to the specified color. Support of the formats which are not
-native to Synchronet (WWIV, Celerity, Renegade, PCBoard, and Wildcat) can be
-toggled on and off from the Synchronet Configuration utility (System->Message
-Options->Extra Attribute Codes). The non-Synchronet color codes (Extra
-Attribute Codes) only affect the text that is displayed on the SAME LINE. When
-using Synchronet color codes, the new color is retained from line to line until
-another color code is processed or the end of the text is reached.
-
-<b><font size="4">Synchronet Format</font></b>
-
-The native Synchronet Color Code format (preferred) consists of a Control-A
-followed by a singe character. The following is a list of valid Control-A
-Color Codes:
-
-<b> Foreground Background
-</b> ---------- ----------
-Black K 0
-Red R 1
-Green G 2
-Yellow Y 3
-Blue B 4
-Magenta M 5
-Cyan C 6
-White W 7
-
- <b>Attribute Description</b>
- --------- -----------
-High H High Intensity
-Blink I Blinking
-Normal N No Special Attributes (Normal)
-Pause P Insert a Pause Prompt into message
-Pause Reset Q Reset the line counter for the auto screen-pause
-Delay , Insert a Tenth Second Delay into message
-Delay ; Insert a Half Second Delay into message
-Delay . Insert a Two Second Delay into message
-Date D Display the system date
-Time T Display the system time
-Cls L Insert a Form Feed (Ctrl-L, Clear Screen) into message
-Clreol > Clear to End of Line (leave cursor in current position)
-Bckspc < Non-destructive backspace (Ctrl-H)
-CR [ Carriage return (Ctrl-M)
-LF ] Line feed (Ctrl-J)
-Ctrl-A A Send an actual Ctrl-A character
-Sync S Synchronize output with remote system
-EOF Z End of displayable text in this file
-
-Normal - Same as 'N' but only sends ANSI codes if the
- (minus) High Intensity, Blinking, or Background attribute is
- set.
-
-Normal _ Same as 'N' but only sends ANSI codes if the
- (underscore) Blinking or Background attribute is set.
-
-Synchronet also supports Special Control-A codes used to hide text from users
-not meeting certain criteria (i.e.: Security Level or Flags from Flag Set #1).
-The following is a list of Special Control-A codes, and a brief description
-of each code's usage:
-
-<b>Code Description</b>
--------------------------------------------------------------------------------
-^A thru ^Z Only display the following text to users with the corresponding
- flag A through Z turned on (from Flag Set #1).
-
- ! Toggle the text display off/on for users of less than level 10.
- @ " " 20.
- # " " 30.
- $ " " 40.
- % " " 50.
- ^ " " 60.
- & " " 70.
- * " " 80.
- ( " " 90.
- ) Restore the displaying of text to ALL users.
-
- "<filename> Display contents of <filename> (from your TEXT directory)
-
-High Bit (greater than ASCII 127) Used for cursor right positioning.
-
-<b><font size="4">WWIV Format</font></b>
-
-Synchronet also supports Color Codes which are native to WWIV BBS software.
-These codes consist of a Control-C followed by a number (0 through 7):
-
-<b>Code Color</b>
----- -----
- 0 Normal
- 1 High Intensity Cyan
- 2 High Intensity Yellow
- 3 Normal Magenta
- 4 High Intensity White with Blue Background
- 5 Normal Green
- 6 High Intensity Blinking Red
- 7 High Intensity Blue
- 8 Low Intensity Blue
- 9 Low Intensity Cyan
-
-<b><font size="4">Celerity Format</font><u>
-</u></b>
-Synchronet also supports Color Codes which are native to Celerity BBS software.
-These codes consist of a pipe symbol '|' followed by a letter (case sensitive):
-
-<b>Code Color (foreground)
-</b>---- ------------------
- k Normal Black
- b Normal Blue
- g Normal Green
- c Normal Cyan
- r Normal Red
- m Normal Magenta
- y Brown
- w Normal White
- d High Intensity Black
- B High Intensity Blue
- G High Intensity Green
- C High Intensity Cyan
- R High Intensity Red
- M High Intensity Magenta
- Y Yellow
- W High Intensity White
- S * Swap foreground and background
-
-Example: "|b|S|W" would set the current color to high intensity white on a
- blue background.
-
-Note: Due to conflicting escape sequences (namely, the pipe character),
- Celerity color codes are not supported when using RIP terminal mode.
-
-<font size="4"><b>Renegade Format</b></font>
-
-Synchronet also supports Color Codes which are native to Renegade BBS software.
-These codes consist of a pipe symbol '|' followed by a number (0-23):
-
-<b>Code Color</b>
----- -----
- 0 Normal Black
- 1 Normal Blue
- 2 Normal Green
- 3 Normal Cyan
- 4 Normal Red
- 5 Normal Magenta
- 6 Brown
- 7 Normal White
- 8 High Intensity Black
- 9 High Intensity Blue
- 10 High Intensity Green
- 11 High Intensity Cyan
- 12 High Intensity Red
- 13 High Intensity Magenta
- 14 Yellow
- 15 High Intensity White
- 16 Background Black
- 17 Background Blue
- 18 Background Green
- 19 Background Cyan
- 20 Background Red
- 21 Background Magenta
- 22 Background Brown
- 23 Background White
-
-Example: "|15|17" would set the current color to high intensity white on a
- blue background.
-
-Note: Due to conflicting escape sequences (namely, the pipe character),
- Renegade color codes are not supported when using RIP terminal mode.
-
-<font size="4"><b>PCBoard/Wildcat Format</b>
-</font>
-Two of the Color Code formats which Synchronet supports (PCBoard and Wildcat)
-use similar, yet cryptic, methods of displaying colors. The PCBoard method
-uses the format "@X<Background><Foreground>", and Wildcat uses the format
-"@<Background><Foreground>@". The following is a list of the Background and
-Foreground choices available:
-
-<b><Background> Color Attribute <Foreground> Color Attribute</b>
------------- ----- --------- ------------ ----- ---------
- 0 Black Normal 0 Black Normal
- 1 Blue " 1 Blue "
- 2 Green " 2 Green "
- 3 Cyan " 3 Cyan "
- 4 Red " 4 Red "
- 5 Magenta " 5 Magenta "
- 6 Brown " 6 Brown "
- 7 White " 7 White "
- 8 Black Blinks Foreground 8 Black High Intensity
- 9 Blue " 9 Blue "
- A Green " A Green "
- B Cyan " B Cyan "
- C Red " C Red "
- D Magenta " D Magenta "
- E Brown " E Yellow "
- F White " F White "
-
-Example: "@1F@" in Wildcat format and "@X1F" in PCBoard format would set the
- current color to high intensity white on a blue background.</pre>
-<h2><a name="SIFQuestionnaireFile">[17.4] - SIF Questionnaire File</a></h2>
-<pre>An automatic new user SIF questionnaire can be specified in SCFG->System.
-If a newuser SIF is specified, all users who logon and don't have a copy of
-the answered questionnaire data in their user file will be given the
-questionnaire upon logon. The sysop can view the answered questionnaire from
-User Edit with the '#' command. For convenience, the sysop can create a second
-(abbreviated) SIF file for his own use in viewing user's answers. The two SIF
-files (input and output) should be identical with the exception of what is
-in the 'text' portion.
-
-format:
-
-<b><STX>text<ETX>mode[mod][l][r][x][.n]["str"]</b>
-
-element descriptions:
-
-<b>STX </b> is the ASCII code for start of text (ASCII 2 / Ctrl-B)
-<b>ETX</b> is the ASCII code for end of text (ASCII 3 / Ctrl-C)
-
-<b>text</b> is any number of ASCII characters - Synchronet Ctrl-A codes supported
-
-<b>mode</b> text input mode desired for this field. Possible mode values are:
- c single character
- s string of characters
-
-<b>mod</b> optional mode modifier. Possible mode modifiers are:
- n numeric characters only
- u input converted to uppercase
- f forced word capitalization ('s' mode only)
-
-<b>l</b> input line will be displayed (inverse bar of maximum input length)
-
-<b>r</b> a carriage return / line feed pair will be appended to this field
- in the data buffer. Only use this field if you want the data buffer
- or file to be more readable. All data is on one line otherwise.
-
-<b>x</b> maximum string length allowed (required for non-template 's' mode)
-
-<b>n</b> minimum string length allowed (only applicable with 's' input mode)
-
-
-<b>str</b> 1: in 's' modes, a template string that defines what will be displayed
- at the prompt and what type of characters the user can input. All
- characters other than 'N', 'A' or '!' are printed at the prompt.
- Occurances of 'N', 'A' or '!' define which type of character the user
- can input for each character position. 'N' allows the user only to
- enter a numeric character, 'A' allows only alphabetic, and '!' allows
- any character. Popular templates are "NNN-NNN-NNNN" for phone number
- input or "NN/NN/NN" for date input.
-
- 2: in 'c' modes, a string that defines which characters the user will
- be allowed to input (not case sensitive), usually used for multiple
- choice answers. Most common allowed characters are "ABCD..." or
- "1234...". If this string is specified in 'c' input mode, 'u' and 'n'
- have no effect and input will be converted to uppercase automatically.
-
-<b>Example 1:</b></pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre><BOT>
-Enter string: <EOT>sulr8.3</pre>
- </td>
- </tr>
-</table>
-<pre>Prints the prompt, "Enter string: ", then a line of 8 blue spaces
-(an input bar, if you like), would convert all of user's input to uppercase,
-allow the user to input a maximum of eight characters, a minimum of three and
-append a CRLF onto the end of the data field.
-
-<b>Example 2:</b></pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre><BOT>
-A> First Answer
-B> Second Answer
-C> Third Answer</pre>
- <pre>Which: <EOT>c"ABC"</pre>
- </td>
- </tr>
-</table>
-<pre>Prints "A> First Answer" "B> Second Answer" etc... then allows the
-user to input one character, either A,B, or C. No other characters will be
-accepted as input.
-
-<b>Example 3:</b></pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre><BOT>
-Enter phone number: <EOT>s"NNN-NNN-NNNN"</pre>
- </td>
- </tr>
-</table>
-<pre>Prints "Enter phone number: ", then allows the user to input only
-numbers in the 'N' character positions, and automatically skips over the
-'-' characters.
-
-
-See <b>EXAMPLE.SIF</b> in the <b>SBBS\TEXT</b> directory for more information.</pre>
-<h2><a name="GURU.DAT">[17.5] - GURU.DAT</a></h2>
-<pre>The Synchronet Guru is an artificial intelligence engine that users can chat
-with for entertainment or educational purposes. You may wish to fool the users
-into believing the guru is a live human, or tell them up-front that it's just
-a program.
-
-You may have up to 500 different guru available to chat with on your BBS,
-each with its own "personality" and "intelligence". You add additional gurus
-in SCFG->Chat Options->Artificial Gurus. You can specify access requirements
-(see the ARS chapter for details) for each guru, allowing you to have specific
-gurus for different groups of users or allow users to choose which guru they
-want to chat with.
-
-The gurus of your BBS can be "taught" to respond to keywords and phrasing that
-your users use when chatting with him. The default guru's "brain" is a file
-named GURU.DAT that is kept in the CTRL directory. It is a special data file
-that contains logic expressions and lists of responses. Before you edit the
-GURU.DAT file, be sure you understand exactly what you are doing, as the neuro
-system that interprets the GURU.DAT file does not handle syntax errors very
-well. The basic structure of the GURU.DAT is as follows:
-
-<b>(expression)
-response
-response
-(expression)
-response
-response
-()
-response
-response
-response</b>
-
-You may include as many Expression/Response sets as you like, as long as
-the file size does not exceed 64k or the amount of available memory.
-Each expression contains one or more string of characters that The Guru may
-respond to and logic operators. The string must be in all uppercase and may
-not contain the following characters: ~^|&()
-
-If the expression just contains one string (e.g. (HELLO)) and that string is
-used in the users input, The Guru will pick a random response from the list
-that follows that expression. The Guru will only use one response for each
-line input by the user, so as soon as a "true" expression is encountered, a
-response is made and the evaluation of the user's line is complete.
-
-All expressions are evaluated from the top of the file down, so if a true
-expression is encountered toward the top of the file, all of the remaining
-expressions are ignored until the next evaluation. Notice that the last set of
-responses is preceded by a pair of empty parenthesis. This is an "always true"
-expression and should always be the last expression in the file. Omitting this
-fall-through expression is a syntax error. If all the previous expressions are
-evaluated as false, then a response will be picked from the set following the
-fall-through expression.
-
-The simplest form of an expression is just a string of uppercase letters (with
-or without spaces). If the string is followed by a tilde '~', the string will
-be evaluated as true even if the string is embedded in another string (e.g. if
-the user types "XhelloX", an expression of (HELLO) would evaluate as false, but
-an expression of (HELLO~) would evaluate as true).
-
-You can also specify that the string must be the beginning of the users input
-line by following the string with a caret '^'symbol (e.g. if the user types
-"I said, Hello!", an expression of (HELLO) would evaluate to true, but an
-expression of (HELLO^) would be false).
-
-An expression can contain multiple strings connected with logic symbols. The
-valid logic symbols are & (and) and | (or) (e.g. if you have the expression
-(HELLO&GURU) the user must type both "hello" and "guru" in the input line in
-order for the expression to be true. If you have the expression (HELLO|HI), it
-will be evaluated as true if the users includes either "hello" or "hi" in his
-input string). Nested evaluations are supported (e.g. the expression,
-(GURU&(HELLO|HI)) will evaluate as true if the user inputs either "guru" and
-"hello", or "guru" and "hi").
-
-Expressions may also contain AR strings within square brackets ([ and ]). The
-expression (HELLO&GURU&[LEVEL 20]) would evaluate as TRUE only if the user
-typed the words "HELLO" and "GURU" and had a level of 20 or higher. See the
-ARS chapter for details on the AR string syntax and possible keywords.
-
-<b>RESPONSES:</b>
-
-Each expression can be followed by up to 100 responses and each response can
-be up to 512 bytes long. Responses can not contain the characters ( or ) and
-may only span several lines if the last character of each continued line is a
-back-slash '\'. Responses are picked at random from the group below the first
-expression that is evaluated as true. The more responses you have to each
-expression, the less likely The Guru is to repeat himself. The Guru can also
-respond with information about the current user or perform an action. To
-initiate these special responses, you must precede a valid response variable
-with a back-quote (`) character. The valid response variables and their
-definitions are as follows:
-
-A User's alias (name, if Aliases not allowed)
-B User's birth date
-C User's computer type
-D User's download bytes
-G Guru's name
-H Hang up on the user (immediately)
-I System's QWK ID
-J Current day of the month
-L User's security level
-M Current month
-N User's note (location, if Aliases not allowed)
-O Sysop's name
-P User's phone number
-Q Quit chat
-R User's real name (address, if Aliases not allowed)
-S System name
-T Current time
-U User's upload bytes
-W Current day of the week
-Y Current year
-Z User's zip/postal code
-$ User's credits
-# User's age
-! Toggle The Guru's typing mistakes Off/On
-_ Pause in response
-
-Three of the above response variables only have effect when the user is
-chatting with The Guru in the "Local" mode and not from multinode chat. These
-are the 'Q'uit chat (which is the only means of the exiting without hitting
-Alt-G locally), '!' Toggle typing mistakes, and '_' pause in response.
-
-e.g. The expression/response pair:
-
-<b>(HELLO)
-Hello there, `a...</b>
-
-would display "Hello there, Joey..." if Joey were to say "hello" to The Guru.
-
-See <b>CTRL\GURU.DAT</b> for more detailed examples of GURU.DAT programming.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/default.htm b/docs/default.htm
deleted file mode 100644
index 8a46a3538b5c4a430c2b2a10b5e7d233caace6ba..0000000000000000000000000000000000000000
--- a/docs/default.htm
+++ /dev/null
@@ -1,8 +0,0 @@
-<!-- This is for http servers that default to default.htm -->
-<html>
-
-<head>
-<meta http-equiv="refresh" content="0; URL=index.htm">
-</head>
-
-</html>
\ No newline at end of file
diff --git a/docs/dove-net.txt b/docs/dove-net.txt
deleted file mode 100644
index 20e404d609c31bcd6cfe22c74ee0b024fdac697e..0000000000000000000000000000000000000000
--- a/docs/dove-net.txt
+++ /dev/null
@@ -1,351 +0,0 @@
-DOVE-Net Introduction, Rules and Instructions
--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-
-$Id$
-
-Q. What is DOVE-Net?
-
-A. DOVE-Net is a message network connecting numerous BBSes and the users on
- those BBSes together through QWK and Fido networking technologies. DOVE-Net
- consists of primarily Synchronet {tm} BBSes. This is due to the fact that
- the co-founders of DOVE-Net are also the developers of Synchronet BBS
- software. DOVE-Net is not limited to one specific BBS package and welcomes
- any QWK or Fido network compatible BBS to join as long as their software of
- choice does not interfere with the operation of the network in any way.
-
-
-Q. Why the name DOVE-Net?
-
-A. Two BBSes began DOVE-Net back in 1989. These BBSes were Vertrauen (Home
- of Synchronet BBS Software) and The Beast's Domain (Home of Domain
- Entertainment BBS Add-ons). The word DOVE came from DOmain VErtrauen,
- much like the word MODEM came from MOdulator DEModulator. It has nothing
- to do with that species of bird or the symbolism of peace, but we have
- nothing against those things either. It was a small network that needed
- a small name.
-
-
-Q. What is the focus of DOVE-Net?
-
-A. Connecting BBS sysops and users without a lot of politics and red tape.
- DOVE-Net requires no "application processing time" or "node numbers" to
- be assigned. While the capabilities of DOVE-Net rival those of more
- technically complex networks, it has none of the setup complexities as
- reflected by the fact that many of the systems on DOVE-Net are managed by
- first-time sysops. DOVE-Net allows (or rather encourages) the use of color
- codes in messages (preferably using the Synchronet Ctrl-A standard, but
- Wildcat, PCBoard, Celerity, Renegade, and WWIV color codes are also
- supported in Synchronet BBS software and may also be used). DOVE-Net allows
- the use of aliases, ANSI encoded messages (when necessary for animation)
- and use of high-ASCII characters. There are no strict "hubbing" rules;
- pretty much anyone that's willing to feed anyone else is encouraged to do
- so. DOVE-Net is moderated only by the founders of the network so there
- aren't different rules for different message areas that users need to
- remember. Private messages are allowed, but when possible, routed NetMail
- is preferred. DOVE-Net has very few rules, and the few that do exist are
- often bent.
-
-
-Rules
-=====
-DOVE-Net has mostly been a self-moderated network. This means that the sysops
-of DOVE-Net have decided when a specific message, user, or thread is deemed
-inappropriate. However, today, most of the users of DOVE-Net are also the
-sysops of DOVE-Net. And when there are too many "kings", you can have chaos.
-The ultimate "king" of DOVE-Net is me, Digital Man (Rob Swindell). I don't
-claim this title because I want to, but rather because I have to: someone has
-to be "king" or NC (Network Coordinator), or whatever-you-want-to-call-it.
-
-If a sysop has a complaint or suggestion about DOVE-Net, they usually e-mail
-me or post on the "DOVE-Net Sysops Only" conference. The "DOVE-Net Sysops
-Only" conference is the preferred venue for internal DOVE-Net discussion
-(and test messages). However, this conference is not guaranteed to be limited
-to "DOVE-Net Sysops Only" (some sysops do slip up and allow access to normal
-users). So for the most sensitive matters, it is recommended that sysops send
-me e-mail.
-
-DOVE-Net has survived and even at times thrived for over a dozen years
-without a specific set of "rules", but recent user activies have convinced me
-that I need to "lay down the law". So here we go:
-
-The following actions are not allowed:
-
- 1. Excessive personal attacks
- 2. Excessive use of profanity
- 3. Excessive off-topic messages
- 4. Excessive advertisements
- 5. Excessive use of capital letters
- 6. Excessive use of non-English text
- 7. Encoded, encrypted, or otherwise indecipherable messages
- 8. Fraudulent messages
- 9. Impersonating someone you are not
-
-How do you know if an action constitutes "excessive" behavior or not? Compare
-your actions to those of other long-time DOVE-Net sysops and users. If your
-messages seem "out of place" it's probably because they are.
-
-A violation of these rules may result in a warning, a reprimand, or in the
-worst cases, temporary or permanent expulsion from DOVE-Net. Or there may be
-no consequences at all. There may be no warning at all. I give no guarantee
-of consistent, fair, or impartial enforcement of these rules. But generally
-speaking, if you use common sense and don't abuse the network or the sysops
-or users in the network, you'll do just fine. I certainly gain no pleasure
-from enforcing rules and would rather everyone "just get along" and the net
-continue to self-rule as it has since King Drafus and I created it so many
-years ago.
-
-DOVE-Net is not a democracy. You are not guaranteed "free speech" or
-"equal opportunity". DOVE-Net access is a privilege, not a right.
-
-
-Instructions
-============
-
-Step 1: Choose a QWK-ID
------------------------
-If you're using Synchronet BBS Software, your BBS's QWK-ID is configured
-in SCFG->Message Options->BBS ID for QWK Packets. SCFG is the Synchronet
-Configuration Utility accessible by running exec/scfg or using the
-BBS->Configure menu option in the Synchronet Control Panel (Win32 only).
-
-Your QWK-ID should be an abbreviation of your BBS name or have some other
-personal significance, and must be unique among others on DOVE-Net (see
-NODES.DAT included in DOVE-NET.ZIP to verify the uniqueness of your QWK-ID).
-
-QWK-IDs are limited to a maximum of eight characters in length, may only
-contain valid DOS filename characters, and MUST begin with an alphabetic
-character. QWK-IDs are not case sensitive.
-
-
-Step 2: Create a QWKnet Account
--------------------------------
-Assuming you will be using Vertrauen BBS as your hub, you will need to logon
-as "New" at telnet://vert.synchro.net and create your QWKnet account using
-your BBS's QWK-ID as the user name (even if you already have a regular user
-account there).
-
-You must answer (Y)es to the following new user question:
-"Is this account to be used for QWK Networking (DOVE-Net)?"
-
-Remember the password you used to create this account, you'll need it later.
-
-It is important that you do NOT use a regular user account for QWK packet
-transfers.
-
-Note: You can optionally use one of the other Vertrauen servers
-(rob.synchro.net or cvs.synchro.net) if you wish. They all share the same
-BBS databases.
-
-
-Step 3: Configure Your BBS Software
------------------------------------
-If you are using Synchronet BBS Software Version 3.1 or later, skip ahead
-to "Using the Baja FTP Client...".
-
-Synchronet BBS Software for Win32 v3.00 comes pre-configured for DOVE-Net
-using the Windows command-line FTP client application to transfer packets
-with Vetrauen (vert.synchro.net). All you need to do is follow the
-instructions in the pre-installed file: EXEC\VERT.BAT.
-
-*** FTP Caveat ***
-Normal FTP transfers require a separate data session back to your system.
-This is normally handled automatically by the FTP software, but if your
-system is behind a firewall, proxy server, or other gateway that does not
-support normal (non-passive) FTP sessions, the FTP file transfers will fail.
-You will need to either enable normal FTP support in your gateway system,
-switch to a different FTP client application (e.g. WS_FTP) that supports
-passive (PASV) mode, or use a scripted telnet client as an alternative method
-of transferring packets.
-
-If you're a Synchronet sysop using an older version of Synchronet, consult
-the step-by-step instructions in the QWK networking chapter of your sysop
-manual, but use the updated conference numbers at the end of this document.
-Additionally, if you're going to use Vertrauen (VERT) as your hub, then
-you'll need to connect using a scripted Telnet or FTP client (details follow).
-
-
-Using a Scripted Telnet Client for QWKnet Transfers
----------------------------------------------------
-Any Telnet client that supports scripting should work. I've included a script
-for ZOC (Telnet client for Windows and OS/2) written by PistolGrip
-(sysop@wasteland.darktech.org). This script and instructions on how to use it
-are included in ZOCQWK11.ZIP.
-
-
-Using a Scripted FTP Client for QWKnet Transfers
-------------------------------------------------
-Your hub must be running a Synchronet v3 FTP Server for you to use FTP for
-QWKnet transfers. If you're using Vertrauen as your hub, the FTP address is
-ftp://vert.synchro.net. To use the command-line FTP client that comes with
-Windows, follow these steps (ignore these instructions if you've installed
-Synchronet v3.00b or later):
-
-1. Edit the enclosed VERT.BAT file to reflect the correct location of your
- Synchronet DATA directory. If you using a hub other than Vertrauen, change
- the filenames to reflect your hub's QWK ID.
-
-2. Edit the enclosed VERT.FTP file to reflect your system's QWK ID, the
- password you used for your QWKnet account, and the correct location of your
- Synchronet DATA directory.
-
-3. Copy VERT.BAT and VERT.FTP to your Synchronet EXEC directory.
-
-4. Change your QWKnet call-out command line to "%!VERT.BAT".
-
-
-Using the Baja FTP Client for QWKnet Transfers (Requires Synchronet v3.1+)
---------------------------------------------------------------------------
-This is the preferred method of QWKnet packet transfers.
-
-1. Make sure you have the file QNET-FTP.BIN in your EXEC directory.
-
-2. Change the QWKnet call-out command line (in SCFG->Networks->QWK->Hubs->VERT)
- to "*QNET-FTP VERT vert.synchro.net YOURPASS" but replace YOURPASS with the
- password you used when creating your QWKnet account on Vertrauen.
-
-
-Terminology (as used in this document)
---------------------------------------
-
-Hub: A BBS that feeds another BBS messages for a message network
-Node: A BBS that calls another BBS to exchange messages for a network
- A BBS can be (and most often is) either "both a node and a hub"
- or "only a node", if you're joining DOVE-Net for the first time,
- then your system will be "only a node".
-QWK: Message packet format used for off-line mail readers
-QWKnet: Message networking technology using QWK packets
-Fido: Message networking technology based on Fido BBS software
-FidoNet: The single largest amateur message network on Earth {tm}
-Echo: Message area that is connected to multiple BBSes via message
- network
-NetMail: Private message between one user and another not stored in a
- topical message area (echo), similar in princicple to Internet
- e-mail
-SMB: Synchronet Message Base format, download SMB_*.ZIP from
- Vertrauen for technical specification and C library
-
-
-QWK Technical Notes
--------------------
-
-Non-Synchronet systems importing DOVE-Net messages may notice some things about
-the messages which are different from other BBS packages. The first line of
-each message may contain "@VIA:" and a list of DOVE-Net BBS ID's the message
-has passed through, each separated by a slash character. This line is used to
-automatically create and maintain the Synchronet ROUTE.DAT "map" file as well
-as detect circular message paths (dupe loops). The first or second line of each
-message may contain "@TZ:" and a four character hexadecimal number. This is the
-time zone (as defined in the SMB specification) of the BBS that the message was
-originally posted on. These Synchronet-specific QWK features can be disabled
-from the online QWK: menu. Note, if Ctrl-A codes are enabled, the @VIA/@TZ
-lines are automatically enabled for QWKnet nodes as well. So to disable the
-@VIA/@TZ lines, you must also disable (strip) Ctrl-A codes.
-
-Messages exported from Synchronet may also contain Synchronet Ctrl-A color
-codes. These can be disabled for any hubs you're calling in SCFG (Synchronet
-Configuration Program) or if the other BBS is calling you, then they can
-disable them by sending a message to "SBBS" with a title of "CTRL-A STRIP".
-
-The following control messages are supported by Synchronet for QWK networking.
-The message must be posted to "SBBS" from the node BBS:
-
-Subj: DROP [conf#]
-Note: Drop current conference (or specified conference #) from future packets
-
-Subj: ADD [ptr | -msgs | mm/dd/yy]
-Note: Add current conference to future packets and optionally set message ptr
-
-Subj: RESET [ptr | -msgs | mm/dd/yy]
-Note: Set message pointer for current conference, - indicates offset from last
-
-Subj: RESETALL [ptr | -msgs | mm/dd/yy]
-Note: Set message pointers for all conferences
-
-Subj: FREQ <filename>
-Note: File Request from file transfer database (not attachments)
-
-Subj: FILES [ON | OFF | mm/dd/yy]
-Note: Include files list in packet and/or specify new-scan date
-
-Subj: ATTACH [ON | OFF]
-Note: Include file attachments in packet automatically (e-mail only)
-
-Subj: CTRL-A [KEEP | EXPAND | STRIP]
-Note: Ctrl-A color/attribute codes - leave-in, expand to ANSI, or remove
-
-Subj: TZ [ON | OFF]
-Note: Include time-zone (@TZ) lines in exported messages
-
-Subj: VIA [ON | OFF]
-Note: Include path (@VIA) lines in exported messages
-
-Subj: MSGID [ON | OFF]
-Note: Include @MSGID and @REPLY lines in exported messages
-
-Subj: NDX [ON | OFF]
-Note: Include index (.NDX) files
-
-Subj: CONTROL [ON | OFF]
-Note: Include extraneous control files (CONTROL.DAT, DOOR.ID, NETFLAGS.DAT)
-
-
-DOVE-Net QWK Conference Numbers on Vertrauen
-============================================
-Conf Name Access Requirements
----- -------------------------------------- -------------------
-2001 General
-2002 Advertisements
-2003 Entertainment
-2004 Debate
-2005 Hardware/Software Help
-2006 Programming
-2009 Unix Discussion
-2015 HAM Radio Operators
-2016 Internet Discussion
-2017 Pro-Audio Discussion
-2018 Firearms Discussion
-2019 Sports Discussion
-2007 Synchronet Discussion
-2008 Synchronet Sysops Only LEVEL 90 OR REST Q
-2011 Synchronet Programming (Baja)
-2014 Synchronet Programming (non-Baja)
-2013 Synchronet Data LEVEL 90 OR REST Q
-2010 DOVE-Net Sysops Only LEVEL 90 OR REST Q
-
-
-Access Requirements
--------------------
-The "DOVE-Net Sysops Only" conference MUST NOT be publicly accessible. This
-message area is for discussion among DOVE-Net Sysops ONLY. This is the
-correct message area to use for "test messages".
-
-The "Synchronet Data" conference contains messages not intended for human
-consumption (the messages are used to synchronize the global BBS List and
-Match Maker databases), so this message area should not be publicly
-accessible.
-
-The "Synchronet Sysops Only" conference should not be publicly accessible,
-except for users that claim to be Synchronet Sysops.
-
-
-Gateways
---------
-You *must* not gate DOVE-Net conferences to any other network without
-explicit, prior permission.
-
-The following DOVE-Net conferences are already gated to other networks:
-
-Synchronet Discussion <=> alt.bbs.synchronet USENET newsgroup
-Synchronet Discussion <=> SYNCHRONET echo on the FidoNet Zone 1 Backbone
-Synchronet Sysops Only <=> SYNC_SYSOPS echo on the FidoNet Zone 1 Backbone
-Synchronet Programming <=> SYNC_PROGRAMMING echo on the FidoNet Zone 1 Backbone
-Synchronet Data <=> SYNCDATA echo on the FidoNet Zone 1 Backbone
-
-
-Contact Information
--------------------
-Vertrauen: telnet/ftp/nntp/gopher/finger: vert.synchro.net
- backup servers: rob.synchro.net and cvs.synchro.net
-Co-founder: rob@synchro.net
-
-/* End of DOVE-NET.TXT */
diff --git a/docs/emusetup.bat b/docs/emusetup.bat
deleted file mode 100755
index 532f7b3695a2e3d5384e460915ca26967663edaa..0000000000000000000000000000000000000000
--- a/docs/emusetup.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-set PATH=%PATH%;e:\dosutils
-
-REM fossil driver, such as x00, bnu, or dosemu fossil.com
-fossil.com
-rem bnu.com /P1 /L0=11520
-rem x00.exe
-REM share.exe for multinode file locking
-share.exe
-REM ansi.com for console i/o programs
-ansi.com
-
diff --git a/docs/exebbs.bat b/docs/exebbs.bat
deleted file mode 100755
index a3576af977d5a996cd40080e2ae90d97d628302c..0000000000000000000000000000000000000000
--- a/docs/exebbs.bat
+++ /dev/null
@@ -1,30 +0,0 @@
-@echo off
-rem ***************************************************************************
-rem EXEBBS.BAT for use with FrontDoor and Synchronet BBS v1c
-rem if using with InterMail, change all "FD"s to "IM"s
-rem ***************************************************************************
-
-rem ***************************************************************************
-rem Drive where this Synchronet node is installed
-rem ***************************************************************************
-c:
-rem ***************************************************************************
-rem Directory for this node
-rem ***************************************************************************
-cd \sbbs\node1
-rem ***************************************************************************
-rem You probably don't want to mess with this line
-rem ***************************************************************************
-call sbbs qc%1 e%3
-rem ***************************************************************************
-rem Drive where FrontDoor is installed
-rem ***************************************************************************
-c:
-rem ***************************************************************************
-rem Change directory to FrontDoor system directory
-rem ***************************************************************************
-cd \fd
-rem ***************************************************************************
-rem Call MAILER.BAT so we go full-circle
-rem ***************************************************************************
-mailer
diff --git a/docs/external_programs.html b/docs/external_programs.html
deleted file mode 100644
index ae893a248a5f016c07a57618aef0678007febd71..0000000000000000000000000000000000000000
--- a/docs/external_programs.html
+++ /dev/null
@@ -1,568 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>External Programs</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="ExternalProgramConfiguration">[12.0] - External Program
-Configuration</a>
-
-</h2>
-<pre>Selecting the External Programs option from the SCFG will bring you to the
-following sub-menu, an explanation of the options shown here follow.</pre>
-<h2><img border="0" src="images/scfg_xtrn_section.png" width="572" height="331"><br>
-<br>
-<a name="FixedEvents">[12.1] - Fixed Events</a>
-
-</h2>
-<pre><img border="0" src="images/scfg_xtrn_fixed.png" width="572" height="331">
-
-<b>Logon Event:</b>
- This is the command line for a program that will execute during the
- logon sequence of every user. The program cannot have user interaction.
- The program will be executed after the LOGON message is displayed and
- before the logon user list is displayed. If you wish to place a program
- in the logon sequence of users that includes interaction or requires
- account information, you probably want to use an online external
- program configured to run as a logon event.
-
-<b>Logoff Event:
-</b> This is the command line for a program that will execute during the
- logoff sequence of every user. This program cannot have user
- interaction because it is executed after carrier is dropped. If you
- wish to have a program execute before carrier is dropped, you probably
- want to use an online external program configured to run as a logoff
- event.
-
-<b>Daily Event:
-</b> This is the command line for a program that will run after the first
- user that logs on after midnight, logs off (regardless of what node).</pre>
-<h2><a name="TimedEvents">[12.2] - Timed Events</a>
-
-</h2>
-<pre>Selecting Timed Events from the External Programs menu will give you a list of
-currently configured timed events. Following is an example of a timed event
-called MAIN, and the options available for timed events.</pre>
-<pre><img border="0" src="images/scfg_xtrn_timed.png" width="572" height="331"></pre>
-<pre><b>Internal Code:
-</b> This is an internal code for SBBS to distinguish this event from
- the others on the system. This must be a unique name of up to 8 valid
- DOS filename characters.
-
-<b>Start-up Directory:
-</b> This is the directory where the event execution should take place.
- Synchronet will change to this directory before executing the command
- line for this event.
-
-<b>Command Line:
-</b> This is the command line for a program that will run on the specified
- times and days.
-
-<b>Execution Node:
-</b> This is the node that will execute the event.
-
-<b>Execution Days:
-</b> These are the day(s) when this timed event will be executed.
-
-<b>Execution Time:
-</b> This is the time (in 24hr format) for the above mentioned program
- to execute.
-
-<b>Requires Exclusive Execution:
-</b> You may set this event to run exclusively (all other nodes inactive
- or taken offline) by selecting this option.
-
-<b>Force Users Off-line For Event:
-</b> Setting this to Yes will cause the BBS to force users offline for this
- event.</pre>
-<h2><a name="GlobalSwapList">[12.3] - Global Swap List</a>
-
- <b><i><font color="#FF0000">(v2 for DOS Only)</font></i></b>
-
-</h2>
-<pre><img border="0" src="images/scfg_xtrn_swaplist.png" width="572" height="331">
-
-This is a list of programs which, when run, will cause Synchronet to swap out
-of memory. This is useful for large executables, or programs which have the
-possibility of Utilitizing a large amount of memory. Shown is an example of
-what might be in your swap list. Notice that it is not necessary to specify
-an extension for the programs unless an extension is specified on the command
-line to be executed. If a file extension is specified (EXE, COM, or BAT)
-the extension must be specified on the command line for the program to be found
-in the swap list.</pre>
-<h2><a name="Native32bitProgramList">[12.4] - Native (32-bit) Program List</a>
-
-</h2>
-<pre><img border="0" src="images/scfg_xtrn_winos2list.png" width="572" height="331"><u>
-</u>
-When running a node with Synchronet for OS/2 or Win32, all external programs
-(doors, editors, file viewers, etc) will be assumed DOS programs and executed
-inside a virtual DOS machine (VDM) automatically unless the program's name is
-included in this list. Only CMD.EXE (OS/2 command interpreter) should be
-included with an extension (e.g. .EXE) unless you actually configure your
-external program command lines in SCFG with extensions (note ZIP and UNZIP do
-not have specified extensions). All native Win32 and OS/2 programs that you
-wish to execute from the BBS must be added to this list.</pre>
-<h2><a name="ExternalEditors">[12.5] - External Editors</a>
-
-</h2>
-<pre>This selection will bring up a list of external editors that are available as
-alternatives to the Synchronet built-in editor. Editors can be added and
-deleted with the INS and DEL keys. Selecting an editor allows you to view and
-edit its settings. The available settings are (example given is for SyncEdit):</pre>
-<pre><img border="0" src="images/scfg_xtrn_syncedit.png" width="572" height="331"></pre>
-<pre><b>Internal Code:
-</b> This is an internal code for SBBS to distinguish this editor from
- the others on the system. This must be a unique name of up to 8 valid
- DOS filename characters.
-
-<b>Local Command Line:
-</b> This is the command line to use when the user is online locally.
-
-<b>Remote Command Line:
-</b> This is the command line to use when the user is online remotely.
-
-<b>Access Requirements:
-</b> These are the requirements that a user must meet to be able to use
- this external editor.
-
-<b>Intercept I/O Interrupts:
-</b> If the editor relies on Synchronet for intercepting I/O interrupts,
- this option should be set to Yes. When set to Yes, you will be able
- to specify whether or not the editor uses WWIV color codes.
-
-<b>Quoted Text:
-</b> If you want all the message text to be automatically entered into the
- message edit/quote file (INPUT.MSG or MSGTMP), set this option to
- 'All'.
-
- If you want the user to be prompted for which lines to quote before
- running the editor, set this option to 'Prompt User'.
-
- If you want none of the lines to be automatically quoted, set this
- option to 'None'. This option is mainly for use with editors that
- support the QUOTES.TXT drop file (like SyncEdit v2.x).
-
-<b>QuickBBS Style (MSGTMP):
-</b> If this editor was designed to run on QuickBBS, Remote Access, or
- SuperBBS (uses a MSGTMP file for editing), set this option to Yes.
- This option will also create a MSGINF file automatically as well.
-
-<b>Expand Line Feeds to CRLF:
-</b> If this editor stores new lines as a single line feed character, set
- this option to Yes.
-
-<b>BBS Drop File Type:
-</b> If this editor requires a BBS drop file (DOOR.SYS, DORINFO#.DEF, etc)
- use this option to select the drop file format.</pre>
-<h2><a name="OnlinePrograms">[12.6] - Online Programs</a>
-
-</h2>
-<pre>This selection will generate a list of configured external program sections.
-You can add and remove external program sections from this list with the INS
-and DEL keys. To edit an external program section or the external programs
-within that section, select it with the arrow keys and hit ENTER.
-
-<a name="DropFiles">For</a> each external program section, you can set the Name, Internal Code,
-and Access Requirements. Selecting "Available External Programs" will give
-a list of external programs contained in this external program section.
-Synchronet has been designed to eliminate the need for batch files and
-drop file conversion programs to run external programs (doors) on your BBS.
-Synchronet supports many different drop file types (often referred to as
-drop files) listed below.</pre>
-<h3><a name="SupportedDropfileTypes:">[12.7] - Supported Dropfile Types:</a>
-
-</h3>
-<pre>Software Write File(s) Read File(s)
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-DOOR32 <b><font color="#FF0000">(v3+ Only)</font></b> DOOR32.SYS
-GAP DOOR.SYS DOOR.SYS
-WWIV CHAIN.TXT
-PCBoard 14.x PCBOARD.SYS and USERS.SYS USERS.SYS
-RBBS/QuickBBS DORINFO#.DEF and EXITINFO.BBS EXITINFO.BBS
-Wildcat! 2.x CALLINFO.BBS
-SpitFire SFDOORS.DAT
-TriBBS TRIBBS.SYS
-MegaMail UTIDOOR.TXT
-Solar Realms DOORFILE.SR
-Synchronet XTRN.DAT MODUSER.DAT</pre>
-<h2><a name="Call-backVerifiers">[12.8] - Call-back Verifiers</a>
-
-</h2>
-<pre>Call-back verification and user upgrade programs for other BBS packages may be
-used, as long as the program supports the DOOR.SYS, EXITINFO.BBS, USERS.SYS,
-or MODUSER.DAT file format. In general, Call-back verifiers written for
-PCBoard, GAP, QuickBBS, or Synchronet will work. To allow a program to modify
-the user data, you must set the option "Modify User Data" to "Yes". The
-following user data items may be updated with the following formats:
-
-DOOR.SYS: Security level, Flag Set #1, Expiration Date, Minutes,
- Total Files/Bytes Downloaded, and Credits
-EXITINFO.BBS: Security level and Flag Set #1
-USERS.SYS: Security level and Expiration Date
-MODUSER.DAT: Security level, Flag Set #1-#4, Exemptions, Restrictions,
- Expiration Date, Credits, and Minutes</pre>
-<h2><a name="InstallingNewExternalProgram">[12.9] - Installing a
-New External Program</a>
-
-</h2>
-<pre>Install your new external program into a sub-directory off your XTRN directory.
-
-Example: C:\SBBS\XTRN\TRADEWAR
-
-If your program asks you to provide the directory where the BBS software is
-installed or where the drop file will be located, enter the directory where
-you have installed the program (C:\SBBS\XTRN\TRADEWAR). Note: this is usually
-only required for programs that do NOT support multiple nodes.
-
-The full path and file name of the drop file can be specified on the command
-line by using the %f command line specifier in SCFG.</pre>
-<h2><a name="ConfiguringNewExternalProgram">[12.10] - Configuring
-a New External Program</a>
-
-</h2>
-<pre>Run SCFG from any NODE directory (or hit 'C' at the Waiting For Call screen).
-Select "External Programs" and hit enter. Hit END and ENTER for the External
-Program Sections menu and select an External Program Section to add this
-new program to. Select "Available External Programs" and hit the Insert key.
-Enter a description for your new external program.
-
-Now your new external program appears in the list. Hit ENTER to edit the
-configuration for this program. Synchronet BBS List is given as an example.</pre>
-<pre><img border="0" src="images/scfg_xtrn_sbl.png" width="572" height="331">
-
-<b>Name:</b>
- This is the name of the external program that will be shown to users.
-
-<b>Start-up Directory:
-</b> The start-up directory will be the current directory when the program
- is started. Move the lightbar down to "Start-up Directory" and hit
- ENTER. Enter the path to the directory where you've installed the
- program.
-
-<b>Command Line:
-</b> This is the command required to execute your external program. If the
- path and filename for the BBS drop file is required on the command
- line, use %f to represent the path and filename. See Appendix A for
- a full list of available command line specifiers.
-
- You can launch a Baja module in place of a DOS executable by prepending
- an asterisk (*) to the name of the Baja module (e.g. "*MYMOD"). The
- module .BIN file must be located in your EXEC directory.
-
- Some programs, when set to SWAP, require ".\" to be prepended to the
- command line (e.g. ".\MYDOOR") to function properly.
-
-<b>Clean-up Command Line:
-</b> If your external program requires a clean-up command line (usually only
- multi-user programs), select "Clean-up Command Line" and enter the
- required command line for your program. Note: Most programs do NOT
- require this option.
-
-<b>Cost in Credits:
-</b> If you wish your users to be charged credits when running this program,
- you should enter the amount to charge the users here. Users with the
- 'X' exemption will not be charged.
-
-<b>Extra Minutes:
-</b> This option will allow you to give extra time to users for use in the
- external program they are entering. For example, with this option set
- to 10, a user having 15 minutes left on the BBS will end up having
- 25 minutes in the external program they enter. This is especially
- useful in conjunction with the 'Suspended (Free) Time' option.
-
-<b>Suspended (Free) Time:
-</b> Setting this option to "Yes" will cause a user's time left online to
- suspend (not countdown) when they enter the external program. The
- user's time allowed in the external program, however, will be what they
- had left on the BBS. To give them more time in the external program,
- use the above 'Extra Minutes' option.
-
-<b>Access Requirements:
-</b> If you wish to limit which users have access to (can see) this program,
- use this option to set those requirements.
-
-<b>Execution Requirements:
-</b> If you wish to have some users see but not be able to execute this
- program, use this option to determine what requirements must be met to
- run the program.
-
-<b>Multi-user:
-</b> If this program supports multiple simultaneous users, set this option
- to "Yes".
-
-<b>Intercept I/O Interrupts:
-</b> If this program does NOT have it's own modem communications I/O and
- does NOT use a FOSSIL driver, select "Intercept I/O Interrupts" and set
- it to "Yes". Note: Most programs require this option be set to "No".
- Programs written specifically for WWIV or Synchronet BBS software,
- should usually have this option set to "Yes". Consult the documentation
- for the program if you are unsure. If you do set this option to "Yes",
- and the program was not written specifically for Synchronet, you'll
- need to place the following string at the BEGINNING of your command
- line: "%!dcdwatch %&". You will also be able to select whether or not
- the program uses WWIV color codes when setting this option to Yes.
-
- Without the use of DCDWATCH, the program will not exit if a user drops
- carrier (hangs up) while using the program (unless specifically written
- for Synchronet). Some programs time-out eventually, and exit back to
- the BBS, but not all.
-
-<b>Swap BBS out of Memory:</b>
- If this program requires a large amount of free memory, set this
- option to 'Yes' and Synchronet will swap to XMS, EMS, Extended
- Memory or Disk (see "Node Toggle Options" for Swap Type selection) to
- make room for this program to execute. Setting this option to 'Yes'
- has this same effect as adding this program to the "Global Swap List",
- but is available as a toggle on this menu for your convenience.
-
-<b>Modify User Data:</b>
- If this program can modify the current user's data through one of the
- supported drop file types (see Call-back Verifiers above), set this
- option to Yes.
-
-<b>Execute on Event:</b>
- If you want this program to run automatically during user logon,
- logoff, new user application, or a user's birthday, use this option.
-
-<b>BBS Drop File Type:</b>
- If your program requires a BBS drop file (most do), use this option to
- select the type of drop file to create.
-
-<b>Place Drop File In:</b>
- This is the directory where the drop file will be created. In general,
- for multi-user programs or programs that can have the path and filename
- of the drop file included on the command line or in a config file,
- select "Node Directory". For single user programs that require the drop
- file to be in the current directory, select "Start-up Directory".
-
-<b>Time Options...:</b>
- Selecting this option will bring you to a sub-menu similar to the
- following:</pre>
-<blockquote>
- <blockquote>
- <pre><img border="0" src="images/scfg_xtrn_timeopt.png" width="572" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b> Extra Time:
-</b> This option allows you to give users an extra amount of time
- (in minutes) which can be used only within this online program.
-
-<b> Maximum Time:
-</b> This option allows you to set the maximum amount of time a user
- should be able to spend in this online program (in minutes) PER
- execution (not per day or per call).
-
-<b> Suspended (Free) Time:
-</b> When this option is set to 'Yes', a users' time is suspended
- while they are within the online program. That is, if they
- enter the door with 60 minutes remaining on the BBS, when
- they get back to the BBS they will still have 60 minutes of
- time remaining.</pre>
-<h2><a name="ExampleDoorGameSetups">[12.11] - Examples
-for some popular programs</a>
-
-</h2>
-<pre>It is advised to install all your doors off the SBBS\XTRN directory
-(e.g. C:\SBBS\XTRN\BRE) if it's not too late. This will help keep all
-your doors in an easy to reference point. Also, this is where the
-pre-configured doors (SBL,SMM) are installed by default.</pre>
-<pre>When configuring your Doors it is best whenever possible to place the
-dropfiles in your SBBS\NODE# directories and configure the game to
-look there for the file. This ensures smooth Multinode usage if your
-door supports multiple users at the same time.</pre>
-<h3><a name="LORD">[12.11.1] - Legend
-of the Red Dragon (LORD)</a>
-
-</h3>
-<pre>From the LORDCFG program your configuration should look something like this:</pre>
-<pre><img border="0" src="images/lordcfg.png" width="572" height="331"></pre>
-<pre>You will need to do this for each of your nodes. Be sure to set the 'Path
-To Drop File' to the node directory of the node you are configuring. The
-reason we set the 'Locked Port Speed' to 'Port Not Locked' is because you
-should be locking the speed of your FOSSIL when you load it, once that's done,
-it can't be altered.</pre>
-<pre>*** Be Sure to edit <b>START.BAT</b> and check for proper paths and filenames!</pre>
-<pre>Now go into your SCFG program and create a new external program. It should
-look like this when it's all setup:</pre>
-<pre><img border="0" src="images/scfg_xtrn_lord.png" width="572" height="331"></pre>
-<h3><a name="Usurper">[12.11.2] - Usurper</a></h3>
-<pre>You MUST use a fossil driver in order to use this program. Follow the Usurper
-documentation for getting the game going. </pre>
-<pre>Next, bring up the USURPER.CFG into a text editor and edit the first few lines
-(or you can do it through the EDITOR program that comes with Usurper). It
-should end up looking something like this:</pre>
-<table border="0" cellpadding="3" cellspacing="3" width="70%" bgcolor="#CCCCCC">
- <tr>
- <td width="100%">
- <pre>Sysop Name Goes Here
-BBS Name Goes Here
-C:\SBBS\XTRN\USURPER\
-DORINFO1.DEF</pre>
- </td>
- </tr>
-</table>
-<pre>The important things are line 3 and line 4. Line 3 MUST be the path to your
-Usurper directory (with a trailing backslash) and line 4 must be the type
-of drop file (I used DORINFO1.DEF like the Usurper documentation recommends).
-
- Now you'll need to go into your SCFG program and add an external program.
-Set it up to look something like this:</pre>
-<pre><img border="0" src="images/scfg_xtrn_usurper.png" width="572" height="331"></pre>
-<h3><a name="TradeWars2002">[12.11.3] - Trade Wars 2002</a></h3>
-<pre>From the TEDIT program your configuration should look something like this:</pre>
-<pre><img border="0" src="images/tw2002.png" width="572" height="331"></pre>
-<pre>You will need to do this for each of your nodes. Be sure to set the 'Path
-To Drop File' to the node directory of the node you are configuring.
-
-Now go into your SCFG program and create a new external program. It should
-look like this when it's all setup:</pre>
-<pre><img border="0" src="images/scfg_xtrn_tw2002.png" width="572" height="331"></pre>
-<h3><a name="BRE">[12.11.4] - Barren Realms Elite (BRE)</a></h3>
-<pre>Install and Configure BRE per the instructions in the BRE documentation.</pre>
-<pre>Now go into your SCFG program and create a new external program. It should
-look like this when it's all setup:</pre>
-<pre><img border="0" src="images/bre.png" width="572" height="331">
-
-BRE and the other SR / John Daily games are easy with Synchronet since
-it supports SR Games native DOORFILE.SR . Just place the DOORFILE.SR
-in BRE's directory and all is well.</pre>
-<pre>** Note: BRE is not Multiplayer and can only be used on one node at a time.
- However, we can leave Allow Multiple Users ON in SCFG as BRE will
- inform the player the game is in use by itself.</pre>
-<h2><a name="InternalGateways">[12.12] - Internet Gateways</a></h2>
-<pre>This allows users on your system to be connected to other TCP/Telnet services
-on the Internet through your BBS. Typically, these services would be other
-telnetable BBSs and MUDs, although really, you can gate to any single-port
-TCP service (i.e. POP3, but not FTP).</pre>
-<pre><b>TELNET_GATE <"str" || str_var> [mode]</b></pre>
-<pre>The str or str_var argument is the destination address in the format:</pre>
-<pre> <b><addr>[:port]</b></pre>
-<pre>If port is not specified, the default is 23 (telnet), or 513 (when the
-<b>TG_RLOGIN</b> mode is used).</pre>
-<pre>Examples:</pre>
-<pre> "<i>vert.synchro.net</i>"
- "<i>24.0.193.46</i>"
- "<i>retromud.org:3000</i>"</pre>
-<pre>The valid mode bits (multiple may be <b>|</b>'d together) are:</pre>
-<pre> <b>TG_ECHO</b> Turn on telnet echo
- <b>TG_CRLF</b> Expand sole CR to CRLF
- <b>TG_LINEMODE</b> Send entire lines only
- <b>TG_NODESYNC</b> Call Nodesync, get msgs, etc.
- <b>TG_CTRLKEYS</b> Interpret ^P ^U ^T, etc locally
- <b>TG_PASSTHRU</b> Pass-through telnet commands/responses
- <b>TG_RLOGIN</b> Use BSD <i>RLogin</i> protocol
-
-This function can be called from any module or shell, but will most likely be
-used from the external programs menu (even though the telnet gate isn't
-technically an external program). The following modules are included (in your
-<b>EXEC</b> directory): <b>TELGATE.BIN</b>, <b>MUDGATE.BIN</b>, <b>UNIXGATE.BIN</b>, and <b>RLOGIN.BIN</b>.
-Use them as follows:</pre>
-<pre> To set-up an external gateway to another BBS:</pre>
-<pre> Command line: "<b>*telgate vert.synchro.net</b>"</pre>
-<pre> To set-up an external gateway to a MUD:</pre>
-<pre> Command line: "<b>*mudgate batmud.bat.org</b>"</pre>
-<pre> To set-up an external gateway to a Trade Wars Game Server (TWGS):</pre>
-<pre> Command line: "<b>*rlogin twgs.someserver.com"</b></pre>
-<pre>While using the telnet gateway (and not currently in telnet "Binary" mode),
-users can press ctrl-] for a menu of telnet gate commands including: Disconnect,
-Toggle Echo, List Users, and Private Message.</pre>
-<h2><a name="TroubleshootingExternalPrograms">[12.13] - Troubleshooting
-External Programs</a></h2>
-<pre> This section will explain common reasons why an external program may not be
-functioning properly and what can be done to get the program functioning
-properly. It is impossible for Digital Dynamics to be familiar with every
-available external program, therefore if you continue to have problems with
-a program after reading this section, you should contact the company that wrote
-the external program you are working with.
-
-IMPORTANT NOTE: Some games will not work properly if you do not put a PATH on
- the command line (see the L.O.R.D. example), others will (see
- the Usurper example). If your game is not working at all,
- try using a path on the command line (e.g.: .\GAMENAME).
-
-PROBLEM : The external program works, but displays the wrong user name.
-SOLUTION: Check to see that the program is looking in the proper place for the
- drop file. Usually you will need to specify the path to look for the
- drop file on the command line or in the program's setup program or
- config file(s).
-
-PROBLEM : The program works fine locally, but when people call in they cannot
- see anything.
-SOLUTION: If the game uses a FOSSIL driver, make sure that you have a FOSSIL
- driver loaded and make sure that you've locked the baud rate at the
- same rate that you've locked Synchronet's com ports.
- If the game uses it's own internal com routines (no FOSSIL required),
- you should be able to pass it IRQ and I/O Address information (either
- through configuration files, or on the command line) otherwise the
- game probably will not work on anything other than the standard COM1
- and COM2.
-NOTE : Normally only games written for Synchronet or WWIV will ever require
- the 'Intercept I/O Interrupts' option to be set to YES. If a game
- has it's own internal com routines or uses a FOSSIL set this option
- to NO.
-
-PROBLEM : The program works fine locally, but when people call in they only see
- garbled information.
-SOLUTION: If the game is using a FOSSIL driver, make sure the locked rate of
- the FOSSIL is the same as the locked rate in Synchronet.
- If you are running Synchronet under OS/2 and you have "Intercept I/O"
- set to "Yes" for this program, make sure you are using the SVDMANSI
- program for ANSI under OS/2.
-
-PROBLEM : The program works fine when only one user is playing, but when a
- second user tries to enter it doesn't function properly.
-SOLUTION: The program is probably not intended for multiple simultaneous users.
- Be sure to set the 'Multiple Concurrent Users' option to NO if this
- is the case.</pre>
-<p> <a href="#top"><b>Back to Top</b></a></p>
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/features.html b/docs/features.html
deleted file mode 100644
index de49317b73419f45402ff4f34c6c8e975ed7d8d5..0000000000000000000000000000000000000000
--- a/docs/features.html
+++ /dev/null
@@ -1,313 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Features</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><b><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></b></p>
-
-<h2>Synchronet Features</h2>
-
-<h3>General</h3>
-
-<ul>
- <li>Designed from the ground up as a reliable and feature rich multi-node BBS</li>
- <li>Up to 250 simultaneous nodes with multi-node chat and external program
- (door) support</li>
- <li>Sysop inter-node control (remote or local):<br>
- Interrupting - hang up on any node<br>
- Locking - only sysops can logon a locked node until the
- lock is removed<br>
- Rerunning - re-executes BBS, reinitializing
- configuration, etc.<br>
- Downing - shutdown a node from another remote node or
- local console</li>
- <li>Real-time user database:<br>
- Amazingly complete user edit function<br>
- Remote changes to online-user data are immediately
- effective<br>
- Disk image is always current for enhanced system fault
- tolerance<br>
- Linked free-form data file for every user<br>
- International address and phone number support</li>
- <li><i><b>RIPscrip</b></i> and <i><b>WIP</b></i> graphical user interfaces and
- mouse support!</li>
- <li>Online, sysop configurable, chatting artificial intelligence engine<br>
- Multiple personalities available for your users to experience</li>
- <li>Pay BBS features:<br>
- Time credits, user expiration dates, credits, and 900/976 billing</li>
-</ul>
-<h3>Security</h3>
-<ul>
- <li><i><b>ARS</b></i> (<i>Access Requirement String</i>) security provides the
- most flexible, comprehensive, and user friendly security available in the
- BBS software industry</li>
- <li>Post/Call ratio, connect rates, time of day, and other user data fields
- can be elements of any <i>ARS</i> security field</li>
- <li>Impenetrable to remote hackers</li>
- <li>100 security levels with 104 sysop configurable flags per user</li>
- <li>Sysop can allow or disallow users to choose their own passwords</li>
- <li>Sysop can force periodic password changes (uniqueness is also forced)</li>
-</ul>
-<h3>Customization</h3>
-<ul>
- <li>
-<p>Programmable Command and Menu Structure:<br>
-Includes free Baja shell/module compiler<br>
-Users can select a shell of their choice including emulations of other BBS
-packages<br>
-Several shells included with Baja source code</p>
- </li>
- <li><p>The most configurable BBS available today:<br>
- Powerful object oriented menu driven configuration program<br>
- All menus, text, and colors are sysop configurable without source code<br>
- New User Questionnaire is available and customizable<br>
- All standard new user questions can be disabled individually<br>
- Over 120 <a href="http://customization.html#MessageVariables">message
- variables</a> (@-Codes) supported</p>
- </li>
-</ul>
-<h3>Messaging</h3>
-<ul>
- <li><p>Hierarchical bi-level message areas with an unlimited number of
- messages groups and an unlimited number of sub-boards within each group</p>
- </li>
- <li>
-<p>QWK message off-line reader and networking support built-in<br>
-Off-line file requests<br>
-Off-line new message scan configuration and pointer adjustment<br>
-Send <i>FidoNet</i> or Internet NetMail from QWK REP packet<br>
-32-bit CRC duplicate message checking<br>
-Multiple compression formats supported<br>
-File attachments optionally automatically included</p>
- </li>
- <li>
-<p>Inter-node message services:<br>
-Current node status - user online, action, connect rate, and more<br>
-User activity - credited downloads, mail activity, logons, and logoffs<br>
-Users can list active nodes and send private messages from any prompt<br>
- (even between external programs and the BBS)<br>
-Multi-channel multi-node chat with optional channel password protection<br>
-Private real-time node to node character by character chat with remote split
-screen support<br>
-Users can send telegrams, single line messages, or enter private chat from any
-prompt<br>
-User information (gender, age, location, etc) can be included in node status
-display</p>
- </li>
- <li><p>Extensive networking capabilities:<br>
- Internal QWK network hub and node support with file transfer ability<br>
- <i>FidoNet</i> EchoMail and NetMail support<br>
- Send/Receive File Requests from within Synchronet<br>
- UTI drivers for <i>PostLink</i> Networks (RIME, ILink, etc)<br>
- Sub-boards can force real names<br>
- Allow/disallow/force private posts and anonymous posts per sub-board<br>
- Supports color codes for <i>WWIV</i>, <i>PCBoard</i>, <i>Wildcat</i>, and <i>Celerity</i><br>
- Support for multiple networks of the same or different network technologies
- with different addresses and tag/origin lines<br>
- Duplicate message checking using 32-bit CRC for QWK and <i>Fido</i> Networks</p>
- </li>
-</ul>
-<h3>File Transfers</h3>
-<ul>
- <li>Unlimited external transfer protocols with optional DSZLOG support</li>
- <li>Batch uploads, downloads, and bidirectional file transfers</li>
- <li>Transfer credit system is completely configurable</li>
- <li>File viewing, extraction, and partial downloading of archives</li>
- <li>Content rating, multi-disk numberings, and file upload dates can
- automatically be added to file descriptions</li>
- <li><i><b>FILE_ID.DIZ </b></i>and <i><b>DESC.SDI</b></i> files can be
- automatically imported into extended file descriptions</li>
- <li>Personal user to user file transfers</li>
- <li>Optional batch download file flagging for user convenience</li>
- <li>Support for offline directories</li>
- <li>Multiple sysop file removal/move/edit search criteria</li>
- <li>Directories can be sorted by filename or date, ascending or descending</li>
- <li>Complete CD-ROM (single and multi-disk changer) support</li>
- <li>Optional forced upload directory can be invisible to users</li>
- <li>Optional allowance of blind (unsolicited) batch uploads with automatic DIZ
- importation</li>
- <li>Download events available for adding files/comments just before download
- (i.e. CD-ROM)</li>
-</ul>
-<h3>External Programs/Doors</h3>
-<ul>
- <li>Unlimited number of external programs</li>
- <li>Multi-user or single user programs</li>
- <li>Programs that use DOS I/O (don't use COM port directly) supported</li>
- <li>12 door file formats supported for an incredible level of compatibility
- including: <b><i> </i></b> <b><i><br>
- DOOR.SYS</i></b>, <i><b>PCBOARD.SYS</b></i>, <i><b>USERS.SYS</b></i>, <i><b>CHAIN.TXT</b></i>,
- <b><i>DORINFO#.DEF</i></b>, <i><b>EXITINFO.BBS</b></i>, <i><b>SFDOORS.DAT</b></i>,
- <i><b>TRIBBS.SYS</b>,</i> <b><i>CALLINFO.BBS</i></b>, <i><b>DOORFILE.SR</b></i>,
- and <i><b>UTIDOOR.TXT</b></i></li>
- <li>Supports native <i><b>WWIV</b></i> color code expansion</li>
- <li>Free Software Development Kit (SDK) available for program development</li>
- <li>Comes with multiplayer Synchronet Blackjack game (with C source code)</li>
- <li>No batch file editing/programming necessary!</li>
- <li>Configurable credit cost on a per program basis</li>
- <li>Separate access requirements to see the program and execute</li>
- <li>Multiple Timed and Fixed Events:<br>
- Logon and logoff events<br>
- New user events<br>
- Upload events (integrity testing, adding of comments,
- virus scan, etc.)<br>
- Node and system daily events<br>
- Timed events with support for forced exclusive execution</li>
-</ul>
-<h2><b><font color="#FF0000">Version 3 (for Win32) Features</font></b>
-</h2>
-<p><b>General</b>
-
-</p>
-<ul>
- <li>All "nodes" run in a single multi-threaded process<br>
- - Minimal resource requirements and improved performance<br>
- - DOS Windows are automatically opened/closed for external DOS
- programs/doors<br>
- - It's never been easier to run a 10+ node system (with DOS door
- support) on one computer</li>
- <li>Professional GUI <i>Synchronet Control Panel</i> (SBBSCTRL) to monitor all
- clients and servers simultaneously<br>
- - Replaces old "<i>Waiting for call</i>" screen<br>
- - Launch configuration and editor dialogs directly<br>
- - New Sysop Availability toggle button (replaces v2.3 Scroll-Lock
- function)</li>
- <li>GUI User Editor</li>
- <li>Local and Remote Node Control/Spying</li>
- <li>Optionally plays sysop's choice of <i><b>.WAV</b></i> file on user
- connect/disconnect</li>
-</ul>
-<h3>
-<b>Internet</b></h3>
-<ul>
- <li>Supports Telnet logins only (no more direct-dial user support)<br>
- - No third-party FOSSIL/Telnet driver (SIO/VMODEM, NetModem, COM/IP)
- required<br>
- - Full FOSSIL/DOS/WWIV/XSDK program/door support (easy setup!)<br>
- - Outbound Telnet module included for external MUDs/BBSs<br>
- - Automatically detects and logs client IP and hostname<br>
- - Optional auto-logon via IP address (requires V exemption)</li>
- <li>Integrated FTP server<br>
- - Supports Anonymous (Guest) logins<br>
- - Virtual directory structure mimics BBS filebase hierarchy<br>
- - User security settings enforced<br>
- - Supports long/mixed-case filenames<br>
- - Dynamically generates index (description) files<br>
- - Supports blind upload and sysop directories<br>
- - QWK/QWKnet packet uploads and downloads<br>
- - Upload description support<br>
- - Transfers included in BBS and user upload/download statistics<br>
- - Time/Credit system enforced<br>
- - Custom login/hello/goodbye messages<br>
- - Optional connect/disconnect sounds (.WAV files)<br>
- - File aliases supported<br>
- Put links in your FTP root
- directory to often access files<br>
- Link to files on your local hard
- disk or your BBS filebase<br>
- Use general alias names to point
- to often-changing versioned filenames<br>
- - Complete access to local file systems for remote sysops</li>
- <li>Integrated Mail (POP3/SMTP) server<br>
- - Check BBS mailbox using standard Internet mail clients (Eudora,
- Outlook)<br>
- - SPAM Filters supported: RBL, RSS, DUL<br>
- - Configurable alias list<br>
- - Optionally receive mail by user number (1@yourbbs.com)<br>
- - Optional inbound/outbound sounds (.WAV files)<br>
- - Optional DNS/MX record lookup (no SMTP Relay Server required)</li>
- <li>Outbound Telnet/RLogin gateway function to run external MUDs, BBSs, and
- TWGS<br>
- - Includes any-time ^] menu to see who is on the BBS, send messages,
- etc.</li>
- <li>IP/hostname filter/trashcan files (ip.can/host.can) for all Internet
- servers/services</li>
-</ul>
-<h3>Online Programs</h3>
-<ul>
- <li>16-bit DOS Door Support<br>
- - Windows 95/98/ME FOSSIL/DOS Interrupt driver (sbbsexec.vxd)<br>
- - Windows NT/2000 FOSSIL/DOS Interrupt driver (sbbsexec.dll)</li>
- <li>32-bit/WinSock Door Support<br>
- - Duplicate socket handle passed in <b><i>DOOR32.SYS</i></b> drop
- file (new standard)<br>
- - Duplicate socket handle passed on command line via %H specifier<br>
- - Support for external programs written with 32-bit XSDK (v3+)</li>
- <li><p>Most popular DOS doors fully supported<br>
- - Users can be ;INTERrupted while running ANY external program<br>
- - Non-exclusive events do not take any nodes off-line<br>
- - No more hassling with baud rates and initialization strings<br>
- - DCDWATCH no longer necessary to support WWIV/DOS externals</p>
- </li>
-</ul>
-<h2>
-<b><font color="#FF0000">Version 2 (for DOS) Features</font></b>
-</h2>
-<ul>
- <li>Enhanced <i>DESQview</i>, <i>Windows</i>, and <i>OS/2</i> operation modes</li>
- <li>Runs under DOS 3.0 or higher on any 80x86 compatible computer with 450k
- free RAM <br>
- - BBS can shrink to 288 bytes to execute external programs</li>
- <li>Interrupt driven COM I/O for the fastest through-put possible<br>
- - even with multiple nodes per CPU via a DOS multi-tasker</li>
- <li>Any COM port configuration supported (Intelligent and Non-Intelligent
- Boards)<br>
- - Direct UART support as well as DigiBoard, FOSSIL, and PC BIOS int
- 14h drivers<br>
- - Automatic modem configuration for most modem brands and types</li>
- <li>DTE rates up to 115,200 baud</li>
- <li>Caller-ID support with optional trash-can file</li>
- <li>48 Local macros and sysop function hot-keys</li>
-</ul>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/file_section.html b/docs/file_section.html
deleted file mode 100644
index c710c5e92ec4bb1d7a452b0e1c5be70e55b79eee..0000000000000000000000000000000000000000
--- a/docs/file_section.html
+++ /dev/null
@@ -1,953 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>File Section</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-
-<h2><a name="FileTransferSection">[10.0] - File Transfer Section</a></h2>
-<pre>The Synchronet file transfer section is used for transferring data and program
-files between the BBS and the remote user. Files are stored in a logical
-hierarchy of libraries and directories. A library is a group of directories
-that contain files of a similar subject matter.
-
-An example file library/directory configuration:
-
-<b>Library Name Directory
-</b>---------------------------------
-Main Text
- Utilities
- Business
- Graphics
- Games
- Communications
- Miscellaneous
-
-Adult Text
- Animation
- GIF files
- TGA files
-
-DOS CD-ROM Utilities
- Device Drivers
- Business
- Games
- Communications
- Programming
-
-Windows CD-ROM Utilities
- BMP files
- WAV files
- Device Drivers
- Games
- Desktop Publishing
- Fonts</pre>
-<h2><a name="SettingUpFileTransferSection">[10.1] - Setting Up the File
-Transfer Section</a></h2>
-<pre>Run the SCFG utility, and select File Options from the menu. Following are
-example screens and the options available from the File Options sub-menu.</pre>
-<h3><a name="FileOptions">[10.1.1] - File Options</a>
-</h3>
-<p><img border="0" src="images/scfg_xfer_options.png" width="572" height="331">
-</p>
-<pre><b>Min Bytes Free Disk Space:
-</b> This is the minimum about of disk space (in kilobytes) that is
- necessary for a user to be allowed an upload.
-
-<b>Max Files in Batch UL Queue:
-</b> This is the maximum number of files that can be stored in the batch
- upload queue. The definite maximum is 500 files.
-
-<b>Max Files in Batch DL Queue:
-</b> This is the maximum number of files that can be stored in the batch
- download queue. The definite maximum is 500 files.
-
-<b>Max Users in User Transfers:
-</b> This is the maximum number of destination users in user to user
- transfers. The definite maximum is 500 users.
-
-<b>Default Credit on Upload:
-</b> This is the default amount used for newly created directories.
-
-<b>Default Credit on Download:
-</b> This is the default amount used for newly created directories.
-
-<b>Leech Protocol Detection Percentage:
-</b> This value is the sensitivity of the leech protocol detection feature
- of Synchronet. If the transfer is apparently unsuccessful, but the
- transfer time was at least this percentage of the estimated transfer
- time (based on the estimated CPS of the connection result code), then
- a leech protocol error is issued and the user's leech download counter
- is incremented. Setting this value to 0 disables leech protocol
- detection. This option also allows you to set the minimum amount of
- elapsed transfer time to be considered for a possible leech download.
-
- Leech protocol programs are file transfer programs (usually using
- Zmodem technology) that attempt to "fool" the BBS into thinking the
- file was not successfully transferred, when in reality it was. This is
- accomplished by the transfer program requesting a reposition (ZRPOS)
- after the last successful block and then aborting (ZCAN). A file
- transferred in this manner will not be considered a successful transfer
- by Synchronet, but will be caught as a possible leech download and
- notify the sysop (if this option is used).
-
- This feature is also useful for detecting the partial download of image
- (GIF) files. If you charge your users credits for downloads, this can
- be a very useful feature in detecting dishonest users. If the user
- accumulates a large number of leeches (as displayed in User Edit) and
- the user never successfully downloads a file previously logged as a
- possible leech download, the user is probably trying to get something
- for nothing, though this is hard to prove without actually watching
- the file transfer in progress.</pre>
-<h2><a name="ViewableFiles">[10.2] - Viewable Files</a>
-</h2>
-<pre>This is a list of file types that have content information that can be viewed
-through the execution of an external program or Baja module. Here are a couple
-of command line examples for a few file types.</pre>
-<pre><img border="0" src="images/scfg_xfer_viewable.png" width="572" height="331"></pre>
-<pre><b>NOTE:</b> When you select a file type from this list, you will be given one
- additional option (Access Requirements) which is not shown here.
- Users not meeting any access requirements which are set will not
- be able to perform, or be affected by, that function.</pre>
-<h2><a name="TestableFiles">[10.3] - Testable Files</a>
-</h2>
-<pre>This is a list of file types that will have a command line executed to test
-the file integrity upon their upload. The file types are specified by extension
-and if one file extension is listed more than once, each command line will
-be executed. The command lines must return a DOS error code of 0 (no error)
-in order for the file to pass the test. This method of file testing upon upload
-is also known as an upload event. This test or event, can do more than just
-test the file, it can perform any function that the sysop wishes. Such as
-adding comments to an archived file, or extracting an archive and performing
-a virus scan. While the external program is executing, a text string is
-displayed to the user. This "working" string can be set for each file type
-and command line listed. Shown is an example list of file types, and their
-respective sub-menus and configurations:</pre>
-<pre><img border="0" src="images/scfg_xfer_testable.png" width="572" height="331">
-
-ZIP type files:</pre>
-<pre><img border="0" src="images/scfg_xfer_testable_zip.png" width="572" height="331">�
-
-To add a ZIP comment to a ZIP type file:</pre>
-<pre><img border="0" src="images/scfg_xfer_testable_zipc.png" width="572" height="331">�
-
-If an extension of '*' is specified, all files uploaded will be tested with
-this command line. An example would be when using Domain Upload Tester from
-Domain Entertainment:</pre>
-<pre><img border="0" src="images/scfg_xfer_testable_du.png" width="572" height="331">
-
-<b>NOTE:</b> Users not meeting any access requirements which are set will not
- be able to perform, or be affected by, that function.</pre>
-<h2><a name="DownloadEvents">[10.4] - Download Events</a>
-</h2>
-<pre>Download events are an event that you wish to have executed before a user
-downloads a file from your BBS. This can be useful adding a comment to
-a file from a CD-ROM before it gets sent to the user (as the example shows),
-or to perform a virus scan, or any other function you can think of.
-
-Here is an example showing how to change the comment in ZIP type files when
-a user attempts to download a file.</pre>
-<pre><img border="0" src="images/scfg_xfer_event.png" width="572" height="331"></pre>
-<pre>Selecting the available event will allow you to edit the options available.</pre>
-<pre><img border="0" src="images/scfg_xfer_eventc.png" width="572" height="331"></pre>
-<h2><a name="ExtractableFiles">[10.5] - Extractable Files</a>
-</h2>
-<pre>This is a list of archive file types that can be extracted to the temp
-directory by an external program. The file types are specified by their
-extension. For each file type you must specify the command line used to extract
-the file(s). Here are some example command lines for extracting various files:</pre>
-<pre><img border="0" src="images/scfg_xfer_extractable.png" width="572" height="331">
-
-<b>NOTE:</b> When you select a file type from this list, you will be given one
- additional option (Access Requirements) which is not shown here.
- Users not meeting any access requirements which are set will not
- be able to perform, or be affected by, that function.
-
-<b>Notes on command lines syntax:</b>
- The use of conversion specifiers are supported in all command lines
- within SCFG. Conversion specifiers are proceeded by a percent (%)
- symbol and are not case sensitive. The above command line examples use
- the following specifiers:
-
-<b> %! EXEC directory:</b>
- If the program you are executing with this command line is not
- located in your EXEC directory, you can specify the directory
- where the program is located or, if the program is in your
- search path, start the command line with just the program name
- (no prefix). We suggest specifying the location of the program
- for security reasons.
-
-<b> %f Filename:
-</b> This is the filename of the archive that is to be extracted.
-
-<b> %g Temp Directory:
-</b> This is the path to the temp directory. In the above command
- lines, it is the destination of the extracted files.
-
-<b> %s File Specification:
-</b> This is the file specification to extract from the archive.
-
-<b> See Appendix A for a complete list of the available specifiers.</b></pre>
-<h2><a name="CompressableFiles">[10.6] - Compressable Files</a>
-</h2>
-<pre>This is a list of archive file types that can be created for QWK packets
-and temporary archives for download. The file types are specified by their
-extension. For each file type you must specify the command line used to create
-the archive. Here are some example command lines for various compression types:</pre>
-<pre><img border="0" src="images/scfg_xfer_compressable.png" width="572" height="331">
-
-For these compression command lines to work, you must have the appropriate
-executable files (PKZIP, ARJ, and LHA) in your EXEC directory.</pre>
-<h2><a name="TransferProtocols">[10.7] - Transfer Protocols</a>
-</h2>
-<pre>This is a list of file transfer protocols that can be used to transfer files
-either to or from a remote user. For each protocol, you can specify the
-mnemonic (hot-key) to use to specify that protocol, the command line to use for
-uploads, downloads, batch uploads, batch downloads, bi-directional file
-transfers, and the support of DSZLOG. If the protocol doesn't support a
-certain method of transfer, or you don't wish it to be available for a certain
-method of transfer, leave the command line for that method blank. Be advised,
-that if you add or remove any transfer protocols, you will need to edit the
-protocol menus (ULPROT, DLPROT, BATUPROT, BATDPROT, and BIPROT) in the
-TEXT\MENU directory accordingly. The '%f' command line specifier is used to
-represent the filename or batch file list. The following is an example list of
-protocols and their respective sub-menus and options:</pre>
-<h3><a name="FDSZ">[10.7.1] - Version 3.0 (Win32 /
-Telnet) using FDSZ :</a>
-</h3>
-<pre><b>IMPORTANT: </b>If you are running Synchronet as a Telnet Server then you
- must use a Protocol that supports FOSSIL Communications
- such as FDSZ or CEXYZ. Synchronet v3.0 comes pre-configured
- for use with FDSZ.</pre>
-<pre><img border="0" src="images/scfg_xfer_proto_fdsz.png" width="572" height="331"></pre>
-<pre><b>FDSZ Xmodem</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_fdsz_x.png" width="572" height="331"></pre>
-<pre><b>FDSZ Ymodem</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_fdsz_y.png" width="572" height="331"></pre>
-<pre><b>FDSZ Zmodem</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_fdsz_z.png" width="572" height="331"></pre>
-<pre><b>FDSZ Ymodem-G</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_fdsz_g.png" width="572" height="331"></pre>
-<h3><a name="DSZ">[10.7.2] - Version 2.30 (DOS/OS2) using
-DSZ :</a>
-</h3>
-<pre><img border="0" src="images/scfg_xfer_proto_dsz.png" width="572" height="331">
-
-<b>DSZ Xmodem:</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_dsz_x.png" width="572" height="331">
-
-<b>DSZ Ymodem:</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_dsz_y.png" width="572" height="331">
-
-<b>DSZ Zmodem:</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_dsz_z.png" width="572" height="331">
-
-<b>DSZ Ymodem-G:</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_dsz_g.png" width="572" height="331"></pre>
-<h3><a name="HS/Link">[10.7.3] - Version 2.30 (DOS/OS2)
-using HS/Link :</a>
-</h3>
-<pre><b>HS/Link Bi-Directional Transfers:</b></pre>
-<pre><img border="0" src="images/scfg_xfer_proto_dsz_h.png" width="572" height="331"></pre>
-<pre><b>NOTE:</b> Users not meeting any access requirements which are set will not
- be able to use that protocol.
-
-<b>IMPORTANT:</b> If you have Synchronet set to use anything other than UART
- you will not be able to use the DSZ transfer protocols and will
- need to locate a set of protocols that will work with your setup.
- If you are using a UART serial board, there is no reason why
- Synchronet should not be set to use UART. Just because a front-end
- mailer or door game requires a FOSSIL driver, it does NOT mean
- that you must also set Synchronet to use a FOSSIL.</pre>
-<h2><a name="CreatingFileLibraries">[10.8] - Creating File Libraries</a>
-</h2>
-<pre>Select "File Transfers" from the SCFG main menu. Then select "File Libraries".
-Hit INS (insert key) to create a file library. File libraries are groups of
-file directories that have a similar subject matter or other common element.
-File libraries are often used to separate Program files and Data files or
-files stored on a Hard disk and files stored on CD-ROM. An example
-configuration that separates programs from data:
-
-<b>Library Directory</b>
----------------------------------
-Programs Games
-Programs Utilities
-Programs Business
-Programs Communications
-Programs Graphics Programs
-Programs Programming
-Data Files Text (Documentation, Stories, Cheats)
-Data Files Program Source Code (C, ASM, PAS, BAS)
-Data Files Still Pics (GIF, PCX, TIF)
-Data Files Animation (FLI, GL, DL)
-Data Files Sound (MOD, WAV, MID)
-Data Files Other
-
-Example configuration that separates hard disk directories from CD-ROM
-directories:
-
-<b>Library Directory</b>
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Hard Disk Text
-Hard Disk Games
-Hard Disk Utilities
-Hard Disk Business
-Hard Disk Graphics
-Hard Disk Communications
-Hard Disk Graphics Programs
-Hard Disk Programming
-Hard Disk Graphics, Animation, and Sound
-GIF CD-ROM G Rated
-GIF CD-ROM G Rated 640x480
-GIF CD-ROM G Rated 800x600+
-GIF CD-ROM R Rated
-GIF CD-ROM R Rated 640x480
-GIF CD-ROM R Rated 800x600+
-GIF CD-ROM X Rated
-GIF CD-ROM X Rated 640x480
-GIF CD-ROM X Rated 800x600+
-PD/ShareWare CD-ROM Games - Mono, CGA, EGA
-PD/ShareWare CD-ROM Games - VGA
-PD/ShareWare CD-ROM Utilities
-PD/ShareWare CD-ROM Communications
-PD/ShareWare CD-ROM Graphics and Desktop Publishing
-PD/ShareWare CD-ROM BBS Software and Utilities
-PD/ShareWare CD-ROM Programming
-PD/ShareWare CD-ROM Windows Programs, Fonts, Icons, etc.
-
-You must have at least one file library and one file directory for anyone to be
-able to use the file transfer section. Following is a list of options available
-when creating or modifying a file library.</pre>
-<h3><a name="LibraryOptions">[10.8.1] - Library Options</a>
-</h3>
-<pre>Selecting a library name from the list of available libraries will give you a
-sub-menu of options for that library.</pre>
-<pre><img border="0" src="images/scfg_xfer_library.png" width="572" height="331"></pre>
-<pre><b>Long Name:</b>
- This is a description of the library displayed in library listings.
-
-<b>Short Name:
-</b> This is a description of the library displayed at prompts.
-
-<b>Access Requirements:
-</b> These are the requirements which must be met by a user account in order
- to access this library.
-
-<b>Clone Options:
-</b> Use this command to copy the options of the first directory in this
- library to all the other directories in the library.
-
-<b>Export Areas:
-</b> If you wish to export the area information of all the directories in
- the current file library to a text file, use this option.
-
-<b>Import Areas:
-</b> If you wish to import a text file of area information into the
- current file library, use this option.</pre>
-<h2><a name="CreatingFileDirectories">[10.9] - Creating File Directories</a>
-</h2>
-<pre>After you have created at least one file library, you need to create
-directories for the library. Creating a file directory is much like creating
-a file library except that you will be prompted for an internal code to use.
-The internal code should be an abbreviation of the name of the directory or
-something else that specifies the contents of the directory.
-
-For each directory, you need to specify the file storage path. This is where
-the files are actually located (Drive and directory) on your system. If you do
-not specify a storage path, a sub-directory will be created off of your
-DATA\DIRS directory with the directory's internal code as the name of the
-sub-directory. If you wish to use the default storage path (DATA\DIRS\<code>),
-you'll need to move any files that you wish to be added to the BBS file
-database to that sub-directory.
-
-If you are adding CD-ROM directories, be sure to set the "Check for file
-existence" and "Search for New Files" toggle options to "No", and
-"Slow Media Device" to "Yes" for each of your CD-ROM file directories.
-
-Following is a list of options available in the SCFG when creating or modifying
-a file directory.</pre>
-<h3><a name="MainDirectoryOptions">[10.9.1] - Main Directory Options</a>
-</h3>
-<pre><img border="0" src="images/scfg_xfer_dir.png" width="572" height="331">
-
-<b>Long Name:</b>
- This is a description of the file directory that is displayed in
- directory listings.
-
-<b>Short Name:
-</b> This is a description of the file directory that is displayed at
- prompts. Some short names have a predetermined meaning:
-
-<b> Temp:
-</b> This short name is reserved and cannot be used.
-
-<b> Offline:
-</b> This short name specifies that this directory is to hold
- offline files for the selected library and is treated a bit
- differently than other directories. It will not be included
- in new-scans and will be the default location of files that
- are removed or moved. A directory with this short name should
- have the upload level set to 90 and the access level and flags
- set the same as the library. There can only be one directory
- per library with this short name.
-
-<b> Sysop:
-</b> This short name specifies that this directory will be the
- destination for files uploaded by users with the 'Z' command
- from the transfer section. There should only be one directory
- with this short name and it should belong to the most
- accessible library. A directory with this short name should
- have the access level set to 90 and the upload level and flags
- set the same as the library.
-
-<b> User:
-</b> This short name specifies that this directory will be the
- storage point for user to user transfers. There should only be
- one directory with this short name and it should belong to the
- most accessible library. Users can upload a file to another
- user or group of users with the '/U' transfer section command.
- Users download files sent to them with the '/D' transfer
- section command. A directory with this short name should have
- the access level set to 90 and the upload level and flags
- set the same as the library or at whatever level the sysop
- wishes to allows users to use the user to user transfer
- facilities.
-
-<b> Uploads:
-</b> This short name specifies that this directory will be used
- for uploads if the user attempts to upload to a directory where
- he or she does not have sufficient upload access.
- If you wish all uploads to automatically go into one specific
- directory, set the required upload level for all other
- directories to 90 or higher (Sysop). If you don't want users
- to be able to see the files in this directory or download them
- until they are moved by the sysop, set the required access
- for your "Uploads" directory to level 90 or higher. Creating
- an "Uploads" directory also allows "Blind" batch uploads from
- the users (files need not be added to the upload queue first).
-
-<b>Internal Code:
-</b> This is an internal code for SBBS to distinguish this directory from
- the others on the system. This must be a unique name of up to 8 valid
- DOS filename characters. The code TEMP is reserved and cannot be used.
-
-<b>Access Requirements:
-</b> This is a list of security requirements to access this directory.
-
-<b>Upload Requirements:
-</b> This is a list of security requirements to upload to this directory.
-
-<b>Download Requirements:
-</b> This is a list of security requirements to download from this
- directory.
-
-<b>Operator Requirements:
-</b> Any users meeting these criteria will be able to perform Sysop type
- activities for this directory.
-
-<b>Exemptions Requirements:
-</b> Any users meeting these criteria will be considered exempt from
- credit deductions when transferring files from this directory.
-
-<b>Transfer File Path:
-</b> This is the actual path for the storage of the files that belong to
- this directory. If no path is specified, the directory DATA\DIRS\CODE,
- where CODE is the internal code for this directory, will be used to
- store the files.
-
-<b>Maximum Number of Files:
-</b> This is the maximum number of files that will be allowed in this
- directory. Once this number of files is reach, no uploads will be
- allowed.
-
-<b>Purge by Age:
-</b> This is maximum age of files (in days) to keep in this directory.
- The DELFILES utility (included with Synchronet) must be run as
- a timed event to automatically purge old files from your file areas.
-
-<b>Credit on Upload:
-</b> If Credit Uploads is set to Yes in the toggle options for this
- directory, users will be credited with this percentage of the file
- size (in bytes) in credits when uploading a file to this directory.
-
-<b>Credit on Download:
-</b> If Credit Downloads is set to Yes in the toggle options for this
- directory, users will be credited this percentage of credits for
- subsequent downloads of any file that they upload to this
- directory.</pre>
-<h3><a name="ToggleOptions">[10.9.2] - Toggle Options</a>
-</h3>
-<pre><img border="0" src="images/scfg_xfer_dir_toggles.png" width="572" height="331">
-
-<b>Check for File Existence:</b>
- If this option is set to 'Yes', when files are listed in the transfer
- section, each file is checked to see if it actually exists in the
- DOS directory. If the file doesn't exist, the credit value is displayed
- in high intensity blinking and is followed by a minus symbol. Setting
- this option to 'No' speeds up the file listings, but files not actually
- on disk will appear just as the others. Directories with a short name
- of Offline should have this value set to 'No' as they should solely
- contain files that aren't actually in the DOS directory. Directories
- that are stored on CD-ROM or other slow random access device should
- have this option set to 'No'.
-
-<b>Slow Media Device:
-</b> If this option is set to 'Yes', files will be copied from the normal
- storage directory into the temp directory and downloaded from there.
- This option is helpful in reducing the overhead associated with
- multiple simultaneous user access to a slow media device such as
- CD-ROM.
-
-<b>Force Content Ratings:
-</b> If this option is set to 'Yes', when a user uploads a file he is
- prompted to rate the content of the file with a single character
- (usually G, R, or X), and the file description will begin with the
- rating letter contained in brackets.
-
-<b>Upload Date in Listings:
-</b> Setting this option to 'Yes' will cause Synchronet to place the date
- that a file was uploaded onto the first line of the file description,
- similar to the Multiple File Numberings option.
-
-<b>Multiple File Numberings:
-</b> If this option is set to 'Yes', when a user uploads a file he is
- asked if the file he is uploading is part of a set of files. If the
- user answers 'Yes', he is then prompted for the total number of files,
- the number of the file he is uploading, and the file description will
- end with the numbering in the format "[n/t]", where n is the file
- number and t is the total number of files.
-
-<b>Search for Duplicates:
-</b> If this option is set to 'Yes', this directory will be searched for
- duplicate filenames when a user attempts to upload a file.
-
-<b>Search for New Files:
-</b> When this option is set to 'Yes' this directory will be included in
- new file scans (for those users than have access). Set this option
- to "No" for CD-ROM directories or directories that will not be
- receiving new files on a regular basis.
-
-<b>Search for Auto-ADDFILES:
-</b> When this option is set to 'Yes' this directory will be searched for
- FILES.BBS by the ADDFILES program when using the auto-add feature.
-
-<b>Import FILE_ID.DIZ:
-</b> When set to 'Yes', Synchronet will attempt to import the FILE_ID.DIZ
- or DESC.SDI of any files uploaded to this directory into the file
- description.
-
-<b>Free Downloads:
-</b> If you want all files downloaded from this directory to be free for
- the downloader (not cost any credits regardless of the credit value),
- set this option to 'Yes'.
-
-<b>Free Download Time:
-</b> If you do not want time spent during downloading to be subtracted from
- the users time online, this option should be set to 'Yes'.
-
-<b>Deduct Upload Time:
-</b> If you want the time spent uploading a file to be subtracted from the
- users available online time, this option should be set to 'Yes'.
-
-<b>Credit Uploads:
-</b> If you want users who upload files to this directory to get credit
- for their upload based on the "Credit on Upload" percentage, set
- this value to 'Yes'.
-
-<b>Credit Downloads:
-</b> If you want users who upload files to this directory to get credit
- for subsequent downloads of the file based on the "Credit on Download"
- percentage, set this value to 'Yes'.</pre>
-<pre><b>Credit with Minutes:
-</b> Setting this option to 'Yes' will cause the uploading user to receive
- time (in minutes) for their upload rather than credits. The minutes
- a user receives will be based upon the percentage awarded multiplied
- by the time it took for the recipient of the file to download it.
-
-<b>Anonymous Uploads:
-</b> If you want users with the 'A' exemption to be able to upload file
- anonymously to this directory, set this option to 'Yes'. If you want
- all uploads to this directory to be automatically forced anonymous, set
- this option to Only.
-
-<b>Purge by Last Download:
-</b> This option is for use in conjunction with the Synchronet DELFILES
- program. When deleting files from the filebase, if this option is
- set to 'Yes', it will compare the maximum age specified by the
- "Purge by Age" field to the date the file was last downloaded. If set
- to 'No', the maximum age will be compared to the date the file was
- uploaded.
-
-<b>Mark Moved Files as New:
-</b> If this option is set to 'Yes', then when a file is moved from this
- directory to another, it's upload date will be reset to the current
- date/time automatically.</pre>
-<h3><a name="AdvancedOptions">[10.9.3] - Advanced Options</a></h3>
-<p><img border="0" src="images/scfg_xfer_dir_advanced.png" width="572" height="331"></p>
-<pre><b>Extensions Allowed:
-</b> This is a list of file extensions (separated by commas) that are
- allowed to be uploaded to this directory.
-
-<b>Data Directory:
-</b> This is the path where the data for this directory will be located.
-
-<b>Upload Semaphore File:
-</b> This is the path and name of a semaphore file used to trigger your
- front-end mailer when a file is uploaded.
-
-<b>Sort Value and Direction:
-</b> Directories can be sorted either by filename or upload date in an
- ascending or descending order. This option selects the value to sort
- on and in which direction.</pre>
-<h3><a name="AddingFilesToDatabase">[10.10] - IMPORTANT - Adding
-files to the BBS database</a></h3>
-<pre>Now that you've created at least one file library and one file directory inside
-that file library, any files located in the storage path for that directory
-are not automatically available for users to download. The file has to be
-added to the BBS file database first.
-
-<b>Manual Upload</b>
-
-Logon to the BBS as yourself (most likely, user #1), go to the file transfer
-section. Select the file area you wish to add the file to and hit 'U' for
-upload. Now enter the filename. If the file is already in the storage directory
-that you specified in SCFG you will be prompted for file descriptions and other
-questions about the file. If the file is not already in the storage directory,
-you will be prompted for the path from where to copy the file.
-
-<b>ADDFILES</b>
-
-If you have an ASCII list of your files with descriptions (often called
-FILES.BBS or DIR##), you'll want to use the Synchronet ADDFILES program to
-import this file and description information into the BBS file database. This
-is usually only the case for CD-ROMs and when converting a file database from
-another BBS. See the Utility Reference Chapter for more information on
-ADDFILES.
-
-<b>Bulk Upload<u>
-</u></b>
-To add the files that are located in the storage paths of your configured
-directories, exit the configuration program, logon to the BBS as yourself
-(User #1), go to the file transfer section ('T' from the main menu), and type
-";UPLOAD ALL" then hit ENTER. If there are any files that are in your storage
-paths, but not already in the BBS file database you will be prompted to enter
-a description for each file.</pre>
-<h3><a name="CreatingOfflineFileDirectories">[10.10.1] - Creating Offline File
-Directories</a></h3>
-<pre>Each library can have an offline file directory. This is where you can place
-files that have been removed from the system, but the file information (name,
-description, uploader, etc.) remains in the database. Offline directories
-are treated special. They are not scanned for new files and are automatically
-used as an optional destination for the file information when a file is
-removed by a sysop. Offline file directories are specified by having the
-short name of "Offline" (not case sensitive). Only one offline directory can be
-specified per library. Offline file directories should have the "Check for file
-existence" toggle option set to "No". The minimum security level to upload
-should be set to 90 so that users will not be allowed to upload to this
-directory.</pre>
-<h3><a name="CreatingSysopDirectory">[10.10.2] - Creating a Sysop Directory</a></h3>
-<pre>A sysop file directory is a directory that users can upload to, but they can
-not see nor download from. You can only have one sysop directory on the
-system and it can belong to any one of the file libraries. A sysop file
-directory is specified by the short name of "Sysop" (not case sensitive) and
-will be used as the destination directory for uploads with the 'Z' (upload
-to sysop) transfer section command. The minimum security level to access should
-be set to 90 or higher so that only sysops can view the directory and download
-from it and the upload access level should be set to 0 (or higher, if you want
-to restrict the number of users who can upload to the sysop dir).</pre>
-<h3><a name="CreatingUser-to-UserDirectory">[10.10.3] - Creating a
-User-to-User Transfer Directory</a></h3>
-<pre>A user-to-user transfer directory is used for users to send a file directly
-to another user (or group of users) with only that user (or group of users)
-being able to see the file and download it. It's like a private e-mail file
-directory. Users send files to other users with the "/U" command and download
-files from other users with the "/D" command. This feature is only enabled
-if the sysop creates a user-to-user transfer directory. This directory can
-belong to any library on the system, but must have a short name of "User"
-(not case sensitive). The minimum security level to access should be set to
-90 or higher so that only sysops can view the directory and download any file
-they wish from it and the upload access level should be set to 0 (or higher,
-if you want to restrict the number of users who can upload user-to-user
-files). This directory should have the "Allow extended descriptions" toggle
-option set to "Yes" so that the uploader of the file can attach a more
-detailed description if he or she wishes.</pre>
-<h3><a name="CreatingDefaultUploadDirectory">[10.10.4] - Creating a Default Upload
-Directory</a></h3>
-<pre>A default upload directory is used if you want all uploads to go to a single
-directory. If you wish to use this feature, you must create a directory with
-the short name up "Uploads" (not case sensitive). Set the minimum level to
-access to 90 or higher if you do not wish to allow users to see this directory.
-Set the upload access level to 0 (or higher, if you want to restrict the number
-of users who can upload to this directory). You should set the required
-upload access level of all other directories in the library to 90 or higher so
-that all upload attempts to those directories will force the file uploaded into
-this directory.</pre>
-<h3><a name="SupportingBlindBatchUploads">[10.10.5] - Supporting Blind Batch Uploads</a></h3>
-<pre>Some sysops would like for their users to be able to do a batch upload of files
-to a directory without having to enter the files into an upload queue before
-hand. These are called Blind Batch Uploads. In order for this feature to
-work, you MUST have created a default upload directory (see the section above
-describing this procedure). Once you have created a default upload directory,
-the user need only go to the Batch Transfer menu and begin his upload.</pre>
-<h2><a name="CD-ROM/SlowMediaDevices">[10.11] - CD-ROM and Other Slow Media
-Devices</a></h2>
-<pre>It is assumed that you have already installed your CD-ROM drive and any
-necessary device drivers so that it can be accessed as a DOS device (like
-a hard disk or floppy disk).
-
-Explore your CD-ROMs directories to find out what directories contain what
-kind of files. Make notes of the directory paths and a description you would
-like to give that directory. Example:
-
-<b>Path Description</b>
----------------------------
-D:\G-GIFS G Rated GIFs
-D:\GAMES Games
-D:\UTILS Utilities
-
-Now find the ASCII description lists on the CD-ROM for the individual
-directory contents and note which description files are for which directories.
-If multiple list formats are supplied, use the format that most closely
-matches this (FILES.BBS format):
-
-FILENAME.EXT This is a file description
-
-or the DIR## format:
-
-FILENAME.EXT 530114 07-16-91 This is a file description that will be too
- | long, so it wraps to the next line.
-
-Example for file list notes:
-
-<b>File List Description
-</b>-----------------------------------
-D:\DESC\GIFS.LST GIFs
-D:\DESC\GAMES.LST Games
-D:\DESC\UTILS.LST Utilities
-
-Or preferably:
-
-<b>File List Description</b>
------------------------------------
-D:\GIFS\FILES.BBS GIFs
-D:\GAMES\FILES.BBS Games
-D:\UTILS\FILES.BBS Utilities
-
-
-Now run SCFG from your node directory. Go to "File Transfers", then "File
-Libraries". Hit the INS key to add a new file library. Name it "CD-ROM" or a
-description of what the CD-ROM contains. Now hit ENTER on the new library
-and select "File Directories". Hit INS to add each directory specifying the
-name and file storage path for each. Example:
-
-<b>Long and Short Name Internal Code File Path
-</b>---------------------------------------------------------
-GIFs CD-GIFS D:\GIFS
-Games CD-GAMES D:\GAMES
-Utilities CD-UTILS D:\UTILS
-
-Now hit HOME and ENTER to edit the first directory. Select "Toggle Options"
-and hit enter. Set "Check for File Existence" and "Search for New Files" to
-"No" and set "Slow Media Device" to "Yes". Hit ESC three times to go back to
-the "CD-ROM File Library" menu. Select "Clone Options" and hit ENTER. Answer
-"Yes" to clone the options of the first directory into the rest of the library.
-
-Now exit SCFG and save changes.
-
-From the DOS prompt, type:
-
-SET SBBSNODE=C:\SBBS\NODE1
-
-But use the correct path for your NODE directory. If you installed Synchronet
-into a directory named "BBS" on drive D:, then you would type
-
-SET SBBSNODE=D:\BBS\NODE1
-
-Now run ADDFILES (from your EXEC directory) for each of your CD-ROM file
-description lists (or only once if a FILES.BBS exists in each directory). See
-the Utility Reference chapter for specifics on how to use ADDFILES. Example
-(assuming description lists are in DIR## format):
-
-ADDFILES CD-G-GIFS +D:\DESC\G-GIFS.LST 33 13
-ADDFILES CD-R-GIFS +D:\DESC\R-GIFS.LST 33 13
-ADDFILES CD-X-GIFS +D:\DESC\X-GIFS.LST 33 13
-ADDFILES CD-GAMES +D:\DESC\GAMES.LST 33 13
-ADDFILES CD-UTILS +D:\DESC\UTILS.LST 33 13
-
-The following command will search ALL configured directories for FILES.BBS
-lists and import the files from them:
-
-ADDFILES *
-
-If you have a FILES.BBS format list which has a different filename, this will
-search ALL configured directories for that file and import the files from them:
-
-ADDFILES *FILES.LST
-
-These will add the file descriptions to your Synchronet file database.
-Now you should be able to run SBBS and have users download files from your
-CD-ROM.</pre>
-<h3><a name="AlternateFilePaths">[10.11.1] - Alternate File Paths</a></h3>
-<pre>Since a CD-ROM disk is "read only", you cannot alter the physical organization
-of files and directories on the CD-ROM. Normally, you would have one logical
-Synchronet file directory for every physical DOS directory. But for CD-ROMs
-that have their files spread across a large number of directories, you may not
-want your logical directory structure to mimic the physical structure.
-Synchronet can store roughly a thousand files per directory and many CD-ROMs
-have far less than that per directory to accommodate BBS software that have a
-lower maximum number of files per directory. Each logical directory in
-Synchronet takes up memory so it is advantageous to keep the number of
-directories to a minimum when working with large quantities of files.
-
-Synchronet's alternate file paths allow the sysop to add files from multiple
-physical directories into one logical directory on the BBS. Every logical
-directory on the BBS has a default storage path where uploaded files will be
-received and downloaded files are sent from. If you wish to add files to an
-existing logical directory that are not stored in the default storage path,
-then you will need to add an alternate file path that points to the location
-of these files. Then either use ADDFILES with the ".altpath" switch or use
-the ;ALTUL and ;UPLOAD sysop transfer commands to add the files. You will need
-to know the number of the alternate file path for which you are adding files
-from, so note which alternate path number you are uploading from before running
-ADDFILES or ;UPLOAD.
-
-Alternate file paths are useful for grouping files of a similar subject from
-different CD-ROMs into a single logical directory in Synchronet, thus freeing
-the sysop to organize the files based on content rather than physical storage
-location.</pre>
-<h2><a name="SynchronetFTPServer">[10.12] - Internet FTP Server</a> <b><font color="#FF0000"><i>(v3+
-Only)</i></font></b>
-</h2>
-<pre><b>FTP Filename Aliases</b>
-
-You can create a list of file aliases that will appear in your FTP root
-directory for:</pre>
-<ul>
- <li>
-<pre>Quick and easy access to often downloaded user files</pre>
- </li>
- <li>
-<pre>Static filenames that corresponds to a dynamically changing filenames
- e.g. ftp://vert.synchro.net/sbbs_for_dos.zip always points to the current
- versioned filename of Synchronet for DOS (e.g. SBBS230B.ZIP)</pre>
- </li>
- <li>
-<pre>Download access to files on the local disk not in the BBS file database </pre>
- </li>
-</ul>
-<pre>How? Edit the file <b>CTRL/FTPALIAS.CFG</b> (<i>SBBSCTRL->FTP->Edit->Alias List</i>). The
-format is similar to that of the Synchronet Mail Server <b>ALIAS.CFG</b>, one alias
-per line in the format:</pre>
-<pre><b>alias path description</b></pre>
-<pre>The alias is not case-sensitive and may not contain spaces. This is the
-filename that will appear in your FTP root directory.</pre>
-<pre>The path element is either the full path and filename to a file on a
-local file system (e.g. <b>C:\DOCS\MYFILE.TXT</b>) or a virtual path to a file in the
-BBS file database. Virtual paths are specified as "<b>bbs://lib/dir/filename</b>"
-where lib is the library short name, dir is the directory internal code and
-filename is the actual filename of the referenced file (may be the long
-filename, but may not contain spaces). </pre>
-<pre>The description is the optional description of the file that will be used in
-the dynamically generated Auto Index file (if you have this option enabled).</pre>
-<pre>Lines beginning with a '<b>;</b>' are considered comments and are ignored.</pre>
-<pre>Example Alias:</pre>
-<pre><b>sbbs_for_dos.zip bbs://main/sbbs/sbbs230b.zip Current version for SBBS for DOS</b></pre>
-<pre><b>Sysop Access</b>
-
-To login with system operator access, you must login with a user account that
-has a security level of 90 or higher (user #1 usually has level 99) and enter
-your password as "<b>pass:syspass</b>" where pass is your personal password and
-syspass is the system password.</pre>
-<pre>A successful sysop login will generate a login message stating
-"<b>Sysop access granted</b>". Logging in with just your personal password will give
-you normal (non-sysop) access.</pre>
-<pre>Sysop access allows you to mount local file systems and will enable secure
-BBS database features in the future (such as deleting/renaming files).</pre>
-<pre><b>Local File System Access<u>
-</u></b>
-This is a powerful new feature that allows the sysop to access any and all
-locally accessible files and file systems via FTP (very convenient for
-remote administration). The "<i>Local File System</i>" checkbox must be checked in the
-FTP configuration dialog in SBBSCTRL to enable this feature.</pre>
-<pre>To access local file systems, you must first login with sysop access
-(see "Sysop Access" for details). Once logged in with sysop access, you may
-mount the local file system. There are two ways to mount the local file system
-(and subsequently to revert to the BBS file system):</pre>
-<pre><b>SMNT (Structure Mount)</b>
-
-Sysops may use the FTP "<b>SMNT</b>" command to mount the local files system. Since most
-FTP clients do not support the <b>SMNT</b> command, you'll probably need to use the
-"quote" feature of your FTP client to send the command to the FTP server. </pre>
-<pre>The syntax is "<b>SMNT new_dir</b>" where <i>new_dir</i> is the file system specifier
-for the new directory used in the FTP hierarchy. Example: "<b>SMNT C:\</b>"
-would make the root directory of your local C drive your new current FTP
-directory (for Windows' command-line ftp, type "<b>quote SMNT C:\</b>").</pre>
-<pre>You can access shared drives on other machines on your local area network
-by using "<b>SMNT \\othersys\drive</b>" where <i>othersys</i> is the name of the other
-computer and drive is the share name of the desired drive.</pre>
-<pre>To switch back to (mount) the BBS file database, use "<b>SMNT bbs:</b>"</pre>
-<pre><b>CD (Change Directory)</b>
-
-Sysops can mount the local file system using a special case of the <b>CD</b> (<b>CWD</b>, <b>XCWD</b>)
-command. By prefixing "local:" to the new directory, the local file system will
-be automatically mounted. Example: "<b>cd local:c:\</b>".</pre>
-<pre>Once the local file system is mounted, you can switch between drives and shared
-drives with the CD command (the "<b>local:</b>" specifier is not needed).
-Example: "<b>cd d:\</b>".</pre>
-<pre>To access a shared drive on other machines: "<b>cd \\othersys\drive</b>".</pre>
-<pre>To switch back to (mount) the BBS file system, use "<b>cd bbs:</b>".</pre>
-<pre>Since some FTP clients do not support the <b>SMNT</b> command, nor allow users to enter
-verbatim FTP commands, the CD method is the easiest and most reliable method of
-accessing the local file system. </pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/files.ref b/docs/files.ref
deleted file mode 100644
index 551562cbf90c1c2755c8d3c43d46bcc06b4290e8..0000000000000000000000000000000000000000
--- a/docs/files.ref
+++ /dev/null
@@ -1,201 +0,0 @@
-Reference of Path/Filenames Created/Read by Synchronet BBS Software and Utils
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Updated 09/05/97
-
-
-The files listed in this document are each of a specific format. Many problems
-may occur if a file is incorrectly modified by a person or program. Some of
-the files below have a relatively self-explanatory format, while most are much
-more cryptic and require the use of a technical specification and/or utility
-program to decode or modify. The sysop manual defines the format of some of the
-files (GURU.DAT for example) while some of the more technical file format
-definitions are available in SBBSDEFS.ZIP and SMB_*.ZIP.
-
- See CNFS.FMT for specification
- ------------------------------
-CTRL\MAIN.CNF Main configuration (SCFG)
-CTRL\MSGS.CNF Message area/network configuration (SCFG)
-CTRL\CHAT.CNF Chat configuration (SCFG)
-CTRL\XTRN.CNF External program/event configuration (SCFG)
-CTRL\FILE.CNF File area configuration (SCFG)
-CTRL\*.CN? Configuration back-ups (SCFG)
-
- See NODEDEFS.H for specification
- --------------------------------
-CTRL\NODE.DAB Node status/control (NODE)
-
- No specification currently available
- ------------------------------------
-CTRL\NODE.IXB Node time synchronization index
-CTRL\NODE.EXB Node extended status descriptions
-CTRL\TIME.DAB Last-ran time for timed events (del to reset)
-CTRL\QNET.DAB Last-ran time for QWKnet hub call-outs (del to reset)
-CTRL\PNET.DAB Last-ran time for PostLink hub call-outs (del to reset)
-CTRL\DSTS.DAB Daily statistics for all nodes (DSTSEDIT)
-CTRL\CSTS.DAB Cumilative statistics for all nodes (SLOG)
-CTRL\ATTR.CFG Text attribute (color) configuration
-
- See sysop manual for specification
- ----------------------------------
-CTRL\GURU.DAT Guru brain
-CTRL\TEXT.DAT Text strings
-
- No specification currently available
- ------------------------------------
-CTRL\MDMS.IXT Modem configuration database index (SCFG)
-CTRL\*.MDM Modem configuration data (SCFG)
-
- See SMB.TXT for specification
- -----------------------------
-DATA\MAIL.* E-mail database
-
- No specification currently available
- ------------------------------------
-DATA\GURU.LOG Guru conversations
-DATA\HUNGUP.LOG Users who've hung-up on external programs
-DATA\XFER.IXT User-to-user file transfer index (del to reset)
-DATA\LOGON.LST User logon list for today
-DATA\UTI.LOG UTI (PostLink) driver log file
-
- See DIRS.FMT for specification
- ------------------------------
-DATA\DIRS\*.DAT File directory data
-DATA\DIRS\*.IXB File directory index
-DATA\DIRS\*.EXB File directory extended descriptions
-DATA\DIRS\*.DAB File directory most recently uploaded file pointer
-
- No specification currently available
- ------------------------------------
-DATA\FILE\####.QWK Pre-packed QWK packets for users or QWKnet nodes
-DATA\FILE\####.DWN Download batch queue from user's last logon
-DATA\FILE\####.IN\ In-bound e-mail file attachments for users
-DATA\FILE\####.OUT\ Out-bound netmail file attachments for users
-
- No specification currently available
- ------------------------------------
-DATA\LOGS\mmddyy.LOL Log-off list for date mm/dd/yy
-DATA\LOGS\mmddyy.LOG Detailed log for date mm/dd/yy
-
- No specification currently available
- ------------------------------------
-DATA\MSGS\AUTO.MSG Auto-message for SBBS
-DATA\MSGS\####.MSG Users short-messages (telegrams)
-DATA\MSGS\N###.MSG Node messages (pages, activity alerts, etc)
-
- See SYNCQNET.DOC for specification
- ----------------------------------
-DATA\QNET\ROUTE.DAT Route map for routing QWK netmail
-DATA\QNET\USERS.DAT User address look-up file (QWKNODES)
-
- No specification currently available
- ------------------------------------
-DATA\QNET\qwkid.PTR Last-exported pointers for QWKnet hub (del to reset)
-DATA\QNET\qwkid.IN\ In-bound file transfers from QWKnet hubs or nodes
-DATA\QNET\qwkid.OUT\ Out-bound file transfers to QWKnet hubs or nodes
-
- See SMB.TXT for specification
- -----------------------------
-DATA\SUBS\*.SDT Message base data
-DATA\SUBS\*.SHD Message base header
-DATA\SUBS\*.SID Message base index
-DATA\SUBS\*.SDA Message base data allocation table
-DATA\SUBS\*.SHA Message base header allocation table
-DATA\SUBS\*.SCH Message base CRC history
-
- No specification currently available
- ------------------------------------
-DATA\SUBS\*.SFP Message number last scanned/exported to FidoNet
-DATA\SUBS\*.SMM Message number last scanned/imported to Match Maker
-DATA\SUBS\*.SBL Message number last scanned/imported to BBS List
-
- No specification currently available
- ------------------------------------
-DATA\TEXT\*.IXT General text file section index
-
- See SBBSDEFS.H for specification
- --------------------------------
-DATA\USER\USER.DAT User data
-
- No specification currently available
- ------------------------------------
-DATA\USER\NAME.DAT User name/alias index
-DATA\USER\####.MSG Extended user description
-
- See PTRS.FMT for specification
- ------------------------------
-DATA\USER\PTRS\####.IXB Message base scan configuration/pointers for users
-
- See CNFS.FMT for specification
- ------------------------------
-NODE#\NODE.CNF Node configuration (SCFG)
-
- No specification currently available
- ------------------------------------
-NODE#\SCFG.BAT Configuration loader
-NODE#\SBBS.BAT BBS loader
-NODE#\NODE.LOG Detailed log of last call
-NODE#\DSTS.DAB Daily statistics for this node (DSTSEDIT)
-NODE#\CSTS.DAB Cumulative statistics for this node (SLOG)
-NODE#\CHAT.DAB Private chat data
-NODE#\BATCHUP.LST Batch upload path/file list
-NODE#\BATCHDN.LST Batch download path/file list
-NODE#\BIMODEM.PTH Bi-dir upload/download path/file list
-NODE#\PROTOCOL.LOG File transfer protocol log (DSZLOG)
-NODE#\MSGTMP Editor drop file (QuickBBS)
-NODE#\INPUT.MSG Editor drop file
-NODE#\NETMAIL.MSG Editor drop file
-NODE#\QUOTES.TXT Editor drop file
-NODE#\MSGINF Editor drop file (RemoteAccess)
-NODE#\EDITOR.INF Editor drop file (WWIV)
-NODE#\SBBSFILE.NAM File processor drop file
-NODE#\SBBSFILE.DES File processor drop file
-
- See sysop manual or XTRN_DAT.FMT for specification
- --------------------------------------------------
-NODE#\XTRN.DAT External program drop file
-
- See sysop manual for specification
- ----------------------------------
-NODE#\MODUSER.DAT External program return file
-
- No specification currently available
- ------------------------------------
-NODE#\DOOR.SYS Door drop/return file
-NODE#\PCBOARD.SYS Door drop file
-NODE#\USERS.SYS Door drop/return file
-NODE#\SFDOORS.DAT Door drop file
-NODE#\CHAIN.TXT Door drop file
-NODE#\DORINFO#.DEF Door drop file
-NODE#\EXITINFO.DEF Door drop/return file
-NODE#\CALLINFO.BBS Door drop file
-NODE#\DOORFILE.SR Door drop file
-NODE#\UTIDOOR.TXT Door drop file
-
- See sysop manual for specification
- ----------------------------------
-TEXT\*.MAC Local keyboard macros
-TEXT\*.SIF Input/questionnaire files
-
- No specification currently available
- ------------------------------------
-TEXT\TOOSLOW.MSG Message displayed to users less than minimum node rate
-TEXT\ANSWER.ASC Answer file for non-ANSI callers
-TEXT\ANSWER.ANS Answer file for ANSI callers
-TEXT\ANSWER.RIP Answer file for RIP callers
-TEXT\SBBS.MSG Synchronet information message
-TEXT\SYSTEM.MSG System information message
-TEXT\NEWUSER.MSG New user rules/information message
-TEXT\FEEDBACK.MSG New user feedback instructions
-TEXT\NAME.CAN List of disallowed name/alias strings
-TEXT\BADNAME.MSG Message displayed when attempting to enter a bad name
-TEXT\FILE.CAN List of disallowed file names for uploading
-TEXT\BADFILE.MSG Message displayed when attempting to upload bad file
-TEXT\PHONE.CAN List of disallowed phone numbers
-TEXT\BADPHONE.MSG Message displayed when attempting to use bad phone
-TEXT\CID.CAN List of disallowed Caller-ID strings
-TEXT\BADCID.MSG Message displayed when attempting to use bad CID string
-TEXT\IP.CAN List of disallowed IP addresses for telnet connections
-TEXT\BADIP.MSG Message displayed when attempting to use bad IP
-TEXT\ZIPMSG.TXT Default ZIP comment
-
-/* End of FILES.REF */
diff --git a/docs/glossary.html b/docs/glossary.html
deleted file mode 100644
index a30837256fad570a3c198f472182e356f28a0b3f..0000000000000000000000000000000000000000
--- a/docs/glossary.html
+++ /dev/null
@@ -1,397 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Glossary</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2>[19.0] - Glossary</h2>
-<pre><b>Alias:</b>
- False name that a user is known as. The use of Aliases is common on
- BBSs. Synchronet allows the sysop to disallow the use of them, forcing
- all users to be known by their real names.
-
-<b>ANSI:</b>
- American National Standards Institute. References made to ANSI are
- actually referring to the ANSI X3.64 terminal definition and the
- related escape sequences used to change cursor positioning and text
- attributes.
-
-<b>Archive:</b>
- A file that contains multiple (possibly compressed) files, that can
- be expanded. Archived files usually have a specific extension that
- specifies what type of archive utility was used to create it.
- The most popular archive utilities are PKZIP (.ZIP files),
- LHARC (.LZH), and ARJ (.ARJ files).
-
-<b>ASCII:</b>
- American Standard Code of Information Interchange. A 7 bit binary code
- used to represent letters, numbers, symbols, and control codes.
- Supported by almost every computer and terminal manufacturer.
- See Extended ASCII.
-
-<b>Baja:</b>
- Baja (b�'h�) is a tool used to create command shells and modules for
- Synchronet multinode BBS software (see DOCS\BAJA.DOC).
-
-<b>Baud:</b>
- An obsolete term defining the number of signal-level changes per
- second. The CCITT now prefers to use "symbols per second". For example
- a V.22bis connection transfers only 600 symbols per second, but in this
- protocol each symbol can represent up to four values; thus, you have an
- effective transmission rate of 2,400 bps. V.32 is a 2,400
- symbol-per-second (9,600-bps) modulation protocol.
-
-<b>BBS:</b>
- Bulletin Board System. A system configured to accept users via modem
- or network to access public and private messages. Many BBSs also
- incorporate file transfers (the uploading and downloading of program
- and data files), information services, online entertainment, and more.
- On a multinode BBS, all nodes must use the same live database for
- users, messages, and file transfers.
-
-<b>BPS:</b>
- Bits Per Second or Bit Rate. The rate of data transmitted between
- modems. For every byte of data (8 bits), a start and stop bit are added
- for a total of ten bits per data byte.
-
-<b>Chat:</b>
- Online real-time communication between users either in line by line
- (multinode chat) or key by key (private chat).
-<b>
-COM Port:</b>
- RS-232 communications port on an IBM PC compatible computer through
- which digital signals are exchanged between it and the modem (or other
- peripheral). The interface is either a 25 or 9 pin male connector.
-
-<b>Command Line:</b>
- The complete syntax used for the execution of a program. Includes
- the program path and name to execute and any parameters that may be
- required by the program for proper execution. Command lines configured
- in SCFG can use special command line specifiers for variable parameter
- replacement. See Appendix A for more information.
-
-<b>Compression:</b>
- See Archive.
-
-<b>Conference Mail:</b>
- See EchoMail.
-
-<b>Co-sysop:</b>
- BBS user with additional privileges to enable partial system
- maintenance. Co-sysops on a Synchronet system would usually have
- a security level in the range 80-89 and have an exemption flag for each
- sysop function he is given rights to.
-
-<b>CR:</b>
- Carriage Return. This character represents the end of a line of text
- and is usually initiated with the ENTER key on most keyboards.
-
-<b>CrashMail:</b>
- Referring to FidoNet NetMail being sent immediately and directly (not
- routed) to the BBS or network address of the destination person.
- A more accurate term would be Crash NetMail, or NetMail with Crash
- status.
-
-<b>Decompression:</b>
- See Extraction.
-
-<b>Directory:</b>
- A section within a file library that contains files for uploading or
- downloading. Also known as a file area.
-
-<b>Download:</b>
- Transferring a file from a BBS or other host system to a remote
- computer.
-
-<b>DCE:</b>
- Data Communications Equipment. Dial-up modems that establish and
- control the data link via the telephone network.
-
-<b>DCE Rate:</b>
- The data transfer rate between two modems.
-
-<b>DTE:</b>
- Data Terminal Equipment. The device that generates or is the final
- destination of data - the computer.
-
-<b>DTE Rate:</b>
- The data transfer rate between the computer and the modem.
-
-<b>Echo:</b>
- The term "Echo" or "Echo Conference" is often used to refer to a
- sub-board where messages are distributed across a message network. The
- term actually comes from FidoNet EchoMail - the technology used to
- distribute sub-board messages across FidoNet.
-
-<b>EchoMail (Conference Mail):</b>
- Sub-board messages echoed across FidoNet in compressed packets.
-
-<b>EchoMail Program:</b>
- If the front-end mailer does not directly support EchoMail, an EchoMail
- program is necessary. TosScan, Squish, GEcho, and FreeMail are examples
- of EchoMail programs.
-
-<b>E-mail or Electronic Mail:</b>
- Private multiple line messages between users that are stored on a BBS
- until the receiver deletes them.
-
-<b>Escape Sequence:</b>
- A sequence of characters usually preceded by a control code to perform
- attribute changes and cursor positioning on a terminal.
- See ANSI.
-
-<b>Exemptions:</b>
- Extended privileges given to users to remove access limitations or
- provide access to certain sysop functions.
- See User Edit for more information.
-
-<b>External Programs:</b>
- Programs (.COM, .EXE, or .BAT files) that the BBS executes for added
- functionality. External programs are used for archive manipulation,
- file transfers, games, databases, text editors, virus scanning,
- backups, and more. Often referred to as doors or chains.
-
-<b>Extraction:</b>
- The splitting (and possible decompression) of an archived file into
- the original set of multiple files.
- See Archive.
-
-<b>File Transfer Protocol:</b>
- See Transfer Protocol.
-
-<b>Flag:</b>
- One of 26 possible switches labeled A through Z. Flags are used to
- represent specific security privileges or restrictions for a user.
- See User Edit for more information.
-<b>
-Front-end Mailer:</b>
- An EMSI compatible FidoNet message front-end. FrontDoor, SEAdog,
- Binkley, and D'bridge are examples of front-end mailers.
-
-<b>Group or Message Group:</b>
- A group of message sub-boards with a similar subject matter.
-
-<b>Hardware Flow Control:</b>
- The modem's use of the CTS (Clear to Send) line to control the flow of
- data to from the computer to the modem.
-
-<b>LAN or Local Area Network:</b>
- A group of personal computers connected in a local environment for the
- purpose of sharing data, applications, and peripherals.
-
-<b>Level or Security Level:</b>
- A decimal value in the range of 0 to 99 that determines a user's
- security level on Synchronet BBS. A user's level determines how long
- he can stay online per call, total time per day, total logons a day,
- maximum number of lines per message, which Message Groups, Sub-boards,
- External Programs, General Text File Sections, Transfer Libraries, and
- Directories the user can access.
-
-<b>Library or Lib:</b>
- A group of transfer directories with a similar subject matter.
-
-<b>Logon:
- </b> The act of entering a BBS system through a valid user account.
-
-<b>Message:</b>
- File stored on the system created by a user that may contain ASCII text
- ,Ctrl-A codes, and ANSI escape sequences. Messages are either public
- (posted on a sub-board) or private (E-mail sent to a single user).
-
-<b>Message Network:</b>
- Two or more BBSs sharing public message sub-boards (Aka Echoes) where
- messages posted on one BBS get distributed to the other BBSs on the
- network. There are many different network technologies used for the
- distribution of networked messages. Synchronet supports the most
- popular technologies; QWK, FidoNet, and PostLink.
-
-<b>Multinode:</b>
- System that operates with multiple simultaneous access paths to the
- same database of messages and other resources.
-
-<b>Multitask:</b>
- The act of performing multiple tasks seemingly simultaneously.
-
-<b>Modem:</b>
- A device that transmits/receives computer data through a communications
- channel such as radio or telephone lines. Modems modulate, or
- transform, digital signals from a computer into an analog form that can
- be carried successfully on a phone line. Modems also demodulate signals
- received from the phone link back to digital signals before passing
- them to the receiving computer.
-
-<b>NetMail:</b>
- A personal message sent to a specific person on a specific BBS or at
- a specific network address through a message network. Most commonly
- used in reference to FidoNet NetMail.
-
-<b>Network:</b>
- Connection of two or more computers to facilitate the sharing of
- resources. See LAN and Message Network.
-
-<b>NUP or New User Password:</b>
- A password that the sysop has determined as a requirement before a
- new user can apply for access.
-
-<b>Online:</b>
- The state of a user when he is currently using a BBS.
-
-<b>Offline:</b>
- The state of a BBS or BBS Node when it is not able to receive users
- and the state of a user when he is not currently using the BBS.
-
-<b>Post:</b>
- The act of a user writing and saving a message on a sub-board.
-
-<b>Protocol:</b>
- A system of rules and procedures governing communications between two
- or more devices. Protocols vary, but communicating devices must follow
- the same protocol in order to exchange data. The format of the data,
- readiness to receive or send, error detection and error correction are
- some of the operations that may be defined in protocols.
- See Transfer Protocol.
-
-<b>QWK Packet:</b>
- A single compressed file, usually created by PKZIP, that contains
- new messages, E-mail, sysop bulletins, and a list of new files that can
- be downloaded by a user for use with an offline message reader. The
- filename is the BBS ID followed by a .QWK extension (regardless of the
- compression method). The developer of this packet format was Mark
- Herring (Sparky) of Sparkware, for use with his Qmail Door (external
- program). There are many popular offline message readers that support
- the QWK format. QWK packets may also be used for message networking.
-
-<b>REP Packet:</b>
- A QWK reply packet. Also, a single compressed file, usually created by
- PKZIP, that contains e-mail or posts from the user that he/she created
- with an offline message reader. The filename is the BBS ID followed
- by a .REP extension. The packet must be uploaded by the user before
- the messages and e-mail can be sent to the destination users or posted.
-
-<b>Restrictions:</b>
- Flags that a sysop can place on a user to restrict the user from
- certain features of a BBS.
-
-<b>RS-232:</b>
- Interface standard developed by the Electronic Industries Association
- (EIA) to define the signals and voltages used when data is exchanged
- between a computer or terminal and a modem or serial printer. Data is
- usually transmitted via a cable with a 9 or 25 pin connector.
-
-<b>SCFG:</b>
- Synchronet configuration program. This program is run locally by
- hitting C at the waiting for call screen or by running "SCFG" from
- any node directory.
-
-<b>Serial Port:</b>
- See COM Port.
-
-<b>Sub-board:</b>
- A section within a message group that contains multiple messages posted
- by users on a specific topic. Also referred to as a conference, forum,
- or special interest group (SIG).
-
-<b>Sysop:</b>
- System Operator. A person who participates in the maintenance or
- management of a BBS. In Synchronet, sysops are defined as users with
- a security level of 90 or greater.
-
-<b>Text File Sections:</b>
- Areas for the storage of text files that the sysop wants users to have
- the ability to read. Often referred to as general text file sections.
- Common text files would be information about the BBS, ANSI art work,
- and documents on debatable subjects. Text files placed in text file
- sections do not get purged as public messages do and are not part
- of the transfer section, so credits and transfer access are not
- required.
-
-<b>Transfer Protocol:</b>
- A protocol designed to govern the transmission of files between two
- computer systems. BBS transfer protocols are usually specific to modem
- transmissions. The most common of which are Xmodem, Ymodem, and Zmodem.
- Most communications programs contain built-in protocol support and
- stand-alone transfer protocol programs (like Omen Technology's DSZ)
- are also available.
-
-<b>Throughput:</b>
- The effective rate of data flow for a file transfer, measured in bits
- per second. Throughput depends on the connect rate and the
- error-control and data-compression protocols, if any.
-
-<b>UART:</b>
- Universal Asynchronous Receiver Transmitter. The IC (Integrated
- Circuit) that controls the serial port I/O. You must have a UART for
- each COM port in your computer. The most common UARTs for IBM PCs are
- NS8250s and NS16450s. If you are using a high-speed (9600bps or higher)
- modem with your COM port and having communication problems, quite often
- the only solution is to replace your UART for that COM port with a
- buffered UART, usually an NS16550AFN. More modern UARTs are being
- integrated with other peripheral controller ICs into a single chip (or
- chip-set). This design does not allow for the replacement of the actual
- UART. Internal modems have their own built-in UART.
-
-<b>Upload:</b>
- Transferring a file from a remote computer to a BBS or other host
- system.
-
-<b>User to User Transfer:</b>
- An upload that is sent to a particular user or set of users. These
- transfers are only allowed if the sysop creates a sub-board with a
- short name of "User". The sysop should set the access level to 90 and
- the upload level to something in the user range to allow users to
- upload to the directory, but not be able to list the contents of the
- directory. A user performs a user to user upload with the '/U' command
- from the transfer menu, and the destination user(s) can download the
- file with the '/D' command.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/gpl.txt b/docs/gpl.txt
deleted file mode 100644
index 60549be514af76c5db0c17ce6bbe01b2f81e2d9e..0000000000000000000000000000000000000000
--- a/docs/gpl.txt
+++ /dev/null
@@ -1,340 +0,0 @@
- GNU GENERAL PUBLIC LICENSE
- Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The licenses for most software are designed to take away your
-freedom to share and change it. By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users. This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it. (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.) You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
- To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have. You must make sure that they, too, receive or can get the
-source code. And you must show them these terms so they know their
-rights.
-
- We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
- Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software. If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
- Finally, any free program is threatened constantly by software
-patents. We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary. To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- GNU GENERAL PUBLIC LICENSE
- TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
- 0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License. The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language. (Hereinafter, translation is included without limitation in
-the term "modification".) Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope. The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
- 1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
- 2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
- a) You must cause the modified files to carry prominent notices
- stating that you changed the files and the date of any change.
-
- b) You must cause any work that you distribute or publish, that in
- whole or in part contains or is derived from the Program or any
- part thereof, to be licensed as a whole at no charge to all third
- parties under the terms of this License.
-
- c) If the modified program normally reads commands interactively
- when run, you must cause it, when started running for such
- interactive use in the most ordinary way, to print or display an
- announcement including an appropriate copyright notice and a
- notice that there is no warranty (or else, saying that you provide
- a warranty) and that users may redistribute the program under
- these conditions, and telling the user how to view a copy of this
- License. (Exception: if the Program itself is interactive but
- does not normally print such an announcement, your work based on
- the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole. If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works. But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
- 3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
- a) Accompany it with the complete corresponding machine-readable
- source code, which must be distributed under the terms of Sections
- 1 and 2 above on a medium customarily used for software interchange; or,
-
- b) Accompany it with a written offer, valid for at least three
- years, to give any third party, for a charge no more than your
- cost of physically performing source distribution, a complete
- machine-readable copy of the corresponding source code, to be
- distributed under the terms of Sections 1 and 2 above on a medium
- customarily used for software interchange; or,
-
- c) Accompany it with the information you received as to the offer
- to distribute corresponding source code. (This alternative is
- allowed only for noncommercial distribution and only if you
- received the program in object code or executable form with such
- an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it. For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable. However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-
- 4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License. Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
- 5. You are not required to accept this License, since you have not
-signed it. However, nothing else grants you permission to modify or
-distribute the Program or its derivative works. These actions are
-prohibited by law if you do not accept this License. Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
- 6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions. You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
- 7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all. For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices. Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-
- 8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded. In such case, this License incorporates
-the limitation as if written in the body of this License.
-
- 9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number. If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation. If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
- 10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission. For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this. Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
- NO WARRANTY
-
- 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
- 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) 19yy <name of author>
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
- Gnomovision version 69, Copyright (C) 19yy name of author
- Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary. Here is a sample; alter the names:
-
- Yoyodyne, Inc., hereby disclaims all copyright interest in the program
- `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
- <signature of Ty Coon>, 1 April 1989
- Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs. If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library. If this is what you want to do, use the GNU Library General
-Public License instead of this License.
diff --git a/docs/htdocs_contrib.txt b/docs/htdocs_contrib.txt
deleted file mode 100644
index 974404fa85e1695653ec620be7fdbcc62c642046..0000000000000000000000000000000000000000
--- a/docs/htdocs_contrib.txt
+++ /dev/null
@@ -1,112 +0,0 @@
-Introduction
-============
-This document is for people interested in contributing to the Synchronet
-Documentation Project : http://wasteland-bbs.com/syncdocs/
-
-Synchronet and it's related Source Code and Documentation is freely available
-and is continuing to be developed as an Open Source project.
-
-Active contributors are currently needed to help with the conversion and
-updating of the Synchronet Documentation.
-
-If you are interested in contributing to this project please contact :
-syncdocs@wasteland-bbs.com
-
-Availability
-============
-CVS access to the Documentation and Modification History is Available at :
-cvs.synchro.net:/cvsroot/sbbs/
-
-Example Command Line to Checkout the Current Documentation Files :
-cvs -d :pserver:username@cvs.synchro.net:/cvsroot/sbbs login
-(Enter your Password)
-cvs -d :pserver:username@cvs.synchro.net:/cvsroot/sbbs checkout docs
-
-Web-based CVS access is available at :
-http://cvs.synchro.net/cgi-bin/cvsweb.cgi
-
-Instructions for Working with CVS
-=================================
-First, you should contact the address above if you not already done so to
-obtain your CVS Username and Password for CVS Access.
-
-New members of the documentation team should first obtain the latest copy
-of the documentation files from the CVS repository as described above.
-
-It is important that you keep your local copy of the CVS files updated and
-always start your current editing session with the most recent CVS image.
-
-Example Command Line to Update the Documentation Files Locally :
-cvs -d :pserver:username@cvs.synchro.net:/cvsroot/sbbs login
-(Enter your Password)
-cvs -d :pserver:username@cvs.synchro.net:/cvsroot/sbbs update docs
-
-If you make changes to the project you should upload your changes in a timely
-fashion to ensure an organized and efficient version control system. All
-changes should be *thoroughly documented* when uploading to the repository.
-
-Please refer to the CVS Documentation for information on how to obtain and
-use the CVS Features and Functions http://www.cvshome.org .
-
-If you're looking for a GUI front-end for CVS management try these :
-http://www.wincvs.org
-http://www.lincvs.org
-
-If you have any questions on using CVS with the Synchronet Documentation :
-syncdocs@wasteland-bbs.com
-
-Working with the CVS Files Locally
-==================================
-The bulk of the HTML Conversion and Formatting work is currently being done
-on Windows 98/2000 with FrontPage 2000. This eases the editing and formatting
-of the large amount of data in the docs project. The CVS image should be
-portable to other platforms and editors as well.
-
-If you have problems or notice any incompatibilities please contact :
-syncdocs@wasteland-bbs.com
-
-FrontPage 2000
---------------
-To get started with FrontPage 2000 the easiest thing to do is create a new
-web and point it to your local cvs directory of the docs project. This will
-convert your local cvs directory into a FrontPage Web and create the
-necessary files and directories required by FrontPage.
-
-To do this follow these steps :
-
-1) Download the CVS image if you haven't already.
-2) Open Frontpage 2000 and select File->New->Web from the Menu
-3) Select "Empty Web" and enter the path of your local cvs image into the
- Web Location Dialog Box (e.g. c:\cvs\sbbs\docs).
-4) Hit OK to Create the Web
-
-** NOTE: If Frontpage asks if you want to overwrite anything, say NO.
-
-After creating the FrontPage Web you should now have a local Frontpage Web
-containing the documentation project. You can now start to work with the
-files and contribute to the project.
-
-** IMPORTANT: FP2000 has many features that require a Web server and FP2000
- Server Extensions. DO NOT use these features within the
- Documentation Project. Compatibility between all platforms
- should be maintained to prevent problems with other systems.
-
-** IMPORTANT: FP2000 has many files and directories it uses to manage a Web.
- These files SHOULD NOT be included your CVS uploads, and only
- the Documentation Project files themselves should be uploaded
- to the repository. If you are unsure which files are needed
- when uploading to the repository, please refer to the CVSweb
- http://cvs.synchro.net/cgi-bin/cvsweb.cgi to see which files
- are currently checked-in to CVS.
-
-Working with other HTML/Text Editors
-------------------------------------
-Working with the documentation files with other editors should not be a
-problem, but there are a couple things to remember.
-
-1) DO NOT use any features exclusive to your editor or editing environment.
- Efforts must be made to ensure cross-platform viewing and editing.
-
-2) DO NOT upload files to CVS generated for or by your editor of choice.
-
-** Only approved HTML tags should be included in the Documentation Project. **
diff --git a/docs/images/baja_example.png b/docs/images/baja_example.png
deleted file mode 100644
index 1f44ed28184a1c3c9c8d1684ec49fc2d871414d7..0000000000000000000000000000000000000000
Binary files a/docs/images/baja_example.png and /dev/null differ
diff --git a/docs/images/bre.png b/docs/images/bre.png
deleted file mode 100644
index 4de1ae4092c9fe8337350e1980218942131c3f5e..0000000000000000000000000000000000000000
Binary files a/docs/images/bre.png and /dev/null differ
diff --git a/docs/images/lordcfg.png b/docs/images/lordcfg.png
deleted file mode 100644
index 292f53ca8b9084198c99c51a45578c48682f87f1..0000000000000000000000000000000000000000
Binary files a/docs/images/lordcfg.png and /dev/null differ
diff --git a/docs/images/sbbsctrl.png b/docs/images/sbbsctrl.png
deleted file mode 100644
index ca0c6f1014367d75253cc0367d1eb47e666e84ac..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsctrl.png and /dev/null differ
diff --git a/docs/images/sbbsctrl_configure.png b/docs/images/sbbsctrl_configure.png
deleted file mode 100644
index 088457c14fe6a5233425ba9e8e00fc8fef60a24c..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsctrl_configure.png and /dev/null differ
diff --git a/docs/images/sbbsctrl_telnet_cfg_gen.png b/docs/images/sbbsctrl_telnet_cfg_gen.png
deleted file mode 100644
index da24e8b5d15187a6772842a414e760657ccd4321..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsctrl_telnet_cfg_gen.png and /dev/null differ
diff --git a/docs/images/sbbsecho_additionalecho.png b/docs/images/sbbsecho_additionalecho.png
deleted file mode 100644
index 2f5a4edcda1eba4f094c673653c1cb0922508109..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_additionalecho.png and /dev/null differ
diff --git a/docs/images/sbbsecho_additionalecho_list.png b/docs/images/sbbsecho_additionalecho_list.png
deleted file mode 100644
index e16d7c80a1b6ddc4435d40446cb244b40e8b0631..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_additionalecho_list.png and /dev/null differ
diff --git a/docs/images/sbbsecho_additionalecho_list_tag.png b/docs/images/sbbsecho_additionalecho_list_tag.png
deleted file mode 100644
index 695c88a61cb30e667fa38ab76895df6d3fc8dee7..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_additionalecho_list_tag.png and /dev/null differ
diff --git a/docs/images/sbbsecho_archiveprgs.png b/docs/images/sbbsecho_archiveprgs.png
deleted file mode 100644
index 44384edd701bc10f41de041787e8126cf69b9a16..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_archiveprgs.png and /dev/null differ
diff --git a/docs/images/sbbsecho_archiveprgs_zip.png b/docs/images/sbbsecho_archiveprgs_zip.png
deleted file mode 100644
index 93459102c58bc734af11fc053674ad9afea0e661..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_archiveprgs_zip.png and /dev/null differ
diff --git a/docs/images/sbbsecho_logoptions.png b/docs/images/sbbsecho_logoptions.png
deleted file mode 100644
index 0774e0702203bd5acff19494e651cbf2f3130dbf..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_logoptions.png and /dev/null differ
diff --git a/docs/images/sbbsecho_main.png b/docs/images/sbbsecho_main.png
deleted file mode 100644
index 818cafb9e0ebe2c06e0791927b8d1e1779869d2d..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_main.png and /dev/null differ
diff --git a/docs/images/sbbsecho_node_arctype.png b/docs/images/sbbsecho_node_arctype.png
deleted file mode 100644
index 6994202ece96aea85cab1aa6c4bf12f33e62d2f2..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_node_arctype.png and /dev/null differ
diff --git a/docs/images/sbbsecho_node_packettype.png b/docs/images/sbbsecho_node_packettype.png
deleted file mode 100644
index 995745461775a0ec3aae9313f6d022dda154b892..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_node_packettype.png and /dev/null differ
diff --git a/docs/images/sbbsecho_node_settings.png b/docs/images/sbbsecho_node_settings.png
deleted file mode 100644
index 24aba92be0218e1d4dfe1c82b74d4adffcf25bce..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_node_settings.png and /dev/null differ
diff --git a/docs/images/sbbsecho_nodes.png b/docs/images/sbbsecho_nodes.png
deleted file mode 100644
index 47928b71248d390c5bb3d3f08445f1ad0ea16359..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_nodes.png and /dev/null differ
diff --git a/docs/images/sbbsecho_paths.png b/docs/images/sbbsecho_paths.png
deleted file mode 100644
index 43da7df23a1cc2c6604b3f27962d531bc608fb91..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_paths.png and /dev/null differ
diff --git a/docs/images/sbbsecho_toggleoptions.png b/docs/images/sbbsecho_toggleoptions.png
deleted file mode 100644
index 7b644171e710e3deff1c69c057f6fc2dd779209a..0000000000000000000000000000000000000000
Binary files a/docs/images/sbbsecho_toggleoptions.png and /dev/null differ
diff --git a/docs/images/scfg_chat_channel1.png b/docs/images/scfg_chat_channel1.png
deleted file mode 100644
index 42aa89ea46e410ab712b67cdcf280147cf5453ed..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_chat_channel1.png and /dev/null differ
diff --git a/docs/images/scfg_chat_features.png b/docs/images/scfg_chat_features.png
deleted file mode 100644
index d1c7180f46622467936050f0b5d710d1d8cb23ed..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_chat_features.png and /dev/null differ
diff --git a/docs/images/scfg_chat_gurus.png b/docs/images/scfg_chat_gurus.png
deleted file mode 100644
index c768e0d6591d9737902d42b51eb3b4ec44bef589..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_chat_gurus.png and /dev/null differ
diff --git a/docs/images/scfg_chat_pager1.png b/docs/images/scfg_chat_pager1.png
deleted file mode 100644
index d5288f91cfb64a08c8c19d2b4dea3e28bb38425d..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_chat_pager1.png and /dev/null differ
diff --git a/docs/images/scfg_chat_pagers.png b/docs/images/scfg_chat_pagers.png
deleted file mode 100644
index 7c03531aa016b399642e09c10a0abd5753e89e40..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_chat_pagers.png and /dev/null differ
diff --git a/docs/images/scfg_chat_theguru.png b/docs/images/scfg_chat_theguru.png
deleted file mode 100644
index 8277087267fcbb5d6038bd0dc12b25c89575147b..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_chat_theguru.png and /dev/null differ
diff --git a/docs/images/scfg_dos_startup.png b/docs/images/scfg_dos_startup.png
deleted file mode 100644
index 5b26f9609506393962460507fafe993eb76a6ff7..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_dos_startup.png and /dev/null differ
diff --git a/docs/images/scfg_main.png b/docs/images/scfg_main.png
deleted file mode 100644
index 56c7691057ab45647f30a244e86bf184edf31fa7..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_main.png and /dev/null differ
diff --git a/docs/images/scfg_modem_config.png b/docs/images/scfg_modem_config.png
deleted file mode 100644
index d76143554e9a670407054ee17c85113f9e1cf501..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_config.png and /dev/null differ
diff --git a/docs/images/scfg_modem_fax_code1.png b/docs/images/scfg_modem_fax_code1.png
deleted file mode 100644
index 72019b3bdf6ac11524a13ab999b4c4c0289ff345..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_fax_code1.png and /dev/null differ
diff --git a/docs/images/scfg_modem_fax_code2.png b/docs/images/scfg_modem_fax_code2.png
deleted file mode 100644
index 055ed83609c6b89589b4cf8da897dfd3d816458f..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_fax_code2.png and /dev/null differ
diff --git a/docs/images/scfg_modem_port_type.png b/docs/images/scfg_modem_port_type.png
deleted file mode 100644
index 6b5a3591adee81ee2b96ba6ec0b1a1027b866c87..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_port_type.png and /dev/null differ
diff --git a/docs/images/scfg_modem_resultcode_15.png b/docs/images/scfg_modem_resultcode_15.png
deleted file mode 100644
index 2c029ee2bc68015edaa413e7a79d0d813067a499..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_resultcode_15.png and /dev/null differ
diff --git a/docs/images/scfg_modem_resultcodes.png b/docs/images/scfg_modem_resultcodes.png
deleted file mode 100644
index cabd5c73c776286b0c88fc0f93e02631bb10dff1..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_resultcodes.png and /dev/null differ
diff --git a/docs/images/scfg_modem_strings.png b/docs/images/scfg_modem_strings.png
deleted file mode 100644
index 8bddd18c31cef003b94a83e63223b709cc85a942..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_strings.png and /dev/null differ
diff --git a/docs/images/scfg_modem_toggles.png b/docs/images/scfg_modem_toggles.png
deleted file mode 100644
index 71a7a844ecca933173fd696a064cd95e4ba1284c..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_modem_toggles.png and /dev/null differ
diff --git a/docs/images/scfg_msg_area_advopts.png b/docs/images/scfg_msg_area_advopts.png
deleted file mode 100644
index 598597df6a201387db1b4f21d042c508762bc206..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_area_advopts.png and /dev/null differ
diff --git a/docs/images/scfg_msg_area_netopts.png b/docs/images/scfg_msg_area_netopts.png
deleted file mode 100644
index 6637698352f85db81f8d375329d94857e14bb372..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_area_netopts.png and /dev/null differ
diff --git a/docs/images/scfg_msg_area_toggles.png b/docs/images/scfg_msg_area_toggles.png
deleted file mode 100644
index cee740ae4fba9115aa6267911967fe921326a6ab..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_area_toggles.png and /dev/null differ
diff --git a/docs/images/scfg_msg_areas.png b/docs/images/scfg_msg_areas.png
deleted file mode 100644
index f178772ccf141a246f49eab4b546f5fe45a239a7..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_areas.png and /dev/null differ
diff --git a/docs/images/scfg_msg_areas_gen.png b/docs/images/scfg_msg_areas_gen.png
deleted file mode 100644
index ed1b17133a4de7b81f7cc6bdb234964756cbe73a..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_areas_gen.png and /dev/null differ
diff --git a/docs/images/scfg_msg_attrcodes.png b/docs/images/scfg_msg_attrcodes.png
deleted file mode 100644
index 19676912526cfeb42bae394aec304e65242fcc70..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_attrcodes.png and /dev/null differ
diff --git a/docs/images/scfg_msg_options.png b/docs/images/scfg_msg_options.png
deleted file mode 100644
index 46e64566fb5d8b47920d335fd06143e408d381df..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_msg_options.png and /dev/null differ
diff --git a/docs/images/scfg_networks.png b/docs/images/scfg_networks.png
deleted file mode 100644
index 1d68e0a8f7ed20577c27799ce88dd36e381c345b..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks.png and /dev/null differ
diff --git a/docs/images/scfg_networks_fido.png b/docs/images/scfg_networks_fido.png
deleted file mode 100644
index ce563cd89fc456a3f44511ff41e9027399c5e399..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_fido.png and /dev/null differ
diff --git a/docs/images/scfg_networks_fido_address.png b/docs/images/scfg_networks_fido_address.png
deleted file mode 100644
index 246692a840cc88eb97368aa36c925dd234825ccf..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_fido_address.png and /dev/null differ
diff --git a/docs/images/scfg_networks_internet.png b/docs/images/scfg_networks_internet.png
deleted file mode 100644
index 7eb6d0fdcc4df0389811b13301ee3e31f894dd2f..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_internet.png and /dev/null differ
diff --git a/docs/images/scfg_networks_post.png b/docs/images/scfg_networks_post.png
deleted file mode 100644
index d329edc30ab96b31b2801969249762435c3a004a..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_post.png and /dev/null differ
diff --git a/docs/images/scfg_networks_post_hubs.png b/docs/images/scfg_networks_post_hubs.png
deleted file mode 100644
index 349370716742aa809a33e65a0fe3ccd0e77d7ebc..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_post_hubs.png and /dev/null differ
diff --git a/docs/images/scfg_networks_post_hubs_sccm.png b/docs/images/scfg_networks_post_hubs_sccm.png
deleted file mode 100644
index e8d922a036a3caa438383069dc21ff1b5513e288..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_post_hubs_sccm.png and /dev/null differ
diff --git a/docs/images/scfg_networks_qwkhubs.png b/docs/images/scfg_networks_qwkhubs.png
deleted file mode 100644
index c817f53bf655cb4c854069f12fb4f2bbf43c21f8..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_qwkhubs.png and /dev/null differ
diff --git a/docs/images/scfg_networks_qwkhubs_vert.png b/docs/images/scfg_networks_qwkhubs_vert.png
deleted file mode 100644
index 41a8c4da6343fee9051af165e46ea407007b4e41..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_qwkhubs_vert.png and /dev/null differ
diff --git a/docs/images/scfg_networks_qwkhubs_vert_subs.png b/docs/images/scfg_networks_qwkhubs_vert_subs.png
deleted file mode 100644
index d8b6d89b8ef7db09e13e529a305d21ce93e2602c..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_qwkhubs_vert_subs.png and /dev/null differ
diff --git a/docs/images/scfg_networks_qwkhubs_vert_subs_opt.png b/docs/images/scfg_networks_qwkhubs_vert_subs_opt.png
deleted file mode 100644
index 3f1d555e033e3568e516607afc52e1a4fb96a2d2..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_networks_qwkhubs_vert_subs_opt.png and /dev/null differ
diff --git a/docs/images/scfg_node1.png b/docs/images/scfg_node1.png
deleted file mode 100644
index 42d6ed6887f8a5297546665ada043fcbe30a5f22..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_node1.png and /dev/null differ
diff --git a/docs/images/scfg_node1_advanced.png b/docs/images/scfg_node1_advanced.png
deleted file mode 100644
index d894c07075ae1b3f5b06d132038185da5cd5bb45..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_node1_advanced.png and /dev/null differ
diff --git a/docs/images/scfg_node1_toggles.png b/docs/images/scfg_node1_toggles.png
deleted file mode 100644
index 455f5b2141581316136220e0e19821ce0e94841e..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_node1_toggles.png and /dev/null differ
diff --git a/docs/images/scfg_system.png b/docs/images/scfg_system.png
deleted file mode 100644
index 52cf4d880f3418b0dc211c000634b98855900f77..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system.png and /dev/null differ
diff --git a/docs/images/scfg_system_advanced.png b/docs/images/scfg_system_advanced.png
deleted file mode 100644
index 5e363be0c939b68bb561bf5dd3fe372d8c6fe01d..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_advanced.png and /dev/null differ
diff --git a/docs/images/scfg_system_expired.png b/docs/images/scfg_system_expired.png
deleted file mode 100644
index d2f77f7962eb5c51bb19bd75ae2a7e03f5b14eec..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_expired.png and /dev/null differ
diff --git a/docs/images/scfg_system_loadablemods.png b/docs/images/scfg_system_loadablemods.png
deleted file mode 100644
index d9b79ef9af134c4ff86579de5cb5cba89180c086..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_loadablemods.png and /dev/null differ
diff --git a/docs/images/scfg_system_newvalues.png b/docs/images/scfg_system_newvalues.png
deleted file mode 100644
index c4223ce039cb3d1de6d421bc859566ae72d0ba6b..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_newvalues.png and /dev/null differ
diff --git a/docs/images/scfg_system_newvalues_questions.png b/docs/images/scfg_system_newvalues_questions.png
deleted file mode 100644
index 9e0a20d96767ff004ef4af6c7f55a0898dc6fb4b..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_newvalues_questions.png and /dev/null differ
diff --git a/docs/images/scfg_system_newvalues_toggles.png b/docs/images/scfg_system_newvalues_toggles.png
deleted file mode 100644
index baf2d611ef9deeef9e99dd198713ca7765f762f3..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_newvalues_toggles.png and /dev/null differ
diff --git a/docs/images/scfg_system_quickval.png b/docs/images/scfg_system_quickval.png
deleted file mode 100644
index bb475062e619c836ac2f1baf317d667b4f8145e4..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_quickval.png and /dev/null differ
diff --git a/docs/images/scfg_system_quickval_0.png b/docs/images/scfg_system_quickval_0.png
deleted file mode 100644
index 939cfd75844d7cb85bebc75c1d6725835cbb7de3..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_quickval_0.png and /dev/null differ
diff --git a/docs/images/scfg_system_securityvalues.png b/docs/images/scfg_system_securityvalues.png
deleted file mode 100644
index 1e7fb6b4c551ab9b33133450c0c48f8f483bcef4..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_securityvalues.png and /dev/null differ
diff --git a/docs/images/scfg_system_securityvalues_0.png b/docs/images/scfg_system_securityvalues_0.png
deleted file mode 100644
index 5fdaab46488d65f69f9e6115ea70314bc549fec8..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_securityvalues_0.png and /dev/null differ
diff --git a/docs/images/scfg_system_toggle.png b/docs/images/scfg_system_toggle.png
deleted file mode 100644
index 3e0696b6dbe759598dcb62167f465a06b6c50f4e..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_system_toggle.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_compressable.png b/docs/images/scfg_xfer_compressable.png
deleted file mode 100644
index bdf809603d599922b2d936fd93a55ee35d925ca2..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_compressable.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_dir.png b/docs/images/scfg_xfer_dir.png
deleted file mode 100644
index a09950eed0b3cb1eb9a07c7c6ac481ad3f631424..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_dir.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_dir_advanced.png b/docs/images/scfg_xfer_dir_advanced.png
deleted file mode 100644
index 21d1abb816eae9d57f60e47b809845773a2ba0c7..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_dir_advanced.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_dir_toggles.png b/docs/images/scfg_xfer_dir_toggles.png
deleted file mode 100644
index 1f51a876d689d490cfe06f16fa7de0313c4857bb..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_dir_toggles.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_event.png b/docs/images/scfg_xfer_event.png
deleted file mode 100644
index 3675bdda577aa2100fae8530c0df61cc19b7c997..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_event.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_eventc.png b/docs/images/scfg_xfer_eventc.png
deleted file mode 100644
index 00add9d2da39d132b139ffafc502b7870355bbe2..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_eventc.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_extractable.png b/docs/images/scfg_xfer_extractable.png
deleted file mode 100644
index 0fe3e845c2979cf5e6f88273224937541f1a8083..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_extractable.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_library.png b/docs/images/scfg_xfer_library.png
deleted file mode 100644
index 0242a7a337911b77f2ff5a8f0abaf14fa118c411..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_library.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_options.png b/docs/images/scfg_xfer_options.png
deleted file mode 100644
index c2f4201e550f3f4053bd41bebede29986512026d..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_options.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_dsz.png b/docs/images/scfg_xfer_proto_dsz.png
deleted file mode 100644
index 311f8e9088a24e057b9e531cfbc5b6643c805745..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_dsz.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_dsz_g.png b/docs/images/scfg_xfer_proto_dsz_g.png
deleted file mode 100644
index 1379862607146c3b7b229bf0550ea87f604a9ed7..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_dsz_g.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_dsz_h.png b/docs/images/scfg_xfer_proto_dsz_h.png
deleted file mode 100644
index 3ed350aa2ded198189476d0e33d0f847e14c7958..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_dsz_h.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_dsz_x.png b/docs/images/scfg_xfer_proto_dsz_x.png
deleted file mode 100644
index 08409c0217e1e5937ecd71ccfa662d98c5310b20..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_dsz_x.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_dsz_y.png b/docs/images/scfg_xfer_proto_dsz_y.png
deleted file mode 100644
index 54d2badcce8f85800c60e05953afb76325402294..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_dsz_y.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_dsz_z.png b/docs/images/scfg_xfer_proto_dsz_z.png
deleted file mode 100644
index 6598368949a238124a9ad143d0448eb8ed78e280..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_dsz_z.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_fdsz.png b/docs/images/scfg_xfer_proto_fdsz.png
deleted file mode 100644
index f5378f7d01d02b568f7a2911175dd929046afaab..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_fdsz.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_fdsz_g.png b/docs/images/scfg_xfer_proto_fdsz_g.png
deleted file mode 100644
index 81290ff792b3e05e1a3bfe4954ed02c6db755428..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_fdsz_g.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_fdsz_x.png b/docs/images/scfg_xfer_proto_fdsz_x.png
deleted file mode 100644
index d4fb4299203dd388ff16279596161307ad794f37..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_fdsz_x.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_fdsz_y.png b/docs/images/scfg_xfer_proto_fdsz_y.png
deleted file mode 100644
index 206fa86eaa403bb9c0c124ce4dd59c9d9b95025b..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_fdsz_y.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_proto_fdsz_z.png b/docs/images/scfg_xfer_proto_fdsz_z.png
deleted file mode 100644
index 773896fb14aa0ffd0d36acc085c9686a9c6d8c56..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_proto_fdsz_z.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_testable.png b/docs/images/scfg_xfer_testable.png
deleted file mode 100644
index 6fb38439322b0ad96b1bada70e764f0b91022649..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_testable.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_testable_du.png b/docs/images/scfg_xfer_testable_du.png
deleted file mode 100644
index 721efb6fe11c9cf2da3528757a73c5782da8c4f2..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_testable_du.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_testable_zip.png b/docs/images/scfg_xfer_testable_zip.png
deleted file mode 100644
index 7603ad2eb05d8dd737cfed926c10c79124d18b48..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_testable_zip.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_testable_zipc.png b/docs/images/scfg_xfer_testable_zipc.png
deleted file mode 100644
index 5e59257903ac2bc2da4c8e0fe7b4009b0700e20b..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_testable_zipc.png and /dev/null differ
diff --git a/docs/images/scfg_xfer_viewable.png b/docs/images/scfg_xfer_viewable.png
deleted file mode 100644
index 13ad589f5beaa074331410096f7fed068bbec8b3..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xfer_viewable.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_fixed.png b/docs/images/scfg_xtrn_fixed.png
deleted file mode 100644
index d45bb4e3680fbbd7fdf8daa4b7c9ae676d2d5e49..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_fixed.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_lord.png b/docs/images/scfg_xtrn_lord.png
deleted file mode 100644
index ce08fdc28ef07a3863a8fdd0ef622ee5e676b872..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_lord.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_sbl.png b/docs/images/scfg_xtrn_sbl.png
deleted file mode 100644
index aa4fde4d37c3f250aa87e47e3e91765158f20678..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_sbl.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_section.png b/docs/images/scfg_xtrn_section.png
deleted file mode 100644
index f120802376097e6b72116ca6f80eeb0031bf17df..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_section.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_swaplist.png b/docs/images/scfg_xtrn_swaplist.png
deleted file mode 100644
index 82aaa529fd115cfa33cc1b987f99230152904a57..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_swaplist.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_syncedit.png b/docs/images/scfg_xtrn_syncedit.png
deleted file mode 100644
index 4d2c76c5455e865bf91f8e649b0e7722050c8dc5..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_syncedit.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_timed.png b/docs/images/scfg_xtrn_timed.png
deleted file mode 100644
index 3898420b777360c3bbd96398a8a9c1e17081b635..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_timed.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_timeopt.png b/docs/images/scfg_xtrn_timeopt.png
deleted file mode 100644
index 8816d5931eea7758e9d337ede9b79a673f7613da..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_timeopt.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_tw2002.png b/docs/images/scfg_xtrn_tw2002.png
deleted file mode 100644
index aa6766e599dd99939e144bef180f3e78d9cef2f5..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_tw2002.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_usurper.png b/docs/images/scfg_xtrn_usurper.png
deleted file mode 100644
index 8b78b16900aad77e8d75e81a8938654078f4d345..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_usurper.png and /dev/null differ
diff --git a/docs/images/scfg_xtrn_winos2list.png b/docs/images/scfg_xtrn_winos2list.png
deleted file mode 100644
index 8ba890b8ab3b4c29826162353cef0388a382e78a..0000000000000000000000000000000000000000
Binary files a/docs/images/scfg_xtrn_winos2list.png and /dev/null differ
diff --git a/docs/images/setuptype.png b/docs/images/setuptype.png
deleted file mode 100644
index 8ae541e790688aa6a7e5e2c6829fdbd8021e652c..0000000000000000000000000000000000000000
Binary files a/docs/images/setuptype.png and /dev/null differ
diff --git a/docs/images/synclogo_fancyred.png b/docs/images/synclogo_fancyred.png
deleted file mode 100644
index b5f56e77b0ff5cbed580c500b4c7bcde8a25bfd6..0000000000000000000000000000000000000000
Binary files a/docs/images/synclogo_fancyred.png and /dev/null differ
diff --git a/docs/images/tw2002.png b/docs/images/tw2002.png
deleted file mode 100644
index 6db74ba38c95d3fbb218e9e7cbe65066b5fd4ffb..0000000000000000000000000000000000000000
Binary files a/docs/images/tw2002.png and /dev/null differ
diff --git a/docs/images/uedit_v3.png b/docs/images/uedit_v3.png
deleted file mode 100644
index fb6452c3a5823796ee065e09763257a6566efd9b..0000000000000000000000000000000000000000
Binary files a/docs/images/uedit_v3.png and /dev/null differ
diff --git a/docs/images/uedit_v3_exe.png b/docs/images/uedit_v3_exe.png
deleted file mode 100644
index 4b1266fd5b5db238c280b2c1429bf2dd4c3abeb4..0000000000000000000000000000000000000000
Binary files a/docs/images/uedit_v3_exe.png and /dev/null differ
diff --git a/docs/images/v3icon3.png b/docs/images/v3icon3.png
deleted file mode 100644
index 1d74107a16f30a82557188368172e3d408cf6e97..0000000000000000000000000000000000000000
Binary files a/docs/images/v3icon3.png and /dev/null differ
diff --git a/docs/imsgdocs.txt b/docs/imsgdocs.txt
deleted file mode 100644
index e911cc5606faaf799dd60b78ae66cf209de4c228..0000000000000000000000000000000000000000
--- a/docs/imsgdocs.txt
+++ /dev/null
@@ -1,41 +0,0 @@
-*** Synchronet v3.10 Instant Message Support ***
-
-To use the new "Instant message" feature, you need to do the following:
-
-o You must be running the Synchronet SMTP Mail Server on port 25
- (publicly accessible).
-
-o You must be running the Synchronet Finger Service (exec/fingerservice.js)
- - The UDP-Finger service is encouraged for faster user listings.
- - This is enabled by default (both TCP and UDP) in the included
- ctrl/services.cfg.
-
-o You should also have your BBS in the Synchronet BBS List (SBL) database.
- - See http://synchro.net/sbbslist.html
-
-o Put the updated chat.asc in your text/menu directory.
- - This is an updated chat menu that contains the [F]inger and [I]nstant
- Message commands.
-
-o Create the following timed-event in SBBSCTRL:BBS->Configure->External
- Programs->Timed Events:
-
- Internal Code GETIMLST
- Start-up Directory
- Command Line *getimlst
- Execution Node 1
- Execution Days Sun Mon Tue Wed Thu Fri Sat
- Execution Time 12:00
- Requires Exclusive Execution No
- Force Users Off-line For Event No
-
- This event will retieve a current list of BBSes that are instant-message
- enabled daily.
-
-Now you will have an [I]nstant message option available from your [C]hat menu
-where your users can [L]ist other users, send [M]essages to active users or
-[T]elegrams to any user and system that supports SMTP telegrams.
-
-That's it! :-)
-
--Rob
\ No newline at end of file
diff --git a/docs/index.htm b/docs/index.htm
deleted file mode 100644
index d96b7d7b96ad95cc7b8462e4c420fe2d41a0bcff..0000000000000000000000000000000000000000
--- a/docs/index.htm
+++ /dev/null
@@ -1,134 +0,0 @@
-
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<base target="_blank">
-<title>Synchronet BBS Software Documentation</title>
-<meta name="Microsoft Border" content="none, default">
-</head>
-
-<body><!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<h1>Synchronet Documentation Index</h1>
-<p>Latest News and Updates for <a href="http://www.synchro.net">Synchronet</a>
-can be found at the following sites :</p>
-<blockquote>
- <b>Official Synchronet Web-site<a href="http://www.synchro.net"><br>
- http://www.synchro.net</a></b>
- <p><b>Official Synchronet BBS (Vertrauen) Telnet Servers<br>
- <a href="telnet://vert.synchro.net">telnet://vert.synchro.net</a> and
- <a href="telnet://cvs.synchro.net">telnet://cvs.synchro.net</a></b></p>
- <p><b>Official Synchronet BBS (Vertrauen) FTP Servers<br>
- <a href="ftp://vert.synchro.net">ftp://vert.synchro.net</a> and
- <a href="ftp://cvs.synchro.net">ftp://cvs.synchro.net</a></b></p>
- <p><b>Official Synchronet Mirror FTP Server<br>
- <a href="ftp://ftp.synchro.net">ftp://ftp.synchro.net</a> (official releases only)</b></p>
-</blockquote>
-<h2 align="left">Synchronet Sysop Documentation</h2>
-<blockquote>
-<h4 align="left"><a href="sysop.html">Synchronet Sysop
-Documentation</a> - For Synchronet System Operators</h4>
-<h4 align="left"><a href="baja.html">Baja
-Documentation</a> - The Synchronet Command Shell and Loadable Module Compiler</h4>
-<h4 align="left"><a href="sbbsecho.html">SBBSecho Documentation</a> - How to configure and use Synchronet's FidoNet Packet Tosser</h4>
-
-<p align="left">Important Information and Frequently Asked Questions :</p>
-<ul>
- <li>
- <p align="left"><a href="platforms.html">Supported Platforms</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/sbbs3faq.txt">Synchronet v3.0 Frequently Asked Questions</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/v3cfgfaq.txt" target="_blank">Synchronet v3.0 Frequently Asked Questions (regarding configuration)</a></li>
- <li>
- <p align="left"><a href="ntreadme.txt" target="_blank">Synchronet v3.0 Windows NT/2000 Instructions</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/v300_new.txt">Synchronet v3.0 What's new in this version?</a></li>
- <li>
- <p align="left"><a href="upgrade.txt">Synchronet v3.x Upgrade Information</a></li>
- <li>
- <p align="left"><a href="http://vert.synchro.net/sbbstodo.html">Synchronet v3.0 To-do List</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs_3rd/syedtfaq.txt">SyncEdit Frequently Asked Questions</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">What
- happened to Digital Dynamics? (Aug. 1996)</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/sbbs4os2.faq">Synchronet
- v2.30 OS/2 Frequently Asked Questions (March 1996)</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/sbbs0595.faq">Synchronet
- v2.30 Frequently Asked Questions (May 1995)</a></li>
- <li>
- <p align="left"><a href="ftp://vert.synchro.net/main/sbbs/ddtb1001.txt">Synchronet
- v2.30 Common Problems (Feb. 1996)</a></li>
-</ul>
-</blockquote>
-<h2 align="left">Synchronet User Documentation</h2>
-<blockquote>
-<h4 align="left"><a href="user.html">Synchronet User
-Documentation</a> - How to use the Default Synchronet (Classic) Command Shell</h4>
-
-<h4 align="left"><a href="http://www.synchro.net/sbbslist.html">Daily Updated
-Online Synchronet BBS List</a> - Worldwide Listing of Synchronet
-Systems</h4>
-
-</blockquote>
-<h2 align="left">Synchronet Developer Documentation</h2>
-<blockquote>
-
-<p align="left"><b><a href="smb.html">Synchronet Message Base (SMB)
-Documentation</a> - Synchronet Message Base Specification </b></p>
-<p align="left"><b><a href="http://www.synchro.net/source.html">Synchronet Source Code</a>
-- Obtaining, building, and modifying the Synchronet source code</b></p>
-</blockquote>
-
-<p align="left"><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-<p align="left"> </p>
-
-</body>
-
-</html>
diff --git a/docs/index.html b/docs/index.html
deleted file mode 100644
index c3795be95eb671626f7cdda7efd002195be15703..0000000000000000000000000000000000000000
--- a/docs/index.html
+++ /dev/null
@@ -1,8 +0,0 @@
-<!-- This is for http servers that default to index.html -->
-<html>
-
-<head>
-<meta http-equiv="refresh" content="0; URL=index.htm">
-</head>
-
-</html>
\ No newline at end of file
diff --git a/docs/index.url b/docs/index.url
deleted file mode 100644
index e2379b68dd98aba087da28de1f9901abffe9fb14..0000000000000000000000000000000000000000
--- a/docs/index.url
+++ /dev/null
@@ -1,5 +0,0 @@
-[DEFAULT]
-BASEURL=http://www.synchro.net/docs/index.html
-[InternetShortcut]
-URL=http://www.synchro.net/docs/index.html
-Modified=50D0C534EFB3C2017E
diff --git a/docs/install.html b/docs/install.html
deleted file mode 100644
index c0ffeaa0b5e9864ac7b442ff75580c7ec530f17f..0000000000000000000000000000000000000000
--- a/docs/install.html
+++ /dev/null
@@ -1,206 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Installation</title>
-<base target="_self">
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-
-<h2>[1.0] - Synchronet Installation Instructions</h2>
-
-<h3>Finding the Latest version of Synchronet</h3>
-
-<pre>You can find the latest released public distribution of Synchronet at
-<a href="http://www.synchro.net" target="_blank">http://www.synchro.net</a>.</pre>
-
-<h3><b>Versions and Supported Platforms</b></h3>
-<pre>Synchronet is currently available in two separate major versions:</pre>
-<ul>
- <li>
-<pre><b>Version 2.3 for DOS and OS/2
-</b>Supports serial/modem and local logins
-Native 16-bit and 32-bit console mode executables
-Single node per instance (up to 250 total)
-Version-specific features are noted with: <b><i><font color="#FF0000">(v2 Only)</font></i></b></pre>
- </li>
- <li>
-<pre><b>Version 3.0 for Win32 (Windows 95/98/ME/NT/2000)
-</b>Supports TCP/IP logins only
-Native 32-bit DLLs and GUI front-end application
-Up to 250 nodes per instance
-Version-specific features are noted with: <font color="#FF0000"><i><b>(v3+ Only)</b></i></font></pre>
- </li>
-</ul>
-<pre>All configuration and data files are compatible between version 2.3 and 3.0 so
-you can combine instances of different versions to create a single "hybrid" BBS.</pre>
-
-<h3>
-Upgrading to a Newer Version of Synchronet</h3>
-<pre>Because of the many variances when changing to a different version or revision
-of Synchronet, this topic is not covered here. When upgrading an existing Synchronet
-installation to a newer version or revision, you should <b>ALWAYS</b> consult the
-upgrade documentation included with the distribution (usually in the form of an
-<a href="../upgrade.txt">UPGRADE.TXT</a> file). Upgrade-only distributions are usually made available
-in a more compact archive form (e.g. <b>sbup300c.zip</b>).</pre>
-<h3><b>Windows 95/98/ME/NT/2000 Installation</b></h3>
-<pre>After downloading the Synchronet distribution file (e.g. <b>sbbs300c.zip</b>), you will
-need to extract the archive file that you downloaded into a temporary directory
-on your hard drive. You will need <a href="http://www.winzip.com" target="_blank">WinZip</a> or an equivalent archive program to
-uncompress and extract the installation files.</pre>
-<pre>Once you've extracted the installation files, go to the directory you extracted
-the compressed files to and run <b>SETUP</b> to start the installation.</pre>
-<pre>The default installation directory is recommended for most users. If you choose
-to change the installation directory, it is <b>critical</b> that you <b>DO NOT</b> use a path
-with long filenames or spaces as Synchronet still relies on some 16-bit DOS
-utilities which require DOS-compatible 8.3 file and directory names to function.
-It is recommended you use a directory named <i>SBBS</i> off of the root directory on one
-of your hard drives (e.g. <b>C:\SBBS</b>).</pre>
-<pre>You should now be at the Setup Type Installation menu. Choosing a <i>Custom</i> setup
-from this menu, will allow you to select the items that you want (or don't want)
-installed. If you are upgrading an existing installation of Synchronet (v2.3 or
-v3.0), it is advised that you choose <i>Custom</i> Setup and disable the following
-installation components:</pre>
-<ul>
- <li><pre>Configuration Files</pre>
- </li>
- <li><pre>Text and Menu Files</pre>
- </li>
- <li><pre>External Programs
-</pre>
- </li>
-</ul>
-<pre><img border="0" src="images/setuptype.png" width="479" height="357"></pre>
-<pre>
-After completing your selection and the installation is completed you will
-find a new Icon on your Desktop and in your StartUp Folder in your Start
-Menu. If you do not want Synchronet to start automatically during boot, you
-may safely delete the Synchronet shortcut from your StartUp Folder.</pre>
-<h2>
-<br>
-<a name="GettingStarted">
-[1.1] - Getting Started</a></h2>
-<h3>Getting Started with v3.0 for Win32</h3>
-<pre>Upon Executing Synchronet the screen will look something like the one below.</pre>
-<pre><img border="0" src="images/sbbsctrl.png" width="740" height="497">
-
-After starting Synchronet for the first time there will be several pop-up
-windows that are running programs and events required before the system
-can be used.</pre>
-<pre>The last window that opens will start the Synchronet Configuration
-Program (<a href="system_config.html#System Configuration">SCFG</a>). To run SCFG again later you can load it from the
-<i>Synchronet Control Panel</i> (SBBSCTRL) by selecting <i>BBS</i> and then
-<i>Configure</i> from the menu bar.</pre>
-<pre><img border="0" src="images/sbbsctrl_configure.png" width="301" height="192"></pre>
-<pre>Before putting the system online you should <a href="system_config.html">configure your BBS</a> with <a href="system_config.html#System Configuration">SCFG</a>
-to set your system options and settings according to your preferences. It
-is recommended you spend some time reading and becoming familiar with
-your <a href="system_config.html">configuration</a> and the many options available.</pre>
-<pre>After completing <a href="system_config.html">configuration</a> you should then follow the proper steps
-to <a href="system_config.html#Creating User Accounts Locally">add a sysop account</a>. Once you <a href="system_config.html#Creating User Accounts Locally">create the account</a> you should become
-familiar with the <a href="user_editor.html">Synchronet User Editor</a> and set the <a href="security.html">security</a> settings for
-the account(s) you have created.</pre>
-<pre>Once you have completed the initial setup of your system and sysop
-account, you have a basic functioning Synchronet BBS System. Please
-refer to the rest of the <a href="../index.htm">documentation</a> to finish the setup of your new
-BBS System.
-
-<a href="#top">Back to Top</a></pre>
-
-<h3>
-Getting Started with v2.3 for DOS and OS/2</h3>
-
-<pre>Before putting the system online you should <a href="system_config.html">configure your BBS</a> with <a href="system_config.html#System Configuration">SCFG</a>
-and set your system options and settings according to your preferences. It
-is recommended you spend some time reading and becoming familiar with
-your <a href="system_config.html">configuration</a> and the many options available.</pre>
-<pre><a href="system_config.html#System Configuration">SCFG</a> is the <a href="system_config.html#System Configuration">Synchronet Configuration Utility</a> which can be executed from the
-"<i>Waiting for call</i>" screen by hitting '<b>C</b>', or from DOS by typing <b>SCFG</b> from any
-node directory. Example:</pre>
-<pre><img border="0" src="images/scfg_dos_startup.png" width="500" height="150">
-
-After completing <a href="system_config.html">configuration</a> you should then follow the proper steps
-to <a href="system_config.html#Creating User Accounts Locally">add a sysop account</a>. Once you<a href="system_config.html#Creating User Accounts Locally"> create the account</a> you should become
-familiar with the <a href="user_editor.html">Synchronet User Editor</a> and set the <a href="security.html">security</a> settings
-for the account(s) you have created.</pre>
-<pre>Once you have completed the initial setup of your system and sysop
-account you have a basic functioning Synchronet BBS System. Please
-refer to the rest of the <a href="../index.htm">documentation</a> to finish the setup of your new
-BBS System.</pre>
-
-<h3>Copying Utilities</h3>
-<pre>Synchronet has a specific sub-directory for executable programs (<b>EXEC</b>).
-You need to copy all utilities that the BBS will run into this directory
-(this does not mean Doors or Online Games). For example, you need to copy
-<i>PKZIP.EXE</i> and <i>PKUNZIP.EXE</i> into your EXEC directory. If you plan on supporting
-other archive/compression programs on your BBS, you should copy these programs
-into the <i>EXEC</i> directory as well. Any file transfer protocol programs need to
-be copied into your <i>EXEC</i> directory. Synchronet comes with an unregistered copy
-of <i>FDSZ</i> (<i>DSZ</i> for the DOS and OS/2 versions). If you have a registered version of
-<i>DSZ</i>/<i>FDSZ</i>, copy it into the <i>EXEC</i> directory as well.</pre>
-<h2><a name="GettingHelp">[1.2] - How to Get Help</a></h2>
-<pre>There are a number of avenues that can be used to find help on Synchronet.</pre>
-<pre>This list is but a small one of the available resources:</pre>
-<pre><b><u>Synchronet Homepage</u> :</b> <a href="http://www.synchro.net">http://www.synchro.net</a></pre>
-<pre><b><u>Support BBS (Vertrauen)</u> :</b> <a href="telnet://vert.synchro.net">telnet://vert.synchro.net</a></pre>
-<pre><b><u>Echomail support:</u></b>
- FidoNet (zone 1) : <b>SYNC_SYSOPS</b> - Synchronet BBS Software Discussion</pre>
-<h2><a name="AboutManual">[1.3] - About this manual</a></h2>
-<pre>This manual is an ongoing work in progress. As <a href="http://www.synchro.net">Synchronet</a> is constantly evolving,
-so is this manual. This manual will give you comprehensive information about
-installing, configuring, updating, and maintaining your <a href="http://www.synchro.net">Synchronet</a> system.</pre>
-<pre>The manual is currently maintained in an <a href="http://www.synchro.net/source.html">Open Source</a> manner. If you have any
-questions or concerns about the manual, please direct them to :
-<a href="mailto:syncdocs@wasteland-bbs.com">syncdocs@wasteland-bbs.com</a></pre>
-<pre>Updates for this manual can be found periodically on <a href="http://www.synchro.net">http://vert.synchro.net/docs</a>
-or at the <a href="http://wasteland-bbs.com/syncdocs/">Synchronet Documentation Project</a> (<a href="http://wasteland-bbs.com/syncdocs/">http://wasteland-bbs.com/syncdocs/</a>).</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/install.iwz b/docs/install.iwz
deleted file mode 100644
index f7c4c29c1816ac1b08ac2127e5466b4508e79723..0000000000000000000000000000000000000000
--- a/docs/install.iwz
+++ /dev/null
@@ -1,288 +0,0 @@
-
-[InstallShield Wizard]
-iDate=0
-iTime=0
-Flag=0
-ISX.EXE Size=679936
-ISX.EXE Date=11:21:52AM 4/8/1999
-ISX.EXE Ver=2.1.2.62
-SETUP.EXE Size=45312
-SETUP.EXE Date=9:12:24AM 3/23/1999
-SETUP.EXE Ver=3.0.111.0
-SETUP.INS Size=81342
-SETUP.INS Date=11:26:40AM 4/8/1999
-SETUP.INS Ver=Not available
-_INST16.EX_ Size=81342
-_INST16.EX_ Date=11:26:40AM 4/8/1999
-_INST16.EX_ Ver=Not available
-_INST32I.EX_ Size=294079
-_INST32I.EX_ Date=9:12:22AM 3/23/1999
-_INST32I.EX_ Ver=Not available
-ISDEPEND.INI Size=6857
-ISDEPEND.INI Date=1:24:36PM 12/27/1999
-ISDEPEND.INI Ver=Not available
-SWDEPEND.INI Size=9711
-SWDEPEND.INI Date=1:24:40PM 12/27/1999
-SWDEPEND.INI Ver=Not available
-ICOMP.EXE Size=119808
-ICOMP.EXE Date=9:12:24AM 3/23/1999
-ICOMP.EXE Ver=3.00.062
-SPLIT.EXE Size=90624
-SPLIT.EXE Date=9:12:24AM 3/23/1999
-SPLIT.EXE Ver=3.00.060
-PACKLIST.EXE Size=87552
-PACKLIST.EXE Date=9:12:24AM 3/23/1999
-PACKLIST.EXE Ver=3.00.060
-Version=2.12
-DevTool=Borland C++Builder 5
-Platform=Win32
-DisksBuilt=1
-DisksDir=INSTALL\650MB\
-TabsVisit=111100111
-LangNum=0
-LangDir=
-
-[VisualDesign]
-AppName=Synchronet BBS Documentation
-AppExe=
-AppExeFile=
-Version=3.0
-Company=Rob Swindell
-Title=Synchronet BBS Documentation
-TitleType=1
-BackgrndBmp=e:\artwork\syncgold_16_499.BMP
-BackgrndAlign=1
-Backgrnd=1
-BackgrndColor=0
-Uninstall=1
-UninstallChecked=1
-Silent=1
-SmsMode=0
-
-[Types]
-Types=1
-Type1Components=1
-Type1Name=Complete
-Type1ComponentList=1
-
-[Components]
-Components=1
-Component1Groups=2
-Component1Name=Documentation Files
-Component1Description=Documentation Files
-Component1GroupList=1 2
-
-[Groups]
-Groups=2
-Group1Size=1000154
-Group1Files=33
-Group1Name=Documentation Files
-Group1Dir=<INSTALLDIR>
-Group1Update=2
-Group1TargetOS=-1
-Group1File1=C:\sbbs\docs\utility_reference.html
-Group1File2=C:\sbbs\docs\appendix.html
-Group1File3=C:\sbbs\docs\baja.html
-Group1File4=C:\sbbs\docs\chat_section.html
-Group1File5=C:\sbbs\docs\customization.html
-Group1File6=C:\sbbs\docs\default.htm
-Group1File7=C:\sbbs\docs\external_programs.html
-Group1File8=C:\sbbs\docs\features.html
-Group1File9=C:\sbbs\docs\file_section.html
-Group1File10=C:\sbbs\docs\glossary.html
-Group1File11=C:\sbbs\docs\index.htm
-Group1File12=C:\sbbs\docs\index.html
-Group1File13=C:\sbbs\docs\install.html
-Group1File14=C:\sbbs\docs\message_section.html
-Group1File15=C:\sbbs\docs\modem_setup.html
-Group1File16=C:\sbbs\docs\multnode_config.html
-Group1File17=C:\sbbs\docs\networking.html
-Group1File18=C:\sbbs\docs\platforms.html
-Group1File19=C:\sbbs\docs\sbbsecho.html
-Group1File20=C:\sbbs\docs\security.html
-Group1File21=C:\sbbs\docs\smb.html
-Group1File22=C:\sbbs\docs\sysop.html
-Group1File23=C:\sbbs\docs\sysop_commands.html
-Group1File24=C:\sbbs\docs\system_config.html
-Group1File25=C:\sbbs\docs\textfile_section.html
-Group1File26=C:\sbbs\docs\troubleshooting.html
-Group1File27=C:\sbbs\docs\user.html
-Group1File28=C:\sbbs\docs\user_editor.html
-Group1File29=C:\sbbs\docs\adding_nodes.html
-Group1File30=C:\sbbs\docs\htdocs_contrib.txt
-Group1File31=C:\sbbs\docs\gpl.txt
-Group1File32=C:\sbbs\docs\upgrade.txt
-Group1File33=C:\sbbs\docs\ntreadme.txt
-Group2Size=2075783
-Group2Files=110
-Group2Name=Documentation Image Files
-Group2Dir=<INSTALLDIR>\images
-Group2Update=2
-Group2TargetOS=-1
-Group2File1=C:\sbbs\docs\images\baja_example.gif
-Group2File2=C:\sbbs\docs\images\bre.gif
-Group2File3=C:\sbbs\docs\images\lordcfg.gif
-Group2File4=C:\sbbs\docs\images\sbbsctrl.gif
-Group2File5=C:\sbbs\docs\images\sbbsctrl_configure.gif
-Group2File6=C:\sbbs\docs\images\sbbsctrl_telnet_cfg_gen.gif
-Group2File7=C:\sbbs\docs\images\sbbsecho_additionalecho.gif
-Group2File8=C:\sbbs\docs\images\sbbsecho_additionalecho_list.gif
-Group2File9=C:\sbbs\docs\images\sbbsecho_additionalecho_list_tag.gif
-Group2File10=C:\sbbs\docs\images\sbbsecho_archiveprgs.gif
-Group2File11=C:\sbbs\docs\images\sbbsecho_archiveprgs_zip.gif
-Group2File12=C:\sbbs\docs\images\sbbsecho_logoptions.gif
-Group2File13=C:\sbbs\docs\images\sbbsecho_main.gif
-Group2File14=C:\sbbs\docs\images\sbbsecho_node_arctype.gif
-Group2File15=C:\sbbs\docs\images\sbbsecho_node_packettype.gif
-Group2File16=C:\sbbs\docs\images\sbbsecho_node_settings.gif
-Group2File17=C:\sbbs\docs\images\sbbsecho_nodes.gif
-Group2File18=C:\sbbs\docs\images\sbbsecho_paths.gif
-Group2File19=C:\sbbs\docs\images\sbbsecho_toggleoptions.gif
-Group2File20=C:\sbbs\docs\images\scfg_chat_channel1.gif
-Group2File21=C:\sbbs\docs\images\scfg_chat_features.gif
-Group2File22=C:\sbbs\docs\images\scfg_chat_gurus.gif
-Group2File23=C:\sbbs\docs\images\scfg_chat_pager1.gif
-Group2File24=C:\sbbs\docs\images\scfg_chat_pagers.gif
-Group2File25=C:\sbbs\docs\images\scfg_chat_theguru.gif
-Group2File26=C:\sbbs\docs\images\scfg_dos_startup.gif
-Group2File27=C:\sbbs\docs\images\scfg_main.gif
-Group2File28=C:\sbbs\docs\images\scfg_modem_config.gif
-Group2File29=C:\sbbs\docs\images\scfg_modem_fax_code1.gif
-Group2File30=C:\sbbs\docs\images\scfg_modem_fax_code2.gif
-Group2File31=C:\sbbs\docs\images\scfg_modem_port_type.gif
-Group2File32=C:\sbbs\docs\images\scfg_modem_resultcode_15.gif
-Group2File33=C:\sbbs\docs\images\scfg_modem_resultcodes.gif
-Group2File34=C:\sbbs\docs\images\scfg_modem_strings.gif
-Group2File35=C:\sbbs\docs\images\scfg_modem_toggles.gif
-Group2File36=C:\sbbs\docs\images\scfg_msg_area_advopts.gif
-Group2File37=C:\sbbs\docs\images\scfg_msg_area_netopts.gif
-Group2File38=C:\sbbs\docs\images\scfg_msg_area_toggles.gif
-Group2File39=C:\sbbs\docs\images\scfg_msg_areas.gif
-Group2File40=C:\sbbs\docs\images\scfg_msg_areas_gen.gif
-Group2File41=C:\sbbs\docs\images\scfg_msg_attrcodes.gif
-Group2File42=C:\sbbs\docs\images\scfg_msg_options.gif
-Group2File43=C:\sbbs\docs\images\scfg_networks.gif
-Group2File44=C:\sbbs\docs\images\scfg_networks_fido.gif
-Group2File45=C:\sbbs\docs\images\scfg_networks_fido_address.gif
-Group2File46=C:\sbbs\docs\images\scfg_networks_internet.gif
-Group2File47=C:\sbbs\docs\images\scfg_networks_post.gif
-Group2File48=C:\sbbs\docs\images\scfg_networks_post_hubs.gif
-Group2File49=C:\sbbs\docs\images\scfg_networks_post_hubs_sccm.gif
-Group2File50=C:\sbbs\docs\images\scfg_networks_qwkhubs.gif
-Group2File51=C:\sbbs\docs\images\scfg_networks_qwkhubs_vert.gif
-Group2File52=C:\sbbs\docs\images\scfg_networks_qwkhubs_vert_subs.gif
-Group2File53=C:\sbbs\docs\images\scfg_networks_qwkhubs_vert_subs_opt.gif
-Group2File54=C:\sbbs\docs\images\scfg_node1.gif
-Group2File55=C:\sbbs\docs\images\scfg_node1_advanced.gif
-Group2File56=C:\sbbs\docs\images\scfg_node1_toggles.gif
-Group2File57=C:\sbbs\docs\images\scfg_system.gif
-Group2File58=C:\sbbs\docs\images\scfg_system_advanced.gif
-Group2File59=C:\sbbs\docs\images\scfg_system_expired.gif
-Group2File60=C:\sbbs\docs\images\scfg_system_loadablemods.gif
-Group2File61=C:\sbbs\docs\images\scfg_system_newvalues.gif
-Group2File62=C:\sbbs\docs\images\scfg_system_newvalues_questions.gif
-Group2File63=C:\sbbs\docs\images\scfg_system_newvalues_toggles.gif
-Group2File64=C:\sbbs\docs\images\scfg_system_quickval.gif
-Group2File65=C:\sbbs\docs\images\scfg_system_quickval_0.gif
-Group2File66=C:\sbbs\docs\images\scfg_system_securityvalues.gif
-Group2File67=C:\sbbs\docs\images\scfg_system_securityvalues_0.gif
-Group2File68=C:\sbbs\docs\images\scfg_system_toggle.gif
-Group2File69=C:\sbbs\docs\images\scfg_xfer_compressable.gif
-Group2File70=C:\sbbs\docs\images\scfg_xfer_dir.gif
-Group2File71=C:\sbbs\docs\images\scfg_xfer_dir_advanced.gif
-Group2File72=C:\sbbs\docs\images\scfg_xfer_dir_toggles.gif
-Group2File73=C:\sbbs\docs\images\scfg_xfer_event.gif
-Group2File74=C:\sbbs\docs\images\scfg_xfer_eventc.gif
-Group2File75=C:\sbbs\docs\images\scfg_xfer_extractable.gif
-Group2File76=C:\sbbs\docs\images\scfg_xfer_library.gif
-Group2File77=C:\sbbs\docs\images\scfg_xfer_options.gif
-Group2File78=C:\sbbs\docs\images\scfg_xfer_proto_dsz.gif
-Group2File79=C:\sbbs\docs\images\scfg_xfer_proto_dsz_g.gif
-Group2File80=C:\sbbs\docs\images\scfg_xfer_proto_dsz_h.gif
-Group2File81=C:\sbbs\docs\images\scfg_xfer_proto_dsz_x.gif
-Group2File82=C:\sbbs\docs\images\scfg_xfer_proto_dsz_y.gif
-Group2File83=C:\sbbs\docs\images\scfg_xfer_proto_dsz_z.gif
-Group2File84=C:\sbbs\docs\images\scfg_xfer_proto_fdsz.gif
-Group2File85=C:\sbbs\docs\images\scfg_xfer_proto_fdsz_g.gif
-Group2File86=C:\sbbs\docs\images\scfg_xfer_proto_fdsz_x.gif
-Group2File87=C:\sbbs\docs\images\scfg_xfer_proto_fdsz_y.gif
-Group2File88=C:\sbbs\docs\images\scfg_xfer_proto_fdsz_z.gif
-Group2File89=C:\sbbs\docs\images\scfg_xfer_testable.gif
-Group2File90=C:\sbbs\docs\images\scfg_xfer_testable_du.gif
-Group2File91=C:\sbbs\docs\images\scfg_xfer_testable_zip.gif
-Group2File92=C:\sbbs\docs\images\scfg_xfer_testable_zipc.gif
-Group2File93=C:\sbbs\docs\images\scfg_xfer_viewable.gif
-Group2File94=C:\sbbs\docs\images\scfg_xtrn_fixed.gif
-Group2File95=C:\sbbs\docs\images\scfg_xtrn_lord.gif
-Group2File96=C:\sbbs\docs\images\scfg_xtrn_sbl.gif
-Group2File97=C:\sbbs\docs\images\scfg_xtrn_section.gif
-Group2File98=C:\sbbs\docs\images\scfg_xtrn_swaplist.gif
-Group2File99=C:\sbbs\docs\images\scfg_xtrn_syncedit.gif
-Group2File100=C:\sbbs\docs\images\scfg_xtrn_timed.gif
-Group2File101=C:\sbbs\docs\images\scfg_xtrn_timeopt.gif
-Group2File102=C:\sbbs\docs\images\scfg_xtrn_tw2002.gif
-Group2File103=C:\sbbs\docs\images\scfg_xtrn_usurper.gif
-Group2File104=C:\sbbs\docs\images\scfg_xtrn_winos2list.gif
-Group2File105=C:\sbbs\docs\images\setuptype.gif
-Group2File106=C:\sbbs\docs\images\synclogo_fancyred.gif
-Group2File107=C:\sbbs\docs\images\tw2002.gif
-Group2File108=C:\sbbs\docs\images\uedit_v3.gif
-Group2File109=C:\sbbs\docs\images\uedit_v3_exe.gif
-Group2File110=C:\sbbs\docs\images\v3icon3.gif
-
-[Sequence]
-DestinationLocationDir=C:\SBBS\DOCS
-DatabaseLocationDir=<INSTALLDIR>\data
-SelectProgramFolderName=install
-DestinationLocation=1
-ProgressBar=1
-
-[RegEntries]
-Reg1Path=HKEY_CLASSES_ROOT
-Reg1Val1Type=0
-Reg1Val1Name=(Default)
-Reg1Val1Data=(value not set)
-Reg1Vals=1
-Reg2Path=HKEY_CURRENT_USER
-Reg2Val1Type=0
-Reg2Val1Name=(Default)
-Reg2Val1Data=(value not set)
-Reg2Vals=1
-Reg3Path=HKEY_LOCAL_MACHINE
-Reg3Val1Type=0
-Reg3Val1Name=(Default)
-Reg3Val1Data=(value not set)
-Reg3Vals=1
-Reg4Path=HKEY_USERS
-Reg4Val1Type=0
-Reg4Val1Name=(Default)
-Reg4Val1Data=(value not set)
-Reg4Vals=1
-Reg5Path=HKEY_CURRENT_CONFIG
-Reg5Val1Type=0
-Reg5Val1Name=(Default)
-Reg5Val1Data=(value not set)
-Reg5Vals=1
-Reg6Path=HKEY_DYN_DATA
-Reg6Val1Type=0
-Reg6Val1Name=(Default)
-Reg6Val1Data=(value not set)
-Reg6Vals=1
-Regs=6
-
-[Registry]
-
-[Autoexec]
-PathDir=
-ShareLocks=
-ShareFiles=
-Command=
-
-[CopyToFloppy]
-DriveOption=
-DestinationPath=
-DestinationPathOneFile=
-Password=
-
-[Uninstall]
-UserUninstall=0
diff --git a/docs/install.rtf b/docs/install.rtf
deleted file mode 100644
index e8b64201cd23381f5acb899240e741d86268bb33..0000000000000000000000000000000000000000
--- a/docs/install.rtf
+++ /dev/null
@@ -1,144 +0,0 @@
-{\rtf1\ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1033\deflangfe1033{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fswiss\fcharset0\fprq2{\*\panose 020b0604020202020204}Arial;}
-{\f2\fmodern\fcharset0\fprq1{\*\panose 02070309020205020404}Courier New;}{\f3\froman\fcharset2\fprq2{\*\panose 05050102010706020507}Symbol;}{\f10\fnil\fcharset2\fprq2{\*\panose 05000000000000000000}Wingdings;}
-{\f35\fswiss\fcharset0\fprq2{\*\panose 020b0604030504040204}Tahoma;}{\f118\froman\fcharset238\fprq2 Times New Roman CE;}{\f119\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f121\froman\fcharset161\fprq2 Times New Roman Greek;}
-{\f122\froman\fcharset162\fprq2 Times New Roman Tur;}{\f123\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f124\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f125\froman\fcharset186\fprq2 Times New Roman Baltic;}
-{\f126\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f128\fswiss\fcharset238\fprq2 Arial CE;}{\f129\fswiss\fcharset204\fprq2 Arial Cyr;}{\f131\fswiss\fcharset161\fprq2 Arial Greek;}{\f132\fswiss\fcharset162\fprq2 Arial Tur;}
-{\f133\fswiss\fcharset177\fprq2 Arial (Hebrew);}{\f134\fswiss\fcharset178\fprq2 Arial (Arabic);}{\f135\fswiss\fcharset186\fprq2 Arial Baltic;}{\f136\fswiss\fcharset163\fprq2 Arial (Vietnamese);}{\f138\fmodern\fcharset238\fprq1 Courier New CE;}
-{\f139\fmodern\fcharset204\fprq1 Courier New Cyr;}{\f141\fmodern\fcharset161\fprq1 Courier New Greek;}{\f142\fmodern\fcharset162\fprq1 Courier New Tur;}{\f143\fmodern\fcharset177\fprq1 Courier New (Hebrew);}
-{\f144\fmodern\fcharset178\fprq1 Courier New (Arabic);}{\f145\fmodern\fcharset186\fprq1 Courier New Baltic;}{\f146\fmodern\fcharset163\fprq1 Courier New (Vietnamese);}{\f468\fswiss\fcharset238\fprq2 Tahoma CE;}{\f469\fswiss\fcharset204\fprq2 Tahoma Cyr;}
-{\f471\fswiss\fcharset161\fprq2 Tahoma Greek;}{\f472\fswiss\fcharset162\fprq2 Tahoma Tur;}{\f473\fswiss\fcharset177\fprq2 Tahoma (Hebrew);}{\f474\fswiss\fcharset178\fprq2 Tahoma (Arabic);}{\f475\fswiss\fcharset186\fprq2 Tahoma Baltic;}
-{\f476\fswiss\fcharset163\fprq2 Tahoma (Vietnamese);}{\f477\fswiss\fcharset222\fprq2 Tahoma (Thai);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;
-\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{
-\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \snext0 Normal;}{\s1\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel0\adjustright\rin0\lin0\itap0
-\b\f1\fs32\lang1033\langfe1033\kerning32\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext0 heading 1;}{\s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0
-\b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext0 heading 2;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\*
-\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv
-\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{\*\cs15 \additive \ul\cf2 \sbasedon10 Hyperlink;}{\*\cs16 \additive \ul\cf12
-\sbasedon10 FollowedHyperlink;}{\s17\ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \f35\fs20\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext17 Body Text;}}{\*\latentstyles\lsdstimax156\lsdlockeddef0}{\*\listtable
-{\list\listtemplateid-1423012246\listhybrid{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720
-\jclisttab\tx720\lin720 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li1440\jclisttab\tx1440\lin1440 }{\listlevel
-\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li2160\jclisttab\tx2160\lin2160 }{\listlevel\levelnfc23\levelnfcn23
-\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880\lin2880 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0
-\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600\jclisttab\tx3600\lin3600 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1
-\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li4320\jclisttab\tx4320\lin4320 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0
-{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040\lin5040 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext
-\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li5760\jclisttab\tx5760\lin5760 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693
-\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li6480\jclisttab\tx6480\lin6480 }{\listname ;}\listid114371134}{\list\listtemplateid-423708382\listhybrid{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360
-\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720\lin720 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext
-\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li1440\jclisttab\tx1440\lin1440 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693
-\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li2160\jclisttab\tx2160\lin2160 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers
-;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880\lin2880 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600
-\jclisttab\tx3600\lin3600 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li4320\jclisttab\tx4320\lin4320 }
-{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040\lin5040 }{\listlevel\levelnfc23
-\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li5760\jclisttab\tx5760\lin5760 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0
-\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li6480\jclisttab\tx6480\lin6480 }{\listname ;}\listid265579026}{\list\listtemplateid2002409386\listhybrid
-{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698699\'01\u-3880 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li720\jclisttab\tx720\lin720 }{\listlevel\levelnfc23
-\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li1440\jclisttab\tx1440\lin1440 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0
-\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li2160\jclisttab\tx2160\lin2160 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1
-\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880\lin2880 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0
-{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600\jclisttab\tx3600\lin3600 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693
-\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li4320\jclisttab\tx4320\lin4320 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers
-;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040\lin5040 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li5760
-\jclisttab\tx5760\lin5760 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li6480\jclisttab\tx6480\lin6480 }
-{\listname ;}\listid1281032376}{\list\listtemplateid1249251094\listhybrid{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}
-\f3\fbias0 \fi-360\li720\jclisttab\tx720\lin720 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li1440
-\jclisttab\tx1440\lin1440 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li2160\jclisttab\tx2160\lin2160 }
-{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880\lin2880 }{\listlevel\levelnfc23
-\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600\jclisttab\tx3600\lin3600 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0
-\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li4320\jclisttab\tx4320\lin4320 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1
-\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040\lin5040 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0
-{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li5760\jclisttab\tx5760\lin5760 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693
-\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li6480\jclisttab\tx6480\lin6480 }{\listname ;}\listid1723558562}{\list\listtemplateid-1317243346\listhybrid{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360
-\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720\lin720 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext
-\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li1440\jclisttab\tx1440\lin1440 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693
-\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li2160\jclisttab\tx2160\lin2160 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers
-;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880\lin2880 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600
-\jclisttab\tx3600\lin3600 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li4320\jclisttab\tx4320\lin4320 }
-{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698689\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040\lin5040 }{\listlevel\levelnfc23
-\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698691\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li5760\jclisttab\tx5760\lin5760 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0
-\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\leveltemplateid67698693\'01\u-3929 ?;}{\levelnumbers;}\f10\fbias0 \fi-360\li6480\jclisttab\tx6480\lin6480 }{\listname ;}\listid2018001726}}{\*\listoverridetable
-{\listoverride\listid1723558562\listoverridecount0\ls1}{\listoverride\listid114371134\listoverridecount0\ls2}{\listoverride\listid2018001726\listoverridecount0\ls3}{\listoverride\listid265579026\listoverridecount0\ls4}{\listoverride\listid1281032376
-\listoverridecount0\ls5}}{\*\rsidtbl \rsid265684\rsid8343386\rsid10487158\rsid13721702\rsid16647600}{\*\generator Microsoft Word 11.0.5604;}{\info{\title Synchronet BBS Software v3}{\author swindell}{\operator Rob}{\creatim\yr2003\mo1\dy3\hr14\min1}
-{\revtim\yr2003\mo12\dy3\hr3\min58}{\version72}{\edmins1275}{\nofpages2}{\nofwords544}{\nofchars3105}{\*\company Broadcom Corporation}{\nofcharsws3642}{\vern24689}}
-\widowctrl\ftnbj\aenddoc\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\horzdoc\dghspace120\dgvspace120\dghorigin1701\dgvorigin1984\dghshow0\dgvshow3\jcompress\viewkind4\viewscale100\nolnhtadjtbl\rsidroot16647600 \fet0\sectd
-\linex0\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4
-\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}
-{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain
-\s1\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel0\adjustright\rin0\lin0\itap0 \b\f1\fs32\lang1033\langfe1033\kerning32\cgrid\langnp1033\langfenp1033 {\insrsid265684 Synchronet BBS Software for Win32 v3.1}{\insrsid10487158 1}{
-\insrsid265684
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684 This version has been successfully tested with the following Microsoft}{\f1\fs20\insrsid265684 {\field{\*\fldinst
-SYMBOL 210 \\f "Symbol" \\s 10}{\fldrslt\f3\fs20}}}{\f1\fs20\insrsid265684 operating systems:
-\par
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}}\pard \ql \fi-360\li720\ri0\nowidctlpar\jclisttab\tx720\faauto\ls1\rin0\lin720\itap0 {\f1\fs20\insrsid265684 Windows 95
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows 95a
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows 95b (OSR2)
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows 98
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows 98 SE
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows Me
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows NT 4
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows 2000}{\f1\fs20\insrsid10487158 (}{\f1\fs20\insrsid8343386 Professional}{\f1\fs20\insrsid10487158 and Server)}{\f1\fs20\insrsid265684
-\par {\listtext\pard\plain\f3\fs20 \loch\af3\dbch\af0\hich\f3 \'b7\tab}Windows XP}{\f1\fs20\insrsid10487158 (Home and Professional)}{\f1\fs20\insrsid265684
-\par {\listtext\pard\plain\f3\fs20\insrsid10487158 \loch\af3\dbch\af0\hich\f3 \'b7\tab}}{\f1\fs20\insrsid10487158 Windows Server 2003
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Upgrading
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684 To upgrade an existing installation of }{\i\f1\fs20\insrsid265684 Synchronet}{\f1\fs20\insrsid265684
- (v2.3 or v3.x), you must choose the "}{\i\f1\fs20\insrsid265684 Upgrade}{\f1\fs20\insrsid265684 " setup option.
-\par
-\par {\listtext\pard\plain\f10\fs20 \loch\af10\dbch\af0\hich\f10 \'d8\tab}}\pard \ql \fi-360\li720\ri0\nowidctlpar\jclisttab\tx720\faauto\ls5\rin0\lin720\itap0 {\f1\fs20\insrsid265684 If you have a modified }{\f2\fs20\insrsid265684 CTRL/TEXT.DAT}{
-\f1\fs20\insrsid265684 file, make a back up}{\b\f1\fs20\insrsid265684 ,}{\f1\fs20\insrsid265684 as it will be }{\b\f1\fs20\insrsid265684 overwritten}{\f1\fs20\insrsid265684
- during the installation. For a list of the changes made (many of which are required for proper operation), see }{\f2\fs20\insrsid265684 DOCS/TEXT310G.DIF}{\f1\fs20\insrsid265684 .
-\par {\listtext\pard\plain\f10\fs20 \loch\af10\dbch\af0\hich\f10 \'d8\tab}If you have modified any of the stock command shells or modules (}{\f2\fs20\insrsid265684 EXEC/*.SRC}{\f1\fs20\insrsid265684 ), make a back up, as these files will be }{
-\b\f1\fs20\insrsid265684 overwritten}{\f1\fs20\insrsid265684 during the installation.
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Installation Directory
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684 It is recommended that you install }{\i\f1\fs20\insrsid265684 Synchronet}{\f1\fs20\insrsid265684
- into the default installation directory (}{\f2\fs20\insrsid265684 C:\\SBBS}{\f1\fs20\insrsid265684 ). If you choose to install into a different location, it is }{\b\f1\fs20\insrsid265684 strongly recommended}{\f1\fs20\insrsid265684 that you use }{
-\f2\fs20\insrsid265684 \\SBBS}{\f1\fs20\insrsid265684 or another MS-DOS compatible 8.3 format path name (e.g. }{\f2\fs20\insrsid265684 D:\\SBBS}{\f1\fs20\insrsid265684 , and }{\b\f1\fs20\insrsid265684 NOT}{\f1\fs20\insrsid265684 }{
-\f2\fs20\insrsid265684 D:\\SYNCHRONET}{\f1\fs20\insrsid265684 ).
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Synchronet Control Panel
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684 The }{\i\f1\fs20\insrsid265684 Synchronet Control Panel}{\f1\fs20\insrsid265684 (}{\f2\fs20\insrsid265684
-EXEC/SBBSCTRL.EXE}{\f1\fs20\insrsid265684 ) is the default system operator console for }{\i\f1\fs20\insrsid265684 Synchronet}{\f1\fs20\insrsid265684 v3 for Win32, utilizing an advanced graphical user interface (GUI).
-\par
-\par }\pard\plain \s17\ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \f35\fs20\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\insrsid265684 The installation program will create a shortcut to }{\f2\insrsid265684 SBBSCTRL.EXE}{\f1\insrsid265684
- on your desktop and in your startup folder (so }{\i\f1\insrsid265684 Synchronet}{\f1\insrsid265684 will start automatically during boot-up).
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Synchronet Console
-\par }\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684 There is }{\f1\fs20\cf1\insrsid265684 also}{\f1\fs20\insrsid265684
- a text mode system operator console for }{\i\f1\fs20\insrsid265684 Synchronet}{\f1\fs20\insrsid265684 (}{\f2\fs20\insrsid265684 EXEC/SBBS.EXE}{\f1\fs20\insrsid265684 ). This console }{\f1\fs20\insrsid10487158 may be used}{\f1\fs20\insrsid265684
- by advanced system operators that do not wish to use the graphical interface. If you run this version of }{\i\f1\fs20\insrsid265684 Synchronet}{\f1\fs20\insrsid265684 , you will need to edit your }{\f2\fs20\insrsid265684 CTRL/SBBS.INI}{
-\f1\fs20\insrsid265684 file to configure many of the default server settings. This file can also be exported from or import to the }{\i\f1\fs20\insrsid265684 Synchronet Control Panel}{\f1\fs20\insrsid265684 (for each migration between the two consoles).
-
-\par
-\par }{\f2\fs20\insrsid265684 SBBS.EXE}{\f1\fs20\insrsid265684 and }{\f2\fs20\insrsid265684 SBBSCTRL.EXE}{\f1\fs20\insrsid265684 use the same underlying server libraries (}{\f2\fs20\insrsid265684 EXEC/*.DLL}{\f1\fs20\insrsid265684 ).
-\par }{\f1\fs20\insrsid265684
-\par See }{\f2\fs20\insrsid265684\charrsid265684 DOCS/SBBSCON.TXT}{\f1\fs20\insrsid265684 for details on using the Synchronet Console.
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0\pararsid10487158 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid10487158 \page Synchronet NT Services
-\par }\pard\plain \s17\ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0\pararsid10487158 \f35\fs20\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\insrsid10487158 This version of Synchronet includes }{\f2\insrsid10487158\charrsid10487158 sbbsNTsvcs.exe}{
-\f1\insrsid10487158 which may be used to run Synchronet as a set of operating system services on }{\i\f1\insrsid10487158\charrsid10487158 Windows NT}{\f1\insrsid10487158 based operating systems (including }{\i\f1\insrsid10487158\charrsid10487158
-Windows 2000}{\f1\insrsid10487158 and }{\i\f1\insrsid10487158\charrsid10487158 Windows XP}{\f1\insrsid10487158 ). The }{\i\f1\insrsid10487158\charrsid10487158 Synchronet Control Pane}{\i\f1\insrsid10487158 l}{\f1\insrsid10487158\charrsid10487158 can }{
-\f1\insrsid10487158 still be used to view real-time logs and statistics, monitor and control nodes, and start and stop services, but it is not necessary for the BBS to be running and servicing clients.}{\insrsid10487158\charrsid10487158
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Documentation
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684
-The sysop documentation has been converted to HTML format, but is no longer included in the installation package due to size considerations. See }{\field\flddirty{\*\fldinst {\f1\fs20\insrsid265684 HYPERLINK "http://synchro.net/docs/" }{
-\f1\fs20\insrsid16647600 {\*\datafield 00d0c9ea79f9bace118c8200aa004ba90b0200000003000000e0c9ea79f9bace118c8200aa004ba90b3200000068007400740070003a002f002f00730079006e006300680072006f002e006e00650074002f0064006f00630073002f00000000000000}}}{\fldrslt {
-\cs15\f1\fs20\ul\cf2\insrsid265684 http://synchro.net/docs/}}}{\f1\fs20\insrsid265684 for the online documentation or download }{\field\flddirty{\*\fldinst {\f1\fs20\insrsid265684 HYPERLINK "ftp://ftp.synchro.net/sbbsdocs.zip" }{
-\f1\fs20\insrsid16647600 {\*\datafield
-00d0c9ea79f9bace118c8200aa004ba90b0200000003000000e0c9ea79f9bace118c8200aa004ba90b460000006600740070003a002f002f006600740070002e00730079006e006300680072006f002e006e00650074002f00730062006200730064006f00630073002e007a0069007000000000000000}}}{\fldrslt {
-\cs15\f1\fs20\ul\cf2\insrsid265684 ftp://ftp.synchro.net/sbbsdocs.zip}}}{\f1\fs20\insrsid265684 for a local installation.
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Licensing/Registration/Donations
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684
-Synchronet is free software covered under the GNU General Public License. No registration or licensing fee is required. See }{\field\flddirty{\*\fldinst {\f1\fs20\insrsid265684 HYPERLINK "http://synchro.net/copyright.html" }{\f1\fs20\insrsid16647600
-{\*\datafield
-00d0c9ea79f9bace118c8200aa004ba90b02000000170000002200000068007400740070003a002f002f00730079006e006300680072006f002e006e00650074002f0063006f0070007900720069006700680074002e00680074006d006c000000e0c9ea79f9bace118c8200aa004ba90b4400000068007400740070003a00
-2f002f00730079006e006300680072006f002e006e00650074002f0063006f0070007900720069006700680074002e00680074006d006c00000000000000}}}{\fldrslt {\cs15\f1\fs20\ul\cf2\insrsid265684 http://synchro.net/copyright.html}}}{\f1\fs20\insrsid265684
- for details. The author/maintainer (rob@synchro.net) has a PayPal}{\f1\fs20\insrsid265684 {\field{\*\fldinst SYMBOL 210 \\f "Symbol" \\s 10}{\fldrslt\f3\fs20}}}{\f1\fs20\insrsid265684 account for accepting voluntary monetary donations.
-\par }\pard\plain \s2\ql \li0\ri0\sb240\sa60\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\i\f1\fs28\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\insrsid265684 Source Code
-\par }\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\f1\fs20\insrsid265684
-Synchronet is an open source development project with complete anonymous public access to the full C/C++ source code. See }{\field\flddirty{\*\fldinst {\f1\fs20\insrsid265684 HYPERLINK "http://synchro.net/source.html" }{\f1\fs20\insrsid16647600
-{\*\datafield
-00d0c9ea79f9bace118c8200aa004ba90b02000000170000001f00000068007400740070003a002f002f00730079006e006300680072006f002e006e00650074002f0073006f0075007200630065002e00680074006d006c000000e0c9ea79f9bace118c8200aa004ba90b3e00000068007400740070003a002f002f007300
-79006e006300680072006f002e006e00650074002f0073006f0075007200630065002e00680074006d006c00000000000000}}}{\fldrslt {\cs15\f1\fs20\ul\cf2\insrsid265684 http://synchro.net/source.html}}}{\f1\fs20\insrsid265684 for details.
-\par
-\par }{\b\f1\fs20\insrsid265684 Thank you}{\f1\fs20\insrsid265684 for your interest in }{\i\f1\fs20\insrsid265684 Synchronet BBS Software}{\f1\fs20\insrsid265684 ,
-\par
-\par }{\b\f1\fs20\insrsid265684 Rob Swindell }{\field\flddirty{\*\fldinst {\b\f1\fs20\insrsid265684 HYPERLINK "http://synchro.net/author.html" }{\b\f1\fs20\insrsid16647600 {\*\datafield
-00d0c9ea79f9bace118c8200aa004ba90b0200000003000000e0c9ea79f9bace118c8200aa004ba90b3e00000068007400740070003a002f002f00730079006e006300680072006f002e006e00650074002f0061007500740068006f0072002e00680074006d006c00000000000000}}}{\fldrslt {
-\cs15\f1\fs20\ul\cf2\insrsid265684 http://synchro.net/author.html}}}{\b\f1\fs20\insrsid265684
-\par }}
\ No newline at end of file
diff --git a/docs/install.txt b/docs/install.txt
deleted file mode 100644
index cd21869be8b863ab8e295ff040966dacfbd0a574..0000000000000000000000000000000000000000
--- a/docs/install.txt
+++ /dev/null
@@ -1,97 +0,0 @@
-Installing Synchronet BBS for Win32 v3.0 Revision C
-===================================================
-
-This version has been succesfully tested with the
-following operating systems:
-
- o Microsoft Windows 95
- o Microsoft Windows 95a
- o Microsoft Windows 95b (OSR2)
- o Microsoft Windows 98
- o Microsoft Windows 98 SE
- o Microsoft Windows Me
- o Microsoft Windows NT 3.51
- o Microsoft Windows NT 4
- o Microsoft Windows 2000
-
-If you are upgrading an existing installation of
-Synchronet (v2.3 or v3.0), it is advised that you
-choose "Custom" Setup and disable the following
-installation components:
-
- o Configuration Files
- o Text and Menu Files
- o External Programs
-
-It is recommended that you install Synchronet into
-the default installation directory (C:\SBBS). If you
-choose to install into a different location, it is
-strongly recommended that you use \SBBS or another
-MS-DOS compatible 8.3 format path name (e.g. D:\SBBS,
-NOT D:\Synchronet). Installing into a location other
-than C:\SBBS will require modification of the
-following files for full operation:
-
- o EXEC\VERT.BAT
- o EXEC\VERT.FTP
- o EXEC\TIMED.BAT
- o TEXT\BULLSEYE.CFG
-
-
-SBBSCTRL (Synchronet Control Panel)
-~~~~~~~~
-SBBSCTRL is the Sysop's console for SBBS v3 for Win32. You
-still must use SCFG to configure the BBS options shared
-between the new and old versions.
-
-The installation program will create a short-cut to
-SBBSCTRL.EXE on your desktop and in your startup folder
-(so Synchronet will start automatically during boot-up).
-
-
-Known Issues
-~~~~~~~~~~~~
-o Moving messages between message areas will corrupt the
- message base.
-o DOSKEY must be loaded in your autoexec.bat for the DOS
- shell to work right (Windows 95/98/ME)
-o Backspace doesn't work right in DOS shell (Windows 95/98/ME)
-o First node (set in SBBSCTRL) configuration is used for all
- nodes (this is actually intentional, i.e. not a bug)
-o First node's temp directory must be set to "TEMP\"
-
-
-Documentation
-~~~~~~~~~~~~~
-The sysop documentation has been converted to HTML format,
-but is no longer included in the installation package due
-to size considerations. See http://synchro.net/docs for the
-online docs or download ftp://synchro.net/sbbsdocs.zip
-for a local installation.
-
-
-Ordering/Registering Synchronet
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Synchronet (as of April 1997) is FREEWARE - no registration or
-licensing fee is required.
-
-
-For More Information
-~~~~~~~~~~~~~~~~~~~~
-See DOCS\NTREADME.TXT for instructions on running
- Synchronet v3.0 on Windows NT or Windows 2000.
-
-See DOCS\V300_NEW.TXT for list of new features in
- Synchronet v3.0.
-
-See DOCS\SBBS3FAQ.TXT for answers to frequently asked
- questions regarding Synchronet v3.0.
-
-See DOCS\V3CFGFAQ.TXT for answers to frequently asked
- questions about configuring Synchronet v3.0.
-
-Thanks for your interest in Synchronet BBS Software
-(www.synchro.net).
-
-Rob Swindell
-(rob@synchro.net)
diff --git a/docs/ircd.txt b/docs/ircd.txt
deleted file mode 100644
index 11d4ac4a52ce6d9fce43506380e3bf2f15a0a465..0000000000000000000000000000000000000000
--- a/docs/ircd.txt
+++ /dev/null
@@ -1,592 +0,0 @@
-$Id$
-
- ** ircd.js : The Synchronet IRCd Service **
- by: Randy Sommerfeld <cyan@rrx.ca>
-
-1 .... Introduction
-2 .... About this document
-2.1 .... What this document hopes to accomplish
-2.2 .... What this document won't accomplish
-2.3 .... Assumptions we make about you
-3 .... Installation
-3.1 .... Getting the IRCd up and running
-3.2 .... Linking to the Synchronet IRC Network (irc.synchro.net)
-3.3 .... Using JSexec to run the IRCd
-4 .... About the Synchronet IRC Network (irc.synchro.net)
-5 .... Technical information
-5.1 .... Limits of the Synchronet IRCd
-5.2 .... Compliance with RFC's, and established protocols
-5.3 .... Compatibility with other IRCd's
-6 .... The Future
-7 .... Frequently Asked Questions
-7.1 .... Installation Questions
-7.2 .... Technical Questions
-
-=======- 1.0 -- Introduction -================================================
-
- The Synchronet IRCd (IRC daemon) service is the newest Synchronet
-service written in 100% Javascript. It's currently the largest (and perhaps
-the most complex) service available for Synchronet. The IRCd service aims to
-eventually be a 'communications bridge' of sorts which will allow multiple
-BBS's to link their "multinode chat" areas together in a network so that users
-may talk to one another from the comfort of their home BBS. While
-accomplishing this goal, the Synchronet IRCd intends to also be a fully-
-functional IRC daemon that rivals the bigger, legacy UNIX IRC daemons in terms
-of features. This way, everyone who wishes to chat on a common network will
-be able to use the local BBS, or a standard IRC client (if they wish.)
-
-=======- 2.0 -- About this document -=========================================
-
-[2.1] - What this document hopes to accomplish
-
- First and foremost, this document is intended to be an absolute
-reference regarding the Synchronet IRCd. This document should be the first
-place to look if you're having a problem of some kind, regardless of what that
-problem may be. It intends to be an installation guide which will aide you
-through setting up your own IRCd. Or, if you're simply curious about the IRCd
-from a theoretical standpoint (it's not every day that you get to see an IRC
-daemon as functional as this implemented inside of a scripting language), this
-document will do its best to explain certain implementation decisions to you.
-
-[2.2] - What this document won't accomplish
-
- This document is not a replacement for your brain. If you're having a
-problem of some kind, and it's not covered by this document, PLEASE take a few
-hours to think about the problem and solve it. Use a systematic approach to
-the problem; "If I do X, does Y still happen?" Remember, installation and
-maintenance of the Synchronet IRCd isn't life or death, it's a hobby, and like
-all good hobbies, you're supposed to learn something from it. So, take a few
-days before you even consider asking for support -- take a deep breath, go jog
-around the block, turn off the computer -- and then come back later. On the
-other hand, if you've found a unique or interesting solution to your problem,
-and it hasn't been covered here, then by all means tell us about it!
-
- We don't intend to teach you the basics of IRC here. While you can
-certainly still get the Synchronet IRCd up and running with a minimal amount
-of effort and IRC knowledge, your experience will be more enjoyable if you
-have at the very least a working knowledge of IRC. To gauge your knowledge
-of IRC, answer the following questions either with a 'true' or 'false':
-
- * People chat in 'rooms' on IRC.
- * 'IRCop' is short for 'IRC cop', the police officers of IRC.
- * A 'ping' is something submarines use to gauge distance under water.
- * CTCP and DCC stand for Client Tunneling Carrier Protocol and
- Direct Channel Cutting, respectively.
-
- If you answered 'true' to any of the above questions, or if you don't
-understand some of the terminology used in the questions, then it's best that
-you go to http://www.irchelp.org and read through their very helpful documents
-about IRC. This way, you'll gain a better understanding about what IRC really
-is, what it's here for, the terminology, and a little history, too. At the
-very least, this is so that when someone asks you to edit your 'M:Line' to
-solve or diagnose a problem, you'll at least know what they're talking about.
-We don't cover any IRC basics in this document.
-
- Don't be surprised if you're ignored or simply referred to a URL
-without further explanation if you ask for help and refer to an IRC *channel*
-as a room, call *IRC operators* 'cops', don't understand why a 10 second 'ping'
-time is bad, or not know how to DCC SEND a file (such as your ircd.conf) to be
-inspected. That includes not having your NAT or proxy set correctly to
-properly masquerade your IP address on a DCC CTCP.
-
-[2.3] - Assumptions we make about you
-
- In short, this document assumes that you know:
-
- * How to use your computer and operating system effectively.
- * The basics of IRC and its terminology.
- * How to use, configure, and make basic modifications to Synchronet.
- * The basics of the Internet (or at least the ability to visualize
- a routed, distributed network)
-
-=======- 3.0 -- Installation -================================================
-
-[3.1] - Getting the IRCd up and running
-
- (1) Make sure you are running a modern version of the Synchronet BBS
-software. The Synchronet IRCd is not intended to run on versions 3.10 or
-earlier. While care has been taken to ensure backwards compatibility with
-3.10, it should only be run on that version for testing purposes. Upgrading
-may include retrieving the latest version of Synchronet from the Synchronet
-CVS (if you're familiar with building from CVS), from the Synchronet web site
-(http://www.synchro.net), or elsewhere. Synchronet 3.11 is the minimum
-required version to run version 1.0 of the Synchronet IRCd.
-
- Older versions of Synchronet also come packaged with older Javascript
-libraries. The Synchronet IRCd makes use of some of the newer Javascript
-library features (such as the ability to treat strings as an array of
-characters), therefore it's critical to have a modern JS library. If your
-Javascript library is from 2001 or so (you can check this in the 'system
-information' part of your BBS main menu), then it's too old. Time to upgrade.
-
- (2) Check to make sure that all of the components of the Synchronet
-IRCd are resting in their correct directories. While you're at it, check the
-file sizes to make sure they're relatively normal. Make sure that all of the
-files are readable by the user you're intending to run the IRCd as. Here's a
-chart to help:
-
- File Synchronet Directory Approximate Size
-
- ircd.js exec 200KB
- ircd.conf ctrl 12KB
- ircmotd.txt text 180bytes
-
- (3) Edit your relevant services configuration file (in the Synchronet
-'ctrl' directory.) For Synchronet 3.11, this is most likely "services.ini",
-however, backwards compatibility has been retained with the old style
-"services.cfg" just in case you want to bring yours over from an older version
-of Synchronet. You may run the Synchronet IRCd on any port you wish, however,
-standard convention dictates that it be run on port 6667 (which is the
-standard port that most IRC clients will try to connect to, first.) It's
-important that the IRCd be defined as a STATIC service (i.e. one that runs in
-the background continuously and does not require a connection to start the
-service), and that it uses the LOOP option (so that if you wish to restart only
-the IRCd, or if it crashes, it comes back up immediately.)
-
- The combined options for 'services.cfg' represented in hex is '806',
-so that a completed services.cfg line should look like this:
-
-;protocol port max_clients options(hex) command-line
-IRC 6667 0 806 ircd.js
-
- An example IRC section from services.ini looks like this, and should
-already be present (but commented out) in services.ini for Synchronet 3.11
-and above:
-
-[IRC]
-Port=6667
-Options=STATIC | LOOP
-Command=ircd.js
-
- The 'maximum clients' value used inside of the services configuration
-is *ignored* by Synchronet Services since that value is managed by the IRCd
-itself. The maximum number of IRC clients can be changed on a Y:Line in
-your ircd.conf, and is set to 100 by default (more on the ircd.conf later.)
-
- (4) Take a look at your ircd.conf, and familiarize yourself with the
-options and terminology. Although the ircd.conf has been specifically made so
-that it works right out of the box, you may wish to tweak some options. The
-configuration file is self-documenting, so you should carefully read about
-each of the configuration options. At the very least, this will familiarize
-you with what a 'Z:Line' is, and where a 'K:Line' is, or how to enable
-passwords on sensitive IRC commands. If you intend to link to the Synchronet
-IRC Network, pay careful attention to where the C:Line and N:Line pair is
-configured. We'll be dealing with those later.
-
- If you're already familiar with other IRC daemon configuration files,
-the Synchronet ircd.conf has been carefully engineered to be compatible with
-the Bahamut ircd.conf. Thus, if you've already got a working Bahamut
-configuration, putting that ircd.conf in place of the stock ircd.conf should
-give you an IRCd configured exactly the way it was on Bahamut. Configuration
-files from other IRC daemons have *not* been tested, so your mileage may vary
-with those (although the configuration should be very similar.) Certainly if
-you find an ircd.conf from another daemon that works, let us know about it!
-
- (5) Restart your BBS, or recycle your services so that your new IRC
-service is brought online with your BBS. Watch your BBS console carefully,
-as you should see something similar to the following messages:
-
-srvc 0007 IRC SynchronetIRCd-1.0b(1.79) started.
-srvc 0007 IRC Reading Config: /sbbs/ctrl/ircd.conf
-
- You may have to scroll up to see the message. Any errors should be
-self-explanatory (and usually involve not being able to read the configuration
-file.) If you get an error about not being able to bind to a socket, or that
-a socket is already in use, then you already have something running on the
-port you defined in your services configuration. Could it be another IRC
-server running? Try disabling any other IRC servers or proxies and restart
-the BBS. Repeat this process of elimination until your IRCd starts
-successfully.
-
- (6) Test your new IRCd by connecting to it with an IRC client.
-At the very least, using 'telnet' to connect to the IRCd port should give you
-something similar to the following line:
-
-:rrx.synchro.net NOTICE * :*** SynchronetIRCd-1.0b(1.76) (RoadRunner X) Ready.
-
- Which is the standard Synchronet IRCd banner, informing you that the
-IRCd is accepting new connections correctly.
-
- At this point, you should have a working, fully-functional IRC server
-available for users to use. You may want to point Synchronet's internal IRC
-client to your local IRC server (just 'localhost' or '127.0.0.1'), so that
-your BBS users will be able to make use of your new IRCd.
-
-[3.2] - Linking to the Synchronet IRC Network (irc.synchro.net)
-
- Connecting your IRC server to the Synchronet IRC Network has certain
-advantages. The best advantage is that you'll be allowing any users who use
-your IRC server (i.e. your BBS users) to also talk to other users on the
-network. Since the network is largely BBS-oriented, there are a wide variety
-of channels available for users to join and discuss various topics.
-Furthermore, you'll be offering your system to the pool of IRC servers
-available for the public to use. Just like how DOVE-Net is a network of
-Synchronet systems that pass message group messages to one another, the
-Synchronet IRC Network is a network of Synchronet systems for the purposes of
-chatting in realtime.
-
- In later versions of the IRCd or the network, you'll be able to offer
-your BBS's files over IRC, integrate your BBS chat area with IRC, or even
-receive alerts about new messages or BBS email while on IRC.
-
- Linking with the Synchronet IRC Network takes about as much time (if
-not less) as it does to establish a DOVE-Net node. Therefore, the procedures
-have been kept very similar. The Synchronet IRC Network is the only IRC
-network in the world that allows you to link without going through a tiresome
-application process, or other such bureaucracy. In fact, no network admin need
-be present at all for you to link to the Synchronet IRC network.
-
- Just as with establishing a DOVE-Net node, the following steps must be
-taken to ensure a smooth link to the Synchronet IRC Network:
-
- (1) Ensure that you have a DOVE-Net node established. Although you
-aren't required to be a member of DOVE-Net to be a member of the Synchronet IRC
-Network, you need to at least go through the same automatic registration
-process to obtain and configure your QWK-ID. Instructions about obtaining
-your QWK-ID can be found here: http://www.synchro.net/docs/dove-net.txt
-Only steps 1 and 2 need be followed, but heed the document's warning:
-"Remember the password you used to create this account, you'll need it later."
-You do not need to create a new QWK-ID for the IRCd if you already have an
-existing one for DOVE-Net.
-
- (2) Setup the "dyndns.js" module with your appropriate QWK-id
-information so that the hostname "mybbs.synchro.net" will point towards your
-correct IP address. This is required so that users who try to reach your IRC
-server will be able to resolve the hostname used on the IRC network. That
-way, if anyone wishes to connect to your server/BBS specifically, they'll be
-able to use "mybbs.synchro.net" (i.e. if your server happens to be faster,
-closer, or offers interesting BBS features.) The dyndns.js module comes
-with Synchronet 3.11.
-
- To enable the dyndns module, add a timed event inside of SCFG under
-"External Programs->Timed Events" to run the command "?dyndns <pass>" every
-now and then. Replace <pass> with your exact QWK password. Running the
-module once per day is usually acceptable, although you may want to run it
-more often if your IP address is prone to changing rapidly.
-
- After the timed event has been configured, force the event to be ran.
-This can be done at the BBS itself (by using ";EXEC ?dyndns <pass>" from the
-BBS main menu.) Then, after about 3 or 5 minutes, attempt to ping your new
-hostname (qwk-id.synchro.net, where 'qwk-id' is your qwk-id.) It is very
-important that the IP address you're connecting to the Synchronet IRC Network
-from and the IP address that your new hostname (in the form of
-qwk-id.synchro.net) resolves to are exactly the same, otherwise you won't be
-able to link. This is to prevent anyone from arbitrarily linking their server
-to the network by utilizing your qwk-id.
-
- (3) Edit your ircd.conf and include a C/N line pair for connecting to
-'vert.synchro.net'. These should be commented out in the stock ircd.conf, and
-will look like this:
-
-#C:vert.synchro.net:QWK_PASSWORD:*.synchro.net:6667:30
-#N:vert.synchro.net:*:*.synchro.net::30
-
- Remove the '#' from each line, and replace 'QWK_PASSWORD' with the
-password you were assigned (or selected) when registering for a QWK-ID. The
-ircd.conf contains a description of what each of the lines (and fields) mean.
-It is very important that you leave the asterisks as they are, especially on
-the N:Line. This is because the server you're connecting to may be randomly
-assigned, and the server will never echo your QWK password back to you, so it
-chooses to echo a '*' back instead. An asterisk in the N:Line also forbids any
-servers from connecting *to* you, which is important, since you'll only be
-doing outbound connects with this C/N pair.
-
- (4) Restart your BBS (or, if you know how to become an IRC operator,
-simply use the /REHASH command), and you should see a message similar to the
-following in your Synchronet console:
-
-srvc 0008 IRC Routing: Auto-connecting to rrx.synchro.net
-srvc 0008 IRC Routing: Connected! Sending info...
-srvc 0008 IRC 0018 Accepted new connection: 154.5.119.21 port 6667
-srvc 0008 IRC Routing: Link with rrx.synchro.net established, states: TS
-
- If you see any messages in regards to "Server not configured" or
-"Connection reset by peer", it's highly likely that you've mistyped your QWK
-password into the C:Line in your ircd.conf. Double-check to make sure that
-the password is correct, and that you haven't otherwise malformed the C/N line
-pair. In particular, make sure all the asterisks (as per the default) are
-where they should be.
-
- Otherwise, if you have received those messages, then you're connected!
-You should be able to join the typical busy Synchronet IRC channels, #bbs and
-#synchronet, and be able to chat with people across the network. You can find
-network administrators in #opers if you have any questions or concerns.
-
-[3.3] - Using JSexec to run the IRCd
-
- There are times where you may wish to run the IRCd service separately
-from Synchronet so that whenever your BBS goes up or down, the IRCd isn't
-affected. A special program, included with Synchronet, is called "JSexec" and
-is intended for use in this way. By using JSexec, your IRCd will remain
-operational regardless of what your BBS is doing, while still integrating with
-all of the regular Synchronet features. In fact, in most respects, running
-the IRCd via JSexec is the preferred method.
-
- To run your IRCd with JSexec, make sure that you've followed all the
-installation instructions above. In particular, take a look at your M:Line on
-your ircd.conf and ensure that the last argument is the port you wish to run
-the IRCd on (typically 6667.) If you're currently running the IRCd through
-Synchronet, shutdown your BBS and comment out (or remove) the sections in your
-services configuration files (services.ini or services.cfg) so that the
-service is not restarted when you bring the BBS back up.
-
- Just like when you're running the IRCd from within Synchronet, you
-need to tell JSexec that the service you're running is to be 'looped,' which
-is done with the -l option. Thus, a typical JSexec execution will look like
-this:
-
- jsexec -l ircd
-
- The above command is typed from within the Synchronet 'exec' directory.
-All console commands and errors are logged to the terminal that JSexec was
-started from. You should see the standard IRCd startup messages, which means
-that the IRCd is now operational through JSexec. Connecting to the IRCd
-should now work as per normal.
-
-=======- 4.0 -- About the Synchronet IRC Network (irc.synchro.net) -==========
-
- The Synchronet IRC Network is currently a small network with a BBS
-focus. Like all new IRC networks, we hope that with the help of other BBS
-sysops around the globe, the Synchronet IRC Network will grow to become a
-thriving community sporting a wide variety of topics. Currently, the network
-has a very relaxed authoritative structure -- perhaps one of the most relaxed
-among all IRC networks. Even so, certain 'common sense' rules still apply.
-
- Servers linked to the Synchronet IRC Network are automatically put
-into the DNS round-robin for 'irc.synchro.net', which means that you can
-expect to see connections from other clients who choose to use that address to
-connect to IRC. You should expect to see your server listed in the round-
-robin within about 30 minutes, although it typically takes less.
-
-=======- 5.0 -- Technical Information -=======================================
-
-[5.1] - Limits of the Synchronet IRCd
-
- Since the Synchronet IRCd Service is written in Javascript, which is
-still an interpreted script language, the IRCd will be severely limited in its
-capability and speed when compared against other 'legacy' IRC daemons. In
-particular, the IRCd will only be able to (at best) hold a hundred clients or
-less before severe slowdown problems are exposed. If you find that you are
-commonly holding more than a hundred clients, or are experiencing slowdown
-problems, it's recommended that you switch to a legacy IRCd such as Bahamut,
-which can be found at http://bahamut.dal.net.
-
- A solution would be to link the Synchronet IRCd to the Bahamut IRCd,
-and then link Bahamut to the network. Then, limit connections only to local
-BBS users for the Synchronet IRCd, and use Bahamut for accepting connections
-from the Internet at large.
-
- Other problems may also creep up, especially as the network grows in
-size. Although the author is continually working to improve the performance
-of the IRCd, it should be assumed that there will be scalability issues due to
-the use of Javascript.
-
-[5.2] - Compliance with RFC's, and established protocols
-
- The Synchronet IRCd has always aimed to be compliant with RFC1459, which
-was the first published IRC specification. However, it has chosen to deviate
-from the RFC where appropriate. This might be because of errors inside the
-RFC itself (i.e. +p channels being listed as "*" instead of "Prv",) for the
-purpose of added functionality (i.e. handling of the PASS message for dynamic
-QWK connections,) or for security (not displaying some sensitive STATS output
-to users who are not IRC operators.) Compliance with the newer IRC RFC papers
-(inclusive of RFC's 2810 through 2813) is mostly correct, however deviates
-wherever Bahamut-specific extensions conflict.
-
- The DALnet-style Bahamut extensions to the server-to-server protocol
-involve improving performance between server links by reducing the amount of
-traffic that needs to go across any link. Furthermore, extra arguments are
-added to common commands (NICK, MODE, TOPIC, etc) in order to better establish
-the authenticity of the message. In particular, timestamps ("TS") have been
-added to many commands in order to resolve conflicts between messages.
-Although the Bahamut extensions are largely undocumented, the author chose to
-use these extensions as a base for extending the IRC protocol (as described
-in RFC1459) for the purpose of providing modern features.
-
- The Synchronet IRCd diverges from common IRC practice and Bahamut IRC
-protocol in the following fashion:
-
- * The Synchronet IRCd does NOT make use of the "ident" protocol, which
-is popular among larger IRC networks. This exclusion was decided on because
-it provides very little in the way of authoritative information. Instead, a
-user has been considered to be "identified" (by the lack of a tilde in the
-username portion of the user "user@host" mask) when they have correctly
-identified to a local BBS account. Identifying to the BBS account is done by
-sending a PASS message in the registration stage. Checks against a local BBS
-account are done against the username, and then the nickname respectively.
-Thus, care MUST be taken when linking non-Synchronet IRCd's together, as it
-could compromise a BBS-style authorization structure.
-
- * The PASS message has been extended to allow for the passing and
-checking of QWK passwords in the case of dynamic connections:
-
- PASS <password> :<qwk-id> QWK
-
- No destination is specified within the message, as the routing is
-handled by static configuration directives (in the form of flags on the N:Line)
-which show a single path for the message to take. This is to ensure that the
-password cannot be sent over an arbitrary connection, improving the security
-of the message. The reply to a query looks like this:
-
- PASS <result> :<qwk-id> QWK <origin>
-
- Where <result> is "OK" if the password check succeeded, and anything
-else (typically "VOID") on failure. The origin is specified so that the
-message may be routed back to the correct server. Thus, a PASS message without
-an origin is a check, and a PASS message with an origin is a reply.
-
- * Leaf servers are considered to be 'untrusted' servers by default, due
-to the highly dynamic nature of a Synchronet-based IRC network. This is to
-prevent bogus messages from being injected into the network, false
-representation of authority, or otherwise harmful activity. Since untrusted
-servers are allowed to connect to the network, leaf servers are restricted in
-the following way beyond the standard behavior:
-
- - All timestamps received from a leaf are ignored and are instead
- replaced by the current time. Thus, nickname collisions cannot be
- forced, and TS blasting is prevented.
- - User mode +o (oper) is ignored. However, local operators still
- retain authority over their local server.
- - The KILL and SQUIT messages are ignored and reversed if the target
- is connected to a server beyond the scope of the leaf.
- - Services authorization modes (+z, +r, +q and friends) are ignored.
- - Authenticity of mode change messages (channel ops, voice, bans, etc)
- are strictly checked and reversed if there's a mismatch. Mode
- hacking is thus prevented.
- - All channel modes are bounced on behalf of the leaf by the hub upon
- a resync.
- - Private/Secret channels are not revealed to the leaf unless a user
- on the leaf explicitly joins the channel.
-
-[5.3] - Compatibility with other IRCd's
-
- The Synchronet IRCd has only been tested to be link compatible with:
-
- * Bahamut 1.4.35, 1.4.36-rc1 http://bahamut.dal.net
- * Andy Church's IRC Services 5.0 http://www.ircservices.za.net
-
- The IRCd should be compatible with any other daemon that supports the
-DALnet-style Bahamut extensions. If you successfully link another IRCd
-(including a services package, or other pseudo-server,) then please feel free
-to let us know about it in #synchronet. Patches may be accepted to allow the
-IRCd to be link compatible with other protocols at the sole discretion of the
-author.
-
-=======- 6.0 -- The Future -==================================================
-
- Although the original intention of the IRCd was to allow users to
-interact between one another from the BBS multi-node chat area, that has yet
-to occur. Eventually, users will be able to talk to one another from various
-BBS's and not even be aware that they're using IRC as the transport protocol
-for their chat sessions. For the time being, one can use the Synchronet IRC
-client (irc.js) to connect to their local IRC server.
-
- Further compatibility with the later Bahamut daemons is planned,
-including the server-to-server "RESYNCH" command, user-accessible "WATCH", and
-"SILENCE." Also, more umodes will be supported, in addition to the possibility
-of gaining some of the Bahamut channel modes (i.e. +c) Exception modes (+e,
-etc) and exception lines (to circumvent K:Lines) may be implemented.
-
- Some sort of mechanism will be implemented to allow individual BBS's
-to share their message and file areas over IRC. This means that you'll be
-able to DCC send/receive files from a BBS, QWK packets, messages, and that
-sort of thing.
-
- I'm sure DigitalMan has a ton of cool ideas, too ;)
-
-=======- 7.0 -- Frequently Asked Questions -==================================
-
-[7.1] - Installation Questions
-
- Q: After setting up my IRCd, and trying to connect, it gives me an
- error stating: "You're not authorized to use this server." or
- "Your host isn't among the privileged." (Numeric 463)
-
- A: Most likely your Javascript libraries are too old. Upgrade to
- Synchronet 3.11, which contains sufficiently modern Javascript
- libraries. If you're certain that you're running new libraries,
- double-check your I:Lines and Y:Lines inside the ircd.conf.
-
- Q: I try to connect and it tells me "Password Incorrect" or "Denied."
- (Numeric 464)
-
- A: You've required a password to be passed to the IRC server via
- the PASS command upon registration. Check your I:Lines.
-
- Q: I keep on getting "Error setting up socket for listening" or
- "Error binding socket to TCP port."
-
- A: It's highly likely that you already have something running on the
- port that you've defined the IRCd to use (typically 6667.) If you
- have another IRCd running, shut it down or redefine the port that
- the Synchronet IRCd uses to listen for connections. If you get
- this error after having recently shut down Synchronet, one or more
- sockets may be stuck in 'TIME_WAIT' or similar, in which case you
- should wait until they expire (as viewable with "netstat".)
-
- Q: My server keeps on trying to auto-connect to other servers, and I
- don't want this! What do I do?
-
- A: The IRCd will attempt to auto-connect if there's a port defined in
- the C:Line for that server. Furthermore, a connect frequency must
- be defined in a Y:Line for the applicable IRC class for an auto-
- connect to be attempted. Remove the port from the C:Line, or turn
- the auto-connect frequency down to 0 in the Y:Line.
-
- Q: I installed the IRCd, but where are IRC Services? (ChanServ,
- NickServ, etc.)
-
- A: IRC Services are not a part of the Synchronet IRCd. Instead, we
- recommend that you make use of an external services package such
- as Andy Church's IRC Services (http://www.ircservices.za.net)
- Furthermore, any services package which is compatible with the
- Bahamut inter-server protocol should work. There *may* be an IRC
- services package written in Javascript for Synchronet later.
-
- Q: My question isn't answered in this document, where can I go?
-
- A: First, make sure you've read this document *in its entirety*
- Second, read section 2.2 again.
- Third, if you're still having a problem, feel free to join
- #synchronet on irc.synchro.net, the author typically uses the nick
- of 'Cyan' Support is not given via email or otherwise.
-
-[7.2] - Technical Questions
-
- Q: Why were the Bahamut protocol extensions used instead of EFnet,
- Undernet, Unreal, or otherwise?
-
- A: The Bahamut extensions were simply the extensions that the author
- was most familiar with. Bahamut is a widely-deployed IRC daemon in
- use by many networks (DALnet in particular,) so it's had a strong
- test cycle. Furthermore, all modern IRC extensions are relatively
- similar to each other, but differ in name. For example, Bahamut's
- SJOIN is similar to EFnet's NJOIN.
-
- Q: Will you be adding support for <X> protocol, or for <X> IRCd?
-
- A: Highly unlikely. However, feel free to add in your own support and
- send me a diff. Depending on the scope of the changes, I may choose
- to include them, or perhaps offer it externally as a patch. When
- coding in support for different IRC protocol extensions, try to
- make use of modularity so that it's possible to link together
- servers of different protocols, with the IRCd as the bridge.
- Patches that follow this 'modular' approach are more likely to be
- accepted.
-
- Q: Can I make modifications to the IRCd?
-
- A: By all means, go for it! If you think that you've made a
- particularly useful or clever hack, please feel free to send your
- changes to ircd@rrx.ca (in unified diff format, preferably) along
- with a description of what you've changed.
-
- Q: I'm an IRC guru, and I'd like to talk to the author about the IRCd,
- where do I go?
-
- A: The author can typically be found in #synchronet as 'Cyan' on
- irc.synchro.net, and welcomes all discussion about IRC protocol,
- theory (especially as it relates to IRC3 proposals,) or general
- banter among long-standing IRC users.
-
-=======- EOF -================================================================
diff --git a/docs/js.html b/docs/js.html
deleted file mode 100644
index efea6b3e4dd032704cf8432c1170100730a575ab..0000000000000000000000000000000000000000
--- a/docs/js.html
+++ /dev/null
@@ -1,98 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>JavaScript in Synchronet</title>
-</head>
-
-<body>
-
-<h1><span style="FONT-FAMILY: Arial">JavaScript in Synchronet</span></h1>
-<p class="MsoNormal"><span style="font-family: Arial">Synchronet v3.1</span><span style="FONT-FAMILY: Arial">
-uses <a href="http://mozilla.org/js/">Netscape�s JavaScript engine</a>
-(version 1.5) for its preferred local scripting environment.<br>
-You can learn about the core JavaScript language and object model from the
-following Netscape documents:<o:p>
-</o:p>
-</span></p>
-<ul style="MARGIN-TOP: 0in" type="disc">
- <li class="MsoNormal" style="mso-list: l2 level1 lfo5; tab-stops: list .5in"><span style="FONT-FAMILY: Arial"><a href="http://devedge.netscape.com/library/manuals/2000/javascript/1.5/guide/">Core
- JavaScript Guide</a><o:p>
- </o:p>
- </span></li>
- <li class="MsoNormal" style="mso-list: l2 level1 lfo5; tab-stops: list .5in"><span style="FONT-FAMILY: Arial"><a href="http://devedge.netscape.com/library/manuals/2000/javascript/1.5/reference/">Core
- JavaScript Reference</a><o:p>
- </o:p>
- </span></li>
-</ul>
-<p class="MsoNormal"><span style="FONT-FAMILY: Arial">JavaScript is an
-established, mature scripting language syntactically similar to C++ and Java.<b><br>
-JavaScript is</b> <b>not Java</b>. <o:p>
-</o:p>
-</span></p>
-<p class="MsoNormal"><span style="FONT-FAMILY: Arial">The ECMA and ISO standards
-organizations have standardized the core JavaScript language in <a href="http://developer.netscape.com/docs/javascript/e262-pdf.pdf">ECMA-262</a>
-(ECMAScript) and ISO-16262.<o:p>
-</o:p>
-</span></p>
-<h2><span style="font-family: Arial">Baja and JavaScript</span></h2>
-<p><span style="font-family: Arial"><a href="baja.html">Baja</a> is the original
-programming language of Synchronet (introduced in v2.0), used to create
-Synchronet-specific <i>modules</i> and <i>command shells</i>. Baja was
-originally designed as a simple BASIC-like language for controlling the display
-of menus and command prompts, accepting commands from the user and passing on
-control to high-level BBS functions. Over the years, Baja has been extended and
-enhanced to allow a high-level of functionality, but it was never going to reach
-the power and flexibility of JavaScript.</span></p>
-<p><span style="font-family: Arial">For example Baja modules and command shells,
-see the <b><samp>.src</samp></b> files in your Synchronet <b><code>exec</code></b> directory.</span></p>
-<p><span style="font-family: Arial">For the foreseeable future Baja modules and
-command-shells will continue to be supported in Synchronet, but sysops and
-developers are encouraged to use JavaScript instead of Baja moving forward. With
-very few exceptions, everything that can be done in a Baja module can be done in
-a JavaScript module, and much much more.</span></p>
-<p><span style="font-family: Arial">Eventually, all the stock command-shells and
-external modules will be converted to JavaScript.</span></p>
-<h2><span style="font-family: Arial">JavaScript Files</span></h2>
-<p><span style="font-family: Arial">JavaScript files are just ASCII text files.
-They are normally named with a <b><code>.js</code></b> file extension and located in your
-Synchronet <b><samp>exec</samp></b> directory. JavaScript files do not need to be compiled.
-JavaScript files are loaded into memory at the time of execution, so a change to
-a JavaScript file will take effect the next time that file is executed.</span></p>
-<p><span style="font-family: Arial">For example JavaScript modules and services,
-see the <b><samp>.js</samp></b> files in your Synchronet <b><code>exec</code></b> directory.</span></p>
-<h2><span style="font-family: Arial">Integration</span></h2>
-<p><span style="font-family: Arial">At this time (v3.10j beta), JavaScript files
-can be executed from:</span></p>
-
-<ul>
- <li><span style="font-family: Arial"><b>Telnet/Rlogin Server</b> <br>
- as a timed event, external program (door), login/logon/newuser module,<br>
- basically anywhere a Baja module or executable can be launched</span></li>
- <li><span style="font-family: Arial"><b>FTP Server</b><br>
- dynamically generates HTML index files<br>
- see <samp>exec/ftp-html.js</samp></span></li>
- <li><span style="font-family: Arial"><b>Services</b><br>
- all services at this time (both static and dynamic) are written in
- JavaScript<br>
- see <samp>exec/*service.js</samp> and <samp>ctrl/services.cfg</samp></span></li>
-</ul>
-<p><span style="font-family: Arial">From the Telnet/Rlogin server, a JavaScript file is executed on a native command-line
-by placing a question mark (<samp>?</samp>) at the beginning of the command-line
-before the JavaScript file name (in SCFG). It is not necessary to specify the <b><samp>.js</samp></b>
-portion of the file name on the command-line. For example, the command-line to execute
-the file <tt>exec/newslink.js</tt> would be "<tt>?newslink</tt>".</span></p>
-
-<h2><span style="font-family: Arial">Object Model</span></h2>
-<p><span style="font-family: Arial">Synchronet has its own JavaScript object
-model, not to be confused with the Document Object Model (DOM) used in web
-browsers. In order to fully understand the capabilities of JavaScript modules in
-Synchronet, you must familiarize yourself with <a href="http://devedge.netscape.com/library/manuals/2000/javascript/1.5/reference/">Core
-JavaScript</a> as well as the <a href="jsobjs.html">Synchronet JavaScript Object
-Model</a>.</span></p>
-
-</body>
-
-</html>
diff --git a/docs/jsobjs.html b/docs/jsobjs.html
deleted file mode 100644
index ebfb655fc6c1af097871dd4f30b2cef8d4122007..0000000000000000000000000000000000000000
--- a/docs/jsobjs.html
+++ /dev/null
@@ -1,2867 +0,0 @@
-<html>
-<head>
-<title>Synchronet JavaScript Object Model Reference</title>
-<STYLE>
- OL LI { cursor: hand; }
- UL LI { display: none;list-style: square; }
- .showList LI { display: list-item; }
-</STYLE>
-</head>
-<body>
-<font face=arial,helvetica>
-<h1>Synchronet JavaScript Object Model Reference</h1>
-Generated for <b>Synchronet v3.11a beta Debug</b>, compiled Dec 6 2003 19:56
-<br><font size=-1>
-Property and Method version numbers (when available) indicate the Synchronet version when the item was added or modified.
-</font>
-<ol type=square>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#global"><b>global</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#global_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#global_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#js"><b>js</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#js_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#js_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#system"><b>system</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#system_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#system_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#system.stats"><b>system.stats</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#system.stats_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#system.node_list"><b>system.node_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#system.node_list_properties>properties</a>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#server"><b>server</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#server_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#client"><b>client</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#client_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#user"><b>user</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#user.stats"><b>user.stats</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user.stats_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#user.limits"><b>user.limits</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user.limits_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#user.security"><b>user.security</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user.security_properties>properties</a>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#bbs"><b>bbs</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#bbs_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#bbs_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#console"><b>console</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#console_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#console_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#msg_area"><b>msg_area</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#msg_area.sub"><b>msg_area.sub</b></a> object
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#msg_area.grp_list"><b>msg_area.grp_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#msg_area.grp_list_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#msg_area.grp_list.sub_list"><b>msg_area.grp_list.sub_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#msg_area.grp_list.sub_list_properties>properties</a>
-</ul>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#file_area"><b>file_area</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#file_area.dir"><b>file_area.dir</b></a> object
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#file_area_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#file_area.lib_list"><b>file_area.lib_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#file_area.lib_list_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#file_area.lib_list.dir_list"><b>file_area.lib_list.dir_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#file_area.lib_list.dir_list_properties>properties</a>
-</ul>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#xtrn_area"><b>xtrn_area</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#xtrn_area.prog"><b>xtrn_area.prog</b></a> object
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#xtrn_area.sec_list"><b>xtrn_area.sec_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#xtrn_area.sec_list_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#xtrn_area.sec_list.prog_list"><b>xtrn_area.sec_list.prog_list</b></a> array
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#xtrn_area.sec_list.prog_list_properties>properties</a>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#xtrn_area.event"><b>xtrn_area.event</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#xtrn_area.event_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#xtrn_area.editor"><b>xtrn_area.editor</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#xtrn_area.editor_properties>properties</a>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#MsgBase"><b>MsgBase</b></a> class
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#MsgBase_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#MsgBase_properties>properties</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href="#MsgBase.cfg"><b>MsgBase.cfg</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#MsgBase.cfg_properties>properties</a>
-</ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#File"><b>File</b></a> class
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#File_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#File_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#Socket"><b>Socket</b></a> class
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#Socket_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#Socket_properties>properties</a>
-</ul>
-</ol>
-<h2><a name=global>global object</a>
-<br><font size=-1>Top-level functions and properties (common to all servers and services)</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>global</tt>
-<a name=global_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>log</b><td>string<td><tt>log([level,] value [,value])
-<td>3.11
-<td>add a line of text to the server and/or system log, <i>values</i> are typically string constants or variables, <i>level</i> is the debug level/priority (default: <tt>LOG_INFO</tt>)
-<tr valign=top><td><b>read</b><td>string<td><tt>read([count])
-<td>3.11
-<td>read up to count characters from input stream
-<tr valign=top><td><b>readln</b><td>string<td><tt>readln([count])
-<td>3.11
-<td>read a single line, up to count characters, from input stream
-<tr valign=top><td><b>write</b><td>void<td><tt>write(value [,value])
-<td>3.11
-<td>send one or more values (typically strings) to the server output
-<tr valign=top><td><b>writeln</b><td>void<td><tt>writeln(value [,value])
-<td>3.11
-<td>send a line of text to the console or event log with automatic line termination (CRLF), <i>values</i> are typically string constants or variables (AKA print)
-<tr valign=top><td><b>printf</b><td>string<td><tt>printf(string format [,value][,value])
-<td>3.10
-<td>print a formatted string - <small>CAUTION: for experienced C programmers ONLY</small>
-<tr valign=top><td><b>alert</b><td>void<td><tt>alert(value)
-<td>3.10
-<td>print an alert message (ala client-side JS)
-<tr valign=top><td><b>prompt</b><td>string<td><tt>prompt([value])
-<td>3.10
-<td>displays a prompt (<i>value</i>) and returns a string of user input (ala clent-side JS)
-<tr valign=top><td><b>confirm</b><td>boolean<td><tt>confirm(value)
-<td>3.10
-<td>displays a Yes/No prompt and returns <i>true</i> or <i>false</i> based on users confirmation (ala client-side JS)
-<tr valign=top><td><b>exit</b><td>void<td><tt>exit([number exit_code])
-<td>3.11
-<td>stop script execution, optionally setting the global property <tt>exit_code</tt> to the specified numeric value
-<tr valign=top><td><b>load</b><td>boolean<td><tt>load([object scope,] string filename [,args])
-<td>3.11
-<td>load and execute a JavaScript module (<i>filename</i>), optionally specifying a target <i>scope</i> object (default: <i>this</i>) and a list of arguments to pass to the module (as <i>argv</i>), returns <i>true</i> if the execution was successful
-<tr valign=top><td><b>mswait</b><td>void<td><tt>mswait([number milliseconds])
-<td>3.10
-<td>millisecond wait/sleep routine (AKA sleep)
-<tr valign=top><td><b>yield</b><td>void<td><tt>yield([bool forced])
-<td>3.11
-<td>release current thread time-slice, a <i>forced</i> yield will yield to all other pending tasks (lowering CPU utilization), a non-<i>forced</i> yield will yield only to pending tasks of equal or higher priority. <i>forced</i> defaults to <i>true</i>
-<tr valign=top><td><b>random</b><td>number<td><tt>random(number max)
-<td>3.10
-<td>return random integer between 0 and max-1
-<tr valign=top><td><b>time</b><td>number<td><tt>time()
-<td>3.10
-<td>return current time in Unix (time_t) format (number of seconds since Jan-01-1970)
-<tr valign=top><td><b>beep</b><td>void<td><tt>beep([number freq, duration])
-<td>3.10
-<td>produce a tone on the local speaker at specified frequency for specified duration (in milliseconds)
-<tr valign=top><td><b>sound</b><td>boolean<td><tt>sound([string filename])
-<td>3.10
-<td>play a waveform (.wav) sound file
-<tr valign=top><td><b>ctrl</b><td>string<td><tt>ctrl(number or string)
-<td>3.11
-<td>return ASCII control character representing character passed - Example: <tt>ctrl('C') returns ''</tt>
-<tr valign=top><td><b>ascii</b><td>number<td><tt>ascii([string text] or [number value])
-<td>3.10
-<td>convert string to ASCII value or vice-versa (returns number OR string)
-<tr valign=top><td><b>ascii_str</b><td>string<td><tt>ascii_str(string text)
-<td>3.10
-<td>convert extended-ASCII in string to plain ASCII
-<tr valign=top><td><b>strip_ctrl</b><td>string<td><tt>strip_ctrl(string text)
-<td>3.10
-<td>strip control characters from string
-<tr valign=top><td><b>strip_exascii</b><td>string<td><tt>strip_exascii(string text)
-<td>3.10
-<td>strip extended-ASCII characters from string
-<tr valign=top><td><b>truncsp</b><td>string<td><tt>truncsp(string text)
-<td>3.10
-<td>truncate white-space characters off end of string
-<tr valign=top><td><b>truncstr</b><td>string<td><tt>truncstr(string text, charset)
-<td>3.10
-<td>truncate string at first char in <i>charset</i>
-<tr valign=top><td><b>lfexpand</b><td>string<td><tt>lfexpand(string text)
-<td>3.10
-<td>expand line-feeds (LF) to carriage-return/line-feeds (CRLF)
-<tr valign=top><td><b>file_getname</b><td>string<td><tt>file_getname(string path)
-<td>3.11
-<td>returns filename portion of passed path string
-<tr valign=top><td><b>file_getext</b><td>string<td><tt>file_getext(string path)
-<td>3.11
-<td>returns file extension portion of passed path/filename string (including '.') or <i>undefined</i> if no extension is found
-<tr valign=top><td><b>file_getcase</b><td>string<td><tt>file_getcase(string filename)
-<td>3.11
-<td>returns correct case of filename (long version of filename on Win32) or <i>undefined</i> if the file doesn't exist
-<tr valign=top><td><b>file_exists</b><td>boolean<td><tt>file_exists(string filename)
-<td>3.10
-<td>verify a file's existence
-<tr valign=top><td><b>file_remove</b><td>boolean<td><tt>file_remove(string filename)
-<td>3.10
-<td>delete a file
-<tr valign=top><td><b>file_rename</b><td>boolean<td><tt>file_rename(oldname, newname)
-<td>3.11
-<td>rename a file, possibly moving it to another directory in the process
-<tr valign=top><td><b>file_copy</b><td>boolean<td><tt>file_copy(source, destination)
-<td>3.11
-<td>copy a file from one directory or filename to another
-<tr valign=top><td><b>file_backup</b><td>boolean<td><tt>file_backup(string filename [,number level] [,bool rename])
-<td>3.11
-<td>backup the specified <i>filename</i> as <tt>filename.<i>number</i>.extension</tt> where <i>number</i> is the backup number 0 through <i>level</i>-1 (default backup <i>level</i> is 5), if <i>rename</i> is <i>true</i>, the original file is renamed instead of copied (default is <i>false</i>)
-<tr valign=top><td><b>file_isdir</b><td>boolean<td><tt>file_isdir(string filename)
-<td>3.10
-<td>check if specified <i>filename</i> is a directory
-<tr valign=top><td><b>file_attrib</b><td>number<td><tt>file_attrib(string filename)
-<td>3.10
-<td>get a file's permissions/attributes
-<tr valign=top><td><b>file_date</b><td>number<td><tt>file_date(string filename)
-<td>3.10
-<td>get a file's last modified date/time (in time_t format)
-<tr valign=top><td><b>file_size</b><td>number<td><tt>file_size(string filename)
-<td>3.10
-<td>get a file's length (in bytes)
-<tr valign=top><td><b>file_utime</b><td>boolean<td><tt>file_utime(string filename [,access_time] [,mod_time])
-<td>3.11
-<td>change a file's last accessed and modification date/time (in time_t format), or change to current time
-<tr valign=top><td><b>file_touch</b><td>boolean<td><tt>file_touch(string filename)
-<td>3.11
-<td>updates a file's last modification date/time to current time, creating an empty file if it doesn't already exist
-<tr valign=top><td><b>directory</b><td>array<td><tt>directory(string pattern [,flags])
-<td>3.10
-<td>returns an array of directory entries, <i>pattern</i> is the path and filename or wildcards to search for (e.g. '/subdir/*.txt'), <i>flags</i> is a bitfield of optional <tt>glob</tt> flags (default is <tt>GLOB_MARK</tt>)
-<tr valign=top><td><b>dir_freespace</b><td>number<td><tt>dir_freespace(string directory [,unit_size])
-<td>3.11
-<td>returns the amount of available disk space in the specified <i>directory</i> using the specified <i>unit_size</i> in bytes (default: 1), specify a <i>unit_size</i> of <tt>1024</tt> to return the available space in <i>kilobytes</i>.
-<tr valign=top><td><b>socket_select</b><td>array<td><tt>socket_select([array of socket objects or descriptors] [,number timeout] [,bool write])
-<td>3.11
-<td>checks an array of socket objects or descriptors for read or write ability (default is <i>read</i>), default timeout value is 0.0 seconds (immediate timeout), returns an array of 0-based index values into the socket array, representing the sockets that were ready for reading or writing
-<tr valign=top><td><b>mkdir</b><td>boolean<td><tt>mkdir(string directory)
-<td>3.10
-<td>make a directory
-<tr valign=top><td><b>rmdir</b><td>boolean<td><tt>rmdir(string directory)
-<td>3.10
-<td>remove a directory
-<tr valign=top><td><b>strftime</b><td>string<td><tt>strftime(string format [,number time])
-<td>3.10
-<td>return a formatted time string (ala C strftime)
-<tr valign=top><td><b>format</b><td>string<td><tt>format(string format [,args])
-<td>3.10
-<td>return a formatted string (ala sprintf) - <small>CAUTION: for experienced C programmers ONLY</small>
-<tr valign=top><td><b>html_encode</b><td>string<td><tt>html_encode(string text [,bool ex_ascii] [,bool white_space] [,bool ansi] [,bool ctrl_a])
-<td>3.11
-<td>return an HTML-encoded text string (using standard HTML character entities), escaping IBM extended-ASCII, white-space characters, ANSI codes, and CTRL-A codes by default
-<tr valign=top><td><b>html_decode</b><td>string<td><tt>html_decode(string text)
-<td>3.11
-<td>return a decoded HTML-encoded text string
-<tr valign=top><td><b>word_wrap</b><td>string<td><tt>word_wrap(string text [,line_length])
-<td>3.11
-<td>returns a word-wrapped version of the text string argument, <i>line_length</i> defaults to <i>79</i>
-<tr valign=top><td><b>quote_msg</b><td>string<td><tt>quote_msg(string text [,line_length] [,prefix])
-<td>3.11
-<td>returns a quoted version of the message text string argumnet, <i>line_length</i> defaults to <i>79</i>, <i>prefix</i> defaults to <tt>" > "</tt>
-<tr valign=top><td><b>rot13_translate</b><td>string<td><tt>rot13_translate(string text)
-<td>3.11
-<td>returns ROT13-translated version of text string (will encode or decode text)
-<tr valign=top><td><b>base64_encode</b><td>string<td><tt>base64_encode(string text)
-<td>3.11
-<td>returns base64-encoded version of text string or <i>null</i> on error
-<tr valign=top><td><b>base64_decode</b><td>string<td><tt>base64_decode(string text)
-<td>3.11
-<td>returns base64-decoded text string or <i>null</i> on error (not useful for binary data)
-<tr valign=top><td><b>crc16_calc</b><td>number<td><tt>crc16_calc(string text)
-<td>3.11
-<td>calculate and return 16-bit CRC of text string
-<tr valign=top><td><b>crc32_calc</b><td>number<td><tt>crc32_calc(string text)
-<td>3.11
-<td>calculate and return 32-bit CRC of text string
-<tr valign=top><td><b>chksum_calc</b><td>number<td><tt>chksum_calc(string text)
-<td>3.11
-<td>calculate and return 32-bit checksum of text string
-<tr valign=top><td><b>md5_calc</b><td>string<td><tt>md5_calc(string text [,bool hex])
-<td>3.11
-<td>calculate and return 128-bit MD5 digest of text string, result encoded in base64 (default) or hexadecimal
-<tr valign=top><td><b>resolve_ip</b><td>string<td><tt>resolve_ip(string hostname)
-<td>3.11
-<td>resolve IP address of specified hostname (AKA gethostbyname)
-<tr valign=top><td><b>resolve_host</b><td>string<td><tt>resolve_host(string ip_address)
-<td>3.11
-<td>resolve hostname of specified IP address (AKA gethostbyaddr)
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>global</tt>
-<a name=global_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr><td><b>argc</b><td>number<td>number of arguments passed to the script</td>
-<tr><td><b>argv</b><td>array<td>array of argument strings (argv.length == argc)</td>
-<tr><td><b>errno</b><td>number<td>last system error number</td>
-<tr><td><b>errno_str</b><td>string<td>description of last system error</td>
-</table>
-<h2><a name=js>js object</a>
-<br><font size=-1>JavaScript execution and garbage collection control object</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>js</tt>
-<a name=js_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>eval</b><td>string<td><tt>js.eval(string script)
-<td>3.11
-<td>evaluate a JavaScript string in its own (secure) context, returning the result
-<tr valign=top><td><b>gc</b><td>void<td><tt>js.gc(bool forced)
-<td>3.11
-<td>perform a garbage collection operation (freeing memory for unused allocated objects), if <i>forced</i> is <i>true</i> (the default) a garbage collection is always performed, otherwise it is only performed if deemed appropriate by the JavaScript engine
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>js</tt>
-<a name=js_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>version</b><td>string
-<td>3.11
-<td>JavaScript engine version information (AKA system.js_version)
-<tr valign=top><td><b>auto_terminate</b><td>boolean
-<td>3.11
-<td>set to <i>false</i> to disable the automatic termination of the script upon external request
-<tr valign=top><td><b>terminated</b><td>boolean
-<td>3.11
-<td>termination has been requested (stop execution as soon as possible)
-<tr valign=top><td><b>branch_counter</b><td>number
-<td>3.11
-<td>number of branch operations performed in this runtime
-<tr valign=top><td><b>branch_limit</b><td>number
-<td>3.11
-<td>maximum number of branches, used for infinite-loop detection (0=disabled)
-<tr valign=top><td><b>yield_interval</b><td>number
-<td>3.11
-<td>interval of periodic time-slice yields (lower number=higher frequency, 0=disabled)
-<tr valign=top><td><b>gc_interval</b><td>number
-<td>3.11
-<td>interval of periodic garbage collection attempts (lower number=higher frequency, 0=disabled)
-<tr valign=top><td><b>gc_attempts</b><td>number
-<td>3.11
-<td>number of garbage collections attempted in this runtime - <small>READ ONLY</small>
-<tr valign=top><td><b>gc_counter</b><td>number
-<td>3.11
-<td>number of garbage collections performed in this runtime - <small>READ ONLY</small>
-<tr valign=top><td><b>gc_last_bytes</b><td>number
-<td>3.11
-<td>number of heap bytes in use after last garbage collection - <small>READ ONLY</small>
-<tr valign=top><td><b>bytes</b><td>number
-<td>3.11
-<td>number of heap bytes currently in use - <small>READ ONLY</small>
-<tr valign=top><td><b>max_bytes</b><td>number
-<td>3.11
-<td>maximum number of bytes available for heap
-</table>
-<h2><a name=system>system object</a>
-<br><font size=-1>Global system-related properties and methods</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>system</tt>
-<a name=system_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>username</b><td>string<td><tt>system.username(number)
-<td>3.11
-<td>returns name of user in specified user record <i>number</i>, or empty string if not found
-<tr valign=top><td><b>alias</b><td>string<td><tt>system.alias(string alias)
-<td>3.10
-<td>returns name of user that matches alias (if found in <tt>ctrl/alias.cfg</tt>)
-<tr valign=top><td><b>matchuser</b><td>number<td><tt>system.matchuser(string username [,bool sysop_alias])
-<td>3.10
-<td>exact user name matching, returns number of user whose name/alias matches <i>username</i> or 0 if not found, matches well-known sysop aliases by default
-<tr valign=top><td><b>matchuserdata</b><td>number<td><tt>system.matchuserdata(field, data [,usernumber])
-<td>3.10
-<td>search user database for data in a specific field (specified by offset), returns first matching user record number, optional <i>usernumber</i> specifies user record to skip
-<tr valign=top><td><b>trashcan</b><td>boolean<td><tt>system.trashcan(string filename, search)
-<td>3.10
-<td>search text/filename.can for pseudo-regexp
-<tr valign=top><td><b>findstr</b><td>boolean<td><tt>system.findstr(string filename, search)
-<td>3.10
-<td>search any file for pseudo-regexp
-<tr valign=top><td><b>zonestr</b><td>string<td><tt>system.zonestr([timezone])
-<td>3.10
-<td>convert time zone integer to string, defaults to system timezone if <i>timezone</i> not specified
-<tr valign=top><td><b>timestr</b><td>string<td><tt>system.timestr([time])
-<td>3.10
-<td>convert time_t integer into a time string, defaults to current time if <i>time</i> not specified
-<tr valign=top><td><b>datestr</b><td>string<td><tt>system.datestr([time])
-<td>3.10
-<td>convert time_t integer into a date string (in either <tt>MM/DD/YY</tt> or <tt>DD/MM/YY</tt> format), defaults to current date if <i>time</i> not specified
-<tr valign=top><td><b>secondstr</b><td>string<td><tt>system.secondstr(seconds)
-<td>3.10
-<td>convert elapsed time in seconds into a string in <tt>hh:mm:ss</tt> format
-<tr valign=top><td><b>spamlog</b><td>boolean<td><tt>system.spamlog([protocol, action, reason, host, ip, to, from])
-<td>3.10
-<td>log a suspected SPAM attempt
-<tr valign=top><td><b>hacklog</b><td>boolean<td><tt>system.hacklog([protocol, user, text, host, ip, port])
-<td>3.10
-<td>log a suspected hack attempt
-<tr valign=top><td><b>filter_ip</b><td>boolean<td><tt>system.filter_ip([protocol, reason, host, ip, username])
-<td>3.11
-<td>add an IP address (with comment) to the system's IP filter file
-<tr valign=top><td><b>get_node_message</b><td>string<td><tt>system.get_node_message(number node)
-<td>3.11
-<td>read any messages waiting for the specified node and return in a single string
-<tr valign=top><td><b>put_node_message</b><td>boolean<td><tt>system.put_node_message(number node, string message)
-<td>3.10
-<td>send a node a short text message, delivered immediately
-<tr valign=top><td><b>get_telegram</b><td>string<td><tt>system.get_telegram(number user)
-<td>3.11
-<td>returns any short text messages waiting for the specified user
-<tr valign=top><td><b>put_telegram</b><td>boolean<td><tt>system.put_telegram(number user, string message)
-<td>3.10
-<td>sends a user a short text message, delivered immediately or during next logon
-<tr valign=top><td><b>new_user</b><td>object<td><tt>system.new_user(name/alias)
-<td>3.10
-<td>creates a new user record, returns a new <a href=#User>User</a> object representing the new user account
-<tr valign=top><td><b>exec</b><td>number<td><tt>system.exec(command-line)
-<td>3.11
-<td>executes a native system/shell command-line, returns <i>0</i> on success
-<tr valign=top><td><b>popen</b><td>array<td><tt>system.popen(command-line)
-<td>3.11
-<td>executes a native system/shell command-line, returns array of captured output lines on success (<b>only functional on UNIX systems</b>)
-<tr valign=top><td><b>check_syspass</b><td>boolean<td><tt>system.check_syspass(string password)
-<td>3.11
-<td>compares the supplied <i>password</i> against the system password and return's <i>true</i> if it matches
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>system</tt>
-<a name=system_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>name</b><td>string
-<td>3.10
-<td>BBS name
-<tr valign=top><td><b>operator</b><td>string
-<td>3.10
-<td>operator name
-<tr valign=top><td><b>qwk_id</b><td>string
-<td>3.10
-<td>system QWK-ID (for QWK packets)
-<tr valign=top><td><b>settings</b><td>number
-<td>3.10
-<td>settings bitfield (see <tt>SS_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>psname</b><td>string
-<td>3.10
-<td>PostLink name
-<tr valign=top><td><b>psnum</b><td>number
-<td>3.10
-<td>PostLink system number
-<tr valign=top><td><b>inet_addr</b><td>string
-<td>3.11
-<td>Internet address (host or domain name)
-<tr valign=top><td><b>location</b><td>string
-<td>3.10
-<td>location (city, state)
-<tr valign=top><td><b>timezone</b><td>number
-<td>3.10
-<td>timezone (use <i>system.zonestr()</i> to get string representation)
-<tr valign=top><td><b>pwdays</b><td>number
-<td>3.10
-<td>days between forced password changes
-<tr valign=top><td><b>deldays</b><td>number
-<td>3.10
-<td>days to preserve deleted user records
-<tr valign=top><td><b>lastuser</b><td>number
-<td>3.11
-<td>last user record number in user database (includes deleted and inactive user records)
-<tr valign=top><td><b>lastuseron</b><td>string
-<td>3.10
-<td>name of last user to logoff
-<tr valign=top><td><b>freediskspace</b><td>number
-<td>3.10
-<td>amount of free disk space (in bytes)
-<tr valign=top><td><b>freediskspacek</b><td>number
-<td>3.10
-<td>amount of free disk space (in kilobytes)
-<tr valign=top><td><b>nodes</b><td>number
-<td>3.10
-<td>total number of BBS nodes
-<tr valign=top><td><b>lastnode</b><td>number
-<td>3.10
-<td>last displayable node number
-<tr valign=top><td><b>newuser_password</b><td>string
-<td>3.10
-<td>new user password
-<tr valign=top><td><b>newuser_magic_word</b><td>string
-<td>3.10
-<td>new user magic word
-<tr valign=top><td><b>newuser_level</b><td>number
-<td>3.10
-<td>new user level
-<tr valign=top><td><b>newuser_flags1</b><td>number
-<td>3.10
-<td>new user flag set #1
-<tr valign=top><td><b>newuser_flags2</b><td>number
-<td>3.10
-<td>new user flag set #2
-<tr valign=top><td><b>newuser_flags3</b><td>number
-<td>3.10
-<td>new user flag set #3
-<tr valign=top><td><b>newuser_flags4</b><td>number
-<td>3.10
-<td>new user flag set #4
-<tr valign=top><td><b>newuser_restrictions</b><td>number
-<td>3.10
-<td>new user restriction flags
-<tr valign=top><td><b>newuser_exemptions</b><td>number
-<td>3.10
-<td>new user exemption flags
-<tr valign=top><td><b>newuser_credits</b><td>number
-<td>3.10
-<td>new user credits
-<tr valign=top><td><b>newuser_minutes</b><td>number
-<td>3.10
-<td>new user extra minutes
-<tr valign=top><td><b>newuser_command_shell</b><td>number
-<td>3.10
-<td>new user command shell
-<tr valign=top><td><b>newuser_editor</b><td>string
-<td>3.10
-<td>new user external editor
-<tr valign=top><td><b>newuser_settings</b><td>number
-<td>3.10
-<td>new user settings
-<tr valign=top><td><b>newuser_download_protocol</b><td>string
-<td>3.10
-<td>new user file transfer protocol (command key)
-<tr valign=top><td><b>newuser_expiration_days</b><td>number
-<td>3.10
-<td>new user expiration days
-<tr valign=top><td><b>newuser_questions</b><td>number
-<td>3.10
-<td>new user questions bitfield (see <tt>UQ_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>expired_level</b><td>number
-<td>3.10
-<td>expired user level
-<tr valign=top><td><b>expired_flags1</b><td>number
-<td>3.10
-<td>expired user flag set #1
-<tr valign=top><td><b>expired_flags2</b><td>number
-<td>3.10
-<td>expired user flag set #2
-<tr valign=top><td><b>expired_flags3</b><td>number
-<td>3.10
-<td>expired user flag set #3
-<tr valign=top><td><b>expired_flags4</b><td>number
-<td>3.10
-<td>expired user flag set #4
-<tr valign=top><td><b>expired_restrictions</b><td>number
-<td>3.10
-<td>expired user restriction flags
-<tr valign=top><td><b>expired_exemptions</b><td>number
-<td>3.10
-<td>expired user exemption flags
-<tr valign=top><td><b>node_dir</b><td>string
-<td>3.10
-<td>node directory
-<tr valign=top><td><b>ctrl_dir</b><td>string
-<td>3.10
-<td>control file directory
-<tr valign=top><td><b>data_dir</b><td>string
-<td>3.10
-<td>data file directory
-<tr valign=top><td><b>text_dir</b><td>string
-<td>3.10
-<td>text file directory
-<tr valign=top><td><b>temp_dir</b><td>string
-<td>3.10
-<td>temporary file directory
-<tr valign=top><td><b>exec_dir</b><td>string
-<td>3.10
-<td>executable file directory
-<tr valign=top><td><b>mods_dir</b><td>string
-<td>3.10
-<td>modified modules directory (optional)
-<tr valign=top><td><b>logs_dir</b><td>string
-<td>3.10
-<td>log file directory
-<tr valign=top><td><b>devnull</b><td>string
-<td>3.11
-<td>null device filename
-<tr valign=top><td><b>clock_ticks</b><td>number
-<td>3.11
-<td>amount of elapsed processor time in clock 'ticks'
-<tr valign=top><td><b>clock_ticks_per_second</b><td>number
-<td>3.11
-<td>number of clock ticks per second
-<tr valign=top><td><b>local_host_name</b><td>string
-<td>3.11
-<td>private host name that uniquely identifies this system on the local network
-<tr valign=top><td><b>host_name</b><td>string
-<td>N/A
-<td>public host name that uniquely identifies this system on the Internet (usually the same as <i>system.inetaddr</i>)
-<tr valign=top><td><b>version</b><td>string
-<td>N/A
-<td>Synchronet version number (e.g. '3.10')
-<tr valign=top><td><b>revision</b><td>string
-<td>N/A
-<td>Synchronet revision letter (e.g. 'k')
-<tr valign=top><td><b>beta_version</b><td>string
-<td>N/A
-<td>Synchronet alpha/beta designation (e.g. ' beta')
-<tr valign=top><td><b>full_version</b><td>string
-<td>N/A
-<td>Synchronet full version information (e.g. '3.10k Beta Debug')
-<tr valign=top><td><b>version_notice</b><td>string
-<td>N/A
-<td>Synchronet version notice (includes version and platform)
-<tr valign=top><td><b>platform</b><td>string
-<td>N/A
-<td>platform description (e.g. 'Win32', 'Linux', 'FreeBSD')
-<tr valign=top><td><b>socket_lib</b><td>string
-<td>N/A
-<td>socket library version information
-<tr valign=top><td><b>msgbase_lib</b><td>string
-<td>N/A
-<td>message base library version information
-<tr valign=top><td><b>compiled_with</b><td>string
-<td>N/A
-<td>compiler used to build Synchronet
-<tr valign=top><td><b>compiled_when</b><td>string
-<td>N/A
-<td>date and time compiled
-<tr valign=top><td><b>copyright</b><td>string
-<td>N/A
-<td>Synchronet copyright display
-<tr valign=top><td><b>js_version</b><td>string
-<td>N/A
-<td>JavaScript engine version information
-<tr valign=top><td><b>os_version</b><td>string
-<td>N/A
-<td>operating system version information
-<tr valign=top><td><b>uptime</b><td>number
-<td>N/A
-<td>time/date system was brought online (in time_t format)
-</table>
-<h2><a name=system.stats>system.stats object</a>
-<br><font size=-1>System statistics</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>system.stats</tt>
-<a name=system.stats_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>total_logons</b><td>number
-<td>3.10
-<td>total logons
-<tr valign=top><td><b>logons_today</b><td>number
-<td>3.10
-<td>logons today
-<tr valign=top><td><b>total_timeon</b><td>number
-<td>3.10
-<td>total time used
-<tr valign=top><td><b>timeon_today</b><td>number
-<td>3.10
-<td>time used today
-<tr valign=top><td><b>total_files</b><td>number
-<td>3.10
-<td>total files in file bases
-<tr valign=top><td><b>files_uploaded_today</b><td>number
-<td>3.10
-<td>files uploaded today
-<tr valign=top><td><b>bytes_uploaded_today</b><td>number
-<td>3.10
-<td>bytes uploaded today
-<tr valign=top><td><b>files_downloaded_today</b><td>number
-<td>3.10
-<td>files downloaded today
-<tr valign=top><td><b>bytes_downloaded_today</b><td>number
-<td>3.10
-<td>bytes downloaded today
-<tr valign=top><td><b>total_messages</b><td>number
-<td>3.10
-<td>total messages in message bases
-<tr valign=top><td><b>messages_posted_today</b><td>number
-<td>3.10
-<td>messages posted today
-<tr valign=top><td><b>total_email</b><td>number
-<td>3.10
-<td>total messages in mail base
-<tr valign=top><td><b>email_sent_today</b><td>number
-<td>3.10
-<td>email sent today
-<tr valign=top><td><b>total_feedback</b><td>number
-<td>3.10
-<td>total feedback messages waiting
-<tr valign=top><td><b>feedback_sent_today</b><td>number
-<td>3.10
-<td>feedback sent today
-<tr valign=top><td><b>total_users</b><td>number
-<td>3.10
-<td>total user records (does not include deleted or inactive user records)
-<tr valign=top><td><b>new_users_today</b><td>number
-<td>3.10
-<td>new users today
-</table>
-<h2><a name=system.node_list>system.node_list array</a>
-<br><font size=-1>BBS node listing</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>system.node_list</tt>
-<a name=system.node_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>status</b><td>number
-<td>3.10
-<td>status (see <tt>nodedefs.js</tt> for valid values)
-<tr valign=top><td><b>errors</b><td>number
-<td>3.10
-<td>error counter
-<tr valign=top><td><b>action</b><td>number
-<td>3.10
-<td>current user action (see <tt>nodedefs.js</tt>)
-<tr valign=top><td><b>useron</b><td>number
-<td>3.10
-<td>current user number
-<tr valign=top><td><b>connection</b><td>number
-<td>3.10
-<td>connection speed (<tt>0xffff</tt> = Telnet or RLogin)
-<tr valign=top><td><b>misc</b><td>number
-<td>3.10
-<td>miscellaneous bitfield (see <tt>nodedefs.js</tt>)
-<tr valign=top><td><b>aux</b><td>number
-<td>3.10
-<td>auxillary value
-<tr valign=top><td><b>extaux</b><td>number
-<td>3.10
-<td>extended auxillary value
-</table>
-<h2><a name=server>server object</a>
-<br><font size=-1>Server-specifc properties</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>server</tt>
-<a name=server_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>version</b><td>string
-<td>3.10
-<td>server name and version number
-<tr valign=top><td><b>version_detail</b><td>string
-<td>3.10
-<td>detailed version/build information
-<tr valign=top><td><b>interface_ip_address</b><td>string
-<td>3.11
-<td>IP address of bound network interface (<tt>0.0.0.0</tt> = <i>ANY</i>)
-<tr valign=top><td><b>options</b><td>number
-<td>3.11
-<td>bit-field of server-specific startup options
-<tr valign=top><td><b>clients</b><td>number
-<td>3.11
-<td>number of active clients (if available)
-</table>
-<h2><a name=client>client object</a>
-<br><font size=-1>Represents a TCP/IP client session</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>client</tt>
-<a name=client_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>ip_address</b><td>string
-<td>3.10
-<td>client's IP address (in dotted-decimal format)
-<tr valign=top><td><b>host_name</b><td>string
-<td>3.10
-<td>client's host name (up to 64 characters)
-<tr valign=top><td><b>port</b><td>number
-<td>3.10
-<td>client's TCP or UDP port number
-<tr valign=top><td><b>connect_time</b><td>number
-<td>3.10
-<td>date/time of initial connection (in time_t format)
-<tr valign=top><td><b>protocol</b><td>string
-<td>3.10
-<td>protocol description (e.g. 'Telnet', 'FTP', etc.)
-<tr valign=top><td><b>user_name</b><td>string
-<td>3.10
-<td>user's name/alias (if logged in)
-<tr valign=top><td><b>socket</b><td>object
-<td>N/A
-<td>instance of <a href=#Socket>Socket class</a> representing client's TCP/IP connection
-</table>
-<h2><a name=user>user object</a>
-<br><font size=-1>Instance of <i>User</i> class, representing current user online</font>
-</h2>
-<p>To create a new user object: <tt>var u = new User(number)</tt></p>
-<table border=1 width=100%>
-<caption align=left><b><tt>user</tt>
-<a name=user_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>compare_ars</b><td>boolean<td><tt>user.compare_ars(string ars)
-<td>3.10
-<td>Verify user meets access requirements string
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>user</tt>
-<a name=user_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>3.10
-<td>record number (1-based)
-<tr valign=top><td><b>alias</b><td>string
-<td>3.10
-<td>alias/name
-<tr valign=top><td><b>name</b><td>string
-<td>3.10
-<td>real name
-<tr valign=top><td><b>handle</b><td>string
-<td>3.10
-<td>chat handle
-<tr valign=top><td><b>ip_address</b><td>string
-<td>3.10
-<td>IP address last logged on from
-<tr valign=top><td><b>note</b><td>string
-<td>3.10
-<td>AKA ip_address
-<tr valign=top><td><b>host_name</b><td>string
-<td>3.10
-<td>host name last logged on from
-<tr valign=top><td><b>computer</b><td>string
-<td>3.10
-<td>AKA host_name
-<tr valign=top><td><b>comment</b><td>string
-<td>3.10
-<td>sysop's comment
-<tr valign=top><td><b>netmail</b><td>string
-<td>3.10
-<td>external e-mail address
-<tr valign=top><td><b>email</b><td>string
-<td>3.10
-<td>local Internet e-mail address - <small>READ ONLY</small>
-<tr valign=top><td><b>address</b><td>string
-<td>3.10
-<td>street address
-<tr valign=top><td><b>location</b><td>string
-<td>3.10
-<td>location (city, state)
-<tr valign=top><td><b>zipcode</b><td>string
-<td>3.10
-<td>zip/postal code
-<tr valign=top><td><b>phone</b><td>string
-<td>3.10
-<td>phone number
-<tr valign=top><td><b>birthdate</b><td>string
-<td>3.10
-<td>birth date
-<tr valign=top><td><b>age</b><td>number
-<td>3.10
-<td>calculated age in years - <small>READ ONLY</small>
-<tr valign=top><td><b>connection</b><td>string
-<td>3.10
-<td>connection type
-<tr valign=top><td><b>modem</b><td>string
-<td>3.10
-<td>AKA connection
-<tr valign=top><td><b>screen_rows</b><td>number
-<td>3.10
-<td>terminal rows (lines)
-<tr valign=top><td><b>gender</b><td>string
-<td>3.10
-<td>gender type
-<tr valign=top><td><b>cursub</b><td>string
-<td>3.10
-<td>current message sub-board
-<tr valign=top><td><b>curdir</b><td>string
-<td>3.10
-<td>current file directory
-<tr valign=top><td><b>curxtrn</b><td>string
-<td>3.10
-<td>current external program being run
-<tr valign=top><td><b>editor</b><td>string
-<td>3.10
-<td>external message editor
-<tr valign=top><td><b>command_shell</b><td>string
-<td>3.10
-<td>command shell
-<tr valign=top><td><b>settings</b><td>number
-<td>3.10
-<td>settings bitfield
-<tr valign=top><td><b>qwk_settings</b><td>number
-<td>3.10
-<td>QWK packet settings bitfield
-<tr valign=top><td><b>chat_settings</b><td>number
-<td>3.10
-<td>chat settings bitfield
-<tr valign=top><td><b>temp_file_ext</b><td>string
-<td>3.10
-<td>temporary file type (extension)
-<tr valign=top><td><b>new_file_time</b><td>number
-<td>3.11
-<td>new file scan date/time (time_t format)
-<tr valign=top><td><b>download_protocol</b><td>string
-<td>3.10
-<td>file transfer protocol (command key)
-<tr valign=top><td><b>logontime</b><td>number
-<td>3.10
-<td>logon time (time_t format)
-</table>
-<h2><a name=user.stats>user.stats object</a>
-<br><font size=-1>User statistics (all <small>READ ONLY</small>)</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>user.stats</tt>
-<a name=user.stats_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>laston_date</b><td>number
-<td>3.10
-<td>date of previous logon
-<tr valign=top><td><b>firston_date</b><td>number
-<td>3.10
-<td>date of first logon
-<tr valign=top><td><b>total_logons</b><td>number
-<td>3.10
-<td>total number of logons
-<tr valign=top><td><b>logons_today</b><td>number
-<td>3.10
-<td>total logons today
-<tr valign=top><td><b>total_timeon</b><td>number
-<td>3.10
-<td>total time used (in minutes)
-<tr valign=top><td><b>timeon_today</b><td>number
-<td>3.10
-<td>time used today
-<tr valign=top><td><b>timeon_last_logon</b><td>number
-<td>3.10
-<td>time used last session
-<tr valign=top><td><b>total_posts</b><td>number
-<td>3.10
-<td>total messages posted
-<tr valign=top><td><b>total_emails</b><td>number
-<td>3.10
-<td>total e-mails sent
-<tr valign=top><td><b>total_feedbacks</b><td>number
-<td>3.10
-<td>total feedback messages sent
-<tr valign=top><td><b>email_today</b><td>number
-<td>3.10
-<td>e-mail sent today
-<tr valign=top><td><b>posts_today</b><td>number
-<td>3.10
-<td>messages posted today
-<tr valign=top><td><b>bytes_uploaded</b><td>number
-<td>3.10
-<td>total bytes uploaded
-<tr valign=top><td><b>files_uploaded</b><td>number
-<td>3.10
-<td>total files uploaded
-<tr valign=top><td><b>bytes_downloaded</b><td>number
-<td>3.10
-<td>total bytes downloaded
-<tr valign=top><td><b>files_downloaded</b><td>number
-<td>3.10
-<td>total files downloaded
-<tr valign=top><td><b>leech_attempts</b><td>number
-<td>3.10
-<td>suspected leech downloads
-</table>
-<h2><a name=user.limits>user.limits object</a>
-<br><font size=-1>User limitations based on security level (all <small>READ ONLY</small>)</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>user.limits</tt>
-<a name=user.limits_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>time_per_logon</b><td>number
-<td>3.11
-<td>time (in minutes) per logon
-<tr valign=top><td><b>time_per_day</b><td>number
-<td>3.11
-<td>time (in minutes) per day
-<tr valign=top><td><b>logons_per_day</b><td>number
-<td>3.11
-<td>logons per day
-<tr valign=top><td><b>lines_per_message</b><td>number
-<td>3.11
-<td>lines per message (post or email)
-<tr valign=top><td><b>email_per_day</b><td>number
-<td>3.11
-<td>email sent per day
-<tr valign=top><td><b>posts_per_day</b><td>number
-<td>3.11
-<td>messages posted per day
-<tr valign=top><td><b>free_credits_per_day</b><td>number
-<td>3.11
-<td>free credits given per day
-</table>
-<h2><a name=user.security>user.security object</a>
-<br><font size=-1>User security settings</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>user.security</tt>
-<a name=user.security_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>password</b><td>string
-<td>3.10
-<td>password
-<tr valign=top><td><b>password_date</b><td>number
-<td>3.10
-<td>date password last modified (time_t format)
-<tr valign=top><td><b>level</b><td>number
-<td>3.10
-<td>security level (0-99)
-<tr valign=top><td><b>flags1</b><td>number
-<td>3.10
-<td>flag set #1 (bitfield)
-<tr valign=top><td><b>flags2</b><td>number
-<td>3.10
-<td>flag set #2 (bitfield)
-<tr valign=top><td><b>flags3</b><td>number
-<td>3.10
-<td>flag set #3 (bitfield)
-<tr valign=top><td><b>flags4</b><td>number
-<td>3.10
-<td>flag set #4 (bitfield)
-<tr valign=top><td><b>exemptions</b><td>number
-<td>3.10
-<td>exemption flags (bitfield)
-<tr valign=top><td><b>restrictions</b><td>number
-<td>3.10
-<td>restriction flags (bitfield)
-<tr valign=top><td><b>credits</b><td>number
-<td>3.10
-<td>credits
-<tr valign=top><td><b>free_credits</b><td>number
-<td>3.10
-<td>free credits (for today only)
-<tr valign=top><td><b>minutes</b><td>number
-<td>3.10
-<td>extra minutes (time bank)
-<tr valign=top><td><b>extra_time</b><td>number
-<td>3.10
-<td>extra minutes (for today only)
-<tr valign=top><td><b>expiration_date</b><td>number
-<td>3.10
-<td>expiration date/time (time_t format)
-</table>
-<h2><a name=bbs>bbs object</a>
-<br><font size=-1>Controls the Telnet/RLogin BBS experience</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>bbs</tt>
-<a name=bbs_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>atcode</b><td>string<td><tt>bbs.atcode(string code)
-<td>3.10
-<td>returns @-code value, specified <i>code</i> string does not include @ character delimiters
-<tr valign=top><td><b>text</b><td>string<td><tt>bbs.text(number line)
-<td>3.10
-<td>returns specified text string from text.dat
-<tr valign=top><td><b>replace_text</b><td>boolean<td><tt>bbs.replace_text(number line, string text)
-<td>3.10
-<td>replaces specified text string in memory
-<tr valign=top><td><b>revert_text</b><td>boolean<td><tt>bbs.revert_text([number line])
-<td>3.10
-<td>reverts specified text string to original text string; if <i>line</i> unspecified, reverts all text lines
-<tr valign=top><td><b>load_text</b><td>boolean<td><tt>bbs.load_text(string basefilename)
-<td>3.10
-<td>load an alternate text.dat from ctrl directory, automatically appends '.dat' to basefilename
-<tr valign=top><td><b>newuser</b><td>void<td><tt>bbs.newuser()
-<td>3.10
-<td>interactive new user procedure
-<tr valign=top><td><b>login</b><td>boolean<td><tt>bbs.login(string username, password_prompt)
-<td>3.10
-<td>login with <i>username</i>, displaying <i>password_prompt</i> for password (if required)
-<tr valign=top><td><b>logon</b><td>boolean<td><tt>bbs.logon()
-<td>3.10
-<td>interactive logon procedure
-<tr valign=top><td><b>logoff</b><td>void<td><tt>bbs.logoff()
-<td>3.10
-<td>interactive logoff procedure
-<tr valign=top><td><b>logout</b><td>void<td><tt>bbs.logout()
-<td>3.10
-<td>non-interactive logout procedure
-<tr valign=top><td><b>hangup</b><td>void<td><tt>bbs.hangup()
-<td>3.10
-<td>hangup (disconnect) immediately
-<tr valign=top><td><b>nodesync</b><td>void<td><tt>bbs.nodesync()
-<td>3.10
-<td>synchronize with node database, checks for messages, interruption, etc. (AKA node_sync)
-<tr valign=top><td><b>auto_msg</b><td>void<td><tt>bbs.auto_msg()
-<td>3.10
-<td>read/create system's auto-message
-<tr valign=top><td><b>time_bank</b><td>void<td><tt>bbs.time_bank()
-<td>3.10
-<td>enter the time banking system
-<tr valign=top><td><b>qwk_sec</b><td>void<td><tt>bbs.qwk_sec()
-<td>3.10
-<td>enter the QWK message packet upload/download/config section
-<tr valign=top><td><b>text_sec</b><td>void<td><tt>bbs.text_sec()
-<td>3.10
-<td>enter the text files section
-<tr valign=top><td><b>xtrn_sec</b><td>void<td><tt>bbs.xtrn_sec()
-<td>3.10
-<td>enter the external programs section
-<tr valign=top><td><b>xfer_policy</b><td>void<td><tt>bbs.xfer_policy()
-<td>3.10
-<td>display the file transfer policy
-<tr valign=top><td><b>batch_menu</b><td>void<td><tt>bbs.batch_menu()
-<td>3.10
-<td>enter the batch file transfer menu
-<tr valign=top><td><b>batch_download</b><td>boolean<td><tt>bbs.batch_download()
-<td>3.10
-<td>start a batch download
-<tr valign=top><td><b>batch_add_list</b><td>void<td><tt>bbs.batch_add_list(filename)
-<td>3.10
-<td>add file list to batch download queue
-<tr valign=top><td><b>temp_xfer</b><td>void<td><tt>bbs.temp_xfer()
-<td>3.10
-<td>enter the temporary file tranfer menu
-<tr valign=top><td><b>user_sync</b><td>void<td><tt>bbs.user_sync()
-<td>3.10
-<td>read the current user data from the database
-<tr valign=top><td><b>user_config</b><td>void<td><tt>bbs.user_config()
-<td>3.10
-<td>enter the user settings configuration menu
-<tr valign=top><td><b>sys_info</b><td>void<td><tt>bbs.sys_info()
-<td>3.10
-<td>display system information
-<tr valign=top><td><b>sub_info</b><td>void<td><tt>bbs.sub_info([subboard])
-<td>3.10
-<td>display message sub-board information (current <i>subboard</i>, if unspecified)
-<tr valign=top><td><b>dir_info</b><td>void<td><tt>bbs.dir_info([directory])
-<td>3.10
-<td>display file directory information (current <i>directory</i>, if unspecified)
-<tr valign=top><td><b>user_info</b><td>void<td><tt>bbs.user_info()
-<td>3.10
-<td>display current user information
-<tr valign=top><td><b>ver</b><td>void<td><tt>bbs.ver()
-<td>3.10
-<td>display software version information
-<tr valign=top><td><b>sys_stats</b><td>void<td><tt>bbs.sys_stats()
-<td>3.10
-<td>display system statistics
-<tr valign=top><td><b>node_stats</b><td>void<td><tt>bbs.node_stats()
-<td>3.10
-<td>display current node statistics
-<tr valign=top><td><b>list_users</b><td>void<td><tt>bbs.list_users()
-<td>3.10
-<td>display user list
-<tr valign=top><td><b>edit_user</b><td>void<td><tt>bbs.edit_user()
-<td>3.10
-<td>enter the user editor
-<tr valign=top><td><b>change_user</b><td>void<td><tt>bbs.change_user()
-<td>3.10
-<td>change to a different user
-<tr valign=top><td><b>list_logons</b><td>void<td><tt>bbs.list_logons()
-<td>3.10
-<td>display the logon list
-<tr valign=top><td><b>read_mail</b><td>void<td><tt>bbs.read_mail()
-<td>3.10
-<td>read private e-mail
-<tr valign=top><td><b>email</b><td>boolean<td><tt>bbs.email(number user [,number mode] [,string top] [,string subject])
-<td>3.10
-<td>send private e-mail or netmail
-<tr valign=top><td><b>netmail</b><td>boolean<td><tt>bbs.netmail(string address [,number mode] [,string subject])
-<td>3.10
-<td>send private netmail
-<tr valign=top><td><b>bulk_mail</b><td>void<td><tt>bbs.bulk_mail([ars])
-<td>3.10
-<td>send bulk private e-mail
-<tr valign=top><td><b>upload_file</b><td>boolean<td><tt>bbs.upload_file(directory)
-<td>3.10
-<td>upload file to file directory specified by number or internal code
-<tr valign=top><td><b>bulk_upload</b><td>boolean<td><tt>bbs.bulk_upload(directory)
-<td>3.10
-<td>add files (already in local storage path) to file directory specified by number or internal code
-<tr valign=top><td><b>resort_dir</b><td>boolean<td><tt>bbs.resort_dir(directory)
-<td>3.10
-<td>re-sort the file directory specified by number or internal code)
-<tr valign=top><td><b>list_files</b><td>number<td><tt>bbs.list_files(directory [,string filespec] [,number mode])
-<td>3.10
-<td>list files in the specified file directory, optionally specifying a file specification (wildcards) and <i>mode</i> (bitfield)
-<tr valign=top><td><b>list_file_info</b><td>number<td><tt>bbs.list_file_info(directory [,string filespec] [,number mode])
-<td>3.10
-<td>list extended file information for files in the specified file directory
-<tr valign=top><td><b>post_msg</b><td>boolean<td><tt>bbs.post_msg(sub-board [,number mode])
-<td>3.10
-<td>post a message in the specified message sub-board (number or internal code) with optinal <i>mode</i> (bitfield)
-<tr valign=top><td><b>cfg_msg_scan</b><td>void<td><tt>bbs.cfg_msg_scan([number type])
-<td>3.10
-<td>configure message scan (<i>type</i> is either <tt>SCAN_CFG_NEW</tt> or <tt>SCAN_CFG_TOYOU</tt>)
-<tr valign=top><td><b>cfg_msg_ptrs</b><td>void<td><tt>bbs.cfg_msg_ptrs([number type])
-<td>3.10
-<td>change message scan pointer values (<i>type</i> is either <tt>SCAN_CFG_NEW</tt> or <tt>SCAN_CFG_TOYOU</tt>)
-<tr valign=top><td><b>reinit_msg_ptrs</b><td>void<td><tt>bbs.reinit_msg_ptrs()
-<td>3.10
-<td>re-initialize new message scan pointers
-<tr valign=top><td><b>scan_subs</b><td>void<td><tt>bbs.scan_subs([number mode, boolean all])
-<td>3.10
-<td>scan sub-boards for messages
-<tr valign=top><td><b>scan_dirs</b><td>void<td><tt>bbs.scan_dirs([number mode, boolean all])
-<td>3.10
-<td>scan directories for files
-<tr valign=top><td><b>scan_posts</b><td>boolean<td><tt>bbs.scan_posts([sub-board, number mode, string find])
-<td>3.10
-<td>scan posts in the specified message sub-board (number or internal code), optionally search for 'find' string
-<tr valign=top><td><b>menu</b><td>void<td><tt>bbs.menu(base_filename)
-<td>3.10
-<td>display a menu file from the text/menu directory
-<tr valign=top><td><b>log_key</b><td>boolean<td><tt>bbs.log_key(key [,boolean comma])
-<td>3.10
-<td>log key to node.log (comma optional)
-<tr valign=top><td><b>log_str</b><td>boolean<td><tt>bbs.log_str(text)
-<td>3.10
-<td>log string to node.log
-<tr valign=top><td><b>finduser</b><td>number<td><tt>bbs.finduser(username_or_number)
-<td>3.10
-<td>find user name (partial name support), interactive
-<tr valign=top><td><b>trashcan</b><td>boolean<td><tt>bbs.trashcan(base_filename, search_string)
-<td>3.10
-<td>search file for psuedo-regexp (search string) in trashcan file (text/base_filename.can)
-<tr valign=top><td><b>exec</b><td>number<td><tt>bbs.exec(cmdline [,number mode] [,string startup_dir])
-<td>3.10
-<td>execute a program, optionally changing current directory to <i>startup_dir</i> (see <tt>EX_*</tt> in <tt>sbbsdefs.js</tt> for valid <i>mode</i> bits)
-<tr valign=top><td><b>exec_xtrn</b><td>boolean<td><tt>bbs.exec_xtrn(xtrn_number_or_code)
-<td>3.10
-<td>execute external program by internal code
-<tr valign=top><td><b>user_event</b><td>boolean<td><tt>bbs.user_event(number event_type)
-<td>3.10
-<td>execute user event by event type (see <tt>EVENT_*</tt> in <tt>sbbsdefs.js</tt> for valid values)
-<tr valign=top><td><b>telnet_gate</b><td>void<td><tt>bbs.telnet_gate(string address [,number mode])
-<td>3.10
-<td>external telnet gateway (see <tt>TG_*</tt> in <tt>sbbsdefs.js</tt> for valid <i>mode</i> bits)
-<tr valign=top><td><b>check_syspass</b><td>boolean<td><tt>bbs.check_syspass()
-<td>3.10
-<td>prompt for and verify system password
-<tr valign=top><td><b>good_password</b><td>string<td><tt>bbs.good_password(string password)
-<td>3.10
-<td>check if requested user password meets minimum password requirements (length, uniqueness, etc.)
-<tr valign=top><td><b>page_sysop</b><td>boolean<td><tt>bbs.page_sysop()
-<td>3.10
-<td>page the sysop for chat
-<tr valign=top><td><b>page_guru</b><td>boolean<td><tt>bbs.page_guru()
-<td>3.10
-<td>page the guru for chat
-<tr valign=top><td><b>multinode_chat</b><td>void<td><tt>bbs.multinode_chat()
-<td>3.10
-<td>enter multi-node chat
-<tr valign=top><td><b>private_message</b><td>void<td><tt>bbs.private_message()
-<td>3.10
-<td>use the private inter-node message prompt
-<tr valign=top><td><b>private_chat</b><td>void<td><tt>bbs.private_chat()
-<td>3.10
-<td>enter private inter-node chat
-<tr valign=top><td><b>get_node_message</b><td>void<td><tt>bbs.get_node_message()
-<td>3.10
-<td>receive and display an inter-node message
-<tr valign=top><td><b>put_node_message</b><td>boolean<td><tt>bbs.put_node_message(number node, string text)
-<td>3.10
-<td>send an inter-node message
-<tr valign=top><td><b>get_telegram</b><td>void<td><tt>bbs.get_telegram([number usernum])
-<td>3.10
-<td>receive and display a telegram
-<tr valign=top><td><b>put_telegram</b><td>boolean<td><tt>bbs.put_telegram(number user, string text)
-<td>3.10
-<td>send a telegram to a user
-<tr valign=top><td><b>list_nodes</b><td>void<td><tt>bbs.list_nodes()
-<td>3.10
-<td>list all nodes
-<tr valign=top><td><b>whos_online</b><td>void<td><tt>bbs.whos_online()
-<td>3.10
-<td>list active nodes only (who's online)
-<tr valign=top><td><b>spy</b><td>void<td><tt>bbs.spy(node_number)
-<td>3.10
-<td>spy on a node
-<tr valign=top><td><b>cmdstr</b><td>string<td><tt>bbs.cmdstr(string str [,string fpath] [,string fspec])
-<td>3.10
-<td>return expanded command string using Synchronet command-line specifiers
-<tr valign=top><td><b>get_filespec</b><td>string<td><tt>bbs.get_filespec()
-<td>3.10
-<td>returns a file specification input by the user (optionally with wildcards)
-<tr valign=top><td><b>get_newscantime</b><td>number<td><tt>bbs.get_newscantime(number time)
-<td>3.10
-<td>confirm or change newscan time, returns new newscan time value (time_t format)
-<tr valign=top><td><b>select_shell</b><td>boolean<td><tt>bbs.select_shell()
-<td>3.10
-<td>prompt user to select a new command shell
-<tr valign=top><td><b>select_editor</b><td>boolean<td><tt>bbs.select_editor()
-<td>3.10
-<td>prompt user to select a new external message editor
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>bbs</tt>
-<a name=bbs_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>sys_status</b><td>number
-<td>3.10
-<td>system status bitfield (see <tt>SS_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>startup_options</b><td>number
-<td>3.10
-<td>startup options bitfield (see <tt>BBS_OPT_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>answer_time</b><td>number
-<td>3.10
-<td>answer time, in time_t format
-<tr valign=top><td><b>logon_time</b><td>number
-<td>3.10
-<td>logon time, in time_t format
-<tr valign=top><td><b>new_file_time</b><td>number
-<td>3.10
-<td>file newscan time, in time_t format
-<tr valign=top><td><b>last_new_file_time</b><td>number
-<td>3.10
-<td>previous newscan time, in time_t format
-<tr valign=top><td><b>online</b><td>number
-<td>3.10
-<td>online (see <tt>ON_*</tt> in <tt>sbbsdefs.js</tt> for valid values)
-<tr valign=top><td><b>time_left</b><td>number
-<td>3.11
-<td>time left (in seconds)
-<tr valign=top><td><b>event_time</b><td>number
-<td>3.11
-<td>time of next exclusive event (in time_t format), or 0 if none
-<tr valign=top><td><b>event_code</b><td>string
-<td>3.11
-<td>internal code of next exclusive event
-<tr valign=top><td><b>node_num</b><td>number
-<td>3.10
-<td>current node number
-<tr valign=top><td><b>node_settings</b><td>number
-<td>3.10
-<td>current node settings bitfield (see <tt>NM_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>node_action</b><td>number
-<td>3.10
-<td>current node action (see <tt>nodedefs.js</tt> for valid values)
-<tr valign=top><td><b>node_val_user</b><td>number
-<td>3.10
-<td>validation feedback user for this node (or 0 for no validation feedback required)
-<tr valign=top><td><b>logon_ulb</b><td>number
-<td>3.10
-<td>bytes uploaded during this session
-<tr valign=top><td><b>logon_dlb</b><td>number
-<td>3.10
-<td>bytes downloaded during this session
-<tr valign=top><td><b>logon_uls</b><td>number
-<td>3.10
-<td>files uploaded during this session
-<tr valign=top><td><b>logon_dls</b><td>number
-<td>3.10
-<td>files downloaded during this session
-<tr valign=top><td><b>logon_posts</b><td>number
-<td>3.10
-<td>messages posted during this session
-<tr valign=top><td><b>logon_emails</b><td>number
-<td>3.10
-<td>e-mails sent during this session
-<tr valign=top><td><b>logon_fbacks</b><td>number
-<td>3.10
-<td>feedback messages sent during this session
-<tr valign=top><td><b>posts_read</b><td>number
-<td>3.10
-<td>messages read during this session
-<tr valign=top><td><b>menu_dir</b><td>string
-<td>3.10
-<td>menu subdirectory (overrides default)
-<tr valign=top><td><b>menu_file</b><td>string
-<td>3.10
-<td>menu file (overrides default)
-<tr valign=top><td><b>main_cmds</b><td>number
-<td>3.10
-<td>total main menu commands received from user during this session
-<tr valign=top><td><b>file_cmds</b><td>number
-<td>3.10
-<td>total file menu commands received from user during this session
-<tr valign=top><td><b>curgrp</b><td>number
-<td>3.10
-<td>current message group
-<tr valign=top><td><b>cursub</b><td>number
-<td>3.10
-<td>current message sub-board
-<tr valign=top><td><b>curlib</b><td>number
-<td>3.10
-<td>current file library
-<tr valign=top><td><b>curdir</b><td>number
-<td>3.10
-<td>current file directory
-<tr valign=top><td><b>connection</b><td>string
-<td>3.10
-<td>remote connection type
-<tr valign=top><td><b>rlogin_name</b><td>string
-<td>3.10
-<td>rlogin name
-<tr valign=top><td><b>client_name</b><td>string
-<td>3.10
-<td>client name
-<tr valign=top><td><b>alt_ul_dir</b><td>number
-<td>3.10
-<td>current alternate upload path number
-<tr valign=top><td><b>smb_group</b><td>string
-<td>3.10
-<td>message group name of message being read
-<tr valign=top><td><b>smb_group_desc</b><td>string
-<td>3.10
-<td>message group description of message being read
-<tr valign=top><td><b>smb_group_number</b><td>number
-<td>3.10
-<td>message group number of message being read
-<tr valign=top><td><b>smb_sub</b><td>string
-<td>3.10
-<td>sub-board name of message being read
-<tr valign=top><td><b>smb_sub_desc</b><td>string
-<td>3.10
-<td>sub-board description of message being read
-<tr valign=top><td><b>smb_sub_code</b><td>string
-<td>3.10
-<td>sub-board internal code of message being read
-<tr valign=top><td><b>smb_sub_number</b><td>number
-<td>3.10
-<td>sub-board number of message being read
-<tr valign=top><td><b>smb_attr</b><td>number
-<td>3.10
-<td>message base attributes
-<tr valign=top><td><b>smb_last_msg</b><td>number
-<td>3.10
-<td>highest message number in message base
-<tr valign=top><td><b>smb_total_msgs</b><td>number
-<td>3.10
-<td>total number of messages in message base
-<tr valign=top><td><b>smb_msgs</b><td>number
-<td>3.10
-<td>number of messages loaded from message base
-<tr valign=top><td><b>smb_curmsg</b><td>number
-<td>3.10
-<td>current message number in message base
-<tr valign=top><td><b>msg_to</b><td>string
-<td>3.10
-<td>message recipient name
-<tr valign=top><td><b>msg_to_ext</b><td>string
-<td>3.10
-<td>message recipient extension
-<tr valign=top><td><b>msg_to_net</b><td>string
-<td>3.10
-<td>message recipient network type
-<tr valign=top><td><b>msg_to_agent</b><td>number
-<td>3.10
-<td>message recipient agent type
-<tr valign=top><td><b>msg_from</b><td>string
-<td>3.10
-<td>message sender name
-<tr valign=top><td><b>msg_from_ext</b><td>string
-<td>3.10
-<td>message sender extension
-<tr valign=top><td><b>msg_from_net</b><td>string
-<td>3.10
-<td>message sender network type
-<tr valign=top><td><b>msg_from_agent</b><td>number
-<td>3.10
-<td>message sender agent type
-<tr valign=top><td><b>msg_replyto</b><td>string
-<td>3.10
-<td>message reply-to name
-<tr valign=top><td><b>msg_replyto_ext</b><td>string
-<td>3.10
-<td>message reply-to extension
-<tr valign=top><td><b>msg_replyto_net</b><td>string
-<td>3.10
-<td>message reply-to network type
-<tr valign=top><td><b>msg_replyto_agent</b><td>number
-<td>3.10
-<td>message reply-to agent type
-<tr valign=top><td><b>msg_subject</b><td>string
-<td>3.10
-<td>message subject
-<tr valign=top><td><b>msg_date</b><td>number
-<td>3.10
-<td>message date/time
-<tr valign=top><td><b>msg_timezone</b><td>number
-<td>3.10
-<td>message time zone
-<tr valign=top><td><b>msg_date_imported</b><td>number
-<td>3.10
-<td>message date/time imported
-<tr valign=top><td><b>msg_attr</b><td>number
-<td>3.10
-<td>message attributes
-<tr valign=top><td><b>msg_auxattr</b><td>number
-<td>3.10
-<td>message auxillary attributes
-<tr valign=top><td><b>msg_netattr</b><td>number
-<td>3.10
-<td>message network attributes
-<tr valign=top><td><b>msg_offset</b><td>number
-<td>3.10
-<td>message header offset
-<tr valign=top><td><b>msg_number</b><td>number
-<td>3.10
-<td>message number
-<tr valign=top><td><b>msg_expiration</b><td>number
-<td>3.10
-<td>message expiration
-<tr valign=top><td><b>msg_forwarded</b><td>number
-<td>3.10
-<td>message forwarded
-<tr valign=top><td><b>msg_thread_orig</b><td>number
-<td>3.10
-<td>message thread, original message number
-<tr valign=top><td><b>msg_thread_next</b><td>number
-<td>3.10
-<td>message thread, next message number
-<tr valign=top><td><b>msg_thread_first</b><td>number
-<td>3.10
-<td>message thread, first reply to this message
-<tr valign=top><td><b>msg_id</b><td>string
-<td>3.10
-<td>message identifier
-<tr valign=top><td><b>msg_reply_id</b><td>string
-<td>3.10
-<td>message replied-to identifier
-<tr valign=top><td><b>msg_delivery_attempts</b><td>number
-<td>3.10
-<td>message delivery attempt counter
-<tr valign=top><td><b>batch_upload_total</b><td>number
-<td>3.10
-<td>number of files in batch upload queue
-<tr valign=top><td><b>batch_dnload_total</b><td>number
-<td>3.10
-<td>number of files in batch download queue
-</table>
-<h2><a name=console>console object</a>
-<br><font size=-1>Controls the user's Telnet/RLogin terminal</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>console</tt>
-<a name=console_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>inkey</b><td>string<td><tt>console.inkey([number mode] [,number timeout])
-<td>3.11
-<td>get a single key with optional <i>timeout</i> in milliseconds (defaults to 0, for no wait), see <tt>K_*</tt> in <tt>sbbsdefs.js</tt> for <i>mode</i> bits
-<tr valign=top><td><b>getkey</b><td>string<td><tt>console.getkey([number mode])
-<td>3.10
-<td>get a single key, with wait, see <tt>K_*</tt> in <tt>sbbsdefs.js</tt> for <i>mode</i> bits
-<tr valign=top><td><b>getstr</b><td>string<td><tt>console.getstr([string][,maxlen][,mode])
-<td>3.10
-<td>get a text string from the user, see <tt>K_*</tt> in <tt>sbbsdefs.js</tt> for <i>mode</i> bits
-<tr valign=top><td><b>getnum</b><td>number<td><tt>console.getnum([maxnum])
-<td>3.10
-<td>get a number between 1 and <i>maxnum</i> from the user
-<tr valign=top><td><b>getkeys</b><td>number<td><tt>console.getkeys(string keys [,maxnum])
-<td>3.10
-<td>get one key from of a list of valid command <i>keys</i>, or a number between 1 and <i>maxnum</i>
-<tr valign=top><td><b>gettemplate</b><td>string<td><tt>console.gettemplate(format [,string] [,mode])
-<td>3.10
-<td>get a string based on template
-<tr valign=top><td><b>ungetstr</b><td>void<td><tt>console.ungetstr()
-<td>3.10
-<td>put a string in the keyboard buffer
-<tr valign=top><td><b>yesno</b><td>boolean<td><tt>console.yesno(string question)
-<td>3.10
-<td>YES/no question
-<tr valign=top><td><b>noyes</b><td>boolean<td><tt>console.noyes(string question)
-<td>3.10
-<td>NO/yes question
-<tr valign=top><td><b>mnemonics</b><td>void<td><tt>console.mnemonics(string text)
-<td>3.10
-<td>print a mnemonics string
-<tr valign=top><td><b>clear</b><td>void<td><tt>console.clear()
-<td>3.10
-<td>clear screen and home cursor
-<tr valign=top><td><b>home</b><td>void<td><tt>console.home()
-<td>3.11
-<td>send cursor to home position (x,y:1,1)
-<tr valign=top><td><b>clearline</b><td>void<td><tt>console.clearline()
-<td>3.10
-<td>clear current line
-<tr valign=top><td><b>cleartoeol</b><td>void<td><tt>console.cleartoeol()
-<td>3.11
-<td>clear to end-of-line (ANSI)
-<tr valign=top><td><b>crlf</b><td>void<td><tt>console.crlf()
-<td>3.10
-<td>output a carriage-return/line-feed pair (new-line)
-<tr valign=top><td><b>pause</b><td>void<td><tt>console.pause()
-<td>3.10
-<td>display pause prompt and wait for key hit
-<tr valign=top><td><b>beep</b><td>void<td><tt>console.beep([number count])
-<td>3.11
-<td>beep for count number of times (default count is 1)
-<tr valign=top><td><b>print</b><td>void<td><tt>console.print(string text)
-<td>3.10
-<td>display a string (supports Ctrl-A codes)
-<tr valign=top><td><b>write</b><td>void<td><tt>console.write(string text)
-<td>3.10
-<td>display a raw string
-<tr valign=top><td><b>putmsg</b><td>void<td><tt>console.putmsg(string text [,number mode])
-<td>3.10
-<td>display message text (Ctrl-A codes, @-codes, pipe codes, etc), see <tt>P_*</tt> in <tt>sbbsdefs.js</tt> for <i>mode</i> bits
-<tr valign=top><td><b>center</b><td>void<td><tt>console.center(string text)
-<td>3.10
-<td>display a string centered on the screen
-<tr valign=top><td><b>strlen</b><td>number<td><tt>console.strlen(string text)
-<td>3.10
-<td>returns the number of characters in text, excluding Ctrl-A codes
-<tr valign=top><td><b>printfile</b><td>void<td><tt>console.printfile(string text [,number mode])
-<td>3.10
-<td>print a message text file with optional mode
-<tr valign=top><td><b>printtail</b><td>void<td><tt>console.printtail(string text, number lines [,number mode])
-<td>3.10
-<td>print last x lines of file with optional mode
-<tr valign=top><td><b>editfile</b><td>void<td><tt>console.editfile(string filename)
-<td>3.10
-<td>edit/create a text file using the user's preferred message editor
-<tr valign=top><td><b>uselect</b><td>number<td><tt>console.uselect([number, string title, string item, string ars])
-<td>3.10
-<td>user selection menu, call for each item, then with no args to display select menu
-<tr valign=top><td><b>saveline</b><td>void<td><tt>console.saveline()
-<td>3.10
-<td>save last output line
-<tr valign=top><td><b>restoreline</b><td>void<td><tt>console.restoreline()
-<td>3.10
-<td>restore last output line
-<tr valign=top><td><b>ansi</b><td>string<td><tt>console.ansi(number attribute)
-<td>3.10
-<td>returns ANSI encoding of specified attribute
-<tr valign=top><td><b>pushxy</b><td>void<td><tt>console.pushxy()
-<td>3.11
-<td>save current cursor position (AKA ansi_save)
-<tr valign=top><td><b>popxy</b><td>void<td><tt>console.popxy()
-<td>3.11
-<td>restore saved cursor position (AKA ansi_restore)
-<tr valign=top><td><b>gotoxy</b><td>void<td><tt>console.gotoxy(number x,y)
-<td>3.11
-<td>Move cursor to a specific screen coordinate (ANSI), arguments can be separate x and y cooridinates or an object with x and y properites (like that returned from <tt>console.getxy()</tt>)
-<tr valign=top><td><b>up</b><td>void<td><tt>console.up([number rows])
-<td>3.11
-<td>Move cursor up one or more rows (ANSI)
-<tr valign=top><td><b>down</b><td>void<td><tt>console.down([number rows])
-<td>3.11
-<td>Move cursor down one or more rows (ANSI)
-<tr valign=top><td><b>right</b><td>void<td><tt>console.right([number columns])
-<td>3.11
-<td>Move cursor right one or more columns (ANSI)
-<tr valign=top><td><b>left</b><td>void<td><tt>console.left([number columns])
-<td>3.11
-<td>Move cursor left one or more columns (ANSI)
-<tr valign=top><td><b>getlines</b><td>void<td><tt>console.getlines()
-<td>3.11
-<td>Auto-detect the number of rows/lines on the user's terminal (ANSI)
-<tr valign=top><td><b>getxy</b><td>object<td><tt>console.getxy()
-<td>3.11
-<td>Returns the current cursor position as an object (with x and y properties)
-<tr valign=top><td><b>lock_input</b><td>void<td><tt>console.lock_input([boolean lock])
-<td>3.10
-<td>Lock the user input thread (allowing direct client socket access)
-<tr valign=top><td><b>telnet_cmd</b><td>void<td><tt>console.telnet_cmd(number cmd [,number option])
-<td>3.10
-<td>Send telnet command (with optional command option) to remote client
-<tr valign=top><td><b>handle_ctrlkey</b><td>boolean<td><tt>console.handle_ctrlkey(string key [,number mode])
-<td>3.11
-<td>Call internal control key handler for specified control key, returns true if handled
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>console</tt>
-<a name=console_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>status</b><td>number
-<td>3.10
-<td>status bitfield (see <tt>CON_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>line_counter</b><td>number
-<td>3.10
-<td>current line counter (used for automatic screen pause)
-<tr valign=top><td><b>attributes</b><td>number
-<td>3.10
-<td>current display attributes (set with number or string value)
-<tr valign=top><td><b>top_of_screen</b><td>number
-<td>3.10
-<td>set to 1 if the terminal cursor is already at the top of the screen
-<tr valign=top><td><b>screen_rows</b><td>number
-<td>3.10
-<td>number of terminal screen rows (in lines)
-<tr valign=top><td><b>screen_columns</b><td>number
-<td>3.11
-<td>number of terminal screen columns (in character cells)
-<tr valign=top><td><b>autoterm</b><td>number
-<td>3.10
-<td>bitfield of automatically detected terminal settings (see <tt>USER_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>terminal</b><td>string
-<td>3.11
-<td>terminal type description (e.g. 'ANSI')
-<tr valign=top><td><b>timeout</b><td>number
-<td>3.10
-<td>user inactivity timeout reference
-<tr valign=top><td><b>timeleft_warning</b><td>number
-<td>3.10
-<td>low timeleft warning flag
-<tr valign=top><td><b>aborted</b><td>number
-<td>3.10
-<td>input/output has been aborted
-<tr valign=top><td><b>abortable</b><td>number
-<td>3.10
-<td>output can be aborted with Ctrl-C
-<tr valign=top><td><b>telnet_mode</b><td>number
-<td>3.10
-<td>current telnet mode bitfield (see <tt>TELNET_MODE_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)
-<tr valign=top><td><b>wordwrap</b><td>string
-<td>3.10
-<td>word-wrap buffer (used by getstr) - <small>READ ONLY</small>
-<tr valign=top><td><b>question</b><td>string
-<td>3.10
-<td>current yes/no question (set by yesno and noyes)
-<tr valign=top><td><b>getstr_offset</b><td>number
-<td>3.11
-<td>cursor position offset for use with <tt>getstr(K_USEOFFSET)</tt>
-<tr valign=top><td><b>ctrlkey_passthru</b><td>number
-<td>3.10
-<td>control key pass-through bitmask, set bits represent control key combinations <i>not</i> handled by <tt>inkey()</tt> method
-</table>
-<h2><a name=msg_area>msg_area object</a>
-<br><font size=-1>Message Areas</font>
-</h2>
-<h2><a name=msg_area.sub>msg_area.sub object</a>
-<br><font size=-1>Associative array of all sub-boards (use internal code as index)</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<h2><a name=msg_area.grp_list>msg_area.grp_list array</a>
-<br><font size=-1>Message Groups</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>msg_area.grp_list</tt>
-<a name=msg_area.grp_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>group number
-<tr valign=top><td><b>name</b><td>string
-<td>group name
-<tr valign=top><td><b>description</b><td>string
-<td>group description
-<tr valign=top><td><b>ars</b><td>string
-<td>group access requirements
-</table>
-<h2><a name=msg_area.grp_list.sub_list>msg_area.grp_list.sub_list array</a>
-<br><font size=-1>Message Sub-boards</h2>(all properties are <small>READ ONLY</small> except for <i>scan_ptr</i>, <i>scan_cfg</i>, and <i>last_read</i>)</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>msg_area.grp_list.sub_list</tt>
-<a name=msg_area.grp_list.sub_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>sub-board number
-<tr valign=top><td><b>grp_number</b><td>number
-<td>group number
-<tr valign=top><td><b>code</b><td>string
-<td>sub-board internal code
-<tr valign=top><td><b>name</b><td>string
-<td>sub-board name
-<tr valign=top><td><b>description</b><td>string
-<td>sub-board description
-<tr valign=top><td><b>qwk_name</b><td>string
-<td>sub-board QWK name
-<tr valign=top><td><b>newsgroup</b><td>string
-<td>newsgroup name (as configured or dymamically generated)
-<tr valign=top><td><b>ars</b><td>string
-<td>sub-board access requirements
-<tr valign=top><td><b>read_ars</b><td>string
-<td>sub-board reading requirements
-<tr valign=top><td><b>post_ars</b><td>string
-<td>sub-board posting requirements
-<tr valign=top><td><b>operator_ars</b><td>string
-<td>sub-board operator requirements
-<tr valign=top><td><b>moderated_ars</b><td>string
-<td>sub-board moderated-user requirements (if non-blank)
-<tr valign=top><td><b>data_dir</b><td>string
-<td>sub-board data storage location
-<tr valign=top><td><b>fidonet_origin</b><td>string
-<td>FidoNet origin line
-<tr valign=top><td><b>qwknet_tagline</b><td>string
-<td>QWK Network tagline
-<tr valign=top><td><b>settings</b><td>number
-<td>toggle options (bitfield)
-<tr valign=top><td><b>ptridx</b><td>number
-<td>index into message scan configuration/pointer file
-<tr valign=top><td><b>qwk_conf</b><td>number
-<td>QWK conference number
-<tr valign=top><td><b>max_crcs</b><td>number
-<td>configured maximum number of message CRCs to store (for dupe checking)
-<tr valign=top><td><b>max_msgs</b><td>number
-<td>configured maximum number of messages before purging
-<tr valign=top><td><b>max_age</b><td>number
-<td>configured maximum age (in days) of messages before expiration
-<tr valign=top><td><b>can_read</b><td>boolean
-<td>user has sufficient access to read messages
-<tr valign=top><td><b>can_post</b><td>boolean
-<td>user has sufficient access to post messages
-<tr valign=top><td><b>is_operator</b><td>boolean
-<td>user has operator access to this message area
-<tr valign=top><td><b>is_moderated</b><td>boolean
-<td>user's posts are moderated
-<tr valign=top><td><b>scan_ptr</b><td>number
-<td>user's current new message scan pointer (highest-read message number)
-<tr valign=top><td><b>scan_cfg</b><td>number
-<td>user's message scan configuration (bitfield) see <tt>SUB_SCAN_*</tt> in <tt>sbbsdefs.js</tt> for valid bits
-<tr valign=top><td><b>lead_read</b><td>number
-<td>user's last-read message number
-</table>
-<h2><a name=file_area>file_area object</a>
-<br><font size=-1>File Transfer Areas</font>
-</h2>
-<h2><a name=file_area.dir>file_area.dir object</a>
-<br><font size=-1>Associative array of all directories (use internal code as index)</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>file_area</tt>
-<a name=file_area_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>min_diskspace</b><td>number
-<tr valign=top><td><b>settings</b><td>number
-</table>
-<h2><a name=file_area.lib_list>file_area.lib_list array</a>
-<br><font size=-1>File Transfer Libraries</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>file_area.lib_list</tt>
-<a name=file_area.lib_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>library number
-<tr valign=top><td><b>name</b><td>string
-<td>library name
-<tr valign=top><td><b>description</b><td>string
-<td>library description
-<tr valign=top><td><b>ars</b><td>string
-<td>library access requirements
-<tr valign=top><td><b>link</b><td>string
-<td>library link (for HTML index)
-</table>
-<h2><a name=file_area.lib_list.dir_list>file_area.lib_list.dir_list array</a>
-<br><font size=-1>File Transfer Directories</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>file_area.lib_list.dir_list</tt>
-<a name=file_area.lib_list.dir_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>directory number
-<tr valign=top><td><b>lib_number</b><td>number
-<td>library number
-<tr valign=top><td><b>code</b><td>string
-<td>directory internal code
-<tr valign=top><td><b>name</b><td>string
-<td>directory name
-<tr valign=top><td><b>description</b><td>string
-<td>directory description
-<tr valign=top><td><b>path</b><td>string
-<td>directory file storage location
-<tr valign=top><td><b>ars</b><td>string
-<td>directory access requirements
-<tr valign=top><td><b>upload_ars</b><td>string
-<td>directory upload requirements
-<tr valign=top><td><b>download_ars</b><td>string
-<td>directory download requirements
-<tr valign=top><td><b>exempt_ars</b><td>string
-<td>directory exemption requirements
-<tr valign=top><td><b>operator_ars</b><td>string
-<td>directory operator requirements
-<tr valign=top><td><b>extensions</b><td>string
-<td>allowed file extensions (comma delimited)
-<tr valign=top><td><b>upload_sem</b><td>string
-<td>upload semaphore file
-<tr valign=top><td><b>data_dir</b><td>string
-<td>directory data storage location
-<tr valign=top><td><b>settings</b><td>number
-<td>toggle options (bitfield)
-<tr valign=top><td><b>seqdev</b><td>number
-<td>sequential (slow storage) device number
-<tr valign=top><td><b>sort</b><td>number
-<td>sort order (see <tt>SORT_*</tt> in <tt>sbbsdefs.js</tt> for valid values)
-<tr valign=top><td><b>max_files</b><td>number
-<td>configured maximum number of files
-<tr valign=top><td><b>max_age</b><td>number
-<td>configured maximum age (in days) of files before expiration
-<tr valign=top><td><b>upload_credit_pct</b><td>number
-<td>percent of file size awarded uploader in credits upon file upload
-<tr valign=top><td><b>download_credit_pct</b><td>number
-<td>percent of file size awarded uploader in credits upon subsequent downloads
-<tr valign=top><td><b>link</b><td>string
-<td>directory link (for HTML index)
-<tr valign=top><td><b>can_upload</b><td>boolean
-<td>user has sufficient access to upload files
-<tr valign=top><td><b>can_download</b><td>boolean
-<td>user has sufficient access to download files
-<tr valign=top><td><b>is_exempt</b><td>boolean
-<td>user is exempt from download credit costs
-<tr valign=top><td><b>is_operator</b><td>boolean
-<td>user has operator access to this directory
-</table>
-<h2><a name=xtrn_area>xtrn_area object</a>
-<br><font size=-1>External Program Areas</font>
-</h2>
-<h2><a name=xtrn_area.prog>xtrn_area.prog object</a>
-<br><font size=-1>Associative array of all external programs (use internal code as index)</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<h2><a name=xtrn_area.sec_list>xtrn_area.sec_list array</a>
-<br><font size=-1>Online Program (door) Sections</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>xtrn_area.sec_list</tt>
-<a name=xtrn_area.sec_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>external program section number
-<tr valign=top><td><b>code</b><td>string
-<td>external program section internal code
-<tr valign=top><td><b>name</b><td>string
-<td>external program section name
-<tr valign=top><td><b>ars</b><td>string
-<td>external program section access requirements
-</table>
-<h2><a name=xtrn_area.sec_list.prog_list>xtrn_area.sec_list.prog_list array</a>
-<br><font size=-1>Online External Programs (doors)</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>xtrn_area.sec_list.prog_list</tt>
-<a name=xtrn_area.sec_list.prog_list_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>code</b><td>string
-<td>internal code
-<tr valign=top><td><b>name</b><td>string
-<td>name
-<tr valign=top><td><b>cmd</b><td>string
-<td>command-line
-<tr valign=top><td><b>clean_cmd</b><td>string
-<td>clean-up command-line
-<tr valign=top><td><b>startup_dir</b><td>string
-<td>startup directory
-<tr valign=top><td><b>ars</b><td>string
-<td>access requirements
-<tr valign=top><td><b>execution_ars</b><td>string
-<td>execution requirements
-<tr valign=top><td><b>settings</b><td>number
-<td>toggle options (bitfield)
-<tr valign=top><td><b>type</b><td>number
-<td>drop file type
-<tr valign=top><td><b>event</b><td>number
-<td>event type (0=none)
-<tr valign=top><td><b>textra</b><td>number
-<td>extra time given to users running this program
-<tr valign=top><td><b>max_time</b><td>number
-<td>maximum time allowed in program
-<tr valign=top><td><b>cost</b><td>number
-<td>execution cost (credits to run this program)
-<tr valign=top><td><b>number</b><td>number
-<td>program number
-<tr valign=top><td><b>sec_number</b><td>number
-<td>program section number
-<tr valign=top><td><b>can_run</b><td>boolean
-<td>user has sufficient access to run this program
-</table>
-<h2><a name=xtrn_area.event>xtrn_area.event object</a>
-<br><font size=-1>Associative array of all timed events (use internal code as index)</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>xtrn_area.event</tt>
-<a name=xtrn_area.event_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>cmd</b><td>string
-<td>command-line
-<tr valign=top><td><b>startup_dir</b><td>string
-<td>startup directory
-<tr valign=top><td><b>node_num</b><td>number
-<td>node number
-<tr valign=top><td><b>time</b><td>number
-<td>time to execute
-<tr valign=top><td><b>freq</b><td>number
-<td>frequency to execute
-<tr valign=top><td><b>days</b><td>number
-<td>days of week to execute (bitfield)
-<tr valign=top><td><b>mdays</b><td>number
-<td>days of month to execute (bitfield)
-<tr valign=top><td><b>last_run</b><td>number
-<td>date/time last run (in time_t format)
-<tr valign=top><td><b>settings</b><td>number
-<td>toggle options (bitfield)
-</table>
-<h2><a name=xtrn_area.editor>xtrn_area.editor object</a>
-<br><font size=-1>Associative array of all external editors (use internal code as index)</font>
-<font size=-1> - introduced in v3.11</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>xtrn_area.editor</tt>
-<a name=xtrn_area.editor_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>name</b><td>string
-<td>name
-<tr valign=top><td><b>cmd</b><td>string
-<td>command-line
-<tr valign=top><td><b>ars</b><td>string
-<td>access requirements
-<tr valign=top><td><b>settings</b><td>number
-<td>toggle options (bitfield)
-<tr valign=top><td><b>type</b><td>number
-<td>drop file type
-</table>
-<h2><a name=MsgBase>MsgBase class</a>
-<br><font size=-1>Class used for accessing message bases</font>
-</h2>
-<p>To create a new MsgBase object: <tt>var msgbase = new MsgBase('<i>code</i>')</tt><br>where <i>code</i> is a sub-board internal code, or <tt>mail</tt> for the e-mail message base</p>
-<table border=1 width=100%>
-<caption align=left><b><tt>MsgBase</tt>
-<a name=MsgBase_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>open</b><td>boolean<td><tt>MsgBase.open()
-<td>3.10
-<td>open message base
-<tr valign=top><td><b>close</b><td>boolean<td><tt>MsgBase.close()
-<td>3.10
-<td>close message base (if open)
-<tr valign=top><td><b>get_msg_header</b><td>object<td><tt>MsgBase.get_msg_header([boolean by_offset,] number_or_id)
-<td>3.10
-<td>returns a specific message header, <i>null</i> on failure
-<tr valign=top><td><b>put_msg_header</b><td>boolean<td><tt>MsgBase.put_msg_header([boolean by_offset,] number, object header)
-<td>3.10
-<td>write a message header
-<tr valign=top><td><b>get_msg_body</b><td>string<td><tt>MsgBase.get_msg_body([boolean by_offset,] number_or_id [,boolean strip_ctrl_a])
-<td>3.10
-<td>returns the body text of a specific message, <i>null</i> on failure
-<tr valign=top><td><b>get_msg_tail</b><td>string<td><tt>MsgBase.get_msg_tail([boolean by_offset,] number_or_id [,boolean strip_ctrl_a])
-<td>3.10
-<td>returns the tail text of a specific message, <i>null</i> on failure
-<tr valign=top><td><b>get_msg_index</b><td>object<td><tt>MsgBase.get_msg_index([boolean by_offset,] number)
-<td>3.11
-<td>returns a specific message index, <i>null</i> on failure. The index object will contain the following properties:<br><table><tr><td><tt>subject</tt><td>CRC-16 of lowercase message subject<tr><td><tt>to</tt><td>CRC-16 of lowercase recipient's name (or user number if e-mail)<tr><td><tt>from</tt><td>CRC-16 of lowercase sender's name (or user number if e-mail)<tr><td><tt>attr</tt><td>Attribute bitfield<tr><td><tt>time</tt><td>Date/time (in time_t format)<tr><td><tt>number</tt><td>Message number<tr><td><tt>offset</tt><td>Byte-offset into header file</table>
-<tr valign=top><td><b>remove_msg</b><td>boolean<td><tt>MsgBase.remove_msg([boolean by_offset,] number_or_id)
-<td>3.11
-<td>mark message as deleted
-<tr valign=top><td><b>save_msg</b><td>boolean<td><tt>MsgBase.save_msg(object header, string body_text)
-<td>3.10
-<td>create a new message in message base, the <i>header</i> object may contain the following properties:<br><table><tr><td><tt>subject</tt><td>Message subject <i>(required)</i><tr><td><tt>to</tt><td>Recipient's name <i>(required)</i><tr><td><tt>to_ext</tt><td>Recipient's user number (for local e-mail)<tr><td><tt>to_org</tt><td>Recipient's organization<tr><td><tt>to_net_type</tt><td>Recipient's network type (default: 0 for local)<tr><td><tt>to_net_addr</tt><td>Recipient's network address<tr><td><tt>to_agent</tt><td>Recipient's agent type<tr><td><tt>from</tt><td>Sender's name <i>(required)</i><tr><td><tt>from_ext</tt><td>Sender's user number<tr><td><tt>from_org</tt><td>Sender's organization<tr><td><tt>from_net_type</tt><td>Sender's network type (default: 0 for local)<tr><td><tt>from_net_addr</tt><td>Sender's network address<tr><td><tt>from_ip_addr</tt><td>Sender's IP address (if available, for security tracking)<tr><td><tt>from_host_name</tt><td>Sender's host name (if available, for security tracking)<tr><td><tt>replyto</tt><td>Replies should be sent to this name<tr><td><tt>replyto_ext</tt><td>Replies should be sent to this user number<tr><td><tt>replyto_org</tt><td>Replies should be sent to organization<tr><td><tt>replyto_net_type</tt><td>Replies should be sent to this network type<tr><td><tt>replyto_net_addr</tt><td>Replies should be sent to this network address<tr><td><tt>replyto_agent</tt><td>Replies should be sent to this agent type<tr><td><tt>id</tt><td>Message's RFC-822 compliant Message-ID<tr><td><tt>reply_id</tt><td>Message's RFC-822 compliant Reply-ID<tr><td><tt>reverse_path</tt><td>Message's SMTP sender address<tr><td><tt>path</tt><td>Messages's NNTP path<tr><td><tt>newsgroups</tt><td>Message's NNTP newsgroups header<tr><td><tt>ftn_msgid</tt><td>FidoNet FTS-9 Message-ID<tr><td><tt>ftn_reply</tt><td>FidoNet FTS-9 Reply-ID<tr><td><tt>ftn_area</tt><td>FidoNet FTS-4 echomail AREA tag<tr><td><tt>ftn_flags</tt><td>FidoNet FSC-53 FLAGS<tr><td><tt>ftn_pid</tt><td>FidoNet FSC-46 Program Identifier<tr><td><tt>ftn_tid</tt><td>FidoNet FSC-46 Tosser Identifier<tr><td><tt>date</tt><td>RFC-822 formatted date/time<tr><td><tt>attr</tt><td>Attribute bitfield<tr><td><tt>auxattr</tt><td>Auxillary attribute bitfield<tr><td><tt>netattr</tt><td>Network attribute bitfield<tr><td><tt>when_written_time</tt><td>Date/time (in time_t format)<tr><td><tt>when_written_zone</tt><td>Time zone<tr><td><tt>when_imported_time</tt><td>Date/time message was imported<tr><td><tt>when_imported_zone</tt><td>Time zone<tr><td><tt>thread_orig</tt><td>Replying to this message number<tr><td><tt>thread_next</tt><td>Number of next message in this thread<tr><td><tt>thread_first</tt><td>Number of first reply to this message<tr><td><tt>field_list[].type</tt><td>Other SMB header fields (type)<tr><td><tt>field_list[].data</tt><td>Other SMB header fields (data)</table>
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>MsgBase</tt>
-<a name=MsgBase_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>error</b><td>string
-<td>3.10
-<td>last occurred message base error - <small>READ ONLY</small>
-<tr valign=top><td><b>file</b><td>string
-<td>3.10
-<td>base path and filename of message base - <small>READ ONLY</small>
-<tr valign=top><td><b>retry_time</b><td>number
-<td>3.10
-<td>message base open/lock retry timeout (in seconds)
-<tr valign=top><td><b>retry_delay</b><td>number
-<td>3.11
-<td>delay between message base open/lock retries (in milliseconds)
-<tr valign=top><td><b>first_msg</b><td>number
-<td>3.10
-<td>first message number - <small>READ ONLY</small>
-<tr valign=top><td><b>last_msg</b><td>number
-<td>3.10
-<td>last message number - <small>READ ONLY</small>
-<tr valign=top><td><b>total_msgs</b><td>number
-<td>3.10
-<td>total number of messages - <small>READ ONLY</small>
-<tr valign=top><td><b>max_crcs</b><td>number
-<td>3.10
-<td>maximum number of message CRCs to store (for dupe checking) - <small>READ ONLY</small>
-<tr valign=top><td><b>max_msgs</b><td>number
-<td>3.10
-<td>maximum number of messages before expiration - <small>READ ONLY</small>
-<tr valign=top><td><b>max_age</b><td>number
-<td>3.10
-<td>maximum age (in days) of messages to store - <small>READ ONLY</small>
-<tr valign=top><td><b>attributes</b><td>number
-<td>3.10
-<td>message base attributes - <small>READ ONLY</small>
-<tr valign=top><td><b>subnum</b><td>number
-<td>3.10
-<td>sub-board number (0-based, -1 for e-mail) - <small>READ ONLY</small>
-<tr valign=top><td><b>is_open</b><td>boolean
-<td>3.10
-<td><i>true</i> if the message base has been opened successfully - <small>READ ONLY</small>
-</table>
-<h2><a name=MsgBase.cfg>MsgBase.cfg object</a>
-<br><font size=-1>Configuration parameters for this message area (<i>sub-boards only</i>) - <small>READ ONLY</small></font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>MsgBase.cfg</tt>
-<a name=MsgBase.cfg_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>number</b><td>number
-<td>sub-board number
-<tr valign=top><td><b>grp_number</b><td>number
-<td>group number
-<tr valign=top><td><b>code</b><td>string
-<td>sub-board internal code
-<tr valign=top><td><b>name</b><td>string
-<td>sub-board name
-<tr valign=top><td><b>description</b><td>string
-<td>sub-board description
-<tr valign=top><td><b>qwk_name</b><td>string
-<td>sub-board QWK name
-<tr valign=top><td><b>newsgroup</b><td>string
-<td>newsgroup name (as configured or dymamically generated)
-<tr valign=top><td><b>ars</b><td>string
-<td>sub-board access requirements
-<tr valign=top><td><b>read_ars</b><td>string
-<td>sub-board reading requirements
-<tr valign=top><td><b>post_ars</b><td>string
-<td>sub-board posting requirements
-<tr valign=top><td><b>operator_ars</b><td>string
-<td>sub-board operator requirements
-<tr valign=top><td><b>moderated_ars</b><td>string
-<td>sub-board moderated-user requirements (if non-blank)
-<tr valign=top><td><b>data_dir</b><td>string
-<td>sub-board data storage location
-<tr valign=top><td><b>fidonet_origin</b><td>string
-<td>FidoNet origin line
-<tr valign=top><td><b>qwknet_tagline</b><td>string
-<td>QWK Network tagline
-<tr valign=top><td><b>settings</b><td>number
-<td>toggle options (bitfield)
-<tr valign=top><td><b>ptridx</b><td>number
-<td>index into message scan configuration/pointer file
-<tr valign=top><td><b>qwk_conf</b><td>number
-<td>QWK conference number
-<tr valign=top><td><b>max_crcs</b><td>number
-<td>configured maximum number of message CRCs to store (for dupe checking)
-<tr valign=top><td><b>max_msgs</b><td>number
-<td>configured maximum number of messages before purging
-<tr valign=top><td><b>max_age</b><td>number
-<td>configured maximum age (in days) of messages before expiration
-</table>
-<h2><a name=File>File class</a>
-<br><font size=-1>Class used for opening, creating, reading, or writing files on the local file system<p>Special features include:</h2><ol type=disc><li>Exclusive-access files (default) or shared files<ol type=circle><li>optional record-locking<li>buffered or non-buffered I/O</ol><li>Support for binary files<ol type=circle><li>native or network byte order (endian)<li>automatic Unix-to-Unix (<i>UUE</i>), yEncode (<i>yEnc</i>) or Base64 encoding/decoding</ol><li>Support for ASCII text files<ol type=circle><li>supports line-based I/O<ol type=square><li>entire file may be read or written as an array of strings<li>individual lines may be read or written one line at a time</ol><li>supports fixed-length records<ol type=square><li>optional end-of-text (<i>etx</i>) character for automatic record padding/termination<li>Synchronet <tt>.dat</tt> files use an <i>etx</i> value of 3 (Ctrl-C)</ol><li>supports <tt>.ini</tt> formated configuration files<li>optional ROT13 encoding/translation</ol><li>Dynamically-calculated industry standard checksums (e.g. CRC-16, CRC-32, MD5)</ol></font>
-</h2>
-<p>To create a new File object: <tt>var f = new File(filename)</tt></p>
-<table border=1 width=100%>
-<caption align=left><b><tt>File</tt>
-<a name=File_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>open</b><td>boolean<td><tt>File.open([string mode, boolean shareable, number buflen])
-<td>3.10
-<td>open file, <i>shareable</i> defaults to <i>false</i>, <i>buflen</i> defaults to 2048 bytes, mode (default: <tt>w+</tt>) specifies the type of access requested for the file, as follows:<br><tt>r </tt> open for reading; if the file does not exist or cannot be found, the open call fails<br><tt>w </tt> open an empty file for writing; if the given file exists, its contents are destroyed<br><tt>a </tt> open for writing at the end of the file (appending); creates the file first if it doesn�t exist<br><tt>r+</tt> open for both reading and writing (the file must exist)<br><tt>w+</tt> open an empty file for both reading and writing; if the given file exists, its contents are destroyed<br><tt>a+</tt> open for reading and appending<br><tt>b </tt> open in binary (untranslated) mode; translations involving carriage-return and linefeed characters are suppressed (e.g. <tt>r+b</tt>)<br>
-<tr valign=top><td><b>close</b><td>void<td><tt>File.close()
-<td>3.10
-<td>close file
-<tr valign=top><td><b>remove</b><td>boolean<td><tt>File.remove()
-<td>3.10
-<td>remove the file from the disk
-<tr valign=top><td><b>clear_error</b><td>boolean<td><tt>File.clear_error()
-<td>3.10
-<td>clears the current error value (AKA clearError)
-<tr valign=top><td><b>flush</b><td>boolean<td><tt>File.flush()
-<td>3.10
-<td>flush/commit buffers to disk
-<tr valign=top><td><b>rewind</b><td>boolean<td><tt>File.rewind()
-<td>3.11
-<td>repositions the file pointer (<i>position</i>) to the beginning of a file and clears error and end-of-file indicators
-<tr valign=top><td><b>lock</b><td>boolean<td><tt>File.lock([offset, length])
-<td>3.10
-<td>lock file record for exclusive access (file must be opened <i>shareable</i>)
-<tr valign=top><td><b>unlock</b><td>boolean<td><tt>File.unlock([offset, length])
-<td>3.10
-<td>unlock file record for exclusive access
-<tr valign=top><td><b>read</b><td>string<td><tt>File.read([maxlen])
-<td>3.10
-<td>read a string from file (optionally unix-to-unix or base64 decoding in the process), <i>maxlen</i> defaults to the current length of the file minus the current file position
-<tr valign=top><td><b>readln</b><td>string<td><tt>File.readln([maxlen])
-<td>3.10
-<td>read a line-feed terminated string, <i>maxlen</i> defaults to 512 characters
-<tr valign=top><td><b>readBin</b><td>number<td><tt>File.readBin([bytes])
-<td>3.10
-<td>read a binary integer from the file, default number of <i>bytes</i> is 4 (32-bits)
-<tr valign=top><td><b>readAll</b><td>array<td><tt>File.readAll()
-<td>3.10
-<td>read all lines into an array of strings
-<tr valign=top><td><b>write</b><td>boolean<td><tt>File.write(string text [,len])
-<td>3.10
-<td>write a string to the file (optionally unix-to-unix or base64 decoding in the process)
-<tr valign=top><td><b>writeln</b><td>boolean<td><tt>File.writeln([string text])
-<td>3.10
-<td>write a line-feed terminated string to the file
-<tr valign=top><td><b>writeBin</b><td>boolean<td><tt>File.writeBin(value [,bytes])
-<td>3.10
-<td>write a binary integer to the file, default number of <i>bytes</i> is 4 (32-bits)
-<tr valign=top><td><b>writeAll</b><td>boolean<td><tt>File.writeAll(array lines)
-<td>3.10
-<td>write an array of strings to file
-<tr valign=top><td><b>printf</b><td>number<td><tt>File.printf(string format [,args])
-<td>3.10
-<td>write a formatted string to the file (ala fprintf) - <small>CAUTION: for experienced C programmers ONLY</small>
-<tr valign=top><td><b>iniGetSections</b><td>array<td><tt>File.iniGetSections([prefix])
-<td>3.11
-<td>parse all section names from a <tt>.ini</tt> file (format = '<tt>[section]</tt>') and return the section names as an <i>array of strings</i>, optionally, only those section names that begin with the specified <i>prefix</i>
-<tr valign=top><td><b>iniGetKeys</b><td>array<td><tt>File.iniGetKeys(section)
-<td>3.11
-<td>parse all key names from the specified <i>section</i> in a <tt>.ini</tt> file and return the key names as an <i>array of strings</i>
-<tr valign=top><td><b>iniGetValue</b><td>string<td><tt>File.iniGetValue(section, key [,default])
-<td>3.11
-<td>parse a key from a <tt>.ini</tt> file and return its value (format = '<tt>key = value</tt>'). returns the specified <i>default</i> value if the key or value is missing or invalid. will return a <i>bool</i>, <i>number</i>, <i>string</i>, or an <i>array of strings</i> determined by the type of <i>default</i> value specified
-<tr valign=top><td><b>iniGetObject</b><td>object<td><tt>File.iniGetObject(section)
-<td>3.11
-<td>parse an entire section from a .ini file and return all of its keys and values as properties of an object
-<tr valign=top><td><b>iniGetAllObjects</b><td>array<td><tt>File.iniGetAllObjects([name_property] [,prefix])
-<td>3.11
-<td>parse all sections from a .ini file and return all sections and keys an array of objects with each section's keys as properties of each section object, <i>name_property</i> is the name of the property to create to contain the section's name (default is <tt>"name"</tt>), the optional <i>prefix</i> has the same use as in the <tt>iniGetSections</tt> method, if a <i>prefix</i> is specified, it is removed from each section's name
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>File</tt>
-<a name=File_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>name</b><td>string
-<td>3.10
-<td>filename specified in constructor - <small>READ ONLY</small>
-<tr valign=top><td><b>mode</b><td>string
-<td>3.10
-<td>mode string specified in <i>open</i> call - <small>READ ONLY</small>
-<tr valign=top><td><b>exists</b><td>boolean
-<td>3.10
-<td><i>true</i> if the file exists - <small>READ ONLY</small>
-<tr valign=top><td><b>is_open</b><td>boolean
-<td>3.10
-<td><i>true</i> if the file has been opened successfully - <small>READ ONLY</small>
-<tr valign=top><td><b>eof</b><td>boolean
-<td>3.10
-<td><i>true</i> if the current file position is at the <i>end of file</i> - <small>READ ONLY</small>
-<tr valign=top><td><b>error</b><td>number
-<td>3.10
-<td>the last occurred error value (use clear_error to clear) - <small>READ ONLY</small>
-<tr valign=top><td><b>descriptor</b><td>number
-<td>3.10
-<td>the open file descriptor (advanced use only) - <small>READ ONLY</small>
-<tr valign=top><td><b>etx</b><td>number
-<td>3.10
-<td>end-of-text character (advanced use only), if non-zero used by <i>read</i>, <i>readln</i>, and <i>write</i>
-<tr valign=top><td><b>debug</b><td>boolean
-<td>3.10
-<td>set to <i>true</i> to enable debug log output
-<tr valign=top><td><b>position</b><td>number
-<td>3.10
-<td>the current file position (offset in bytes), change value to seek within file
-<tr valign=top><td><b>date</b><td>number
-<td>3.11
-<td>last modified date/time (in time_t format)
-<tr valign=top><td><b>length</b><td>number
-<td>3.10
-<td>the current length of the file (in bytes)
-<tr valign=top><td><b>attributes</b><td>number
-<td>3.10
-<td>file mode/attributes
-<tr valign=top><td><b>network_byte_order</b><td>boolean
-<td>3.11
-<td>set to <i>true</i> if binary data is to be written and read in Network Byte Order (big end first)
-<tr valign=top><td><b>rot13</b><td>boolean
-<td>3.11
-<td>set to <i>true</i> to enable automatic ROT13 translatation of text
-<tr valign=top><td><b>uue</b><td>boolean
-<td>3.11
-<td>set to <i>true</i> to enable automatic Unix-to-Unix encode and decode on <tt>read</tt> and <tt>write</tt> calls
-<tr valign=top><td><b>yenc</b><td>boolean
-<td>3.11
-<td>set to <i>true</i> to enable automatic yEnc encode and decode on <tt>read</tt> and <tt>write</tt> calls
-<tr valign=top><td><b>base64</b><td>boolean
-<td>3.11
-<td>set to <i>true</i> to enable automatic Base64 encode and decode on <tt>read</tt> and <tt>write</tt> calls
-<tr valign=top><td><b>crc16</b><td>number
-<td>3.11
-<td>calculated 16-bit CRC of file contents - <small>READ ONLY</small>
-<tr valign=top><td><b>crc32</b><td>number
-<td>3.11
-<td>calculated 32-bit CRC of file contents - <small>READ ONLY</small>
-<tr valign=top><td><b>chksum</b><td>number
-<td>3.11
-<td>calculated 32-bit checksum of file contents - <small>READ ONLY</small>
-<tr valign=top><td><b>md5_hex</b><td>undefined
-<td>3.11
-<td>calculated 128-bit MD5 digest of file contents as hexadecimal string - <small>READ ONLY</small>
-<tr valign=top><td><b>md5_base64</b><td>undefined
-<td>3.11
-<td>calculated 128-bit MD5 digest of file contents as base64-encoded string - <small>READ ONLY</small>
-</table>
-<h2><a name=Socket>Socket class</a>
-<br><font size=-1>Class used for TCP/IP socket communications</font>
-</h2>
-<p>To create a new Socket object: <tt>load('sockdefs.js'); var s = new Socket(<i>type</i>)</tt><br>where <i>type</i> = <tt>SOCK_STREAM</tt> for TCP (default) or <tt>SOCK_DGRAM</tt> for UDP</p>
-<table border=1 width=100%>
-<caption align=left><b><tt>Socket</tt>
-<a name=Socket_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>close</b><td>void<td><tt>Socket.close()
-<td>3.10
-<td>close (shutdown) the socket immediately
-<tr valign=top><td><b>bind</b><td>boolean<td><tt>Socket.bind([port] [,ip_address])
-<td>3.11
-<td>bind socket to a TCP or UDP <i>port</i> (number or service name), optionally specifying a network interface (via <i>ip_address</i>)
-<tr valign=top><td><b>connect</b><td>boolean<td><tt>Socket.connect(host, port [,timeout])
-<td>3.11
-<td>connect to a remote port (number or service name) on the specified host (IP address or host name), default <i>timeout</i> value is <i>10.0</i> (seconds)
-<tr valign=top><td><b>listen</b><td>boolean<td><tt>Socket.listen()
-<td>3.10
-<td>place socket in a state to listen for incoming connections (use before an accept)
-<tr valign=top><td><b>accept</b><td>object<td><tt>Socket.accept()
-<td>3.10
-<td>accept an incoming connection, returns a new <i>Socket</i> object representing the new connection
-<tr valign=top><td><b>send</b><td>boolean<td><tt>Socket.send(data)
-<td>3.10
-<td>send a string (AKA write)
-<tr valign=top><td><b>sendto</b><td>boolean<td><tt>Socket.sendto(data, address, port)
-<td>3.10
-<td>send data to a specific host (IP address or host name) and port (number or service name), for UDP sockets
-<tr valign=top><td><b>sendfile</b><td>boolean<td><tt>Socket.sendfile(filename)
-<td>3.10
-<td>send an entire file over the socket
-<tr valign=top><td><b>sendBin</b><td>boolean<td><tt>Socket.sendBin(number value [,number bytes])
-<td>3.11
-<td>send a binary integer over the socket, default number of bytes is 4 (32-bits)
-<tr valign=top><td><b>recv</b><td>string<td><tt>Socket.recv([maxlen])
-<td>3.10
-<td>receive a string, default maxlen is 512 characters (AKA read)
-<tr valign=top><td><b>peek</b><td>string<td><tt>Socket.peek([maxlen])
-<td>3.10
-<td>receive a string, default maxlen is 512 characters, leaves string in receive buffer
-<tr valign=top><td><b>recvline</b><td>string<td><tt>Socket.recvline([maxlen] [,timeout])
-<td>3.10
-<td>receive a line-feed terminated string, default maxlen is 512 characters, default timeout is 30 seconds (AKA readline and readln)
-<tr valign=top><td><b>recvfrom</b><td>object<td><tt>Socket.recvfrom([bool binary] [,maxlen or int_size])
-<td>3.11
-<td>receive data (string or integer) from a socket (typically UDP)<p>returns object with <i>ip_address</i> and <i>port</i> of sender along with <i>data</i><p><i>binary</i> defaults to <i>false</i>, <i>maxlen</i> defaults to 512 chars, <i>int_size</i> defaults to 4 bytes (32-bits)
-<tr valign=top><td><b>recvBin</b><td>number<td><tt>Socket.recvBin([number bytes])
-<td>3.11
-<td>receive a binary integer from the socket, default number of bytes is 4 (32-bits)
-<tr valign=top><td><b>getoption</b><td>number<td><tt>Socket.getoption(option)
-<td>3.10
-<td>get socket option value, option may be socket option name (see <tt>sockopts</tt> in <tt>sockdefs.js</tt>) or number
-<tr valign=top><td><b>setoption</b><td>boolean<td><tt>Socket.setoption(option, value)
-<td>3.10
-<td>set socket option value, option may be socket option name (see <tt>sockopts</tt> in <tt>sockdefs.js</tt>) or number
-<tr valign=top><td><b>ioctl</b><td>number<td><tt>Socket.ioctl(command [,argument])
-<td>3.10
-<td>send socket IOCTL (advanced)
-<tr valign=top><td><b>poll</b><td>number<td><tt>Socket.poll([number timeout] [,bool write])
-<td>3.10
-<td>poll socket for read or write ability (default is <i>read</i>), default timeout value is 0.0 seconds (immediate timeout)
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>Socket</tt>
-<a name=Socket_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left width=50>
-<font color="white">Ver</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>error</b><td>number
-<td>3.11
-<td>error status for the last socket operation that failed - <small>READ ONLY</small>
-<tr valign=top><td><b>is_connected</b><td>boolean
-<td>3.10
-<td><i>true</i> if socket is in a connected state - <small>READ ONLY</small>
-<tr valign=top><td><b>is_writeable</b><td>boolean
-<td>3.11
-<td><i>true</i> if socket can accept written data - <small>READ ONLY</small>
-<tr valign=top><td><b>data_waiting</b><td>boolean
-<td>3.10
-<td><i>true</i> if data is waiting to be read from socket - <small>READ ONLY</small>
-<tr valign=top><td><b>nread</b><td>number
-<td>3.10
-<td>number of bytes waiting to be read - <small>READ ONLY</small>
-<tr valign=top><td><b>debug</b><td>number
-<td>3.10
-<td>enable debug logging
-<tr valign=top><td><b>descriptor</b><td>number
-<td>3.10
-<td>socket descriptor (advanced uses only)
-<tr valign=top><td><b>nonblocking</b><td>boolean
-<td>3.10
-<td>use non-blocking operation (default is <i>false</i>)
-<tr valign=top><td><b>local_ip_address</b><td>string
-<td>3.10
-<td>local IP address (string in dotted-decimal format)
-<tr valign=top><td><b>local_port</b><td>number
-<td>3.10
-<td>local TCP or UDP port number
-<tr valign=top><td><b>remote_ip_address</b><td>string
-<td>3.10
-<td>remote IP address (string in dotted-decimal format)
-<tr valign=top><td><b>remote_port</b><td>number
-<td>3.10
-<td>remote TCP or UDP port number
-<tr valign=top><td><b>type</b><td>number
-<td>3.10
-<td>socket type, <tt>SOCK_STREAM</tt> (TCP) or <tt>SOCK_DGRAM</tt> (UDP)
-<tr valign=top><td><b>network_byte_order</b><td>boolean
-<td>3.11
-<td><i>true</i> if binary data is to be sent in Network Byte Order (big end first), default is <i>true</i>
-</table>
-<p><small>
-Totals: 452 properties, 252 methods
diff --git a/docs/kermit.txt b/docs/kermit.txt
deleted file mode 100644
index a0d6f5791ca658d1d140f9820cf961eb911a42b0..0000000000000000000000000000000000000000
--- a/docs/kermit.txt
+++ /dev/null
@@ -1,82 +0,0 @@
-How to add Kermit file transfer protocol support to Synchronet v3
--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-
-By: Rob Swindell (digital man)
-http://www.synchro.net
-
-$Id$
-
-The information in this file is current as of the date above. The instructions
-in this file may change over time, so be sure to get the current version of
-this file at:
-http://cvs.synchro.net/cgi-bin/viewcvs.cgi/*checkout*/docs/kermit.txt
-
-
-Win32
------
-Install MS-DOS Kermit v3.16 beta if you haven't already:
-ftp://kermit.columbia.edu/kermit/test/bin/msk316.zip
-
-Other versions of MS-DOS Kermit can be found here:
-http://www.columbia.edu/kermit/mskermit.html
-
-Extract msk316.exe into your Synchronet EXEC directory and rename it to
-kermit.exe.
-
-Download the latest Synchronet kermit.ini into your EXEC directory:
-http://cvs.synchro.net/cgi-bin/cvsweb.cgi/~checkout~/exec/kermit.ini
-
-Add a new protocol in SCFG->File Options->Transfer Protocols:
-
-Mnemonic (Command Key) K
-Protocol Name Kermit (MS-DOS Kermit)
-Access Requirements !UNIX
-Upload Command Line %!kermit -f %!kermit.ini receive %f
-Download Command Line %!kermit -f %!kermit.ini send %f
-Batch UL Command Line %!kermit -f %!kermit.ini receive
-Batch DL Command Line %!kermit -f %!kermit.ini send @%f
-Bidir Command Line
-Uses DSZLOG No
-
-
-UNIX
-----
-Install G-Kermit (gkermit) on your system if you haven't already:
-http://www.columbia.edu/kermit/gkermit.html
-
-Make sure gkermit is in a directory in your search path (e.g. /usr/bin).
-
-Add a new protocol in SCFG->File Options->Transfer Protocols:
-
-[File Transfer Protocol]
-1: Mnemonic (Command Key) K
-2: Protocol Name Kermit (G-Kermit)
-3: Access Requirements UNIX
-4: Upload Command Line gkermit -q -P -r -a %f
-5: Download Command Line gkermit -q -P -s %f
-6: Batch UL Command Line
-7: Batch DL Command Line gkermit -q -P -s %s
-8: Bidir Command Line
-9: Uses DSZLOG No
-
-Add "gkermit" to SCFG->External Programs->Native Program List.
-
--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-
-v3.10 and earlier versions of Synchronet could not dynamically-generate
-transfer protocol menus, so newly-added protocols will not appear unless
-you manually add the new protocol to your text/menu/*prot.asc file(s).
-
-v3.11 and later can display dynamically-generated menus, so if you're running
-this version or later and have the files text/menu/*prot.asc, you can delete
-them and have new protocols automatically appear on the dynamic menus.
-
--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-
-If you or your BBS users find Kermit support useful, you can thank Michel
-Samson and Winston Smith for their promotion of Kermit and help with testing
-Kermit support in Synchronet.
-
-Send comments/questions to rob@synchro.net
-
-/* End of kermit.txt */
\ No newline at end of file
diff --git a/docs/linux-dosemu.html b/docs/linux-dosemu.html
deleted file mode 100644
index b83b930d659b5dff4b9ea570a16f7faa4acb42f6..0000000000000000000000000000000000000000
--- a/docs/linux-dosemu.html
+++ /dev/null
@@ -1,219 +0,0 @@
-<html>
-
-<head><title>Synchronet BBS DOSEMU Support</title></head>
-
-<body>
-
-<h2>What is this?</h2>
-<p>This is a patch that integrates support for the Linux DOS emulator into the
-<a href="http://www.synchro.net">Synchronet BBS software</a> written by Rob Swindell.
-<p>The purpose of such integration is to enable the sysop to install new DOS doors in
-a simple and straightforward manner, and to be able to easily work around the inevitable
-emulation-related problems that will occur.
-
-<h2>Getting Started</h2>
-
-<h3>SBBSINST (Linux-install from sbbsunix.tgz) flavor</h3>
-If you are using the SBBSINST program to bootstrap your Synchronet installation, just add
-to "Compiler Flags": USE_DOSEMU=1. This is the easiest way to get started.
-
-<h3>CVS Source flavor</h3>
-<p>Follow the instructions in sbbsunix.txt that can
-be found at the Synchronet homepage to get a fresh copy of the source code for the BBS using
-CVS. The support has been integrated but must be enabled at compile time; if you want
-to enable it, when you go to "make" the BBS, do the following:
-<pre>
-$ gmake USE_DOSEMU=1
-</pre>
-<p>Next, complete the initial configuration according to the
-instructions in sbbsunix.txt.
-
-<h2>Setting up a DOS BBS door</h2>
-
-<p>A few requirements first off:
-<ul>
-<li>There must be an <a href="#files">emusetup.bat</a> in your /path/to/sbbs/ctrl directory.
-This batch file configures the DOS environment, and can be used to load additional TSRs,
-change drive letters around, or make any other last minute changes to the environment
-before the door is loaded. The below instructions assume the default drive letters;
-if you change them in emusetup.bat, be sure to use the correct corresponding ones.
-
-<li>The default dosemu binary is /usr/bin/dosemu.bin. If you have a different one that you would
-like all DOS programs that Synchronet launches to use, configure DOSemuPath in sbbs.ini.<br>
-Example:<br>
-DOSemuPath=/usr/local/bin/dosemu.bin
-<br>Be sure to use `dosemu.bin` and not the `dosemu` wrapper script.
-
-<li>Ensure that you have a working dosemu setup before trying to set it up with Synchronet.
-For Debian, simply `apt-get install dosemu dosemu-freedos`. For other distributions,
-you will need to first install and configure dosemu, and then install FreeDOS (or your DOS
-of choice) and set it up to work with dosemu. (Some details on this procedure are outlined
-below.)
-</ul>
-
-<h3>To configure a DOS BBS door in scfg:</h3>
-
-<ul>
-<li><b>Startup Directory</b>: /path/to/the/door (or ../xtrn/mydoor)
-<li><b>Program name</b>: program.exe %params (or program.bat %params)
-<li><b>Multiuser</b>: Yes/No depending on the program
-<li><b>Redirect STDIO</b>: No (instructs Synchronet to use vmodem support)
-<li><b>Native Program</b>: No (instructs Synchronet to handle the door through DOSEMU)
-<li><b>Dropfile</b>: pick a dropfile type that the door knows how to handle
-<li><b>Use Lowercase</b>: Yes
-<li><b>Dropfile Dir</b>: Place in Node Directory
-
-</ul>
-
-<p>You probably want to also add the door's setup program as a standard I/O program
-(see <a href="#stdio">below</a> for details on standard I/O programs).
-
-<p>When you set up the door, point it to D:\ for the dropfile path. Also, generally
-it would be a good idea to tell the door to use a fossil driver, unless it doesn't work or
-produces strange results (like missing lines or dropped characters),
-in which case you can use the internal comm routines of the door.
-
-<p>The door's actual directory will be mounted on E:\ with the root of E: being the parent
-directory of the door. So if your door is in /usr/local/games/tw2002 on the Unix side, it
-will be in E:\tw2002 on the DOS side. Make sure the door's directory conforms to the DOS
-8.3 file format! /usr/local/games/tw2002 would be okay, but /usr/local/games/TradeWars2002
-would not. The symptom of a non-conforming directory is a "file not found" when
-Synchronet tries to change to the DOS door's directory inside DOSEMU.
-
-<p>Make SURE that if the door is started with a .bat batch file, that you explicitly
-name it as such in the "Program Name" field. For instance, LORD's "start.bat" command
-would be entered as "start.bat %#", not just "start %#". Failure to do this will cause
-the session to be hung inside DOSEMU when the user exits the door. (You can still exit
-by blindly typing exitemu when this happens.)
-
-
-<a name="stdio"></a>
-<h2>Setting up a non-door DOS program as a door</h2>
-
-<p>For the most part, setting up a non-door DOS program is done following the same procedure as
-a door. The key difference is that you <b>set Redirect STDIO to Yes</b> for a program
-that is not designed specifically to run as a BBS door.
-
-<p>You can also set up timed events (e.g. door daily maintenance programs) in this same manner.
-Just make sure Native Program is set to "No" and it will work fine.
-
-<ul>
-<li>Startup Directory: /path/to/the/door (or ../xtrn/mydoor)
-<li>Program name: program.exe %params
-<li>Multiuser: Yes/No depending on the program
-<li>Redirect STDIO: Yes
-<li>Native Program: No
-<li>Dropfile: pick something if the program wants/needs it.
-<li>Use Lowercase: Yes
-<li>Dropfile Dir: Place in Node Directory
-
-</ul>
-
-<p>It would probably be a good idea to set up command.com as an external, so that you
-can get access to a DOS shell through the board. From there, you can do things like
-the initial unzipping and setup of door software with ease.
-
-<h2>Customization of your Synchronet DOSEMU setup</h2>
-
-<p>File Search Precedence:
-<br>The following table describes in what order Synchronet will look for various files
-needed for starting DOSEMU. If a file does not exist in one location or cannot be
-read, the next location will be tried until there are no more possible locations.
-<p>
-<table border=1><tr><th></th><th>dosemu.bin</th><th>emusetup.bat</th><th>dosemu.conf</th></tr>
-<tr><td>First</td><td>startup_dir</td><td>startup_dir</td><td>startup_dir</td></tr>
-<tr><td>Second</td><td>DOSemuPath</td><td>$SBBSCTRL</td><td>$SBBSCTRL</td></tr>
-<tr><td>Third</td><td></td><td></td><td>/etc/dosemu/dosemu.conf</td></tr>
-</table>
-
-<p>This is useful because you might want to customize the configuration in order to get
-a particular balky door working. You might want a custom dosemu binary, emusetup.bat,
-and/or dosemu config for that particular door, while maintaining a different set of configurations
-that works for mostly everything else.
-
-<p>make sure you are using a dosemu.conf from the DOSEMU distribution of the
-particular version you are using. (e.g. if using 1.1.4 release, don't use a dosemu.conf from
-1.0.2)
-
-<p>The most up-to-date freedos distribution can be found <A href="http://www.fdos.org/ripcord/dosemu/">here</a> -- this is known to fix problems with Tradewars 2002. You might consider trying DR-DOS if you have problems with FreeDOS. However, be certain that you use the autoexec.bat from the FreeDOS distribution, as the Synchronet integration depends on it. Also remember to copy the DOSEMU support files into
-c:\dosemu in the DR-DOS hdimage.
-
-<hr>
-<p>emusetup.bat customization: This section is mostly TODO so ignore it for now
-
-<p>emusetup.bat -- changing drive letter mappings, and using variables that
-are passed into it
-
-<p>The default drive letters are:
-<ul>
-<li>D: - The node directory, where the dropfile should probably be put. In door configurations,
-specify this drive (D:\) as the path to the dropfile.
-<li>E: - Under this drive, the door's directory will be mounted. Example: E:\LORD
-<li>F: - The Synchronet control directory
-<li>G: - The Synchronet data directory
-<li>H: - The Synchronet exec directory
-</ul>
-
-<p>Any necessary utils that should be loaded before the door starts (like fossil driver, ansi
-driver, etc) should be placed in the emusetup.bat with a PATH that points to them. The default
-location is in a \dosutils directory immediately preceding the door's directory.
-(For example, if your door is in
-/home/bbs/doors/lord, put the dosutils directory as /home/bbs/doors/dosutils.)
-
-<hr>
-
-<h2>Known Problems</h2>
-
-<p>File locking is dysfunctional with the DOSEMU 1.0.2.x stable releases. File locking
-problems will manifest themselves as strange error messages related to file opens, long
-pauses and/or hangs, game data corruption, and other fun stuff. Note that you do not have
-to be running a multinode BBS to be prone to these issues; most programs detect DOSEMU as
-a multitasker and thus initiate their lock management regardless of whether or not
-multiple sessions of the game will be in use. DOSEMU development releases do not
-have this issue, so you might be better off just to compile and use that.
-
-<p>There is a fix from Bob Newell which is detailed in <a href="faqlinux.htm">this document</a>.
-Included is a kludge for slow screen draws due to incorrect idling that will occur in some games
-such as Planets TEOS.
-
-<p>There is a precompiled version <a href="#files">here</a> that may or may not work on your
-machine. (It was compiled from the Debian sources.) I also maintain builds of development
-versions that you can install that are likely to have fixed many more bugs.
-
-<h3>If you are having other problems:</h3>
-<ul>
-<li>check the dosemu.log and dosemu_boot.log that will be created in the node directory. They
-should give you clues to track down a configuration problem. If those files do not exist, then
-the dosemu.bin is not getting executed properly, so check your sbbs.ini, make sure you have
-dosemu installed, and check for a stale dosemu.bin symlink in the door's directory.
-
-<li>double-check your door's configuration, specifically the paths in scfg and the batch file
-(if any) that starts it.
-<li>Also verify that the paths in the door's configuration problem are correct
-<li>Verify that you have set up enough nodes in the door's configuration to handle all the nodes on your BBS.
-</ul>
-
-<a name="files"></a>
-<h2>Files</h2>
-
-<ul>
-<li><a href="emusetup.bat">emusetup.bat</a>
-<li><a href="dosemu.conf">Example dosemu.conf</a> (for 1.0.2)
-<li><a href="dosutils.tar.gz">A collection of essential DOS BBS utils</a>, such as ANSI drivers and FOSSIL drivers
-<li><a href="dosemu-devel_1.1.5.7-1_i386.deb">DOSEMU Development Version 1.1.5.7</a> compiled for Debian stable/woody
-<li><a href="dosemu_1.0.2.1-7_i386.deb">DOSEMU 1.0.2 compiled for Debian stable/woody, patched for locking fixes</a>
-<li><a href="init/synchronet">Init script to start Synchronet as a daemon</a>
-<li><a href="init/synchronet-screen">Init script to start Synchronet as a detached screen</a>
-<li><a href="sbbs-dosemu.diff">Latest version of the patch</a>
-</ul>
-
-<h2>The Script Method</h2>
-
-<p>There is another way to do this: use a script that launches dosemu. This is the more flexible
-but non-userfriendly way to use dosemu doors on Synchronet. Example stuff can be found
-<a href="rungame.tgz">in this tarball</a>.
-
-<p style="font-size:10px">$Id$
-</body>
-
-</html>
diff --git a/docs/mailer.bat b/docs/mailer.bat
deleted file mode 100755
index 7dc7deacc0f3d1f283090ff5c5929f7260db745f..0000000000000000000000000000000000000000
--- a/docs/mailer.bat
+++ /dev/null
@@ -1,136 +0,0 @@
-@echo off
-rem ***************************************************************************
-rem MAILER.BAT (AKA IMRUN.BAT or FDRUN.BAT) file for use with FrontDoor or
-rem InterMail and Synchronet BBS Version 2
-rem
-rem If you get OUT OF ENVIRONMENT SPACE messages when using this batch file,
-rem increase your DOS environment by adding the following to your CONFIG.SYS:
-rem SHELL=C:\COMMAND.COM /E:1024 /P
-rem ***************************************************************************
-
-rem ***************************************************************************
-rem Set this to IM for InterMail or FD for FrontDoor
-rem ************************************************
-set fd=FD
-
-rem ***************************************************************************
-rem Node Number - needed for NODE utility
-rem *************************************
-set nodenum=1
-
-rem ***************************************************************************
-rem SBBS Directory
-rem **************
-set sbbs=c:\sbbs
-
-rem ***************************************************************************
-rem SBBS CTRL Dir - needed for NODE utility
-rem ***************************************
-set sbbsctrl=%sbbs%\ctrl
-
-rem ***************************************************************************
-rem SBBS NODE Dir - needed for SBBSECHO (use NODE1 directory)
-rem *********************************************************
-set sbbsnode=%sbbs%\node1
-
-:top
-rem ***************************************************************************
-rem Set Node status to WAITING FOR CALL
-rem ***********************************
-%sbbs%\exec\node status=0 %nodenum% rerun off %nodenum% event off %nodenum%
-
-rem ***************************************************************************
-rem Drive letter and directory where Mailer is installed
-rem ****************************************************
-c:
-cd \%fd%
-%fd%
-
-rem ***************************************************************************
-rem These error levels must be set in FDSETUP or IMSETUP!
-rem *****************************************************
-if errorlevel 200 goto fax
-if errorlevel 100 goto bbs
-if errorlevel 75 goto event
-if errorlevel 50 goto inmail
-if errorlevel 25 goto outmail
-if errorlevel 10 goto userbreak
-if errorlevel 1 goto error
-goto end
-
-rem ***************************************************************************
-rem Mailer received in-bound mail from another system
-rem *************************************************
-:inmail
-echo Importing in-bound mail!!!
-rem ***************************************************************************
-rem Set node status to NETWORKING
-rem *****************************
-%sbbs%\exec\node status=6 %nodenum%
-%sbbs%\exec\sbbsecho /les!
-goto top
-
-rem ***************************************************************************
-rem Semaphore file (xxEXIT.025) was signaled by the BBS - new outbound messages
-rem ***************************************************************************
-:outmail
-echo Exporting out-bound mail!!!
-rem ***************************************************************************
-rem Set node status to NETWORKING
-rem *****************************
-%sbbs%\exec\node status=6 %nodenum%
-%sbbs%\exec\sbbsecho /lin
-rem ***************************************************************************
-rem Signal the rescan semaphore so that FD will rescan the netmail folder
-rem *********************************************************************
-rem > fdrescan.now
-goto top
-
-rem ***************************************************************************
-rem Received a call from a user wanting access to the BBS - how dare they!
-rem This actually executes EXEBBS.BAT with the proper switches for SBBS
-rem You will probably also need to edit EXEBBS.BAT for your configuration
-rem *********************************************************************
-:bbs
-dobbs
-
-rem ***************************************************************************
-rem Run any pending events (Remove the 'o' if running SBBS v2.1 or earlier)
-rem ***********************************************************************
-:event
-cd %sbbsnode%
-call sbbs o
-goto top
-
-rem ***************************************************************************
-rem Received a fax call
-rem *******************
-:fax
-cd \zfax
-rcvfax 2 /p:1
-if errorlevel 0 echo riIncoming FAX Notification! >> \bbs\data\msgs\0001.msg
-goto top
-
-rem ***************************************************************************
-rem Quit FD
-rem *******
-:userbreak
-echo User Break.
-goto end
-
-rem ***************************************************************************
-rem Mailer error of some kind
-rem *************************
-:error
-echo %fd% ERROR (1-9)
-goto end
-
-rem ***************************************************************************
-rem End of the batch file, so display a blank line for prettiness
-rem *************************************************************
-:end
-rem ***************************************************************************
-rem Make node status OFFLINE
-rem ************************
-%sbbs%\exec\node status=5 %nodenum%
-echo.
diff --git a/docs/message_section.html b/docs/message_section.html
deleted file mode 100644
index a8d06c87f3a2450ae0844a762a79ecea1cc6bfd2..0000000000000000000000000000000000000000
--- a/docs/message_section.html
+++ /dev/null
@@ -1,718 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Message Base</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="MessageBase">[8.0] - Message Base</a></h2>
-<pre>The Synchronet message base is used for storing messages from a user or sysop
-to other users or a specific user. The messages are divided into sub-boards
-where each sub-board has a unique message topic. Sub-boards are grouped
-together into message groups.</pre>
-<pre>Sysops can control which users have what level of access to each group and
-sub-board. If a user doesn't have access to a specific group or sub-board,
-the user won't even know the specific group or sub-board exists.</pre>
-<pre>The following is an example group/sub-board configuration:</pre>
-<pre><b>Group Name Sub-boards
-</b>------------------------------------------------------------------------------
-Main Sysop Notices
- General Discussion
- Debate
- Entertainment
- Advertisements</pre>
-<pre>Adult General Discussion
- Entertainment
- Singles Only</pre>
-<pre>Technical Hardware Help
- Software Help
- Programming</pre>
-<pre>The Synchronet configuration program (<a href="system_config.html">SCFG</a>) is used for adding, deleting,
-and configuring message groups and sub-boards.</pre>
-<h2><a name="ElectronicMail">[8.1] - Electronic Mail (E-mail)</a>
-</h2>
-<pre>Synchronet has a separate private personal mailbox for each user on the system.
-Users may receive local E-mail, NetMail, and Attached Files in their mailbox.
-Upon logon, each user is asked if they wish to read any mail in their box. Mail
-will stay in the user's box until it is deleted. Mail in a user's box may only
-be viewed or deleted by the receiving user, the sending user, or a sysop.
-
-E-mail is preferred over Private Posts (on a sub-board) for sending private
-messages to users on the same BBS. Private posts are only useful for sending
-private messages on message networks that do not support or allow NetMail.
-
-An E-mail file attachment may be uploaded by a user if SCFG->System->Message
-Options->Allow Uploads in E-mail is set to Yes. When reading E-mail with a file
-attached, the receiving user will be prompted if he or she wishes to download
-the attached file at that time. If the user downloads the file, the file is
-deleted. If the message is deleted without the file being downloaded, the file
-is deleted as well.
-
-Users with the 'A' exemption may send Anonymous E-mail if SCFG->System->Message
-Options->Allow Anonymous E-mail is set to Yes.
-
-When replying to another message in E-mail, the original message may be quoted
-if the SCFG->System->Message Options->Allow Quoting in E-mail is set to Yes.</pre>
-<h3><a name="SynchronetMailServer">[8.2.1] - Internet (SMTP/POP3) Mail Server</a>
-<b><font color="#FF0000"><i>(v3+ Only)</i></font></b>
-</h3>
-<pre><b>Set-up:</b></pre>
-<ol>
- <li>
-<pre>Set SCFG->Networks->Internet->Address to your system's Internet address
- (domain name or static IP).</pre>
- </li>
- <li>
-<pre>Set SCFG->Networks->Internet->Allow Sending of Netmail to "Yes".</pre>
- </li>
- <li>
-<pre>Set SCFG->Networks->Internet->Allow File Attachments to "No"
- (File attachments from the BBS are not supported at this time).</pre>
- </li>
- <li>
-<pre>Set SCFG->Networks->Internet->Send NetMail using Alias however you wish
- (Users can receive e-mail to their Alias OR real-name regardless of this
- setting).</pre>
- </li>
- <li><pre>Set SBBSCTRL->Mail Server->Configure-><i>DNS Server</i> to the address of your
- ISP's Primary DNS server (run "<b>ipconfig /all</b>" from the Windows command line
- to display your ISP's Primary DNS server) OR set <i>Relay Server</i> to the address
- of your ISP's SMTP server (check your e-mail program for your configured SMTP
- server hostname).</pre>
- </li>
-</ol>
-<pre><b>Notes:</b></pre>
-<pre>Users will be able to send Internet e-mail from your BBS now (if you have a
-customized <b>TEXT.DAT</b> make sure you have updated line 62, "<i>InternetMailing</i>").</pre>
-<pre>Your users will be able to receive e-mail at your BBS using any of the
-following ways:
- </pre>
-<pre> <b>First.Last@your.bbs.domain
-</b> <b>First_Last@your.bbs.domain
- RealFirst.Last@your.bbs.domain
- UserNumber@your.bbs.domain (if <i>RX By User Number</i> is toggled on)
- "First Last"@your.bbs.domain
- "RealFirst Last"@you.bbs.domain </b></pre>
-<pre>E-mail user names are not case sensitive (e.g. Digital.Man and digital.man are
-both valid user names). In order for users to receive mail via user number, that
-option must be checked in SBBSCTRL->Mail->Configure.</pre>
-<pre>E-mail sent to "<b>SYSOP</b>", "<b>POSTMASTER</b>", your BBS's QWKID, or the sysop name
-(as configured in SCFG) will automatically go to user #1 on the BBS.</pre>
-<pre>Additional aliases can be configured by creating the text file <b>ctrl/alias.cfg</b>
-with the following syntax:</pre>
-<pre>-------------------------------[ Begin ]--------------------------------------</pre>
-<pre>; This is a comment
-;
-; Alias User Name or number</pre>
-<pre>root sysop
-sysadmin sysop
-webmaster sysop
-great.drummer Rob Swindell</pre>
-<pre>--------------------------------[ End ]---------------------------------------</pre>
-<pre>If a user has their account configured to forward their e-mail to an Internet
-address and they receive an Internet e-mail, it will automatically be forwarded
-to the configured address.</pre>
-<pre>The sysop of QWKnet nodes can receive e-mail at their QWK-ID @ their hub's
-Internet domain/ip address. Example: If YOURBBS (QWK-ID) polls VERT for QWKnet,
-you (the sysop) can receive e-mail at yourbbs@vert.synchro.net.</pre>
-<pre>You (or any of the user's on YOURBBS) can send Internet e-mail from YOURBBS
-through VERT by sending a QWKnet NetMail message to NETMAIL@VERT with the
-actual destination Internet address as the first line of the message.
-
-<b>Relaying:</b>
-
-As of v1.10, the Synchronet Mail Server can be used to relay e-mail to external
-servers. Due to the security (SPAM) risks of opening the SMTP server up to just
-anyone, you must specify which hostnames or IP addresses you wish to allow to
-relay mail. You do this by creating the file <b>text/relay.can</b> and list the IP
-addresses or host names of the systems you wish to give relay access to. If you
-wish to allow relay access to all hosts (not recommended), simply create a
-<b>relay.can</b> with one line containing "<b>.~</b>".</pre>
-<h2><a name="SettingUpMessageBase">[8.3] - Setting Up the Message Base</a>
-</h2>
-<h3><a name="CreatingMessageGroups">[8.3.1] - Creating Message Groups:</a>
-</h3>
-<pre>Run SCFG and select "<i>Message Base</i>" from the SCFG main menu and add any
-additional message groups you want. A message group is a group of message
-sub-boards that have a similar subject matter or other common element. It is
-common to put all of your local sub-boards in one group and your networked
-sub-boards (where messages are shared with other BBSs) into other groups. An
-example configuration that separates local and networked sub-boards into groups:
-
-<b>Group Sub-boards</b>
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Local General
-Local Sports
-Local Debate
-Local Literature
-Local Technology
-Local Advertisements
-DOVE-Net General
-DOVE-Net Advertisements
-DOVE-Net Entertainment
-DOVE-Net Debate
-DOVE-Net Hardware/Software
-DOVE-Net Programming
-DOVE-Net Synchronet
-DOVE-Net Synchronet Sysops
-FidoNet Interuser Discussion
-FidoNet Politics
-FidoNet Unix
-FidoNet OS/2
-FidoNet DESQview
-
-Another use of message groups is to group sub-boards of similar topic together:
-
-<b>Group Sub-board</b>
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Main Sysop Messages
-Main General
-Main Debate
-Main Entertainment
-Main BBS Ads and ANSI
-Technical Software Help
-Technical Hardware Help
-Technical Programming
-Adult General
-Adult Singles Only
-Adult Dear Abby
-Adult Jokes
-Adult Financial
-
-And you certainly can mix the two examples of message group utilization given
-above or invent your own. Or, you can just have one message group for all of
-your sub-boards - forgoing the organizational advantages of using multiple
-groups.
-
-To add message groups, select the position you want the new message group
-to be in with the arrow keys. If you want the new message group to be the
-first group, highlight the top line. If you want the message group to be added
-to the end of the group list, highlight the bottom line. Hit <i>INS</i> (insert key)
-to add a new message group, or <i>DEL</i> (delete key) to remove an existing one.
-Following is a list of options available when creating or modifying a message
-group.</pre>
-<h3><a name="MessageGroupOptions">[8.3.2] - Message Group Options</a>
-</h3>
-<pre><img border="0" src="images/scfg_msg_areas.png" width="572" height="331"></pre>
-<pre><b>Long Name:</b>
- This is a description of the message group which is displayed in
- message group listings.
-
-<b>Short Name:
-</b> This is a description of the message group which is used for prompts.
-
-<b>Access Requirements:
-</b> Use this option to set specific user requirements for access this
- message group.
-
-<b>Clone Options:
-</b> Use this option to "copy" the options from the first message sub-board
- in this group to all other existing sub-boards in this group.
-
-<b>Export Areas:
-</b> If you wish to export the area information of all the sub-boards in
- the current message group to a text file, use this option.
-
-<b>Import Areas:
-</b> If you wish to import message area information from a text file, use
- this option.
-
-<b>Message Sub-boards...:
-</b> Select this option to get a list of, and be able to edit, the sub-
- boards within this group.</pre>
-<h3><a name="CreatingMessageSub-boards">[8.3.3] - Creating Message Sub-boards:</a></h3>
-<pre>To create sub-boards, hit enter on the message group you want to add the
-sub-boards to, then select "Message Sub-boards". Adding sub-boards is very
-similar to adding groups except you will be prompted for an internal code.
-The internal code should be a short description (name abbreviation) for the
-sub-board. To configure the particulars for the sub-board, select it by hitting
-enter on it from the sub-board list. Following is a list of options available
-when creating or modifying a message sub-board.</pre>
-<h3><a name="Sub-boardMainOptions">[8.3.4] - Sub-board Main Options</a></h3>
-<pre><img border="0" src="images/scfg_msg_areas_gen.png" width="572" height="331">
-
-<b>Long Name:
-</b> This is a description of the sub-board which is displayed in
- sub-board listings.
-
-<b>Short Name:
-</b> This is a description of the sub-board which is used for prompts.
-
-<b>QWK Name:
-</b> This is the name of the sub-board used for QWK off-line readers.
-
-<b>Internal Code:
-</b> This is an internal code for SBBS to distinguish this sub-board from
- the others on the system. This should be a unique name of up to 8 valid
- DOS filename characters.
-
-<b>Access Requirements:
-</b> These are the requirements that a user must meet to be able to access
- this sub-board.
-
-<b>Reading Requirements:
-</b> Use this option to set the security requirements to read messages on
- this sub-board.
-
-<b>Posting Requirements:
-</b> Use this option to set the security requirements to post on this
- sub-board.
-
-<b>Operator Requirements:
-</b> Use this option to set the security requirement to be a sub-op on this
- sub-board (note: sub-op is a sysop of a sub-board).
-
-<b>Moderated Posting User:
-</b> Users meeting the criteria set here will have their posts "moderated"
- when posting on this sub-board. Moderated messages cannot be read by
- users or exported until validated by a sub-op or sysop.
-
-<b>Maximum Number of Messages:
-</b> This is the maximum number of messages that will be allowed on the
- sub-board. This number is used by SMBUTIL to maintain the message base
- and remove the oldest messages when this limit is exceeded.
-
-<b>Purge by Age:
-</b> This is the maximum length of time (in days) that old messages will
- be kept in a sub-board.
-
-<b>Duplicate Checking:
-</b> Use this option for duplicate message checking (comparing a new
- message against those previously imported to detect a duplicate message
- created by program or user error). Enabling duplicate message checking
- requires you specify a maximum number of CRCs. This is the number of
- previously imported messages to keep track of (using CRC calculation).
- This number, if used, should be set to about one weeks worth of
- messages. Large numbers in this field will slow down message importing.</pre>
-<h3><a name="ToggleOptions">[8.3.5] - Toggle Options</a></h3>
-<pre><img border="0" src="images/scfg_msg_area_toggles.png" width="572" height="331">
-
-<b>Allow Private Posts:
-</b> If you want to allow users to post private messages to another user
- on the sub-board, set this option to Yes. Since Synchronet has an
- internal e-mail system, this option is usually only set to Yes on
- networked sub-boards that allow private posts. You can also force
- private posts on this sub-board by setting this option to Only.
-
-<b>Allow Anonymous Posts:
-</b> If you want to allow users that have the 'A' exemption to be able to
- post anonymously on this sub-board, set this option to Yes. You may
- also force anonymous posts by any one (with or without the 'A'
- exemption) by setting this option to Only.
-
-<b>Post Using Real Names:
-</b> If you wish posts on this sub-board to be posted using the real name
- of a user instead of his/her alias, set this option to Yes. Many
- networks require BBSs that allow aliases to force real names on
- networked sub-boards.
-
-<b>Users Can Delete Posts:
-</b> You may allow users to delete their posted messages by setting this
- value to Yes. You may allows users to delete their messages only if
- it is the last message on the sub-board by setting this value to
- Last.
-
-<b>Default On for New Scan:
-</b> If this option is set to Yes, this sub-board will default to 'On'
- when a user does a new message scan on this sub-board for the first
- time.
-
-<b>Forced New Scan:
-</b> If this option is set to Yes, the sub-board will not be skipped in
- new message scans even if the user has configured his or her new scan
- to not contain this sub-board.
-
-<b>Default On for Your Scan:
-</b> If this option is set to Yes, this sub-board will default to 'On'
- when a user does a new message scan for personal messages on this
- sub-board for the first time.
-
-<b>Public 'To' User:
-</b> If you wish all posts to be prompted for a 'To' user, set this option
- to Yes. Many networks do not allow private messages on networked
- sub-boards, so the only way to send a message 'To' someone is to send
- it publicly with a 'To' field. Normally, 'To' users are only prompted
- for on private posts.
-
-<b>Allow Message Quoting:
-</b> If you wish for users to be able to quote from other messages on this
- sub-board, set this option to Yes.
-
-<b>Permanent Operator Msgs:
-</b> Setting this option to Yes will cause messages posted by the Sysop (or
- sub-op) to be marked as permanent (will not be deleted by normal
- maintenance).
-
-<b>Kill Read Messages:
-</b> If you wish for messages to be deleted after the recipient has read the
- message, set this option to Yes. To delete only those messages marked
- as private after they've been read, set this option to Private.
-
-<b>Compress Messages (LZH):
-</b> When this option is set to 'Yes', the BBS will utilize the LZH
- compression method when storing messages. This will cause message
- importing to be slower, but can conserve disk space (30% to 50%) which
- can mean tens or even hundreds of megabytes of extra space on BBSs with
- large message bases.</pre>
-<h3><a name="NetworkOptions">[8.3.6] - Network Options</a></h3>
-<pre><img border="0" src="images/scfg_msg_area_netopts.png" width="572" height="331">
-
-<b>Append Tag/Origin Line:
-</b> If you want a tagline (QWK network) or origin line (FidoNet) to be
- appended to messages sent out on the network from this sub-board,
- set this option to Yes.
-
-<b>Export ASCII Only:
-</b> Set this option to Yes if this sub-board should only be exporting
- ASCII characters to message networks.
-
-<b>Gate Between Net Types:
-</b> If this sub-board is simultaneously networked with multiple networks
- using different network technologies, and you want messages imported
- from one network to be exported to the other network(s), you must set
- this option to 'Yes'. Gating messages between networks usually requires
- specific authorization from the moderator of each network. Do not set
- this option to 'Yes' unless you are absolutely sure you understand the
- consequences.
-
-<b>QWK Networked:
-</b> Setting this option to Yes will limit posted message titles to the
- QWK packet limitation of 25 characters and allow QWK network accounts
- to upload and download messages to/from this sub-board.
-
-<b>QWK Tagline:
-</b> This is an optional tagline that will be used for this sub-board. If
- this field is blank, the default tagline will be used. If "Append
- Tag/Origin Line" is set to No, then no tagline will be used.
-
-<b>Internet:
-</b> If this sub-board is networked via the internet, this toggle option
- should be set to 'Yes'.
-
-<b>PostLink or PCRelay:
-</b> If this sub-board is networked via PostLink or PCRelay, set this option
- to Yes.
-
-<b>FidoNet EchoMail:
-</b> If this sub-board is networked via FidoNet, set this option to Yes.
-
-<b>FidoNet Address:
-</b> This is the FidoNet address used for this sub-board.
-
-<b>EchoMail Origin Line:
-</b> This is an optional origin line that will be used for this sub-board.
- Do not include the FidoNet address in this line. Synchronet
- automatically adds the " * Origin: " and "(Zone:Net/Node.Point)".
- If this field is blank, the default origin line will be used. If
- "Append Tag/Origin Line" is set to No, then no origin line will be
- used.
-
-<b>EchoMail Directory:
-</b> This is the storage directory where FidoNet style (FTS-0001 stored
- message format) messages are imported from and exported to for this
- sub-board (using SBBSFIDO a defunct method of importing/exporting
- FidoNet echomail). If this option is blank, then the EchoMail base
- directory is used with the internal code of this sub-board as the
- sub-directory where the FidoNet messages are stored.
-
-<b>EchoMail Semaphore File:
-</b> This is the path and filename of a file that should be created to
- trigger your front-end mailer to export FidoNet EchoMail.</pre>
-<h3><a name="AdvancedOptions">[8.3.7] - Advanced Options</a></h3>
-<pre><img border="0" src="images/scfg_msg_area_advopts.png" width="572" height="331">
-
-<b>QWK Conference Number:
-</b> This option allows you to use a Dynamic (automatic) or Static
- (hard-coded) numbering for the QWK conference number of each sub-board.
- Dynamic numbering gives "as is" conference numbers, where sub-board 1
- in group 1 would be 1001, and sub-board 1 in group 2 would be 2001,
- etc. Static numbering allows you to give each conference whatever
- number you prefer, which is extremely useful because it allows you to
- add and remove conferences without altering the numbers of other
- sub-boards.
-
-<b>Storage Method:
-</b> This is the method which will be used for storing messages when a new
- message is posted on this sub-board. There are three message storage
- methods. Their advantages and limitations are as follows:
-
-<b> Self-packing:
-</b>
- Self-packing is the most efficient message storage method because it
- looks for and uses deleted message blocks for new in-coming messages.
- Because of this behavior, it is the slowest storage method, but
- eliminates the need to run "SMBUTIL P" on the message base regularly.
- It is suggested however, that you do run "SMBUTIL P" on Self-packing
- message bases that have accumulated a large number of deleted message
- blocks. This can happen if you lower the maximum number of a messages
- for a message base and then run "SMBUTIL M" or import a large number of
- networked messages into this message base, far exceeding the maximum,
- and then running "SMBUTIL M". Under these circumstances, you will be
- wasting disk space on deleted message blocks that will not likely be
- used again unless you reach that number of messages again.
-
- An example:
-
- A Self-packing sub-board is set to maximum of 500 messages. The
- sub-board has 500 messages in it taking up approximately 2MB of disk
- space. A large network message packet is imported containing 200
- messages for this sub-board. The sub-board now has 700 message in it
- taking up approximately 3MB of disk space. "SMBUTIL M" is run and the
- oldest 200 messages are deleted, bringing the total messages down to
- 500 again, but still taking up 3MB of disk space. The sub-board will
- not increase in size (disk consumption) again unless the total number
- of messages exceeds 700. If this is not likely to happen, then running
- "SMBUTIL P" on this sub-board will save you approximately 1MB of disk
- space.
-
-<b> Fast Allocation:
-</b>
- Fast Allocation storage method is faster than Self-packing because it
- does not search for deleted message blocks to use for new messages, it
- always adds to the end of the message base. Because of this behavior,
- the message base will continually grow in size (consuming disk space)
- until "SMBUTIL P" is run. Since the idea of using Fast Allocation is
- speed, it is also a good idea to speed up your "SMBUTIL P" event by
- specifying a minimum number of packable kilobytes before actually
- packing a message base. This will cause SMBUTIL to analyze the message
- base before actually packing it. This is be done by specifying the
- number of kilobytes on the SMBUTIL command line. If for example, you
- only want it to pack the message base if it can save 500k or more of
- disk space, then use "SMBUTIL P500" for a command line. This will keep
- SMBUTIL from packing the message base every time it is run (which can be
- time consuming) even if only a small amount of disk space will be saved
- from the operation.
-
- You can switch between fast Fast Allocation and Self-packing storage
- methods at any time. You can even have one program importing into a
- message base using Self-packing and another using Fast Allocation and
- no harm will be done to the message base.
-
-<b> Hyper Allocation:
-</b>
- Hyper Allocation is much like Fast Allocation, except it is much faster
- because it does not update the message base allocation files necessary
- to be downward compatible with the Self-packing storage method. For
- this reason, you cannot change a message base from Hyper Allocation to
- Self-packing or Fast Allocation without first deleting all the messages
- in the message base (SCFG will do this for you). You must also be sure
- that all programs that write to this message base support the Hyper
- Allocation storage method (as defined in v1.20 of the SMB
- specification). If you are using any third party message import
- programs, do NOT use this storage method unless you are positive the
- program supports it. Ask the developers if you are not sure.
-
- Like Fast Allocation, you must run "SMBUTIL P" on Hyper Allocated
- message bases regularly. The minimum packable kilobytes analysis
- feature of SMBUTIL (i.e. "SMBUTIL P500") takes longer with a Hyper
- Allocated message base but the actual packing operation is much faster.
-
- To get the fastest importing/writing speed, disable Duplicate Message
- checking and LZH compression for the message base.
-
- Retrieving messages (exporting/reading them from the message base) is
- the same speed with all storage methods. LZH compressed message bases
- will export slower than non-compressed message bases.
-
-<b>Storage Directory:
-</b> Where Synchronet should place the data files for this sub-board.
- Normally this option should be left BLANK unless it is required that
- the data be placed on a different drive letter.</pre>
-<h3><a name="QWKPacketPreviousSoftware">[8.4] - Importing QWK
-Packet from Previous BBS Software</a></h3>
-<pre>If you are upgrading to Synchronet from another BBS package and have your
-messages in QWK packet format, you can import them into Synchronet as follows:
-
-1. Create message groups and sub-boards under Synchronet to accept the
- messages from your old system.
-2. Write down the conference numbers for each of your message areas from
- the old system.
-3. Rename your exported QWK packet to TEMP.QWK and copy it into your DATA
- directory.
-4. Add a QWK network hub in SCFG using TEMP for the QWK ID.
-5. Add each of your sub-boards to the list of Networked Sub-boards and
- enter the conference number from the old system. Select "Strip-out"
- for Ctrl-A handling. Set Node 1 for the call-out node.
-6. Run SBBS from your NODE1 directory and your messages should be
- imported immediately.
-7. Run SCFG and delete the TEMP QWK network hub.</pre>
-<h3><a name="PostingMessage">[8.5] - Posting a Message</a></h3>
-<pre>When posting a message on a sub-board, users or sysops can specify that the
-message is NOT to be distributed across a message network (kept local only).
-This is done by starting the message title with "NE:" which stands for
-"No Echo" (only useful on networked sub-boards).</pre>
-<h3><a name="RemoteQWKFunctions">[8.6] - Remote QWK Functions</a></h3>
-<pre>Following are examples on how to perform various functions remotely via QWK.
-Note that some of these functions are intended only for users who are using QWK
-mail doors to retrieve their messages from the BBS, and not for BBSs which are
-QWK netted together, these commands are noted as being for users only. Although
-intended for users, some of the user commands will work properly on a QWK
-netted BBS (e.g. FILES would place the resulting file list into the BBSs
-inbound directory), but some will not (e.g. the YOURS function).
-
-In order to invoke the various remote QWK functions via a QWK network, you must
-post a message to SBBS on one of the conferences which you are receiving from
-your QWK hub. Note that the ADD and RESET functions are conference specific,
-meaning that your message MUST be posted on the conference where the function
-is to take effect.
-
-<b>NOTE:</b> In the following examples, 'ptr' is a pointer indicating the message
- number to start at (e.g. specifying 100 would set the message pointer to
- message number 100), '-msgs' sets the message pointer to a number of
- messages from the end (e.g. -100 to set the pointer to 100 messages
- from the last message), and 'mm/dd/yy' sets the message pointer to the
- date specified (e.g. 01/01/90 sets the message pointer to January 1,
- 1990).
- The '|' symbol shown in the options means OR. Function parameters in
- square brackets '[]' are optional, parameters in less than/greater than
- symbols '<>' are required. Specifying an ON/OFF function without the
- ON or OFF parameter will toggle the function OFF.
-
-<i>Examples:</i>
-
-To: <b>SBBS</b> (All messages must be sent to SBBS)
-
-Subj: <b>DROP [conf#]</b>
-Note: Drop current conference (or specified conference #) from future packets.
-
-Subj: <b>ADD [YOURS] [ptr | -msgs | mm/dd/yy]</b>
-Note: Add current conference to future packets and optionally set the message
- pointer.
- If "YOURS" is specified, only mail addressed to you will be packed for
- this conference.
- The YOURS option is for users only.
-
-Subj: <b>YOURS [ptr | -msgs | mm/dd/yy]</b>
-Note: Same as "ADD YOURS".
- For users only
-
-Subj: <b>RESET [ptr | -msgs | mm/dd/yy]</b>
-Note: Set message pointer for current conference.
-
-Subj: <b>SUBPTR [ptr | -msgs | mm/dd/yy]</b>
-Note: Same as "RESET".
-
-Subj: <b>RESETALL [ptr | -msgs | mm/dd/yy]</b>
-Note: Set message pointers for all conferences.
-
-Subj: <b>ALLPTR [ptr | -msgs | mm/dd/yy]</b>
-Note: Same as "RESETALL".
-
-Subj: <b>FREQ <filename></b>
-Note: File Request from file transfer database (not attachments). QWK netted
- BBSs will receive the requested file into their hubs IN sub-directory,
- normally located in the \SBBS\DATA\QNET directory
-
-Subj: <b>FILES [ON | OFF | mm/dd/yy]</b>
-Note: Include files list in packet and/or specify new-scan date.
- Specifying files with the date only will turn this option ON.
- For users only
-
-Subj: <b>ATTACH [ON | OFF]</b>
-Note: Include file attachments in packet automatically (e-mail only).
- For users only
-
-Subj: <b>OWN [ON | OFF]</b>
-Note: Include messages from you (affects all conferences).
- For users only
-
-Subj: <b>MAIL [ALL | ON | OFF]</b>
-Note: Include private mail-box (ALL includes previously read mail).
- For users only
-
-Subj: <b>DELMAIL [ON | OFF]</b>
-Note: Automatically delete mail-box after successful packet download.
- For users only
-
-Subj: <b>CTRL-A [KEEP | EXPAND | STRIP]</b>
-Note: Ctrl-A color/attribute codes - leave-in, expand to ANSI, or remove.
-
-Subj: <b>NDX [ON | OFF]</b>
-Note: Include index (.NDX) files (not necessary for Synchronet QWKnet)
-
-Subj: <b>CONTROL [ON | OFF]</b>
-Note: Include control files (DOOR.ID, CONTROL.DAT, NETFLAGS.DAT, etc)
-
-Subj: <b>VIA [ON | OFF]</b>
-Note: Include message path (@VIA) line in messages.
-
-Subj: <b>TZ [ON | OFF]</b>
-Note: Include time zone (@TZ) line in messages.
-
-<b>Downloading Files in QWK</b>
-
-If there are any files in the batch download queue when a QWK packet is
-created, they will be added to the QWK packet automatically. This is what
-makes the FREQ control command so useful. A user (or QWK network node) just
-posts a message (on any sub-board) to SBBS with the title "<b>FREQ FILENAME.EXT</b>"
-(where FILENAME.EXT is the filename and extension of the file to download).
-When the REP packet is extracted, the requested file (if found) is added to
-the batch download queue. Then when a QWK packet is created, the file is
-automatically included. Multiple file requests can be made and all files
-will be included in the QWK packet.
-
-<b>Sending Netmail via QWK</b>
-
-If a user wishes to send netmail via a QWK packet generated from his offline
-mail reader, he must post a message in the E-mail conference (number 0) with
-the name and address of the recipient in the TO field of the message.
-(e.g. John Doe @1:103/715 would be a valid Fidonet netmail address, or
-jdoe@easyst.com would be a valid Internet netmail address).
-This will not work if the user does not have the ability to send netmail.
-
-If the entire netmail address is too long to fit into the TO field (up to
-25 characters), the user can alternately place the word "NETMAIL" in the TO
-field, and place the netmail address (name@addr) of the recipient on the FIRST
-LINE of the message body. Note that the '@' symbol MUST be present in a
-netmail address if used in the 'to' field.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/modem_setup.html b/docs/modem_setup.html
deleted file mode 100644
index 3f9e5981c28945e6f1a90dfcd47bf28cf5eba0a0..0000000000000000000000000000000000000000
--- a/docs/modem_setup.html
+++ /dev/null
@@ -1,493 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Modem Setup</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-
-<h2><a name="UART_Serial/Modem">[4.1] - Using UART Serial
-Cards/Internal Modems</a>
-
-<b> <i><font color="#FF0000">(v2 Only)</font></i></b></h2>
-
-<pre>If you are using a shared IRQ or non-UART serial card, you should skip this
-section and go to the section on 'Using a Shared IRQ or Non-UART Serial Card'.
-
-If you are using an internal modem, note that all references to serial boards
-are the same as referring to an internal modem. Also note that most internal
-modems only have support for up to 4 different IRQ's and I/O addresses.
-
-Prior to installing your serial board, you should insure that neither the IRQ
-or the I/O address of any of the ports on the board are being used by any other
-devices in your system. Following is a list of IRQ's and I/O addresses which
-are commonly used by devices (those marked with a minus sign (-) may never be
-used by a serial board):
-
- <b>Device IRQ I/O Address</b>
- ---------------------- --- -----------
- -Timer 0 040 - 05F
- -Keyboard Controller 1 060 - 06F
- *EGA/VGA Cards 2
- Serial Port 2 3 2F8 - 2FF
- Serial Port 1 4 3F8 - 3FF
- Parallel Port 2 5 278 - 27F
- Floppy Drive 6 3F0 - 3F7
- Parallel Port 1 7 378 - 37F
- -Real Time Clock 8 070 - 07F
- *Same as IRQ 2 9
- -Co-processor 13 0F0 - 0F1
- Fixed Disk Controller 14 1F0 - 1F8
-
- *NOTE: IRQ's 2 and 9 may never be used at the SAME time.
-
-The following are suggested IRQ and I/O address settings for using up to 8
-serial ports:
-
- <b>Device IRQ I/O</b>
- ---------------------- --- ---
- Serial Port 1 4 3F8
- Serial Port 2 3 2F8
- Serial Port 3 5 3E8
- Serial Port 4 2 2E8
- Serial Port 5 10 1F8
- Serial Port 6 11 1E8
- Serial Port 7 12 1A8
- Serial Port 8 15 2A8
-
-An additional 2 serial ports may be added using the following IRQ and I/O
-addresses:
-
- <b> Device IRQ I/O</b>
- ---------------------- --- ---
- Serial Port 9 7 400
- Serial Port 10 14 408
-
-Refer to the documentation provided by the manufacturer of your particular
-serial board for information on how to select IRQ and I/O addresses.
-
-After you have the ports on your serial board set up to fit your system
-requirements, you should write down the IRQ and I/O address information for
-future reference. Once you have determined the IRQ and I/O address that each
-node on your system will use, you must run the SCFG program and go to the
-Nodes->Node #->Modem Configuration and set the COM Port, UART IRQ Line, and
-UART I/O Address. Each node, when running on the same machine, should have a
-unique COM Port number.
-
-<b>Notes on UARTs</b>
-
-If you are using an external high-speed modem, you may require a buffered
-UART chip on your serial board for error-free transmissions. 8250 and 16450
-UARTs DO NOT have buffers and are usually insufficient for high-speed modems.
-16550AFN UARTs have a 16 byte FIFO UART which allows error-free transmissions
-with high-speed modems, particularly necessary when multi-tasking. Almost
-all internal high-speed modems come with a built-in 16550 UART.</pre>
-
-<h2><a name="Shared_IRQ/Non-UART">[4.2] - Using a Shared IRQ
-or Non-UART Serial Card</a></h2>
-
-<pre>If you are using a serial card which allows the use of shared IRQ's or has a
-non-standard UART interface, you will need to use a device driver to interface
-this card with Synchronet. Usually, such a driver would be included with the
-serial card from the manufacturer. Third party drivers are also available (such
-as COMM-DRV and X00).
-
-Synchronet supports three driver interfaces, all using Int 14h services. The
-supported driver interfaces are:
-
- <b>FOSSIL</b> (Fido/Opus/SEAdog Standard Interface Layer Version 5)
- Functions 0 through 6, and Fh
- Example FOSSIL drivers: X00, BNU, and COMM-DRV
-
- <b>PC BIOS</b>
- Functions 0 through 3
-
- <b>PS/2 BIOS</b>
- Functions 1, 2, 4, and 5
-
- <b>DigiBoard</b>
- DigiCHANNEL PC/Xi and PC/Xe DOS driver
-
-When setting the COM port in SCFG->Nodes->Node #->Modem Configuration, you
-will be prompted for the COM port type:</pre>
-<pre><img border="0" src="images/scfg_modem_port_type.png" width="572" height="331">
-
-If you are NOT using a special shared IRQ or non-UART serial card, then you
-should select "UART" and ignore the rest of this section.
-
-When selecting a non-UART COM port type, the "Channel" will automatically be
-set to the COM port number minus one. This is the zero-based COM port that will
-be used when communicating with the device driver (i.e. COM port 1 is channel
-0, port 2 is channel 1, etc). You should NOT change the channel number unless
-you have a specific reason for doing so and understand exactly what you are
-doing.
-
-If you are using an Intelligent DigiBoard and are using the DigiBoard supplied
-device driver, then select "DigiBoard Int 14h".
-
-If the card you are using has a FOSSIL compatible device driver, this should
-be your preferred selection unless you wish to use baud rates greater than
-38400, in which case a "PS/2 BIOS" compatible driver would be a better choice.
-The COMM-DRV/Universal Serial Communications Driver supports both FOSSIL and
-PS/2 BIOS interfaces.
-
-You should only select "PC BIOS" in a last case scenario (i.e. Your card's
-device driver does not support any other Int 14h interface). The PC BIOS
-interface does not support DTR, so if you use such a limited driver, you must
-set "Drop DTR to Hang Up" to "No" under "Modem Toggle Options", set the
-"Hang Up String" to "~~~\1\1\1~~~ATH" and change "S2=128" to "S2=1" in your
-"Initialization String".
-
-Int 14h drivers can also be used to communicate with non-UART serial devices
-such as Packet Assembler/Disassemblers (PADs), Network Redirectors, HAM Radio
-Packet Servers, etc.</pre>
-<h2><a name="DumbModemConnection">[4.3] - Dumb (NULL) Modem Connection</a></h2>
-<pre>If you are connecting a Synchronet node to another computer or terminal through
-a serial port WITHOUT the use of a modem, you must set SCFG->Nodes->Node #
-->Modem Configuration->Toggle Options->Dumb Modem Connection to "Yes". This
-disables all modem commands (Init, Special Init, Answer, Off-hook, etc.) and
-causes Synchronet to only log a user on when the DCD serial line is raised.
-
-If your serial connection or terminal does not support the correct use of the
-DCD line, then you must run SBBS with the 'D' command line switch to force
-Synchronet to assume that DCD is always high. If this is the case, then there
-is no way to "hang up" on the BBS.</pre>
-<h2><a name="ModemConfiguration">[4.4] - Modem Configuration</a></h2>
-<pre>Now that you've set up your serial card, the easiest way to finish setting up
-the rest of the options for your modem is to run the SCFG program and go to the
-Nodes->Node #->Modem Configuration->Auto-Configuration, and select your modem
-model from the list of available choices. If your modem is not listed, you may
-select Generic 2400 for unlisted 2400bps Hayes compatible modems, Generic 9600,
-Generic 14400, or Generic 28800 for unlisted high speed modems. You may also
-import .MDM configuration files (located in your control directory) if you
-receive an updated or new version of a configuration file for your modem from
-Digital Dynamics or a third party.
-
-Following is a list of remaining options and a brief description of each for
-those of you that wish to manually alter the modem settings.
-
-UART (DTE) Rate is the data transfer rate between your computer and your modem,
-for non-data-compressing, non-high-speed modems, you should set this to your
-modem's highest DCE rate (e.g. a 2400bps modem should use a 2400bps DTE rate).
-If you have a data-compressing or high-speed modem, this value should be set
-to the highest DTE rate your modem supports (consult your modem manual). If
-you plan on using a FOSSIL driver for any external programs or doors, the
-DTE rate you set for your FOSSIL driver should be the same number you use for
-this option.
-
-Hardware Flow Control should be set to Transmit and Receive (Both) if your
-modem supports CTS/RTS hardware flow control (usually data-compressing or
-high-speed modems).
-
-Answer delay is the number of seconds to pause after a connection is
-established and before the terminal detection string is sent. It is suggested
-that this delay be set to a minimum of 5 seconds to allow for accurate
-terminal type detection. If the callers on your BBS are experiencing
-inaccurate terminal type detection, you may want to increase this number.
-
-Answer after (# rings) is the number of rings the bbs should wait for before
-answering the phone, the minimum is 1 ring.
-
-Reinitialization Timer is used to automatically reinitialize the modem
-periodically to make sure it is functioning correctly. If you find that your
-modem works most of the time, but occasionally will not answer the phone or
-functions incorrectly, you may wish to use this feature. Setting this value to
-0 will disable periodic modem reinitialization.
-
-Example (for Generic 28.8k Modem on COM 2):</pre>
-<pre><img border="0" src="images/scfg_modem_config.png" width="572" height="331"></pre>
-<h2><a name="ResultCodes">[4.5] - Result Codes</a></h2>
-<pre>Result Codes is a list of numeric result codes (connect codes) supported by
-your modem. If you have set "Use Verbal Result Codes" to 'Yes' in your
-the SCFG modem toggle options for this node, this list is not used.
-
-You would use this list to add result codes that your modem supports, but are
-not currently in the list or to remove codes that are in the list but are not
-supported by your modem. For each result code, the actual numeric code, the
-DCE (connect) rate, estimated file transfer CPS, and an 8 character description
-of the connection type are stored. A complete list of result codes supported by
-your modem should be given in your modem manual.
-
-Here is an example of what the result code list would look like for a Generic
-28.8k modem:</pre>
-<pre><img border="0" src="images/scfg_modem_resultcodes.png" width="572" height="331"></pre>
-<pre>Selecting result code 15 from this menu would result in a sub-menu as follows:</pre>
-<pre><img border="0" src="images/scfg_modem_resultcode_15.png" width="572" height="331">
-
-If "FAX" is used for the result code description, Synchronet will exit with
-an error level of 100 when this result code is returned. This feature is used
-for FAX/Modems that can auto-detect FAX and DATA calls and return a numeric
-result code for FAX connections. If a different error level is preferred,
-use "EXIT nnn" (where nnn is a numeric value) for the description. If a verbal
-"FAX" or "+FCON" result code is returned, Synchronet automatically exits with
-an error level of 100 (see FAX/Modem setup later in this chapter).
-
-If your modem returns any result codes PRIOR to the actual connection result
-code (and this behavior cannot be disabled), then add these result codes to the
-result code list and enter "IGNORE" for the result description, thus causing
-Synchronet to ignore this result code and wait for another result code to
-determine the actual connection type. This step is only necessary for modems
-that insist on returning multiple result codes during a connection.</pre>
-<h2><a name="ToggleOptions">[4.6] - Toggle Options</a></h2>
-<pre>Selecting this option gives a menu of available modem toggle options:</pre>
-<pre><img border="0" src="images/scfg_modem_toggles.png" width="572" height="331">
-
-<b>Caller Identification:
-</b> This is used for toggling the ability to use Caller-ID. Consult the
- section on caller identification for more information.
-
-<b>Dumb Modem Connection:
-</b> This option should be set to 'Yes' if you are using a dumb (null) modem
- cable to connect a computer to your BBS.
-
-<b>Drop DTR to Hang Up:
-</b> This is normally set to 'Yes', but some modems do not support the
- dropping of DTR to hang up the modem. If your modem is one of those,
- you should toggle this option to 'No'.
-
-<b>Use Verbal Result Codes:
-</b> This option should be set to 'Yes' for the easiest configuration of
- your modem. When this option is set to 'Yes', SBBS will automatically
- parse the CONNECT message received by the modem to determine the
- connect (DCE) rate and estimated CPS of the call. If "ARQ", "V42",
- "LAPM", "MNP", or "REL" are contained in the connect string, hardware
- error correction is assumed to be in effect and the estimated CPS
- rate is increased appropriately. Setting this option to 'Yes' has the
- added advantage of allowing DCE rates above 64000. Result codes not
- recognized as CONNECT messages (e.g. PROTOCOL, CARRIER, etc) are
- ignored. Result codes with "FAX" or "+FCO" cause SBBS to exit with an
- error level of 100 (for the execution of FAX receive software).
-
-<b>Allow Unknown Result Codes:
-</b> If "Use Verbal Result Codes" is set to 'No', then numeric result codes
- returned by the modem are then looked up in the configured result code
- list. If the result code is not found and the "Allow Unknown Result
- Codes" option is set to 'No', the call is immediately disconnected and
- an error message is logged for the sysop's attention. If the result
- code is not found and the "Allow Unknown Result Codes" option is set to
- 'Yes', then the connection information (DCE rate, estimated CPS rate,
- etc) is taken from the last configured result code and an error message
- is still logged for the sysop's attention.</pre>
-<h2><a name="ControlStrings">[4.7] - Control Strings</a></h2>
-<pre>Modem Control Strings are the strings which are sent to your modem at various
-times during BBS operation. Normally the default strings are sufficient for
-proper operation, but occasionally you may wish to modify one or more of these
-settings.</pre>
-<pre><img border="0" src="images/scfg_modem_strings.png" width="572" height="331">
-
-Initialization String is the basic modem initialization for Synchronet. You
-should not modify this unless you are unhappy with any of the settings and are
-familiar enough with the AT command set to understand what each command does.
-Placing a tilde '~' anywhere in this string will produce a 500 millisecond
-(half second) pause. Synchronet requires that the modem NOT echo characters
-back and return numeric result codes. So "E0" and "V0" must be included
-in the init string. Since Synchronet manually detects incoming calls from
-the modem, the modem's auto-detect feature must be disabled with "S0=0". If
-you do not want to hear the connection progress sounds, add "M0" to the end
-of your modem initialization string to disable the modem's speaker.
-
-Special Init String is where additional initialization commands are placed for
-specific modem types, usually error-correcting, data-compressing, or high-speed
-modems.
-
-Terminal Init String is the initialization string sent to the modem when you
-enter Synchronet's terminal mode ('T' from the waiting for call screen).
-
-Dial String is the command sent to the modem for making outbound calls.
-Currently only used by the Synchronet Callback Verifier.
-
-Off Hook String is the command sent to the modem to take the phone off-hook
-(busy).
-
-Answer String is the command sent to the modem when a ring is detected by
-Synchronet.
-
-Hang Up String is the command sent to the modem to hang up the phone and is
-only used if Drop DTR To Hang Up modem toggle option is set to No.</pre>
-<h2><a name="AutoConfiguration">[4.8] - Auto-Configuration</a></h2>
-<pre>The auto-configuration contains a very long list of modem types. Using this
-list is the EASIEST way to configure your modem to work with Synchronet. All
-you need to do is select your modem from this list and most everything will be
-configured for you. If you do not see your modem in this list, you can
-normally select a 'Generic' model from the list.
-
-If someone later creates an .MDM configuration file specifically for your
-modem, you can use this configuration file simply copying the .MDM file into
-your control directory and then selecting the 'Import Configuration' option
-from the menu and typing in the name of the .MDM file.
-
-If you create a new configuration you would like to make available to people,
-you can export the configuration information into an .MDM file by selecting the
-'Export Configuration' option from the menu.</pre>
-<h2><a name="CallerIdentification">[4.9] - Caller Identification</a></h2>
-<pre>If your modem supports one of the Caller-ID formats listed below and you have
-Caller-ID service enabled on your phone line, you can have Synchronet log
-Caller-ID information and disallow specific numbers. First, add the appropriate
-commands to SCFG->Nodes->Node #->Modem Configuration->Special Init String to
-enable Caller-ID on your modem (see your modem's manual for details). Then set
-SCFG->Nodes->Node #->Modem Configuration->Toggle Options->Caller Identification
-to "Yes".
-
-If you are using a Front-End (e.g. FrontDoor) on your BBS, the CID information
-can be passed to Synchronet on the SBBS command line with the 'Z' command line
-switch (e.g. sbbs c14400 z01-09_11:15_7145295313). The Caller-ID information
-must be ONE string with no spaces.
-
-The user's phone number will be placed in the user's note field for your
-records and logged for each call in the system log. If you wish to disallow
-access for a specific number, create the file CID.CAN in your TEXT directory
-and enter one phone number per line to disallow that number. If you want a
-message to be displayed to the user who calls with a disallowed number, create
-the message file BADCID.MSG in your TEXT directory.
-
-Supported formats:
-
- Single Line:
-
- MM-DD HH:MM Number
-
- Three Line:
-
- TIME:
- CALLER NUMBER:
- CALLER NAME:
-
- Four Line:
-
- DATE =
- TIME =
- NMBR =
- NAME =</pre>
-<h2><a name="FAX/ModemSetup">[4.10] - FAX/Modem Setup for
-Receiving FAXes</a></h2>
-<pre>In order for Synchronet to be able to receive incoming FAXes, there are a few
-requirements that must be met, these are:
-
- 1) Your modem MUST be able to return either a verbal or numeric FAX
- result code (verbal results must contain "FAX" or "+FCO").
-
- 2) Your modem MUST be able to auto-detect FAX and DATA calls.
-
- 3) You MUST have a command line receive FAX program that works with
- your FAX modem.
-
-If all of the above requirements can be met, then you will need to modify the
-SBBS.BAT/SBBS.CMD file in the directory of the node(s) to be used for receiving
-incoming FAXes as follows (using a ZyXEL FAX/Modem setup on COM 2 as an
-example):
-
------------------------------------[ Begin ]-----------------------------------
-@echo off
-:top
-..\exec\sbbs %1 %2 %3 %4 %5
-if not errorlevel 100 goto end
-c:
-cd \zfax
-rcvfax 2 /p:1
-echo Incoming FAX! >> c:\sbbs\data\msgs\0001.msg
-c:
-cd \sbbs\node1
-goto top
-:end
-------------------------------------[ End ]------------------------------------
-
-Change the 'c:' on the 5th line to the drive letter where your receive FAX
-program resides.
-
-Change the 'cd \zfax' on the 6th line to the name of the directory where your
-receive FAX program resides.
-
-Change the 'rcvfax 2 /p:1' on the 7th line to match the name and command line
-options of the receive FAX program for your modem.
-
-Change the 'c:\sbbs\data' portion of the 8th line to match the location of your
-Synchronet data directory.
-
-Change the 'c:' on the 9th line to the drive letter where you have Synchronet
-installed.
-
-Change the 'cd \sbbs\node1' on the 10th line to match the directory of the
-node(s) that will be set up for receiving FAXes.
-
-Check your modem manual to find out if your modem responds with a verbal
-"FAX" (e.g. ZyXEL) or "+FCO" (e.g. Practical Peripherals) result code or a
-numeric FAX result code (e.g. Hayes). If a numeric result code is returned,
-then run SCFG from your node directory and go to Nodes->Node #->Modem
-Configuration->Result Codes and add the numeric result code your modem returns
-for a FAX connect and enter "FAX" for the result description. If your modem
-returns a numeric "DATA" result code when in auto-detection mode (e.g. Hayes)
-then add this result code to your result code list in SCFG and enter "IGNORE"
-for the result description.
-
-Example numeric FAX result code (using Hayes Optima 288):</pre>
-<pre><img border="0" src="images/scfg_modem_fax_code1.png" width="572" height="331">
-
-Example numeric DATA result code (using Hayes Optima 288):</pre>
-<pre><img border="0" src="images/scfg_modem_fax_code2.png" width="572" height="331">
-
-If there are any commands needed to enable FAX auto-detection, add these
-commands to the end of your Special Init string in SCFG->Nodes->Node #->Modem
-Configuration. If there is an auto-configuration entry listed for your modem
-with FAX enabled, this step is not necessary.
-
-Now you are ready to receive FAXes! When your modem returns a FAX result code
-to Synchronet, the receive FAX program specified in this batch file will be
-executed. FAXes will be placed into the directory that your FAX program uses
-for received FAXes.
-
-FAXes CANNOT be sent to specific users on the BBS, this option is only for the
-convenience of being able to receive FAXes without the need of a dedicated FAX
-machine and phone line. However, the ability to allow users to FAX on demand
-or to upload files to be sent out as FAXes can be accomplished by using one of
-the add-ons (Domain FAX) from Domain Entertainment.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/multnode_config.html b/docs/multnode_config.html
deleted file mode 100644
index 365dd9a7589aa2db069830761ec61e3bba45d55b..0000000000000000000000000000000000000000
--- a/docs/multnode_config.html
+++ /dev/null
@@ -1,467 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Multinode Configuration</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="MultinodeConfiguration">[14.0] - Multinode Configuration </a><i><font color="#FF0000"><b>(v2
-Only)</b>
-</font></i>
-</h2>
-<pre>Synchronet Version 2.x runs under DOS v3.0 or greater and SHARE (or NetWare).
-A DOS process is required for each node on a Synchronet system (unless
-running Synchronet for OS/2). You can run multiple nodes on one cpu with DOS
-multitaskers such as DESQview, Windows, or OS/2 or you can run one node per CPU
-and let the CPU's share the same data on a common hard disk via Local Area
-Network (LAN).</pre>
-<h2><a name="LANMethod">[14.1] - LAN Method</a>
-</h2>
-<pre>Using one CPU per node is by far the fastest way to run multiple Synchronet
-nodes. Since SBBS4DOS runs in 8086 real mode, any IBM PC can run Synchronet
-with sufficient speed. The minimum equipment necessary for each node would be a
-power supply, motherboard, at least 450k free memory, a network interface card
-(NIC), floppy drive and controller (or just a boot PROM for the NIC), and a
-modem. Some BIOS's require a video controller and/or a keyboard as well, but
-they are not necessary for the execution of Synchronet.
-
-To link these computers together, you will need some form of networking
-software. DOS based networks (Lantastic, NetWare Lite, CBIS Network O/S,
-MainLAN etc.) are the cheapest and don't require a dedicated CPU as a file
-server, but they lack the speed of a dedicated file server and network
-operating system. The most popular Network Operating System (NOS) is Novell
-NetWare. The disk performance on a dedicated NetWare file server is often
-preferable over a local hard disk (especially on XT's) due to NetWare's high
-speed file system and dedicated memory for intelligent disk caching. Synchronet
-will run on any NOS that allows multiple CPU's running DOS to access data on a
-common disk.</pre>
-<h2><a name="MultitaskerMethod">[14.2] - Multitasker Method</a>
-</h2>
-<pre>Any program that allows the simultaneous execution of multiple DOS programs
-should be able to run multiple SBBS4DOS nodes per CPU. To reliably and
-efficiently run multiple DOS sessions on one CPU, you will probably need an
-80386 CPU (the faster, the better), and at least 2 megabytes of memory
-(the more, the better). Different multitaskers will have different hardware
-requirements, but the common denominator seems to be an 80386 and extended
-or expanded memory.
-
-<i>IMPORTANT NOTE:</i> When multitasking using Windows or OS/2, it is suggested that
- you have a minimum 80486/33mhz CPU with a minimum of 8 mega-
- bytes of memory. This is due to the requirements of the
- operating environment, not the requirements of Synchronet.
-
-You will need a separate IRQ line and UART I/O address for each COM port in
-the computer. It is recommended that you use high speed, buffered 16550A UARTs
-rather than the non-buffered 16450 UARTs which some I/O cards use. If you wish
-Synchronet to always use BIOS calls for screen output, you need to include the
-B parameter on the SBBS command line. Normally, Synchronet uses direct video
-for block text which can conflict with some multitaskers that manage a split
-screen for multiple DOS sessions.
-
-Generally, the faster the machine, the more nodes you can run. But how many
-for what kind of performance is not an easy question to answer. It depends
-heavily on the multitasking software, modem speed, and hardware I/O. Under any
-configuration, expect some amount of performance degradation when running
-multiple nodes per CPU.</pre>
-<h2><a name="Safe?">[14.3] - Is it Safe?</a>
-</h2>
-<pre>Many Sysops will worry how reliable the system is with multiple simultaneous
-users. Rest assured that Synchronet was designed from the ground up for
-multiple simultaneous users. Data integrity and system fault tolerance is never
-sacrificed when adding nodes to a Synchronet system.
-
-Users can post on the same sub-board, e-mail the same user, download the same
-file, run the same external program, perform virtually any system function
-simultaneously. Note: External programs must support multiple simultaneous
-users if the program has been configured for multi-user access from Synchronet.
-
-Considerations and precautions have been taken where user data is concerned
-to allow changes to the real-time database to take place immediately - even if
-the user is online on a node other than the one that performed the data update.
-Any security, configuration, or statistics changes made remotely will take
-effect immediately.
-
-The transfer section disallows simultaneous uploading of the same filename to
-the same directory and prevents a file that is currently open (being downloaded
-or just added to a user's batch download queue) from being moved, removed, or
-edited while allowing simultaneous downloads.
-
-
-As a general rule, no data files or records are allowed exact simultaneous
-access if one of the nodes will modify the data. Simultaneous read only access
-is allowed. Collisions (simultaneous write access requested of a file by two
-or more nodes) are logged along with the retry count. There is a retry maximum
-count (or time-out) that will deny access to the requesting node and log a
-critical error for that node. This situation should not occur, but provisions
-are made for it in case of hardware failure of a node with a file or record
-open with write access.</pre>
-<h2><a name="MultinodeDESQview">[14.4] - Multinode: DESQview</a>
-</h2>
-<pre><a name="How many nodes?"><b><u>How many nodes?</u></b></a></pre>
-<pre>The answer to this question depends on the speed of your machine. Here is
-a table to estimate the maximum number of nodes you should run on any given
-machine under DESQview:
-
-CPU Nodes
-386-16 1
-386-25 2
-386-33 3
-386-40 4
-486-25 5
-486-33 8
-486-50 10
-
- <b>Note:</b> You can run more than the suggested number of nodes, but
- performance will decrease with each additional node.</pre>
-<pre><a name="How much memory?"><b>How much memory?</b></a></pre>
-<pre>You will need roughly 500k of available expanded memory for each node. When
-running multiple nodes, a disk cache is required. Around 1 to 2 MB should be
-used in most situations. Here is another table of estimated total system memory
-required in megabytes (assuming a 1MB disk cache is used):
-
-Nodes MB of RAM
-2 3
-3 4
-4 4
-5 5
-6 5
-7 6
-8 6
-9 7
-10 7</pre>
-<pre>
-To save memory for each node, you can reduce the "Maximum program memory size"
-to something like 450k or so. If you get memory allocation errors when
-running SBBS, you'll need to increase this number. You can raise it beyond 640k
-and actually get more than 640k free in some situations. This number is the
-amount that DESQview will give this node if it can, or if not possible, as much
-as it can. The "Memory Size" parameter is the minimum amount the program will
-require.
-
-If you have VGA, you may want to change the Video mode to 80x50 or 80x60 with
-the "Rearrange" menu, and change the "Window Positions" under DVSETUP
-(advanced) and/or the "Window Position" information for the each SBBS node
-under "Change a Program Advanced Options". This way you can display multiple
-80x25 windows simultaneously.
-
-Don't forget to have a batch file execute DVANSI.COM before running Synchronet
-if you have external programs that access the COM port themselves and use DOS
-for output. Example: Trade Wars uses the BIOS for output so DVANSI is not
-required. Global War uses DOS for output and uses the COM port directly, so
-DVANSI is required.
-
-You must have "Close on exit" to [N] if you are going to execute SBBS from
-a batch file that executes other programs before SBBS. Here is an example
-batch file which will run dvansi, then Synchronet, and closes the window after
-exiting Synchronet. This example file is called SBBSDV.BAT:
-
----------------------------------[ Begin ]-------------------------------------
-@echo off
-c:\dv\dvansi
-c:\sbbs\exec\sbbs %1 %2 %3 %4 %5
-if errorlevel 1 pause
-exit
----------------------------------[ End ]-------------------------------------
-
-This batch file (SBBSDV.BAT is just an example name), can be used to execute
-any of the Synchronet nodes, because the "Directory" parameter determines which
-node is going to run. You would have to change the "Program" parameter to
-"C:\BAT\SBBSDV.BAT" if you created SBBSDV.BAT in the C:\BAT directory.
-
-<a name="Auto Start-up Scripts DV">Start-up Scripts</a>
-~~~~~~~~~~~~~~~~
-If you want your nodes to be automatically loaded up when running DESQview,
-see "Learning Scripts" and "Start-up Scripts" in your DESQview manual.
-
-Here is an example script (in text format) that loads two Synchronet nodes
-(assuming the Open Menu keys are S1 and S2):
-
-DESQVIEW.TXT:
-
----------------------------------[ Begin ]-------------------------------------
-{Learn {Alt-\} "!startup"}
-{DESQ}os1
-{DESQ}os2
-{Finish}
----------------------------------[ End ]-------------------------------------
-
-Here is an example script (in text format) that uses the Big DOS program to
-load two Synchronet nodes:
-
-DESQVIEW.TXT:
-
----------------------------------[ Begin ]-------------------------------------
-{Learn {Alt-\} "!startup"}
-{DESQ}obd
-dvansi{Enter}
-cd \sbbs\node1{Enter}
-sbbs{Enter}
-{DESQ}obd
-dvansi{Enter}
-cd \sbbs\node2{Enter}
-sbbs{Enter}
-{Finish}
----------------------------------[ End ]-------------------------------------
-
-To use this script, you MUST modify the Big DOS program parameters to match
-the program setup examples given at the top of this chapter.
-
-To use either script, you must first convert it to DESQVIEW.DVS by running the
-DESQview CONVSCR program.
-
-IMPORTANT: When running under DESQView you will be required to load DOS's SHARE
- program. Be sure that you do NOT load SHARE into high memory (or
- allow any memory managers to do so)!</pre>
-<h2><a name="MultinodeOS/2">[14.5] - Multinode: OS/2</a>
-</h2>
-<pre><a name="0s2 System Requirements">System Requirements</a>
--------------------
-The OS/2 operating environment requires a faster CPU and more system memory
-(compared to DESQview) to run efficiently. Because of this, there are greater
-system requirements for running SBBS4DOS using OS/2. First, the number of
-nodes which can be run on a given CPU is approximately one half of the number
-which can be run on an equivalent CPU using DESQview. Next, it is recommended
-that an 80486 CPU of 33mhz (or greater), with 8 megabytes of memory (or more)
-be used.
-
-The default OS/2 communications driver is not sufficient for high speed modem
-communications, it is recommended that you replace the default drivers with
-a third party driver (such as SIO by Ray Gwinn). It is also recommended that
-you have buffered 16550 UARTs on your I/O cards rather than the non-buffered
-16450 UARTs.
-
-You cannot use a standard DOS FOSSIL driver with OS/2. If you require the use
-of a FOSSIL driver, you must use a FOSSIL driver which has been written for use
-with OS/2 (such as VX00).
-
-See the contacts reference appendix for contacting Ray Gwinn, author of SIO
-and VX00 serial communications drivers for OS/2.
-
-When running Synchronet under OS/2, be sure that you do NOT use any additional
-timeslice programs such as TAME or OS2SPEED.
-
-You should have the Win/OS2 time slice API option set to 'Yes' for all nodes
-running in an OS/2 DOS session (in each node's toggle options).
-
-<a name="OS2 Settings"></a>Following are example settings for OS/2, you will find these settings by
-clicking on the DOS Settings box for the DOS window. Settings which are not
-listed should be left as default. You must run each node in its own DOS
-session, consult your OS/2 user guide for more information on running multiple
-DOS sessions.
-
-DOS Settings
-~~~~~~~~~~~~
-COM_DIRECT_ACCESS ON
-COM_HOLD ON
-COM_SELECT ALL
-DOS_BREAK OFF
-DOS_BACKGROUND_EXECUTION ON
-IDLE_SECONDS 0
-IDLE_SENSITIVITY 100
-HW_TIMER ON
-INT_DURING_IO ON</pre>
-<h2><a name="MultinodeWindows3.x">[14.6] - Multinode: Windows 3.x</a>
-</h2>
-<pre><a name="Win31 System Requirements">System Requirements</a>
--------------------
-The Windows operating environment requires a faster CPU and more system memory
-(compared to DESQview) to run efficiently. Because of this, there are greater
-system requirements for running Synchronet using Windows. First, the number of
-nodes which can be run on a given CPU is approximately one half of the number
-which can be run on an equivalent CPU using DESQview. Next, it is recommended
-that an 80486 CPU of 33mhz (or greater), with 8 megabytes of memory (or more)
-be used.
-
-<a name="Win31 Settings"></a>Following are example settings for Windows. Settings which are not listed
-should be left as default. A setting with (check) next to it means the box
-for that setting should be marked, and (no check) means the setting should
-not be marked.
-
-386 Enhanced Mode Settings
-~~~~~~~~~~~~~~~~~~~~~~~~~~
-All com ports should be set to Never Warn.
-
-Set the Minimum Timeslice to 15.
-
-Exclusive in Foreground (no check).
-
-PIF Settings
-~~~~~~~~~~~~
-Program Filename : SBBS.BAT
-Startup Directory : C:\SBBS\NODE1 (modify as required)
-Video Memory : (Text should be checked)
-
-Memory Requirements
- KB Required : 450
- KB Desired : 640
-
-*EMS Memory
- KB Required : 360
- KB Limit : 1024
-
-*XMS Memory
- KB Required : 360
- KB Limit : 1024
-
-*NOTE: EMS and/or XMS memory will need to have a value if you wish to allow
- Synchronet to swap using either of these.
-
-Display Usage
- Windowed : (check)
-
-Execution
- Background : (check)
-
-
-PIF Settings - Advanced Options
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Multitasking Options
- Background Priority : 70
- Foreground Priority : 70
- Detect Idle Time : (no check)
-
-Memory Options
- EMS Memory Locked : (check)
- XMS Memory Locked : (no check)
- Uses High Memory Area : (no check)
- Lock Application Memory : (check)
-
-Display Options
- Emulate Text Mode : (check)
- (all remaining options) : (no check)
-
-Other Options
- Allow Close When Active : (check)
-
-
-IMPORTANT: These are settings to get you started! Different machines and
-configurations require different settings, and it may take some trial and
-error with different memory and timeslice settings to get everything working
-as you desire. Also note that the default windows communications driver
-probably will NOT be sufficient for high speed modems, and you will probably
-want to purchase a third party communications driver that can handle higher
-baud rates under windows. When running windows, be sure to load SHARE before
-you run windows!</pre>
-<h2><a name="MultinodeWindows9x">[14.7] - Multinode: Windows 9x</a>
-</h2>
-<pre><a name="Win9x System Requirements">System Requirements</a>
--------------------
-The Windows 95 operating environment requires a faster CPU and more system
-memory (compared to DESQview) to run efficiently. Because of this, there are
-greater system requirements for running Synchronet using Windows 95. You
-should follow the recommendations included with Windows 95 for your system and
-memory requirements, we recommend a minimum 80486 CPU of 33mhz with at least 8
-megabytes of memory.
-
-<a name="Win9x Settings"></a>Basically Windows 95 straight out of the box will run Synchronet without any
-problems. Following is some information to help you get Synchronet set up
-under Windows 95 and to help get it running a little more efficiently.
-
-First we want to set up an ICON for each of the Synchronet nodes you plan to
-run under Windows 95. The following steps will guide you through adding one:
-
-1) From Windows 95 Explorer go to the directory of the node you are setting up,
- (e.g. for node 1 this would normally be C:\SBBS\NODE1).
-
-2) On the right side of Explorer you'll see SBBS.BAT, click on it with your
- RIGHT mouse button.
-
-3) Go to NEW and click on SHORTCUT.
-
-4) Click on BROWSE, find the SBBS.BAT file in the sub-directory for this node
- and DOUBLE CLICK on it.
-
-5) Click on NEXT.
-
-6) Click on CHOOSE ICON and select the ICON you wish to use for this node.
-
-7) Click FINISH.
-
-That's all there is to creating an ICON (shortcut) for Synchronet. Do this for
-each of your Synchronet nodes. Now there are a couple of settings you'll want
-to change for better efficiency:
-
-1) For each node set the IDLE SENSITIVITY to it's lowest (all the way to the
- left-hand side).
-
-2) In SCFG under each node, set the toggle option 'Windows/OS2 Time Slice API'
- to 'YES'.</pre>
-<h2><a name="MultinodeLAN">[14.8] - Multinode: LAN</a>
-</h2>
-<pre>Most of the information necessary for setting up your nodes on a LAN will be
-provided by the documentation for your Network Operating System. All that
-Synchronet requires is that each node have access to the SAME drive for
-data storage. ALL Synchronet directories must be accessible by ALL nodes as
-the SAME drive letter (if multiple drives are in use). If one drive is used
-for all BBS data, then simply remove all drive letters from the configured
-paths in SCFG (and each workstation can use different drive letters if
-necessary).
-
-You may mix the LAN multinode method with the multitasker method to get more
-than one node on each workstation.
-
-NOTE: When using Netware 3.x or 4.x you should create a SHELL.CFG or NET.CFG in
- the directory where your workstation loads your network files. In the
- SHELL.CFG or NET.CFG file you should have the line: SHARE=OFF. You will
- also need to load the SHARE program that comes with DOS. Most other
- networks also require that you use the SHARE program that is included
- with DOS.
-
-<b><i>*** IMPORTANT ***</i></b>
-
-Do not give ANY of the files associated with Synchronet a sharable file
-attribute. Synchronet uses file and record locking to handle multiple
-simultaneous file access requests and maintain data integrity. "Flagging"
-a file "sharable" overrides these locking methods and will cause Synchronet
-to corrupt your data in a multinode system.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/networking.html b/docs/networking.html
deleted file mode 100644
index aa17fcee0cd74c8dd99e3b631bb17ed872636d17..0000000000000000000000000000000000000000
--- a/docs/networking.html
+++ /dev/null
@@ -1,753 +0,0 @@
-
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Networking</title>
-</head>
-
-<body>
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="Networking">[9.0] - Networking</a></h2>
-<pre>Selecting the Networks option from the SCFG will produce a list of available
-network technologies.
-
-<img border="0" src="images/scfg_networks.png" width="572" height="331">
-
-Select the network technology of your interest and refer to the following
-section that pertains to your selected network technology.</pre>
-<h3><a name="QWKPacketNetworking">[9.1] - QWK Packet Networking</a></h3>
-<pre>Let's start with some basic definitions. A QWK netted BBS is either a node,
-a hub, or both. A node is a BBS that calls another QWK net hub to transfer
-packets (receiving QWK and sending REP). A hub is a system that receives calls
-from other nodes and transfers packets (sending QWK and receiving REP).
-
-There are two options from the QWK Packet Networks menu, Network Hubs and
-Default Tagline. Selecting the Default Tagline will allow you to create or
-edit the tagline that will be used for messages that are sent out on the
-network from your QWK netted sub-boards. Individual sub-boards can have a
-different tagline to override this one, or use no tagline at all. Ctrl-A codes
-can be used in taglines so that other Synchronet systems will see the tagline
-in your preferred color scheme. The beginning of the tagline is not
-configurable. It consists of a tear line and the Synchronet product name:
----
- � Synchronet �
-
-The configured tagline text will be attached to the end of the above tagline.</pre>
-<h3><a name="NetworkHubs">[9.1.1] - Network Hubs</a></h3>
-<pre>Selecting this option produces a list of configured hubs that your system
-calls to upload REP packets to and download QWK packets from. If a system
-calls your system for messages, it is a node and your system is the hub and you
-should not have that system listed as a hub. If you do not call any systems
-for networked messages, then your system is a hub and the only configuration
-you need to do is set your taglines and the network options for each of your
-netted sub-boards. Use INS to add hubs and DEL to delete hubs from this hub
-list.</pre>
-<pre><img border="0" src="images/scfg_networks_qwkhubs.png" width="572" height="331">
-
-Selecting a hub from the list of available hubs will produce a sub-menu:
-
-<img border="0" src="images/scfg_networks_qwkhubs_vert.png" width="572" height="331">
-
-<b>Hub System ID:
-</b> This is the QWK system ID of the hub BBS.
-
-<b>Pack Command Line:
-</b> This is the command line to execute to pack messages.
-
-<b>Unpack Command Line:
-</b> This is the command line to execute to unpack messages.
-
-<b>Call-out Command Line:
-</b> This is the command line to execute to perform the call-out.
-
-<b>Call-out Node:
-</b> This is the number of the node which should perform the call-out.
-
-<b>Call-out Days:
-</b> These are the days to perform the call-out.
-
-<b>Call-out Time/Frequency:
-</b> This is either the specific time to call-out, or the number of times
- per day to call-out.</pre>
-<h3><a name="NetworkedSub-boards">[9.1.2] - Networked Sub-boards</a></h3>
-<pre>Selecting this option will give a sub-menu containing a list of networked
-sub-boards that will look something like this:</pre>
-<pre><img border="0" src="images/scfg_networks_qwkhubs_vert_subs.png" width="572" height="331">
-
-For each sub-board the following options are available:
-
-<img border="0" src="images/scfg_networks_qwkhubs_vert_subs_opt.png" width="572" height="331">
-
-<b>Sub-board:
-</b> Which sub-board is to be networked (Group and Sub-board name).
-
-<b>Conference Number:
-</b> This is the conference number of the sub-board on the HUB system.
- If the hub is a Synchronet version 2 BBS and the sub-board is the
- second sub-board in the first group, the conference number is 1002; if
- the sub-board is the first sub-board in the third group, the conference
- number is 3001, etc. The conference numbering scheme for BBS programs
- other than Synchronet is usually just 1, 2, 3, etc.
-
-<b>Ctrl-A Codes:
-</b> This option allows you to determine how to handle Ctrl-A codes in
- messages. If the hub is a Synchronet BBS, you will want to set this
- to "Leave in". If the hub is not a Synchronet BBS, you will almost
- always want to set this to "Strip out". If the hub is not a Synchronet
- BBS, but allows ANSI escape sequences in messages, set this option
- to "Expand to ANSI".</pre>
-<h3><a name="ConfiguringQWKNode">[9.1.3] - Configuring Your BBS as a
-QWK Node</a></h3>
-<pre>In the SCFG program, you'll need to specify your system's tagline (usually
-the system name and phone number), the hubs to call, when to call, what node
-will do the calling, and which sub-boards to carry for each hub (a sub-board
-can send and receive messages from more than one hub!).
-
-The hub's System ID is important and must match the System ID of the hub BBS.
-For each hub, you can specify a list of sub-boards to network. For each
-sub-board, you must also set the conference number for the sub-board on the
-hub BBS. In Synchronet, conference numbers are based on the Group/Sub-board
-relationship. Group 1 / Sub 1 is conference number 1001, Group 2 / Sub 3 is
-conference 2003, etc. (Note: this is NOT the conference number for the sub-board
-on your BBS. It is the conference number on the hub BBS.) Also, for each
-sub-board you must set the method of Ctrl-A code handling. If the hub system is
-a Synchronet BBS, you'll want to leave Ctrl-A codes in. If it is not, you'll
-probably want to strip them.
-
-You'll need to decide which node will do the calling-out and configure it so.
-You'll also need to decide if you want your BBS to call-out multiple times
-per day at any given time based on a total number of calls per day (usually,
-if all your hubs are local) or if you wish the BBS to call-out at a specific
-time every day (usually if one or more hubs are long distance).
-
-You also need to set the command line to execute to perform the call-out.
-If your hub is a Synchronet BBS, use the included QNET module (*QNET),
-otherwise you probably use a batch file to execute a scripted terminal program.
-Example scripts for Telix, Robocomm, and Qmodem are included in the EXEC
-directory (SBBSQNET.*).</pre>
-<h3><a name="ConfiguringQWKHub">[9.1.4] - Configuring Your BBS
-as a QWK Network Hub</a></h3>
-<pre>Being a QWK network hub, just means that other QWK network compatible systems
-are going to logon to your system and upload and download messages. All you
-have to do is create a user account for each QWK network node that is going
-to call your system. The user name/alias should be the QWK system ID of the
-node BBS. The account needs to have the 'Q' restriction.
-
-The 'Q' restriction is used only for QWK network node accounts. An account
-with this restriction will receive the QWK: prompt immediately upon logon
-and can't access any other facility of the BBS. This restriction also allows
-that account to send messages that are from other users as well as receive
-private posts that are to other users.
-
-In addition to the 'Q' restriction, the 'L' (logons per day) and 'T' (time
-per day) exemptions may be helpful, depending on how many times the node will
-call your system a day and the time per call/day and logons per day allowed by
-the level you've given the account.
-
-Be sure to give all node accounts sufficient access to read and write messages
-on the sub-boards networked between the node and your BBS.</pre>
-<h2><a name="TransferringFilesThroughQWK">[9.2] - Transferring Files
-Through QWK Network</a></h2>
-<pre>Synchronet allows the transferring of files between a QWK network node and hub
-with great simplicity. If you wish to send a file to a QWK network hub (your
-system calls directly) or QWK network node (their system calls yours directly),
-create a DOS subdirectory of DATA\QNET\QWKID.OUT, where QWKID is the QWK ID of
-the system to which you are sending the file. Copy any files you wish to send
-to this system into this directory. The next time the systems network with
-each other, the files will be sent.
-
-If your system is a QWK network node, you may request a file from your hub
-by posting a private message to SBBS on any of the networked sub-boards you
-get from your hub. The title of the message must contain "FREQ FILENAME.EXT"
-where FILENAME.EXT is the filename and extension of the file to download.
-
-When files are received through a QWK network, the sysop is notified of the
-received file upon next logon. The file will be automatically placed in the
-subdirectory DATA\QNET\QWKID.IN, where QWKID is the QWK ID of the system
-that sent the file.
-
-The transferring of files can be made automated for other programs to share
-data over the network. One popular use for this is Online Games that support
-inter-BBS play. One such game is Barren Realms Elite (BRE), see the external
-programs section for more information on this.</pre>
-<h2><a name="PostLinkNetworking">[9.3] - PostLink Networking</a></h2>
-<pre>PostLink is a message networking program written by Kip Compton and available
-for purchase from Bonnie Anthony (see Contacts Appendix). It is a derivation
-from PCRelay software. RelayNet (AKA RIME), headed by Bonnie Anthony, ILink
-and a few other networks use this technology. Selecting this option from the
-networks menu will bring up the following sub-menu:</pre>
-<pre><img border="0" src="images/scfg_networks_post.png" width="572" height="331">
-
-<b>Site Name:
-</b> This is the site name to be used for your BBS.
-
-<b>Site Number:
-</b> This is the site number which is assigned to you by the network
- coordinator.
-
-Selecting Network Hubs from this menu will display a list of available hubs.
-Hubs can be added and/or removed from this menu.</pre>
-<pre><img border="0" src="images/scfg_networks_post_hubs.png" width="572" height="331">
-
-Selecting one of the available network hubs from this list will allow you to
-configure the call-out information for that hub.</pre>
-<pre><img border="0" src="images/scfg_networks_post_hubs_sccm.png" width="572" height="331">
-
-<b>Hub Site Name:
-</b> This is the name of your network hub.
-
-<b>Call-out Command Line:
-</b> This is the command line which will be executed to perform the call-out
- for this hub.
-
-<b>Call-out Node:
-</b> This is the number of the node which will perform the call-out for this
- hub.
-
-<b>Call-out Days:
-</b> This allows you to select the days on which call-outs to this hub will
- occur.
-
-<b>Call-out Time:
-</b> This allows you to select the time when call-outs to this hub will
- occur.
-
-Synchronet supports PostLink by letting the sysop configure the call-out
-schedule and which node will perform the call-out. Multiple PostLink networks
-are supported simultaneously by specifying multiple hubs. The Site ID entered
-in SCFG is only used for documentary purposes. Synchronet includes a UTI
-(Universal Text Interface) driver for PostLink. It is a set of 6 programs
-(UTI*.EXE) included in your EXEC directory. See the Utility Reference for
-more information on the Synchronet UTI Driver.
-
-Be sure to set the "PostLink Networked" Network Option to 'Yes' for each of
-your PostLink networked sub-boards.</pre>
-<h2><a name="FidoNetNetworking">[9.4] - FidoNet Networking</a>
-</h2>
-<pre>FidoNet is both a network technology (referred to as FTN) and an actual message
-network. The technology was developed specifically for FidoNet, but is used
-by many other networks today as well. These non-FidoNet networks are referred
-to as FTNs (FidoNet Technology Networks) because they share the same
-technology, but don't necessarily have anything more in common with FidoNet.
-
-Setting up a FidoNet is likely the most complex task a sysop could attempt.
-There are many steps associated with joining a FidoNet and most of the steps
-involve new terminology to even the most experienced sysop.
-
-The first step is to find a FidoNet Front-end mailer program. This program
-will need to be run to make and accept FidoNet mail calls. It is usually run
-24 hours a day, but is usually only required during a certain period (called
-Mail Hour and defined by the individual networks). The most popular of these
-programs are FrontDoor, D'bridge, InterMail, and Binkley. Both FrontDoor and
-Binkley will require the use of a FOSSIL (serial communications) driver as
-well. The most popular FOSSIL drivers are BNU and X00 (many DOORs require
-FOSSIL drivers as well).
-
-When running Synchronet from the Front-end, you will need to pass the current
-connect rate, tell Synchronet to quit after the call, and possibly pass the
-minutes till the next event.
-
-Example: SBBS Q C14400 E60
-
-The above command line tells Synchronet that someone is currently connected
-(at 14400bps), to quit back to DOS after the caller logs off, and that the
-next scheduled event is in 60 minutes. See Appendix B for all the available
-switches for running Synchronet.
-
-SBBSecho is an included Synchronet utility (registered separately) to
-import/export NetMail and EchoMail bundles/packets.
-
-NetMail will be exported to and imported from the directory specified in the
-Networks configuration in SCFG. EchoMail will be imported to and exported from
-the EchoMail path specified for that sub-board, or off the base EchoMail
-directory specified in SCFG Network options in a subdirectory named after the
-internal code of the sub-board.</pre>
-<h3><a name="FidoNetUsingSBBSECHOandInterMail">[9.4.1] - Step-by-Step
-instructions for setting up FidoNet using SBBSecho and InterMail</a> <b><i><font color="#FF0000">
-(v2 Only)</font></i></b>
-</h3>
-<pre>One of the most difficult tasks that the novice sysop will encounter is the
-setting up of FidoNet. These instructions will take you step by step through
-the process of setting up FidoNet on your BBS. Be warned that these steps are
-very basic, just enough to get FidoNet up and running on your system, but it
-may still be necessary for you to refer to the documentation which accompanies
-the programs referred to in these steps. For any advanced operations you will
-definitely need to refer to the documentation of programs referred to in these
-steps. If you know of anyone who is already on FidoNet that is willing to help
-you out, by all means ask them for their help!
-
-NOTE that while it doesn't cost anything to have a node number (for sending
-and receiving netmail) or to receive local conferences, there is usually a
-nominal fee (called "cost recovery") to receive conferences from the FidoNet
-backbone or files from the FidoNet filebone.
-
- 1) First of all you will need to obtain a copy of FidoNet's Policy 4 document
- (the filename is usually POLICY4.ZIP or POLICY4.TXT), a recent nodelist
- (usually named NODELIST.???), AND a front-end mailer program. All three of
- these can normally be downloaded from any local BBS which carries FidoNet
- (if not, an e-mail to the sysop of a FidoNet BBS can usually point you in
- the right direction). There are several front-end mailers available such
- as FrontDoor, InterMail, D'Bridge, SEAdog, Dutchie, BinkleyTerm, and Portal
- of Power to name a few (the latter two are referred to as "FLO-Style"
- mailers and the others are referred to as "Attach-Style" mailers). Most
- front-end mailers offer a limited evaluation version which you can try out
- before you decide to purchase the program.
-
- 2) Read the Policy 4 document, it will give you information about FidoNet as
- well as some specifics on how to obtain a node number for your system.
-
- 3) If you do not plan to run InterMail (or FrontDoor which is very similar)
- you must set up the front-end mailer you plan to use by following the
- directions which accompany the program and then skip to step number 9.
- The documentation will also tell you how to "compile" the nodelist file
- you've downloaded so that your front-end mailer can use it. Use the
- temporary address specified in Policy 4 when specifying your node address
- in the front-end mailer.
-</pre>
-<pre><b>Setting up InterMail v2.xx or FrontDoor v2.xx</b>
-
- 4) Install InterMail per IM.DOC (included with InterMail).
-
- a) If using FrontDoor, follow the FD.DOC file and substitute the letters FD
- where ever you see an IM in this section.
-
- 5) Copy the MAILER.BAT included with SBBSecho and the EXEBBS.BAT from the
- Synchronet DOCS directory into the InterMail directory (C:\IM).
-
- 6) Change into the InterMail directory, run IMSETUP, and perform the
- following:
-
- a) Under Global->Address->Main, enter your FidoNet address (or the
- temporary address specified in Policy 4 until such time as you have
- received your own address).
-
- b) Under Global->Filenames, verify that the paths are set similar to the
- following:
-
- ������������������������������������������������������� Filenames and paths �
- � �
- � System C:\IM\SYSTEM\ (or C:\FD\ for FrontDoor) �
- � Netmail C:\IM\MAIL\ �
- � Files C:\IM\INBOUND\ �
- � Sec Files C:\IM\INBOUND\ �
- �*Packets C:\IM\PACKETS\ �
- �*Log file C:\IM\IM.LOG �
- � Banner �
- � Nodelist C:\IM\NODELIST\ �
- � In-event �
- � Hudsonfmt �
- � Wildcat! �
- � Swapping C:\IM\ �
- � Semaphore C:\IM\ �
- � �
- � * = Must be unique for each Mail Server �
- ���������������������������������������������������������������������������ͼ
-
- c) Under Modem->Advanced Setup->Connect Strings set ALL "BBSexit" levels
- to 100. (For FrontDoor under Mailer->Errorlevels set all baud rates to
- 100, Received Mail to 50, and Create .BAT file to Yes).
-
- d) Under Manager->Events, make sure all your events are set to exit when
- mail is received (under Event Behavior). This allows for the immediate
- importation of new messages into the BBS.
-
- e) Under Manager->Events, add the following event:
-
- ���������������������������������������������������������������������� Edit �
- � Tag X �
- � Days -------A �
- � Modifier Ignore eventbase (*) �
- � Start time 04:30 �
- � Length 00:01 �
- � Errorlevel 75 �
- � Not used �
- � Behavior �
- � Use alias 1:103/705 �
- � Retry delay 0 �
- � Comment Synchronet exclusive event �
- ���������������������������������������������������������������������������ĺ
- � Event tag A..YZ - eXternal event, errorlevel is required �
- ���������������������������������������������������������������������������ͼ
-
- f) Under Mailer->Misc, set "Trigger exit upon receipt of netmail" and
- "Upon receipt of ANY file" to Yes. This will allow for the immediate
- importation of NetMail and any File Distribution Echoes you may carry.
-
- g) Under Modem->Hardware, set "Lower DTR when busy" to "No".
-
- h) Under Modem->Command strings, set the "Down" string to "ATM0H1|".
-
- i) Exit IMSETUP.
-
- 7) Unarc the nodelist file (NODELIST.???) that you downloaded previously
- into your nodelist directory.
-
- 8) Now run IMNC to compile the nodelist.
-
-
-<b>Setting up FidoNet in SCFG</b>
-
- 9) Run SCFG from one of your node directories, or hit 'C' from the waiting for
- caller screen. Then select Networks->FidoNet EchoMail and NetMail.
- You'll then be brought to a menu that should be set up similar to this:</pre>
-<blockquote>
-<pre><img border="0" src="images/scfg_networks_fido.png" width="572" height="331">
-
- a) For FrontDoor the NetMail Semaphore file should be set to
- C:\FD\FDRESCAN.NOW and the EchoMail Semaphore file should be set
- to C:\FD\FDEXIT.025.
-
- b) For FrontDoor version 2.11, the EchoMail Semaphore file should be
- set to C:\FD\FDXIT.025.
-
- c) For FrontDoor version 2.20 (commercial, multinode), the EchoMail
- Semaphore file should be set to C:\FD\FDXIT#.025, where # is the
- node number (0 based).
-
-10) Set your address to your system's FidoNet address (or the temporary address
- specified in Policy 4 until such time as you have received your own
- address). This is the address used for sending and receiving NetMail. It
- will also be used as the default address for message sub-boards.
-
-11) Create an origin line for your system that most likely contains your BBS
- name and phone number.
-
-12) Following is an overview of the remaining options available on this menu:
-
-<b> a) System Addresses:
-</b> This option will bring you to a sub-menu to allow you to configure
- different addresses (AKAs) for your system. Following is an example
- for a BBS configured for two fido type networks.</pre>
-<pre><img border="0" src="images/scfg_networks_fido_address.png" width="572" height="331"> </pre>
- <blockquote>
-<pre><b> b) Default Outbound Address:
-</b> When a user sends netmail, this is the 'send to' address that is used
- as a default (useful for FidoNet<->Internet gateways).
-
-<b> c) NetMail Semaphore:
-</b> This is the name of the trigger file which will cause your front-end
- mailer to exit and scan for outgoing netmail.
-
-<b> d) EchoMail Semaphore:
-</b> This is the name of the trigger file which will cause your front-end
- mailer to exit and scan for outgoing echomail.
-
-<b> e) Inbound File Directory:
-</b> This is the name of the directory where your front-end mailer stores
- incoming files.
-
-<b> f) EchoMail Base Directory:
-</b> This is the base directory for your echomail subdirectories
-
-<b> g) NetMail Directory:
-</b> This is the name of the directory where your front-end mailer looks for
- and places netmail.
-
-<b> h) Allow Sending of NetMail:
-</b> When set to 'Yes' users can send netmail from your system.
-
-<b> i) Allow File Attachments:
-</b> When set to 'Yes' users can send netmail file attachments from your
- system.
-
-<b> j) Send NetMail Using Alias:
-</b> When set to 'Yes' the user alias will be used (rather than their
- real name) on outgoing netmail.
-
-<b> k) NetMail Defaults to Crash:
-</b> If set to 'Yes' netmail sent from your system will default to crash
- status (send immediately and directly).
-
-<b> l) NetMail Defaults to Direct:
-</b> If set to 'Yes' netmail sent from your system will default to direct
- status (send directly).
-
-<b> m) NetMail Defaults to Hold:
-</b> If set to 'Yes', netmail sent from your system will default to hold
- status.
-
-<b> n) Kill NetMail After Sent:
-</b> Setting this to 'Yes' will delete outgoing netmail after it has been
- sent.
-
-<b> o) Cost to Send NetMail:
-</b> This is the cost (in credits) that a user will be charged when sending
- netmail.
-
-13) Setup SBBSecho by running the ECHOCFG program and reading the documentation
- for information on the available options.
-
- a) Under Paths...->Outbound Directory be sure to enter the path where
- outgoing mail packets and bundles should be placed (i.e.: C:\IM\OUTBOUND).
-
- b) Select the appropriate Mailer Type.
-
- c) Enter your registration number (if you are a registered owner of the
- SBBSecho program).
-
-14) Once you have done this you must now run the file MAILER.BAT (if using an
- Attach-Style mailer) to use Synchronet with your front-end mailer.
- MAILER.BAT must be run from your front-end mailer's directory (e.g. C:\IM).
- You will no longer run the file SBBS.BAT to start this node (if you run a
- multi-node system, you will still use SBBS.BAT to start those nodes which
- are not using a front-end mailer).
-
- a) If you are NOT using InterMail as your front-end mailer, be sure to
- modify your MAILER.BAT file to reflect the front-end mailer that you
- are using.
-
-15) Follow the instructions given in the Policy 4 document to determine who
- you should send netmail to in order to obtain your own node number.
-
-16) Now, from your front end mailer, send a netmail to this person following
- the instructions contained in the Policy 4 document. Once you have done
- this and the netmail has been sent, you should patiently await a netmail
- reply containing your node number and the node number of your hub (where
- you will send/receive your echomail and netmail to/from).
-
-17) Once you have received your node number, you'll want to replace the
- temporary node number you used in your front-end mailer as well as in
- SCFG->Networks->FidoNet Echomail and Netmail->System Addresses to it.
-
-18) Send your hub a message with the Area Manager (for the backbone <echomail>)
- and Areafix (for the filebone <files>) passwords you wish to use on their
- systems. You will need to remember these passwords as you will be using
- them to do remote maintenance (such as adding and removing conferences and
- file areas that you wish to receive).
-
-19) Your hub should respond with Area Manager instructions and a list of areas
- available for you to connect to. If not, contact your hub for more
- information.
-
-20) Look through the list of areas available to you and determine which
- conferences you'd like to carry. In SCFG->Message Areas create a
- message group(s) for the conferences you'd like to carry. When setting
- up a sub-board for a conference, be sure to use the "Area Tag" name
- given in the area list as the sub-board Short Name.
-
- a) Under Network Options... for each sub-board toggle the FidoNet
- Echomail option toggled to YES.
-
- b) If the conference requires a different address, configure the address
- under Network Options...
-
- c) If you allow aliases on your system, under Toggle Options... set Use
- Real Names to YES.
-
- d) If you are unfamiliar with adding message groups and/or sub-boards,
- consult that section of the Synchronet System Operator's Manual.
-
- e) For a more complete list of conferences available on the FidoNet
- backbone you may wish to download the file FIDONET.NA from either your
- hub or a local FidoNet BBS. This file contains a list of ALL
- conferences carried on the backbone.
-
-21) Once you have set up all of the conferences you'd like to carry, you'll
- need to go to SCFG->Message Areas-><group>->Export Areas...->AREAS.BBS
- (SBBSecho) to create an AREAS.BBS file for SBBSecho to use.
-
-22) Now following the Area Manager instructions, send a message to your hub's
- Area Manager and turn on all of the conferences you wish to carry. Note
- that there are some administrative conferences for FidoNet that your
- users shouldn't be able to read or post on, and some that even you
- shouldn't post on, there is also usually a "test" conference which you may
- want to set up to post messages on and insure that echomail is being sent
- and received properly.
-
-23) That's about all there is to it. You are now set up on FidoNet and should
- be able to send and receive FidoNet echomail and netmail.
-
-
-<b>Examples for Receiving File Echoes via TICK (third party file echo program)</b>
-
-Example TIC.CFG:
-
----------------------------------[ Begin ]-------------------------------------
-IN c:\fd\file
-ZONE 1 c:\fd\-mailout
-NET 2
-NODE 3
-HOLD c:\fd\tickhold
-QDIR c:\fd\tickqdir
-FDLog
-
-AREA j:\fido\backbone BACKBONE
-1:2/1 xxxxx *
-
-AREA j:\fido\SOFTDIST SOFTDIST
-1:2/1 xxxxx *
----------------------------------[ End ]-------------------------------------
-
-In MAILER.BAT, at the end of the ":inmail" block, before "goto top":
-
----------------------------------[ Begin ]-------------------------------------
-set tz=PST8EDT
-tick >> fd.log
-set tz=
-%sbbs%\exec\addfiles * /diz
----------------------------------[ End ]-------------------------------------
-
-
-<b>Setting up ALLFIX (third party file echo program) with Synchronet BBS Software<u>
-</u></b>
-In ASETUP->System data->Global Options:
-
-������������������������������������������������������������� Global options �
-� �
-� Keep original file date Yes Replace extension No �
-� Mailer rescan FrontDoor Max age of requests 0 �
-� Log style FrontDoor Keep exported messages No �
-� Mailer mode FrontDoor Days to keep on hold 30 �
-� Download counters Size of stat file 0 �
-� Update DESCRIPT.ION No Max TIC archive size 0 �
-� Date format mm-dd-yy Max size to pack 0 �
-� Min HD space to import 1024 UTC offset -8 �
-� Process local requests No Max Msg size 0 �
-� MSG compatibility Fido �
-� Dupe checking Filename �
-� �
-����������������������������������������������������������������������������ij
-� �
-� LongDesc character One line LongDesc No �
-� Filter LongDesc No Max len of LongDesc 0 �
-� Spaces to indent 1 Add tag to desc No �
-� �
-����������������������������������������������������������������������������;
-
-Edit your MAILER.BAT:
-
-Search for "set sbbs="
-Add "set allfix=c:\allfix"
-
-Search for ":inmail"
-Add "%allfix%\allfix file mgr"
-Add "%sbbs%\exec\addfiles * /diz"
-
-Search for ":outmail"
-Add "%allfix%\allfix file"</pre>
-<h3><a name="SendingFidoNetNetMail">[9.5.2] - Sending FidoNet NetMail</a></h3>
-<pre>Once you have a FidoNet address and have your Front-end mailer functioning
-properly, you may send NetMail messages and allow, if you wish, your users
-to send NetMail. You can set a NetMail cost in credits for users in SCFG->
-Networks->FidoNet EchoMail and NetMail->NetMail Cost. Sysops and users with
-the 'S' exemption will not be charged credits when sending NetMail. Users
-with the 'M' restriction are not allowed to send NetMail. Users will not
-be allowed to send NetMail at all, if the sysop has set SCFG->Networks->FidoNet
-EchoMail and NetMail->Allow Sending of NetMail to No.
-
-Users can optionally set a NetMail forwarding address for their account using
-the "Account Defaults" menu. If the user has a NetMail address specified,
-any E-mail set to that account will be automatically forwarded to the NetMail
-address if the sending user wishes. This is useful for users who can receive
-FidoNet NetMail on a "home" BBS system and prefer to receive their E-mail there
-instead of on this particular system.
-
-Sysops and users with the 'F' exemption can also perform other special
-functions with NetMail. If NetMail Defaults to Crash status is OFF, sysops
-and 'F' exempted users can override this by starting their NetMail title
-with "CR:" setting the Crash status ON for that NetMail message.
-
-Sysops and 'F' exempted users may also send File Requests by starting the title
-with "FR:" and then the filename(s) being requested follow on the title. If
-multiple filenames are requested, they must be separated by a space.
-Example: "FR: FILE1.EXT FILE2.EXT".
-
-Sysops and 'F' exempted users may also send File Attachments from anywhere
-on the system (potentially dangerous) by starting the title with "FA:" and then
-the filename(s) to attach to the netmail message. This allows the sysop to
-send a file attachment to multiple users without creating multiple copies of
-the attachment or requiring the attachment to be copied into the Synchronet
-DATA\FILE\xxxx.OUT directory of the sending user. Since the sending user
-(sysop or 'F' exempt) can attach ANY file on the system, the 'F' exemption
-and sysop security level (90+) should given out with extreme caution.
-
-Sysops and 'F' exempted users can also request a return receipt by starting
-the title with "RR:". "CR:", "FR:", "RR:", and "FA:" may be used in combination
-with one another, but must be specified in that order.
-Example: "CR: RR: This is my title".
-
-The "xx:" specifiers and an optional trailing space are eliminated from
-the final title for the NetMail message.
-Example: "CR:Hello" or "CR: Hello"
-Becomes: "Hello" before it is sent out by Synchronet.</pre>
- </blockquote>
-</blockquote>
-<h2> <a name="InternetNetworking">[9.5] - Internet Networking</a></h2>
-<pre><img border="0" src="images/scfg_networks_internet.png" width="572" height="331">
-
-<b>System Address:
-</b> This is the Internet address for your BBS.
-
-<b>NetMail Semaphore:
-</b> This is the name of the trigger file which will cause your Internet
- mail program to exit and scan for outgoing netmail.
-
-<b>Allow Sending of NetMail:
-</b> When set to 'Yes' users can send Internet netmail from your system.
-
-<b>Allow File Attachments:
-</b> When set to 'Yes' users can attach files to the Internet netmail that
- they are sending.
-
-<b>Send NetMail Using Alias:
-</b> When set to 'Yes' the user alias will be used (rather than their
- real name) on outgoing Internet netmail.
-
-<b>Cost to Send NetMail:
-</b> This is the cost (in credits) that a user will be charged when sending
- Internet netmail.
-</pre>
-<pre><b><i><font color="#FF0000">(v2 Only)</font></i></b>
-In order for your BBS to support Internet networking (including such things as
-sending/receiving Internet netmail and newsgroups, FTP, Telnet, etc.) it is
-required that you obtain a third party program such as NetXpress or BBSNet. It
-is also possible (but not recommended) to use a Fido->Internet or a
-QWK->Internet gateway (usually available as shareware software).</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/ntreadme.txt b/docs/ntreadme.txt
deleted file mode 100644
index d44e835a495e9ed5e1d40c312bb1eefe827c7cb1..0000000000000000000000000000000000000000
--- a/docs/ntreadme.txt
+++ /dev/null
@@ -1,46 +0,0 @@
-Synchronet v3.10 Windows NT/2000/XP Instructions
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-Note
-~~~~
-Windows 2000 is actually Windows NT 5 (renamed for marketing reasons), not
-to be confused with Windows Millennium Edition (the successor to Windows 98).
-Windows XP is actually Windows NT 5.1 (renamed for marketing reasons).
-
-Issues
-~~~~~~
-1. Your C:\WINNT\SYSTEM32\CONFIG.NT file should NOT include Microsoft's
- ANSI.SYS if you want DOS I/O Interception to function properly (required
- for 16-bit XSDK/WWIV programs, DOS shell, viewing zip files, etc.).
-
-2. Add C:\SBBS\EXEC\SVDMANSI to the end of your C:\WINNT\SYSTEM32\AUTOEXEC.NT
- to use the Synchronet Virtual DOS Machine ANSI driver (originally created
- as a replacement for OS/2's ANSI driver, but it functions as an ANSI.SYS
- replacement for Windows NT just as well - thanks again Steve!).
- Use of this driver is *optional*.
-
-3. Use ;SHELL instead of ;DOS to remotely shell to the Windows NT 32-bit
- command interpreter (cmd.exe), which has more functional I/O interception.
- The backspace key does not work correctly however (watch those typos!).
- The ;DOS command will shell to the 16-bit command interpreter (command.com)
- which has numerous I/O interception issues on NT.
-
-4. If you need more conventional memory for your external DOS programs and
- do not need DPMI support, remove (or REM-out) the DOSX line of your
- C:\WINNT\SYSTEM32\AUTOEXEC.NT. This will give you about 40K additional
- conventional memory for your external DOS programs.
-
-
-Debugging
-~~~~~~~~~
-If you have any problems with programs that worked under Windows 95/98,
-but aren't under NT/2000: find the sbbsexec#.log (where # is the node
-number) that was generated after the program in question was run and
-send it to me for debugging purposes. The sbbsexec#.log files are created
-in the current directory at the time the program is run. This will
-usually be either the Synchronet EXEC directory or the startup directory
-for an online external program (e.g. C:\SBBS\XTRN\DOORNAME).
-As for v3.10, these files are only created with the DEBUG BUILD of
-SBBSEXEC.DLL (which you probaby don't have).
-
-/* End of File */
diff --git a/docs/platforms.html b/docs/platforms.html
deleted file mode 100644
index 91855959bac393d1226cba32c129515dfababde1..0000000000000000000000000000000000000000
--- a/docs/platforms.html
+++ /dev/null
@@ -1,31 +0,0 @@
-<html>
-<head>
-<title>Synchronet - Supported Platforms</title>
-</head>
-<table border="1">
-<CAPTION><h1>Synchronet - Supported Platforms</h1></CAPTION>
-<TH>Synchronet
-<TH>DOS
-<TH>OS/2
-<TH>Win3.x
-<TH>Win95
-<TH>OSR2
-<TH>Win98
-<TH>WinME
-<TH>WinNT3
-<TH>WinNT4
-<TH>Win2000
-<TR><TD>Pre 2.3<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]
-<TR><TD>2.30<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]<TD BGCOLOR=LIME>Yes [1]
-<TR><TD>3.00a<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No
- [3]<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=RED>No
- [2]<TD BGCOLOR=RED>No [2]<TD BGCOLOR=RED>No [2]
-<TR><TD>3.00b<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No
- [3]<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=RED>No
- [3]<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes
-<TR><TD>3.00c<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No<TD BGCOLOR=RED>No<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes<TD BGCOLOR=LIME>Yes
-</table>
-[1] Supported in DOS-Box/Emulation mode<br>
-[2] No FOSSIL/DOS-interrupt driver (for external programs/doors)<br>
-[3] No support for Win32 API function: GetDiskFreeSpaceEx<br>
-</html>
\ No newline at end of file
diff --git a/docs/qemm.txt b/docs/qemm.txt
deleted file mode 100644
index 9e7451eaba9c707deb6d1ce03a9a0443c2c9ff91..0000000000000000000000000000000000000000
--- a/docs/qemm.txt
+++ /dev/null
@@ -1,168 +0,0 @@
-Experience has shown that problems with DESQview usually have nothing to do
-with DESQview and everything to do with QEMM.
-
-The default QEMM config.sys line is "DEVICE=QEMM386.SYS RAM". If you are using
-this config.sys line, you are playing with fire. On every system configuration
-tested at Digital Dynamics, DESQview (or even just plain DOS) will eventually
-crash using this config.sys line.
-
-The problem is that QEMM is using memory regions that other components of your
-systems are also trying to use. This is bad. QEMM may also not be using memory
-regions that are not in use and therefore you may not be getting all the
-available upper memory possible. This is important if you need to load TSRs,
-device drivers, or network drivers into high memory to leave as much DOS base
-memory as possible.
-
-An example config.sys:
-
- 1: shell=c:\dos\command.com /e:1024 /p
- 2: stacks=0,0
- 3: buffers=5
- 4: files=50
- 5: lastdrive=m
- 6: device=c:\dev\qemm386.sys ram x=b800-c7ff i=f000-f7ff i=fd00-fdff
- 7: device=c:\dev\loadhi.sys c:\dev\smartdrv.sys 1024
- 8: device=c:\dev\loadhi.sys c:\dev\ramdrive.sys 4096 256 512 /e
- 9: device=c:\dev\loadhi.sys c:\dev\ansi.sys
-
-Remember, this example config.sys will probably NOT work in your system. It
-does however work in one specific system. The right config.sys line for your
-system will need to be determined by you. Keep reading to find out how to make
-that determination.
-
-Note line 6, where QEMM386.SYS is loaded. The extra parameters after "ram"
-are specifying that QEMM exclude (not use) the memory region B800h through
-C7FFh and that QEMM should include (use) the memory regions F200h through F2FFh
-and F400h through F6FFh.
-
-The "x=b800-c7ff" part of the line is VERY IMPORTANT. Without this parameter,
-this particular system will eventually crash under DESQview or even DOS alone
-under some circumstances. The crash will manifest itself differently with
-different system configurations. It may give you a "QEMM protection violation"
-or "Invalid instruction", or "NO ROM BASIC - SYSTEM HALTED", or it just may
-suddenly freeze.
-
-The "i=nnnn-nnnn" parameters in the line tell QEMM to include (use) these
-memory regions for more available high memory. You should NOT use the inclusion
-parameter unless you are positive that no component of your system will try
-to use that memory region (including your system BIOS).
-
-So how do you figure what to include and exclude? By using the QEMM.COM utility
-with the "analysis" parameter. The first time you run "qemm analysis", you'll
-see something like this:
-
-�����������������������������������ͻ
-� Area Size Status �
-� 0000 - C2FF 780K OK �
-� C300 - C7FF 20K Include �
-� C800 - EFFF 160K OK �
-� F000 - F1FF 8K Include �
-� F200 - F2FF 4K OK �
-� F300 - F3FF 4K Include �
-� F400 - F6FF 12K OK �
-� F700 - F8FF 8K Include �
-� F900 - FAFF 8K OK �
-� FB00 - FBFF 4K Include �
-� FC00 - FCFF 4K OK �
-� FD00 - FDFF 4K Include �
-� FE00 - FFFF 8K OK �
-�����������������������������������ͼ
-
-The regions with the status "OK" mean that QEMM is dealing with it correctly.
-It is either NOT using the region because another resource is using it or it
-is using the region and no other resource has tried to use it since you booted.
-
-The regions with the status of "Include" mean that QEMM is not using the region
-and no other resource has tried to use it since you booted.
-
-The regions with the status of "Exclude" (none listed above) mean that QEMM is
-using the region and another resource has tried to use that region at the same
-time. This region must be manually excluded with the "x=nnnn-nnnn" parameter
-on your config.sys line.
-
-Now don't be fooled by all the "Include" regions above in that box. As you use
-the system, those regions will shrink, split, or disappear altogether. After
-executing "qemm analysis" (producing the above output) and then accessing a
-floppy drive, the "Include" regions already begin to disappear:
-
-�����������������������������������ͻ
-� Area Size Status �
-� 0000 - C2FF 780K OK �
-� C300 - C7FF 20K Include �
-� C800 - EFFF 160K OK �
-� F000 - F1FF 8K Include �
-� F200 - F2FF 4K OK �
-� F300 - F3FF 4K Include �
-� F400 - F6FF 12K OK �
-� F700 - F8FF 8K Include �
-� F900 - FCFF 16K OK �
-� FD00 - FDFF 4K Include �
-� FE00 - FFFF 8K OK �
-�����������������������������������ͼ
-
-After switching into every available video mode and running "qemm analysis"
-again:
-
-�����������������������������������ͻ
-� Area Size Status �
-� 0000 - C5FF 792K OK �
-� C600 - C6FF 4K Include �
-� C700 - EFFF 164K OK �
-� F000 - F1FF 8K Include �
-� F200 - F2FF 4K OK �
-� F300 - F3FF 4K Include �
-� F400 - F6FF 12K OK �
-� F700 - F8FF 8K Include �
-� F900 - FCFF 16K OK �
-� FD00 - FDFF 4K Include �
-� FE00 - FFFF 8K OK �
-�����������������������������������ͼ
-
-After typing "echo ^g" at the DOS prompt (^g stands for Ctrl-G) and then
-running "qemm analysis" again:
-
-�����������������������������������ͻ
-� Area Size Status �
-� 0000 - C5FF 792K OK �
-� C600 - C6FF 4K Include �
-� C700 - EFFF 164K OK �
-� F000 - F1FF 8K Include �
-� F200 - F2FF 4K OK �
-� F300 - F3FF 4K Include �
-� F400 - F6FF 12K OK �
-� F700 - F7FF 4K Include �
-� F800 - FCFF 20K OK �
-� FD00 - FDFF 4K Include �
-� FE00 - FFFF 8K OK �
-�����������������������������������ͼ
-
-As you can see, just about every system function will effect the regions that
-QEMM thinks you can safely include. It is a good idea to run just above every
-application you can and access every device on your system before deciding
-that the information provided by "qemm analysis" may be accurate and usable.
-
-If "qemm analysis" every reports a region with the status of "Exclude", do not
-question it. Immediately edit your config.sys excluding that region and reboot.
-
-If, for example, "qemm analysis" reports:
-
-�����������������������������������ͻ
-� Area Size Status �
-� 0000 - C5FF 792K OK �
-� C600 - C6FF 4K Include �
-� C700 - EFFF 164K OK �
-� F000 - F1FF 8K Exclude �
-� F200 - F2FF 4K OK �
-� F300 - F3FF 4K Include �
-� F400 - F6FF 12K OK �
-� F700 - F7FF 4K Include �
-� F800 - FCFF 20K OK �
-� FD00 - FDFF 4K Include �
-� FE00 - FFFF 8K OK �
-�����������������������������������ͼ
-
-Edit your config.sys file addding "x=f000-f1ff" at the end of your
-"device=qemm386.sys" line. Then reboot your system.
-
-
-
diff --git a/docs/sbbs.hst b/docs/sbbs.hst
deleted file mode 100644
index 6413297bcae1000a8d382860df12dac56b23267e..0000000000000000000000000000000000000000
--- a/docs/sbbs.hst
+++ /dev/null
@@ -1,1318 +0,0 @@
-Synchronet Version 2 Development History
-----------------------------------------
-
-Legend: ! Bug Fix
- * New Feature
- & Change of Operation
-
-Each line begins with one of the modification types listed in the legend above
-and then followed by a single digit (0-9) rating the importance/severity of
-the modification (0 being least significant).
-
-***********************************
-June 2, 1994 Version 2.00a Released
-***********************************
-
-!0 When a directory was set for content ratings, the rating letter was not
- converted to uppercase and a new line was not displayed after the uploader
- entered the rating.
-
-!9 If more nodes were configured in SCFG than the node license allowed
- for (i.e. 3 nodes in SCFG with a 2 node license), random lock-ups and
- bizzare errors would occur, increasing in frequency between logons. Version
- 2.00a was supposed to allow for an additional local-only node for all
- licenses. Even the existance of the additional node in SCFG would cause
- this problem. If you had more nodes listed in SCFG than your node license
- allows, this could explain just about any wierd behavior you may have
- experienced.
-
-!0 RESORT directory command no longer creates an empty extended descriptions
- file (EXB) if there are no extended descriptions for the files in the
- directory being sorted/compressed.
-
-!5 Start-up directory for timed events not working at all.
-
-!1 Bulk upload command would abort if sysop hit ENTER for the description, thus
- not allowing the automatic DIZ import into the single line description.
- A Ctrl-C is now required to abort a bulk upload.
-
-!0 Slash commands were sometimes written with a control character following
- the slash in the activity log files.
-
-&5 The contents of the current PCMS variables (string, logic state, and command
- key) are now retained when loading a Baja module via EXEC_BIN function. This
- allows variables to be "passed" from a shell to a module.
-
-*3 Users can logon directly to the QWK: prompt by prepending an asterisk (*)
- to their user name or number at the logon prompt.
-
-!4 When performing an un-read personal message scan (MSG_YOUR_SCAN), if a sub
- contained more than one un-read personal message, every other message would
- be by-passed without displaying.
-
-!2 When viewing the user defaults from the User Edit function, the command
- shell shown was the command shell of the current user online (most likely
- the sysop), not the user that was being viewed in User Edit.
-
-!1 When modifying the external editor from the user defaults function, hitting
- enter did not select the default editor if no external editor was previously
- selected.
-
-&1 The COMPARE_USER_MISC Baja function now only sets the logic state to TRUE
- if the all of the flags specified are enabled for the current user.
- Previously, anyone of the flags set would cause the logic to be set to
- TRUE.
-
-&0 When retrieving statistics for the WFC statistics display, a single dot
- is displayed for each stat that has been retrieved.
-
-!5 Rockwell/Supra/PPI Caller ID format support (NMBR) was not functioning.
- Synchronet was looking for "DATE=" when in reality the modems return
- "DATE =".
-
-!8 A garbaged SFDOORS.DAT file was being created if this drop file type was
- selected for an external program, and sometimes creating this drop file
- when running the program from SBBS would hang the system or cause other
- miscellaneous problems.
-
-&4 Improved preperation of DIZ text for single line description, when a
- single line description is not provided by the uploader.
-
-!0 Could not change internal code of chat channels in SCFG - chat channel
- internal codes are not used in Synchronet at all at this point, so this
- bug really had no effect.
-
-!1 Could not change internal code of Gurus in SCFG.
-
-!2 FidoNet EchoMail base directory was not always created when saving changes.
-
-!1 Modifying certain elements in SCFG->Networks->QWK Networks would not prompt
- to save changes when ESCaping.
-
-!2 Installation program no longer causing SCFG to give an error reading
- MAIN.CNF if installing without default config (.CNF) files.
-
-&1 New (V)ersion command line switch for SBBS to display detailed revision
- information (i.e. "SBBS V").
-
-!3 EXEC_BIN function was not looking in the EXEC directory for .BIN modules.
-
-!2 PAGE_SYSOP function was not checking the 'C' exemption for the user.
-
-&2 DEFAULT.SRC, MAJOR.SRC, and RENEGADE.SRC all load (via EXEC_BIN) the module
- STR_CMDS.BIN for the string (sysop) commands (i.e. DOS, MEM, CHUSER, etc).
- This eliminates the duplicated code in the various .SRC files, so changes
- are easier made.
-
-&1 CHAT command (for 'C' exempt users) was added back into the string commands.
-
-!2 There were no time left warnings before disconnect when using private chat.
-
-!1 Fixed problem of (NULL)*.* being created in current node directory when
- using temp archive features.
-
-!3 Viewable file types with less than a three character extension were not
- being recognized as viewable file types. Same thing with extractable
- file types.
-
-************************************
-June 25, 1994 Version 2.00b Released
-************************************
-
-!1 Users can read/delete private posts if they are the author.
-
-!3 If a user had access to more than one external program section and the
- sysop did not use a custom XTRN_SEC menu screen, and the user did not
- have access to the first external program section listed in SCFG, they
- could just hit CR and get access to it.
-
-!3 SCFG was not creating DATA\TEXT\<code> directories correctly for general
- text file sections.
-
-&1 If NAME.DAT becomes corrupted (truncated), valid user accounts in USER.DAT
- will not be overwritten by new users.
-
-!3 Forwarding e-mail would cause the attributes to become corrupted.
-
-!7 The ;RESORT command would corrupt extended file descriptions.
-
-&2 Unused extended description records in the DATA\DIRS\*.EXB files could
- contain garbage. While this didn't hurt anything, some curious sysops were
- concerned about the contents of this file containing recognizable data. Now
- the unused records are filled with 0 instead.
-
-&7 Sending Internet NetMail from the BBS required an '@' in the user address
- and the name was stored separate from the address in the SMB header record.
-
-!5 If the advanced option "Expires when out-of-time" was set to Yes and the
- user expired to a level that allowed the same amount of time online or
- less, it would loop saying "Your account has expired" and "Time's up".
-
-&2 If a non fidonet network address is used in netmail and internet netmail
- is disallowed and a default fidonet address is specified in SCFG, then the
- outbound name@addr will become name@addr@fidoaddr to allow for remote
- fido/uucp gateways.
-
-&3 Fixed problem when setting message new-scan pointers and a large message
- number gap existed in the base. Was very slow at the finding the date
- of the nearest message to display to the user.
-
-!1 Number of posts incorrect when displaying user stats from the BBS.
-
-*8 SCFG now uses a modem configuration database that can be user modified
- and extended. Also added options for exporting and importing modem config
- files (.MDM).
-
-**************************************
-August 20, 1994 Version 2.00c Released
-**************************************
-
-!9 New version of Borland C++ (v4.0) causing numerous problems with external
- program/event execution. Reverting back to older release (v3.1) only
- apparent solution. No code changes whatsoever.
-
-**************************************
-August 21, 1994 Version 2.00d Released
-**************************************
-
-!7 Fixed bug that would erase extended descriptions for existing files in
- a directory when a new file was uploaded with an extended description
- and the directory was already compressed (no deleted file slots).
-
-**************************************
-August 24, 1994 Version 2.00e Released
-**************************************
-
-!7 The above mentioned bug in v2.00d was not fixed in the revision E patch.
- It has now been fixed.
-
-&4 QWK packet downloads will not be started if the estimated transfer time
- is more than the user is allowed for that logon and the user does not have
- the 'T' exemption.
-
-**************************************
-August 30, 1994 Version 2.00f Released
-**************************************
-
-!4 32-bit CRCs were generated incorrectly in v2.00f (only) and have been
- corrected. This would cause errorneous duplicate message errors when
- posting or importing messages into a sub-board that used duplicate message
- checking.
-
-!3 If all Artificial Gurus were deleted in SCFG, editing Multinode Chat
- Channels would cause displayed garbage or other problems.
-
-!9 Moving files between drives would cause occasional lock-ups or exceptions.
-
-!2 Newly created sub-boards would default to 'On' in users' new-scans even if
- the sub-board had been set to not default on in SCFG.
-
-*3 Added toggle option for each sub-board to set whether a sub-board will
- default to 'On' or not for users' "Your" message scans.
-
-****************************************
-September 9, 1994 Version 2.00g Released
-****************************************
-
-&0 User's can no longer use ASCII char 255 in their name/alias/handle.
-
-&4 Internet posts can now be replied to via NetMail with the 'M' command
- from the reading messages prompt.
-
-*3 Automatically loaded Baja modules can be specified in SCFG->System->
- Loadable Modules. This is for specifying .BIN modules that you want
- to have loaded automatically without having to edit all of your command
- shells. Available triggers are Logon, Logoff, and New User.
-
-!5 Relative swap directory disallowed by SBBS and SCFG (i.e. ..\etc) which
- would cause problems when swapping to disk for external programs that
- have start-up directories. If a swap directory is specified, the complete
- path must be specified.
-
-&2 More intelligent directory/drive checking in SCFG when saving changes.
-
-!4 Problems resolved with private posts not being exported into QWK type
- networks.
-
-*2 External programs can be configured to suspend the user's time online
- while running the program (Free Time).
-
-!1 EXPIRE ARS paramter wasn't functioning properly.
-
-*7 File directory listings are re-listed if using batch flagging prompt.
- If a selection other than [More] is selected, the current page of files
- is redisplayed.
-
-!0 When CID is used to reject a caller, the log showed a random amount of
- time used.
-
-!0 Fixed problem with @EXPDAYS@ showing expired users with large numbers of
- days till expiration.
-
-!0 Fixed problem with @TUSED@ showing incorrect time used under some
- circumstances.
-
-*4 Private node-to-node chat now uses a split-screen mode for ANSI users.
-
-!1 Messages posted to "SYSOP" and read by user #1 will be marked as READ.
-
-!3 Fixed problem of users being able to extract files from directories they
- were not allowed to download from.
-
-!3 Multiple extractions from the same file would not work properly unless the
- command was given multiple types ('E' for example), from the transfer
- section.
-
-*4 New toggle option in SCFG for each directory to specify if directory
- should be excluded from new file scans of all libraries/directories.
- This helps speed up new-file scans when there are large numbers of CD-ROM
- directories where no new uploads are likely to occur.
-
-*5 New toggle option in SCFG for each directory to specify if directory
- should be exluded from Auto-ADDFILES search for new FILES.BBS entries
- (for use with ADDFILES v2.10 or later).
-
-*2 New options in SCFG->Nodes->Node X->Toggle options. Logons via user number
- can be disallowed, logon via user "real name" can be allowed (in addition
- to alias), and passwords can be prompted for each logon attempt (even if
- the user name is not found).
-
-&3 Any keys left in the local keyboard buffer by an executed program are
- ignored by Synchronet. Some programs (namely DSZ) have a nasty bug where
- they leave random key sequences (like Ctrl-Break and Alt-Tab) in the
- keyboard buffer sometimes. These "magical" keystrokes are now purged from
- the keyboard buffer.
-
-*0 If an external program creates the file HANGUP.NOW in the node directory
- (file size and contents irrelevent), Synchronet will immediately hang-up the
- user upon return and log the user off without logging a "Hung-up" in the log
- file or the HUNGUP.LOG file. Both SCB (Synchronet Callback) v1.24+ and SMM
- (Synchronet Match Maker) will create this file, so the user can logoff
- directly from the program without generating a "Hung-up" in the log. XSDK
- programs can't drop carrier on users. While this is still the case,
- technically, the user can be automatically hung-up upon exit if the program
- creates this file, giving the appearance of the program actually hanging the
- user up.
-
-*2 External programs (doors) that require DORINFO1.DEF (for all nodes), this
- drop file can be selected (separately from DORINFO#.DEF) in SCFG.
-
-*4 External editors that require drop files can now have the drop files
- automatically created by Synchronet (configured in SCFG).
-
-*9 New memory compression algorithms allow for more configured items
- (message and files areas, for example) in SBBS. Some systems may see
- as much as 50k more free memory (typing ;MEM at the main menu) with this
- version. Each additional configuration item (message area, file area, etc)
- will also take up much less RAM, thus allowing a much larger number of
- items for most configurations. This memory compression technique is not and
- cannot be utilized in SCFG. Run "SCFG /M" to display the amount of free
- memory in the configuration utility at all times.
-
-!1 The %T command line specifier could contain the wrong number when run during
- the new user process (new users events or external editors). When used
- during a new user logon, this specifier will always be 10 minutes.
-
-*7 Any command line configurable in SCFG can be used to execute a Baja module
- (.BIN file in your EXEC directory) instead of an executable (.COM, .EXE, or
- .BAT). This is done by prefixing the command line with a '*'. For example:
- "*type %f" for a viewable file type command line for .TXT. TYPE.BIN is
- included and makes a single Baja call to a new function, PRINTFILE_STR,
- which is the same as PRINTFILE, except that it prints the contents of the
- current string variable (as passed to the module via the command line,
- %f in the example above, the path and filename to print). This is also
- convenient for executing Baja modules from your external program (door)
- menu or as transfer protocols, or whereever an external program is normally
- used.
-
-!2 User's time left was not checked before starting the download of an e-mail
- file attachment.
-
-!0 When sending bulkmail, the title of all messages after the first were
- converted to all lowercase characters.
-
-!7 When displaying the userlist and sorting alphabetically, if there wasn't
- enough available memory for allocation, the BBS would "lose" most of what
- memory was available.
-
-*5 User database (USER.DAT) is accessed using record locking, rather than
- file locking (as before). This significantly increases speed on writing
- to the user database on active multinode BBSs.
-
-*9 Optional message base compression using LZH encoding. Intelligent
- compression algorithm only stores in compressed form if disk space (in 256
- byte block increments) is actually saved. Larger messages compress better.
- Preliminary testing shows average message base compression between 30%
- and 50%, which can equal hundreds of megabytes on large message base
- systems. This toggle should only be used on message bases where the average
- message is at least 512 bytes in length (roughly have a page of text).
- Debate and philosophy type sub-boards appear to benefit the most from
- compression. :-)
-
-&3 PostLink networked sub-board now allow 60 character "to" fields and
- 70 character "subject" fields.
-
-*4 MAIL_SEND_NETFILE baja command now allows sending FidoNet file attachments
- as well as Internet file attachments.
-
-*1 FidoNet NetMail "Direct" status now supported (in SCFG->Networks).
-
-*5 TEXT.DAT strings can be replaced dynamically with a Baja function call,
- REPLACE_TEXT. See TEXTNUMS.DAT for the number of the TEXT line you wish
- to replace in a specific shell or module.
-
-*3 DOOR.SYS is now created with line 31 (Max Kbytes to download today)
- containing the number of credits the user has (including free credits) in
- kilobytes. If "Modify User Data" is set to Yes for a DOOR.SYS type external
- program, line 29 is read back to update the number of downloaded files in
- the user data and line 30 (Kbytes downloaded today) is read back in,
- subtracted from the user's credits and added the total bytes downloaded in
- the user data.
-
-*4 Support for FAX/Modems that insist on returning verbal result code "+FCON"
- upon FAX connections. The BBS will exit with error level 100 so that the
- SBBS.BAT file may launch the FAX receive software.
-
-!3 Fixed problem with bi-directional QWKnet account transfers that would cause
- contents of outbound QWK packet to be imported into DATA\QNET\<QWKID>.IN.
-
-*8 New message storage method: Hyper Allocation for the ultimate message
- importing (tossing) performance. Twice as fast as "Fast Allocation".
-
-!1 @ZIP@ code wasn't working at all.
-
-*3 If blind uploads are allowed, files are not added the database (upload
- rejected) if the file was found in another directory.
-
-*5 Circular QWK echomail messages are automatically detected and rejected.
-
-*9 QWK NetMail with automatically maintained route map (DATA\QNET\ROUTE.DAT)
- for routing instructions for multiple hop NetMail.
-
-*7 Optional QWKnet user list (DATA\QNET\USERS.DAT) for automatic address
- look-up. Created with included utility: QWKNODES.EXE
-
-&2 Searching for "Your messages" and displaying Titles only is MUCH faster
- now.
-
-*3 QWK mail imported that's sent to the system ID will be sent to user #1
- rather than being rejected as an "Unknown user".
-
-*5 Support for QWKnet call-out semaphore files: DATA\QNET\<HUBID>.NOW
- If this file exists the QWKnet call-out node will delete the file and
- do an immediate call-out for that hub.
-
-*1 QWKnet call-outs can be forced from any node using the WFC 'F' command
- or by typing ;FORCE <BBSID> from the main menu in the BBS.
-
-*3 If a user attempts to send e-mail to user@addr, the BBS will automatically
- assume they intend to send netmail.
-
-*1 Ctrl-AZ can now be used to signify a premature end of file for display.
-
-****************************************
-February 17, 1995 Version 2.10a Released
-****************************************
-
-!0 QWK netmail forwarded to a FidoNet address would have the "From" field
- set to the sysop's name instead of the sender's name.
-
-*2 When creating a message locally, all tear lines in the message text are
- automatically converted to "-+-" by Synchronet. This conversion does
- not happen with E-mail or NetMail.
-
-!2 Couldn't receive e-mail by user number via QWK REP packets.
-
-&5 Removed Guest ('G' restriction) hardcoded shell and expert questions and
- display of SBBS.MSG
-
-*3 Added SELECT_SHELL and SET_SHELL Baja functions for changing user's command
- shells from Baja modules.
-
-*2 Added SELECT_EDITOR and SET_EDITOR Baja functions for changing user's
- external editor from Baja modules.
-
-*0 Added RANDOM ARS keyword for random number generation used in access
- requirements and Baja modules. Baja line "COMPARE_ARS RANDOM 5=1" would
- generate a random number between 0 and 5 and set the logic state to true
- if the number generated was a 1.
-
-*1 Searches for "Un-read messages to you" will now show messages sent to the
- either the user's name or alias (regardless of whether the echo is set to
- "Use real names" or not).
-
-!3 Fixed problem with Searches for "Un-read messages to you" starting at the
- last personal message in the sub-board if the user's last read message
- pointer was higher than the last un-read message, rather than the beggining
- of the un-read messages (as it should have).
-
-*2 Searches for messages to you from the reading messages prompt and from
- the main menu (displaying titles only) is many times faster.
-
-*2 Message threading (by from, to, or subject) from the reading messages prompt
- is many times faster.
-
-*1 Un-read messages to the user online will be displayed with a flag of '!'
- in message title listings in sub-boards.
-
-!2 Baja function "SET_USER_STRING" was changed in the following ways:
- Had a bug when called and the current string was blank. No longer allows the
- user to choose an alias already in use (which could be bad) or an alias that
- does not begin with an alpha character. For ALIAS, REALNAME, or HANDLE
- checks the TEXT\NAME.CAN before allowing the user to use that name. For
- PHONE checks the TEXT\PHONE.CAN before allowing the user to use that number.
- For REALNAME or HANDLE disallows names in use if the "Force Unique" toggle
- is set to Yes in SCFG->System->New User Values->Question Toggles. For
- setting BIRTHDAY, invalid BIRTHDATES are not allowed. If the string can't be
- used the logic state is sete to FALSE, otherwise it is is set to TRUE.
-
-!7 Serious problems when attempting to load a baja module from within another
- baja module (not command shell).
-
-*3 Added ARS keywords LASTON and LOGONS to check for days since last logon and
- total logons in Baja COMPARE_ARS functions or in SCFG.
-
-*7 Added Pre-pack QWK feature. All users meeting the requirements in SCFG->
- Msg Options->Pre-pack QWK Requirements will have new messages automatically
- added to a QWK packet and store until they download a QWK packet and the
- pre-packed QWK will be appended to. This is mainly intended to reduce LD
- costs for long QWKnet connections.
-
-!4 Sending FidoNet file attachments from Synchronet with a relative data
- directory in SCFG (i.e. ..\DATA) would cause the file to not be sent.
-
-*2 When posting on a local message base (not networked) and a "to" name
- is prompted for, the name is checked against the user database before
- allowing the posting user to continue.
-
-*3 When a QWKnet call-out node is run, it will now import HUBID.QW0 through
- .QW9 as well as .QWK if they exist in the DATA directory.
-
-&5 When routing QWK netmail, Synchronet will automatically take the shortest
- route if the next hop is a node or hub off of the local system (overriding
- the DATA\QNET\ROUTE.DAT file).
-
-&2 Synchronet will automatically eliminate duplicate entries in the ROUTE.DAT
- file, keeping the newest entry.
-
-!2 Solved the problem of a user or QWKnet node receving e-mail while creating
- a QWK packet. The mail would be auto-deleted after the packet was downloaded
- even though the new e-mail wasn't included in the packet and wasn't read.
-
-*4 The following Baja functions can now use %s (to represent the current
- string) and %f (to represent the current file directory) and any of the
- command line specifiers (listed in Appendix A of the sysop manual) in their
- string arguments: REPLACE_TEXT, LOG, PRINT, PRINT_LOCAL, PRINT_REMOTE,
- PRINTFILE, PRINTFILE_REMOTE, PRINTFILE_LOCAL, CHKFILE, EXEC_BIN, YES_NO,
- NO_YES, MENU, SETSTR, SET_MENU_DIR, SET_MENU_FILE, and COMPARE_STR.
-
-*4 The following command line specifiers have been added: %o (SysOp Name)
- %q (System QWK ID) %x (User's Command Shell) %* (Node number 0 padded to 3
- digits) %1 (user number) %2 (user number 0 padded to 2 digits) %3 (user
- number 0 padded to 3 digits) %4 etc.
-
-&0 Version number command line specifier (%v) now includes revision letter
- (i.e. 2.10B).
-
-&3 Added option in SCFG->Message Options to Allow users to have their e-mail
- forwarded to a netmail address. Previously, this option would automatically
- be available to the user if the system allowed users to send FidoNet or
- Internet mail. This toggle defaults to "No" (disallow forwarding).
-
-&2 Added option in SCFG->Message Options to have Read E-mail automatically
- killed by running "SMBUTIL M".
-
-!2 Fixed problem of small chunks of memory disappearing while moving around
- within SCFG.
-
-&5 Overlay buffer manipulation released 32k of more free memory in SCFG and
- 40k of more free memory in SBBS.
-
-&6 Daily events, QWKnet call-outs, and PostLink call-outs will now execute
- automatically, even when started from a front-end mailer or other program
- which requires SBBS to exit after a caller.
-
-*5 New QWK options can be toggled from the "Change Settings" menu from the
- QWK prompt: Include Message Path (VIA), Include Time Zone (TZ), Include
- Index Files, and Include Control Files. This allows for non-Synchronet
- systems to QWKnet with Synchronet BBSs without receiving @VIA and @TZ
- lines. This also allows Synchronet systems to eliminate the index and
- control files from QWK packets since they are unnecessary for QWKnet
- importing and just make the file larger. These options can also be
- toggled via QWK control message to "SBBS" with a title of "VIA", "TZ",
- "NDX", or "CONTROL" followed by "ON" or "OFF". TZ and VIA default to OFF,
- so Synchronet systems may need to post a control message to enable them.
-
-*2 Split screen chat can now be toggled from the Chat: prompt with the 'S'
- command.
-
-*6 New Baja functions: COMPARE_NODE_MISC, COMPARE_USER_CHAT, COMPARE_USER_QWK,
- TOGGLE_USER_CHAT, and TOGGLE_USER_QWK. See BAJA.TXT for details.
-
-!2 The timeleft field in drop files created for external editors could contain
- the incorrect number when used as a new user external editor for validation
- feedback.
-
-!0 Batch file flag prompt (P)revious command went backwards exactly one file
- less of a full screen.
-
-!3 When forwarding mail, the original author's user number could be set to
- a random number which would cause havoc when the new destination user
- (A)uto-replied to the mail.
-
-*4 External editors can now be configured as QuickBBS (MSGTMP) style to
- support native QuickBBS/Remote Access external editors (i.e. GEdit,
- IceEdit, TopEd, etc.)
-
-*1 External editors can now be configured to expand single line feeds to
- carriage return/line feed pairs. This is for editors that store new lines
- as a single line feed (i.e. VI and other Unix editors, WWIVEdit in WWIV
- mode, etc.)
-
-*5 Externalized storage (environment variables SBBSFILENAME and SBBSFILEDESC)
- of uploaded file names and descriptions allows upload processors to
- use file names and descriptions. Upload processors can modify the file
- name and description of uploaded files by writing the files SBBSFILE.NAM
- and SBBSFILE.DES in the current node's directory.
-
-*4 New node toggle options in SCFG for turning on/off the retrieval of total
- files and messages (significantly speeding up the WFC statistics retrieval),
- disabling the local keyboard (entirely), disabling local inactivity warning
- and auto-logoff, and requiring the input of system password for local WFC
- commands and Alt-key combinations.
-
-*2 New Baja function MSG_NEW_SCAN_SUB to scan the current sub-board for new
- messages. Sets the current logic state to FALSE if the user aborted the
- scan.
-
-*1 New Baja functions MSG_SET_GROUP and FILE_SET_LIBRARY to set the current
- message group of file library by short name.
-
-!2 E-mail file attachments can now be downloaded from the Reading Sent Mail
- and Reading All Mail prompts and if the file is not there, it will say
- File Not Found at the end of the message.
-
-*5 Split-screen private node-to-node chat enhancments: Ctrl-P and Ctrl-U
- functional, fake cursor in top window, and notification of waiting
- telegrams and node messages on window separation line.
-
-&2 Extended file descriptions in file listings are no longer truncated at page
- break and displayed again on next page.
-
-*5 SCFG now imports and exports message area files: AREAS.BBS, SUBS.TXT,
- and FIDONET.NA as well as file area files: DIRS.TXT and FILEBONE.NA
-
-*3 SCFG now support multiple levels of automated back-up of config files.
- SCFG /B# specified back-up level (by number), default is 3.
-
-
-!2 Message pointers are now loaded before any logon modules, so the Baja
- message new-scan functions can be used in logon modules.
-
-!0 HUBID.QW0, QW1, etc. would not be deleted automatically after import.
-
-!1 Fixed problem with XTRN_EXEC Baja function causing "checking instruction"
- error message.
-
-*1 Sub-boards can be configured with static QWK conference numbers instead of
- the default dynamic numbering scheme (allowing inserting of sub-boards
- without causing incorrect REP posting by users).
-
-*1 Added FA: (File Attacment) Subject "status override" for FidoNet Netmail
- from Sysop or 'F' exempt users. Be VERY careful who you give the 'F'
- exemption to! They can attach any file on your system to Fido netmail.
- This is to be used when sending the same file attach to multiple people
- instead of the MAIL_SEND_NETFILE Baja function.
-
-!0 Node paging and activity alerts were enabled between logon and the end
- of the logon sequence regardless of the user's default settings for these
- two toggles.
-
-*5 Files added to batch download queue, but not downloaded while online
- will be automatically added to the batch queue during the user's next logon
- until the files are either downloaded successfully or removed from the
- queue.
-
-*8 Baja modules can now be executed from within TEXT.DAT lines (that don't
- contain % variables) and menus/text files by using "@EXEC:MODNAME@"
- without the quotes, where MODNAME is the name of the .BIN file (without
- the .BIN) in the EXEC directory.
-
-&2 Down arrow (ESC[B) is now translated by Synchronet into Ctrl-J instead of
- Ctrl-M.
-
-!2 Telegrams and inter-node messages could flash by (screen cleared)
- without being read in some circumstances.
-
-*3 Added new command line option to SBBS (o) to force Synchronet to run
- any pending events and then immediately exit. This eliminates the need to
- have events down the nodes they are being run on to return to front-end
- mailers. But more importantly, if "SBBS O" is run as an event from a mailer
- and there just so happens to be no pending events, Synchronet will
- immediately exit back to the mailer instead of sitting at the waiting for
- call screen.
-
-*0 Added Guru response codes `o (SysOp's name), `s (System name), `g (Guru's
- name), and `I (System's QWK ID), `L (user's level - previously `m),
- `T (time), `M (month), `W (day of week), `J (day of month), `Y (year),
- `Z (user's zip/postal code).
-
-!1 Replies to Anonymous posts on local sub-boards now work.
-
-!2 Pre-packed QWK packets will no longer contain e-mail (causing duplicates)
-
-*3 Guru expressions can now contain ARS elements contained in square brackets.
- Example: (HELLO&GURU&[LEVEL 90 OR FLAG S])
-
-!5 SBBS now correctly supports more than 3000-4000 posts per sub-board (if
- available memory allows).
-
-!1 Auto-sorting file directories by upload date now functions correctly.
-
-*4 Non-Synchronet color codes are now supported in extended file listings.
-
-!0 Baja function COMPARE_KEY now supports DIGIT, EDIGIT, control characters
- (^x) and slash commands like the CMDKEY function.
-
-*9 New Baja functions: INKEY, RIOSYNC, GETTIMELEFT, SAVELINE, RESTORELINE,
- MSWAIT, ADJUST_USER_MINUTES, TRASHCAN, CREATE_SIF, READ_SIF, CMDKEYS,
- COMPARE_KEYS, and PAGE_GURU.
-
-!2 When (V)alidating a message from the Reading Messages prompt, the index
- was not properly updated causing the header and index attributes to be
- mismatched (as reported by CHKSMB). This also caused validated messages to
- remain unvalidated.
-
-*1 When changing message attributes, a menu-interface is now used.
-
-!4 Using Hyper Allocation (and possibly Fast Allocation or Self-packing),
- message bases could be corrupted when importing multiple sequential messages
- for a single message base. The symptom would be corrupted message bodies
- (appearing as blank in the BBS) and CHKSMB v1.21 or later reporting
- unsupported translation types. This was fixed in SMBLIB v1.20b used in
- v2.22 of SBBSFIDO and Synchronet UTI as well.
-
-*9 New Baja variable functions: INT, STR, SET, GLOBAL_INT, GLOBAL_STR, PRINTF,
- SPRINTF, STRCAT, RANDOM, COPY, SWAP, ADD, SUB, MUL, DIV, MOD, AND, OR, NOT,
- XOR, TIME, TIME_STR, DATE_STR, FTIME_STR, SECOND_STR, STRLEN, STRUPR,
- STRLWR, and DATE_STR_TO_INT.
-
-*9 New Baja instructions: COMPARE, IF_EQUAL, IF_NOT_EQUAL, IF_GREATER,
- IF_GREATER_OR_EQUAL, IF_LESS, IF_LESS_OR_EQUAL, SWITCH, CASE, END_CASE,
- DEFAULT, and END_SWITCH.
-
-*9 New Baja file I/O functions: FOPEN, FCLOSE, FREAD, FWRITE, FSEEK, FGET_POS,
- FEOF, FGET_LENGTH, FSET_LENGTH, FGET_TIME, FSET_TIME, FLOCK, FUNLOCK,
- FPRINTF, and FSET_ETX.
-
-!0 Fixed problem of extremely-slow file searches when using the Remove/Edit
- command from the file section.
-
-*2 Timed events can be forced by creating a CODE.NOW semaphore file in the
- DATA directory, where CODE is the internal code of the timed event.
-
-*1 The number of seconds between each node semaphore check and statistics
- check while WFC can be configured in SCFG->Node->Advanced Options.
-
-*3 File areas can be toggled to deduct time during uploads (normally time spent
- uploading is not counted).
-
-*1 File areas can be toggled to reward the uploader with minutes instead of
- credits.
-
-*1 Sub-boards can be toggled on as networked to the Internet via UUCP when
- using NetXpress allowing unknown "To" users and the 'N' restriction to work
- properly.
-
-*4 New system toggle to disallow users to convert credits into minutes.
-
-&2 When local system protection is used (node toggle), the system password is
- now prompted for in the status line.
-
-*3 When deleting a message from a sub-board, the message is flagged for
- deletion rather than being immediately removed. This allows the sysop or
- user to undelete the message before message base maintenance is run.
-
-*2 Messages can be be moved between sub-boards without deleting the original
- message.
-
-&0 Reinitializing message pointers now resets the last read message pointer
- as well as the highest read message pointer.
-
-*5 New Baja functions: ONLINE, OFFLINE, and PUT_NODE.
-
-*1 NODE_ACTION Baja function now supports the following actions:
- MAIN, RMSG, RMAL, SMAL, RTXT, RSML, PMSG, AMSG, XTRN, DFLT, XFER, DLNG,
- ULNG, BXFR, LFIL, LOGN, LCHT, MCHT, GCHT, CHAT, SYSP, TQWK, PCHT, PAGE,
- and RFSD as well as specifying the action number directly.
-
-*2 New Baja function: NODE_STATUS can set the current node status to:
- WFC, LOGON, NEWUSER, INUSE, QUIET, OFFLINE, NETTING, EVENT_WAITING,
- EVENT_RUNNING, or EVENT_LIMBO.
-
-*0 Messages and text files larger than the available memory (size is unlimited)
- can now be displayed.
-
-&1 If SCFG->System->Toggle Options->Expire When Out-of-time is set to "Yes",
- specific users can be excluded from this behavior by giving them the 'E'
- exemption.
-
-&0 If SCFG->System->New User Values->Question Toggles->Location is set to
- "Yes", commas will not be required if the "Require Commas" toggle is set
- to "No".
-
-*5 Local messages (posts or e-mail) from user #1 containing @-codes WILL be
- expanded to message variables (or actions) when read.
-
-*1 "Beep Locally" toggle option moved from System to Node Toggle Options in
- SCFG.
-
-*5 Each security level can have a specific security level to expire to or
- quick-validation set to expire to.
-
-*9 New loadable modules for Login, Synchronization, Logout, and Expired Users.
-
-*3 New Baja instructions: COMPARE_STRN and COMPARE_SUBSTR.
-
-*0 New command line specifier: %z to represent the text directory (similar to
- the %j, %k, and %! specifiers).
-
-*2 New Baja functions: FLENGTH, USER_EVENT, and PRINTTAIL.
-
-&9 Removed hardcoded login procedure (NN: prompt, "New" for new-user, etc.).
- Must use a login module to perform this functions (see EXEC\LOGIN.SRC
- or EXEC\MATRIX.SRC and DOCS\BAJA.DOC for details). Login module name is
- specified in SCFG->System->Loadable Modules->Login Module. If set to blank,
- Synchronet will assume "LOGIN" as the module name.
-
-&9 Removed hardcoded logon procedures for displaying TEXT\MENU\LOGON screens,
- last few callers, auto-message, user events, etc. Must use logon module
- to perform these functions (see EXEC\LOGON.SRC and DOCS\BAJA.DOC).
-
-*9 New Baja function: LOGIN to initiate login procedure, LOGON to initiate
- LOGON procedure (includes automatic execution of Logon module) and LOGOUT
- to force LOGOUT procedure (only to be used for RE-logins, does NOT execute
- Logout module).
-
-*2 New Baja function: BATCH_ADD_LIST to add a list of files to the current
- users batch download queue and automatically delete the list file.
-
-*5 When returning from an external program, if the file DATA\FILE\xxxx.DWN
- exists (where xxxx is the user's number), the files contained in that
- list will be automatically added to the user's batch download queue and
- the list file will be deleted.
-
-*7 Default download protocol can be selected by users in default config.
- And automatic hang-up after download (without asking) can be turned on.
- New user defaults for these two options can be configured in SCFG.
-
-*5 Baja compiler supports definition of macros (!DEFINE) and include files
- (!INCLUDE).
-
-&0 SCFG online help now functions correctly even if SCFG.EXE is renamed.
-
-*3 WIP (Windows Interface Protocol) terminal (DC-TERM) auto-detected and .WIP
- menu files displayed (if present). New WIP ARS keyword as well.
-
-&1 When RIP or WIP terminals are detected, a color and extended ASCII support
- is assumed.
-
-&0 When moving files from upload or sysop directory, upload date/time is
- changed to current date/time.
-
-!1 When importing AREAS.BBS or FIDONET.NA message base lists in SCFG, internal
- codes would be padded with spaces out to eight characters (which was wrong).
-
-&2 Internet netmail uploaded via QWK REP is now stored with name and addressed
- combined (same as sending netmail online) instead of the SBBS 2.0 method
- of separate name and address. Both methods are valid (and documented in
- the SMB specification), but this has been changed for consistency with the
- newer storage method of online Internet netmail.
-
-&1 The ADJUST_USER_CREDITS Baja function will now deduct from the user's free
- credits (if they have any), if adjusting negative.
-
-!0 Fixed problem with CREDIT ARS keyword not working correctly with values
- greater than 32MB. This keyword now supports up to 64MB, for comparison.
-
-!1 Fixed problem with executing a loadable (Baja) module as an external program
- if that module contained an EXEC_XTRN statement. This would cause problems
- with re-opening the log file when returning from module.
-
-!0 Fixed problem with editing Access Requirements for External Program Sections
- in SCFG when the section name was longer than a certain number of chars.
-
-!0 Fixed problem with FILE_SET_LIBRARY Baja function causing critical error.
-
-*1 Archives can be (V)iewed from the (R)emove file prompt.
-
-*8 System variables can be read (and some modified) from Baja modules. See
- DOCS\BAJA.DOC for a list of available system variables.
-
-&3 The DIR and SUB ARS keywords now support the area's internal code as well
- as the sub-board or directory number (which can change and be hard to
- calculate). To specify a directory or sub-board internal code that begins
- with a digit, use SUBCODE or DIRCODE instead of the SUB or DIR keyword.
- If the first character of the value is not a digit, it is assumed to be
- a internal code.
-
-&1 When deleting file libraries and directories in SCFG, the data files may
- automatically be deleted (if the sysop answers YES to the delete data
- prompt).
-
-&3 When forwarding e-mail that has file attachments, the attachments are now
- automatically copied along with the e-mail message.
-
-*1 When in local Guru chat (not multi-node Guru chat), the Guru will type
- first, as if responding to the user string "HELLO".
-
-*5 New Baja function (LOAD_TEXT) to load an alternate TEXT.DAT file from module
- or command shell.
-
-*2 Additional line in TEXT.DAT allows different keys for (Y)es and (N)o.
-
-*3 Configuration command line (from WFC) configurable in SCFG for each node.
- This is allows the sysop to add command line switches for some all nodes,
- or use the 32-bit version of SCFG (SCFG32.EXE) for some or all nodes.
-
-&1 Hitting the key for (N)o at the pause prompt is now the same as hitting
- Ctrl-C (abort).
-
-*3 RIP and WIP files are not displayed locally to keep the local screen clean.
-
-*0 New GETSTR (Baja function) mode, NOECHO accepts a string of input without
- echoing to the local or remote consoles.
-
-*4 E-7-1 terminals are now supported by setting the Node Toggle Option in
- SCFG for "Allow 8-Bit Remote Logons" to "No". If a user logs on and
- does not have IBM extended ASCII support disabled, then they will be allowed
- to send 8-bit characters (after the logon procedure).
-
-&2 New users are asked less initial questions about terminal type (to simplify
- new user procedure). If ANSI, RIP, or WIP is auto-detected, auto-terminal
- type is not asked. If RIP or WIP is detected, COLOR is not asked.
- If auto-terminal type is not selected, RIP is not asked. All these items can
- still be toggled from the user default settings menu (which may still appear
- during the new user procedure if configured), allowing undetected RIP
- terminals (for example) to be correctly configured during the new user
- procedure. WIP is not supported unless it is correctly auto-detected.
-
-*1 New Baja functions: CHKSUM and STRIP_CTRL
-
-!0 Hexadecimal character constants (\x1b) in the TEXT.DAT were not interpretted
- correctly.
-
-*2 New @-code to display a menu from within the TEXT.DAT or within another
- text file or menu (@MENU:filename@).
-
-*1 New @-code to allow yes/no questions to be imbedded in menu files
- (@QUESTION@).
-
-*1 New Baja functions: FILE_SEND, SEND_FILE_VIA, and FREAD_LINE.
-
-*0 Lines starting with '#' in the TEXT.DAT will be ignored (comments).
-
-*2 New @-code to display any file from any directory within another text file
- or menu (@TYPE:filename@).
-
-*4 New DOS File System related Baja functions: REMOVE_FILE, RENAME_FILE,
- COPY_FILE, MOVE_FILE, GET_FILE_ATTRIB, and SET_FILE_ATTRIB.
-
-*3 New DOS Directory System related Baja functions: MAKE_DIR, CHANGE_DIR,
- REMOVE_DIR, OPEN_DIR, READ_DIR, REWIND_DIR, and CLOSE_DIR.
-
-*1 New Baja function (GET_FILE_TIME) to get file date/time without having to
- open the file first (FGET_TIME).
-
-**************************************
-August 31, 1995 Version 2.20a Released
-**************************************
-
-&0 �[ is now interpreted as <ESC>[ when ANSI encoded reading messages.
-
-!3 The "maximum time" option for external programs, was using the value
- for maximum SECONDS instead of minutes causing invalid drop file to
- be created if this option was used.
-
-!1 The "Credit Uploader with Minutes" option could not be toggled to Yes
- in SCFG (under Directory Toggle Options).
-
-*2 External editors can be configured to automatically quote all or none
- of the message text, rather than prompting the user.
-
-&0 Users should no longer run out-of-time while in local chat with the sysop
- (alt-C) or be kicked out immediately after exiting chat if popped in
- during logon sequence.
-
-!0 The FSET_POS Baja function was incorrectly setting the logic state to
- Non-TRUE unless the file was set to the beginning.
-
-!0 When logging on for immediate QWK (*username at the login prompt or 'Q'
- restriction), any waiting telegrams would not be displayed. Now they are.
-
-*5 No more 500 line limit for messages created online. The maximum number of
- lines is determined by free memory. Most systems should be able to allow
- 1000-2000 line messages. The internal line editor still has a 500 line
- message limit. Raw input and external editors are limited only by the number
- of lines set in SCFG for the user's security level and the available DOS
- memory.
-
-!1 The FINDUSER Baja function was setting the current command string to an
- invalid string if the username was not found and NOT setting the command
- string if it was.
-
-&5 SBBS.EXE is now limited to 2 nodes when run in unregistered mode (no
- key file) plus an additional local node (total of 3 nodes).
-
-&0 Directories with "Check for file existence" set to "No" will no longer
- allow single file downloads and extended file information now includes
- the correct file size and date.
-
-!1 Fixed problem with possible stack overflow (lock-up) if pause (ctrl-a p)
- used in TimesUp TEXT.DAT entry.
-
-!0 Toggling "Allow Anonymous Posts" from "Only" to "No" for a sub-board in
- SCFG did not work correctly.
-
-*2 Carbon Copy FidoNet netmail now supported. Only one "cc: name@addr"
- allowed per line (cc: must start line, anywhere in body text). If
- "cc: addr" is used, then "sysop" will be used as the destination
- user name. "* Originally to: name@addr" is placed at the top of all
- carbon copy messages. "cc:" is not case sensitive and all white space
- inbetween "cc:" and "name@addr" is ignored.
-
-*****************************************
-September 27, 1995 Version 2.20b Released
-*****************************************
-
-&0 FidoNet netmail CC:'s didn't support name@addr@addr. This has been changed.
-
-!9 Fixed problem with local node (node license + 1) locking up.
-
-&1 Yes/No prompt can now use light-bar module (no patch required), and Ctrl-C
- sets the abort flag correctly (unlike the patch).
-
-*3 The updating of a file's upload date when moving from one directory or
- another can now be toggled (per directory) in SCFG. The default is OFF.
-
-&0 Video mode is optionally reset between each call (Node toggle option). This
- reverses the effects of some external programs that change the text mode
- (without permission). This option is not suggested when running in an
- OS/2 window (i.e. not full screen).
-
-&0 XTRN.DAT now contains EXEC directory, TEXT directory, TEMP directory,
- System's QWK ID, and Node toggle options (in hex) for use with XSDK v2.40
- and later.
-
-*1 Added TRIBBS.SYS door drop file support.
-
-!5 Fixed problem with lock-ups during text searches in message bases with
- excessively large messages (>64k).
-
-*3 Maximum number of seconds to allow for message base open/lock retries
- now configurable in SCFG->Message Options. Previously hard-coded at 10
- seconds, now configurable (defaults to 30 seconds).
-
-*4 Inactivity seconds before warning and disconnection now configurable
- (per node) under node advanced options in SCFG.
-
-&0 OS/2 flavor of SCFG now gives up time-slices while waiting for keyboard
- input.
-
-*2 Internal editor no longer limited to 500 lines per message.
-
-*1 New modem configuration toggle option to disallow unknown result codes
- (the default behavior is to allow them and use the last configured
- result code information, but still log an error for the sysop).
-
-!3 COMPARE_STRN Baja function could/would mess up the execution (flow control)
- if located in if/else/end_if code blocks.
-
-*7 All Baja File I/O functions now use buffered I/O for a major increase in
- read/write performance from Baja modules.
-
-*1 New @-code (@SETSTR:value@) sets the current command string for the
- currently executing module or shell to the value specified.
-
-&3 When a node is configured for exclusive execution and it is waiting for
- other nodes to become inactive, it now displays the number and status of
- the first offending node that it's waiting for (this will help sysops to
- know which node is keeping their events from executing).
-
-*2 New Baja File I/O function FFLUSH <handle> to flush any pending output
- (writes) to a file.
-
-&1 New ARS keyword "OS2" to specify whether or not the current node is running
- Synchronet for OS/2 or not.
-
-&5 All paths are expanded to FULL paths (no longer relative) when the BBS is
- run (i.e. "..\EXEC" becomes "C:\SBBS\EXEC") to eliminate dependancy on
- the current directory (which SHOULD always be the current NODE directory
- when the BBS is executing) and intermittent problems under some system
- configurations. The downside is that users can now see your full system
- paths when view/extracting archives (if the archiver, e.g. PKZIP, shows
- the path).
-
-&0 If the sysop has specified a trailing backslash on the start-up directory
- for a timed event, it will be automatically removed by the BBS. DOS will
- not let you CD to a sub-directory with a trailing backslash.
-
-*9 When running Synchronet for OS/2, all executables (with the exception
- of SCFG) are assumed to be DOS programs (which require extra work by the BBS
- to execute) unless the program name is listed in SCFG->External
- Programs->OS/2 Program List. At the very least, CMD.EXE should be listed
- here. Since all DOS programs are executed in a fresh DOS window (with
- very little overhead) all swap options are unused in SYNC4OS2. WWIV
- external programs (requiring DCDWATCH and/or WWIV color codes) are not
- supported in Synchronet for OS/2. OS/2 programs canNOT have I/O interrupts
- intercepted (this is a DOS program ONLY feature).
-
-*2 New %y command line specifier points to your DOS COMMAND.COM (in
- Synchronet for DOS, gets the path from the COMSPEC environment variable,
- in Synchronet for OS/2, gets the path from SCFG->Nodes->Node X->DOS
- Command Interpreter).
-
-&5 New modules for Synchronet for OS/2: EXECSBBS.EXE (not to be confused with
- EXECSBBS.COM, still required by Synchronet for DOS) and EXECDOS.EXE located
- in your EXEC directory.
-
-!2 All pending events are now executed when "SBBS O" is run regardless of
- the order of their configuration vs. execution time in SCFG.
-
-&1 Posts to non-QWKnet sub-boards from a Q restricted account are now
- disallowed.
-
-&4 Maximum file sizes (for the file transfer section) have been increased from
- 9,999,999 bytes to 999,999,999 bytes.
-
-!2 ARS for compressable file types was not being used.
-
-&1 New ARS keyword "DOS" evaluates to true if the current node is running the
- 16-bit DOS version of Synchronet.
-
-&5 The 32-bit versions of Synchronet now allow a maximum of 10000 files per
- directory (vs. 1000 for the 16-bit DOS version) and 50000 total e-mail
- messages (vs. 5000 for the 16-bit DOS version).
-
-&8 Synchronet no longer physically removes deleted e-mail messages when a user
- exits the reading mail prompt unless the sysop has set SCFG->Message Opts
- ->Delete E-mail Immediately to "Yes". Instead, the mail is physically
- removed during the system daily maintenance (run automatically). This speeds
- up the e-mail access considerably on systems with large e-mail databases.
- Also, e-mail and posts that have been flagged for deletion will not be
- visible to the user unless the sysop has set SCFG->Message Opts->Deleted
- Messages Viewable to "Yes". Settings this option to "Sysop Only" means only
- sysops or sub-ops (when appropriate) can see deleted messages. The above
- mentioned system maintenance also scans for old e-mail (greater than the
- maximum age specified in SCFG->Message Opts->Purge Mail by Age) if enabled.
- SMBUTIL is no longer necessary for maintaining your MAIL database.
-
-&1 When a new user takes a deleted user's slot, any mail that user has SENT
- will be deleted as well as any mail that user had received (previously,
- sent mail was not deleted and thus readable by the new user).
-
-*3 Added the following @-codes: @last@ for user's last name/alias,
- @firstreal@ for user's first real/company name, and @lastreal@ for
- user's last real/company name.
-
-&0 Maximum allowed DCE rated increased from 57600 to 64000 (to support ISDN
- modems).
-
-*2 When reading e-mail, the thread commands (<>{}[]) are now available
- to thread forward and backward by subject, from user, and to user (as
- with reading sub-boards).
-
-*0 When a node is run and a NODE.LOG already exists (not a normal situation)
- it is appended to the file DATA\CRASH.LOG (as well as the normal system
- log) to allow the sysop to easily browse through logs resulting in possible
- crashes to help diagnose the cause. The file CRASH.LOG in the current
- node's directory is also appended (to more easily solve node specific
- crashes).
-
-*0 New @-codes: REAL, LAST, LASTREAL, and FIRSTREAL
-
-*7 Synchronet BBS now supports VERBAL modem result codes by setting SCFG->Nodes
- ->Node #->Modem Config->Toggle Options->Use Verbal Result Codes to "Yes".
- You must also change V0 to V1 in your modem init string. When verbal result
- codes are enabled, the result code list is no longer used. This feature was
- added for the flexibility and easier configuration of modems that don't
- correctly support numeric result codes, insist on returning multiple connect
- results (CARRIER, PROTOCOL, etc), or have too many possible result codes to
- configure by hand. When this option is set to "Yes", Synchronet
- automatically creates the connection description and estimated CPS rates.
- This option also has the added advantage of supporting DCE (connection)
- rates above 65535. The DCE rate is not to be confused with the DTE rate
- which is currently limited to 115200 bps.
-
-*4 Synchronet will now automatically fix the E, V, and &C modem registers
- if configured incorrectly in (one of) the modem init string(s). If the
- above "Verbal Result Codes" option is used (for example), the init string
- does not need to be modified. Synchronet will automatically send an ATV1
- after the init and special init strings (if needed).
-
-&1 The PERSONAL.NDX file included in QWK packets now includes entries for
- the E-mail conference (#0) as well as private posts in sub-boards.
-
-*3 Synchronet for OS/2 (SBBS4OS2.EXE) can now be launched with an already
- open port by specifying the open port's handle on the command line (with
- the new H command line parameter). This is useful for OS/2 front-end mailers
- (like BinkleyTerm) that leave the port open when spawning the BBS.
-
-*3 When Synchronet for OS/2 launches OS/2 executables, the com port can be left
- open by configuring the program (in SCFG->External Programs->OS/2 Programs)
- to leave the port open. The port handle must then be passed to the child
- process with the %H command line specifier. The port is always closed when
- launching DOS executables and then re-opened upon returning.
-
-*0 The system variable, _WORDWRAP is now available for Baja programmers to
- check/modify the current word wrap buffer (set with GETSTR).
-
-*0 New Baja functin, EXIT immediately aborts execution of the current module
- (used in place of RETURN when in CALLed sub-routines).
-
-*4 The following Baja functions now allow integer variables to be used in place
- of integer constants: USER_EVENT, COMPARE_STRN, RANDOM, FOPEN, FSET_ETX,
- NODE_ACTION, NODE_STATUS, PRINTFILE, PRINTTAIL, GETSTR, GETNUM, MSWAIT,
- GETLINE, GETSTRUPR, GETNAME, SHIFT_STR, REPLACE_TEXT, REVERT_TEXT,
- TOGGLE/COMPARE_USER_MISC, TOGGLE/COMPARE_USER_CHAT, TOGGLE/COMPARE_USER_QWK,
- TOGGLE/COMPARE_NODE_MISC, SET_USER_LEVEL, SET_USER_STRING,
- ADJUST_USER_CREDITS, and ADJUST_USER_MINUTES.
-
-*0 New @-codes: MAILW (number of e-mail messages waiting for current user),
- MAILP (number of e-mail messages sent by current user pending deletion),
- MAILW:# (number of e-mail messages waiting for user #), and MAILP:#.
-
-&4 If a loadable module is executed from a module (or shell), the logic state
- is maintained when returning to the parent. This allows sub-modules to
- return error levels to the parent modules without using global variables.
-
-*2 If a module named FEEDBACK.BIN exists in the EXEC directory, it will be
- executed whenever a user sends e-mail to user #1 (with the exception of
- validation feedback). If the module sets the logic state to FALSE, then
- the feedback will be aborted.
-
-!5 When the day passes midnight (new day) while a user is online, his/her
- daily stats (e-mails per day, posts per day, free credits, etc) are reset
- immediately.
-
-*3 New 'P'urge user command from the Sysop's e-mail and reading messages
- menus.
-
-*4 New 'N'ext un-read message command from reading e-mail prompt.
-
-&2 If a user uploads a file and that user is then deleted and another user
- then logs on as 'New' with the old users name and the file is subsequently
- downloaded, the new user will not receive the credit award.
-
-!5 Fixed bug in daily mail maintenaince that would corrupt memory and the
- mail index file in the 16-bit DOS 2.3 beta version if there were over 3276
- messages in the e-mail database. No effect on the 32-bit versions.
-
-!9 Fixed bug that would potentially crash the process if first user to logon
- was a new user and hung-up during the new-user feedback.
-
-!4 Fixed bug that would potentially crash the process if a DORINFO*.DEF door
- was run with no timed events configured.
-
-!0 If SCFG->Message Options->Users Can View Deleted Messages was set to "No",
- and a user delete a post, the current message number skipped over the next
- message.
-
-!1 If the Internet toggle option for a sub-board is set to "Yes", replies are
- always posted to "All" - reply-to-user name is not prompted for.
-
-***********************************
-May 30, 1997 Version 2.30a Released
-***********************************
-
-!2 SBBS4OS2 status bar would disappear sometimes (fixed by Enigma by shortening
- status bar to 79 chars instead of 80).
-
-!9 SBBS4OS2 would occassionally display output very slowly (fixed by Enigma
- by adding time-slice yields to various console loops).
-
-!4 SBBS4OS2 would get non-uppercase filenames confused on HPFS partitions
- (fixed by Enigma by converting all filenames to uppercase).
-
-!3 Internal message editor would continue to display first line of message when
- using the up arrow (fixed by Enigma).
-
-!6 When SBBS.EXE/SBBS4OS2.EXE returned with a non-zero errorlevel (e.g.
- incoming FAX or whatever), the NODE.DAB was closed prematurely, posssibly
- causing errrors (fixed by Enigma).
-
-*5 IP logging of telnet connections (requires "TEL FROM" in connect string)
- to detailed log file and user note field (added by Enimga).
-
-*5 IP trash can (TEXT\IP.CAN) for telnet connections now supported
- (added by Enigma).
-
-!5 Possible crash (GPF) cause in internal message editor when clearing (/CLR)
- a message when not on the last line of the message (fixed by Enigma).
-
-****************************************
-September 5, 1997 Version 2.30b Released
-****************************************
-
-!8 Fixed Y2K bugs in QWK, Fido, and log filenames where a 2-digit year
- is used (would have used 100 in some places for the year 2000). When parsing
- a 2-digit year, a 100-year window is used with 1970 as the pivot point.
- e.g. "69" is assumed to refer to 2069, "70" is assumed to refer to 1970.
-
-&4 Birthdates are still stored in MM/DD/YY format. But if a user's age is
- calculated to be more than 90, then 90 is subtracted from the calculated age
- e.g. A user born in 01/01/00 is assumed to have been born in 2000, not 1900.
-
-*3 New @-codes: REV (Synchronet revision), CONN (current connection),
- LOCATION (system location), TNODES (total nodes on system),
- HOST (same as CPU), CID and IP (Caller-ID or user IP addr).
-
-*1 Down-arrow at a pause prompt now moves down one line at a time.
-
-*1 'Q' at the Pause prompt aborts the display (same as 'N' or Ctrl-C).
-
-*1 TAB (Ctrl-I) now works like CR (enter) when at string prompts.
- i.e. you can now "TAB" from the NN: prompt to the PW: prompt in a
- full-screen/ANSI login.
-
-!4 Creating REP packets that contained messages with "Replied-to" numbers
- larger than 7-digits (some OLRs apparently send large bogus numbers in
- this field), would corrupt the packet. When attempting to import such a
- corrupted packet into an SBBS system, the error message was garbled.
-
-!1 Only the last line of an inter-node telegram was logged to the system
- activity log. Now the entire telegram is logged.
-
-!1 High-priority input is no longer assumed when in RAW input mode (Ctrl-Z).
-
-!5 Guest account ('G' restriction) would save the real user's name in the
- database (if asked during login via logon module). If the user then hungup
- and called back and logged on as "New", they would be unable to use their
- real name (if duplicate real names are disallowed in SCFG). The real name
- field is now cleared upong logoff (for 'G' restricted users).
-
-!0 If a user hung-up without fully logging on (during the new user process,
- for example), an inter-node message was sent to all active nodes saying that
- he/she logged off (even though there was never a "logon" anouncment).
-
-!1 The number of posts read statistic was not being properly reset for QWKnet
- node ('Q' restricted user) calls.
-
-!0 If EXEC_XTRN was called from a loadable module or shell, the node status was
- not automatically changed back to "User at external program menu".
-
-!3 SBBS4OS2 created an invalid EXITINFO.BBS (created with DORINFOx.DEF). Would
- cause doors that used this file to behave strangely or fail to function.
-
-&4 Changed NOPEN/NODEDAB retry counter from 500 (which could take several
- minutes on some systems) to 50 (more like several seconds).
-
-!0 Hitting 'A' from a local node WFC no longer tries to answer a call.
-
-****************************************
-December 14, 1999 Version 2.30c Released
-****************************************
-
-*3 New @-codes: QWKID (System QWK-ID), INETADDR (System's Internet Address),
- FIDOADDR (System's primary FidoNet address).
-
diff --git a/docs/sbbs3faq.txt b/docs/sbbs3faq.txt
deleted file mode 100644
index c495ad162e329a2f6cb38ecf4fa2b1bac3d08d5d..0000000000000000000000000000000000000000
--- a/docs/sbbs3faq.txt
+++ /dev/null
@@ -1,116 +0,0 @@
-Answers to frequently asked questions regarding Synchronet Version 3.0
-by Rob Swindell (digital man), December 1999 (updated June 2000)
-* Updated February 2002
-
-Q: Is Synchronet going to continue to be freeware?
-A: Yes, I'm just doing this for fun (what a sicko!).
- * See http://synchro.net/copyright.html for details.
-
-Q: What operating system does Synchronet Version 3.0 run on?
-A: Synchronet v3 is currently a Win32 application designed for use on Windows
- 95/98/NT4/2000.
- * Windows XP is supported too.
- * Synchronet v3.10 also runs on Linux and FreeBSD operating systems.
-
-Q: Is v3 multi-user/multi-threaded?
-A: Yes, all nodes are (typically) run in the same process/window.
- External programs, however, run in their own processes/windows.
- Version 2.3 for OS/2 was also multi-threaded, but not multi-user: each node
- ran in its own process/window.
-
-Q: Is there going to be a DOS version of v3?
-A: No, but I did release an update to v2 for DOS/OS2 (2.30c). This update
- included some of the Y2K fixes I've made in v3 and some other minor
- additions, fixes, and features.
-
-Q: Is there going to be an OS/2 version of v3?
-A: Possible, but not probable.
-
-Q: Is there going to be a Linux version of v3?
-A: Definitely.
- * The Linux version is currently distributed in source code form only,
- see http://synchro.net/source.html for details.
-
-Q: Can I mix v2 and v3 nodes on the same BBS?
-A: Yes, all of the configuration and data files were purposely kept backwards
- compatible.
- * As of v3.10, there are additional "issues" that must be addressed when mixing
- v2 and v3.1 nodes (mainly in regards to the TEXT.DAT and exec/*.BIN files).
-
-Q: Can I mix v2 and v3 nodes on the same computer?
-A: Yes.
-
-Q: Does v3 still support traditional dial-in users?
-A: No, v3 is a telnet-only BBS program. Use v2 nodes for your dial-in users.
-
-Q: Do I need a Telnet/FOSSIL application (e.g. NetModem or COM/IP) for v3
- nodes?
-A: No, Synchronet v3 includes a DOS/FOSSIL interrupt driver (dynamically loaded
- VXD for Windows 95/98 and VDD for Windows NT/2000).
-
-Q: Is v3 Y2K compatible?
-A: Yes.
-
-Q: Is the source code for Synchronet v3 available?
-A: * The source code has been available since October, 2000.
- See http://synchro.net/source.html for details.
-
-Q: How many v3 nodes can I run on one machine?
-A: Theoretically, 250. If your BBS uses external DOS programs for file
- transfers and/or doors, then the realistic number is much lower depending on
- bandwidth and horsepower (DOS programs consume more system resources than
- native 32-bit programs).
-
-Q: Can I spread my nodes across two or more machines?
-A: Yes, v3 includes a configuration dialog that lets you specify a range of
- nodes to support in that instance.
-
-Q: Are there limitations to v3?
-A: Yes:
- o No direct dial-in support (Telnet only)
- o Only externals programs that use DOS interrupts (XSDK/WWIV doors) or
- FOSSIL for I/O will work with v3.
- * 32-bit doors that use TCP Sockets or Standard I/O are also supported.
- o Relative paths (e.g. "..\XTRN\BLA.EXE") are no-longer supported in
- command lines (the current directory cannot be assumed to be the
- current NODE directory). Relative paths ARE still supported in data
- directories and other paths in SCFG.
-
-Q: Are there benefits to v3?
-A: Yes:
- o Speed, speed, speed
- * Separate I/O threads dynamically created for each node in use
- * Direct socket communications (except when running dos
- externals)
- * No DOS context-switching (except when running dos externals)
- * Idle nodes (WFC) consume no resources, bandwidth, or CPU time
- * System events run in their own dedicated thread
- o Reliability
- * A crashed door shoudn't crash the entire system, or in most
- cases, even the current node
- o Functionality
- * User IP address and host name are logged and stored in user
- record
- * Optional AutoLogon via IP address
- * IP/Host name trashcan
- * Users can be ;INTERrupted while running ANY external program
- * Non-exclusive events do not take any nodes off-line
- * No memory limitations (for configuration items, message
- lengths, etc)
- * Integrated FTP Server: seemlessly integrated with the BBS
- file database with long filename support and QWK transfers
- * Integrated Mail (POP3/SMTP) server supports MX-record
- lookups, aliases, SPAM filters, are more
- o Simplicity
- * No third-party Telnet/FOSSIL driver (NetModem or COM/IP)
- necessary
- * Simple COM port configuration (all nodes can use COM1, for
- example)
- * No more hassling with baud rates and initialization strings
- (they're not used)
- * As many nodes as you want to run, all in the same window!
- * Eliminates all those short-cut icons and taskbar buttons!
- * DCDWATCH no longer necessary to support WWIV externals
-
-Q: When will v3 be available?
-A: It is available now. Logon to vert.synchro.net via FTP or Telnet.
diff --git a/docs/sbbsNTsvcs.txt b/docs/sbbsNTsvcs.txt
deleted file mode 100644
index 5f7f427877f245e7b43f349993c92c2a1b41efeb..0000000000000000000000000000000000000000
--- a/docs/sbbsNTsvcs.txt
+++ /dev/null
@@ -1,61 +0,0 @@
-Synchronet NT Services
-======================
-
-$Id$
-
-If you're running Synchronet on a Microsoft Windows NT based operating system
-(e.g. Windows NT, Windows 2000, Windows XP, or Windows 2003), you can now run
-Synchronet as a set of NT services using the exectuable sbbsNTsvcs.exe.
-
-This single executable includes 4 NT services that handle all the functionality
-of Synchronet v3.11-Win32:
-
-Name Description
----- -----------
-SynchronetBBS Synchronet Telnet/RLogin Server
-SynchronetFTP Synchronet FTP Server
-SynchronetMail Synchronet SMTP/POP3 Mail Server
-SynchronetServices Synchronet Services
-
-You may install, disable, or remove each NT service independantly, or all at
-once. To install on the Synchronet NT services at once, run:
-
- sbbsNTsvcs install
-
-The configuration of the Synchronet servers and services is handled in your
-Synchronet initialization file (e.g. ctrl/sbbs.ini). The Synchronet NT
-services know the location of your Synchronet CTRL directory from the
-SBBSCTRL environment variable. See sbbscon.txt for more details about the
-SBBSCTRL environment variable and the initialization file (sbbs.ini).
-
-Once installed, the Synchronet NT services may be started from the NT Services
-dialog (under the Control Panel), by running the Synchronet Control Panel, or
-if the system is rebooted, the services will start automatically.
-
-To remove the Synchronet NT services, run:
-
- sbbsNTsvcs remove
-
-Synchronet Control Panel
-------------------------
-You should shutdown the Synchronet Control Panel (GUI) before installing the
-Synchronet NT services. The Synchronet Control Panel can be used to start,
-stop, and monitor the NT services once installed, but it is not required for
-operation. If the Synchronet Control Panel is not running, the BBS servers
-will still function, even if no user is logged onto Windows.
-
-NT Event Log
-------------
-Error messages (determined by the LogMask in your sbbs.ini file) will be
-logged as NT application event log messages (viewable in your NT Event Viewer).
-The event log messages are currently stored in an undefined format, though
-you can view the text.
-
-Beta
-----
-This feature (NT services) is brand new to Synchronet and it may not be as
-reliable as running sbbs.exe or sbbsctrl.exe. Please report any problems
-as soon as possible (see http://synchro.net/docs/support.html for contact
-points of support), or e-mail rob@synchro.net.
-
-/* End of file */
diff --git a/docs/sbbscon.txt b/docs/sbbscon.txt
deleted file mode 100644
index 47b40956727f5dda2707b29b7090c0adf85f8acc..0000000000000000000000000000000000000000
--- a/docs/sbbscon.txt
+++ /dev/null
@@ -1,253 +0,0 @@
-Synchronet Console Documentation
-================================
-
-$Id$
-
-1. Introduction
----------------
-The Synchronet Console is the console-mode sysop interface to Synchronet v3.
-On Win32 operating systems, this interface (sbbs.exe) is an alternative to
-the graphical Synchronet Control Panel (sbbsctrl.exe). On Unix, this interface
-(sbbs) is currently the only option.
-
-On Win32 operating systems, the exact same underlying server libraries (DLLs)
-are used to service the clients, so from the users perspective there should
-be no difference in performance or functionality. The console mode interface
-does use fewer system resources than the graphical control panel, so for some
-Win32 sysops that wish to conserve system resources, this may be the preferred
-interface. But, to date, this interface has been used almost exclusively by
-Unix sysops.
-
-
-2. BBS Configuration
---------------------
-The system-wide configuration files (ctrl/*.cnf) are edited using the
-Synchronet configuration utility (SCFG). The executable filename is
-exec/scfg.exe on Win32 and exec/scfg on Unix.
-
-SCFG needs to be told the location of your Synchronet ctrl directory, where
-it expects to find the Synchronet configuration (.cnf) files. This can be done
-by passing the path to your ctrl directory on the SCFG command line. Example:
-
- scfg /sbbs/ctrl
-or:
- scfg /usr/local/sbbs/ctrl
-
-or by setting the SBBSCTRL environment variable before running SCFG. Example:
-
-Unix (bash): export SBBSCTRL=/sbbs/ctrl
-Unix (sh): SBBSCTRL=/sbbs/ctrl && export SBBSCTRL
-Unix (csh): setenv SBBSCTRL /sbbs/ctrl
-Win32: set SBBSCTRL=/sbbs/ctrl
-
-Generally speaking, if you are running Linux, your shell is bash. You can
-verify your shell by typing ``echo $SHELL'' at a command line.
-
-Many of the Synchronet utilities require this environment variable, so it is
-suggested you initialize this environment variable in your system startup
-and/or login scripts. See section 3 for details.
-
-The SCFG application supports multiple forms of user interface. The default
-interface is currently curses/conio (fullscreen colored text). To use a
-different interface, use the -G (graphical) or -D (stdio) command-line
-options. There are other command-line options to control the character set
-used, escape key delay, monochrome/color mode, etc. Type "scfg -?" to list
-all the available command-line options.
-
-There are other system-configuration files that are simple text files to be
-edited using any ASCII text editor: ctrl/*.cfg and text/*.can. Each of
-these files should contain a description of its purpose and usage.
-
-
-3. Initializing the SBBSCTRL Environment Variable
--------------------------------------------------
-For Windows NT-based operating systems, goto the Windows Control Panel->
-System->Advanced->Environment Variables->System Variables->New...
- Variable: SBBSCTRL
- Variable Value: c:\sbbs\ctrl
- (replace c:\sbbs\ctrl with the full path to your ctrl directory)
-
-For Windows 9x-based operating systems, edit your C:\AUTOEXEC.BAT file
-and add the line:
- SET SBBSCTRL=c:\sbbs\ctrl
- (replace c:\sbbs\ctrl with the full path to your ctrl directory)
-
-For Unix bash/sh:
-In the home directory of the user the BBS will be running as, edit the file
-named either .profile or .bash_profile depending on if you're running bash or
-sh and add the line:
-
- SBBSCTRL=/sbbs/ctrl && export SBBSCTRL
- (replace /sbbs/ctrl with the full path to your ctrl directory)
-
-For Unix csh/tcsh:
-Again, in the home directory of the user the BBS will be running as, in the file
-named .tcshrc (for tcsh) or .cshrc (for csh) add the line:
-
- setenv SBBSCTRL /sbbs/ctrl
- (replace /sbbs/ctrl with the full path to your ctrl directory)
-
-
-4. Server Configuration
------------------------
-The server/host-specific configuration options are set with sbbs command-line
-options (run "sbbs help" for a list) or by editing the Synchronet
-Initialization file (e.g. ctrl/sbbs.ini).
-
-
-4.1 Initialization File
------------------------
-The Synchronet initialization file is a plain text file in Windows ini format.
-Lines beginning with a semicolon (;) character are considered comments and
-are ignored. Configuration values are grouped into sections. Sections are
-defined by a "[section_name]" line. The configuration sections are:
-
- [Global] - Settings applied to all servers and services
- [BBS] - Settings applied to the Telnet/RLogin server
- [Mail] - Settings applied to the SMTP/POP3 mail server
- [FTP] - Settings applied to the FTP server
- [Web] - Settings applied to the Web server
- [Services] - Settings applied to Synchronet services
- [UNIX] - Settings applied to operations under Unix only
- [SBBSCTRL:*] - Settings exported from the Synchronet Control Panel
-
-Within each section is a list of values (one per line) in the form:
- name=value
-
-It is recommended that sysops new to Synchronet, leave the default values
-intact unless instructed to do otherwise.
-
-The default initalization file is ctrl/sbbs.ini. A different initialization
-filename may be used by specifying the path and filename on the sbbs
-command-line. Example:
-
- sbbs /sbbs/ctrl/mybbs.ini
-
-If the path and filename of the initialization file is not passed on the
-command-line, sbbs will use the SBBSCTRL environment variable to determine
-the location of your Synchronet ctrl directory, where it expects to find
-either <HOSTNAME>.ini or sbbs.ini.
-
-
-5. For Unix Sysops
---------------------
-You will particularily want to pay attention to the [UNIX] section of your
-Initialization file.
-
-If you do not want to run Synchronet (and all external programs/doors) as
-root, you will have to set the User and Group values.
-
-If you want Synchronet to fork and run in the background as a daemon, logging
-via syslog rather than the local console, set Daemonize=True in this section.
-
-To configure syslog and the LogFacility, a good default to use is LogFacility=3
-Then, in /etc/syslog.conf you will need to add the line:
-local3.* /var/log/synchronet.log
-
-You will have to create this file manually initially by running:
-touch /var/log/synchronet.log
-
-The send a HUP to syslogd like so:
-killall -HUP syslogd
-
-You will want to investigate how your system rotates logs and set it up to
-rotate synchronet.log also.
-
-Further use of the LogFacility setting is beyond the scope of this document.
-Read your syslog.conf manpage for more information about this. In particular,
-do NOT use the 'S' setting unless you are familiar with advanced syslogd
-configuration. The S setting will use different facilities for each feature
-of Synchronet as appropriate. Specifically, S will use:
-
- LOG_AUTH
- LOG_DAEMON
- LOG_FTP (If available)
- LOG_MAIL
- LOG_CRON
-
-
-5.1 Terminal Capabilities
--------------------------
-As you may have noticed by now, most telnet clients designed for use with
-ANSI BBSes do not display fullscreen Unix programs correctly. Included with
-Synchronet is a pair of terminal capability definition files that enable you
-to run native fullscreen Unix programs and have the output displayed correctly
-in a standard ANSI-BBS terminal. These files are termcap and terminfo,
-located in your Synchronet install directory. Your system will use one or the
-other, and it won't hurt to install both. You will need to be logged in as
-root to install the files.
-
-Installing the terminfo file:
------------------------------
-1) Change to the Synchronet install directory (e.g. sbbs/install)
-2) Enter the command ``tic terminfo''
-
-Installing the termcap file:
-----------------------------
-1) Change to the Synchroent install dircetory (e.g. sbbs/install)
-2) Enter the command ``cat termcap >> /etc/termcap''
-3) *** FreeBSD Only *** run the command:
- ``cap_mkdb -f /usr/share/misc/termcap.db /etc/termcap''
-
-Once the terminal capability files are installed, edit the ExternalTermANSI
-value in the [BBS] section of your .ini file to read:
- ExternalTermANSI=ansi-bbs
-
-
-6. Running Synchronet
----------------------
-If you've initialized the SBBSCTRL environment variable and edited your BBS
-and server configuration, you are now ready to run Synchronet. You can do
-this by simply running exec/sbbs (off of the installation directory).
-
-
-6.1 Running Synchronet Automatically During Boot-up (Unix)
-----------------------------------------------------------
-If you want Synchronet to start automatically whenever your system boots,
-you will need to set that up using the system rc scripts. A few example are:
-
-FreeBSD:
---------
-1) Set up your BBS to run as a daemon, make SURE it works.
-
-2) Create the following file as /usr/local/etc/rc.d/synchronet.sh owned by
- root, and chmod 555:
-
---- CUT --- /usr/local/etc/rc.d/synchronet.sh --- CUT ---
-#!/bin/sh
-
-# Replace the path in the following line with your sbbs install DIR
-SBBSDIR=/sbbs
-
-case "$1" in
-start)
- echo -n 'sbbs '
- cd $SBBSDIR/exec
- export SBBSCTRL=$SBBSDIR/ctrl
- export SHELL=/bin/sh
- ./sbbs
- ;;
-stop)
- echo "Shutting down Synchronet... "
- kill `cat /var/run/sbbs.pid`
- while ps -p `cat /var/run/sbbs.pid` > /dev/null
- do sleep 1
- done
- ;;
-*)
- echo "Usage: `basename $0` {start|stop}" >&2
- ;;
-esac
-
-exit 0
---- CUT --- END OF FILE --- CUT ---
-
-A note on SysOp paging:
-For most systems, the BBS must run as root to page the SysOp. FreeBSD supports
-an alternative method which requires a custom kernel with the option:
-
-pseudo-device speaker
-
-/dev/speaker should be read/writeable by the user the BBS runs as.
-
-/* End of sbbscon.txt */
diff --git a/docs/sbbsecho.html b/docs/sbbsecho.html
deleted file mode 100644
index f7c887c5442126b24ef31cbb945967c41589a2af..0000000000000000000000000000000000000000
--- a/docs/sbbsecho.html
+++ /dev/null
@@ -1,633 +0,0 @@
-
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Synchronet's FidoNet Packet Tosser Documentation</title>
-</head>
-
-<body>
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<h1> Synchronet's FidoNet Packet Tosser Documentation</h1>
-<pre><b>Table of Contents</b>
-
-<a href="#Introduction">Introduction</a>
-<a href="#Terminology">Terminology</a>
-<a href="#Installation">Installation</a>
-<a href="#AREAS.BBS">AREAS.BBS Format</a>
-<a href="#Configuration">Configuration</a>
-<a href="#RunningSBBSecho">Running SBBSecho</a>
-<a href="#CommandLineSwitches">Command Line Switches</a>
-<a href="#AREAFIXCommands">Area Manager Remote Commands</a></pre>
-<h2><a name="Introduction">
-<br>
-Introduction</a></h2>
-<pre>SBBSecho is a full-blown FTN echomail program (tosser/scanner) for Synchronet
-BBS version 2.0 and higher. SBBSecho is level III implementation of the SMB
-v2.00 specification including support for HyperAllocated and LZH compressed
-message bases.</pre>
-<pre>It is intended to replace FTSC-1 (*.MSG) compatible echomail programs (GEcho,
-Squish, FastEcho, Alexi/Mail, etc.) and SBBSFIDO with a single program
-incorporating the standard features of echomail programs without the .MSG
-phase (consuming disk space and time).</pre>
-<pre>You will not need to use SBBSFIDO (*.MSG import/export utility for Synchronet)
-or any echomail programs after you have installed SBBSecho.
-
-<a href="#TOC">Back to Table of Contents</a></pre>
-<h2><a name="Terminology">Terminology</a></h2>
-<pre><b>FTN</b>
-
-FidoNet Technology Network: Any network using FidoNet standards for addressing,
-mail packets, mail sessions, node lists, etc.</pre>
-<pre><b>Zones, Nets, Nodes, and Points?<u>
-</u></b>
-FTN node addresses are like phone numbers, they are made up of multiple
-components (four to be exact). The components are: zone, net, node, and point.
-Each component is specified by a decimal (base-10) number, separated by symbols
-(no spaces):</pre>
-<pre><b> Zone:Net/Node.Point</b></pre>
-<pre>The zone represents the continent (if FidoNet) or the network number (if other
-FTN network). All FidoNet nodes in North America have a zone 1 address. When
-the zone is specified in an address, it is the first component and must be
-followed by a colon. If the zone is not present in an address, the local
-system's zone is assumed.</pre>
-<pre>The net represents the network number of the FTN node. Duplicate net numbers
-may exist between zones. If the net number is not present, the local system's
-net is assumed.</pre>
-<pre>The node number specifies an exact FTN node within a network. The node number
-is the only required element of an FTN node address.</pre>
-<pre>The point is an optional component which specifies a sub-node that does not
-directly receive mail and is also not listed in the main FTN node list, but
-instead gets all its mail from its boss-node (zone:net/node.0). When the point
-is not specified, 0 (zero) is assumed (i.e. 1:2/3 and 1:2/3.0 are identical)
-which indicates the system is not a point node address.</pre>
-<pre>A 2D (2 dimensional) address refers to an FTN address containing just the
-net and node numbers (i.e. 103/705).</pre>
-<pre>A 3D (3 dimensional) address refers to an FTN address containing the zone,
-net, and node numbers (i.e. 1:103/705), specifically excluding the point number
-if it exists.</pre>
-<pre>A 4D (4 dimensional) address refers to an FTN address containing the zone,
-net, node, and optional point numbers (i.e. 1:103/705.1).</pre>
-<pre>A 5D (5 dimensional) address refers to an FTN address consisting of a standard
-3D or 4D address with an appended "@domain" (i.e. 1:103/705@fidonet.org).
-
-<b>Attach or FLO Mailer?<u>
-</u></b>
-If you are using FrontDoor, InterMail, D'bridge, SEAdog, Dutchie, or any other
-ArcMail *.MSG attach-style mailer, you are using what we will refer to as an
-"Attach Mailer".</pre>
-<pre>If you are using BinkleyTerm, Portal of Power, or any other FLO/CLO/HLO/DLO
-style mailer, you are using what we will refer to as a "FLO Mailer".</pre>
-<pre>Both types are supported equally by SBBSecho.</pre>
-<pre><b>NetMail<u>
-</u></b>
-Point-to-point (usually person-to-person) direct or routed messages.</pre>
-<pre><b>EchoMail<u>
-</u></b>
-Group or conference messages of a particular subject matter. Usually
-distributed on a regional or continental (e.g. FidoNet Zone 1 backbone) scale.
-FTN style echomail areas have a unique area tag (name) associated with them to
-distinguish each area from the others.</pre>
-<pre><b>Packet<u>
-</u></b>
-An FTN packet is a group of one or more messages contained in a single
-uncompressed file. Packets may contain echomail and/or netmail messages.
-Packets usually have a .PKT extension, although outbound NetMail packets for
-FLO Mailers will have .?UT extensions (where ? is either O, C, D, or H). The
-first eight characters of the filename may be anything, but are usually decimal
-digits representing the date and time the packet was created. SBBSecho creates
-temporary outbound packet files with a .PK_ extension and then renames them to
-.PKT when they're completed. If you find any .PK_ files in your outbound
-directory, don't worry. SBBSecho will find them the next time it is run and
-continue packing them and sending them on their way.</pre>
-<pre><b>Bundle</b>
-
-An FTN bundle is a single file archive of one or more (usually compressed)
-packets. Bundles will have file extensions where the first two characters
-represent the day of the week the bundle was created (MO, TU, WE, TH, FR, SA,
-and SU) and the third character of the extension is a number or letter. The
-first eight characters of the filename may be anything, but are usually
-hexadecimal digits representing the FTN node address (or relative address) of
-the system that created the bundle. SBBSecho changes the file extension of bad
-inbound bundles to .MO_, .MO-, or .MO.</pre>
-<pre><b>Areafix/Area Manager</b>
-
-Areafix is a synonym for area manager (the very first FTN area manager
-program was called AreaFix). Area manager capabilities (remote adding/removing
-of areas, changing compression type, etc) are built into SBBSecho, so therefore
-no external area manager program is required. If you are not an FTN hub, then
-the area manager portion of SBBSecho will probably not get any use on your
-system.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="Installation">Installation</a></h2>
-<pre>To begin, copy the SBBSECHO.EXE, ECHOCFG.EXE, and AREAMGR.HLP files into your
-Synchronet EXEC directory (usually C:\SBBS\EXEC), copy the SBBSECHO.CFG file
-into your Synchronet CTRL directory (usually C:\SBBS\CTRL), and copy the
-SBBSECHO.DOC file into your Synchronet DOCS directory (usually C:\SBBS\DOCS).</pre>
-<pre>If you plan on using the 32-bit DOS, OS/2, or Windows 95/NT version of
-SBBSecho, you will need to put the appropriate SBBSECHO.EXE file into your
-Synchronet EXEC directory (unzip OS2.ZIP for the OS/2 version, DOS4G.ZIP for
-the 32-bit DOS version, or WIN32.ZIP for the Windows 95/NT version). If
-you get memory allocation errors running the 16-bit DOS version or desire
-improved performance, you will want to run one of the 32-bit versions.</pre>
-<pre>Add the SBBSCTRL and SBBSNODE environment variables to your AUTOEXEC.BAT.
-Example:</pre>
-<pre><b>SET SBBSCTRL=C:\SBBS\CTRL
-SET SBBSNODE=C:\SBBS\NODE1</b></pre>
-<pre>Note: The node number used for the SBBSNODE environment variable is not
- important, use your NODE1 directory.</pre>
-<pre>These environment variables must be present for SBBSECHO and ECHOCFG to
-function correctly. Type "SET" at the DOS prompt to be sure they are listed
-correctly.</pre>
-<pre>You will also need to modify your existing MAILER.BAT (or FDRUN.BAT, IMRUN.BAT,
-etc) file to accomodate the use of SBBSecho, or replace it with the MAILER.BAT
-included with SBBSecho. If this is your first time setting up FidoNet, you will
-not currently have a MAILER.BAT file set up, so use the one that is included
-and modify it so that it reflects the proper drive letters and directories.</pre>
-<pre>Next, SBBSecho expects to find the file AREAS.BBS in your Synchronet DATA
-directory (usually C:\SBBS\DATA) unless you have overridden the default name
-and/or location using the ECHOCFG program. The format of this file is very
-similar to the standard AREAS.BBS (which many echomail programs use, or can
-at least export their native area file to this format - i.e. GEcho's GSETUP).</pre>
-<pre>SCFG can also export your sub-boards to AREAS.BBS, but you're probably better
-off modifying the AREAS.BBS file you're already using (if you are) or
-converting your current echomail program's area file to AREAS.BBS. This is
-because SCFG assumes the sub-board short name will be the same as the area's
-tag (as shown in your echo list), but this may not always be the case - unless
-you imported an AREAS.BBS or FIDONET.NA file into SCFG to begin with).
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="AREAS.BBS">AREAS.BBS Format</a></h2>
-<pre>Lines beginning with a semicolon (;) are considered comments, and are ignored.</pre>
-<pre>Each line is in the following format:</pre>
-<pre><b><i>CODE TAG UPLINKS</i></b></pre>
-<pre><i>Where:</i>
- <b>CODE</b> is the internal code of the sub-board. Any unrecognized internal
- codes are considered "Passthru" (not imported to your BBS).</pre>
-<pre> <b>TAG</b> is the FidoNet tag as shown in your echo list (i.e. FIDONET.NA).
- If this is '*', then it will be considered a "badecho" area
- and will receive all messages for areas not otherwise specified
- in this file.</pre>
-<pre> <b>UPLINKS</b> is a list of FidoNet addresses which you wish to export mail
- to. At the very least, your hub's address should be listed
- here. Your address should NOT be listed here. If multiple
- addresses are specified, you should specify the full 3D address
- for each.</pre>
-<pre><b>AREAS.BBS Example:</b></pre>
-<pre>SBBS SYNCHRONET 1:3615/50
-SYNCDATA SYNCDATA 1:3615/50
-SYNC_SYS SYNC_SYSOPS 1:3615/50</pre>
-<pre>The amount of spacing between each element in the line is not important. Each
-line can be up to 1000 characters in length.</pre>
-<pre>So if your OLD AREAS.BBS file is in .MSG format (for example):</pre>
-<pre>C:\FD\ECHO\SBBS SYNCHRONET 1:3615/50</pre>
-<pre>It must be changed to match the example given above!
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="Configuration">Configuration</a>
-</h2>
-<pre>In order to set up SBBSecho for your system you must run the included ECHOCFG
-program. It should already be located in your EXEC directory. You may want to
-put your EXEC directory in your DOS search path so you can execute SBBSECHO and
-ECHOCFG from any drive and directory on your system.</pre>
-<pre>Multiple configuration files can be used (but isn't usually required) for
-multi-mailer systems. The default configuration filename is SBBSECHO.CFG
-located in your Synchronet CTRL directory. You can override this by specifying
-the name and location of the configuration file on the SBBSECHO and ECHOCFG
-command lines. Example:</pre>
-<pre><b>ECHOCFG D:\ECHO1.CFG
-SBBSECHO D:\ECHO1.CFG</b></pre>
-<pre>If you do not specify a configuration file, ECHOCFG and SBBSECHO will use
-SBBSECHO.CFG located in your Synchronet CTRL directory.</pre>
-<pre>Upon running ECHOCFG you will be brought to the main menu of the configuration
-program. The path and filename of the configuration file being modified will
-appear at the top of the menu. Following are screen captures of available menus
-within the configuration program and an explanation of the options contained on
-each of them.</pre>
-<pre><img border="0" src="images/sbbsecho_main.png" width="652" height="331"></pre>
-<pre><b>Mailer Type:
-</b> Selecting this option will toggle between the mailer types supported
- by SBBSecho, either FrontDoor (message attach) type mailers or Binkley
- (FLO file) type mailers. Choose the one that matches your front-end
- mailer type.</pre>
-<pre><b>Maximum Packet Size:</b>
- This option allows you to set the maximum size of each outgoing
- echomail packet.
-
-<b>Maximum Bundle Size:
-</b> Mail packets are normally packed into what are called "bundles" (unless
- a node is set up to receive uncompressed mail packets). This option
- allows you to specify the maximum size of each outgoing mail bundle.</pre>
-<pre><b>Areafix Failure Notification:
-</b> This is the user number of the person where notification of Areafix
- failures should be sent. Such failures include nodes which are not
- configured for areafix, nodes using incorrect areafix passwords, and
- the like. Setting this to 0 will disable this option.</pre>
-<pre><b>Nodes...
-</b> This option allows you to add, remove, and configure nodes that you
- will be sending mail to. Selecting this option will bring you to
- a sub-menu which will look similar to the following:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_nodes.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre> At the Nodes... sub-menu, pressing the INSert key will allow you to
- add a new node, pressing the DELete key will remove the currently
- highlighted node number, and pressing ENTER on the currently
- highlighted node will allow you to edit the options for that particular
- node from a menu like the following (note that the node number you are
- editing appears at the top of the window):</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_node_settings.png" width="652" height="331"></pre>
-<pre><b>Address:
-</b> This is the address of the node you are editing, selecting it
- will allow you to change this to a different address. Using
- the "ALL" wildcard in place of one of the address components
- will allow you to configure settings for all nodes that meet
- that specification (e.g. all nodes in zone 1 can be specified
- as 1:ALL or all nodes in zone 1, net 103 can be specified
- as 1:103/ALL).</pre>
- </blockquote>
-</blockquote>
-<pre><b> Archive Type:</b>
- This is the compression type to be used when packing mail
- bundles for this node. Selecting this option will allow you
- to choose from a menu of currently configured archive types,
- like the following:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_node_arctype.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre> Selecting "None" will specify that this node is to receive
- uncompressed packets (no bundles).</pre>
-<pre><b> Packet Type:</b>
- This is the packet type that will be used when creating mail
- packets for this node. The default packet type used by SBBSecho
- is 2+. If you are a "point" address (e.g. 1:100/100.1) you
- should use either a type 2+ or 2.2 packet since type 2 packets
- do not support point numbers. Selecting this option will allow
- you to choose from a menu of currently supported packet types:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_node_packettype.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b> Packet Password:
-</b> This is a password that will be placed into each outgoing mail
- packet for this node. Passwords are normally used for extra
- security when sending and receiving mail packets. This node
- must also have the same packet password defined for your
- address and SBBSecho must be set up for secure operation (set
- in the 'Toggle Options' sub-menu) in order for this feature to
- function properly.</pre>
-<pre><b> Areafix Password:
-</b> This is the password that will be required by this node (in
- the subject field) when it sends messages to the area manager
- (AreaFix).</pre>
-<pre><b> Areafix Flags:
-</b> When additional echo lists have been defined (from the
- 'Additional Echo Lists...' sub-menu) these flags determine
- which echo lists can be used by this node when processing area
- manager add requests.</pre>
-<pre><b> Status:
-</b> This option determines the netmail status that will be set
- when SBBSecho sends out an areafix message or a file attach.
- Selecting this option toggles between None, Crash, and Hold
- status.</pre>
-<pre><b> Direct:
-</b> When set to 'Yes' this option will add a Direct kludge line
- to messages that SBBSecho sends out (or create DLO/DUT files
- for FLO mailers).</pre>
-<pre><b> Passive:
-</b> Setting this option to 'Yes' will prevent messages from being
- sent to this node without the need for altering the AREAS.BBS
- file. This is useful for temporarily shutting off the messages
- to this node. This option can be toggled on and off remotely
- via an area manager request.</pre>
-<pre><b> Send Notify List:
-</b> This determines whether or not this node is sent a Notify List
- when using that command line option in SBBSecho.
- A Notify List is a netmail sent to the system operator of the
- node showing options set for the node as well as connected
- areas.
-
-<b>Paths...
-</b> This option allows you to configure the paths and filenames which are
- used by SBBSecho. Selecting this option will bring you to the
- following sub-menu:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_paths.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b> Inbound Directory:
-</b> This is the directory where SBBSecho should look for inbound
- mail packets. This is normally taken from whatever has been
- set in the SCFG program.</pre>
-<pre><b> Secure Inbound (optional):
-</b> This is an optional directory where SBBSecho should look for
- secure inbound mail packets.</pre>
-<pre><b> Outbound Directory:
-</b> This is the directory where SBBSecho will place outgoing mail
- packets and bundles.</pre>
-<pre><b> Area File:
-</b> This is the path and filename of the file that SBBSecho will
- use as it's AREAS.BBS file. By default SBBSecho looks for
- the file AREAS.BBS in the data directory defined in SCFG.</pre>
-<pre><b> Log File:
-</b> This is the path and filename of the file that SBBSecho will
- use when logging events. By default SBBSecho uses the file
- SBBSECHO.LOG in the data directory defined in SCFG.
-
-<b>Log Options...
-</b> This list allows you to toggle what events SBBSecho should place into
- the logfile. Selecting this option will bring you to the following
- sub-menu:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_logoptions.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre> Selecting ALL, NONE, or DEFAULT will toggle all of the options to
- 'Yes', 'No', or to their default states, respectively.
-
-<b>Toggle Options...
-</b> These options allow you to toggle various features in SBBSecho.
- Selecting this option will bring you to the following sub-menu:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_toggleoptions.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b> Secure Operation:
-</b> When set to 'Yes', SBBSecho will compare the origin of any
- incoming mail packets to the nodes in the AREAS.BBS file
- as messages are imported. If a packet password has been
- defined for that node, it will also be compared to the
- password contained in the mail packet. Packets and messages
- failing this security will not be imported.</pre>
-<pre><b> Swap for Executables:
-</b> SBBSecho relies on external executable programs for extracting
- and compressing mail bundles. This option tells SBBSecho to
- swap out of memory when running any of these executables,
- giving the executable programs more free memory to run in.
- This option is only used in the 16-bit DOS flavor of SBBSecho.</pre>
-<pre><b> Fuzzy Zone Operation:
-</b> Some mail programs do not create netmail messages with zone
- information (INTL kludge line) or may only do so when sending
- between zones. This is a problem for systems that receive
- netmail for multiple addresses with different zones (AKAs with
- different zone numbers). Setting this option to "Yes" allows
- SBBSecho to guess what the correct originating and destination
- zone is based on the net and node portions of the destination
- address in netmail message.</pre>
-<pre><b> Store PATH Lines in Message Base:
-</b> When set to 'Yes', SBBSecho will store the PATH lines from
- incoming echomail in the Synchronet message base headers (not
- the body text). This option is useful for troubleshooting
- routing/duplicate message problems.</pre>
-<pre><b> Store SEEN-BY Lines in Message Base:
-</b> When set to 'Yes', SBBSecho will store the SEEN-BY lines from
- incoming echomail in the Synchronet message base headers (not
- the body text). This option is useful for troubleshooting
- routing/duplicate message problems.
-
-<b> Store Unknown Kludge Lines in Message Base:
-</b> When set to 'Yes', SBBSecho will store any unknown kludge lines
- from incoming echomail in the Synchronet message base headers.
- This option is useful for troubleshooting problems.</pre>
-<pre><b> Allow Nodes to Add Areas in the AREAS.BBS List:
-</b> When set to 'Yes', SBBSecho will allow nodes to add areas
- (via area manager) which are listed in the AREAS.BBS list.
- When set to 'No', SBBSecho will only allow nodes to add areas
- from any additionally configured echo lists which they have
- access to.
-
-<b>Archive Programs...
-</b> This option allows you to add or remove archive programs from SBBSecho.
- Selecting this option will bring you to the following menu:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_archiveprgs.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre> At the Archive Programs... sub-menu, pressing the INSert key will allow
- you to add a new archive program. Pressing the DELete key will remove
- the currently highlighted archive program. And pressing ENTER on the
- currently highlighted archive program will allow you to edit the
- options for that particular program from a menu like the following (note
- that the name of the archive program you are editing appears at the top
- of the window):</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_archiveprgs_zip.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b> Packer Name:
-</b> This is the name that will be used to reference this particular
- archiving program. This is also the name that should be used
- by nodes using areamanger to change their compression type
- remotely.</pre>
-<pre><b> Hexadecimal ID:
-</b> This is a hexadecimal identifier that SBBSecho should look for
- when determining the compression type used on incoming bundles.
- In this example we are looking for the ID 'PK', '50' is the
- hexadecimal value for the letter 'P' and '4B' is the
- hexadecimal value for the letter 'K'.</pre>
-<pre><b> Offset to Hex ID:
-</b> This is the byte offset (from the beginning of the file) where
- the hexadecimal ID for this archive program can be located.
- In this example we are looking at an offset of 0 bytes from the
- beginning of the file.
-
-<b> Pack Command Line:
-</b> This is the command line used by this archiving program for
- compressing files. The '%f' command line specifier will expand
- to the name of the compressed file, the '%s' command line
- specifier will expand to the name of the file being compressed.</pre>
-<pre><b> Unpack Command Line:
-</b> This is the command line used by the archiving program for
- Uncompressing files. The '%f' command line specifier will
- expand to the name of the compressed file, the '%s' command
- line specifier will expand to the path where the file is
- being extracted to.
-
-<b>Additional Echo Lists...
-</b> This option allows you to add and remove additional echo lists which
- can be used by SBBSecho for area manager add requests. Normally these
- will be used in addition to your AREAS.BBS file. If you have the
- toggle option 'Allow Nodes to Add Areas in the AREAS.BBS List' set to
- 'No', you MUST create at least one additional echo list if you wish
- to allow other nodes to add areas via area manager requests.</pre>
-<pre> Selecting this option will bring you to a sub-menu listing any
- additional echo lists you currently have defined:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_additionalecho.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre> Pressing the INSert key will allow you to add a new echo list, pressing
- the DELete key will remove the currently highlighted echo list, and
- pressing ENTER on the currently highlighted echo list will allow you to
- edit information about that list:</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_additionalecho_list.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b> Echo List Path/Name:
-</b> This is the full path and filename of the echo list you are
- defining. This list should contain the areatag names of areas,
- one per line, with any comments separated from the areatag by
- at least one space.</pre>
-<pre><b> Hub Address:
-</b> This is the address of the hub of the conferences contained
- in this list. If an area is remotely added from this list
- (using Areafix) this address is automatically added to the
- AREAS.BBS file.</pre>
-<pre><b> Forward Password:
-</b> This is the area manager password to use when forwarding
- requests.
-
-<b> Forward Requests:
-</b> Setting this option to 'Yes' will cause SBBSecho to send a
- request to the Hub Address specified to turn on an area from
- this list. This happens when users remotely add areas using
- Areafix and is not necessary if you are already receiving the
- conferences in this list (i.e.: from Planet Connect).
-</pre>
-<pre><b> Echo List Flags:
-</b> These are the flags required for a node to be able to gain
- access to this particular echo list. These flags are defined
- for each node from the 'Nodes...' sub-menu.</pre>
-<pre> Selecting this option will bring you to a sub-menu where you
- may add and remove flags for this echo list.</pre>
-<blockquote>
- <blockquote>
-<pre><img border="0" src="images/sbbsecho_additionalecho_list_tag.png" width="652" height="331"></pre>
- </blockquote>
-</blockquote>
-<pre><b><a href="#TOC">Back to Table of Contents</a></b></pre>
-<h2><a name="RunningSBBSecho">Running SBBSecho</a></h2>
-<pre>The command line for executing SBBSECHO is very similar to SBBSFIDO, although
-some command line switches have been eliminated.</pre>
-<pre>We suggest you use the following command lines:</pre>
-<pre>For importing:</pre>
-<pre> <b>C:\SBBS\EXEC\SBBSECHO /LES!</b></pre>
-<pre>For exporting (Attach Mailer):</pre>
-<pre><b> C:\SBBS\EXEC\SBBSECHO /LIN</b></pre>
-<pre>For exporting (FLO Mailer):</pre>
-<pre><b> C:\SBBS\EXEC\SBBSECHO /LINF</b></pre>
-<pre>Remove all references to SBBSFIDO from your batch files (if you have any).
-See the included MAILER.BAT as an example.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="CommandLineSwitches">Command Line Switches</a>
-</h2>
-<pre><b>usage: sbbsecho [cfg_file] [/switches] [sub_code]</b></pre>
-<pre>where: cfg_file is the filename of config file (default is ctrl\sbbsecho.cfg)
- sub_code is the internal code for a sub-board (default is ALL subs)</pre>
-<pre>SBBSecho will execute normally (for Attach Mailer operation) with NO command
-line switches required. Command lines switches are used to cause SBBSecho to
-_do_ or _not_ do specific operations. When used, command line switches
-are prepended by a slash (/) character. Multiple switches can be specified
-in one grouping (multiple /switch sets are supported, but not required).
-Switch letters are not case sensitive. The available switch letters and their
-descriptions are:</pre>
-<pre>P: Do not import inbound packets or extract inbound bundles
-X: Do not delete inbound packets (*.PKT) after they're imported
-N: Do not import inbound netmail (packetized netmail and *.MSG)
-D: Do not delete inbound netmail (*.MSG) after they're imported
-I: Do not import inbound echomail
-E: Do not export outbound echomail
-M: Ignore echomail pointers (export all locally created echomail messages)
-U: Update echomail pointers only (export no echomail messages)
-T: Do not update echomail pointers (test export)
-H: Export all echomail messages (including messages imported from FidoNet)
-J: Ignore received bit on netmail (import even though flagged as received)
-L: Create log file (data\sbbsecho.log)
-R: Create report of import totals (text\sbbsecho.msg)
-B: Import locally created netmail too (ignore the local flag)
-A: Export ASCII characters only (override individual sub-board ex-ASCII strip)
-F: Create packets for outbound netmail (necessary for FLO Mailer operation)
-G: Generate notify lists
-Y: Import netmail for unknown users to sysop (user #1)
-O: Import all netmail regardless of destination address (unless flagged local)
-S: Import private echomail override (strip private flag)
-=: Change existing tear lines to === when exporting
-!: Notify users via telegram of received echomail messages</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="AREAFIXCommands">AREAFIX Commands</a>
-</h2>
-<pre>Remote area manager, or areafix, commands are used by uplinks to be able to
-turn echo areas off and on, list currently connected areas, and more.</pre>
-<pre>The following text is from the file AREAMGR.HLP which, after installation of
-SBBSecho, should be located in your Synchronet EXEC directory. It lists the
-area manager commands available to the nodes which have been configured using
-the ECHOCFG program:</pre>
-<pre>Address all requests to 'SBBSecho' or 'AreaFix' (without quotes).
-Your Area Manager password goes on the subject line.</pre>
-<pre>In the body of the message to Area Manager:</pre>
-<pre>[+]<areaname> Connect an area
--<areaname> Disconnect an area
-%HELP Request this message
-%LIST Request a list of areas available to you
-%QUERY Request a list of areas to which you are connected
-%UNLINKED Request a list of areas to which you are not connected
-%COMPRESSION <type> Change the compression type (ARC/ARJ/LZH/PAK/SQZ/ZIP/ZOO)
-%PASSWORD <password> Change your AreaMgr password
-%RESCAN Request a rescan of newly added areas
-%ACTIVE Reconnect all temporarily disconnected areas
-%PASSIVE Temporarily disconnect all connected areas
-%FROM <address> Remote maintenance, must be the first command
-%+ALL Connect all available areas
-%-ALL Disconnect all areas
-[---] Everything below the tear line is ignored</pre>
-<pre>NOTE: A compression type of NONE is also supported for uncompressed packets.</pre>
-<pre><b><a href="#TOC">Back to Table of Contents</a></b></pre>
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-</body>
-
-</html>
diff --git a/docs/sbbsunix.txt b/docs/sbbsunix.txt
deleted file mode 100644
index 2f5a38c2261d38eaad53f6c232eff1b22a940270..0000000000000000000000000000000000000000
--- a/docs/sbbsunix.txt
+++ /dev/null
@@ -1,507 +0,0 @@
-Synchronet for Unix
--=-=-=-=-=-=-=-=-=-
-
-By: Rob Swindell (digital man)
-http://www.synchro.net
-
-$Id$
-
-The information in this file is current as of the date above. The answers and
-instructions in this file may change over time, so be sure to get the current
-version of this file at ftp://ftp.synchro.net/sbbsunix.txt
-or ViewCVS at
-http://cvs.synchro.net/cgi-bin/viewcvs.cgi/*checkout*/docs/sbbsunix.txt
-
-
-Answers to Frequently Asked Questions
-=====================================
-
-Q. What flavors of Unix (and Unix-like operating systems) are supported?
-A. Currently, Linux, FreeBSD, OpenBSD, NetBSD, QNX and Solaris-x86.
-
-Q. What distributions of Linux are supported?
-A. Should work with any GNU/Linux-x86 distribution (e.g. RedHat, Mandrake,
- Debian, Slackware, etc.).
-
-Q. Linking error: undefined reference: '__ctype_b'
-A: This is an issue linking the JavaScript library for Linux (libjs.a) on
- RedHat Linux 9 and Mandrake Linux 9 using glibc v2.3.2-11+.
-
- This issue has been resolved with the addition of libjs.so and libnspr4.so
- to the CVS repository (in the lib/mozilla directory). If you're having this
- problem, run "cvs update" in your lib and src/sbbs3 directories and
- rebuild.
-
- Another solution is to use the lib[moz]js.so file included with your Linux
- distribution (if it is). See installation steps 1.E and 1.F for more
- details.
-
-Q. Are non-x86 (Alpha, SPARC, 68k, PowerPC, etc) processors supported?
-A. Not currently. Synchronet assumes a little-endian processor. It *may* work
- on other little-endian processors (e.g. Alpha), but hasn't been tested.
- Big-endian support is currently being developed for the v3.20 time-frame.
-
-Q. Will Synchronet ever support big-endian and/or 64-bit processors?
-A. Yes, that is the plan.
-
-Q. Where do I get Synchronet for Unix?
-A. There are no binary distributions at this time, so you must get the source
- code from the Synchronet CVS repository (cvs.synchro.net).
- See the step-by-step instructions below for details.
-
-Q. Will there be binary releases?
-A. Yes, some day soon. Or maybe a binary installer that will come with source
- code and build it for you.
-
-Q. Can I mix Synchronet for Unix and Synchronet for Win32 or DOS or OS/2 nodes
- on the same BBS?
-A. Yes. As long as all the nodes can access the same live data files (via LAN)
- you can have as many instances of Synchronet on as many different platforms
- as you wish.
-
-Q. Does Synchronet for Unix support external DOS programs/doors?
-A. Currently, only the FreeBSD build has doscmd support "built-in" (and this
- "support" requires Deuce's version of doscmd with FOSSIL emulation):
- http://nix.synchro.net/doscmd.gz
-
- Other platforms can use DOSEMU or whatever is available for running DOS
- programs.
-
- There's a patch for "building-in" DOSEMU support with Synchronet for Linux:
- http://forge.icequake.net/syncmods/index.html
-
- and a FAQ for using DOSEMU with Synchronet for Linux (without a patch):
- http://www.exeonline.com/bbs/howto-doors.txt
-
-Q. What external programs/doors does Synchronet for Unix support?
-A. External programs can either use standard I/O (e.g. bash, pico, Lord/X,
- PimpWars) or socket I/O (e.g. Synchronet XSDK doors).
-
-Q. Does Synchronet for Unix require X-Windows?
-A. No, Synchronet for Unix is currently a console-based application.
-
-Q. Are there any plans to make an X-Windows front-end for Synchronet?
-A. Yes, but it will be optional.
-
-
-Step-by-step Instructions
-=========================
-
-Note: These instructions assume you are already logged in as 'root'.
-
-Note: Skip to step 8 if you are updating an existing Synchronet installation.
-
-1. Get the required installation and source code modules from CVS:
-
- A. Create the Synchronet BBS directory on your file system:
- mkdir /sbbs
-
- B. Change to this directory:
- cd /sbbs
-
- *> Optional Shortcut:
- *> At this point you can copy the file from this url:
- *> http://cvs.synchro.net/cgi-bin/cvsweb.cgi/~checkout~/install/GNUmakefile
- *> into the /sbbs directory, run "gmake install", and then skip ahead to
- *> step 5.
-
- C. Get the required installation modules from the CVS repository:
- export CVSROOT=:pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs
- cvs login
- (no password - just hit enter)
- cvs co run-sbbs3
-
- D. Get the required source code modules from the CVS repository:
- cvs co src-sbbs3
-
- *> Optional Shortcut (existing JavaScript library):
- *> If your Unix distribution includes the file /usr/lib/libjs.so or
- *> /usr/lib/libmozjs.so, you can save a lot of time by using this
- *> library instead of the one supplied in the Synchronet CVS repository.
- *> If you have /usr/lib/libmozjs.so (instead of libjs.so), you can either:
- *> Create a symlink or copy of this file with the name /usr/lib/libjs.so
- *> or specify "JSLIB=mozjs" on the "gmake" command-line mentioned later.
- *> If your system already has the JavaScript library, skip ahead to step 2.
-
- E. Get the required JavaScript library for your platform and build type:
- cvs co lib/mozilla/js/linux.debug
- or:
- cvs co lib/mozilla/js/linux.release
- or:
- cvs co lib/mozilla/js/freebsd.debug
- etc.
- Note: If you want to get the full source code to the Mozilla JavaScript
- library to build it yourself, the cvs repository is:
- :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
- the module name is mozilla/js/src.
-
- F. Get the required NSPR library for your platform and build type:
- cvs co lib/mozilla/nspr/linux.debug
- or:
- cvs co lib/mozilla/nspr/linux.release
- or:
- cvs co lib/mozilla/nspr/freebsd.debug
- etc.
- Note: This step is not necessary if your system already has the file
- /usr/lib/libnspr4.so
-
- G. Create symbolic links to the Mozilla Libraries (JavaScript and NSPR) in
- your /usr/lib directory:
- cd /usr/lib; ln -s /sbbs/lib/mozilla/*/linux.debug/*.so .
-
- or: Add these two directories to your LD_LIBRARY_PATH environment
- variable.
-
-
-2. Build Synchronet:
-
- Prerequisite: curses
- You must have either the curses or ncurses headers and library files
- installed on your system, or you must remove the USE_CURSES definition
- from the various GNUmakefiles in the src/sbbs3 tree. If you have the
- files /usr/include/curses.h and /usr/lib/libcurses.a then you're ready
- to continue.
-
- A. Change to this directory:
- cd /sbbs/src/sbbs3
-
- B. Build the main executable (and utilities):
- gmake
- (please report build errors to rob@synchro.net)
- Note: Warnings (if any) can be safely ignored
- Note: If you're linking with /usr/lib/libmozjs.so, don't forget to add
- "JSLIB=mozjs" to the gmake command-line
- Note: To debug compile/link command-line problems, adding "VERBOSE=1"
- to the gmake command-line can be very helpful
-
- C. Change to this directory:
- cd /sbbs/src/sbbs3/scfg
-
- D. Build the Synchronet configuration utility (SCFG):
- gmake
- (please report build errors to rob@synchro.net)
- Note: Warnings (if any) can be safely ignored
-
- E. Congratulate yourself on a job well-done.
-
-
-3. Prepare the "exec" directory:
-
- A. Change to this directory:
- cd /sbbs/exec
-
- B. Copy (or create symbolic links to) the following files:
- /sbbs/src/sbbs3/gcc.linux.exe.debug/*
- /sbbs/src/sbbs3/scfg/gcc.linux.debug/scfg
- /sbbs/src/sbbs3/scfg/gcc.linux.debug/scfghelp.ixb
- /sbbs/src/sbbs3/scfg/gcc.linux.debug/scfghelp.dat
- (the paths will be different for other platforms or release builds)
-
- C. Copy (or create symbolic links to) the following shared libraries:
- /sbbs/src/sbbs3/gcc.linux.lib.debug/lib*.so
- (the paths will be different for other platforms or release builds)
-
- Note: Another option is to create the symbolic links in your /usr/lib
- directory:
- cd /usr/lib; ln -s /sbbs/src/sbbs3/gcc.linux.lib.debug/*.so .
-
- OR: set the LD_LIBRARY_PATH environment variable to point to your
- gcc.<os>.lib.<build> directory:
- export LD_LIBRARY_PATH=/sbbs/src/sbbs3/gcc.linux.lib.debug
-
- D. Build the required Baja {tm} modules:
- gmake
-
-
-4. Prepare the "xtrn" directory:
-
- A. Change to this directory:
- cd /sbbs/xtrn/sbj
-
- B. Build Synchronet Blackjack:
- gmake
-
- C. Change to this directory:
- cd /sbbs/xtrn/sbl
-
- D. Build Synchronet BBS List:
- gmake
-
-
-5. Configure the BBS:
-
- A. Run SCFG:
- /sbbs/exec/scfg /sbbs/ctrl
- (if you have problems with the curses interface, try running
- "scfg -d" instead)
- Tip: Set the SBBSCTRL environment variable and you won't have to specify
- the path to the "ctrl" directory on the command-line:
- export SBBSCTRL=/sbbs/ctrl
-
- B. Change SCFG->Networks->QWK->Hubs->VERT:
- Pack Command Line zip -j -D %f %s
- Unpack Command Line unzip -o -j %f %s -d %g
- Call-out Command Line *qnet-ftp VERT vert.synchro.net YOURPASS
- (see docs/dove-net.txt for more details)
-
- C. You should also consider configuring important details about your BBS
- (like the name) in SCFG->System.
-
-
-6. Running Synchronet:
-
- 1. Set the SBBSCTRL environment variable to point to your "ctrl" directory:
- export SBBSCTRL=/sbbs/ctrl
-
- 2. Run the main executable (with default settings/options):
- /sbbs/exec/sbbs
-
- 3. To view available command-line options, run:
- /sbbs/exec/sbbs help | more
-
- 4. To view default settings (node and port numbers), run:
- /sbbs/exec/sbbs defaults
-
- 5. To change the default settings, edit the file:
- /sbbs/ctrl/sbbs.ini
-
- 6. For more details, see /sbbs/docs/sbbscon.txt
-
-
-7. Debugging:
-
- A. Run the GNU debugger:
- gdb /sbbs/exec/sbbs
-
- B. Run Synchronet:
- run
-
- C. After segfault, display back-trace:
- bt
-
- D. Copy and paste in e-mail to rob@synchro.net
-
-
-8. Updating/synchronizing the source code with the CVS repository:
-
- A. Change to your Synchronet installation directory:
- cd /sbbs
-
- B. Back-up your working exec directory:
- cp -a exec exec.bak
-
- C. Get the latest changes from CVS:
- export CVSROOT=:pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs
- cvs login
- (no password - just hit enter)
- cvs update docs exec xtrn src lib include
-
- D. Repeat steps 2, 3 and 4 (only).
-
- E. Shutdown and re-run sbbs.
-
- F. You're done. :-)
-
-
-Default Configuration (SCFG) Screen-shots
-=========================================
-
-[Viewable File Type]
-1: File Extension zip
-2: Command Line unzip -C -l %s
-3: Access Requirements UNIX
-
-[Viewable File Type]
-1: File Extension tgz
-2: Command Line tar -tzf %s
-3: Access Requirements UNIX
-
-[Viewable File Type]
-1: File Extension tar
-2: Command Line tar -tf %s
-3: Access Requirements UNIX
-
-[Testable File Type]
-1: File Extension zip
-2: Command Line unzip -t %f
-3: Working String Testing ZIP Integrity...
-4: Access Requirements UNIX
-
-[Testable File Type]
-1: File Extension tgz
-2: Command Line tar -tzf %s
-3: Working String Testing TGZ Integrity...
-4: Access Requirements UNIX
-
-[Testable File Type]
-1: File Extension tar
-2: Command Line tar -tf %s
-3: Working String Testing TAR Integrity...
-4: Access Requirements UNIX
-
-[Extractable File Type]
-1: File Extension zip
-2: Command Line unzip -C -o -j %f %s -d %g
-3: Access Requirements UNIX
-
-[Extractable File Type]
-1: File Extension tgz
-2: Command Line tar -xzf %f %s -C %g
-3: Access Requirements UNIX
-
-[Extractable File Type]
-1: File Extension tar
-2: Command Line tar -xf %f %s -C %g
-3: Access Requirements UNIX
-
-[Compressable File Type]
-1: File Extension zip
-2: Command Line zip -j -D %f %s
-3: Access Requirements UNIX
-
-[Compressable File Type]
-1: File Extension tgz
-2: Command Line tar -czf %f %s
-3: Access Requirements UNIX
-
-[Compressable File Type]
-1: File Extension tar
-2: Command Line tar -cf %f %s
-3: Access Requirements UNIX
-
-[File Transfer Protocol]
- 1: Mnemonic (Command Key) X
- 2: Protocol Name Xmodem (SZ)
- 3: Access Requirements UNIX
- 4: Upload Command Line rz --xmodem
- 5: Download Command Line sz --xmodem %f
- 6: Batch Upload Command Line
- 7: Batch Download Command Line
- 8: Bi-dir Command Line
- 9: Native (32-bit) Executable Yes
-10: Supports DSZLOG No
-
-[File Transfer Protocol]
- 1: Mnemonic (Command Key) Y
- 2: Protocol Name Ymodem (SZ)
- 3: Access Requirements UNIX
- 4: Upload Command Line rz --ymodem
- 5: Download Command Line sz --ymodem %f
- 6: Batch Upload Command Line rz --ymodem
- 7: Batch Download Command Line sz --ymodem %s
- 8: Bi-dir Command Line
- 9: Native (32-bit) Executable Yes
-10: Supports DSZLOG No
-
-[File Transfer Protocol]
- 1: Mnemonic (Command Key) Z
- 2: Protocol Name Zmodem (SZ)
- 3: Access Requirements UNIX
- 4: Upload Command Line rz -p -R
- 5: Download Command Line sz %f
- 6: Batch Upload Command Line rz -p -R
- 7: Batch Download Command Line sz %s
- 8: Bi-dir Command Line
- 9: Native (32-bit) Executable Yes
-10: Supports DSZLOG No
-
-[File Transfer Protocol]
- 1: Mnemonic (Command Key) K
- 2: Protocol Name Kermit (G-Kermit)
- 3: Access Requirements UNIX
- 4: Upload Command Line gkermit -q -P -r -a %f
- 5: Download Command Line gkermit -q -P -s %f
- 6: Batch Upload Command Line
- 7: Batch Download Command Line gkermit -q -P -s %s
- 8: Bi-dir Command Line
- 9: Native (32-bit) Executable Yes
-10: Supports DSZLOG No
-
-[Native (32-bit) Program List]
- 1: cmd.exe
- 2: sh
- 3: csh
- 4: bash
- 5: node
- 6: zip
- 7: unzip
-
-[Pico (Pine Composer) Editor]
- 1: Name Pico (Pine Composer)
- 2: Internal Code PICO
- 3: Remote Command Line pico -t -o %g %f
- 4: Access Requirements UNIX
- 5: Intercept Standard I/O Yes
- 6: Native (32-bit) Executable Yes
- 7: Use Shell to Execute No
- 8: Quoted Text Prompt User
- 9: QuickBBS Style (MSGTMP) No
-10: Expand Line Feeds to CRLF Yes
-11: Strip FidoNet Kludge Lines No
-12: BBS Drop File Type None
-
-[Synchronet BBS List]
- 1: Name Synchronet BBS List
- 2: Internal Code SBL
- 3: Start-up Directory ../xtrn/sbl
- 4: Command Line sbl%.
- 5: Clean-up Command Line
- 6: Execution Cost None
- 7: Access Requirements
- 8: Execution Requirements
- 9: Multiple Concurrent Users Yes
-10: Intercept Standard I/O No
-11: Native (32-bit) Executable Yes
-12: Use Shell to Execute No
-13: Modify User Data No
-14: Execute on Event No
-15: BBS Drop File Type Synchronet XTRN.DAT
-16: Place Drop File In Node Directory
-
-[Synchronet Blackjack!]
- 1: Name Synchronet Blackjack!
- 2: Internal Code SBJ
- 3: Start-up Directory ../xtrn/sbj
- 4: Command Line sbj%. /l
- 5: Clean-up Command Line sbjclean%.
- 6: Execution Cost None
- 7: Access Requirements
- 8: Execution Requirements
- 9: Multiple Concurrent Users Yes
-10: Intercept Standard I/O No
-11: Native (32-bit) Executable Yes
-12: Use Shell to Execute No
-13: Modify User Data Yes
-14: Execute on Event No
-15: BBS Drop File Type Synchronet XTRN.DAT
-16: Place Drop File In Node Directory
-
-[Synchronet Configuration]
- 1: Name Synchronet Configuration
- 2: Internal Code SCFG
- 3: Start-up Directory
- 4: Command Line %!scfg -d -l%r
- 5: Clean-up Command Line
- 6: Execution Cost None
- 7: Access Requirements SYSOP
- 8: Execution Requirements
- 9: Multiple Concurrent Users No
-10: Intercept Standard I/O Yes
-11: Native (32-bit) Executable Yes
-12: Use Shell to Execute No
-13: Modify User Data No
-14: Execute on Event No
-15: BBS Drop File Type None
-16: Place Drop File In Node Directory
-
-
-SBBSecho zip/unzip configuration (ctrl/sbbsecho.cfg)
-================================
-PACKER ZIP 0 504B
- PACK zip -j %f %s
- UNPACK unzip -o -j %f -d %s
-
-
-Send comments/questions to rob@synchro.net
-
-/* End of sbbsunix.txt */
diff --git a/docs/security.html b/docs/security.html
deleted file mode 100644
index 2fcb57e2b652887b1bee91af667926d54af31b93..0000000000000000000000000000000000000000
--- a/docs/security.html
+++ /dev/null
@@ -1,568 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>ARS Security</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-
-<h2><a name="Introduction">[7.1] - Introduction to ARS
-Security</a></h2>
-<pre>ARS stands for Access Requirement Strings. Access requirement strings are used
-to specify the requirements of a user to have access to features/sections of a
-Synchronet BBS. The string can consist entirely of English key words and
-numbers or use short-hand symbols to fit a large number of security
-requirements into the 40 character space allowed for access requirement
-strings. Short-hand symbols and key words may be used interchangeably and
-combined in the same string. For clarity, it is suggested you use the key words
-whenever possible. The string syntax is as follows:
-
-<b>usage: [not] [parm] [not] [equal] <value> [or] [and] [...]</b>
-
-<i>where:</i> <b>not</b> is the word "NOT" or the symbol '!' to specify reverse logic
- <b>parm</b> is one of any keywords (or short-hand symbols) that specifies
- a specific required parameter (default is LEVEL)
- <b>equal</b> is the word "EQUAL", "EQUALS", the words "EQUAL TO", or the
- symbol '=' to specify exact equality required
- <b>value</b> the required value (for either minimum requirement or equality)
- <b>or</b> the word "OR" or the symbol '|' used to specify that ANY of two
- or more parameter values MAY be met to match the requirement
- <b>and</b> the word "AND" or the symbol '&' may be used for clarity in
- reading when specifying that two or more parameter values MUST
- be met to match the requirement</pre>
-<h2><a name="Keywords/Symbols">[7.2] - Key words and Symbols</a></h2>
-<pre><b>Key word Symbol Description
-</b>------------------------------------------------------------------------------
-AND & More than one requirement (optional)
-NOT ! Logical negation (e.g. NOT EQUAL)
-EQUAL = Equality required
-OR | Either of two or more parameters is required
-AGE $A User's age (years since birthdate, 0-255)
-ANSI $[ User has ANSI terminal (no value argument)
-BPS $B User's current connect rate (bps)
-CREDIT $C User's number of credits in Kilobytes (0-65535)
-DAY $W Day of the week (Sun, Mon, Tue, etc. or 0-6)
-DIR $J Current file directory (Internal code or 1-65535)
-DOS Current node is running SBBS4DOS (no value argument)
-EXEMPT $X Exemption flag (A-Z)
-EXPERT User is in expert menu mode (no value argument)
-EXPIRE $E Days till user account expires (0-65535)
-FILE_CMDS Number of executed file menu commands (0-65535)
-FLAG $F User's flag (1-4) and (A-Z)
-GROUP $M Current message group (1-65535)
-LASTON $Y Days since last logon (0-65535)
-LEVEL $L User's level (0-99)
-LIB $I Current file library (1-65535)
-LOCAL $G Logged on locally (no value argument)
-MAIN_CMDS Number of executed main menu commands (0-65535)
-NODE $N Current node (1-250)
-OS2 Current node is running SBBS4OS2 (no value argument)
-PCR $P User's post/call ratio (0-100)
-QUIET User is in quiet mode
-RANDOM $Q Random number between 0 and value argument (0-65535)
-REST $Z Restriction flag (A-Z)
-RIP $* User has RIP terminal (no value argument)
-SEX $S User's sex/gender (M or F)
-SUB $H Current message sub-board (Internal code or 1-65535)
-SYSOP User has level 90 or temp sysop (no value argument)
-TIME $T Time of day (HH:MM, 0-23:59)
-TLEFT $R User's time left online (minutes, 0-255)
-TUSED $O User's time online this call (minutes, 0-255)
-UDR $K User's upload/download ratio (0-100)
-UDFR $D User's upload/download file ratio (0-100)
-USER $U User's number (1-xxxx)
-WIP User has WIP compatible terminal (no value argument)</pre>
-<h2><a name="GeneralUsageExamples">[7.3] - ARS General Usage Examples</a></h2>
-<pre><b>General Example #1</b>
-
-LEVEL 60
-
-This string specifies that only users with a level of 60 OR HIGHER meet this
-requirement. The space between the level and the required value is optional:
-
-LEVEL60
-
-is functionally equivalent, but doesn't read as well. You may also use short
-hand symbols in place of key words to save space:
-
-$L 60
-
-is also functionally equivalent. Once again, the space between the short hand
-symbol and the required value is optional. If a parameter is not specified,
-the requirement is assumed to be LEVEL. So the following string:
-
-60
-
-is also valid and evaluates the same as the above strings.
-
-<b>General Example #2</b>
-
-NOT LEVEL 60
-
-This string specifies that only users with a level BELOW 60 will meet the
-requirement. The "NOT" key word can be include before or after the parameter:
-
-LEVEL NOT 60
-
-evaluates identically to the first string in this example.
-
-Short-hand symbols may be used to abbreviate the string:
-
-LEVEL !60
-
-$L!60
-
-!60
-
-have exactly the same meaning as the first string in this example.
-
-<b>General Example #3</b>
-
-LEVEL EQUAL 60
-
-This string specifies that only users with a level EQUAL TO 60 will meet
-this requirement. The key word "EQUALS" or the combination "EQUAL TO" may
-be used in place of "EQUAL" if preferred:
-
-LEVEL EQUALS 60
-
-and
-
-LEVEL EQUAL TO 60
-
-are both functionally equivalent to the first string in this example. Again,
-short-hand symbols may be used to make the string shorter:
-
-LEVEL = 60
-
-evaluates identically to the above example strings and the space on either side
-of the '=' symbol are also optional:
-
-LEVEL=60
-
-is valid and may be preferred by some sysops. Since level is the default
-parameter type, the following string is also valid:
-
-=60
-
-<b>General Example #4</b>
-
-LEVEL 60 AND FLAG 1A
-
-This string indicates that the user must have a level of 60 or higher AND have
-the flag 'A' from flag set #1. The user must meet both requirements in order to
-be considered as meeting all the requirements of the string. The "AND" portion
-of the string is only included for clarity in reading and is optional:
-
-LEVEL 60 FLAG 1A
-
-has the same meaning, but may be confusing when read. When specifying a flag
-from flag set #1, the set number may be eliminated:
-
-LEVEL 60 AND FLAG A
-
-is functionally the same and is the preferred method of referring to flags from
-flag set #1. When specifying the flag set, spaces can be on either side of
-the number, or eliminated entirely:
-
-LEVEL 60 AND FLAG1 A
-
-and
-
-LEVEL 60 AND FLAG 1 A
-
-and
-
-LEVEL 60 AND FLAG1A
-
-have the same meaning as the first string in this example, but are probably
-not as easy to read as the second string in this example.
-
-The following strings all have the same meaning as the first string in this
-example but have been shortened using symbols and other short-cuts:
-
-LEVEL 60 & $F A
-
-$L60 AND $FA
-
-$L60$FA
-
-60$FA
-
-but for reasons of clarity, the first string is preferred if space allows.
-
-<b>General Example #5</b>
-
-SEX F OR LEVEL 90
-
-This string specifies that the user must be of FEMALE gender OR have a level
-of 90 or higher. The following strings are functionally equivalent to the
-above:
-
-SEX F | LEVEL 90
-
-SEXF|LEVEL90
-
-$SF | $L90
-
-$SF|$L90
-
-<b>General Example #6</b>
-
-USER NOT EQUAL TO 20
-
-This string specifies that user #20 will not meet the requirement.
-
-Shortened using symbols:
-
-$U!=20
-
-<b>General Example #7</b>
-
-BPS 9600 OR NOT TIME 19:00
-
-This string specifies that the user must be connected at 9600bps or higher,
-OR the time of day must be before 7pm. The value for the TIME parameter
-is in the format 24 hour format of HH:MM. If the specified time is on an even
-hour, then ":00" portion may be omitted:
-
-BPS 9600 OR NOT TIME 19
-
-has the same meaning.
-
-You may also omit the "00" from the BPS value to shorten the string:
-
-BPS 96 OR NOT TIME 19
-
-Shortened versions:
-
-$B 9600 OR NOT $T19
-
-BPS9600|!TIME19
-
-$B96|!$T19
-
-<b>General Example #8</b>
-
-BPS 9600 OR TIME NOT 18:00 OR TIME 21:30
-
-This string specifies that the user must be connected at 9600bps or higher,
-OR the time of day must be before 6pm, OR the time of day must be after
-9:30pm.
-
-When specifying multiple parameters of the same type consecutively (in this
-example, two of the required parameters are "TIME"), the parameter does
-not need to be restated. For example, the string:
-
-BPS 9600 OR TIME NOT 18:00 OR 21:30
-
-has the same meaning as the first string in this example.
-
-Shortened versions:
-
-$B 9600 OR NOT $T 18 OR 21:30
-
-$B96|$T!18|21:30
-
-<b>General Example #9</b>
-
-FLAG A OR FLAG B OR FLAG C OR LEVEL 90
-
-The above string specifies that a user must have flag A, flag B, flag C, (all
-from flag set #1) or a level of 90 or higher to meet the requirement. Using the
-"sticky" parameter type feature of AR Strings, we can shorten the line:
-
-FLAG A OR B OR C OR LEVEL 90
-
-Utilitizing symbols, we can shorten it even further:
-
-FLAG A|B|C OR LEVEL 90
-
-Taking it to extremes:
-
-$FA|B|C|$L90
-
-<b>General Example #10</b>
-
-USER EQUALS 145 OR LEVEL 90
-
-This string indicates that user number 145 will meet the requirement and all
-users with level 90 and higher (sysops).
-
-Best shortened as:
-
-USER=145 OR LEVEL 90
-
-For ultimate compression:
-
-$U=145|$L90
-
-<b>General Example #11
-</b>
-LEVEL 60 AND FLAG X AND FLAG Y AND FLAG Z
-
-Compressed examples:
-
-LEVEL 60 AND FLAG X AND Y AND Z
-
-LEVEL 60 AND FLAG X Y Z
-
-LEVEL 60 FLAG XYZ
-
-LEVEL60 FLAGXYZ
-
-$L60 $FXYZ
-
-60$FXYZ
-
-<b>General Example #12
-</b>
-FLAG 2A OR FLAG 2B OR FLAG 4Z
-
-This string specifies that the user must have either flag 'A or 'B' from flag
-set #2, or flag 'Z' from flag set #4. Using the "sticky" parameter type
-feature, this could be shortened to:
-
-FLAG 2A OR B OR FLAG 4Z
-
-If the flag set is not #1, you MUST specify the flag set number when using
-the FLAG keyword.
-
-Example:
-
-FLAG 2A OR FLAG B OR FLAG 4Z
-
-is NOT the same as the first two strings in this example. The second flag (B)
-would be considered as from flag set #1, since a flag set number was not
-specified.
-
-Correct and shortened version:
-
-FLAG2A|B OR FLAG4Z
-
-$F2A|B|$F4Z
-
-Note: Multiple flag sets were developed for advanced sysops who found that
- the 26 flag limitation (A-Z) was insufficient and requested additional
- flag capabilities. Most sysops will probably not find it necessary to
- use more than 26 flags, and therefore have no need for flag sets 2
- through 4.
-
-<b>General Example #13</b>
-
-NOT FLAG 2G
-
-This string specifies that the user most not have flag 'G' from flag set #2.
-The NOT keyword can appear in several places in this string while keeping
-the exact same meaning:
-
-FLAG NOT 2G
-
-FLAG 2 NOT G
-
-Condensed versions:
-
-!$F2G
-
-$F!2G
-
-$F2!G</pre>
-<h2><a name="NestingExpressions">[7.4] - Nesting Expressions</a></h2>
-<pre>All of the above string examples have been single expressions that evaluate to
-either true of false. Sometimes, you may wish to require access to an area
-using "nested" logic.
-
-Example: If the user is level 90+, OR the user has the A flag, AND is 21+
- years of age or older.
-
-The above example could be read two ways.
-
-1: The user must have level 90+, and either the A FLAG or be 21+ years old.
-
-2: The user must be 21+ years old and have either the A FLAG or level 90+.
-
-To clarify which of the above methods were intended, we use parentheses to
-separate the two true/false expressions.
-
-1: LEVEL 90 OR (FLAG A AND AGE 21)
-
-2: (LEVEL 90 OR FLAG A) AND AGE 21
-
-Strings 1 and 2 are interpreted differently and correlate to the above two
-English logic statements.
-
-Whenever using a combination of AND and OR logic, nested expressions are
-required. The following string:
-
-LEVEL 90 OR FLAG A AND AGE 21
-
-is INVALID and would most likely NOT produce the desired results.
-
-Expressions may be nested, using parenthesis, as deep as is required.
-
-Example:
-
-((LEVEL 80 OR FLAG S) AND AGE 18) OR LEVEL 90
-
-is a VALID string that would evaluate with the following:
-
-User with level of 80 and age 17 would not qualify
-User with level of 80, flag S and age 17 would not qualify
-User with level of 80 and age 18 would qualify
-User with flag S and age 18 would qualify
-Any user with level 90+ would qualify regardless of age or flags</pre>
-<h2><a name="NestedLogicExamples">[7.5] - ARS Nested Logic Examples</a></h2>
-<pre><b>Nested Example #1
-</b>
-BPS 9600 OR (BPS 2400 AND TIME NOT 15:00)
-
-User must be connected at 9600bps or higher, OR be connected at 2400bps or
-higher and the time of day being before 3pm. 9600bps and higher callers would
-always meet this requirement. 2400-7200bps callers will only meet this
-requirement between 12:00 midnight and 3pm in the afternoon. 1200bps and slower
-callers would never meet this requirement.
-
-Note, that when nesting expressions, the parameter type DOES NOT stick from
-one expression to another. Example:
-
-BPS 9600 OR (2400 AND TIME NOT 15:00)
-
-Is an INVALID string. The 2400 would be interpreted as a LEVEL requirement
-since it is as the beginning of a new expression and LEVEL is the default
-parameter type.
-
-The first (correct) string in this example, can of course also be shortened
-using symbols (and eliminating the AND key word):
-
-$B9600|($B2400$T!15)
-
-<b>Nested Example #2</b>
-
-(SEX M AND AGE 21) OR (SEX F AND AGE 18)
-
-This string specifies that only male users of 21 years and older and female
-users of 18 and older will meet the requirement.
-
-Shortened Example:
-
-($SM$A21)|($SF$A18)
-
-The logic of the above string is more verbose than necessary and could be
-reduced to:
-
-AGE 21 OR (SEX F AND AGE 18)
-
-producing the same results.
-
-<b>Nested Example #3<u>
-</u></b>
-(BPS 2400 AND PCR 20) OR LEVEL 90
-
-This string would indicate that users of any level will have access if they
-are connected at 2400bps and have a Post/Call ratio of 20% or higher - OR
-the users has as least level 90 (sysop).
-
-Utilizing the default parameter type of level, the LEVEL key word can be
-omitted:
-
-(BPS 2400 AND PCR 20) OR 90
-
-to create a functionally equivalent, though more confusing, AR string.
-
-A better way to shorten the string would be to eliminate the AND keyword
-and use symbols:
-
-($B 2400 $P 20) | $L 90
-
-Eliminating the spaces creates an even more compact string:
-
-($B2400$P20)|$L90
-
-<b>Nested Example #4<u>
-</u></b>
-NOT (USER=1 OR USER=20)
-
-All users will meet this requirement accept user #1 and user #20.
-
-The above string could also be stated in a non-nested format with the same
-results:
-
-NOT USER=1 AND NOT USER=20
-
-though the meaning is not quite as clear, they are functionally the same.
-
-Note: The second method requires 2 bytes less in raw logic storage because it
- is not nested and will be interpreted slightly faster (by a matter of
- microseconds). Just in case you were wondering...
-
-<b>Nested Example #5<u>
-</u></b>
-LEVEL 90 OR (TIME 12:00 AND TIME NOT 18:00)
-
-Users with level 90 or higher will always meet this requirement. Users with
-levels below 90 will only meet this requirement between 12 noon and 6pm.
-
-Re-arranged:
-
-(TIME 12:00 AND TIME NOT 18:00) OR LEVEL 90
-
-the string has exactly the same meaning. Eliminating the unnecessary occurrence
-of the second "TIME" parameter shortens the string while keeping it easily
-readable:
-
-(TIME 12:00 AND NOT 18:00) OR LEVEL 90
-
-Maximum compression:
-
-($T12!18)|90</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/smb.html b/docs/smb.html
deleted file mode 100644
index c53c6eded3de33d4045061a21f9ca4057355b780..0000000000000000000000000000000000000000
--- a/docs/smb.html
+++ /dev/null
@@ -1,2946 +0,0 @@
-
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Synchronet Message Base Specification</title>
-</head>
-
-<body>
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<h1><a name="top">Synchronet Message Base Specification</a>
-<i>Version 1.21</i></h1>
-<h4><a name="toc"><b>Table of Contents</b></a></h4>
-<div align="left">
- <pre><a href="#Introduction">Introduction</a>
-<a href="#Implementation Levels">Implementation Levels</a>
-<a href="#Definitions">Definitions</a>
- <a href="#Acronyms:">Acronyms</a>
- <a href="#Data types">Data Types</a>
-<a href="#File Formats">File Formats</a>
- <a href="#Index File (*.SID)">Index</a> (*.SID)
- <a href="#Header File (*.SHD)">Header</a> (*.SHD)
- <a href="#Message Header Block Allocation (*.SHA)">Header Allocation</a> (*.SHA)
- <a href="#Message Data (*.SDT)">Data</a> (*.SDT)
- <a href="#Message Data Block Allocation (*.SDA)">Data Allocation</a> (*.SDA)
- <a href="#CRC history for duplicate message checking (*.SCH)">CRC History</a> (*.SCH)
-<a href="#Header Field Types:">Header Field Types</a>
-<a href="#Data Field Types:">Data Field Types</a>
-<a href="#Message Attributes:">Messsage Attributes</a>
-<a href="#Translation Types:">Translation Types</a>
-<a href="#Agent Types:">Agent Types</a>
-<a href="#Network Types:">Network Types</a>
-<a href="#Media Types:">Media Types</a>
-<a href="#Message Storage Pseudo Code">Message Storage Pseudo Code</a>
-<a href="#Message Retrieval Pseudo Code">Message Retrieval Pseudo Code</a>
-<a href="#SMBUTIL">SMBUTIL</a>
-<a href="#CHKSMB">CHKSMB</a>
-<a href="#FIXSMB">FIXSMB</a>
-<a href="#SMBLIB">SMBLIB (C library)</a>
- <a href="#SMBDEFS.H">Data Types and Constants</a> (SMBDEFS.H)
- <a href="#SMBVARS.C">Global Variables</a> (SMBVARS.C)
- <a href="#SMBLIB.H">Function Prototypes</a> (SMBLIB.H)
- <a href="#SMBLIB.C">Library Functions</a> (SMBLIB.C)
- <a href="#Miscellaneous SMBLIB Files">Miscellaneous</a> (CRC*.* and LZH.*)
-<a href="#SMBLIB Storage Example">SMBLIB Storage Example</a>
-<a href="#SMBLIB Retrieval Example">SMBLIB Retrieval Example</a>
-<a href="#SMBLIB Performance Issues">SMBLIB Performance Issues</a>
-<a href="#Bibliography">Bibliography</a></pre>
-</div>
-<h2><u><a name="Introduction">Introduction</a></u></h2>
-<pre><b><i>Q. What is SMB?</i></b></pre>
-<pre>A. SMB (Synchronet Message Base) is a technical specification for the storage
- format of electronic mail messages. These e-mail messages may all be
- contained in one database, or, more commonly, separated into categorized
- databases. These message databases (or message bases) are also referred to
- as "sub-boards", "forums", "conferences", and "SIGs". The messages may be
- directed to an individual person, sent to a group of individuals, or sent
- to everyone who can read messages in that message base. Messages may be
- created and read solely at one physical location, or imported from and
- exported to a message network that may span continents. Message bases that
- are connected to a message network are often called "echoes".
-</pre>
-<pre><b><i>Q. Why SMB?</i></b></pre>
-<pre>A. The Synchronet Message Base is designed to store high volumes of messages
- while maintaining optimum search, retrieval, and creation performance.
- These messages are not limited to mere text. In addition to text, SMB
- defines the storage of digitized sound, MIDI, graphics, fonts, animation,
- as well as other multimedia data and triggers for localized multimedia.
- SMB thrives on a multi-user environment where messages are being created,
- read, modified, and deleted by multiple tasks simultaneously. With the
- large message networks of today being the rule, rather than the exception,
- and high volumes of messages being imported on a daily, sometimes hourly
- basis, creation and deletion speed is of the utmost importance. This is
- where SMB really shines. Being extensible enough to handle message formats
- from networks of today and tomorrow, and fast enough to import more messages
- that humanly readable, the SMB format will more than meet your message
- storage needs.
-</pre>
-<pre><b><i>Q. Why a specification?</i></b></pre>
-<pre>A. Message bases are often accessed and modified by a number of different
- programs. Often these programs are developed by individuals or companies
- other than the original designer of the message base format. This
- specification is an attempt to aid developers in creating programs that
- access or modify a message base stored in the SMB format.
-</pre>
-<pre><b><i>Q. Who can use this specification?</i></b></pre>
-<pre>A. Anyone that has interest in the Synchronet Message Base format at either
- an educational or professional level. Specifically, software developers
- interested or currently involved in the development of message readers,
- editors, echomail (toss/scan) programs, message transfer agents (MTAs),
- network gateways, and bulletin board systems. Much of the information in
- this specification is intended for those with preexisting programming
- knowledge, so those with little or no programming experience may find it
- hard to comprehend.</pre>
-<pre><b><i>Q. What does the SMB specification include?</i></b></pre>
-<pre>A. The text you are reading is part of the SMB specification: a single text
- document that defines the storage format of each of the six files of an
- SMB format message base and how they are related to each other.</pre>
-<pre> Included with this specification is C source code to be used as an example
- to programmers of how to access an SMB format message base and public domain
- library functions (SMBLIB) that can be compiled and linked into programs
- that access an SMB format message base developed by third parties. An SMB
- utility program (SMBUTIL) is also included with C source code as an example
- of how to use the SMBLIB functions.
-</pre>
-<pre><b><i>Q. Where did the SMB specification come from?</i></b></pre>
-<pre>A. Digital Dynamics (southern California based software development company)
- released "Synchronet Multinode BBS Software Version 1a" in June of 1992 as
- one of the first BBS packages to be designed from the ground-up to operate
- in a multi-node environment with incredible speed and reliability, with a
- large suite of multi-node specific features and design innovations.</pre>
-<pre> The original message base format was designed with localized messaging and
- low volume message networks in mind. By January of 1993, it was clear that
- high volume message networks (FidoNet, RelayNet, Usenet, etc.) were the
- preference of most BBS users and a new message base format was required to
- allow for high volume message storage, improved storage, retrieval, and
- maintenance performance, as well as lower storage space requirements.</pre>
-<pre> Rather than introduce another new message format, Digital Dynamics sought
- to implement an existing public specification for a format that would meet
- current and future message storage needs. More than a few specifications
- were seriously considered at one time or another, but after careful
- examination, design flaws and lack of extensibility eliminated them from the
- long term plans of Digital Dynamics and Synchronet BBS Software. Thus began
- the design of the "Synchronet Message Base" (SMB) format.</pre>
-<pre> At the request of many message related program developers, Digital Dynamics
- created and released the SMB specification before the release of "Synchronet
- Version 2.00" to allow lead-time on developing support programs for the new
- format.</pre>
-<pre> Digital Dynamics strongly encourages developers of message related programs
- (including software that directly competes with Synchronet or other Digital
- Dynamics products) to implement support for SMB. Though this is a public
- specification and Digital Dynamics encourages developer suggestions, it will
- remain under the sole control of Digital Dynamics unless specifically stated
- otherwise in a future revision of this specification.</pre>
-<pre> Digital Dynamics requests that any organizations that wish to adopt or
- ratify this specification, in part or whole, notify Digital Dynamics through
- any of the contact methods listed at the beginning of this document.</pre>
-<pre><b><i>Q. How does SMB store messages?</i></b></pre>
-<pre>A. Each message base is stored in a set of binary files. This set consists
- of between three and six files depending the storage method used. The base
- filename (maximum of eight characters under DOS) is the same for all six
- files of the same message base and unique among the filenames of other
- message bases in the same directory. The six files each have a different
- three character extension. The first character of the extension is always
- the letter 'S' (for SMB), while the second and third characters define the
- contents of the file.</pre>
-<pre> Two of the six files associated with each message base are not re-creatable
- and therefore are the most important when considering data integrity. These
- two files are the data file (with a .SDT extension) and header file (.SHD
- extension). Both of these files use 256 byte blocks and have associated
- block allocation tables (stored in .SDA and .SHA respectively) so that
- deleted message blocks may be used by new messages without creating odd
- sized unused 'holes' in the files. The block allocation table files (.SDA
- and .SHA) can be recreated with the information stored in the header (.SHD)
- file. When using Hyper Allocation storage method, the allocation files (.SDA
- and .SHA) are not used.</pre>
-<pre> For fast indexing, there is a small fixed length index file (with a .SID
- extension). This file allows for the immediate location of message header
- records based on sender's name or user number, recipient's name or user
- number, subject, message number, or message attributes. This file can be
- recreated with the data stored in the header (.SHD) file.</pre>
-<pre> The last file is an optional CRC history (.SCH) file. It contains 32-bit
- CRCs of a configurable number of messages imported or created locally. This
- is to help eliminate duplicate messages created by user or program error.
- The CRC history file can be recreated with the combination of information
- stored in the data (.SDT) and header (.SHD) files.
-
-<b><i>Q. How fast do messages import into an SMB message base?</i></b></pre>
-<pre>A. This is a very important question for systems for that import large volumes
- of messages. Of course, the answer depends on the storage format which you
- are importing from, the average length of messages, the design of the
- program which is performing the import process, as well as the hardware and
- system software being used. What's important is that SMB will allow the
- fastest import process possible with any given combination of the above
- factors.</pre>
-<pre> Since system storage capacity is rarely infinite, neither is the number
- of messages which can be stored in a message base. System operators must
- define the maximum number of messages to be stored in a message base, the
- maximum age of the messages in that message base, or a combination of both.
- When using the Self-packing storage method (defined later in this document),
- the smaller the number of messages stored in a message base, the faster the
- import process. The SMB format is flexible enough to support multiple levels
- of import performance based on optimizations for storage space or speed.
- Most system operators will almost invariably choose speed over space, but
- which choices are available is determined by the importing program. This
- specification defines three storage methods, from slowest to fastest:
- Self-packing, Fast Allocation, and Hyper Allocation. Other options defined
- in this specification may affect storage performance, including duplicate
- message checking and message compression/encryption.
-</pre>
-<pre><b><i>Q. How much storage is required for an SMB message base?</i></b></pre>
-<pre>A. The biggest factor in determining storage requirements for a message base
- is the maximum number of messages to be stored in the base (defined by the
- system operator) and the average size of each message. The minimum required
- storage for a message base is 32 bytes plus 532 bytes per message (plus four
- bytes per message if duplicate message checking is used and three bytes
- per message if Self-packing or Fast Allocation storage methods are used).</pre>
-<pre> The SMB format was originally designed to be "self-packing", meaning purged
- (deleted) message header and data blocks will be used automatically by new
- messages. Relying solely on self-packing, an SMB format message base will
- never "shrink" in size. This is not to say that it will continually "grow"
- in size, but that without specific packing procedures, deleted message
- blocks may remain unused for extended periods of time, meanwhile using some
- amount of storage space that could be recovered using specific packing
- procedures. The Fast Allocation and Hyper Allocation storage methods do not
- use deleted message blocks for new messages so specific packing procedures
- must be used if any messages are deleted and that storage space is to ever
- be recovered.</pre>
-<pre> Limiting the maximum age of messages in an SMB message base is another way
- to control the storage requirements. While maximum message age definition is
- optional, the definition of the maximum number of messages is not.
-
-<b><i>Q. How many messages can be stored per SMB message base?</i></b></pre>
-<pre>A. Without considering storage limitations or message data lengths greater than
- 256, the theoretical maximum number of messages that can be stored in a
- single SMB message base is 16.7 million. Considering the variable length
- nature of message and header data, it is suggested that the system operator
- allow no more than 1 million messages per base.</pre>
-<pre> To determine an estimated maximum number of messages for a message base
- using the average message data length as a factor, use the following
- formula:</pre>
-<pre> 4.2 billion divided by the average message length rounded up to be evenly
- divisible by 256.</pre>
-<pre> If the average message data length is 1500 bytes, the estimated maximum
- number of messages would be 2,734,375 (4.2 billion divided by 1536).</pre>
-<pre> Implementations of this format may be further limited by available system
- memory.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Implementation Levels">Implementation Levels</a></u></h2>
-<pre>The SMB format can be implemented to varying degrees between programs without
-creating compatibility issues. Rather than have developers specifically state
-which features they have and have not implemented, we have defined seven levels
-of implementation (represented by Roman numerals I through VII). For a program
-or software package to meet an implementation level, it must have all of the
-features listed for that level and all of those for each level below it. The
-minimum suggested implementation is level I. The SMBUTIL program included with
-this specification is an example of a level I implementation with features
-from some of the higher implementation levels.</pre>
-<pre><b><u>Level I</u></b>
-
-The minimum suggested level of implementation. Messages contain merely ASCII
-text displayable on an ANSI terminal. Messages can be added to the message
-base and if the maximum number of messages is exceeded, messages are removed
-or marked for deletion.</pre>
-<pre><b><u>Level II</u></b>
-
-The addition of file attachments, multiple index/header entries per message
-(multiple destinations), multiple text bodies for the separation of message
-text and tag/origin lines (for example), forwarding, threading, and specific
-FidoNet kludge header field support makes this level of implementation more
-realistic for bulletin board system and EchoMail software implementation.</pre>
-<pre>Synchronet Multinode BBS Software v2.00 has a level II implementation of this
-specification.</pre>
-<pre><b><u>Level III</u></b>
-
-This implementation adds support for translation strings defined later in this
-document for data compression, encryption, escaping, and encoding. This level
-is still limited to basic ASCII text and ANSI escape sequence entry and
-retrieval.</pre>
-<pre>Synchronet Multinode BBS Software v2.10 has a level III implementation of this
-specification.</pre>
-<pre><b><u>Level IV</u></b>
-
-The storage and retrieval of embedded and attached images is added in this
-level of implementation. Supported images are limited to single binary or text
-data blocks that can be displayed or transferred to the user (automatically,
-or by request) if their display and translation protocols define specific
-support for the image type.
-
-<b><u>Level V</u></b>
-
-This level of implementation adds support for embedded and attached sound data.
-This includes digitized sound and MIDI data. Supported sounds are limited to
-single binary or text data blocks that can be played or transferred to the user
-(automatically or by request) if their presentation and translation protocols
-define specific support for the sound type.</pre>
-<pre><b><u>Level VI
-</u></b>
-Localized sound and image data can be triggered by messages stored and
-retrieved in an implementation of this level.</pre>
-<pre><b><u>Level VII</u></b>
-
-Complete multimedia support is reached in this implementation level with
-support for embedded and attached animation, sound, and video data.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Definitions">Definitions</a></u></h2>
-<pre><u><b>Control Characters</b></u></pre>
-<pre>When specifying control characters (ASCII 1 through 31), the caret symbol "^"
-or the abbreviation "ctrl-" followed by a character will be used to indicate the
-value. ^A is equivalent to ASCII 1, ^B ASCII 2, etc. The case of the control
-character is not significant (i.e. ^z and ^Z are equivalent). The control
-character ^@ (ASCII 0) will be specified as NULL or 0.
-</pre>
-<pre><b><u>Hexadecimal</u></b>
-
-Base sixteen numbering system which includes the digits 0-9 and A-F.
-Hexadecimal numbers are represented in this document with a prefix of "0x" or
-"\x" or a suffix of "h". Hexadecimal letter digits are not case sensitive
-(i.e. the number 0xff is the same as 0xFF).
-</pre>
-<pre><b><u>File dump</u></b>
-
-When example file dumps are displayed, the format is similar to that of the
-output from the DOS DEBUG program. With the exception of the ASCII characters,
-all numbers are in hexadecimal.</pre>
-<pre>Offset Byte values ASCII characters</pre>
-<pre>000000 53 4D 42 1A 10 01 20 00 F4 01 00 00 F4 01 00 00 SMB... .........
-000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...............
-</pre>
-<pre><b><u>Bit values</u></b>
-
-Bit (or flag) values are represented in C notation as (1<<x) where x is the bit
-number. (i.e. bit number 7 (1<<7) is the same as 0x80).
-</pre>
-<pre><b><u>Word storage</u></b>
-
-All words (16-bit) and double words (32-bit) are stored in Intel 80x86 (little
-endian) format with bytes stored from low to high (reverse of the Motorola
-680x0 word storage format).</pre>
-<pre>A 16-bit word with the value 1234h is stored as 34h 12h.
-
-<b><u>Translation strings</u></b>
-
-Translation strings (xlat variables) are arrays of words (16-bit) in the order
-of the original storage translation. The last translation type is followed by a
-16-bit zero (defined later as XLAT_NONE). If there are no translations, then
-the first and only element of the array is XLAT_NONE.</pre>
-<pre>If multiple translations are used, the translation order must be reversed
-upon retrieval to obtain the proper data.
-</pre>
-<pre><b><u>Local e-mail</u></b>
-
-When referring to the local e-mail message base of a Synchronet BBS, we are
-referring specifically to the message base with the name "MAIL" stored in the
-"DATA" directory (e.g. \SBBS\DATA\MAIL).</pre>
-<pre>Messages stored in this message base are different in the following respects:</pre>
-<ul>
- <li>
-<pre>The SMB_EMAIL status header attribute is set ON</pre>
- </li>
- <li>
-<pre>Hyper Allocation storage method is not supported</pre>
- </li>
- <li>
-<pre>The "To" and and "From" fields of the message indexes do NOT contain CRCs</pre>
- </li>
-</ul>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Acronyms:">Acronyms:</a></u></h3>
-<pre>ANSI American National Standards Institute
-ASCII American Standard Code for Information Interchange
-BBS Bulletin Board System
-C The C programming language as defined by ANSI X3.159-1989
-CR Carriage Return character (ASCII 13)
-CRC Cyclic Redundancy Check
-CRC-16 Standard 16-bit CRC using 1021h polynomial (seed 0)
-CRC-32 Standard 32-bit CRC using EDB88320h polynomial (seed -1)
-CRLF Carriage Return character followed by a Line Feed character
-FSC FidoNet Standards Committee (FTS proposal)
-FTN FidoNet Technology Network
-FTS FidoNet Technical Standard
-LF Line Feed character (ASCII 10)
-QWK Compressed message packet format for message reading/networking
-RFC Request for Comments
-SMB Synchronet Message Base
-UT Universal Time (formerly called "Greenwhich Mean Time")</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Data types">Data types</a></u></h3>
-<pre>uchar Unsigned 8-bit value (0 through 255).
- C example:</pre>
-<pre> #define uchar unsigned char
-</pre>
-<pre>short Signed 16-bit value (-32768 through 32767).
- "short" is a C keyword indicating "short int".
-</pre>
-<pre>ushort Unsigned 16-bit value (0 through 65535).
- C example:</pre>
-<pre> #define ushort unsigned short
-</pre>
-<pre>ulong Unsigned 32-bit value (0 through 4294967295).
- C example:</pre>
-<pre> #define ulong unsigned long
-</pre>
-<pre>time_t Unsigned 32-bit value.
- Seconds since 00:00 Jan 01 1970 (Unix format).
- Used for all time/date storage in SMB as part of the when_t
- data type. This time format will support dates through the year
- 2105.
- time_t is defined by ANSI C as a long (signed) which can
- limit its date support to the year 2038 depending on the
- library routines used.
-</pre>
-<pre>ASCII String (aka character array) of 8-bit ASCII characters.
- Characters with the bit 7 set (80h through FFh) represent
- the IBM PC extended ASCII character set. When data or header
- fields of this type are stored in the header, a NULL
- terminator may or may not be present.
- C example:</pre>
-<pre> uchar str[80];
-</pre>
-<pre>ASCIIZ ASCII string with (non-optional) NULL terminator.
- C example:</pre>
-<pre> uchar str[81];
-
-nulstr ASCII string immediately terminated by NULL.
- C example:</pre>
-<pre> uchar *nulstr="";
-</pre>
-<pre>undef Data buffer with undefined contents.
- C example:</pre>
-<pre> uchar buf[BUF_LEN];</pre>
-<pre>when_t Date/Time stamp including time-zone adjustment information.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> time_t time; // Time stamp (in local time)
- short zone; // Zone constant or Minutes (+/-) from UT</pre>
-<pre> } when_t;</pre>
-<pre> time:</pre>
-<pre> A time value of 0 is invalid and indicates an un-initialized
- time stamp.</pre>
-<pre> Time stamps are always stored in universal time. i.e.
- Regardless of what the local time zone is, Jan 1st 1994 00:00
- will always be stored as 2D24BD00h.</pre>
-<pre> zone:</pre>
-<pre> If the zone is in the range -720 to +720, it represents the
- number of minutes east or west of UT. Values in this range
- should only be used for time zones not otherwise represented
- here.</pre>
-<pre> If the zone is greater than 720 or less than -720, then the
- following bits have special meaning:</pre>
-<pre> (1<<12) // Non-US time zone (east of UT)
- (1<<13) // Non-US time zone (west of UT)
- (1<<14) // U.S. time zone
- (1<<15) // Daylight savings</pre>
-<pre> The lower 12 bits (0 through 11) contain the number of minutes
- east or west of UT (not accounting for daylight savings).
-
- If the time zone is one specified in the U.S. Uniform Time Act,
- the following values represent the zone:</pre>
-<pre> AST 0x40F0 // Atlantic (-04:00)
- EST 0x412C // Eastern (-05:00)
- CST 0x4168 // Central (-06:00)
- MST 0x41A4 // Mountain (-07:00)
- PST 0x41E0 // Pacific (-08:00)
- YST 0x421C // Yukon (-09:00)
- HST 0x4258 // Hawaii/Alaska (-10:00)
- BST 0x4294 // Bering (-11:00)</pre>
-<pre> With bit 15 set, the following values represent the same zone
- with the presence of daylight savings:</pre>
-<pre> ADT 0xC0F0 // Atlantic (-03:00)
- EDT 0xC12C // Eastern (-04:00)
- CDT 0xC168 // Central (-05:00)
- MDT 0xC1A4 // Mountain (-06:00)
- PDT 0xC1E0 // Pacific (-07:00)
- YDT 0xC21C // Yukon (-08:00)
- HDT 0xC258 // Hawaii/Alaska (-09:00)
- BDT 0xC294 // Bering (-10:00)</pre>
-<pre> The following non-standard time zone specifications may also be
- used:</pre>
-<pre> MID 0x2294 // Midway (-11:00)
- VAN 0x21E0 // Vancouver (-08:00)
- EDM 0x21A4 // Edmonton (-07:00)
- WIN 0x2168 // Winnipeg (-06:00)
- BOG 0x212C // Bogota (-05:00)
- CAR 0x20F0 // Caracas (-04:00)
- RIO 0x20B4 // Rio de Janeiro (-03:00)
- FER 0x2078 // Fernando de Noronha (-02:00)
- AZO 0x203C // Azores (-01:00)
- LON 0x1000 // London (+00:00)
- BER 0x103C // Berlin (+01:00)
- ATH 0x1078 // Athens (+02:00)
- MOS 0x10B4 // Moscow (+03:00)
- DUB 0x10F0 // Dubai (+04:00)
- KAB 0x110E // Kabul (+04:30)
- KAR 0x112C // Karachi (+05:00)
- BOM 0x114A // Bombay (+05:30)
- KAT 0x1159 // Kathmandu (+05:45)
- DHA 0x1168 // Dhaka (+06:00)
- BAN 0x11A4 // Bangkok (+07:00)
- HON 0x11E0 // Hong Kong (+08:00)
- TOK 0x121C // Tokyo (+09:00)
- SYD 0x1258 // Sydney (+10:00)
- NOU 0x1294 // Noumea (+11:00)
- WEL 0x12D0 // Wellington (+12:00)
-
-fidoaddr_t FidoNet address stored as four ushorts that represent the zone,
- network, node, and point (in that order).
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort zone,
- net,
- node,
- point;</pre>
-<pre> } fidoaddr_t;
-</pre>
-<pre>typestr_t ASCIIZ string with ushort type prefix.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort type; // Specifier for type of 'str'
- uchar str[]; // ASCIIZ filename or other string data</pre>
-<pre> } typestr_t;
-</pre>
-<pre>mattach_t File attachment information with type prefix, translation
- string, and filename.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort type; // Attachment type
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename</pre>
-<pre> } mattach_t;</pre>
-<pre>vattach_t Video file attachment information with type, compression,
- translation string, and filename.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort type; // Attachment type
- ushort comp; // Compression method
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename</pre>
-<pre> } vattach_t;
-
-mtext_t Message text with translation string prefix.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort xlat[]; // Translations of text
- uchar text[]; // Actual text data</pre>
-<pre> } mtext_t;
-</pre>
-<pre>ftext_t Formatted message text with translation string prefix and
- format type.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort type; // See Image Types for valid types
- ushort xlat[]; // Translations of data
- uchar data[]; // Actual formatted text data</pre>
-<pre> } ftext_t;
-</pre>
-<pre>membed_t Embedded data with type prefix, translation string, and ASCIIZ
- description.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort type; // Specifier for type of 'dat'
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar dat[]; // Binary data</pre>
-<pre> } membed_t;</pre>
-<pre>vembed_t Embedded video data with type, compression method, translation
- string, and ASCIIZ description.
- C example:</pre>
-<pre> typedef struct {</pre>
-<pre> ushort type; // Specifier for type of 'dat'
- ushort comp; // Compression method
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar dat[]; // Binary data</pre>
-<pre> } vembed_t;</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="File Formats">File Formats</a></u></h2>
-<h3><u><a name="Index File (*.SID)">Index File (*.SID)</a></u></h3>
-<pre>The index file for each message base contains one record per message in the
-base. Each record is fixed length using the following format:
-
-<b><u>Index Record:</u></b>
-
-<i>C example:</i>
-
-typedef struct {
-
- ushort to; // 16-bit CRC of recipient name (lower case) or user number
- ushort from; // 16-bit CRC of sender name (lower case) or user number
- ushort subj; // 16-bit CRC of title/subject (lower case)
- ushort attr; // attributes (MSG_PRIVATE, MSG_READ, etc. flags)
- ulong offset; // byte offset of message header in header file
- ulong number; // message serial number (1 based)
- time_t time; // import date/time stamp (Unix format)
-
- } idxrec_t;
-</pre>
-<pre><b><font SIZE="2">Example file dump (16 messages starting with message number 15):</font></b></pre>
-<blockquote>
-<pre>000000 36 4F 13 07 2A 77 00 00 20 00 00 00 0F 00 00 00
-000010 BE 62 76 2C 36 4F 46 0A 7F B2 00 00 20 01 00 00
-000020 10 00 00 00 C7 29 78 2C 36 4F 70 6F 46 FF 00 00
-000030 20 02 00 00 11 00 00 00 AD D3 7A 2C 70 6F 13 07
-000040 46 FF 00 00 20 03 00 00 12 00 00 00 D6 F8 7F 2C
-000050 36 4F E1 EA E7 E9 00 00 20 04 00 00 13 00 00 00
-000060 1E 7B 85 2C 37 0D 2E DF 4D 79 00 00 20 05 00 00
-000070 14 00 00 00 5C E1 A1 2C 90 54 2D 5A 86 62 00 00
-000080 20 06 00 00 15 00 00 00 39 2E A2 2C 70 6F 1A 8B
-000090 46 FF 00 00 20 07 00 00 16 00 00 00 D0 7B A8 2C
-0000A0 2E DF 1A 8B 4D 79 00 00 20 08 00 00 17 00 00 00
-0000B0 FF 7B A8 2C B4 D9 35 7C 23 B1 00 00 20 09 00 00
-0000C0 18 00 00 00 CE D4 BA 2C 36 4F BC D8 B2 E7 00 00
-0000D0 20 0A 00 00 19 00 00 00 14 5F C3 2C BA A8 4E B0
-0000E0 67 76 00 00 20 0B 00 00 1A 00 00 00 6F 89 C3 2C
-0000F0 36 4F 0C 01 19 9C 00 00 20 0C 00 00 1B 00 00 00
-000100 F8 30 C6 2C 36 4F FA 48 0E 55 00 00 20 0D 00 00
-000110 1C 00 00 00 6A 94 D3 2C 36 4F F1 CE CF A2 00 00
-000120 20 0E 00 00 1D 00 00 00 53 DB D5 2C 8D A6 21 CE
-000130 F7 AB 00 00 20 0F 00 00 1E 00 00 00 31 29 DC 2C</pre>
-</blockquote>
-<pre><b><u>Field descriptions:</u></b></pre>
-<pre><b>To:</b>
-The 'To' field is the CRC-16 of the name of the intended recipient agent of
-this message or the intended recipient's user number. If the CRC is stored, the
-text must be converted to lower case (A-Z changed to a-z) before the CRC is
-calculated. If the message is forwarded to another agent, the original or new
-index record must be changed to contain the CRC-16 of the new recipient name or
-user number. This field must always contain the recipient user number for local
-e-mail on a Synchronet BBS. Outbound netmail stored in the Synchronet local
-e-mail message base will contain 0 in this field.</pre>
-<pre><b>From:</b>
-This field, similar to the 'To' field, contains the CRC-16 of the name of the
-sending agent of this message or the sender's user number. If the CRC is
-stored, the text must be converted to lower case (A-Z changed to a-z) before
-the CRC is calculated. If the message is forwarded to another agent, the
-original or new index record must be changed to contain the CRC-16 of the new
-sender name or user number. If the message was imported into the local e-mail
-message base on a Synchronet BBS via netmail, this field will contain 0.</pre>
-<pre><b>Subj:</b>
-The 'Subj' field contains the CRC-16 of the message's subject. The subject
-must be converted to lower case (A-Z changed to a-z) and all preceding
-"re: "'s and "re:"'s removed before calculating the CRC-16.</pre>
-<pre><b>Attr:</b>
-This ushort is a bit field of the specific attributes for this message.
-It is a clone of the 'attr' element of the msghdr_t structure.</pre>
-<pre><b>Offset:</b>
-This ulong is the offset (in bytes) in the header file for this message's
-header record.</pre>
-<pre><b>Number:</b>
-This ulong is the serial number of this message. Valid values are 1 through
-0xffffffff. No two index records in the same message base may have the same
-message number. All index records must have sequential, but not necessarily
-consecutive, message numbers.</pre>
-<pre><b>Time:</b>
-This field is the date/time stamp the message was imported to or posted in
-the message base. It is a clone of the 'when_imported.time' element of the
-msghdr_t structure.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Header File (*.SHD)">Header File (*.SHD)</a></u></h3>
-<pre>Each SMB header file is made up of two distinct sections: base header records
-and message header records (usually the bulk of the file).</pre>
-<pre><b><u>Base Header Records:</u></b>
-
-Base header records are blocks of data that apply to the entire message base
-and are of variable length. This specification defines only one base header
-record, the "Status info" (smbstatus_t) record. This status info record must be
-the first base header record in the file (offset 0) and must be modified if
-additional base header records are added.</pre>
-<pre>Additional header records allow other developers to store configuration and
-status information particular to their application needs. It also allows for
-future header record definitions as part of this specification without causing
-backward compatibility issues.</pre>
-<pre>Each base header record contains a fixed length portion (smbhdr_t) and an
-optional variable length portion.</pre>
-<pre>Whenever a base header record is read or updated (written), it must first
-be successfully locked and subsequently unlocked (using the file system record
-locking facilities).</pre>
-<pre>The first base header record (Status Info) is used as a semaphore when writing
-to the message index (.SID) file and, when using the Hyper Allocation storage
-method, writing to the message data (.SDT) file. This record must be
-successfully locked before writing and subsequently unlocked. This is to insure
-that multiple applications simultaneously writing to the same message base
-does not result in corrupted data.
-</pre>
-<pre><b><u>Message Header Records:</u></b>
-
-Following the last base header record is the first message header record. Each
-header record is stored in one or more 256 byte blocks. There must be exactly
-one active message header record for every index record in the index file.
-(Note: This does not include deleted message headers that have not been
-overwritten by a new message header).</pre>
-<pre>Each message header record contains a fixed length portion (msghdr_t), a list
-of zero or more fixed length data fields (dfield_t), and a list of three or
-more variable length header fields (hfield_t).</pre>
-<pre>The value of the data stored in the zero or more unused bytes of the last
-header record block have an undefined value, though whenever possible
-developers should initialize to binary zero for human readability.</pre>
-<pre>Whenever a message header record is read or updated (written), it must first
-be successfully locked and subsequently unlocked.
-
-
-<b><u>Base Header Record (Fixed Portion):</u></b>
-
-<i>C example:</i></pre>
-<pre>typedef struct {</pre>
-<pre> uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct</pre>
-<pre> } smbhdr_t;
-</pre>
-<pre><b><u>Base Header Record Field Descriptions:</u></b>
-
-<b>Id:</b>
-This is a four byte unique ID identifying the type of the base header record.
-The bytes may contain any value, but printable ASCII characters are preferred.
-The only ID defined in this specification is "SMB^Z" used by the Status Info
-base header record.</pre>
-<pre><b>Version:</b>
-This is a version number of the base header record type. Base header records
-of different versions may have different formats or contain different
-information. This is to aid the application in determining if the record
-is pertinent and if so, to what degree. The Status Info base header record
-uses this version field to define the version of the format for the entire
-message base (currently 0x121 for version 1.21).</pre>
-<pre><b>Length:</b>
-This is entire length in bytes of this header record (including both fixed
-and variable portions).
-</pre>
-<pre><b><u>Base Header #1 (Status info) Record (Variable Portion):</u></b>
-
-<i>C example:</i></pre>
-<pre>typedef struct {</pre>
-<pre> ulong last_msg; // last message number posted or imported
- ulong total_msgs; // total messages currently in message base
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of messages to keep in base
- ushort max_age; // Maximum age of messages (days) to keep in base
- ushort attr; // Attribute bits</pre>
-<pre> } smbstatus_t;
-
-<b><u>Base Header #1 (Status Info) Record (Variable Portion) Field Descriptions:</u></b></pre>
-<pre><b>Last_msg:</b>
-This is the serial number of the last message imported or posted into this
-message base. The index, header, and data records for this message may possibly
-not exist (due to deletion). This field is used for determining the message
-number to give to a new message being imported or posted into this message
-base. This field must be updated for every message added to the message base.</pre>
-<pre><b>Total_msgs:</b>
-This is the total number of active messages currently in the message base.
-This number should match the number of records in the index (.SID) file
-and active header records in the header (.SHD) file. This field must be
-updated whenever a message is added to or removed from the message base.</pre>
-<pre><b>Header_offset:</b>
-This is the byte offset to the first message header record. It is useful
-for skipping all the base header records and going directly to the first
-message header record.</pre>
-<pre><b>Max_crcs:</b>
-This is the maximum number of message CRCs to store in the CRC history (.SCH)
-file for duplicate message checking. If this field contains 0, then duplicate
-message checking is disabled.</pre>
-<pre><b>Max_msgs:</b>
-This is the preferred maximum number of messages to keep in this message
-base as specified by the system operator. It is used by maintenance programs
-that trim the message base down by removing old messages. This field should
-be ignored by applications importing or posting messages allowing them to
-exceed this maximum at will.</pre>
-<pre><b>Max_age:</b>
-This field is the maximum age (in days) of messages to keep in the message
-base. It is used by maintenance programs to purge out-dated messages from
-the message base.
-
-<b>Attr:</b>
-This is a bit field containing specific attributes (or flags) that may define
-the way messages are stored or retrieved from the this message base. The
-following attributes are defined:</pre>
-<pre> <b>SMB_EMAIL (1<<0)</b></pre>
-<pre> Indicates the message base is specifically for messages to or from local
- users. When this bit is set, the idxrec.to and idxrec.from fields will
- contain the user numbers (or 0 for non-user destination/source) instead of
- the CRC-16 of the agent name.</pre>
-<pre> <b>SMB_HYPERALLOC (1<<1)</b></pre>
-<pre> Indicates the message base uses the Hyper Allocation storage method. This
- bit should not be cleared by an application without first deleting all the
- messages in the message base. This is due to the fact the Hyper Allocation
- is not downward compatible with the Self-packing and Fast Allocation
- storage methods.</pre>
-<pre>When used with Synchronet BBS software, a message base must NOT have both of
-the above attributes set. The only message base that should have the SMB_EMAIL
-attribute set is the DATA\MAIL message base.
-
-<b><u>Base Header #1 (Status info) Record Contents:</u></b>
-
-smbhdr.id="SMB\x1a"; // SMB^Z
-smbhdr.version=0x121; // v1.21
-smbhdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t); smbstatus_t status;
-</pre>
-<pre><b><u>Additional Base Headers:</u></b>
-
-Additional headers from developers must have initial 8 bytes in smbhdr_t
-format, length must include size of smbhdr_t, and header_offset of smbstatus_t
-must be changed to include the size of the additional header(s).</pre>
-<pre><b>Example file dump (base header portion only):</b></pre>
-<blockquote>
-<pre>000000 53 4D 42 1A 20 01 20 00 F4 01 00 00 F4 01 00 00 SMB.............
-000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...............</pre>
-</blockquote>
-<pre><b><u>Message Header Record (Fixed portion):</u></b>
-
-<i>C example:</i></pre>
-<pre>typedef struct {</pre>
-<pre> uchar id[4]; // SHD^Z (same for all types and versions)
- ushort type; // Message type (this is the definition of type 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed portion + all fields
- ushort attr; // Attributes (bit field) (duplicated in SID)
- ulong auxattr; // Auxiliary attributes (bit field)
- ulong netattr; // Network attributes (bit field)
- when_t when_written; // Date/Time message was originally created
- when_t when_imported; // Date/Time message was imported (locally)
- ulong number; // Message number (unique, not necessarily seq.)
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // Number of first reply to this message
- uchar reserved[16]; // 16 reserved bytes for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields</pre>
-<pre> } msghdr_t;</pre>
-<pre>typedef struct {</pre>
-<pre> ushort type; // See "Data Field Types" values
- ulong offset; // Offset into buffer
- ulong length; // Length of data field in buffer</pre>
-<pre> } dfield_t;</pre>
-<pre>typedef struct {</pre>
-<pre> ushort type; // See "Header Field Types" for values
- ushort length; // Length of buffer
- uchar dat[length];</pre>
-<pre> } hfield_t;
-</pre>
-<pre><b>Example file dump (one header record, both fixed and variable length portions):</b></pre>
-<blockquote>
-<pre>000020 53 48 44 1A 00 00 20 01 F5 00 00 00 00 00 00 00 SHD... .........
-000030 00 00 00 00 46 DB F7 2C 00 00 7D D7 29 2D 00 00 .......,..}�)-..
-000040 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
-000050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
-000060 00 00 00 00 02 00 00 00 00 00 00 00 4A 01 00 00 ............J...
-000070 02 00 4A 01 00 00 53 00 00 00 00 00 13 00 4D 61 ..J...S.......Ma
-000080 72 69 61 6E 6E 65 20 4D 6F 6E 74 67 6F 6D 65 72 rianne Montgomer
-000090 79 30 00 0C 00 43 61 72 6F 6C 20 47 61 69 73 65 y0...Carol Gaise
-0000A0 72 60 00 07 00 46 61 72 6E 68 61 6D A4 00 14 00 r`...Farnham....
-0000B0 31 3A 31 33 38 2F 31 30 32 2E 30 20 32 63 66 38 1:138/102.0 2cf8
-0000C0 30 35 37 36 A5 00 14 00 31 3A 33 34 33 2F 31 30 0576....1:343/10
-0000D0 30 2E 30 20 32 63 66 33 62 39 30 61 A3 00 23 00 0.0 2cf3b90a..#.
-0000E0 31 33 38 2F 31 30 32 20 31 20 32 37 30 2F 31 30 138/102 1 270/10
-0000F0 31 20 32 30 39 2F 32 30 39 20 31 30 33 2F 30 20 1 209/209 103/0
-000100 33 35 35 02 00 02 00 02 00 03 00 08 00 01 00 8A 355.............
-000110 00 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .f..............</pre>
-</blockquote>
-<pre><b><u>Contents of example header:</u></b></pre>
-<pre>id SHD^Z
-type 0000h
-version 0120h
-length 245
-attr 0000h
-auxattr 00000000h
-netattr 00000000h
-when_written Sat Nov 27 17:57:10 1993
-when_imported Tue Jan 04 15:54:21 1994
-number 1
-thread_orig 0
-thread_next 0
-thread_first 0
-reserved[16]
-offset 0
-total_dfields 2</pre>
-<pre>dfield[0].type 00h
-dfield[0].offset 0
-dfield[0].length 330
-dfield[1].type 02h
-dfield[1].offset 330
-dfield[1].length 83</pre>
-<pre>hfield[0].type 00h
-hfield[0].length 19
-hfield[0]_dat Marianne Montgomery
-hfield[1].type 30h
-hfield[1].length 12
-hfield[1]_dat Carol Gaiser
-hfield[2].type 60h
-hfield[2].length 7
-hfield[2]_dat Farnham
-hfield[3].type A4h
-hfield[3].length 20
-hfield[3]_dat 1:138/102.0 2cf80576
-hfield[4].type A5h
-hfield[4].length 20
-hfield[4]_dat 1:343/100.0 2cf3b90a
-hfield[5].type A3h
-hfield[5].length 35
-hfield[5]_dat 138/102 1 270/101 209/209 103/0 355
-hfield[6].type 02h
-hfield[6].length 2
-hfield[6]_dat 02 00
-hfield[7].type 03h
-hfield[7].length 8
-hfield[7]_dat 01 00 8A 00 66 00 00 00
-
-<b><u>Fixed Portion Field descriptions:</u></b>
-
-<b>Id:</b>
-This field (regardless of the header type or version) must always contain the
-the string "SHD^Z". This is to aid in the restoration of a corrupted header
-file and give a visual indication of the beginning of a new header record when
-viewing dumps of the header file.</pre>
-<pre><b>Type:</b>
-This is the message header type. Only one type is currently defined by this
-specification (type 0). Any and all future header types will have the first
-4 fields (10 bytes) in the same format of type 0. This allows other types
-(with different lengths) to be skipped because the 4th field (length) will
-always be in the same position.</pre>
-<pre><b>Version:</b>
-This is the version of this header type. This specification defines version
-1.21 of message header type 0 (stored as 121h).</pre>
-<pre><b>Length:</b>
-This is the total length of this message header record (including both fixed
-and variable length portions, but NOT including unused block space).</pre>
-<pre><b>Attr:</b>
-This is a bit field (16-bit) containing basic message attributes (flags) for
-this message. An exact duplicate of this field is stored in the index file as
-well. They must always match.</pre>
-<pre><b>Auxattr:</b>
-This is a bit field (32-bit) containing the auxiliary attributes (flags) for
-this message. The attributes stored in this variable are more specific in
-nature and less critical than those in the Attr field.</pre>
-<pre><b>Netattr:</b>
-This is a bit field (32-bit) containing the network attributes (flags) for this
-message. The attributes stored in this variable are related solely to message
-networking.</pre>
-<pre><b>When_written:</b>
-This is the date and time when the message was originally created.</pre>
-<pre><b>When_imported:</b>
-This is the date and time when the message was posted on or imported into the
-local message system.</pre>
-<pre><b>Number:</b>
-This is the message's unique serial number (from 1 to FFFFFFFFh). This field
-is duplicated in the index file. They must always match.
-
-<b>Thread_orig:
-</b>If this message is a reply, then this field contains the number of the original
-message that was replied to. If this message was not a reply, this field will
-contain the value 0.</pre>
-<pre><b>Thread_next:
-</b>If this message is a reply, and there are later replies to that message
-(the message number contained in the Thread_orig field), then this field will
-contain the number of the next reply in the chain. If this message is the only
-reply to the original message, this field will contain the value 0.</pre>
-<pre><b>Thread_first:
-</b>If there are any replies to this message (after it has been posted), this field
-will contain the number of the first reply to this message. If there are no
-replies to this message, this field will contain the value 0.</pre>
-<pre><b>Reserved:
-</b>Unused bytes, reserved for future definition in the message header type 0
-specification.</pre>
-<pre><b>Offset:
-</b>The byte offset into the data file, specifying the start of the buffer for
-all data associated with this message. This value must be either 0 or modulus
-256. When retrieving the actual data portion of data fields, the physical
-offset into the file will be the offset of the message data buffer (this field)
-plus the offset of the individual data field (msghdr_t.offset+dfield_t.offset).</pre>
-<pre><b>Total_dfields:
-</b>This field contains the total number of data fields associated with this
-message. The value of this field must match the actual number of data fields
-stored in the header (dfield_t data types following the fixed portion of the
-message header).
-</pre>
-<pre><b><u>Variable Portion Field descriptions:</u></b>
-
-See the Header Field Type and Data Field Type sections for the descriptions
-of the values contained in these fields.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Message Header Block Allocation (*.SHA)">Message Header Block
-Allocation (*.SHA)</a></u></h3>
-<pre>If this message base uses the Hyper Allocation storage method (the
-SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
-not created or used.</pre>
-<pre>This file contains no header or signature data. Each byte (uchar) in the file
-specifies the allocation state of the corresponding 256 byte block in the
-header (*.SHD) file. A value of 0 indicates a free header block, and a value of
-1 indicates an allocated block. Other non-zero values are undefined.</pre>
-<pre>This file must always be opened DENY ALL (non-shareable).</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Message Data (*.SDT)">Message Data (*.SDT)</a></u></h3>
-<pre>This file contains no header or signature data. It contains the text and other
-embedded data for the messages in a single message base. The data for each
-message always begins on a 256 byte block boundary. The data in the unused
-portion of a data block is undefined, but should be initialized to NULL
-whenever possible.</pre>
-<pre>This file must always be opened DENY NONE (shareable).</pre>
-<pre>Data fields of type TEXT_BODY and TEXT_TAIL must have all trailing white space
-and control characters removed (i.e. the last character of the data record
-must be in the range 21h to FFh). The only exception to this rule, is if the
-TEXT_BODY is terminated with multiple contiguous CRLFs, only the last CRLF
-should be removed. A CRLF should always be appended to the text data when it is
-displayed.</pre>
-<pre>When reading from this file, it is a good idea to make sure the message header
-for the data being read is currently locked (though no single message header
-should be locked for extended durations of time). This will insure that no
-other application will write to this portion of the file while it's being
-read (read from disk, not displayed).</pre>
-<pre>When using the Hyper Allocation storage method, the Status Info message base
-header must be successfully locked before writing to this file and subsequently
-unlocked.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Message Data Block Allocation (*.SDA)">Message Data Block
-Allocation (*.SDA)</a></u></h3>
-<pre>If this message base uses the Hyper Allocation storage method (the
-SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
-not created or used.</pre>
-<pre>This file contains no header or signature data. Each word (ushort) in the file
-specifies the allocation state of the corresponding 256 byte block in the data
-(*.SDT) file. A value of 0 indicates a free block, and a non-zero value
-indicates the number of message header records associated with this message
-data (most often 1). Each block can be used by up to 65,535 header records.</pre>
-<pre>This file must always be opened DENY ALL (non-shareable).</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="CRC history for duplicate message checking (*.SCH)">CRC history
-for duplicate message checking (*.SCH)</a></u></h3>
-<pre>This file is optional and contains no header or signature data. Each long word
-(ulong) in the file contains a CRC-32 of previously posted/imported messages.
-These CRCs can be used to check a candidate message for posting/import to be
-sure the message isn't a duplicate created by human or program error. The
-maximum number of CRCs to store is defined in the first message base header
-record (smbstatus_t.max_crcs).</pre>
-<pre>The CRC is calculated on the first TEXT_BODY data field before any translations
-are applied (e.g. encoding, compression, encryption).</pre>
-<pre>This file must always be opened DENY ALL (non-shareable).</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Header Field Types:">Header Field Types:</a></u></h2>
-<pre>These are the defined valid values for hfield_t.type:</pre>
-<pre>Name : SENDER
-Value : 00h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes
-Summary : Name of agent that sent this message</pre>
-<pre>If blank (0 length or nulstr), assumed "Anonymous". If multiple SENDER fields
-exist, then the message has been forwarded and the order of the fields in the
-record must match the forwarding order (chronologically). When forwarding a
-message, the original SENDER field should be left intact and new SENDER,
-FORWARDED, and RECIPIENT fields added to the end of the record.</pre>
-<pre>Name : SENDERAGENT
-Value : 01h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : AGENT_PERSON or previous SENDERAGENT if exists
-Summary : Type of agent that sent this message</pre>
-<pre>If multiple SENDER fields exist, then the message has been forwarded. If any of the
-forwarding agents is of a type other than AGENT_PERSON, then this field must
-follow that SENDER field to specify the agent type.</pre>
-<pre>Name : SENDERNETTYPE
-Value : 02h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : NET_NONE or previous SENDERNETTYPE if exists
-Summary : Type of network message was sent from</pre>
-<pre>If multiple SENDERNETADDR fields are included, a SENDERNETTYPE field should be
-included before each to determine what data type the address is stored in.</pre>
-<pre>Name : SENDERNETADDR
-Value : 03h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERNETADDR if exists
-Summary : Network address for agent that sent this message</pre>
-<pre>The SENDERNETTYPE field indicates the data type of this field. If the
-SENDERNETTYPE is of type NET_INTERNET, the local-part of the Internet
-address is optional. If the local-part separator character ('@') is omitted,
-the SENDER field is assumed to be the local-part of the address.</pre>
-<pre>Name : SENDEREXT
-Value : 04h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDEREXT if exists
-Summary : Extension of sending agent</pre>
-<pre>This field is useful for storing the sending agent's extension, when the
-agent's extension binds more tightly than the agent's name.</pre>
-<pre>For example, Synchronet Multinode BBS Software stores local e-mail with the
-sending and receiving agent's user numbers stored as their respective
-extensions. This is done so that if a user name changes for some reason,
-messages will not "disappear" from the user's mail box.</pre>
-<pre>If the SMB_EMAIL status header attribute is set, then the "From" field in the
-index must contain the binary value of this field rather than the CRC-16 of the
-SENDER (name) field.</pre>
-<pre>Name : SENDERPOS
-Value : 05h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERPOS if exists
-Summary : Position of sending agent</pre>
-<pre>Primarily for documentary purposes, this field contains the position of the
-sending agent (i.e. President, Sysop, C.E.O., MIS Director, etc).</pre>
-<pre>It can also be useful for getting a message or reply to the intended
-recipient when the agent name is not located or is unknown, but the position
-of the agent is known and specified.</pre>
-<pre>Name : SENDERORG
-Value : 06h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERORG if exists
-Summary : Organization name of sending agent</pre>
-<pre>Primarily for documentary purposes, this field contains the organization to
-which the sending agent belongs (i.e. Microsoft, Joe's BBS, SoCal User's Group,
-etc).
-
-Name : AUTHOR
-Value : 10h
-Data : ASCII
-Multiple : Yes
-Required : No
-Default : First SENDER
-Summary : Name of agent that created this message</pre>
-<pre>This field can only be added by the process that originally creates the
-message. It should not be included if same as first SENDER field. If multiple
-AUTHOR fields exist, then the message was created by multiple agents and is
-considered valid. The order of multiple AUTHOR fields in the record is not
-significant.</pre>
-<pre>Name : AUTHORAGENT
-Value : 11h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : SENDERAGENT or previous AUTHORAGENT if exists
-Summary : Type of agent that created this message</pre>
-<pre>This field can only be added by the process that originally creates the
-message. It should not be included if same as first SENDERAGENT field. If
-multiple AUTHOR fields exist, then the message was created by multiple agents
-and if the agent type for any of the authors is other than AGENT_PERSON, an
-AUTHORAGENT field must follow to specify the agent type.</pre>
-<pre>Name : AUTHORNETTYPE
-Value : 12h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : SENDERNETTYPE or previous AUTHORNETTYPE if exists
-Summary : Type of network this author is member of</pre>
-<pre>Name : AUTHORNETADDR
-Value : 13h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : SENDERNETADDR or previous AUTHORNETADDR if exists
-Summary : Network address of this author
-
-Name : AUTHOREXT
-Value : 14h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDEREXT or previous AUTHOREXT if exists
-Summary : Extension of this author</pre>
-<pre>Name : AUTHORPOS
-Value : 15h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDERPOS or previous AUTHORPOS if exists
-Summary : Position of this author</pre>
-<pre>Name : AUTHORORG
-Value : 16h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDERORG or previous AUTHORORG if exists
-Summary : Organization this author belongs to
-
-Name : REPLYTO
-Value : 20h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDER
-Summary : Name of agent that replies should go to</pre>
-<pre>Name : REPLYTOAGENT
-Value : 21h
-Data : ushort
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERAGENT
-Summary : Type of agent that replies should go to</pre>
-<pre>Name : REPLYTONETTYPE
-Value : 22h
-Data : ushort
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERNETTYPE
-Summary : Type of network that replies should go to</pre>
-<pre>Name : REPLYTONETADDR
-Value : 23h
-Data : undef
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERNETADDR
-Summary : Network address that replies should go to
-
-Name : REPLYTOEXT
-Value : 24h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDEREXT
-Summary : Extension of agent that replies should go to</pre>
-<pre>Name : REPLYTOPOS
-Value : 25h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERPOS
-Summary : Position of agent that replies should go to</pre>
-<pre>Name : REPLYTOORG
-Value : 26h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERORG
-Summary : Organization of agent that replies should go to
-
-Name : RECIPIENT
-Value : 30h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes
-Default : "All"
-Summary : Name of agent to receive this message</pre>
-<pre>If multiple RECIPIENT fields exist, the message has been forwarded and for each
-additional RECIPIENT field (after the initial RECIPIENT), there should be a
-FORWARDED field. The order of the RECIPIENT fields in the record must match the
-order in which the message was sent and forwarded (chronologically).</pre>
-<pre>Name : RECIPIENTAGENT
-Value : 31h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : AGENT_PERSON or previous RECIPIENTAGENT if exists
-Summary : Type of agent to receive this message</pre>
-<pre>If multiple RECIPIENT fields exist, the message has been forwarded. If any of
-the recipient agents are of a type other than AGENT_PERSON, this field must
-follow the RECIPIENT field to specify the agent type.</pre>
-<pre>Name : RECIPIENTNETTYPE
-Value : 32h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : NET_NONE or previous RECIPIENTNETTYPE if exists
-Summary : Type of network to receive this message</pre>
-<pre>Name : RECIPIENTNETADDR
-Value : 33h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTNETADDR if exists
-Summary : Address of network to receive this message
-
-Name : RECIPIENTEXT
-Value : 34h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTEXT if exists
-Summary : Extension of agent to receive this message</pre>
-<pre>If SMB_EMAIL status header attribute is set, then the "To" field in the index
-must contain the binary value of this field rather than the CRC-16 of the
-RECIPIENT (name) field. This is the case specifically with the local e-mail
-message base on a Synchronet BBS.</pre>
-<pre>Name : RECIPIENTPOS
-Value : 35h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTPOS if exists
-Summary : Position of agent to receive this message</pre>
-<pre>Name : RECIPIENTORG
-Value : 36h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTORG if exists
-Summary : Type of agent to receive this message
-
-Name : FORWARDTO
-Value : 40h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of agent this message is to be forwarded to</pre>
-<pre>Name : FORWARDTOAGENT
-Value : 41h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTAGENT or previous FORWARDTOAGENT if exists
-Summary : Type of agent this message is to be forwarded to</pre>
-<pre>Name : FORWARDTONETTYPE
-Value : 42h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETTYPE or previous FORWARDTONETTYPE if exists
-Summary : Type of network this message is to be forwarded to</pre>
-<pre>Name : FORWARDTONETADDR
-Value : 43h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETADDR or previous FORWARDTONETADDR if exists
-Summary : Network address this message is to be forwarded to
-
-Name : FORWARDTOEXT
-Value : 44h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTEXT or previous FORWARDTOEXT if exists
-Summary : Extension of agent this message is to be forwarded to</pre>
-<pre>Name : FORWARDTOPOS
-Value : 45h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTPOS or previous FORWARDTOPOS if exists
-Summary : Position of agent this message is to be forwarded to</pre>
-<pre>Name : FORWARDTOORG
-Value : 46h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTORG or previous FORWARDTOORG if exists
-Summary : Organization of agent this message is to be forwarded to</pre>
-<pre>Name : FORWARDED
-Value : 48h
-Data : when_t
-Multiple : Yes, order significant
-Required : Yes, if forwarded
-Summary : Date/Time this message was forwarded to another agent
-
-Name : RECEIVEDBY
-Value : 50h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes, if receiving agent is other than RECIPIENT
-Summary : Name of agent that received this message</pre>
-<pre>Name : RECEIVEDBYAGENT
-Value : 51h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTAGENT or previous RECEIVEDBYAGENT if exists
-Summary : Type of agent that received this message</pre>
-<pre>Name : RECEIVEDBYNETTYPE
-Value : 52h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETTYPE or previous RECEIVEDBYNETTYPE if exists
-Summary : Type of network that received this message</pre>
-<pre>Name : RECEIVEDBYNETADDR
-Value : 53h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETADDR or previous RECEIVEDBYNETADDR if exists
-Summary : Network address that received this message
-
-Name : RECEIVEDBYEXT
-Value : 54h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTEXT or previous RECEIVEDBYEXT if exists
-Summary : Extension of agent that received this message</pre>
-<pre>Name : RECEIVEDBYPOS
-Value : 55h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTPOS or previous RECEIVEDBYPOS if exists
-Summary : Position of agent that received this message</pre>
-<pre>Name : RECEIVEDBYORG
-Value : 56h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTORG or previous RECEIVEDBYORG if exists
-Summary : Organization of agent that received this message</pre>
-<pre>Name : RECEIVED
-Value : 58h
-Data : when_t
-Multiple : Yes, order significant
-Required : Yes, if received
-Default : NULL
-Summary : Date/Time this message was received
-
-Name : SUBJECT
-Value : 60h
-Data : ASCII
-Multiple : No
-Required : Yes, but may be blank (0 length or nulstr)
-Summary : Subject/title of message</pre>
-<pre>Name : SUMMARY
-Value : 61h
-Data : ASCII
-Multiple : No
-Required : No
-Summary : Summary of message contents, created by AUTHOR</pre>
-<pre>Name : COMMENT
-Value : 62h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Comment about this message, created by SENDER</pre>
-<pre>This field is useful for adding notes to a message when forwarding to a new
-recipient.</pre>
-<pre>Name : CARBONCOPY
-Value : 63h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : List of agents this message was also sent to</pre>
-<pre>This field is optional and only for the use of notifying the recipient of who
-else received the message.</pre>
-<pre>Name : GROUP
-Value : 64h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of group of users to receive message on recipient system</pre>
-<pre>This field is used when sending to a group name across a network, where the
-group can be expanded into multiple header records for each agent on the
-destination system.</pre>
-<pre>Name : EXPIRATION
-Value : 65h
-Data : when_t
-Multiple : No
-Required : No
-Summary : Date/Time that this message will expire
-
-Name : PRIORITY
-Value : 66h
-Data : ulong
-Multiple : No
-Required : No
-Default : 0
-Summary : Message priority (0 is lowest, FFFFFFFFh is highest)
-
-Name : FILEATTACH
-Value : 70h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name/file specification of attached file(s)</pre>
-<pre>Name of attached file(s). Wildcards allowed. MSG_FILEATTACH attribute must be
-set. If the MSG_FILEATTACH attribute is set but this field is not included,
-the SUBJECT field is assumed to be the filename(s).</pre>
-<pre>Name : DESTFILE
-Value : 71h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Destination name for attached file(s)</pre>
-<pre>Wildcards allowed. FILEATTACH field must also be included.</pre>
-<pre>Name : FILEATTACHLIST
-Value : 72h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of ASCII list of attached filenames</pre>
-<pre>Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
-MSG_FILEATTACH attribute must be set.</pre>
-<pre>Name : DESTFILELIST
-Value : 73h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of ASCII list of destination filenames</pre>
-<pre>Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.</pre>
-<pre>Name : FILEREQUEST
-Value : 74h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of requested file</pre>
-<pre>Wildcards allowed. MSG_FILEREQUEST attribute must be set</pre>
-<pre>Name : FILEPASSWORD
-Value : 75h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Password for FILEREQUEST</pre>
-<pre>Name : FILEREQUESTLIST
-Value : 76h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of ASCII list of filenames to request</pre>
-<pre>Wildcards allowed.</pre>
-<pre>Name : FILEPASSWORDLIST
-Value : 77h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of ASCII list of passwords for FILEREQUESTLIST
-
-Name : IMAGEATTACH
-Value : 80h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached image file for display</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Image Types for valid
-mattach_t.type values.</pre>
-<pre>Name : ANIMATTACH
-Value : 81h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached graphical animation file for display</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Animation Types for valid
-mattach_t.type values.</pre>
-<pre>Name : FONTATTACH
-Value : 82h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached font definition file</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Font Types for valid mattach_t.type
-values.</pre>
-<pre>Name : SOUNDATTACH
-Value : 83h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached sound file for playback</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Sound Types for valid mattach_t.type
-values.</pre>
-<pre>Name : PRESENTATTACH
-Value : 84h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached presentation definition file</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Present Types for valid
-mattach_t.type values.
-
-Name : VIDEOATTACH
-Value : 85h
-Data : vattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached interleaved video/sound file</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Video Types for valid
-vattach_t.type values and Video Compression Types for valid vattach_t.comp
-values.</pre>
-<pre>Name : APPDATAATTACH
-Value : 86h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Name of attached application data file for process/display</pre>
-<pre>MSG_FILEATTACH attribute must be set. See Application Data Types for valid
-mattach_t.type values.
-
-Name : IMAGETRIGGER
-Value : 90h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of image file to trigger for display</pre>
-<pre>See Image Types for valid typestr_t.type values.</pre>
-<pre>Name : ANIMTRIGGER
-Value : 91h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of animation file to trigger for display</pre>
-<pre>See Animation Types for valid typestr_t.type values.</pre>
-<pre>Name : FONTTRIGGER
-Value : 92h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of font definition file to trigger</pre>
-<pre>See Font Types for valid typestr_t.type values.</pre>
-<pre>Name : SOUNDTRIGGER
-Value : 93h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of sound file to trigger for playback</pre>
-<pre>See Sound Types for valid typestr_t.type values.</pre>
-<pre>Name : PRESENTTRIGGER
-Value : 94h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of presentation definition file to trigger</pre>
-<pre>See Present Types for valid typestr_t.type values.</pre>
-<pre>Name : VIDEOTRIGGER
-Value : 95h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of interleaved video/sound file to trigger</pre>
-<pre>See Video Types for valid typestr_t.type values.</pre>
-<pre>Name : APPDATATRIGGER
-Value : 96h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of application data file to trigger</pre>
-<pre>See Application Data Types for valid typestr_t.type values.
-
-Name : FIDOCTRL
-Value : A0h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : keyword ":" [" "] appdata
-Summary : FTS/FSC-compliant control information line</pre>
-<pre>Any FidoNet FTS/FSC-compliant control information ("kludge") line that
-does not have an equivalent representation here. All data not unique to the
-actual control line, including leading and trailing white space, Ctrl-A (01h)
-character and terminating CR must be ommitted. Defined in FTS-0001.</pre>
-<pre>Name : FIDOAREA
-Value : A1h
-Data : ASCII
-Multiple : No
-Required : No
-Summary : FTN EchoMail conference name.</pre>
-<pre>Defined in FTS-0004.</pre>
-<pre>Name : FIDOSEENBY
-Value : A2h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : net"/"node [" "[net"/"]node] [...]
-Summary : Used to store two-dimensional (net/node) SEEN-BY information</pre>
-<pre>Often used in FTN EchoMail environments. Only the actual SEEN-BY data is stored
-and SEEN-BY: is stripped along with any leading and trailing white space
-characters. Defined in FTS-0004.</pre>
-<pre>Name : FIDOPATH
-Value : A3h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : net"/"node [" "[net"/"]node] [...]
-Summary : Used to store two-dimensional (net/node)</pre>
-<pre>Defined in FTS-0004. ^aPATH: is stripped along with any leading and trailing
-white space characters.
-
-Name : FIDOMSGID
-Value : A4h
-Data : ASCII
-Multiple : No
-Required : No
-Format : origaddr " " serialno
-Summary : MSGID field as specified in FTS-0009.</pre>
-<pre>Name : FIDOREPLYID
-Value : A5h
-Data : ASCII
-Multiple : No
-Required : No
-Format : origaddr " " serialno
-Summary : REPLY field as specified in FTS-0009.</pre>
-<pre>Name : FIDOPID
-Value : A6h
-Data : ASCII
-Multiple : No
-Required : No
-Format : pID " " version [" "serialno]
-Summary : Identification string of program that created this message</pre>
-<pre>Defined FSC-0046. "^aPID:" and any white space is not included.</pre>
-<pre>Name : FIDOFLAGS
-Value : A7h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Used to store the FTN FLAGS kludge information</pre>
-<pre>Note that all FLAG options that have binary representation in the message
-header must be removed from the FLAGS string prior to storing it. Only the
-actual flags option string is stored and ^aFLAGS is stripped along with any
-leading and trailing white space characters. Defined in FSC-0053.
-
-Name : RFC822HEADER
-Value : B0h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : field-name ":" [field-body] [CRLF]
-Summary : Undefined RFC-822 header field</pre>
-<pre>Internet Message storage format, that does not have an equivalent
-representation here. Folded header fields are allowed. Terminating CRLF may be
-ommited.</pre>
-<pre>Name : RFC822MSGID
-Value : B1h
-Data : ASCII
-Multiple : No
-Required : No
-Format : "<" addr-spec ">"
-Summary : Message-ID field as specified in RFC-822.</pre>
-<pre>Name : RFC822REPLYID
-Value : B2h
-Data : ASCII
-Multiple : No
-Required : No
-Format : "<" addr-spec ">"
-Summary : In-Reply-To field as specified in RFC-822.
-
-Name : UNKNOWN
-Value : F0h
-Data : undef
-Multiple : Yes
-Required : No
-Summary : Undefined header field of undefined type</pre>
-<pre>This field is useful for retaining binary header fields (that do not have an
-equivalent representation here) between message storage formats.</pre>
-<pre>Name : UNKNOWNASCII
-Value : F1h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Undefined header field of type ASCII</pre>
-<pre>This field is useful for retaining ASCII header fields (that do not have an
-equivalent representation here) between message storage formats.</pre>
-<pre>Name : UNUSED
-Value : FFh
-Data : undef
-Multiple : Yes
-Required : No
-Summary : Unused (deleted) header field</pre>
-<pre>The data contained in this header field is of an unknown type and should not be
-processed.
-</pre>
-<pre>Note:
-----
-Specifically, not defined are the values F000h through FFFFh. These values
-are to be used for user or system defined header fields. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-header fields added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Data Field Types:">Data Field Types:</a></u></h2>
-<pre>These are the defined valid values for dfield_t.type:
-</pre>
-<pre>Val Name Data Description
---- ---- ---- -----------
-00h TEXT_BODY mtext_t Displayable text (body of message).
- Included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data
- (except when multiple contiguous CRLFs
- terminate the text, only the last CRLF
- is removed).</pre>
-<pre>01h TEXT_SOUL mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Included in duplicate message checking.</pre>
-<pre>02h TEXT_TAIL mtext_t Displayable text (tag/tear/origin lines,
- etc).
- Not included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data.</pre>
-<pre>03h TEXT_WING mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Not included in duplicate message checking.</pre>
-<pre>10h FTEXT_BODY ftext_t Formatted equivalent of TEXT_BODY to be
- displayed in place of TEXT_BODY if format
- is supported. See Image Types for valid
- values of ftext_t.type.</pre>
-<pre>12h FTEXT_TAIL ftext_t Formatted equivalent of TEXT_TAIL to be
- displayed in place of TEXT_TAIL if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
-20h IMAGEEMBED membed_t Type and data of embedded raster image file
- for display.
- See Image Types for valid membed.type
- values.</pre>
-<pre>21h ANIMEMBED membed_t Type and data of embedded graphical
- animation file for display.
- See Animation Types for valid membed.type
- values.</pre>
-<pre>22h FONTEMBED membed_t Type and data of embedded font definition
- file. See Font Types for valid
- membed_t.type values.</pre>
-<pre>23h SOUNDEMBED membed_t Type and data of embedded sound file for
- playback.
- See Sound Types for valid membed_t.type
- values.</pre>
-<pre>24h PRESENTEMBED membed_t Type and data of embedded presentation
- definition file.
- See Present Types for valid membed_t.type
- values.</pre>
-<pre>25h VIDEOEMBED vembed_t Type and data of embedded video/sound file
- for playback.
- See Video Types for valid vembed_t.type
- values.
- See Video Compression Types for valid
- vembed_t.comp values.</pre>
-<pre>26h APPDATAEMBED membed_t Type and data of embedded application data
- file for process/display.
- See Application Data Types for valid
- membed_t.type values.</pre>
-<pre>FFh UNUSED undef Space allocated for future update/expansion
-</pre>
-<pre>Specifically, not defined are the values F000h through FFFFh. These values
-are to be used for user or system defined data fields. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-data fields added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Message Attributes:">Message Attributes:</a></u></h2>
-<pre>These are the bit values for idxrec_t.attr and msghdr_t.attr:</pre>
-<pre>MSG_PRIVATE (1<<0) // Private
-MSG_READ (1<<1) // Read by addressee
-MSG_PERMANENT (1<<2) // Permanent
-MSG_LOCKED (1<<3) // Msg is locked, no editing possible
-MSG_DELETE (1<<4) // Msg is marked for deletion
-MSG_ANONYMOUS (1<<5) // Anonymous author
-MSG_KILLREAD (1<<6) // Delete message after it has been read
-MSG_MODERATED (1<<7) // This message must be validated before export
-MSG_VALIDATED (1<<8) // This message has been validated by a moderator
-</pre>
-<pre><b>Auxiliary Attributes:</b>
-
-These are the bit values for msghdr_t.auxattr:</pre>
-<pre>MSG_FILEREQUEST (1<<0) // File request
-MSG_FILEATTACH (1<<1) // File(s) attached to Msg
-MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
-MSG_KILLFILE (1<<3) // Delete file(s) when sent
-MSG_RECEIPTREQ (1<<4) // Return receipt requested
-MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
-MSG_NODISP (1<<6) // Msg may not be displayed to user
-</pre>
-<pre><b>Network Attributes:
-</b>
-These are the bit values for msghdr_t.netattr:</pre>
-<pre>MSG_LOCAL (1<<0) // Msg created locally
-MSG_INTRANSIT (1<<1) // Msg is in-transit
-MSG_SENT (1<<2) // Sent to remote
-MSG_KILLSENT (1<<3) // Kill when sent
-MSG_ARCHIVESENT (1<<4) // Archive when sent
-MSG_HOLD (1<<5) // Hold for pick-up
-MSG_CRASH (1<<6) // Crash
-MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
-MSG_DIRECT (1<<8) // Send directly to destination
-MSG_GATE (1<<9) // Send via gateway
-MSG_ORPHAN (1<<10) // Unknown destination
-MSG_FPU (1<<11) // Force pickup
-MSG_TYPELOCAL (1<<12) // Msg is for local use only
-MSG_TYPEECHO (1<<13) // Msg is for conference distribution
-MSG_TYPENET (1<<14) // Msg is direct network mail</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Translation Types:">Translation Types:</a></u></h2>
-<pre>Definition for values of *.xlat[x]:</pre>
-<pre>XLAT_NONE 0 // No translation/End of translation list
-XLAT_LF2CRLF 1 // Expand sole LF to CRLF
-XLAT_ESCAPED 2 // 7-bit ASCII escaping for ctrl and 8-bit data
-XLAT_HUFFMAN 3 // Static and adaptive Huffman coding compression
-XLAT_LZW 4 // LZW (Lempel-Ziv-Welch) encoding for compression
- // Terry Welch, IEEE Computer Vol 17, No 6
- // June 1984, pp 8-19
-XLAT_LZC 5 // LZC (modified LZW) encoding for compression
- // Unix compress program
-XLAT_RLE 6 // Run length encoding compression
-XLAT_IMPLODE 7 // Implode compression (PKZIP v1.x)
-XLAT_SHRINK 8 // Shrink compression (PKZIP v1.x)
-XLAT_LZH 9 // LZH dynamic Huffman coding
- // Haruyasu Yoshizaki, LHarc
- // November, 1988</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Agent Types:">Agent Types:</a></u></h2>
-<pre>AGENT_PERSON 0 // To or from person
-AGENT_PROCESS 1 // Unknown process, identified by agent name</pre>
-<pre>Agent types E000h through EFFFh are reserved for Synchronet process types
-(defined specifically by Digital Dynamics).</pre>
-<pre><b>Note:</b>
-
-Specifically not defined are agent types F000h through FFFFh. These values
-are to be used for user or system defined agent types. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-agent types added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Network Types:">Network Types:</a></u></h2>
-<pre> // Net Type Address Format
- // -----------------------------------
-NET_NONE 0 // Locally created none
-NET_UNKNOWN 1 // Unknown undef
-NET_FIDO 2 // FTN network fidoaddr_t
-NET_POSTLINK 3 // PostLink network none
-NET_QWK 4 // QWK based network ASCII
-NET_INTERNET 5 // The Internet ASCII
-NET_WWIV 6 // WWIV based network ulong
-NET_MHS 7 // MHS network ASCII</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Media Types:">Media Types:</a></u></h2>
-<pre><b>Image Types:</b></pre>
-<pre>IMAGE_UNKNOWN 0x00 // Use image signature header to determine format
-IMAGE_ASC 0x01 // ASCII text/IBM extended ASCII graphics
-IMAGE_ANS 0x02 // ANSI X3.64 terminal escape sequences
-IMAGE_AVT 0x03 // AVATAR terminal escape sequences
-IMAGE_LVI 0x04 // LVI terminal escape sequences
-IMAGE_GIF 0x05 // Compuserve Graphics Interchange Format (GIF)
-IMAGE_TIF 0x06 // Tagged Image Format (AKA TIFF)
-IMAGE_JPG 0x07 // Joint Photographers Electronics Group (JPEG)
-IMAGE_T16 0x08 // TrueVision 16-bit bitmap (TGA)
-IMAGE_T24 0x09 // TrueVision 24-bit bitmap (TGA)
-IMAGE_T32 0x0a // TrueVision 32-bit bitmpa (TGA)
-IMAGE_PCX 0x0b // ZSoft PaintBrush graphics
-IMAGE_BMP 0x0c // Windows bitmap
-IMAGE_RLE 0x0d // Windows bitmap (compressed)
-IMAGE_DIB 0x0e // Display independant bitmap
-IMAGE_PCD 0x0f // Kodak PhotoCD
-IMAGE_G3F 0x10 // Group 3 FAX
-IMAGE_EPS 0x11 // Encapsulated PostScript
-IMAGE_RTF 0x12 // Rich text format
-IMAGE_RIP 0x13 // Remote Imaging Protocol Script (RIPscrip)
-IMAGE_NAP 0x14 // NAPLPS
-IMAGE_CDR 0x15 // Corel Draw!
-IMAGE_CGM 0x16 // Computer graphics metafile
-IMAGE_WMF 0x17 // Windows metafile
-IMAGE_DFX 0x18 // Autodesk AutoCAD
-IMAGE_IFF 0x19 // Amiga Interchange File Format
-</pre>
-<pre><b>Animation Types:</b></pre>
-<pre>ANIM_UNKNOWN 0 // Use file signature header to determine format
-ANIM_FLI 1 // Autodesk animator
-ANIM_FLC 2 // Autodesk
-ANIM_GL 3 // Grasprt
-ANIM_IFF 4 // Amiga Interchange File Format
-</pre>
-<pre><b>Video Types:</b></pre>
-<pre>VIDEO_UNKNOWN 0 // Use file signature header to determine format
-VIDEO_QTIME 1 // Apple Quick-time
-VIDEO_FQTIME 2 // Apple Flattened Quick-time
-VIDEO_AVI 3 // Windows Auto/Video Interleave
-VIDEO_ULT 4 // OS/2 Ultimotion
-
-<b>Video Compression Types:</b></pre>
-<pre>VCOMP_UNKNOWN 0 // Use file signature header to determine codec
-VCOMP_RLE 1 // Apple animation
-VCOMP_SMC 2 // Apple graphics
-VCOMP_RPZA 3 // Apple video
-VCOMP_KLIC 4 // Captain crunch
-VCOMP_CVID 5 // CinePak
-VCOMP_RT21 6 // Intel indeo R2
-VCOMP_IV31 7 // Intel indeo R3
-VCOMP_YVU9 8 // Intel YVU9
-VCOMP_JPEG 9 // JPEG
-VCOMP_MRLE 10 // Microsoft RLE
-VCOMP_MSVC 11 // Microsoft video 1
-</pre>
-<pre><b>Font Types:</b></pre>
-<pre>FONT_UNKNOWN 0 // Use file signature header to determine format
-FONT_TTF 1 // Windows TrueType
-FONT_PFB 2 // PostScript Type 1 Font Binary
-FONT_PFM 3 // PostScript Type 1 Font Metric
-FONT_AMIGA 4 // Amiga Bitmapped
-FONT_AGFA 5 // CompuGraphic Fonts
-</pre>
-<pre><b>Sound Types:</b></pre>
-<pre>SOUND_UNKNOWN 0 // Use file signature header to determine format
-SOUND_MOD 1 // MOD format
-SOUND_VOC 2 // Sound Blaster VOC format
-SOUND_WAV 3 // Windows 3.1 WAV RIFF format
-SOUND_MID 4 // MIDI format
-SOUND_GMID 5 // General MIDI format (standardized patches)
-SOUND_SMP 6 // Turtle Beach SampleVision format
-SOUND_SF 7 // IRCAM format
-SOUND_AU 8 // Sun Microsystems AU format
-SOUND_IFF 9 // Amiga Interchange File Format
-
-<b>Application Data Types:</b></pre>
-<pre>APPDATA_UNKNOWN 0 // Use file signature header to determine format
-APPDATA_WORDPERFECT 1 // WordPerfect Document
-APPDATA_WKS 2 // Lotus 123 Worksheet (?)
-APPDATA_WK1 3 // Lotus 123 Worksheet rev 1
-APPDATA_WK2 4 // Lotus 123 Worksheet rev 2
-APPDATA_WK3 5 // Lotus 123 Worksheet rev 3
-APPDATA_DBF 6 // dBase III data file
-APPDATA_PDX 7 // Paradox data file
-APPDATA_EXCEL 8 // Excel data file
-APPDATA_QUATRO 9 // Borland Quatro Pro file
-APPDATA_WORD 10 // Microsoft Word</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Message Storage Pseudo Code">Message Storage Pseudo Code</a></u></h2>
-<pre>The following is a "C like" pseudo code listing example of adding a message to
-an SMB message base. SMBLIB contains C functions to do most of the following
-operations. We are supplying this pseudo code as a general definition of the
-order of required operations in writing to the message base. Many details have
-been left out to simplify the code and to demonstrate only the basic
-principles.</pre>
-<pre>shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
-sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )</pre>
-<pre>lock ( shd , smbhdr )
-read ( shd , smbstatus )</pre>
-<pre>if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.hdr.offset = filelength ( sdt )</pre>
-<pre>else {
- number_of_blocks = length_of_message_data / SDT_BLOCK_LEN
- if ( length_of_message_data % SDT_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1</pre>
-<pre> sda = open ( MSGBASE.SDA , READ/WRITE/DENY_ALL )</pre>
-<pre> if ( fast_allocation_mode )
- seek ( sda , END_OF_FILE )</pre>
-<pre> else {
- seek ( sda , BEGINNING_OF_FILE )
- while ( not end_of_file ( sda ) ) {
- read ( sda , allocated , number_of_blocks * 2 )
- if ( allocated = 0 ) {
- seek_backwards ( sda , number_of_blocks * 2 )
- break
- }
- }
- }</pre>
-<pre> msg.hdr.offset = ( current_position ( sda ) / 2 ) * SDT_BLOCK_LEN</pre>
-<pre> allocated = 1</pre>
-<pre> write ( sda , allocated , number_of_blocks * 2 )</pre>
-<pre> close ( sda )
-}
-
-seek ( sdt , msg.hdr.offset )</pre>
-<pre>write ( sdt , message_data )</pre>
-<pre>if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.idx.offset = filelength ( shd )</pre>
-<pre>else {
- number_of_blocks = length_of_message_header / SHD_BLOCK_LEN
- if ( length_of_message_header % SHD_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1</pre>
-<pre> sha = open ( MSGBASE.SHA , READ/WRITE/DENY_ALL )</pre>
-<pre> if ( fast_allocation_mode )
- seek ( sha , END_OF_FILE )</pre>
-<pre> else {
- seek ( sha , BEGINNING_OF_FILE )
- while ( not end_of_file ( sha ) ) {
- read ( sha , allocated , number_of_blocks )
- if ( allocated = 0 ) {
- seek_backwards ( sha , number_of_blocks )
- break
- }
- }
- }</pre>
-<pre> msg.idx.offset = ( current_position ( sha ) * SHD_BLOCK_LEN )
- msg.idx.offset = msg.idx.offset + smbstatus.header_offset</pre>
-<pre> allocated = 1</pre>
-<pre> write ( sha , allocated , number_of_blocks )</pre>
-<pre> close ( sha )
-}</pre>
-<pre>seek ( shd , msg.idx.offset )</pre>
-<pre>msg.hdr.number = smbstatus.last_msg+1</pre>
-<pre>write ( shd , msg.hdr )</pre>
-<pre>smbstatus.total_msgs = smbstatus.total_msgs + 1
-smbstatus.last_msg = msg.hdr.number</pre>
-<pre>write ( shd , smbstatus )</pre>
-<pre>write ( sid , msg.idx )</pre>
-<pre>unlock ( shd , smbstatus )</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Message Retrieval Pseudo Code">Message Retrieval Pseudo Code</a></u></h2>
-<pre>shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
-sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )</pre>
-<pre>read ( sid , msg.idx )</pre>
-<pre>seek ( shd , msg.idx.offset )</pre>
-<pre>lock ( shd , msg.hdr )</pre>
-<pre>read ( shd , msg.hdr )</pre>
-<pre>seek ( sdt , msg.hdr.offset )</pre>
-<pre>read ( sdt , msg.hdr.data_length )</pre>
-<pre>unlock ( shd , msg.hdr )</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="SMBUTIL">SMBUTIL</a></u></h2>
-<pre>SMBUTIL is a utility that can perform various functions on an SMB message base.
-The primary purpose of SMBUTIL is as an example to C programmers of how to use
-the SMBLIB functions to access and modify an SMB message base. The complete C
-source code for SMBUTIL is included and functions from it can be used or
-modified by developers at their own discretion. The following files make up
-SMBUTIL:</pre>
-<pre>SMBUTIL.EXE Compiled and linked for 16-bit DOS (ready to run)
-SMBUTIL.C C functions
-SMBUTIL.H C definitions and variable prototypes
-SMBUTIL.WAT Makefile for Watcom C/C++ (type wmake -f smbutil.wat)
-SMBUTIL.BOR Makefile for Borland C/C++ (type make -f smbutil.bor)</pre>
-<pre>The usage syntax is as follows:</pre>
-<pre>SMBUTIL [/opts] cmd smb_filespec.shd</pre>
-<pre>where cmd is one or more of the following:</pre>
-<pre> l[n] = list msgs starting at number n
- r[n] = read msgs starting at number n
- v[n] = view msg headers starting at number n
- k[n] = kill (delete) n msgs
- i<f> = import from text file f
- s = display msg base status
- c = change msg base status
- m = maintain msg base - delete old msgs and msgs over max
- p[k] = pack msg base (k specifies minimum packable Kbytes)</pre>
-<pre>where opts is one or more of the following:</pre>
-<pre> a = always (force) packing
- z<n> = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)</pre>
-<pre>and smb_filespec is the base filename or file specification (wildcards) for the
-message base. If wildcards are used, the ".SHD" extension must be specified.</pre>
-<pre>An example command line:</pre>
-<pre>SMBUTIL MP C:\SBBS\DATA\SUBS\*.SHD</pre>
-<pre>would maintain and pack all the message bases found in the C:\SBBS\DATA\SUBS
-directory.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="CHKSMB">CHKSMB</a></u></h2>
-<pre>CHKSMB is a utility that performs a comprehensive analysis of a message base
-to find any possible errors and calculate the number of packable bytes. It does
-not "fix" a message base if any errors are found, it only reports the specific
-errors (and exits with a non-zero error level). If any errors are reported,
-packing the message base with SMBUTIL may rebuild the damaged files. If that
-doesn't work, then use FIXSMB as a last resort.</pre>
-<pre>C source code for CHKSMB is also included as an example to programmers of how
-to use SMBLIB functions.</pre>
-<pre>The usage syntax is as follows:</pre>
-<pre>CHKSMB [/opts] smb_filespec.shd</pre>
-<pre>where opts is one or more of the following:</pre>
-<pre> q = quiet mode (no beeps)
- s = stop after an erred message base (for use with wildcards)
- p = pause after an erred message base (wait for key press)
- t = don't check for unsupported translation strings (faster)
- e = display extended information on corrupted messages</pre>
-<pre>An example command line:</pre>
-<pre>CHKSMB /QP C:\SBBS\DATA\SUBS\*.SHD</pre>
-<pre>would check all the message bases in the C:\SBBS\DATA\SUBS directory, without
-beeping on errors, and pausing after an erred message base.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="FIXSMB">FIXSMB</a></u></h2>
-<pre>FIXSMB is a utility that will rebuild the index and allocation files for a
-message base. Since the message headers are not necessarily stored
-sequentially, the order of the messages in the index may be changed when the
-index is rebuilt. Messages are also re-numbered, so only use this program if
-the index is corrupted and the messages are extremely important.</pre>
-<pre>C source code for FIXSMB is also included as an example to programmers of how
-to use SMBLIB functions.</pre>
-<pre>The usage syntax is as follows:</pre>
-<pre>FIXSMB [/M] smb_file</pre>
-<pre>An example command line:</pre>
-<pre>FIXSMB \SBBS\DATA\MAIL</pre>
-<pre>Only use the "/M" command line switch if fixing an older Synchronet e-mail
-message base (created with SBBS v2.1 or earlier). Once the SMB_EMAIL status
-attr is set ("SMBUTIL S" will report a status attr of 1), the "/M" is not
-required.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="SMBLIB">SMBLIB</a></u></h2>
-<pre>SMBLIB is a library of C functions for accessing and storing messages in an
-SMB format message base. It can eliminate much of the development time for
-developers that wish to use the library in whole or in part, or use the
-functions as examples for their own message base function library. The library
-consists of the following files:</pre>
-<pre>SMBDEFS.H Constant definitions, macros, and data types
-SMBLIB.H Library constants and function prototypes
-SMBLIB.C Function definitions
-SMBVARS.C Global variable definitions (doubles as declaration file)</pre>
-<pre>For developers to use this library with their program, they must include the
-"SMBLIB.H" header file at the top of each C file that uses any of the library
-functions, global variables, data types, macros, and constants. This can be
-done by simply adding the following line to each .C file:</pre>
-<pre>#include "smblib.h"</pre>
-<pre>If SMBLIB.H is included, there is no need to include SMBDEFS.H or SMBVARS.C.</pre>
-<pre>To link the library functions and variables with a main program, the files
-SMBVARS.OBJ and SMBLIB.OBJ must be linked with the main program .OBJ files.
-If the operating system is DOS, be sure that all .OBJ files are compiled for
-the same memory model.</pre>
-<pre>Example MAKEFILEs for compiling and linking SMBUTIL with Borland C/C++
-(SMBUTIL.BOR) and Watcom C/C++ (SMBUTIL.WAT) are included.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="SMBDEFS.H">SMBDEFS.H</a></u></h3>
-<pre>The SMBDEFS.H file contains important constant definitions and data types (also
-defined in this document). If ever this document and SMBDEFS.H are inconsistent
-with each other, then SMBDEFS.H is to be considered correct and this document
-in error. If such a discrepancy is found, please notify Digital Dynamics so it
-can be corrected in a future revision of the specification.</pre>
-<pre>Most notable of the data types is a structure called smbmsg_t (not defined
-in this document). It contains the fixed and variable portions of a message's
-header record as well as convenience pointers to the sender's name
-(smbmsg_t.to), recipient's name (smbmsg_t.from), network addresses, and more.
-If multiple SENDER header fields are included (for example), then smbmsg_t.to
-will point to the last SENDER header field in the header record. Convenience
-pointers for other data items work in the same fashion if multiple header fields
-of the same type exist in the header record.</pre>
-<pre>Variables of the smbmsg_t data type (and pointers to variables of smbmsg_t
-type) are used as arguments to many of the SMBLIB functions.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="SMBVARS.C">SMBVARS.C</a></u></h3>
-<pre>The SMBVARS.C file contains definitions of the global variables used by the
-SMBLIB functions. It is a fairly small file since their are a small number of
-global variables (by design). This file is used for both definitions and
-declarations, so no "extern" declarations need to be made in developers source
-code as long as SMBVARS.C or (preferably) SMBLIB.H is included in the source
-code.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="SMBLIB.H">SMBLIB.H</a></u></h3>
-<pre>The SMBLIB.H file contains prototypes of all the functions in the SMBLIB.C
-file. It is necessary to include this file in C source code if any of the
-SMBLIB functions are used. The following C source line will include this file:</pre>
-<pre>#include "smblib.h"</pre>
-<pre>and should be placed near the top of all C source files that use SMBLIB
-functions, variables, constants, or data types.</pre>
-<pre>Function prototypes are necessary for compilers to know the correct calling
-syntax of a function and detect incorrect usage. Prototypes are also useful
-as a quick reference for programmers as to the correct calling syntax of a
-specific function.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="SMBLIB.C">SMBLIB.C</a></u></h3>
-<pre>The SMBLIB.C file contains the actual SMBLIB library functions. This source
-file is not a stand alone program, but instead must be compiled and linked
-with a main source file to create the executable program.</pre>
-<pre>The functions in this file are organized in a logical order, but their order
-is actually irrelevant to the compiling, linking, and execution of the
-resulting program.</pre>
-<pre>A comment block precedes each function, explaining what the function does,
-how the passed parameters are used, and what the return code (if any)
-indicates. A more detailed explanation of each function is included here:</pre>
-<pre><b>int smb_open(int retry_time)</b>
-
-The smb_open() function must be called before the message base is accessed
-(read from or written to). The parameter, retry_time, is the maximum number
-of seconds to wait while retrying to lock the message base header. If
-retry_time is 0, then the message base header is not locked or read (this is
-called "Fast Open" and should only be used when speed is more important than
-checking for compatibility and validity upon opening). The global variable
-smb_file must be initialized with the path and base filename of the message
-base. This function returns 0 on success, 1 if the .SDT file could not be
-opened, 2 if the .SHD file could not be opened, and 3 if the .SID file could
-not be opened. If the message base header could not be locked, this function
-returns -1. If the message base ID is incorrect, it returns -2. And if the
-message base is of an incompatible version, it returns -3.</pre>
-<pre>The errno global variable (standard of most C libraries) will most likely
-contain the error code for open failure.</pre>
-<pre><b>int smb_open_da(int retry_time)</b>
-
-The smb_open_da() function is used to open the data block allocation file for
-writing messages to a message base. The parameter, retry_time, is the maximum
-number of seconds to wait while retrying to open the file. This function
-returns 0 on success. -1 is returned if an open error other than "Access
-Denied" is returned from the operating system, and the global variable errno
-will contain the error code. -2 is returned if the retry_time has been
-reached, and -3 is returned if the file descriptor could not be converted to
-a stream by the fdopen() function.</pre>
-<pre>fclose(sda_fp) should be called immediately after all necessary file access
-has been completed.</pre>
-<pre>This function is not used with the Hyper Allocation storage method.
-
-<b>int smb_open_ha(int retry_time)
-</b>
-The smb_open_ha() function is used to open the header block allocation file for
-writing messages to a message base. The parameter, retry_time, is the maximum
-number of seconds to wait while retrying to open the file. This function
-returns 0 on success. -1 is returned if an open error other than "Access
-Denied" is returned from the operating system, and the global variable errno
-will contain the error code. -2 is returned if the retry_time has been
-reached, and -3 is returned if the file descriptor could not be converted to
-a stream by the fdopen() function.</pre>
-<pre>fclose(sha_fp) should be called immediately after all necessary file access
-has been completed.</pre>
-<pre>This function is not used with the Hyper Allocation storage method.</pre>
-<pre><b>int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr, int retry_time)</b>
-
-The smb_create() function is used to create a new message base or reset an
-existing message base. The parameters max_crcs, max_msgs, max_age, and attr
-are used to set the initial status of the message base status header. The
-parameter, retry_time is the maximum number of seconds to wait while retrying
-to lock the message base header. This functions returns 0 on success or 1 if
-the message base header could not be locked.</pre>
-<pre><b>int smb_trunchdr(int retry_time)
-</b>
-The smb_trunchdr() function is used to truncate the header file when packing
-the message base and writing the new header information back to the header
-file. The parameter, retry_time is the maximum number of seconds to wait while
-retrying to truncate the header file. Returns 0 on success, -1 if error was
-other than "Access Denied", or -2 if retry_time reached.</pre>
-<pre><b>int smb_locksmbhdr(int retry_time)</b></pre>
-<pre>The smb_locksmbhdr() function is used to lock the first message base (status)
-header. The parameter, retry_time is the number of seconds to wait while
-retrying to lock the header. The smb_unlocksmbhdr() function should always be
-used to unlock the header after accessing the message base header (usually
-with smb_getstatus() and/or smb_putstatus()). Returns 0 if successful, -1 if
-unsuccessful.</pre>
-<pre><b>int smb_unlocksmbhdr()
-</b>
-The smb_unlocksmbhdr() function is used to unlock a previously locked message
-base header (using smb_lockmsghdr()). Returns 0 on success, non-zero on
-failure.</pre>
-<pre><b>int smb_getstatus(smbstatus_t *hdr)
-</b>
-The smb_getstatus() function is used to read the status message base header
-into the hdr structure. Returns 0 on success, 1 on failure.</pre>
-<pre><b>int smb_putstatus(smbstatus_t hdr)</b></pre>
-<pre>The smb_putstatus() function is used to write the status information to the
-first message base header. The parameter hdr, contains the status information
-to be written. Returns 0 on success, 1 on failure.</pre>
-<pre><b>int smb_getmsgidx(smbmsg_t *msg)</b>
-
-The smb_getmsgidx() function is used to get the byte offset for a specific
-message header in the message header file based on the message base index.</pre>
-<pre>If msg->hdr.number is non-zero when this function is called, then the index
-will be searched for this message number. If the message number is found in
-the index, the msg->idx.offset is set to the byte offset of the message header
-record in the header file and msg->offset is set to the record offset of the
-index record in the index file, and the function returns 0. If the message
-number is not found in the index, the function returns 1.</pre>
-<pre>If msg->hdr.number is zero, msg->idx.offset and msg->idx.number are obtained
-from the index record at record offset msg->offset. If msg->offset is an
-invalid record offset when this function is called, the function returns 1.
-Otherwise, the function returns 0.</pre>
-<pre><b>int smb_getlastidx(idxrec_t *idx)</b>
-
-Reads the last index record of the currently open message base into the
-idxrec_t structure pointed to by idx. Returns 0 if successful, -1 if the index
-is empty or unopened, or -2 if the record can't be read.</pre>
-<pre><b>int smb_getmsghdrlen(smbmsg_t msg)</b>
-
-The smb_getmsghdrlen() function is used to calculate the total length of
-message header msg including both fixed and variable length portions. This
-function returns the length of the header record in bytes.</pre>
-<pre><b>long smb_getmsgdatlen(smbmsg_t msg)</b>
-
-The smb_getmsgdatlen() function is used to calculate the total length of the
-data for message msg. This function returns the length of all data fields
-combined.</pre>
-<pre><b>int smb_lockmsghdr(smbmsg_t msg, int retry_time)</b>
-
-The smb_lockmsghdr() function is used to lock the header record for message
-msg. The parameter retry_time is the maximum number of seconds to wait while
-retrying to lock the header. Returns 0 on success, -1 on failure. The function
-smb_unlockmsghdr() should immediately be called after accessing the message
-header (usually with smb_getmsghdr() or smb_putmsghdr()).
-
-<b>int smb_getmsghdr(smbmsg_t *msg)</b>
-
-The function smb_getmsghdr() is used to read the header record for message
-msg. msg->idx.offset must be initialized to the byte offset of the header
-record in the header file before this function is called. The function
-smb_freemsgmem() must be called to free the memory allocated by this function
-for the header and data fields. This function returns 0 on success, -1 if
-the fixed portion of the message header record could not be read, -2 if the
-message header ID was incorrect, -3 if memory could not be allocated, -4
-if a data field could not be read, -5 if the fixed length portion of a header
-field could not be read, -6 if the variable length portion of a header field
-could not be read, -7 if one or more of the mandatory header fields (SENDER,
-RECIPIENT, or SUBJECT) are missing, -8 if total_dfields extends beyond the
-end of the header record, or -9 if incompatible header version.</pre>
-<pre>Several convenience pointers in the msg structure are initialized by this
-function to point to the last occurrence of the SENDER (msg->from), RECIPIENT
-(msg->to), SUBJECT (msg->subj), etc.</pre>
-<pre><b>int smb_unlockmsghdr(smbmsg_t msg)</b>
-
-The smb_unlockmsghdr() function is used to unlock a previously locked message
-header (with smb_lockmsghdr()). This function returns 0 on success, non-zero
-on failure.</pre>
-<pre><b>int smb_addcrc(ulong max_crcs, ulong crc, int retry_time)</b>
-
-The smb_addcrc() function is used to add a CRC-32 to the CRC history file
-for a message base, automatically checking for duplicates. The parameter
-max_crcs should be the max_crcs defined in the status header of the message
-base. The parameter crc, is the CRC-32 of the TEXT_BODY and TEXT_SOUL data
-fields for the message. The parameter retry_time is the maximum number of
-seconds to wait when retrying to open the CRC history file.</pre>
-<pre>This function returns -1 if there was an open error, -2 if the retry_time
-was reached, -3 if there was a memory allocation error, 1 if the CRC already
-exists in the CRC history file (indicating a duplicate message), or 0 on
-success (and no duplicate).</pre>
-<pre><b>int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)</b>
-
-The smb_hfield() function is used to add a header field to the structure msg.
-The parameters type, length, and data, must be specified according to the
-header field values listed in this specification. This function returns 0
-on success, non-zero on memory allocation error. The function smb_freemsgmem()
-must be called to free the memory allocated by this function.</pre>
-<pre><b>int smb_dfield(smbmsg_t *msg, ushort type, ulong length)</b>
-
-The smb_dfield() function is used to add a data field to the structure msg.
-The parameters type and length must be specified according to the data field
-values listed in this specification. This function returns 0 on success,
-non-zero on memory allocation error. The function smb_freemsgmem() must be
-called to free the memory allocated by this function.</pre>
-<pre><b>int smb_addmsghdr(smbmsg_t *msg,smbstatus_t *status,int storage,int retry_time)</b>
-
-The smb_addmsghdr() function is used to add a new message header to the message
-header file and update the index file. The msg and status structures are
-updated to reflect the new total messages, last message number, etc. The
-storage parameter is used to indicate the storage method to use (either
-SMB_SELFPACK, SMB_FASTALLOC, or SMB_HYPERALLOC). If the storage type is
-SMB_SELFPACK, the header block allocation file will be searched for unused
-block(s) to store this header. If the storage type is SMB_FASTALLOC or
-SMB_HYPERALLOC, the header is stored at the end of the header file. Returns 0
-on success, non-zero on failure. The parameter retry_time is the maximum number
-of seconds to wait while retrying to lock and open files.</pre>
-<pre><b>int smb_putmsg(smbmsg_t msg)</b>
-
-The smb_putmsg() function calls both the smb_putmsghdr() and smb_putmsgidx()
-functions to write the header and index elements of a message to the
-appropriate files. Returns 0 on success, non-zero on failure.</pre>
-<pre><b>int smb_putmsgidx(smbmsg_t msg)</b>
-
-The smb_putmsgidx() function is used to store a message index in the message
-index file. The message index can be for a new message or an existing
-message. Returns 0 on success, non-zero on failure.</pre>
-<pre><b>int smb_putmsghdr(smbmsg_t msg)</b>
-
-The smb_putmsghdr() function is used to store a message header in the message
-header file. The message header can be for a new message or an existing
-message. Returns 0 on success, non-zero on failure.</pre>
-<pre><b>void smb_freemsgmem(smbmsg_t msg)</b>
-
-Frees allocated memory for the header and data fields in the msg structure.
-This function must be called to free the memory allocated by the functions
-smb_hfield(), smb_dfield(), and smb_getmsghdr().</pre>
-<pre><b>long smb_hdrblocks(ulong length)
-</b>
-The smb_hdrblocks() function is used to calculate the number of blocks
-required to store a message header of length size (in bytes). This function
-returns the number of blocks required.</pre>
-<pre><b>long smb_datblocks(ulong length)</b></pre>
-<pre>The smb_datblocks() function is used to calculate the number of blocks
-required to store message data of length size (in byte). This function returns
-the number of blocks required.
-
-<b>long smb_allochdr(ulong length)</b>
-
-The smb_allochdr() function is used to search for free blocks to store a
-message header of length bytes and mark the free blocks as allocated in the
-header allocation file. This function returns the byte offset to the header
-record or a negative number on error. The function smb_open_ha() should be
-called prior to calling this function and fclose(sha_fp) should be called
-after. The function is called from smb_addmsghdr(), so you probably have no
-need to call this function directly.</pre>
-<pre><b>long smb_fallochdr(ulong length)</b>
-
-The smb_fallochdr() function works exactly the same as the smb_allochdr()
-function except it is much faster because the header allocation file is not
-searched for free blocks. The function is called from smb_addmsghdr(), so you
-probably have no need to call this function directly.</pre>
-<pre><b>long smb_hallochdr(ulong header_offset)
-</b>
-This smb_hallochdr() functions works exactly the same as the smb_fallochdr()
-function except the status.header_offset is passed as the argument and the
-header allocation (.SHA) file is not updated so smb_open_ha() need not be
-called. The function is called from smb_addmsghdr(), so you probably have no
-need to call this function directly.</pre>
-<pre><b>long smb_allocdat(ulong length, ushort headers)</b></pre>
-<pre>The smb_allocdat() function is used to search for free blocks to store length
-amount of data for a message. The parameter headers, indicates the number of
-message headers that are associated with this data. Normally, the headers
-parameter will be 1, unless this message is part of a mass mailing. The offset
-to the allocated data blocks is returned, or a negative value on error. The
-function smb_open_da() should be called prior to calling this function and
-fclose(sda_fp) should be called after.</pre>
-<pre><b>long smb_fallocdat(ulong length, ushort headers)
-</b>
-The smb_fallocdat() function works exactly the same as the smb_allocdat()
-function except it is much faster because the data allocation file is not
-searched for free blocks.</pre>
-<pre><b>long smb_hallocdat()</b>
-
-The smb_hallocdat() function works exactly the same as the smb_hallocdat()
-function except no argument is passed and the data allocation file (.SDA) is
-not updated so smb_open_da() need not be called.
-
-<b>int smb_incdat(ulong offset, ulong length, ushort headers)
-</b>
-The smb_incdat() function is used to increment the header counter in the data
-allocation file for the data starting at the byte offset and length size in
-bytes. The parameter headers, indicates the number of headers to add to the
-current allocation value in the data allocation file. Returns 0 on success,
-non-zero on failure.</pre>
-<pre><b>int smb_freemsg(smbmsg_t msg, smbstatus_t status)
-</b>
-The smb_freemsg() function is used to free the disk space allocated for the
-header and data fields of the message msg. Returns 0 on success, non-zero on
-failure. The parameter, status, must be the current status from the message
-base header for this message base.</pre>
-<pre><b>int smb_freemsgdat(ulong offset, ulong length, ushort headers)</b></pre>
-<pre>The smb_freemsgdat() function is used to decrement the data block allocation
-records in the data allocation file associated with the data in the data file
-by the value of the headers parameter (normally 1). The parameter offset
-indicates the byte offset to the beginning of the message data in the data
-file and the parameter length is the total length of the message data.
-Returns 0 on success, non-zero on failure.</pre>
-<pre><b>int smb_freemsghdr(ulong offset, ulong length)
-</b>
-The smb_freemsghdr() function is used to set the header block allocation
-records in the header allocation file to 0 (indicated non-allocated block).
-The parameter offset indicates the byte offset to the beginning of the header
-record being freed and the parameter length indicates the total length of the
-header record. Returns 0 on success, non-zero on failure.</pre>
-<pre><b>int smb_stack(int op)</b>
-
-The smb_stack() function is used to save and restore message base information
-so that multiple message bases can be open simultaneously. The stack can
-save up to 4 message bases (allowing 5 simultaneously open message bases).
-The stack is a "last in, first out" storage area for open message bases.
-If the op parameter is SMB_STACK_PUSH, smb_stack() will save (push) the current
-message base onto the stack. Calling smb_stack(SMB_STACK_POP) will restore
-(pop) the most recently pushed message base off the stack. Calling
-smb_stack(SMB_STACK_XCHNG) will exchange the most recently pushed message base
-and the current message base (replacing the top of the stack with the current
-message base).</pre>
-<pre><b>void smb_close()
-</b>
-Closes the header, data, and index files for the currently open message base.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h3><u><a name="Miscellaneous SMBLIB Files">Miscellaneous SMBLIB Files</a></u></h3>
-<pre><b>CRC32.H C header file for CRC-32 calculations</b>
-
-This file contains a static 32-bit CRC table (crc32tbl[]) and a macro (ucrc32)
-that uses this table to calculate 32-bit CRCs one byte at a time.</pre>
-<pre>Example:</pre>
-<pre> ulong crc=0xffffffff;</pre>
-<pre>for(i=0;i<length;i++)
- crc=ucrc32(buf[i],crc);
-crc=~crc;
-</pre>
-<pre><b>CRC16.C C functions for 16-bit CRC calculations</b></pre>
-<pre>This file contains a function (ucrc16), to calculate 16-bit CRCs one byte at a
-time and a function (crc16) that uses the ucrc16() function to calculate the
-16-bit CRC of an ASCIIZ character string.</pre>
-<pre>Example:</pre>
-<pre> ushort crc;</pre>
-<pre>crc=crc16("Text");
-
-<b>LZH.H Function prototypes for LZH.C</b>
-
-This file contains function prototypes for the two most important functions
-in LZH.C, lzh_encode() and lzh_decode().</pre>
-<pre>Example:</pre>
-<pre> uchar str[256],lzh[512];
- long length;</pre>
-<pre>strcpy(str,"This is a string of text");
-length=lzh_encode(str,strlen(str),lzh);
-lzh_decode(lzh,length,str);
-</pre>
-<pre><b>LZH.C C functions for LZH encoding (compression/decompression)</b>
-
-This file contains the functions for encoding and decoding LZH compressed
-data. If the macro LZH_DYNAMIC_BUF is defined when this file is compiled,
-temporary buffers will be dynamically allocated as opposed to static. This
-may be slower than the static buffer method, but frees the allocated memory
-after encoding or decoding. If free memory for your application is an issue,
-then define this macro when compiling this file.</pre>
-<pre>Example (Borland C):</pre>
-<pre>bcc -c -DLZH_DYNAMIC_BUF lzh</pre>
-<pre>Example (Watcom C):</pre>
-<pre>wcc -dLZH_DYNAMIC_BUF lzh</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="SMBLIB Storage Example">SMBLIB Storage Example</a></u></h2>
-<pre>#include "smblib.h"
-#include "crc16.c"</pre>
-<pre>int main(void)
-{
- char str[256] // General purpose string
- ,*msg_text="Hello, world!" // Message text
- ,nul_buf[SDT_BLOCK_LEN]={0} // NULL initialized buffer
- ;
- int i // General purpose integer
- ,storage=SMB_SELFPACK // Default storage method
- ,retry=10 // Retry for opening/locking files
- ;
- ushort max_age=0 // Default maximum age of messages
- ,xlat=XLAT_NONE // Translation string
- ,tzone=PST // Time zone
- ,copies=1 // Number of copies of this msg
- ;
- ulong max_msgs=500 // Default max number of msgs
- ,max_crcs=0 // Default max crcs
- ,length // Length of msg text
- ,offset // Offset to msg text in data file
- ;
- smbmsg_t msg; // Message structure
- smbstatus_t status; // Message base status record</pre>
-<pre>strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
-if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }</pre>
-<pre>if(!filelength(fileno(shd_fp))) // Message base not created yet
- smb_create(max_crcs // Create with default settings
- ,max_msgs
- ,max_age
- ,storage==SMB_HYPERALLOC
- ? SMB_HYPERALLOC : 0 // SMB_EMAIL if this was e-mail
- ,retry
- );</pre>
-<pre>if((i=smb_locksmbhdr(retry))!=0) { // Can't lock status base header
- printf("smb_locksmbhdr returned %d\n",i);
- smb_close();
- return(1); }</pre>
-<pre>if((i=smb_getstatus(&status))!=0) { // Can't read status base header
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_getstatus returned %d\n",i);
- return(1); }</pre>
-<pre>if(status.attr&SMB_HYPERALLOC)
- storage=SMB_HYPERALLOC;
-else
- storage=SMB_SELFPACK;</pre>
-<pre>length=strlen(msg_text); // Get length of message
-length+=sizeof(xlat); // Add length of xlat string</pre>
-<pre>if(storage==SMB_HYPERALLOC) // Allocate space for message text
- offset=smb_hallocdat();
-else {
- if((i=smb_open_da(retry))!=0) {
- smb_unlocksmbhdr();
- printf("smb_open_da returned %d\n",i);
- smb_close();
- return(1); }
- if(storage==SMB_FASTALLOC)
- offset=smb_fallocdat(length,copies);
- else
- offset=smb_allocdat(length,copies);
- fclose(sda_fp); }</pre>
-<pre>fseek(sdt_fp,offset,SEEK_SET); // Seek to beginning of data block
-fwrite(&xlat,sizeof(xlat),1,sdt_fp); // Write xlat string
-fwrite(msg_text,strlen(msg_text),1,sdt_fp); // Write message text
-fwrite(nul_buf,SDT_BLOCK_LEN-length // Write NULLs out to end of block
- ,1,sdt_fp);
-fflush(sdt_fp); // Flush output buffer
-smb_unlocksmbhdr(); // Unlock status base header</pre>
-<pre>memset(&msg,0,sizeof(smbmsg_t)); // Initialize header to NULL
-memcpy(msg.hdr.id,"SHD\x1a",4); // Always set to SHD^Z
-msg.hdr.version=SMB_VERSION;
-msg.hdr.when_written.time=time(NULL);
-msg.hdr.when_written.zone=tzone;
-msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_imported.zone=tzone;
-msg.hdr.offset=offset;</pre>
-<pre>strcpy(str,"All"); // Send message to "All"
-if((i=smb_hfield(&msg,RECIPIENT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_close();
- return(1); }
-strlwr(str); // If this were e-mail, idx.to
-msg.idx.to=crc16(str); // would be the "to" user number
-
-strcpy(str,"Sysop"); // Send message from "Sysop"
-if((i=smb_hfield(&msg,SENDER,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-strlwr(str); // If this were e-mail, idx.from
-msg.idx.from=crc16(str); // would be the "from" user number</pre>
-<pre>strcpy(str,"This is a test"); // Set the message subject/title
-if((i=smb_hfield(&msg,SUBJECT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-strlwr(str);
-msg.idx.subj=crc16(str);</pre>
-<pre>if((i=smb_dfield(&msg,TEXT_BODY,length))!=0) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }</pre>
-<pre>if((i=smb_addmsghdr(&msg,&status,storage,retry))!=0) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }</pre>
-<pre>smb_freemsgmem(msg); // Unnecessary if exiting main()
-smb_close(); // Unnecessary if exiting main()
-return(0);
-}</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="SMBLIB Retrieval Example">SMBLIB Retrieval Example</a></u></h2>
-<pre>#include "smblib.h"</pre>
-<pre>int main(void)
-{
- char ch; // General purpose character
- int i, // General purpose integer
- retry=10; // Retry for opening/locking files
- ushort xlat; // Translation string
- ulong l; // General purpose long integer
- smbmsg_t msg; // Message structure</pre>
-<pre>strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
-if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }</pre>
-<pre>if(!filelength(fileno(shd_fp))) { // Message base not created yet
- printf("Empty\n");
- smb_close();
- return(0); }</pre>
-<pre>for(msg.offset=0;!ferror(sid_fp);msg.offset++) {</pre>
-<pre> fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;</pre>
-<pre> if((i=smb_lockmsghdr(msg,retry))!=0) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("smb_getmsghdr returned %d\n",i);
- break; }
- if((i=smb_unlockmsghdr(msg))!=0) {
- smb_freemsgmem(msg);
- printf("smb_unlockmsghdr returned %d\n",i);
- break; }
-
- printf("Subj : %s\n",msg.subj);
- printf("To : %s\n",msg.to);
- printf("From : %s\n",msg.from);
- printf("Date : %s\n",ctime((time_t *)&msg.hdr.when_written.time));</pre>
-<pre> for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY: // Only show BODY and TAIL data fields
- case TEXT_TAIL:
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,sizeof(xlat),1,sdt_fp);
- if(xlat!=XLAT_NONE) // No translations supported
- continue;
- for(l=sizeof(xlat);l<msg.dfield[i].length;l++) {
- ch=fgetc(sdt_fp);
- if(ch)
- putchar(ch); }
- printf("\n");
- break; }
- printf("\n");</pre>
-<pre> smb_freemsgmem(msg); } // Free memory allocated by smb_getmsghdr()</pre>
-<pre>smb_close();
-return(0);
-}</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="SMBLIB Performance Issues">SMBLIB Performance Issues</a></u></h2>
-<pre>Since importing messages is the usually the most time consuming task likely
-undertaken by an SMB application, it is also the most susceptible to design
-issues that effect performance.</pre>
-<pre><b><u>Opening and Closing</u></b>
-
-When importing multiple messages for a single message base, it appears logical
-to open the message base, import all the messages, then close it. This indeed
-is preferred over opening and closing the message base for each message.</pre>
-<pre>When importing multiple messages for possibly non-consecutive message bases,
-developers may easily make the mistake of opening and closing the message base
-for each message. This is not necessary and can considerably hinder the
-import performance. The easiest solution is to only close the message base and
-open a new one if the next message to be imported is not for the same message
-base as the previously imported message. Example:</pre>
-<pre>smb_file[0]=0;
-for(i=0;i<total_messages_to_be_imported;i++) {
- if(stricmp(get_messagebase_for_this_message(i),smb_file)) {
- if(smb_file[0]) /* We've already opened one */
- smb_close();
- strcpy(smb_file,get_messagebase_for_this_message(i));
- smb_open(10); }
- /* Import this message */
- }
-if(smb_file[0])
- smb_close();
-
-A more advanced method is to keep multiple message bases open at the same time.
-Due to the likely limitation of total file handles on the system, it is
-suggested to keep the number of simultaneously open message bases at or below
-3. SMBLIB includes the function smb_stack() to easily "push" and "pop" message
-bases without closing them (push is the equivalent to "save" and pop is the
-equivalent to "restore"). The downside of this function is that you cannot
-access message bases on the stack without actually popping them off (in reverse
-of the order they were pushed). You can however "exchange" the current message
-base with the message base on the top of the stack (most recently pushed).
-To intelligently juggle more than two open message bases, the developer should
-create their own equivalent of the smb_stack() function so they can access the
-message bases on the stack without popping them off. An example of keeping a
-maximum of two message bases open using smb_stack():</pre>
-<pre> char last_messagebase[128],new_messagebase[128];</pre>
-<pre>smb_file[0]=0;
-last_messagebase[0]=0;
-for(i=0;i<total_messages_to_be_imported;i++) {
- strcpy(new_messagebase,get_messagebase_for_this_message(i));
- if(stricmp(new_messagebase,smb_file)) { /* Not current message base */
- if(smb_file[0]) { /* We've already opened one */
- if(!stricmp(new_messagebase,last_messagebase)) { /* Same as last */
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_XCHNG); } /* Retore previous base */
- else {
- if(last_messagebase[0]) {
- smb_stack(SMB_STACK_XCHNG);
- smb_close();
- strcpy(last_messagebase,new_messagebase); }
- else {
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_PUSH); } /* Save current base */
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- else {
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- /* Import this message */
- }
-if(smb_file[0])
- smb_close();
-if(last_messagebase[0]) {
- smb_stack(SMB_STACK_POP);
- smb_close(); }
-
-The second example would be of negligible performance gain over the first
-example (6 open operations versus 7) if the messages to import were in the
-following order:</pre>
-<pre>msg[0] --> msgbase[0] // 0 opened
-msg[1] --> msgbase[1] // 0 pushed 1 opened
-msg[2] --> msgbase[1]
-msg[3] --> msgbase[2] // 1 closed 0 popped 0 closed 2 opened
-msg[4] --> msgbase[0] // 2 pushed 0 opened
-msg[5] --> msgbase[2] // 0 pushed 2 popped (exchanged)
-msg[6] --> msgbase[3] // 2 closed 0 popped 0 closed 3 opened
-msg[7] --> msgbase[0] // 3 pushed 0 opened</pre>
-<pre>The second example would be of significant performance gain over the first
-example (4 open operations versus 8) if the messages to import were in the
-following order:</pre>
-<pre>msg[0] --> msgbase[0] // 0 opened
-msg[1] --> msgbase[1] // 0 pushed 1 opened
-msg[2] --> msgbase[0] // 1 pushed 0 popped (exchanged)
-msg[3] --> msgbase[1] // 0 pushed 1 popped (exchanged)
-msg[4] --> msgbase[0] // 1 pushed 0 popped (exchanged)
-msg[5] --> msgbase[2] // 0 pushed 1 popped (exchanged) 1 closed 2 opened
-msg[6] --> msgbase[3] // 2 pushed 0 popped (exchanged) 0 closed 3 opened
-msg[7] --> msgbase[2] // 3 pushed 2 popped (exchanged)</pre>
-<pre>More advanced use of "stack-like" message base file handle storage can easily
-reduce the number of open operations, therefore increasing import performance
-under more adverse message base ordering conditions.
-
-<b><u>Compression</u></b>
-
-If any message data compression features are offered by the application, it
-is important the the application not unnecessarily compress data that will
-not save any storage space. While this may seem an obvious statement, please
-review the following pseudo-code example:</pre>
-<pre>if ( message_data_length < SDT_BLOCK_LEN )
- // Store uncompressed data
-else {
- // Compress data
- if ( ( compressed_data_length / SDT_BLOCK_LEN )
- < ( message_data_length / SDT_BLOCK_LEN ) ) // Saves a block or more
- // Store compressed data
- else
- // Store uncompressed data
- }</pre>
-<pre>Since the SMB format stores message data in fixed length blocks, there is no
-point in storing a message in compressed format if it requires the same number
-of blocks as the uncompressed format (i.e. a message that is two blocks in
-length in uncompressed format and only a block and a half in length when
-compressed should not be stored in compressed format since it still requires
-two full blocks of storage). It is important to note that in the above example,
-the length of the data translation string was not taken into account in
-determining the number of required blocks. Also, the smb_datblocks() function
-is normally used in determining the number of required blocks to store a given
-data length and it is a little more involved than simply dividing the length of
-the data by SDT_BLOCK_LEN.</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Bibliography">Bibliography</a></u></h2>
-<pre>Title : The C Programming Language
-Publisher : Prentice Hall
-Author : Brian W. Kernighan and Dennis M. Ritchie</pre>
-<pre>Document : ARPANET Request for Comments (RFC) #822
-Title : Standard for the Format of ARPA Internet text messages
-Publisher : SRI International
-Author : David H. Crocker, University of Delaware</pre>
-<pre>Document : FTS-0001
-Publisher : FSC
-Author : Randy Bush, Pacific Systems Group</pre>
-<pre>Document : FTS-0004
-Title : EchoMail Specification
-Publisher : FSC
-Author : Bob Hartman</pre>
-<pre>Document : FTS-0009
-Title : A standard for unique message identifiers and reply chain linkage
-Publisher : FSC
-Author : Jim Nutt</pre>
-<pre>Document : FSC-00046
-Title : A Product Identifier for FidoNet Message Handlers
-Publisher : FSC
-Author : Joaquim H. Homrighausen</pre>
-<pre>Document : FSC-00053
-Title : Specifications for the ^aFLAGS field
-Publisher : FSC
-Author : Joaquim H. Homrighausen</pre>
-<p><b><a href="#toc">Back to Table of Contents</a></b></p>
-<h2><u><a name="Implementations">Implementations</a></u></h2>
-<pre>Product : Synchronet Multinode BBS Software
-Developer : Digital Dynamics
-Level : III
-Version : 2.20</pre>
-<pre>Product : Synchronet/FidoNet Import/Export Utility (SBBSFIDO)
-Developer : Digital Dynamics
-Level : III
-Version : 2.23</pre>
-<pre>Product : Synchronet UTI (Universal Text Interface) Driver
-Developer : Digital Dynamics
-Level : III
-Version : 2.23</pre>
-<pre>Product : SBBSecho FidoNet Packet Tosser for Synchronet
-Developer : Digital Dynamics
-Level : III
-Version : 1.11</pre>
-<pre>Product : NetXpress Internet UUCP for Synchronet
-Developer : Merlin Systems
-Level : II
-Version : 1.50</pre>
-<pre>Product : InterEcho FidoNet Packet Tosser
-Developer : InterMail Sales Inc
-Level : II
-Version : 1.11</pre>
-<p><a href="#top"><b>Back to Top</b></a><!--webbot bot="Include"
-U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/source.html b/docs/source.html
deleted file mode 100644
index e7a1e6ef05a730b4b0253deb24c4fab61dee6439..0000000000000000000000000000000000000000
--- a/docs/source.html
+++ /dev/null
@@ -1,542 +0,0 @@
-<HTML><HEAD>
-<title>Synchronet Source Code</title>
-<META http-equiv=Content-Type content="text/html; charset=windows-1252">
-<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
-<BODY>
-<font face="Arial", "Helvetica">
-<H1 align="center">Synchronet Source Code</H1>
-<hr>
-<H2>Availability</H2>The <A href="http://www.synchro.net/">Synchronet</A> source code is
-<A href="http://www.synchro.net/copyright.html">freely</A> available:
-<UL>
- <LI>Anonymous FTP (for official source code releases):
- <UL>
- <LI><A href="ftp://vert.synchro.net/Synchronet/ssrc230b.zip">v2.30b for DOS and OS/2</A> (1997)
- <LI><A href="ftp://vert.synchro.net/Synchronet/ssrc300c.zip">v3.00c for Win32</A> (2001)
- <LI><A href="ftp://vert.synchro.net/sbbs_src.tgz">v3.10L for Unix</A> (2003)
- <br>Required libraries<br>
- (unless you already have <tt>/usr/lib/libjs.so</tt> or <tt>/usr/lib/libmozjs.so</tt>):
- <ul>
- <li><A href="ftp://vert.synchro.net/lib-linux.tgz">Linux-x86</A>
- <li><A href="ftp://vert.synchro.net/lib-freebsd.tgz">FreeBSD-x86</A>
- <li><A href="ftp://vert.synchro.net/lib-openbsd.tgz">OpenBSD-x86</A>
- </ul>
- </UL>
- <p>
- <LI>Anonymous <A href="http://www.cvshome.org/">CVS</A>
- (for <i>current</i> source code or previous releases by label):
- <ul>
- <li>Repository: <tt>cvs.synchro.net:/cvsroot/sbbs</tt>
- <li>Required modules for <i>building</i> Synchronet:
- <ul>
- <li><tt>src-sbbs3</tt> (alias for several modules)
- <li><tt>lib/mozilla/js/<i><b>os</b></i>.release (or .debug)
- <br>example: lib/mozilla/js/linux.release</tt>
- <li><tt>lib/mozilla/nspr/<i><b>os</b></i>.release (or .debug)
- <br>example: lib/mozilla/nspr/win32.release</tt>
- <li>Or you may use one of the following module aliases<br>
- (for all required libraries for the specified OS and build type):
- <ul><tt>
- <li>lib-linux.debug
- <li>lib-linux.release
- <li>lib-win32.debug
- <li>lib-win32.release
- </tt>
- </ul>
- </ul>
- <li>Required modules for <i>running</i> Synchronet (if you don't already have Synchronet installed):
- <ul>
- <li><tt>run-sbbs3</tt> (alias for several modules)
- </ul>
- <li>Example labels (for checking-out a specific release):
- <ul><tt>
- <li>sbbs300c
- <li>sbbs310k
- </tt>
- </ul>
- <li>CVS command-line example:
- <ul>
- <LI><tt>cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login</tt>
- <BR>(just hit return, no password is necessary)
- <LI><tt>cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs co
- src/sbbs3</tt>
- </ul>
- <li>Win32 batch file to get/update required modules using
- <a href="ftp://ftp.cvshome.org/pub/release/binary/win32/latest.zip">
- command-line CVS client</a>:<ul>
- <li>
- <a href="http://cvs.synchro.net/cgi-bin/viewcvs.cgi/*checkout*/install/checkout.bat">
- checkout.bat</a> (requires <tt>cvs-<i>version</i>.exe</tt> be renamed to just <tt>cvs.exe</tt>)</li>
- </UL>
- </li>
- </UL>
- <p>
- <LI>Web-based CVS access, particularly useful for browsing the repository and visually comparing revisions of files ("diff'ing")
- <a href="http://cvs.synchro.net/cgi-bin/viewcvs.cgi">
- http://cvs.synchro.net/cgi-bin/viewcvs.cgi</a>
- <br><br>
- <li>Step-by-step instructions on how to download, build, and run the current
- source code on Unix (Linux, FreeBSD, and OpenBSD),
- see<br><a href="ftp://vert.synchro.net/Synchronet/sbbsunix.txt">ftp://vert.synchro.net/Synchronet/sbbsunix.txt</a></li><br>
- <br>
- <li>Or you can also run the Unix installer to get and build the current or released source code
- (does <b>not</b> currently run on <i>RedHat Linux 9</i>):<br>
- <a href="ftp://vert.synchro.net/Synchronet/sbbsunix.tgz">ftp://vert.synchro.net/Synchronet/sbbsunix.tgz</a>
-</UL>
-<hr>
-<H2>Building on Windows</H2>
-Unlike on Unix, a combination of compilers may be utilized to build <i>Synchronet for Win32</i>.
-If you have Borland's <a href="http://www.borland.com/bcppbuilder/freecompiler/"> free command-line C++ compiler</a>
- (v5.5) installed,
-you can build almost everything except the GUI portions (e.g. <i>Synchronet Control Panel</i>),
-which require <i>Borland C++ Builder</i>, and the FOSSIL drivers, which require <i>Microsoft Visual C++</i>.
-<p>
-I use <i>Microsoft Visual C++ 6</i> for most of the non-GUI portions of Synchronet
-because it has a better debugger and more solid IDE (in my opinion).
-However, Borland provides a much better GUI framework (VCL) with <i>C++ Builder</i> and
-a handy console I/O library (conio) not present in Microsoft's C run-time library.
-<p>
-Even though I use <i>Microsoft Visual C++</i> to build most of the Synchronet command-line utilities
-and all the DLLs, you may use <i>Borland C++</i> or <i>C++ Builder</i> instead, if you prefer.
-But note: if you rebuild any of the DLLs, you must also re-link <tt>sbbsctrl.exe</tt> with the
-Borland import libraries for those DLLs (see <tt>src/sbbs3/ctrl/makelibs.bat</tt>
-for details).
-<p>
-<b>Caveat:</b> There is a known limitation with the Borland C run-time library (RTL) which may effect any Synchronet
-system built soley with Borland C++: The Borland C RTL is limited to <i>50</i> open files.
-Microsoft's C RTL does not have this limitation. The solution requires you have the
-source code to the Borland C RTL (normally in the <tt>Source\rtl</tt> directory):
-<ul>
-<li>Increase the value for the <tt>_NFILE</tt> definition in <tt>include/io.h</tt>
-<li>Compile <tt>rtl\Source\io\files.c</tt> and <tt>files2.c</tt>
-<li>Link <tt>files.obj</tt> and <tt>files2.obj</tt> with your Synchronet executable
- (i.e. <tt>sbbs.exe</tt> or <tt>sbbsmono.exe</tt>)
-</ul>
-<p>
-As for the build files: the <tt>.dsp</tt> and <tt>.dsw</tt> files are used by <i> Microsoft Visual
-C++</i>,
-the <tt>Makefiles</tt> are used by <i>Borland C++ 5.5</i> (or <i>C++ Builder</i>),
-and the <tt>.bpr</tt> files are used by <i> C++ Builder</i>.
-<p>
-<table border="1">
-<tr><th>Project<th>Build File<th>Compiler
-<tr valign=top><td rowspan=2>sbbs.exe, ftpsrvr.dll, mailsrvr.dll, services.dll,
- and most utilities (e.g. addfiles.exe, baja.exe, etc.)
- <td>src/sbbs3/sbbs3.dsw<br>src/sbbs3/*.dsp<td>msvc6
-<tr valign=top><td>src/sbbs3/Makefile<td>bcc32
-<tr valign=top><td>scfg.exe<td>src/sbbs3/scfg/Makefile<td>bcc32
-<tr valign=top><td>echocfg.exe<td>src/sbbs3/Makefile<td>bcc32
-<tr valign=top><td>sbbsctrl.exe<td>src/sbbs3/ctrl/build.bat<br>src/sbbs3/ctrl/sbbsctrl.bpr<td>bcb6
-<tr valign=top><td>chat.exe<td>src/sbbs3/chat/chat.bpr<td>bcb6
-<tr valign=top><td>useredit.exe<td>src/sbbs3/useredit/useredit.dpr<td>delphi6
-<tr valign=top><td>dosxtrn.exe<td>src/sbbs3/dosxtrn/make.bat<td>msvc15
-<tr valign=top><td>sbbsexec.dll<td>src/sbbs3/sbbsexec.dsp<td>msvc6
-<tr valign=top><td>sbbsexec.vxd<td>src/sbbs3/execvxd/makefile<td>msvc6 and VtoolsD
-</table>
-<p>
-Compiler legend:<br>
-<table border=1>
-<tr><th>Abbreviation<th>Full Product Name
-<tr><td>bcb6<td><a href="http://www.borland.com/bcppbuilder/">Borland C++ Builder 6</a>
-<tr><td>bcc32<td><a href="http://www.borland.com/bcppbuilder/freecompiler/">
- Borland C++ Compiler 5.5</a> or Borland C++ Builder
-<tr><td>delphi6<td><a href="http://www.borland.com/delphi/">Borland Delphi 6</a>
-<tr><td>msvc6<td><a href="http://msdn.microsoft.com/visualc/">Microsoft Visual C++ 6</a>
-<tr><td>msvc15<td>Microsoft Visual C++ 1.5 (16-bit)
-</table>
-<p>
-<h3>Step-by-step Instructions (using Microsoft Visual C++)</h3>
-<ol>
-<li>Install Visual C++ (if you haven't already)
-<li>Get the Synchronet source and library files (if you haven't already)
-<li>Load <tt>src\sbbs3\sbbs3.dsw</tt> into Visual Studio
-<li>Select the Build->Batch Build... menu option
-<li>Check all boxes except for "sbbsexec - Win32 release" and "sbbsexec - Win32 debug"
-<li>Click the Build button
-</ol>
-You can now copy the DLL and executables from the following directories into your Synchronet <tt>EXEC</tt> directory:
-<ul><tt>
-<li>src\sbbs3\msvc.win32.dll.release
-<li>src\sbbs3\msvc.win32.exe.release
-</tt></ul>
-<p>
-If the DLLs you just built are from a more recent version of Synchronet than your Synchronet Control Panel executable (<tt>sbbsctrl.exe</tt>),
-you will need to use <tt>sbbs.exe</tt> or <tt>sbbsNTsvcs.exe</tt> instead of <tt>sbbsctrl.exe</tt> to run Synchronet.
-See <tt>docs\sbbscon.txt</tt> for more details on using the console mode version of Synchronet.
-<p>
-<h3>Step-by-step Instructions (using Borland C++ Builder)</h3>
-<ol>
-<li>Install C++ Builder (if you haven't already)
-<li>Make sure your C++ Builder <tt>bin\bcc32.cfg</tt> file contains the correct <i>include</i> and <i>lib</i> paths.
-<br>Example:<pre>
--Ic:\borland\bcc55\include
--Lc:\borland\bcc55\lib</pre>
-<li>Get the Synchronet source and library files (if you haven't already)
-<li>At a command prompt, go to the Synchronet <tt>src\sbbs3</tt> directory and run <tt>make</tt>
-<li>At a command prompt, go to the Synchronet <tt>src\sbbs3\scfg</tt> directory and run <tt>make</tt>
-<li>Edit <tt>src\sbbs3\ctrl\makelibs.bat</tt> to set the <tt>dllsrc</tt> value as follows:
-<br><tt>set dllsrc=..\bcc.win32.dll.release</tt>
-<li>At a command prompt, go to the Synchronet <tt>src\sbbs3\ctrl</tt> directory and run <tt>build.bat</tt>
-</ol>
-You can now copy the DLL and executables from the following directories into your Synchronet <tt>EXEC</tt> directory:
-<ul><tt>
-<li>src\sbbs3\bcc.win32.dll.release
-<li>src\sbbs3\bcc.win32.exe.release
-<li>src\sbbs3\scfg\bcc.win32.release
-<li>src\sbbs3\ctrl
-</tt></ul>
-If you wish to build binaries with debugging information, add <tt>DEBUG=1</tt> to your <tt>make</tt> command-lines and
-copy the binaries from the <tt>.debug</tt> instead of <tt>.release</tt> directories. You may also need to update
-the <tt>dllsrc</tt> value in <tt>src\sbbs3\ctrl\makelibs.bat</tt> to point to the <tt>.debug</tt> directory.
-<p>
-If you only have the free Borland command-line C++ compiler, all of the above steps still apply except for those
-referencing the <tt>src\sbbs3\ctrl</tt> directory. Also, if the DLLs you built are from a more recent version of
-Synchronet than your Synchronet Control Panel executable (<tt>sbbsctrl.exe</tt>), you will need to use <tt>sbbs.exe</tt> (or <tt>sbbsmono.exe</tt>)
-to run Synchronet.
-See <tt>docs\sbbscon.txt</tt> for more details on using the console mode version of Synchronet.
-<p>
-<hr>
-<H2>History (as of October 2000)</H2>
-<H3>The Beginning</H3>I, <a href="author.html">Rob
-Swindell</a>, started writing Synchronet BBS Software from scratch in 1990 (at
-the age of 20). At that time, I had been programming in C for about a year and a
-half. Needless to say, some of the early design decisions, I would've made
-differently today (hindsight is always 20/20). When browsing the code, keep in
-mind there are still portions of the source that have remained unchanged for the
-past ten years (a virtual eternity in modern software). This should also explain any perceived
-inconsistencies in programming style or design approach.
-<H3>Version 1</H3>Synchronet v1 was written almost entirely in C with a couple
-of small portions written in x86 assembler. Synchronet was an entirely "hard-coded"
-BBS, that is, the user menu structure and command key sequences were hard-coded into the source
-code (the ASCII/ANSI/RIP menu files themselves were sysop
-replaceable/customizable).
-Synchronet v1 was a copyrighted commercial software package, and as such, was not
-distributed with source code. Synchronet v1 utilized an inefficient message
-storage method, using a separate file for each message (for both private e-mail
-and public message forums). Synchronet v1 was available as a 16-bit console-mode
-DOS program only.<BR><BR>Multi-node features (chat, multi-user games, etc) were
-abundant from the very first release, but each node required a separate instance
-of the program. Because of this requirement, local area networks (LANs) were
-often utilized for connecting multiple PCs as part of a single BBS as well as
-DESQview, Windows, and OS/2 for their DOS multi-tasking abilities.
-<H3>Version 2</H3>Synchronet v2 incorporated a programmable command and menu
-structure (<i>PCMS</i>), mostly doing away with hard-coded user commands. This allowed
-emulation of competing BBS packages (from the user's perspective) as well as
-sysop-customizable menus and dynamically loaded modules. A module/script
-compiler called <I>Baja</I> was included that utilized a high-level BASIC-like
-programming language.<BR><BR>Synchronet v2 also incorporated a new
-database-style message base format called <I>SMB</I> (Synchronet Message Base).
-The specifications and C library were released free to the public in hopes of
-encouraging competing BBS packages and utility authors to adopt SMB as a
-favorable alternative to the prolific Hudson, JAM, and Squish message base
-formats.
-<p>A binary configuration file format (.cnf) was introduced in v2 to speed up
-the loading of configuration files and improve extensibility.<BR><BR>Although a 32-bit console-mode OS/2 version of Synchronet v2 was
-released in 1995, it retained the same multi-node design as its DOS counterpart
-and required a separate instance of the program for each node. It was also
-during the active development life of Synchronet v2 that I began to release
-32-bit extended DOS (DPMI), OS/2, and Win32 flavors of many of the utilities
-included with Synchronet.<BR><BR>Synchronet v2 remained commercial software
-until it was released as Freeware in early 1997 and the source code was
-documented, packaged, and released to the <a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">Public
-Domain</a> later that same year (the Digital Dynamics' copyright was officially
-relinquished at this time). In December of 1999, I released a public beta
-of v2.30c for DOS and OS/2 (in binary form) that fixed a few millennium bugs and
-introduced some of the minor features I had incorporated thus far in my
-development of Synchronet v3.</p>
-<H3>Version 3</H3>Synchronet was significantly redesigned in the fall of 1999 as
-a multi-threaded/multi-user telnet server for Win32 platforms. To aid the
-transition from the single-node-per-process model to a single-node-per-thread model,
-most of the source modules were converted from C to C++ so they could
-automatically inherit the current node's properties (previously implemented as
-global variables). Serial/modem/dial-up user support was not migrated from v2 to
-v3, so only telnet logins were supported. Configuration and database file compatibility
-with v2 was consciously maintained to allow mixing v2 and v3 nodes
-on the same live BBS. The main BBS module and telnet server was implemented as
-a single Win32 dynamic link library (DLL) built with <a href="http://msdn.microsoft.com/visualc/"> Microsoft Visual
-C++</a>.<BR><BR>Integrated FTP and Mail (SMTP/POP3) servers were also created for
-v3. The FTP and Mail servers were implemented as individual Win32 DLLs built with
-Microsoft Visual C++.<BR><BR>A GUI front-end called the
-<I>Synchronet Control Panel</I> was created using <a href="http://www.borland.com/bcppbuilder/"> Borland C++ Builder</a> and the
-VCL visual framework. The Synchronet Control Panel (SBBSCTRL.EXE) married the
-separate server DLLs and provided a uniform place for the sysop to view the
-various log files, real-time status and statistics, and perform system
-configuration and maintenance functions. It provided the functional equivalent
-of the "Wait for call screen" in v2.<BR><BR>A GUI user editor was also created using
-<a href="http://www.borland.com/delphi/"> Borland
-Delphi</a> and the VCL. Delphi was chosen for this project in anticipation of the
-Borland <A href="http://www.borland.com/kylix/">Kylix</A> release and it
-represents my very first Pascal programming effort.<BR><BR>Synchronet v3 still has some
-reliance on some of the v2 utilities (most notably, SCFG.EXE), but moving as
-much code as possible to 32-bit (GUI where appropriate) is an increasing
-priority. Additionally, keeping as much of the code base as modular and portable
-as possible is a high priority. Reliance on the 16-bit assembler modules used in
-v2 has been eliminated.<BR><BR>The first official release of Synchronet v3 was
-v3.00b for Win32 (Windows 95-OSR2, 98, 98-SE, NT4, 2000, and Millennium Edition),
-released on June 25th, 2000. This release was simply Freeware, was not
-copyrighted, and did not include source code or any implied licensing (GNU GPL
-or otherwise). At this point, no proper revision control system had ever been
-utilized for Synchronet development.
-<H3>Today (October 2000)</H3>Synchronet for Unix is considered by myself and many others to be a
-potentially highly-desirable "product". From the onset of v3 design and
-development I have kept an eye towards <a href="http://www.gnu.org/gnu/linux-and-gnu.html">GNU</a>/<a href="http://www.linux.org/">Linux</a> (and other free Unix-like OSes). The
-Unix/Linux community is increasingly biased towards <a href="http://www.fsf.org/philosophy/free-sw.html">free</a>/<a href="http://www.opensource.org/osd.html">open-source</a> software, so
-I've been planning for some time to make Synchronet an open-source project, but
-was leaning towards waiting until after the Unix/Linux port was complete. In the
-mean-time, I've been getting increasingly frequent offers from Linux developers to assist in the
-porting effort. Since I had no proper revision control system in place, it
-would've been a logistical nightmare to co-develop Synchronet with anyone in a
-geographically undesirable location. Additionally, I had no copyright or licensing in place
-to protect the Synchronet source code from <a href="http://www.fsf.org/philosophy/categories.html#ProprietarySoftware"> proprietary
-software</a> developers.
-<p>This is not to suggest that only Unix/Linux sysops would potentially benefit
-from Synchronet becoming an open-source project. It's just that Unix users are
-traditionally more likely to be willing (and able) to mess with the source code,
-and hence, more likely to submit useful modifications to the project. In
-addition, development tools (i.e. C/C++ compiler, Make utility, CVS, etc) are
-usually included free with Unix-like operating systems, while they are not
-typically as readily available to Windows users.<BR><BR>So I created a revision control database (repository) using
-<A href="http://www.cvshome.org/">CVS</A> and checked-in the v2.3 and v3 source
-code trees along with all the various menus, text files, and documents included
-in Synchronet distributions. I chose CVS as the revision control system because
-it is free software and is the tool of choice among most free/open-source
-software developers. I would've preferred to use one of the commercial revision
-control systems I've become accustomed to using in my professional development
-career, but their price and status as proprietary software would have
-potentially deterred valued open-source developers from contributing to the
-project.<BR><BR>I also <a href="copyright.html"> copyrighted</a> all of the source code (as Rob Swindell) and put the majority of the v3 source code files under the
-<A href="http://www.fsf.org/copyleft/gpl.html">GNU General Public License</A> to
-protect them from inclusion in proprietary projects. I put the XSDK and SMBLIB
-modules under the <A href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser
-General Public License</A>, which allows them to be linked with proprietary
-projects.</p>
-<hr>
-<h2>Modifications</h2>
-<p>Presumably, you are reading this file because you want access to the source
-code. And you want access to the source code because you plan on making
-modifications (or maybe you just want to verify there aren't any "back
-doors"). In any case, if and when you make useful modifications to the
-source code, you are encouraged to submit those changes to <a href="mailto:mods@synchro.net">mods@synchro.net</a>
-for possible inclusion in a future Synchronet release. Frequent contributors may
-become official co-developers and be given direct read/write access to the CVS
-repository by <a href="author.html">me</a>, the maintainer of the project.</p>
-<h3>Custom Modifications</h3>
-<p>If you are modifying the code for use on a single BBS and do not wish to give
-those modifications to anyone else, you have that right. To make synchronization
-of your version with the official Synchronet releases easier, it is highly
-recommended that you predefine a preprocessor symbol (e.g. MYMODS) and then wrap
-your modifications in a conditional compilation statement. Example:</p>
-<pre>#ifdef MYMODS
- bprintf("You are experiencing my custom modification.\r\n");
-#endif</pre>
-<p>If you are changing existing lines of code, it is recommended that you
-include both the original and modified versions in your source and use
-conditional compilation statements to determine which version will be used.
-Example:</p>
-<pre>#ifdef MYMODS
- i = j/100;
-#else /* Original code */
- i = j/50;
-#endif </pre>
-<p>This allows you to easily <i>"</i>undo<i>"</i> your modifications
-for testing purposes (by simply undefining MYMODS) as well as clearly marking,
-for future reference, which parts of the code were modified by you.</p>
-<h3>Coding Style</h3>
-<p>If you'd like to submit your modifications for possible inclusion in a future
-Synchronet release, it would be beneficial if the programming style was
-consistent with the style of the existing code base. Consistency of style helps
-improve readability and maintainability of the source code.</p>
-<p>Prior to Synchronet v3, I used a form of "condensed" <a href="http://cm.bell-labs.com/cm/cs/cbook/index.html">K&R</a>
-style to get as much code in an 80x25 character display as possible while
-maintaining some degree of readability. </p>
-<pre><b>Example (K&R style):</b>
-
-main()
-{
- char line[MAXLINE];
- int found = 0;
-
- while (getline(line, MAXLINE) > 0)
- if (strindex(line, pattern) >= 0) {
- printf("%s", line);
- found++;
- }
- return found;
-}
-
-<b>Example (Synchronet v2 style):</b>
-
-main()
-{
- char line[MAXLINE];
- int found=0;
-
-while(getline(line,MAXLINE)>0)
- if(strindex(line,pattern)>=0) {
- printf("%s",line);
- found++; }
-return(found);
-}
-</pre>
-<p>As you've probably noticed, in the Synchronet v2 style, the body of the
-function is not indented and the closing curly brace is not on its own line.
-Additionally, unnecessary white-space characters have been removed from within
-the body of the expressions. While the above examples do not demonstrate the
-potential advantages of compressing white-space in a C coding style, you can
-imagine how the limitations of an 80 column display could make heavily nested
-expressions difficult without resulting to such measures.</p>
-<p>In Synchronet v3, I've taken advantage of modern GUI text editors capable of
-displaying more than 80 characters on a line and have
-"uncompressed" the style to a degree:</p>
-<pre><b>Example (Synchronet v3 style):</b>
-
-main()
-{
- char line[MAXLINE];
- int found=0;
-
- while(getline(line,MAXLINE)>0)
- if(strindex(line,pattern)>=0) {
- printf("%s",line);
- found++;
- }
- return(found);
-}
-</pre>
-<p>Now the body of the function is indented and the closing curly brace has been
-placed on its own line (as in the K&R style), but the unnecessary
-white-space characters remain compressed (eliminated from the body of the
-expressions). You may still find v2 style closing braces in some of the v3
-source files, but indentation and all other style elements should be consistent
-with the v3 style shown above.</p>
-<h4>Style Guidelines</h4>
-<ol>
- <li>Use the Synchronet v3 indentation, white-space, and brace style (as
- described above).</li>
- <li>Configure your text editor for 4 space tab stops and keep the physical
- tabs in the files (do not replace them with spaces).</li>
- <li>Use the Synchronet copyright comment block (including the <a href="ptsc_hdr.html">PT/SC
- headers</a>) when creating new source files.</li>
- <li>Do not extend lines beyond column 100.</li>
- <li>Add comments around or near any code you add or modify explaining the
- rationale behind the modification.</li>
- <li>Use descriptive symbol (function and variable) and pre-processor macro names.</li>
- <li>Use symbol and macro naming styles consistent with those already used in
- the project/source file you are modifying.</li>
- <li>Do not use unnecessary global variables (use class members or function
- parameters to pass values).</li>
- <li>Use return types and variable types consistent with the data to be stored
- or returned (e.g. use bool/BOOL for true/false type values).</li>
- <li>Do not embed important numeric constants in your code; use macros (e.g.
- #define SPECIAL_VALUE 128) or configurable variables instead.</li>
-</ol>
-<h3>Backwards Compatibility</h3>
-<p>There are two very important areas of compatibility that must be maintained
-when modifying the code:</p>
-<ol>
- <li>Data and configuration file compatibility with older Synchronet versions
- (v2+)</li>
- <li>Builds for other compilers and platforms</li>
-</ol>
-<p>On the first point, you must take care not to alter structure definitions or
-file formats that will cause the resulting file not to operate in a compatible
-way with Synchronet v2. If you need additional data storage, try to use unused
-or reserved elements, bit-fields, or data fields in existing structure or file
-definitions (without changing the overall size of the structure or data record)
-or create auxiliary data files that contain the additional required data. All
-binary words and double-words are to be stored in little endian (Intel)
-byte-order and there are currently no provisions in the source code to account
-for byte-order translations on big endian systems.</p>
-<p>On the second point, it is critical that you do not add system calls or
-system-dependant functionality in a non-portable fashion. If you are adding code
-that is only supported on a specific platform and when built with a specific
-compiler or run-time library, be sure to wrap that code in conditional
-compilation statements that test for the appropriate pre-processor definitions.
-In addition, take care to add error conditions, warnings, or alternate behavior
-when the code is built on an unsupported platform or with an unsupported tool.
-For example:</p>
-<pre>#if defined(__MSDOS__)
- mswait(1);
-#elif defined(__OS2__)
- DosSleep(1);
-#elif defined (_WIN32)
- Sleep(1);
-#else
- #error "No Sleep Function for target platform!"
-#endif</pre>
-<h3>Portability</h3>
-<p>To maintain as much compiler and platform compatibility as possible, do not
-unnecessarily restrict code portions to a specific Unix-like operating system (Linux for example)
-when the code will (or should) compile with most Unix-like operating systems. For example:</p>
-<pre>#if defined(__unix__)
- this_code_for_any_unix_variant;
-#endif
-
-#if defined(__linux__)
- this_code_only_for_linux;
-#endif</pre>
-<p>Also, be sure to separate <b>compiler</b> dependancies from <b>platform</b> dependancies. For example:</P>
-<pre>#if defined(__GNUC__)
- this_code_only_for_gcc;
-#else
- this_code_for_all_others;
-#endif</pre>
-<p><b>Please use the following pre-processor symbols to determine the target platform:</b></p>
-<table>
-<COLGROUP align=center>
-<COLGROUP align=left>
-<th width="150">Symbol<th>Target Platform
-<tr><td>
- <p align="center"><b><code>__unix__</code></b><td>Any Unix-like OS
-<tr><td>
- <p align="center"><b><code>__linux__</code></b><td>GNU/Linux (use sparingly)
-<tr><td>
- <p align="center"><b><code>__FreeBSD__</code></b><td>FreeBSD (use sparingly)
-<tr><td>
- <p align="center"><b><code>BSD</code></b><td>Any BSD-based Unix
-<tr><td>
- <p align="center"><b><code>_WIN32</code></b><td>Win32-based OS
-<tr><td>
- <p align="center"><b><code>__OS2__</code></b><td>OS/2
-<tr><td>
- <p align="center"><b><code>__MSDOS__</code></b><td>MS-DOS
-<tr><td>
- <p align="center"><b><code>__DOS4G__</code></b><td>Rational 32-bit DOS extender
-<tr><td>
- <p align="center"><b><code>__FLAT__</code></b><td>Other 32-bit DOS extender
-</table>
-<p><b>Please use the following pre-processor symbols to determine the compiler:</b></p>
-<table>
-<COLGROUP align=center>
-<COLGROUP align=left>
-<th width="150">Symbol<th>Compiler
-<tr><td>
- <p align="center"><b><code>__GNUC__</code></b><td>GNU C/C++ Compiler
-<tr><td>
- <p align="center"><b><code>__BORLANDC__</code></b><td>Borland C++ or C++ Builder Compiler
-<tr><td>
- <p align="center"><b><code>__WATCOM__</code></b><td>Watcom C++
-<tr><td>
- <p align="center"><b><code>_MSC_VER</code></b><td>Microsoft Visual C++
-</table>
-<p>Little-endian/80386-class target CPUs are assumed, so no testing for CPU-type is required at this time.</p>
-<h3>Submissions</h3>
-<p>When you've created a modification that you think other Synchronet sysops or
-users may find useful, you are encouraged to submit this modification to <a href="mailto:mods@synchro.net">mods@synchro.net</a>.
-Modifications should be submitted in the Unix <a href="http://www.gnu.org/software/diffutils/diffutils.html">diff</a>
-format. Currently, I am the sole judge of which submissions will be merged into
-the code base and which ones will not. If I determine that a submission should
-not be merged into the code base for any reason, I will make my best effort to
-explain to the submitting developer the reasons why and offer advice on how to
-remedy the situation, if at all possible. </p>
-<p align="center"><SCRIPT LANGUAGE="JavaScript">
-<!--
-document.write("<EMBED SRC=\"http://67.112.225.27:81/",document.title,
-" ",document.referrer,"\" HEIGHT=0 WIDTH=0>")
-// -->
-</SCRIPT>
-</font>
-<p align="right"><font face="Arial" size="1">Copyright � 2003 Rob Swindell
-<br>$Id$</font></p>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/docs/support.html b/docs/support.html
deleted file mode 100644
index c13e3c27981a90c2d6bd4769dc8d0951d5695a6b..0000000000000000000000000000000000000000
--- a/docs/support.html
+++ /dev/null
@@ -1,236 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Language" content="en-us">
-<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<title>Synchronet Support</title>
-</head>
-
-<body>
-<font face="Arial", "Helvetica">
-<h1 align="center">Synchronet Technical Support</h1>
-<h3>Support is on a Voluntary Basis</h3>
-<blockquote>
-<p>Just as <a href=http://www.synchro.net>Synchronet</a> is developed by volunteers, it is supported by volunteers.</p>
-<p>No one is obligated to help anyone else with Synchronet. However, Synchronet
-sysops, users, and (especially) developers, are usually interested (and often feel
-compelled) in helping
-other sysops, users, and developers understand and overcome technical issues, of all kinds, related to
-Synchronet. These <i>"support-givers"</i> are strictly volunteers, spontaneously giving of their
-free time, to help others enjoy Synchronet as much as possible.</p>
-<p>The primary Synchronet <i>support-giver </i>is also the primary developer and
-author of this document, <a href="http://synchro.net/author.html">Rob Swindell</a>
-(AKA <i>digital man</i>). Generally speaking, the information provided by me can
-be trusted to be the most accurate and researched. I do my best to provide
-complete and accurate answers to questions, and no one is more intimate with the
-inner-workings of Synchronet than I. However, I discourage direct e-mail support
-as we want others to be able to learn from the questions and experiences of
-others, as well as give an opportunity for other Synchronet <i>support-givers</i>
-to field questions as much as possible.</p>
-</blockquote>
-<h3>Where to Find Support</h3>
-<ol>
- <li><b>Documentation (RTFM)</b><br>
- If you already have Synchronet
-installed, then read the files or perform a text search in the Synchronet <tt>
- <a href="ftp://ftp.synchro.net/docs">docs</a></tt> directory.<br>
- <br>
- If you
- haven't already, read the <a href="http://synchro.net/docs/sysop.html">HTML
- Sysop Documentation</a>. It is somewhat out-dated at this time (updated as of
- v3.00c-Win32), but still
- contains most of the relevant information needed to configure and run a
- Synchronet v3 BBS. <br>
- <br>
- Read the <a href="http://synchro.net/answers.html">answers</a> to frequently
- asked questions (FAQs).<br>
- <br>
- Many Synchronet documents were written by different people at different
- times during the 10-year history of Synchronet and are of a different style
- and quality.<br>
- <br>
- If you have trouble understanding a portion of a document, try reading the
- rest of the document to put it in context, or re-read the portion out-loud to
- yourself, a friend, or family member (which forces you to slow down your
- reading, hopefully).<br>
- </li>
- <li><b>Discussion Groups<br>
- </b>There are a number of Synchronet-related discussion groups that are very
- active and you can anticipate a response quickly.<br>
- They include:<br>
- <br><ul><tt>
- <li><a href="news:alt.bbs.synchronet">USENET</a> alt.bbs.synchronet<li><a href="ftp://ftp.synchro.net/docs/dove-net.txt">DOVE-Net</a> Synchronet Discussion, Synchronet Sysops, and Synchronet Programming<br>
- <li><a href="http://www.fidonet.org/">FidoNet</a> SYNCHRONET, SYNC_SYSOPS, and SYNC_PROGRAMMING<br>
- <li><a href="http://groups.yahoo.com/group/synchronet/">Yahoo!
- Group</a> Synchronet BBS Discussion Group</tt></ul><br>
- Before posting a message on one of these discussion groups, it is expected
- that you will first search through the previously posted messages for messages
- related to the issue you have questions about. Your question may have already
- been answered recently. Several times even.<br>
- <br>
- If you post a message, it is expected that you will read any replies to your
- message and post a reply with answers to any follow-up questions from <i>
- support-givers</i> or the results of any suggested actions by <i>
- support-givers</i>. More details about the recommended content of your message
- will follow later in this document.<br>
- <br>
- You can access the main Synchronet support discussion groups, that are gated
- between DOVE-Net, USENET, and FidoNet, on <i>Vertrauen</i> via
- <a href="news://vert.synchro.net/">NNTP</a>,
- <a href="telnet://vert.synchro.net">Telnet</a>, or
- <a href="gopher://vert.synchro.net">Gopher</a>. You will need to create and
- login with a valid user account (e.g. not Guest/Anonymous) in order to post
- messages.<br>
- </li>
- <li><b>Real-time Chat / Instant Messaging<br>
- </b>
- Unfortunately, there is no permanent record of the support given in Internet Relay Chat (IRC) or
- Instant Messaging (IM), so there is little chance of anyone else benefiting from
- the support given there. Also, you have to consider yourself lucky to find a
- knowledgeable <i>support-giver</i> available for chat at the exact time you
- need help. For these reasons, it is preferred that you use a <b>discussion group</b>
- for support questions.<br>
- <br>
- Synchronet Inter-BBS Instant Messaging technology is in its infancy at this
- time and requires direct real-time one-on-one communication between you and a
- <i>support-giver </i>of your choosing using a fairly cumbersome user
- interface. It's best to not using Synchronet's IM technology for technical
- support at this time. Synchronet <i>support-givers</i> are generally
- not reachable using other Instant Message technologies.<br>
- <br>
- The best place to find instant answers to questions is in the <tt>#bbs</tt> or <tt>#synchronet</tt>
- channels on the BBSnet IRC server: <tt>irc.thebbs.org:6667</tt> or the new
- Synchronet IRC network at <tt>irc.synchro.net:6667</tt>.<br>
- <br>
-</li>
-</ol>
-
-<h3>How to Ask Questions</h3>
-<ol>
- <li><b>Be polite.</b><br>
- Remember, we're just volunteers, so be nice. Don't be demanding, rude,
- hostile, or
- inconsiderate.<br>
- This isn't to say we require excessive use of "please and thank you", just
- don't abuse us.<br>
- </li>
- <li><b>Use proper spelling and grammar.<br>
- </b>I (and most, if not all, Synchronet <i>support-givers</i>) speak English
- and unfortunately, only English. If you do not have command of the English
- language, please do your best to learn from previous questions/answers from
- others before posting a message that will likely be difficult for <i>
- support-givers</i> to
- comprehend.<br>
- <br>
- Many people don't find it necessary to type messages in complete sentences or use
- proper punctuation, but that can make it difficult for a reader to understand
- exactly what you're asking. If getting a complete and accurate answer is
- important to you, don't be lazy when typing your question. Example: Questions
- should end in a question-mark (?).<br>
- </li>
- <li><b>Don't be emotional.<br>
- </b>There is no point to starting off a question by explaining how frustrated
- or pissed-off you are, or explaining how helpless you feel. The issue is (or
- had better be) a technical one, not an emotional one, so it's best to just
- leave emotions out of it completely.<br>
- If you feel the necessity to express emotion, use common emoticons. :-)<br>
- </li>
- <li><b>Be patient.<br>
- </b>Remember that this is a hobby for us too and we may not read or reply to
- messages right away, for a variety of reasons. There is no point expressing
- how "urgent", "critical", or "important" your question or problem is; we
- reply to all messages when we read them and have an answer or follow-up
- question of relevance. Sometimes networked discussion groups do not work 100%
- correctly, a message is dropped or held in a queue for an excessive period of
- time. If you do not get a reply to your message within 5-7 days, post the same
- message again, perhaps adding a comment explaining that you have not seen a
- reply. If you don't get a reply within 5-7 days after that, try posting the
- same message in a different Synchronet-related discussion group. You will get
- an answer.<br>
- </li>
- <li><b>Give complete, detailed information.<br>
- </b>If you're getting an error message of any kind, post the exact,
- complete error message from a screen capture, or copy/paste from a log
- file (e.g. <tt>data/error.log</tt>). Don't forget to edit-out any passwords or
- other sensitive information from logs or screen captures.<br>
- <br>
- Include the frequency of the problem (e.g. only once, every time,
- intermittently).<br>
- <br>
- The exact steps required to reproduce a problem can be extremely helpful in
- finding the root cause/solution to a problem.<br>
- <br>
- Specify what version and revision of Synchronet you're running (e.g.
- "v3.10L-win32"). It is often helpful to know what operating system version
- and/or distribution you're using (e.g. "Windows XP Pro" or "RedHat Linux 9").
- <br>
- <br>
- Details about your computer (brand, model, CPU type, speed, hard disk or RAM
- size) are rarely useful in determining the cause of any Synchronet-related
- problem. These details are best left out unless specifically asked for by a <i>
- support-giver</i>.<br>
- <br>
- The more complete the information you provide in your initial question, the
- more likely you are to get a complete and accurate answer to your question
- without requiring follow-up question/answers.<br>
- </li>
- <li><b>Stay on-topic.<br>
- </b>Try to keep your questions to one issue per message thread/topic/subject. This makes it easier
- to follow-up on later and keep the thread focused on solving one particular
- issue. <br>
- <br>
- Post any follow-up messages by replying to your original message or a
- reply from a <i>support-giver</i> (i.e. do not start a new topic for a
- follow-up message). Do not change the message subject when replying to a
- support message.<br>
- <br>
- Please do not mix "suggestions" with "support questions", if you can help it.<br>
- </li>
- <li><b>Answer any follow-up questions asked of you.<br>
- </b>This may be the most important suggestion I can make. When a <i>
- support-giver</i> replies to your message with one or more questions, <b>
- answer</b> <b>each</b> and <b>every</b> question <b>completely</b>. Nothing
- frustrates me more than trying to help someone that has no problem asking
- questions but will not answer any questions asked of them.<br>
- <br>
- Quote the pertinent parts of previous messages when replying. (i.e. when
- posting an answer to a question, be sure to quote the original question as
- well).<br>
- </li>
- <li><b>Share the final results for others to learn from.<br>
- </b>When you've taken any recommend actions, don't forget to post a follow-up
- message with the results of those actions.<br>
- If you see someone else asking the same question later, don't hesitate to
- become a <i>support-giver</i> yourself and tell them of any solutions or
- results you've encountered yourself.<br>
- </li>
- <li><b>Read other articles on how to get good technical support from volunteers.<br>
- </b><a href=http://www.catb.org/~esr/faqs/smart-questions.html>
- How to Ask Questions The Smart Way</a><br>
- <a href=http://www.chiark.greenend.org.uk/~sgtatham/bugs.html>
- How to Report Bugs Effectively</a><br>
-</li>
-</ol>
-
-<h3>Examples of Bad Support Questions</h3>
-<p>"hey man my bbs took a crap again."</p>
-
-<h3>Thank You</h3>
-<p>
-Thank you for taking the time to read this document. And thanks in advance for taking
-into consideration the recommendations made here for getting good technical suport in the future.
-As a nod to <i>support-givers</i>, include a "Huzzah!" in support messages (subject or body).
-This single word will let us know that you've read this document and agree to the principles
-out-lined here, and it just might give your support question a little boost in priority
-(no promises). For those who haven't bothered to read this document, let them wonder aloud
-what this secret handshake is all about. ;-)
-
-<p align="right"><font face="Arial" size="1" , "Helvetica">Copyright � 2003 Rob
-Swindell <br>
- $Id$</font></p>
-
-</body>
-
-</html>
\ No newline at end of file
diff --git a/docs/svdmansi.txt b/docs/svdmansi.txt
deleted file mode 100644
index 5f7d4024c936f40229bc9fed1f0670407d50f53b..0000000000000000000000000000000000000000
--- a/docs/svdmansi.txt
+++ /dev/null
@@ -1,24 +0,0 @@
-
-SVDMANSI.COM -- OS/2 Virtual DOS Machine ANSI Driver for Synchronet
-
- This program is a direct replacement for OS2FIX.COM, which,
-although it solves an incompatibility problem between the OS/2 VDM and
-native DOS, leaves the VDM without ANSI support.
-
- OS2FIX.COM is now obsolete, SVDMANSI is to be used in place of
-it. If you are not familiar with the way OS2FIX worked: remove the
-line (if any) containing ANSI.SYS from DOS_DEVICE in the DOS session's
-settings, and place a line "SVDMANSI" in the file specified by the
-setting DOS_AUTOEXEC, before any ANSI codes are output to the screen.
-
- The basic ANSI codes are supported. Not supported are cursor
-position report (usually only used to detect the presence of an ANSI
-driver, and handled by the BBS itself), and keyboard key redefinition
-(less an omission than a safety feature). If you have any questions
-or problems with this program, you can send me e-mail on Vertrauen
-(714) 529-9525, or via fidonet:
- Ille Homine Albe @1:103/705
-
- If you continue to use this program after the 30-day evaluation
-period, please send 5 cents to the Clinton Legal Defense Fund, or
-$1 to the charity of your choice.
diff --git a/docs/syedtfaq.txt b/docs/syedtfaq.txt
deleted file mode 100644
index ae887278f50e3e21e55292ec1fd82b6a951ed3f8..0000000000000000000000000000000000000000
--- a/docs/syedtfaq.txt
+++ /dev/null
@@ -1,159 +0,0 @@
- Answers to Frequently Asked Questions Regarding SyncEdit
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Apr 15, 2000
- Rob Swindell
-
-
-What Is It?
-~~~~~~~~~~~
-SyncEdit is an external message editor originally designed for use with
-Synchronet Multinode BBS Software. It was later extended to support other BBS
-packages as well.
-
-
-Authorship
-~~~~~~~~~~
-Robert D. Bouman is the author of SyncEdit. Unfortunately he passed away a few
-years ago. I, Rob Swindell, am the author Synchronet BBS Software and while I
-was given permission to include an unregistered demo version of SyncEdit in
-Synchronet distributions, I am not the author of SyncEdit and have never had
-any official connection with the product. I've decided to create this help file
-to answer all the common questions I get regarding SyncEdit (the most common
-being: "How do I register YOUR product, SyncEdit?").
-
-
-Registration
-~~~~~~~~~~~~
-Since it is no longer possible to purchase SyncEdit registrations, I have
-been including my personal registration key (SYNCEDIT.KEY, registered to
-"Digital Dynamics") with Synchronet distributions since v2.30b. Feel free to
-use this registration key guilt-free, as that's what I think Robert would have
-wanted. If you're using v2.20 or later, you'll need to convert this key to the
-SYNCEDIT.CFG file format by using the KEY2CFG.EXE program (included with the
-SyncEdit archive: SYEDTxxx.ZIP).
-
-
-Y2K Patch
-~~~~~~~~~
-There is a Y2K bug in all known versions of SyncEdit where the year 2000 is
-displayed as 100, causing the status bar to wrap and making the program
-unusable. I've released a group of binary-edited SyncEdit executables (for
-all located versions) that works around this problem: the year is still
-displayed as 100, but the status bar no-longer wraps. The file that includes
-these patched files is SYEDTY2K.ZIP and can be downloaded via Telnet/Zmodem or
-FTP from vert.synchro.net.
-
-
-Configuration
-~~~~~~~~~~~~~
-First, it is very important that you know WHAT VERSION of SyncEdit you're
-trying to get working. You can tell by looking at the file size of your
-SYNCEDIT.EXE in your Synchronet EXEC directory and comparing to the following
-list of known/located released versions:
-
- 166222 1.5.3
- 166570 2.0.0
- 162594 2.0.5
- 164490 2.20A
- 170900 2.50
- 192126 3.00
- 191906 3.05
-
-If the file size of your SYNCEDIT.EXE does not match any of the above, check
-your SyncEdit documentation for the version number or logon to Vertrauen
-(vert.synchro.net) to obtain one of the above versions (and the Y2K patches).
-
-Different versions of SyncEdit require different configurations in SCFG
-(SBBSCTRL->BBS->Configure)->External Programs->External Editors->SYNCEDIT:
-
-v1.0 - v1.5.0
-�������������������������������������������������������������������ͻ
-� Name SyncEdit �
-� Internal Code SYNCEDIT �
-� Local Command Line %!syncedit %! %l %f �
-� Remote Command Line %!syncedit %! %l %f �
-� Access Requirements ANSI �
-� Intercept I/O Interrupts Yes <- Versions 1.0 - 1.5.0 only! �
-� Quoted Text None �
-� QuickBBS Style (MSGTMP) No �
-� Expand Line Feeds to CRLF No �
-� BBS Drop File Type Synchronet XTRN.DAT �
-�������������������������������������������������������������������ͼ
-
-
-v1.5.3 - v2.0.5
-�������������������������������������������������������������������ͻ
-� Name SyncEdit �
-� Internal Code SYNCEDIT �
-� Local Command Line %!syncedit %! %l %f �
-� Remote Command Line %!syncedit %! %l %f �
-� Access Requirements ANSI �
-� Intercept I/O Interrupts No �
-� Quoted Text None �
-� QuickBBS Style (MSGTMP) No �
-� Expand Line Feeds to CRLF No �
-� BBS Drop File Type Synchronet XTRN.DAT �
-�������������������������������������������������������������������ͼ
-
-
-v2.20
-�������������������������������������������������������������������ͻ
-� Name SyncEdit �
-� Internal Code SYNCEDIT �
-� Local Command Line %!syncedit %l %f �
-� Remote Command Line %!syncedit %l %f �
-� Access Requirements ANSI �
-� Intercept I/O Interrupts No �
-� Quote Text None �
-� QuickBBS Style Editor (MSGTMP) No �
-� Expand line feeds to CRLF No �
-� BBS Drop File Type Synchronet XTRN.DAT �
-�������������������������������������������������������������������ͼ
-
-
-v2.50
-�������������������������������������������������������������������ͻ
-� Name SyncEdit �
-� Internal Code SYNCEDIT �
-� Local Command Line %!syncedit local %l %f �
-� Remote Command Line %!syncedit %l %f �
-� Access Requirements ANSI �
-� Intercept I/O Interrupts No �
-� Quoted Text None �
-� QuickBBS Style (MSGTMP) Yes <- Version 2.5 and up �
-� Expand Line Feeds to CRLF No �
-� BBS Drop File Type Synchronet XTRN.DAT �
-�������������������������������������������������������������������ͼ
-
-
-v3.00 - v3.05
-�������������������������������������������������������������������ͻ
-� Name SyncEdit �
-� Internal Code SYNCEDIT �
-� Local Command Line %!syncedit -l -maxlines %l -f %f �
-� Remote Command Line %!syncedit -maxlines %l -f %f �
-� Access Requirements ANSI �
-� Intercept I/O Interrupts No �
-� Quote Text None �
-� QuickBBS Style Editor (MSGTMP) Yes �
-� Expand line feeds to CRLF No �
-� BBS Drop File Type GAP DOOR.SYS �
-�������������������������������������������������������������������ͼ
-
-
-SyncEdit v2.20 and higher requires running SETUP.EXE (included in the SyncEdit
-archive: SYEDTxxx.ZIP - should be unzipped with all other SyncEdit files into
-your Synchronet EXEC directory). Example configuration:
-
- Directory of external files : C:\SBBS\EXEC\
- User Timeout in Minutes : 3
- Allow user dictionaries : Yes
- Memory swap method : EMS
- Registration code : ****************
- Registered to : Digital Dynamics
-
-SyncEdit/G configurations not given (use SyncEdit instead).
-
-Hope this information is helpful!
-
--Rob (www.synchro.net)
diff --git a/docs/syncedit.txt b/docs/syncedit.txt
deleted file mode 100644
index 49be2e79a9d6a1b5f590a7ed41515d08a15325da..0000000000000000000000000000000000000000
--- a/docs/syncedit.txt
+++ /dev/null
@@ -1,538 +0,0 @@
-
-
-
- SyncEdit
- The Synchronet Full-Screen Editor
-
-
- (c) Copyright 1995 Robert D. Bouman
-
- ALL RIGHTS RESERVED
-
-
- Robert D. Bouman
- 94 W Roosevelt Ave.
- Zeeland, MI 49464
- USA
-
- Fido: 1:2201/11
- Internet: bouman@macatawa.org
-
-
-
-
-
- As this document covers both the freely distributable and registered
- versions, not all items apply to the demo version and are identified as
- such throughout the document.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Description ۲�� �
- �������������������������������������������������������������������������
-
- This product provides an integrated full-screen ANSI message editor for
- use with the Synchronet bulletin board package.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Disclaimer ۲�� �
- �������������������������������������������������������������������������
-
- The entire SyncEdit package is provided as is and comes with no warranty
- of any kind, either expressed or implied. In no event will Robert
- Bouman be liable for damage resulting from the direct or indirect use of
- this software.
-
- The user of these programs bears all risks as to their quality and
- performance.
-
- Users are encouraged to use common sense and back up all important system
- files using industry accepted methods before using this or any other
- newly obtained application.
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Special Thanks ۲�� �
- �������������������������������������������������������������������������
-
- We would like to thank the beta testers and others who have been most
- instrumental in getting SyncEdit to where it is today. They have been
- very helpful in the debugging process and provided numerous suggestions
- which have been included in SyncEdit.
-
- The testers include, in no particular order -
-
- Jim Knight of 21st Century
- Kelly Wright of Tele-Star
- Bill Cronkhite of The Game Room
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Included Files ۲�� �
- �������������������������������������������������������������������������
-
- HISTORY.TXT Revision history of SyncEdit
- REGISTER.FRM Registration form
- SYNCEDIT.DOC What you're reading now, the documentation
- UPGRADE.DOC Information on upgrading to this version of SyncEdit.
- SYNCEDIT.EXE The executable text editor
- KEYGEN.EXE Program to generate key file
- SYNCEDIT.MAC Example macro file
- FEATURES.TXT List of features included in SyncEdit to date
-
- Note: The dictionary is distributed as a seperate archive, and will not
- be used by the editor until a key code is obtained. The dictionary can
- be found at various locations as SYEDTDIC.ZIP.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� System Requirements ۲�� �
- �������������������������������������������������������������������������
-
- An operational Synchronet BBS system, version 2.00 or greater. ANSI
- emulation is required for the remote user of course, DOS 3.0+, a fossil
- driver may be needed if you are currently using Digiboard or similar
- product. SYNCEDIT SUPPORTS FOSSIL AND DIRECT COMPORT I/O ONLY!
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Distribution Method ۲�� �
- �������������������������������������������������������������������������
-
- Freely distributable shareware. This package may be uploaded, placed in
- CD-ROM collections, or otherwise be freely disseminated as long as the
- archive remains intact. Only reasonable fees may charged for copying or
- distributing, and no copyright or ownership may be claimed by parties
- other than Robert Bouman. This product is NOT in the "public domain".
-
- The latest version is always available via file request at 1:2201/11 as
- SYNCEDIT.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Limitations ۲�� �
- �������������������������������������������������������������������������
-
- The registered version of SyncEdit is designed to operate with a KEY
- file, which activates the registered features of the editor. Operation
- of the editor without a key will invoke the editor in demo mode. A key
- file is not distributed with SyncEdit, it can be generated with KEYGEN
- and a key code from Robert Bouman.
-
- The demo version is a very functional editor, with no time limitations or
- restrictions on usage except as noted above under "Distribution method".
- The demo contains complete block editing and file functions, but the menu
- items indicated by a light grey color, SEARCH, SPELL CHECKER, and
- GRAPHICS, are not active in the demo version. Also, the demo does not
- allow the use of Sysop definable TAGLINES. There is a three second delay
- upon entry to the editor as well.
-
- The key file activates SEARCH, SPELL CHECKING, GRAPHICS, Sysop definable
- TAGLINES and removes the entry delay screen.
-
- See "Registration" for specifics on how to obtain a key code.
-
- Both versions of SyncEdit are limited to a maximum of 500 lines of text.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Installation ۲�� �
- �������������������������������������������������������������������������
-
- SyncEdit is installed as an external message editor, and if one is
- familiar with Synchronet and installing doors, there should be little
- difficulty. However, it is assumed that the reader is familiar with
- Synchronet and how to configure the BBS software.
-
-
- Step 1
-
- Decide where you wish to place the external files, ie the SYNCEDIT.DIC,
- SYNCEDIT.KEY and TAGLINE files, all of which are only activated by a
- registered key file. As mentioned earlier, remember that the dictionary
- is distributed as a separate archive.
-
- If you plan on using a different directory from \SBBS\EXEC, create the
- directory using any valid DOS name and path, with the DOS "MD"
- command.
-
- If used, copy SYNCEDIT.DIC into the directory you just created, and make
- a note of the full path and name of this directory as you'll need that
- information in a moment. Otherwise, if using the BBS EXEC directory,
- copy SYNCEDIT.DIC into \SBBS\EXEC.
-
- When you later get to the step of setting up the editor within
- Synchronet, you will need to be sure your second command line argument
- points to the directory containing the external files.
-
-
- Step 2
- SYNCEDIT.EXE may be installed in any convenient directory, though we
- suggest the \SBBS\EXEC subdirectory or a directory beneath \SBBS\EXEC
- called SYNCEDIT. If you place SYNCEDIT.EXE in a directory that's NOT
- in your system path statement, then you must provide the full path to
- this directory on the command line with the executable
- (C:\SYNCEDIT\SYNCEDIT %l .. .. ).
-
-
- Step 3
- Add SYNCEDIT to your BBS's external on-line programs menu via the
- Synchronet configuration utility: External Programs -> External Editors
-
- Before we get to installing SyncEdit, please note the command line used
- with SyncEdit:
-
- syncedit [<EXTERNAL DIR>] [<NUM LINES>] [PATH\FILE]
- or
- %!syncedit [<EXTERNAL DIR>] [<NUM LINES>] [PATH\FILE]
-
-
- A typical command line example might be:
-
- syncedit %! %l %f
-
- Left to right: the name of the executable, the path to the external
- directory (for the dictionary files, tag files, and SYNCEDIT.KEY), maximum
- number of lines allowed in the editor, and the optional path\file_name
- to read into the editor.
-
- The external directory (first argument) is where the dictionary, and when
- obtained, the SYNCEDIT.KEY should be placed. The external directory
- argument MUST be defined, even if you don't have a key file and don't
- intend to install the dictionary. The count of the arguments must be at
- least two, with the last item, PATH\FILE_NAME being the only truly
- optional parameter.
-
- Assuming you've placed SYNCEDIT.EXE in the \SBBS\EXEC directory and the
- \SBBS\EXEC path is properly defined in your system setup, it shouldn't be
- necessary to use the "%!" in front of the executable name. However, if
- you have difficulty getting SyncEdit to run, try placing the %! at the
- beginning of the command line as in the second example above.
-
- The Synchronet parameter %l may be substituted for NUM LINES. This is
- handy if you wish the editor to use the default number of lines as
- configured within each of your BBS user levels.
-
- Note that in our example we used the path to the \SBBS\EXEC directory as
- our external directory (%!), received the maximum editor lines from the
- BBS (%l) and received the path & name of the file to read into the editor
- from the BBS (%f). If %f isn't used, SyncEdit will default to reading
- the INPUT.MSG text dropped by the BBS in the respective NODE directory.
-
- If we wished to use a different external directory, and pass on the
- command line a specific number of lines to allow, we could have done
- something like:
-
- syncedit c:\sbbs\exec\syncedit\ 80 %f
-
- This example assumes a directory called "syncedit" exists in the
- c:\sbbs\exec directory and will be used for our external files. 80
- is the maximum lines allowed in the editor.
-
- We suggest the use of a separate external directory with the
- availability of user dictionaries. Otherwise, the \EXEC directory may
- become cluttered with dictionary files.
-
-
- Hit INSERT on a blank line to start the process of adding the editor.
-
- Below is an example intended to show a typical setup for SyncEdit, and
- should work for the vast majority of users. Please note, SyncEdit
- *requires* the use of the XTRN.DAT drop file so be sure to configure
- Synchronet to drop the file as indicated below.
-
-
- SyncEdit Editor
-������������������������������������������������������������������������ͻ
-� Name SyncEdit �
-� Internal Code SYNCEDIT �
-� Local Command Line syncedit %! %l %f �
-� Remote Command Line syncedit %! %l %f �
-� Access Requirements ANSI �
-� Intercept I/O Interrupts No �
-� Quote Text Prompt User �
-� QuickBBS Style Editor (MSGTMP) No �
-� Expand line feeds to CRLF No �
-� BBS Drop File Type Synchronet XTRN.DAT �
-������������������������������������������������������������������������ͼ
-
-
- Once again, this example will work if you have the directory where you
- placed SYNCEDIT.EXE in your path, and you placed your external files in
- \SBBS\EXEC. Otherwise, you will need to modify the above to match
- your setup.
-
- If memory is tight, or you experience difficulties, add SyncEdit to your
- BBS global swap list. This is accomplished within the Synchronet
- configuration utility.
-
-
- That's it, you and your users should now be able to use the editor!
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Using the Editor ۲�� �
- �������������������������������������������������������������������������
-
- As SyncEdit contains an extensive built-in help system, we will not go
- into great detail here on the commands or how to use the editor.
-
- All functions are available from the menu at the top of the screen by
- using CTRL-key combinations. For instance, on-line help is available by
- using CTRL-P. There are also several keyboard shortcuts, such as CTRL-O
- for quick save, as well as the traditional "slash" commands (/A, /ABT,
- /N, /S, /?). Again, be sure to review the help system when you first
- use the editor for more detailed information.
-
- The menu bar at the bottom of the editor reflects (left to right):
-
- registration information (who the editor is registered to)
- maximum lines allowed
- number of lines used
- insert/delete mode status
- date
- time
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Sysop File Functions ۲�� �
- �������������������������������������������������������������������������
-
- There are two Sysop only commands available from the File menu that are
- accessible, and visible, only to user groups 90 and above (co-Sysops and
- Sysops). These commands are LoadFile and SaveFile which do exactly what
- their names imply.
-
- LoadFile reads a separate text file into the current editing session.
- This function does not overwrite existing text, but rather inserts the
- file at the current cursor position.
-
- SaveFile saves the current text to a file in ASCII format.
-
- Both LoadFile and SaveFile expect a full DOS path.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Sysop Hot Keys ۲�� �
- �������������������������������������������������������������������������
-
- Several functions are also available to the sysop both when used locally
- and when a remote user is using SyncEdit. They are defined below.
-
- ALT+C - Allows you to chat with the remote user while they are editing a
- message. This function is only available when the user is at the main
- editing screen. ALT+C again to return to normal screen.
-
- ALT+H - Hang up on user and exit from SyncEdit.
-
- ALT+J - Drop to DOS. This is available when the user is on-line as well
- as when the editor is used locally. It is available when the remote
- user or local user is in the main editing screen only.
-
- ALT+K - When this key is pressed, SyncEdit will ignore key strokes from
- the remote user. Pressing this key again will return the editor to
- normal function.
-
- ALT+D - Drops user to BBS without hanging up on them.
-
- F1 - Will display a status bar containing the sysop key information from
- above.
-
- F9 - Will return the status bar to the normal user information display.
-
- F10 - Will remove the status bar completly from screen.
-
- ALT-+/- - Increase or decrease the amount of time the user has in
- SyncEdit to write or edit a message.
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Creating TAGLINE Files (registered version only) ۲�� �
- �������������������������������������������������������������������������
-
- The registered version of SyncEdit allows for the use of up to 20
- different tag lines. Remember, all the *.TAG files, must be placed in
- the external directory pointed to by the first command line argument.
-
- Each TAG file may be up to 600 bytes in length. If these limits are
- exceed, the file will be truncated. Tag files may contain both ANSI or
- ASCII text and must be named using any valid DOS name, with an extension
- of .TAG. These names may be descriptive, as in ANSI.TAG, ASCII.TAG,
- simple as in 1.TAG, 2.TAG, or any other scheme you prefer. Use
- desecration when using tag lines, particularly those containing ANSI
- escape codes as they can quickly become overdone and irritating to
- readers of your messages (and network administrators).
-
- If more than one *.TAG file is found, SyncEdit will randomly select
- a different *.TAG file each time the editor is called by the BBS.
- For example, if you have two *.TAG files, the odds are approximately
- 50-50 that a particular tag file will be used. If you have three tag
- files, the odds are 1 in 3, and so on. If you only wish to have one tag
- line added by the editor, only define one tag file, for example 1.TAG.
- If you don't want any tag lines added, simply don't define any.
-
- Note, the unregistered "SyncEdit" tear line is not user definable or
- modifiable. The tear line is not appended by the registered version.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Sysop (only) Macro Files ۲�� �
- �������������������������������������������������������������������������
-
- For the macros, a file named SYNCEDIT.MAC must be in the external
- directory. We have included a basic macro file so you have a reference
- point for creating your own.
-
- There is a maximum of 40 macros lines allowed. If this number is
- exceeded, only 40 will be used. Lines that have a ';' in column one
- will be skipped, which is primarily used for adding comments to the
- macro file. Blank lines are skipped also. Everything else is
- considered a macro line.
-
- Macro lines 1-10 correspond to F1-F10 on the keyboard; 11-20 to
- shift+F1-f10; 21-30 to ctrl+F1-F10; and finally 31-40 to alt+F1-F10. For
- example, if you have 11 lines that are considered macro lines, then you
- can insert those lines into your message by pressing F1-F10 and shift+F1.
- If you press shirt+F2, the computer will beep telling you that there isn't
- a macro associated with that key.
-
- One common use of a macros as implemented within SyncEdit is to allow
- the Sysop to easily use different signatures, depending on the target
- audience of the message.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� User Dictionaries ۲�� �
- �������������������������������������������������������������������������
-
- Any user that is allowed to use SyncEdit will be able to create their own
- custom dictionary. SyncEdit will provide a menu item entitled ADD when
- it encounters a word during a spell checking session that it doesn't
- believe is spelled correctly. By simply choosing the add option the
- highlighted word will be added to the users personal dictionary (*not*
- the master dictionary). Please note, SyncEdit doesn't delete user
- dictionaries when there are changes to the BBS database. Consequently,
- if a user is deleted from the BBS database, the next person that has
- the same user number will inherit the old dictionary.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Registration Cost and Process ۲�� �
- �������������������������������������������������������������������������
-
- Registration fee is $20.00 (twenty dollars US). That's right, only
- twenty dollars. This will get you a key code which you can use to
- generate a customized key file that will activate all the editors
- features.
-
- Please review, complete and return the REGISTER.FRM (enclosed).
-
- Save yourself the time and expense of calling us to determine if we
- accept on-line orders or credit cards. We don't. Currently, the only
- way to register is to follow the procedure outlined above. When this
- changes, we'll be sure to announce it.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Cautions ۲�� �
- �������������������������������������������������������������������������
-
- This product was designed specifically to interface with the Synchronet
- BBS system, and has not been tested with other BBS packages. Though it
- may work with other BBS systems, we make no representation that it will.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Technical Support ۲�� �
- �������������������������������������������������������������������������
-
- Support is provided by calling the SyncEdit support BBS; The Game Room
- (616)857-3135 and either posting a message to "Playster" in the SyncEdit
- message section or by sending private e-mail, via FidoNet netmail
- (1:2201/11) addressed to Robert Bouman or Internet e-mail addressed to
- bouman@macatawa.org.
-
- Please note, we will do everything possible to assist folks in getting
- the freely distributable version up and running. However, technical
- support is primarily intended for registered users. They are after all,
- our paying customers.
-
- Apparent bug reports should be forwarded as identified above. Please
- provide as much detail as possible regarding your difficulty, ie hardware
- configuration, BBS setup (paths, etc), and a specific description of the
- problem.
-
- Suggestions regarding new features, and comments in general are welcome
- from all users and should be forwarded as indicated above.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Known "Anomalies" ۲�� �
- �������������������������������������������������������������������������
-
- o SyncEdit is limited to a maximum of 500 lines of text. If attempts are
- made to use more than 500 lines, the editor will continue to load and
- enter into an editing session. However, only the first 500 lines of
- text will actually be edited and saved.
-
- o There seems to be some incompatibilities when SyncEdit is used under
- Novell DOS v7. In particular, the problem occurs when attempting an
- editing session from the WFC screen. Usage of the editor from within
- the BBS is not generally affected.
-
- o Due to the spelling library SyncEdit currently uses, there are times
- the spell checker will flag words as misspelled when in fact the word
- is spelled correctly. This may be most noticeable when adding words to
- one's personal dictionary. We are aware of the problem, but due to the
- fact that we don't have the source code to the library we can't easily
- correct the problem. The solution lies in either writing our own
- library from scratch or locating another spelling library. We are
- investigating the options are planning to correct this situation in a
- future release.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Upgrade Policy ۲�� �
- �������������������������������������������������������������������������
-
- Registering SyncEdit is a one time ONLY process. By purchasing the
- registered version of SyncEdit, you get a life long "subscription" to
- all future versions of SyncEdit.
-
-
-
- �����������������������������������������������������������������������Ŀ
- � ���� Miscellaneous ۲�� �
- �������������������������������������������������������������������������
-
- SyncEdit reads either the INPUT.MSG placed in the node directories by
- the BBS, or the file passed to it from the BBS via the %f parameter,
- EDITOR.INF, QUOTES.TXT, and Synchronet's drop file XTRN.DAT. No other
- files are read from or written to.
-
- If the LoadFile or SaveFile commands are used, SyncEdit will load and
- save to the path\file provided by the user. It does not, however,
- modify any BBS system files on it's own.
-
-
- SyncEdit is a trademark of Robert D. Bouman.
- Synchronet is a trademark of Digital Dynamics.
- All other brands are trademarks or registered trademarks of their
- respective companies.
diff --git a/docs/sysop.html b/docs/sysop.html
deleted file mode 100644
index 8950d47413696871c3fe65918c8352802fd7dd32..0000000000000000000000000000000000000000
--- a/docs/sysop.html
+++ /dev/null
@@ -1,287 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Synchronet BBS Software - Sysop Documentation</title>
-</head>
-
-<body>
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<h1>Synchronet System Operator Documentation</h1>
-<p><b><a name="TOC">Sysop Documentation Table of Contents</a></b>
-</p>
-
-<p><a href="features.html">Features</a>
-</p>
-
-<pre>1. <b>Installation</b><a href="install.html">
-</a> 1.0 <a href="install.html">Installation</a><a href="install.html#Getting Started">
-</a> 1.1 <a href="install.html#GettingStarted">Getting Started
-</a> 1.2 <a href="install.html#GettingHelp">How to Get Help
-</a> 1.3 <a href="install.html#AboutManual">About this Manual</a></pre>
-
-<div align="left">
-
-<pre>2. <b>Configuration
-</b> 2.0 <a href="system_config.html">System Configuration</a>
- 2.1 <a href="system_config.html#MessageOptions">Message Options
-</a> 2.2 <a href="system_config.html#SystemOptions">System Options</a>
- 2.3 <a href="system_config.html#SystemToggleOptions">Toggle Options</a>
- 2.4 <a href="system_config.html#NewUserValues">New User Values</a>
- 2.5 <a href="system_config.html#AdvancedOptions">Advanced Options</a>
- 2.6 <a href="system_config.html#LoadableModules">Loadable Modules</a>
- 2.7 <a href="system_config.html#SecurityValues">System Security Level Values</a>
- 2.8 <a href="system_config.html#ExpiredAccountValues">Expired Account Values</a>
- 2.9 <a href="system_config.html#QuickValidationValues">Quick Validation Values</a>
- 2.10 <a href="system_config.html#CreatingUserAccountsLocally">Creating User Accounts Locally</a>
- 2.10.1 <a href="system_config.html#CreatingSysopAccount">Creating a Sysop Account</a>
- 2.10.2 <a href="system_config.html#CreatingGuestAccount">Creating a Guest Account</a></pre>
-
-</div>
-
-<pre>3. <b>Adding Nodes to your System</b>
- 3.0 <a href="adding_nodes.html">Adding Nodes</a>
- 3.1 <a href="adding_nodes.html#ConfiguringNodes">Node Configuration</a>
- 3.2 <a href="adding_nodes.html#NodeToggleOptions">Node Toggle Options</a>
- 3.3 <a href="adding_nodes.html#NodeAdvancedOptions">Node Advanced Options</a>
- 3.4 <a href="adding_nodes.html#WFC_NumberKeys">Waiting For Caller Number Key Assignments</a> <b><i><font color="#FF0000">(v2 Only)</font></i></b>
- 3.5 <a href="adding_nodes.html#WFC_FunctionKeys">Waiting For Caller Function Key Assignments</a> <b><i><font color="#FF0000">(v2 Only)</font></i></b></pre>
-
-<pre>4. <b>Modem and FAX Configuration <i><font color="#FF0000">(v2 Only)</font></i></b>
- 4.0 <a href="modem_setup.html">Modem Setup</a>
- 4.1 <a href="modem_setup.html#UART_Serial/Modem">Installing UART Serial Card/Internal Modems</a>
- 4.2 <a href="modem_setup.html#Shared_IRQ/Non-UART">Installing a Shared IRQ or Non-UART Serial Card</a>
- 4.3 <a href="modem_setup.html#DumbModemConnection">Using a Dumb (NULL) Modem Connection</a>
- 4.4 <a href="modem_setup.html#ModemConfiguration">Modem Configuration</a>
- 4.5 <a href="modem_setup.html#ResultCodes">Modem Result Codes
-</a> 4.6 <a href="modem_setup.html#ToggleOptions">Modem Toggle Options</a>
- 4.7 <a href="modem_setup.html#ControlStrings">Modem Control Strings</a>
- 4.8 <a href="modem_setup.html#AutoConfiguration">Modem Auto-Configuration</a>
- 4.9 <a href="modem_setup.html#CallerIdentification">Caller-ID Support</a>
- 4.10 <a href="modem_setup.html#FAX/ModemSetup">Incoming FAX Support</a></pre>
-
-<pre>5. <b>Sysop Commands (Remote / Local)</b>
- 5.0 <a href="sysop_commands.html">Sysop Commands</a>
- 5.1 <a href="sysop_commands.html#SysopDefinition">Definition of a Sysop</a>
- 5.2 <a href="sysop_commands.html#MultipleSysops">Multiple Sysops</a>
- 5.3 <a href="sysop_commands.html#LocalSysopCommands">Local Only Sysop Commands</a>
- 5.4 <a href="sysop_commands.html#OnlineSysopCommands">Remote/Local Sysop Commands</a></pre>
-
-<pre>6. <b>User Management</b>
- 6.0 <a href="user_editor.html">User Editor</a>
- 6.1 <a href="user_editor.html#UsingUserEditLocally">Editing Users Locally
-</a> 6.2 <a href="user_editor.html#UsingUserEditRemotely">Editing Users Remotely</a>
- 6.3 <a href="user_editor.html#UserEditCommands">User Editor Commands Explained</a></pre>
-
-<pre>7. <b>Access Requirement Strings (ARS) Security</b>
- 7.0 <a href="security.html">ARS Security</a>
- 7.1 <a href="security.html#Introduction">Introduction to ARS</a>
- 7.2 <a href="security.html#Keywords/Symbols">ARS Keywords and Symbols</a>
- 7.3 <a href="security.html#GeneralUsageExamples">ARS General Usage Examples</a>
- 7.4 <a href="security.html#NestingExpressions">Nesting ARS Logic</a>
- 7.5 <a href="security.html#NestedLogicExamples">ARS Nested Logic Examples</a></pre>
-
-<pre>8. <b>Message Bases</b>
- 8.0 <a href="message_section.html">Message Base</a>
- 8.2 <a href="message_section.html#ElectronicMail">Electronic Mail
-</a> 8.2.1 <a href="message_section.html#SynchronetMailServer">Internet (SMTP/POP3) Mail Server</a> <b><font color="#FF0000"><i>(v3+ Only)</i></font></b>
- 8.3 <a href="message_section.html#SettingUpMessageBase">Adding Message Bases</a>
- 8.3.1 <a href="message_section.html#CreatingMessageGroups">Creating Message Groups</a>
- 8.3.2 <a href="message_section.html#MessageGroupOptions">Main Options
-</a> 8.3.3 <a href="message_section.html#CreatingMessageSub-boards">Creating Message Sub-Boards</a>
- 8.3.4 <a href="message_section.html#Sub-boardMainOptions">Main Options</a>
- 8.3.5 <a href="message_section.html#ToggleOptions">Toggle Options</a>
- 8.3.6 <a href="message_section.html#NetworkOptions">Network Options</a>
- 8.3.7 <a href="message_section.html#AdvancedOptions">Advanced Options</a>
- 8.4 <a href="message_section.html#QWKPacketPreviousSoftware">Importing Messages from Your Previous BBS Software</a>
- 8.5 <a href="message_section.html#PostingMessage">Posting</a>
- 8.6 <a href="message_section.html#RemoteQWKFunctions">Remote QWK Functions</a></pre>
-
-<pre>9. <b>Networking</b>
- 9.0 <a href="networking.html">Networking Message Bases</a>
- 9.1 <a href="networking.html#QWKPacketNetworking">QWK Networking</a>
- 9.1.1 <a href="networking.html#NetworkHubs">Network Hubs</a>
- 9.1.2 <a href="networking.html#NetworkedSub-boards">Networked Sub-Boards</a>
- 9.1.3 <a href="networking.html#ConfiguringQWKNode">Setting up a QWK Node</a>
- 9.1.4 <a href="networking.html#ConfiguringQWKHub">Setting up a QWK Hub
-</a> 9.2 <a href="networking.html#TransferringFilesThroughQWK">Transferring Files via QWK Network</a>
- 9.3 <a href="networking.html#PostLinkNetworking">PostLink Networking</a>
- 9.4 <a href="networking.html#FidoNetNetworking">FidoNet Networking</a>
- 9.4.1 <a href="networking.html#FidoNetUsingSBBSECHOandInterMail">Step-by-Step Setup</a>
- 9.4.2 <a href="networking.html#SendingFidoNetNetMail">Sending FidoNet NetMail</a>
- 9.5 <a href="networking.html#InternetNetworking">Internet Networking</a></pre>
-
-<div align="left">
-
-<pre>10. <b>File Section</b>
- 10.0 <a href="file_section.html">File Transfer Section
-</a> 10.1 <a href="file_section.html#SettingUpFileTransferSection">Setting up the File Section Options</a>
- 10.1.1 <a href="file_section.html#FileOptions">Main Options</a>
- 10.2 <a href="file_section.html#ViewableFiles">Viewable File Types</a>
- 10.3 <a href="file_section.html#TestableFiles">Testable File Types
-</a> 10.4 <a href="file_section.html#DownloadEvents">Download Events</a>
- 10.5 <a href="file_section.html#ExtractableFiles">Extractable File Types</a>
- 10.6 <a href="file_section.html#CompressableFiles">Compressible File Types</a>
- 10.7 <a href="file_section.html#TransferProtocols">Transfer Protocols
-</a> 10.7.1 <a href="file_section.html#FDSZ">FDSZ Protocol</a>
- 10.7.2 <a href="file_section.html#DSZ">DSZ Protocol</a>
- 10.7.3 <a href="file_section.html#HS/Link">HS/Link Protocol</a>
- 10.8 <a href="file_section.html#CreatingFileLibraries">Adding File Libraries</a>
- 10.8.1 <a href="file_section.html#LibraryOptions">Main Options</a>
- 10.9 <a href="file_section.html#CreatingFileDirectories">Adding File Directories</a>
- 10.9.1 <a href="file_section.html#MainDirectoryOptions">Main Options</a>
- 10.9.2 <a href="file_section.html#ToggleOptions">Toggle Options</a>
- 10.9.3 <a href="file_section.html#AdvancedOptions">Advanced Options</a>
- 10.10 <a href="file_section.html#AddingFilesToDatabase">Adding Files to File Sections</a>
- 10.10.1 <a href="file_section.html#CreatingOfflineFileDirectories">Creating an Offline Files Directory</a>
- 10.10.2 <a href="file_section.html#CreatingSysopDirectory">Creating a Sysop Directory</a>
- 10.10.3 <a href="file_section.html#CreatingUser-to-UserDirectory">Creating a User to User Directory</a>
- 10.10.4 <a href="file_section.html#CreatingDefaultUploadDirectory">Creating a Default Upload Directory</a>
- 10.10.5 <a href="file_section.html#SupportingBlindBatchUploads">Supporting Blind Batch Uploads</a>
- 10.11 <a href="file_section.html#CD-ROM/SlowMediaDevices">CD-ROM and other Slow Media Devices</a>
- 10.11.1 <a href="file_section.html#AlternateFilePaths">Using Alternate File Paths
-</a> 10.12 <a href="file_section.html#SynchronetFTPServer">Internet FTP Server</a> <b><font color="#FF0000"><i>(v3+ Only)</i></font></b></pre>
-
-</div>
-
-<pre>11. <b>Chat Section</b>
- 11.0 <a href="chat_section.html">Chat Section Configuration</a>
- 11.1 <a href="chat_section.html#ArtificialChatGurus">Artificial Chat Gurus</a>
- 11.2 <a href="chat_section.html#ChatActions">Multinode Chat Actions</a>
- 11.3 <a href="chat_section.html#MultinodeChatChannels">Multinode Chat Channels</a>
- 11.4 <a href="chat_section.html#ExternalSysopPagers">External Sysop Chat Pagers</a></pre>
-
-<pre>12. <b>External Programs</b>
- 12.0 <a href="external_programs.html">External Programs
-</a> 12.1 <a href="external_programs.html#FixedEvents">External Fixed Events</a>
- 12.2 <a href="external_programs.html#TimedEvents">External Timed Events</a>
- 12.3 <a href="external_programs.html#GlobalSwapList">Global Swap List</a>
- 12.4 <a href="external_programs.html#Native32bitProgramList">Native (32-bit) Program List</a>
- 12.5 <a href="external_programs.html#ExternalEditors">External Editors</a>
- 12.6 <a href="external_programs.html#OnlinePrograms">Adding Online Programs</a>
- 12.7 <a href="external_programs.html#DropFiles">Supported BBS Drop File Types</a>
- 12.8 <a href="external_programs.html#Call-backVerifiers">Callback Verifiers</a>
- 12.9 <a href="external_programs.html#InstallingNewExternalProgram">Installing a New External Program</a>
- 12.10 <a href="external_programs.html#ConfiguringNewExternalProgram">Configuring a New External Program</a>
- 12.11 <a href="external_programs.html#ExampleDoorGameSetups">External Program Setup Examples</a>
- 12.11.1 <a href="external_programs.html#LORD">Legend of the Red Dragon (LORD)</a>
- 12.11.2 <a href="external_programs.html#Usurper">Usurper</a>
- 12.11.3 <a href="external_programs.html#TradeWars2002">Trade Wars 2002
-</a> 12.11.4 <a href="external_programs.html#BRE">Barren Realms Elite
-</a> 12.12 <a href="external_programs.html#InternalGateways">Internet Gateways (Telnet, RLogin, etc.)</a> <b><font color="#FF0000"><i>(v3+ Only)</i></font></b>
- 12.13 <a href="external_programs.html#TroubleshootingExternalPrograms">Troubleshooting External Programs</a></pre>
-
-<pre>13. <b>Text File Section</b>
- 13.0 <a href="textfile_section.html">General Text Files</a>
- 13.1 <a href="textfile_section.html#TextFileOptions">Main Options</a>
- 13.2 <a href="textfile_section.html#AddingTextFiles">Adding Text Files to a Section</a>
- 13.3 <a href="textfile_section.html#976/900NumberBilling">976/900 Number Billing Support</a></pre>
-
-<pre>14. <b>Multinode Information <i><font color="#FF0000">(v2 Only)</font></i></b>
- 14.0 <a href="multnode_config.html">Multinode</a>
- 14.1 <a href="multnode_config.html#LANMethod">The Local Area Network (LAN) Method</a>
- 14.2 <a href="multnode_config.html#MultitaskerMethod">The Multitasker Method</a>
- 14.3 <a href="multnode_config.html#Safe?">Is it Safe to run Multiple Nodes?</a>
- 14.4 <a href="multnode_config.html#MultinodeDESQview">Setting Up Synchronet Under DESQview</a>
- 14.5 <a href="multnode_config.html#MultinodeOS/2">Setting Up Synchronet Under OS/2</a>
- 14.6 <a href="multnode_config.html#MultinodeWindows3.x">Setting Up Synchronet Under Windows 3.x</a>
- 14.7 <a href="multnode_config.html#MultinodeWindows9x">Setting Up Synchronet Under Windows 9x</a>
- 14.8 <a href="multnode_config.html#MultinodeLAN">Setting Up Synchronet on a LAN</a></pre>
-
-<pre>15. <b>Synchronet Utility Reference</b><a href="utility_reference.html">
-</a> 15.1 <a href="utility_reference.html#CHKSMB">CHKSMB</a> <b>(</b>Checks Message Base for Validity<b>)</b>
- 15.2 <a href="utility_reference.html#FIXSMB">FIXSMB</a> <b>(</b>Fixes Message Base and Mail Indexes<b>)</b>
- 15.3 <a href="utility_reference.html#SMBUTIL">SMBUTIL</a> <b>(</b>Synchronet Message Base Utility<b>)
-</b> 15.4 <a href="utility_reference.html#SMBACTIV">SMBACTIV</a> <b>(</b>Checks for Active Message Bases<b>)</b>
- 15.5 <a href="utility_reference.html#ADDFILES">ADDFILES</a> <b>(</b>Importing ASCII File Lists<b>)</b>
- 15.6 <a href="utility_reference.html#FILELIST">FILELIST</a> <b>(</b>Creating ASCII File Lists<b>)</b>
- 15.7 <a href="utility_reference.html#DUPEFIND">DUPEFIND</a> <b>(</b>Finds Duplicate Files in Synchronet<b>)</b>
- 15.8 <a href="utility_reference.html#DELFILES">DELFILES</a> <b>(</b>Deletes Files from File Base<b>)</b>
- 15.9 <a href="utility_reference.html#MLABELS">MLABELS</a> <b>(</b>Mailing Labels Creation Util<b>)</b>
- 15.10 <a href="utility_reference.html#QWKNODES">QWKNODES</a> <b>(</b>Create QWKnet Users/Route/Node Lists<b>)</b>
- 15.11 <a href="utility_reference.html#ALLUSERS">ALLUSERS</a> <b>(</b>Command Line Bulk User Editor<b>)</b>
- 15.12 <a href="utility_reference.html#AUTONODE">AUTONODE</a> <b>(</b>Automatic Local Logon Utility<b>) <font color="#FF0000"><i>(v2 Only)</i></font></b>
- 15.13 <a href="utility_reference.html#NODE">NODE</a> <b>(</b>Node Display/Control Utility<b>)</b>
- 15.14 <a href="utility_reference.html#UTI">UTI Driver</a> <b>(</b>PostLink Import/Export Utils<b>)</b>
- 15.15 <a href="utility_reference.html#SLOG">SLOG</a> <b>(</b>Node/System Statistics Viewer<b>)</b>
- 15.16 <a href="utility_reference.html#DSTSEDIT">DSTSEDIT</a> <b>(</b>Node/System Statistics Editor<b>)</b>
- 15.17 <a href="utility_reference.html#TOTALS">TOTALS</a> <b>(</b>Credit Gain/Loss Util for Games<b>)</b>
- 15.18 <a href="utility_reference.html#ANS2MSG">ANS2MSG</a> <b>(</b>ANSI to Ctrl-A Conversion Utility<b>)</b>
- 15.19 <a href="utility_reference.html#MSG2ANS">MSG2ANS</a> <b>(</b>Ctrl-A to ANSI Conversion Utility<b>)</b></pre>
-
-<pre>16. <b>Troubleshooting your System</b>
- 16.0 <a href="troubleshooting.html">Troubleshooting</a></pre>
-
-<pre>17. <b>Customizing your System</b>
- 17.1 <a href="customization.html#MenusAndTextFiles">Menus and Other Text Files</a>
- 17.1.1 <a href="customization.html#Text/Colors">Text Colors</a>
- 17.1.2 <a href="customization.html#NodeActionText">Node Action Text</a>
- 17.1.3 <a href="customization.html#TrashCanFiles">Trash Can Files</a>
- 17.2 <a href="customization.html#MessageVariables">Message Variables</a>
- 17.3 <a href="customization.html#MessageColorCodes">Message Color Codes</a>
- 17.4 <a href="customization.html#SIFQuestionnaireFile">SIF Questionnaire File Format</a>
- 17.5 <a href="customization.html#GURU.DAT">GURU.DAT (Guru Brain) Modifications</a></pre>
-
-<div align="left">
-
-<pre>18. <b>Appendix Information
-</b> 18.1 <a href="appendix.html#Appendix_A">Appendix A</a> : Command Line Specifier Reference<b>
-</b> 18.2 <a href="appendix.html#Appendix_B">Appendix B</a> : Synchronet (SBBS/SCFG) Command Line Options
- 18.3 <a href="appendix.html#Appendix_C">Appendix C</a> : Synchronet Environment Variables<b>
-</b> 18.4 <a href="appendix.html#Appendix_D">Appendix D</a> : Wait for Call Status Display<b> <i><font color="#FF0000">(v2 Only)</font></i>
-</b> 18.5 <a href="appendix.html#Appendix_E">Appendix E</a> : Node Status Display<b>
-</b> 18.6 <a href="appendix.html#Appendix_F">Appendix F</a> : Log File Line Type Specifiers<b>
-</b> 18.7 <a href="appendix.html#Appendix_G">Appendix G</a> : File Formats (Technical Specs for Developers)</pre>
-
-</div>
-
-<pre><b>19. Definitions of Commonly Used Terms
-</b> 19.0 <a href="glossary.html">Glossary</a></pre>
-
-<p><b><a href="#TOC">Back to Table of Contents</a></b></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/sysop.url b/docs/sysop.url
deleted file mode 100644
index 8d911e0100f7b99cccf56f4f55be4f1c66fa0ba8..0000000000000000000000000000000000000000
--- a/docs/sysop.url
+++ /dev/null
@@ -1,5 +0,0 @@
-[DEFAULT]
-BASEURL=http://www.synchro.net/docs/sysop.html
-[InternetShortcut]
-URL=http://www.synchro.net/docs/sysop.html
-Modified=101FFF59F0B3C201ED
diff --git a/docs/sysop_commands.html b/docs/sysop_commands.html
deleted file mode 100644
index 6b2c35ec3b296fea9cbba34972fa2e044bfab7bc..0000000000000000000000000000000000000000
--- a/docs/sysop_commands.html
+++ /dev/null
@@ -1,476 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Sysop Commands</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-
-<h2><a name="SysopDefinition">[5.1] - Sysop Definition</a></h2>
-
-<pre>There is usually one sysop (System Operator) per BBS - the owner and operator
-of the hardware which Synchronet is running on and accepting remote users.
-Quite often systems require more than one sysop and Synchronet is flexible in
-this respect. Within Synchronet, a sysop is defined as any user with a main
-level of 90 or above. Any user that qualifies as a sysop, is prompted with an
-"<b>SY:</b>" to enter the system password at logon. Any time a sysop attempts to
-perform a sysop function that may breach the system security, he is prompted
-with an "<b>SY:</b>" to enter the system password before he can proceed. Users with
-sysop access can cause serious damage to the system. Give out this ability with
-caution.</pre>
-
-<h2><a name="MultipleSysops">[5.2] - Multiple Sysops</a></h2>
-
-<pre>As stated above, any user with a security level of 90 or greater can perform
-sysop functions, "So why have levels 91-99?" you might ask yourself. Well, you
-can still restrict a user with sysop access from accessing Message Groups or
-Sub-boards or File Libraries or Directories by setting the minimum required
-level above that user's level. For example: If you have a remote sysop with a
-security level of 90, you can still have a Message Group or Sub-board with a
-minimum required level of 91. Now this remote sysop will not be able to access
-that Group or Sub-board. While it is true that sysops can edit their own
-and subordinate user's accounts, they can not edit a sysop of higher level's
-account (when calling remotely). A remote sysop can't raise any user's level
-above his own, or add flags or exemptions that he himself doesn't have.</pre>
-
-<h2><a name="LocalSysopCommands">[5.3] - Local Sysop Commands </a><i><font color="#CC0000"><b>(v2
-Only)</b></font></i></h2>
-
-<pre>Most sysop functions will be performed locally, while some sysop functions can
-<u>only</u> be performed locally. The following special key combination are only
-available while online locally (not from the Waiting for Call screen).
-
-<u><b>Macros:</b>
-</u> All the function keys (F1-F12) and combinations with Shift, Ctrl, and
- Alt (48 macros total) are available for the sysop. A macro is a short
- way to enter many keystrokes. Each macro is stored in a separate file
- in the TEXT directory with a MAC extension. The name reflects which
- key combination will initiate the macro. For regular F1 through F12,
- the name is F1.MAC through F12.MAC respectively. For Alt-F1 through
- Alt-F12 the name is ALT-F1.MAC through ALT-F12, Ctrl-F1 through
- Ctrl-F12 are named CTRL-F1.MAC through CTRL-F12, and Shift-F1 through
- Shift-F12 are named SHFT-F1.MAC through SHFT-F12. Each file is a basic
- ASCII text file with one exception; an extended key combination (such
- as Alt-D) can be entered by placing a Ctrl-@ (ASCII 0, NULL) in the
- file followed by the scan code of the key you wish to use.
-
-<b><u>Alt-key combinations:
-</u></b>
-<b> Alt-U (User Edit)
-</b> At any place within Synchronet, pressing Alt-U at the local keyboard
- will pop the local console into User Edit while the remote side (if
- there is a remote user) will see [WAIT]. Alt-U is available while using
- the terminal mode as well. See User Edit for more information.
- See UEDIT command below.
-
-<b> Alt-# (Quick Validation)
-</b> Pressing Alt and then any of the numbers 0-9 will change the current
- users level/flags/exemptions/restrictions/credits and extend their
- expiration date to the settings for that quick-validation slot set in
- the system configuration. SCFG->System->Toggle Options->Quick
- Validation Hot Keys must be set to 'Yes' for this feature to work.
-
-<b> Alt-S (Crazy Cursor Toggle)
-</b> Pressing Alt-S will toggle the state of the crazy (spinning) cursor,
- but doesn't change the current user's default settings regarding it.
-
-<b> Alt-E (Local I/O Only)
-</b> If a user is on remotely, this allows the local console to use the BBS
- while the remote user just sees [WAIT]. Pressing Alt-E again re-enables
- the remote console.
-
-<b> Alt-L (Capture)
-</b> This starts and stops the local capture of text to a file. If capture
- is active the status line will reflect this state with a blinking 'C'
- as the far left character. The file the BBS opens to capture to will be
- appended if the file already exists. The filename to capture to is
- prompted for when capture is started. The filename defaults to
- CAPTURE.TXT in the current node's directory. To direct output to the
- printer, change the filename to PRN.
- See ANSCAP command below.
-
-<b> Alt-Q (Quiet Remote User)
-</b> If a user is connected remotely, hitting this key will disable him from
- being able to enter any keystrokes into the BBS . The user will see all
- the BBSs output, but any characters sent from his side will not be
- accepted as input. Hitting Alt-Q again enables remote input again.
-
-<b> Alt-P (Sysop Page Off)
-</b> If someone is currently paging the local sysop (annoying sounds at the
- local console), hitting Alt-P will turn them off. Scroll-lock toggles
- local sysop availability.
-
-<b> Alt-H (Disconnect)
-</b> Hangs up on the current user immediately.
-
-<b> Alt-I (Interrupt)
-</b> Hangs up on the current user after displaying a message the node has
- been closed for maintenance.
- See INTR command below.
-
-<b> Alt-A (Sysop Alert)
-</b> When the current user logs off the BBS, the local sysop will be alerted
- by a message and a continuous alarm.
-
-<b> Alt-R (Rerun Node)
-</b> When the current user logs off the BBS, this node will automatically
- rerun itself.
- See RERUN command below.
-
-<b> Alt-X (Down Node After User Logs Off)
-</b> Hitting this key combination while the user is in the BBS will toggle
- the down status of this node. When a node is to be downed, it will
- be automatically shutdown when the current user logs off.
- See DOWN command below.
-
-<b> Alt-- (Subtracts 5 Minutes)
-</b> Subtracts 5 minutes from the users time allowed online this logon.
-
-<b> Alt-+ (Add 5 Minutes)
-</b> Add 5 minutes to the user's time allowed online this logon.
-
-<b> Alt-N (Lock Node)
-</b> Pressing this key will disallow any non-sysops or users without the
- 'N' exemption from logging on after the current user logs off.
- See LOCK command below.
-
-<b> Alt-T (Temp Sysop)
-</b> Gives the current user sysop status temporarily for this logon. Hitting
- Alt-T again removes the temp sysop status. This doesn't actually raise
- the security level of the user to 90, but gives him access to all sysop
- functions. The status line reflects Temp Sysop state with a blinking
- asterisk to the far left of the status line.
-
-<b> Alt-G (Guru Chat)
-</b> Pops the user in and out of apparent local chat with the system's guru.
-
-<b> Alt-C (Local Chat)
-</b> Pops the user into chat with the local console.
-
-<b> Alt-D (DOS Shell)
-</b> Pops the local console into DOS. If a user is on remotely, he sees
- [WAIT] till the local console exits the shell. The sysop can use the
- 'D' command to shell to DOS from the wait for call screen.
- See DOS command below.
-
-<b> Alt-Z (Local Key Menu)
-</b> Displays the local key menu.
-
-<b>Status Line:<u>
-</u></b>
- The status line displays one line of user information at any given
- time. To change the current line, use CTRL and the UP and DOWN arrow
- keys to scroll through different information lines, or CTRL-HOME to go
- to the default (1st) or CTRL-END to go to the last.
-
- The available status lines are:
-
- 0: UserName SecLevel Password ModemType Birthday Age Sex Phone
- 1: UserName SecLevel RealName/CompanyName "Alt-Z for help"
- 2: UserName SecLevel RealName/CompanyName Age Sex Phone
- 3: UserName SecLevel Location Phone
- 4: UserName SecLevel Note/Caller-ID Phone
- 5: UserName SecLevel Flags1 Age Sex Phone
- 6: UserName SecLevel Flags1 Expiration
- 7: UserName SecLevel DateFirstOn DateLastOn Expiration
- 8: UserName SecLevel Credits Minutes Expiration
- 9: SecLevel Flags1 Flags2
- 10: Exemptions Restrictions
- 11: ComputerType ModemType ChatHandle
- 12: Address Location ZipCode
- 13: UploadBytes UploadFiles DownloadBytes DownloadFiles LeechCount
- 14: Posts EmailSent FeedbackSent EmailWaiting TotalLogons TotalTimeOn
- 15: NetMailForwardingAddress
- 16: SysopComment
-
- You can set the default status line number in SCFG->System->Advanced
- options. This will be the default status line that appears until
- manually scrolled.
-
- There are status flags on the status line that indicate specific status
- items. They appear blinking on the left or right edges of the status
- line. They are defined as:
-
- C Local text/ANSI capture is on
- * Temporary sysop status
- A Alert sysop when user logs off
- R Rerun this node when user logs off
- D Down this node when user logs off
- E Run node daily event when user logs off
- L This node is locked for sysop logons only</pre>
-
-<h2><a name="OnlineSysopCommands">[5.4] - Extra Online Sysop Commands</a></h2>
-
-<pre>Most of the additional commands available to sysops online (local or remote)
-are initiated from the main or transfer sections. A menu of the available
-commands can be viewed with the '!' command from the main or transfer sections
-with the Synchronet Classic command shell. Additional sysop commands are
-available in many other sections of the BBS and are displayed after the normal
-menu with the '?' command. All sysop commands from the main or transfer
-sections of the Synchronet Classic command shell begin with a semicolon (';')
-character, end with CR (ENTER), and some have optional parameters (shown in
-square brackets). Users with certain exemptions can use some of these commands
-and have access to the menus via the '!' command using the Synchronet Classic
-command shell.
-
-
-<b> UEDIT [x] (User Edit)
-</b> This command initiates the User Edit function. If 'x' is specified
- and is a valid user number, that user will be the current user when
- User Edit starts, otherwise the user online will be the current user.
- This command is also available from the transfer menu. Locally, Alt-U
- is the preferred method of initiating User Edit.
- See the chapter on User Edit for more information.</pre>
-
-<pre><b> SPY [n] (Spy on Another User) <font color="#CC0000"><i>(v3.00c+ Only)</i></font>
-</b> This command allows the sysop to remotely monitor or control another node
- running in the same instance as the node the sysop is logged into.</pre>
-
-<pre><b> CHUSER (Change into Another User)
-</b> This command allows the sysop to temporarily change to another user
- account. If changing to an account with a higher level, the password
- of that user must be given. Changing to an account of non-sysop status
- automatically enables Temp Sysop mode so that the sysop can change back
- to his/her own account before logging off (a suggested action).
-
-<b> ANSCAP (Toggle ANSI Capture Mode) <font color="#CC0000"><i>(v2 Only)</i></font>
-</b> Normal ANSI escape sequences are not written to the capture file. The
- sysop can use this command to enable all characters (including ANSI
- escape sequences) to be written.
-
-<b> LOCK [x] (Lock Node)
-</b> The sysop can use this command to prevent users logging onto a node
- until the lock is removed. If 'x' is specified, that node's lock
- status will be toggled, otherwise a list of all nodes is given and
- the sysop is prompted for the node to lock or unlock. Sysops and
- users with the 'L' exemption can use this command and log onto locked
- nodes. A locked node will have an 'L' in parenthesis after the node
- information in the node listings.
-
-<b> INTR [x] (Interrupt Node)
-</b> This command allows a sysop (or user with the 'I' exemption) to hang up
- on a user on another node. If the user is currently executing an
- external program (editors and transfer protocols included), he will
- not be disconnected until control returns to Synchronet. A message will
- be displayed telling the user that the node has been temporarily closed
- for maintenance before carrier is dropped. If 'x' is specified that
- node's interrupt status will be toggled, otherwise a list of all nodes
- is displayed and the sysop is prompted for the node who's interrupt
- state he wishes to toggle. The current interrupt status of a node is
- reflected by an 'I' in square brackets following the node information
- line in the node listings.
-
-<b> DOWN [x] (Down Node)
-</b> A sysop can toggle the down status of a node with this command. When
- a node has the down status (noted by the [D] flag on the node status
- line) it will be shutdown immediately after the user logs off. If a
- user is not online, it will shutdown immediately.
-
-<b> ANON (Anonymous)
-</b> This command makes the current node anonymous. Sysops and users with
- the 'Q' exemption have access to this command. To a sysop, an anonymous
- node appears normal with the addition of an 'A' in square brackets
- following the node information line.
-
-<b> QUIET (Quiet Mode)
-</b> Using this command, a sysop (or user with the 'Q' exemption) can make
- his node appear to be "Waiting for call" to other users of the system.
- Users with this ability can also make this state their default state
- upon logon in the user defaults section. Local users can logon in
- this state with the WFC command SPACE, then 'Z' or user number 1 can
- logon fast and quiet with the WFC command SPACE, then 'Q'.
- To a sysop, a node in this state appears normal with the addition of
- a 'Q' in square brackets following the node information line.
-
-<b> RERUN [x] (Rerun Node)
-</b> This command allows a sysop to rerun any node on the system by
- specifying the node number on the command line. If there is a user
- on the node that is to be rerun, the node will not rerun until that
- user logs off. A node that is going to be rerun is noted with an
- 'R' in square brackets following the node information in node listings.
-
-<b> DOS (Shell to DOS)
-</b> Using this command, a sysop can go straight to the DOS command line
- locally or remotely. If the sysop is on locally, ALT-D is the
- preferred method of shelling to DOS. If a local sysop wishes to shell
- to DOS from the wait for call screen, he can use the 'D' command.
-
-<b> EDIT [s] (Edit Text/MSG File)
-</b> A sysop can edit any ASCII text (and MSG format) files on the system
- with this command. If 's' is given, it will be used as the filename to
- be opened or created if it doesn't exist. If 's' is not specified, the
- filename will be prompted for.
-
-<b> LOG (Today's Detail Log)
-</b> A sysop can view today's detailed log file with this command. This
- command views the same file as the 'L' wait for call screen command.
-
-<b> YLOG (Yesterday's Detail Log)
-</b> A sysop can view yesterday's detailed log file with this command. This
- command views the same file as the 'Y' wait for call screen command.
-
-<b> NS [x] (Node Statistics)
-</b> This command will give today's statistics for node 'x' if specified,
- or the current node.
-
-<b> SS (System Statistics)
-</b> This command will give today's statistics for all nodes combined.
-
-<b> NLOG [x] (Node Statistics Log)
-</b> A sysop can view the history of statistics information for any node on
- the system. If 'x' is specified, that will be the node who's statistics
- are viewed, otherwise the current node. Same as 'N' from the wait for
- call screen.
-
-<b> SLOG (System Statistics Log)
-</b> Using this command, a sysop can view the history of statistics
- information for the system. Same as 'S' from the wait for call screen.
-
-<b> MEM (Available Memory) <font color="#CC0000"><i>(v2 for DOS Only)</i></font>
-</b> This command displays the amount of memory available to Synchronet and
- any external programs it executes (without swapping).
-
-<b> LIST [s] (View Text/MSG File)
-</b> A sysop can use this command to view any ASCII text (or MSG format)
- file on the system. If the filename 's' is not specified, it is
- prompted for.
-
-<b> GURU (View Guru Log)
-</b> A sysop can use this command to view the GURU.LOG file which contains
- discussions that users have had with the system guru (GURU.DAT).
- See GURU.DAT for more information.
-
-<b> MAIL (Read All Mail)
-</b> Using this command (or 'M' from the WFC screen) a sysop can read all
- the e-mail on the system.
-
-<b> BULKMAIL (Send Mass Mailing)
-</b> Use this command to send a single e-mail message to multiple users.
-
-<b> CALL [Hub-ID] (Force QWKnet Call-out)
-</b> Forces a QWKnet call-out to the hub "Hub-ID" the next time the call-out
- node is at the WFC screen. Example: CALL VERT
-
-<b> EXEC [Command] (Execute a DOS program or Baja module)
-</b> Execute internal DOS commands (DIR, TYPE, etc.) by prepending
- "command /c" to your command line. Execute Baja modules by prepending
- "*" to the command line. Baja modules must be located in your EXEC
- directory. Command line specifiers (see appendix A) may be used.
-
-<b> CHAT
-</b> Users with the 'C' exemption can use this command to page the sysop.
-
-<b> OLD (Search for Files not Downloaded Since New-Scan Date)
-</b> A sysop can use this command to remove, edit, or move files that were
- uploaded before the new-scan date (set with the '&P' transfer section
- command) and have not been downloaded since.
-
-<b> OLDUL (Search for Files Uploaded Before New-Scan Date)
-</b> A sysop can use this command to remove, edit, or move files that were
- uploaded before the new-scan date (set with the '&P' transfer section
- command).
-
-<b> CLOSE (Search for Files Currently Open)
-</b> If there are no users online and all nodes are running, there should
- be no file records open. A sysop can check for open file records with
- this command. Any file records that are left open erroneously, can be
- closed with this command. This circumstance should not happen.
-
-<b> ALTUL [x] (Alternate File Path Uploads)
-</b> If there are alternate file paths configured, a sysop can use this
- command to set the current upload path to one of the alternate file
- paths. All subsequent upload commands will use the alternate upload
- path as the storage directory regardless of the storage path specified
- for the directory being uploaded to. This is a useful command for
- those who wish to have one directory with files listed from multiple
- CD-ROMs.
- See CD-ROM for more information on creating alternate file paths.
-
-<b> UPLOAD (Bulk Local Upload)
-</b> This command searches for files that are on disk, but not in the
- database of the directory. If any are found, a description is prompted
- for and the file is then added to the database.
-
-<b> RESORT (Re-Sort and/or Compress)
-</b> A sysop can use this command to re-sort a directory if he has changed
- the sort order in the directory configuration or can use this command
- to remove deleted file records from the database to conserve memory and
- disk space. If there are many deleted files in the database of a
- directory, performance will also be affected. Deleted file records
- are used by new uploaded files, but if a substantial amount of files
- have been removed from a directory, a sysop may wish to use this
- command.
-
-<b> OFFLINE (Search for Offline Files)
-</b> This command will search the disk for files that are in the database
- of a directory but not actually on the disk. The sysop can then remove,
- edit, or move these files to another directory. Offline directories
- are ignored in this search.
-
-<b> DIR [s] (Directory of Files)
-</b> This command displays a DOS directory of the path specified. If no
- path is specified, a directory of the current file transfer directory
- is displayed.
-
-<b> GET [s] (Download File From Anywhere)
-</b> A sysop can download a file from any drive or directory on the system
- by using this command. The file does not have to be in the file
- database.
-
-<b> PUT [s] (Upload File to Anywhere)
-</b> A sysop can use this command to upload a file to a local disk without
- having to add it to the file database.</pre>
-
-<pre>Note: The Baja source code file for these commands is: <b>exec/str_cmds.src</b></pre>
-
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/system_config.html b/docs/system_config.html
deleted file mode 100644
index 9d26e794d7fe05cfbe32f1a5da6afb33f28df1b1..0000000000000000000000000000000000000000
--- a/docs/system_config.html
+++ /dev/null
@@ -1,524 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>System Configuration</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><b><a name="top"></a></b><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="SystemConfiguration">[2.0] - System Configuration</a></h2>
-<pre>SCFG is the Synchronet Configuration Utility. It is a stand-alone console mode
-application currently available in the following forms:</pre>
-<ul>
- <li>
-<pre>SCFG.EXE - 16-bit DOS application</pre>
- </li>
- <li>
-<pre>SCFG32.EXE - 32-bit extended-DOS/Win32 application</pre>
- </li>
- <li>
-<pre>SCFG4OS2.EXE - 32-bit OS/2 application</pre>
- </li>
-</ul>
-<pre>To run SCFG from Synchronet for Win32 Control Panel, select <i>Configure</i> from the <i>
-BBS</i> sub-menu on the menu bar.</pre>
-<pre><img border="0" src="images/sbbsctrl_configure.png" width="301" height="192"></pre>
-<pre>SCFG can be executed from the <b>v2</b> "<i>Waiting for call</i>" screen by
-hitting '<b>C</b>' or from DOS by typing <b>SCFG</b> from any node directory.
-Example:</pre>
-<pre><img border="0" src="images/scfg_dos_startup.png" width="500" height="150"></pre>
-<pre>Once SCFG has initialized, you will see a main menu titled "Configure" which looks
-something like this:</pre>
-<pre><img border="0" src="images/scfg_main.png" width="572" height="331">
-
-To manipulate the light-bar, use the <i>UP</i> and <i>DOWN ARROW</i> keys or type a letter or
-number in the option you wish to highlight. To highlight the first option of
-the menu, hit the <i>HOME</i> key. To highlight the last option of the menu, hit the
-<i>END</i> key. You'll notice that if you hit <i>UP ARROW</i> key when the light-bar is at the
-first option of the menu, the last option will become highlighted. This wrap effect
-also occurs when hitting the DOWN ARROW key when the light-bar is at the last option
-of the menu. To select the current highlighted option, hit <i>ENTER</i>. To exit SCFG,
-hit the <i>ESC</i> key.</pre>
-<pre>Under "System", set your system's name (BBS Name), the sysop's name (You), the
-system location (City, State), and system password. The system password you
-enter here will be required for any remote sysop operations and is prompted
-for with an "<b>SY:</b>" prompt. Under "<a href="#Message Options">Message Options</a>", set your system's QWK ID
-(Up to 8 character BBS name abbreviation). Under "Toggle Options" set
-"Allow Aliases" to "Yes" or "No" depending on if you want users to be known
-by their real names on your BBS or a personal alias.</pre>
-<pre>Remember that at any time within SCFG, you can hit the <i>F1</i> key to get online
-help about the current configuration window. Following is a more specific list
-of the commands available in the SCFG under System options.</pre>
-<h2><b><a name="MessageOptions">[2.1] - </a> </b><a name="MessageOptions"><b>Message Options</b></a>
-<br>
-<br>
-<img border="0" src="images/scfg_msg_options.png" width="572" height="331"></h2>
-<pre><b>BBS ID for QWK Packets:</b>
- This is the ID that will be used in QWK packets. It is important that
- you set this to an abbreviation of your BBS name before users start
- using the QWK functions of your BBS. Only valid DOS filename characters
- can be used and the ID must begin with an alphabetic character. This
- ID will also serve as your system's QWK Network address, should you
- choose to join a QWK message network.
-
-<b>Local Time Zone:</b>
- This should be set to the time zone where your BBS is located.
-
-<b>Maximum Retry Time:</b>
- This is the maximum number of seconds the Synchronet message base
- library will wait for a locked message base to become unlocked.
- Under normal conditions, message bases are only left locked for an
- extremely short period of time.
-
-<b>Maximum QWK Messages:</b>
- This is the maximum number of messages which will be packed when a
- QWK packet is created. If the number of new messages to be packed
- exceeds this, the packing will be stopped after packing this number
- of messages. Setting this value to 0 sets the number of messages
- per packet to unlimited. Private e-mail is not included in the total
- number of messages and QWK network nodes are automatically exempt
- from this maximum.
-
-<b>Pre-pack QWK Requirements:</b>
- If this option is used (not blank), Synchronet will pre-pack any new
- messages into a QWK packet in the DATA\FILE directory for each user
- that meets this requirement. When that user calls to download their
- packet, it will automatically extract the pre-packed QWK (if it
- exists) and append to it. It is mainly intended for QWKnet nodes that
- feed from your BBS, but can also be used for long distance users that
- wish to save connect time and always read their messages via QWK.
-
-<b>Purge E-mail by Age:</b>
- This will allow electronic mail for your users (stored in DATA\MAIL.*)
- to be purged after a specific number of days (read or unread).
-
-<b>Purge Deleted E-mail:</b>
- This option can be set to "Daily" or "Immediately". If set to
- "Immediately", e-mail marked for deletion will be physically removed
- from the e-mail database immediately after the user exits the
- reading mail menu. If set to "Daily" (the suggested setting), e-mail
- is marked for deletion isn't physically removed from the database
- until the automatic daily event executes (sometime after midnight).
-
-<b>Duplicate E-mail Checking:</b>
- This option allows the setting of a number of message CRCs to be kept
- to check e-mail to insure that it is not a duplicate of another piece
- of e-mail. This option should be set to 0 (disabled) unless you
- specifically want duplicate e-mail disallowed, in which case a value
- of 2000 should be sufficient.
-
-<b>Allow Anonymous E-mail:</b>
- Setting this option to Yes will allow users with the 'A' exemption to
- send anonymous e-mail.
-
-<b>Allow Quoting in E-mail:</b>
- To allow users to quote from e-mail, this option should be set to Yes.
-
-<b>Allow Uploads in E-mail:</b>
- To allow users to attach files to e-mail, this option must be set to
- Yes.
-
-<b>Allow Forwarding to NetMail:</b>
- If you allow users to send NetMail on your BBS and want to allow your
- users to set their account to forwarding their e-mail to a NetMail
- address, set this option to Yes.
-
-<b>Kill Read E-mail:</b>
- If you would like to have any e-mail that has been read by the
- recipient automatically deleted by the message base maintenance program
- (SMBUTIL) set this option to yes.
-
-<b>Users Can View Deleted Messages:</b>
- This option allows all users or sysops/sub-ops the ability to view
- messages (posts/e-mail) marked for deletion (and optionally undelete
- them) before they are permanently removed from the message base.
-
-<b>Extra Attribute Codes...:</b>
- This option will give you a sub-menu of toggle options. These options
- tell Synchronet whether or not it should interpret color codes which
- are supported by other BBS packages.</pre>
-<h2><img border="0" src="images/scfg_msg_attrcodes.png" width="572" height="331">
-
-
-<br>
-<br>
-
-
-<a name="SystemOptions">
-
-
-[2.2] - System Options</a></h2>
-<pre><img border="0" src="images/scfg_system.png" width="572" height="331">
-
-<b>BBS Name:</b>
- This is the name of the BBS.
-
-<b>Location:</b>
- This is the city, state and/or other pertinent location information.
-
-<b>Operator:</b>
- This is the name of the system operator. Doesn't have to be the same
- as user #1.
-
-<b>Password:</b>
- This is the super-secret system password that only sysops should know.
-
-<b>Users Can Change Password:</b>
- If you want enhanced system security, it is suggested that you force
- users to keep the original randomly generated password they were
- assigned by setting this option to No. If you do allow users to change
- their passwords, you can make them change their password periodically
- with this selection.
-
-<b>Days to Preserve Deleted Users:</b>
- If a user is deleted, his slot will be preserved for this many days
- since his last logon date. Preserved slots will not be written over
- by new users. Preserved slots may be undeleted by the sysop.
-
-<b>Maximum Days of Inactivity:</b>
- If you wish that users that haven't logged on in a certain number of
- days be automatically deleted, set this value to the maximum number
- of days a user can be inactive before he is deleted. Users can be
- exempted from the automatic deletion with the 'P' exemption. Setting
- this value to 0 disables this feature (Unlimited inactivity).
-
-<b>New User Password:</b>
- If this field has a value, new users will have to enter this password
- correctly before being able apply for access.</pre>
-<h2><b><a name="SystemToggleOptions">[2.3] - </a> </b><a name="SystemToggleOptions"><b>System Toggle Options</b></a></h2>
-<pre>Selecting this option will bring you to the following sub-menu:</pre>
-<pre><img border="0" src="images/scfg_system_toggle.png" width="572" height="331"></pre>
-<pre><b>Allow Aliases:</b>
- If you wish the users of the BBS to be allowed to use aliases publicly,
- set this option to Yes.
-
-<b>Allow Time Banking:</b>
- Set this option to Yes to allow users to store their time in a time
- bank, or to convert their credits to time via the BBS.
-
-<b>Allow Credit Conversions:</b>
- Setting this option to Yes will allow users to be able to convert
- credits to time.
-
-<b>Allow Local Sysop Access <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- To be able to perform sysop actions locally, this option should be set
- to Yes.
-
-<b>Allow Remote Sysop Access:</b>
- To be able to perform sysop actions remotely, this option should be set
- to Yes.
-
-<b>Echo Passwords Locally <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- If this option is set to No, all BBS passwords will not be displayed
- locally (characters will be replaced by an X). This includes passwords
- entered during logon, passwords in the user editor, as well as
- passwords normally displayed on the status line.
-
-<b>Require Passwords Locally <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- If this option is set to No the BBS will not ask for a password to be
- entered when performing local operations.
-
-<b>Short Sysop Page:
-</b> If set to Yes, this sysop page will be a short series of beeps,
- otherwise a continuous sysop page will be used.
-
-<b>Sound Alarm on Error:
-</b> If the above option (beep locally) is toggled off, but you still wish
- to have errors produce an audible alarm, you should toggle this option
- to Yes.
-
-<b>Include Sysop in Statistics:
-</b> It is suggested that you set this option to No, so that the sysop's
- activity on the BBS is not included in the usage statistics.
-
-<b>Closed to New Users:
-</b> If you wish to disallow access to any new users, set this option to
- Yes.
-
-<b>Use Location In User Lists:
-</b> If you wish the location (City, State) of the user to be displayed
- in user listings instead of the user note, set this option to Yes.
- Setting this option to No will display the user's note (sysop created)
- if one has been created. The option should be set to Yes if using
- Caller-ID since the user's note may contain their phone number.
-
-<b>Military (24 hour) Time Format:
-</b> Use this option to toggle your BBS between 12 and 24 hour time formats.
-
-<b>European Date Format (DD/MM/YY):
-</b> This option should ONLY be toggle to Yes if you are in a European
- country which uses this date format. All countries using the MM/DD/YY
- format should leave this option set to No. If your BBS has been running
- for any length of time with this option set to No, you should NOT
- change it to Yes.
-
-<b>User Expires When Out-of-time:
-</b> Useful for BBSs which charge users based on time, this option, when set
- to Yes, will set a user to the expired account values once the user's
- time runs out.
-
-<b>Quick Validation Hot-Keys <i><font color="#FF0000">(v2 Only)</font></i>:
-</b> If this option is set to No, the quick validation hot keys will be
- disabled.</pre>
-<h2><b><a name="NewUserValues">[2.4] - </a> </b><a name="NewUserValues"><b>New User Values</b></a>
-</h2>
-<pre><img border="0" src="images/scfg_system_newvalues.png" width="572" height="331"></pre>
-<pre>This option allows you to modify the security values assigned to a new user
-after he completes his validation feedback. You can also set the number of
-credits and minutes new users start off with. If you have configured an
-alternate command shell or external editors, you may select one of these as the
-default for new users. See User Edit for more information about user account
-values.</pre>
-<pre><img border="0" src="images/scfg_system_newvalues_toggles.png" width="572" height="331"></pre>
-<pre>The 'Default Toggles' are used to set the account defaults that users will have
-when they log on to the system as a new user. These account defaults can be
-changed by the user at logon, or while on the system from the user defaults
-menu.</pre>
-<pre><img border="0" src="images/scfg_system_newvalues_questions.png" width="572" height="331"></pre>
-<pre>The 'Question Toggles' are used to enable/disable the different questions which
-new users will be asked when logging on to the BBS. The 'Force Unique...'
-question toggles are used to force users to pick a string that is not being
-used by any of the other users currently in the system user list.</pre>
-<h2><b><a name="AdvancedOptions">[2.5] - Advanced Options</a>
-</b></h2>
-<pre><img border="0" src="images/scfg_system_advanced.png" width="572" height="331">
-
-<b>New User Magic Word:
-</b> If this field has a value, it is assumed the sysop would have put
- some reference to this "magic word" in NEWUSER.MSG and the user
- will be prompted for this after he enters his own assigned password.
- If he doesn't enter it correctly, it is assumed he didn't read the
- text displayed to him and he is disconnected.
-
-<b>Data Directory:
-</b> This is the path to the directory where all the data files for SBBS
- are stored. This value should not be changed unless necessary.
-
-<b>Index Directory:
-</b> This is the path to the directory where all the index files for SBBS
- are stored. This value should not be changed unless necessary.
-
-<b>Executables Directory:
-</b> This is the path to the directory where all the executable files for
- SBBS are store. This value should not be changed unless necessary.
-
-<b>Input SIF Questionnaire:
-</b> This is the name of a SIF file that resides the text directory that
- all users will be prompted to answer upon logging on the first time.
- See SIF for more information.
-
-<b>Output SIF Questionnaire:
-</b> This is the name of the SIF file that is used by the sysop to view
- the users' answers to the input SIF questionnaire. If this value is
- left blank, the input SIF questionnaire is used. This output SIF
- questionable should be identical to the input SIF with the exception
- of the text content. See SIF for more information.
-
-<b>Credits Per Dollar:
-</b> This is the monetary value of a credit (How many credits per dollar).
- This value should be a power of 2 (1, 2, 4, 8, 16, 32, 64, 128, etc.)
- since credits are usually converted by 100 kilobyte (102400) blocks.
- To make a dollar worth two megabytes of credits, set this value to
- 2,097,152 (a megabyte is 1024*1024 or 1048576).
-
-<b>Minutes Per 100k Credits:
-</b> This is the value of a minute of time online. Credits can be converted
- to minutes by the user if allowed by the command shell. Credits are
- only converted in 100k (102400) blocks. This field is the number of
- minutes to give the user in exchange for the 100k credit block.
-
-<b>Maximum Number of Minutes:
-</b> This value is the maximum total number of minutes a user can have. If
- the user has this number of minutes or more, he will not be allowed
- to convert credits into minutes. A sysop can add minutes to a user's
- account regardless of this maximum. If this value is set to 0, the
- user will have no limit on the total number of minutes he can have.
-
-<b>Warning Days Till Expire:</b>
- When a users account is about to expire, the BBS will begin sending
- expiration warning messages to the users notifying them this many days
- in advance.
-
-<b>Default Status Line <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- This is the number of the status line that will be displayed by default
- at the bottom of the screen while the user is online.
-
-<b>Last Displayable Node:</b>
- This is the number of the last node that will be viewable by the users.
- Any nodes which exist above this number will be "invisible" nodes and
- cannot be seen by anyone.
-
-<b>First Local Auto-Node <i><font color="#FF0000">(v2 Only)</font></i>:</b>
- When using the AUTONODE utility, this is the node number to begin
- searching at for an available (offline) node.
-
-<b>Phone Number Format:</b>
- This is the format which users will be required to use when entering
- their phone numbers.
-
-<b>Sysop Chat Requirements:
-</b> Any user meeting the criteria set here will be able to page the sysop
- regardless of the status of the sysop availability (Scroll Lock in v2.3).</pre>
-<h2><b><a name="LoadableModules">[2.6] - Loadable Modules</a>
-</b></h2>
-<pre><img border="0" src="images/scfg_system_loadablemods.png" width="572" height="331">
-
-The Loadable Modules options are used for loading Baja .BIN modules during
-various stages of the BBS operation. Selecting one of the functions
-will prompt you for the name of the Baja module to be used when that event
-occurs. See DOCS\BAJA.DOC for details on creating/modifying loadable modules.
-
-Following is a brief description of when each of the Loadable Modules occur
-during the BBS operation:
-
-<b>Login:</b>
- This module is <b>REQUIRED</b> for remote and local logins. Occurs when a
- user is connected, immediately after the Synchronet copyright notice is
- displayed.
-
-<b>Logon Event:
-</b> Occurs immediately after Login (above).
-
-<b>Sync Event:
-</b> This is a Synchronization Event and occurs each time the BBS performs
- a node synchronization (e.g. when node messages are received, node
- status is read, etc...basically continuously while a user is online).
-
-<b>Logoff Event:
-</b> Occurs ONLY when a user does a slow logoff. Does NOT occur when users
- hang up on the BBS or do a fast logoff.
-
-<b>Logout Event:
-</b> This is an offline event that occurs after a user has disconnected from
- the BBS, either by logging off or hanging up.
-
-<b>New User Event:
-</b> Occurs at the end of a new user procedure (e.g. after the user has
- logged on, left new user feedback, and anything else that is
- required of a new user).
-
-<b>Expired User:
-</b> This is an offline event that occurs during Synchronet's internal daily
- event (after the first caller at the beginning of a new day).</pre>
-<h2><b><a name="SecurityValues">[2.7] - </a> </b><a name="SecurityValues"><b>Security Values</b></a></h2>
-<pre><img border="0" src="images/scfg_system_securityvalues.png" width="572" height="331"></pre>
-<pre>This option allows you to define the values of the Security Levels (0-99).
-Selecting the desired security level will bring you to another menu similar to
-the following:</pre>
-<pre><img border="0" src="images/scfg_system_securityvalues_0.png" width="572" height="331"></pre>
-<pre>Here you can modify the corresponding values for that particular security
-level. These values will be given to ALL users who have the selected security
-level. Many of these values may be overridden by giving certain users the
-necessary exemptions (if required).</pre>
-<h2><b><a name="ExpiredAccountValues">[2.8] - </a> </b><a name="ExpiredAccountValues"><b>Expired Account Values</b></a>
-</h2>
-<pre><img border="0" src="images/scfg_system_expired.png" width="572" height="331">
-
-This sub-menu contains the account values for expired user accounts. When
-a user account expires, the information contained here will be applied to
-that user account.</pre>
-<h2><b><a name="QuickValidationValues">[2.9] - </a> </b><a name="QuickValidationValues"><b>Quick Validation Values</b></a></h2>
-<pre><img border="0" src="images/scfg_system_quickval.png" width="572" height="331">
-
-This is where you define the values of the quick-validation sets (0-9).
-Selecting a level from this list will bring you to another menu similar to the
-following:</pre>
-<pre><img border="0" src="images/scfg_system_quickval_0.png" width="572" height="331">
-
-These are used to quickly set a user's Level, Flags, Restrictions and
-Exemptions, as well as extend their expiration date and add credits to their
-account. A user can be quick-validated by hitting Alt-(0-9) while the user is
-online, or with the 'V' command from User Edit.</pre>
-<h2><b><a name="CreatingUserAccountsLocally">[2.10] - </a> </b><a name="CreatingUserAccountsLocally"><b>Creating User Accounts
-Locally</b></a><b> <i><font color="#FF0000">(v2 Only)</font></i></b></h2>
-<pre>Exit the configuration program and run SBBS from your NODE1 directory. When you
-get a menu that says "Synchronet Version xx" (Wait For Call screen), hit
-SPACE BAR to logon. Answer 'Y' to the Logon (Y/N) prompt. At the NN: prompt,
-enter "NEW" to create a new account. Answer the questions until you get to the
-BBS main menu and then logoff the BBS.
-
-Repeat this process for any other user accounts you wish to create. Be sure
-to give out high access levels and exemptions very carefully.</pre>
-<h3><b><a name="CreatingSysopAccount">[2.10.1] - </a> </b><a name="CreatingSysopAccount"><b>Creating a Sysop Account</b></a></h3>
-<pre>Follow the above steps to create a user account. Once you are back at the WFC
-(Wait For Call) screen, press 'U' and go to the account that you've created.
-You should give this account (the main sysop account) all of the different
-flags and exemptions (no restrictions), and a level of 99 (use '?' to help
-find the keys to select the different options).
-
-<b>NOTE:</b> Users with levels of 90 and above have SYSOP access.
-
- <b><i>TIP:</i></b> To logon from the wait for call screen quickly, hit SPACE, then 'F'
- for fast sysop (user #1) logon.
-
- <b><i>TIP:</i></b> To keep your logons from being written to the logon list, turn
- "Default to quiet mode" on from the Default Configuration menu. If
- you want users to see that you're online, you can toggle quiet mode
- off/on with the ";QUIET" sysop command from the Synchronet main menu.</pre>
-<h3><b><a name="CreatingGuestAccount">[2.10.2] - </a> </b><a name="CreatingGuestAccount"><b>Creating a Guest Account</b></a></h3>
-<pre>Follow the above steps to create a user account. Once you are back at the WFC
-(Wait For Call) screen, press 'U' and go to the account that you've created to
-be used as your Guest account. Change the Real Name field of the account to
-'Guest', and give this account the access that you feel is necessary for a
-Guest user to have (along with any Restrictions that may be necessary). Select
-the Password field, and make it blank (this will allow Guests to log on by
-simply entering GUEST at the NN: prompt without the need for a password).
-
-If you have certain areas on your BBS which are restricted by age, you may wish
-to modify the Birth-date field of the Guest account as necessary.
-
-You may also wish to (from the SCFG program under Nodes->Node#->Logon Prompt)
-modify the logon prompts of your nodes to read something along the lines of
-'Enter Name, Number, New, or Guest', so that users will be aware that there is
-a Guest account available for them to use. You can also place a note informing
-users of the Guest account in your BBS's ANSWER screen.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/text210a.dif b/docs/text210a.dif
deleted file mode 100644
index c6c4ce90efc3c13a393d7a455de27958fc00c3e4..0000000000000000000000000000000000000000
--- a/docs/text210a.dif
+++ /dev/null
@@ -1,191 +0,0 @@
-Comparing files 200G\TEXT.DAT and 210A\TEXT.DAT
-***** 200G\TEXT.DAT
-"rh\r\n\7You have posted too many times today.\r\n" TooManyPostsToday
-"\r\7Sorry, Sub-board is full - message NOT saved.\r\n" SubFull (*)
-"n\r\nThe sending of mail is beyond your ability.\r\n" R_Email
-"n\r\nPlease post on some other computer.\r\n" R_Post
-"n\r\nThanks, but %s doesn't care to hear "\ R_Feedback
- "from you.\r\n"
-"nm\r\nSending E-mail to h%s nm#%un\r\n" Emailing
-***** 210A\TEXT.DAT
-"rh\r\n\7You have posted too many times today.\r\n" TooManyPostsToday
-"\r\7Sub-board is full - message NOT saved.\r\n" SubFull (*)
-"n\r\nThe sending of mail is beyond your ability.\r\n" R_Email
-"n\r\nYou can't post messages.\r\n" R_Post
-"n\r\nYou can't send E-mail to %s.\r\n" R_Feedback
-"nm\r\nSending E-mail to h%s nm#%un\r\n" Emailing
-*****
-
-***** 200G\TEXT.DAT
-"nm\r\nForwarded by h%snm on "\ ForwardedFrom
- "h%s\r\n"
-"nm\r\nMail forwarded to h%s nm#%d.n\r\n" Forwarded
-***** 210A\TEXT.DAT
-"nm\r\nForwarded by h%snm on "\ ForwardedFrom
- "h%sn\r\n"
-"nm\r\nMail forwarded to h%s nm#%d.n\r\n" Forwarded
-*****
-
-***** 200G\TEXT.DAT
- "h%ung): n"
-"n\r\nCannot reply to anonymous message.\r\n" CantReplyToAnonMsg
-"ncRE: h%sn\r\n\r\n" Regarding
-***** 210A\TEXT.DAT
- "h%ung): n"
-"n\r\nYou can't reply to an anonymous message.\r\n" CantReplyToAnonMsg
-"ncRE: h%sn\r\n\r\n" Regarding
-*****
-
-***** 200G\TEXT.DAT
-"\r\nNo messages have been posted on %s %s\r\n" NoMsgsOnSub
-"\r\nncPost : [h%dnc][h%dnc] h%dnc/h%d" ZScanPostHdr
-"_\r\nchReading nc[h%unc] %s "\ ReadingSub
-***** 210A\TEXT.DAT
-"\r\nNo messages have been posted on %s %s\r\n" NoMsgsOnSub
-"\r\nncPost : [h%unc][h%unc] h%lunc/h%lu" ZScanPostHdr
-"_\r\nchReading nc[h%unc] %s "\ ReadingSub
-*****
-
-***** 200G\TEXT.DAT
-"\r\nAre you sure" AreYouSureQ
-"\r\n\r\nYour chatting abilities have disappeared.\r\n" R_Chat
-"RE: Feedback\r\n\r\n" ReFeedback
-***** 210A\TEXT.DAT
-"\r\nAre you sure" AreYouSureQ
-"\r\n\r\nYou can't chat.\r\n" R_Chat
-"RE: Feedback\r\n\r\n" ReFeedback
-*****
-
-***** 200G\TEXT.DAT
-"\r\nYou can't post on this sub.\r\n" CantPostOnSub
-"\r\n\r\nSorry, you can't access the transfer "\ R_TransferSection
- "section.\r\n"
-***** 210A\TEXT.DAT
-"\r\nYou can't post on this sub.\r\n" CantPostOnSub
-"\r\n\r\nYou can't access the transfer "\ R_TransferSection
- "section.\r\n"
-*****
-
-***** 200G\TEXT.DAT
- "than %d days.\r\n\r\n"
-"\r\nChoose a new password" NewPasswordQ
-"_\r\nyhNew password (4-8 chars): " NewPassword
-***** 210A\TEXT.DAT
- "than %d days.\r\n\r\n"
-"\r\nEnter a different password" NewPasswordQ
-"_\r\nyhNew password (4-8 chars): " NewPassword
-*****
-
-***** 200G\TEXT.DAT
-"_\r\nyhMagic word: w" MagicWordPrompt
-"\r\nSorry, illiterate users aren't given "\ FailedMagicWord
- "access here.\r\n"
-"Sorry, the system is full." SystemFull
-***** 210A\TEXT.DAT
-"_\r\nyhMagic word: w" MagicWordPrompt
-"\r\nSorry, that was not the magic word.\r\n" FailedMagicWord
-"Sorry, the system is full." SystemFull
-*****
-
-***** 200G\TEXT.DAT
-"rhiYou call that a password?n" PasswordInvalid
-"rhiThat's not very original!n" PasswordObvious
-"\r\nnA) IBM (or compatible)\r\nB) Apple\r\nC) "\ ComuterTypeMenu
-***** 210A\TEXT.DAT
-"rhiYou call that a password?n" PasswordInvalid
-"rhiThat password is too obvious!n" PasswordObvious
-"\r\nnA) IBM (or compatible)\r\nB) Apple\r\nC) "\ ComuterTypeMenu
-*****
-
-***** 200G\TEXT.DAT
-"\r\n_yhNetMail address "\ EnterNetMailAddress
- "(Example: Joe Schmoe @1:1/1)\r\n: "
-"nlgSelect h%sng:\r\n\r\n" SelectItemHdr
-***** 210A\TEXT.DAT
-"\r\n_yhNetMail address "\ EnterNetMailAddress
- "(Example: name@address)\r\n: "
-"nlgSelect h%sng:\r\n\r\n" SelectItemHdr
-*****
-
-***** 200G\TEXT.DAT
-"\r\nwhWelcome to Channel %d (c%sw)\r\n\r\nn" WelcomeToChannelN
-"_whNode %2d: g%sng in multinode chat "\ NodeInMultiChatLocally
- "channel %d locally.\r\n"
-***** 210A\TEXT.DAT
-"\r\nwhWelcome to Channel %d (c%sw)\r\n\r\nn" WelcomeToChannelN
-"_wh%3d g%sng in multinode chat "\ NodeInMultiChatLocally
- "channel %d locally.\r\n"
-*****
-
-***** 200G\TEXT.DAT
-"\r\nCorrect.\r\n" CorrectPassword
-"\r\nWrong password.\r\n" WrongPassword
-"Password protect this channel" PasswordProtectChanQ
-***** 210A\TEXT.DAT
-"\r\nCorrect.\r\n" CorrectPassword
-"rh\r\nWrong password.\r\n" WrongPassword
-"Password protect this channel" PasswordProtectChanQ
-*****
-
-***** 200G\TEXT.DAT
-"\r\nnYou've taken too long to log on.\r\n" TakenTooLongToLogon
-"\r\nnCall back later when you are there.\r\n" CallBackWhenYoureThere
-"_bh%s (cYb/cnb) ? w" YesNoQuestion
-***** 210A\TEXT.DAT
-"\r\nnYou've taken too long to log on.\r\n" TakenTooLongToLogon
-"\r\nnYou've been inactive too long.\r\n" CallBackWhenYoureThere
-"_bh%s (cYb/cnb) ? w" YesNoQuestion
-*****
-
-***** 200G\TEXT.DAT
- "Continue"
-"nm\r\nSending NetMail To: h%snm at h%s\r\n"\ NetMailing
- " nmFrom: h%snm at h%s\r\n"
-"Remove this sub-board from your new-scan list" RemoveFromNewScanQ
-***** 210A\TEXT.DAT
- "Continue"
-"nm\r\nSending NetMail To: h%snm (h%snm)\r\n"\ NetMailing
- " From: h%snm (h%snm)\r\n"
-"Remove this sub-board from your new-scan list" RemoveFromNewScanQ
-*****
-
-***** 200G\TEXT.DAT
-"\r\nEcho is now %s \r\n" EchoIsNow
-"\r\nnyhPrivate Chat - bType w/?b for "\ WelcomeToPrivateChat
- "menu.n\r\n\r\n"
-"\r\nngUploading h%s.REP\r\n" UploadingREP
-***** 210A\TEXT.DAT
-"\r\nEcho is now %s \r\n" EchoIsNow
-"\r\nnyhPrivate Chat - bCtrl-C to Quitn\r\n\r\n" WelcomeToPrivateChat
-"\r\nngUploading h%s.REP\r\n" UploadingREP
-*****
-
-***** 200G\TEXT.DAT
-"hc%3u nc%-25.25sh%8lu" ChatChanLstFmt
-"\r\nYou cannot access that channel.\r\n" CantAccessThatChannel
-"\r\nYou cannot download from this directory.\r\n" CantDownloadFromDir
-"_whSearching for duplicates..." SearchingForDupes
-***** 210A\TEXT.DAT
-"hc%3u nc%-25.25sh%8lu" ChatChanLstFmt
-"\r\nYou can't access that channel.\r\n" CantAccessThatChannel
-"\r\nYou can't download from this directory.\r\n" CantDownloadFromDir
-"_whSearching for duplicates..." SearchingForDupes
-*****
-
-***** 200G\TEXT.DAT
-"ng(h%dng) %sh\r\n" CfgLibLstFmt
-"~Batch download, ~Extended info, ~View file, "\ BatchFlagPrompt
- "~Skip dir, ~Quit or [More]: "
-"~Batch, ~Extended, ~View, ~Delete, ~Move, "\ SysopBatchFlagPrompt
- "~Skip dir, ~Quit or [More]: "
-"\r\nDownload attached file: w%sb (%s bytes)" DownloadAttachedFileQ
-***** 210A\TEXT.DAT
-"ng(h%dng) %sh\r\n" CfgLibLstFmt
-"_chListing nc(h%unc) %s "\ BatchFlagPrompt
- "(h%unc) %s (h?nc=Menu) (h%lunc Filesnc): n"
-"nl4 hy[wBy]atch Download [wVy]iew Content [wEy]xtended "\
- "Info [wPy]revious Files [wQy]uit n\r\n"
-"\r\nDownload attached file: w%sb (%s bytes)" DownloadAttachedFileQ
-*****
-
-
diff --git a/docs/text220a.dif b/docs/text220a.dif
deleted file mode 100644
index 01ca95023c3c0244cd4fac10690cecb37977ed20..0000000000000000000000000000000000000000
--- a/docs/text220a.dif
+++ /dev/null
@@ -1,167 +0,0 @@
-Comparing files 211A\TEXT.DAT and 220A\TEXT.DAT
-***** 211A\TEXT.DAT
-"\1n\1cSubj : \1h%s\r\n" MsgSubj
-"\1n\1cAttr : \1h%s%s%s%s%s%s%s\r\n" MsgAttr
-"\1n\1cTo : \1h%s" MsgTo
-***** 220A\TEXT.DAT
-"\1n\1cSubj : \1h%s\r\n" MsgSubj
-"\1n\1cAttr : \1h%s%s%s%s%s%s%s%s%s\r\n" MsgAttr
-"\1n\1cTo : \1h%s" MsgTo
-*****
-
-***** 211A\TEXT.DAT
-"rh\r\n\7You have posted too many times today.\r\n" TooManyPostsToday
-"\r\7Sub-board is full - message NOT saved.\r\n" SubFull (*)
-"n\r\nThe sending of mail is beyond your ability.\r\n" R_Email
-***** 220A\TEXT.DAT
-"rh\r\n\7You have posted too many times today.\r\n" TooManyPostsToday
-"\r\7nrhCannot add w%sr to queue - n" CantAddToQueue
-"n\r\nThe sending of mail is beyond your ability.\r\n" R_Email
-*****
-
-***** 211A\TEXT.DAT
-"\r\nWhich, ~Add, ~Remove, ~Edit, or ~Quit: " WhichTextFileSysop
-"_\r\ncWhich or h~Qncuit: h" WhichTextFile
-"_\r\nyhBefore which file: n" AddTextFileBeforeWhich
-***** 220A\TEXT.DAT
-"\r\nWhich, ~Add, ~Remove, ~Edit, or ~Quit: " WhichTextFileSysop
-"_\r\nncWhich or h~Qncuit: h" WhichTextFile
-"_\r\nyhBefore which file: n" AddTextFileBeforeWhich
-*****
-
-***** 211A\TEXT.DAT
-"\r\n~Quit or [Next]: " QuitOrNext
-"~Remove, ~Move, ~Edit, ~Quit, or [Next]: " RExemptRemoveFilePrompt
-"n(%d) %s\r\n" MoveToLibLstFmt
-***** 220A\TEXT.DAT
-"\r\n~Quit or [Next]: " QuitOrNext
-"~Remove, ~Move, ~Edit, ~View, ~Quit, or [Next]: " RExemptRemoveFilePrompt
-"n(%d) %s\r\n" MoveToLibLstFmt
-*****
-
-***** 211A\TEXT.DAT
-"~Remove, ~Credits only, ~File only, ~Move, ~Edit, "\ SysopRemoveFilePrompt
- "~Quit, or [Next]: "
-"~Remove, ~Edit, ~Quit, or [Next]: " UserRemoveFilePrompt
-"\r\nFile not there.\r\n" FileNotThere
-***** 220A\TEXT.DAT
-"~Remove, ~Credits only, ~File only, ~Move, ~Edit, "\ SysopRemoveFilePrompt
- "~View, ~Quit, or [Next]: "
-"~Remove, ~Edit, ~View, ~Quit, or [Next]: " UserRemoveFilePrompt
-"\r\nFile not there.\r\n" FileNotThere
-*****
-
-***** 211A\TEXT.DAT
- "(%s bytes)n\r\n"
-"wh\r\nFile is already in queue.\r\n" FileAlreadyInQueue
-"wh\r\nFile is not online.\r\n" FileIsNotOnline
-***** 220A\TEXT.DAT
- "(%s bytes)n\r\n"
-"wh\r\n%s is already in the queue.\r\n" FileAlreadyInQueue
-"wh\r\nFile is not online.\r\n" FileIsNotOnline
-*****
-
-***** 211A\TEXT.DAT
- " Bytes: h%snc Time: h%s\r\n"
-"\r\nNon-viewable file type.\r\n" NonviewableFile
-"rhi%s NOT RECEIVED!n\r\n" FileNotReceived
-***** 220A\TEXT.DAT
- " Bytes: h%snc Time: h%s\r\n"
-"\r\nnrhThe sysop has not configured w%sr as a"\ NonviewableFile
- " viewable file type.\r\n"
-"rhi%s NOT RECEIVED!n\r\n" FileNotReceived
-*****
-
-***** 211A\TEXT.DAT
-"\r\nmhChecking Slots..." CheckingSlots
-"%-32.32s%-30.30s%-8.8s %-8.8s\r\n" UserListFmt
-"\r%d Total users. \r\n" NTotalUsers
-***** 220A\TEXT.DAT
-"\r\nmhChecking Slots..." CheckingSlots
-"nh%-32.32snm%-30.30sh%-8.8s nm%-8.8s\r\n" UserListFmt
-"\r%d Total users. \r\n" NTotalUsers
-*****
-
-***** 211A\TEXT.DAT
-"ncExemption : h%-26s ncRestricts : h%s\r\n" UeditExempts
-"\r\n_yhUser edit (%u of %u): n" UeditPrompt
-"Restore User" UeditRestoreQ
-***** 220A\TEXT.DAT
-"ncExemption : h%-26s ncRestricts : h%s\r\n" UeditExempts
-"\r\n_yhUser edit (w?y=Menu) "\ UeditPrompt
- "(w%uy of w%uy): n"
-"Restore User" UeditRestoreQ
-*****
-
-***** 211A\TEXT.DAT
-"\r\nDelete Questionaire" DeleteQuestionaireQ
-"-gDefault settings for h%s #%d\r\n\r\nn" UserDefaultsHdr
-"T) Terminal Mode : %s\r\n" UserDefaultsTerminal
-"E) External Editor : %s\r\n" UserDefaultsXeditor
-"L) Screen Length : %s\r\n" UserDefaultsRows
-"X) Expert Menu Mode : %s\r\n" UserDefaultsMenuMode
-"P) Screen Pause : %s\r\n" UserDefaultsPause
-"H) Hot Keys : %s\r\n" UserDefaultsHotKey
-"S) Spinning Cursor : %s\r\n" UserDefaultsCursor
-"C) Clear Screen Between Messages : %s\r\n" UserDefaultsCLS
-"N) Ask For New Message/File Scan : %s\r\n" UserDefaultsAskNScan
-"Y) Ask For Your Un-read Msg Scan : %s\r\n" UserDefaultsAskSScan
-"F) Automatic New File Scan : %s\r\n" UserDefaultsANFS
-"R) Remember Current Sub-board : %s\r\n" UserDefaultsRemember
-"B) Batch Download File Flagging : %s\r\n" UserDefaultsBatFlag
-"M) Forward E-mail to NetMail : %s\r\n" UserDefaultsNetMail
-"K) Command Shell : %s\r\n" UserDefaultsCmdShell
-"D) Default to Quiet Mode : %s\r\n" UserDefaultsQuiet
-"W) Change Password\r\n" UserDefaultsPassword
-"A) Temporary/QWK Archive Type : %s\r\n" UserDefualtsArcType
-"Q) Quit (accept settings)\r\n\r\n" UserDefaultsQuit
-"_yhWhich: n" UserDefaultsWhich
-"On" On
-***** 220A\TEXT.DAT
-"\r\nDelete Questionaire" DeleteQuestionaireQ
-"-gDefault settings for hw%s #%d\r\n\r\nn" UserDefaultsHdr
-"nhTng) Terminal Mode : h%s\r\n" UserDefaultsTerminal
-"nhEng) External Editor : h%s\r\n" UserDefaultsXeditor
-"nhLng) Screen Length : h%s\r\n" UserDefaultsRows
-"nhXng) Expert Menu Mode : h%s\r\n" UserDefaultsMenuMode
-"nhPng) Screen Pause : h%s\r\n" UserDefaultsPause
-"nhHng) Hot Keys : h%s\r\n" UserDefaultsHotKey
-"nhSng) Spinning Cursor : h%s\r\n" UserDefaultsCursor
-"nhCng) Clear Screen Between Messages : h%s\r\n" UserDefaultsCLS
-"nhNng) Ask For New Message/File Scan : h%s\r\n" UserDefaultsAskNScan
-"nhYng) Ask For Your Un-read Msg Scan : h%s\r\n" UserDefaultsAskSScan
-"nhFng) Automatic New File Scan : h%s\r\n" UserDefaultsANFS
-"nhRng) Remember Current Sub-board : h%s\r\n" UserDefaultsRemember
-"nhBng) Batch Download File Flagging : h%s\r\n" UserDefaultsBatFlag
-"nhMng) Forward E-mail to NetMail : h%s\r\n" UserDefaultsNetMail
-"nhKng) Command Shell : h%s\r\n" UserDefaultsCmdShell
-"nhDng) Default to Quiet Mode : h%s\r\n" UserDefaultsQuiet
-"nhWng) Change Password\r\n" UserDefaultsPassword
-"nhAng) Temporary/QWK Archive Type : h%s\r\n" UserDefualtsArcType
-"nhZng) Default Download Protocol : h%s "\ UserDefaultsProtocol
- "ng%s\r\n"
-"\r\n_gWhich or [hwQng]uit: n" UserDefaultsWhich
-"On" On
-*****
-
-***** 211A\TEXT.DAT
-"No one has logged on today.\r\n" NoOneHasLoggedOnToday
-"ghLast few callers:\r\nng" LastFewCallers
-"\r\n%-2d %-6lu %-25.25s %-25.25s%02u:%02u %-8.8s %-3d" LastFewCallersFmt
-"\r\nghCallers Today:\r\nng" CallersToday
-"_bhDo you mean %s #%u "\ DoYouMeanThisUserQ
-***** 220A\TEXT.DAT
-"No one has logged on today.\r\n" NoOneHasLoggedOnToday
-"ghLast few callers:\r\nng" LastFewCallers (*)
-"\r\nnhm%-2d nm%-6lu wh%-25.25s m%-25.25s"\ LastFewCallersFmt
- "nm%02u:%02u h%-8.8s nm%-3d"
-"\r\nghCallers Today:ng" CallersToday
-"_bhDo you mean %s #%u "\ DoYouMeanThisUserQ
-*****
-
-***** 211A\TEXT.DAT
-***** 220A\TEXT.DAT
-"YN" YN
-*****
-
-
diff --git a/docs/text220b.dif b/docs/text220b.dif
deleted file mode 100644
index 74a1fb481afc85aafcb69a97d05f248b85483c3d..0000000000000000000000000000000000000000
--- a/docs/text220b.dif
+++ /dev/null
@@ -1,22 +0,0 @@
-Comparing files 220A\TEXT.DAT and 220B\TEXT.DAT
-***** 220A\TEXT.DAT
-"Only %d lines left.\r\n" 025 OnlyNLinesLeft
-"\r\n\r\nOut of bytes.\r\n" 026 OutOfBytes
-"Invalid line number\r\n" 027 InvalidLineNumber
-***** 220B\TEXT.DAT
-"Only %d lines left.\r\n" 025 OnlyNLinesLeft
-"\r\n\r\n\1n\1r\1h\1iOut of bytes.\1n\r\n" 026 OutOfBytes
-"Invalid line number\r\n" 027 InvalidLineNumber
-*****
-
-***** 220A\TEXT.DAT
-"nh\r\nSaving..." 033 Saving
-"\rbSaved w%ub bytes.n\r\n" 034 SavedNBytes
-"n\r\nWriting Index..." 035 WritingIndx
-***** 220B\TEXT.DAT
-"nh\r\nSaving..." 033 Saving
-"\rbSaved w%lub characters (w%ub lines).n\r\n" 034 SavedNBytss
-"n\r\nWriting Index..." 035 WritingIndx
-*****
-
-
diff --git a/docs/text230a.dif b/docs/text230a.dif
deleted file mode 100644
index 5581592b4809b070d66d1b13694bf871a1976471..0000000000000000000000000000000000000000
--- a/docs/text230a.dif
+++ /dev/null
@@ -1,106 +0,0 @@
-Comparing files 220B\TEXT.DAT and 230A\TEXT.DAT
-***** 220B\TEXT.DAT
-"_\r\nghMail Waiting:\r\n\r\n" 046 MailWaitingLstHdr
-"gh%3d: ng%-25.25s h%cng %.47s\r\n" 047 MailWaitingLstFmt
-"_\r\nyhStart with number [w%luy]: w" 048 StartWithN
-***** 230A\TEXT.DAT
-"_\r\nghMail Waiting:\r\n\r\n" 046 MailWaitingLstHdr
-"gh%3d: ng%-25.25s h%cng %.46s\r\n" 047 MailWaitingLstFmt
-"_\r\nyhStart with number [w%luy]: w" 048 StartWithN
-*****
-
-***** 220B\TEXT.DAT
-"-\r\nghMessages:\r\n\r\nn" 077 SubMsgLstHdr
-"gh%4lu:ng %-22.22s %-22.22s h%cng %.25s\r\n" 078 SubMsgLstFmt
-"\r\nMake post #%d %s" 079 ChangeMsgPurgeQ
-***** 230A\TEXT.DAT
-"-\r\nghMessages:\r\n\r\nn" 077 SubMsgLstHdr
-"gh%4u:ng %-22.22s %-22.22s h%cng %.25s\r\n" 078 SubMsgLstFmt
-"\r\nMake post #%d %s" 079 ChangeMsgPurgeQ
-*****
-
-***** 220B\TEXT.DAT
-"l_chGeneral Text File Sections:\r\n\r\n" 081 TextSectionLstHdr
-"nc<h%dnc> %s\r\n" 082 TextSectionLstFmt
-"_\r\ncWhich or h~Qncuit: h" 083 WhichTextSection
-***** 230A\TEXT.DAT
-"l_chGeneral Text File Sections:\r\n\r\n" 081 TextSectionLstHdr
-"nc<h%ldnc> %s\r\n" 082 TextSectionLstFmt
-"_\r\ncWhich or h~Qncuit: h" 083 WhichTextSection
-*****
-
-***** 220B\TEXT.DAT
-"l_ch%s Files:\r\n\r\n" 084 TextFilesLstHdr
-"ch%3d: nc%s" 085 TextFilesLstFmt
-"\r\nWhich, ~Add, ~Remove, ~Edit, or ~Quit: " 086 WhichTextFileSysop
-***** 230A\TEXT.DAT
-"l_ch%s Files:\r\n\r\n" 084 TextFilesLstHdr
-"ch%3ld: nc%s" 085 TextFilesLstFmt
-"\r\nWhich, ~Add, ~Remove, ~Edit, or ~Quit: " 086 WhichTextFileSysop
-*****
-
-***** 220B\TEXT.DAT
-"l-gSub-boards of h%s:\r\n\r\nh" 131 CfgSubLstHdr
-"ng[h%dng] %-40.40s h%s\r\n" 132 CfgSubLstFmt
-"l_ghMessage Groups:\r\n\r\n" 133 CfgGrpLstHdr
-"ng[h%dng] %sh\r\n" 134 CfgGrpLstFmt
-"\r\nSub-board to toggle new message scan"\ 135 NScanCfgWhichSub
-***** 230A\TEXT.DAT
-"l-gSub-boards of h%s:\r\n\r\nh" 131 CfgSubLstHdr
-"ng[h%ldng] %-40.40s h%s\r\n" 132 CfgSubLstFmt
-"l_ghMessage Groups:\r\n\r\n" 133 CfgGrpLstHdr
-"ng[h%ldng] %sh\r\n" 134 CfgGrpLstFmt
-"\r\nSub-board to toggle new message scan"\ 135 NScanCfgWhichSub
-*****
-
-***** 220B\TEXT.DAT
- ", ~All, or ~Quit: "
-"ng[h%dng] %-40.40s hc%s\r\n" 137 SubPtrLstFmt
-"\r\nSet new-scan pointer for which, ~All, or ~Quit: " 138 WhichOrAll
-***** 230A\TEXT.DAT
- ", ~All, or ~Quit: "
-"ng[h%ldng] %-40.40s hc%s\r\n" 137 SubPtrLstFmt
-"\r\nSet new-scan pointer for which, ~All, or ~Quit: " 138 WhichOrAll
-*****
-
-***** 220B\TEXT.DAT
-"You do not have sufficient access for this node." 388 NoNodeAccess
-"nr\7\r\nSorry, This node is temporarily closed "\ 389 NodeLocked
- "for maintenance.n\r\n"
-***** 230A\TEXT.DAT
-"You do not have sufficient access for this node." 388 NoNodeAccess
-"nr\7\r\nSorry, this node is temporarily closed "\ 389 NodeLocked
- "for maintenance.n\r\n"
-*****
-
-***** 220B\TEXT.DAT
-"\r\nYou can't send messages.\r\n" 533 R_SendMessages
-"\r\nhyNode, User name, w#yNumber, "\ 534 NodeToSendMsgTo
- "w'yHandle, w^Uyser list, or wAlly: wh"
-***** 230A\TEXT.DAT
-"\r\nYou can't send messages.\r\n" 533 R_SendMessages
-"\r\nhyNode, Name, w#yNumber, "\ 534 NodeToSendMsgTo
- "w'yHandle, w^Uyser list, or wAlly: wh"
-*****
-
-***** 220B\TEXT.DAT
-"\r\nnYou've been inactive too long.\r\n" 558 CallBackWhenYoureThere
-"_bh%s (cYb/cnb) ? w" 559 YesNoQuestion
-"Yes" 560 Yes
-***** 230A\TEXT.DAT
-"\r\nnYou've been inactive too long.\r\n" 558 CallBackWhenYoureThere
-"@EXEC:YESNOBAR@" 559 YesNoQuestion
-"Yes" 560 Yes
-*****
-
-***** 220B\TEXT.DAT
-"No" 561 No
-"_bh%s (cyb/cNb) ? w" 562 NoYesQuestion
-"_rh[Hit a key] " 563 Pause
-***** 230A\TEXT.DAT
-"No" 561 No
-"@EXEC:NOYESBAR@" 562 NoYesQuestion
-"_rh[Hit a key] " 563 Pause
-*****
-
-
diff --git a/docs/text310g.dif b/docs/text310g.dif
deleted file mode 100644
index 939628cf09b7c987c25fb565a211cdae8b24c317..0000000000000000000000000000000000000000
--- a/docs/text310g.dif
+++ /dev/null
@@ -1,372 +0,0 @@
-Comparing files 300C\text.dat and 310G\TEXT.DAT
-***** 300C\text.dat
-"\1n\1cSubj : \1h%s\r\n" 001 MsgSubj
-"\1n\1cAttr : \1h%s%s%s%s%s%s%s%s%s%s\r\n" 002 MsgAttr
-"\1n\1cTo : \1h%s" 003 MsgTo
-" #%s" 004 MsgToExt
-***** 310G\TEXT.DAT
-"nhc�������n������hk�������nc���������\r\n"\ 001 MsgSubj
- "h� bSubjnb: hc%s\r\n"
-"� bAttrnb: hc%s%s%s%s%s%s%s%s%s%s\r\n" 002 MsgAttr
-"� bTo nb: hc%s" 003 MsgTo
-" #%s" 004 MsgToExt
-*****
-
-***** 300C\text.dat
-" (%s)" 005 MsgToNet
-"\1n\1c\r\nFrom : \1h%s" 006 MsgFrom
-" #%s" 007 MsgFromExt
-***** 310G\TEXT.DAT
-" (%s)" 005 MsgToNet
-"\r\nw� bFromnb: hc%s" 006 MsgFrom
-" #%s" 007 MsgFromExt
-*****
-
-***** 300C\text.dat
-" (%s)" 008 MsgFromNet
-"\1n\1c\r\nDate : \1h%.24s %s\1n" 009 MsgDate
-"_\r\nbhE-mail (User name or number): w" 010 Email
-***** 310G\TEXT.DAT
-" (%s)" 008 MsgFromNet
-"\r\nw� bDatenb: hc%.24s %s\r\n"\ 009 MsgDate
- "w�������c���������n����������hk����"\
- "����nc�������b�������������n"
-"_\r\nbhE-mail (User name or number): w" 010 Email
-*****
-
-***** 300C\text.dat
-"\r\nNew file.\r\n" 020 NewFile
-"_\r\nyhTitle: " 021 TitlePrompt
-"ng\r\nEnter message now (h%dng lines max). "\ 022 EnterMsgNow
-***** 310G\TEXT.DAT
-"\r\nNew file.\r\n" 020 NewFile
-"_\r\nyhSubject: " 021 SubjectPrompt
-"ng\r\nEnter message now (h%dng lines max). "\ 022 EnterMsgNow
-*****
-
-***** 300C\text.dat
-"nm\r\nMail forwarded to h%s nm#%d.n\r\n" 041 Forwarded
-"bhAuto message by: c%sn\r\n\r\n" 042 AutoMsgBy
-"\r\nAuto Message - ~Read, ~Write, or ~Quit: " 043 AutoMsg
-***** 310G\TEXT.DAT
-"nm\r\nMail forwarded to h%s nm#%d.n\r\n" 041 Forwarded
-"bhAuto message by: c%sb on %sn\r\n\r\n" 042 AutoMsgBy
-"\r\nAuto Message - ~Read, ~Write, or ~Quit: " 043 AutoMsg
-*****
-
-***** 300C\text.dat
-"_\r\nyhStart with number [w%luy]: w" 048 StartWithN
-"-\r\ngReading E-mail (h?ng=Menu) (h%ung of "\ 049 ReadingMail
- "h%ung): n"
-"n\r\nYou can't reply to an anonymous message.\r\n" 050 CantReplyToAnonMsg
-"ncRE: h%sn\r\n\r\n" 051 Regarding
-"ncRE: h%s\r\nncBY: h%s ncon h%sn\r\n\r\n" 052 RegardingByOn
-"ncRE: h%s\r\nncBY: h%s ncto h%s ncon "\ 053 RegardingByToOn
- "h%sn\r\n\r\n"
-"Delete %s's mail" 054 DeleteMailQ
-***** 310G\TEXT.DAT
-"_\r\nyhStart with number [w%luy]: w" 048 StartWithN
-"\r\nnc� bhReading E-mail nc� bh(w?b=Menu)"\ 049 ReadingMail
- " (w%ub of w%ub): n"
-"n\r\nYou can't reply to an anonymous message.\r\n" 050 CantReplyToAnonMsg
-" hbRenb: hc%sn\r\n\r\n" 051 Regarding
-" hbRenb: hc%s\r\n "\ 052 RegardingByOn
- "bBynb: hc%s bon c%sn\r\n\r\n" 053 RegardingByToOn
-" hbRenb: hc%s\r\n "\
- "bBynb: hc%s bto c%s bon "\
- "c%sn\r\n\r\n"
-"Delete %s's mail" 054 DeleteMailQ
-*****
-
-***** 300C\text.dat
- "\r\n\r\nn"
-"-\r\ngReading Sent E-mail (h?ng=Menu) "\ 061 ReadingSentMail
- "(h%ung of h%ung): n"
-"hm\r\nSending Internet Mail To: w%sm\r\n"\ 062 InternetMailing
-***** 310G\TEXT.DAT
- "\r\n\r\nn"
-"n\r\nc� hbReading Sent E-mail nc� hb"\ 061 ReadingSentMail
- "(w?b=Menu) (w%ub of w%ub): n"
-"hm\r\nSending Internet Mail To: w%sm\r\n"\ 062 InternetMailing
-*****
-
-***** 300C\text.dat
-"n\r\nNo mail on system.\r\n" 063 NoMailOnSystem
-"-\r\ngReading All E-mail (h%ung of h%ung): n" 064 ReadingAllMail
-"_\r\ngh From "\ 065 MailOnSystemLstHdr
- "To Title\r\nn"
-"gh%4d:ng %-22.22s %-22.22s h%cng %.25s\r\n" 066 MailOnSystemLstFmt
-***** 310G\TEXT.DAT
-"n\r\nNo mail on system.\r\n" 063 NoMailOnSystem
-"n\r\nc� hbReading All E-mail nc� hb"\ 064 ReadingAllMail
- "(w%u bof w%ub): n"
-"_\r\ngh From "\ 065 MailOnSystemLstHdr
- "To Subject\r\nn"
-"gh%4d:ng %-22.22s %-22.22s h%cng %.25s\r\n" 066 MailOnSystemLstFmt
-*****
-
-***** 300C\text.dat
-"\r\nncPost : [h%unc][h%unc] h%lunc/h%lu" 070 ZScanPostHdr
-"_\r\nchReading nc[h%unc] %s "\ 071 ReadingSub
- "[h%unc] %s (h?nc=Menu) (h%lunc of h%lunc): n"
-***** 310G\TEXT.DAT
-"\r\nncPost : [h%unc][h%unc] h%lunc/h%lu" 070 ZScanPostHdr
-"n\r\nc� hbReading nc� [h%unc] %s "\ 071 ReadingSub
- "[h%unc] %s (h?nc=Menu) (h%lunc of h%lunc): n"
-*****
-
-***** 300C\text.dat
- "\1h%s\r\n"
-"<UNUSED>" 075 Unused75
-"_\r\nyhString to search for: " 076 SearchStringPrompt
-"<UNUSED>" 077 Unused77
-"gh%4lu:ng %-22.22s %-22.22s h%cng %.25s\r\n" 078 SubMsgLstFmt
-"<UNUSED>" 079 Unused79
-"\r\n\r\nNo text file sections available.\r\n" 080 NoTextSections
-***** 310G\TEXT.DAT
- "\1h%s\r\n"
-"\1n\r\n\1m%s sent to \1h%s #%u\r\n" 075 MsgSentToUser
-"_\r\nyhString to search for: " 076 SearchStringPrompt
-"\1w\1h�����[\1i\1r%c\1n\1h]���Ĵ "\ 077 PrivateChatSeparator
- "\1yPrivate Chat - \1rCtrl-C to Quit \1y- "\
- "Time Left: \1g%-8s\1w"\
- " �����[\1i\1b%c\1n\1h]�����"
-"gh%4lu:ng %-22.22s %-22.22s h%cng %.25s\r\n" 078 SubMsgLstFmt
-"\1w\1h�����[\1i\1r%c\1n\1h]���Ĵ "\ 079 SysopChatSeparator
- "\1rSplit-Screen \1cSysop\1r Chat \1y"\
- "Time Left: \1g%-8s\1w"\
- " �����[\1i\1b%c\1n\1h]�����"
-"\r\n\r\nNo text file sections available.\r\n" 080 NoTextSections
-*****
-
-***** 300C\text.dat
-"\r\nwhMessage Scan " 116 MessageScan
-"complete.\r\n" 117 MessageScanComplete
-"riaborted.n\r\n" 118 MessageScanAborted
-***** 310G\TEXT.DAT
-"\r\nwhMessage Scan " 116 MessageScan
-"nc(h%lu ncsub-boards)hw complete.\r\n" 117 MessageScanComplete
-"riaborted.n\r\n" 118 MessageScanAborted
-*****
-
-***** 300C\text.dat
-"\r\nYou can't post on this sub.\r\n" 120 CantPostOnSub
-"<UNUSED>" 121 Unused121
-"\r\nrhNo other active nodes.\1n\r\n" 122 NoOtherActiveNodes
-***** 310G\TEXT.DAT
-"\r\nYou can't post on this sub.\r\n" 120 CantPostOnSub
-"\r\n\1n\1mSending message to \1h%s\r\n" 121 SendingMessageToUser
-"\r\nrhNo other active nodes.\1n\r\n" 122 NoOtherActiveNodes
-*****
-
-***** 300C\text.dat
-"ON" 141 ON
-"<UNUSED>" 142 Unused142
-"\r\n-gSystem Statistics:\r\n\r\nn" 143 SystemStatsHdr
-***** 310G\TEXT.DAT
-"ON" 141 ON
-"\r\n\1n\1mPaging \1h%s #%u\1n\1m for private chat\r\n" 142 PagingUser
-"\r\n-gSystem Statistics:\r\n\r\nn" 143 SystemStatsHdr
-*****
-
-***** 300C\text.dat
-"\r\nInvalid node.\r\n" 161 InvalidNode
-"<UNUSED>" 162 Unused162
-"Delete Guru file" 163 DeleteGuruLogQ
-"<UNUSED>" 164 Unused164
-"\r\n\r\nYou can't download.\r\n" 165 R_Download
-***** 310G\TEXT.DAT
-"\r\nInvalid node.\r\n" 161 InvalidNode
-"\1n\r\n\1mSending telegram to \1h%s #%u\1n\1m "\ 162 SendingTelegramToUser
- "(Max 5 lines, Blank line ends):\r\n\r\n\1g\1h"
-"Delete Guru file" 163 DeleteGuruLogQ
-"\1n\1g\7Telegram from \1n\1h%s\1n\1g on %s:\r\n\1h" 164 TelegramFmt
-"\r\n\r\nYou can't download.\r\n" 165 R_Download
-*****
-
-***** 300C\text.dat
-"_\r\n\r\nyhFilespec: n" 175 FileSpec
-"<UNUSED>" 176 Unused176
-"\r\n\r\nNo sysop directory specified.\r\n" 177 NoSysopDir
-***** 310G\TEXT.DAT
-"_\r\n\r\nyhFilespec: n" 175 FileSpec
-"SY: " 176 SystemPassword
-"\r\n\r\nNo sysop directory specified.\r\n" 177 NoSysopDir
-*****
-
-***** 300C\text.dat
-"ng(h%ung) %-40.40s %12.12s h%4u\r\n" 182 LibLstFmt
-"<UNUSED>" 183 Unused183
-"_\r\ngh%s ngTransfer Policy\r\n\r\nn" 184 TransferPolicyHdr
-"<UNUSED>" 185 Unused185
-"Initial uploads are rewarded with %d%% of the "\ 186 TpUpload
-***** 310G\TEXT.DAT
-"ng(h%ung) %-40.40s %12.12s h%4u\r\n" 182 LibLstFmt
-"\1n\r\nInvalid NetMail address.\r\n" 183 InvalidNetMailAddr
-"_\r\ngh%s ngTransfer Policy\r\n\r\nn" 184 TransferPolicyHdr
-"<UNUSED185>" 185 Unused185
-"Initial uploads are rewarded with %d%% of the "\ 186 TpUpload
-*****
-
-***** 300C\text.dat
-"\r\n\7rhiBatch download queue is full.n\r\n" 198 BatchDlQueueIsFull
-"_\r\nyhFilespec [*.*]: n" 199 FileSpecStarDotStar
-"\r\n\r\nrhiNot enough free disk space.n\r\n"\ 200 LowDiskSpace
-***** 310G\TEXT.DAT
-"\r\n\7rhiBatch download queue is full.n\r\n" 198 BatchDlQueueIsFull
-"_\r\nyhFilespec [\1wAll Files\1y]: n" 199 FileSpecStarDotStar
-"\r\n\r\nrhiNot enough free disk space.n\r\n"\ 200 LowDiskSpace
-*****
-
-***** 300C\text.dat
-"You can only logon once a day.\r\n" 337 R_Logons
-"_yhEnter your full name or alias: w" 338 EnterYourAlias
-"_yhEnter your full real name: w" 339 EnterYourRealName
-"_yhEnter your company name: w" 340 EnterYourCompany
-"_yhEnter your chat handle: w" 341 EnterYourHandle
-"_yhEnter your sex (M/F): w" 342 EnterYourSex
-"_yhEnter your street address: w" 343 EnterYourAddress
-"_yhEnter your voice phone number: w" 344 EnterYourPhoneNumber
-"_yhEnter your birthday (MM/DD/YY): w" 345 EnterYourBirthday
-"_yhEnter your city, state: w" 346 EnterYourCityState
-"_yhEnter your zip (or postal) code: w" 347 EnterYourZipCode
-"_yhEnter a description of your computer: w" 348 EnterYourComputer
-***** 310G\TEXT.DAT
-"You can only logon once a day.\r\n" 337 R_Logons
-"_bh[c�b] yEnter your full name or alias: w" 338 EnterYourAlias
-"_bh[c�b] yEnter your full real name: w" 339 EnterYourRealName
-"_bh[c�b] yEnter your company name: w" 340 EnterYourCompany
-"_bh[c�b] yEnter your chat handle: w" 341 EnterYourHandle
-"_bh[c�b] yEnter your sex (M/F): w" 342 EnterYourSex
-"_bh[c�b] yEnter your street address: w" 343 EnterYourAddress
-"_bh[c�b] yEnter your voice phone number: w" 344 EnterYourPhoneNumber
-"_bh[c�b] yEnter your birthday (%s): w" 345 EnterYourBirthday
-"_bh[c�b] yEnter your city, state: w" 346 EnterYourCityState
-"_bh[c�b] yEnter your zip (or postal) code: w" 347 EnterYourZipCode
-"_yhEnter a description of your computer: w" 348 EnterYourComputer
-*****
-
-***** 300C\text.dat
-"New User Password: " 364 NewUserPasswordPrompt
-"\r\nUse automatic terminal type detection" 365 AutoTerminalQ
-"Does your terminal support ANSI" 366 AnsiTerminalQ
-***** 310G\TEXT.DAT
-"New User Password: " 364 NewUserPasswordPrompt
-"Use automatic terminal type detection" 365 AutoTerminalQ
-"Does your terminal support ANSI" 366 AnsiTerminalQ
-*****
-
-***** 300C\text.dat
-"Does your terminal support IBM extended ASCII" 369 ExAsciiTerminalQ
-"nYou can't use that name.\r\n" 370 YouCantUseThatName
-"l-gYour password is h%s\r\n" 371 YourPasswordIs
-***** 310G\TEXT.DAT
-"Does your terminal support IBM extended ASCII" 369 ExAsciiTerminalQ
-"nYou can't use that name (duplicate or invalid).\r\n" 370 YouCantUseThatName
-"l-gYour password is h%s\r\n" 371 YourPasswordIs
-*****
-
-***** 300C\text.dat
-"nh%-32.32snm%-30.30sh%-8.8s nm%-8.8s\r\n" 396 UserListFmt
-"\rh%dnb Total users. \r\n" 397 NTotalUsers
-"%d Users with access to current sub.\r\n" 398 NUsersOnCurSub
-"%d Users with access to current dir.\r\n" 399 NUsersOnCurDir
-"\r\n-cCurrent New-Scan date/time: h" 400 NScanDate
-***** 310G\TEXT.DAT
-"nh%-32.32snm%-30.30sh%-8.8s nm%-8.8s\r\n" 396 UserListFmt
-"\r\1h\1w%d\b total users. \r\n" 397 NTotalUsers
-"\1w%d \1busers with access to current sub-board.\r\n" 398 NUsersOnCurSub
-"\1w%d \1busers with access to current directory.\r\n" 399 NUsersOnCurDir
-"\r\n-cCurrent New-Scan date/time: h" 400 NScanDate
-*****
-
-***** 300C\text.dat
-"\r\nDelete Questionaire" 473 DeleteQuestionaireQ
-"-gDefault settings for hw%s #%d\r\n\r\nn" 474 UserDefaultsHdr
-"nhTng) Terminal Mode : h%s\r\n" 475 UserDefaultsTerminal
-"nhEng) External Editor : h%s\r\n" 476 UserDefaultsXeditor
-"nhLng) Screen Length : h%s\r\n" 477 UserDefaultsRows
-"nhXng) Expert Menu Mode : h%s\r\n" 478 UserDefaultsMenuMode
-"nhPng) Screen Pause : h%s\r\n" 479 UserDefaultsPause
-"nhHng) Hot Keys : h%s\r\n" 480 UserDefaultsHotKey
-"nhSng) Spinning Cursor : h%s\r\n" 481 UserDefaultsCursor
-"nhCng) Clear Screen Between Messages : h%s\r\n" 482 UserDefaultsCLS
-"nhNng) Ask For New Message/File Scan : h%s\r\n" 483 UserDefaultsAskNScan
-"nhYng) Ask For Your Un-read Msg Scan : h%s\r\n" 484 UserDefaultsAskSScan
-"nhFng) Automatic New File Scan : h%s\r\n" 485 UserDefaultsANFS
-"nhRng) Remember Current Sub-board : h%s\r\n" 486 UserDefaultsRemember
-"nhBng) Batch Download File Flagging : h%s\r\n" 487 UserDefaultsBatFlag
-"nhMng) Forward E-mail to NetMail : h%s\r\n" 488 UserDefaultsNetMail
-"nhKng) Command Shell : h%s\r\n" 489 UserDefaultsCmdShell
-"nhDng) Default to Quiet Mode : h%s\r\n" 490 UserDefaultsQuiet
-"nhWng) Change Password\r\n" 491 UserDefaultsPassword
-"nhAng) Temporary/QWK Archive Type : h%s\r\n" 492 UserDefualtsArcType
-"nhZng) Default Download Protocol : h%s "\ 493 UserDefaultsProtocol
- "ng%s\r\n"
-"\r\n_gWhich or [hwQng]uit: n" 494 UserDefaultsWhich
-"On" 495 On
-***** 310G\TEXT.DAT
-"\r\nDelete Questionaire" 473 DeleteQuestionaireQ
-"hbDefault settings for w%s #%d\r\n\r\n" 474 UserDefaultsHdr
-"nb[hwTnb] hTerminal Mode nb: c%s\r\n"475 UserDefaultsTerminal
-"nb[hwEnb] hExternal Editor nb: c%s\r\n" 476 UserDefaultsXeditor
-"nb[hwLnb] hScreen Length nb: c%s\r\n" 477 UserDefaultsRows
-"nb[hwXnb] hExpert Menu Mode nb: c%s\r\n" 478 UserDefaultsMenuMode
-"nb[hwPnb] hScreen Pause nb: c%s\r\n" 479 UserDefaultsPause
-"nb[hwHnb] hHot Keys nb: c%s\r\n" 480 UserDefaultsHotKey
-"nb[hwSnb] hSpinning Cursor nb: c%s\r\n" 481 UserDefaultsCursor
-"nb[hwCnb] hClear Screen Between Messages nb: c%s\r\n" 482 UserDefaultsCLS
-"nb[hwNnb] hAsk For New Message/File Scan nb: c%s\r\n" 483 UserDefaultsAskNScan
-"nb[hwYnb] hAsk For Your Un-read Msg Scan nb: c%s\r\n" 484 UserDefaultsAskSScan
-"nb[hwFnb] hAutomatic New File Scan nb: c%s\r\n" 485 UserDefaultsANFS
-"nb[hwRnb] hRemember Current Sub-board nb: c%s\r\n" 486 UserDefaultsRemember
-"nb[hwBnb] hBatch Download File Flagging nb: c%s\r\n" 487 UserDefaultsBatFlag
-"nb[hwMnb] hForward E-mail to NetMail nb: c%s\r\n" 488 UserDefaultsNetMail
-"nb[hwKnb] hCommand Shell nb: c%s\r\n" 489 UserDefaultsCmdShell
-"nb[hwDnb] hDefault to Quiet Mode nb: c%s\r\n" 490 UserDefaultsQuiet
-"nb[hwWnb] hChange Password or Signature\r\n" 491 UserDefaultsPassword
-"nb[hwAnb] hTemporary/QWK Archive Type nb: c%s\r\n" 492 UserDefualtsArcType
-"nb[hwZnb] hDefault Download Protocol nb: c%s "\ 493 UserDefaultsProtocol
- "b%s\r\n"
-"\r\nnhbWhich or [wQb]uit: c" 494 UserDefaultsWhich
-"On" 495 On
-*****
-
-***** 300C\text.dat
-"Off" 496 Off
-"\r\n_yhHow many rows on your monitor "\ 497 HowManyRows
- "[Auto Detect]: "
-"\r\n_yhCurrent Password: w" 498 CurrentPassword
-"\r\nForward E-mail to NetMail address" 499 ForwardMailQ
-"\r\n_yhNetMail/e-mail address "\ 500 EnterNetMailAddress
- "(Example: name@address)\r\n: "
-"nlgSelect h%sng:\r\n\r\n" 501 SelectItemHdr
-***** 310G\TEXT.DAT
-"Off" 496 Off
-"\r\n_bh[c�b] yHow many rows on your monitor "\ 497 HowManyRows
- "[\1wAuto Detect\1y]: "
-"\r\n_yhCurrent Password: w" 498 CurrentPassword
-"Forward personal e-mail to network mail address" 499 ForwardMailQ
-"_bh[c�b] yNetwork mail address "\ 500 EnterNetMailAddress
- "(Example: user@domain)\r\n: "
-"nlgSelect h%sng:\r\n\r\n" 501 SelectItemHdr
-*****
-
-***** 300C\text.dat
-"\r\nSearch and display extended information" 624 SearchExtendedQ
-"\r\nDisplay Titles Only" 625 DisplayTitlesOnlyQ
-"\r\nEcho is now %s \r\n" 626 EchoIsNow
-***** 310G\TEXT.DAT
-"\r\nSearch and display extended information" 624 SearchExtendedQ
-"\r\nDisplay Subjects Only" 625 DisplaySubjectsOnlyQ
-"\r\nEcho is now %s \r\n" 626 EchoIsNow
-*****
-
-***** 300C\text.dat
-"" 719 NodeActionRetrieving
-"YN" 720 YN
-***** 310G\TEXT.DAT
-"" 719 NodeActionRetrieving
-"YNQ*" 720 YNQP (Yes/No/Quit/Password chars)
-*****
-
diff --git a/docs/textfile_section.html b/docs/textfile_section.html
deleted file mode 100644
index d351c40b0d4921795e5c4f9307814c3c1cf4c1ef..0000000000000000000000000000000000000000
--- a/docs/textfile_section.html
+++ /dev/null
@@ -1,115 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Text File Section</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2><a name="TextFileSections">[13.0] - Text File Sections</a></h2>
-<pre>Run the SCFG utility, and select the Text File Sections option from the menu.
-This selection will produce a list of text file sections that the sysop has
-created for users to freely view text files. It is requested that all sysops
-make some or all of the Synchronet documentation available in a text file
-section. At the very minimum, TEXT\SBBS.MSG should be available for users to
-review. You can add and remove sections with the INS and DEL keys. The
-following configuration options are available for each section:</pre>
-<h2><a name="TextFileOptions">[13.1] - Text File Options</a></h2>
-<pre><b>Name:</b>
- This is a description of the text file section.
-
-<b>Access Requirements:
-</b> Use this option to set the security requirements to access this file
- section.
-
-<b>Internal Code:
-</b> This is an internal code for SBBS to distinguish this text file section
- from the others on the system. This must be a unique name of up to 8
- valid DOS filename characters.</pre>
-<h2><a name="AddingTextFiles">[13.2] - Adding Text Files</a></h2>
-<pre>To add files to a text file section, you'll need to log on to the BBS and enter
-the section you would like to add files to. Here you'll be given a choice to
-add files to the section, you will be prompted for the title of the file, and
-the path/filename. If you do not enter a path for the file, the default path is
-the Synchronet DATA\TEXT directory PLUS the internal code of the text file
-section.</pre>
-<h2><a name="976/900NumberBilling">[13.3] - 976/900 Number Billing</a></h2>
-<pre>There are several methods of implementing 976/900 billing support.
-
-One method, which is internal to Synchronet, is to set up a billing node.
-This method of support requires that you have your own in house 976 or 900
-phone number. Set up your 976/900 service to bill a lump sum of money
-(e.g. $10.00) after the first 30 seconds of use. In SCFG, under Nodes->Node#->
-Advanced Options->Cost per Call you would enter this charge (where Node# is the
-number of the node which will be attached to the 976/900 line). When a user
-calls this billing node, he/she will be informed that they will be charged for
-the call if they do not hang up, they will then be asked for their user name
-and password. Once they've entered their account information, the account will
-be credited with a number of credits (determined by the value in System->
-Advanced Options->Credits per Dollar). They can now call back on a node which
-is connected to a standard phone line, and they will be able to make use of the
-credits.
-
-Another method, which is cheaper and more popular, but external to Synchronet
-is to use a third party 976/900 service. Once such service is called TABS. This
-method consists of having your users dial a 976/900 line supplied by the
-service. Initially, you are given an external program and a list of codes for
-your BBS. When a user calls the 976/900 service they will be given a code to
-use on your BBS. They then call your BBS, run the external program, and enter
-the code that they were given. Upon entering a valid code, their account is
-immediately credited with a number of credits. You are then periodically mailed
-a check for the accounts which have used the service for account upgrades.
-
-The final method, which is very expensive and very unrealistic, is to simply
-attach all of your pay nodes to a 976/900 number and charge the user by the
-minute for access to the BBS.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/troubleshooting.html b/docs/troubleshooting.html
deleted file mode 100644
index 4dddf8ef3200360a6f636eedaa8e855a04bc805d..0000000000000000000000000000000000000000
--- a/docs/troubleshooting.html
+++ /dev/null
@@ -1,246 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Troubleshooting</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2>[16.0] - Troubleshooting</h2>
-<pre>Before contacting Digital Dynamics about any problems you encounter, you
-should check to see if your problem is listed here, as well as do a review of
-the manual.
-
-If you are having problems with a program which is external to Synchronet
-(e.g. doors, add-ons, memory managers, multi-taskers, mail tossers, front-end
-mailers, hardware, etc.) you should contact the manufacturer of that
-particular product.
-
-If all else fails, and you must call Digital Dynamics for help in solving
-your problem, be sure that:
-
- 1) You are at your BBS machine.
- 2) You can duplicate the problem.
-
-<b>Problem :</b> <i>Ymodem-G doesn't work.</i>
-
-<b>Solution:</b> Synchronet is distributed with an unregistered shareware copy of
- DSZ.COM to allow the beginning to sysop to start out with the three
- basic protocols, Xmodem, Ymodem, and Zmodem. To use Ymodem-G, you
- must use a registered copy of DSZ.COM (or EXE).
- See DSZ.DOC for more information on registering DSZ.
-
-
-<b>Problem :</b> <i>Can't create QWK packets or temporary archive files.
-</i>
-<b>Solution:</b> Synchronet comes configured for PKZIP as the temporary file (and QWK
- packet) compression method. In order for this to function correctly,
- you must have a copy of PKZIP.EXE in your SBBS\EXEC directory, or
- change the Temporary Archive Command Line to exclude the '%!'
- specifier (short hand for the exec directory), or specify the
- directory where PKZIP.EXE resides. See Configuration Reference for
- more information.
-
-
-<b>Problem :</b> <i>Can't view ZIP files online and can't upload files because they fail
- the ZIP integrity test. Can't extract QWK REP packets.</i>
-
-<b>Solution:</b> You must copy PKUNZIP.EXE into your SBBS\EXEC directory, or change
- the command lines to reflect the actual location of PKUNZIP.EXE.
- See Configuration Reference for more information.
-
-<b>Problem :</b> <i>HS/Link and BiModem don't work. "Bad command or filename" is
- displayed when a user tries to use them.</i>
-
-<b>Solution:</b> You need to copy HSLINK.EXE and BIMODEM.COM into your SBBS\EXEC
- directory. BiModem must have a BIMODEM.CFG file in each node
- directory. Run BICONFIG to create/change the configuration
- information stored in BIMODEM.CFG. Refer to the BiModem documentation
- for more information on this file and using BICONFIG. One important
- note for BiModem configuration is that "Allow remote file requests"
- be set to "NO".
-
-
-<b>Problem :</b> <i>Get a "Removing" file error when starting up SBBS, at logon, and at
- logoff sometimes when another node is active.</i>
-
-<b>Solution:</b> You have more than one node using the same directory as the temp
- directory. You must have a unique temp directory for each node.
- Configure a unique temp directory for each node in the config program
- (type SCFG from the node directory or hit 'C' at the wait for call
- screen). See Configuration Reference for more information.
-
-
-<b>Problem :</b> <i>When answering calls, Synchronet displays "Unknown result code: xx"
- where xx is a decimal number, and hangs up on the caller.
-</i>
-<b>Solution:</b> Add this result code to your node's result code list in the config
- program (type SCFG from the node directory or hit 'C' at the wait for
- call screen). DO NOT add result codes 0, 2, 3, or 4. Refer to your
- modem's manual for the connect speed and average transfer CPS for the
- new result code. See Configuration Reference for more information.
-
-
-<b>Problem :</b> <i>When using the ;DOS sysop command, the cursor position does not
- follow your keystrokes properly.
-</i>
-<b>Solution:</b> Remove DOSKEY or other DOS command line TSR program from memory. Many
- DOS command line utilities redirect DOS output to the BIOS - which in
- turn bypasses Synchronet's interception of the DOS output functions.
- Some ANSI drivers may also cause this problem. Use the standard DOS
- ANSI.SYS for your console driver.
-
-
-<b>Problem :</b> <i>When running external programs under OS/2 that require intercepted
- I/O to be displayed remotely (like PKZIP, Synchronet Blackjack,
- FEdit, etc) the output does not appear at all remotely and ANSI
- escape sequences display as garbage.
-</i>
-<b>Solution:</b> OS/2's DOS console driver has a DOS compatibility bug. Run
- SVDMANSI.COM (from the EXEC directory) and remove ANSI.SYS from your
- CONFIG.SYS and DOS settings. See SVDMANSI.DOC for more information.
-
-
-<b>Problem :</b> <i>At the WFC screen, Synchronet shows that a node has errors, and I
- can't get them to stop showing.</i>
-
-<b>Solution:</b> You must log on to the BBS, and at the main menu prompt type ;ERR,
- the errors will be displayed to you, and you will be asked if you
- want to clear the critical error counter, answer YES to clear the
- errors.
- You may also clear the errors using the Synchronet node utility, by
- typing NODE ERRORS=0 at the DOS prompt.
-
-
-<b>Problem :</b> <i>One of the BBS nodes will run fine, and then after one or two callers
- the modem won't reinitialize (Synchronet returns NO RESPONSE).
-</i>
-<b>Solution:</b> Be sure that the com port on that node is NOT using the same IRQ or
- I/O address as any other com port or device in your computer. Some
- motherboards have com ports built onto the board itself, if your
- motherboard is like this, and you are not using those ports, you
- should make sure they are disabled.
-
-
-<b>Problem :</b> <i>My users see garbage when Synchronet runs from my front-end mailer,
- or when they run an external door.</i>
-
-<b>Solution:</b> Check to make sure that the DTE rate that you have set in your front
- end mailer or door matches what you have configured for Synchronet.
- If you are using a FOSSIL driver, the DTE rate you have set up for
- the FOSSIL must be the same as what you have set up for Synchronet
- (e.g. if your FOSSIL rate is locked at 38400, then that Synchronet
- node must have its port locked at 38400).
-
-
-<b>Problem :</b> <i>I am running a program as a door that was not written to be a BBS
- door. It functions fine locally, but when someone runs the program
- remotely their screen remains blank.</i>
-
-<b>Solution:</b> Make sure you have set 'Intercept I/O' turned on for that program,
- if there is still nothing displayed to the user, it's likely that
- the program uses direct screen writes, which would require the use
- of a doorway program for it to be usable via modem. If the program
- uses graphics, it is most likely that you will not be able to use it
- remotely.
-
-
-<b>Problem :</b> <i>When posting a message or sending email, the BBS immediately responds
- with 'ABORTED' right after I enter a title for the message.</i>
-
-<b>Solution:</b> You have an external editor defined, and that editor is not working
- properly. A couple of reasons an external editor may not function
- properly is either not enough memory available for it to run, or
- you have used an improper command line for that editor.
-
-
-<b>Problem :</b> <i>I am trying to add another BBS node using DesqView, when I try to
- open another window for that node, I get the message 'A Non-Swappable
- Window is in the Way'.</i>
-
-<b>Solution:</b> You do not have enough memory available on this machine for another
- window to be opened. You should attempt to make more EMS available.
-
-
-<b>Problem :</b> <i>I am running under Windows, when the board runs it says 'Share
- Installed' but it then says 'File Locking Failed'.</i>
-
-<b>Solution:</b> You MUST run share from the DOS prompt BEFORE running Windows.
-
-
-<b>Problem :</b> <i>I am receiving sharing violations while Synchronet is running.
-</i>
-<b>Solution:</b> Disable 'Swap to XMS' in the advanced settings for each node using
- the SCFG program.
-
-
-<b>Problem :</b> <i>I am receiving errors with an action of "opening" and a doserr
- of 04h (as shown in the ERROR.LOG).</i>
-
-<b>Solution:</b> You need to increase the number on the FILES= statement in your
- CONFIG.SYS. FILES=20 should be plenty for Synchronet.
-
-
-<b>Problem :</b> <i>I (or a co-sysop) lost carrier while shelled to DOS remotely and
- the BBS didn't return to waiting for a call.</i>
-
-<b>Solution:</b> Create two batch files (2.BAT and 3.BAT) in a directory that is
- in your DOS search path with one line containing the word "EXIT".
-
-
-<b>Problem :</b> <i>When typing ;DOS, ;SLOG, or ;NLOG from the main menu I get "Incorrect
- DOS version" or nothing at all.
-</i>
-<b>Solution:</b> Make sure the COMMAND.COM for the version of DOS you are running is
- in your DOS search path. If multiple copies of COMMAND.COM exist on
- your disk drive, make sure they are all for the same version.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/upgrade.txt b/docs/upgrade.txt
deleted file mode 100644
index 10c2f9f7791d67c952a084d9154c124f7826ecff..0000000000000000000000000000000000000000
--- a/docs/upgrade.txt
+++ /dev/null
@@ -1,128 +0,0 @@
-Upgrading to Synchronet BBS for Win32 v3.0c
-===========================================
-
-This is an UPGRADE ONLY, so you must have Synchronet (v2.3 or
-v3.0b) already installed before you can continue. A full
-Synchronet installation package can be obtained via FTP or
-Telnet/Zmodem from vert.synchro.net.
-
-This version has been tested with the following operating
-systems:
-
- o Microsoft Windows 95
- o Microsoft Windows 95a
- o Microsoft Windows 95b (OSR2)
- o Microsoft Windows 98
- o Microsoft Windows Me
- o Microsoft Windows NT 3.51
- o Microsoft Windows NT 4
- o Microsoft Windows 2000
-
-
-Configuration Files
-~~~~~~~~~~~~~~~~~~~
-The following files will be over-written by this upgrade, so
-if you have customized them, it is highly recommended that you
-make a BACK-UP of the files before continuing this installation:
-
- SBBS\CTRL\TEXT.DAT (Text Strings)
- SBBS\CTRL\GURU.DAT (Guru Brain)
- SBBS\CTRL\ATTR.CFG (Default Colors)
- SBBS\CTRL\ALIAS.CFG (Internet Mail Aliases)
- SBBS\CTRL\FTPALIAS.CFG (FTP Filename Aliases)
- SBBS\TEXT\MENU\LOGON.ASC (Logon Screen)
- SBBS\TEXT\MENU\EXEMPT.ASC (Exemption Descriptions)
- SBBS\TEXT\MENU\EDITOR.ASC (Internal Editor Menu)
- SBBS\TEXT\MENU\MSGSCAN.ASC (Message Scan Menu)
- SBBS\TEXT\MENU\MAILREAD.ASC (Mail Read Menu)
-
-Two of the unused lines in CTRL\TEXT.DAT (lines 62 and 74) are
-now used in v3. If you're going to allow auto-logon by IP or
-sending of Internet e-mail, then you'll need to use the TEXT.DAT
-included (or modify your own). If you're still going to be using
-v2.3c (or earlier), you'll want to eliminate one of the %s's from
-the MsgAttr line in your TEXT.DAT.
-
-If you do not want these files installed (you're upgrading a
-previous installation of SBBS v3 for example), choose "Custom
-Installation" and disable the "Configuration Files" from the
-install set.
-
-
-Command Shell Updates
-~~~~~~~~~~~~~~~~~~~~~
-The following files will be over-written by this upgrade, so
-if you have customized them, it is highly recommended that you
-make a BACK-UP of the files before continuing this installation:
-
- SBBS\EXEC\RENEGADE.SRC (Renegade Command Shell)
- SBBS\EXEC\RENEGADE.BIN (Renegade Command Shell)
-
-
-SBBSCTRL
-~~~~~~~~
-SBBSCTRL is the Sysop's console for SBBS v3. You still must use
-SCFG to configure the BBS options shared between the new and old
-versions.
-
-The installation program will create a short-cut to SBBSCTRL.EXE
-on your desktop and in your startup folder (so Synchronet will
-start automatically during boot-up).
-
-
-Update Your Configuration
-~~~~~~~~~~~~~~~~~~~~~~~~~
-Before you run your BBS with v3, you'll need to go through all
-of your command lines in SCFG (SBBSCTRL->BBS->Configure) and
-make sure there aren't any hard-coded relative paths.
-
-For example, you must change SCFG->File Options->Testable Files
- %!pkzip -z %f < ..\text\zipmsg.txt
-to: %!pkzip -z %f < %zzipmsg.txt
-
-If you have any Baja modules that assume the current directory
-(use relative paths), they need to be fixed too.
-
-Relative paths in "data directories" in SCFG are okay. Only
-executable command lines need to be changed to absolute paths
-("%n..\xtrn\etc" is okay).
-
-Also, make sure that all of your external programs either use DOS
-I/O interception (XSDK/WWIV doors) or utilize a FOSSIL driver
-(i.e. use FDSZ or CEXYZ instead of DSZ). The COM ports and baud
-rates configured for your doors are irrelevant.
-
-
-Known Issues
-~~~~~~~~~~~~
-o DOSKEY must be loaded in your autoexec.bat for the DOS shell to
- work right (Windows 95/98)
-o Backspace doesn't work right in DOS shell (Windows 95/98)
-o QNET.BIN doesn't work (see DOVE-NET.ZIP for alternatives)
-o First node (set in SBBSCTRL) configuration is used for all nodes
- (this is actually intentional, i.e. not a bug)
-o First node's temp directory must be set to "TEMP\"
-
-
-For More Information
-~~~~~~~~~~~~~~~~~~~~
-See DOCS\NTREADME.TXT for instructions on running
- Synchronet v3.0 on Windows NT or Windows 2000.
-
-See DOCS\V300_NEW.TXT for list of new features in
- Synchronet v3.0.
-
-See DOCS\SBBS3FAQ.TXT for answers to frequently asked
- questions regarding Synchronet v3.0.
-
-See DOCS\V3CFGFAQ.TXT for answers to frequently asked
- questions about configuring Synchronet v3.0.
-
-See DOCS\DOVE-NET.ZIP for details on joining DOVE-Net
- (Synchronet support message network).
-
-Thanks for your interest in Synchronet BBS Software
-(www.synchro.net).
-
-Rob Swindell
-(rob@synchro.net)
diff --git a/docs/user.html b/docs/user.html
deleted file mode 100644
index 716c4ccdf8e35ca27445f6054037367d7532920c..0000000000000000000000000000000000000000
--- a/docs/user.html
+++ /dev/null
@@ -1,1363 +0,0 @@
-
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>Synchronet BBS Software - User Documentation</title>
-</head>
-
-<body>
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<h1>Synchronet User Documentation</h1>
-<p><b><a name="TOC">Table of Contents</a></b></p>
-<p align="left"><a href="#HowtousetheUserManual">How to use the User's Manual</a><br>
- <a href="#QuickKeySequenceGuides">Quick Key Sequence Guides</a><br>
- <a href="#Nomenclature">Nomenclature</a><br>
-<a href="#LoggingontotheBBS">Logging onto the BBS</a><br>
-<a href="#LoggingofftheBBS">Logging off the BBS</a><br>
-<a href="#DisplayingMenus">Displaying Menus</a><br>
-<a href="#ControlCommands">Control Commands</a><br>
-<a href="#SettingUpYourUserAccount">Setting Up Your User Account</a><br>
- <a href="#AccountDefaultsConfiguration">Account Defaults Configuration</a><br>
-<a href="#ElectronicMailFunctions">Electronic Mail Functions</a><br>
- <a href="#ElectronicMailMenu">Electronic Mail Menu</a><br>
- <span style="font-size:12.0pt;font-family:"Times New Roman";
-mso-fareast-font-family:"MS Mincho";mso-ansi-language:EN-US;mso-fareast-language:
-EN-US;mso-bidi-language:AR-SA"><a href="#SendE-mail">Send Local E-mail</a><br>
- <a href="#SendNetMail">Send Internet Email / NetMail</a></span><br>
- <a href="#ReadMail">Read Mail</a><br>
- <span style="font-size:12.0pt;font-family:"Times New Roman";
-mso-fareast-font-family:"MS Mincho";mso-ansi-language:EN-US;mso-fareast-language:
-EN-US;mso-bidi-language:AR-SA"><a href="#ReadSentMail">Read Sent Mail</a><br>
- <a href="#SendSysopFeedback">Send Sysop Feedback</a><br>
-<a href="#MessageBaseFunctions">Message Base Functions</a><br>
- <a href="#GroupandSubboardSelection">Group and Subboard Selection</a><br>
- <a href="#ReadingMessages">Reading Messages</a><br>
-
-<a href="#ReadMessages">Read Messages</a><br>
-
-<a href="#NewMessageScan">New Message Scan</a><br>
-
-<a href="#Browse">Browse</a><br>
-
-<a href="#ContinuousNewScan">Continuous New Scan</a><br>
- <a href="#PostingMessages">Posting Messages</a><br>
-
-<a href="#PostingMessages">Posting a message</a><br>
- <a href="#PrivatemessagevsE-mail">
-Private message vs E-mail</a></span><span style="font-size: 12.0pt; font-family: Times New Roman; mso-fareast-font-family: MS Mincho; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA"><br>
-
-<span style="font-size:12.0pt;font-family:"Times New Roman";
-mso-fareast-font-family:"MS Mincho";mso-ansi-language:EN-US;mso-fareast-language:
-EN-US;mso-bidi-language:AR-SA"><a href="#AutoMessage">Auto Message</a><br>
- <a href="#SynchronetMessageEditor">Synchronet Message Editor</a><br>
-
-<a href="#SlashCommands(/)">Slash Commands</a><br>
-
-<a href="#Control(Ctrl)Commands">Control (Ctrl) Commands</a><br>
-
-<a href="#TextAttributes(Ctrl-Axwherexisattribute)">Text Attributes (Ctrl-Ax where x is attribute)</a><br>
- <a href="#QWKMailPacketMenu">QWK Mail Packet Menu</a><br>
-<a href="#ConfigurationCommands">Configuration Commands</a><br>
- <a href="#ConfigurationMenu">Configuration Menu</a><br>
- <a href="#ConvertCreditstoMinutes">Convert Credits to Minutes</a><br>
- <a href="#UnfilteredInputSwitch">Unfiltered Input Switch</a><br>
- <a href="#NewMessageScanListConfiguration">New Message Scan List Configuration</a><br>
- <a href="#NewMessageScanDate/TimePointers">New Message Scan Date/Time Pointers</a><br>
- <a href="#ReinitializeNewScanDate/TimePointers">Reinitialize New Scan Date/Time Pointers</a><br>
-<a href="#OnlineUserInteraction">Online User Interaction</a><br>
- <a href="#UsersOnlineCtrl-U">Users Online <Ctrl-U></a><br>
- <a href="#ListNodeActivity{/L}">List Node Activity {/L}</a><br>
- <span style="mso-fareast-font-family:"MS Mincho""><a href="#SendPrivateMessagetoNodeCtrl-P">Send Private Message to Node <Ctrl-P></a><o:p>
-</o:p>
-<br>
-<a href="#ChattingFeatures">Chatting Features</a><o:p>
-</o:p>
-<br>
- <span> <a href="#ChatMenu">Chat Menu</a><br>
- <a href="#Pagingdisable/enable">Paging disable/enable</a><br>
- <a href="#ActivityAlertsdisable/enable">Activity Alerts disable/enable</a><br>
- <a href="#PageSysoptoChat">Page Sysop to Chat</a><br>
- <a href="#TalkwiththeGuru">Talk with the Guru</a><br>
- <a href="#Join/InitiateMultinodeChat">Join/Initiate Multinode Chat</a><br>
- <a href="#PrivateNodetoNodeChat">Private Node to Node Chat</a><br>
- <a href="#ChatCommandPrompt(/fromwithinchat)">Chat Command Prompt (/ from within chat)</a><br>
- <a href="#PageUsertoChat(multinodechatonly)">Page User to Chat (multinode chat only)</a><br>
- <a href="#ChangeChannel(multinodechatonly)">Change Channel (multinode chat only)</a><br>
-<a href="#TextFileSection">Text File Section</a><br>
-<a href="#ExternalServices">External Services</a><br>
-<a href="#UserLists">User Listings</a><br>
-<a href="#Information/Statistics">Information/Statistics</a><br>
- <a href="#InformationCommandMenu">Information Command Menu</a><br>
- <a href="#SystemInformation">System Information</a><br>
- <a href="#VersionInformation">Version Information</a><br>
- <a href="#SubboardInformation">Subboard Information</a><br>
- <a href="#YourAccountStatistics">Your Account Statistics</a><br>
-<a href="#FileTransferSection">File Transfer Section</a><br>
- <a href="#LibraryandDirectorySelection">Library and Directory Selection</a><br>
- <a href="#Wildcards">Wildcards</a><br>
- <a href="#ListingFiles">Listing Files</a><br>
- <a href="#ExtendedFileInformationListing">Extended File Information Listing</a><br>
- <a href="#NewFileScan">New File Scan</a><br>
- <a href="#SearchforFilename">Search for Filename</a><br>
- <a href="#FindTextinDescription">Find Text in Description</a><br>
- <a href="#QuickKeys">Quick Keys</a><br>
- <a href="#FileTransferAreaInformation">File Transfer Area Information</a><o:p>
-</o:p>
-<br>
-
-<a href="#FileTransferInformationMenu">File Transfer Information Menu</a><br>
-
-<a href="#BBSFileTransferPolicy">BBS File Transfer Policy</a><br>
-
-<a href="#CurrentDirectoryInformation">Current Directory Information</a><br>
-
-<a href="#UsersWithAccesstoDirectory">Users With Access to Directory</a><br>
-
-<a href="#YourFileTransferAccountStatistics">Your File Transfer Account Statistics</a><br>
- <a href="#FileTransferAreaConfiguration">File Transfer Area Configuration</a><br>
-
-<a href="#FileTransferAreaConfigurationMenu">File Transfer Area Configuration Menu</a><br>
-
-<a href="#BatchDownloadQuickFileFlagging">Batch Download Quick File Flagging</a><br>
-
-<a href="#ChangeNewFileScanDate/Time">Change New File Scan Date/Time</a><br>
- <a href="#DownloadingFiles">Downloading Files</a><br>
-
-<a href="#DownloadFileorFiles">Download File or Files</a><br>
- <a href="#DownloadUsertoUserFile">Download User to User File</a><br>
-
-<a href="#DownloadOptions">Download Options</a><br>
- <a href="#UploadingFiles">Uploading Files</a><br>
-
-<a href="#UploadFileorFiles">Upload File or Files</a><br>
-
-<a href="#UploadUsertoUserFile">Upload User to User File</a><br>
-
-<a href="#UploadFiletoSysop">Upload File to Sysop</a><br>
-
-<a href="#UploadProcedures">Upload Procedures</a><br>
-
-<a href="#Remove/EditFile">Remove / Edit File</a><br>
- <a href="#BatchFileTransfers">Batch File Transfers</a><br>
-
-<a href="#Batch/BidirectionalCommands">Batch/Bidirectional Commands</a><br>
- <a href="#FileExtraction/TempDirectory">File Extraction / Temp Directory</a><br>
-
-<a href="#TempDirectoryCommands">Temp Directory Commands</a><br>
-
-<a href="#ExtractfromarchiveinTempDirectory">Extract from archive in Temp Directory<o:p>
-</o:p>
-</a><br>
-
-<a href="#AddfilestoTempfile">Add files to Temp file</a><br>
-
-<a href="#DownloadTempfile">Download Temp file</a><br>
- <a href="#Creatinganddownloadingfilelists">Creating and downloading file lists</a></span></span></span></span></p>
-<p><a href="#TOC"><b>Back to Table of Contents</b></a></p>
-<h2>
-<a name="HowtousetheUserManual">How to use the User's Manual</a></h2>
-<pre><a name="QuickKeySequenceGuides"><b>Quick Key Sequence Guides</b></a>
--------------------------
-Each command title will be followed by a quick key sequence guide. The command
-sequences are the exact keystrokes to enter from the Main or File Transfer
-prompt to execute that command without pausing to look at menus. Key sequences
-to be entered from the Main prompt are enclosed in brackets. For example the
-Send E-Mail command title will be listed as:</pre>
-<pre> Send E-Mail [ES]</pre>
-<pre>You would type E then S from the Main Prompt (noted by the brackets) to Send
-E-Mail. Key sequences to be entered from the File Transfer prompt are enclosed
-in parenthesis. For example the Find File command title would be listed as:</pre>
-<pre> Find File (F)</pre>
-<pre>For this command you would type F from the File Transfer prompt (noted by the
-parenthesis). If a command may be entered from either the Main or File Transfer
-prompt it will be enclosed in curly brackets. For example the Join Multinode
-Chat command title would be listed as:</pre>
-<pre> Join/Initiate Multinode Chat {CJ} </pre>
-<pre>For this command you would type C then J from either the Main or File transfer
-prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="Nomenclature"><b>Nomenclature</b>
-</a>------------
-Throughout the documentation Carriage Return (or the ENTER key) is referred to
-as <CR>.</pre>
-<pre>There are two primary prompts on the Synchronet BBS, the Main prompt from the
-Main section, and the File Transfer prompt, from the File Transfer section.
-These can be identified by diagrams in the Message Base Functions chapter and
-the File Transfer Section chapter. When referred to in the documentation the
-Main and File Transfer prompts are italicized.</pre>
-<pre>Most key strokes referred to in the documentation are highlighted in bold.
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<h2><a name="LoggingontotheBBS"><b>Logging onto the BBS</b></a>
-</h2>
-<pre>After dialing and connecting to the BBS:</pre>
-<pre>At NN: prompt enter your username or user number. </pre>
-<pre>At the PW: prompt enter your unique user password.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="LoggingofftheBBS"><b>Logging off the BBS</b></a>
-</h2>
-<pre>To logoff the BBS enter O from either the Main prompt or the File Transfer
-prompt. Enter /O for a quick logoff.
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<h2><a name="DisplayingMenus"><b>Displaying Menus</b></a>
-</h2>
-<pre>Hitting ? from almost any prompt will display a menu of available commands.
-From inside chat or the Synchronet editor /? will display a menu of the
-available commands.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ControlCommands"><b>Control Commands</b></a>
-</h2>
-<pre>Control commands are commands that are available from anywhere on the BBS.
-Control commands are primarily used to control the scrolling of text at anytime
-on the system or to abort a command in process such as a file search. Two
-online user to user commands are also available to list the users currently
-online or send messages at anytime while on the BBS. Control commands are
-entered by holding down the Ctrl key and hitting the control letter. For
-example, to enter the control command Ctrl-S hold down the Ctrl key and strike
-the S key. The following control commands are available at all times while on
-the BBS:</pre>
-<pre><sm heading>Scrolling Text/ Messages/ System Commands
- Ctrl-S Pause scrolling text/messages
- Ctrl-Q Continue scrolling text/messages
- Ctrl-C Abort scrolling text/messages or a BBS command</pre>
-<pre><sm heading>Online User Information/Interaction
- Ctrl-P Send a private one line message to another user
- Ctrl-U List users online</pre>
-<pre><sm heading>Other Information
- Ctrl-K List control commands
- Ctrl-T Time online info
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<h2><a name="SettingUpYourUserAccount">Setting Up Your User Account</a>
-</h2>
-<pre><b><a name="AccountDefaultsConfiguration">Account Defaults Configuration</a> [D]</b>
-----------------------------------
-To display and or change your user account defaults hit D from the Main prompt.
-Your account defaults will be displayed. </pre>
-<pre>A) ANSI Terminal : Yes, Color
-E) External Editor : None
-L) Screen Length : Auto Detect (24)
-K) Command Keys : Synchronet
-X) Expert Menu Mode : On
-P) Screen Pause : Off
-S) Spinning Cursor : Off
-C) Clear Screen Between Messages : Off
-N) Prompt for New Message / File Scan : Off
-F) Auto New File Scan* : Off
-R) Remember Current Sub-board : Off
-B) Batch Download File Flagging : Off
-W) Change Password (if allowed)
-Q) Quit (and accept settings)
- </pre>
-<pre>The A) option toggles ANSI terminal support. The ANSI definition of terminal
-escape sequences used for text attributes and animation is supported by most
-communications programs and dumb terminals. If your terminal supports ANSI,
-this option should be set to "Yes". You can also tell the system if you have a
-color or monochrome display with this option.</pre>
-<pre>The E) option selects an external editor as your default message editor.
-External editors may have more functionality or a command structure that you
-may prefer over the internal editor. You may only select external editors from
-a list that the sysop has configured for the system.</pre>
-<pre>The L) option sets how many lines (or rows) your display has. If your terminal
-or communications program has a status line, you will want this set to the
-number of lines your terminal can display excluding the status line. If this
-option is set to "Auto Detect", the number of screen lines your terminal
-supports will be automatically detected upon each logon.</pre>
-<pre>The K) option selects an optional command key set. You may select an alternate
-command key set resembling another BBS type or any command set the sysop has
-predefined. You may also define your own command set. If you select an
-alternate command set you will also receive matching menus. However, if you
-define your own set you will not receive matching menus.</pre>
-<pre>The X) option toggles Expert menu mode on and off. When Expert menu mode is
-turned off menus automatically appear at each new command prompt. When Expert
-menu mode is turned on menus only appear as requested with the '?' command.
-Expert menu mode off is generally referred to as Novice mode.</pre>
-<pre>The P) option toggles screen pausing. When this option is on, every screen full
-of text displayed to you will pause with a "Hit a key" prompt. When this option
-is off, the user must use the Ctrl-S and Ctrl-Q commands to pause and unpause
-scrolling text.</pre>
-<pre>The S) option toggles the spinning cursor on and off</pre>
-<pre>The C) option toggles screen clearing before each message (posts or E-mail) is
-displayed.</pre>
-<pre>The N) option toggles whether or not the BBS will automatically prompt you for
-a new message and file scan upon logging on.</pre>
-<pre>The F) option toggles automatic new file scanning after a New Message Scan All
-(NA or /N) from the Main Section.</pre>
-<pre>The R) option is used to toggle whether or not the BBS remembers your current
-subboard each time you logoff.</pre>
-<pre>The B) option is used to toggle the Batch Download File Flagging prompt that is
-displayed after each screen full of files are listed to you. This function is
-handy for quickly adding files to the batch download queue without having to
-type the name of each file. Batch Download File Flagging can be temporarily
-toggled with the &B command from the Transfer Section.</pre>
-<pre>The W) option is not available on all systems. If the sysop has configured the
-system so that users can edit their passwords, this option will appear on the
-menu and allow you to change your current password.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ElectronicMailFunctions">Electronic Mail Functions</a>
-</h2>
-<pre><b><a name="ElectronicMailMenu">Electronic Mail Menu</a> [E]</b>
-------------------------
-Selecting E from the Main prompt brings you to the E-mail Prompt. From here you
-can read, send, and kill E-mail (mail to and from users on your BBS) and
-NetMail (mail to and from users on other BBSs). Your E-mail options are:</pre>
-<pre> S Send E-mail
- N Send NetMail
- R Read E-Mail\NetMail
- K Read\Kill mail you have sent
- F Send feedback to the sysop
- Q Quit to the Mail Menu
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="SendE-mail">Send E-mail</a> [ES]</b>
-----------------
-Select Send E-Mail to send a mail message to another user's mailbox. You will
-be prompted for the user's name or user number. If you don't know the correct
-spelling for the target user and don't know the user number, you can enter in
-just part of the user's name and the system will help you find the user's full
-name. Enter the message title then your message. All Synchronet editor commands
-are available to you (see Synchronet Message Editor) in the message unless you
-have selected another (external) editor as your default editor. /S will save
-and send your message when you are finished.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="SendNetMail">Send NetMail</a> [EN]</b>
------------------
-Select Send NetMail to send a personal message to user on another BBS across a
-Fidonet style network. This feature works exactly like the Send E-Mail command
-except that you will be prompted for the user's name and Fidonet address. The
-syntax is as follows:</pre>
-<pre> Username @Fidonet Address</pre>
-<pre> Ex: John Doe @1:138:110
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ReadMail">Read Mail</a> [ER]</b>
---------------
-After selecting Read Mail you will receive a list of the mail messages in your
-mailbox. An * will be displayed next to any unread mail messages. If you have
-only one message in your mailbox, that message will be displayed rather than
-the list. Either event will be followed by the Read Mail prompt. At the Read
-Mail prompt you have the following commands available:
- # read a mail message (where # is the number of the message).
- <CR> read the next mail message.
- - read the previous mail message.
- L list all mail message titles and authors.
- R re-read the current mail message.
- D delete the current mail message.
- A automatically reply in mail to the author of the current mail message.
- This will prompt for mail message removal.
- F forward the current mail message to another user. This will automatically
- remove the mail message from your mailbox.
- Q quit the Read Mail prompt and return to the Main prompt.
- ? display the Read Mail menu
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ReadSentMail">Read Sent Mail</a> [EK]</b>
--------------------
-After selecting Read Sent Mail you will receive a list of active mail messages
-you have sent and to whom you have sent them. An * next to a title denotes an
-unread mail message. If you have only one active mail message that message will
-be displayed rather than the list. Either event will be followed by the Read
-Sent Mail prompt. At the Read Sent Mail prompt the following commands are
-available:</pre>
-<pre> # read a sent mail message (where # is the number of the message).
- <CR> read the next sent mail message.
- - read the previous sent mail message.
- L list all sent mail message titles and recipients.
- R re-read the current sent mail message.
- D delete the current sent mail message.
- Q quit the Read Sent Mail prompt and return to the Main prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="SendSysopFeedback">Send Sysop Feedback</a> [EF]</b>
-------------------------
-Send Sysop Feedback sends a private message to the Sysop. Again, all
-Synchronet editor commands are available to you (see Synchronet Message Editor)
-in the message unless you have selected another (external) editor as your
-default editor. /S will save and send your feedback when you are finished.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="MessageBaseFunctions">Message Base Functions</a>
-</h2>
-<pre>The Synchronet message base is a two level system. It is organized in groups
-and subboards. A group is a generalized collection of related subboards.
-Subboards contain specific interest messages.
-Groups tend to be categories such as Public, Computers, 18 and Over, etc.
-Subboard categories are more specific such as: Public/Politics, Public/Game
-Hints, Computers/Macintosh, Computers/DOS, Fidonet/For Sale, Fidonet/Trekkies,
-etc.
-At the Main prompt you can always see your current group and subboard. The Main
-prompt and the File Transfer prompt can be easily differentiated by the bracket
-style. The Main prompt uses square brackets [ ] and the File Transfer prompt
-uses parenthesis ( ). The first name and number is your current group. The
-second name and number is your current subboard. The clock displays your time
-left online unless you have a time exemption in which case it will display your
-time spent online. ? will display the Main Menu. </pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="GroupandSubboardSelection">Group and Subboard Selection</a>
-</h3>
-<pre>There are two ways to select groups and subboards. You can jump to the group
-and subboard #'s directly or you can jump through the groups and subboards
-sequentially until you reach the desired selection. If you wish to jump to the
-group and subboard #'s directly you may want to view a list of groups or
-subboards first. From the Main prompt enter:</pre>
-<pre> * to list all available subboards in your current group
- /* to list all available groups</pre>
-<pre> # to jump to a new subboard (where # is the subboard number)
- /# to jump to a new group (where # is the group number)
- </pre>
-<pre> } to jump forward to the next subboard
- { to jump backward to the previous subboard
- ] to jump forward to the next group
- [ to jump backward to the previous group.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="ReadingMessages">Reading Messages</a>
-</h3>
-<pre>To read messages in a subboard you can either go to the Read Messages prompt or
-you can scan for new messages. There are three different new scan commands
-available. All new scan commands can scan either your current subboard, all
-subboards in your current group, or all subboards in all groups. Remember that
-the control commands are available at all times while on the BBS to control
-text scrolling. Ctrl-S to pause, Ctrl-Q to continue, and Ctrl-C to abort.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ReadMessages">Read Messages</a> [R] </b>
-------------------
-Read Messages, activated by hitting R at the Main prompt, is used to read
-messages sequentially forward or backward in your current subboard (displayed
-at the prompt). While reading messages you can also reply to and post messages.
-The following are the Read Message commands:</pre>
-<pre> <CR> Display next message
- - Display previous message
- L Lists message titles and authors.
- T Lists message titles and authors of next ten messages
- (advances current message forward ten messages)
- R Re-read current message
- F Searches for specified text in all messages.
- B Bypasses remaining messages in current subboard and moves to next
- subboard in new scan list if applicable.
- I Displays information about current subboard
- Y Lists posts addressed to you
- C Displays remaining messages in current subboard continuously
- without pausing for a Message Scanning prompt.
- A Reply publicly regarding current message.
- M Reply privately in mail regarding current message.
- Z Reply privately in message area regarding last message.
- D Deletes only the last message in current subboard if you are the
- message's author.
- P Post a message in current subboard (see Synchronet Editor commands)
- W Post a private message in current subboard.
- Q Quits to Main prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="NewMessageScan">New Message Scan</a> [N]</b>
---------------------
-After selecting New Message Scan you will be prompted to scan for new messages
-in your current subboard, all subboards in your current group, or all subboards
-in all groups. Browse and Continuous New Scan will also prompt for these
-selections.</pre>
-<pre>After each displayed message you are provided a Read Message prompt and may
-execute any Read Message commands (See Read Messages). When <CR> is hit after
-the last message is displayed or the subboard is bypassed (B) the new scan will
-continue with the next subboard in the new scan list. "Group" and "All" new
-scans will skip over subboards that do not contain any new messages.</pre>
-<pre> Quick Keys:
- New Message Scan Subboard [NS]
- New Message Scan Group [NG]
- New Message Scan All [NA]
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="Browse">Browse</a> [B]</b>
-----------
-Browse works exactly like New Scan except on subboards that do not contain any
-new messages. Unlike New Scan Group, which will skip over a subboard that
-contains no new messages, Browse will display the last message read in a
-subboard that contains no new messages and provide you with a Read Message
-prompt (see Read Messages) allowing you to still read and post messages in that
-subboard. When <CR> is hit after the last message is displayed or the subboard
-is bypassed, by hitting B, the browse will continue with the next subboard in
-the new scan list.</pre>
-<pre> Quick Keys:
- Browse Subboard [BS]
- Browse Group [BG]
- Browse All [BA]
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ContinuousNewScan">Continuous New Scan</a> [Z]</b>
------------------------
-Continuous New Scan displays all new messages continuously without providing a
-Message Scanning prompt.</pre>
-<pre> Quick Keys:
- Continuous New Scan Subboard [ZS]
- Continuous New Scan Group [ZG]
- Continuous New Scan All [ZA]</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="PostingMessages">Posting Messages</a>
-</h3>
-<pre><b>Posting a message [P]</b>
----------------------
-To post (write) a message in your current subboard hit P from the Main or the
-Message Scanning prompt. You will also be prompted to post when you pass the
-last message in your current subboard when reading, new scanning, or browsing.
-After selecting Post Message you will be prompted whether to make the post
-private or public. When posting a message all Synchronet Editor commands are
-available to you (see Synchronet Message Editor) unless you have selected an
-external editor as your default editor. In which case you should consult the
-documentation for the external editor you have selected.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="PrivatemessagevsE-mail"><b>Private message vs E-mail</b></a>
--------------------------
-Private Messages cannot be delivered directly into another user's mailbox as
-can E-mail or NetMail so when ever possible use E-mail and NetMail to send
-confidential messages to other users. However, QWK style BBS networks do not
-support NetMail. If you wish to send a confidential message to a user on
-another BBS through a QWK style network you should use a private message on a
-subboard. You can tell what types of networks are being utilized on a subboard
-by hitting I from the read message prompt or [IS] from the main prompt.
-NetMail is the most convenient and direct way to send confidential messages to
-users on other BBSs if the BBSs are connected to a Fidonet style network. (see
-also E-mail and NetMail)</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="AutoMessage">Auto Message</a> [A]</b>
-----------------
-The auto message is displayed to every user when the user logs on. You may
-change the Auto Message from the Main prompt by hitting A. Remember that as
-soon as another user changes the Auto Message your message will be deleted.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="SynchronetMessageEditor">Synchronet Message Editor</a>
- </h3>
-<pre>When using the Synchronet Message Editor to post, send mail, or send feedback
-you have a wealth of powerful message editing functions available. There are
-two types of editor commands available: Slash (/) commands and Control (Ctrl)
-commands. </pre>
-<pre>Slash commands are preceded by the forward slash key (/) and must be entered
-from the beginning of any new line. Control (Ctrl) commands may be entered from
-any cursor position on any line. </pre>
-<pre>There are two help menus available when in the editor. /? displays all standard
-message editing commands and /ATTR displays all available text attributes which
-can set by the Ctrl-A command. Text attributes set with the Ctrl-A command do
-not become visible until the line is word wrapped or a carriage return <CR> is
-entered.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="SlashCommands(/)"><b>Slash Commands (/)</b></a>
-------------------
- /? Message editor help menu
- /S Save message
- /ABT Abort message
- /CLR Clear message
- /L List message
- /Lx List message from line number x
- /E Edit last line
- /Ex Edit line number x
- /D Delete last line
- /Dx Delete line number x
- /I Insert line before last
- /Ix Insert line before line number x
- /T Edit message title
- /ATTR Text attribute code list
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="Control(Ctrl)Commands"><b>Control (Ctrl) Commands</b></a>
------------------------
- Ctrl-C Cancel current line
- Ctrl-V Center current line
- Ctrl-R Redraw current line
- Ctrl-X Delete current line
- Ctrl-Y * Delete to end of line
- Ctrl-W Delete word to left
- Ctrl-D * Delete word to right
- Ctrl-B * Move cursor to beginning of line
- Ctrl-E * Move cursor to end of line
- Ctrl-N * Move cursor to next word
- Ctrl-\ * Move cursor to previous word
- Ctrl-F * Move cursor position forward one space
- Ctrl-Bkspc * Move cursor position back one space
- Ctrl-Minus * Toggle insert/overwrite mode
- Ctrl-Ax * Toggle new text attribute where x is attribute</pre>
-<pre>* Requires ANSI
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="TextAttributes(Ctrl-Axwherexisattribute)"><b>Text Attributes (Ctrl-Ax where x is attribute)</b></a>
-----------------------------------------------
- </pre>
-<pre> K Black foreground (zero) 0 Black background
- R Red foreground 1 Red background
- G Green foreground 2 Green background
- Y Yellow foreground 3 Yellow background
- B Blue foreground 4 Blue background
- M Magenta foreground 5 Magenta background
- C Cyan foreground 6 Cyan background
- W White foreground 7 White background
- </pre>
-<pre> H High intensity
- I Blinking
- N Normal (reset attributes)
- P Insert pause into message
- L Insert form feed into message
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><b><a name="QWKMailPacketMenu">QWK Mail Packet Menu</a> [Q]</b>
- </h3>
-<pre>Hitting Q from the Main prompt accesses the QWK Mail Packet Menu. QWK mail
-packets are used in conjunction with an offline mail reader. When you download
-a QWK mail packet all of your new messages in all of the subboards flagged in
-your newscan list and a list of new uploaded files will be compiled into a QWK
-file readable by most QWK supported offline mail readers. After logging off the
-BBS you can read the messages, E-mail, and new files list with your offline
-reader. You can reply to and post messages from your offline reader and upload
-the reply packet (.REP) to the BBS and your messages will be posted for you.
-(see QWK Offline Reader Diagram) There are many offline readers available as
-shareware and commercial products. The QWK Mail Packet Menu offers the
-following commands:
- </pre>
-<pre> D Download QWK message packet
- U Upload REP reply packet
- B Bidirectional simultaneous QWK & REP transfer
- Q Quit to Main prompt</pre>
-<pre>When D or B is selected to download a QWK packet you will be prompted to select
-a what type of Ctrl-A filtering you wish to employ. Synchronet uses Ctrl-A
-codes in messages to signify color and other text attributes. </pre>
-<pre> E Expand the Ctrl-A codes to ANSI, which is recommended if you wish
- to display ANSI color and have an ANSI compatible offline reader.
- L Leave the Ctrl-A codes in. In which case you would need an offline
- reader capable of converting Ctrl-A codes to ANSI.
- <CR> Strip out the Ctrl-A codes, removing the color and other text
- attributes from the messages.</pre>
-<pre>If you are not sure which method to use the safest bet is to just hit <CR> to
-strip out the Ctrl-A codes.</pre>
-<pre>Your QWK packet will not contain any messages you have already read since you
-logged on. If you wish to reset your new message scan pointers back to their
-state when you logged on use the Reinitialize New Message Scan Pointers [&I]
-command before downloading your QWK packet. After downloading a QWK packet your
-New Message Scan Pointers will always be set to the last messages stored in the
-packet. If you wish to new scan messages while still online after downloading a
-QWK packet you may wish to use the [&I] or [&P] command before attempting a new
-message scan. (see Reinitialize New Message Scan Pointers and New Message Scan
-Date/Time Pointers in next section)
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ConfigurationCommands">Configuration Commands</a>
-</h2>
-<pre><b><a name="ConfigurationMenu">Configuration Menu</a> [&]</b>
-----------------------
-Hitting & from the Main prompt access the Configuration prompt. Your choices
-from the Configuration prompt are:</pre>
-<pre> C Convert Credits to Minutes
- R Unfiltered Input Switch
- N New Message Scan Configuration
- P New Message Scan Pointers
- I Reinitialize Message Pointers
- Q Quit to Main Menu
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ConvertCreditstoMinutes">Convert Credits to Minutes</a> [&C]</b>
--------------------------------
-To convert online credits to online minutes hit C from the Configuration
-prompt. You cannot convert minutes back to credits.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="UnfilteredInputSwitch">Unfiltered Input Switch</a> [&R]</b>
-----------------------------
-The Unfiltered Input Switch, R from the Configuration prompt, is used to allow
-text files created offline with control codes, ANSI graphics and colors, and
-page formatting to be uploaded into a message or a mail message. To toggle
-unfiltered input ON hit R from the Configuration prompt. The next message you
-post or mail message you send will allow you to ASCII upload a text file from
-your computer by executing your terminal program's upload command (often PGUP)
-and selecting ASCII upload. Save your message by hitting Ctrl-Z. After you save
-the message the Unfiltered Input Switch will be toggled OFF.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="NewMessageScanListConfiguration">New Message Scan List Configuration</a> [&N]</b>
-----------------------------------------
-New Message Scan List Configuration, N from the Configuration prompt, allows
-you to set which subboards you wish to be scanned in a new scan, browse, or
-express new scan. When you select New Scan Configuration you will be prompted
-with a list of groups. Select the group number you wish to view. A list of
-subboards in the selected group will be displayed. An asterisk * next to a
-subboard designates the subboard is toggled ON for new scans. To toggle a
-subboard OFF select the subboard number. To toggle a subboard back ON, select
-the subboard number again. Hit Q to quit back to the group selection. Select
-another group or Q to quit back to the Main prompt. Your selections in the New
-Message Scan List Configuration are saved and remain in effect until the next
-time you change the settings.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="NewMessageScanDate/TimePointers">New Message Scan Date/Time Pointers</a> [&P]</b>
-----------------------------------------
-The New Message Scan Date/Time Pointers, P from the Configuration prompt,
-allows you to set back the date and time a new scan will begin to look for new
-messages in a specified subboard. After hitting P from the Configuration prompt
-select the group number you wish to change or A to change all groups. If an
-individual group was selected a list of subboards in the selected group will be
-displayed. Select the subboard you wish to change or hit A to select all
-subboards in that group. Enter in the new date and time. When finished hit Q to
-quit back to the group selection. Select another group or Q to quit back to the
-Main prompt.</pre>
-<pre>The pointer is automatically set to the date and time of the most recently
-posted message you have read in a subboard each time you read messages.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ReinitializeNewScanDate/TimePointers">Reinitialize New Scan Date/Time Pointers</a> [&I]</b>
----------------------------------------------
-I from the Configuration prompt resets all your New Message Scan Date/Time
-Pointers back to the their original values for your current logon. This command
-is helpful if you have already executed a New Message Scan and then wish to
-download a QWK message packet containing new messages you have already read
-online or at any time you wish to reset your new message pointers back to their
-original state for your current logon. </pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="OnlineUserInteraction">Online User Interaction</a>
-</h2>
-<pre><a name="UsersOnlineCtrl-U"><b>Users Online <Ctrl-U></b></a>
----------------------
-To list users currently online enter Ctrl-U at any time from any section of the
-BBS. Users Online lists the user names, which nodes they are logged on to,
-their connect rate, and what each user's current action is on the BBS.
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<pre><a name="ListNodeActivity{/L}"><b>List Node Activity {/L}</b></a>
------------------------
-List Node Activity, /L from the Main prompt, the File Transfer prompt, or from
-inside a chat session, lists the current activity of each node on the system.
-List Node Activity lists all the information of Users Online (Ctrl-U) but also
-lists inactive nodes and their current state.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="SendPrivateMessagetoNodeCtrl-P"><b>Send Private Message to Node <Ctrl-P></b></a>
--------------------------------------
-Ctrl-P from anywhere in the BBS will allow you to send a private one line
-message to another user on another node or all users on the system. After
-entering Ctrl-P you will see a list of users currently online and their node
-numbers, enter the node number or A for all users. Then enter your one line
-message followed by <CR>. Your message will be sent to the user on the node
-specified or all users on the system.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ChattingFeatures">Chatting Features</a>
-</h2>
-<pre><b><a name="ChatMenu">Chat Menu</a> {C}</b>
--------------
-The Chat Menu, C from the Main or File Transfer prompt, allows you to join or
-initiate multiuser chat, page the sysop to chat, talk with the system's all
-knowing Guru, toggle your paging switch ON and OFF, and toggle the activity
-alert switch ON and OFF. Commands available from the Chat prompt are:
- D Disable and enable paging
- A Disable and enable activity alerts
- J Join or initiate a Multinode chat session
- P Private node to node chat initiate/join
- T Talk with the system Guru
- C Page the sysop to chat
- Q Quit to Main prompt</pre>
-<pre> Ctrl-U List users online
- Ctrl-P Send private message to another user</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a><a name="Pagingdisable/enable">
-
-<b>Paging disable/enable</b></a><b> {CD}</b>
---------------------------
-Paging disable/enable lets you allow other users to or disallow other users
-from paging you to chat. The default is Paging enabled. To disable Paging hit D
-from the Chat prompt. The system will show you your new node status. A (P)
-after your node status designates Paging is disabled. If there is no (P) after
-your node status then Paging is enabled (default). If you need to check your's
-or another user's Paging status use Ctrl-U to list users online and their
-current status.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ActivityAlertsdisable/enable">Activity Alerts disable/enable</a> {CA}</b>
------------------------------------
-Activity alerts are messages displayed to you regarding other users activities
-such as logons and logoffs. The default is for Activity Alerts enabled. If you
-wish to disable Activity Alerts so they are not displayed to your console hit A
-from the Chat prompt. To reenable Activity Alerts hit A again from the Chat
-prompt. The system will show you your new node status. An (A) after your node
-status designates Activity Alerts are disabled. If there is no (A) after your
-node status then Activity Alerts are enabled (default). If you need to check
-your's or another user's Activity Alerts status use Ctrl-U.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="PageSysoptoChat">Page Sysop to Chat</a> {CC}</b>
------------------------
-To page the sysop to chat hit C from the Chat prompt. This will alert the sysop
-that you wish to chat with him/her if the sysop is available.
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<pre><b><a name="TalkwiththeGuru">Talk with the Guru</a> {CT}</b>
------------------------
-The system Guru is a programmable artificial intelligence engine capable of
-simulating and understanding human conversation. The guru may be programmed to
-assist users in BBS usage or purely for entertainment. To enter a conversation
-with the Guru hit T from the Chat prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="Join/InitiateMultinodeChat">Join/Initiate Multinode Chat</a> {CJ}</b>
----------------------------------
-Multinode chatting is joined by hitting J from the Chat prompt. You are
-immediately placed in channel 1 of a 99 channel chat system. From this point
-any text you type will be sent out on the channel when you press <CR>. Entering
-a forward slash (/) will enter you into the Chat Command mode (see Chat Command
-prompt). Remember CTRL-U (list users online) and CTRL-P (send private message
-to another node) are available from anywhere on the BBS.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="PrivateNodetoNodeChat">Private Node to Node Chat</a> {CP}</b>
-------------------------------
-To initiate or join someone in a two way private node to node chat hit P from
-the Chat prompt. If you are initiating a private chat you will be prompted for
-the username you wish to chat with. It will page that user to join you. If you
-have been paged to join someone in a private chat hit P from the Chat Menu and
-you will be placed in private chat with the user who paged you. Once in a
-private chat session hit / to acces the Chat Command mode (see Chat Command
-prompt). All Chat commands are available from within Private Node to Node Chat
-except /P and /#. An additional command, /E, is available to toggle local echo
-off and on so you can invoke split screen chat with your terminal program. For
-example, with Telix, split screen chat is ALT-Y.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="ChatCommandPrompt(/fromwithinchat)"><b>Chat Command Prompt (/ from within chat)</b></a>
-----------------------------------------
- </pre>
-<pre> ? Display Chat Command Menu
- P Page another user to chat
- # Change channel (where # is the number of the channel)
- L List node activity
- E Toggle local echo off/on (private node to node chat only)
- Q Quit chat session
- </pre>
-<pre> Ctrl-U List users online
- Ctrl-P Send private message to another user online
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="PageUsertoChat(multinodechatonly)"><b>Page User to Chat (multinode chat only)</b> </a>
------------------------------------------
-Enter P from the chat command prompt to page another user online to chat. The
-targeted user will receive a brief message requesting they join you in
-multinode chat.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="ChangeChannel(multinodechatonly)"><b>Change Channel (multinode chat only)</b></a>
---------------------------------------
-You can see what channel you and others are in by listing users, Ctrl-U. If you
-wish to change to a different channel enter the channel number at the chat
-command prompt. If there are no other users in the channel you will be prompted
-to password protect the channel. By password protecting a channel you can
-create a "private" chat session. Anyone entering a password protected channel
-will be prompted to enter the password upon joining the channel. If you
-password protect a channel be sure to send the password to the users you wish
-to join the channel. Only the first user in the channel has the option of
-password protecting the channel. The password protection is lifted after the
-user who protected the channel leaves. The number of channels available to you
-is determined by the sysop.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="TextFileSection">Text File Section</a>
-</h2>
-<pre>The BBS may contain text files available for you to read online. These files
-may be anything from BBS rules to special interest information to ANSI art. To
-enter the Text File Section hit G from the Main prompt. The system will display
-a list of text file areas. These are groups of related text files. Select an
-area and a list of files contained in that text file area will be displayed or
-hit Q to quit back to the Main prompt. Each file will be numbered. Enter a
-number at the prompt to view a file or Q to quit back to the text file area
-list. Remember that the Ctrl commands are available at all times while on the
-BBS. Ctrl-S to pause, Ctrl-Q to continue, and Ctrl-C to abort.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="ExternalServices">External Services</a>
-</h2>
-<pre>External services (commonly referred to as Doors) are programs the sysop has
-added to the system and made available to the users. Programs may be games,
-database applications, online shopping, date/match making, and virtually
-thousands of other possible services. Hitting X from the Main prompt will enter
-you into the External Services menu where you may select from the listed
-services available. Each service should contain its own online instructions and
-help. If a service requires a charge for access the rate will be listed next to
-the title.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2>User Lists</h2>
-<pre><b><a name="UserLists">User Lists</a> [U]</b>
---------------
-To display a list of user accounts on the BBS, users who have access to your
-current subboard, or a logon list for the day hit U from the Main prompt. You
-will be prompted for which list you would like to view.</pre>
-<pre> Quick Keys:
- User Account List [UU]
- User Account List of Subboard [US]
- Logon List for the Day [UL]</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="Information/Statistics">Information/Statistics</a>
-</h2>
-<pre><b><a name="InformationCommandMenu">Information Command Menu </a>[I]</b>
-----------------------------
-Hitting I from the Main Menu will access the Information Command prompt.
-Information on the BBS, your user account, and the current subboard can be
-accessed through the Information Commands.</pre>
-<pre> I System information
- V Version information on Synchronet
- S Information on your current subboard
- Y Your user account information and statistics
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="SystemInformation">System Information </a>[II]</b>
------------------------
-To view information regarding the BBS hit I Information Commands prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="VersionInformation">Version Information</a> [IV]</b>
-------------------------
-To view information regarding the version of Synchronet your node is running
-hit V from the Information Commands prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="SubboardInformation">Subboard Information</a> [IS]</b>
--------------------------
-To view information regarding your current subboard hit S from the Information
-Commands prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="YourAccountStatistics">Your Account Statistics </a>[IY]</b>
-----------------------------
-To view your account statistics hit Y from the Information Commands prompt.
-Statistics include credits, minutes, uploads, downloads, E-mail, posts, logons,
-time online, and account expiration date.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h2><a name="FileTransferSection">File Transfer Section</a>
-</h2>
-<pre>The Synchronet File Transfer section is entered from the Main prompt by hitting
-T. To return to the Main prompt from the File Transfer prompt hit Q. The File
-Transfer section is organized in the same manner as the Message area; a
-bi-level hierarchal system with groups and sub groups. In the case of the File
-Transfer section there are libraries and directories. Libraries are groups of
-related directories.
-Libraries might be organized such as Shareware, Graphics, etc. The Shareware
-library, for example, may contain directories such as Windows, Business,
-Utilities, etc.
-The File Transfer prompt identifies your current library and directory. The
-first name and number is your current Library. The second name and number is
-your current directory. ? will display the Main Menu.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="LibraryandDirectorySelection"><b>Library and Directory Selection</b></a>
-</h3>
-<pre>There are two ways to select libraries and directories. You can jump to the
-library and directory #'s directly or you can jump through the libraries and
-directories sequentially until you reach the desired selection. If you wish to
-jump to the library and directory #'s directly you may want to view a list of
-libraries and directories first. From the File Transfer prompt enter:</pre>
-<pre> * to list all available directories in your current library
- /* to list all available libraries</pre>
-<pre> # to jump to a new directory (where # is the directory number)
- /# to jump to a new library (where # is the library number)</pre>
-<pre> } to jump forward to the next directory
- { to jump backward to the previous directory</pre>
-<pre> ] to jump forward to the next library
- [ to jump backward to the previous library
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="Wildcards"><b>Wildcards</b></a>
-</h3>
-<pre>Many commands in the File Transfer section accept wildcards. Wildcards allow
-you to search for or list a specific file or files based on part of a filename.
-Wildcard syntax is entered by typing part of the filename in conjunction with
-wildcard characters. * will wild the remainder of a filename and/or the
-remainder of an extension and ? will wild specific character positions. No
-extension after the filename will wild the entire extension. <CR> for the
-entire filename will wild the entire filename and select/list all files. When
-wildcards are accepted the prompt will appear as follows Filespec [*.*]. Some
-examples of wildcard uses are:</pre>
-<pre>Filespec [*.*]: FONT?.ZIP = FONT1.ZIP or FONT2.ZIP not FONTMAN.ZIP
-Filespec [*.*]: FONT*.ZIP = FONTMAN.ZIP or FONT1.ZIP not LANMAN.ZIP
-Filespec [*.*]: FONTMAN.Z* = FONTMAN.ZIP or FONTMAN.ZOO not FONTMAN.png
-Filespec [*.*]: <CR> = all files
-Filespec [*.*]: FONTMAN = FONTMAN.ZIP or FONTMAN.png </pre>
-<pre><heading>
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><b><a name="ListingFiles">Listing Files</a> (L)</b>
-</h3>
-<pre>L from the File Transfer prompt lists files in your current directory.
-Wildcards may be used.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><b><a name="ExtendedFileInformationListing">Extended File Information Listing</a>
-(E)</b>
-</h3>
-<pre>Hitting E from the File Transfer prompt allows you to list a file or files with
-extended information. This displays the filename, uploader name, time to
-download, credit cost, times downloaded, date/time uploaded, file date/time,
-and last date/time downloaded. If an extended description is included it will
-also be displayed. Wildcards may be used.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><b><a name="NewFileScan">New File Scan </a>(N)</b>
- </h3>
-<pre>N from the File Transfer prompt lists all new files uploaded since your last
-logon. The last logon date can be changed with the Change New File Scan
-Date/Time command (&P). After selecting New File Scan you will be prompted to
-scan your current directory, all directories in your current library, or all
-directories in all libraries. </pre>
-<pre> Quick Keys:
- New File Scan Current Directory (ND)
- New File Scan Current Library (NL)
- New File Scan All Libraries (NA)
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><b><a name="SearchforFilename">Search for Filename</a> (S)</b>
- </h3>
-<pre>S from the File Transfer prompt allows you to search for a filename in your
-current directory, all directories in your current library, or all directories
-in all libraries. Wildcards may be used.
- </pre>
-<pre> Quick Keys:
- Search for Filename Current Directory (SD)
- Search for Filename Current Library (SL)
- Search for Filename All Libraries (SA)
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<h3><b><a name="FindTextinDescription">Find Text in Description</a> (F)</b>
-</h3>
-<pre>F from the File Transfer prompt allows you to list files by searching for a
-string of text in the file descriptions. Partial words may be used. Wildcards,
-however, may not be used. You will be prompted to search your current
-directory, all directories in your current library, or all directories in all
-libraries. You also will be prompted to expand the search to include extended
-file descriptions if desired.</pre>
-<pre><b><a name="QuickKeys">Quick Keys</a>:</b>
-------------------------------------------------------
- Find Text in Description Current Directory (FD)
--------------------------------------------------------
- Find Text in Description Current Library (FL)
--------------------------------------------------------
- Find Text in Description All Libraries (FA)
--------------------------------------------------------
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="FileTransferAreaInformation">File Transfer Area Information</a>
-</h3>
-<pre><b><a name="FileTransferInformationMenu">File Transfer Information Menu</a> (I)</b>
-----------------------------------
-To access the File Transfer Information prompt hit I from the File Transfer
-prompt. The following choices are available from the prompt:</pre>
-<pre> T File transfer policies
- D Current directory information
- U User account list with access to current directory
- Y Your file transfer statistics
- Q Quit back to Main menu
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="BBSFileTransferPolicy">BBS File Transfer Policy</a> (IT)</b>
------------------------------
-T from the File Transfer Information prompt displays the BBS's file transfer
-policies, rates, upload credit system etc.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="CurrentDirectoryInformation">Current Directory Information</a> (ID)</b>
-----------------------------------
-D from the File Transfer Information prompt displays information on your
-current directory.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="UsersWithAccesstoDirectory">Users With Access to Directory</a> (IU)</b>
------------------------------------
-U from the File Transfer Information prompt lists all users with access to your
-current directory. The list can be sorted alphabetically or numerically by user
-number.
-<a href="#TOC"><b>
-Back to Table of Contents</b></a></pre>
-<pre><b><a name="YourFileTransferAccountStatistics">Your File Transfer Account Statistics</a> (IY)</b>
-------------------------------------------
-Y from the File Transfer prompt displays your File Transfer account statistics
-including credits, downloads, and uploads.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="FileTransferAreaConfiguration">File Transfer Area Configuration</a>
-</h3>
-<pre><b><a name="FileTransferAreaConfigurationMenu">File Transfer Area Configuration Menu</a> (&)</b>
------------------------------------------
-Hit & from the File Transfer prompt to access the File Transfer Area
-Configuration prompt. From this prompt you have the following choices:</pre>
-<pre> B Batch Download File Flagging toggle ON/OFF
- P New File Scan pointers
- Q Quit to Main Menu
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="BatchDownloadQuickFileFlagging">Batch Download Quick File Flagging </a>(&B)</b>
----------------------------------------
-B from the File Transfer Information prompt toggles Batch Download Quick File
-Flagging ON and OFF. This feature allows you to add files to your batch
-download queue quickly and easily by simply with file list commands L, S, F,
-and N. With Batch File Flagging turned on file listings will list one page of
-files at a time displaying a letter next to each file and a prompt at the end
-of the list. Enter the letters of any files you wish to add to your batch
-download queue then hit <CR> to continue the listings. Batch Download Quick
-File Flagging can be set ON as your default in User Defaults (see User
-Defaults). Remember CTRL-C (abort listing) is available from anywhere on the
-BBS.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="ChangeNewFileScanDate/Time">Change New File Scan Date/Time</a> (&P)</b>
------------------------------------
-The new file scan date and time is set each time you logoff. If you wish to new
-scan files from a different date than the last date you logged on, hit P from
-the File Transfer Information prompt. After entering the new date and time new
-file scans (ND, NL, and NA) will scan from the new date and time you have set.
-The new file scan date and time will be reset when you logoff.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="DownloadingFiles">Downloading Files</a>
-</h3>
-<pre><b><a name="DownloadFileorFiles">Download File or Files</a> (D)</b>
---------------------------
-To download a file (or files) or add files to the Batch Download queue hit D
-from the File Transfer prompt. You will be prompted to enter the filename. You
-may use wildcards.</pre>
-<pre>Filespec [*.*]: filename.ext or wildcards</pre>
-<pre>All file matches in you current directory will be listed one by one with
-download options after each file (see Download Options). If no matches are
-found in your current directory the search will automatically expand to all
-directories in all libraries. If a wildcard was entered the next file in the
-search will be displayed with download options (see Download Options) after
-each file is downloaded, entered into the batch/bidirectional queue or skipped.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="DownloadUsertoUserFile">Download User to User File</a> (/D)</b>
--------------------------------
-To download personal user to user file transfer sent to you by another user hit
-/D from the File Transfer prompt. All user to user files sent to you will be
-listed one by one with download options (see Download Options) after each file.
-User to user file transfers may not be allowed on all systems.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><a name="DownloadOptions"><b>Download Options</b></a>
-----------------
-Download options vary depending on which and how many protocols the sysop has
-installed on the BBS. The most common protocols are Xmodem, Ymodem, Zmodem, and
-Ymodem-G. The download options are:
- </pre>
-<pre> protocol Download file with selected protocol (usually X, Y, Z, or G).
- B Add file to Batch/Bidirectional Download queue (see Batch
- File Transfers).
- Q Quit to File Transfer prompt and abort search.
- <CR> Display next file and download options. Will quit to File
- Transfer prompt on last file.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="UploadingFiles">Uploading Files</a>
-</h3>
-<pre><b><a name="UploadFileorFiles">Upload File or Files</a> (U)</b>
-------------------------
-To upload a file to the current directory or add a file or files to the Batch
-Upload Queue (see Batch File Transfers) hit U from the File Transfer prompt.
-You will be prompted for the filename. Now see Upload Procedures.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="UploadUsertoUserFile">Upload User to User File</a> (/U)</b>
------------------------------
-To upload a file to another user or users hit /U from the File Transfer prompt.
-You will be prompted to enter the filename. After confirming the filename you
-will be prompted to select the destination user or users. Enter the user's
-name, user number, or partial name. After the user has been selected you may
-select additional users or <CR> when finished. User to user file transfers may
-not be allowed on all systems. Now see Upload Procedures.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="UploadFiletoSysop">Upload File to Sysop</a> (Z)</b>
-------------------------
-To upload a file to the sysop's file directory hit Z from the File Transfer
-prompt. You will be prompted for the filename. User to sysop file uploads may
-not be available on all systems. Now see Upload Procedures.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="UploadProcedures">Upload Procedures</a>:</b>
-------------------
-You now may be asked if the file is part of a multiple file set. If the file is
-not a part of a set (1 of 3 for example) then hit <CR> or N. You may now be
-asked to rate the file based on its contents. Next you will be prompted to
-enter the one line file description as you wish it to appear in the file
-listing. Then you may be asked to enter an extended description. If you do not
-wish to enter an extended description hit <CR> or N. When entering an extended
-description all Synchronet editor commands are available to you (see Synchronet
-Message Editor) in the description unless you have selected another (external)
-editor as your default editor. /S will save your description when you are
-finished.</pre>
-<pre>After the extended description you will be prompted with upload options. The
-upload options are:</pre>
-<pre> protocol Upload file with selected protocol (usually X, Y, Z, or G).
- B Add file to Batch Upload queue (except user to user).
- Q Quit to File Transfer prompt and abort search.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="Remove/EditFile">Remove / Edit File</a> (R)</b>
-----------------------
-To remove any file or edit the description or extended description of any file
-you have uploaded on to the BBS hit R from the File Transfer prompt.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="BatchFileTransfers"><b>Batch File Transfers</b></a>
- </h3>
-<pre>You can make uploading and or downloading multiple files much easier by using
-batch file transfers. In batch file transfers you have two queues (like holding
-tanks) in which to store files to be transferred. The upload queue holds files
-to be uploaded and the download queue holds files to be downloaded. To place
-files into the queues use the standard upload and download commands from the
-File Transfer prompt but select B for batch instead of a protocol when prompted
-with upload or download options. The upload and download commands that accept
-batch transfers are D, U, /D, and Z. The maximum number of files you may store
-in your batch queues is determined by the sysop. </pre>
-<pre>An additional option available with batch file transfers is bidirectional file
-transfers. Bidirectional file transfers allow you to upload and download files
-simultaneously in the same amount of time it takes to upload or download in one
-direction. Using bidirectional file transfers you can optimize your time online
-by virtually doubling your file transfer speed if you are uploading and
-downloading. To use bidirectional file transfers your communications software
-must either support bidirectional protocols directly or allow you to add them
-as external protocols. Currently the two most popular bidirectional protocols
-are Bimodem and HS/Link. All modems should support bidirectional file transfers
-without any problem except for US Robotics HST modems in high speed modes.
-These modems are designed to send high-speed in one direction and 450bps in the
-other simultaneously. You will not benefit from bidirectional file transfers
-with this modem at high-speed. If you have a US Robotics Dual Standard modem
-make sure you are calling in the v.32 or v.32bis mode to utilize bidirectional
-file transfers.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="Batch/BidirectionalCommands">Batch/Bidirectional Commands</a> (B)</b>
---------------------------------
-To use Batch/Bidirectional commands hit B from the File Transfer prompt. If you
-have no files in either your upload or download queues you will not be able to
-use Batch/Bidirectional commands until you add at least one file to one of your
-queues. Only protocols supporting batch uploads and downloads will be available
-from these commands. Xmodem for example will not be an option. The
-Batch/Bidirectional commands are:</pre>
-<pre> B Start a bidirectional file transfer
- U Upload files from upload queue
- D Download files from download queue
- L List files in Upload and Download queues
- R Remove a file or files from Upload or Download queues
- C Clear (remove all) files from Upload or Download queues
- Q Quit to File Transfer prompt
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><a name="FileExtraction/TempDirectory">File Extraction / Temp Directory</a>
- </h3>
-<pre>If implemented on the BBS, file extraction allows you to extract files from an
-archived file (ZIP, ARC, LZH, etc.) and download only the file or files you
-need from that archive. This can be extremely helpful if you need only one 50k
-file from a 1MB ZIP file online. </pre>
-<pre>You can even extract files from nested archives. For example if an archive
-called FONTMAN.ZIP contained two archives within itself, BLUE.ZIP and RED.ZIP
-and BLUE.ZIP contained two files called FILE1.FON and FILE2.FON you would be
-able to download just the file FILE1.FON if that were the only file you needed.</pre>
-<pre>All file extraction is done in your Temp Directory. This is an area you may
-extract files to and download from. You may work on one original archive at a
-time in the Temp Directory. The Temp Directory may, however, contain many files
-extracted from the original archive. </pre>
-<pre>The Temp Directory is also used to create and download a new file scan list or
-a complete list of all files on the BBS.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b><a name="TempDirectoryCommands">Temp Directory Commands</a> (T)</b>
----------------------------
-Hit T from the File Transfer prompt to access the Temp Directory prompt. From
-this prompt the following commands are available:</pre>
-<pre> E Extract files from an archive into the Temp Directory
- N Create a New Files list
- F Create a list of all files on the BBS
- A Add or create a Temp File
- D Download a Temp File
- I Information on files
- V View the contents of any archive located in Temp Directory
- L List all files in the Temp Directory
- X Extract from an archive located in Temp Directory
- R Remove file or files from Temp Directory
- Q Quit to File Transfer prompt</pre>
-<pre><a name="ExtractfromarchiveinTempDirectory"><b>1) Extract from archive in Temp Directory</b></a>
------------------------------------------
-To extract files from an archive into the Temp Directory hit E from the Temp
-Directory prompt. Enter the filename you wish to extract from. You may use a
-wildcard.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b>2) <a name="AddfilestoTempfile">Add files to Temp file</a></b>
--------------------------
-To download from the Temp Directory you must first create a Temp File
-containing any files you wish to download from the Temp Directory. To create a
-Temp File or add to a Temp File select A from the Temp Directory prompt. You
-can view the contents on any archives located in the Temp Directory by
-selecting V from the Temp Directory prompt. If you wish to extract files from a
-nested archive located in the Temp Directory select X.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<pre><b>3) <a name="DownloadTempfile">Download Temp file</a></b>
----------------------
-When your Temp File contains all the files you wish to download select D from
-the Temp Directory prompt to download the Temp File.</pre>
-<pre><a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-<h3><b><a name="Creatinganddownloadingfilelists">Creating and downloading file lists</a> </b>
- </h3>
-<pre>Entering N from the Temp Directory prompt will create a file listing of all new
-file uploads called NEWFILES.TXT, and place the file in the Temp Directory. To
-download the file hit A to create a Temp File then D to download the Temp File.
-The list is a standard ASCII text file and can be read from any standard text
-editor or wordprocessor. Remember that creating this file in the Temp Directory
-will delete any files that are already in the directory. </pre>
-<pre>To create and download a complete file list of all files on the BBS hit F from
-the Temp Directory prompt. This will create a file called FILELIST.TXT. Then
-hit A to create a Temp File then D to download the Temp File. Again, creating
-the FILELIST.TXT will erase all existing files in the Temp Directory.
-
-<a href="#TOC"><b>Back to Table of Contents</b></a></pre>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-<pre> </pre>
-
-</body>
-
-</html>
diff --git a/docs/user_editor.html b/docs/user_editor.html
deleted file mode 100644
index 4ddf0a02c1aa95a5df530c8096d7c2331b8f6845..0000000000000000000000000000000000000000
--- a/docs/user_editor.html
+++ /dev/null
@@ -1,546 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>User Editor</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-
-<h2><a name="UsingUserEditLocally">[6.1] - Using User Edit Locally </a></h2>
-
-<pre><b>Graphical Synchronet User Editor <i><font color="#FF0000">(v3+ Only)</font></i></b></pre>
-<pre>The User Editor application can be executed from the menu bar of the Synchronet
-Control Panel as shown below.
-
-<img border="0" src="images/uedit_v3_exe.png" width="430" height="151"></pre>
-<pre>Below is a screenshot of the GUI User Editor with a sample user and data
-shown. How this screen looks will vary depending upon your configuration
-and what data you decide to collect from new users. There are many options
-and settings available in the User Editor and you should spend some time
-getting familiar with this feature.</pre>
-<pre><img border="0" src="images/uedit_v3.png" width="453" height="403"></pre>
-<pre><b>Online Synchronet User Editor</b>
-
-<b>Alt-U <i><font color="#FF0000">(v2 Only)</font></i></b>
- The sysop can locally hit Alt-U at any time within Synchronet to bring
- up the User Edit function with the user that is online as the current
- user to edit. After exiting User Edit, the sysop will return to the
- place where he was prior to hitting Alt-U. </pre>
-<pre><b>U</b>
- At the Reading Mail or Reading All Mail prompts, hitting 'U' will pop
- the sysop into User Edit with the author of the previous message as the
- current user. Hitting 'U' at the Waiting for call screen will start
- User Edit. Hitting 'U' from the Reading Messages (O)perator menu will
- start User Edit too.
-
-<b>;UEDIT
-</b> Typing ';UEDIT' at either the Main or Transfer prompts will also pop
- the sysop into User Edit and if a user number or name is specified
- (e.g. ;UEDIT 20 or ;UEDIT BOB), then that user will be the current
- user.</pre>
-<h2><a name="UsingUserEditRemotely">[6.2] - Using User Edit Remotely</a></h2>
-<pre>When a remote sysop initiates User Edit (with the U or ;UEDIT command), User
-Edit functions a little differently than when a local sysop initiates it.
-A remote sysop cannot raise any user's Level above his own and can't give a
-user any Flags or Exemptions that he/she doesn't have. A remote sysop can not
-edit any information of any users with a Level higher than his own and their
-passwords, real names, and phone numbers aren't displayed to him/her.
-
-<b>User Edit Screen Example:</b>
-
-<font color="#000080">Alias : The Albatross Password : MYPASS 10/12/91
-Real Name : Joe Schmoe Phone number : 714-555-1212
-Address : 404 N.S. West Ln. Age/Sex/BD : 31 M 03/08/61
-Location : Irvine, Ca Zip Code : 90001
-Note : Handle : J Schmoe
-Computer : 386DX-25 ISA SVGA 4 60 ST506 Modem type : 14.4/V32
-
-First on : 07/19/91 Expire : 12/18/95 Last on : 09/12/92 20:13
-Time on : 2831 Today : 0 105 Last call : 9 90 Extra : 0
-Logons : 156 Today : 0 6 Posts : 39 24 Today : 0
-E-mails : 22 To sysop : 3 Waiting : 0 Today : 0
-
-Uploads : 3,085 bytes in 1 files
-Downloads : 90,389,401 bytes in 282 files
-Credits : 4,007,324 free: 0 (0 per day)
-Minutes : 0
-
-Sec Level :
-Flags #1 : CD L N Flags #3 : AB E
-Flags #2 : G Flags #4 : F H
-Exemption : Restricts :
-
-</font><b>User Edit Screen Explanation</b></pre>
-<pre>The 1st line contains either the alias (if aliases are allowed) or the name
-of the user, the user's password, and the date the password was last modified.
-
-The 2nd line contains the user's real name and the user's phone number.
-
-The 3rd line contains address of the user, the user's age, sex, and birthday in
-the form MM/DD/YY or DD/MM/YY if European Date format is enabled.
-
-The 4th line contains the user's location (normally City, State) and Zip
-(or postal) code.
-
-The 5th line contains a public note about the user and the user's chat handle.
-
-The 6th line contains the user's computer description and modem type.
-
-The 7th line contains the user's private comment - only readable or editable
-by a sysop. If there is a '$' after the "Comment" label, then this user has
-a message file currently attached and is view/editable with the '$' command.
-If the comment is blank and there isn't an extended comment, this line is
-blank.
-
-The 8th line contains the date the user was first on, the user's expiration
-date, and the date and time the user was last on. Dates are in the form
-MM/DD/YY or DD/MM/YY if European date format is enabled.
-
-The 9th line contains the total time (in minutes) the user has been online,
-how much time today, the maximum time he is allowed per day, amount of time on
-his most recent call, the maximum time he is allowed per call, and any extra
-time the user may have accumulated through file uploads.
-
-The 10th line contains the total number of logons for this user, the number
-of logons today, the maximum number of logons this user is allowed per day,
-total number of messages posted by this user, the user's current post/call
-ratio, and total posts today.
-
-The 11th line contains the total number of e-mails sent by this user, total
-number of e-mails sent to user #1, number of e-mails currently in user's
-mailbox, and the number of e-mails this user has sent today.
-
-The 12th line contains the user's NetMail forwarding address. If the user
-doesn't have a NetMail forwarding address specified, this line is blank.
-
-The 13th line contains the total number of bytes uploaded by this user and
-the total number of files.
-
-The 14th line contains the total number of bytes downloaded by this user and
-the total number of files. If the user has had any suspected leech downloads,
-the number of leech downloads is displayed here too.
-
-The 15th line contains the number of credits this user currently has. The
-free credits are given on a daily basis as determined by the sysop.
-
-The 16th line contains the amount of time credits this user has (in minutes).
-
-The 18th line contains the user's Security Level.
-
-The 19th line contains the user's Flag Sets 1 and 2 (if any).
-
-The 20th line contains the user's Flag Sets 3 and 4 (if any).
-
-The 21st line contains the user's Exemption and Restriction Flags that are set
-(if any).
-
-The 23rd line contains the User Edit command prompt which contains the number
-of the current user and the total number of user slots on the system.
-
-If the current user is deleted or inactive, then the 1st line will contain a
-string that specifies this status and all other lines will be shifted down one.</pre>
-<h2><a name="UserEditCommands">[6.3] - User Edit Commands</a></h2>
-<pre>As with most Synchronet command prompts, hitting '?' will display a menu
-of commands.</pre>
-<pre> A Alias and Chat Handle S Sex (Gender)
- B Birthday T Set Text Search String
- C Computer U Upload/Download Stats
- D Delete/Deactivate/Restore V Validate User
- E Exemptions W Password
- F Flags X View Extended Comment
- G Go to a User Y Copy User to Another Slot
- H Edit/Create Extended Comment Z Restrictions
- I Inspect/Edit User's Defaults ] Go Up One User
- J Edit Minutes [ Go Down One User
- K Edit Dates } Search Up
- L Location and Address { Search Down
- M Security Level / Set ARS Search String
- N Note ~ Set Leech Download Counter
- O Comment + Adjust Credits
- P Phone Number * Adjust Minutes
- Q Quit to Main Menu $ Edit Credits
- R Real Name # View User Questionnaire
-
-The available commands are listed below with explanations.
-
-<b>A - Alias and Chat Handle:
-</b> This command will let you edit the user's alias - a 25 character field
- that must start with a non numeric character. You can also edit the
- user's chat handle (an 8 character field) with this command.
-
-<b>B - Birthday
-</b> You can edit the user's birthday with this command. The form of the
- date is forced as either MM/DD/YY or DD/MM/YY (depending on the
- setting of the European date option).
-
-<b>C - Computer Description:
-</b> You can edit the user's 30 character computer description field with
- this command.
-
-<b>D - Delete/Deactivate/Restore/Activate:
-</b> If the current user is at normal status (not deleted or inactive),
- hitting this command will prompt you if you wish to delete or
- inactivate this user. If you delete a user, his account will be saved
- for number of days since his last logon. This number of days is
- specified by the sysop in the SCFG. After this number of days,
- a new user may obtain this slot. Inactive slots are the same as deleted
- ones, except that they are reserved and can't be used by new users.
-
- If the current user is deleted or inactive (as specified by the 1st
- line of the screen), this command will allow you to restore the user
- to normal status.
-
-<b>E - Exemption Flags:</b>
- Exemptions are used by the sysop to give user's extended privilege
- to the system. For example, you might want to give a trustworthy
- user the right to remove, move, and edit descriptions of all files
- in the Transfer Section. Normally users can only remove or edit the
- description of a file they've uploaded, but a user with the 'R'
- exemption can move any file, remove any file, or edit any file
- description in the Transfer Section. This ability is normally only
- given to sysops.
-
- Using this command you can toggle the state of an Exemption Flag
- by hitting the corresponding letter. To view a menu of the available
- exemptions, hit '?' or [ENTER] to stop editing the Exemption Flags.
-
- The following is a list of the available exemptions and their
- descriptions ($ indicates that sysops have this capability):
-
-<b> A - Anonymous
-</b> Allows user to post and send e-mail anonymously.
-<b> C - Chat $
-</b> Allows user to page the local sysop with the ;CHAT command
- regardless of the sysop availability state (Scroll-Lock).
-<b> D - Download
-</b> Allows user to download files even when the user doesn't
- have enough credits.
-<b> E - Expire by Time
-</b> Prevents user account from expiring when the user runs out of
- time and the SCFG->System->Toggle Options->User Expires When
- Out of Time is set to YES.
-<b> F - FidoNet Crash/File Request/Return Receipt NetMail
-</b> Allows user to send NetMail using title specifiers:
- "CR:" to over-ride default crash status to ON
- "FR:" to send file requests (FREQ)
- "FA:" to send file attachments
- "RR:" to request a return receipt
- See Sending FidoNet NetMail for more information.
-<b> G - Multiple Nodes $
-</b> Allows user to be logged on to more than one node at a time.
- This exemption is useful for Guest accounts.
-<b> I - Interrupt Nodes $
-</b> Allows user to interrupt (hang up on) other nodes with the
- ;INTR command.
-<b> J - Chat Channel Cost
-</b> User will not be charged credits to change chat channels.
-<b> L - Logons per day
-</b> Allows user to logon the system an indefinite number of times
- per day.
-<b> M - Modem Rate $
-</b> Allows user to logon any node at any modem speed regardless
- of what the minimum modem speed for that node is.
-<b> N - Node Locking $
-</b> Allows user to toggle the lock status of any node with the
- ;LOCK command and log on a locked node.
-<b> P - Permanent
-</b> This user account will not be automatically deleted because
- of inactivity.
-<b> Q - Quiet/Anonymous Node $
-</b> Allows user to toggle the quiet or anonymous state of his node
- with the ;QUIET or ;ANON commands respectively. Nodes that are
- in quiet mode appear to be "Waiting for call" to the other
- nodes. Anonymous modes appear to have "UNKNOWN USER" online.
-<b> R - Remove/Move/Edit Descriptions of Files $
-</b> Allows user to remove, move, or edit the descriptions of any
- file in the Transfer Section that the user has access to.
-<b> S - Send NetMail Cost
-</b> User will not be charge credits for sending NetMail.
-<b> T - Time Online
-</b> Allows the user to remain online indefinitely - no time limit.
- The inactivity timer remains active.
-<b> X - External Programs
-</b> User will not be charged credits to run external.
-
-<b>F - Flags:
-</b> This command lets you toggle the state of all Flags. Hitting a number
- will allow you to edit that particular flag set. Hitting '?' will
- display a menu that is used to remind the sysop of the meaning of each
- Flag. These menus are located in the TEXT\MENU directory and names are
- FLAGS1.ASC, FLAGS2.ASC, FLAGS3.ASC, and FLAGS4.ASC. Hitting [ENTER]
- will end the editing of the flags.
-
- The Flags in conjunction with the Level can by used by the sysop to
- limit access to Message Groups, Sub-boards, External Programs,
- General Text File Sections, Transfer Libraries, and Directories.
-
-<b>G - Go to a User:
-</b> This command will let you change the current user into another user
- by entering the user's name, partial name, or number. It should be
- noted that the fastest way to change the current user is to type the
- number of the user directly at the User Edit prompt.
-
-<b>H - Edit/Create Extended Comment:
-</b> This command will let the sysop edit or view an existing extended
- comment or create a new one. An extended comment is a free-form message
- file that a sysop creates that contains information pertaining to this
- user. A '+' after the "Comment:" string on the 5th line of the User
- Edit screen specifies that an extended comment already exists.
-
-<b>I - Inspect or Edit User's Default Settings:
-</b> This command will bring up the current user's default settings for
- ANSI terminal emulation, screen length, screen pausing, spinning
- cursor, auto new file scan, clear screen after messages, auto menu
- display, and default QUIET mode (if the user has the 'Q' exemption).
-
-<b>J - Edit Minutes:
-</b> This command allows the sysop to edit the current user's minute field.
-
-<b>K - Edit Date Fields:
-</b> The command will let you edit the date fields for this user's last
- logon, first logon, expiration date, and password modification date.
- All dates are forced to the form MM/DD/YY or DD/MM/YY if European
- date format is enabled.
-
-<b>L - Location:
-</b> This command will allow the sysop to edit the user's address, location,
- and zip/postal code fields.
-
-<b>M - Security Level:
-</b> The sysop can edit the user's Security Level with this command. The
- user's Level is a decimal number in the range 0 to 99. Higher levels
- indicate higher access. Users with a level of 90 or higher are
- considered to be sysops. The sysop can use the Level in conjunction
- with the Flags to limit access to Message Groups, Sub-boards, General
- Text File Sections, External Programs, Transfer Libraries, and
- Directories. The Level also determines the user's maximum time online
- per day, per call, maximum logons per day, and maximum number of lines
- per message (post or e-mail).
-
-<b>N - Note/Name:
-</b> If aliases are allowed on the system, this command will allow the sysop
- to edit the user's public note. This field is displayed next to the
- user's alias in user listings and the logon list.
-
- If aliases are not allowed, this command allows the sysop to edit the
- user's name. The user's name is a 30 character field that must begin
- with a printable non-numeric character. The first letter of each word
- in the user's name is forced uppercase.
-
-<b>O - Sysop Comment:
-</b> This command allows the sysop to edit the private 60 character comment
- field regarding this user.
-
-<b>P - Phone Number:</b>
- The sysop can edit the user's phone number.
-
-<b>Q - Quit User Edit:
-</b> Exits the User Edit function and returns the sysop to where he was
- prior to initiating User Edit.
-
-<b>R - Real Name (if aliases are allowed):
-</b> This command allows the sysop to edit the user's real name - a 25
- character field. The first letter of each word in this field is forced
- uppercase.
-
-<b>S - Sex:
-</b> A single uppercase character is used to describe the sex of the user
- (normally 'M' or 'F'), but can be changed to any uppercase character
- with this command.
-
-<b>T - Set Text Search String:
-</b> Use this command to set the text string to search for (using the {
- and } commands).
-
-<b>U - Upload/Download Statistics:
-</b> The sysop can edit the user's upload and download statistics with
- this command. The statistics are the number of bytes and files uploaded
- and the number of bytes and files downloaded. These are numeric fields.
-
-<b>V - Quick-Validate User:
-</b> This command will display the ten quick-validation sets (0 to 9)
- for quickly setting the user's Security Level, Flags, Exemptions,
- Restrictions, Expiration Date, and/or Credits. The Quick-Validation
- sets are set by the sysop in SCFG->System->Quick-Validation Values.
-
-<b>W - Password:
-</b> Use this command to change the user's password. The password
- modification date doesn't change when using this command (use 'K'
- to change the password modification date).
-
-<b>X - View Extended Comment:
-</b> This command allows the sysop to the user's extended comment if it
- exists.
-
-<b>Y - Copy User to Another Slot:
-</b> This command will copy the user data of the current slot to another
- valid slot. This will overwrite any user information in the
- destination slot.
-
-<b>Z - Restriction Flags:
-</b> A sysop can give a user restrictions from certain sections or features
- of the BBS by setting one or more valid Restriction Flags. Typing the
- letter of a restriction will toggle its status, '?' will display a menu
- of the valid restrictions and [ENTER] will end the flag editing
- procedure. The valid restrictions and their descriptions follow:
-
-<b> A - ANSI and Ctrl-A Codes
-</b> User can't write messages containing either ANSI escape
- sequences or Ctrl-A attribute codes.
-<b> B - Beep
-</b> User can't put beeps (Ctrl-G, ASCII 7) into messages
- (posts, mail, or chat).
-<b> C - Chat
-</b> User can't use any chat functions.
-<b> D - Download
-</b> User can't download files.
-<b> E - E-mail
-</b> User can't e-mail other users (can still e-mail sysop).
-<b> F - Forward Mail
-</b> User can't forward mail.
-<b> G - Edit Defaults
-</b> User can't edit their default settings.
-<b> J - Quoting
-</b> User can't use internal message quoting.
-<b> K - Read Sent Mail
-</b> User can't read/kill sent mail.
-<b> L - Logon Once a Day
-</b> User will only be allowed to logon a maximum of once a day
- regardless of what his Level allows normally.
-<b> M - Networked Mail
-</b> Can't send NetMail.
-<b> N - Networked Subs
-</b> User can't post on networked sub-boards.
-<b> P - Post
-</b> User can't post messages on Sub-Boards.
-<b> Q - QWK Network Node
-</b> This user account is used for a QWK Network Node BBS system.
- This restriction automatically puts the user at the QWK prompt
- upon logon and no other sections of the BBS are accessible.
- This restriction also allows the user to upload REP packets
- containing messages that are from users other than the current
- user.
-<b> R - Remove/Edit Descriptions of Files
-</b> User can't remove or edit file descriptions of files he has
- uploaded.
-<b> S - E-mail Sysop
-</b> User can't send e-mail (feedback) to user #1.
-<b> T - Transfer Section
-</b> User can't access the Transfer Section at all.
-<b> U - Upload
-</b> User cannot upload files to the Transfer Section.
-<b> W - Auto-message
-</b> User cannot write to auto-message.
-<b> X - External Programs
-</b> User can't access the external program menu ('X' from Main
- Menu).
-<b> Y - Are you sure (y/N) ?
-</b> The user will be forced to answer Yes prior to performing
- any function from the Main or Transfer Sections.
-
-<b>] - Move Up One User Slot:
-</b> Increment the current user number by one. If the current user is
- the last user, the current user will become user number 1 (wrap).
-
-<b>[ - Move Down One User Slot:
-</b> Decrement the current user number by one. If the current user is
- the first user, the current user will become the last user (wrap).
-
-<b>(Number) - Change to User Number:
-</b> Entering a user number directly at the User Edit command prompt will
- make that user the current user.
-
-<b>/ - Set Search String:
-</b> Use this command to set the AR string to search for (using the { and
- } commands). See the ARS Security chapter for explanation of AR string.
-
-<b>} - Search Forward:
-</b> Searches from the current user to the last user for the string set by
- the '/' (ARS) or 'T' (text) command.
-
-<b>{ - Search Backward:
-</b> Searches from the current user to the first user for the string set by
- the '/' (ARS) or 'T' (text) command.
-
-<b>~ - Set Leech Download Counter:
-</b> Every time a user downloads a file and the BBS detects the possible
- use of a 'leech' protocol, a counter is incremented and the value is
- displayed on the Downloaded Bytes and Files line if it is not zero. To
- change the value of this counter, use the '~' command.
-
-<b>+ - Add or Subtract Credits:
-</b> This command will let you add or subtract credits to/from a user's
- account. Putting an 'M' after the number will multiply the amount by
- one megabyte (1,048,576) or a 'K' will multiply the amount by one
- kilobyte (1024). Placing a '$' will multiply with the number by the
- number of credits per dollar in the current system configuration.
- Placing a minus sign before the number will perform a subtraction of
- credits.
-
-<b>* - Add or Subtract Minutes:
-</b> This command will let you add or subtract time from the user's minute
- field. Putting an 'H' after the number will multiply the amount by 60
- minutes (an hour). Placing a minus sign before the number will perform
- a subtraction of minutes.
-
-<b>$ - Edit Credits:
-</b> This command allows you to edit the amount of credits of the current
- user.
-
-<b># - View SIF Questionnaire:
-</b> If the sysop has specified a SIF questionnaire in the SCFG and the
- current user has answered the questionnaire, this command will allow
- the sysop to view the answered questionnaire. An output SIF (usually
- an abbreviation of the input SIF) will be used if specified in the
- SCFG, if not specified the output SIF will be used for viewing.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/usercom.txt b/docs/usercom.txt
deleted file mode 100644
index 167d1afb1e73137a1c4b1ca60d9d23cc675c7e8d..0000000000000000000000000000000000000000
--- a/docs/usercom.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-USER.COM Documentation
-----------------------
-
-This utility will extract the activity and statistics of a particular user from
-the Synchronet detailed log files.
-
-usage: user <username> <logfiles>
-
-'username' is the name or number of the user whose doings should be extracted.
- It should be placed in double quotes if the name is more than one
- word, and is case sensitive.
-'logfiles' is a log filename or list of log files to search (wildcards are ok)
-
-It is useful to redirect the output of USER.COM into a text file for viewing.
-
-Examples: user "Bill Wagstaff" c:\sbbs\data\logs\07*.log > bwag.txt
- user 0155 ..\maylogs\*.log ..\junlogs\*.log >rbar.txt
diff --git a/docs/utility_reference.html b/docs/utility_reference.html
deleted file mode 100644
index 84a9c3ce1fada7535c9671bc63798d08f03cdf60..0000000000000000000000000000000000000000
--- a/docs/utility_reference.html
+++ /dev/null
@@ -1,1249 +0,0 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
-<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
-<meta name="ProgId" content="FrontPage.Editor.Document">
-<title>External Utility Reference</title>
-</head>
-
-<body>
-
-<!--webbot bot="Include" U-Include="_borders/top.htm" TAG="BODY" startspan -->
-
-<a href="http://www.synchro.net"><img border="0" src="images/synclogo_fancyred.png" alt="Synchronet BBS - Multinode Bulletin Board Software" width="626" height="86"></a>
-
-<hr>
-
-<!--webbot bot="Include" endspan i-checksum="23126" -->
-
-<p><a name="top"></a><a href="sysop.html#TOC">Back to Table of Contents</a></p>
-<h2>[15.1] - <a name="CHKSMB">CHKSMB</a> - Checks mail/message base for
-validity</h2>
-<pre><b>usage: chksmb [/opts] <filespec.SHD></b>
-
-opts:
- s - stop after errored message base
- p - pause after errored message base
- q - quiet mode (no beeps while checking)
-
-<b><i>WARNING:</i></b> All BBS nodes should be DOWNed (offline) or inactive when utilizing
- the CHKSMB utility.
-
-The purpose of the CHKSMB utility is to insure that mail and/or message bases
-are valid. If you suspect that your mail, or one of your message bases has
-become corrupted, you can run CHKSMB. This will inform you of any possible
-corruption, and display information which may be useful in determining the
-cause of the corruption.
-
-Example command line:
-
- <b>CHKSMB \SBBS\DATA\MAIL \SBBS\DATA\SUBS\*.SHD</b>
-
-to check your e-mail and sub-board data files for possible corruption.
-
-Most mail and/or message bases which are corrupted can be reconstructed
-(fixed) using the SMBUTIL program with the pack option.
-
-Message bases with corrupted index files must be fixed with the FIXSMB program.</pre>
-<h2>[15.2] - <a name="FIXSMB">FIXSMB</a> - Rebuild Synchronet Message/Mail
-Base</h2>
-<pre><b>usage: fixsmb [/opts] <smb_file>
-</b>
- opts:
- m - mail format instead of sub-board format
-
- ex: <b>FIXSMB /M C:\SBBS\DATA\MAIL
-</b> or: <b>FIXSMB C:\SBBS\DATA\SUBS\DEBATE
-</b>
-Use the FIXSMB utility whenever CHKSMB shows that a message base has become
-corrupted due to problems with the index.</pre>
-<h2>[15.3] - <a name="SMBUTIL">SMBUTIL</a> - Synchronet Message Base Utility</h2>
-<pre><b>usage: smbutil [/opts] cmd <filespec.SHD>
-</b>
-cmd:
- l[n] = list msgs starting at number n
- r[n] = read msgs starting at number n
- v[n] = view msg headers starting at number n
- k[n] = kill (delete) n msgs
- i<f> = import from text file f
- s = display msg base status
- c = change msg base status
- m = maintain msg base - delete old msgs and msgs over max
- p[k] = pack msg base (k specifies minimum packable Kbytes)
-opts:
- a = always pack msg base (disable compression analysis)
- f = fast msg creation mode
- d = disable duplicate message checking
- z[n] = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)
-
-
-The SMBUTIL can be used for several things, but most importantly, it must be
-used for maintaining your Synchronet message base (using the 'm' command). This
-command causes SMBUTIL to mark old messages, and messages over the maximum sub-
-board limit, as deleted so that their spaces can be used by new messages. If
-you are using the 'Hyper Allocation' or 'Fast Allocation' method for your
-message bases, you must also use this utility to pack your message bases (using
-the 'p' command) periodically. The pack command causes SMBUTIL to compress the
-message bases removing any unused spaces (messages marked as deleted).
-
-SMBUTIL maintenance and/or packing should be done using your daily event (or
-after importing from a network such as FidoNet). If your message base is using
-the 'Fast Allocation' or 'Hyper Allocation' storage methods, you should run
-maintenance before packing (there is no reason to pack if you do not run
-maintenance!). If your message base is set up for the 'Self Packing' method,
-you do NOT need to use SMBUTIL to pack, only to perform maintenance.
-
-Example batch file lines for SMBUTIL would read:
-
-for maintenance and packing (100k or more per sub):
-
-<b> SMBUTIL mp100 \sbbs\data\subs\*.shd
-</b>
-for maintenance only (self-packing sub-boards):
-
-<b> SMBUTIL m \sbbs\data\subs\*.shd
-</b>
-<b><i>WARNING:</i></b> All BBS nodes should be DOWNed (offline) when using SMBUTIL with the
- pack option! To do this, set the SMBUTIL event to be 'Exclusive' in
- the SCFG program.
-
-When using the pack command, SMBUTIL will check to see if it is necessary for
-you to pack your message base, if you want to skip this checking and have it
-unconditionally pack the message base (useful when attempting to repair a
-corrupted message base), you should add the '/a' switch to the command line:
-
- <b>SMBUTIL /a p \sbbs\data\subs\*.shd
-</b>
-The maintenance and pack commands are likely all that you will ever need to
-SMBUTIL for.</pre>
-<h2>[15.4] - <a name="SMBACTIV">SMBACTIV</a> - Checks Synchronet Message
-Base Activity</h2>
-<pre>SMBACTIV.EXE is used to create a list of the number of users that are currently
-reading each message area (sub-board) on your BBS. If a message area has a
-very low number of active users, then it may be a waste of disk space and
-memory on your BBS.
-
-Before SMBACTIV is run, you must have your SBBSNODE environment variable set
-to point to a valid node directory. Example:
-
-<b>SET SBBSNODE=C:\SBBS\NODE1
-</b>
-SMBACTIV can be run with no parameters to display a list of all your sub-boards
-and the number of active users. If you wish to keep this list for reference,
-it is a good idea to redirect the output to a file or printer. Example:
-
-<b>SMBACTIV > PRN
-</b>
-You can also specify a maximum number of active users to include in the list
-of sub-boards as a paramter. Example:
-
-<b>SMBACTIV 50
-</b>
-would create a list of all sub-boards that have 50 or less active users. To
-create a list of sub-boards that have no active users, you would use:
-
-<b>SMBACTIV 0</b></pre>
-<h2>[15.5] - <a name="ADDFILES">ADDFILES</a> - Adds Files to Synchronet File
-Database</h2>
-<pre><b>usage: addfiles code [.alt_path] [/opts] ["*user"] +list [desc_off] [size_off]
-</b>
- or: <b>addfiles code [.alt_path] [/opts] ["*user"] file "description"
-</b>
-available opts:
-
- a import ASCII only (no extended ASCII)
- d delete list after import
- e do not import extended descriptions
- f include file date in descriptions
- t include today's date in descriptions
- i include added files in upload statistics
- n do not update information for existing files
- o update upload date only for existing files
- u do not update upload date for existing files
- z check for and import FILE_ID.DIZ and DESC.SDI
- k keep original short description (not DIZ)
- s search for files in directory (no file list)
- * use * in place of code for Auto-ADD of FILES.BBS
- use *filename to Auto-ADD a different filename
-
-example for importing FILES.BBS format:
-<b> addfiles games +c:\lists\files.bbs
-</b>
-example for importing DIRxx format:
-<b> addfiles games +c:\lists\dir01 33
-</b>
-
-<b>SBBSNODE DOS Environment variable:</b>
-
-The environment variable SBBSNODE must be set prior to running ADDFILES. Add
-the following line to your AUTOEXEC.BAT:
-
-<b>SET SBBSNODE=C:\SBBS\NODE1</b>
-
-Where, the path to NODE1 reflects the complete path of your NODE1 directory.</pre>
-<h3>Parameter Explanations:</h3>
-<pre><b>dir_code:</b></pre>
-<pre>The dir_code parameter is the first argument and is the internal code of the
-Synchronet file directory you are adding the files to. This parameter is
-not case sensitive. The dir_code parameter is required. Use * for Auto-ADD.
-
-<b>.alt_path:
-</b>
-If the files are located on an alternate file path, you can specify the
-alternate file path number by using the ".x" paramter, where 'x' is the
-number of the alternate path.
-
-<b>/opts:<u>
-</u></b>
-If desired, you may specify a list of options. The available options are:
-
-A - Import ASCII character only (ignore any extended ASCII or control chars)
-D - If you want ADDFILES to delete the file list after importing it
-E - If you want ADDFILES to NOT import extended descriptions
-F - Automatically include the file date in the beginning of the description
-T - Automatically include the today's date in the beginning of the description
-I - Include files that are added in the system's upload statistics
-N - Do not update any information for files already in the database
-O - Only update the upload date for files already in the database
-U - Do not update upload date for files already in the database
-Z - Check for and import FILE_ID.DIZ and DESC.SDI as extended description
-K - Keep original short description (don't override with DIZ)
-S - Search for files in directory (no file list for names and descriptions)
-
-<b>*user:<u>
-</u></b>
-The *user parameter sets the name of the uploader of the files to the
-string following the asterisk. An example would be: "*Digital Man". If an
-uploader is not specified, files will be added with "-> ADDFILES <-" as the
-uploader. The quotation marks are only necessary for uploader names of more
-than one word. The quotation marks are not used as part of the actual name.
-Example:
-
-*Joe is OK
-*Joe Doe is NOT OK
-"*Joe Doe" is OK
-
-Multiple uploader names can be used if more than one file or file list is being
-added. Example:
-
-<b>ADDFILES GAMES "*Bob" +FILES.BBS "*John Doe" TICTAC.ZIP "tic-tac-toe"
-</b>
-The above command line would add the files listed in FILES.BBS using "Bob"
-as the uploader, and then add TICTAC.ZIP using "John Doe" as the uploader.
-
-<b>file "description":
-</b>
-You can specify individual filename and description pairs on the command line
-to add. The filename is NOT case sensitive and the description IS. The
-quotation marks are only necessary for descriptions of more than one word.
-Example:
-
-TICTAC.ZIP Tic-Tac-Toe is OK
-TICTAC.ZIP Tic Tac Toe is NOT OK
-TICTAC.ZIP "Tic Tac Toe" is OK
-
-<b>+list [desc_off] [size_off]:<u>
-</u></b>
-An ASCII text file list can be specified for adding to the database. The format
-of the file must be as follows (FILES.BBS lists work best):
-
-Filename and description on single line. Number of spaces between filename and
- description doesn't matter.
-Filename must contain a period (.).
- Example: TICTAC.ZIP is OK
- TICTAC ZIP is NOT OK
- TICTAC .ZIP is OK
-Lines beginning with control characters or extended ASCII characters
- are ignored (this includes blank lines).
-Up to 58 characters of description are used.
-Lines following a filename/description line that begin with space are
- used as additional information for the description, and the entire
- description is used as an extended description for the file as well.
-
-The name of the file list is specified on the command line after the plus (+)
-character. Example:
-
-<b>ADDFILES GAMES +FILES.BBS
-</b>
-If the file list is not located in the current directory, you must specify
-the complete path to the file list:
-
-<b>ADDFILES GAMES +C:\LISTS\FILES.BBS
-</b>
-If no filename/description pairs are given on the command line and no +list
-parameter is given, ADDFILES will attempt to use a file list with the dir_code
-as the filename and .LST as the extension.
-Example:
-
-<b>ADDFILES GAMES
-</b>
-Would add files to the GAMES directory using GAMES.LST as the file list. If
-GAMES.LST is can not be found, it will look for FILES.BBS in the current
-directory or in the directory's storage path.
-
-If a file list is specified on the command line, but is not found in the
-current directory, the storage path for that directory is searched. If the
-file list exists, it will be imported from there.
-
-<b>desc_off:</b>
-
-If a filelist is specified on the command line, a description offset can be
-specified as the next argument. If used, this parameter will specify at what
-column to start importing the descriptions. For PCBoard DIR file format, you
-should specify a description offset of 33. Example:
-
-<b>ADDFILES GAMES +DIR10 33
-</b>
-This offset is also used for the importing of any extended description lines.
-size_off:
-
-If a filelist is specified on the command line with a description offset,
-a file size offset can be specified too. If a file size offset is specified,
-the disk does not need to be searched for the size of the file to determine
-the credit value. This is useful for adding lists of files from a CD-ROM
-drive as it speeds up process since the CD does not need to be scanned for
-the file size. This parameter is also useful for importing off-line file
-lists, where the file doesn't actually exist on the drive. For PCBoard DIR
-file format, this offset should be set to 13. Example:
-
-<b>ADDFILES GAMES +DIR10 33 13</b></pre>
-<h2>[15.6] - <a name="FILELIST">FILELIST</a> - Generate Synchronet File
-Directory Listings</h2>
-<pre><b>Description:<u>
-</u></b>
-This utility creates an ASCII text file list of the files in a Synchronet file
-transfer database. This utility is useful for creating file lists for users to
-download, exporting into other programs, or for easy statistics reporting by
-the sysop.
-
-The default output is compatible with the FILES.BBS standard format. Options
-are available for enhancing the output for your needs.
-
-Understand that this is an EXPORT utility and is not necessary for the normal
-execution of Synchronet. This utility exports from the binary indexed file
-databases of Synchronet into ASCII text. If you are looking for a program to
-IMPORT files from ASCII into Synchronet, you need to look for the ADDFILES
-utility for Synchronet. If you are just trying to ADD files to your Synchronet
-database, then you need to read Sysop Commands - specifically the ";UPLOAD"
-sysop transfer section command.
-
-<b>Syntax:</b>
-
-<b>usage: FILELIST [dir_code] [switches] outfile
-</b>
-switches: /LIB name All directories of specified library
- /ALL All directories in all libraries
- /NOT code Exclude specific directory
- /CAT Concatenate to existing outfile
- /PAD Pad filename with spaces
- /HDR Include directory headers
- /CDT Include credit value
- /ULN Include uploader's name
- /ULD Include upload date
- /DFD Include DOS file date
- /DLD Include download date
- /DLS Include total downloads
- /NOD Exclude normal descriptions
- /NOE Exclude normal descriptions, if extended exists
- /EXT Include extended descriptions
- /JST Justify extended descriptions under normal
- /+ Include extended description indicator (+)
- /- Include offline file indicator (-)
- /* Short-hand for /PAD /HDR /CDT /+ /-</pre>
-<h3>Parameter Descriptions:</h3>
-<pre>Either the "/LIB name", "/ALL", or <dir_code> parameter must be included for
-a list to be generated. If you want to create a list of files for a single
-file directory, use that directory's internal code as the first parameter on
-the command line. If you want all directories in a certain library to be in
-the list, use the "/LIB name" switch - where "name" is the short name of the
-library you want to list. If the library short name is more than one word,
-you most puts quotes around the name (e.g. /LIB "short name"). If you want to
-include all the directories on your system in the list, use the "/ALL"
-parameter.
-
-If you want to exclude a specific directory from a library (when using the
-"/LIB" or "/ALL" parameters), use the "/NOT" switch and follow the switch
-with the internal code of the directory to NOT include in the list. If you
-wish to exclude multiple directories, you must use multiple "/NOT" switches.
-
-If you want the list to be appended to an existing file rather than overwrite
-the original file, include the "/CAT" switch on your command line.
-
-The default format for file names is non-padded (FILE.EXT). If you want the
-list to have the filename and extension in separate columns (like the file
-listings inside Synchronet), use the "/PAD" switch, so that "FILE.EXT" will
-be displayed as "FILE .EXT".
-
-If you want a small header to be placed at the beginning of each directory,
-include the "/HDR" switch. The header contains the library short name, the
-directory long name, and the total number of files in the directory.
-
-If you want the credit value of the file (normally the same as the file size)
-included in the listing, include the "/CDT" switch on the command line.
-
-If you want the name of the uploader of each file to be included in the list,
-use the "/ULN" switch on the command line.
-
-If you want the date of the upload (in MM/DD/YY format) to be included in the
-list, use the "/ULD" switch on the command line.
-
-If you want the DOS file date to be included in the file listing, use the
-"/DFD" switch on the command line.
-
-If you want the date of the most recent download (in MM/DD/YY format) to be
-included in the list, use the "/DLD" switch on the command line.
-
-If you want the total number of downloads for each file included in the list,
-use the "/DLS" switch on the command line.
-
-If you DO NOT want the normal (58 character) description included in the file
-list, include the "/NOD" switch on the command line.
-
-If you want the normal description to be excluded only if an extended
-description exists, then use the "/NOE" switch. This is useful for generating
-file lists from a directory where the original descriptions were imported
-from an ASCII file list using ADDFILES. When using this switch, you do not
-have to include the "/EXT" switch.
-
-If you want extended descriptions to be included in the file list, use the
-"/EXT" switch on the command line.
-
-If you want extended descriptions to be automatically justified under the
-normal description, include the "/JST" switch on the command line. You do not
-have to include the "/EXT" switch if you use this switch.
-
-If you want the '+' identifiers for extended descriptions to be included in the
-list, use the "/+" switch.
-
-If you want the existence of each file to be verified and non-existent
-(offline) files to be indicated by a '-', use the "/-" switch. This switch
-should NOT be used for CD-ROM directories.
-
-To generate a list most closely resembling the internal Synchronet file listing
-format, use the "/*" switch. It is the same as including the "/HDR", "/CDT",
-"/PAD", "/+", and "/-" switches.
-
-<b>SBBSNODE Environment Variable:<u>
-</u></b>
-Prior to running FILELIST you must set the SBBSNODE environment variable to
-the path of one of your NODE directories.
-
-Example:
-
-<b>SET SBBSNODE=C:\SBBS\NODE1
-</b>
-<b>Examples:<u>
-</u></b>
-<b>FILES.BBS<u>
-</u></b>
-If you want to create a simple FILES.BBS format listing of your GAMES directory
-(and the directory's internal code is "GAMES"), then use the following command
-line:
-
-<b>FILELIST GAMES FILES.BBS
-</b>
-This command line would create the file "FILES.BBS" in your current DOS
-directory with a list of the filenames and descriptions in your Synchronet
-GAMES file directory. This file could then be imported into another BBS package
-or used by another FILES.BBS compatible program for searching, sorting, moving
-or other file maintenance.
-
-<b>FILELIST.TXT<u>
-</u></b>
-If you want to create a list of all the files on your BBS that closely matches
-the format of the internal Synchronet file listings, use the following command
-line:
-
-<b>FILELIST /* /ALL FILELIST.TXT
-</b>
-This command line would create the file "FILELIST.TXT" in your current DOS
-directory with a list of the filenames, credit values, and descriptions of
-all the files in your Synchronet file transfer database. A header for each file
-directory would be included and the filenames would be padded with spaces for
-easier viewing.
-
-To generate the same list, but include any extended descriptions as well, add
-the "/EXT" switch after the "/ALL" parameter.
-
-
-<b>FILESTAT.TXT<u>
-</u></b>
-If you wanted to create a list of all the files on your BBS with detailed
-statistical information, you may want to use a command line similar to the
-following:
-
-<b>FILELIST /* /ALL /NOD /ULN /ULD /DLD /DLS FILESTAT.TXT
-</b>
-This command line would create a list of the files with the uploader's name,
-the date the file was uploaded, the date of the most recent download, and the
-total number of downloads. The "/NOD" switch would cause the descriptions to be
-excluded from the list. This list could then be used for statistic reports.
-It would be a fairly simple programming task to create a utility that read in
-this generated file and created file popularity graphs or a list of the most
-valued uploaders. The possibilities are endless.
-
-
-<b>NOTE:<u>
-</u></b>
-The functionality of creating file lists is not limited to only this utility.
-There are commands to generate file lists (of both New files and All files)
-from the Temp Directory menu in the Synchronet transfer section. Users can use
-these commands to generate lists for download immediately. Also, QWK packets
-generated in Synchronet contain a file named "NEWFILES.DAT" - an ASCII text
-file containing a list of files uploaded since the user's last logon.
-
-The main advantages of this utility over the internal file list generation
-capabilities of Synchronet are its output format flexibility and compatibility
-with the FILES.BBS standard.</pre>
-<h2>[15.7] - <a name="DUPEFIND">DUPEFIND</a> - Synchronet Duplicate File
-Finder</h2>
-<pre>DUPEFIND.EXE is used to find duplicate file names in your Synchronet file
-database. This is most useful for CD-ROM installations, where files may be
-duplicated on the CD-ROM and your hard disk. Duplicate files can be a waste
-of memory and disk space on your BBS.
-
-Before DUPEFIND is run, you must have your SBBSNODE environment variable set
-to point to a valid node directory. Example:
-
-<b>SET SBBSNODE=C:\SBBS\NODE1
-</b>
-DUPEFIND can be run with no parameters to search all of your file directories
-in Synchronet for duplicate file names. If you wish to keep this list for
-reference, it is a good idea to redirect the output to a file or printer.
-Example:
-
-<b>DUPEFIND > PRN
-</b>
-You can also specify a starting and ending library number to limit the search
-to certain libraries. Example:
-
-<b>DUPEFIND 1 3
-</b>
-would only search file libraries 1 through 3 for duplicate file names.</pre>
-<h2>[15.8] - <a name="DELFILES">DELFILES</a> - Removes Files from Synchronet
-File Database</h2>
-<pre><b> usage: DELFILES <dir_code or * for ALL> [switches]
-</b>
-switches: /LIB name All directories of specified library
- /NOT code Exclude specific directory
- /OFF Remove files that are offline (don't exist on disk)
- /NOL Remove files with no link (don't exist in database)
- /RPT Report findings only (don't delete any files)
-
-<b>Examples:<u>
-</u></b>
-If you wanted to remove ALL files that are offline (don't exist on disk) you
-would use the command line:
-
-<b> DELFILES * /OFF
-</b>
-To remove files that exist on the disk but not in the Synchronet file database
-you would use:
-
-<b> DELFILES * /NOL
-</b>
-Or to simply remove files that match the criteria specified in the SCFG program
-you would use:
-
-<b> DELFILES *
-</b>
-The /NOT parameter is used to exclude certain directories:
-
-<b> DELFILES * /NOT GAMES /NOT TEXT
-</b>
-Or you can specify a library name rather than a directory name:
-
-<b> DELFILES /LIB <library name>
-</b>
-Appending /RPT to the command line will cause DELFILES to generate a report
-of files that would have been removed, but it will not actually remove any
-files.</pre>
-<h2>[15.9] - Synchronet <a name="MLABELS">MLABELS</a> Utility</h2>
-<pre>The MLABELS utility is used to generate a list of mailing labels from a
-Synchronet user database. Two basic label forms are supported, single
-column (e.g. Avery 4145) and double column (e.g. Avery 4143). Specific
-groups of users to print labels for can be specified by level, flags,
-exemptions, or restrictions. If the BBS is real name based (no aliases), and
-the "Company Name" new user question is toggled on in SCFG, then the company
-name will appear at the top of the address and an ATTN: <User's Name> can
-optionally be added to the end of the address (with the use of the "/A"
-command line switch).
-
-Syntax:
-
-<b> MLABELS C:\SBBS\DATA\USER [-required] [/options] <output>
-</b>
-<b>User Data Path<u>
-</u></b>
-The first parameter is the path to your USER.DAT file. The example given is
-the default location of the USER.DAT file ("\SBBS\DATA\USER").
-
-<b>Requirements<u>
-</u></b>
-The second parameter, "-require" is optional. Use this parameter to specify
-a security requirement for the users to be included. Multiple "-require"
-parameters can be specified, and the syntax is as follows:
-
--L# set minimum level to # (default is 0)
--M# set maximum level to # (default is 99)
--F#<flags> set required flags for flag set # (Default is flag set #1)
--E<flags> set required exemption flags
--R<flags> set required restriction flags
-
-The syntax of the -require option is identical to the ALLUSERS utility, so
-please see the chapter on ALLUSERS for examples of how to use this parameter.
-
-<b>Options<u>
-</u></b>
-The next parameter, if specified, are one or more valid option characters
-following the slash '/' character. The available option characters are:
-
-D Double column labels
-A Add ATTN: <Alias/Real Name> to the labels
-
-<b>Output<u>
-</u></b>
-The last parameter is the name of the output file. If you want the output
-to go immediately to the printer, specify "PRN" as the output file.
-
-Example:
-
-<b> MLABELS \SBBS\DATA\USER PRN
-</b>
-If you wish to view the labels before you print them, specify a filename.
-
-Example:
-
-<b> MLABELS \SBBS\DATA\USER LABELS.TXT
-</b>
-<b>Complete Example</b>
-
-<b>MLABELS \SBBS\DATA\USER -L50 -M59 -FP /DA PRN
-</b>
-The above command line would create a double wide mailing list containing all
-users with security levels between 50 and 59 and flag 'P' from flag set #1,
-and send the output directly to the printer, adding "ATTN: <Alias/Name>"
-to the end of each label.
-
-<b>Example label:</b>
-
-John Doe
-555 Main St.
-Small Town, Ny 01234
-ATTN: Mr. Anonymous</pre>
-<h2>[15.10] - Synchronet <a name="QWKNODES">QWKNODES</a> Utility</h2>
-<pre><b>usage: qwknodes [/opts] cmds
-</b>
- cmds: r = create ROUTE.DAT
- u = create USERS.DAT
- n = create NODES.DAT
-
- opts: f = format addresses for nodes that feed from this system
- a = append existing output files
- t = include tag lines in NODES.DAT
- l = include local users in USERS.DAT
- m# = maximum message age set to # days
-
-The QWKNODES utility is used to scan through all the messages in all of your
-QWK networked sub-boards and create one or more lists:
-
-<b>ROUTE.DAT<u>
-</u></b>
-The DATA\QNET\ROUTE.DAT file is automatically created and maintained by SBBS.
-It includes the routing necessary to get netmail from your BBS to any other
-QWKnet BBS (using Synchronet's QWKnet extensions) in your QWK network. Entries
-are automatically added, modified, and removed (when out-dated). You can use
-QWKNODES to create this file (by scanning your QWK networked message bases),
-but it isn't normally necessary.
-
-If you are a QWKnet hub and wish to create a ROUTE.DAT for your QWKnet nodes
-(other BBSs that call your BBS for QWKnet messages), you must include the
-/F command line option when creating the file (and DO NOT put that ROUTE.DAT
-in your DATA\QNET directory as the routing information will be incorrect for
-your system). This is a convenience for your QWKnet nodes which allows them to
-immediately send routed QWK netmail (without waiting for SBBS to create the
-ROUTE.DAT automatically while parsing incoming echomail).
-
-<b>USERS.DAT<u>
-</u></b>
-The DATA\QNET\USERS.DAT file (if it exists) is used by SBBS to look-up user
-names on other BBSs in your QWK network when attempting to send e-mail to an
-unknown user name. The QWKNODES utility must be used to create this file (most
-likely via timed event). If the /L command line option is specified when this
-file is created, it will include the names of users that posted from YOUR BBS
-as well as all others in the network (not of any use to SBBS, but informative
-if you wish to create a list of ALL active users in your QWK network). Only
-users who are active in the message bases (on any of the BBSs) will appear in
-the USERS.DAT file.
-
-<b>NODES.DAT<u>
-</u></b>
-While this file is informative (list of all QWKnet nodes that have generated
-messages in your QWKnet sub-boards) it is not used by SBBS currently. If the
-/T command line option is specified when this file is created, it will include
-a copy of each node's tagline in the list in addition to their QWK-ID and
-routing details.
-
-<b>/A<u>
-</u></b>
-The /A option is used to append (concatenate) an existing output file. If this
-option isn't specified any existing output file (ROUTE.DAT, USERS.DAT, or
-NODES.DAT) will be truncated and overwritten.
-
-<b>/M#
-</b>
-The maximum message age option is used to specify a maximum age of messages
-(in days) to include in the list of messages scanned to obtain user/node
-/routing information from (example: /M90 to specify a maximum age of 90 days
-causing QWKNODES to ignore any messages older than 90 days). The default
-behavior is all messages (no maximum age).
-
-<b><i>Note:</i></b> Output files are created in the current directory.
- While it is possible to create all three output files from one
- execution of QWKNODES, the U command will cause duplicate entries
- in the NODES.DAT and ROUTE.DAT files. So it is best to create the
- USERS.DAT in a separate execution of the QWKNODES utility. Example:
-
- QWKNODES RN -> To create ROUTE.DAT and NODES.DAT
- QWKNODES U -> To create USERS.DAT</pre>
-<h2>[15.11] - Synchronet <a name="ALLUSERS">ALLUSERS</a> Utility</h2>
-<pre>ALLUSERS can allow a sysop to modify the security settings for a large number
-of users with one command line. If you're a Synchronet sysop, you may have
-found yourself at one time or another going through the internal User Editor
-searching for users with a certain flag or exemption and changing their level,
-removing an exemption, adding a restriction, etc. The User Editor's ARS search
-facility is very quick and flexible, but having to hand modify each user, even
-with the use of macros, can be very tedious with a large user database.
-
-This program attempts to eliminate the monotony of such a task. With a single
-command line, you can change security levels, add/remove flags, exemptions,
-or restrictions to some or all of the users in your database. The syntax is
-pretty simple:
-
-<b>Syntax<u>
-</u></b>
-<b>ALLUSERS C:\SBBS\DATA\USER -require /modify
-</b>
-
-<b>User Data Path<u>
-</u></b>
-The first parameter, "C:\SBBS\DATA\USER" is the directory where your USER.DAT
-file is located. The example given is the default location of the USER.DAT
-file. If the USER.DAT is in the current directory, the path should be simply
-"." for current directory. This parameter is not optional.
-
-<b>Requirements<u>
-</u></b>
-The second parameter, "-require" is optional. Use this parameter to specify
-a security requirement for the modifications to follow. Multiple "-require"
-parameters can be specified, and the syntax is as follows:
-
--L# set minimum level to # (default is 0)
--M# set maximum level to # (default is 99)
--F#<flags> set required flags for flag set # (Default is flag set #1)
--E<flags> set required exemption flags
--R<flags> set required restriction flags
-
-<b>Examples:</b>
-
--L20 indicates that only users with a level of 20 or higher will be modified
--M80 indicates that only users with a level of 80 or lower will be modified
--FC indicates that only users with flag 'C' from flag set #1 will be modified
--F3G indicates that only users with flag 'G' from flag set #3 will be modified
--RA indicates that only users with the 'A' restriction will be modified
-
-If multiple requirement parameters are specified, they must each begin with
-a dash '-' character and be separated by at least one space.
-
-<b>Examples:</b>
-
--L50 -M59 indicates that only users between level 50 and 59 will be modified
--RB -F2M indicates that only users with the 'B' restriction and flag 'M' in
- flag set #2 will be modified
-
-Multiple required flags may be specified as well.
-
-<b>Example:</b>
-
--F4AC indicates that only users with both the 'A' and 'C' flags from
- flag set #4 will be modified
--EPLM indicates that only users with the 'P', 'L', and 'M' exemptions
- will be modified
-
-<b>Modifications
-</b>
-Next on the command line are one or more modification parameters. Each
-modification parameter begins with the slash '/' character. The available
-modification parameters are as follows:
-
-/L# set level to #
-/F#[+|-]<flags> add or remove flags from flag set #
-/E[+|-]<flags> add or remove exemption flags
-/R[+|-]<flags> add or remove restriction flags
-
-<b>Examples:</b>
-
-/L20 indicates that all users' levels will be changed to 20
-/FA indicates that flag 'A' from flag set #1 will be added to all users
-/F3-G indicates that flag 'G' will be removed from flag set #3 for all users
-/E+L indicates that exemption 'L' will be added to all users
-/R-N indicates that restriction 'N' will be removed from all users
-
-Flag set #1 is the default, so "/F1+A" and "/F+A" are equivalent.
-Addition of flags (+) is the default, so "/F+A" and "/FA" are equivalent.
-Flags and parameters are not case sensitive, so "/FA" and "/fa" are equivalent.
-
-Multiple modification parameters can be used.
-
-<b>Example:</b>
-
-/L40 /F2-Z indicates that all users will be set to level 40 and have flag
- 'Z' from flag set #2 removed
-
-Multiple flags per modification may be specified.
-
-<b>Example:</b>
-
-/RAB indicates that both 'A' and 'B' restrictions will be added to
- all users.
-
-<b>Complete Examples</b>
-
-To change all level 20 users to level 30, use the following command line:
-
-<b>ALLUSERS C:\SBBS\DATA\USER -L20 -M20 /L30
-</b>
-To give all QWKnet node users the 'M' exemption, use the following command:
-
-<b>ALLUSERS C:\SBBS\DATA\USER -RQ /EM
-</b>
-To give all users below level 90, the 'B' restriction, use the following:
-
-<b>ALLUSERS C:\SBBS\DATA\USER -M89 /RB
-</b>
-To give all users with level 50 or higher, the 'M' and 'L' exemptions:
-
-<b>ALLUSERS C:\SBBS\DATA\USER -L50 /EML
-</b>
-To remove flag 'C' from flag sets #1 and #2 from all users:
-
-<b>ALLUSERS C:\SBBS\DATA\USER /F1-C /F2-C</b></pre>
-<h2>[15.12] - Synchronet <a name="AUTONODE">AUTONODE</a> Utility</h2>
-<pre>The AUTONODE utility is used for automatically finding an available local
-node for logon and running that node. You set the first local node number
-in SCFG->System->Advanced Options->First Local Auto-Node.
-
-In order for the AUTONODE utility to run, you must first set the SBBSCTRL
-and SBBSNODE environment variables. Add the lines:
-
-<b>SET SBBSCTRL=C:\SBBS\CTRL
-SET SBBSNODE=C:\SBBS\NODE1
-</b>
-to your AUTOEXEC.BAT file. If your CTRL or NODE1 directories are in a different
-locations, then specify the correct paths accordingly.
-
-This utility is useful for systems that have more than one local node. This
-eliminates the need for those users to change into an unused node directory
-and run SBBS. It will automatically find the first unused local node and
-take them to the logon prompt. When they logoff, they will return to the
-DOS prompt.
-
-If for some reason, you do not wish the user to automatically go to a logon
-prompt or to exit back to DOS after logoff, you can specify which command
-line to use when running SBBS. The default is "SBBS L Q", which tells
-Synchronet to take the user straight to the logon prompt and then quit back
-to DOS.</pre>
-<h2>[15.13] - Synchronet <a name="NODE">Node</a> Display/Control Utility</h2>
-<pre>The NODE utility can be used to display or control the status of nodes from
-the DOS prompt or via batch files.
-
-<b>usage: node [/debug] [action [on|off]] [node numbers] [...]
-</b>
-actions (default is list):
-
-list = list status
-anon = anonymous user
-lock = locked
-intr = interrupt
-down = shut-down
-rerun = rerun
-event = run event
-nopage = page disable
-noalerts = activity alerts disable
-status=# = set status value (definition of status values at end of section)
-useron=# = set useron number
-action=# = set action value (definition of action values at end of section)
-errors=# = set error counter
-conn=# = set connection value
-misc=# = set misc value
-aux=# = set aux value
-extaux=# = set extended aux value
-
-Before the NODE utility can be run, the SBBSCTRL environment variable must
-be set to point to your CTRL directory. Example:
-
-<b>SET SBBSCTRL=C:\SBBS\CTRL</b>
-
-Place this line in your AUTOEXEC.BAT file to automatically set this variable
-at boot-up. It is necessary for the NODE utility to find the shared node
-control files. If your CTRL directory is in a different location, use the
-correct path for the SET command.
-
-If you want to be able to run the NODE utility from any directory, you must
-have the NODE.COM program in one of your DOS search directories. Either copy
-this file into a directory already in your DOS search path, or add your
-Synchronet EXEC directory to your search path in your AUTOEXEC.BAT. Example:
-
-<b>SET PATH=C:\DOS;C:\UTIL;C:\SBBS\EXEC
-</b>
-(DOS and UTIL directory are included for example only).
-
-<b>Running NODE</b>
-
-To run the NODE utility, you must type the word "NODE", an action (ex: "LOCK"),
-then a list of nodes to take the action on (ex: "1 2 4 5"). If no node numbers
-are specified, it is assumed you wanted to perform the action on ALL nodes.
-
-Some actions can have an option "ON" or "OFF" state specified. Typing "NODE
-LOCK 1" would toggle the "locked" state of node 1. If it were previously off,
-it would be set to on. To be sure you are setting the state to either on or
-off rather than toggling, you may specify on or off (e.g. "NODE LOCK ON 1"
-would set the locked state of node 1 to on).
-
-Some actions are setting a value for the node status. These actions are listed
-with "=#" after the action word. This indicates that you must specify a numeric
-value for that status option (e.g. "NODE USERON=1 5" would set the current
-user number on node 5 to 1).
-
-The optional "/debug" switch can be used to view the current numeric values
-associated with the node status.
-
-<b>Example Usage</b>
-
-Example #1: To list the status of all your nodes, type
-
-<b>NODE LIST</b>
-
-Example #2: To lock node 1, type
-
-<b>NODE LOCK ON 1</b>
-
-Example #3: To unlock nodes 1 and 2, type
-
-<b>NODE LOCK OFF 1 2</b>
-
-Example #4: To set the status of node 3 to "Offline", type
-
-<b>NODE STATUS=5 3
-</b>
-Example #5: To interrupt and lock node 4, type
-
-<b>NODE INTR ON 4 LOCK ON 4</b>
-
-Example #6: To clear the error counter of all nodes, type
-
-<b>NODE ERRORS=0</b>
-
-Example #7: To toggle the "rerun" status of all nodes, type
-
-<b>NODE RERUN</b>
-
-Example #8: To down node 2, type
-
-<b>NODE DOWN ON 2</b>
-
-<b>Definition of Numeric Values</b>
-
-Possible Node Status Values:
-
-0 Waiting for call
-1 At logon prompt
-2 New user applying for access
-3 User online
-4 User online in quiet mode
-5 Offline
-6 Networking
-7 Waiting for all nodes to become inactive before running timed event
-8 Running timed event
-9 Waiting for timed event node to finish running event
-
-<b>Possible Node Action Values:</b>
-
-0 Main Prompt
-1 Reading Messages
-2 Reading Mail
-3 Sending Mail
-4 Reading G-Files
-5 Reading Sent Mail
-6 Posting Message
-7 Auto-message
-8 Running External Program (aux=program number)
-9 Main Defaults Section
-10 Transfer Prompt
-11 Downloading File (aux=estimated time of transfer completion)
-12 Uploading File
-13 Bi-directional Transfer (aux=estimated time of transfer completion)
-14 Listing Files
-15 Logging on
-16 In Local Chat with Sysop
-17 In Multi-Chat with Other Nodes
-18 In Local Chat with Guru
-19 In Chat Section
-20 Sysop Activity
-21 Transferring QWK packet
-22 In Private Chat (aux=node chatting with)
-23 Paging another node for Private Chat (aux=node being paged)
-24 Retrieving file from a sequential device (aux=device num)
-
-<b>Bits Used in Node Misc:</b>
-
-0 Anonymous User
-1 Locked for sysops only
-2 Interrupted - hang up
-3 Message is waiting for user
-4 Paging disabled
-5 Activity Alert disabled
-6 User data has been updated by another node
-7 Re-run this node when logoff
-8 Must run node event after logoff
-9 Down this node after logoff
-10 Reset private chat
-11 Message is waiting for node</pre>
-<h2>[15.14] - <a name="UTI">UTI</a> Driver</h2>
-<pre>This UTI driver complies with UTI Driver Specification Rev 2.1 by Kip Compton.
-This driver is for use with PostLink v1.05+ and possibly MegaMail.
-
-Copy the UTI driver files:
-
- UTIVER.EXE Returns UTI version number (2)
- UTILIST.EXE Generates list of conferences (sub-boards)
- UTIHIGH.EXE Returns highest message number in a conference
- UTILSTRD.EXE Generates list of message pointers for a user
- UTIIMPRT.EXE Imports messages into a conference
- UTIEXPRT.EXE Exports messages from a conference
-
-into your PostLink directory, or another directory that is in your DOS search
-path.
-
-The UTIDOOR.EXE program is not part of this driver set, since Synchronet can
-generate a UTIDOOR.TXT file internally.
-
-You may need to know that the conference identifiers, as well as the name of
-each conference, is the same as the Synchronet internal code for each
-conference. This allows you to modify your message base configuration in
-Synchronet without having to immediately "Update" the network or mail software
-conference list to avoid a catastrophe. However, you should still "Update" the
-network or mail software to avoid configuration confusion - especially when
-deleting sub-boards.
-
-<b>ERROR LEVELS</b>
-
-If one of the UTI driver programs exits with an error level, you can define
-the error with the following table. If the UTI driver program exits with an
-unlisted error level, please contact Digital Dynamics.
-
-<b><u>Level Description</u></b>
-1 Syntax error on command line
-2 Cannot open/create UTI text file
-3 Memory allocation error
-4 Too many messages in a conference to import
-5 Cannot open Synchronet message data file
-6 Cannot open Synchronet message index file
-7 Unrecognized Synchronet sub-board code
-8 Cannot open Synchronet user name data file
-9 Cannot find user name in Synchronet user database
-10 Cannot open Synchronet message pointer index
-
-
-If you get an error 2, 5, 6, 8, or 10, you may want to double check the number
-of files handles you are reserving in your CONFIG.SYS file (FILES=# statement)
-and try increasing it.
-
-If you get an error 3, then you need to make more DOS memory available to the
-UTI driver and the parent program (i.e. PostLink).</pre>
-<h2>[15.15] - <a name="SLOG">System/Node Statistics Log</a> Viewing Utility</h2>
-<pre><b>Usage: slog [path]
-</b>
-where path is the directory where CSTS.DAB is located. If your SBBSCTRL
-environment variable is set and no path is specified, it will use the system's
-statistics file located in the CTRL directory. To set your SBBSCTRL environment
-variable, add the following line to your AUTOEXEC.BAT:
-
-<b>SET SBBSCTRL=C:\SBBS\CTRL</b>
-
-Make sure the path is the correct path for the Synchronet CTRL directory in
-your configuration.
-
-If you want to list the statistics of a specific node on your system (same as
-using the ;NLOG command from the main menu, or the 'N' WFC command), specify
-the path for that node on the command line. Example:
-
-<b>SLOG C:\SBBS\NODE1</b>
-
-If a path is not specified and the SBBSCTRL environment variable is not set,
-the current directory will be searched for CSTS.DAB.
-
-The output of SLOG can be redirected to a file or printer for easy viewing.
-Example:
-
-<b>SLOG > PRN</b>
-
-or
-
-<b>SLOG > SLOG.TXT</b></pre>
-<h2>[15.16] - <a name="DSTSEDIT">Daily Statistics Editor Documentation</a></h2>
-<pre><b>Description:</b>
-
-DSTSEDIT (Daily Statistics Editor) is used to edit the statistic values of your
-BBS that are stored in the DSTS.DAB file in your CTRL directory. There is also
-a separate DSTS.DAB file in each node directory which stores the statistic
-values for that individual node. This utility can be used to edit either of the
-two statistic types: System or Node.
-
-<b>Usage:</b>
-
-To edit your system's statistics, you can either run DSTSEDIT with your CTRL
-directory as the current directory, or run DSTSEDIT with the path of the
-CTRL directory as an argument.
-
- Example: <b>DSTSEDIT C:\SBBS\CTRL</b>
-
-To edit an individual node's statistics, you can either run DSTSEDIT with the
-node's directory as the current directory, or run DSTSEDIT with the node's
-directory as an argument.
-
- Example: <b>DSTSEDIT <a href="file:///C:/SBBS/NODE1">C:\SBBS\NODE1</a></b></pre>
-<h2>[15.17] - <a name="TOTALS">TOTALS</a>: External Programs Credit Gain/Loss
-Log Totaling Utility</h2>
-<pre>The TOTALS.COM utility is used to generate a total gain/loss of multiple log
-files created by SBBS external programs that adjust user credits and log the
-adjustments in text files. Each file containing one line that contains the
-gain/loss value in credits. It is a positive value if it had net winnings
-(took more credits than it gave), and negative value if it had a net loss
-(gave away more credits than it took). The Synchronet external programs that
-currently generate such logs (by running the program with the /L option) are
-Synchronet Blackjack, Dice War, and Domain Poker.
-
-<b>usage:</b> <b>totals <log files [...]>
-</b>
- examples:
-
- <b> totals *.log
- totals 06*.log 07*.log 080192.log</b></pre>
-<h2>[15.17] - <a name="ANS2MSG">ANS2MSG</a></h2>
-<pre>ANSI to Synchronet Ctrl-A message format conversion utility
-
-This utility will convert basic non-animated ANSI files into Synchronet Ctrl-A
-code files that can be displayed to color or monochrome ansi users with
-attractive results as well as non-ansi users. This allows you to use an ANSI
-drawing program (such as TheDraw) to create your menus in ANSI and convert the
-ANSI file to Ctrl-A message format for your .ASC or .MSG version. Or you can
-use the converted file for all users by keeping the ANSI (.ANS) version in
-a directory other than TEXT\MENU.
-
-If, for example, you create a main menu with an ANSI drawing program that you
-want your ASCII and monochrome ANSI users to see with attractive output, use
-ANS2MSG to create the .MON and .ASC versions.
-
-Type: <b>ANS2MSG MAIN.ANS MAIN.MON</b>
-in your TEXT\MENU directory to create the monochrome version.
-
-Type: <b>ANS2MSG MAIN.ANS MAIN.ASC</b>
-in your TEXT\MENU directory to create the ASCII version.
-
-If you rename MAIN.ANS or move into a directory other than TEXT\MENU, then
-you will not need the .MON version as the .ASC version will be used for all
-terminal types.
-
-This utility is also useful for creating colorful system, newuser, feedback
-and other Synchronet .MSG files for display. For example, create
-TEXT\SYSTEM.ANS with your favorite ANSI editor and then convert to .MSG by
-typing: <b>ANS2MSG SYSTEM.ANS SYSTEM.MSG</b>
-
-Be aware that ANSI animation codes are NOT supported since there aren't Ctrl-A
-equivalents. The following ANSI codes (preceded by <ESC>[) are supported:
-
-<b>ANSI Code Ctrl-A Code Explanation (* indicates not supported by IBM)</b>
-2J L Clear Screen
-#C 7Fh-FFh Move cursor right # columns
-0m N Normal attribute
-1m H High intensity
-2m N Low intensity *
-3m I Italic *
-4m I Underline *
-5m I Blink
-6m I Rapid Blink *
-7m H Reverse Video *
-8m E Concealed text *
-30m K Foreground black
-31m R Foreground red
-32m G Foreground green
-33m Y Foreground yellow
-34m B Foreground blue
-35m M Foreground magenta
-36m C Foreground cyan
-37m W Foreground white
-40m 0 Foreground black
-41m 1 Foreground red
-42m 2 Foreground green
-43m 3 Foreground yellow
-44m 4 Foreground blue
-45m 5 Foreground magenta
-46m 6 Foreground cyan
-47m 7 Foreground white</pre>
-<h2>[15.18] - <a name="MSG2ANS">MSG2ANS</a></h2>
-<pre>Converts Synchronet Ctrl-A file to ANSI escape sequences.
-
-This utility allows you to convert files that use Ctrl-A codes into ANSI files.
-(the opposite of the ANS2MSG utility).
-
-The syntax is: <b>MSG2ANS infile.ext outfile.ext</b>
-
-The extension for the input file will most likely be .ASC or .MSG and the
-output file should be .ANS.
-
-This utility is also useful for viewing files with Synchronet Ctrl-A codes from
-the DOS prompt.
-
-Example: <b>MSG2ANS MAIN.ASC CON</b>
-
-This will read from the Ctrl-A file MAIN.ASC and write to your screen using
-ANSI escape sequences.</pre>
-<p><a href="#top"><b>Back to Top</b></a></p>
-<!--webbot bot="Include" U-Include="_borders/bottom.htm" TAG="BODY" startspan -->
-
-<hr>
-<p><b><a href="http://www.synchro.net/copyright.html">Copyright</a> � 2000 by </b> <a href="http://www.synchro.net/author.htm"><b>Rob Swindell</b><br>
-</a>
-
-<a href="http://www.synchro.net"><font size="2"><br>
-Synchronet BBS Software</font></a> <font size="2"> (Synchronet)
-Version 3 is comprised of several documentation,<br>
-library, executable, and <a href="http://www.synchro.net/source.html">source code</a>
-files, all of which are covered by the<a href="http://www.fsf.org/copyleft/gpl.html">
-<br>
-GNU General Public License</a> with the exception of the following portions
-covered by<br>
-the <a href="http://www.fsf.org/copyleft/lesser.html">GNU Lesser General Public License</a>:
-SMBLIB and XSDK.<br>
-<br>
-Synchronet Version 2 (for DOS and OS/2) and its source code was released to the<a href="http://www.fsf.org/philosophy/categories.html#PublicDomainSoftware">
-<br>
-Public Domain</a> by <a href="ftp://vert.synchro.net/main/sbbs/manifest.txt">Digital Dynamics</a>
-in 1997 and remains Public Domain software today.<br>
-Synchronet Version 3 is not Public Domain software.</font></p>
-<p align="left"><font size="2"><a href="http://www.synchro.net/author.html">Rob Swindell<br>
-</a>PO Box 501<br>Yorba Linda, CA 92885<a href="http://www.synchro.net"><br>
-http://www.synchro.net</a>
-
-</font></p>
-<p align="left"><font size="2">For the complete Copyright Information please
-read the <a href="http://www.synchro.net/copyright.html">Copyright Documentation</a>
-.</font></p>
-
-<!--webbot bot="Include" endspan i-checksum="55766" -->
-
-</body>
-
-</html>
diff --git a/docs/v200_new.txt b/docs/v200_new.txt
deleted file mode 100644
index 5b1256b5be459a0164ccaaabc7e74e0701ca19b7..0000000000000000000000000000000000000000
--- a/docs/v200_new.txt
+++ /dev/null
@@ -1,174 +0,0 @@
- What's new in Synchronet BBS Version 2.00 Revision A
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-Programmable Command and Menu Structure
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o Multiple command 'shells' can be available for you and your users with
- configurable security access to each
-o Includes Baja {tm} shell/module compiler free ($50 value)
-o Shells can dynamically load and execute third party Baja modules or
- external DOS applications/doors automatically or by command
-o Stock command shells include emulations of other BBS packages and a
- simplified beginner/first-time user shell
-o Shells are easily modified and recompiled for your user interface preferences
-
-
-Communications
-~~~~~~~~~~~~~~
-o FOSSIL, PC BIOS Int 14h, and PS/2 BIOS Int 14h communications driver support
- allows the use of virtually any multiport serial card (Intelligent
- or Non-Intelligent), shared IRQ cards, and non-UART serial devices
-o DTE rates to 115.2K
-o Support for manual hang up (for devices/interfaces lacking DTR support)
-o 12 new high-speed (19.2K-28.8K) modems added to auto-configuration list
-o Supra/Practical Peripherals Caller ID formats supported
-o Configurable number of rings to answer after
-o Invalid/Unrecognized result codes are now logged as critical errors
-o Intelligent answer function detects and recovers from ring-interrupted answer
- sequences
-o Specific modem result codes can be ignored or defined as "FAX"
-
-
-General
-~~~~~~~
-o New configuration file format (.CNF) for faster BBS initialization, lower
- storage space requirments, and future expandability
-o Significant reduction in memory requirements for SCFG allowing for larger
- quantities of sub-boards, directories, etc.
-o "Sticky" menus in SCFG for sysop convenience when editing long lists
-o Local "beep" replacement to eliminate performance over-head and decrease
- the sysop annoyance factor
-o Optional critical error siren
-o Sysop Manual overhaul/additions (from 188 pages to 273 pages) including
- many more examples, screen captures, explanatory text, and an index
-o Automatic "maximum" adjustment eliminates need for manual adjustment for
- maximum values in SCFG
-o Maximum configurable options per SCFG menu increased from 254 to 500
- (raising the ceiling)
-o Addition of WWIV Color Codes 8 and 9
-o Node activity text can be overridden to include any text and optional
- user variables (including age, gender, location, etc.)
-o Hot Keys are now optional
-o New user default setting screen can be toggled off by sysop
-o Callers log now contains time logged on
-o User listings now contain date last on
-o Username "look-up" available
-
-
-Security
-~~~~~~~~
-o Current message group, sub-board, file library, and file directory ARS
- parameters
-o RIP and ANSI ARS parameters to limit access based on terminal support
-o Disallows invalid birth dates, incomplete phone numbers, single word
- real names, locations without a state, etc.
-o Users can be set to expired account values when out-of-time
-o Quick Validation Hot-Keys can be disabled (default)
-o Configurable maximum posts per day and E-mails per day based on user level
-
-
-External Programs
-~~~~~~~~~~~~~~~~~
-o Ability to swap out of memory almost entirely for any executable from
- anywhere in the BBS to XMS, EMS, Extended Memory or Disk
- (no more "Shrinking" or use of SHROOM)
-o Up to 500 configurable timed external events with optional exclusive
- execution and shortening of users' time online
-o Online External Program (door) sections for organizational purposes
- and easier manuverability (Group/Sub principle)
-o RIP and ANSI ARS parameters to limit access based on terminal support
-o MODUSER.DAT supports simultaneous addition and removal of flags
-
-
-File Transfers
-~~~~~~~~~~~~~~
-o New storage format lowers storage space requirements, and speeds up searches
-o First line of FILE_ID.DIZ or DESC.SDI imported into short description
-o Viewable, Testable, and Extractable File Types can have ARS parameters
- specified for limiting to specific users or file areas
-o Download Events for modifying files (e.g. adding comments) just before
- download (with attached ARS)
-o Up to 500 Compressable File Types can be defined for QWK packet creation
- and temp archives (with attached ARS, of course)
-o ARS attachment to Transfer Protocols
-o Up to 500 Alternate File Paths
-o Directory operators definable per directory via ARS
-o Exempted users can be defined for each directory via ARS
-o Credit percentages configurable on a per-directory basis
-o Each directory's data can be stored on any drive, in any DOS directory
-o Upload semaphore files supported on a per-directory basis
-o Sysop can allow blind (unsolicited) batch/bi-dir uploads
-o Uploads can be forced rated using any alphabetic rating scheme
-o Individual directories can be eliminated from duplicate upload name search
-
-
-Message Base
-~~~~~~~~~~~~
-o New storage format lower storage space requirements, increases maximum
- storage capacity, lowers memory requirements, and speeds up
- import/export (Download SMB_1*.ZIP for details)
-o Support for moderated sub-boards (via ARS)
-o Sub-board operators definable per sub-board via ARS
-o ARS to restrict users from reading a sub-board while still seeing it
-o Message data can be stored on any drive, in any directory, on a per-sub basis
-o Messages (including E-mail) are purgable by age (via SMBUTIL)
-o Optional and configurable duplicate message checking
-o Operator/Sub-op messages can be automatically permanent
-o Operator/Sub-op can move messages between areas
-o Read messages can be automatically purged
-o Self-packing and Fast Allocation storage methods available for each sub
-o Network Gateway Security
-o Separate EchoMail semaphore file per sub-board
-o Message pointers can be set by date or number of messages from end
-o Bulk E-mail capabilities (via ARS or user names)
-o Start message number specified for message text searches
-o Received mail can be forwarded to multiple users
-o Message listings include "To" user as well as "from" and "subject"
-
-
-QWK
-~~~
-o Incredible speed increase (via SMB)
-o Multiple archive formats supported (user selectable)
-o Automatic inclusion/exclusion of file attachments
-o Optional inclusion of Un-read, All, or No E-mail
-o Optional automatic deletion of E-mail (user configured)
-o Optional exclusion of messages from user
-o Scan configuration and pointer adjustment from QWK menu
-o Inclusion of new files list is optional (user configured)
-o NetMail can be sent by sending to "user@addr"
-o New conference numbering scheme to allow for more subs per group
-o New QWK control messages: YOURS, RESET, RESETALL, FILES, ATTACH, MAIL, OWN
- , DELMAIL, and CTRL-A
-
-
-Networking
-~~~~~~~~~~
-o Up to 500 FidoNet AKAs supported
-o Optional use of "Default Outbound Address" for Fido/UUCP gateway convenience
-o Separate NetMail and EchoMail semaphore files
-o EchoMail Gateway security to eliminate unintentional gating
-o Pending QWKnet REP packets appended with new messages before call-out
-o Internal support for outbound Internet mail storage with file attachments
- (SMB compliant UUCP gateway required)
-o Public message base specification (SMB) insures 3rd party developer interest
- and support for EchoMail programs, gateways, editors, offline readers,
- etc.
-
-
-Chat
-~~~~
-o Multiple Artificial Gurus - can be separately attached to different chat
- channels
-o Multiple MultiNode Chat Action sets, separately attached to different chat
- channels
-o Real-time InterNode Telegrams with store-and-forward if user is offline
-o Real-time key-by-key chat available from anywhere via Ctrl-P
-o Whisper command in MultiNode Chat
-o InterNode messages can be sent by node number, user number, user name, or
- user chat handle (with search for partial names)
-o Chat options (echo, action commands, pagability, action alerts) are now saved
- between logons
-
-/* End of V200A.NEW */
-
diff --git a/docs/v210_new.txt b/docs/v210_new.txt
deleted file mode 100644
index bd09e9202df46f9c742afbdb59e8ef3b52534fc1..0000000000000000000000000000000000000000
--- a/docs/v210_new.txt
+++ /dev/null
@@ -1,173 +0,0 @@
- What's new in Synchronet BBS Version 2.10 Revision A
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Estimated Date of Release: 02/17/95
-
-General
-~~~~~~~
-o New file sharing method for user database (USER.DAT) significantly improves
- performance on active multinode systems
-
-o Systems with large quantities of message and files areas will see
- significantly more free memory inside the BBS with this version
-
-
-Message Base
-~~~~~~~~~~~~
-o SMB level III implementation offers optional real-time message base
- compression/decompression using LZH algorithm for up to 50% savings on
- disk space (potentially hundreds of megabytes on some systems)!
-
-o New Hyper Allocation storage method (defined in v1.20 of the SMB
- specification), twice as fast as "Fast Allocation"!
-
-o Innovative QWK NetMail technology using dynamically maintained route map
- Send NetMail to User@BBSID from ANY DOVE-Net system (using v2.10)
- (i.e. "Digital Man@VERT" to send me routed NetMail) No nodelist hassle!
-
-o Automatic detection of circular paths for QWK EchoMail messages (duplicates)
-
-o Optional QWKnet user list (DATA\QNET\USERS.DAT) for automatic address look-up
-
-o Ability to force QWKnet call-outs from within the BBS (;CALL HUBID) and
- from any node WFC screen
-
-o Internet mail replies from Reading Messages prompt for UUCP gateways
- (i.e. NetXpress)
-
-o New memory compression allows for significantly greater number of configured
- message areas in Synchronet
-
-o UTI driver supports long names (>25 chars) for internet addresses
-
-o When quoting messages, tag/origin lines are automatically not quoted
-
-o Out-bound file attachments supported for both FidoNet and Internet NetMail
-
-o 'Direct' FidoNet NetMail status now supported in SCFG
-
-o 'To' field for FidoNet EchoMail now supports up to 35 characters
-
-o 'To' field for PostLink messages now supports up to 60 characters
-
-o 'Subject' field for PostLink messages now supports up to 70 characters
-
-o Crash, Return Receipt, and File Request over-rides now supported in off-line
- FidoNet NetMail
-
-o Attempted e-mail to user@addr will automatically be interpreted as NetMail
-
-
-Security
-~~~~~~~~
-o Logon via user number can be disabled
-
-o Optionally allow logons via real name or alias
-
-o Optionally prompt for password for all logon attempts
-
-o Keyboard buffer flushed after execution of external programs
-
-o Extended ASCII char 255 stripped from strings (would appear as space)
-
-
-Chat
-~~~~
-o Automatic split-screen private chat for ANSI users with 24 or more rows
-
-o Internode messages received and displayed before logoff when user runs
- out of time
-
-
-External Programs
-~~~~~~~~~~~~~~~~~
-o External editors can have drop files created automatically
-
-o Baja modules can be executed as doors in place of DOS executables
-
-o External online programs can give the user extra time while in use
-
-o External online programs can be configured to suspend BBS time while in use
-
-o DOOR.SYS is created with user credits (in Kbytes) on line 31 (Download limit)
-
-o If a DOOR.SYS external program is set to modify user data, lines 29 and 30
- are read back in to update files/bytes downloaded and subtract credits
-
-o External programs can have Synchronet immediately hang-up upon return
-
-o DORINFO1.DEF (always 1 instead of node #) added to available drop file list
-
-o New software development kit (XSDK v2.30) has improved incorporation of
- intelligent variable time-slicing (IVT) under multitaskers and other
- enhancements for Synchronet application developers
-
-
-File Transfers
-~~~~~~~~~~~~~~
-o Extended descriptions optionally displayed in normal file listings (&E)
-
-o Batch flagging prompt redisplays page after operations
-
-o Batch flagging prompt allows (P)revious page command to move backwards
-
-o Batch flagging prompt has help bar at top of screen for list command
-
-o Batch flagging prompt has help menu (?) for available commands
-
-o Batch flagging prompt can display library and directory name
-
-o TYPE.BIN included to be used as a viewable file type command for text files
-
-o New-file scan date/time defaults to last new-scan, not from last logon
-
-o Duplicate files (already in database) are rejected on blind uploads
-
-o New memory compression allows for significantly greater number of configured
- file areas in Synchronet
-
-o New toggle option to allow the inclusion or exclusion of each directory in
- the Auto-ADDFILES search and import of FILES.BBS (for FDNs or CDROMs)
-
-o New toggle option to allow the inclusion or exclusion of each directory in
- users' new file scans (for CDROMs)
-
-
-Programmability
-~~~~~~~~~~~~~~~
-o Baja modules can be automatically loaded during logon, logoff, or new users
-
-o Baja modules can be used in place of any executable command line in SCFG
-
-o New Baja function PRINTFILE_STR used to create TYPE.BIN module
-
-o New Baja function REPLACE_TEXT used to replace TEXT.DAT strings in shells
-
-o New Baja functions SET_USER_LEVEL, TOGGLE_USER_FLAG, and SET_USER_STRING
- used to change or adjust user flags, exemptions, restrictions, level,
- name, address, etc.
-
-o New Baja functions FILE_ADD_BATCH and FILE_CLEAR_BATCH allow batch download
- queue manipulation
-
-o New Baja functions GETLINE, GETNUM, and GET_TEMPLATE for extended control
- over user input
-
-
-Miscellaneous
-~~~~~~~~~~~~~
-o Support for auto-detecting FAX/Modems that return "+FCON" on FAX connections.
-
-o Supra Caller-ID NAME and NMBR strings can be in either order.
-
-
-Revisions Since v2.00a
-~~~~~~~~~~~~~~~~~~~~~~
-o Direct QWK logons with normal user accounts by prepending '*' to the username
-
-o SCFG uses a modem configuration database that is user extensible
-
-o Toggle option for each sub-board to default ON or OFF in users' personal
- (as opposed to new) message scans
-
-
-/* End of V210A.NEW */
diff --git a/docs/v211_new.txt b/docs/v211_new.txt
deleted file mode 100644
index f770410a7e3d7e266f056ab7fc7cee7a46b43e82..0000000000000000000000000000000000000000
--- a/docs/v211_new.txt
+++ /dev/null
@@ -1,130 +0,0 @@
- What's new in Synchronet BBS Version 2.11 Revision A
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-General
-~~~~~~~
-o Overlay buffer manipulation released 32k of more free memory in SCFG and
- 40k of more free memory in SBBS
-o Forcing the internal daily event ("SBBS F") when using a front-end mailer
- is no longer necessary
-o Pending QWKnet and PostLink call-outs are performed immediately after user
- logoff, even when launched from a front-end mailer
-o WFC statistics retrieval many times faster when "Total Msgs/Files on WFC"
- toggled off in SCFG node toggles
-o User inactivity warning and auto-logoff can be disabled for local logons
- in SCFG node toggles
-o Local system security can require the input of the system password for WFC
- and Alt-key commmands
-o Configuration program (SCFG) support multiple levels of automated backup of
- config files
-o Local keyboard can be completely disabled for the ultimate in local security
-
-
-New Baja Functions
-~~~~~~~~~~~~~~~~~~
-COMPARE_NODE_MISC Check miscellaneous node attributes
-COMPARE_USER_CHAT Check user chat settings
-COMPARE_USER_QWK Check user QWK settings
-TOGGLE_USER_CHAT Change user chat settings
-TOGGLE_USER_QWK Change user QWK settings
-SELECT_SHELL Allow user to select command shell from list
-SET_SHELL Set the user's command shell to specific shell
-SELECT_EDITOR Allow user to select external editor from list
-SET_EDITOR Set the user's extrnal editor to a specific editor
-MSG_NEW_SCAN_SUB Force the new scan of the current sub-board
-MSG_SET_GROUP Set the current message group by short name
-FILE_SET_LIBRARY Set the current file library by short name
-
-
-Enhanced Baja Functions
-~~~~~~~~~~~~~~~~~~~~~~~
-SET_USER_STRING Checks for duplicates, proper syntax, and trash can
-REPLACE_TEXT Can use command line specifiers in string argument
-LOG " "
-PRINT " "
-PRINT_LOCAL " "
-PRINT_REMOTE " "
-PRINTFILE " "
-PRINTFILE_REMOTE " "
-PRINTFILE_LOCAL " "
-CHKFILE " "
-EXEC_BIN " "
-YES_NO " "
-NO_YES " "
-MENU " "
-SETSTR " "
-SET_MENU_DIR " "
-SET_MENU_FILE " "
-COMPARE_STR " "
-
-
-New ARS Parameters
-~~~~~~~~~~~~~~~~~~
-RANDOM Random number generation for random access/Baja control
-LASTON Number of days since last logon
-LOGONS Total number of logons
-
-
-New Command Line Specifiers
-~~~~~~~~~~~~~~~~~~~~~~~~~~~
-%o Sysop name
-%q System QWK ID
-%x Internal code of user's command shell
-%* Node number 0 padded to 3 digits
-%1 User number
-%2 User number 0 padded to 2 digits
-%3 User number 0 padded to 3 digits
-%4 etc..
-
-
-Message Base
-~~~~~~~~~~~~
-o Optional Daily QWK Pre-packing (for any user accounts)
-o The automatic forwarding of e-mail to NetMail can be specifically allowed
- or disallowed in SCFG
-o New toggle option in SCFG to automatically kill e-mail after it has been read
-o QuickBBS/RemoteAccess MSGTMP style external editors now internally supported
-o Unix style (sole LF for newline) external editors now internally supported
-o When posting on a sub-board, any user added tear lines are changed to "-+-"
-o Searches for Personal Messages will now include both Real Name and Alias
- matches, regardless of how the sub-board is configured in SCFG
-o Searches for Personal Messages now significantly faster
-o Message threading now many times faster
-o Un-read Personal Messages will display with an '!' in message title lists
-o Posting to a username on a local-only sub-board will require a valid username
-o QWK indexes and control files can be toggled off for smaller/faster packets
-o Synchronet QWK extensions (@VIA and @TZ) can be toggled from the QWK menu
- or via QWK control messages
-o Importing and exporting of Area Files: Synchronet SUBS.TXT format, three
- flavors of AREAS.BBS, and FIDONET.NA format
-o QWK control messages are now echoed to the user when importing REP packets
-
-QWK Networking
-~~~~~~~~~~~~~~
-o HUBID.QW0 through .QW9 will be imported in addition to .QWK
-o Routed QWK netmail will automatically take shortest route
-
-
-File Transfers
-~~~~~~~~~~~~~~
-o Externalized storage (environment variables SBBSFILENAME and SBBSFILEDESC
- and files SBBSFILE.NAM and SBBSFILE.DES) of uploaded file names and
- descriptions allows upload processors to convert/rename files, modify
- file descriptions, or auto-hatch files into file distribution networks
-o Extended file descriptions in file listings will not be truncated and listed
- twice on the same screen
-o Importing and exporting of Areas Files: Synchronet DIRS.TXT format and
- FILEBONE.NA format
-o ADDFILES v2.12 adds "/S" option to search directories for files and import
- them without requiring a file listing (FILES.BBS)
-
-
-Chat
-~~~~
-o Split-screen private node-to-node chat now has fake cursor in top window
-o Ctrl-P and Ctrl-U are active while in private chat
-o Notification of awaiting messages and telegrams while in split-screen chat
-o Split-screen chat can be toggled off/on by users from the Chat menu
-
-
-/* End of V211A.NEW */
diff --git a/docs/v220_new.txt b/docs/v220_new.txt
deleted file mode 100644
index d934c7496567e2b9dd3cefb0d4ed7b8ebe1efbba..0000000000000000000000000000000000000000
--- a/docs/v220_new.txt
+++ /dev/null
@@ -1,162 +0,0 @@
- What's new in Synchronet BBS Version 2.20
- =========================================
-
-General
-~~~~~~~
-o Support for WIP (Windows Interface Protocol) terminal programs (DCTERMW.ZIP)
- by automatically detecting WIP terminals and displaying WIP menus
-o Each security level can be set to expire to a specific security level, the
- default expired level, or a specific quick-validation set
-o Loadable module can be executed during daily maintenance for each expired
- user enabling custom expiration options/features
-o New exemption (E) keeps specific users from expiring when their time runs out
- if the "Expire when out-of-time" option has been enabled in SCFG
-o Expired users are written to the detailed log with a !% line for each user
-o New SBBS command line switch (o) to force all pending events to execute
- and then immediately exit (for use with Front-end mailers)
-o New system toggle to disallow credit to minute conversions
-o Timed events can be forced by creating a semaphore file in the DATA directory
- (similar to forced QWKnet call-outs)
-o Number of seconds between checks for node semaphores (down/rerun/event/etc)
- and seconds between checks for waiting for call statistics can be
- configured on a per-node basis
-o Each node can be individually toggled to disallow local beeps
-o New user locations can be allowed without commas (between city and state)
- if the sysop wishes
-o Quick-validation hot-keys require locally input system password if changing
- a user with level 90 or higher (reduces accidental Quick-validations)
-o If daily statistics database (DSTS.DAB) time stamp is more than 24 hours
- in the future (apparently corrupted), a critical error is generated
-o Last few callers and callers today listing can be custom colorized and
- easily removed from the logon procedure for some or all users
- (number of callers displayed for last few callers is Baja modifiable)
-o Low-priority input toggle available on a per-node basis to fine-tune
- aggregate system performance under multitasking environments
-o ARS keywords SUB and DIR now support sub-board and directory internal codes
- (static) as well as the area number (dynamic) for the value argument
-o Doors can be configured for maximum time allowed (in drop file)
-o Waiting for call configuration (SCFG) command line configurable for each node
-o 32-bit DOS and OS/2 versions of the Synchronet configuration (SCFG) program
-o RIP and WIP screens are not displayed locally for a cleaner local console
-o E-7-1 remote terminals are now directly supported by Synchronet
-
-
-Message Networks
-~~~~~~~~~~~~~~~~
-o New FA: (file attachment) status override for sysops and 'F' exempt users
- to send file attachments from anywhere to multiple addresses
-o Sub-boards can be toggled for "Internet Networked" to allow posts to unknown
- user names and the 'N' restriction to work properly with NetXpress
-o QWK NetMail imported for an unknown address will be returned to the sender
- (bounced) with "BADADDR: address" in the subject of the message
-
-
-Message Base
-~~~~~~~~~~~~
-o Moderated messages now show Moderated and Validated attributes
-o When changing message attributes, a hot-key menu interface is used
-o When moving messages between sub-boards, the original message may be left
- intact (copying messages rather than moving)
-o When deleting messages from a message base, they are only flagged for
- deletion later by message base maintenance, allowing the user to
- undelete the message
-o More than 3000-4000 messages per sub-board supported (if memory allows)
-o Messages and text files of any size (no maximum length) can be viewed online
-o File attachments (e-mail) can now be forwarded among users
-o Local posts and e-mail from user #1 may contain @-code variables/actions
-o Sub-boards can be configured with static QWK conference numbers instead of
- the default dynamic numbering scheme
-
-
-Guru Chat
-~~~~~~~~~
-o New response variables:
- `O SysOp's name
- `S System name
- `G Guru's name
- `I System's QWK ID
- `L User's level (previously `m)
- `T Time
- `M Month
- `W Day of the week
- `J Day of the month
- `Y Year
- `Z User's zip/postal code
-o AR strings can be used in Guru expressions by enclosing them in brackets
- e.g. (HELLO&GURU&[LEVEL 90 OR FLAG S])
-o Guru starts conversation in "Local" mode (not multinode chat mode)
-
-
-File Transfers
-~~~~~~~~~~~~~~
-o Non-Synchronet color codes (@-codes, pipe-codes, etc) are now supported in
- the descriptions of extended file listings (&E toggled ON)
-o Files moved from the upload or sysop directories automatically have their
- upload date set to the current date so they will appear in new-scans
-o When in novice mode and batch flagging is enabled, file scans clear the
- screen and display the batch flag command reference at the top of the
- screen between each group of files
-o File areas can be configured for maximum file age in days for the new
- file maintenance utility (DELFILES) to purge by upload date, last
- download date, and/or files not on disk
-o Users can select a default download protocol and enable auto hang-up after
- download (sysop can configure new user default values for these too)
-o Files placed in the batch download queue, but not downloaded during the call
- will be automatically added to the batch download queue during the
- user's next logon
-o File contents can be viewed from the (R)emove/Edit file prompt
-o External programs can place files in the batch download queue by creating a
- list of files as DATA\FILE\####.DWN (where #### is the user number)
-o File areas can be set to deduct users' time online during uploads (instead
- of the default behavior of suspending their time while uploading)
-o File areas can be set to award uploaders with minutes instead of credits
-
-
-PCMS (Programmable Command and Menu Structure) Enhancements
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o Login procedure is controlled by a loadable module instead of hard-coded,
- allowing custom login protocols and matrix menus
-o Loadable logon module has greater control over logon procedure, assuming
- responsibility for displaying logon screens, initiating logon events,
- displaying auto-message, last few callers, etc.
-o Optional synchronization module to be executed whenever nodes and displays
- are synchronized (very frequently)
-o Optional logout module to be executed offline during logout procedure
- (after disconnection)
-o Optional expired user module to be executed offline during daily maintenance
- when users expire
-o Modules can be loaded and executed from anywhere by placing @EXEC:MODNAME@
- in TEXT.DAT lines (excluding lines with % specifiers), menus, text
- files, and even e-mail messages (optional)
-o Command shells and modules can use dynamic global and local variables
- (character strings and 32-bit integers)
-o Direct file i/o operations available for command shells and modules
-o Maximum binary executable size increased from 32k to 64k
-o Read/write access to over 100 internal system string and integer variables
-o Ability to dynamically load alternate TEXT.DAT files allowing complete
- foreign language and graphical protocol shells
-o Additional TEXT.DAT line to specify which keys are to be used for Yes and No,
- completing the support necessary for foreign language shells
-o Comments allowed in TEXT.DAT by placing '#' at the beginning of the line
-
-
-Baja Compiler Version 2.00 Enhancements
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o Compiler supports C-like macros (!define) for pre-processor definition of
- integer and string constants
-o Compiler supports multi-file projects using a C-like pre-processor directive
- (!include) for combining multiple source/include files
-o Many enhanced functions
-o New String Manipulation functions
-o New Integer Manipulation functions
-o New Logic/Control Flow functions
-o New Display functions
-o New Input functions
-o New Miscellaneous functions
-o New File Base functions
-o New Chat functions
-o New File I/O functions
-o New File system functions
-o New Directory system functions
-
-/* End of V220A.NEW */
diff --git a/docs/v300_new.txt b/docs/v300_new.txt
deleted file mode 100644
index 90a3535650a4857adc7dc069fcce1a0a7ad3d795..0000000000000000000000000000000000000000
--- a/docs/v300_new.txt
+++ /dev/null
@@ -1,495 +0,0 @@
-***************************************************
-* What's New in Synchronet Version 3.00 for Win32 *
-***************************************************
-
-General
-~~~~~~~
-o All "nodes" run in a single multi-threaded process
- - Minimal resource requirements and improved performance
- - DOS Windows are automatically opened/closed for external DOS programs/doors
- - It's never been easier to run a 10+ node system (with DOS door support) on
- one computer
-
-o Professional GUI Control Panel to monitor all clients and servers
- simultaneously
- - Replaces old "Waiting for call" screen
- - Launch configuration and editor dialogs directly
-
-o Optionally plays sysop's choice of .WAV file on user connect/disconnect
-
-
-Internet
-~~~~~~~~
-o Supports Telnet logins only (no more direct-dial user support)
- - No third-party FOSSIL/Telnet driver (SIO/VMODEM, NetModem, COM/IP) required
- - Full FOSSIL/DOS/WWIV/XSDK program/door support (easy setup!)
- - Outbound Telnet module included for external MUDs/BBSs
- - Automatically detects and logs client IP and hostname
- - Optional auto-logon via IP address (requires V exemption)
-
-o Includes integrated FTP server
- - Supports Anonymous (Guest) logins
- - Virtual directory structure mimics BBS filebase hierarchy
- - User security settings enforced
- - Supports long/mixed-case filenames
- - Dynamically generates index (description) files
- - Supports blind upload and sysop directories
- - QWK/QWKnet packet uploads and downloads
- - Upload description support
- - Transfers included in BBS and user upload/download statistics
- - Time/Credit system enforced
- - Custom login/hello/goodbye messages
- - Optional connect/disconnect sounds (.WAV files)
-
-o Includes integrated Mail (POP3/SMTP) server
- - Check BBS mailbox using standard Internet mail clients (Eudora, Outlook)
- - SPAM Filters supported: RBL, RSS, DUL
- - Configurable alias list
- - Optionally receive mail by user number (1@yourbbs.com)
- - Optional inbound/outbound sounds (.WAV files)
- - Optional DNS/MX record lookup (no SMTP Relay Server required)
-
-o IP/hostname filter/trashcan file (IP.CAN) for all Internet servers/services
-
-
-Configuration
-~~~~~~~~~~~~~
-o New @-codes:
- REV :Synchronet revision
- CONN :current connection type
- LOCATION :system location
- TNODES :total nodes on system
- HOST :user's hostname
- CID and IP :user's IP address
- QWKID :System QWK-ID
- INETADDR :System's Internet Address
- FIDOADDR :System's primary FidoNet address
-
-o The following environment variables are now initialized for DOS externals
- (specifically for event batch file convenience):
- YEAR :Current year (2000)
- MONTH :Month (1-12)
- DAY :Day of Month (1-31)
- WEEKDAY :Three letter weekday abbreviation (Mon, Tue, etc.)
- - Example: if %DAY%==1 call maintain.bat /reroll
- - Example: if %WEEKDAY%==Tue chksmb /q %sbbs%\data\mail.shd
-
-
-Message Base
-~~~~~~~~~~~~
-o New SMB REPLIED attribute to indicate a message has been replied-to
- - Requires TEXT.DAT update (additional %s in MsgAttr line)
-
-
-External Programs/Doors
-~~~~~~~~~~~~~~~~~~~~~~~
-o Most popular DOS doors fully supported
- - Includes native 32-bit FOSSIL driver that requires NO configuration/setup
- - Users can be ;INTERrupted while running ANY external program
- - Non-exclusive events do not take any nodes off-line
- - No more hassling with baud rates and initialization strings
- - DCDWATCH no longer necessary to support WWIV/DOS extrernals
-
-o New TELNET_GATE Baja function/module to run external MUDs and BBSs
- - Includes any-time ^] menu to see who is on the BBS, send messages, etc.
- - See TELGATE.DOC for details
-
-
-***********************************************************************
-* What's New in Synchronet Version 3.00 Revision B (official release) *
-***********************************************************************
-
-General
-~~~~~~~
-o Windows Version Information display:
- - Windows NT/2000 indicated by "NT"
- - Windows 95/98 build number corrected in version information
- - Service pack information now displayed along with version info
-
-o Block FOSSIL transfers (from DOS externals) now correctly escape Telent IAC
- character (255) - fixed SBBSEXEC.VXD - does not effect FDSZ
-
-o Windows NT/2000 FOSSIL/DOS Interrupt driver (DOSXTRN.EXE) created and VDD
- (SBBSEXEC.DLL) created to complete Windows NT/2000 support
-
-o Changed insert text command from Ctrl-<minus> to Ctrl-V
-
-o Changed center text command from Ctrl-V to Ctrl-L
-
-o Filename searches are no longer case sensitive
-
-o Fixed problem viewing extended file description if longer than screen length
-
-o Ability to easily switch A and R commands on the reading mail/msgs prompts
- for some or all command shells (see RA_EMU.BIN)
- - New @-codes to represent correct command keys in menus
- (MSGREPLY and MSGREREAD)
-
-o New @-codes:
- LOCAL-IP displays current local IP address
- CRLF carriage return/line-feed pair
- UP Move cursor up one row (ANSI)
- UP:n Move cursor up n rows (ANSI)
- DOWN Move cursor down one row (ANSI)
- DOWN:n Move cursor down n rows (ANSI)
- RIGHT Move cursor right one column (ANSI)
- RIGHT:n Move cursor right n columns (ANSI)
- LEFT Move cursor left one column (ANSI)
- LEFT:n Move cursor left n columns (ANSI)
- GOTOXY:x,y Move cursor to x/y (1-based) (ANSI)
- PUSHXY Save current cursor position (ANSI)
- POPXY Restore saved cursor position (ANSI)
- STATS.LOGONS Total logons during history of system
- STATS.LTODAY Total logons today
- STATS.TIMEON Total time used during history of system (in minutes)
- STATS.TTODAY Total time used today (in minutes)
- STATS.ULS Total uploads today
- STATS.ULB Total bytes uploaded today
- STATS.DLS Total download today
- STATS.DLB Total bytes downloaded today
- STATS.PTODAY Total posts today
- STATS.ETODAY Total e-mails sent today
- STATS.FTODAY Total feedbacks sent today
- STATS.NUSERS Total number of new users today
- MSGREPLY Command key to reply to last message
- MSGREREAD Command key used to re-read last message
-
-o Ability to disable hostname lookups for Telnet, FTP, and Mail servers
-
-o Ability to disable the spinning cursor for one or all nodes via Baja:
- OR _node_misc NM_NOPAUSESPIN
-
-
-Control Panel
-~~~~~~~~~~~~~
-o New Clients window shows all connected client details (username, IP address,
- hostname, time connected, etc.)
- - Allows sysop to disconnect any client by right clicking socket number and
- selecting "Close"
-
-o New GUI User Editor (USEREDIT.EXE)
- - Launched from SBBSCTRL->User->Editor
- - Create new user records
- - Edit all user fields, statistics, and settings
-
-o New Sysop Availability toggle button (replaces v2.3 Scroll-Lock function)
-
-
-FTP Server
-~~~~~~~~~~
-o FTP server now times out and closes data connection if user runs out of time
- - Helps eliminate stranded transfer threads/sockets
-
-o File aliases supported
- - Put links in your FTP root directory to often access files
- - Link to files on your local hard disk or your BBS filebase
- - Use general alias names to point to often-changing versioned filenames
-
-o Credits now checked before allowing file download
-
-o QWK packet creation time-out bug fix (wasn't timing-out ever)
-
-o Special logon sequence to receive sysop access (users with level >= 90)
-
-o Complete access to local file systems for remote sysops
-
-o Ability to disable QWK packet transfers
-
-
-Mail Server
-~~~~~~~~~~~
-o Attempts delivery a configurable number of times before bouncing message
- - Uses new SMB message field: delivery_attempts
-
-o Automatically re-scans mail database every configurable number of seconds
-
-o Fixed rare Access Violation in MAILSRVR.DLL during shutdown
-
-
-Online Programs
-~~~~~~~~~~~~~~~
-o 32-bit door support
- - Duplicate socket handle passed in DOOR32.SYS drop file (new standard)
- - Duplicate socket handle passed on command line via %H specifier
- - Support for external programs written with 32-bit XSDK (v3.0)
-
-
-************************************************************************
-* What's New in Synchronet Version 3.00 Revision C (official release) *
-************************************************************************
-
-General
-~~~~~~~
-o Sysop ;SPY command to remotely spy/control other nodes via Telnet
-
-o Support for Windows 95 (pre-OSR2) and Windows NT 3.x
-
-o New filter/trashcan (.CAN) file syntax:
- - Ignores leading white-space
- - Beginning a line with a semicolon (;) indicates a comment (line ignored)
- - Beginning a string with an exclamation mark (!) reverses the match logic
-
-o Win32 DLLs built with Visual C++ 6.0 (Previous 3.0 DLLs built with 5.0)
-
-o "user_alias" is synonymous with "user alias" and "user.alias"
- - For logins, duplicate name checking, receiving e-mail, etc
-
-
-Control Panel
-~~~~~~~~~~~~~
-o New Local Sysop Split-screen Chat module
-
-o New Local Node Spy module (with ANSI terminal emulation)
- - View multiple nodes simultaneous
- - View consecutive logins
- - Customize font and window size
-
-o New User Listing form with sortable columns
-
-o New BBS Login menu option (launches telnet://localhost)
- (REGEDIT->HKEY_CURRENT_USER\Software\Swindell\Synchronet Control Panel\LoginCommand)
-
-o Version information for each module is now retrieved and displayed in the
- Help->About dialog box
-
-o Reorganization of the Edit Filters sub-menu
-
-o Configurable SCFG command line
- (REGEDIT->HKEY_CURRENT_USER\Software\Swindell\Synchronet Control Panel\ConfigCommand)
-
-o Documentation Index (docs/index.htm) can now be launched with SBBSCTRL->Help->Index
-
-
-Internet
-~~~~~~~~
-o RLogin server for immediate logins from trusted hosts
- - Similar to Trade Wars Game Server (TWGS) operation
-
-o Separate IP address and hostname filter/trashcan files
- (IP.CAN and HOST.CAN)
-
-o Added new telnet_gate mode: TG_PASSTHRU (defined in SBBSDEFS.INC)
- - Allows passthrough of Telnet commandsto gated system
- - Included UNIXGATE.SRC/BIN to gate to Unix telnet servers
-
-o Added new telnet_gate mode: TG_RLOGIN (defined in SBBSDEFS.INC)
- - Allows outbound logins using BSD RLogin protocol
- - Included RLOGIN.SRC/BIN to gate to RLogin servers (e.g. TWGS)
-
-
-FTP Server
-~~~~~~~~~~
-o Sysops and dir-ops can now remove files from the filebase with the DELE
- command
-
-o Directory aliases (in FTPALIAS.CFG) now supported.
- Example: incoming bbs://main/uploads/ Blind uploads
-
-o Optional "Directory File Access" allows users to view and download files
- in the local directory that are not in the BBS file database
- - Useful for FidoNet packets and other dynamically generated files
-
-o Filename filter/trashcan file (FILE.CAN) is now checked before allowing uploads
-
-o QWK packet option no longer forced on (whoops)
-
-o Total user credits are now displayed during login (for non-exempt users)
-
-o Credits are no longer checked (before download) for D-exempted users
-
-o Credits are only checked for downloads now (not getdate/size commands)
-
-o Now deletes QWK packet semaphore file if failed to create packet
- (BBS event thread not running?)
-
-o New sets user modem/connection description in database to "FTP"
-
-o Fixed socket leaks under certain circumstances
-
-o Fixed Access Violation in FTPSRVR.DLL if shutdown during transfer
-
-
-Mail Server
-~~~~~~~~~~~
-o SMTP relay support (supported relay clients must be listed in RELAY.CAN)
-
-o SMTP server now supports multiple recipients (locally, relayed, or forwarded)
-
-o SendMail thread immediately bounces fatally errored messages
-
-o New SMTP state machine guards against invalid sequences of commands
- - Some messages could cause corruption (SMB error -7, missing header fields)
-
-o Configurable SMTP Relay Server port number (defaults to 25)
-
-o DNS MX-record lookups using TCP (optionally instead of UDP)
-
-o Mail message base is no longer left locked for extended periods of time
-
-o Supports SMB v2.13 extended error information
-
-
-Baja
-~~~~
-o New /Q (quiet/no banner) command-line option
-
-o Included shell/module Makefiles for Borland and GNU make
-
-New Functions:
-
- - GETCHAR Case-insensitive version of GETKEY
- - CMDCHAR Case-insensitive version of CMDKEY
- - COMPARE_CHAR Case-insensitive version of COMPARE_KEY
- - COPY_FIRST_CHAR Copies first char of str var to int var
- - COMPARE_FIRST_CHAR Compares first char of str var to constant
-
-
-Source Code
-~~~~~~~~~~~
-o Now available as Open Source, see http://www.synchro.net/source.html for details
-
-o Main modules may be built with
- - Microsoft Visual C++
- - Borland C++ Builder (required for SBBSCTRL)
- - Borland C++ Builder Compiler 5.5 (free)
- - GNU C/MinGW support in the works
-
-o User Editor may be built with Borland Delphi
-
-
-Documentation
-~~~~~~~~~~~~~
-o Updated for version 3 (version-specific features are noted)
-
-o Converted to HTML format (see docs\index.htm)
-
-
-************************************************************
-* What's New in Synchronet Version 3.00 Revision D (alpha) *
-************************************************************
-
-Control Panel
-~~~~~~~~~~~~~
-o New MinimizeToSysTray option
- - Minimizes SBBSCTRL to an icon in the system tray
- - Icon animates when there are active clients
- - Icon tool tip reports number of active clients
- - Double-click icon to restore SBBSCTRL window
-
-o New Control Panel Properties Dialog (File->Properties)
- - Allows configuration of LoginCommand, ConfigCommand, etc.
-
-o Closing no longer interferes with Windows shut-down procedure
-
-o Sorting by first/last on dates in User List now works correctly
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o Quicker response to Ctrl-C (abort) command
-
-o Binary receive mode is automaticaly disabled when returning
- from external programs
- - Some Telnet clents (e.g. HyperTerminal) enable Binary mode when
- transferring files, but do not disable Binary mode when done.
- This causes transmitted CR/LF pairs to be interpretted as two
- separate characters (instead of one).
-
-Baja v2.30
-~~~~~~~~~~
-New Control Flow Functions:
-
- - LOOP Begins an execution loop (nesting supported)
- - CONTINUE Continues an execution loop
- - BREAK Breaks an executuion loop
- - END_LOOP Ends an execution loop
-
-New TCP/IP Functions:
-
- - SOCKET_OPEN Create/open a TCP/IP socket
- - SOCKET_CLOSE Close a socket
- - SOCKET_CONNECT Initiate outbound connection
- - SOCKET_ACCEPT Accept an inbound connection
- - SOCKET_NREAD Get number of bytes ready to read
- - SOCKET_PEEK Peek at receive buffer
- - SOCKET_READ Read from socket
- - SOCKET_WRITE Write to socket
- - SOCKET_CHECK Check socket connection status
-
- - FTP_LOGIN Login to a remote FTP server
- - FTP_LOGOUT Logout from a remote FTP server
- - FTP_PWD Print current working directory
- - FTP_CWD Change current working directory
- - FTP_DIR Display current directory listing
- - FTP_PUT Send (upload) a file to server
- - FTP_GET Receive (download) file from server
- - FTP_RENAME Rename file on server
- - FTP_DELETE Delete file from server
-
-Miscellaneous New Functions:
-
- - INCHAR Case-insensitive version of INKEY
- - COPY_CHAR Copy current cmdkey to int var or str var
- - COMPARE_ANY_BITS Compares bits in any two integers
- - COMPARE_ALL_BITS Compares bits in any two integers
- - SHIFT_TO_FIRST_CHAR Shifts string to first occurance of char
- - SHIFT_TO_LAST_CHAR Shifts string to last occurance of char
- - FILE_RECEIVE Like FILE_PUT, but doesn't require sys pass
- - LPRINTF Local printf (to local console)
-
-New System Variables (defined in exec/sbbsdefs.inc):
-
- - _FTP_MODE FTP operating modes (see FTP_* constants)
- - _CLIENT_SOCKET Current telnet client's socket handle
- - _SOCKET_ERROR Last socket error
- - _STARTUP_OPTIONS BBS startup options (See BBS_OPT_* constants)
-
-
-************************************************************
-* What's New in Synchronet Version 3.00 Revision E (beta) *
-************************************************************
-
-BBS
-~~~
-o Fixed Guru Chat GPF/segfault bug (finally)
-
-
-Control Panel
-~~~~~~~~~~~~~
-o New "Events" window for event-thread log messages and status
- - No longer clutters Telnet Server log
-
-o New tray-minimized icon (globe)
-
-o Updated closure method
- - Hopefully resolves problem with shutting down after net event
- - 30 second time-out waiting for servers to stop (just incase)
-
-
-FTP Server v1.05
-~~~~~~~~~~~~~~~~
-o Failure to create uploaded file (e.g. directory not created) bugs fixed:
- - Error message cause gpf/segfault
- - No 450 error response to client
-
-o Resumed downloads (using FTP "REST" command) fixed (wrong response code)
-
-o Now uses control port-1 (normally 20) as TCP port for all active data sessions
-
-o Added active/passive mode indication to upload/download log output
-
-o Detected hack/intrusion attempts are now logged to data/hack.log
-
-o Directory listing are now sorted alphabetically (ala Unix)
-
-
-Mail Server v1.11
-~~~~~~~~~~~~~~~~~
-o SMTP Sending to a forwarded address (251 response) fixed
-
-o POP3 port, address, hostname activity logged
-
-o Now supports destination address hostnames starting with a digit
-
-
-/* End of V300_NEW.TXT */
diff --git a/docs/v310_new.txt b/docs/v310_new.txt
deleted file mode 100644
index e2a5bf595f190fb91261663cab9113c016d0b253..0000000000000000000000000000000000000000
--- a/docs/v310_new.txt
+++ /dev/null
@@ -1,2498 +0,0 @@
-***************************************************
-* What's New in Synchronet Version 3.10 for Win32 *
-* (ChangeLog since v3.00c for Win32 Dec 31, 2000) *
-***************************************************
-
-$Id$
-
-Highlights
-~~~~~~~~~~
-o Server-side JavaScript for dynamically-loaded BBS modules
- and dynamic-HTML indexes for FTP server
-
-o GUI Configuration Wizard
-
-o TCP socket and FTP client support in loadable modules
-
-o Support for embedded file descriptions (FILE_ID.DIZ/DESC.SDI) in FTP server
-
-o Improved support for multiple SBBSCTRL instances
-
-o Improved support for external DOS/FOSSIL programs (doors)
-
-o Additional configurability/programmability options
-
-
-General
-~~~~~~~
-o Support for '*' wildcard syntax in trashcan/filter files
- (e.g. "24.0.193.*" or "*.ppp.someisp.com")
-
-
-Control Panel
-~~~~~~~~~~~~~
-o New Configuration Wizard
- - Automatically runs on fresh install
- - Asks basic required questions
- - Hopefully eliminate some FAQs and common newbie-sysop errors
-
-o New MinimizeToSysTray option
- - Minimizes SBBSCTRL to an icon in the system tray
- - Icon animates when there are active clients
- - Icon tool-tip reports number of active clients
- - Double-click icon to restore SBBSCTRL window
- - Right-click for pop-up menu of frequently-used menu items
-
-o New "Events" window for event-thread log messages and status
- - No longer clutters Telnet Server log
-
-o QWK message events (e.g. for FTP-QWK transfers) can be disabled per-instance
- using the new "QWK Events" checkbox (defaults to enabled)
- - Required for multiple instances of SBBSCTRL
-
-o New Control Panel Properties Dialog (File->Properties)
- - Allows configuration of LoginCommand, ConfigCommand, etc.
-
-o Configurable Node and Client window display intervals
- (previously hard-coded to 1 and 5 seconds, respectively)
-
-o Closing no longer interferes with Windows shut-down procedure
-
-o Sorting by first/last-on dates in User List now works correctly
-
-o Added to the BBS->Edit menu:
- - New user password (NUP) failure message (text/nupguess.msg)
- - Nodes full message (text/nonodes.txt, previously hard-coded)
- - Logon message (text/menu/logon.asc)
- - Auto-message (data/msgs/auto.msg)
-
-o Eliminated possibility of over-writing registry values with defaults
- if SBBSCTRL is immediately shut-down before initialization has completed
-
-o SBBS.DLL version is now checked and verified (can't mix versions)
-
-o Minor cosmetic improvements (e.g. FTP server configuration dialog)
- - Fixed tab orders and enabled more control hints (tool-tips)
-
-o Revamped Node Window
- - Improved handling of NODE.DAB read/locking errors
- - New popup menu item to refresh display
- - New keyboard short-cuts for all popup menu items
-
-o Spy Window fix: KeyboardActive checkbox alternating checked status and
- not reflecting previously saved value
-
-o Link to Online Docs (http://www.synchro.net/docs) on Help menu
-
-o Statistics window update interval (previously hard-coded to 5 seconds) now
- configured via SCFG->Nodes->Node 1->Advanced Options->Statistics Frequency
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o Server-side JavaScript Support for Loadable Modules
- - Full support for Core JavaScript objects and classes:
- - Global (extended and enhanced)
- - Object
- - Function
- - Array
- - String
- - Boolean
- - Number
- - Date
- - Math
- - RegExp (Perlesque regular expressions)
- - Includes Netscape server-side File class
- - Both a procedure and object-oriented language
- - Substantially more powerful language than Baja
- - No "compiling" required (don't ever lose your source code again)
- - For more info on Core JavaScript, see http://mozilla.org/js
- - See exec/*.js for examples
- - Baja modules and command shells are still fully supported
- - Execute JS via command-line with "?modulename" instead of "*modulename"
- - New and evolving ASP/DOM-like Synchronet Object Model:
- - system
- - system.stats
- - system.node_list[]
- - server
- - client
- - user
- - file_area
- - file_area.lib_list[]
- - file_area.lib_list[].dir_list[]
- - Socket (class)
- - User (class)
- - Telnet-specific objects:
- - bbs
- - console
-
-o Improved auto-terminal-type detection
- - Telnet option negotiation occurs before auto-detection sequence
- (for CRT compatibility)
- - Added ANSI save and restore cursor position codes to sequence
- (for HyperTerminal compatibility)
-
-o New inactivity (H) exemption
- - Eliminates "Are you still there?" prompt and auto-disconnection for
- specific users
- - Add to your exec/logon.src (if upgrading):
- compare_ars exempt H
- if_true
- or _console CON_NO_INACT
- end_if
-
-o New @-codes:
- - FULL_VER Synchronet version and revision
- - VER_NOTICE Synchronet version notice
- - OS_VER Operating system name and version
- - JS_VER JavaScript implementation version
- - PLATFORM Platform name (e.g. Win32, Linux, etc)
- - COPYRIGHT Copyright notice
- - COMPILER Compiler name and version
- - SOCKET_LIB Socket library name and version
- - MSG_LIB Message library name and version
- - HOST Now contains FULL (untruncated) host-name
- - AGE User's age (in years)
-
-o Configurable "Nodes full" message (via text/nonodes.txt)
-
-o Better handling of DLL/EXE version mis-matches
-
-o Quicker response to Ctrl-C (abort) command
-
-o Fixed Guru Chat GPF/segfault bug
-
-o Screen pause is disabled while at the private message (Ctrl-P) prompt
-
-o Chat Menu is fully reprogrammable using PCMS (Baja or JavaScript)
- - See exec/chat_sec.src for example
-
-o No longer logs (or displays locally) failed password attempts if the sysop
- has so configured the system in SCFG
-
-o Fixed problems with changing first/last node parameters during run-time
- - New first/last node parameters don't take effect until server is restarted
-
-o Input and output threads now log/display number of bytes and packets
- sent/received upon termination
-
-o Changed NODE.DAB locking failure delays (earlier and longer)
-
-o Process directory is now changed to the ctrl directory during initialization
-
-o Uninitialized port numbers (set to 0) are now set to sensible defaults
-
-o External Program enhancements/fixes:
- - Added %~ command-line specifier for DOS-compatible (8.3) filename
- (use in place of %f to convert long filenames to DOS-compatible)
- - Added SBBSCTRL environment variable when running native external programs
- - Moved exec_mutex protection to cover all types of executables
- (fixed problem with I/O occasionally going to wrong node/user)
- - Improvement resource clean-up for Win32 version
- - Sets Baja-retrievable errorlevel
-
-o Binary receive mode is automaticaly disabled when returning
- from external programs
- - Some Telnet clents (e.g. HyperTerminal) enable Binary mode when
- transferring files, but do not disable Binary mode when done.
- This causes transmitted CR/LF pairs to be interpretted as two
- separate characters (instead of one)
-
-o Added support under Win9x/Me for "naughty" FOSSIL programs/doors
- - DOSXTRN.EXE now includes a 16-bit ISR stub for FOSSIL programs/doors
- that DO NOT generate interrupts (e.g. IceEdit, Operation Overkill II, etc)
-
-o Improved background DOS program/door performance under Win9x/Me
- - DOS/FOSSIL driver (SBBSEXEC.VXD) now schedules VM upon user input
- - Most noticable performance gain with Global War
-
-o Reduced CPU utilization for DOS programs/doors under WinNT/2K
- - DOS/FOSSIL driver (SBBSEXEC.DLL) now yields time-slices for programs
- that poll for input (similar to how TAME operates)
- - No more 100% CPU usage from games like LORD, TradeWars, BRE, etc
-
-o Improved disconnected-user detection while running DOS/FOSSIL doors
- - Periodic sending of telnet GA (go-ahead) command
-
-o Non-exclusive timed events now run in the background automatically
- - Allows multiple simultaneous events and asynchronous execution
- - Has nothing to do with child window appearance or priority
-
-o Timed event codes are now logged/displayed in uppercase (cosmetic only)
-
-o Fixed bug in random number generation
-
-o No longer prompts for "Forward To Netmail" if the option is disabled in SCFG
-
-o Optional e-mail/netmail address filter/trashcan file (text/email.can)
-
-o Event loop delay (previously hard-coded to 1 second) now configured via
- SCFG->Nodes->Node 1->Advanced Options->Semaphore Frequency
-
-
-Baja v2.3
-~~~~~~~~~
-o Partially compiled .BIN files are now deleted
-
-o New Control Flow Functions:
-
- - LOOP Begins an execution loop (nesting supported)
- - CONTINUE Continues an execution loop
- - BREAK Breaks an executuion loop
- - END_LOOP Ends an execution loop
-
-o New TCP/IP Functions:
-
- - SOCKET_OPEN Create/open a TCP/IP socket
- - SOCKET_CLOSE Close a socket
- - SOCKET_CONNECT Initiate outbound connection
- - SOCKET_ACCEPT Accept an inbound connection
- - SOCKET_NREAD Get number of bytes ready to read
- - SOCKET_PEEK Peek at receive buffer
- - SOCKET_READ Read from socket
- - SOCKET_WRITE Write to socket
- - SOCKET_CHECK Check socket connection status
- - SOCKET_READLINE Read a CR/LF terminated line of text
-
- - FTP_LOGIN Login to a remote FTP server
- - FTP_LOGOUT Logout from a remote FTP server
- - FTP_PWD Print current working directory
- - FTP_CWD Change current working directory
- - FTP_DIR Display current directory listing
- - FTP_PUT Send (upload) a file to server
- - FTP_GET Receive (download) file from server
- - FTP_RENAME Rename file on server
- - FTP_DELETE Delete file from server
-
-o Miscellaneous New Functions:
-
- - INCHAR Case-insensitive version of INKEY
- - COPY_CHAR Copy current cmdkey to int var or str var
- - COMPARE_ANY_BITS Compares bits in any two integers
- - COMPARE_ALL_BITS Compares bits in any two integers
- - SHIFT_TO_FIRST_CHAR Shifts string to first occurance of char
- - SHIFT_TO_LAST_CHAR Shifts string to last occurance of char
- - FILE_RECEIVE Like FILE_PUT, but doesn't require sys pass
- - LPRINTF Local printf (to local console)
-
-o New BBS Functions:
-
- - FILE_RECEIVE Same as FILE_PUT, but no system password required
- - MULTINODE_CHAT Joins a specified multinode chat channel
- (used in new exec/chat_sec.src)
-
-o New System Variables (defined in exec/sbbsdefs.inc):
-
- - _FTP_MODE FTP operating modes (see FTP_* constants)
- - _CLIENT_SOCKET Current telnet client's socket handle
- - _SOCKET_ERROR Last socket error
- - _STARTUP_OPTIONS BBS startup options (See BBS_OPT_* constants)
-
-
-FTP Server v1.10
-~~~~~~~~~~~~~~~~
-o Dynamic HTML Index support using Server-Side JavaScript
- - See exec/ftp-html.js for source code
- - Additional FTP-specific objects:
- - ftp.path
- - ftp.sort
- - ftp.reverse
- - ftp.file_list[]
- - ftp.dir_list[]
- - ftp.curlib
- - ftp.curdir
- - ftp.html_index_file
-
-o Automatic support for embedded file descriptions (FILE_ID.DIZ and DESC.SDI)
-
-o Detected hack/intrusion attempts are now logged to data/hack.log
-
-o Directory listings are now sorted alphabetically (ala Unix)
-
-o Failure to create uploaded file (e.g. directory not created) bugs fixed:
- - Error message cause gpf/segfault
- - No 450 error response to client
-
-o Resumed downloads (using FTP "REST" command) fixed (wrong response code)
-
-o Now uses control port-1 (normally 20) as TCP port for all active data
- sessions
- - Fixes problem of locating FTP server behind intelligent firewalls
-
-o Added active/passive mode indication to upload/download log output
-
-o Configurable QWK packet creation timeout
- - defaults to 10 minutes, previously hard-coded at 5 minutes
-
-o No longer logs (or displays locally) failed password attempts if the sysop
- has so configured the system in SCFG
-
-o Fixed mutex leak in Win32 build when stopping/restarting FTP server
-
-o Fix to disallow viewing of (ASCII or HTML) index file for aliased directory
- where user has insufficient access to list files
- (e.g. "/main/uploads" aliased as "/incoming" in ctrl/ftpalias.cfg)
-
-o Shortened thread shutdown timeout (from 60 seconds to 15)
-
-o Fixed upload filename bug in non-Win32 flavors
-
-o Now disallows uploading of dynamic index filenames (if enabled)
-
-o Sending a 0-length file is no longer treated as a failed download
-
-o The path to the upload or sysop directory can now be specified with the STOR
- (upload) command
- - previously, you had to change the current directory first
-
-o Fixed occasional GPF/segfault during shutdown
-
-o Fixed case sensitivity problem with locally added files via telnet
-
-o Optional "hack attempt" sound file (Win32 version only)
-
-o Optional e-mail address filter for guest account passwords
-
-
-Mail Server v1.11
-~~~~~~~~~~~~~~~~~
-o SMTP Sending to a forwarded address (251 response) fixed
-
-o POP3 port, address, hostname activity logged
-
-o Now supports destination address hostnames starting with a digit
-
-o No longer logs (or displays locally) failed password attempts if the sysop
- has so configured the system in SCFG
-
-o Shortened thread shutdown timeout (from 60 seconds to 15)
-
-o Uninitialized startup values are now set to sensible defaults
-
-o Fixed memory leak if server stopped and re-started
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision C (Beta) *
-***********************************************************
-
-Telnet Server
-~~~~~~~~~~~~~
-o 0-byte QWK packets are now simply ignored rather than generating errors
- - It is assumed the file is still being downloaded by another process
-
-o Configurable number of polls before yield for NT/2K/XP fossil driver
- - Allows tuning of multitasker TAME-like performance
- - Was previosly hard-coded to 10, values of 5000+ improve LORD and LORD IGM
- RIP detection but increases CPU usage for BRE and possibly other doors
-
-o Fixed old bug: anonymous uploads weren't flagged as anonymous unless the
- entire directory was forced anonymous
-
-o Fixed new bug: FidoNet echomail semaphore files weren't working
-
-o Password display char is now configurable as the fourth character in the
- last line of the text.dat - defaults to 'X' if not specified
- - third char is currently ignored but is reserved for for configurable
- "quit" character in the future (currently hard-coded to 'Q')
-
-o When replying to mail, no longer prompts to delete message if message was
- already flagged for deletion (caused unintential UN-deletion of message)
-
-o Fixed Baja bugs: SYSOP_PAGE and GURU_PAGE functions set reversed logic state
-
-o Improved internal chat page performance (random tones) - rarely used
-
-
-JavaScript
-~~~~~~~~~~
-o Improved Socket class
- - last_error property is maintained on a per-instance basis
- - externally created sockets won't be closed on deletion
-
-o Added global sound() function to play external WAV files
- - use sound.js module via command-line (e.g. for external chat pager)
-
-
-FTP Server v1.10
-~~~~~~~~~~~~~~~~
-o JavaScript contexts are only created when needed
- - should improve performance, reduce memory usage, and improve reliability
-
-o Fixed bug: anonymous uploader names were shown in directory listings
-
-o Fixed bug: daily user statistics (logons today, time used today, etc) were
- not being reset if user was logged in during the date change (12 midnight)
-
-o Fixed bug: logoff was setting timed-used-last-call to number of 'seconds'
- used rather than 'minutes'
-
-o Implemented security considerations recommended in RFC2577:
- - Added a 5 second delay after each failed login attempt
- - Session is terminated after 3 failed login attempts
- - Port command supports ports >=1024 only, defeats "bounce attack"
-
-
-Mail Server v1.11
-~~~~~~~~~~~~~~~~~
-o Updated mail-abuse.org DNS and HTTP server addresses
- (for RBL/RSS/DUL SPAM rejection)
-
-o Creates data/spam.log listing every rejected SPAM attempt
-
-o Fixed bug: logoff now handles resetting of user's daily statistics
-
-o Time used during POP3 sessions are now added to user's timeon stats
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision D (Beta) *
-***********************************************************
-
-Control Panel
-~~~~~~~~~~~~~
-o Fixed linker problem in v3.10c that caused various control panel functions
- to not work or generate access violations or exceptions
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o Bug fixes in Online user editor (;UEDIT) when searching based on ARS
- potential memory leak if disconnected and access violation on blank string
-
-o Remote sysops can now give flags and exemptions (using the internal user
- editor) to users even if they themselves don't have that specific flag or
- exemption as long as the user has a lower security level than the sysop
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision E (Beta) *
-***********************************************************
-
-Control Panel
-~~~~~~~~~~~~~
-o Forms are now not "undockable" (they can't be dragged and undocked)
- by default
- - Undockable property toggled in File->Properties dialog
-
-o Log and List colors and fonts are now customizazble via registry keys:
- HKEY_CURRENT_USER/Software/Swindell/Synchronet Control Panel
-
-o File->Properties dialog now contains tool tips
-
-o New Mail->View->SPAM Log menu item
-
-o New Mail->Edit->Domain List menu item to edit domain alias list
-
-o Mail->Edit->Allowed Relay List menu item now edits ctrl/relay.cfg
- instead of text/relay.can (same format and purpose)
-
-o New BBS->Reload Configuration menu item (and toolbar button)
- -Reloads configuration in sbbsctrl and all nodes (when possible)
-
-o Configuration Wizard now loads at appropriate time during "first run"
-
-o Configuration is automatically reloaded after Wizard is run at any time
-
-o New "Lookup Idenity" checkbox in Telnet configuration dialog
-
-
-GUI User Editor
-~~~~~~~~~~~~~~~
-o Fixed problems with disabling expiration dates (setting to 00/00/00)
-
-
-JavaScript
-~~~~~~~~~~
-o New file_remove() global method/function
-o Global exit() method/function now clears pending exceptions
-o Created new File class to replace Mozilla's crappy implementation
- - Methods:
- open([mode string], [buflen]) - mode string ala fopen()
- close()
- remove() - deletes file if unopen
- clear_error()
- flush()
- lock(offset, length) - provides record locking
- unlock(offset, length)
- read([length])
- readln([length])
- readBin([size]) - read binary integers of 1, 2, or 4 bytes
- readAll() - read all lines and return as an array
- write(string, [length])
- writeln(string)
- writeBin(val, size])
- writeAll(array)
- - Properties:
- name [readonly] - filename
- mode [readonly] - mode string
- exists [readonly] - file exists?
- date [readonly] - time_t format
- is_open [readonly] - file open?
- eof [readonly] - end of file?
- error [readonly]
- descriptor [readonly] - no known use at this time
- etx - end of text character (defaults to 0/NULL)
- debug - enable debug output
- position (ala seek)
- length (size in bytes)
- attributes (OS-dependant)
- - see http://synchro.net/docs/js.html for details (in the works)
-
-
-Baja v2.31
-~~~~~~~~~~
-o New MATCHUSER function to get the number of a user by name
- - Used in login.src to dynamically detect Guest account
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o Added identity look-up and log during logon
- - using IDENT protocol often utilized by IRC clients/servers
-
-o Added user name to New User dupliate IP warning
-
-o Fixed problem with ZModem/FDSZ file transfers on NT-based OSes
-
-o Event command-lines are now logged to the event log window
-
-o Includes updated DOSXTRN.EXE to allow configurable "polls before yield"
- on NT-based OSes (forgotten in rev D beta)
-
-o Removed unused global Baja variable: CAP_FNAME
-
-o Cleaned up/beautified the log output a bit
-
-o Fixed potential race condition/crash when re-running a node right as
- a client was connecting
-
-o Potentially helpful log message on failure to bind to server port
- - "Another service may be using this port"
-
-o Potentially helpful log message when remote sysop login attempted
- but disabled in SCFG
-
-o Event log output on network call-out
-
-o More fine-grained checking of 'C' restriction in chat functions
-
-o Cleaned up error.log entries
- - eliminated misleading/unnecessary source code path
- - eliminated useless doserrno
-
-o QWK improvements
- - Added time-slice yields while creating QWK messages.dat file
- - Logs/displays total number of bytes packed in QWK packets
- - Calculates and displays number of sub-boards scanned
- - Beautified the static config menu
-
-o New message scans now calculate and dipslay number of sub-boards scanned
-
-o More configurable text in ctrl/text.dat
- - SendingMessageToUser
- - SendingTelegramToUser
- - TelegramFmt
- - MsgSentToUser
- - PagingUser
- - PrivateChatSeparator
- - SysopChatSeparator
- - SystemPassword
- - InvalidNetMailAddr
- - YNQP (Yes/No/Quit/Password chars)
-
-o In password-entry mode, non-destructive backspace now deletes the
- password char (which is now configurable in ctrl/text.dat)
-
-o @nopause@ and @poff@ codes now work as expected (disabling pause) in
- text/answer.* files
- - Ctrl-AQ trick no longer necessary
-
-o New @-codes:
- - EMAILADDR - user's Internet e-mail address on your system
- - RESETPAUSE - resets line counter for auto-pause (same as Ctrl-AQ)
-
-o Eliminated many hard-coded colors (uses colors from ctrl/attr.cfg instead)
-
-
-Mail Server v1.11
-~~~~~~~~~~~~~~~~~
-o New optional ctrl/domains.cfg file can be used to list additional domain
- name aliases to receive mail for
- - wildcards are allowed, e.g. "*.synchro.net"
-
-o Allowed relay list is now stored in ctrl/relay.cfg instead of
- text/relay.can
- - .can files are used for trashcan/filter files
-
-o SendMail thread will now stop sending mail when the server is terminated
-
-o Potentially helpful log message on failure to bind to server port
- - "Another service may be using this port"
-
-o Eliminated potential lock-ups waiting to receive data while looking up
- DNS MX records and while waiting for SMTP respones in SendMail thread
-
-
-FTP Server v1.10
-~~~~~~~~~~~~~~~~
-o Fixed potential race condition and segfault while
- "waiting for transfer to complete" upon server termination
-
-o Potentially helpful log message on failure to bind to server port
- - "Another service may be using this port"
-
-o Displays telnet command descriptions rather than decimal value
- - yes, telnet commands can, and often are, sent on the FTP control port
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision F (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o Now using select() before send() or recv() to eliminate potential TCP/IP
- socket blocking problems
-
-o Much improved Linux-build functionality and FreeBSD compatibility
- (X/Y/Zmodem file transfers, native external programs, stdio doors, etc)
-
-o Improved user name matching using underscore and dot replacement
- (e.g. "Dr._Seuss" will match "Dr. Seuss")
-
-o Sysop psuedonym matching is now performed in global matchuser function
- - Basically, anywhere a user name or number can be specified, "Sysop",
- "Postmaster", the configured sysop name (in SCFG) and the system's QWK
- ID will all be considered pseudonym's for user record #1
-
-o Sped up getuserdat() significantly by eliminating call to lastuser->flength
- - this has a side-effect of greatly improving the load-time for the
- SBBSCTRL:View->User->List menu item and other places in the BBS
-
-o No longer logs <no name> host name if host name lookup is disabled
-
-
-Control Panel
-~~~~~~~~~~~~~
-o Fixed Mail Server POP3 sound file configuration
-
-o Fixed the slow close of the User List
-
-o Uninitialized user genders are no longer printed as garbage
-
-o New menu item SBBSCTRL:BBS->Filters->Email Subject Filters
-
-o Added NT-compatible work-around for default LoginCommand
- ("start telnet://localhost")
-
-o FTP and Mail server logs are now opened shareable (deny none)
-
-o New "Services" window, see below for details
-
-
-JavaScript (http://synchro.net/docs/js.html)
-~~~~~~~~~~
-o Each client gets its own JS-runtime to improve multi-threaded reliability
- - This will hopefully eliminate all the JS reliability issues
-
-o New bbs.nodesync() method
-
-o bbs.text() returns null on invalid index (instead of static string)
-
-o Fixed a couple of bugs in Socket.recvline method:
- 1. was incrementing buffer char pointer even when there was no new data
- 2. was not releasing time-slices when there was no new data
- - This same fix was applied to the Baja SOCKET_READLINE function
-
-o Socket recv, recvline, and peek methods now return null when there is a
- time-out or no data (instead of an empty string)
-
-o Socket recvline/readline method now supports an optional 'timeout' parameter
- (second argument)
-
-o Socket recvline method will now truncate \n terminated lines correctly
-
-o Dynamic instances of User class were missing stats and security properties
-
-o Changed User class email property to reflect user's BBS e-mail address
- - Different from the netmail property - their external e-mail address
-
-o New global methods:
- log(str) - Log specified string to log window and/or file
-
-o System object
- New properties:
- system.uptime - Time system was brought "up" (in time_t format)
- Subtract from time() to get seconds "up"
- New methods:
- alias(username) - Returns aliased user name (from ctrl/alias.cfg)
- timestr([time]) - Returns string representation of specified time
- or current time if not specified
-
-o New msg_area object
- properites:
- msg_area.grp_list[].name
- msg_area.grp_list[].description
- msg_area.grp_list[].sub_list[].name
- msg_area.grp_list[].sub_list[].description
- msg_area.grp_list[].sub_list[].code
- msg_area.grp_list[].sub_list[].newsgroup
- msg_area.grp_list[].sub_list[].can_read
- msg_area.grp_list[].sub_list[].can_post
- (see exec/nntpservice.js for example)
-
-o New MsgBase class - constructor: new MsgBase("code")
- properties:
- MsgBase.last_error
- MsgBase.file
- MsgBase.debug
- MsgBase.retry_time
- MsgBase.first_msg
- MsgBase.last_msg
- MsgBase.total_msgs
- MsgBase.max_crcs
- MsgBase.max_msgs
- MsgBase.max_age
- MsgBase.attributes
- methods:
- MsgBase.close()
- MsgBase.get_msg_header(bool by_index, number)
- MsgBase.get_msg_body(bool by_index, number, bool strip_ctrl_a)
- MsgBase.save_msg(header, body)
- (see exec/nntpservice.js for example)
-
-
-Synchronet Services
-~~~~~~~~~~~~~~~~~~~
-o Services are TCP servers that are launched dynamically by Synchronet when an
- inbound connection is detected on a specific TCP port (ala Unix inetd)
-
-o Services are normally written in JavaScript, but native (32-bit) services are
- also suppoorted
- - Native services must be able to receive socket descriptor on command-line
-
-o Stock "sample" services:
- - Finger (exec/fingerservice.js)
- - Gopher (exec/gopherservice.js)
- - HTTP/HTML node list (exec/nodelist-html.js)
- - NNTP, Network News Transfer Protocol (exec/nntpservice.js)
-
-o Services are configured with ctrl/services.cfg
-
-o The Finger service along with the SMTP telegram support creates a new
- Inter-BBS "Instant Messaging" technology using standard Internet protocols
-
-o Expect to see more standard Internet server protocols supported with
- Synchronet services in the near future, as well as-yet-to-be-invented
- technologies
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o New finger client (exec/finger.js) launched with the [F]inger command from
- the chat menu
-
-o New Inter-BBS "Instant Messaging" module (exec/sbbsimsg.js) launched with the
- [I]nstant message command from the chat menu
-
-o Increased delay after ANSI cursor position report (detection response) is
- received
- - This increases the likelyhood of detecting RIPscrip support properly in
- RIPtel
-
-o Non-QuickBBS/MSGTMP-sytle external editors now use the TEMP directory as the
- current directory and the location of the temporary message files
- (for additional security)
-
-o Added support for editing existing messages using QuickBBS/MSGINF-style
- external editors
-
-o Batch download programs can now use %s to represent the full list of files
- to be downloaded (required for Unix sb/sz support)
-
-o Beautified the temp directory listing a bit
-
-o Fixed a really old bug where you couldn't 'R'emove files from the temp dir
-
-o Max QWK message limit now applies to Q-restricted accounts too
-
-o Added new 'O' (QWK packet size) exemption
-
-o Detailed log entries now include user's alias
-
-o userlist will now sort up to 2500 users (previously limited to 1000)
-
-o Changed wildcard use to be more Unix-like ("*" means all files)
-
-o SEND/RECEIVE_FILE functions now use higher level protocol function
- - prompt for hangup after transfer, handles log parsing, etc.
-
-o @nopause@ and @poff@ codes now disable all pauses, even on screen clears
-
-o New @-code:
- - UPTIME - System up-time in days, hours and minutes
-
-o Fixed potential lock-up in getstr if input_thread is unexpectedly terminated
-
-o inkey now recognizes and adheres to the K_UPPER mode bit
-
-o getkey no longer asks if user is still there if cfg.sec_warn is equal to
- cfg.sec_hangup
-
-o getkey releases time-slices when called with node offline or input_thread not
- running (just in case)
-
-o Added optional date/time argument (%s) to ctrl/text.dat/AutoMsgBy (line 42)
-
-
-Events
-~~~~~~
-o Added more event log output, especially concerning exclusive events
-
-o Added one hour time-outs while waiting for exclusive events
- - prevents extended down-time waiting for an unresponsive node or event
-
-o Removed redundant node_daily event execution at end of node_thread
- - already handled in event_thread
-
-
-Mail Server v1.11
-~~~~~~~~~~~~~~~~~
-o POP3 server supports login by alias (from ctrl/alias.cfg)
-
-o SMTP server now rejects mail if there is no body text
-
-o Added ability to post on a sub-board via SMTP (sub:code@host)
- - best to use alias.cfg for this feature (e.g. "syncprog sub:syncprog")
-
-o Support for receving SEND/SOML/SAML SMTP commands (which create telegrams)
- - used in new Inter-BBS "Instant Messaging" technology
-
-o Set a hard maximum number of recipients in a given mail session
- - currently 1000
-
-o Added last_error strings to smb_getmsgtxt() error log entries for better
- error reporting
-
-o Added text/email.can and text/subject.can checking as sysop-configurable
- Spam filters
-
-o Illegal relay attempts are now logged in the SPAM.LOG as Spam attempts
-
-o SMTP server now supports messages missing the 'From' field
- - uses MAIL FROM: return-path
-
-o SMTP server supports external address aliases (you@somedomain.com = sysop) in
- the ctrl/alias.cfg file
-
-o Original destination address is now stored in "name" field of message header
-
-
-FTP Server v1.10
-~~~~~~~~~~~~~~~~
-o Periodic transfer progress reports occur even when no data is transferring
-
-o Progress report cps rates are now per-report rather than for total file
-
-o If resuming a transfer, file offset is now shown in progress reports
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision G (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o Added user number validation to data functions to eliminate potential user
- database corruption by external programs
-
-o New ARS keyword: SHELL
- - used to specify the user's command shell as an access requirement
-
-
-Configuration Utility (SCFG) Updated for Version 3.x
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o True Win32 console mode application
-
-o Added automatic re-running of nodes upon configuration changes (yea!)
-
-o Can be run in "standard input/output" mode (scfg -d) to run as a DOOR!
-
-o Increased default backup_level from 3 to 5
-
-o More flexible command-line syntax
-
-o Reads SBBSCTRL environment variable to determine location of CTRL directory
- (if not specified on the command-line)
-
-o Supports up to 80x60 console window
-
-o Elimination of version 2-specific options (unused in version 3)
-
-o File paths are no longer forced to uppercase (for Unix support)
-
-o Fixed importing of FIDONET.NA echolist tags with slashes (e.g. "AIDS/ARC")
- - was creating an invalid internal code for imported sub-board
-
-o No more problems with consuming time-slices (100% CPU utilization)
-
-o No more problems with initializing larger than 80x25 console windows
-
-o New options to control the following:
- - Long filename support in listings (Win98/Win2K+)
- - Spinning cursor at [Hit a key] prompt
- - Native 32-bit external programs (doors), timed events, and editors
- - DOOR32.SYS drop file creation
- - Timed events based on frequency (multiple executions per day)
- - Background execution toggle for timed events
- - Global Hot Key events
- - SMTP (inbound e-mail) semaphore file
- - New user e-mail/netmail address question
- - Stripping of FidoNet Kludge lines for external editors
-
-
-Control Panel
-~~~~~~~~~~~~~
-o Password-protected tray icon option
-
-o Client form column widths saved/restored
-
-o Added window title to SCFG console ("Synchronet Configuration Utility")
-
-o Fixed crashes when closing while minimized to system tray
-
-o Code Input dialog now lists the available events/hubs in a drop-down list
-
-o Added "User->Truncate Deleted Users" menu option
- - used to remove all deleted user records from end of user database
-
-o Fixed LogColor registry settings (weren't working)
-
-o Created File->Properties->Customize menu to change color/font schemes
-
-o Fixed window position of services config dialog
- (wasn't visible at low resolutions)
-
-o Detailed error reporting upon failure to load configuration files
-
-o New Help->Frequently Asked Question menu option
-
-
-Configuration Wizard
-~~~~~~~~~~~~~~~~~~~~
-o Added automatic detection of DNS server address (yea!)
-
-o Fixed Internet Address configuration page when run for the first time
-
-
-JavaScript (http://synchro.net/docs/js.html)
-~~~~~~~~~~
-o Increased maximum JavaScript heap size from 1 to 8 megabytes
- - no additional overhead or memory consumption
- - now supports thousands of message and file areas
-
-o Elminated reliance on exec/nspr4.dll
- - benefit from switching to the "separate run-time per thread" model
-
-o User class is defined before the answer/login procedure
- - answer/login .js modules can now use the User class
-
-o user, file_area, and msg_area objects are now created during logon
-
-o New bbs properties:
- alt_ul_dir, node_action, curgrp, cursub, curlib, curdir,
- smb_group, smb_group_desc, smb_group_number, smb_sub, smb_sub_desc,
- smb_sub_code, smb_sub_number, msg_to, msg_to_ext, msg_to_net,
- msg_to_agent, msg_from, msg_from_ext, msg_from_net, msg_from_agent,
- msg_replyto, msg_replyto_ext, msg_replyto_net, msg_replyto_agent,
- msg_subject, msg_date, msg_timezone, msg_date_imported, msg_attr,
- msg_auxattr, msg_netattr, msg_offset, msg_number, msg_expiration,
- msg_forwarded, msg_thread_orig, msg_thread_first, msg_thread_next, and
- msg_delivery_attempts
-
-o New bbs methods:
- page_sysop, page_guru, multinode_chat, private_message, private_chat,
- get_node_message, put_node_message, get_telegram, put_telegram,
- text_sec, xtrn_sec, user_config, sys_info, sub_info, dir_info,
- user_info, ver, sys_stats, node_stats, userlist, useredit, logonlist,
- nodelist, whos_online, spy, xfer_policy, read_mail, email, netmail,
- qwk_sec, post_msg, cfg_msg_scan, cfg_msg_ptrs, reinit_msg_ptrs,
- scan_posts, auto_msg, time_bank, batch_menu, batch_download,
- batch_add_list, temp_xfer, change_user, bulk_mail, bulk_upload,
- resort_dir, listfiles, listfileinfo, scan_subs, scan_dirs, cmdstr,
- get_filespec, get_newscantime, list_users, edit_user, list_logons,
- list_files, list_file_info, post_msg, list_nodes, upload_file, and atcode
-
-o New User class properties:
- logontime - the exact time (in time_t format) of current login
- (used to display time spent online in node listings)
- curxtrn - the internal code of the external program last run
- (used to display the name of the door in node listings)
-
-o New Socket class property: nonblocking (set to true for nonblocking sockets)
-
-o New Socket class method: ioctl (for sending ioctl commands to TCP/IP driver)
-
-o New MsgBase.put_msg_header() method for modifying or deleting messages
-
-o MsgBase class message header properties can now be enumerated
- - example: for(i in header) print("header." + i + " = " + header[i]);
-
-o MsgBase class now supports anonymous-only and private-only sub-boards
-
-o MsgBase class wasn't locking message headers before reading/writing them
-
-o MsgBase class sub-boards in non-default storage directory didn't work
-
-o exec/sbbsdefs.js now includes SMB constant definitions
- - for use with the MsgBase class
-
-o msg_area.grp_list[x].sub_list[y].can_post property now accounts for P and N
- user restrictions
-
-o New msg_area.grp_list[x].sub_list[y] properties:
- settings - bitmask of settings (SUB_*)
- qwk_name - QWK conference name
- data_dir - path to data files
- fidonet_origin - FidoNet origin line
- qwknet_tagline - QWKnet tagline
- is_operator - current user is sub-board operator (true/false)
- is_moderated - sub-board is moderated (true/false)
- ptridx - index into data/user/ptrs/<usernum>.ixb files
- qwk_conf - QWK conference number
- max_age - max message age (in days) before purging
- max_msgs - max number of messages before purging
- max_crcs - max number of message CRCs to store (for dupe checking)
-
-o New file_area.lib_list[x].dir_list[y] properties:
- settings - bitmask of settings (DIR_*)
- can_upload - current user can upload (true/false)
- can_download - current user can download (true/false)
- is_exempt - current user is exempt from d/l credits (true/false)
- is_operator - current user is a directory operator (true/false)
- path - path to storage directory
- extensions - file extensions allowed (comma separated list)
- upload_sem - path to upload semaphore file
- data_dir - path to data files
- seqdev - sequential device number
- sort - sort order
- max_files - max number of files allowed
- max_age - max age before purging
- upload_credit_pct - percentage of credits given for uploads
- download_credit_pct - percentage of credits given for subsequent downloads
-
-o New system.findstr() method for searching any file for pseudo-regexp strings
- - similar to system.trashcan(), but not limited to text/*.can files
-
-o New global directory() method to return array of files in specified
- local file system directory matching specified wildcard pattern
- - example: files = directory( system.ctrl_dir + "*.cnf");
- - see exec/dir.js for complete example
-
-o File.readBin() now returns -1 instead of garbage when attempting to read
- past the end-of-file
-
-o system.uptime is now correctly set after accounting for timezone
-
-o Fixed bug with concurrent access to the MsgBase class from the Telnet server
- and the services module
-
-
-Synchronet Services
-~~~~~~~~~~~~~~~~~~~
-o Fixed parsing of services.cfg, two spaces were required before port number
-
-o html-nodelist.js:
- - now reports time online and door names in node listings
- - added optional location to node list (use "-l" option)
- - added Runkeeper's mod for Login button to work around MSIE table bug
-
-o fingerservice.js:
- - now reports time online and door names in node listings
-
-o nntpservice.js:
- - fixed message-ids for Netscape (and other client) support
- - now supports real name only sub-boards
- - now supports private and moderated messages
- - includes e-mail address in "From:" header fields
-
-o Added support for server recycle semaphore file (ctrl/services.rec)
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o User signature file support (totally independant of message editor)
-
-o Now supports 3-digit ANSI cursor position reports during initial
- terminal screen length detection (fix for Windows 2K/XP telnet)
-
-o New user netmail/e-mail address question can now be toggled off
-
-o Long filenames are now displayed in extended file information and are
- optionally displayed in file listings (requires Win98/Win2K+)
- - files with long filenames must still be uploaded via FTP
- - complete long filename support will follow the emergence of a WinSock
- X/Y/Zmodem driver
-
-o 32-bit external programs (doors) and editors no longer need to be in the
- Native Program List in SCFG for a DOOR32.SYS drop file to be created
- - select "DOOR32.SYS" from the drop file list instead
- - also need to set "Native (32-bit) Executable" toggle option to "Yes"
-
-o Added support for I/O redirection of Win32 console apps (e.g. cmd.exe)
- - ;SHELL command now works on Windows NT/2K/XP
- - unix-like (stdio) doors now supported (e.g. Lord/X)
-
-o Date environment variables (DAY, WEEKDAY, MONTH, MONTHNAME, and YEAR)
- are now set before executing native (32-bit) programs
- - these variables were previously only set when executing DOSXTRN.EXE
-
-o EnterYourBirthday ctrl/text.dat line now uses automatically-supplied
- variable for the format example ("MM/DD/YY" or "DD/MM/YY") based on the
- sysop-configured date format
-
-o Message "Title" ctrl/text.dat entries changed to "Subject"
-
-o New @-codes:
- - SMB_GROUP Current message group name
- - SMB_GROUP_DESC Current message group description (long name)
- - SMB_GROUP_NUM Current message group number
- - SMB_SUB Current message sub-board name
- - SMB_SUB_DESC Current message sub-board description
- - SMB_SUB_CODE Current message sub-board internal code
- - SMB_SUB_NUM Current message sub-board number
- - MSG_TO Current message to-user name/number/address
- - MSG_TO_NAME Current message to-user name
- - MSG_TO_EXT Current message to-user extension (number)
- - MSG_TO_NET Current message to-user network address
- - MSG_FROM Current message from-user name/number/address
- - MSG_FROM_EXT Current message from-user extension (number)
- - MSG_FROM_NET Current message from-user network address
- - MSG_SUBJECT Current message subject
- - MSG_DATE Current message date/time
- - MSG_TIMEZONE Current message timezone
- - MSG_ATTR Current message attributes
-
-o All @-codes now support the -L and -R variations for fixed length display
- (left or right justified) Example: [@name-l___________________@]
-
-o Fixed %f command-line expansion for DORINFO1.DEF and TRIBBS.SYS drop files
-
-o Fixed bug where the uptime was incorrectly reported in some timezones
-
-o Fixed bug where time left could go negative in Unix builds
-
-o Fixed infinite "error selecting socket for send" error message
-
-o Fixed Baja FTP passive (PASV) mode file transfers
- - exec/getimlst.bin should now work with ftp.synchro.net
-
-o Fixed Baja FTP active/normal (non-passive) transfers
- - was only broken when Telnet server network interface was set to 0 (<any>)
-
-
-Events
-~~~~~~
-o Timed events based on frequency (multiple executions per day)
-
-o DOSXTRN is no longer used to launch timed events (unnecessary overhead)
-
-o Background execution can now be toggled off/on in SCFG
-
-
-Mail Server v1.11
-~~~~~~~~~~~~~~~~~
-o Support for MIME-encoding of outbound e-mails with file attachments
- - thanks to Marc for this source code contribution
-
-o Recipient e-mail addresses can now be blocked using text/email.can
-
-o Optional "default user" for catch-all e-mail account (e.g. sysop)
-
-o Support for "port-extended" addresses to send mail to SMTP servers on
- non-standard ports (e.g. user@some.mail.server:2025)
-
-o alias.cfg can now specify external servers (different address or port)
- '*' wildcard char is supported (e.g. to forward all mail for anyone at
- some.com to the same user at orther.org, use "*@some.com *@other.org")
-
-o More detailed smap.log entries
-
-o Time-slice yields while receiving SMTP messages
- - no more 100% CPU utilization while receiving large e-mails
-
-o Support for SMTP (inbound e-mail) semaphore file
- - used to trigger external mail processing events
-
-o Removed support for logging in with aliases from alias.cfg (bad idea)
- - alias.cfg is strictly used for e-mail recipient aliasing
-
-o Added support for server recycle semaphore file (ctrl/mailsrvr.rec)
-
-o Fixed double domain bug in POP3 server
-
-o Counts and logs number of lines per message
-
-
-FTP Server v1.10
-~~~~~~~~~~~~~~~~
-o E-mail aliases (from ctrl/alias.cfg) can no longer be used to login
-
-o Guest/anonymous e-mail address listed in client display
-
-o Added support for server recycle semaphore file (ctrl/ftpsrvr.rec)
-
-o Automatic server recycling upon socket select or accept failure
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision H (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o New NewsLink event module (exec/newslink.js)
- - used to link sub-boards with newsgroups (e.g. USENET)
- - requires ctrl/newslink.cfg
- - create a timed event with command line of "?newslink"
-
-o Changed use of gmtime() to localtime() for systems using local/system
- time zone rather than GMT/UTC (the default)
-
-o Including Win32 console-mode version of Synchronet (sbbs.exe)
- - less overhead
- - more ideally suited to run as an NT service
- - identical to Unix version
-
-o Better error reporting (includes text description of errno)
-
-o All TCP servers support recycling via semaphore and semaphore files
- - ctrl/telnet.rec, ftpsrvr.rec, mailsrvr.rec, and services.rec
- - waits until server is not in-use before recycling
- - re-loads config files
- - re-binds sockets
-
-o Fixed bugs in parsing ARS keywords: UNIX, LINUX, and WIN32
- - any additional ARS keywords in the same string were corrupted
-
-
-Configuration Utility (SCFG) Updated for Version 3.x
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o Changed default QWKnet call-out command line to use QNET-FTP module
-
-o Fixed access violations/segfaults when adding file options:
- protocols, download events, viewable/testable/compressable/extractable file
- types, and alternate file paths, at the end of the list
-
-o New System "Toggle Option" to use local/system time zone instead of
- GMT/UTC
-
-o New Node "Toggle Option" to leave NODE.DAB open (defaults to "Yes")
- - This is how Synchronet operated prior to v3, but was changed in the
- interest of Linux/smbfs-compatibility
- - In the interest of performance and reliability, I've changed the default
- behavior back to leaving the file open and added an option to disable
- this behavior (and make it behave like Synchronet v3.0)
-
-o System toggles default to previously configured state
-
-o Added External Program "Time Option" to enable "Monitor Time Left"
- - Synchronet will automatically disconnect the user if they run out of time
-
-o New "Newsgroup Name" for sub-boards (used by NNTP service)
-
-
-Control Panel (Win32)
-~~~~~~~~~~~~~~~~~~~~~
-o Fixed resource (thread and process handle) leak when using BBS->Configure
-
-o Fixed potentially incorrect client counter in status bar
-
-o New File->Properties->Advanced tab to set control directory and host name
- - Host name should be set only if different for this instance of sbbsctrl
-
-
-JavaScript (http://synchro.net/docs/js.html)
-~~~~~~~~~~
-o Added BranchCallback for detecting infinite loops and releasing time-slices
- while executing scripts
-
-o New MsgBase.subnum (0-based sub-board number) property
-
-o New message hdr.date property for proper RFC822 date representation
-
-o Added time to message-id for messages in sub-boards (for more uniqueness)
-
-o Added extra bool param to MsgBase.get_msg_body() method (tails)
- - defaults to true if unspecified
-
-o New MsgBase.get_msg_tail() method
- - returns message tail (tear/taglines) only
-
-o New global properties:
- - errno (mirrors C RTL "errno" variable)
- - errno_str (String description of errno value)
-
-o New global methods:
- - ascii_str(String) return ex-ascii string converted to pure ascii
- - strip_exascii(String) return string with ex-ascii chars removed
-
-o New system methods:
- - system.spamlog(prot, reason, host, ip_addr, to)
- - system.hacklog(prot, user, text, host, ip_addr, port)
-
-o New system.host_name property
- - may be different from Internet address configured in SCFG->Networks->
- Internet e-mail
- - configured with sbbsctrl->File->Properites->Advanced
- - only required for multiple machine BBSes (e.g. vert/rob/cvs.synchro.net)
-
-o New socket method:
- - socket.sendfile(filename)
-
-o Global printf() function outputs to event log when appropriate
-
-o Fixed JavaScript context corruption caused by bbs.login() method
-
-o Fixed null pointer dereferences when accessing properites of unopen JS file
-
-o Fixed bug in File.writeAll() method (would stop writing prematurely)
-
-o File.readln() and readAll() methods no longer truncate trailing whitespace
-
-o Doesn't ask for new/your message scan if user has access to no message areas
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o Added QWK config menu option to toggle QWK_EXT flag
-
-o Added support for long conference names in CONTROL.DAT if QWK_EXT flag set
-
-o Now detects if new user record number (determined by name.dat) is beyond
- the valid size of the user.dat, generates an error log message, and fixes the
- user number so the record can be created successfully
-
-o Added code to putusername() to automatically fix a corrupted name.dat file
-
-o Added error report if failed to create new user record
-
-o Fixed output_sem re-initialization bug that caused segfaults in Linux and
- *may* have been a cause of occasional output blocks in Win32
-
-o Mail maintenance/purge event no longer tries to delete msgs in an empty base
-
-o No longer clears useron number in node.dab when logging off
- - multinode chat users need this value to display the user name that left
- chat channel (disconnected)
-
-o New toggle option to check time left online while executing doors
- - fix for doors that fail to check user's time left online
-
-o Switched back to using DOSXTRN for offline events
- - executing events without DOSXTRN caused too many problems
-
-o Fixed Win32 resource leaks when executing external programs
-
-o Fixed CR to CRLF expansion for intercepted standard I/O in Win32 programs
-
-o Fixed condition in node.dab where a node status could be left as "in use"
-
-o New command-line specifier (%.) expands to ".exe" for non-Unix platforms
- - Allows Unix and Win32 executables to reside in the same directory
-
-o NT FOSSIL driver no longer creates sbbsexec*.log files
-
-
-Synchronet Services
-~~~~~~~~~~~~~~~~~~~
-o NNTP Service (exec/nntpservice.js)
- - Added log output for rejected commands when not authenticated
- - Handles P (post) user restriction more gracefully
- - Served message headers now include properly formatted date field
- - Posted messages now use original date/time in header
- - Added support for SLAVE and IHAVE commands
- - Updated From: headers to include user name separate from address
- - Added subject trashcan (text/subject.can) checking (spam filtering/log)
-
-o Finger Service
- - Fixed negative time online values
-
-o Fixed buffer overflow bug in JavaScript global log() method
-
-o Support for unique host names per Synchronet instance (system.host_name)
-
-
-FTP Server
-~~~~~~~~~~
-o Fixed race condition that caused client transfer threads to be orphaned
-
-o Eliminated warning when attempting to close socket after sock_mutex is gone
-
-o Added special log output to ftp_close_socket when closing the server socket
-
-o Rearranged termination sequence at end of ctrl_thread to fix race conditions
-
-o Added wait at end of ftp_server thread for other threads to terminate
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision I (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o Additional "buffer overflow" precautions
-
-o Better random number "seeding"
-
-o Better/early detection of corrupt message base headers
-
-o Fixed long message header field support in message base utilities
- - smbutil, chksmb, and fixsmb
-
-
-Configuration Utility (SCFG) Updated for Version 3.x
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o Fixed bug that was corrupting message headers (build problem?)
-
-o Increased maximum SCFG->Security Levels->Time Per Call/Day to 1440 minutes
-
-o Uses SBBSEXEC environment variable for help file location (if set)
-
-
-Control Panel (Win32)
-~~~~~~~~~~~~~~~~~~~~~
-o Fixed bug with reporting incorrect "up time" in daylight savings time
-
-o GUI user editor now saves changes to Note field
- - Deleted/inactive user record status is displayed as red/yellow
-
-
-Console Mode (sbbs.exe)
-~~~~~~~~~~~~~~~~~~~~~~~
-o New command-line options:
- -ma allow SMTP relays from authenticated users
- -md<addr> set DNS server address for MX-record lookups
- -mr<addr> set SMTP relay server (and enable SMTP relay)
- (supports address:port syntax)
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o Added optional text/menu/msghdr.* file (actually a couple of revs back)
- - Replaces built-in/text.dat message headers
- - Use new message header @-codes to display message details
-
-o Errno descriptions are now included in error log
-
-o exec_mutex is no longer used for NT-based OSes and native 32-bit executables
-
-
-Mail Server
-~~~~~~~~~~~
-o New mail server option to allow SMTP relay to authenticated users
- - Requires user's last logon to be within the hour (via Telnet/FTP/POP3)
-
-o Immediately disconnects upon illegal relay attempt
-
-o More detailed message base error messages
-
-o Reduced maximum SMTP recipients from 1000 to 100 (RFC minimum)
-
-o Improved tracking of number of recipients and enforcement of maximum
-
-o Logs maximum recipients reached error in spam.log
-
-o SMTP MAIL command now resets recipient list per RFC 821
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision J (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o Better JavaScript reliability
-
-o Much improved anti-SPAM measures in SMTP Mail server
-
-o More detailed spam.log entries
-
-o Sysop-configurable socket options (applied to all opened sockets)
- - socket options set in ctrl/sockopts.cfg
- - socket option values can be queried using "finger ?sockopts"
-
-o Servers are automatically recycled on an "accept" failure
-
-o Improved message base error handling (SMBLIB v2.15)
-
-o Automated daily backups of user and mail databases
-
-o SBBSCTRL can export/import sbbs.ini file (registry settings)
-
-o Console mode version (sbbs.exe) can read in sbbs.ini file for instance
- settings - no more ugly command-lines required
-
-o Console mode version now includes node listing/control commands
-
-o Services on UDP (datagram) sockets are now supported
-
-o Tons of improvements to both newslink.js and nntpservice.js
- - Better dupe message detection/prevention
- - Better retainment of message-ids across gated message networks
- - Better prevention of inadvertent gating (must have gate-between-net-types)
-
-
-SCFG
-~~~~
-
-o Now creates data and storage directories (again)
-
-o Bugfix: wasn't saving sub-board's newsgroup name
-
-o Backed-up .cnf files are now named *.cnf.# instead of *.cn#
- - no longer limited to 10 backups
-
-o Number of daily user and mail database backups to keep, configured in
- SCFG->System->Advanced Options
-
-o Removed unused new user question toggles: computer type and multiple choice
- computer questions
-
-
-NewsLink (newslink.js)
-~~~~~~~~
-o Better dupe message detection/prevention using X-Gateway header field
-
-o Better retainment of message-ids across gated message networks
-
-o Better prevention of inadvertent gating (must have gate-between-net-types)
-
-o Creates default (blank) properties for message header object:
- eliminates script errors when importing malformed message headers
-
-o Uses newsgroup name as default "to" header field value of imported msgs
-
-o Added optional flags field to area lines in newslink.cfg
- Supported flags:
- n - don't add "from newsgroup" tag to imported message text
- t - don't add tear lines to imported message text
- x - don't add tear and tag lines to exported message text
-
-o Improved debug/status output
-
-o Added support for Tracker1's -ix option (import fixed number of messages)
-
-o Added support for parsing and sending of FidoNet-extension headers
- (e.g. X-FTN-MSGID)
-
-o Only includes references/reply_id field if it exists in the header (!undefined)
-
-o print statements are now crlf-terminated for easier debugging with ;EXEC
-
-
-nntpservice.js
-~~~~~~~~~~~~~~
-o Many of the improvements made to newslink.js, also made in nntpservice.js
-
-o Added support for the DATE command (RFC 2980)
-
-o Uses message-id of posted msgs if sender is a slave server (not a client)
-
-o Tracker1's modification to set the "to" field of posted messages based on
- the from field of the message referenced in "references" header field
- (if present)
-
-o Tracker1's modification to replace spaces with underscores in e-mail
- addresses
-
-o Added support for missing argument to ARTICLE, HEAD, BODY, and STAT cmds
-
-o Added support for the STAT command
-
-o Added read/posted messages stats after logoff
-
-o Writes original newsgroups header to outbound msgs
-
-
-JavaScript
-~~~~~~~~~~
-o printf() and format() now convert floating point numbers to long (%ld)
-
-o BBS timed events can now use User class
-
-o Branch callbacks now collect garbage (free-up memory) every 100 calls
- - this fixes the problem of every created object living in memory during
- the life of a script causing a long-running script to eventually run
- out of memory
-
-o Fixed the following global methods (were corrupting passed string buffer):
- ascii_str(), strip_ctrl(), strip_exascii(), and truncsp()
-
-o UDP (datagram) sockets are now supported by the Socket class
-
-o New Socket class properties: local_ip_address, local_port,
- remote_ip_address, and remote_port
-
-o Socket getoption() and setoption() methods no longer have the option "level"
- as an argument and the option name is now specified as a string (the numeric
- values defined in sockdefs.js are not cross-platform)
-
-o Fixed Socket is_connected property value (was true before connect)
-
-o Created Socket poll() method - with optional timeout argument (in seconds)
-
-o Changed Socket recv, recvline, and peek methods to support unlimited buffer
- lengths
-
-o Fixed bug in bbs.replace_text() method when called with empty string ("")
-
-o New bbs properties: msg_id, msg_reply_id, smb_msgs, and smb_curmsg
-
-o New console method: ansi_getxy() to get terminal's current cursor location
-
-o New console method: lock_input() to lock/unlock the input_thread allowing
- direct client.socket read calls from scripts
-
-o system.spamlog() now takes an "action" parameter
- - usage: spamlog(prot, action, reason, host, ip_addr, to);
-
-o Fixed memory leaks in MsgBase class
-
-o MsgBase save_msg() and put_msg_header() methods now parse the header
- object's id and reply_id properties and place them in the appropriate SMB
- header fields
-
-o MsgBase get_msg_header() method defines only the following properties as
- read only: number, id, and reply_id
- - the rest are now read/write
-
-o MsgBase get_msg_body and get_msg_tail methods now take additional bool
- parameter indicating whether the message is to be rfc822-encoded or not
- (defaults to false)
- - this solves the problem of the nntp service and newslink module sending
- messages with dots in the first character of a line incorrectly
-
-o Added MsgBase ftn_msgid, ftn_reply, ftn_pid, ftn_area, and ftn_flags
- FidoNet msg header properties
-
-o MsgBase msg hdr reply_id based on time and number of original message
- - reply_id property is not created if it doesn't exist in the msg header
- - msg.id is based on the time the message was imported rather than written
-
-o Fixed MsgBase subject, to, and from CRCs in message base index
- - threading on author, to, or subject didn't work on imported msgs
-
-o Added support for MsgBase msg hdr USENET Path and Newsgroups header fields
-
-
-Telnet Server
-~~~~~~~~~~~~~
-
-o PostLink and QWK call-out events now run in foreground (to avoid packet
- open conflicts) and use the command-shell (for shell scripts on Unix)
-
-o An "riosync timeout" is no longer logged as an error
-
-o Non-exclusive timed events can now run *while* the event node is "in use"
-
-o Fixed bug with multiple instances and non-exclusive events, was setting node
- status to WFC even if user was online
-
-o IDENT lookup no longer assumes server is running on port 23
-
-o getkey now releases time-slices while waiting for "cold key" input
-
-o ansi_getxy releases time-slices while waiting for terminal response
-
-o ansi_getlines releases time-slices while waiting for terminal response
-
-o Timed events that use Baja or JavaScript output routines will now print to
- the event log
-
-o "To users" are now supported on Internet-networked message areas
-
-o New user question toggle (SCFG->System->New User Values->Question Toggles)
- to disable the upper/lower case conversion of new-user-supplied strings
-
-o New system toggle options (SCFG->System->Toggle Options) to suppress
- hard-coded displays (system info and active node list) during logon
-
-o New MSGID and REPLY kludge lines in QWK networked messages
- - allows cross-network threading based on message-id
-
-o Added new command (E) to allow users to edit their posted messages on a
- specific sub-board (sysop configurable in SCFG)
-
-o Implemented support for SUB_DELLAST toggle option
- - allows deleting of last message only
- - option has been in SCFG for a long time, but never implemented
-
-o Fixed chat channel 0 (sysop broadcast channel) bugs related to chat actions
-
-o Auto-initializes SBBSDATA and SBBSEXEC convenience environment variables
- for use in external programs/batch files/shell scripts
-
-o Sets socket mode back to blocking after running external programs
- - fix for external programs that change the socket's blocking mode
-
-o If the menu file text/menu/xtrn/code.* exists (where code is the external
- program's internal code), the file will be displayed to the user before the
- door is run
-
-o New @-codes: MSG_NUM, MSG_ID, MSG_REPLY_ID, SMB_MSGS, SMB_CURMSG,
- SMB_LAST_MSG, SMB_MAX_MSGS, SMB_MAX_CRCS, SMB_MAX_AGE, and SMB_TOTAL_MSGS
-
-o Updated old msg group and sub-board name/number @-codes to use currently
- open message base details, if applicable
-
-
-SBBSecho
-~~~~~~~~
-o New option (in ECHOCFG) to strip linefeeds from exported messages
- - Previously, it *always* stripped linefeeds causing formatting problems
- with some non-comforming echomail programs (defaults to "Off")
-
-
-Mail Server
-~~~~~~~~~~~
-o Added support to SMTP server for "forward:" and "local:" address prefixes,
- allowing sender-control of forwarding to external mail addresses
-
-o Created generic DNS blacklist support via optional configuration file:
- ctrl/dns_blacklist.cfg - allows multipe RBL-style DNS blacklists
-
-o The hardcoded RBL functionality has been replaced with dns_blacklist.cfg
-
-o Added support for ctrl/dnsbl_exempt.cfg to exempt a list of IPs
- (or IP masks) from DNSBL testing
-
-o Three new options on handling of mail from DNSBL-listed servers:
- A. refuse sesion (used to be only choice)
- B. refuse mail (e.g. report "bad address")
- C. ignore mail (e.g. pretend to receive)
- D. receive mail, but tag msg subject and header with configurable tags
-
-o Now logs DNS query result (e.g. 127.0.0.2) from DNS-based Blacklist servers
-
-o Changed DNS blacklist reject error code from 571 to 550
-
-o POP3 server allows up to three non-USER commands in authentication state
- i.e. ignores "CAPA" command (RFC 2449)
-
-o Better support for outbound addresses with both "name" and <addr> portions
-
-o sendmail_thread sends properly formatted RCPT TO command even if address
- is not properly formatted ("name" <addr> for example)
-
-o sendmail_thread can now send mail to addresses that have text after hostname
-
-o Made "msg text lines per yield" value configurable (default: 100)
-
-o Made "max recipients" value configurable (default: 100)
-
-o Undeliverable messages from local user #0 can't be bounced
- (e.g. telval/smbutil)
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision K (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o New IP filter file: text/ip-silent.can
- - connections from IP addresses in this file are silently refused
- (same format as other text/*.can files)
-
-o More consistent message threading-by-subject
-
-o Non-standard timezones are now represented as UTC+/-hh:mm
-
-o All messages created are assigned both Internet (RFC822) and FidoNet (FTS-9)
- compliant message-IDs
-
-o All messages created are assigned a FidoNet (FSC-46) compliant program ID
-
-o SBBSCTRL (Win32) now saves and restores customized font styles
- (bold, italic, underline, etc.)
-
-o Fixed handling of invalid Ctrl-A sequences in FILE_ID.DIZ
-
-o Web server included in console-mode version (sbbs.exe) Unix build
- - very preliminary
-
-o Synchronet ported to OpenBSD (thanks Deuce!), so Synchronet for Unix now
- builds and runs on Linux-x86, FreeBSD-x86, and OpenBSD-x86.
-
-
-JavaScript
-~~~~~~~~~~
-o New documentation in the works
- http://synchro.net/docs/js.html
-
-o Dynamically-generated Object Model Reference (more complete and accurate)
- http://synchro.net/docs/jsobjs.html
-
-o Better error reporting of internal errors that cause script termination
-
-o User class constructor can be called with no arguments
- - creates a User object representing no existing user
- - number property must be set before any changes can be saved
-
-o Global load() method can now (optionally) take additional arguments which
- are then used to change the values of the global argv and argc properties
- Example: load("myscript.js", arg1, arg2);
-
-o New global truncstr(str,set) method, truncates a given string at the first
- occurance of any char in set (ala strpbrk), returns the truncated string
-
-o New methods: system.put_node_message() and system.put_telegram()
- - same as bbs methods by the same name but can be called from other servers
-
-o New method: system.new_user(alias)
- - returns User object representing a new user record
-
-o New method: system.matchuserdata(field, data, [usernumber])
- - searches for an exact string match of any user record data field and
- returns the number of the first matching user
- - the field is specified by offset into user.dat record
- - usernumber is an optional user to skip in the search
-
-o Fixed system.freediskspace property, returns up to 4GB (instead of -1)
-
-o bbs.scan_dirs() and scan_subs() methods ignored first parameter
-
-o bbs.get_newscantime() returns new scan pointer date/time
-
-o bbs.get_telegram() was expecting too many parameters
-
-o Fixed console.question property (was dupe of console.wordwrap property)
-
-o Made console.question property writeable
-
-o New console.strlen() method returns length of string excluding Ctrl-A codes
-
-o File.open() method now accepts an additional, optional bool argument:
- shareable (defaults to false)
- - if a file is opened as 'shareable', then simultaneous opens will be
- allowed (no file locking), otherwise, the file is locked according the
- open 'mode'
-
-o File.open() method now opens file in text mode (on Win32) unless 'b'
- (binary) mode is not specified
-
-o New File.printf() method (works like the C fprintf function)
-
-o File.lock() and unlock() methods:
- - act on the entire file if called with no arguments
- - offset defaults 0, and length defaults to the file length - offset
-
-o New xtrn_area object that represents the configured external programs
- - currently only includes online external programs (doors)
- - will add timed events, external editors, etc. later
- - sorry Rocko, couldn't wait for your version :-)
-
-o MsgBase class:
- Fixed case sensitivity problem with opening message bases on Unix
- Added support for hdr.from_org (Organization) header field
- Imports and exports SMTP reverse_path header field (hdr.reverse_path)
-
-o New MsgBase.open() method - now required to access a message base, allows
- better error handling than opening in the constructor
-
-o New MsgBase.is_open property (boolean), reflects msgbase open state
-
-o MsgBase.save_msg() method will open the message base if necessary
-
-o MsgBase.put_msg_header() method now updates the index record too
-
-o MsgBase.get_msg_header() now exports the following header fields:
- summary, priority, cost, times_downloaded, and last_downloaded
-
-o MsgBase.get_msg_header() method truncates trailing whitespace characters
- from all header fields
-
-o Repeating and generic ASCII header fields (e.g. RFC822HEADER) are accessed
- with the new hdr.field_list array
-
-o New MsgBase.cfg property contains all sub-board configuration settings
- - doesn't exist for "mail" message base
-
-o MsgBase.save_msg():
- USENETPATH headers are no longer *always* added to newly saved messages
- It's up to another application (e.g. nntpservice.js) to add the local system
- to the path
- Added support for importing message headers with replyto header fields
-
-o Fixed bug in Socket.poll() - timeout value only worked as first argument
-
-o Fixed memory leak in Socket.sendfile() if file read failed
-
-o New Socket.recvfrom() method that returns an object with 3 properties:
- data, ip_address, and port (for UDP responses to broadcasted requests)
-
-o New Socket.sendto() method - usage: sendto(data,ip_addr,port) for UDP
-
-o Socket.connect() call is no longer needed for UDP sockets
-
-o Socket.local_port and remote_port properties are now numbers
- (instead of strings)
-
-o New property Socket.type, set to SOCK_STREAM (TCP) or SOCK_DGRAM (UDP)
- when the socket is created (read-only)
- - SOCK_STREAM and SOCK_DGRAM are defined in exec/sockdefs.js
-
-o Fixed bug in Socket.bind() if port number specified (byte-order fix)
-
-o Port arguments in Socket.bind(), connect() and sendto() can now be
- specified as a service name (e.g. "telnet", "http", "finger", etc).
-
-o New Socket.listen() method, puts socket in 'listening' state,
- accepts optional 'backlog' argument (defaults to 1)
-
-o New Socket.accept() method, accepts an inbound TCP connection,
- returns a newly created socket object
-
-o Socket.poll() method now accepts an additional, optional argument:
- bool poll_for_write, defaults to false (poll for read)
-
-
-SCFG (Configuration Utility)
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-o Added optional parent directory to file library configuration
- - used to specify a physical parent directory for all logical directories
- in a file library (convenient for importing CD-ROM directories)
- - requires v3 of ADDFILES and FILELIST utilities
-
-o Support for importing "raw" directory listings (containing just dir names)
- - for use in conjunction with the new "parent directory" option
-
-o User signatures can now be disabled on a per sub-board basis
-
-o New option to create lowercase drop file names for external programs
- (for better Unix file system compatibility)
-
-o Exports and imports newsgroup name as part of subs.txt format
-
-o Fixed bug that could occur if new user command shell was set to last
- configured command shell, and that shell was later deleted
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o All ctrl-keys (built-ins and hot-key events) use same the recursion
- protection mechanism now limiting them to a total maximum depth of 2
- - solves re-entrancy issues for hot-key events
-
-o DEL (ASCII 127) is treated the same as backspace (ASCII 8) in string
- input routines
-
-o When importing QWK and REP network packets, the corresponding
- data/qnet/<id>.in is only created when necessary
-
-o Improved message header display with sysop message scan 'OH' command
-
-o New sysop mail read command, 'H', used to display mail message headers
-
-o Converted SMB_CURMSG @-code to 1-based (cosmetic bugfix)
-
-o Added new @-code HOSTNAME, used to display current host name
- - may not always be the same as the INETADDR
-
-o New log entry created when the user pages the sysop to chat
-
-o Added Continue? questions during new user procedure to give user an opt-out
-
-o Creates user, msg_area, and file_area JavaScript objects during user logon
- and new user creation
-
-o Checks for node interruption during an outbound telnet gateway session
-
-o Unix-build creates external program (door) drop-files with CRLF-deliminated
- lines if not configured as 32-bit native
- - for DOSEMU/DOSCMD compatibility
-
-o trashcan() now delays 500 milliseconds after displaying the optional
- text/bad*.msg file
- - gives time for transmit buffer to clear before disconnecting
-
-o Fixed exception during termination of bbs_thread if subs/dirs were added in
- SCFG and the confg files were re-loaded (node(s) recycled) before shutdown
-
-o Baja FTP function fixes:
- - Removed extra crlf sent with FTP PASS command
- - Fixed bug causing intermittent bind failures on FreeBSD
- - Fixed active (non-PASV) mode file transfers
-
-o FOSSIL driver for NT-based operating systems (sbbsexec.dll) now reports
- I/O buffer fullness more accurately
- - fixes problem with FDSZ sending entire file then timing out while waiting
- for acknowledgement from client
-
-o One-byte-at-time external programs (e.g. LORD) should preform better on
- NT-based operating systems due to better interprocess communication
-
-o When debugging (logging) received telnet commands, sent commands are now
- logged too
-
-o QWKnet kludge line lengths up to 500 chars now supported
- - previously limited to 128 chars
-
-o Fixed bug that would change user #1's QWK settings when importing QWKnet
- packets
-
-o Removed log output during the packing/unpacking of messages for QWK nodes
-
-
-ADDFILES
-~~~~~~~~
-o Several bugs fixed since last 3.00 beta releases
-
-
-FILELIST
-~~~~~~~~
-o New version 3.00 port (for Win32 and Unix)
-
-
-SMBUTIL
-~~~~~~~
-o Messages posted via SMBUTIL now have the SENDERAGENT field set to
- AGENT_SMBUTIL to prevent the Synchronet mail server (or other programs)
- from bouncing undeliverable messages back to a "process"
-
-o Improved packmsgs() handling of failed deletion/renaming of temp files
- (occurs if the msgbase is open by another process at the time of packing)
- - the msgbase should no longer be left in a corrupted state if this occurs
-
-o Cosmetic changes to header dump routine
-
-o Creates a FIDOPID (program identifier) header field when storing messages
-
-o New command-line option (-d) to set default values for header fields
- (to, from, from_number, and subject) when importing messages
-
-
-CHKSMB
-~~~~~~
-o Now verifies header lengths match calculated header lengths
-
-o Displays more detail regarding corrupted data field offsets when used
- with the -e switch
-
-
-SBBSecho
-~~~~~~~~
-o Bugfix: FLO files were being truncated rather than appended
-
-o No longer writes the same (duplicate) bundle name to the FLO file if it's
- already listed
-
-o Now deletes BUNDLES.SBE when no longer needed (rather than truncate it)
- - hopefully eliminates FAQs about this file
-
-o OS/2 builds now available again (thanks Watcom!)
-
-o Now imports and exports TZUTC, MSGID, REPLYID, PID, and TID control fields
-
-o Sets "when written" time zone on imported messages based on TZUTC or
- TZUTCINFO kludge lines, if present
-
-o Tosser ID (TID) fields are created if it doesn't already exist
-
-o Fixed the creation of inter-zone outbound point directories for FLO mailers
-
-o Fixed importation of FLAGS ctrl line (was looking for "FLAGS:" not "FLAGS")
-
-o FLAGS and unrecognized kludge lines are now added to exported messages
-
-o Line feeds are ignored when converting non-ASCII chars for ASCII-only subs
-
-o Fixed case of mail message base (for Unix file systems)
-
-
-Services
-~~~~~~~~
-o Support for new "static" services
- - services that listen on a socket and accept their own connections/clients
- - requires option bit 1 (0x2) set in ctrl/services.cfg file
-
-o New global write() and writeln() methods to make it consistent with FTP and
- Web server global methods used to generate html (e.g. nodelist-html.js)
-
-
-Mail Server
-~~~~~~~~~~~
-o Uses hostname instead of inetaddr (usually the same) in SMTP cmds/responses
- and SMTP "Received" headers
-
-o Support for sender addresses that include comments (in parenthesis)
-
-o Increased read timeout from from 1 to 5 minutes
-
-o POP3 server actually checks the number of lines sent successfully and only
- marks the message as 'read' if all lines requested were sent successfully
-
-o Now stores original, unmodified RFC822: to, from, and reply-to header fields
-
-o Bounce-messages are now flagged as from AGENT_SMTPSYSMSG and messages from
- processes aren't bounced (preventing bounced message loops)
-
-o Reduced mail server cycle time from 5 to 2 seconds (frequency at which
- recycle semaphores are checked)
-
-o Added option to toggle logging of received responses (DEBUG_RX_RSP)
-
-o Much improved message bouncing:
- - delivery failure (bounce) messages now includes error details
- - error message text is no longer crammed into the bounce-message subject
- - the original subject is retained
- - fixed bug that could cause corruption after original message deletion
- - use of original reverse-path for bounced message delivery
-
-
-FTP Server
-~~~~~~~~~~
-o Improved string bounds checking
-
-o Fixed bug with continuous recycling
-
-o Now (optionally) echoes password attempt for unknown users
-
-o Increased select timeouts (from 1 to 5 minutes)
-
-o Increased recycle semaphore check frequency (from 5 to 2 seconds)
-
-o The reported "unix" file and directory modes more closely reflect
- the actual read/write permissions (FTP clients should ignore them anyway)
-
-o Added support for resumed uploads (using APPE or REST commands)
-
-o Fixed time display of files in local directory listings
-
-o CWD's to paths with trailing filenames now fail (as they should)
- - when IE fails to download a file, it attempts to CWD to the path, and if
- the CWD succeeds the subsequent requested paths were all wrong
-
-
-***********************************************************
-* What's New in Synchronet Version 3.10 Revision L (Beta) *
-***********************************************************
-
-General
-~~~~~~~
-o Timed events can be configured to run only on specific days of the month
- (example: the 1st and 15th of every month)
-
-o Eliminated harmless accept/select errors when shutting down servers
-
-o Win32 build now uses Critical Sections in place of Mutexes
- - Mutexe API routines are slower because they must enter the kernel
-
-o Now using thread-safe time functions in Unix builds
-
-o Now using thread-safe "real path" function in OpenBSD build
-
-o New command-line utility (makeuser) to add a user to the user database
- - run makeuser -? for usage instructions
-
-o Node window in SBBSCTRL no longer unnecessarily locks node.dab
- - eliminates locking/reading errors
-
-o QWK Bugfix: was always truncating MESSAGES.DAT, so appending to an existing
- QWK packet (pre-packed or aborted download) did not work at all (ever)
- - this also resulted in a side-effect of corrupted indexes (if enabled)
-
-o Beautified and sped-up (immensely) the unpacking of QWK network message
- packets
-
-o New optional ctrl/twitlist.cfg file contains, names (with wildcards) of
- users/authors whose posts will not be imported from QWK or FidoNet networks
-
-o Configurable directory for modified modules/scripts
-
-o Configurable directory for log files
-
-o Message sub-board and file directory internal codes can now be extended to
- 16 characters by using the new optional message group/file library
- "internal code prefix" - this feature allows sysops to easy create message
- and file areas with unique (non-conflicting) internal codes
-
-o Download notifications can now be disabled on a per-directory basis
-
-o New cross-platform graphical user interface (based on FLTK) for SCFG and
- ECHOCFG (run with "-g" to enable GUI interface)
-
-o New Unix installer - installs and builds source code from CVS or tgz files
- - thank Deuce for this neat-o program
-
-o New IRC client module (exec/irc.js) - again, thank Deuce
-
-o All TCP servers individually track and log the number of clients served
-
-o All TCP servers now detect and log client hostname aliases (canonical names)
-
-o Bugfix: TCP server's up-time root value is reset if the server thread is
- shutdown and restarted (excluding recycles)
-
-
-Control Panel (Win32 GUI)
-~~~~~~~~~~~~~~~~~~~~~~~~~
-o Bugfix: Configuration Wizard no longer fails to save configuration files
- if there is no existing mail message database (data/mail.*)
-
-o Servers are recycled/refreshed after completing Configuration Wizard
-
-o Fixed DNS Server address detection on systems with multiple NICs
-
-o File->Import/Export Settings menu options now prompt for path/filename
-
-
-Synchronet for UNIX
-~~~~~~~~~~~~~~~~~~~
-o Separately configurable ANSI and Dumb (non-ANSI) terminal values:
- ExternalTermANSI and ExternalTermDumb
-
-
-Telnet Server
-~~~~~~~~~~~~~
-o System password is now required to create the first user (sysop) account
-
-o Fixed problem detecting number of rows for Windows 2K/XP telnet client
- (was reporting 105 lines when used in a scrollable window)
- - fixed by Deuce
-
-o Screen-lines are no longer auto-detected (for ANSI terminals) at every
- "default config" menu prompt, but rather only when using the "Screen Length"
- option and selecting "Auto Detect"
- - solves problem with terminals that don't respond properly to the ANSI
- cursor position request
-
-o Ctrl-C now purges both input and output buffers (when appropriate)
-
-o Built-in ctrl key handling (Ctrl-C, Ctrl-T, Ctrl-U, etc) can be disabled
- with SCFG->System->Advanced->Control Key Pass-through
- - any keys specified in this bit-map will not be handled internally or by
- global hot key events
-
-o New toggle option for external programs, events, and message editors:
- - use Shell to Execute, forces command-line to be executed via system
- command shell (e.g. cmd.exe, bash/sh, etc.)
-
-o The periodic sending of Telnet Go-Ahead commands can now be disabled
- - This feature is useful for quickly detecting dropped connections
- - Unfortunately, some Telnet clients print/echo the Telnet GA command
-
-o Now sends Telnet DO/WILL BINARY TRANSMIT commands before file transfers
- - Fixes problem with some Unix telnet clients that don't do this themselves
-
-o ctrl/attr.cfg now support lower-case attribute character codes
-
-o Improved server shutdown detection in node threads
-
-o Short (single line) error log entry now includes last Win32 error value
-
-o Displays external netmail address before prompting to forward local mail
-
-o The 'F'ind text command while reading messages can now either show message
- headers only or entire text
-
-o Bugfix: files with on extension in filebase would corrupt listing display
-
-o Optional text/menu/msgtabs.* menu, displayed as the "tab bar" in the
- internal editor instead of the hard-coded tab bar
-
-o New FREESPACEK @-code to display free disk space in kilobytes
-
-o New SERVED @-code to report the number of clients served since started
-
-o Bugfix: telnet gateway now handles temporarily blocked sockets (retries)
-
-o Bugfix: occasional attribute mismatch when restoring saved line with ANSI
-
-o %s command-line specifier now represents the configured start-up directory
- when used in online external program (door) and timed event command lines
- - This is actually a cross-platform compatibility fix for Unix systems
- where '.' is not in the current search path
-
-o New default modules: newuser.js and logon.js to replace Baja equivalents
- - newuser.js optionally sends welcome e-mail to new users
- - logon.js prompts sysop to create guest account (calls makeguest.js)
-
-o New chkspace.js event module to check free disk space and e-mail warning
- to sysop when low
-
-
-JavaScript
-~~~~~~~~~~
-o Increased the default JavaScript heap size to 8MB
-
-o JavaScript heap size is configurable
- - JavaScriptMaxBytes key in the [Global] section of the sbbs.ini file
- - SBBSCTRL:File->Properties->Advanced->JavaScript Heap
-
-o console.attributes can now be set with an attribute string
- (Ctrl-A codes without the Ctrl-A escape characters)
-
-o New property: console.ctrlkey_passthru, bit-map specifying which control
- keys will not be handled internally or by global hot key events
-
-o New array, console.color_list[] contains sysop-configured attributes from
- ctrl/attr.cfg (which can now be extended with additional color definitions)
-
-o Timed events now have access to user objects (msg_area, file_area, etc)
-
-o Fixed MsgBase.put_msg_header() - no longer creates duplicate header fields
-
-o MsgBase.get/put msg header/body/tail functions can now access messages
- via message ID (rather than by offset or message number)
-
-o system.spamlog() now takes additional 'from' parameter (typically the SMTP
- reverse-path)
-
-o New system.freediskspacek property - free disk space in kilobytes
-
-o New system.logs_dir and system.mods_dir properties
-
-o Socket poll() method accepts a floating point timeout for fractional timeout
- values
-
-o bbs.sub_info() and dir_info methods now accept optional sub/dir argument
-
-o All bbs methods that accept sub/dir argument will now default to current sub
- or dir if not specified
-
-o New properties: bbs.batch_upload_total and bbs.batch_dnload_total
-
-o bbs.batch_download() now checks if download queue is empty, now returns BOOL
- instead of VOID
-
-o New methods: bbs.good_password(), bbs.select_shell(), bbs.select_editor()
-
-o Fixed msg_area.grp_list[].sub_list[].is_operator and is_moderated properties
- - were true if configured as blank in SCFG (should be false)
-
-o file_area.lib_list[].dir_list[].link property returns (as in v3.10j)
-
-o New properties: file_area.min_diskspace, user_dir, sysop_dir, and upload_dir
-
-o Renamed the File.delete() method to File.remove() - can't use JavaScript
- keyword as method name
-
-o New method: console.telnet_cmd(cmd,opt) - used to send a Telnet command to
- client (with optional 'opt' value)
-
-o New property: console.aborted (bool), true if user hit Ctrl-C to abort I/O
-
-o Renamed property: console.rio_abortable to console.abortable (no local I/O)
-
-o New global method: lfexpand(), converts line-feeds (LF) to carriage-return
- /line-feed pairs (CRLF end-of-line sequences) in strings
-
-o Bugfix: system.new_user(): if a sysop-configured default new user editor has
- terminal-type access requirements (e.g. ANSI), it will now work
-
-o Services now have access to user objects (e.g. msg_area, file_area, etc.),
- without requiring a false login() call
-
-
-SMBUTIL
-~~~~~~~
-o Added support for -i (ignore CRC) option, to override duplicate msg checking
-
-
-SBBSecho
-~~~~~~~~
-o The TID (Tosser ID) kludge line is only added when exporting messages
-
-o Adds FSP-1010 Via control code to packed NetMail messages
-
-o 0-byte bundles less than 24-hours old are not deleted or overwritten
- - allows unique bundle numbering if mailer truncates sent bundles
-
-o Unix versions expand sole LFs to CRLFs in NetMail created from text files
-
-o Unix version unpacks bundles with upper or mixed case extensions
-
-o Added log message for routed EchoMail bundles
-
-o Added support for ctrl/twitlist.cfg - optional twit list
-
-
-ADDFILES
-~~~~~~~~
-o Ignores ex-ASCII chars in filenames only when run in ASCII-only mode
- - support for foreign language chars in filenames
-
-o Added -L option to specify library name to limit Auto-ADD directory list
-
-o Strips whitespace off beginning of second line ext-desc in files.bbs
-
-o Reverted to the old (v2) method of preparing the file descriptions
- (compressing white-space, etc)
-
-
-FILELIST
-~~~~~~~~
-o Displays files with no extension without a '.'
-
-
-Mail Server
-~~~~~~~~~~~
-o Added support for external (native) mail processing commands that can modify
- a message's header, body, or recipient list, or reject the message with a
- specific error message based on its contents (SPAM filter, virus scan, etc)
- - may also be used for mailing lists, file requests, etc
- - see ctrl/mailproc.cfg for details
-
-o The current hostname is now also used in determing if a received e-mail is
- addressed to a local or external user
-
-o Better handling of misconfigured/missing DNS server address (for MX-lookups)
-
-o SPAM log now includes the SMTP reverse-path (address) as specified by client
-
-o Added option to enable DNSBL debug log output (MAIL_OPT_DNSBL_DEBUG)
-
-o Active client counter is incremented before (potentially lengthy) DNSBL
- lookups
-
-o dnsbl_exempt.cfg is now checked against the IP address and the hostname
- of the sending server (if either matches, the server is exempt)
-
-o No longer adds the Organization header field to messages received via SMTP
-
-o Now deletes attached file if MSG_KILLFILE aux attribute set
-
-o New log entry when a delivery failure notification message is created
-
-o Configurable maximum message size (in bytes) - default: 10MB
-
-o Now correctly handles (and rejects) mail headers > 64K in size
- - total length of all header fields for a single message cannot exceed 64K
-
-o Fixed failure to create delivery failure notification message:
- !BOUNCE ERROR -100 (msgbase not open) incrementing data allocation units
-
-
-FTP Server
-~~~~~~~~~~
-o SITE WHO command now reports total number of active FTP clients
-
-o Added SITE VER and SITE UPTIME commands
-
-o Added SITE RECYCLE and SITE RECYCLE ALL sysop-only commands
-
-o Fixed normal (non-PASV) file transfers on Unix when running as non-root user
- - if it can't bind ctrl_port-1, then it'll retry the bind using any port (0)
-
-o Now gives uploader credits/minutes upon subsequent downloads (as configured)
-
-o Now notifies the uploader of a file when the file is later downloaded
-
-o Data sessions now use non-blocking sockets to prevent occasional locked
- client sessions (noticed on Win9x only)
-
-/* End of V310_NEW.TXT */
diff --git a/docs/v311_jsnew.html b/docs/v311_jsnew.html
deleted file mode 100644
index 56c6b1082b471166d322a82b96d1c97938759ac4..0000000000000000000000000000000000000000
--- a/docs/v311_jsnew.html
+++ /dev/null
@@ -1,674 +0,0 @@
-<html>
-<head>
-<title>Synchronet JavaScript Object Model Reference</title>
-<STYLE>
- OL LI { cursor: hand; }
- UL LI { display: none;list-style: square; }
- .showList LI { display: list-item; }
-</STYLE>
-</head>
-<body>
-<font face=arial,helvetica>
-<h1>Synchronet JavaScript Object Model Reference</h1>
-Generated for <b>Synchronet v3.11a beta Debug</b>, compiled Dec 6 2003 19:56
-<br><font size=-1>
-Includes Properties and Methods added in Synchronet v3.11 only.
-</font>
-<ol type=square>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#global"><b>global</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#global_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#global_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#js"><b>js</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#js_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#js_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#system"><b>system</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#system_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#system_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#server"><b>server</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#server_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#client"><b>client</b></a> object
-<ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#user"><b>user</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#user_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#bbs"><b>bbs</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#bbs_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#bbs_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#console"><b>console</b></a> object
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#console_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#console_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#msg_area"><b>msg_area</b></a> object
-<ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#file_area"><b>file_area</b></a> object
-<ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#xtrn_area"><b>xtrn_area</b></a> object
-<ul>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#MsgBase"><b>MsgBase</b></a> class
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#MsgBase_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#MsgBase_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#File"><b>File</b></a> class
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#File_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#File_properties>properties</a>
-</ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-[+]  <a href="#Socket"><b>Socket</b></a> class
-<ul>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#Socket_methods>methods</a>
-<li onclick = 'this.className = (this.className == "showList") ? "defaultStyles" : "showList";'
- onselectstart = 'event.returnValue = false;'>
-<a href=#Socket_properties>properties</a>
-</ul>
-</ol>
-<h2><a name=global>global object</a>
-<br><font size=-1>Top-level functions and properties (common to all servers and services)</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>global</tt>
-<a name=global_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>log</b><td>string<td><tt>log([level,] value [,value])
-<td>add a line of text to the server and/or system log, <i>values</i> are typically string constants or variables, <i>level</i> is the debug level/priority (default: <tt>LOG_INFO</tt>)
-<tr valign=top><td><b>read</b><td>string<td><tt>read([count])
-<td>read up to count characters from input stream
-<tr valign=top><td><b>readln</b><td>string<td><tt>readln([count])
-<td>read a single line, up to count characters, from input stream
-<tr valign=top><td><b>write</b><td>void<td><tt>write(value [,value])
-<td>send one or more values (typically strings) to the server output
-<tr valign=top><td><b>writeln</b><td>void<td><tt>writeln(value [,value])
-<td>send a line of text to the console or event log with automatic line termination (CRLF), <i>values</i> are typically string constants or variables (AKA print)
-<tr valign=top><td><b>exit</b><td>void<td><tt>exit([number exit_code])
-<td>stop script execution, optionally setting the global property <tt>exit_code</tt> to the specified numeric value
-<tr valign=top><td><b>load</b><td>boolean<td><tt>load([object scope,] string filename [,args])
-<td>load and execute a JavaScript module (<i>filename</i>), optionally specifying a target <i>scope</i> object (default: <i>this</i>) and a list of arguments to pass to the module (as <i>argv</i>), returns <i>true</i> if the execution was successful
-<tr valign=top><td><b>yield</b><td>void<td><tt>yield([bool forced])
-<td>release current thread time-slice, a <i>forced</i> yield will yield to all other pending tasks (lowering CPU utilization), a non-<i>forced</i> yield will yield only to pending tasks of equal or higher priority. <i>forced</i> defaults to <i>true</i>
-<tr valign=top><td><b>ctrl</b><td>string<td><tt>ctrl(number or string)
-<td>return ASCII control character representing character passed - Example: <tt>ctrl('C') returns ''</tt>
-<tr valign=top><td><b>file_getname</b><td>string<td><tt>file_getname(string path)
-<td>returns filename portion of passed path string
-<tr valign=top><td><b>file_getext</b><td>string<td><tt>file_getext(string path)
-<td>returns file extension portion of passed path/filename string (including '.') or <i>undefined</i> if no extension is found
-<tr valign=top><td><b>file_getcase</b><td>string<td><tt>file_getcase(string filename)
-<td>returns correct case of filename (long version of filename on Win32) or <i>undefined</i> if the file doesn't exist
-<tr valign=top><td><b>file_rename</b><td>boolean<td><tt>file_rename(oldname, newname)
-<td>rename a file, possibly moving it to another directory in the process
-<tr valign=top><td><b>file_copy</b><td>boolean<td><tt>file_copy(source, destination)
-<td>copy a file from one directory or filename to another
-<tr valign=top><td><b>file_backup</b><td>boolean<td><tt>file_backup(string filename [,number level] [,bool rename])
-<td>backup the specified <i>filename</i> as <tt>filename.<i>number</i>.extension</tt> where <i>number</i> is the backup number 0 through <i>level</i>-1 (default backup <i>level</i> is 5), if <i>rename</i> is <i>true</i>, the original file is renamed instead of copied (default is <i>false</i>)
-<tr valign=top><td><b>file_utime</b><td>boolean<td><tt>file_utime(string filename [,access_time] [,mod_time])
-<td>change a file's last accessed and modification date/time (in time_t format), or change to current time
-<tr valign=top><td><b>file_touch</b><td>boolean<td><tt>file_touch(string filename)
-<td>updates a file's last modification date/time to current time, creating an empty file if it doesn't already exist
-<tr valign=top><td><b>dir_freespace</b><td>number<td><tt>dir_freespace(string directory [,unit_size])
-<td>returns the amount of available disk space in the specified <i>directory</i> using the specified <i>unit_size</i> in bytes (default: 1), specify a <i>unit_size</i> of <tt>1024</tt> to return the available space in <i>kilobytes</i>.
-<tr valign=top><td><b>socket_select</b><td>array<td><tt>socket_select([array of socket objects or descriptors] [,number timeout] [,bool write])
-<td>checks an array of socket objects or descriptors for read or write ability (default is <i>read</i>), default timeout value is 0.0 seconds (immediate timeout), returns an array of 0-based index values into the socket array, representing the sockets that were ready for reading or writing
-<tr valign=top><td><b>html_encode</b><td>string<td><tt>html_encode(string text [,bool ex_ascii] [,bool white_space] [,bool ansi] [,bool ctrl_a])
-<td>return an HTML-encoded text string (using standard HTML character entities), escaping IBM extended-ASCII, white-space characters, ANSI codes, and CTRL-A codes by default
-<tr valign=top><td><b>html_decode</b><td>string<td><tt>html_decode(string text)
-<td>return a decoded HTML-encoded text string
-<tr valign=top><td><b>word_wrap</b><td>string<td><tt>word_wrap(string text [,line_length])
-<td>returns a word-wrapped version of the text string argument, <i>line_length</i> defaults to <i>79</i>
-<tr valign=top><td><b>quote_msg</b><td>string<td><tt>quote_msg(string text [,line_length] [,prefix])
-<td>returns a quoted version of the message text string argumnet, <i>line_length</i> defaults to <i>79</i>, <i>prefix</i> defaults to <tt>" > "</tt>
-<tr valign=top><td><b>rot13_translate</b><td>string<td><tt>rot13_translate(string text)
-<td>returns ROT13-translated version of text string (will encode or decode text)
-<tr valign=top><td><b>base64_encode</b><td>string<td><tt>base64_encode(string text)
-<td>returns base64-encoded version of text string or <i>null</i> on error
-<tr valign=top><td><b>base64_decode</b><td>string<td><tt>base64_decode(string text)
-<td>returns base64-decoded text string or <i>null</i> on error (not useful for binary data)
-<tr valign=top><td><b>crc16_calc</b><td>number<td><tt>crc16_calc(string text)
-<td>calculate and return 16-bit CRC of text string
-<tr valign=top><td><b>crc32_calc</b><td>number<td><tt>crc32_calc(string text)
-<td>calculate and return 32-bit CRC of text string
-<tr valign=top><td><b>chksum_calc</b><td>number<td><tt>chksum_calc(string text)
-<td>calculate and return 32-bit checksum of text string
-<tr valign=top><td><b>md5_calc</b><td>string<td><tt>md5_calc(string text [,bool hex])
-<td>calculate and return 128-bit MD5 digest of text string, result encoded in base64 (default) or hexadecimal
-<tr valign=top><td><b>resolve_ip</b><td>string<td><tt>resolve_ip(string hostname)
-<td>resolve IP address of specified hostname (AKA gethostbyname)
-<tr valign=top><td><b>resolve_host</b><td>string<td><tt>resolve_host(string ip_address)
-<td>resolve hostname of specified IP address (AKA gethostbyaddr)
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>global</tt>
-<a name=global_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr><td><b>argc</b><td>number<td>number of arguments passed to the script</td>
-<tr><td><b>argv</b><td>array<td>array of argument strings (argv.length == argc)</td>
-<tr><td><b>errno</b><td>number<td>last system error number</td>
-<tr><td><b>errno_str</b><td>string<td>description of last system error</td>
-</table>
-<h2><a name=js>js object</a>
-<br><font size=-1>JavaScript execution and garbage collection control object</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>js</tt>
-<a name=js_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>eval</b><td>string<td><tt>js.eval(string script)
-<td>evaluate a JavaScript string in its own (secure) context, returning the result
-<tr valign=top><td><b>gc</b><td>void<td><tt>js.gc(bool forced)
-<td>perform a garbage collection operation (freeing memory for unused allocated objects), if <i>forced</i> is <i>true</i> (the default) a garbage collection is always performed, otherwise it is only performed if deemed appropriate by the JavaScript engine
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>js</tt>
-<a name=js_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>version</b><td>string
-<td>JavaScript engine version information (AKA system.js_version)
-<tr valign=top><td><b>auto_terminate</b><td>boolean
-<td>set to <i>false</i> to disable the automatic termination of the script upon external request
-<tr valign=top><td><b>terminated</b><td>boolean
-<td>termination has been requested (stop execution as soon as possible)
-<tr valign=top><td><b>branch_counter</b><td>number
-<td>number of branch operations performed in this runtime
-<tr valign=top><td><b>branch_limit</b><td>number
-<td>maximum number of branches, used for infinite-loop detection (0=disabled)
-<tr valign=top><td><b>yield_interval</b><td>number
-<td>interval of periodic time-slice yields (lower number=higher frequency, 0=disabled)
-<tr valign=top><td><b>gc_interval</b><td>number
-<td>interval of periodic garbage collection attempts (lower number=higher frequency, 0=disabled)
-<tr valign=top><td><b>gc_attempts</b><td>number
-<td>number of garbage collections attempted in this runtime - <small>READ ONLY</small>
-<tr valign=top><td><b>gc_counter</b><td>number
-<td>number of garbage collections performed in this runtime - <small>READ ONLY</small>
-<tr valign=top><td><b>gc_last_bytes</b><td>number
-<td>number of heap bytes in use after last garbage collection - <small>READ ONLY</small>
-<tr valign=top><td><b>bytes</b><td>number
-<td>number of heap bytes currently in use - <small>READ ONLY</small>
-<tr valign=top><td><b>max_bytes</b><td>number
-<td>maximum number of bytes available for heap
-</table>
-<h2><a name=system>system object</a>
-<br><font size=-1>Global system-related properties and methods</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>system</tt>
-<a name=system_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>username</b><td>string<td><tt>system.username(number)
-<td>returns name of user in specified user record <i>number</i>, or empty string if not found
-<tr valign=top><td><b>filter_ip</b><td>boolean<td><tt>system.filter_ip([protocol, reason, host, ip, username])
-<td>add an IP address (with comment) to the system's IP filter file
-<tr valign=top><td><b>get_node_message</b><td>string<td><tt>system.get_node_message(number node)
-<td>read any messages waiting for the specified node and return in a single string
-<tr valign=top><td><b>get_telegram</b><td>string<td><tt>system.get_telegram(number user)
-<td>returns any short text messages waiting for the specified user
-<tr valign=top><td><b>exec</b><td>number<td><tt>system.exec(command-line)
-<td>executes a native system/shell command-line, returns <i>0</i> on success
-<tr valign=top><td><b>popen</b><td>array<td><tt>system.popen(command-line)
-<td>executes a native system/shell command-line, returns array of captured output lines on success (<b>only functional on UNIX systems</b>)
-<tr valign=top><td><b>check_syspass</b><td>boolean<td><tt>system.check_syspass(string password)
-<td>compares the supplied <i>password</i> against the system password and return's <i>true</i> if it matches
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>system</tt>
-<a name=system_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>inet_addr</b><td>string
-<td>Internet address (host or domain name)
-<tr valign=top><td><b>lastuser</b><td>number
-<td>last user record number in user database (includes deleted and inactive user records)
-<tr valign=top><td><b>devnull</b><td>string
-<td>null device filename
-<tr valign=top><td><b>clock_ticks</b><td>number
-<td>amount of elapsed processor time in clock 'ticks'
-<tr valign=top><td><b>clock_ticks_per_second</b><td>number
-<td>number of clock ticks per second
-<tr valign=top><td><b>local_host_name</b><td>string
-<td>private host name that uniquely identifies this system on the local network
-</table>
-<h2><a name=server>server object</a>
-<br><font size=-1>Server-specifc properties</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>server</tt>
-<a name=server_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>interface_ip_address</b><td>string
-<td>IP address of bound network interface (<tt>0.0.0.0</tt> = <i>ANY</i>)
-<tr valign=top><td><b>options</b><td>number
-<td>bit-field of server-specific startup options
-<tr valign=top><td><b>clients</b><td>number
-<td>number of active clients (if available)
-</table>
-<h2><a name=client>client object</a>
-<br><font size=-1>Represents a TCP/IP client session</font>
-</h2>
-<h2><a name=user>user object</a>
-<br><font size=-1>Instance of <i>User</i> class, representing current user online</font>
-</h2>
-<p>To create a new user object: <tt>var u = new User(number)</tt></p>
-<table border=1 width=100%>
-<caption align=left><b><tt>user</tt>
-<a name=user_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>user</tt>
-<a name=user_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>new_file_time</b><td>number
-<td>new file scan date/time (time_t format)
-</table>
-<h2><a name=bbs>bbs object</a>
-<br><font size=-1>Controls the Telnet/RLogin BBS experience</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>bbs</tt>
-<a name=bbs_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>bbs</tt>
-<a name=bbs_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>time_left</b><td>number
-<td>time left (in seconds)
-<tr valign=top><td><b>event_time</b><td>number
-<td>time of next exclusive event (in time_t format), or 0 if none
-<tr valign=top><td><b>event_code</b><td>string
-<td>internal code of next exclusive event
-</table>
-<h2><a name=console>console object</a>
-<br><font size=-1>Controls the user's Telnet/RLogin terminal</font>
-</h2>
-<table border=1 width=100%>
-<caption align=left><b><tt>console</tt>
-<a name=console_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>inkey</b><td>string<td><tt>console.inkey([number mode] [,number timeout])
-<td>get a single key with optional <i>timeout</i> in milliseconds (defaults to 0, for no wait), see <tt>K_*</tt> in <tt>sbbsdefs.js</tt> for <i>mode</i> bits
-<tr valign=top><td><b>home</b><td>void<td><tt>console.home()
-<td>send cursor to home position (x,y:1,1)
-<tr valign=top><td><b>cleartoeol</b><td>void<td><tt>console.cleartoeol()
-<td>clear to end-of-line (ANSI)
-<tr valign=top><td><b>beep</b><td>void<td><tt>console.beep([number count])
-<td>beep for count number of times (default count is 1)
-<tr valign=top><td><b>pushxy</b><td>void<td><tt>console.pushxy()
-<td>save current cursor position (AKA ansi_save)
-<tr valign=top><td><b>popxy</b><td>void<td><tt>console.popxy()
-<td>restore saved cursor position (AKA ansi_restore)
-<tr valign=top><td><b>gotoxy</b><td>void<td><tt>console.gotoxy(number x,y)
-<td>Move cursor to a specific screen coordinate (ANSI), arguments can be separate x and y cooridinates or an object with x and y properites (like that returned from <tt>console.getxy()</tt>)
-<tr valign=top><td><b>up</b><td>void<td><tt>console.up([number rows])
-<td>Move cursor up one or more rows (ANSI)
-<tr valign=top><td><b>down</b><td>void<td><tt>console.down([number rows])
-<td>Move cursor down one or more rows (ANSI)
-<tr valign=top><td><b>right</b><td>void<td><tt>console.right([number columns])
-<td>Move cursor right one or more columns (ANSI)
-<tr valign=top><td><b>left</b><td>void<td><tt>console.left([number columns])
-<td>Move cursor left one or more columns (ANSI)
-<tr valign=top><td><b>getlines</b><td>void<td><tt>console.getlines()
-<td>Auto-detect the number of rows/lines on the user's terminal (ANSI)
-<tr valign=top><td><b>getxy</b><td>object<td><tt>console.getxy()
-<td>Returns the current cursor position as an object (with x and y properties)
-<tr valign=top><td><b>handle_ctrlkey</b><td>boolean<td><tt>console.handle_ctrlkey(string key [,number mode])
-<td>Call internal control key handler for specified control key, returns true if handled
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>console</tt>
-<a name=console_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>screen_columns</b><td>number
-<td>number of terminal screen columns (in character cells)
-<tr valign=top><td><b>terminal</b><td>string
-<td>terminal type description (e.g. 'ANSI')
-<tr valign=top><td><b>getstr_offset</b><td>number
-<td>cursor position offset for use with <tt>getstr(K_USEOFFSET)</tt>
-</table>
-<h2><a name=msg_area>msg_area object</a>
-<br><font size=-1>Message Areas</font>
-</h2>
-<h2><a name=file_area>file_area object</a>
-<br><font size=-1>File Transfer Areas</font>
-</h2>
-<h2><a name=xtrn_area>xtrn_area object</a>
-<br><font size=-1>External Program Areas</font>
-</h2>
-<h2><a name=MsgBase>MsgBase class</a>
-<br><font size=-1>Class used for accessing message bases</font>
-</h2>
-<p>To create a new MsgBase object: <tt>var msgbase = new MsgBase('<i>code</i>')</tt><br>where <i>code</i> is a sub-board internal code, or <tt>mail</tt> for the e-mail message base</p>
-<table border=1 width=100%>
-<caption align=left><b><tt>MsgBase</tt>
-<a name=MsgBase_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>get_msg_index</b><td>object<td><tt>MsgBase.get_msg_index([boolean by_offset,] number)
-<td>returns a specific message index, <i>null</i> on failure. The index object will contain the following properties:<br><table><tr><td><tt>subject</tt><td>CRC-16 of lowercase message subject<tr><td><tt>to</tt><td>CRC-16 of lowercase recipient's name (or user number if e-mail)<tr><td><tt>from</tt><td>CRC-16 of lowercase sender's name (or user number if e-mail)<tr><td><tt>attr</tt><td>Attribute bitfield<tr><td><tt>time</tt><td>Date/time (in time_t format)<tr><td><tt>number</tt><td>Message number<tr><td><tt>offset</tt><td>Byte-offset into header file</table>
-<tr valign=top><td><b>remove_msg</b><td>boolean<td><tt>MsgBase.remove_msg([boolean by_offset,] number_or_id)
-<td>mark message as deleted
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>MsgBase</tt>
-<a name=MsgBase_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>retry_delay</b><td>number
-<td>delay between message base open/lock retries (in milliseconds)
-</table>
-<h2><a name=File>File class</a>
-<br><font size=-1>Class used for opening, creating, reading, or writing files on the local file system<p>Special features include:</h2><ol type=disc><li>Exclusive-access files (default) or shared files<ol type=circle><li>optional record-locking<li>buffered or non-buffered I/O</ol><li>Support for binary files<ol type=circle><li>native or network byte order (endian)<li>automatic Unix-to-Unix (<i>UUE</i>), yEncode (<i>yEnc</i>) or Base64 encoding/decoding</ol><li>Support for ASCII text files<ol type=circle><li>supports line-based I/O<ol type=square><li>entire file may be read or written as an array of strings<li>individual lines may be read or written one line at a time</ol><li>supports fixed-length records<ol type=square><li>optional end-of-text (<i>etx</i>) character for automatic record padding/termination<li>Synchronet <tt>.dat</tt> files use an <i>etx</i> value of 3 (Ctrl-C)</ol><li>supports <tt>.ini</tt> formated configuration files<li>optional ROT13 encoding/translation</ol><li>Dynamically-calculated industry standard checksums (e.g. CRC-16, CRC-32, MD5)</ol></font>
-</h2>
-<p>To create a new File object: <tt>var f = new File(filename)</tt></p>
-<table border=1 width=100%>
-<caption align=left><b><tt>File</tt>
-<a name=File_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>rewind</b><td>boolean<td><tt>File.rewind()
-<td>repositions the file pointer (<i>position</i>) to the beginning of a file and clears error and end-of-file indicators
-<tr valign=top><td><b>iniGetSections</b><td>array<td><tt>File.iniGetSections([prefix])
-<td>parse all section names from a <tt>.ini</tt> file (format = '<tt>[section]</tt>') and return the section names as an <i>array of strings</i>, optionally, only those section names that begin with the specified <i>prefix</i>
-<tr valign=top><td><b>iniGetKeys</b><td>array<td><tt>File.iniGetKeys(section)
-<td>parse all key names from the specified <i>section</i> in a <tt>.ini</tt> file and return the key names as an <i>array of strings</i>
-<tr valign=top><td><b>iniGetValue</b><td>string<td><tt>File.iniGetValue(section, key [,default])
-<td>parse a key from a <tt>.ini</tt> file and return its value (format = '<tt>key = value</tt>'). returns the specified <i>default</i> value if the key or value is missing or invalid. will return a <i>bool</i>, <i>number</i>, <i>string</i>, or an <i>array of strings</i> determined by the type of <i>default</i> value specified
-<tr valign=top><td><b>iniGetObject</b><td>object<td><tt>File.iniGetObject(section)
-<td>parse an entire section from a .ini file and return all of its keys and values as properties of an object
-<tr valign=top><td><b>iniGetAllObjects</b><td>array<td><tt>File.iniGetAllObjects([name_property] [,prefix])
-<td>parse all sections from a .ini file and return all sections and keys an array of objects with each section's keys as properties of each section object, <i>name_property</i> is the name of the property to create to contain the section's name (default is <tt>"name"</tt>), the optional <i>prefix</i> has the same use as in the <tt>iniGetSections</tt> method, if a <i>prefix</i> is specified, it is removed from each section's name
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>File</tt>
-<a name=File_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>date</b><td>number
-<td>last modified date/time (in time_t format)
-<tr valign=top><td><b>network_byte_order</b><td>boolean
-<td>set to <i>true</i> if binary data is to be written and read in Network Byte Order (big end first)
-<tr valign=top><td><b>rot13</b><td>boolean
-<td>set to <i>true</i> to enable automatic ROT13 translatation of text
-<tr valign=top><td><b>uue</b><td>boolean
-<td>set to <i>true</i> to enable automatic Unix-to-Unix encode and decode on <tt>read</tt> and <tt>write</tt> calls
-<tr valign=top><td><b>yenc</b><td>boolean
-<td>set to <i>true</i> to enable automatic yEnc encode and decode on <tt>read</tt> and <tt>write</tt> calls
-<tr valign=top><td><b>base64</b><td>boolean
-<td>set to <i>true</i> to enable automatic Base64 encode and decode on <tt>read</tt> and <tt>write</tt> calls
-<tr valign=top><td><b>crc16</b><td>number
-<td>calculated 16-bit CRC of file contents - <small>READ ONLY</small>
-<tr valign=top><td><b>crc32</b><td>number
-<td>calculated 32-bit CRC of file contents - <small>READ ONLY</small>
-<tr valign=top><td><b>chksum</b><td>number
-<td>calculated 32-bit checksum of file contents - <small>READ ONLY</small>
-<tr valign=top><td><b>md5_hex</b><td>undefined
-<td>calculated 128-bit MD5 digest of file contents as hexadecimal string - <small>READ ONLY</small>
-<tr valign=top><td><b>md5_base64</b><td>undefined
-<td>calculated 128-bit MD5 digest of file contents as base64-encoded string - <small>READ ONLY</small>
-</table>
-<h2><a name=Socket>Socket class</a>
-<br><font size=-1>Class used for TCP/IP socket communications</font>
-</h2>
-<p>To create a new Socket object: <tt>load('sockdefs.js'); var s = new Socket(<i>type</i>)</tt><br>where <i>type</i> = <tt>SOCK_STREAM</tt> for TCP (default) or <tt>SOCK_DGRAM</tt> for UDP</p>
-<table border=1 width=100%>
-<caption align=left><b><tt>Socket</tt>
-<a name=Socket_methods> methods</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Returns</font>
-<th align=left width=200>
-<font color="white">Usage</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>bind</b><td>boolean<td><tt>Socket.bind([port] [,ip_address])
-<td>bind socket to a TCP or UDP <i>port</i> (number or service name), optionally specifying a network interface (via <i>ip_address</i>)
-<tr valign=top><td><b>connect</b><td>boolean<td><tt>Socket.connect(host, port [,timeout])
-<td>connect to a remote port (number or service name) on the specified host (IP address or host name), default <i>timeout</i> value is <i>10.0</i> (seconds)
-<tr valign=top><td><b>sendBin</b><td>boolean<td><tt>Socket.sendBin(number value [,number bytes])
-<td>send a binary integer over the socket, default number of bytes is 4 (32-bits)
-<tr valign=top><td><b>recvfrom</b><td>object<td><tt>Socket.recvfrom([bool binary] [,maxlen or int_size])
-<td>receive data (string or integer) from a socket (typically UDP)<p>returns object with <i>ip_address</i> and <i>port</i> of sender along with <i>data</i><p><i>binary</i> defaults to <i>false</i>, <i>maxlen</i> defaults to 512 chars, <i>int_size</i> defaults to 4 bytes (32-bits)
-<tr valign=top><td><b>recvBin</b><td>number<td><tt>Socket.recvBin([number bytes])
-<td>receive a binary integer from the socket, default number of bytes is 4 (32-bits)
-</table>
-<br>
-<table border=1 width=100%>
-<caption align=left><b><tt>Socket</tt>
-<a name=Socket_properties> properties</a>
-</b></caption>
-<tr bgcolor=gray>
-<th align=left width=100>
-<font color="white">Name</font>
-<th align=left width=100>
-<font color="white">Type</font>
-<th align=left>
-<font color="white">Description</font>
-<tr valign=top><td><b>error</b><td>number
-<td>error status for the last socket operation that failed - <small>READ ONLY</small>
-<tr valign=top><td><b>is_writeable</b><td>boolean
-<td><i>true</i> if socket can accept written data - <small>READ ONLY</small>
-<tr valign=top><td><b>network_byte_order</b><td>boolean
-<td><i>true</i> if binary data is to be sent in Network Byte Order (big end first), default is <i>true</i>
-</table>
-<p><small>
-Totals: 43 properties, 68 methods
diff --git a/docs/v311_new.html b/docs/v311_new.html
deleted file mode 100644
index 3d84c572569de34d2539d2f363a6e9dc29d49419..0000000000000000000000000000000000000000
--- a/docs/v311_new.html
+++ /dev/null
@@ -1,375 +0,0 @@
-<html>
-<head>
-<title>What's New in Synchronet v3.11 (Change History)</title>
-</head>
-<body>
-<font face=Arial,Helvetica>
-<h1 align=center>What's New in Synchronet v3.11</h1>
-<h2>Contents</h2>
-<ul>
-<li>Platform-Specific Changes
-<ul>
- <li><a href=#win32>Win32</a>
- <ul>
- <li><a href=#sbbsctrl>Synchronet Control Panel (GUI)</a>
- </ul>
- <li><a href=#unix>UNIX</a>
- </ul>
-<li><a href=#servers>Servers</a>
-<li><a href=#scfg>SCFG</a>
-<li><a href=#telnet>Telnet/RLogin</a>
-<li><a href=#ftpsrvr>FTP Server</a>
-<li><a href=#mailsrvr>Mail Server</a>
-<li><a href=#services>Synchronet Services</a>
-<li><a href=#javascript>JavaScript-Related Changes</a>
-<ul>
- <li><a href=#jsobjs>Object Model</a>
- <li><a href=#jsexec>JSexec</a> (Brand New!)
- </ul>
-<li><a href=#sbbsecho>SBBSecho</a>
-<li><a href=#misc>Miscellaneous</a>
-</ul>
-
-<h2><a name=win32>Win32-specific Changes</a></h2>
-<ul>
-<li>Switched from Win32 Mutex to xpdev pthread_mutex_t (which is implemented
-using Win32 critical sections) - faster, lighter weight
-<li>Doubled the size of the Telnet/RLogin I/O ring buffers from 10000 to 20000 bytes. This allows
-for up to 10000 byte blocks from external programs with plenty of room for
-telnet IAC, CRLF, or color-code expansion. Win32 named pipes, for example,
-will send up to 8096 byte blocks (before CR to CRLF expansion).
-Size of Win32 named pipes now specified (override 4K default).
-Using WaitForSingle/MultipleObject now to detect terminated processes
-(rather than looping on GetExitCodeProcess with sleep/yield).
-Using WaitForMultipleObjects to immediately continue loop on remote input
-(terminate 100ms wait) - experiments with local output_event (set by
-sbbsexec.dll on writes) yielded no perceived performance improvement
-(and named pipes, for example, would not benefit from such a mechanism).
-</ul>
-
-<h2><a name=unix>UNIX-specific Changes</a></h2>
-<ul>
-<li>New sysop monitor/control application for UNIX (src/sbbs3/umonitor)
-<li>Several filename case-insensitivity fixes for Unix file systems
-<li>Changed default DOSemu path on Linux to /usr/bin/dosemu.bin (per runderwo)
-<li>Signals should work correctly in Linux (Finally!)
-<li>Fix stack overflow in JS on FreeBSD - s3 shell now runs
-<li>Installer: -f option now enables FTP-verbose (debug) mode (-v is already in use)<br>
--n option now disables FTP-download of distribution list
-</ul>
-
-<h2><a name=sbbsctrl>Synchronet Control Panel (Win32 GUI) Specific Changes</a></h2>
-<ul>
-<li>Configurable maximum log length (auto-truncation point)
-<li>Client window: Now prompts operator before filtering IPs
-<li>Client window: Changed popup menu option from "Close" to "Close Socket"
-<li>MailServer configuration dialog:
-Added AuthViaIpCheckBox which allows authentication (for relay) via POP3
-or other protocol within the last 60 minutes (this was previously always
-enabled if authenticated-relay was allowed, but now that we have real SMTP
-AUTH support, this less-secure method is optional)
-<li>Node window timer tick event now (again) locks node record before reading
-(but using a non-blocking locking call) - does not report lock or read errors.
-This is necessary due to the use of advisory locks on Unix nodes
-<li>Configuration Wizard can now accurately query the primary DNS server
-replaces old method (kludge) of shelling out and running "ipconfig /all"
-<li>Configuration Wizard now automatically converts Windows timezone to SMB format on new install.
-Supports non-standard timezones (as configured in SCFG
-<li>Use single left click to restore from tray icon, double-click has some weird
-problem where a click is sent to adjacent icons
-<li>Spy form window now clears the terminal when it detects a form-feed character
-(Ctrl-L)
-<li>Spy terminal window now auto-wraps
-<li>Added support for OutbufHighwaterMark and OutbufDrainTimeout "tweaking"
-registry keys
-<li>Created BBS->Preview menu item (to preview ANSI files)
-<li>Lots of new "File->Edit and BBS->Edit" file menu items to easily edit, preview,
-and compile various text files
-<li>Sysop chat: Added use of utime() to insure NFS/smbfs compatibility with node/chat.dab
-(shared-write) files.
-New look (green on black, System font) simulates Telnet interface.
-Ctrl-V (paste) and other unexpected control keys are now filtered
-</ul>
-
-<h2><a name=servers>All Servers</a></h2>
-<ul>
-<li>Silently-filtered IP address (using ip-silent.can) are truely silent now
-(no sounds or log entries)
-<li>New SemFileCheckFrequency value in .ini file (both global and per-server) (previously hard-coded to 2 seconds in most cases), defaults to 5 seconds
-<li>New table-driven 16-bit CRC calcution function (much faster)
-<li>Added support for new global TempDirectory key (used by BBS events thread
-and FTP server)
-<li>Added support for TCP_NODELAY socket option in ctrl/sockopts.cfg
-<li>Backup functions now renames/copies filename.ext to filename.#.ext rather than
-filename.ext.# (making the backup files easier to sort, copy, etc)
-</ul>
-
-<h2><a name=scfg>Synchronet Configuration Utility (SCFG)</a></h2>
-<ul>
-<li>Change name of "Sysop Chat Requirements" option to "Sysop Chat Override".
-Hopefully this more clearly describes what this feature is used for
-<li>Updated descriptions of file/byte ratio ARS keywords
-<li>fcopy function (used by backup function) releases time-slices every 10 kbytes
-<li>New System->Toggle Option: automatic toggle of daylight savings time bit in system
-timezone value (for display purposes only)
-<li>Bugfix: When importing a subs.txt into an existing message group (over existing subs
-with the same internal codes), the original pointer index is maintained. This
-fixes a problem with importing a subs.txt over existing sub-boards causing
-duplicate pointer indexes when the BBS is re-initialized
-</ul>
-
-<h2><a name=telnet>Telnet/RLogin Server</a></h2>
-<ul>
-<li>Ringbuf lib now supports optional highwater semaphore (used to control output
-block size average)
-<br>Default OutputHighwaterMark value to 1024
-<li>output_thread termination stats displays average block size in log
-<li>Now clears the screen before executing an external editor (assumes fullscreen).
-Solves problem with SyncEdit and Windows telnet.exe.
-<li>Added option to disable events thread entirely (in sbbs.ini and sbbsctrl checkbox)
-<li>No longer converts filenames to uppercase before adding to or retrieving from
-file databases
-<li>Bugfix: Threading while in reading messages in "find mode" didn't work
-<li>Bugfix: JavaScript User class was using temporary scfg pointer which would be overwritten
-by subsequent logins on other nodes. When the other nodes logged off, the
-pointer was bad so a call to the User constructor would cause a segfault
-<li>Fix for e-mail attachments uloaded with Unix rz: if attached file isn't found in upload dir, but is found in
-temp dir, move it
-<li>New 32-bit ports of ANS2MSG and MSG2ANS (to convert files to/from ANSI and Ctrl-A format),
-now named ANS2ASC and ASC2ANS (to reduce new sysop confusion)
-<li>ctrl/text.dat BulkUploadDescPrompt now displays file size in kilobytes rather than bytes
-<li>TUSER @-code now displays accurate number of users (not included deleted/inactive slots)
-<li>Upload events (testing files and extracting embedded descriptions) now run
-with EX_OFFLINE mode bit set (don't care if user hung-up)
-<li>Increased time-out (waiting for nodes) during exclusive events from 60 to 90
-minutes, allowing clock to be adjusted 60 minutes (auto-DST) without issue
-<li>Creates a log entry when time has been reduced due to upcoming event.
-<li>ctrl/text.dat ReducedTime entry now may display the time the event will run
-<li>Reintroduced EVENT @-code (date/time of pending exclusive event)
-<li>IRC command (from default chat menu module) now prompts for server and channel (with new default value)
-<li>LZH encode/decode routines are now thread-safe (no longer using global variables)
-<li>Using message number instead of time to determine which e-mails should be
-deleted after QWK-packing
-<li>Improved Guru realism, particularly when in "local chat" with Guru: Guru won't
-repeat himself/herself and waits for user to stop typing (including word wrap)
-before responding
-<li>Bugfix: DOSXTRN.RET is only used for non-native programs (run with DOSXTRN)
-<li>Don't allow new user's alias to match anything already in the ctrl/alias.cfg
-<li>Allow user to enter more than the maximum password length (currently 8 chars
-when verifying the password, alerts user to >8 char password errors
-<li>More descriptive error message if SHELL/COMSPEC environment variable can't be
-found
-<li>send_telnet_cmd() does nothing on an RLogin connection (RLogin clients do not
-use or recognize telnet commands)
-<li>Reduce the amount of disk I/O in privchat() loop - only check node.dab once
-every second of inactivity
-<li>Added use of utime() to insure NFS/smbfs compatibility with node/chat.dab
-(shared-write) files
-</ul>
-
-<h2><a name=ftpsrvr>FTP Server</a></h2>
-<ul>
-<li>Bugfix: in send_thread() that could send partial files if the last block was
-retried because of a EWOULDBLOCK error (new bug due to non-blocking socket use)
-<li>Bugfix: No longer stops send_thread when send() reports a short packet
-(still logs a error/warning message)
-<li>Only reports data send error if send returns < 1.
-Apparently its normal on Linux for send to send short data (on non-blocking
-sockets)
-<li>No longer converts filenames to uppercase before adding to or retrieving from
-file databases
-<li>Implemented support for directory exemption ARS (finally)
-<li>Support SITE EXEC command for sysop logins
-<li>Added new directory toggle option to prevent transfers to/from that directory
-to be included in the system's upload and download statistics
-<li>Bugfix: wasn't closing ctrl/ftpalias.cfg under some circumstances (file handle/descriptor leak)
-<li>Added current PID to FTP temporary filenames (for more uniqueness)
-<li>Gets current user information after each FTP command, making external changes
-to security, credits, etc. immediately effective
-<li>Removed unnecessary time-slice yields
-</ul>
-
-<h2><a name=mailsrvr>Mail (SMTP/POP3) Server</a></h2>
-<ul>
-<li>QWKnet NetMail messages can now routed over SMTP using qwk-id!user@domain addressing (only single hops are currently supported)
-<li>Bugfix: 100% CPU utilization in sendmail thread when no mail database exists
-<li>Bugfix: RSET and MAIL commands were not correctly resetting (truncating) the recipient list file
-<li>sockreadline() function terminates at sole LF (fix for broken TCP apps - e.g. some Perl mail script)
-<li>Support for folded RFC822 header fields
-<li>Support for SMTP authentication protocols: LOGIN (used by Outlook Express), CRAM-MD5, and PLAIN
-<li>New "SMTP AUTH via IP" toggle option (defaults to OFF) - this
-option must be enabled to allow POP-before-SMTP type authentication
-<li>Support for POP3 APOP authentication
-<li>POP3 server thread reads all msg indices and headers before reporting initial OK or ERR reponse after authentication
-<li>Strip control chars from received SMTP commands - apparently some newer
-spammer technique involves embedding a carriage return character in the
-MAIL FROM address
-<li>If an SMTP message is received for an address in the ctrl/spambait.cfg file,
-the message is refused and the IP address of the sender is added to ctrl/spamblock.cfg for later auto-blocking of spammers
-<li>An SMTP-authenticated client is automatically exempt from DNSBL-based mail
-tagging, ignoring, or reporting "bad user"
-<br>(DNSBL-based "session refusal" occurs before SMTP authentication can take place)
-<li>Added new option: DNSBL_CHKRECVHDRS which checks all of the Received:
-from header IPs against the DNS blacklists.
-<li>Added new mail server option: NO_NOTIFY, to disable user notification telegrams for received SMTP mail (for all users)
-<li>SMTP and POP3 servers now return termporarily failures if the mail database
-is currently locked (for packing)
-<li>Mail server now uses .ini-formatted recipient list file (much more flexible)
-<li>Added support for mail processing command-line specifers: %h, %i, and %u
-(see ctrl/mailproc.cfg for details). Fixed %v (version specifier)
-</ul>
-
-<h2><a name=services>Synchronet Services</a></h2>
-
-<h2><a name=javascript>JavaScript-specific Changes</a></h2>
-<ul>
-<li>Now using thread-safe build of Mozilla JavaScript Engine for improved reliability when multiple simultaneous JavaScripts modules are being executed
-<li>Upgraded JavaScript engine to JavaScript-C (SpiderMonkey) 1.5 RC 5a for improved relability
-<li>Static global objects are now created as read-only: prevents inadvertent
-reasignment by script author accidentally using object name as local variable
-<li>Bugfix: (finally) JavaScript object initialization segfaults when the JS runtime
-"max_bytes" value is insufficient for the number of configured items:
-by defining dynamically created objects and arrays as properties of child
-objects of the global object immediately after such objects are created,
-they are "implicitly rooted", protecting them from (unexpected) garbage
-collection. Now the initialization will simply fail with a nice "out of memory"
-error. This was a long-standing bug that rarely occurred in the wild
-<li>Bugfix: if a node record could not be unlocked, the JavaScript context
-initialization could segfault while creating the system.node_list array.
-<li>JavaScript context stack size is now configurable
-<li>Using JS_NewNumberValue for full 32-bit integer support (bitfields mostly)
-</ul>
-
-<h2><a name=jsobjs>JavaScript Object Model</a></h2>
-<ul>
-<li>Added support for ROT13 text string translation (encode or decode) as global and File class methods
-<li>Global method yield() method now accepts an optional boolean forced argument
-(default is true), a non-forced yield will not lower the CPU utilization of a
-busy loop, but will yield to tasks of equal or higher priority
-<li>Global method load() now clears pending exceptions before compiling script and returns
-bool (true if script compiled and executed without error). An error in the
-loaded script no longer terminates the calling script
-<li>Global strftime() now uses current time if not specified (without warning)
-<li>New global mtehod: ctrl() to return an ASCII control character (as a string)
-that represents the character string (or ASCII value) passed.
-Example: ctrl('C') returns '\3'
-<li>New global method: html_encode() which converts a passed buffer to HTML
-escaped text (using standard HTML character entities) - optionally converting
-IBM ex-ASCII chars too
-<li>New global methods: file_copy() and file_backup()
-<li>New global method: resolve_ip(), returns IP address (as string) of specified
-hostname
-<li>New global method: file_getname(), returns filename portion of path string
-<li>New global method: file_utime() to set a file's last-accessed and
-modification times to the specified times or the current time (if unspecified)
-<li>New global method: html_decode()
-<li>New global methods: word_wrap() and quote_msg()
-<li>New global methods: base64_encode() and base64_decode()
-<li>New global method: md5_calc(), returns base64 or hex-encoded MD5 digest of
-specified string
-<li>Renamed global methods: crc16(), crc32(), and chksum() to crc16_calc(),
-crc32_calc(), and chksum_calc()
-
-<li>New File properties: chksum, crc16, crc32, base64, md5_base64, and md5_hex
-<li>New File property: uue, when set to true, read and write methods
-automatically base64 encode and decode
-<li>New File property: base64, when set to true, read and write methods
-automatically uuencode and uudecode (respectively)
-<li>New File property: yenc, to enable automatic yEnc encode/decode on read and
-write calls
-<li>File.error property now resolves to errno if file is not open
-<li>File.read() now defaults to reading the entire file from the current file position
-<li>New File property: network_byte_order, for reading-from/writing-to big-endian
-binary files on little endian machines (e.g. PCs)
-<li>A whole suite of File.iniGet methods - really nice stuff for using .ini based
-config files for JS modules
-
-<li>New method: system.exec() which can be used to execute any native system/shell
-command from any JS-enabled system/service
-<li>New methods: system.get_node_message() and system.get_telegram()
-<li>New method: system.username() - returns name of specified user number
-<li>system.stats.total_users property now reports only active user records
-<li>New property: system.lastuser to get last user record number (number of user slots)
-<li>system.secondstr() now returns null if no argument specified
-
-<li>bbs.timeleft property is now an alias for time_left.
-<li>New property: bbs.event_time
-<li>Bugfix: bbs.smb_* properties (blank strings and wrong sub_num)
-
-<li>New method: console.handle_ctrlkey()
-<li>MsgBase.save_msg() method now support header and body args in either order.
-The other MsgBase.get/put methods now return null/false correctly if no msg
-id/offset/number was specified
-<li>MsgBase.savemsg() function now does auto-threading (reply chaining) if the thread_orig
-head field is initialized by the caller
-<li>MsgBase.savemsg() will look-up the thread_orig (via reply_id) if unspecified
-<li>MsgBase.savemsg() now supports LZH-compressed message bases
-<li>MsgBase header object (in put_msg_hdr and save_msg methods) supports new properties: to_org, replyto_org, to_agent, from_agent, and
-replyto_agent
-<li>New method: MsgBase.get_msg_index() to retreive *just* a message's index record
-(faster than retrieving a complete message header)
-<li>MsgBase.last_error property is now officially renamed to MsgBase.error
-(old name aliased for backwards compatibility)
-<li>Bugfix: MsgBase.retry_time property was being set as boolean rather than int
-<li>New MsgBase.retry_delay property (number of milliseconds between lock/read attempts
-
-<li>Socket.last_error property is now officially renamed to MsgBase.error
-(old name aliased for backwards compatibility)
-<li>New Socket.is_writeable property (read-only), TRUE if/when the socket writeable
-
-<li>msg_area, file_area, xtrN_area areas configured with non-blank access requirements will no longer be visible
-to scripts with no user logged in (e.g. fingerservice.js)
-<li>New msg_area.sub property that contains all the sub-boards the
-user has access to in a single object (associative array)
-<li>New file_area.dir property that contains all the file directories the
-user has access to in a single object (associative array)
-<li>New xtrn_area.prog object containing all external programs as properties
-(associative array)
-<li>Socket.recvline() method terminates at first linefeed even if its the first character of
-the string (for broken TCP apps that send LF-terminted lines)
-<li>Socket.connect() method now supports an optional timeout value parameter (in seconds)
-default is 10 seconds
-</ul>
-
-<h2><a name=jsexec>JSexec</a></h2>
-<ul>
-<li>This is a new program used to execute JavaScript modules in a separate process outside of Synchronet
-<br>(run <tt>jsexec -?</tt> for usage syntax)
-<li>Can be used to execute JavaScript timed events (e.g. newslink.js) in the background (asynchronous to other timed events)
-<li>Can be used to execute JavaScript modules (e.g. nodelist_html.js) as web server CGI scripts (using a 3rd party web server)
-<li>Can be used to execute some static Synchronet services (e.g. ircd.js) externally from Synchronet
-</ul>
-
-<h2><a name=sbbsecho>SBBSecho (FidoNet NetMail/EchoMail Program)</a></h2>
-<ul>
-<li>Added "Truncate Bundles" toggle option in ECHOCFG, adds TFS instead of KFS flag to
-bundle attachment netmail messages
-<li>Now adds 2+ packet data to packed netmail packets (for FLO mailers) - needed
-for proper point operation
-<li>Added NOCHECKPATH option (to .cfg file and ECHOCFG) to optionally disable circular
-path detection
-<li>If all uplinks are removed via areafix, free's uplink list and doesn't try to
-realloc it
-</ul>
-
-<h2><a name=misc>Miscellaneous</a></h2>
-<ul>
-<li>FIXSMB overhaul (v2.0): no-longer re-numbers message base by default.
-Instead, the index is sorted to guarantee message numbers are indexed
-sequentially. The message base may still be re-numbered using the -renumber
-command-line option (not recommended).
-The /m command-line option has been removed since the SMB_EMAIL status bit has
-been supported for many years now
-<li>Baja v2.33: Changed command-line options to use -opt instead of /opt (for better
-Unix compatibility)
-<br>Added support for -p, pause-on-error command-line option
-<li>ADDFILES now uses chk_ar() from userdat.c to select the correct file extractor
-based on the platform ARS (e.g. pkunzip for DOS/Win32 and unzip for Unix)
-</ul>
-
-<p align="right"><font face="Arial" size="1" , "Helvetica">Copyright � 2003 Rob
-Swindell <br>
- $Id$</font></p>
-
-</body>
-</html>
\ No newline at end of file
diff --git a/docs/v3cfgfaq.txt b/docs/v3cfgfaq.txt
deleted file mode 100644
index a33c8dd9139d5b08972ca5d3372f13fda3a97382..0000000000000000000000000000000000000000
--- a/docs/v3cfgfaq.txt
+++ /dev/null
@@ -1,364 +0,0 @@
- Answers to frequently asked questions re: configuring Synchronet Version 3
- by Rob Swindell (digital man), May 2000, last updated June 2003
-
-$Id$
-
-Q: I want to create custom menus. Is there any detailed documentation or
- samples regarding custom menus on Synchronet?
-A: Yes, see http://synchro.net/docs/customization.html,
- http://synchro.net/docs/baja.html and http://synchro.net/docs/js.html
- for details.
-
-Q: I seem to missing the menu files for non-default (Synchronet Classic)
- command shells on v3.10L-win32.
-A: These files were accidentally excluded from the v3.10L-win32 install.
- Download ftp://vert.synchro.net/Synchronet/menu.zip and extract (with
- directories) into your Synchronet text/menu directory.
-
-Q: How do I get on the Synchronet BBS List, http://synchro.net/sbbslist.html?
-A: The best way is to first join DOVE-Net, then run the Synchronet BBS List
- (SBL) door on *your* BBS and add an entry for your BBS. This entry should
- be automatically exported to the DOVE-Net SYNCDATA echo which will then be
- propogated to Vertrauen and every other BBS on DOVE-Net. The sbbslist.html
- page is automatically generated on Vertrauen every night at midnight
- (Pacific time), so wait a day or so for your entry to appear on the list.
- If it doesn't appear, verify that that your BBS entry was properly
- exported (as a message) to the SYNCDATA message area. The events that run
- SMB2SBL and SBL2SMB to import and export BBS entries should be configured
- by default. If they are not, see xtrn/sbl/sbl.doc for more details.
-
-Q: How do I get my BBS listed in the Instant-Message capable BBS list
- (ftp://ftp.synchro.net/sbbsimsg.lst)?
-A: First get your BBS on the Synchronet BBS List (sbbslist.html), and if your
- BBS is running the Synchronet SMTP server on port 25 (like it should) and
- the Synchronet Finger Service on TCP and UDP port 79, your BBS should
- automatically appear on the instant message list. If it is not, then
- verify that your SMTP and Finger services can be reached remotely (the
- ports aren't being blocked by a firewall or your ISP). This list
- is generated nightly on Vertrauen at the same time as the Synchronet BBS
- List, http://synchro.net/sbbslist.html.
- See docs/imsgdocs.txt for more details.
-
-Q: How do I join DOVE-Net?
-A: If you've installed v3.10, Telnet to vert.synchro.net and create a new
- account for your QWKnet transfers (using your system's QWK-ID for the user
- name), then edit your "Call-out Command Line" in SCFG->Networks->QWK->Hubs
- ->VERT: replace "YOURPASS" with the password you used when creating your
- QWKnet user account. Do NOT change anything else in the command-line!
- That's it! For more details, see docs/dove-net.txt.
-
-Q: What is my system's QWK-ID?
-A: This is normally an abbreviation of your BBS's name that YOU determine
- and configure in SBBSCTRL:BBS->Configure->Message Options. You may want to
- look at NODES.DAT in DOVE-NET.ZIP for any conflicts with other DOVE-Net
- systems' QWK-IDs.
-
-Q: How do I get my FTP server to work behind my firewall/NAT/router?
-A: See http://www.ncftpd.com/ncftpd/doc/misc/ftp_and_firewalls.html for
- details.
-
-Q: How do I disable the New User Feedback requirement?
-A: In sbbs v3.10-win32, run the Configuration Wizard and un-check the
- "Require new user feedback" checkbox. Otherwise, set SCFG->Nodes->Node 1
- ->Advanced Options->Validation User to "0".
-
-Q: What is the "!QWKTOMSG failed" or "Duplicate message" warnings in my
- Telnet/Event log while importing DOVE-Net QWK packets into my message
- areas?
-A: This warning indicates a duplicate message in your QWK packet was detected.
- Duplicate messages in the SYNCDATA echo are normal and you can disable the
- duplicate message checking for that echo in SBBSCTRL:Configure->Message
- Areas->DOVE-Net->SYNCDATA and the warnings should go away.
-
-Q: How do I join/setup a FidoNet Technology Network (FTN)?
-A: Use SBBSecho (included with Synchronet) to toss (export) and scan (import)
- your FidoNet bundles, packets, and NetMail (see
- http://synchro.net/docs/sbbsecho.html for details).
-
- You will also need a TCP/IP FTN transport program like Binkd, Internet Rex,
- Argus, Beemail, etc. Traditional Front-End Mailers (FrontDoor, InterMail,
- D'bridge, BinkleyTerm, etc) are NOT normally used for TCP/IP-based FTN
- transfers.
- See http://www.net229.ca/fidosetup/ for instructions on setting up
- Synchronet with the Argus 32-bit FidoNet mailer.
- I, personally, use Binkd for Win32, which you can find available for
- download on my BBS and the docs (what little there are) online.
-
-Q: Does anyone know of a good, stable newsgroup door I can download or buy?
- I would LOVE to have newsgroups on my board.
-A: I don't know of any doors, but I do know of several newsgroup<->fido
- gateway packages: newsgate, gigo, internet rex, and many others.
-A: You can also try MerlinSystem's NetXpress Usenet Gateway for Synchronet
- (nx-sync, it's free): http://www.binaryh.com/merlinsys/
-A: Synchronet v3.10 comes with NewsLink, an external JavaScript module for
- importing and exporting messages via NNTP (Network News Transfer Protocol).
- Just edit your ctrl/newslink.cfg file to get started.
-
-Q: How do I keep external programs (doors) from popping up windows and
- stealing the keyboard/mouse focus?
-A: Check SBBSCTRL:Telnet->Configure->Minimize Externals.
-
-Q: How do I set additional nodes for telnet access?
-A: Create the additional nodes in SBBSCTRL:BBS->Configure->Nodes if you
- haven't already done so (Version 3 uses the same configuration information
- from the first telnet node for all telnet nodes and the COM port/modem
- configuration information is ignored). Set SBBSCTRL:Telnet->Config->Last
- Node to highest node number you want available for telnet logins.
-
-Q: How do I add files to the file database?
-A: The easiest way is to use the ADDFILES utility which can automatically
- detect and import embedded descriptions (e.g. FILE_ID.DIZ). See the
- chapter in the sysop manual on "Adding files" and the ADDFILES utility
- chapter for details. No, a files.bbs list is not necessary for adding
- files. Use "ADDFILES * /DIZ" to search all directories for a new files.bbs,
- import any embedded descriptions (e.g. FILE_ID.DIZ), and delete the file.bbs
- after importing it. If you don't have a file list (e.g. files.bbs) to import
- just use "ADDFILES * /SZN" to search all directories for new files and use
- embedded (FILE_ID.DIZ) description files, if they exist.
-
-Q: Long filename support doesn't seem to fully functional.
-A: Support for files with long filenames (greater than the MS-DOS 8.3 format)
- is a work in the progress. There are two main issues:
- A: The current file database format only supports 8.3 filenames.
- B: The only X/Y/Zmodem file transfer program that currently works with
- Synchronet-Win32 is FDSZ, which is a 16-bit DOS programs (which therefore
- only supports 8.3 format filenames).
- Synchronet v3.10 will display long filenames, but the files must be added to
- the database using a means other than X/Y/Zmodem (at this time).
- The file database format is being replaced in v3.20 and will store long
- filenames as well as many other improvements.
- There is work being done to create a good 32-bit Winsock alternative to FDSZ
- that will support long filenames as well as consume less resources.
-
-Q: How do I enable forced upload/download ratios.
-A: By default, Synchronet utilizes a "credit" system, where a user typically
- earns credits by uploading files, posting messages, playing online games,
- etc. And downloading files requires a number of credits based on the size
- of the file.
-
- If you prefer to use a less flexible upload/download "ratio" system, you
- can do so by using the UDR (upload/download byte ratio) or UDFR
- (upload/download file ratio) ARS keywords in the Download Requirements of
- your file areas. These ARS keywords, like the PCR (post/call ratio) keyword
- use a specified minimum "percentage". So if you wish to enforce a 1:3
- upload/download ratio, then use "UDFR 33" for 33%, 3:4 ratio would be
- "UDFR 75" for 75%, 1:2 would be "UDFR 50" for 50%, etc.
- See http://synchro.net/docs/security.html for details on using ARS.
-
-Q: How do I allow users to send Internet e-mail from the BBS?
-A: See http://synchro.net/docs/message_section.html for details.
-
-Q: How do I disallow connections from specific host names or IP addresses
- (or ranges).
-A: Add the disallowed host names to your text/host.can file or IP addresses
- to your text/ip.can file. To disallow a range of IP addresses, use the ^
- wildcard character (e.g. "192.168.10.^"). To disallow a partial string in a
- host name, use the ~ wildcard character (e.g. "mofoisp.com~").
- As for v3.10, you can use the familiar '*' wildcard character
- (e.g. "*.aol.com" and "192.168.*").
-
-Q: When I run SBBSCTRL it asks me for the path to MAIN.CNF, but I don't have
- this file.
-A: You've installed the v3 upgrade without installing v2.3 first. Install
- Synchronet v2.3 (SBBS230?.ZIP) first, then apply the upgrade.
-
-Q: My CPU/kernel-utilization meter reports 100% when a user is online and
- entering a string/line of text.
-A: Set SBBSCTRL:BBS->Configure->Nodes->Node X->Toggle Options->Low Priority
- string input to "Yes" (where X is your first telnet node).
-
-Q: How do I allow anonymous logins to the Synchronet FTP Server?
-A: You need to create a Guest account on your BBS. Create a new user (login
- as "New" or use the User Editor included with v3.00b) with a user name of
- "Guest". Give this user the 'G' exemption and the 'G' restriction and
- delete the password for the account. You may also want to give the Guest
- account additional exemptions (e.g. L, P, T, etc).
-
-Q: How can I get door X to work?
-A: If the door wasn't specifically written to run on Synchronet (XSDK) or
- WWIV BBS Software (typically using CHAIN.TXT), then it must support FOSSIL
- communications (most popular doors support FOSSIL) and the door must be
- configured to use a FOSSIL driver (yes, you'll need to read the door's
- documentation files).
- The Synchronet FOSSIL driver is automatically configured and loaded when
- needed and ignores the COM port information used by doors, so configuration
- details such as COM port number and baud rate are irrelevant (you can just
- leave them set to their default values if the door configuration program
- allows them to be changed, or use COM1/38400 if it makes you happy).
-
-Q: How can I get this FOSSIL door to work?
-A: Make sure you have "Intercept I/O Interrupts" set to "No" for all FOSSIL
- doors in SBBSCTRL:BBS->Configure->External Programs->Online Programs
- (this includes Synchronet Match Maker v2.x).
- Make sure you have the appropriate startup directory, command line, and
- drop file options set in SCFG. See SBBSDOOR.TXT for specific instructions
- on setting up some popular door games (i.e. LORD, BRE, GlobalWar, TW2002).
- Make sure you DO NOT have any FOSSIL drivers loaded (including X00, BNU,
- ADF, COM/IP, WinFOSSIL, or NetModem) as they will conflict with
- Synchronet's FOSSIL driver.
- Make sure the door supports FOSSIL communications (read the door's docs)
- and that the door is configured to use a FOSSIL driver. Synchronet's
- FOSSIL driver is automatically configured and loaded when needed - there
- is nothing you need to do to install or load the Synchronet FOSSIL driver.
-
-Q: SyncEdit isn't working correctly.
-A: See the file SYEDTFAQ.TXT for details.
-
-Q: When I read messages on my v2.3c (or earlier) nodes, I sometimes get a
- garbled Message Attributes line.
-A: Synchronet v3 introduced a new message attribute (REPLIED) and this
- attribute is not currently supported in v2.3c. To work around this problem,
- remove one of the %s's from the MsgAttr line of your CTRL\TEXT.DAT file.
- I plan on releasing a v2.3d with this fix (and others) in the future).
-
-Q: I have Scroll-Lock on, but I'm still not available for chat page.
-A: Synchronet version 3 no longer uses Scroll-Lock to indicate sysop
- availability. Instead, there is a button on the SBBSCTRL tool bar and on
- the BBS menu to toggle the sysop availability for chat (added in v3.00b).
-
-Q: Is there any updated documentation for Synchronet v3?
-Q: The documentation I have (sysop.doc) appears to be for v2.3 for DOS/OS2?
-Q: Do you have documentation that is easier for me to view/print/etc?
-A: Yes, the documentation included in Synchronet v3.00b was the same old
- SYSOP.DOC (ASCII text file) created for Synchronet for DOS and OS/2 v2.30.
- It was reformatted in HTML and updated for version 3.00c (as of
- December 2000). You can view the progress of the Synchronet Documentation
- project at: http://synchro.net/docs. Contributors are welcome!
- The Synchronet HTML docs have been converted to PDF for your
- viewing/printing pleasure and can be downloaded @ vert.synchro.net.
-
-*** OLD (ver 3.0) ANSWERS TO FREQUENTLY ASKED QUESTIONS ***
-
-Q: The SBBSCTRL:BBS->Login menu option isn't working for me.
-A: The default local login command in v3.00 ("start telnet://localhost") does
- not work on NT-based OSes (including Win2K and WinXP). If you're running
- v3.00, run REGEDIT and go into
- HKEY_CURRENT_USER\Software\Swindell\Synchronet Control Panel
- and change "LoginCommand" to "telnet localhost" or "mtel localhost" or
- whatever your favorite telnet client is.
-
- If you're running v3.10e or later, then the "start telnet://localhost"
- command line should work (start up your registered telnet client).
-
-Q: The SBBSCTRL:BBS->Configure menu option isn't working for me.
-A: SCFG and SCFG32 are console-mode programs that only work in an 80x25
- console window. If you're seeing the message "USCRN failed!" that means
- you probably have your default console window set to a dimensions larger
- than 80x25.
-
- You can fix this on Windows NT/2K/XP by adjusting the properties of your
- System32\command.pif file. Make sure "restore settings at startup"
- (under the "Screen" tab) is not checked. Also, make sure the screen buffer
- size is no larger than the screen window size (80x25).
-
-Q: How come some of the times diplayed are off by exactly one hour?
-A: In v3.10, try setting SCFG->System->Toggle Options->Use Local/System Time
- Zone to "Yes". That *should* fix the problem.
-A: There is a time-zone bug in the Microsoft Visual C++ run-time library I'm
- using in Synchronet v3 related to day-light savings time. Those of you
- using v3 in a timezone which has daylight savings, may see a different time
- in the BBS (ctrl-T for example) than you do in SBBSCTRL or your system tray.
-
- You can fix the problem by removing Windows' knowledge of daylight savings
- altogether (which I think is a dumb idea to begin with). You need to run
- TZEDIT which is included on the Win98 CD in the tools\reskit\config
- directory. It's included with Win95 OSR2 in the Admin\Apptools\Tzedit
- directory. Anyway, run tzedit, select your time-zone from the list (it
- should already be selected), click the "Edit" button, and UN-CHECK the
- "Automatically set Daylight Savings Time" check box. Then clck OK, then
- click CLOSE.
-
- Now, you need to RE-SELECT the time-zone by double-clicking the time in your
- system-tray (lower right corner) or by re-selecting the time zone in the
- control panel. Now when you run Synchronet and user logs on (for example),
- the times should all be correct.
-
-Q: I get an error message that contains "file: c:\src\sbbs3\etc" or something
- similar but I do not have Synchronet installed on drive C or that path does
- not exist?
-A: The "Source" or "File" portion of the error message is for the author's
- reference only and has nothing to do with your Synchronet configuration. The
- file path in question was the original source code file where the error
- occured, which you do not need to concern yourself with (unless you are
- modifying the source code). Send the ENTIRE error message (as shown in your
- data/error.log file) to the author if you still have any questions or
- concerns that aren't answered here or in the sysop documentation.
-
-Q: My long filenames aren't appearing correctly on the BBS?
-A: The Synchronet file database currently only supports the DOS 8.3 naming
- format. Longer filenames will be shown in their Micros~1 mangled form.
- The Synchronet FTP server does automatically detect and display long
- filenames, however. Long filenames will be supported in the BBS/Telnet
- server in a future release (v3.10).
-
-Q: File transfers (DSZ) aren't working.
-A: You need to use FDSZ (FOSSIL version of DSZ) in place of DSZ:
- 1. Verify you have FDSZ.EXE in your Synchronet EXEC directory.
- 2. Change the command lines in SBBSCTRL:BBS->Configure->File Options->
- Transfer Protocols from "%!dsz ..." to "%!fdsz ...".
-A: If you're using an NT-based OS (including Win2K and WinXP), you'll need
- to upgrade to v3.10e or later to get the fix for Zmodem transfers.
-
-Q: Why do I get an SBBS.DLL error about missing GetDiskFreeSpaceEx?
-A: You're attempting to run Synchronet v3.0 on pre-OSR2 Windows 95 or Windows
- NT 3.x. Support for pre-OSR2 Windows 95 was added in Synchronet v3.00c.
- See http://www.synchro.net/platforms.html for a matrix of supported
- platforms.
-
-Q: Can I run version 3 under Windows NT4/2000?
-A: The first beta release (v3.00a) did not include a FOSSIL/DOS interrupt
- driver for NT/2000, so only Windows 95/98 was fully supported. Version
- 3.00b includes a FOSSIL/DOS interrupt driver for NT4/2000. If running under
- NT4/2000, see NTREADME.TXT for configuration details.
-
-Q: How do I get Synchronet to create a DOOR32.SYS drop file?
-A: In v3.10, you just select "Door32.sys" from the drop file list.
-
-Q: How do I tell Synchronet that a program is 32-bit?
-A: Add the program's base filename to SBBSCTRL:BBS->Configure->External
- Programs->OS/2 Program List (this is actually the native 32-bit program
- list). If you specified the executable file extension (e.g. ".exe") on
- the program's command-line, then you'll also need to include the
- filename with the extension in the 32-bit Program List.
- In v3.10, you just set "Native Executable" to "Yes".
-
-Q: What is SCFG?
-A: The Synchronet Configuration Utility (exec/scfg.exe). This 16-bit
- console/text-mode program is left-over from Synchronet v2 and is still used
- (as of v3.0) to configure many of the aspects of Synchronet v3
- (SBBSCTRL:BBS->Configure). See http://synchro.net/docs/system_config.html
- for details.
-
- There is also a 32-bit version of SCFG, SCFG32.EXE, that should be used in
- place of SCFG.EXE when more than a few hundred kilobytes of memory are
- required for configuration information (typically, for large numbers
- of message areas).
-
- You can change the program and command-line used with the
- SBBSCTRL:BBS->Configure menu option: in v3.00, run REGEDIT, and change
- HKEY_CURRENT_USER\Software\Swindell\Synchronet Control Panel\ConfigCommand
- or in v3.10, go to SBBSCTRL:File->Properties. Change the string to
- "%sSCFG32 %s" (removing the "/t2") to utilize the 32-bit version of SCFG.
-
- You can run SCFG/SCFG32 from the command-line by specifying the path to your
- Synchronet CTRL directory as the first parameter
- (e.g. "c:\sbbs\exec\scfg32 c:\sbbs\ctrl"). When running the 16-bit version of
- SCFG under Windows, it is highly recommended to use the "/t2" command-line
- switch to yield Windows time-slices.
-
- SCFG and SCFG32 only work in 80x25 text windows (on Win32-based OSes).
- SCFG will fail with a "USCRN failed!" error message when run in a non-80x25
- window.
-
- ** UPDATE **
- SCFG.EXE v3.10 (included with Synchronet v3.10g and later) is 32-bit;
- there is no more SCFG32.EXE (you can safely delete this file). Also, SCFG.EXE
- is no longer limited to 80x25 text windows.
-
- If you find SCFG is running in a Window where not all of the application is
- visible, add "-l25" to your SCFG command-line to force it to 25-line mode.
-
-As always, see the documentation if you have any questions that aren't
-answered here: http://synchro.net/docs
-
-/* End of V3CFGFAQ.TXT */
diff --git a/docs/versions.hst b/docs/versions.hst
deleted file mode 100644
index 18286e27424ba412fea07a8aff5849ab28126c09..0000000000000000000000000000000000000000
--- a/docs/versions.hst
+++ /dev/null
@@ -1,30 +0,0 @@
-Synchronet Version Number History/Release Dates
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-1A08 05/29/92 First commerical release
-1A09 06/02/92 Bug fixes
-1A10 06/25/92 QWKnet, Alternate file paths, bi-dir QWK/REP, overlaid EXE only
-1A11 07/01/92 Bug fixes
-1A12 07/19/92 DESQview time-slice API, active nodes displayed at WFC, bug fixes
-1A13 08/03/92 Enhanced MODUSER.DAT, enhanced DESQview performance, bug fixes
-1B00 09/25/92 Multiple command sets, private node-to-node chat, FidoNet
-1B01 01/23/93 RIP, PostLink (UTI), quoting, FAX detection, QWKnet file xfers
-1B02 02/05/93 Reads DOOR.SYS
-1B03 03/11/93 Multiple CDROM drives, PCBOARD.SYS and USERS.SYS, Free K per Day
-1B04 04/30/93 EDITOR.INF, QUOTES.TXT, SFDOORS.DAT, CID, QWK FREQs, threading
-1B05 06/01/93 Bug fixes
-1C00 08/26/93 DIZ, ARS, dupe chking, @-Codes, reg key, WIN/OS2 time-slice API
-1C01 11/21/93 DigiBoard, RX flow ctrl, chat actions, file ratios, dumb modems
-1C02 11/30/93 Command line CID info, bug fixes
-200A 06/02/94 SMB, Baja, FOSSIL, 115.2k DTE, swapping, blind uploads, bulkmail
-200B 06/25/94 QWK *logons, STR_CMDS.BIN, bug fixes
-200C 08/20/94 SCFG modem config database, bug fixes, compiled w/Borland C v4.0
-200D 08/21/94 Recompiled with Borland C v3.1
-200E 08/24/94 Bug fix via patch (unsuccessful)
-200F 08/30/94 Bug fixes
-200G 09/09/94 Bug fixes
-210A 02/17/95 LZH compressed msg bases, QWK NetMail, split-screen pvt chat
-211A 03/18/95 Baja enhancements, MSGTMP editors, upload conversions, pre-QWK
-220A 08/31/95 WIP, major Baja enhancements, Multi-TEXT.DAT, SCFG32, LOGIN.BIN
-220B 09/27/95 External editor quote options and unlimited lines, bug fixes
-230A 05/30/97 Final release by Rob Swindell (FREEWARE - unlimited nodes)
diff --git a/docs/versions.txt b/docs/versions.txt
deleted file mode 100644
index 1ec1e1556f2aa0509c4c0504dc4a2588698198f2..0000000000000000000000000000000000000000
--- a/docs/versions.txt
+++ /dev/null
@@ -1,41 +0,0 @@
-Versions of Utilities Included with this Synchronet Package
-===========================================================
-
-The "Filename" column specifies the program filename or sub-directory.
-The "Vers" column indicates the version number of the program.
-The "SBBS" column indicates the SBBS package when the program was last updated.
-The "Description" column is a description of the program.
-
-Filename Vers SBBS Description
--------- ---- ---- -------------------------------------------------------
-UTI* 2.23 220A UTI driver set for PostLink v1.05+
-ADDFILES 2.22 220B Add files to database from DOS prompt or BAT file
-DELFILES 1.01 220B Delete files from database or disk from DOS prompt
-FILELIST 2.10 220A Generate ASCII file listings of file directories
-DUPEFIND 1.01 210A Finds duplciate file names in file directories
-AUTONODE 2.00 200A Find first available node for local logon
-BAJA 2.01 220B Command shell/module (EXEC\*.SRC) compiler
-NODE 1.03 1B03 Node display/control utility
-SLOG 1.01 210A System/node statistics log viewer
-DSTSEDIT 1.01 200A System/node daily statistics editor
-ANS2MSG 1.06 220A ANSI to Ctrl-A conversion utility (for ASC/MSG files)
-MSG2ANS 1.03 200A Ctrl-A to ANSI conversion utility
-MLABELS 2.11 220A Generate mailing labels from Synchronet user data
-TONE 1.01 200A Tone generation utility (external chat pager)
-DBCS 1.00 1C01 DigiBoard channel status utility
-USER 1.00 1A12 Pull specific user logons out of DATA\LOGS\*.LOG files
-ALLUSERS 2.11 220A Bulk command line user editor
-QWKNODES 1.20 220A QWKnet Node/Route/User list generator
-CHKSMB 1.24 220A Checks Synchronet message base(s) for corruption
-FIXSMB 1.22 220A Rebuilds Synchronet message base index and alloc files
-SMBUTIL 1.24 220A Message base utility for maintaining and packing
-SMBACTIV 1.00 210A Displays message base activity (users reading subs)
-SYNCEDIT 2.05 220B SyncEdit external message editor (Unregistered)
-SBBSECHO 1.12 220B FidoNet EchoMail import/export program (Unregistered)
-XTRN\SDK 2.34 220B External program software developer's kit (Freeware)
-XTRN\SBJ 2.31 220A Synchronet Blackjack Game with C source code (Freeware)
-XTRN\SBL 1.36 220A Synchronet BBS List Door with C source code (Freeware)
-XTRN\SCB 1.32 220A Synchronet Callback Verifier (Unregistered)
-XTRN\SMM 1.31 220B Synchronet Match Maker (Unregistered)
-XTRN\SCP 2.30 200A Supernet Centipede (Freeware)
-XTRN\DPOKER 1.40 200G Domain Poker Multi-Player Online Game (Unregistered)
diff --git a/docs/web site.url b/docs/web site.url
deleted file mode 100644
index c86c6054885b3252fa0a3bf6b5e97660bac4a6a0..0000000000000000000000000000000000000000
--- a/docs/web site.url
+++ /dev/null
@@ -1,5 +0,0 @@
-[DEFAULT]
-BASEURL=http://www.synchro.net/
-[InternetShortcut]
-URL=http://www.synchro.net/
-Modified=10080409EFB3C2018A
diff --git a/exec/GNUmakefile b/exec/GNUmakefile
deleted file mode 100644
index 15a39ae9b3b9e420327a5a08fe4e85a270332623..0000000000000000000000000000000000000000
--- a/exec/GNUmakefile
+++ /dev/null
@@ -1,46 +0,0 @@
-# Synchronet Baja Module Makefile (GNU make)
-
-# Requires Baja v2.20+
-
-# @format.tab-size 8, @format.use-tabs true
-
-# $id$
-
-ifndef BAJAPATH
- BAJAPATH := ./baja
-endif
-
-all : bullseye.bin \
- chat_sec.bin \
- cntnodes.bin \
- default.bin \
- dir.bin \
- file_io.bin \
- ftp.bin \
- getimlst.bin \
- login.bin \
- major.bin \
- matrix.bin \
- mudgate.bin \
- noyesbar.bin \
- pcboard.bin \
- qnet-ftp.bin \
- ra_emu.bin \
- renegade.bin \
- rlogin.bin \
- sdos.bin \
- simple.bin \
- socktest.bin \
- str_cmds.bin \
- telgate.bin \
- type.bin \
- typehtml.bin \
- unixgate.bin \
- wildcat.bin \
- wiplogin.bin \
- wipshell.bin \
- wwiv.bin \
- yesnobar.bin
-
-%.bin : %.src $(BAJAPATH)
- @$(BAJAPATH) /q $<
diff --git a/exec/Makefile b/exec/Makefile
deleted file mode 100644
index 3e9107efe4d14b9817c73446ca32abff278b2261..0000000000000000000000000000000000000000
--- a/exec/Makefile
+++ /dev/null
@@ -1,42 +0,0 @@
-# Synchronet Baja Module Makefile (for Borland make)
-
-# Requires Baja v2.20+
-
-# @format.tab-size 8, @format.use-tabs true
-
-# $id$
-
-all : bullseye.bin \
- chat_sec.bin \
- cntnodes.bin \
- default.bin \
- dir.bin \
- file_io.bin \
- ftp.bin \
- getimlst.bin \
- login.bin \
- major.bin \
- matrix.bin \
- mudgate.bin \
- noyesbar.bin \
- pcboard.bin \
- qnet-ftp.bin \
- ra_emu.bin \
- renegade.bin \
- rlogin.bin \
- sdos.bin \
- simple.bin \
- socktest.bin \
- str_cmds.bin \
- telgate.bin \
- type.bin \
- typehtml.bin \
- unixgate.bin \
- wildcat.bin \
- wiplogin.bin \
- wipshell.bin \
- wwiv.bin \
- yesnobar.bin
-
-.src.bin:
- @baja /q $<
diff --git a/exec/areamgr.hlp b/exec/areamgr.hlp
deleted file mode 100644
index f5fdb2db5e30d28d6348ba37e98ee5eaf5f679a3..0000000000000000000000000000000000000000
--- a/exec/areamgr.hlp
+++ /dev/null
@@ -1,22 +0,0 @@
-Address all requests to 'SBBSecho' or 'AreaFix' (without quotes).
-Your Area Manager password goes on the subject line.
-
-In the body of the message to Area Manager:
-
-[+]<areaname> Connect an area
--<areaname> Disconnect an area
-%HELP Request this message
-%LIST Request a list of areas available to you
-%QUERY Request a list of areas to which you are connected
-%UNLINKED Request a list of areas to which you are not connected
-%COMPRESSION <type> Change the compression type (ARC/ARJ/LZH/PAK/SQZ/ZIP/ZOO)
-%PASSWORD <password> Change your AreaMgr password
-%RESCAN Request a rescan of newly added areas
-%ACTIVE Reconnect all temporarily disconnected areas
-%PASSIVE Temporarily disconnect all connected areas
-%FROM <address> Remote maintenance, must be the first command
-%+ALL Connect all available areas
-%-ALL Disconnect all areas
-[---] Everything below the tear line is ignored
-
-NOTE: A compression type of NONE is also supported for uncompressed packets.
diff --git a/exec/binarydecoder.js b/exec/binarydecoder.js
deleted file mode 100644
index 2578ef60bbac9c7b3ce1aa54e5574eb2ad0799d1..0000000000000000000000000000000000000000
--- a/exec/binarydecoder.js
+++ /dev/null
@@ -1,791 +0,0 @@
-// binarydecoder.js
-
-// Synchronet Binary Attachment Decoder
-// for UUE and yEnc encoded binary attachments
-// Requires Synchronet v3.10m or later
-
-// $Id$
-
-load("sbbsdefs.js");
-
-const REVISION = "$Revision$".split(' ')[1];
-
-printf("Synchronet Binary Decoder %s session started\r\n", REVISION);
-
-expire_parts=10; /* after x days */
-lines_per_yield=10;
-yield_length=1;
-completed_files=0;
-remove_msg=true;
-remove_non_bin_msgs=true;
-sub = new Array();
-
-var ini_fname = system.ctrl_dir + "binarydecoder.ini";
-file = new File(ini_fname);
-file.open("r");
-
-if(argc) {
- print("Searching for sub-boards matching pattern: " + argv[0]);
- re = new RegExp(argv[0],"i");
- for(i in msg_area.sub)
- if(re.test(i))
- sub.push(msg_area.sub[i]);
-} else
- sub = file.iniGetAllObjects("code","sub:");
-
-// get global ini settings here
-file.close();
-
-var stop_semaphore=system.data_dir+"binarydecoder.stop";
-file_remove(stop_semaphore);
-
-for(i in sub) {
-
- if(file_exists(stop_semaphore))
- break;
-
- msgbase = new MsgBase(sub[i].code);
- if(msgbase.open()==false) {
- printf("!ERROR %s opening msgbase: %s\r\n",msgbase.last_error,sub[i].code);
- delete msgbase;
- continue;
- }
-
- /* Read pointer file */
- ptr=0;
- ptr_fname = msgbase.file + ".sbd";
- ptr_file = new File(ptr_fname);
- if(ptr_file.open("r")) {
- ptr = parseInt(ptr_file.readln());
- ptr_file.close();
- }
- if(ptr<msgbase.first_msg)
- ptr=msgbase.first_msg;
-
- /* Default attachment dir */
- if(sub[i].attachment_dir==undefined)
- attachment_dir=msg_area.sub[sub[i].code].data_dir+"attach"
- else
- attachment_dir=sub[i].attachment_dir;
-
- /* Create attachment dir, if necessary */
- mkdir(attachment_dir);
- if(attachment_dir.substr(-1)!='/')
- attachment_dir+="/";
-
- /* save for later */
- msg_area.sub[sub[i].code].attachment_dir=attachment_dir;
-
- /* Read parts database */
- parts_fname=attachment_dir + "parts.db";
- parts_list=new Array();
- parts_file=new File(parts_fname);
- if(parts_file.open("r")) {
- parts_list=parts_file.iniGetAllObjects();
- parts_file.close();
- }
- parts_list_modified=false;
-
- printf("Scanning %s\r\n",msgbase.cfg.code);
-
- last_msg=msgbase.last_msg;
- for(;ptr<=last_msg && !file_exists(stop_semaphore);ptr++) {
-
- printf("%s %lu of %lu\r\n"
- ,msgbase.cfg.code, ptr, last_msg);
-
- hdr = msgbase.get_msg_header(
- /* retrieve by offset? */ false,
- /* message number */ ptr,
- /* regenerate msg-id? */ false
- );
- if(hdr == null)
- continue;
- if(hdr.attr&MSG_DELETE) /* marked for deletion */
- continue;
-
- file = new File(system.temp_dir + "binary.tmp");
-
- var part=0;
- var obj;
-
- print(hdr.subject);
- for(o in parts_list) {
- obj=parts_list[o];
- if(obj.codec=="uue"
- && (part=compare_subject(hdr.subject,obj.subject))!=0) {
- fname=obj.name.toString();
- file.uue=true;
- break;
- }
- }
- if(part && obj!=undefined) {
- prop=format("part%u.id",part);
- if(obj[prop]!=undefined) {
- printf("Part %u of %s already in database\r\n",part,fname);
- continue;
- }
- }
-
- body = msgbase.get_msg_body(
- false /* retrieve by offset */
- ,ptr /* message number */
- ,false /* remove ctrl-a codes */
- ,false /* rfc822 formatted text */
- ,false /* include tails */
- );
- if(body == null) {
- printf("!FAILED to read message number %ld\r\n",ptr);
- continue;
- }
-
- if(!file.open("w+b")) {
- printf("!ERROR %d opening/creating %s\r\n",file.error,file.name);
- continue;
- }
-
- var begin,end;
- var first_line=0;
-
- lines=body.split("\r\n");
-
- for(li=0;li<lines.length;li++) {
-
- if(lines_per_yield && li && (li%lines_per_yield)==0)
- sleep(yield_length);
-
- line=lines[li];
-
- if(file.uue && line=="end") {
- if(!part) {
- if(complete_file(file,fname,attachment_dir) && remove_msg) {
- if(!msgbase.remove_msg(ptr))
- printf("!FAILED to remove message number %ld\r\n",ptr);
- }
- }
- li--;
- break;
- }
-
- if(file.yenc && line.substr(0,6)=="=yend "
- && (part_size=line.indexOf(" size="))>0) {
- printf("yEnc trailer: %s\r\n",line);
- file.flush();
- if(part) {
- if((end_part=line.indexOf(" part="))<0) {
- printf("!yEnd part number (%ld) missing in trailer: %s\r\n"
- ,part,line);
- continue;
- }
- end_part=parseInt(line.slice(end_part+6),10);
- if(end_part!=part) {
- printf("!yEnd part number mismatch, %ld in header, trailer: %s\r\n"
- ,part,line);
- continue;
- }
- }
-
- part_size=parseInt(line.slice(part_size+6),10);
- if(part_size!=end-(begin-1)) {
- printf("!yEnc part size mismatch, %ld in header, trailer: %s\r\n"
- ,end-(begin-1),line);
- printf("begin=%ld end=%ld\r\n",begin,end);
- continue;
- }
- if(part_size!=file.length) {
- printf("!yEnc part size mismatch, actual: %ld, trailer: %s\r\n"
- ,file.length,line);
- continue;
- }
- if(!part && size!=part_size) {
- printf("!yEnc single part size mismatch: %ld in header, trailer: %s\r\n"
- ,size,line);
- continue;
- }
-
- if(part && (crc32=line.indexOf(" pcrc32="))>0)
- crc32=parseInt(line.slice(crc32+8),16);
- else if(!part && (crc32=line.indexOf(" crc32="))>0)
- crc32=parseInt(line.slice(crc32+7),16);
- else
- crc32=undefined;
-
- file_crc32=file.crc32;
- if(crc32!=undefined && crc32!=file_crc32) {
- printf("!yEnc part CRC-32 mismatch, actual: %08lX, trailer: %s\r\n"
- ,file_crc32,line);
- continue;
- }
- part_crc32=crc32;
-
- /* Get total file CRC-32, if specified */
- if(part) {
- if((crc32=line.indexOf(" crc32="))>0)
- crc32=parseInt(line.slice(crc32+7),16);
- else
- crc32=undefined;
- }
-
- if(crc32!=undefined) {
- str=duplicate_crc(crc32);
- if(str) {
- printf("Duplicate CRC-32 found: %s\r\n",str);
- continue;
- }
- }
-
- if(part && size!=part_size) {
- file.length=0; /* truncate temp file */
- file.yenc=false;
- /* add to parts database */
- if(!add_part(parts_list,msgbase.cfg.code,hdr
- ,fname,"yenc" /* codec */
- ,part,total,first_line,li-1 /* last_line */
- ,begin,end,part_crc32,size,crc32)
- && this.console!=undefined)
- console.pause();
- continue;
- }
-
- if(complete_file(file,fname,attachment_dir) && remove_msg) {
- if(!msgbase.remove_msg(ptr))
- printf("!FAILED to remove message number %ld\r\n",ptr);
- }
- break;
- }
-
- if(file.yenc || file.uue) {
- file.write(line);
- continue;
- }
-
-
- /* UUE */
- if(line.substr(0,6)=="begin ") {
- // Parse uuencode header
- arg=line.split(/\s+/);
- arg.splice(0,2); // strip "begin 666 "
- fname=file_getname(arg.join(" "));
- file.uue=true;
- first_line=li+1;
- continue;
- }
-
-
- /* yEnc */
- if(line.substr(0,8)=="=ybegin "
- && line.indexOf(" line=")>0
- && (size=line.indexOf(" size="))>0
- && (name=line.indexOf(" name="))>0) {
-
- printf("yenc header: %s\r\n",line);
-
- size=parseInt(line.slice(size+6),10);
- fname=file_getname(line.slice(name+6));
-
- if((total=line.indexOf(" total="))>0)
- total=parseInt(line.slice(total+7),10);
-
- /* part? */
- part=line.indexOf(" part=");
- if(part>0)
- part=parseInt(line.slice(part+6),10);
- else
- part=0;
-
- if(part) {
- if(part_exists(parts_list,fname,size,part,total)) {
- printf("Part %u/%u of %s already exists in database\r\n"
- ,part,total,fname);
- break;
- }
- line=lines[++li];
- printf("ypart header: %s\r\n",line);
- if(line.substr(0,7)!="=ypart "
- || (begin=line.indexOf(" begin="))<1
- || (end=line.indexOf(" end="))<1) {
- printf("!yEnc MALFORMED ypart line: %s\r\n",line);
- continue;
- }
- begin=parseInt(line.slice(begin+7),10);
- end=parseInt(line.slice(end+5),10);
- } else {
- begin=1;
- end=size;
- }
- file.yenc=true;
- first_line=li+1;
- continue;
- }
-
- if(li>=100 && !file.yenc && !file.uue)
- break;
-
- } /* for(li in lines) */
-
- if(file.is_open && file.uue) {
- /* adds to parts database */
- if(!add_part(parts_list,msgbase.cfg.code,hdr
- ,fname,"uue" /* codec */
- ,part,undefined
- ,first_line,li-1 /* last_line */
- ) && this.console!=undefined)
- console.pause();
- }
-
- file.remove();
- delete file;
-
- yield();
- } /* for(ptr<=msg.last_msg) */
-
- /* Save the scan pointer */
- if(ptr_file.open("w"))
- ptr_file.writeln(ptr);
-
- delete ptr_file;
- delete msgbase;
-
- if(parts_list_modified==true) {
-
- /* Combine and decode parts */
- print("Combining partial files");
- combine_parts(parts_list);
-
- /* Save the Partial file/parts Database */
- printf("Saving partial file database (%lu files)\r\n", parts_list.length);
- parts_file.open("w");
- for(o in parts_list) {
- obj=parts_list[o];
- age=time()-parseInt(obj.updated_time,16);
- age/=(24*60*60);
- if(age >= expire_parts) {
- print("Purging expired incomplete file: " + obj.name);
- print("Last updated: " + obj.updated);
- print("Collected " +obj.parts+ " of " +obj.total+ " parts");
- continue;
- }
- parts_file.writeln("[" + obj.name + "]");
- for(prop in obj)
- parts_file.printf("%-20s=%s\n"
- ,prop.toString(), obj[prop].toString());
- parts_file.writeln("; end of file: " + obj.name );
- parts_file.writeln();
- }
- parts_file.printf("; %lu partial files\n", parts_list.length);
- parts_file.close();
- }
-
-} /* for(i in subs) */
-
-printf("Synchronet Binary Decoder %s session complete (%lu files completed)\r\n"
- ,REVISION, completed_files);
-
-exit(); /* all done */
-
-/****************************************************************************/
-/* Compares two message subjects (subj1==new msg, subj2=file in database */
-/* returning 0 if they differ in anything but decimal digits (or identical) */
-/* returning the parsed part number otherwise */
-/****************************************************************************/
-function compare_subject(subj1, subj2)
-{
- part=subj1.lastIndexOf('(');
- if(part<0)
- part=subj1.lastIndexOf('[');
- if(part<0)
- return(0);
-
- /* first compare lengths */
- length=subj1.length;
- if(!length)
- return(0);
- if(length!=subj2.length) /* must be same length */
- return(0);
- if(subj1==subj2) /* but not duplicate part */
- return(0);
- if(subj1.substr(0,part+1)!=subj2.substr(0,part+1))
- return(0);
-
- diff="";
- for(i=part;i<length;i++) {
- if(subj1.charAt(i)!=subj2.charAt(i))
- diff+=(subj1.charAt(i)+subj2.charAt(i));
- }
- ascii_0=ascii('0');
- ascii_9=ascii('9');
- length=diff.length;
- for(i=0;i<length;i++) {
- ch=ascii(diff.charAt(i));
- if(ch<ascii_0 || ch>ascii_9)
- break;
- }
- if(i<length) /* differ in non-digit char */
- return(0);
-
- /* parse part number */
- part=parseInt(subj1.slice(part+1),10);
- if(part>0)
- return(part);
- return(0);
-}
-
-/***********************************************************************************/
-/* Adds a part of a binary file to the parts database for later combine and decode */
-/***********************************************************************************/
-function add_part(list,sub_code,hdr
- ,fname,codec,part,total
- ,first_line,last_line
- ,begin,end,pcrc32,size,crc32)
-{
- if(part<1) { /* must parse from subject (yuck) */
- part=hdr.subject.lastIndexOf('(');
- if(part<0)
- part=hdr.subject.lastIndexOf('[');
- if(part>=0)
- part=parseInt(hdr.subject.slice(part+1),10);
- if(part<1) {
- printf("!Failed to parse part number from: %s\r\n",hdr.subject);
- return(false);
- }
-// printf("Parsed part number: %u\r\n",part);
- }
- if(total==undefined || total<part) { /* must parse from subject (yuck) */
- total=hdr.subject.lastIndexOf('(');
- if(total<0)
- total=hdr.subject.lastIndexOf('[');
- if(total>=0) {
- subject=hdr.subject.slice(total+1);
- total=subject.indexOf('/');
- }
- if(total>=0)
- total=parseInt(subject.slice(total+1),10);
- if(total<part) {
- printf("!Failed to parse total parts from: %s\r\n",hdr.subject);
- return(false);
- }
-// printf("Parsed total parts: %u\r\n",total);
- }
-
- /* Search database for existing file object */
- var li;
- for(li=0; li<list.length; li++)
- if(list[li].name==fname && list[li].total==total && list[li].codec==codec
- && (size==undefined || list[li].size==size)
- && (crc32==undefined || parseInt(list[li].crc32,16)==crc32)
- ) {
- printf("%s found in database\r\n",fname.toString());
- break;
- }
-
- obj=list[li];
-
- var time_str = system.timestr();
- var time_hex = format("%08lxh",time());
-
- if(obj==undefined) { /* new entry */
-
- printf("New parts database entry for: %s\r\n",fname.toString());
- printf("total=%u, size=%u, crc32=%08lx\r\n",total,size,crc32);
-
- obj = { name: fname, codec: codec, parts: 0, total: total };
-
- obj.subject=hdr.subject; /* save first subject for additional UUE parts */
- obj.from=hdr.from;
-
- /* yEnc file fields */
- if(size!=undefined)
- obj.size=size;
- if(crc32!=undefined)
- obj.crc32=format("%08lxh",crc32);
-
- /* Timestamp */
- obj.created=time_str;
- obj.created_time=time_hex
- }
-
- /* Timestamp */
- obj.updated=time_str;
- obj.updated_time=time_hex;
-
- /* part message info */
- prop=format("part%u.id",part);
- if(obj[prop]!=undefined) {
- printf("Part %u of %s already in database\r\n",part,fname.toString());
- return(true); // pretend we added it
- }
-
- printf("Adding part %u of %s-encoded file to database:\r\n",part,codec.toUpperCase());
- printf("File: %s\r\n",fname);
-
- obj[format("part%u.id",part)]=hdr.id;
- obj[format("part%u.sub",part)]=sub_code;
- obj[format("part%u.msg",part)]=hdr.number;
- obj[format("part%u.date",part)]=hdr.date;
- obj[format("part%u.added",part)]=time_str;
- obj[format("part%u.added_time",part)]=time_hex;
-// obj[format("part%u.from",part)]=hdr.from;
-// obj[format("part%u.subject",part)]=hdr.subject;
-
- /* These save us the hassle of parsing again later */
- obj[format("part%u.first_line",part)]=first_line;
- obj[format("part%u.last_line",part)]=last_line;
-
- /* yEnc part fields */
- if(begin!=undefined)
- obj[format("part%u.begin",part)]=begin;
- if(end!=undefined)
- obj[format("part%u.end",part)]=end;
-// if(pcrc32!=undefined)
-// obj[format("part%u.crc32",part)]=format("%08lxh",pcrc32);
-
- obj.parts++;
-
- list[li]=obj;
-
- parts_list_modified=true;
-
- printf("Part %u added (%u/%u parts in database)\r\n"
- ,part,obj.parts,obj.total);
-
- return(true);
-}
-
-function part_exists(list,fname,size,part,total)
-{
- var li;
- for(li=0; li<list.length; li++) {
- if(list[li].name!=fname
- || list[li].size!=size
- || list[li].total!=total)
- continue;
- prop=format("part%u.id",part);
- if(list[li][prop]!=undefined)
- return(true);
- }
- return(false);
-}
-
-/****************************************************************************/
-/* Combine parts for complete files */
-/****************************************************************************/
-function combine_parts(list)
-{
- var li;
- for(li=0; li<list.length; li++) {
- if(list[li].parts!=list[li].total)
- continue;
- var obj=list[li];
- var sub_code;
- printf("File complete: %s (%u parts)\r\n", obj.name, obj.parts);
-
- file = new File(system.temp_dir + "binary.tmp");
- if(!file.open("w+b")) {
- printf("!ERROR %d opening/creating %s\r\n", file.error, file.name);
- continue;
- }
- file[obj.codec]=true; /* yenc or uue */
-
- var pi;
- for(pi=1;pi<=obj.total;pi++) {
- printf("Processing part %u of %u: ",pi,obj.total);
- var prefix=format("part%u.",pi);
- sub_code=obj[prefix + "sub"];
- var msgbase=new MsgBase(sub_code);
- if(msgbase.open()==false) {
- printf("!ERROR %s opening msgbase: %s\r\n",msgbase.last_error,sub_code);
- delete msgbase;
- break;
- }
- ptr=obj[prefix + "msg"];
- body = msgbase.get_msg_body(
- false /* retrieve by offset */
- ,ptr /* message number */
- ,false /* remove ctrl-a codes */
- ,false /* rfc822 formatted text */
- ,false /* include tails */
- );
- if(body == null) {
- printf("!FAILED to read message number %ld\r\n",ptr);
- break;
- }
-
- lines=body.split("\r\n");
-
- first_line=obj[prefix + "first_line"];
- last_line=obj[prefix + "last_line"];
- end=obj[prefix + "end"];
- for(var l=first_line;l<=last_line;l++) {
- if(!file.write(lines[l]))
- break;
- }
- printf("%u lines\r\n",l-first_line);
-
- file.flush();
- if(end!=undefined && file.length != end) {
- printf("!Length after decode (%lu) not as expected (%lu)\r\n"
- ,file.length, end);
- break;
- }
- if(!msgbase.remove_msg(ptr) && remove_msg)
- printf("!FAILED to remove message number %ld\r\n",ptr);
-
- delete msgbase;
- }
- if(pi<=obj.total) {
- file.remove();
- printf("!Combine failure, removing part %u\r\n",pi);
- list[li][format("part%u.id",pi)]=undefined;
- continue;
- }
-
- if(obj.size!=undefined && obj.size!=file.length) {
- printf("!File length mismatch, actual: %lu, expected: %lu\r\n"
- ,file.length, obj.size);
- file.remove();
- continue;
- }
-
- /* Verify final CRC-32, if available */
- if(obj.crc32!=undefined) {
- file_crc32=file.crc32;
- crc32=parseInt(obj.crc32,16);
- if(crc32!=file_crc32) {
- printf("!CRC-32 failure, actual: %08lx, expected: %08lx\r\n"
- ,file_crc32, crc32);
- file.remove();
- continue;
- }
- }
-
- complete_file(file
- ,obj.name.toString()
- ,msg_area.sub[sub_code].attachment_dir);
-
- // Remove file entry from database
- list.splice(li--,1);
- parts_list_modified=true;
- }
-}
-
-/* Search for duplicate MD5 digest */
-function duplicate_md5(md5)
-{
- print("Searching for duplicate file (via MD5 digest)");
- var md5_file=new File(attachment_dir + "md5.lst");
- if(!md5_file.open("r"))
- return(null);
-
- var duplicate=false;
- var str;
- while(!md5_file.eof && !duplicate) {
- str=md5_file.readln();
- if(str==null)
- break;
- if(str.substr(0,32)==md5)
- duplicate=true;
- }
- md5_file.close();
- return(str);
-}
-
-/* Append MD5 to history file */
-function save_md5(md5)
-{
- print("Adding MD5 digest to history file");
- var md5_file=new File(attachment_dir + "md5.lst");
- if(!md5_file.open("a")) {
- printf("!ERROR %d (%s) creating/appending %s\r\n"
- ,errno, errno_str, md5_file.name);
- return;
- }
- md5_file.printf("%s\n",md5);
- md5_file.close();
-}
-
-/* Search for duplicate CRC-32 */
-function duplicate_crc(crc)
-{
- print("Searching for duplicate file (via CRC-32)");
- var file=new File(attachment_dir + "crc32.lst");
- if(!file.open("r"))
- return(null);
-
- var duplicate=false;
- var str;
- while(!file.eof && !duplicate) {
- str=file.readln();
- if(str==null)
- break;
- if(parseInt(str,16)==crc)
- duplicate=true;
- }
- file.close();
- return(str);
-}
-
-/* Append CRC-32 to history file */
-function save_crc(crc)
-{
- print("Adding CRC-32 to history file");
- var file=new File(attachment_dir + "crc32.lst");
- if(!file.open("a")) {
- printf("!ERROR %d (%s) creating/appending %s\r\n"
- ,errno, errno_str, file.name);
- return;
- }
- file.printf("%s\n",crc);
- file.close();
-}
-
-
-/***********************************************************************************/
-/* When a file is completely decoded, verifies uniqueness and copies to output dir */
-/***********************************************************************************/
-function complete_file(file, fname, attachment_dir)
-{
- fname=fname.replace(/ /g,'_'); /* no spaces in filenames */
-
- printf("Completing attachment: %s\r\n",fname);
-
- md5=file.md5_hex;
- crc32=file.crc32;
- file.close();
-
- var str=duplicate_md5(md5);
- if(str) {
- printf("Duplicate MD5 digest found: %s\r\n",str);
- return(false);
- }
- save_md5(format("%s %s",md5,fname));
-
- str=duplicate_crc(crc32);
- if(str) {
- printf("Duplicate CRC-32 found: %s\r\n",str);
- return(false);
- }
- save_crc(format("%08lx %s",crc32,fname));
-
- new_fname=fname;
- file_num=0;
- while(file_exists(attachment_dir + new_fname) && file_num<1000) {
- // generate unique name, if necessary
- ext=fname.lastIndexOf('.');
- if(ext<0)
- ext="";
- else
- ext=fname.slice(ext);
- // Convert filename.ext to filename.<article>.ext
- new_fname=format("%.*s.%lu%s",fname.length-ext.length,fname,file_num++,ext);
- }
- fname=attachment_dir + new_fname;
-
- if(!file_rename(file.name,fname)) {
- printf("Error %d renaming %s to %s\r\n",errno,file.name,fname);
- return(false);
- }
-
- printf("Attachment saved as: %s\r\n",fname);
- completed_files++;
- return(true);
-}
\ No newline at end of file
diff --git a/exec/bulkmail.js b/exec/bulkmail.js
deleted file mode 100644
index 7545de3e0f417d088ee9644893df1fc0a19a160a..0000000000000000000000000000000000000000
--- a/exec/bulkmail.js
+++ /dev/null
@@ -1,93 +0,0 @@
-// bulkmail.js
-
-// Bulk email all users that match AR String input
-
-// written by the hanged man, Solace BBS, solace.synchro.net
-
-load("sbbsdefs.js");
-
-const REVISION = "$Revision$".split(' ')[1];
-
-print("Synchronet BulkMailer " + REVISION);
-
-print("Enter ARS matches to send mail to or [ENTER] for everyone");
-
-printf("ARS to match: ");
-if((ars=console.getstr(40,K_UPPER))==undefined)
- exit();
-
-printf("\r\n\1y\1hSubject: ");
-
-if((subj=console.getstr(70,K_LINE))=="")
- exit();
-
-fname = system.temp_dir + "bulkmsg.txt";
-
-file_remove(fname)
-
-console.editfile(fname);
-
-if(!file_exists(fname)) // Edit aborted
- exit();
-
-file = new File(fname);
-if(!file.open("rt")) {
- log("!ERROR " + errno_str + " opening " + fname);
- exit();
-}
-msgtxt = lfexpand(file.read(file_size(fname)));
-file.close();
-delete file;
-
-if(msgtxt == "")
- exit();
-
-msgbase = new MsgBase("mail");
-if(msgbase.open()==false) {
- log("!ERROR " + msgbase.last_error);
- exit();
-}
-
-var u; // user object
-
-if(system.lastuser!=undefined)
- lastuser=system.lastuser; // v3.11
-else
- lastuser=system.stats.total_users; // v3.10
-
-var sent=0;
-
-for(i=1; i<=lastuser; i++)
-{
- u = new User(i);
-
- if(!u.compare_ars(ars))
- continue;
-
- /*checking for netmail forward */
- if(u.settings&USER_NETMAIL && u.netmail.length)
- hdr = { to_net_addr: u.netmail, to_net_type: NET_INTERNET };
- else
- hdr = { to_ext: String(u.number) };
-
- hdr.to = u.alias;
- hdr.from = system.operator;
- hdr.from_ext = "1";
- hdr.subject = subj;
-
- printf("Sending mail to %s #%u\r\n", hdr.to, i);
-
- if(!msgbase.save_msg(hdr, msgtxt))
- log("!ERROR " + msgbase.last_error + "saving bulkmail message");
- else {
- log(format("Sent bulk mail message to: %s #%u", u.alias, i));
- sent++;
- }
-}
-
-msgbase.close();
-
-if(sent>1) {
- print("Sent bulk mail to " + sent + " users");
- log("Sent bulk mail message to " + sent + " users");
-}
diff --git a/exec/bullseye.src b/exec/bullseye.src
deleted file mode 100644
index d25ee2ad6f46020f97739f2eea7f2577ba3429a1..0000000000000000000000000000000000000000
--- a/exec/bullseye.src
+++ /dev/null
@@ -1,81 +0,0 @@
-# bullseye.src
-
-# Bulletins written in Baja by Rob Swindell
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include file_io.inc
-!include sbbsdefs.inc
-
-# Load the configuration file
-
-int i
-int b
-int file
-int filepos
-int total
-int mode
-str fname
-
-printf "\r\nSynchronet BullsEye! Version 1.06 by Rob Swindell\r\n"
-pause_reset
-set str "%zbullseye.cfg"
-fopen file O_RDONLY str
-if_false
- printf "\r\n!ERROR %ld opening %s\r\n" _errno str
- return
- end_if
-fread_line file str
-copy mode str
-fget_pos file filepos
-
-set total 0
-#print "%l: %s" total str
-:count_bulls
- fread_line file str
- #print "%ld: %s" total str
- if_true # not end of file
- add total 1
- goto count_bulls
- end_if
-
-# Display menu, list bulletins, display prompt, etc.
-
-:menu
-printfile "%zbullseye.asc"
-print "\1n\r\n\1b\1hEnter number of bulletin to view or press (\1wENTER\1b) to continue: \1w"
-getnum b total
-compare b 1
-if_less
- return
- end_if
-fset_pos file filepos
-set i 0
-:next
-fread_line file str
-if_true # not end of file
- add i 1
- compare i b
- if_equal
- print "\1n\1l"
- truncsp str
- copy fname str
- compare_substr str ".htm"
- replace_text 563 "\1n\1h\1b{\1wContinue? Yes/No\1b} "
- if_true
- exec_bin typehtml
- else
- printfile str 0
- end_if
- sprintf str "Node %d %s viewed bulletin #%d: %s" _node_num _useron.alias i fname
- print_local "%s"
- revert_text 563
- clear_abort
- goto menu
- end_if
- goto next
- end_if
-printf "\r\nInvalid bulletin number: %d" b
-goto menu
diff --git a/exec/chat_sec.src b/exec/chat_sec.src
deleted file mode 100644
index 193322fc2c07b05e357fa26eb7f6c2f33d530815..0000000000000000000000000000000000000000
--- a/exec/chat_sec.src
+++ /dev/null
@@ -1,102 +0,0 @@
-# chat_sec.src
-
-# Chat Section for any/all Synchronet command shells
-
-# Requires v3.00g or later
-
-!include sbbsdefs.inc
-
-compare_ars rest C
-if_true
- print "\r\nYou can't chat.\r\n"
- return
- end_if
-
-# Set return point for main menu commands (via end_cmd)
-cmd_home
-
-# Display TEXT\MENU\CHAT.* if not in expert mode
-compare_user_misc UM_EXPERT
-if_false
- menu chat
- end_if
-
-# Update node status
-node_action node_chat
-async
-print "\r\n\1_\1y\1hChat: \1n"
-getcmd "ACDFIJPQRST?\r"
-cmdkey 'S'
- TOGGLE_USER_CHAT CHAT_SPLITP
- printf "\1n\r\nPrivate split-screen chat is now: \1h"
- COMPARE_USER_CHAT CHAT_SPLITP
- if_true
- print "ON\1n"
- else
- print "OFF\1n"
- end_if
- crlf
- end_cmd
-
-cmdkey 'A'
- crlf
- toggle_user_chat CHAT_NOACT
- toggle_node_misc NODE_AOFF
- nodelist_users
- end_cmd
-
-cmdkey 'D'
- crlf
- toggle_user_chat CHAT_NOPAGE
- toggle_node_misc NODE_POFF
- nodelist_users
- end_cmd
-
-cmdkey 'F'
- crlf
- exec "?finger"
- end_cmd
-
-cmdkey 'I'
- crlf
- exec "?sbbsimsg"
- end_cmd
-
-cmdkey 'R'
- crlf
- print "\1n\1y\1hServer and channel: "
- setstr "irc.synchro.net 6667 #Synchronet"
- getstr str 50 K_EDIT|K_LINE|K_AUTODEL
- if_true
- exec "?irc %s"
- end_if
- end_cmd
-
-cmdkey 'J'
- multinode_chat
- end_cmd
-
-cmdkey 'P'
- private_chat
- end_cmd
-
-cmdkey 'C'
- page_sysop
- if_false
- page_guru
- end_if
- end_cmd
-
-cmdkey 'T'
- page_guru
- end_cmd
-
-cmdkey '?'
- compare_user_misc UM_EXPERT
- if_true
- menu "chat"
- end_if
- end_cmd
-
-cmd_pop
-return
\ No newline at end of file
diff --git a/exec/chkspace.js b/exec/chkspace.js
deleted file mode 100644
index ad7e891c8eb06e6eb625ea1ad02c3248d45f6f66..0000000000000000000000000000000000000000
--- a/exec/chkspace.js
+++ /dev/null
@@ -1,34 +0,0 @@
-// chkspace.js
-
-// Requires minimum free disk space (in megabytes) as first argument
-
-// $Id$
-
-// Example: "?chkspace 100"
-
-minspace = file_area.min_diskspace*2;
-freespace = system.freediskspacek; // new property in v3.10L
-
-if(argc)
- minspace=Number(argv[0])*1024; // convert megabytes to kilobytes
-
-if(freespace==-1 || freespace >= minspace)
- exit(); // everything's fine
-
-log("!Low disk space: " + freespace + " kilobytes");
-
-msgbase = new MsgBase("mail");
-if(msgbase.open!=undefined && msgbase.open()==false) {
- log("!ERROR " + msgbase.last_error);
- exit();
-}
-
-hdr = { to: 'sysop', to_ext: '1', from: 'chkspace', subject: 'Low disk space notification' }
-
-if(!msgbase.save_msg(hdr, "WARNING: Only " + freespace + " kilobytes of free disk space on "
- + system.timestr()))
- log("!Error " + msgbase.last_error + "saving mail message");
-
-log("E-mailed low disk space notification to sysop");
-
-msgbase.close();
\ No newline at end of file
diff --git a/exec/cntnodes.src b/exec/cntnodes.src
deleted file mode 100644
index 61648559dbc22b1b5233983fc804f3c86d24dec4..0000000000000000000000000000000000000000
--- a/exec/cntnodes.src
+++ /dev/null
@@ -1,56 +0,0 @@
-# cntnodes.src
-
-# Counts number of nodes in use and number of nodes waiting for call
-# Sets global variables NODES_INUSE and NODES_WFC
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-int status
-global_int nodes_inuse nodes_wfc
-
-set nodes_inuse 0
-set nodes_wfc 0
-
-# Rewind NODE.DAB (_NODEFILE is a system variable)
-fset_pos _nodefile 0
-
-:read
- feof _nodefile
- if_true # End of file
- goto end
- end_if
- # Lock record
- flock _nodefile NODE_RECORD_LEN
- if_false # Failed
- goto end
- end_if
- # Read status
- fread _nodefile status 1
- if_false # Failed
- funlock _nodefile NODE_RECORD_LEN
- goto end
- end_if
- # Unlock record
- fseek _nodefile -1 CUR
- funlock _nodefile NODE_RECORD_LEN
- # Skip record
- fseek _nodefile NODE_RECORD_LEN CUR
- switch status
- case NODE_WFC
- add nodes_wfc 1
- end_case
- case NODE_LOGON
- case NODE_NEWUSER
- case NODE_INUSE
- case NODE_QUIET
- add nodes_inuse 1
- end_case
- end_switch
- goto read
-:end
-printf "Nodes in use=%ld Waiting for Caller=%ld\r\n" nodes_inuse nodes_wfc
-
diff --git a/exec/default.src b/exec/default.src
deleted file mode 100644
index fea02664bba7b877f4c5f24a878f46b510f5b924..0000000000000000000000000000000000000000
--- a/exec/default.src
+++ /dev/null
@@ -1,924 +0,0 @@
-# default.src
-
-# Default Command Shell for Synchronet Version 2.00a+
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-###############################################################################
-# This shell is an imitation of the Version 1c command set/structure #
-# #
-# It also serves as an example of a complex command shell using the Baja #
-# command shell language #
-# #
-###############################################################################
-
-# Tips:
-#
-# Tabstops should be set to 8 to view/edit this file
-# If your editor does not support control characters,
-# use \1 for Ctrl-A codes
-# All lines starting with # are considered comments and are ignored
-# Left margins (indents) are not relevant and used only for clarity
-# Almost everything is not case sensitive with the exception of @-codes
-
-################################# Begins Here #################################
-
-!include sbbsdefs.inc
-
-# Set return point for main menu commands (via end_cmd)
-cmd_home
-
-# Display TEXT\MENU\MAIN.* if not in expert mode
-compare_user_misc UM_EXPERT
-if_false
- cls
- menu main
- end_if
-
-# Update node status
-node_action node_main
-async
-
-inc_main_cmds
-
-# Display main Prompt
-print "-c\r\n� bhMain nc� h"
-compare_ars exempt T
-if_true
- print "@TUSED@"
-else
- print "@TLEFT@"
- end_if
-print " nc[h@GN@nc] @GRP@ [h@SN@nc] @SUB@: n"
-
-# Get key (with / extended commands allowed)
-compare_user_misc UM_COLDKEYS
-if_false
- getkeye
-else
- getstrupr 60
- endif
-
-compare_ars RIP
-if_true
- getlines
- end_if
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Hitting number changes current sub-board
-cmdkey digit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- end_if
- msg_get_sub_num
- end_cmd
-
-# Hitting /number changes current group
-cmdkey edigit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- else
- shift_str 1
- end_if
- msg_get_grp_num
- end_cmd
-
-# Show the key hit
-compare_user_misc UM_COLDKEYS
-if_false
- printkey
- endif
-
-# Next sub-board
-cmdkey >
- msg_subboard_up
- end_cmd
-cmdkey }
- msg_subboard_up
- end_cmd
-cmdkey +
- msg_subboard_up
- end_cmd
-cmdkey =
- msg_subboard_up
- end_cmd
-
-# Previous sub-board
-cmdkey <
- msg_subboard_down
- end_cmd
-cmdkey {
- msg_subboard_down
- end_cmd
-cmdkey -
- msg_subboard_down
- end_cmd
-
-# Next group
-cmdkey ]
- msg_group_up
- end_cmd
-
-# Previous group
-cmdkey [
- msg_group_down
- end_cmd
-
-# String commands start with a semicolon
-cmdkey ;
- compare_user_misc UM_COLDKEYS
- if_true
- shift_str 1
- else
- getstrupr 40
- end_if
- exec_bin str_cmds
- end_cmd
-
-cmdkey T
- chkfile "%zmenu/tmessage.*"
- if_true
- menu tmessage
- end_if
- call file_transfers
- end_cmd
-
-compare_user_misc UM_COLDKEYS
-if_false
- crlf
- end_if
-pause_reset
-
-# Menu
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu main
- end_if
- end_cmd
-
-# Sysop Menu
-compare_ars SYSOP or EXEMPT Q or I or N
-if_true
- cmdkey !
- menu sysmain
- end_cmd
- end_if
-
-# Commands
-
-cmdkey A
- auto_message
- end_cmd
-
-cmdkey B
- print "\r\nchBrowse/New Message Scan\r\n"
- msg_browse_scan
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey D
- user_defaults
- end_cmd
-
-cmdkey E
- call E-mail
- end_cmd
-
-cmdkey F
- print "\r\nchFind Text in Messages\r\n"
- msg_find_text
- end_cmd
-
-cmdkey /F
- msg_find_text_all
- end_cmd
-
-cmdkey G
- text_file_section
- end_cmd
-
-cmdkey I
- call main_info
- end_cmd
-
-cmdkey J
- msg_select_area
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey M
- minute_bank
- end_cmd
-
-cmdkey N
- print "\r\nchNew Message Scan\r\n"
- msg_new_scan
- end_cmd
-
-cmdkey /N
- msg_new_scan_all
- end_cmd
-
-cmdkey O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey P
- msg_post
- end_cmd
-
-cmdkey Q
- msg_qwk
- end_cmd
-
-cmdkey R
- msg_read
- end_cmd
-
-cmdkey S
- print "\r\nchScan for Messages Posted to You\r\n"
- msg_your_scan
- end_cmd
-
-cmdkey /S
- msg_your_scan_all
- end_cmd
-
-cmdkey U
- print "\r\nchList Users\r\n"
- mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
- getcmd LSA\r
-
- cmdkey L
- userlist_logons
- end_cmd
- cmdkey S
- userlist_sub
- end_cmd
- cmdkey A
- userlist_all
- end_cmd
-
- # fall-through for CR, Ctrl-C, etc
- end_cmd
-
-cmdkey /U
- userlist_all
- end_cmd
-
-cmdkey X
- xtrn_section
- end_cmd
-
-cmdkey Z
- print "\r\nchContinuous New Message Scan\r\n"
- msg_cont_scan
- end_cmd
-
-cmdkey /Z
- msg_cont_scan_all
- end_cmd
-
-cmdkey *
- msg_show_subboards
- end_cmd
-
-cmdkey /*
- msg_show_groups
- end_cmd
-
-cmdkey &
- call main_cfg
- end_cmd
-
-cmdkey #
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-cmdkey /#
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_user_misc UM_expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-# shouldn't hit next line
-print "Problem in command shell."
-pause
-hangup
-return
-
-############################### E-mail Section ################################
-
-:e-mail
-cmd_home
-compare_user_misc UM_expert
-if_false
- menu e-mail
- end_if
-async
-print "\r\nyhE-mail: n"
-getcmd ?SRFNUKQ\r
-logkey
-
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu e-mail
- end_if
- end_cmd
-
-cmdkey S
- print "_\r\nbhE-mail (User name or number): w"
- getname 40
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdkey U
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send_file
- end_cmd
-
-cmdkey R
- mail_read
- end_cmd
-
-cmdkey F
- setstr "1"
- mail_send_feedback
- end_cmd
-
-cmdkey N
- no_yes "\r\nAttach a file"
- if_true
- mail_send_netmail
- else
- mail_send_netfile
- end_if
- end_cmd
-
-cmdkey K
- mail_read_sent
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-############################ Main Info Section ###############################
-
-:main_info
-cmd_home
-compare_user_misc UM_expert
-if_false
- menu maininfo
- end_if
-async
-print "\r\nyhInfo: n"
-getcmd ?QISVY\r
-logkey
-
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu maininfo
- end_if
- end_cmd
-
-cmdkey I
- info_system
- end_cmd
-
-cmdkey S
- info_subboard
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-cmdkey V
- info_version
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-########################### Main Config Section ##############################
-
-:main_cfg
-
-compare_user_misc UM_expert
-if_false
- menu maincfg
- end_if
-async
-print "\r\nyhConfig: n"
-getcmd ?QNPIS\r
-logkey
-
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu maincfg
- end_if
- goto main_cfg
- end_cmd
-
-cmdkey N
- msg_new_scan_cfg
- return
- end_cmd
-
-cmdkey S
- msg_your_scan_cfg
- return
- end_cmd
-
-cmdkey P
- msg_ptrs_cfg
- return
- end_cmd
-
-cmdkey I
- msg_ptrs_reinit
- return
- end_cmd
-
-return
-
-
-########################### File Transfer Section #############################
-
-:file_transfers
-
-compare_ars file_cmds=0
-if_true
- compare_user_misc UM_ask_nscan
- if_true
- crlf
- crlf
- yes_no "Search all libraries for new files"
- if_true
- file_new_scan_all
- end_if
- end_if
- end_if
-
-cmd_home
-
-compare_user_misc UM_expert
-if_false
- cls
- menu transfer
- end_if
-
-# Update node status
-node_action node_xfer
-async
-
-inc_file_cmds
-
-# Display main Prompt
-print "-c\r\n� bhFile nc� h"
-compare_ars exempt T
-if_true
- print "@TUSED@"
-else
- print "@TLEFT@"
- end_if
-print " nc(h@LN@nc) @LIB@ (h@DN@nc) @DIR@: n"
-
-# Get key (with / extended commands allowed)
-compare_user_misc UM_COLDKEYS
-if_false
- getkeye
-else
- getstrupr 60
- endif
-
-compare_ars RIP
-if_true
- getlines
- end_if
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Hitting number changes current sub-board
-cmdkey digit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- end_if
- file_get_dir_num
- end_cmd
-
-# Hitting /number changes current group
-cmdkey edigit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- else
- shift_str 1
- end_if
- file_get_lib_num
- end_cmd
-
-# Show the key hit
-compare_user_misc UM_COLDKEYS
-if_false
- printkey
- endif
-
-# Next directory
-cmdkey >
- file_directory_up
- end_cmd
-cmdkey }
- file_directory_up
- end_cmd
-cmdkey +
- file_directory_up
- end_cmd
-cmdkey =
- file_directory_up
- end_cmd
-
-# Previous directory
-cmdkey <
- file_directory_down
- end_cmd
-cmdkey {
- file_directory_down
- end_cmd
-cmdkey -
- file_directory_down
- end_cmd
-
-# Next library
-cmdkey ]
- file_library_up
- end_cmd
-
-# Previous library
-cmdkey [
- file_library_down
- end_cmd
-
-# String commands start with a semicolon
-cmdkey ;
- compare_user_misc UM_COLDKEYS
- if_true
- shift_str 1
- else
- getstrupr 40
- end_if
- exec_bin str_cmds
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-compare_user_misc UM_COLDKEYS
-if_false
- crlf
- end_if
-pause_reset
-
-# Menu
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu transfer
- end_if
- end_cmd
-
-# Sysop Menu
-compare_ars SYSOP
-if_true
- cmdkey !
- menu sysxfer
- end_cmd
- end_if
-
-# Commands
-
-cmdkey B
- file_batch_section
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey D
- print "\r\nchDownload File(s)\r\n"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdkey /D
- print "\r\nchDownload File(s) from User(s)\r\n"
- file_download_user
- end_cmd
-
-cmdkey E
- print "\r\nchList Extended File Information\r\n"
- getfilespec
- if_true
- file_list_extended
- end_if
- end_cmd
-
-cmdkey F
- print "\r\nchFind Text in File Descriptions (no wildcards)\r\n"
- file_find_text
- end_cmd
-
-cmdkey /F
- file_find_text_all
- end_cmd
-
-cmdkey I
- call file_info
- end_cmd
-
-cmdkey J
- file_select_area
- end_cmd
-
-cmdkey L
- setstr *.*
- file_list
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey N
- print "\r\nchNew File Scan\r\n"
- file_new_scan
- end_cmd
-
-cmdkey /N
- file_new_scan_all
- end_cmd
-
-cmdkey O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey R
- print "\r\nchRemove/Edit File(s)\r\n"
- getfilespec
- if_true
- file_remove
- end_if
- end_cmd
-
-cmdkey S
- print "\r\nchSearch for Filename(s)\r\n"
- file_find_name
- end_cmd
-
-cmdkey /S
- file_find_name_all
- end_cmd
-
-cmdkey T
- file_temp_section
- end_cmd
-
-cmdkey U
- print "\r\nchUpload File\r\n"
- chkfile "%zmenu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdkey /U
- print "\r\nchUpload File to User\r\n"
- file_upload_user
- end_cmd
-
-cmdkey V
- print "\r\nchView File(s)\r\n"
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-
-cmdkey Z
- print "\r\nchUpload File to Sysop\r\n"
- file_upload_sysop
- end_cmd
-
-cmdkey *
- file_show_directories
- end_cmd
-
-cmdkey /*
- file_show_libraries
- end_cmd
-
-cmdkey &
- :xfercfg
- compare_user_misc UM_expert
- if_false
- menu xfercfg
- end_if
- async
- print "\r\nyhConfig: n"
- getcmd ?QBEP\r
- logkey
-
- cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu xfercfg
- end_if
- goto xfercfg
- end_cmd
-
- cmdkey P
- file_ptrs_cfg
- end_cmd
-
- cmdkey B
- toggle_user_misc UM_BATCHFLAG
- end_cmd
-
- cmdkey E
- toggle_user_misc UM_EXTDESC
- end_cmd
- end_cmd
-
-cmdkey #
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-cmdkey /#
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_user_misc UM_expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-# shouldn't hit next line
-print "Problem in command shell."
-pause
-hangup
-
-############################ File Info Section ###############################
-
-:file_info
-cmd_home
-compare_user_misc UM_expert
-if_false
- menu xferinfo
- end_if
-async
-print "\r\nyhInfo: n"
-getcmd ?TYDUQ\r
-logkey
-
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu xferinfo
- end_if
- end_cmd
-
-cmdkey T
- info_xfer_policy
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-cmdkey D
- info_directory
- end_cmd
-
-cmdkey U
- userlist_dir
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-#end of DEFAULT.SRC
diff --git a/exec/dir.src b/exec/dir.src
deleted file mode 100644
index b02a2eadff60595d8bb3a500cab6640596db1aab..0000000000000000000000000000000000000000
--- a/exec/dir.src
+++ /dev/null
@@ -1,110 +0,0 @@
-# dir.src
-
-# Test of Directory System Functions
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-!include dir_attr.inc
-
-int dir fattr flen ftime bytes files i
-str path name attr time date
-
-print "Directory of: "
-getstrupr path 60
-open_dir dir path
-if_false
- printf "Unable to open %s\r\n" path
- return
- end_if
-printf "Directory of %s\r\n\r\n" path
-:next
- copy i _sys_status
- and i SS_ABORT
- compare i 0
- if_not_equal # Ctrl-C hit
- print "Aborted.\n"
- goto end
- end_if
- read_dir dir name
- if_false
- goto end
- end_if
- # Increment file counter
- add files 1
- sprintf str "%s\\%s" path name
- get_file_attrib fattr str
- get_file_length flen str
- # Add to total byte counter
- compare flen 0
- if_greater
- add bytes flen
- end_if
- get_file_time ftime str
- ftime_str time "%H:%M:%S" ftime
- ftime_str date "%m/%d/%y" ftime
-
- set attr ""
-
- copy i fattr
- and i FA_RDONLY
- compare i 0
- if_not_equal
- strcat attr "r"
- else
- strcat attr "-"
- end_if
-
- copy i fattr
- and i FA_HIDDEN
- compare i 0
- if_not_equal
- strcat attr "h"
- else
- strcat attr "-"
- end_if
-
- copy i fattr
- and i FA_SYSTEM
- compare i 0
- if_not_equal
- strcat attr "s"
- else
- strcat attr "-"
- end_if
-
- copy i fattr
- and i FA_LABEL
- compare i 0
- if_not_equal
- strcat attr "l"
- else
- strcat attr "-"
- end_if
-
- copy i fattr
- and i FA_DIREC
- compare i 0
- if_not_equal
- strcat attr "d"
- else
- strcat attr "-"
- end_if
-
- copy i fattr
- and i FA_ARCH
- compare i 0
- if_not_equal
- strcat attr "a"
- else
- strcat attr "-"
- end_if
-
- printf "%s %10ld %s %s %s\r\n" attr flen date time name
- goto next
-:end
-close_dir dir
-printf "\r\n%lu total bytes in %lu files\r\n" bytes files
-
diff --git a/exec/dir_attr.inc b/exec/dir_attr.inc
deleted file mode 100644
index dcd34487217ba3f6f89d6cb12473fc4c0b2d24af..0000000000000000000000000000000000000000
--- a/exec/dir_attr.inc
+++ /dev/null
@@ -1,18 +0,0 @@
-# dir_attr.inc
-
-# Baja include file defining DOS Directory Entry Attribute constants
-# Specifically used with the SET_FILE_ATTRIB and GET_FILE_ATTRIB functions
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!define FA_NORMAL 0x00
-!define FA_RDONLY 0x01
-!define FA_HIDDEN 0x02
-!define FA_SYSTEM 0x04
-!define FA_LABEL 0x08
-!define FA_DIREC 0x10
-!define FA_ARCH 0x20
-
-# End of DIR_ATTR.INC
diff --git a/exec/dosxtrn.pif b/exec/dosxtrn.pif
deleted file mode 100644
index 9edd5520efe61079f922945d371f06be8b7733d7..0000000000000000000000000000000000000000
Binary files a/exec/dosxtrn.pif and /dev/null differ
diff --git a/exec/dumpobjs.js b/exec/dumpobjs.js
deleted file mode 100644
index 24848eceecaea9414a609ae376b7eaccec84a7f9..0000000000000000000000000000000000000000
--- a/exec/dumpobjs.js
+++ /dev/null
@@ -1,100 +0,0 @@
-// system
-console.clear();
-print("\1hproperties of \1ysystem \1wobject\1n");
-for(i in system)
- print("system." + i + " = " + system[i]);
-
-// system.stats
-console.clear();
-print("\1hproperties of \1ysystem.stats \1wobject\1n");
-for(i in system.stats)
- print("system.stats." + i + " = " + system.stats[i]);
-
-// system.node_list[]
-console.clear();
-print("\1helements of \1ysystem.node_list \1warray\1n");
-for(n in system.node_list)
- for(i in system.node_list[n])
- print("system.node_list[" + n + "]." + i + " = " + system.node_list[n][i]);
-
-// client
-console.clear();
-print("\1hproperties of \1yclient \1wobject\1n");
-for(i in client)
- print("client." + i + " = " + client[i]);
-
-// client.socket
-console.clear();
-print("\1hproperties of \1yclient.socket \1wobject\1n");
-for(i in client.socket)
- print("client.socket." + i + " = " + client.socket[i]);
-
-// server
-console.clear();
-print("\1hproperties of \1yserver \1wobject\1n");
-for(i in server)
- print("server." + i + " = " + server[i]);
-
-// user
-console.clear();
-print("\1hproperties of \1yuser \1wobject\1n");
-for(i in user)
- print("user." + i + " = " + user[i]);
-
-// user.stats
-console.clear();
-print("\1hproperties of \1yuser.stats \1wobject\1n");
-for(i in user.stats)
- print("user.stats." + i + " = " + user.stats[i]);
-
-// user.security
-console.clear();
-print("\1hproperties of \1yuser.security \1wobject\1n");
-for(i in user.security)
- print("user.security." + i + " = " + user.security[i]);
-
-// msg_area
-console.clear();
-print("\1hproperties of \1ymsg_area \1wobject\1n");
-for(i in msg_area)
- print("msg_area." + i + " = " + msg_area[i]);
-
-// msg_area.grp_list[]
-print("\1helements of \1ymsg_area.grp_list \1warray\1n");
-for(n in msg_area.grp_list) {
- for(i in msg_area.grp_list[n])
- print("msg_area.grp_list[" + n + "]." + i + " = " + msg_area.grp_list[n][i]);
- for(d in msg_area.grp_list[n].sub_list)
- for(i in msg_area.grp_list[n].sub_list[d])
- print("msg_area.grp_list[" + n + "].sub_list[" + d + "]." + i + " = " +
- msg_area.grp_list[n].sub_list[d][i]);
-}
-
-// file_area
-console.clear();
-print("\1hproperties of \1yfile_area \1wobject\1n");
-for(i in file_area)
- print("file_area." + i + " = " + file_area[i]);
-
-// file_area.lib_list[]
-print("\1helements of \1yfile_area.lib_list \1warray\1n");
-for(n in file_area.lib_list) {
- for(i in file_area.lib_list[n])
- print("file_area.lib_list[" + n + "]." + i + " = " + file_area.lib_list[n][i]);
- for(d in file_area.lib_list[n].dir_list)
- for(i in file_area.lib_list[n].dir_list[d])
- print("file_area.lib_list[" + n + "].dir_list[" + d + "]." + i + " = " +
- file_area.lib_list[n].dir_list[d][i]);
-}
-
-// bbs
-console.clear();
-print("\1hproperties of \1ybbs \1wobject\1n");
-for(i in bbs)
- print("bbs." + i + " = " + bbs[i]);
-
-// console
-console.clear();
-print("\1hproperties of \1yconsole \1wobject\1n");
-for(i in console)
- print("console." + i + " = " + console[i]);
diff --git a/exec/dyndns.js b/exec/dyndns.js
deleted file mode 100644
index 27de95e377c647d91723733a52a1eb65cc9bbd36..0000000000000000000000000000000000000000
--- a/exec/dyndns.js
+++ /dev/null
@@ -1,54 +0,0 @@
-// dyndns.js
-
-// Client for Synchronet dynamic DNS service (yourbbs.synchro.net)
-
-// $Id$
-
-// usage: ?dyndns <password>
-
-const REVISION = "$Revision$".split(' ')[1];
-
-printf("Synchronet Dynamic DNS Client %s\r\n", REVISION);
-
-host_list=["vert.synchro.net", "rob.synchro.net", "bbs.synchro.net", "cvs.synchro.net"];
-
-function writeln(str)
-{
- sock.send(str + "\r\n");
- print(str);
-}
-
-for(h in host_list) {
- sock = new Socket();
- if(!sock.bind(0,server.interface_ip_address)) {
- printf("Error %lu binding socket to %s\r\n"
- ,sock.last_error,server.interface_ip_address);
- continue;
- }
- if(!sock.connect(host_list[h],8467)) {
- printf("Error %lu connecting to %s\r\n",sock.last_error,host_list[h]);
- continue;
- }
- while(sock.is_connected) {
- str=sock.readline();
- print(str);
- switch(str) {
- case "id?":
- writeln(system.qwk_id);
- break;
- case "pw?":
- writeln(argv[0]);
- break;
- case "ip?":
- if(argv[1])
- writeln(argv[1]);
- else
- writeln("");
- break;
- default:
- writeln("");
- break;
- }
- }
- break;
-}
diff --git a/exec/errno.inc b/exec/errno.inc
deleted file mode 100644
index 7029d99551d94a91b687c936510a802985a81416..0000000000000000000000000000000000000000
--- a/exec/errno.inc
+++ /dev/null
@@ -1,65 +0,0 @@
-# errno.inc
-
-# Defines the system error variable _errno and the error
-# numbers set by system calls. Errors which exist in Unix(tm)
-# but not MSDOS have value -1.
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!global _ERRNO
-
-!define EZERO 0 # Error 0
-!define EINVFNC 1 # Invalid function number
-!define ENOFILE 2 # File not found
-!define ENOPATH 3 # Path not found
-!define ECONTR 7 # Memory blocks destroyed
-!define EINVMEM 9 # Invalid memory block address
-!define EINVENV 10 # Invalid environment
-!define EINVFMT 11 # Invalid format
-!define EINVACC 12 # Invalid access code
-!define EINVDAT 13 # Invalid data
-!define EINVDRV 15 # Invalid drive specified
-!define ECURDIR 16 # Attempt to remove CurDir
-!define ENOTSAM 17 # Not same device
-!define ENMFILE 18 # No more files
-
-!define ENOENT 2 # No such file or directory
-!define EMFILE 4 # Too many open files
-!define EACCES 5 # Permission denied
-!define EBADF 6 # Bad file number
-!define ENOMEM 8 # Not enough core
-!define EFAULT 14 # Unknown error
-!define ENODEV 15 # No such device
-!define EINVAL 19 # Invalid argument
-!define E2BIG 20 # Arg list too long
-!define ENOEXEC 21 # Exec format error
-!define EXDEV 22 # Cross-device link
-!define ENFILE 23 # UNIX - not MSDOS
-!define ECHILD 24 # Unix/DOS
-!define ENOTTY 25 # UNIX - not MSDOS
-!define ETXTBSY 26 # UNIX - not MSDOS
-!define EFBIG 27 # UNIX - not MSDOS
-!define ENOSPC 28 # UNIX - not MSDOS
-!define ESPIPE 29 # UNIX - not MSDOS
-!define EROFS 30 # UNIX - not MSDOS
-!define EMLINK 31 # UNIX - not MSDOS
-!define EPIPE 32 # UNIX - not MSDOS
-!define EDOM 33 # Math argument
-!define ERANGE 34 # Result too large
-!define EEXIST 35 # File already exists
-!define EDEADLOCK 36 # Locking violation
-!define EPERM 37 # UNIX - not MSDOS
-!define ESRCH 38 # UNIX - not MSDOS
-!define EINTR 39 # UNIX - not MSDOS
-!define EIO 40 # UNIX - not MSDOS
-!define ENXIO 41 # UNIX - not MSDOS
-!define EAGAIN 42 # UNIX - not MSDOS
-!define ENOTBLK 43 # UNIX - not MSDOS
-!define EBUSY 44 # UNIX - not MSDOS
-!define ENOTDIR 45 # UNIX - not MSDOS
-!define EISDIR 46 # UNIX - not MSDOS
-!define EUCLEAN 47 # UNIX - not MSDOS
-
-# End of ERRNO.INC
diff --git a/exec/examples/dir.js b/exec/examples/dir.js
deleted file mode 100644
index 080b6311d6c205b367282feda8cec55b54ef3512..0000000000000000000000000000000000000000
--- a/exec/examples/dir.js
+++ /dev/null
@@ -1,25 +0,0 @@
-// dir.js
-
-// Example use of global directory() method.
-
-// $Id$
-
-// @format.tab-size 8, @format.use-tabs true
-
-load("sbbsdefs.js");
-
-if (argc==0)
- path = prompt("Path");
-else
- path = argv[0];
-if (path==undefined)
- exit();
-if (path.indexOf('*')<0 && path.indexOf('?')<0)
- path += "*"; // No pattern specified
-print(path);
-dir = directory(path);
-for (i in dir) {
- if(bbs.sys_status&SS_ABORT)
- break;
- print(dir[i]);
-}
\ No newline at end of file
diff --git a/exec/examples/socktest.js b/exec/examples/socktest.js
deleted file mode 100644
index 3ca7fc9a89591c69c9bbe43dc40ff7627727dffe..0000000000000000000000000000000000000000
--- a/exec/examples/socktest.js
+++ /dev/null
@@ -1,46 +0,0 @@
-load("sbbsdefs.js"); // CON_RAW_IN
-load("sockdefs.js"); // SO_RCVBUF
-
-printf("tx = %d\r\n",client.socket.getoption(SOL_SOCKET,SO_SNDBUF));
-printf("rx = %d\r\n",client.socket.getoption(SOL_SOCKET,SO_RCVBUF));
-console.status |= CON_RAW_IN; // Enable RAW input mode (pass-through ctrl chars)
-var socket = new Socket();
-
-socket.debug=true;
-
-if(!socket.bind()) {
- printf("!bind error %d\r\n",socket.last_error);
- exit();
-}
-
-var addr=prompt("address");
-var port=Number(prompt("port"));
-
-if(!socket.connect(addr,port)) {
- printf("!connect error %d\r\n",socket.last_error);
- exit();
-}
-
-printf("\r\nConnected to %s:%d - Ctrl-] to abort\r\n",addr,port);
-console.pause();
-
-while(socket.is_connected && client.socket.is_connected) {
- if(socket.data_waiting) {
- buf = socket.read();
- client.socket.write(buf);
- continue;
- }
- if((input=console.inkey())!="") {
- if(input=="\x1d") /* Ctrl-] */
- break;
- socket.write(input);
- continue;
- }
- sleep(1);
-}
-
-console.status &= ~CON_RAW_IN; // Disable raw input mode
-
-socket.debug=false;
-
-print("\r\nEnd of socktest!\r\n");
\ No newline at end of file
diff --git a/exec/examples/staticservice.js b/exec/examples/staticservice.js
deleted file mode 100644
index e20fffcb396a11d69716facec61b1a4a0f4105bf..0000000000000000000000000000000000000000
--- a/exec/examples/staticservice.js
+++ /dev/null
@@ -1,27 +0,0 @@
-// staticservice.js
-
-// Example Synchronet "Static" Service module
-
-// You configure it by adding a line to your ctrl/services.cfg file:
-
-// ;protocol port max_clients options(hex) command-line
-// static 8001 10 802 staticservice.js
-
-while(!server.terminated) {
-
- if(server.socket.poll(10)<1)
- continue;
-
- if(server.terminated)
- break;
-
- log("Incoming...");
-
- sock = server.socket.accept();
-
- sock.write("Enter a string: ");
-
- sock.write("\r\nYou sent: '" + sock.readline() + "'\r\n");
-
- sock.close();
-}
\ No newline at end of file
diff --git a/exec/file_io.inc b/exec/file_io.inc
deleted file mode 100644
index 3b20527cce7404f8113c72cb8edf4e180c561953..0000000000000000000000000000000000000000
--- a/exec/file_io.inc
+++ /dev/null
@@ -1,32 +0,0 @@
-# file_io.inc
-
-# Baja include file defining various File I/O related constants
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!define O_RDONLY 1 # Read only
-!define O_WRONLY 2 # Write only
-!define O_RDWR 4 # Read/write
-
-# Flag values for open only
-
-!define O_CREAT 0x0100 # create and open file
-!define O_TRUNC 0x0200 # open with truncation
-!define O_EXCL 0x0400 # exclusive open
-!define O_APPEND 0x0800 # to end of file
-
-!define O_NOINHERIT 0x80
-!define O_DENYALL 0x10
-!define O_DENYWRITE 0x20
-!define O_DENYREAD 0x30
-!define O_DENYNONE 0x40
-
-# Seek (FSET_POS) constants for 'whence'
-
-!define SEEK_SET 0 # Seek from beginning of file
-!define SEEK_CUR 1 # Seek from current position
-!define SEEK_END 2 # Seek from end of file
-
-# End of FILE_IO.INC
diff --git a/exec/file_io.src b/exec/file_io.src
deleted file mode 100644
index 711f71219db6aa06e036afa5797c8cc172c79322..0000000000000000000000000000000000000000
--- a/exec/file_io.src
+++ /dev/null
@@ -1,182 +0,0 @@
-# file_io.src
-
-# Module for performing various i/o operations on a single file
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include file_io.inc
-
-# Variables
-int file
-int len
-int pos
-int time
-int int
-str buf
-str name
-
-# Get filename to open
-print "\r\nFilename: "
-getstr
-copy name str
-fopen file O_RDWR|O_CREAT|O_DENYNONE str
-if_false
- printf "Failed to open %s\r\n" name
- return
- end_if
-
-cmd_home
-fget_length file len
-fget_pos file pos
-
-crlf
-printf "Filename=%s\r\n" name
-fget_time file time
-time_str str time
-printf "Buf=%s\r\nInt=%ld Pos=%ld Len=%ld Time=%s\r\n" buf int pos len str
-feof file
-if_true
- print "At EOF\r\n"
- end_if
-crlf
-print "[R] Read buf [W] Write buf\r\n"
-print "[G] Get int [P] Put int\r\n"
-print "[S] Seek [B] Rewind\r\n"
-print "[L] Lock [U] Unlock\r\n"
-print "[F] Fprintf [C] Change len\r\n"
-print "[D] Change date [Z] End of file\r\n"
-print "[E] ETX Char\r\n"
-crlf
-print "Which or [Q]uit: "
-getkey
-printkey
-crlf
-
-cmdkey Q
- print "Close: "
- fclose file
- call success
- cmdpop
- return
- end_cmd
-
-cmdkey S
- print "Seek to: "
- getstr
- copy pos str
- fset_pos file pos
- call success
- end_cmd
-
-cmdkey B
- print "Rewinding...\r\n"
- fset_pos file 0
- call success
- end_cmd
-
-
-cmdkey Z
- print "Seeking to End of File...\r\n"
- fset_pos file 0 SEEK_END
- call success
- end_cmd
-
-cmdkey R
- print "Length to read: "
- getstr
- copy len str
- fread file buf len
- call success
- end_cmd
-
-cmdkey G
- print "Length to read: "
- getstr
- copy len str
- fread file int len
- call success
- end_cmd
-
-cmdkey P
- print "Length to write: "
- getstr
- copy len str
- print "Int: "
- getstr
- copy int str
- fwrite file int len
- call success
- end_cmd
-
-cmdkey W
- print "Length to write: "
- getstr
- copy len str
- print "String: "
- getstr
- fwrite file str len
- call success
- end_cmd
-
-cmdkey F
- print "String: "
- getstr
- fprintf file "%s" str
- call success
- end_cmd
-
-cmdkey L
- print "Length to lock: "
- getstr
- copy len str
- flock file len
- call success
- end_cmd
-
-cmdkey U
- print "Length to unlock: "
- getstr
- copy len str
- funlock file len
- call success
- end_cmd
-
-cmdkey C
- print "New length of file: "
- getstr
- copy len str
- fset_length file len
- call success
- end_cmd
-
-cmdkey E
- yes_no "Use ETX (3) instead of NULL (0) for terminating text"
- if_true
- fset_etx 3
- else
- fset_etx 0
- end_if
- end_cmd
-
-cmdkey D
- print "New file date (MM/DD/YY): "
- getstr
- date_int time str
- fset_time file time
- call success
- end_cmd
-
-end_cmd
-
-
-# Print "Successful" or "Unsuccessful" based on the current logic state
-:success
-if_true
- print "Successful\r\n"
-else
- print "Unsuccessful\r\n"
- end_if
-return
-
diff --git a/exec/finger.js b/exec/finger.js
deleted file mode 100644
index fae157a6574106de20e5232a0abc30085cd587cd..0000000000000000000000000000000000000000
--- a/exec/finger.js
+++ /dev/null
@@ -1,26 +0,0 @@
-// finger.js
-
-// A simple finger client
-
-if(argc>0 && argv[0].indexOf('@')!=-1)
- dest = argv[0];
-else if((dest = prompt("User (user@hostname)"))==null)
- exit();
-
-if((hp = dest.indexOf('@'))==-1) {
- dest += "@" + system.host_name;
- hp = dest.indexOf('@')
-}
-
-host = dest.slice(hp+1);
-sock = new Socket();
-//sock.debug = true;
-sock.bind(0,server.interface_ip_address);
-if(!sock.connect(host,"finger"))
- alert("Connection to " + host + " failed with error " + sock.last_error);
-else {
- sock.send(dest.slice(0,hp)+"\r\n");
- while(bbs.online && sock.is_connected)
- print(sock.readline());
-}
-sock.close();
diff --git a/exec/fingerservice.js b/exec/fingerservice.js
deleted file mode 100644
index 4b3498568e3e43c1da2a3b2ea0e9df23b028b32a..0000000000000000000000000000000000000000
--- a/exec/fingerservice.js
+++ /dev/null
@@ -1,417 +0,0 @@
-// fingerservice.js
-
-// Synchronet Service for the Finger protocol (RFC 1288)
-
-// $Id$
-
-// Example configuration (in ctrl/services.cfg):
-
-// Finger 79 0-unlimited 0 fingerservice.js [options]
-
-// Options:
-
-// -n to the configuration line to eliminate user age and gender
-// information from the query results.
-// -a report aliases only (no real names)
-// -ff enable the findfile feature (requires a "guest" account)
-
-// !WARNING!
-// Finger is an open protocol utilizing no forms of authorization
-// or authentication. FINGER IS A KNOWN AND ACCEPTED SECURITY RISK.
-// Detailed information about your system and its users is made
-// available to ANYONE using this service. If there is anything in
-// this script that you do not want to be made available to anyone
-// and everyone, please comment-out (using /* and */) that portion
-// of the script.
-
-const REVISION = "$Revision$".split(' ')[1];
-
-var include_age_gender=true;
-var include_real_name=true;
-var findfile=true;
-
-load("nodedefs.js");
-load("sockdefs.js");
-load("sbbsdefs.js");
-
-for(i=0;i<argc;i++) {
- switch(argv[i].toLowerCase()) {
- case "-n": // no age or gender
- include_age_gender = false;
- break;
- case "-a": // aliases only
- include_real_name = false;
- break;
- case "-ff": // enable findfile (requires "guest" account)
- findfile=true;
- break;
- }
-}
-
-
-var output_buf = "";
-
-// Write a string to the client socket
-function write(str)
-{
- output_buf += str;
-}
-
-// Write all the output at once
-function flush()
-{
- client.socket.send(output_buf);
-}
-
-// Write a crlf terminated string to the client socket
-function writeln(str)
-{
- write(str + "\r\n");
-}
-
-// Send the contents of a text file to the client socket
-function send_file(fname)
-{
- f = new File(fname);
- if(!f.open("r"))
- return;
- txt = f.readAll();
- f.close();
- for(l in txt)
- writeln(txt[l]);
-}
-
-// Returns true if a connection on the local 'port' was succesful
-function test_port(port)
-{
- sock = new Socket();
- success = sock.connect(system.host_name,port);
- sock.close();
-
- return(success);
-}
-
-function xtrn_name(code)
-{
- if(this.xtrn_area==undefined)
- return(code);
-
- if(xtrn_area.prog!=undefined)
- if(xtrn_area.prog[code]!=undefined)
- return(xtrn_area.prog[code].name);
- else { /* old way */
- for(s in xtrn_area.sec_list)
- for(p in xtrn_area.sec_list[s].prog_list)
- if(xtrn_area.sec_list[s].prog_list[p].code.toLowerCase()==code.toLowerCase())
- return(xtrn_area.sec_list[s].prog_list[p].name);
- }
- return(code);
-}
-
-function done()
-{
- flush();
- exit();
-}
-
-// Get Finger Request (the main entry point)
-if(datagram == undefined) // TCP
- request = client.socket.recvline(128 /*maxlen*/, 10 /*timeout*/);
-else // UDP
- request = datagram;
-
-if(request==null) {
- log("!TIMEOUT waiting for request");
- exit();
-}
-
-request = truncsp(request);
-
-log("client request: " + request);
-
-if(request.substr(0,2).toUpperCase()=="/W") // "higher level of verbosity"
- request=request.slice(2); // ignored...
-
-while(request.charAt(0)==' ') // skip prepended spaces
- request=request.slice(1);
-
-if(request=="") { // no specific user requested, give list of active users
- log("client requested active user list");
- write(format("%-25.25s %-31.31s Time %7s Node\r\n"
- ,"User","Action",include_age_gender ? "Age Sex":""));
- var dashes="----------------------------------------";
- write(format("%-25.25s %-31.31s %8.8s %3.3s %3.3s %4.4s\r\n"
- ,dashes,dashes,dashes
- ,include_age_gender ? dashes : ""
- ,include_age_gender ? dashes : ""
- ,dashes));
- var u = new User(1);
- for(n=0;n<system.node_list.length;n++) {
- if(system.node_list[n].status!=NODE_INUSE)
- continue;
- u.number=system.node_list[n].useron;
- if(system.node_list[n].action==NODE_XTRN && system.node_list[n].aux)
- action=format("running %s",xtrn_name(u.curxtrn));
- else
- action=format(NodeAction[system.node_list[n].action]
- ,system.node_list[n].aux);
- t=time()-u.logontime;
- if(t&0x80000000) t=0;
- write(format("%-25.25s %-31.31s%3u:%02u:%02u %3s %3s %4d\r\n"
- ,u.alias
- ,action
- ,Math.floor(t/(60*60))
- ,Math.floor(t/60)%60
- ,t%60
- ,include_age_gender ? u.age.toString() : ""
- ,include_age_gender ? u.gender : ""
- ,n+1
- ));
- }
- done();
-}
-
-// MODIFICATION BY MERLIN PART 1 STARTS HERE...
-
-if(findfile && 0) { // What is this supposed to do?
-
- if ((request.slice(0,9)) == "?findfile") {
- request=request.slice(9);
- request="findfile?".concat(request);
- }
-
- if ((request.slice(0,9)) == "?filefind") {
- request=request.slice(9);
- request="findfile?".concat(request);
- }
-}
-
-// MODIFICATION BY MERLIN PART 1 ENDS HERE
-
-
-if(request.charAt(0)=='?') { // Handle "special" requests
- request=request.slice(1);
- switch(request.toLowerCase()) {
-
- case "ver":
- writeln("Synchronet Finger Service " + REVISION);
- writeln(server.version);
- writeln(system.version_notice + system.revision + system.beta_version);
- writeln("Compiled " + system.compiled_when + " with " + system.compiled_with);
- writeln(system.js_version);
- writeln(system.os_version);
- break;
-
- case "time":
- t=time();
- writeln(system.timestr(t) + " " + system.zonestr() + " 0x" + t.toString(16));
- break;
-
- case "logon.lst":
- send_file(system.data_dir + "logon.lst");
- break;
-
- case "auto.msg":
- send_file(system.data_dir + "msgs/auto.msg");
- break;
-
- case "sockopts":
- for(i in sockopts)
- writeln(format("%-12s = %d"
- ,sockopts[i],client.socket.getoption(sockopts[i])));
- break;
-
- case "stats": /* Statistics */
- for(i in system.stats)
- writeln(format("%-25s = ", i) + system.stats[i]);
-
- total = time()-system.uptime;
- days = Math.floor(total/(24*60*60));
- if(days)
- total%=(24*60*60);
- hours = Math.floor(total/(60*60));
- min = (Math.floor(total/60))%60;
- sec = total%60;
-
- writeln(format("uptime = %u days, %u hours, %u minutes and %u seconds"
- ,days,hours,min,sec));
- break;
-
- case "nodelist":
- var u = new User(1);
- for(n=0;n<system.node_list.length;n++) {
- write(format("Node %2d ",n+1));
- if(system.node_list[n].status==NODE_INUSE) {
- u.number=system.node_list[n].useron;
- write(format("%s (%u %s) ", u.alias, u.age, u.gender));
- if(system.node_list[n].action==NODE_XTRN && system.node_list[n].aux)
- write(format("running %s",xtrn_name(u.curxtrn)));
- else
- write(format(NodeAction[system.node_list[n].action],system.node_list[n].aux));
- t=time()-u.logontime;
- if(t&0x80000000) t=0;
- write(format(" for %u minutes",Math.floor(t/60)));
- } else
- write(format(NodeStatus[system.node_list[n].status],system.node_list[n].aux));
-
- write("\r\n");
- }
- break;
-
- case "services": /* Services running on this host */
- if(test_port(23))
- writeln("Telnet");
- if(test_port(513))
- writeln("RLogin");
- if(test_port(21))
- writeln("FTP");
- if(test_port(25))
- writeln("SMTP");
- if(test_port(110))
- writeln("POP3");
- if(test_port(119))
- writeln("NNTP");
- if(test_port(70))
- writeln("Gopher");
- if(test_port(80))
- writeln("HTTP");
- if(test_port(113))
- writeln("IDENT");
- if(test_port(6667))
- writeln("IRC");
- if(test_port(8080))
- writeln("HTTP Proxy");
- break;
-
- default:
- writeln("Supported special requests (prepended with '?'):");
- writeln("\tver");
- writeln("\ttime");
- writeln("\tstats");
- writeln("\tservices");
- writeln("\tsockopts");
- writeln("\tnodelist");
- if(findfile)
- writeln("\tfindfile");
- writeln("\tauto.msg");
- writeln("\tlogon.lst");
- log(format("!UNSUPPORTED SPECIAL REQUEST: '%s'",request));
- break;
- }
- done();
-}
-
-// MODIFICATION BY MERLIN PART 3 STARTS HERE...
-
-if(findfile) {
- request=request.toLowerCase();
-
- if ((request.slice(0,9)) == "filefind?") {
- request=request.slice(9);
- request="findfile?".concat(request);
- }
-
- if ((request == "filefind") || (request == "findfile") || (request == "")) {
- request="findfile?";
- }
-
- if ((request.slice(0,9)) == "findfile?") {
- request=request.slice(9);
- write(format("\r\nFinger FindFile at %s",system.inetaddr));
-
- if (request.indexOf("?") != -1) {
- writeln("");
- writeln("");
- writeln("Invalid: You can not use wildcards");
- done();
- }
-
- if (request.indexOf("*") != -1) {
- writeln("");
- writeln("");
- writeln("Invalid: You can not use wildcards");
- done();
- }
-
- if (request == "") {
- writeln("");
- writeln("");
- writeln(format("Invalid: You must use findfile?filename.ext@%s",system.inetaddr));
- done();
- }
- if(!login("guest")) {
- writeln("\r\n\r\nFailed to login as 'guest'");
- done();
- }
-
- notfound = true;
- writeln(format(" searching for '%s'...",request));
- log(format("FindFile searching for: '%s'",request));
- writeln("");
- for(l in file_area.lib_list) {
- for(d in file_area.lib_list[l].dir_list) {
- dirpath=file_area.lib_list[l].dir_list[d].path
- dirpath=dirpath.concat(request);
- if (file_exists(dirpath)) {
- path="ftp://".concat(system.inetaddr,file_area.lib_list[l].dir_list[d].link,request);
- path=path.toLowerCase();
- writeln(format("Found at %s",path));
- notfound=false;
- }
- }
- }
- if (notfound) {
- writeln("Sorry, that file is not available here");
- }
- done();
- }
-}
-
-// MODIFICATION BY MERLIN PART 3 ENDS HERE...
-
-
-// User info is handled here
-
-var usernum=Number(request);
-if(!usernum) {
- var at = request.indexOf('@');
- if(at>0)
- request = request.substr(0,at-1);
-
- usernum = system.matchuser(request);
- if(!usernum) {
- log(format("!UNKNOWN USER: '%s'",request));
- exit();
- }
-}
-var u = new User(usernum);
-if(u == null) {
- log(format("!INVALID USER NUMBER: %d",usernum));
- exit();
-}
-
-uname = format("%s #%d", u.alias, u.number);
-write(format("User: %-30s", uname));
-if(include_real_name)
- write(format(" In real life: %s", u.name));
-write("\r\n");
-
-write(format("From: %s\r\n",u.location));
-if(include_age_gender) {
- birth=format("Birth: %s (Age: %u years)"
- ,u.birthdate,u.age);
- write(format("%-42s Gender: %s\r\n"
- ,birth,u.gender));
-}
-write(format("Shell: %-34s Editor: %s\r\n"
- ,u.command_shell,u.editor));
-write(format("Last login %s %s\r\nvia %s from %s [%s]\r\n"
- ,system.timestr(u.stats.laston_date)
- ,system.zonestr()
- ,u.connection
- ,u.host_name
- ,u.ip_address));
-
-done();
-
-/* End of fingerservice.js */
diff --git a/exec/ftp-html.js b/exec/ftp-html.js
deleted file mode 100644
index ea8008baea89a34176acac555c7c6acac0ea1317..0000000000000000000000000000000000000000
--- a/exec/ftp-html.js
+++ /dev/null
@@ -1,434 +0,0 @@
-// JavaScript HTML Index for Synchronet FTP Server
-// $Id$
-
-var start=new Date();
-var time_stamp=start.valueOf().toString(36); // Used to defeat caching browsers
-
-load("sbbsdefs.js"); // Synchronet constants
-
-/* Utility Functions */
-
-function writeln(str)
-{
- write(str + "\r\n");
-}
-
-function date(time)
-{
- var mon=["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"];
- var d=new Date(time*1000);
-
- return(format("%s %02d %d %02d:%02d"
- ,mon[d.getUTCMonth()]
- ,d.getUTCDate()
- ,d.getUTCFullYear()
- ,d.getUTCHours()
- ,d.getUTCMinutes()));
-}
-
-function kbytes(nbytes)
-{
- return(Math.round(nbytes/1024)+"k");
-}
-
-function secstr(sec)
-{
- return(format("%02u:%02u",sec/60,sec%60));
-}
-
-var title = system.name + " BBS - FTP Server";
-var font_face = "<font face=Arial,Helvetica,sans-serif>";
-var font_size = 2; // Change base font size here
-if(client.socket.local_port!=21)
- port=":" + client.socket.local_port;
-else
- port="";
-
-writeln('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">');
-writeln("<html>");
-writeln("<head>");
-writeln("<title>");
-writeln(title);
-if (ftp.curdir.name!=undefined)
- write(" - " + ftp.curdir.name);
-else if(ftp.curlib.description!=undefined)
- write(" - " + ftp.curlib.description);
-writeln("</title>");
-
-/* META TAGS */
-writeln("<meta name='GENERATOR' content='" + system.version + "'>");
-// The following line is necessary for IBM extended-ASCII in descriptions
-writeln("<meta http-equiv='Content-Type' content='text/html; charset=IBM437'>");
-
-writeln("</head>");
-writeln("<body bgcolor=teal text=white link=yellow vlink=lime alink=white>");
-writeln(font_face);
-
-/* Go To Select Box */
-writeln("<table width=100%>");
-writeln("<td>");
-writeln("<h1>" + font_face + "<font color=lime>" + title.italics() + "</font></h1>");
-writeln("<td align=right>");
-writeln("<form>"); // Netscape requires this to be in a form <sigh>
-writeln(format(
- "<select " +
- "onChange='if(selectedIndex>0) location=options[selectedIndex].value + \"%s\";'>"
- ,"?$" + time_stamp));
-writeln("<option>Go To...</option>");
-writeln(format("<option value=/%s>Root</option>",html_index_file));
-for(l in file_area.lib_list) {
- writeln(format("<optgroup label=%s>",file_area.lib_list[l].name));
- writeln(format("<option value=%s>[%s]"
- ,file_area.lib_list[l].link
- ,file_area.lib_list[l].name));
- for(d in file_area.lib_list[l].dir_list) {
- writeln(format("<option value=%s>%s"
- ,file_area.lib_list[l].dir_list[d].link
- ,file_area.lib_list[l].dir_list[d].name));
- }
- writeln("</optgroup>");
-}
-writeln("</select>");
-writeln("</form>");
-writeln("</table>");
-
-var prevdir;
-
-var hdr_font="<font color=silver>";
-var dat_font="<font color=white>";
-
-if(!(user.security.restrictions&UFLAG_G)) { /* !Guest or Anonymous */
- /* Logout button */
- writeln("<table align=right>");
- writeln("<form>");
- writeln("<input type=button value=Logout onclick='location=\"ftp://"
- + format("%s/%s?$%s",system.host_name + port,html_index_file,time_stamp)
- + "\";'>");
- writeln("</form>");
- writeln("</table>");
-
- /* User Info */
- writeln("<table nowrap align=left>");
- writeln(font_face);
- writeln("<tr><th align=right>"+hdr_font+"User:<th align=left>"+dat_font+user.alias);
- writeln("<tr><th align=right>"+hdr_font+"Address:<th align=left width=150>"+dat_font+user.ip_address);
- write("<tr><th align=right>"+hdr_font+"Credits:<th align=left>"+dat_font);
- if(user.security.exemptions&UFLAG_D)
- writeln("Exempt");
- else
- writeln(kbytes(user.security.credits+user.security.free_credits));
- write("<tr><th align=right>"+hdr_font+"Time left:<th align=left>"+dat_font);
- if(user.security.exemptions&UFLAG_T)
- writeln("Exempt");
- else
- writeln(secstr(ftp.time_left));
- writeln("</table>");
-
- /* User Stats */
-
- writeln("<table nowrap>");
- writeln(font_face);
- writeln("<tr><th align=right>"+hdr_font+"Logons:<th align=left>"+dat_font+user.stats.total_logons);
- writeln("<tr><th align=right>"+hdr_font+"Last on:<th align=left>"+date(user.stats.laston_date));
- writeln("<tr><th align=right>"+hdr_font+"Uploaded:<th align=left>"+dat_font);
- writeln(format("%s bytes in %u files"
- ,kbytes(user.stats.bytes_uploaded),user.stats.files_uploaded));
- writeln("<tr><th align=right>"+hdr_font+"Downloaded:<th align=left>"+dat_font);
- writeln(format("%s bytes in %u files",kbytes(user.stats.bytes_downloaded)
- ,user.stats.files_downloaded));
- writeln("</table>");
- writeln("<br>");
-} else if(ftp.curlib.name==undefined) { /* Login */
- writeln("<table align=right>");
- writeln("<td><input type=button value='New User' onClick='location=\"telnet://"
- + system.host_name + port + "\";'>");
- writeln("</table>");
-
- writeln("<form name='login'>");
- writeln("<table border=1 frame=box rules=none cellpadding=3>");
- writeln(font_face);
- writeln("<tr><th valign=top align=left>"+hdr_font+"Name");
- writeln("<td colspan=2><input type=text name='username' size=25 maxlength=25>");
- writeln("<tr><th valign=top align=left>"+hdr_font+"Password");
- writeln("<td><input type=password name='password' size=10 maxlength=25>");
- writeln("<td align=right><input type=button name='LoginButton' value='Login' onClick='login_event();'>");
-
- /* Client-Side Script */
- writeln("<SCRIPT language='JavaScript'>");
- writeln("<!--");
- writeln("function login_event() {");
- write("var url='ftp://'");
- write("+ escape(document.login.username.value) + ':'");
- write("+ escape(document.login.password.value) + '@'");
- write(format("+ '%s/%s?$%s'\r\n"
- ,system.host_name + port,html_index_file,time_stamp));
-// writeln("alert(url);");
- writeln("location = url;");
- writeln("}");
- writeln("// -->");
- writeln("</script>");
-
- writeln("</table>");
- writeln("</form>");
-}
-
-/* Virtual Path */
-writeln("<h3>" + hdr_font + "Path: ");
-if(ftp.curlib.name==undefined)
- writeln(dat_font + "Root");
-else
- writeln("Root".link(format("/%s?$%s",html_index_file,time_stamp)));
-if(ftp.curlib.name!=undefined) {
- if(ftp.curdir.name==undefined)
- writeln(" / " + dat_font + ftp.curlib.description);
- else
- writeln(" / " + ftp.curlib.description.link(format("/%s/%s?$%s"
- ,ftp.curlib.name,html_index_file,time_stamp)));
-}
-if(ftp.curdir.name!=undefined)
- writeln(" / " + dat_font + ftp.curdir.description);
-if(ftp.curdir.settings!=undefined && ftp.curdir.settings&DIR_FREE)
- write(hdr_font+" - FREE");
-writeln("</h3>");
-
-
-/* Table Attributes */
-var hdr_background="white";
-var hdr_font=format("<font size=%d color=black>",font_size-1);
-var dat_font=format("<font size=%d>",font_size);
-var cell_spacing=""; //"cellspacing=2 cellpadding=2";
-
-/* Directory Listing */
-if(ftp.dir_list.length) {
-
- writeln("<table " + cell_spacing + " width=33%>");
- writeln(font_face);
-
- /* header */
- writeln("<thead>");
- writeln("<tr bgcolor=" + hdr_background + ">");
- writeln("<th>" + hdr_font + "Directory");
- if(ftp.curlib.name!=undefined)
- writeln("<th>" + hdr_font + "Files");
- writeln("</thead>");
-
- /* body */
- writeln("<tbody>");
- for(i in ftp.dir_list) {
- writeln("<tr>");
-
- /* filename */
- writeln("<th nowrap align=left>" + dat_font
- + ftp.dir_list[i].description.link(ftp.dir_list[i].link + "?$" + time_stamp));
-
- if(ftp.curlib.name!=undefined) {
- writeln("<td align=right><font color=black>" + dat_font + ftp.dir_list[i].size);
- writeln("<th>" + dat_font + (ftp.dir_list[i].settings&DIR_FREE ? "FREE":""));
- }
- }
- writeln("</table>");
- if(ftp.file_list.length)
- writeln("<br>");
-}
-
-/* File Listing */
-if(ftp.file_list.length) {
-
- /* Sort the list? */
- switch(ftp.sort) {
- case "uploader":
- ftp.file_list.sort(function(a,b)
- { if(a.uploader>b.uploader)
- return(1);
- if(a.uploader<b.uploader)
- return(-1);
- return(0); }
- );
- break;
- case "size":
- ftp.file_list.sort(function(a,b)
- { return(a.size-b.size); }
- );
- break;
- case "credits":
- ftp.file_list.sort(function(a,b)
- { return(a.credits-b.credits); }
- );
- break;
- case "time":
- ftp.file_list.sort(function(a,b)
- { return(a.time.valueOf()-b.time.valueOf()); }
- );
- break;
- case "hits":
- ftp.file_list.sort(function(a,b)
- { return(a.times_downloaded-b.times_downloaded); }
- );
- break;
- }
- if(ftp.reverse)
- ftp.file_list.reverse();
-
- var show_ext_desc; /* show extended descriptions */
- var total_bytes=0;
- var total_downloads=0;
- var most_recent=0;
-
- if (ftp.curdir.name==undefined)
- show_ext_desc=false; /* aliased files have no ext desc */
- else
- show_ext_desc=user.settings&USER_EXTDESC;
-
- writeln("<table " + cell_spacing + " width=100%>");
- writeln(font_face);
-
- /* header */
- writeln("<thead>");
- writeln("<tr bgcolor=" + hdr_background + ">");
-
- /* File */
- writeln(format("<th><a href=%s?sort=name%s$%s>%sFile</a>"
- ,html_index_file
- ,(ftp.sort=="name" && !ftp.reverse) ? "&reverse":"", time_stamp, hdr_font));
-
- /* Credits or Size */
- if(ftp.curdir.settings!=undefined && !(ftp.curdir.settings&DIR_FREE))
- writeln(format("<th><a href=%s?sort=credits%s$%s>%sCredits</a>"
- ,html_index_file
- ,(ftp.sort=="credits" && !ftp.reverse) ? "&reverse" : "", time_stamp, hdr_font));
- else
- writeln(format("<th><a href=%s?sort=size%s$%s>%sSize</a>"
- ,html_index_file
- ,(ftp.sort=="size" && !ftp.reverse) ? "&reverse" : "", time_stamp, hdr_font));
-
- /* Description */
- write("<th>" + hdr_font + "Description");
- if(!(user.security.restrictions&UFLAG_G) && ftp.curdir.settings!=undefined) {
- if(user.settings&USER_EXTDESC)
- writeln(format(" [%s]"
- ,(hdr_font+"short").link(format("%s?ext=off$%s",html_index_file, time_stamp))));
- else
- writeln(format(" [%s]"
- ,(hdr_font+"extended").link(format("%s?ext=on$%s",html_index_file, time_stamp))));
- }
-
- /* Date/Time */
- writeln(format("<th><a href=%s?sort=time%s$%s>%sDate/Time</a>"
- ,html_index_file
- ,(ftp.sort=="time" && !ftp.reverse) ? "&reverse" : "", time_stamp, hdr_font));
-
- /* Uploader and Hits (downloads) */
- if(ftp.curdir.name!=undefined) { /* not valid for aliased files in root */
- writeln(format("<th><a href=%s?sort=uploader%s$%s>%sUploader</a>"
- ,html_index_file
- ,(ftp.sort=="uploader" && !ftp.reverse) ? "&reverse" : "", time_stamp, hdr_font));
- writeln(format("<th><a href=%s?sort=hits%s$%s>%sHits</a>"
- ,html_index_file
- ,(ftp.sort=="hits" && !ftp.reverse) ? "&reverse" : "", time_stamp, hdr_font));
- }
- writeln("</thead>");
-
- /* body */
- writeln("<tbody>");
- for(i in ftp.file_list) {
-
- total_downloads+=ftp.file_list[i].times_downloaded;
- if(ftp.file_list[i].time>most_recent)
- most_recent=ftp.file_list[i].time;
-
- writeln("<tr valign=top>");
-
- /* filename */
- if(user.security.restrictions&UFLAG_D
- || (ftp.curdir.settings!=undefined
- && !(ftp.curdir.settings&DIR_FREE)
- && !(user.security.exemptions&UFLAG_D)
- && ftp.file_list[i].credits > (user.security.credits+user.security.free_credits))
- ) {
- write("<td align=left>" + dat_font);
- writeln(ftp.file_list[i].name.link(
- "javascript:alert('Sorry, you do not have enough credits to download this file.');"));
- } else {
- write("<th align=left>" + dat_font);
- writeln(ftp.file_list[i].name.link(ftp.file_list[i].link));
- }
-
- /* size */
- write("<td align=right>" + dat_font + "<font color=black>");
- if(ftp.curdir.settings!=undefined && !(ftp.curdir.settings&DIR_FREE)) {
- if(!ftp.file_list[i].credits)
- writeln("<font color=white><b>FREE");
- else
- writeln(kbytes(ftp.file_list[i].credits));
- total_bytes+=ftp.file_list[i].credits;
- } else {
- writeln(kbytes(ftp.file_list[i].size));
- total_bytes+=ftp.file_list[i].size;
- }
-
- /* description */
- write("<td>" + dat_font);
- if (show_ext_desc) {
- if(ftp.file_list[i].settings&FILE_EXTDESC)
- writeln("<pre>" + ftp.file_list[i].extended_description);
- else
- writeln("<tt>" + ftp.file_list[i].description);
- } else
- writeln(dat_font + ftp.file_list[i].description);
-
- /* date/time */
- writeln("<td align=center nowrap>" + dat_font + "<font color=black>"
- + "<tt>"+ date(ftp.file_list[i].time));
-
- if(ftp.curdir.name!=undefined) { /* not valid for aliased files in root */
- /* uploader */
- var uploader=ftp.file_list[i].uploader;
- if (ftp.file_list[i].settings&FILE_ANON)
- uploader="Anonymous";
- else if (uploader == "-> ADDFILES <-")
- uploader="Sysop".link("mailto:sysop@"+system.inetaddr);
- else if (!(user.security.restrictions&UFLAG_G)) /* ! Guest/Anonymous */
- uploader=uploader.link("mailto:" + uploader + "@" + system.inetaddr);
- writeln("<td nowrap>" + dat_font + uploader);
-
- /* download count */
- writeln("<td align=right>" + dat_font + "<font color=black>"
- + ftp.file_list[i].times_downloaded);
- }
- }
-
- /* Footer (with totals) */
- writeln("<tfoot>");
- writeln(format("<tr bgcolor=%s><th>%s%lu files" +
- "<th align=right>%s%s<th>%s-<th>%s<font color=black><tt>%s"
- ,hdr_background
- ,hdr_font, ftp.file_list.length
- ,hdr_font, kbytes(total_bytes)
- ,hdr_font
- ,dat_font, date(most_recent)
- ));
-
- if(ftp.curdir.name!=undefined) /* not valid for aliased files in root */
- writeln(format("<th>%s-<th align=right>%s%lu"
- ,hdr_font
- ,hdr_font, total_downloads
- ));
-
- writeln("</table>");
-}
-
-if(!ftp.file_list.length && !ftp.dir_list.length)
- writeln("<br><b>No Files.</b><br>");
-
-/* Footer */
-write(format("<br><font size=%d color=silver>Problems? Ask ",font_size-1));
-write(format("<a href=mailto:sysop@%s>%s</a>.",system.inetaddr,system.operator));
-
-write(format("<br><font size=%d>Dynamically generated ",font_size-1));
-write(format("in %lu milliseconds ", new Date().valueOf()-start.valueOf()));
-write("by <a href=http://www.synchro.net>" + server.version + "</a>");
-writeln("<br>" + Date() + "</font>");
-writeln("</body>");
-writeln("</html>");
-
-/* End of ftp-html.js */
\ No newline at end of file
diff --git a/exec/ftp.src b/exec/ftp.src
deleted file mode 100644
index 4fb79bd5fa6318079d6d08fc15cc1ce86b805bd7..0000000000000000000000000000000000000000
--- a/exec/ftp.src
+++ /dev/null
@@ -1,338 +0,0 @@
-# ftp.src
-
-# FTP Client for Synchronet
-
-# Requires Baja v2.30 and Synchronet v3.00d or later
-
-!include sbbsdefs.inc # _ftp_mode and _socket_error
-
-!define ON "\1gON"
-!define OFF "\1rOFF"
-
-int sock port i
-str addr user pass src dest fname
-str pasv_mode hash_mode ascii_mode debug_mode
-
-set _ftp_mode FTP_ECHO_RSP|FTP_HASH|FTP_PASV
-
-print "\r\n\1h\1ySynchronet \1wFTP Client v1.10 \1y- Copyright 2002 Rob Swindell\1n\r\n\r\n"
-
-compare str ""
-if_false
- compare_word "*"
- if_false
- call socket_connect
- end_if
- end_if
-
-loop
-
-print "\1n\1hftp\1n> "
-getstr
-compare str ""
-if_equal
- continue
- end_if
-
-compare_word "help" # pseudonym for ?
-if_true
- set str "?"
- end_if
-
-compare_word "?"
-if_true
- compare_all_bits _ftp_mode FTP_HASH
- if_true
- set hash_mode ON
- else
- set hash_mode OFF
- end_if
-
- compare_all_bits _ftp_mode FTP_ECHO_CMD
- if_true
- set debug_mode ON
- else
- set debug_mode OFF
- end_if
-
- compare_all_bits _ftp_mode FTP_PASV
- if_true
- set pasv_mode ON
- else
- set pasv_mode OFF
- end_if
-
- compare_all_bits _ftp_mode FTP_ASCII
- if_true
- set ascii_mode ON
- else
- set ascii_mode OFF
- end_if
-
- print "\r\n\1hCommands are\1n:\r\n\r\n"
- print "\1h\1yopen \1w: \1cstart an FTP session\r\n"
- print "\1h\1yclose \1w: \1cclose an FTP session\r\n"
- print "\1h\1ydir \1w: \1cprint a directory listing\r\n"
- print "\1h\1ypwd \1w: \1cprint working directory\r\n"
- print "\1h\1ycd \1w: \1cchange working directory\r\n"
- printf "\1h\1ypasv \1w: \1ctoggle passive mode transfers (currently %s\1c)\r\n" pasv_mode
- printf "\1h\1yascii \1w: \1ctoggle ASCII (CR/LF) mode transfers (currently %s\1c)\r\n" ascii_mode
- printf "\1h\1yhash \1w: \1ctoggle hash printing during transfer (currently %s\1c)\r\n" hash_mode
- printf "\1h\1ydebug \1w: \1ctoggle command debugging (currently %s\1c)\r\n" debug_mode
- print "\1h\1yget \1w: \1cretrieve (download) file\r\n"
- print "\1h\1yput \1w: \1csend (upload) file\r\n"
- print "\1h\1ydelete \1w: \1cdelete (erase) file\r\n"
- print "\1h\1yquit \1w: \1cexit FTP\r\n"
- crlf
- continue
- end_if
-
-compare_word "open"
-if_true
- shift_str 5
-
- socket_close sock # In case there's already a socket open
-
- call socket_connect
- continue
- end_if
-
-compare_str "pasv"
-if_true
- xor _ftp_mode FTP_PASV
- compare_all_bits _ftp_mode FTP_PASV
- print "\1h\1cPassive file transfer mode: "
- if_true
- print ON
- else
- print OFF
- end_if
- crlf
- continue
- end_if
-
-compare_str "hash"
-if_true
- xor _ftp_mode FTP_HASH
- compare_all_bits _ftp_mode FTP_HASH
- print "\1h\1cHash mark printing: "
- if_true
- print ON
- else
- print OFF
- end_if
- crlf
- continue
- end_if
-
-compare_str "debug"
-if_true
- xor _ftp_mode FTP_ECHO_CMD
- compare_all_bits _ftp_mode FTP_ECHO_CMD
- print "\1h\1cCommand/response debugging: "
- if_true
- print ON
- else
- print OFF
- end_if
- crlf
- continue
- end_if
-
-compare_str "ascii"
-if_true
- xor _ftp_mode FTP_ASCII
- compare_all_bits _ftp_mode FTP_ASCII
- print "\1h\1cASCII file transfer mode: "
- if_true
- print ON
- else
- print OFF
- end_if
- crlf
- continue
- end_if
-
-compare_str "quit"
-if_true
- ftp_logout sock
- socket_close sock
- return
- end_if
-
-compare sock 0
-if_true
- print "Not connected (use '\1i?\1n' for menu).\r\n"
- continue
- end_if
-
-# ALL commands from here on require connection
-
-compare_str "close"
-if_true
- ftp_logout sock
- if_false
- printf "!ftp_logout failed socket_error=%d\r\n" _socket_error
- end_if
- socket_close sock
- continue
- end_if
-
-compare_word "dir"
-if_true
- shift_str 4
- ftp_dir sock str
- if_false
- printf "!ftp_dir failed socket_error=%d\r\n" _socket_error
- end_if
- continue
- end_if
-
-compare_str "pwd"
-if_true
- ftp_pwd sock
- if_false
- printf "!ftp_pwd failed socket_error=%d\r\n" _socket_error
- end_if
- continue
- end_if
-
-compare_word "cd"
-if_true
- shift_str 3
- compare_str ""
- if_true
- print "Directory: "
- getstr
- end_if
- ftp_cwd sock str
- if_false
- printf "!ftp_cwd failed socket_error=%d\r\n" _socket_error
- end_if
- continue
- end_if
-
-compare_word "delete"
-if_true
- shift_str 6
- compare_str ""
- if_true
- print "File: "
- getstr
- end_if
- ftp_delete sock str
- if_false
- printf "!ftp_delete failed socket_error=%d\r\n" _socket_error
- end_if
- continue
- end_if
-
-
-compare_word "get"
-if_true
- shift_str 4
- compare_str ""
- if_true
- print "File: "
- getstr
- end_if
- copy fname str
- # skip path
- shift_to_last_char fname '/'
- if_true
- shift_str fname 1
- end_if
- shift_to_last_char fname '\\'
- if_true
- shift_str fname 1
- end_if
- set dest "%g" # temp directory
- strcat dest fname
- ftp_get sock str dest
- if_false
- printf "!ftp_get failed socket_error=%d\r\n" _socket_error
- continue
- end_if
- copy str dest
- file_send
- remove_file dest
- continue
- end_if
-
-compare_word "put"
-if_true
- shift_str 4
- compare_str ""
- if_true
- print "File: "
- getstr
- end_if
- copy dest str
- copy fname str
- # skip path
- shift_to_last_char fname '/'
- if_true
- shift_str fname 1
- end_if
- shift_to_last_char fname '\\'
- if_true
- shift_str fname 1
- end_if
- set src "%g" # temp directory
- strcat src fname
- copy str src
- file_receive # uses str
- chkfile src
- if_false
- continue
- end_if
- printf "ftp: sending %s\r\n" fname
- ftp_put sock src dest
- if_false
- remove_file src
- printf "!ftp_put failed socket_error=%d\r\n" _socket_error
- continue
- end_if
- remove_file src
- continue
- end_if
-
-printf "Invalid command (use '\1i?\1n' for menu).\r\n" str
-
-end_loop
-
-########################################
-# Socket create/open/connect sub-routine
-:socket_connect
-
-socket_open sock
-if_false
- printf "!socket_open failure socket_error=%d\r\n" _socket_error
- continue
- end_if
-
-copy addr str
-compare addr ""
-if_true
- print "address: "
- getstr addr
- end_if
-
-set port 21 # default FTP port
-printf "Connecting to %s ... " addr
-socket_connect sock addr port
-crlf
-if_false
- printf "!socket_connect failed socket_error=%d\r\n" _socket_error
- return
- end_if
-print "login: "
-getstr user
-print "password: "
-getstr pass 60 K_NOECHO
-crlf
-ftp_login sock user pass
-if_false
- printf "!ftp_login failed socket_error=%d\r\n" _socket_error
- end_if
-return
diff --git a/exec/getimlst.src b/exec/getimlst.src
deleted file mode 100644
index 98f7a98cca234b05d3be53128850e2bf279fc989..0000000000000000000000000000000000000000
--- a/exec/getimlst.src
+++ /dev/null
@@ -1,73 +0,0 @@
-# getimlst.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-###############################################################################
-# Baja module for obtaining Instant Message List from ftp.synchro.net #
-# Requires Synchronet v3.00d and Baja v2.30 #
-# Developed 2001 by Rob Swindell #
-###############################################################################
-
-# Add "GETIMLST" as a timed-event in SCFG->External Programs->Timed Events
-
-!include sbbsdefs.inc
-!include file_io.inc
-
-# Variables
-int sock port
-str addr user password
-str local_file
-
-set _ftp_mode FTP_PASV
-
-# Process command line arguments
-set addr "ftp.synchro.net"
-set user "anonymous"
-set password "getimlst@%q"
-
-socket_open sock
-if_false
- lprintf "GETIMLST: !socket_open failure socket_error=%d" _socket_error
- goto exit
- end_if
-
-set port 21 # default FTP port
-lprintf "GETIMLST: Connecting to %s ... " addr
-socket_connect sock addr port
-if_false
- lprintf "GETIMLST: !socket_connect failed socket_error=%d" _socket_error
- goto exit
- end_if
-lprintf "GETIMLST: Connected to %s" addr
-
-lprintf "GETIMLST: Logging in as '%s' (PW: '%s')" user password
-ftp_login sock user password
-if_false
- lprintf "GETIMLST: !ftp_login failed socket_error=%d" _socket_error
- goto exit
- end_if
-
-lprintf "GETIMLST: Logged in successfully"
-
-#################
-# Download List #
-#################
-set str "sbbsimsg.lst"
-sprintf local_file "%%k%s" str
-lprintf "GETIMLST: Downloading Instant Message system list: %s" str
-ftp_get sock str local_file
-if_true
- lprintf "GETIMLST: Downloaded %s successfully" str
-else
- lprintf "GETIMLST: %s NOT downloaded!" str
- end_if
-
-#################
-# Exit routine #
-#################
-:exit
-lprintf "GETIMLST: Done."
-
-# End of GETIMLST.SRC
diff --git a/exec/gopherservice.js b/exec/gopherservice.js
deleted file mode 100644
index bd5470369f5abd17aa220bb250a16b186042d01d..0000000000000000000000000000000000000000
--- a/exec/gopherservice.js
+++ /dev/null
@@ -1,274 +0,0 @@
-// gopherservice.js
-
-// Synchronet Service for the Gopher Protocol (RFC 1436)
-
-// Example configuration (in ctrl/services.cfg):
-
-// Gopher 70 0-unlimited 0 gopherservice.js
-
-load("sbbsdefs.js");
-load("nodedefs.js");
-
-const REVISION = "$Revision$".split(' ')[1];
-const GOPHER_PORT = client.socket.local_port;
-
-var debug = false;
-var no_anonymous = false;
-
-// Parse arguments
-for(i=0;i<argc;i++)
- if(argv[i].toLowerCase()=="-d")
- debug = true;
-
-// Write a string to the client socket
-function write(str)
-{
- if(debug)
- log("rsp: " + str);
- client.socket.send(str);
-}
-
-function writeln(str)
-{
- write(str + "\r\n");
-}
-
-// Send the contents of a text file to the client socket
-function send_file(fname)
-{
- f = new File(fname);
- if(!f.open("r"))
- return;
- txt = f.readAll();
- f.close();
- for(l in txt)
- writeln(strip_ctrl(txt[l]));
-}
-
-var msgbase=null;
-
-if(!login("guest"))
- log("!WARNING: NO GUEST ACCOUNT CONFIGURED");
-
-// Get Request
-request = client.socket.recvline(512 /*maxlen*/, 10 /*timeout*/);
-
-if(request==null) {
- log("!TIMEOUT waiting for request");
- exit();
-}
-
-log("client request: '" + request + "'");
-
-var prefix="";
-var gopher_plus=false;
-if((term=request.indexOf("\t+"))>=0) {
- gopher_plus=true;
- request=request.substr(0,term);
-} else if((term=request.indexOf("\t$"))>=0) {
- prefix="+INFO: ";
- gopher_plus=true;
- request=request.substr(0,term);
-}
-
-if(gopher_plus)
- writeln("+-1"); // indicates '.' terminated data
-
-
-if(request=="" || request=='/') { /* "root" */
- for(g in msg_area.grp_list)
- writeln(prefix
- + "1" + msg_area.grp_list[g].description
- + "\tgrp:" + msg_area.grp_list[g].name.toLowerCase()
- + "\t" + system.host_name
- + "\t" + GOPHER_PORT);
-/** to-do
- for(l in file_area.lib_list)
- writeln(format("1%s\tlib:%s\t%s\t%u"
- ,file_area.lib_list[l].description
- ,file_area.lib_list[l].name.toLowerCase()
- ,system.host_name
- ,GOPHER_PORT
- ));
-**/
- writeln(prefix
- + "0Node List\tnodelist"
- +"\t" + system.host_name
- +"\t" + GOPHER_PORT);
- writeln(prefix
- + "0Logon List\tlogonlist"
- +"\t" + system.host_name
- +"\t" + GOPHER_PORT);
- writeln(prefix
- + "0Auto-Message\tautomsg"
- +"\t" + system.host_name
- +"\t" + GOPHER_PORT);
- writeln(prefix
- + "0System Statistics\tstats"
- +"\t" + system.host_name
- +"\t" + GOPHER_PORT);
- writeln(prefix
- + "0System Time\ttime"
- +"\t" + system.host_name
- +"\t" + GOPHER_PORT);
- writeln(prefix
- + "0Version Information\tver"
- +"\t" + system.host_name
- +"\t" + GOPHER_PORT);
-
- writeln(".");
- exit();
-}
-
-switch(request) {
- case "nodelist":
- var u = new User(1);
- for(n=0;n<system.node_list.length;n++) {
- write(format("Node %2d ",n+1));
- if(system.node_list[n].status==NODE_INUSE) {
- u.number=system.node_list[n].useron;
- //write(format("%s (%u %s) ", u.alias, u.age, u.gender));
- write(u.alias + " (" + u.age + " " + u.gender +") ");
- if(system.node_list[n].action==NODE_XTRN && system.node_list[n].aux)
- write("running %s" + u.curxtrn);
- else
- write(format(NodeAction[system.node_list[n].action],system.node_list[n].aux));
- } else
- write(format(NodeStatus[system.node_list[n].status],system.node_list[n].aux));
-
- write("\r\n");
- }
- break;
- case "logonlist":
- send_file(system.data_dir + "logon.lst");
- break;
-
- case "automsg":
- send_file(system.data_dir + "msgs/auto.msg");
- break;
-
- case "ver":
- writeln("Synchronet Gopher Service " + REVISION);
- writeln(server.version);
- writeln(system.version_notice + system.revision + system.beta_version);
- writeln("Compiled " + system.compiled_when + " with " + system.compiled_with);
- writeln(system.js_version);
- writeln(system.os_version);
- break;
-
- case "time":
- t=time();
- writeln(system.timestr(t) + " " + system.zonestr() + " 0x" + t.toString(16));
- break;
-
- case "stats": /* Statistics */
- for(i in system.stats)
- writeln(format("%-25s = ", i) + system.stats[i]);
-
- total = time()-system.uptime;
- days = Math.floor(total/(24*60*60));
- if(days)
- total%=(24*60*60);
- hours = Math.floor(total/(60*60));
- min = (Math.floor(total/60))%60;
- sec = total%60;
-
- writeln(format("uptime = %u days, %u hours, %u minutes and %u seconds"
- ,days,hours,min,sec));
- break;
-}
-
-field = request.split(':');
-switch(field[0]) {
- case "grp":
- for(g in msg_area.grp_list)
- if(msg_area.grp_list[g].name.toLowerCase()==field[1]) {
- for(s in msg_area.grp_list[g].sub_list)
- writeln(prefix
- + "1[" + msg_area.grp_list[g].name + "] "
- + msg_area.grp_list[g].sub_list[s].description
- + "\tsub:"
- + msg_area.grp_list[g].sub_list[s].code.toLowerCase()
- + "\t"
- + system.host_name
- + "\t"
- + GOPHER_PORT
- );
- break;
- }
- break;
- case "lib":
- for(l in file_area.lib_list)
- if(file_area.lib_list[l].name.toLowerCase()==field[1]) {
- for(d in file_area.lib_list[l].dir_list)
- writeln(format(prefix
- + "1[%s] %s\tdir:%s\t%s\t%u"
- ,file_area.lib_list[l].name
- ,file_area.lib_list[l].dir_list[d].description
- ,file_area.lib_list[l].dir_list[d].code.toLowerCase()
- ,system.host_name
- ,GOPHER_PORT
- ));
- break;
- }
- break;
- case "sub":
- msgbase = new MsgBase(field[1]);
- if(msgbase.open!=undefined && msgbase.open()==false) {
- writeln("!ERROR " + msgbase.last_error);
- break;
- }
-
- if(Number(field[2])) {
- hdr=msgbase.get_msg_header(false,Number(field[2]));
- if(hdr.attr&MSG_DELETE)
- break;
- writeln("Subj : " + hdr.subject);
- writeln("To : " + hdr.to);
- writeln("From : " + hdr.from);
- writeln("Date : " + system.timestr(hdr.when_written_time));
- writeln("");
- body=msgbase.get_msg_body(false,Number(field[2]),true,true)
- writeln(body);
- msgbase.close();
- break;
- }
-/**
- msginfo=format("%-25.25s %-25.25s %-25.25s %s"
- ,"Subject"
- ,"From"
- ,"To"
- ,"Date"
- );
- writeln(format("0%s\tnull\tnull\tnull\r\n",msginfo));
-**/
- first = msgbase.first_msg;
- for(i=msgbase.last_msg;i>=first;i--) {
- hdr=msgbase.get_msg_header(false,i);
- if(hdr==null)
- continue;
- if(hdr.attr&MSG_DELETE)
- continue;
- date = system.timestr(hdr.when_written_time);
- msginfo=format("%-25.25s %-25.25s %-25.25s %s"
- ,hdr.subject
- ,hdr.from
- ,hdr.to
- ,date
- );
- writeln("0" + msginfo + "\tsub:"
- + field[1] + ":" + i + "\t"
- + system.host_name + "\t"
- + GOPHER_PORT
- );
- }
- msgbase.close();
- break;
- case "dir":
- /* to-do */
- break;
-}
-
-writeln(".");
-
-/* End of gopherservice.js */
diff --git a/exec/irc.js b/exec/irc.js
deleted file mode 100644
index c2aa6e815387521455bf96d579870319d7272124..0000000000000000000000000000000000000000
--- a/exec/irc.js
+++ /dev/null
@@ -1,1393 +0,0 @@
-// irc.js
-
-// Deuce's IRC client module for Synchronet
-// With the "Manny Mods". :-)
-
-// $Id$
-
-const REVISION = "$Revision$".split(' ')[1];
-const SPACEx80 = " ";
-const MAX_HIST = 50;
-
-load("sbbsdefs.js");
-load("nodedefs.js");
-load("sockdefs.js"); // SOCK_DGRAM
-
-// Global vars
-//var irc_server="irc.lordlegacy.org";
-var irc_server="irc.thebbs.org";
-//var irc_server="irc.nexushosting.biz";
-var irc_port=6669;
-var default_channel="&"+system.name;
-var connect_timeout=15; // Seconds
-var connected=0;
-var quit=0;
-var nick=user.handle;
-var nicks=new Array();
-var loading=true;
-var init_passthru=console.ctrlkey_passthru;
-var real_names=true;
-console.ctrlkey_passthru=~(134217728);
-
-/* Command-line options go BEFORE command-line args */
-LOOP :
-while(1) {
- switch(argv[0]) {
- case "-A":
- case "-a":
- real_names=false;
- argv.shift();
- break;
- default:
- break LOOP;
- }
-}
-/* Command-line args can override default server values */
-if(argv[0]!=undefined)
- irc_server=argv[0];
-if(argv[1]!=undefined)
- irc_port=Number(argv[1]);
-if(argv[2]!=undefined)
- default_channel=argv[2];
-
-default_channel=default_channel.replace(/\s+/g,"_");
-
-sock=new Socket();
-history=new History();
-screen=new Screen();
-
-if(!sock.bind(0,server.interface_ip_address)) {
- log(format("!IRC ERROR %d binding socket to %s"
- ,sock.last_error,server.interface_ip_address));
- alert("socket error");
- clean_exit();
-}
-
-// Connect
-if(!sock.connect(irc_server,irc_port)) {
- log(format("!IRC connection to %s FAILED with error %d"
- ,irc_server,sock.last_error));
- alert("system not available");
- clean_exit();
-}
-
-// sock.send("PASS "+user.security.password+"\r\n"); // for futire use with JS IRC server
-sock.send("PASS \r\n");
-if (nick=="")
- nick=user.alias;
-nick=nick.replace(/\s+/g,"_");
-sock.send("NICK "+nick+"\r\n");
-username=user.alias;
-username=username.replace(/\s+/g,"_");
-sock.send("USER "+username+" 0 * :"+(real_names?user.name:user.alias)+"\r\n");
-
-channels=new Channels();
-
-// Wait for welcome message...
-while(!connected) {
- if(sock.poll(connect_timeout)) {
- wait_for(["433","422","376"]);
- connected=1;
- }
- else {
- alert("Response timeout");
- sock.close();
- clean_exit();
- }
-}
-
-// Main loop
-while(!quit) {
- if(!sock.is_connected || !connected) {
- alert("Lost connection");
- sock.close();
- clean_exit();
- }
-
- if(!client.socket.is_connected) {
- sock.send("QUIT :Dropped Carrier.\r\n");
- quit=1;
- sock.close();
- bbs.hangup();
- clean_exit();
- }
-
- screen.update();
- recieve_command();
-}
-sock.close();
-clean_exit();
-
-function handle_command(prefix,command,message) {
- var from_nick=null;
- var full_message=null;
- var tmp_str=null;
- var tmp_str2=null;
- var i=0;
-
- switch(command) {
- case "PING":
- sock.send("PONG "+message[0]+"\r\n");
- break;
- case "NOTICE":
- message.shift();
- from_nick=get_highlighted_nick(prefix,message);
- full_message=message.join(" ");
- full_message=full_message.substr(1);
- full_message=full_message.replace(/\x01/g,"");
- screen.print_line("\x01N\x01R$\x01N\x01W"+from_nick+"\x01N\x01R$\x01N\x01W "+full_message);
- break;
- case "KICK":
- tmp_str=message.shift();
- tmp_str2=message.shift();
- from_nick=get_nick(prefix);
- full_message=message.join(" ").substr(1);
- if(tmp_str2.toUpperCase()==nick.toUpperCase()) {
- channels.part(tmp_str,"");
- }
- screen.print_line("\x01N\x01R-\x01H\x01R- "+tmp_str2+" has been kicked from "+tmp_str+" ("+full_message+")");
- break;
- case "PRIVMSG":
- if(message[1].substr(0,2)==":\x01") {
- // CTCP
- handle_ctcp(prefix,message);
- }
- else {
- if(prefix=="")
- from_nick="[-]";
- else {
- from_nick=get_highlighted_nick(prefix,message);
- message[0]=message[0].toUpperCase();
- if(channels.current != undefined) {
- if(message[0]==channels.current.name) {
- from_nick="\x01N\x01B<\x01N\x01W"+from_nick+"\x01N\x01B>\x01N\x01W";
- }
- else {
- from_nick=from_nick+"\x01N\x01C-\x01H\x01C>\x01N\x01W";
- if(message[0].slice(0,1)=="#" || message[0].slice(0,1)=="&") {
- from_nick=from_nick+"\x01N\x01C"+message[0]+":\x01N\x01W ";
- }
- }
- }
- else {
- from_nick="\x01N\x01B<\x01N\x01W"+from_nick+"\x01N\x01B>\x01N\x01W";
- }
- }
- message.shift();
- message[0]=message[0].substr(1);
- screen.print_line(from_nick+" "+message.join(" "));
- }
- break;
- case "JOIN":
- from_nick=get_highlighted_nick(prefix,message);
- tmp_str=get_nick(prefix);
- if(tmp_str.toUpperCase()==nick.toUpperCase()) {
- channels.joined(message[0].substr(1));
- }
- else {
- channels.nick_add(tmp_str,message[0].substr(1));
- }
- prefix=prefix.substr(1);
- screen.print_line("\x01N\x01C"+from_nick+" ("+prefix+")"+" has joined "+message[0].substr(1));
- break;
- case "QUIT":
- from_nick=get_highlighted_nick(prefix,message);
- tmp_str=get_nick(prefix);
- prefix=prefix.substr(1);
- full_message=message.shift();
- full_message=full_message.substr(1);
- screen.print_line(from_nick+" has quit "+channels.current.display+" ( "+full_message+" "+message.join(" ")+")");
- channels.nick_quit(tmp_str);
- break;
- case "NICK":
- from_nick=get_highlighted_nick(prefix,message);
- tmp_str2=get_nick(prefix);
- prefix=prefix.substr(1);
- tmp_str=message.shift();
- tmp_str=tmp_str.substr(1);
- tmp_str=tmp_str.split("!",1)[0]
- screen.print_line(from_nick+" has changed nick to "+tmp_str);
- if(tmp_str2.toUpperCase()==nick.toUpperCase()) {
- nick=tmp_str;
- screen.update_statline();
- }
- channels.nick_change(tmp_str2,tmp_str);
- break;
- case "SQUIT":
- if(prefix.slice(0,1)==":") {
- from_nick=get_nick(prefix);
- tmp_str=message.shift();
- tmp_str2=message.shift();
- tmp_str2=tmp_str2.substr(1);
- screen.print_line(from_nick+" has disconnected the server "+tmp_str+" ( "+tmp_str2+message.join(" ")+" )");
- }
- else {
- tmp_str=message.shift();
- tmp_str2=message.shift();
- tmp_str2=tmp_str2.substr(1);
- screen.print_line("The server "+tmp_str+" has disconnected ( "+tmp_str2+message.join(" ")+" )");
- }
- case "PART":
- from_nick=get_highlighted_nick(prefix,message);
- tmp_str=get_nick(prefix);
- prefix=prefix.substr(1);
- screen.print_line(from_nick+" ("+prefix+")"+" has left "+message[0].substr(1));
- channels.nick_part(tmp_str,message[0].substr(1));
- break;
- case "MODE":
- from_nick=get_highlighted_nick(prefix,message);
- prefix=prefix.substr(1);
- tmp_str=from_nick+" has set MODE "+message[0]+" for "+message[1];
- if(message.length>1) {
- tmp_str=tmp_str+" Limit: "+message[1];
- }
- if(message.length>2) {
- tmp_str=tmp_str+" User: "+message[2];
- }
- if(message.length>3) {
- tmp_str=tmp_str+" ("+message[3]+")";
- }
- screen.print_line(tmp_str);
- break;
- case "TOPIC":
- from_nick=get_highlighted_nick(prefix,message);
- tmp_str=message.shift();
- tmp_str2=message.join(" ");
- tmp_str2=tmp_str2.substr(1);
- for(i=0;i<channels.length;i++) {
- if(tmp_str.toUpperCase()==channels.channel[i].name) {
- channels.channel[i].topic=tmp_str2;
- screen.update_statline();
- screen.print_line(from_nick+" has changed the topic of "+tmp_str+" to '"+tmp_str2+"'");
- }
- }
- break;
-
- // Numeric reply codes.
- // <word1> <word2> <word3> <word4> <word5> <word6> <word7> :Message
- case "211": // Trace Server
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word1> <word2> <word3> <word4> <word5> <word6> :Message
- case "352": // WHO reply
- case "206": // Trace Server
- case "213": // Stats CLINE
- case "214": // Stats NLINE
- case "215": // Stats ILINE
- case "216": // Stats KLINE
- case "218": // Stats YLINE
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word1> <word2> <word3> <word4> <word5> :Message
- case "241": // Stats LLINE
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word1> <word2> <word3> <word4> :Message
- case "311": // WHOIS reply
- case "314": // WHOWAS reply
- case "200": // Trace Link
- case "243": // Stats OLINE
- case "244": // Stats HLINE
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word1> <word2> <word3> :Message
- case "324": // Channel Modes
- case "201": // Trace Connecting
- case "202": // Trace Handshake
- case "203": // Trace Unknown
- case "204": // Trace Operator
- case "205": // Trace User
- case "208": // New type of trace
- case "261": // Trace LOG
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word1> <word2> :Message
- case "312": // WHOISSERVER Reply
- case "317": // WHOISIDLE Reply
- case "322": // LIST data
- case "341": // Invite being sent
- case "351": // (server) VERSION reply
- case "364": // Links
- case "367": // Ban List
- case "212": // Stats Command
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word> :Message
- case "313": // WHOISOPERATOR Reply
- case "319": // WHOISCHANNELS Reply
- case "301": // AWAY Reply
- case "318": // End of WHOIS Reply
- case "369": // End of WHOWAS Reply
- case "321": // LIST Start
- case "342": // Is Summoning.
- case "315": // End of WHO
- case "365": // End of LINKS
- case "368": // End of ban list
- case "382": // Rehashing
- case "391": // Time reply
- case "219": // End if stats
- case "221": // UMODE reply
- case "252": // # Operators online
- case "253": // # unknown connections
- case "254": // # channels
- case "256": // Admin info
- message.shift();
- tmp_str=message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01C!! \x01N\x01C"+tmp_str+" - "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- case "376": // MOTD End
- if (loading) {
- loading = false;
- channels.join(default_channel);
- }
- // :Message
- case "001": // Sent on successful registration
- case "002": // Sent on successful registration
- case "003": // Sent on successful registration
- case "004": // Sent on successful registration
- case "005": // Sent on successful registration
- case "265": // Local Users
- case "266": // Global Users
- case "381": // You're OPER
- case "302": // USERHOST Reply
- case "303": // ISON Reply
- case "305": // You are no longer away
- case "306": // You are now marked as away
- case "323": // LIST end
- case "371": // INFO
- case "374": // End if info list
- case "392": // USERS Start
- case "393": // USERS
- case "394": // USERS End
- case "395": // No users
- case "242": // Stats Uptime
- case "251": // LUSER Client
- case "255": // # Clients / # Servers
- case "257": // Admin LOC 1
- case "258": // Admin LOC 2
- case "259": // Admin e-mail
- case "375": // MOTD Start
- case "372": // MOTD
- case "333": // Extended TOPIC info (apparently)
- message.shift();
- tmp_str=message.shift();
- tmp_str="\x01H\x01C!! \x01N\x01C"+tmp_str.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str);
- break;
-
- case "331": // No Topic
- case "332": // Topic
- message.shift();
- tmp_str=message.shift();
- tmp_str2=message.join(" ");
- tmp_str2=tmp_str2.substr(1);
- for(i=0;i<channels.length;i++) {
- if(tmp_str.toUpperCase()==channels.channel[i].name) {
- channels.channel[i].topic=tmp_str2;
- screen.update_statline();
- }
- }
- break;
-
- case "353": // Name reply
- message.shift();
- message.shift();
- tmp_str=message.shift();
- message[0]=message[0].substr(1);
- for(i=0;i<message.length;i++) {
- if(message[i].slice(0,1)=="@" || message[i].slice(0,1)=="+") {
- message[i]=message[i].substr(1);
- }
- }
- for(i=0;i<channels.length;i++) {
- if(tmp_str.toUpperCase()==channels.channel[i].name) {
- channels.channel[i].nick=message;
- }
- }
- screen.print_line("\x01N\x01BPeople in "+tmp_str+" right now: "+message.join(" "));
- break;
-
- case "366": // End of Names
- break;
-
- // Error Codes
- // <word1> <word2> :Message errors
- case "441": // Nick not on channel
- case "443": // User already on channel (invite)
- message.shift();
- tmp_str=message.shift();
- tmp_str=tmp_str+" "+message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01R!! \x01N\x01R"+tmp_str+" "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // <word> :Message errors.
- case "433": // Nickname already in use
- message.shift();
- nick=message.shift()+"_";
- sock.send("NICK " + nick + "\r\n");
- break;
- case "401": // No such nick
- case "402": // No such server
- case "403": // No such channel
- case "404": // Cannot send to channel
- case "405": // Too Many Channels
- case "406": // Was no suck nickname
- case "407": // Too many targets
- case "413": // No toplevel domain specified
- case "414": // Wildcard in TLD
- case "421": // Unknown Command
- case "423": // No admin info available
- case "432": // Erroneous Nick... bad chars
- case "436": // Nick collision KILL
- case "442": // You aren't on that channel
- case "444": // User not logged in (From SUMMON command)
- case "461": // Not enough params
- case "467": // Channel key already set
- case "471": // Channel is full (+l)
- case "472": // Unknown mode
- case "473": // Invide only channel (And YOU aren't invided)
- case "474": // Banned from channel
- case "475": // Bad channel key (+k)
- case "482": // Not ChanOP so can't do that.
- message.shift();
- tmp_str=message.shift();
- tmp_str2=message.shift();
- tmp_str2="\x01H\x01R!! \x01N\x01R"+tmp_str+" - "+tmp_str2.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str2);
- break;
-
- // :Message errors.
- case "422": // MOTD is missing
- case "409": // No origin
- case "411": // No recipient
- case "412": // No text to send
- case "424": // File Error
- case "431": // No nickname given
- case "445": // SUMMON disabled
- case "446": // USERS disabled
- case "451": // You aren't registered
- case "462": // You're ALREADY registered
- case "463": // You aren't allowed to connect (HOST based)
- case "464": // Incorrect password
- case "465": // You are banned
- case "481": // You aren't an IRCOP so you can't do that.
- case "483": // You can't kill a server.
- case "491": // No O-lines for your host
- case "501": // Unknown MODE flag
- case "502": // Can't change other users mode
- message.shift();
- tmp_str=message.shift();
- tmp_str="\x01H\x01R!! \x01N\x01R"+tmp_str.substr(1)+" "+message.join(" ")+"\x01N\x01W";
- screen.print_line(tmp_str);
- break;
-
- default:
- screen.print_line("\x01N\x01R"+prefix+" "+command+" "+message.join(" ")+"\x01N\x01W");
- }
-}
-
-function recieve_command() {
- var prefix="";
- var command=null;
- var message;
- if(sock.poll(0)) {
- message=sock.recvline().split(" ");
-
- if(message[0].substr(0,1)==":") {
- prefix=message.shift();
- }
- command=message.shift();
- handle_command(prefix,command,message);
- }
-}
-
-function wait_for(commands) {
- var prefix="";
- var command=null;
- var message="";
- var i=0;
-
- while(1) {
- if(!sock.is_connected) {
- alert("Lost connection");
- sock.close();
- clean_exit();
- }
-
- if(!client.socket.is_connected) {
- sock.send("QUIT :Dropped Carrier.\r\n");
- quit=1;
- sock.close();
- bbs.hangup();
- clean_exit();
- }
- if(sock.poll(0)) {
- message=sock.recvline().split(" ");
-
- if(message[0].substr(0,1)==":") {
- prefix=message.shift();
- }
- command=message.shift();
- console.print(command);
- handle_command(prefix,command,message);
- for(i=0;i<commands.length;i++) {
- if(command==commands[i]) {
- return command;
- }
- }
- }
- screen.update();
- }
-}
-
-function send_command(command,param) {
- var params=[null];
- var send_to=null;
- var full_params;
- var i=0;
- var got="";
-
- switch(command) {
- case "MSG":
- params=param.split(" ");
- send_to=params.shift();
- sock.send("PRIVMSG "+send_to+" :"+params.join(" ")+"\r\n");
- screen.print_line(send_to+"\x01H\x01C<\x01N\x01C-\x01N\x01W "+params.join(" "));
- break;
- case "X":
- case "Q":
- case "QUIT":
- sock.send("QUIT :"+param+"\r\n");
- quit=1;
- sock.close();
- clean_exit();
- break;
- case "J":
- case "JOIN":
- channels.join(param);
- break;
- case "ME":
- if(channels.current==undefined) {
- screen.print_line("\x01H\x01RYou are not in a channel!\x01N\x01W");
- }
- else {
- channels.current.send("\x01ACTION "+param+"\x01");
- screen.print_line("\x01N\x01B*\x01W "+nick+" "+param);
- }
- break;
- case "CTCP":
- params=param.split(" ");
- send_to=params.shift();
- full_params=params.join(" ");
- full_params=full_params.toUpperCase();
- sock.send("PRIVMSG "+send_to+" :\x01"+full_params+"\x01\r\n");
- break;
- case "PART":
- channels.part(channels.current.name,param);
- break;
- case "N":
- case "NEXT":
- channels.index+=1;
- if(channels.index>=channels.length) {
- channels.index=0;
- }
- screen.update_statline();
- break;
- case "P":
- case "PREVIOUS":
- case "PREV":
- channels.index-=1;
- if(channels.index<0) {
- channels.index=channels.length-1;
- }
- screen.update_statline();
- break;
- case "TOPIC":
- sock.send("TOPIC "+channels.current.name+" :"+param+"\r\n");
- break;
- case "KICK":
- if (param.substr(0,1) == '#' || param.substr(0,1) == '&') {
- sock.send(command+" "+param+"\r\n");
- }
- else {
- sock.send("KICK "+channels.current.name+" "+param+"\r\n");
- }
- break;
- default:
- if(command.slice(0,1)=="#" || command.slice(0,1)=="&") {
- for(i=0;i<channels.length;i++) {
- if(command.toUpperCase()==channels.channel[i].name) {
- channels.index=i;
- screen.update_statline();
- }
- }
- }
- else {
- sock.send(command+" "+param+"\r\n");
- }
- }
-}
-
-function handle_ctcp(prefix,message) {
- var from_nick=null;
- var to_nick=null;
- var full_message=null;
-
- ctcp_command=message[1].substr(2);
- ctcp_command=ctcp_command.replace(/\x01/g,"");
- switch(ctcp_command) {
- case "ACTION":
- message.shift();
- message.shift();
- from_nick=get_highlighted_nick(prefix,message);
- full_message=message.join(" ");
- full_message=full_message.replace(/\x01/g,"");
- screen.print_line("\x01N\x01B*\x01W "+from_nick+" "+full_message);
- break;
- case "FINGER":
- from_nick=get_highlighted_nick(prefix,message);
- to_nick=get_nick(prefix);
- sock.send("NOTICE "+to_nick+" :\x01FINGER :"+user.name+" ("+user.alias+") Idle: "+user.timeout+"\x01\r\n");
- screen.print_line(">"+from_nick+"<"+" CTCP FINGER Reply: "+user.name+" ("+user.alias+") Idle: "+user.timeout);
- break;
- case "VERSION":
- from_nick=get_highlighted_nick(prefix,message);
- to_nick=get_nick(prefix);
- sock.send("NOTICE "+to_nick+" :\x01VERSION Synchronet IRC Module:"+REVISION+":Synchronet"+"\x01\r\n");
- screen.print_line(">"+from_nick+"<"+" CTCP VERSION Reply: VERSION Synchronet IRC Module:"+REVISION+":Synchronet");
- break;
- case "PING":
- message.shift();
- message.shift();
- from_nick=get_highlighted_nick(prefix,message);
- to_nick=get_nick(prefix);
- sock.send("NOTICE "+to_nick+" :\x01PING "+message.join(" ")+"\x01\r\n");
- screen.print_line(">"+from_nick+"<"+" CTCP PING Reply.");
- break;
- case "TIME":
- from_nick=get_highlighted_nick(prefix,message);
- to_nick=get_nick(prefix);
- sock.send("NOTICE "+to_nick+" :\x01TIME "+strftime("%A, %B %d, %l:%M:%S%p, %G %Z",time())+"\x01\r\n");
- screen.print_line(">"+from_nick+"<"+" CTCP TIME Reply: "+strftime("%A, %B %d, %l:%M:%S%p, %G %Z",time() ));
- break;
- }
-}
-
-function get_highlighted_nick(prefix,message) {
- var nick_mentioned=0;
- var from_nick=null;
-
- // Check if your nick is in the text...
- from_nick=prefix.substr(1);
- from_nick=from_nick.split("!",1)[0];
- re=new RegExp("\\b"+nick+"\\b","i");
- for(j=0;j<message.length;j++) {
- if(message[j].search(re)>=0) {
- nick_mentioned=1;
- }
- }
- if(nick_mentioned==1) {
- from_nick="\x01N\x01Y"+from_nick+"\x01N\x01W";
- }
- // Not sure if I have to do this... but it makes me feel better.
- delete re;
- return from_nick;
-}
-
-function get_nick(prefix) {
- // Check if your nick is in the text...
- var to_nick=prefix.substr(1);
- to_nick=to_nick.split("!",1)[0];
- return to_nick;
-}
-
-function clean_exit() {
- console.ctrlkey_passthru=init_passthru;
- exit();
-}
-
-// channel object
-function Channel(cname) {
- var got="";
- this.topic="No topic set";
- this.name=cname.toUpperCase();
- this.display=cname;
- this.topic="";
- this.part=Channel_part;
- this.send=Channel_send;
- this.nick=new Array();
- this.matchnick=Channel_matchnick;
-}
-
-function Channel_part(message) {
- sock.send("PART "+this.name+" :"+message+"\r\n");
- screen.print_line("PART "+this.name+" "+message+"\r\n");
- this.name=null;
- this.display=null;
- this.topic=null;
- this.part=null;
-}
-
-function Channel_send(message) {
- sock.send("PRIVMSG "+this.name+" :"+message+"\r\n");
-}
-
-function Channel_matchnick(inline) {
- var i=0;
- var j=0;
- var count=0;
- var tmp_str="\x01N\x01BMatching Nicks:";
- var nick_var="";
- var partial=inline.toUpperCase();
- var matched="";
- var start="";
-
- if(partial.lastIndexOf(" ")!=-1) {
- partial=partial.substr(partial.lastIndexOf(" ")+1);
- start=inline.slice(0,inline.lastIndexOf(" ")+1);
- }
- if(partial=="") {
- screen.print_line("\x01H\x01BNothing to match.\x01N\x01W");
- }
- for(i=0;i<this.nick.length;i++) {
- if(partial==this.nick[i].substr(0,partial.length).toUpperCase()) {
- tmp_str=tmp_str+" "+nick[i];
- nick_var=this.nick[i];
- count++;
- if(matched=="") {
- matched=nick_var.toUpperCase();
- }
- else {
- nick_var=nick_var.substr(0,matched.length);
- for(j=nick_var.length;matched.substr(0,j) != nick_var.substr(0,j).toUpperCase();j--) {}
- nick_var=nick_var.substr(0,j);
- matched=nick_var.toUpperCase();
- }
- }
- }
- if(count>1 && matched.length==partial.length) {
- screen.print_line(tmp_str+"\x01N\x01W");
- return inline;
- }
- if(count<1) {
- screen.print_line("\x01H\x01BNo matching nicks.\x01N\x01W");
- return inline;
- }
- if(partial==inline.toUpperCase()) {
- if(count==1) {
- return nick_var+": ";
- }
- return nick_var;
- }
- if(count==1) {
- return start+nick_var+" ";
- }
- return start+nick_var;
-}
-
-// channels object
-function Channels() {
- this.length=0;
- this.index=0;
- this.channel=new Array();
- this.join=Channels_join;
- this.part=Channels_part;
- this.joined=Channels_joined;
- this.current getter=function() {return this.channel[this.index];};
-// Joining is not attempted until numeric 376 (End of MOTD)
-// this.join(default_channel);
- this.nick_change=Channels_nick_change;
- this.nick_quit=Channels_nick_quit;
- this.nick_part=Channels_nick_part;
- this.nick_add=Channels_nick_add;
-}
-
-function Channels_nick_change(from,to) {
- var i=0;
- var j=0;
-
- for(i=0;i<this.length;i++) {
- for(j=0;j<this.channel[i].nick.length;j++) {
- if(this.channel[i].nick[j].toUpperCase()==from.toUpperCase()) {
- this.channel[i].nick[j]=to;
- }
- }
- }
-}
-
-function Channels_nick_quit(nick) {
- var i=0;
- var j=0;
-
- for(i=0;i<this.length;i++) {
- for(j=0;j<this.channel[i].nick.length;j++) {
- if(this.channel[i].nick[j].toUpperCase()==nick.toUpperCase()) {
- this.channel[i].nick.splice(j,1);
- }
- }
- }
-}
-
-function Channels_nick_part(nick,cname) {
- var i=0;
- var j=0;
-
- for(i=0;i<this.length;i++) {
- if(cname.toUpperCase()==this.channel[i].name) {
- for(j=0;j<this.channel[i].nick.length;j++) {
- if(this.channel[i].nick[j].toUpperCase()==nick.toUpperCase()) {
- this.channel[i].nick.splice(j,1);
- }
- }
- }
- }
-}
-
-function Channels_nick_add(nick,cname) {
- var i=0;
- var j=0;
-
- for(i=0;i<this.length;i++) {
- if(cname.toUpperCase()==this.channel[i].name) {
- this.channel[i].nick.push(nick);
- }
- }
-}
-
-function Channels_join(cname) {
- sock.send("JOIN "+cname+"\r\n");
-}
-
-function Channels_joined(cname) {
- this.channel[this.length]=new Channel(cname);
- this.index=this.length;
- this.length++;
-}
-
-function Channels_part(cname,message) {
- var i;
-
- if(this.current==undefined) {
- return;
- }
- cname=this.current.name;
- for(i=0;i<this.length;i++) {
- if(cname.toUpperCase()==this.channel[i].name) {
- this.channel[i].part(message);
- this.channel.splice(i,1);
- this.length -= 1;
- }
- }
- if(this.index>=(this.length-1)) {
- this.index=0;
- }
-}
-
-// Screen object
-function Screen() {
- console.clear();
-
- this.line=new Array(console.screen_rows-3);
- this.rows=console.screen_rows-3; // Title, Status, and input rows are not counted.
- this.update_input_line=Screen_update_input_line;
- this.print_line=Screen_print_line;
- this.update_statline=Screen_update_statline;
- this.statusline getter=function() {
- // THIS NEEDS TO GO INTO THE SCREEN BUFFER!!! ToDo
- bbs.nodesync();
- if(connected) {
- if(channels != undefined) {
- if(channels.current != undefined) {
- return "\x01N\x014 Nick: "+nick+" Channel: "+channels.current.display+SPACEx80.substr(0,79-19-nick.length-channels.current.display.length)+"\x01N\x010\x01W";
- }
- }
- }
- return "\x01N\x014 Nick: "+nick+" Channel: No Channel"+SPACEx80.substr(0,79-29-nick.length)+"\x01N\x010\x01W";
- };
- this.topicline getter=function() {
- if(connected) {
- if(channels != undefined) {
- if(channels.current != undefined) {
- return "\x01H\x01Y\x014"+channels.current.topic.substr(0,80)+SPACEx80.substr(0,(80-channels.current.topic.length)>0?(80-channels.current.topic.length):0)+"\x01N\x01W\x010";
- }
- }
- }
- return "\x01H\x01Y\x014No Topic"+SPACEx80.substr(0,72)+"\x01N\x01W\x010";
- }
- this.input_buffer="";
- this.input_pos=0;
- this.handle_key=Screen_handle_key;
- this.update=Screen_update;
- this.print_line("\1n\1hSynchronet \1cInternet Relay Chat \1wModule \1n" + REVISION + "\r\n");
-}
-
-function Screen_update_statline() {
- var cname="";
- var topic="";
-
- console.ansi_gotoxy(1,console.screen_rows-1);
- if(channels.current==undefined) {
- cname="No channel";
- topic="Not in channel";
- }
- else {
- cname=channels.current.display;
- topic=channels.current.topic;
- }
- console.print(this.statusline);
- console.crlf();
- console.ansi_gotoxy(1,1);
- console.clearline();
- console.print(this.topicline);
- this.update_input_line();
-}
-
-function Screen_print_line(line) {
- var i=0;
- var lastspace=0;
- var linestart=0;
- var prev_colour="";
- var last_colour="";
- var cname="";
- var topic="";
-
- console.line_counter=0; // defeat pause
- console.ansi_gotoxy(1,console.screen_rows-1);
- console.clearline();
- console.ansi_gotoxy(1,console.screen_rows);
- console.clearline();
- console.ansi_gotoxy(1,console.screen_rows-1);
- // Remove bold
- line=line.replace(/\x02/g,"");
- // mIRC colour codes
- line=line.replace(/\x03([0-9\,]{1,5})/g,
- function(str,p1,offset,s) {
- var p2;
- var ending=null;
- var codes=[null];
- var ret=null;
-
- ending="";
- codes=p1.split(",");
- p1=codes[0];
- codes.shift();
- p2=codes[0];
- codes.shift();
- ending=","+codes.join(",");
- if(p2==undefined) {
- p2="-1";
- }
- if(p2.length>2) {
- ending=p2.substr(2)+ending;
- p2=p2.substr(0,2);
- }
- if(p1.length>2) {
- ending=p1.substr(2)+ending;
- p1=p1.substr(0,2);
- }
- p1=Number(p1);
- p2=Number(p2);
- p1=p1 % 16;
- if(p2>=0 && p2<=99) {
- p2=Number(p2) % 8;
- }
- else {
- p2=8;
- }
- switch(p1) {
- case 0:
- ret="\x01H\x01W";
- break;
- case 1:
- ret="\x01N\x01K";
- break;
- case 2:
- ret="\x01N\x01B";
- break;
- case 3:
- ret="\x01N\x01G";
- break;
- case 4:
- ret="\x01N\x01R";
- break;
- case 5:
- ret="\x01N\x01Y";
- break;
- case 6:
- ret="\x01H\x01M";
- break;
- case 7:
- // This is supposed to be ORANGE damnit!
- ret="\x01H\x01R";
- break;
- case 8:
- ret="\x01H\x01Y";
- break;
- case 9:
- ret="\x01H\x01G";
- break;
- case 10:
- ret="\x01N\x01C";
- break;
- case 11:
- ret="\x01H\x01C";
- break;
- case 12:
- ret="\x01H\x01B";
- break;
- case 13:
- ret="\x01H\x01M";
- break;
- case 14:
- ret="\x01H\x01K";
- break;
- case 15:
- ret="\x01N\x01W";
- break;
- default:
- ret="";
- }
- switch(p2) {
- case 0:
- ret=ret+"\x017";
- break;
- case 1:
- ret=ret+"\x010";
- break;
- case 2:
- ret=ret+"\x014";
- break;
- case 3:
- ret=ret+"\x012";
- break;
- case 4:
- ret=ret+"\x011";
- break;
- case 5:
- ret=ret+"\x013";
- break;
- case 6:
- ret=ret+"\x015";
- break;
- case 7:
- // This is supposed to be ORANGE damnit!
- ret=ret+"\x016";
- break;
- }
- return ret+ending;
- }
- );
- if(line.length > 78) {
- // Word Wrap...
- for(var j=0;j<=line.length;j++) {
- switch(line.charAt(j)) {
- case "\x01":
- last_colour=last_colour+line.substr(j,2);
- j+=1;
- break;
- case " ":
- lastspace=j;
- default:
- if(i>=78) {
- if(lastspace==linestart-1) {
- lastspace=j;
- }
- console.print(prev_colour+line.substring(linestart,lastspace+1));
- prev_colour=last_colour;
- console.crlf();
- this.line.shift();
- this.line.push(prev_colour+line.substring(linestart,lastspace+1));
- linestart=lastspace+1;
- j=lastspace;
- i=0;
- }
- i+=1;
- }
- }
- }
- if(i<=78) {
- console.print(prev_colour+line.substr(linestart));
- this.line.shift();
- this.line.push(prev_colour+line.substr(linestart));
- console.crlf();
- }
- if(!connected) {
- cname="No channel";
- topic="Not in channel";
- }
- else if (channels==undefined) {
- cname="No channel";
- topic="Not in channel";
- }
- else if (channels.current==undefined) {
- cname="No channel";
- topic="Not in channel";
- }
- else {
- cname=channels.current.display;
- topic=channels.current.topic;
- }
- console.print(this.statusline);
- console.crlf();
- console.ansi_gotoxy(1,1);
- console.clearline();
- console.print(this.topicline);
- this.update_input_line();
-}
-
-function Screen_update_input_line() {
- var line_pos=this.input_pos;
- var line_str=this.input_buffer;
- var line_start=0;
- var line_len=this.input_buffer.length;
-
- if(line_len-this.input_pos < 39) {
- line_start=line_len-78;
- }
- else if (this.input_pos < 39) {
- line_start=0;
- }
- else {
- line_start=this.input_pos-39;
- }
- if(line_start<0) {
- line_start=0;
- }
- line_pos=this.input_pos-line_start;
- line_str=this.input_buffer.substr(line_start,78);
- if(line_start>0) {
- line_str='+'+line_str.substr(1);
- }
- if(line_start+78 < line_len) {
- line_str=line_str.slice(0,77)+'+';
- }
-
- console.line_counter=0; // defeat pause
- console.ansi_gotoxy(1,console.screen_rows);
- console.clearline();
- printf("%s",line_str);
- console.ansi_gotoxy(line_pos+1,console.screen_rows);
-}
-
-function Screen_update() {
- var key=console.inkey();
- if(key!="") {
- this.handle_key(key);
- }
- else {
- sleep(1);
- }
-}
-
-function Screen_handle_key(key) {
- var commands=[null];
- var command=null;
-
- switch(key) {
- case "\r":
- if(this.input_buffer=="") {
- break;
- }
- history.addline(this.input_buffer);
- while(history.line.length>MAX_HIST) {
- history.shift();
- }
- this.input_buffer=this.input_buffer.replace(/%C/g,"\x03");
- this.input_buffer=this.input_buffer.replace(/%%/g,"%");
- if(this.input_buffer.substr(0,1)=="/" && this.input_buffer.substr(1,1)!="/") {
- commands=this.input_buffer.split(" ");
- command=commands.shift();
- command=command.substr(1);
- command=command.toUpperCase();
- send_command(command,commands.join(" "));
- }
- else {
- if(this.input_buffer.substr(0,1)=="/") {
- this.input_buffer=this.input_buffer.substr(1);
- }
- if(channels.current==undefined) {
- this.print_line("\x01H\x01RYou are not in a channel!\x01N\x01W");
- }
- else {
- channels.current.send(this.input_buffer);
- this.print_line("\x01N\x01M<\x01N\x01W"+nick+"\x01N\x01M>\x01N\x01W "+this.input_buffer);
- }
- }
- this.input_buffer="";
- this.input_pos=0;
- this.update_input_line();
- break;
- case "\x08":
- if(this.input_pos > 0) {
- this.input_buffer=this.input_buffer.slice(0,this.input_pos-1)+this.input_buffer.slice(this.input_pos);
- this.input_pos--;
- this.update_input_line();
- }
- break;
- case "\x0b":
- this.input_buffer=this.input_buffer+"%C";
- this.input_pos+=2;
- break;
- case "\x1e": // Up arrow
- if(history.index==null) {
- history.incomplete=this.input_buffer;
- }
- this.input_buffer=history.previous;
- this.input_pos=this.input_buffer.length;
- this.update_input_line()
- break;
- case "\x0a": // Down arrow
- if(history.index==null) {
- history.incomplete=this.input_buffer;
- }
- this.input_buffer=history.next;
- this.input_pos=this.input_buffer.length;
- this.update_input_line()
- break;
- case "\x1d": // Left arrow
- if(this.input_pos > 0) {
- this.input_pos--;
- }
- this.update_input_line();
- break;
- case "\x02": // Home
- this.input_pos=0;
- this.update_input_line()
- break;
- case "\x05": // End
- this.input_pos=this.input_buffer.length;
- this.update_input_line()
- break;
- case "\x06": // right arrow
- if(this.input_pos < (this.input_buffer.length)) {
- this.input_pos++;
- }
- this.update_input_line();
- break;
- case "\t": // Tab
- this.input_buffer=channels.current.matchnick(this.input_buffer);
- this.update_input_line();
- break;
- default:
- if(ascii(key)<ascii(' ')) {
- if(ascii(key) != 27 && console.handle_ctrlkey!=undefined) {
- console.line_counter=0; // defeat pause
- console.ansi_gotoxy(1,console.screen_rows-1);
- console.clearline();
- console.ansi_gotoxy(1,console.screen_rows);
- console.clearline();
- console.ansi_gotoxy(1,console.screen_rows-1);
- console.handle_ctrlkey(key,0); // for now
- console.print(this.statusline);
- console.crlf();
- console.ansi_gotoxy(1,1);
- console.clearline();
- console.print(this.topicline);
- this.update_input_line();
- }
- }
- else {
- this.input_buffer=this.input_buffer.slice(0,this.input_pos)+key+this.input_buffer.slice(this.input_pos);
- this.input_pos++;
- this.update_input_line();
- }
- }
-}
-
-// History object
-function History() {
- this.index=0;
- this.max=MAX_HIST;
- this.line=new Array("");
- this.addline=History_addline;
- this.index=-1;
- this.incomplete="";
- this.next getter=function() {
- if(this.index==null) {
- this.index=this.line.length;
- }
- this.index+=1;
- if(this.index>=this.line.length) {
- this.index=null;
- return this.incomplete;
- }
- else {
- return this.line[this.index];
- }
- }
- this.previous getter=function() {
- if(this.index==null) {
- this.index=this.line.length;
- }
- this.index-=1;
- if(this.index<0) {
- this.index=0;
- }
- return this.line[this.index];
- }
-}
-
-function History_addline(line) {
- this.line.push(line);
- while(this.line.length>this.max) {
- this.line.shift();
- }
- this.index=this.line.length-1;
- this.index=null;
-}
diff --git a/exec/ircd.js b/exec/ircd.js
deleted file mode 100644
index b0d70abfdeb5e9a25f4b0148030366e59d2e3cc3..0000000000000000000000000000000000000000
--- a/exec/ircd.js
+++ /dev/null
@@ -1,2847 +0,0 @@
-// $Id$
-//
-// ircd.js
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details:
-// http://www.gnu.org/licenses/gpl.txt
-//
-// Synchronet IRC Daemon as per RFC 1459, link compatible with Bahamut 1.4
-//
-// Copyright 2003 Randolph Erwin Sommerfeld <sysop@rrx.ca>
-//
-
-load("sbbsdefs.js");
-load("sockdefs.js");
-load("nodedefs.js");
-
-load("irclib.js");
-
-load("ircd_unreg.js");
-load("ircd_user.js");
-load("ircd_channel.js");
-load("ircd_server.js");
-
-// CVS revision
-const MAIN_REVISION = "$Revision$".split(' ')[1];
-
-// Please don't play with this, unless you're making custom hacks.
-// IF you're making a custom version, it'd be appreciated if you left the
-// version number alone, and add a token in the form of +hack (i.e. 1.0+cyan)
-// This is so everyone knows your revision base, AND type of hack used.
-const VERSION = "SynchronetIRCd-1.1b(" + MAIN_REVISION + ")";
-const VERSION_STR = "Synchronet "
- + system.version + system.revision + "-" + system.platform +
- system.beta_version + " (IRCd by Randy Sommerfeld)";
-
-// This will dump all I/O to and from the server to your Synchronet console.
-// It also enables some more verbose WALLOPS, especially as they pertain to
-// blocking functions.
-// The special "DEBUG" oper command also switches this value.
-var debug = false;
-
-// Resolve connecting clients' hostnames? If set to false, everyone will have
-// an IP address instead of a hostname in their nick!user@host identifier.
-// Resolving hostnames is a BLOCKING operation, so your IRCD *will* freeze for
-// the amount of time it takes to resolve a host.
-// If you have a local (caching) name server, this shouldn't be a problem, but
-// the slower your connection to the net and the further away your named is,
-// the longer lookups will block for. Busy servers should almost always
-// disable this.
-// Exception: 'localhost' and '127.0.0.1' always get resolved internally to
-// the hostname defined on the M:Line regardless of this setting.
-var resolve_hostnames = true;
-
-// The number of seconds to block before giving up on outbound CONNECT
-// attempts (when connecting to another IRC server -- i.e. a hub) This value
-// is important because connecing is a BLOCKING operation, so your IRC *will*
-// freeze for the amount of time it takes to connect.
-const ob_sock_timeout = 3;
-
-// Should we enable the USERS and SUMMON commands? These allow IRC users to
-// view users on the local BBS and summon them to IRC via a Synchronet telegram
-// message respectively. Some people might be running the ircd standalone, or
-// otherwise don't want anonymous IRC users to have access to these commands.
-// We enable this by default because there's typically nothing wrong with
-// seeing who's on an arbitrary BBS or summoning them to IRC.
-const enable_users_summon = true;
-
-// what our server is capable of from a server point of view.
-// TS3 = Version 3 of accepted interserver timestamp protocol.
-// NOQUIT = QUIT clients on behalf of a SQUIT server? (no netsplit spam)
-// SSJOIN = SJOIN interserver command without dual TS, single TS only.
-// BURST = Sending of network synch data is done in a 3-stage burst (BURST cmd)
-// UNCONNECT = Server SQUIT is routable.
-// NICKIP = 9th parameter of interserver NICK command is an integer IP.
-// TSMODE = 2nd arg to standard MODE is the channel's TS.
-const server_capab = "TS3 NOQUIT SSJOIN BURST UNCONNECT NICKIP TSMODE";
-
-// EVERY server on the network MUST have the same values in ALL of these
-// categories. If you change these, you WILL NOT be able to link to the
-// Synchronet IRC network. Linking servers with different values here WILL
-// cause your network to desynchronize (and possibly crash the IRCD)
-// Remember, this is Synchronet, not Desynchronet ;)
-const max_chanlen = 100; // Maximum channel name length.
-const max_nicklen = 30; // Maximum nickname length.
-const max_modes = 6; // Maximum modes on single MODE command
-const max_user_chans = 10; // Maximum channels users can join
-const max_bans = 25; // Maximum bans (+b) per channel
-const max_topiclen = 307; // Maximum length of topic per channel
-const max_kicklen = 307; // Maximum length of kick reasons
-const max_who = 100; // Maximum replies to WHO for non-oper users
-
-var default_port = 6667;
-
-////////// Functions not linked to an object //////////
-
-// Sigh, there's no way to tell the length of an associative array in JS, so,
-// we have this to help us:
-function true_array_len(my_array) {
- var counter = 0;
- for (i in my_array) {
- counter++;
- }
- return counter;
-}
-
-function ip_to_int(ip) {
- var quads = ip.split(".");
- var addr = (quads[0]&0xff)<<24;
- addr|=(quads[1]&0xff)<<16;
- addr|=(quads[2]&0xff)<<8;
- addr|=(quads[3]&0xff);
- return addr;
-}
-
-function int_to_ip(ip) {
- return(format("%u.%u.%u.%u"
- ,(ip>>24)&0xff
- ,(ip>>16)&0xff
- ,(ip>>8)&0xff
- ,ip&0xff
- ));
-}
-
-function terminate_everything(terminate_reason) {
- log("Terminating: " + terminate_reason);
- for(thisClient in Local_Sockets_Map) {
- var Client = Local_Sockets_Map[thisClient];
- Client.rawout("ERROR :" + terminate_reason);
- Client.socket.close();
- }
- exit();
-}
-
-function searchbyserver(server_name,ignore_wildcards) {
- if (!server_name)
- return 0;
- if ((ignore_wildcards &&
- (servername.toUpperCase() == server_name.toUpperCase()) ) ||
- (!ignore_wildcards && IRC_match(servername,server_name)) )
- return -1; // the server passed to us is our own.
- for(thisServer in Servers) {
- var Server=Servers[thisServer];
- if ((ignore_wildcards &&
- (Server.nick.toUpperCase() == server_name.toUpperCase())) ||
- (!ignore_wildcards &&
- IRC_match(Server.nick,server_name) ) )
- return Server;
- }
- // No wildcards implies not doing searches on nicks, either.
- if (ignore_wildcards)
- return 0;
- // if we've had no success so far, try nicknames and glean a server
- // from there.
- for(thisNick in Users) {
- var Nick=Users[thisNick];
- if (IRC_match(Nick.nick,server_name))
- return searchbyserver(Nick.servername);
- }
- return 0; // looks like we failed after all that hard work :(
-}
-
-// Only allow letters, numbers and underscore in username to a maximum of
-// 9 characters for 'anonymous' users (i.e. not using PASS to authenticate.)
-// hostile characters like !,@,: etc would be bad here :)
-function parse_username(str) {
- str.replace(/[^\w]/g,"");
- if (!str)
- str = "user"; // nothing? we'll give you something boring.
- return str.slice(0,9);
-}
-
-function parse_nline_flags(flags) {
- var nline_flags = 0;
- for(thisflag in flags) {
- switch(flags[thisflag]) {
- case "q":
- nline_flags |= NLINE_CHECK_QWKPASSWD;
- break;
- case "w":
- nline_flags |= NLINE_IS_QWKMASTER;
- break;
- case "k":
- nline_flags |= NLINE_CHECK_WITH_QWKMASTER;
- break;
- default:
- log("!WARNING Unknown N:Line flag '" + flags[thisflag] + "' in config.");
- break;
- }
- }
- return nline_flags;
-}
-
-function parse_oline_flags(flags) {
- var oline_flags = 0;
- for(thisflag in flags) {
- switch(flags[thisflag]) {
- case "r":
- oline_flags |= OLINE_CAN_REHASH;
- break;
- case "R":
- oline_flags |= OLINE_CAN_RESTART;
- break;
- case "D":
- oline_flags |= OLINE_CAN_DIE;
- break;
- case "g":
- oline_flags |= OLINE_CAN_GLOBOPS;
- break;
- case "w":
- oline_flags |= OLINE_CAN_WALLOPS;
- break;
- case "l":
- oline_flags |= OLINE_CAN_LOCOPS;
- break;
- case "c":
- oline_flags |= OLINE_CAN_LSQUITCON;
- break;
- case "C":
- oline_flags |= OLINE_CAN_GSQUITCON;
- break;
- case "k":
- oline_flags |= OLINE_CAN_LKILL;
- break;
- case "K":
- oline_flags |= OLINE_CAN_GKILL;
- break;
- case "b":
- oline_flags |= OLINE_CAN_KLINE;
- break;
- case "B":
- oline_flags |= OLINE_CAN_UNKLINE;
- break;
- case "n":
- oline_flags |= OLINE_CAN_LGNOTICE;
- break;
- case "N":
- oline_flags |= OLINE_CAN_GGNOTICE;
- break;
- case "u":
- oline_flags |= OLINE_CAN_UMODEC;
- case "A":
- case "a":
- case "f":
- case "F":
- break; // All reserved for future use.
- case "s":
- oline_flags |= OLINE_CAN_CHATOPS;
- break;
- case "S":
- oline_flags |= OLINE_CHECK_SYSPASSWD;
- break;
- case "x":
- case "X":
- oline_flags |= OLINE_CAN_DEBUG;
- break;
- case "O":
- oline_flags |= OLINE_IS_GOPER;
- oline_flags |= OLINE_CAN_GSQUITCON;
- oline_flags |= OLINE_CAN_GKILL;
- oline_flags |= OLINE_CAN_GGNOTICE;
- oline_flags |= OLINE_CAN_CHATOPS;
- case "o":
- oline_flags |= OLINE_CAN_REHASH;
- oline_flags |= OLINE_CAN_GLOBOPS;
- oline_flags |= OLINE_CAN_WALLOPS;
- oline_flags |= OLINE_CAN_LOCOPS;
- oline_flags |= OLINE_CAN_LSQUITCON;
- oline_flags |= OLINE_CAN_LKILL;
- oline_flags |= OLINE_CAN_KLINE;
- oline_flags |= OLINE_CAN_UNKLINE;
- oline_flags |= OLINE_CAN_LGNOTICE;
- oline_flags |= OLINE_CAN_UMODEC;
- break;
- default:
- log("!WARNING Unknown O:Line flag '" + flags[thisflag] + "' in config.");
- break;
- }
- }
- return oline_flags;
-}
-
-function umode_notice(bit,ntype,nmessage) {
- log(ntype + ": " + nmessage);
- for (thisuser in Local_Users) {
- var user = Local_Users[thisuser];
- if (user.mode && ((user.mode&bit)==bit))
- user.rawout(":" + servername + " NOTICE " + user.nick + " :*** " + ntype + " -- " + nmessage);
- }
-
-}
-
-function create_ban_mask(str,kline) {
- var tmp_banstr = new Array;
- tmp_banstr[0] = "";
- tmp_banstr[1] = "";
- tmp_banstr[2] = "";
- var bchar_counter = 0;
- var part_counter = 0; // BAN: 0!1@2 KLINE: 0@1
- var regexp="[A-Za-z\{\}\`\^\_\|\\]\\[\\\\0-9\-.*?\~]";
- var finalstr;
- for (bchar in str) {
- if (str[bchar].match(regexp)) {
- tmp_banstr[part_counter] += str[bchar];
- bchar_counter++;
- } else if ((str[bchar] == "!") && (part_counter == 0) &&
- !kline) {
- part_counter = 1;
- bchar_counter = 0;
- } else if ((str[bchar] == "@") && (part_counter == 1) &&
- !kline) {
- part_counter = 2;
- bchar_counter = 0;
- } else if ((str[bchar] == "@") && (part_counter == 0)) {
- if (kline) {
- part_counter = 1;
- } else {
- tmp_banstr[1] = tmp_banstr[0];
- tmp_banstr[0] = "*";
- part_counter = 2;
- }
- bchar_counter = 0;
- }
- }
- if (!tmp_banstr[0] && !tmp_banstr[1] && !tmp_banstr[2])
- return 0;
- if (tmp_banstr[0].match(/[.]/) && !tmp_banstr[1] && !tmp_banstr[2]) {
- if (kline)
- tmp_banstr[1] = tmp_banstr[0];
- else
- tmp_banstr[2] = tmp_banstr[0];
- tmp_banstr[0] = "";
- }
- if (!tmp_banstr[0])
- tmp_banstr[0] = "*";
- if (!tmp_banstr[1])
- tmp_banstr[1] = "*";
- if (!tmp_banstr[2] && !kline)
- tmp_banstr[2] = "*";
- if (kline)
- finalstr = tmp_banstr[0].slice(0,10) + "@" + tmp_banstr[1].slice(0,80);
- else
- finalstr = tmp_banstr[0].slice(0,max_nicklen) + "!" + tmp_banstr[1].slice(0,10) + "@" + tmp_banstr[2].slice(0,80);
- while (finalstr.match(/[*][*]/)) {
- finalstr=finalstr.replace(/[*][*]/g,"*");
- }
- return finalstr;
-}
-
-function isklined(kl_str) {
- for(the_kl in KLines) {
- if (KLines[the_kl].hostmask &&
- IRC_match(kl_str,KLines[the_kl].hostmask))
- return 1;
- }
- return 0;
-}
-
-function iszlined(zl_ip) {
- for(the_zl in ZLines) {
- if (ZLines[the_zl].ipmask &&
- IRC_match(zl_ip,ZLines[the_zl].ipmask))
- return 1;
- }
- return 0;
-}
-
-function scan_for_klined_clients() {
- for(thisUser in Local_Users) {
- var theuser=Local_Users[thisUser];
- if (theuser.uprefix && isklined(theuser.uprefix + "@" + theuser.hostname))
- theuser.quit("User has been K:Lined (" + KLines[thiskl].reason + ")");
- if (iszlined(theuser.ip))
- theuser.quit("User has been Z:Lined");
- }
-}
-
-function remove_kline(kl_hm) {
- for(the_kl in KLines) {
- if (KLines[the_kl].hostmask &&
- IRC_match(kl_hm,KLines[the_kl].hostmask)) {
- KLines[the_kl].hostmask = "";
- KLines[the_kl].reason = "";
- KLines[the_kl].type = "";
- return 1;
- }
- }
- return 0; // failure.
-}
-
-function connect_to_server(this_cline,the_port) {
- var connect_sock;
- var new_id;
-
- if (!the_port && this_cline.port)
- the_port = this_cline.port;
- else if (!the_port)
- the_port = default_port; // try a safe default.
- connect_sock = new Socket();
- connect_sock.bind(0,server.interface_ip_address);
- connect_sock.connect(this_cline.host,the_port,ob_sock_timeout);
- if (connect_sock.is_connected) {
- umode_notice(USERMODE_ROUTING,"Routing",
- "Connected! Sending info...");
- connect_sock.send("PASS " + this_cline.password + " :TS\r\n");
- connect_sock.send("CAPAB " + server_capab + "\r\n");
- connect_sock.send("SERVER " + servername + " 1 :" + serverdesc + "\r\n");
- new_id = "id" + next_client_id;
- next_client_id++;
- Unregistered[new_id]=new Unregistered_Client(new_id,connect_sock);
- Unregistered[new_id].sentps = true;
- }
- this_cline.lastconnect = time();
-}
-
-function wallopers(str) {
- for(thisoper in Local_Users) {
- var oper=Local_Users[thisoper];
- if (oper.mode&USERMODE_OPER)
- oper.rawout(str);
- }
-}
-
-function push_nickbuf(oldnick,newnick) {
- NickHistory.unshift(new NickBuf(oldnick,newnick));
- if(NickHistory.length >= nick_buffer)
- NickHistory.pop();
-}
-
-function search_nickbuf(bufnick) {
- for (nb=0;nb<NickHistory.length;nb++) {
- if (NickHistory[nb] && (bufnick.toUpperCase() == NickHistory[nb].oldnick.toUpperCase())) {
- if (!Users[NickHistory[nb].newnick.toUpperCase()])
- return search_nickbuf(NickHistory[nb].newnick);
- else
- return Users[NickHistory[nb].newnick.toUpperCase()];
- }
- }
- return 0;
-}
-
-function read_config_file() {
- Admin1 = "";
- Admin2 = "";
- Admin3 = "";
- CLines = new Array;
- HLines = new Array;
- ILines = new Array;
- KLines = new Array;
- NLines = new Array;
- OLines = new Array;
- PLines = new Array;
- QLines = new Array;
- ULines = new Array;
- diepass = "";
- restartpass = "";
- YLines = new Array;
- ZLines = new Array;
- var fname="";
- if (config_filename && config_filename.length) {
- if(config_filename.indexOf('/')>=0 || config_filename.indexOf('\\')>=0)
- fname=config_filename;
- else
- fname=system.ctrl_dir + config_filename;
- } else {
- fname=system.ctrl_dir + "ircd." + system.local_host_name + ".conf";
- if(!file_exists(fname))
- fname=system.ctrl_dir + "ircd." + system.host_name + ".conf";
- if(!file_exists(fname))
- fname=system.ctrl_dir + "ircd.conf";
- }
- log("Reading Config: " + fname);
- var conf = new File(fname);
- if (conf.open("r")) {
- while (!conf.eof) {
- var conf_line = conf.readln();
- if ((conf_line != null) && conf_line.match("[:]")) {
- var arg = conf_line.split(":");
- for(argument in arg) {
- arg[argument]=arg[argument].replace(
- /SYSTEM_HOST_NAME/g,system.host_name);
- arg[argument]=arg[argument].replace(
- /SYSTEM_NAME/g,system.name);
- arg[argument]=arg[argument].replace(
- /SYSTEM_QWKID/g,system.qwk_id.toLowerCase());
- arg[argument]=arg[argument].replace(
- /VERSION_NOTICE/g,system.version_notice);
- }
- switch (conf_line[0].toUpperCase()) {
- case "A":
- if (!arg[3])
- break;
- Admin1 = arg[1];
- Admin2 = arg[2];
- Admin3 = arg[3];
- break;
- case "C":
- if (!arg[5])
- break;
- CLines.push(new CLine(arg[1],arg[2],arg[3],arg[4],parseInt(arg[5])));
- break;
- case "H":
- if (!arg[3])
- break;
- HLines.push(new HLine(arg[1],arg[3]));
- break;
- case "I":
- if (!arg[5])
- break;
- ILines.push(new ILine(arg[1],arg[2],arg[3],arg[4],arg[5]));
- break;
- case "K":
- if (!arg[2])
- break;
- var kline_mask = create_ban_mask(arg[1],true);
- if (!kline_mask) {
- log("!WARNING Invalid K:Line (" + arg[1] + ")");
- break;
- }
- KLines.push(new KLine(kline_mask,arg[2],"K"));
- break;
- case "M":
- if (!arg[3])
- break;
- servername = arg[1];
- serverdesc = arg[3];
- mline_port = parseInt(arg[4]);
- break;
- case "N":
- if (!arg[5])
- break;
- NLines.push(new NLine(arg[1],arg[2],arg[3],parse_nline_flags(arg[4]),arg[5]));
- break;
- case "O":
- if (!arg[5])
- break;
- OLines.push(new OLine(arg[1],arg[2],arg[3],parse_oline_flags(arg[4]),parseInt(arg[5])));
- break;
- case "P":
- PLines.push(parseInt(arg[4]));
- break;
- case "Q":
- if (!arg[3])
- break;
- QLines.push(new QLine(arg[3],arg[2]));
- break;
- case "U":
- if (!arg[1])
- break;
- ULines.push(arg[1]);
- break;
- case "X":
- diepass = arg[1];
- restartpass = arg[2];
- break;
- case "Y":
- if (!arg[5])
- break;
- YLines[parseInt(arg[1])] = new YLine(parseInt(arg[2]),parseInt(arg[3]),parseInt(arg[4]),parseInt(arg[5]));
- break;
- case "Z":
- if (!arg[2])
- break;
- ZLines.push(new ZLine(arg[1],arg[2]));
- break;
- case "#":
- case ";":
- default:
- break;
- }
- }
- }
- conf.close();
- } else {
- log ("WARNING! No config file found or unable to open. Proceeding with defaults.");
- }
- scan_for_klined_clients();
- YLines[0] = new YLine(120,600,1,5050000); // default irc class
-}
-
-function create_new_socket(port) {
- log("Creating new socket object on port " + port);
- var newsock = new Socket();
- if(!newsock.bind(port,server.interface_ip_address)) {
- log("!Error " + newsock.error + " binding socket to TCP port " + port);
- return 0;
- }
- log(format("%04u ",newsock.descriptor)
- + "IRC server socket bound to TCP port " + port);
- if(!newsock.listen(5 /* backlog */)) {
- log("!Error " + newsock.error + " setting up socket for listening");
- return 0;
- }
- return newsock;
-}
-
-function check_qwk_passwd(qwkid,password) {
- if (!password || !qwkid)
- return 0;
- qwkid = qwkid.toUpperCase();
- var usernum = system.matchuser(qwkid);
- var bbsuser = new User(usernum);
- if ((password.toUpperCase() ==
- bbsuser.security.password.toUpperCase()) &&
- (bbsuser.security.restrictions&UFLAG_Q) )
- return 1;
- return 0;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-////////////// End of functions. Start main() program here. //////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-log(VERSION + " started.");
-
-// Our primary arrays.
-Unregistered = new Array;
-Users = new Array;
-Servers = new Array;
-Channels = new Array;
-
-Local_Sockets = new Array;
-Local_Sockets_Map = new Array;
-
-Selectable_Sockets = new Array;
-Selectable_Sockets_Map = new Array;
-
-hcc_total = 0;
-hcc_users = 0;
-hcc_counter = 0;
-server_uptime = time();
-
-WhoWasHistory = new Array;
-NickHistory = new Array;
-whowas_buffer = 1000;
-whowas_pointer = 0;
-nick_buffer = 1000;
-nick_pointer = 0;
-
-// This is where our unique ID for each client comes from for unreg'd clients.
-next_client_id = 0;
-
-// An array containing all the objects containing local sockets that we need
-// to poll.
-Local_Unreg = new Array;
-Local_Users = new Array;
-Local_Servers = new Array;
-
-rebuild_socksel_array = false;
-
-sync_310 = false;
-network_debug = false;
-
-// Parse command-line arguments.
-config_filename="";
-var cmdline_port;
-for (cmdarg=0;cmdarg<argc;cmdarg++) {
- switch(argv[cmdarg].toLowerCase()) {
- case "-f":
- config_filename = argv[++cmdarg];
- break;
- case "-p":
- cmdline_port = parseInt(argv[++cmdarg]);
- break;
- case "-d":
- debug=true;
- break;
- }
-}
-
-read_config_file();
-
-if(this.js==undefined) { // v3.10?
- js = { terminated: false };
- sync_310 = true;
-}
-
-if(this.resolve_host==undefined) { // v3.10?
- resolve_hostnames = false;
- sync_310 = true;
-}
-
-if(this.server==undefined) { // Running from JSexec?
- if (!jsexec_revision_detail)
- jsexec_revision_detail = "JSexec";
- if (cmdline_port)
- default_port = cmdline_port;
- else if (mline_port)
- default_port = mline_port;
-
- server = { socket: false, terminated: false,
- version_detail: jsexec_revision_detail };
- server.socket = create_new_socket(default_port)
- if (!server.socket)
- exit();
-}
-
-server.socket.nonblocking = true; // REQUIRED!
-server.socket.debug = false; // Will spam your log if true :)
-
-// Now open additional listening sockets as defined on the P:Line in ircd.conf
-open_plines = new Array();
-// Make our 'server' object the first open P:Line
-open_plines[0] = server.socket;
-for (pl in PLines) {
- var new_pl_sock = create_new_socket(PLines[pl]);
- if (new_pl_sock) {
- new_pl_sock.nonblocking = true;
- new_pl_sock.debug = false;
- open_plines.push(new_pl_sock);
- }
-}
-
-js.branch_limit=0; // we're not an infinite loop.
-js.auto_terminate=false; // we handle our own termination requests
-
-///// Main Loop /////
-while (!server.terminated) {
-
- if(server.terminated)
- break;
- if(js.terminated)
- break;
-
- // Setup a new socket if a connection is accepted.
- for (pl in open_plines) {
- if (open_plines[pl].poll()) {
- var client_sock=open_plines[pl].accept();
- if(client_sock) {
- if (iszlined(client_sock.remote_ip_address)) {
- client_sock.send(":" + servername + " 465 * :You've been Z:Lined from this server.\r\n");
- client_sock.close();
- } else {
- new_id = "id" + next_client_id;
- next_client_id++;
- if(server.client_add != undefined)
- server.client_add(client_sock);
- Unregistered[new_id] = new Unregistered_Client(new_id,client_sock);
- }
- }
- }
- }
-
- if (rebuild_socksel_array) {
- Selectable_Sockets = new Array;
- Selectable_Sockets_Map = new Array
- for (i in Local_Sockets) {
- Selectable_Sockets.push(Local_Sockets[i]);
- Selectable_Sockets_Map.push(Local_Sockets_Map[i]);
- }
- rebuild_socksel_array = false;
- }
-
- // Check for ping timeouts, and, do work on the sockets if we're 3.10
- for(this_sock in Selectable_Sockets) {
- if (Selectable_Sockets_Map[this_sock] &&
- Selectable_Sockets_Map[this_sock].check_timeout())
- continue;
- if(this.socket_select==undefined)
- Selectable_Sockets_Map[this_sock].work();
- }
-
- // do some work.
- if (!Selectable_Sockets.length) {
- mswait(1000);
- } else if (this.socket_select!=undefined) {
- var readme = socket_select(Selectable_Sockets, 1 /*secs*/);
- for(thisPolled in readme) {
- if (Selectable_Sockets_Map[readme[thisPolled]])
- Selectable_Sockets_Map[readme[thisPolled]].work();
- }
- }
-
- // Scan C:Lines for servers to connect to automatically.
- var my_cline;
- for(thisCL in CLines) {
- my_cline = CLines[thisCL];
- if (my_cline.port && YLines[my_cline.ircclass].connfreq &&
- !searchbyserver(my_cline.servername,true) &&
- ((time() - my_cline.lastconnect) >
- YLines[my_cline.ircclass].connfreq)
- ) {
- umode_notice(USERMODE_ROUTING,"Routing",
- "Auto-connecting to " +
- CLines[thisCL].servername);
- connect_to_server(CLines[thisCL]);
- }
- }
-}
-
-// End of our run, so terminate everything before we go.
-terminate_everything("Terminated.");
-
-//////////////////////////////// END OF MAIN ////////////////////////////////
-
-// Okay, welcome to my world.
-// str = The string used for the quit reason UNLESS 'is_netsplit' is set to
-// true, in which case it becomes the string used to QUIT individual
-// clients in a netsplit (i.e. "server.one server.two")
-// suppress_bcast = Set to TRUE if you don't want the message to be broadcast
-// accross the entire network. Useful for netsplits, global kills, or
-// other network messages where the rest of the network is nuking the
-// client on their own.
-// is_netsplit = Should never be used except in a recursive call from the
-// 'this.netsplit()' function. Tells the function that we're recursive
-// and to use 'str' as the reason for quiting all the clients
-// origin = an object typically only passed in the case of a SQUIT, contains
-// the client who originated the message (i.e. for generating netsplit
-// messages.)
-// FIXME: this function split into three. comments kept for now, but nuke later
-
-function IRCClient_netsplit(ns_reason) {
- if (!ns_reason)
- ns_reason = "net.split.net.split net.split.net.split";
- for (sqclient in Users) {
- if (Users[sqclient] &&
- (Users[sqclient].servername == this.nick)
- )
- Users[sqclient].quit(ns_reason,true,true);
- }
- for (sqserver in Servers) {
- if (Servers[sqserver] &&
- (Servers[sqserver].linkparent == this.nick)
- )
- Servers[sqserver].quit(ns_reason,true,true);
- }
-}
-
-function IRCClient_RMChan(rmchan_obj) {
- if (!rmchan_obj)
- return 0;
- if (rmchan_obj.users[this.id])
- delete rmchan_obj.users[this.id];
- if (this.channels[rmchan_obj.nam.toUpperCase()])
- delete this.channels[rmchan_obj.nam.toUpperCase()];
- delete rmchan_obj.modelist[CHANMODE_OP][this.id];
- delete rmchan_obj.modelist[CHANMODE_VOICE][this.id];
- if (!true_array_len(rmchan_obj.users))
- delete Channels[rmchan_obj.nam.toUpperCase()];
-}
-
-//////////////////// Output Helper Functions ////////////////////
-function writeout(sock,str) {
- if (!sock || !str)
- return 0;
- var send_tries;
- var sent;
- for (send_tries=0;send_tries<=10;send_tries++) {
- sent = sock.send(str + "\r\n");
- if (sent)
- return 1;
- log("!Warning: Socket error: " + sock.error + " -- Retrying.");
- mswait(100);
- if (!sock.is_connected)
- return 0; // Failure
- }
- // If we get this far, we failed miserably.
- log("!ERROR: Socket write failed after 10 retries! Dropping socket.");
- return 0;
-}
-
-function rawout(str) {
- var sendsock;
- var str_end;
- var str_beg;
-
- if (debug)
- log(format("[RAW->%s]: %s",this.nick,str));
-
- if (this.local) {
- sendsock = this.socket;
- } else if (!this.local) {
- if ((str[0] == ":") && str[0].match(["!"])) {
- str_end = str.slice(str.indexOf(" ")+1);
- str_beg = str.slice(0,str.indexOf("!"));
- str = str_beg + " " + str_end;
- }
- sendsock = Servers[this.parent.toLowerCase()].socket;
- } else {
- log("!ERROR: No socket to send to?");
- return 0;
- }
-
- if (!writeout(sendsock,str))
- this.flagged_for_quit = "Socket write failed miserably";
-}
-
-function originatorout(str,origin) {
- var send_data;
- var sendsock;
-
- if (debug)
- log(format("[%s->%s]: %s",origin.nick,this.nick,str));
-
- sendsock = this.socket;
- if(this.local && !this.server) {
- if (origin.server)
- send_data = ":" + origin.nick + " " + str;
- else
- send_data = ":" + origin.nuh + " " + str;
- } else if (this.server) {
- send_data = ":" + origin.nick + " " + str;
- } else if (!this.local) {
- sendsock = Servers[this.parent.toLowerCase()].socket;
- send_data = ":" + origin.nick + " " + str;
- } else {
- log("!ERROR: No socket to send to?");
- return 0;
- }
-
- if (!writeout(sendsock,send_data))
- this.flagged_for_quit = "Socket write failed miserably";
-}
-
-function ircout(str) {
- var sendsock;
-
- if (debug)
- log(format("[%s->%s]: %s",servername,this.nick,str));
-
- if(this.local) {
- sendsock = this.socket;
- } else if (this.parent) {
- sendsock = Servers[this.parent.toLowerCase()].socket;
- } else {
- log("!ERROR: No socket to send to?");
- return 0;
- }
-
- if (!writeout(sendsock,":" + servername + " " + str))
- this.flagged_for_quit = "Socket write failed miserably";
-}
-
-function IRCClient_server_notice(str) {
- this.ircout("NOTICE " + this.nick + " :" + str);
-}
-
-function IRCClient_numeric(num, str) {
- this.ircout(num + " " + this.nick + " " + str);
-}
-
-//////////////////// Numeric Functions ////////////////////
-function IRCClient_numeric200(dest,next) {
- this.numeric(200, "Link " + VERSION + " " + dest + " " + next);
-}
-
-function IRCClient_numeric201(ircclass,server) {
- this.numeric(201, "Try. " + ircclass + " " + server);
-}
-
-function IRCClient_numeric202(ircclass,server) {
- this.numeric(202, "H.S. " + ircclass + " " + server);
-}
-
-function IRCClient_numeric203(ircclass,ip) {
- this.numeric(203, "???? " + ircclass + " [" + ip + "]");
-}
-
-function IRCClient_numeric204(nick) {
- this.numeric(204, "Oper " + nick.ircclass + " " + nick.nick);
-}
-
-function IRCClient_numeric205(nick) {
- this.numeric(205, "User " + nick.ircclass + " " + nick.nick);
-}
-
-function IRCClient_numeric206(ircclass,sint,cint,server) {
- this.numeric(206, "Serv " + ircclass + " " + sint + "S " + cint + "C *!*@" + server);
-}
-
-function IRCClient_numeric208(type,clientname) {
- this.numeric(208, type + " 0 " + clientname);
-}
-
-function IRCClient_numeric261(file) {
- this.numeric(261, "File " + file + " " + debug);
-}
-
-function IRCClient_numeric321() {
- this.numeric("321", "Channel :Users Name");
-}
-
-function IRCClient_numeric322(chan,show_modes) {
- var channel_name;
- var disp_topic = "";
- var is_onchan = this.channels[chan.nam.toUpperCase()];
-
- if (show_modes) {
- var chanm = chan.chanmode()
- disp_topic += "[" + chanm.slice(0,chanm.length-1) + "]"
- }
-
- if ((chan.mode&CHANMODE_PRIVATE) && !(this.mode&USERMODE_OPER) &&
- !is_onchan ) {
- channel_name = "*";
- } else {
- channel_name = chan.nam;
- if (disp_topic)
- disp_topic += " ";
- disp_topic += chan.topic;
- }
- if (!(chan.mode&CHANMODE_SECRET) || (this.mode&USERMODE_OPER) ||
- is_onchan )
- this.numeric(322, channel_name + " " + true_array_len(chan.users) + " :" + disp_topic);
-}
-
-function IRCClient_numeric331(chan) {
- this.numeric(331, chan.nam + " :No topic is set.");
-}
-
-function IRCClient_numeric332(chan) {
- this.numeric(332, chan.nam + " :" + chan.topic);
-}
-
-function IRCClient_numeric333(chan) {
- this.numeric(333, chan.nam + " " + chan.topicchangedby + " " + chan.topictime);
-}
-
-function IRCClient_numeric351() {
- this.numeric(351, VERSION + " " + servername + " :" + VERSION_STR);
-}
-
-function IRCClient_numeric352(user,show_ips_only,chan) {
- var who_mode="";
- var disp;
- var disphost;
-
- if (!user)
- return 0;
-
- if (!chan)
- disp = "*";
- else
- disp = chan.nam;
-
- if (user.away)
- who_mode += "G";
- else
- who_mode += "H";
- if (chan) {
- if (chan.modelist[CHANMODE_OP][user.id])
- who_mode += "@";
- else if (chan.modelist[CHANMODE_VOICE][user.id])
- who_mode += "+";
- }
- if (user.mode&USERMODE_OPER)
- who_mode += "*";
-
- if (show_ips_only)
- disphost = user.ip;
- else
- disphost = user.hostname;
-
- this.numeric(352, disp + " " + user.uprefix + " " + disphost + " " + user.servername + " " + user.nick + " " + who_mode + " :" + user.hops + " " + user.realname);
- return 1;
-}
-
-function IRCClient_numeric353(chan, str) {
- // = public @ secret * everything else
- if (chan.mode&CHANMODE_SECRET)
- var ctype_str = "@";
- else
- var ctype_str = "=";
- this.numeric("353", ctype_str + " " + chan.nam + " :" + str);
-}
-
-function IRCClient_numeric382(str) {
- this.numeric(382, "ircd.conf :" + str);
-}
-
-function IRCClient_numeric391() {
- this.numeric(391, servername + " :" + strftime("%A %B %d %Y -- %H:%M %z",time()));
-}
-
-function IRCClient_numeric401(str) {
- this.numeric("401", str + " :No such nick/channel.");
-}
-
-function IRCClient_numeric402(str) {
- this.numeric(402, str + " :No such server.");
-}
-
-function IRCClient_numeric403(str) {
- this.numeric("403", str + " :No such channel or invalid channel designation.");
-}
-
-function IRCClient_numeric411(str) {
- this.numeric("411", ":No recipient given. (" + str + ")");
-}
-
-function IRCClient_numeric412() {
- this.numeric(412, " :No text to send.");
-}
-
-function IRCClient_numeric440(str) {
- this.numeric(440, str + " :Services is currently down, sorry.");
-}
-
-function IRCClient_numeric441(str) {
- this.numeric("441", str + " :They aren't on that channel.");
-}
-
-function IRCClient_numeric442(str) {
- this.numeric("442", str + " :You're not on that channel.");
-}
-
-function IRCClient_numeric445() {
- this.numeric(445, ":SUMMON has been disabled.");
-}
-
-function IRCClient_numeric446() {
- this.numeric(446, ":USERS has been disabled.");
-}
-
-function IRCClient_numeric451() {
- this.numeric("451", ":You have not registered.");
-}
-
-function IRCClient_numeric461(cmd) {
- this.numeric("461", cmd + " :Not enough parameters.");
-}
-
-function IRCClient_numeric462() {
- this.numeric("462", ":You may not re-register.");
-}
-
-function IRCClient_numeric481() {
- this.numeric("481", ":Permission Denied. You do not have the correct IRC operator privileges.");
-}
-
-function IRCClient_numeric482(tmp_chan_nam) {
- this.numeric("482", tmp_chan_nam + " :You're not a channel operator.");
-}
-
-//////////////////// Multi-numeric Display Functions ////////////////////
-
-function IRCClient_lusers() {
- // FIXME: calc invis clients
- this.numeric("251", ":There are " + true_array_len(Users) + " users and 0 invisible on " + true_array_len(Servers) + " servers.");
- // FIXME: calc total opers
- this.numeric("252", "0 :IRC operators online.");
- this.numeric("253", "0 :unknown connection(s).");
- this.numeric("254", true_array_len(Channels) + " :channels formed.");
- this.numeric("255", ":I have " + true_array_len(Local_Users) + " clients and " + true_array_len(Local_Servers) + " servers.");
- this.numeric("250", ":Highest connection count: " + hcc_total + " (" + hcc_users + " clients.)");
- this.server_notice(hcc_counter + " clients have connected since " + strftime("%a %b %e %H:%M:%S %Y %Z",server_uptime));
-}
-
-function IRCClient_motd() {
- var motd_file = new File(system.text_dir + "ircmotd.txt");
- if (motd_file.exists==false)
- this.numeric(422, ":MOTD file missing: " + motd_file.name);
- else if (motd_file.open("r")==false)
- this.numeric(424, ":MOTD error " + errno + " opening: " + motd_file.name);
- else {
- this.numeric(375, ":- " + servername + " Message of the Day -");
- this.numeric(372, ":- " + strftime("%m/%d/%Y %H:%M",motd_file.date));
- while (!motd_file.eof) {
- motd_line = motd_file.readln();
- if (motd_line != null)
- this.numeric(372, ":- " + motd_line);
- }
- motd_file.close();
- }
- this.numeric(376, ":End of /MOTD command.");
-}
-
-function IRCClient_names(chan) {
- var Channel_user;
- var numnicks=0;
- var tmp="";
- for(thisChannel_user in chan.users) {
- Channel_user=chan.users[thisChannel_user];
- if (!(Channel_user.mode&USERMODE_INVISIBLE) ||
- (this.channels[chan.nam.toUpperCase()]) ) {
- if (numnicks)
- tmp += " ";
- if (chan.modelist[CHANMODE_OP][Channel_user.id])
- tmp += "@";
- else if (chan.modelist[CHANMODE_VOICE][Channel_user.id])
- tmp += "+";
- tmp += Channel_user.nick;
- numnicks++;
- if (numnicks >= 59) {
- // dump what we've got, it's too much.
- this.numeric353(chan, tmp);
- numnicks=0;
- tmp="";
- }
- }
- }
- if(numnicks)
- this.numeric353(chan, tmp);
-}
-
-// Traverse each channel the user is on and see if target is on any of the
-// same channels.
-function IRCClient_onchanwith(target) {
- for (c in this.channels) {
- for (i in target.channels) {
- if (c == i)
- return 1; // success
- }
- }
- return 0; // failure.
-}
-
-//////////////////// Auxillary Functions ////////////////////
-
-function IRCClient_bcast_to_uchans_unique(str) {
- var already_bcast = new Array();
- for(thisChannel in this.channels) {
- var userchannel=this.channels[thisChannel];
- for (j in userchannel.users) {
- var usr = userchannel.users[j];
- if (!already_bcast[usr.nick] && (usr.id != this.id) &&
- usr.local) {
- usr.originatorout(str,this);
- already_bcast[usr.nick] = true;
- }
- }
- }
-}
-
-function IRCClient_bcast_to_list(chan, str, bounce, list_bit) {
- for (thisUser in chan.users) {
- var aUser = chan.users[thisUser];
- if (aUser && ( aUser.id != this.id || (bounce) ) &&
- chan.modelist[list_bit][aUser.id])
- aUser.originatorout(str,this);
- }
-}
-
-function IRCClient_bcast_to_channel(chan, str, bounce) {
- for(thisUser in chan.users) {
- var aUser=chan.users[thisUser];
- if ( ( aUser.id != this.id || (bounce) ) &&
- aUser.local )
- aUser.originatorout(str,this);
- }
-}
-
-function IRCClient_bcast_to_channel_servers(chan, str) {
- var sent_to_servers = new Array;
- for(thisUser in chan.users) {
- var aUser=chan.users[thisUser];
- if (!aUser.local && (this.parent != aUser.parent) &&
- !sent_to_servers[aUser.parent.toLowerCase()]) {
- aUser.originatorout(str,this);
- sent_to_servers[aUser.parent.toLowerCase()] = true;
- }
- }
-}
-
-function IRCClient_check_nickname(newnick,squelch) {
- var qline_nick;
- var checknick;
- var regexp;
-
- newnick = newnick.slice(0,max_nicklen);
- // If you're trying to NICK to yourself, drop silently.
- if(newnick == this.nick)
- return -1;
- // First, check for valid nick against irclib.
- if(IRC_check_nick(newnick)) {
- if (!squelch)
- this.numeric("432", newnick + " :Foobar'd Nickname.");
- return 0;
- }
- // Second, check for existing nickname.
- checknick = Users[newnick.toUpperCase()];
- if(checknick && (checknick.nick != this.nick) ) {
- if (!squelch)
- this.numeric("433", newnick + " :Nickname is already in use.");
- return 0;
- }
- // Third, match against Q:Lines
- for (ql in QLines) {
- qline_nick = QLines[ql].nick;
- qline_nick = qline_nick.replace(/[?]/g,".");
- qline_nick = qline_nick.replace(/[*]/g,".*?");
- regexp = new RegExp("^" + qline_nick + "$","i");
- if(newnick.match(regexp)) {
- if (!squelch)
- this.numeric(432, newnick + " :" + QLines[ql].reason);
- return 0;
- }
- }
- return 1; // if we made it this far, we're good!
-}
-
-function IRCClient_do_whois(wi) {
- if (!wi)
- return 0;
- this.numeric(311, wi.nick + " " + wi.uprefix + " " + wi.hostname + " * :" + wi.realname);
- var userchans="";
- for (i in wi.channels) {
- var chan = wi.channels[i];
- if (!(chan.mode&CHANMODE_SECRET||chan.mode&CHANMODE_PRIVATE) ||
- this.channels[chan.nam.toUpperCase()] || this.mode&USERMODE_OPER) {
- if (userchans)
- userchans += " ";
- if (chan.modelist[CHANMODE_OP][wi.id])
- userchans += "@";
- else if (chan.modelist[CHANMODE_VOICE][wi.id])
- userchans += "+";
- userchans += chan.nam;
- }
- }
- if (userchans)
- this.numeric(319, wi.nick + " :" + userchans);
- if (wi.local)
- this.numeric(312, wi.nick + " " + servername + " :" + serverdesc);
- else {
- wi_server = searchbyserver(wi.servername);
- this.numeric(312, wi.nick + " " + wi_server.nick + " :" + wi_server.info);
- }
- if (wi.mode&USERMODE_OPER)
- this.numeric(313, wi.nick + " :is an IRC operator.");
- if (wi.away)
- this.numeric(301, wi.nick + " :" + wi.away);
- if (wi.local)
- this.numeric(317, wi.nick + " " + (time() - wi.talkidle) + " " + wi.connecttime + " :seconds idle, signon time");
-}
-
-function IRCClient_services_msg(svcnick,send_str) {
- var service_server;
-
- if (!send_str) {
- this.numeric412();
- return 0;
- }
- // First, make sure the nick exists.
- var usr = Users[svcnick.toUpperCase()];
- if (!usr) {
- this.numeric440(svcnick);
- return 0;
- }
- service_server = searchbyserver(usr.servername);
- if (!service_server || !service_server.uline) {
- this.numeric440(svcnick);
- return 0;
- }
- this.do_msg(svcnick,"PRIVMSG",send_str);
-}
-
-function IRCClient_global(target,type_str,send_str) {
- if (!target.match("[.]")) {
- this.numeric(413,target + " :No top-level domain specified.");
- return 0;
- }
- var domain_part = target.split('.');
- if (domain_part[domain_part.length - 1].match("[?*]")) {
- this.numeric(414,target + " :Wildcard found in top-level domain.");
- return 0;
- }
- var global_mask = target.slice(1);
- var global_str = type_str + " " + target + " :" + send_str;
- for(globClient in Local_Users) {
- var Client = Local_Users[globClient];
- if (target[0] == "#")
- var global_match = Client.hostname;
- else // assume $
- var global_match = Client.servername;
- if (IRC_match(global_match,global_mask))
- Client.originatorout(global_str,this);
- }
- global_str = ":" + this.nick + " " + global_str;
- if(this.parent)
- Servers[this.parent.toLowerCase()].bcast_to_servers_raw(global_str);
- else if (this.flags&OLINE_CAN_GGNOTICE)
- server_bcast_to_servers(global_str);
- return 1;
-}
-
-function IRCClient_globops(str) {
- var globops_bits = 0;
- globops_bits |= USERMODE_OPER;
- globops_bits |= USERMODE_GLOBOPS;
- umode_notice(globops_bits,"Global","from " + this.nick +": " + str);
- if (this.parent)
- Servers[this.parent.toLowerCase()].bcast_to_servers_raw(":" + this.nick +
- " GLOBOPS :" + str);
- else
- server_bcast_to_servers(":" + this.nick + " GLOBOPS :" + str);
-}
-
-function IRCClient_do_msg(target,type_str,send_str) {
- if ((target[0] == "$") && (this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_LGNOTICE))
- return this.global(target,type_str,send_str);
-
- var send_to_list = -1;
- if (target[0] == "@" && ( (target[1] == "#") || target[1] == "&") ) {
- send_to_list = CHANMODE_OP;
- target = target.slice(1);
- } else if (target[0]=="+" && ((target[1] == "#")|| target[1] == "&")) {
- send_to_list = CHANMODE_VOICE;
- target = target.slice(1);
- }
-
- if ((target[0] == "#") || (target[0] == "&")) {
- var chan = Channels[target.toUpperCase()];
- if (!chan) {
- // check to see if it's a #*hostmask* oper message
- if ((target[0] == "#") && (this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_LGNOTICE)) {
- return this.global(target,type_str,send_str);
- } else {
- this.numeric401(target);
- return 0;
- }
- }
- if ((chan.mode&CHANMODE_NOOUTSIDE) && !this.channels[chan.nam.toUpperCase()]) {
- this.numeric(404, chan.nam + " :Cannot send to channel (+n: no outside messages)");
- return 0;
- }
- if ( (chan.mode&CHANMODE_MODERATED) &&
- !chan.modelist[CHANMODE_VOICE][this.id] &&
- !chan.modelist[CHANMODE_OP][this.id] ) {
- this.numeric(404, chan.nam + " :Cannot send to channel (+m: moderated)");
- return 0;
- }
- if (chan.isbanned(this.nuh) &&
- !chan.modelist[CHANMODE_VOICE][this.id] &&
- !chan.modelist[CHANMODE_OP][this.id] ) {
- this.numeric(404, chan.nam + " :Cannot send to channel (+b: you're banned!)");
- return 0;
- }
- if(send_to_list == -1) {
- var str = type_str +" "+ chan.nam +" :"+ send_str;
- this.bcast_to_channel(chan, str, false);
- this.bcast_to_channel_servers(chan, str);
- } else {
- var prefix_chr;
- if (send_to_list == CHANMODE_OP)
- prefix_chr="@";
- else if (send_to_list == CHANMODE_VOICE)
- prefix_chr="+";
- var str = type_str +" " + prefix_chr + chan.nam + " :"+ send_str;
- this.bcast_to_list(chan, str, false, send_to_list);
- this.bcast_to_channel_servers(chan, str);
- }
- } else {
- if (target.match("[@]")) {
- var msg_arg = target.split('@');
- var real_target = msg_arg[0];
- var target_server = searchbyserver(msg_arg[1]);
- if (!target_server) {
- this.numeric401(target);
- return 0;
- }
- if (target_server == -1) {
- this.numeric(407, target + " :Duplicate recipients, no message delivered.");
- return 0;
- }
- target = msg_arg[0] + "@" + msg_arg[1];
- } else {
- var real_target = target;
- }
- var target_socket = Users[real_target.toUpperCase()];
- if (target_socket) {
- if (target_server &&
- (target_server.parent != target_socket.parent)) {
- this.numeric401(target);
- return 0;
- }
- if (target_server &&
- (target_server.id == target_socket.parent) )
- target = real_target;
- var str = type_str + " " + target + " :" + send_str;
- target_socket.originatorout(str,this);
- if (target_socket.away && (type_str == "PRIVMSG") &&
- !this.server && this.local)
- this.numeric(301, target_socket.nick + " :" + target_socket.away);
- } else {
- this.numeric401(target);
- return 0;
- }
- }
- return 1;
-}
-
-function IRCClient_do_admin() {
- umode_notice(USERMODE_SPY,"ADMIN requested by " + this.nick + " (" +
- this.uprefix + "@" + this.hostname + ") [" + this.servername +
- "]");
- if (Admin1 && Admin2 && Admin3) {
- this.numeric(256, ":Administrative info about " + servername);
- this.numeric(257, ":" + Admin1);
- this.numeric(258, ":" + Admin2);
- this.numeric(259, ":" + Admin3);
- } else {
- this.numeric(423, servername + " :No administrative information available.");
- }
-}
-
-function IRCClient_do_info() {
- umode_notice(USERMODE_SPY,"Spy","INFO requested by " + this.nick +
- " (" + this.uprefix + "@" + this.hostname + ") [" +
- this.servername + "]");
- this.numeric(371, ":--=-=-=-=-=-=-=-=-=*[ The Synchronet IRCd v1.1b ]*=-=-=-=-=-=-=-=-=--");
- this.numeric(371, ": IRCd Copyright 2003 by Randolph E. Sommerfeld <cyan@rrx.ca>");
- this.numeric(371, ":" + system.version_notice + " " + system.copyright + ".");
- this.numeric(371, ":--=-=-=-=-=-=-=-=-( A big thanks to the following )-=-=-=-=-=-=-=-=--");
- this.numeric(371, ":DigitalMan (Rob Swindell): Resident coder god, various hacking all");
- this.numeric(371, ": around the IRCd, countless helpful suggestions and tips, and");
- this.numeric(371, ": tons of additions to the Synchronet JS API that made this possible.");
- this.numeric(371, ":Deuce (Stephen Hurd): Resident Perl guru and Saskatchewan zealot.");
- this.numeric(371, ": Originally converted the IRCd to be object-oriented, various small");
- this.numeric(371, ": hacks, and lots of guidance.");
- this.numeric(371, ":Greets to: Arrak, DWC, Foobar, Grey Fox/Zero/Unpaid, Grimp, Kufat,");
- this.numeric(371, ": Palom, Psyko, Torke, and all the #square oldbies.");
- this.numeric(371, ":--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--");
- this.numeric(371, ":Synchronet " + system.full_version);
- this.numeric(371, ":Compiled with " + system.compiled_with + " at " + system.compiled_when);
- this.numeric(371, ":Running on " + system.os_version);
- this.numeric(371, ":Utilizing socket library: " + system.socket_lib);
- this.numeric(371, ":Javascript library: " + system.js_version);
- this.numeric(371, ":This BBS has been up since " + system.timestr(system.uptime));
- this.numeric(371, ": - - - - - - - - - - - - - - - - - - - - - - -");
- if (server.version_detail!=undefined) {
- this.numeric(371, ":This IRCd was executed via:");
- this.numeric(371, ":" + server.version_detail);
- }
- this.numeric(371, ":IRCd CVS revisions:")
- this.numeric(371, ":Main(" + MAIN_REVISION + ") User(" + USER_REVISION + ") Channel(" + CHANNEL_REVISION + ") Server(" + SERVER_REVISION + ") Unreg(" + UNREG_REVISION + ")");
- this.numeric(371, ":IRClib Version: " + IRCLIB_VERSION);
- this.numeric(371, ":--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--");
- this.numeric(371, ":This program is distributed under the terms of the GNU General Public");
- this.numeric(371, ":License, version 2. http://www.gnu.org/licenses/gpl.txt");
- this.numeric(371, ":--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--");
- this.numeric(374, ":End of /INFO list.");
-}
-
-function IRCClient_do_stats(statschar) {
- switch(statschar[0]) {
- case "C":
- case "c":
- var cline_port;
- for (cline in CLines) {
- if(CLines[cline].port)
- cline_port = CLines[cline].port;
- else
- cline_port = "*";
- this.numeric(213,"C " + CLines[cline].host + " * " + CLines[cline].servername + " " + cline_port + " " + CLines[cline].ircclass);
- if (NLines[cline])
- this.numeric(214,"N " + NLines[cline].host + " * " + NLines[cline].servername + " " + NLines[cline].flags + " " + NLines[cline].ircclass);
- }
- break;
- case "H":
- case "h":
- for (hl in HLines) {
- this.numeric(244,"H " + HLines[hl].allowedmask + " * " + HLines[hl].servername);
- }
- break;
- case "I":
- case "i":
- var my_port;
- for (iline in ILines) {
- if (!ILines[iline].port)
- my_port = "*";
- else
- my_port = ILines[iline].port;
- this.numeric(215,"I " + ILines[iline].ipmask + " * " + ILines[iline].hostmask + " " + my_port + " " + ILines[iline].ircclass);
- }
- break;
- case "K":
- case "k":
- for (kline in KLines) {
- if(KLines[kline].hostmask)
- this.numeric(216, KLines[kline].type + " " + KLines[kline].hostmask + " * * :" + KLines[kline].reason);
- }
- break;
- case "L":
- this.numeric(241,"L <hostmask> * <servername> <maxdepth>");
- break;
- case "l":
- this.numeric(211,"<linkname> <sendq> <sentmessages> <sentbytes> <receivedmessages> <receivedbytes> <timeopen>");
- break;
- case "M":
- case "m":
- this.numeric(212,"<command> <count>");
- break;
- case "O":
- case "o":
- for (oline in OLines) {
- this.numeric(243, "O " + OLines[oline].hostmask + " * " + OLines[oline].nick);
- }
- break;
- case "U":
- for (uline in ULines) {
- this.numeric(246, "U " + ULines[uline] + " * * 0 -1");
- }
- break;
- case "u":
- var this_uptime=time() - server_uptime;
- var updays=Math.floor(this_uptime / 86400);
- if (updays)
- this_uptime %= 86400;
- var uphours=Math.floor(this_uptime/(60*60));
- var upmins=(Math.floor(this_uptime/60))%60;
- var upsec=this_uptime%60;
- var str = format("Server Up %u days, %u:%02u:%02u",
- updays,uphours,upmins,upsec);
- this.numeric(242,":" + str);
- break;
- case "Y":
- case "y":
- var yl;
- for (thisYL in YLines) {
- yl = YLines[thisYL];
- this.numeric(218,"Y " + thisYL + " " + yl.pingfreq + " " + yl.connfreq + " " + yl.maxlinks + " " + yl.sendq);
- }
- break;
- default:
- break;
- }
- this.numeric(219, statschar[0] + " :End of /STATS Command.");
-}
-
-function IRCClient_do_users() {
- var usersshown;
- var u;
-
- this.numeric(392,':UserID Terminal Host');
- usersshown=0;
- for(node in system.node_list) {
- if(system.node_list[node].status == NODE_INUSE) {
- u=new User(system.node_list[node].useron);
- this.numeric(393,format(':%-25s %-9s %-30s',u.alias,'Node'+node,u.host_name));
- usersshown++;
- }
- }
- if(usersshown) {
- this.numeric(394,':End of users');
- } else {
- this.numeric(395,':Nobody logged in');
- }
-}
-
-function IRCClient_do_summon(summon_user) {
- var usernum;
- var isonline;
-
- // Check if exists.
- usernum = system.matchuser(summon_user);
- if(!usernum)
- this.numeric(444,":No such user.");
- else {
- // Check if logged in
- isonline = 0;
- for(node in system.node_list) {
- if(system.node_list[node].status == NODE_INUSE &&
- system.node_list[node].useron == usernum)
- isonline=1;
- }
- if(!isonline)
- this.numeric(444,":User not logged in.");
- else {
-// var summon_message=IRC_string(cmdline);
-// if(summon_message != '')
-// var summon_message=' ('+summon_message+')';
-// system.put_telegram('^G^G'+usernum,this.nick+' is summoning you to IRC chat'+summon_message+'\r\n');
- system.put_telegram(usernum,''+this.nick+' is summoning you to IRC chat.\r\n');
- this.numeric(342,summon_user+' :Summoning user to IRC');
- }
- }
-}
-
-function IRCClient_do_links(mask) {
- if (!mask)
- mask = "*";
- umode_notice(USERMODE_SPY,"Spy","LINKS " + mask + " requested from " +
- this.nick + " (" + this.uprefix + "@" + this.hostname + ") [" +
- this.servername + "]");
- for(thisServer in Servers) {
- var Server=Servers[thisServer];
- if (IRC_match(Server.nick,mask))
- this.numeric(364, Server.nick + " " + Server.linkparent + " :" + Server.hops + " " + Server.info);
- }
- if (IRC_match(servername,mask))
- this.numeric(364, servername + " " + servername + " :0 " + serverdesc);
- this.numeric(365, mask + " :End of /LINKS list.");
-}
-
-// Don't hunt for servers based on nicknames, as TRACE is more explicit.
-function IRCClient_do_trace(target) {
- var server;
- var nick;
-
- if (target.match(/[.]/)) { // probably a server
- server = searchbyserver(target);
- if (server == -1) { // we hunted ourselves
- // FIXME: What do these numbers mean? O_o?
- this.numeric206("30","1","0",servername);
- this.trace_all_opers();
- } else if (server) {
- server.rawout(":" + this.nick + " TRACE " + target);
- this.numeric200(target,server.nick);
- return 0;
- } else {
- this.numeric402(target);
- return 0;
- }
- } else { // user.
- nick = Users[target.toUpperCase()];
- if (nick.local) {
- if (nick.mode&USERMODE_OPER)
- this.numeric204(nick);
- else
- this.numeric205(nick);
- } else if (nick) {
- nick.rawout(":" + this.nick + " TRACE " + target);
- this.numeric200(target,Servers[nick.parent.toLowerCase()].nick);
- return 0;
- } else {
- this.numeric402(target);
- return 0;
- }
- }
- this.numeric(262, target + " :End of /TRACE.");
-}
-
-function IRCClient_trace_all_opers() {
- for(thisoper in Local_Users) {
- var oper=Local_Users[thisoper];
- if (oper.mode&USERMODE_OPER)
- this.numeric204(oper);
- }
-}
-
-function IRCClient_do_connect(con_server,con_port) {
- var con_cline = "";
- for (ccl in CLines) {
- if (IRC_match(CLines[ccl].servername,con_server) ||
- IRC_match(CLines[ccl].host,con_server) ) {
- con_cline = CLines[ccl];
- break;
- }
- }
- if (!con_cline) {
- this.numeric402(con_server);
- return 0;
- }
- if (!con_port && con_cline.port)
- con_port = con_cline.port;
- if (!con_port && !con_cline.port)
- con_port = String(default_port);
- if (!con_port.match(/^[0-9]+$/)) {
- this.server_notice("Invalid port: " + con_port);
- return 0;
- }
- var msg = " CONNECT " + con_cline.servername + " " + con_port +
- " from " + this.nick + "[" + this.uprefix + "@" +
- this.hostname + "]";
- var con_type = "Local";
- if (this.parent) {
- con_type = "Remote";
- server_bcast_to_servers("GNOTICE :Remote" + msg);
- }
- umode_notice(USERMODE_ROUTING,"Routing","from "+servername+": " +
- con_type + msg);
- connect_to_server(con_cline,con_port);
- return 1;
-}
-
-function IRCClient_do_basic_who(whomask) {
- var eow = "*";
-
- var regexp = "^[0]{1,}$";
- if (whomask.match(regexp))
- whomask = "*";
-
- if ((whomask[0] == "#") || (whomask[0] == "&")) {
- var chan = Channels[whomask.toUpperCase()];
- if (chan && ( ( !(chan.mode&CHANMODE_SECRET) &&
- !(chan.mode&CHANMODE_PRIVATE) ) ||
- this.channels[chan.nam.toUpperCase()] || (this.mode&USERMODE_OPER))
- ) {
- for(i in chan.users) {
- var usr = chan.users[i];
- if (!(usr.mode&USERMODE_INVISIBLE) ||
- (this.mode&USERMODE_OPER) ||
- this.onchanwith(usr) ) {
- var chkwho = this.numeric352(usr,false,chan);
- if (!chkwho)
- umode_notice(USERMODE_OPER,"Notice","WHO returned 0 for user: " + usr.nick + " (A)");
- }
- }
- eow = chan.nam;
- }
- } else {
- for (i in Users) {
- var usr = Users[i];
- if (usr.match_who_mask(whomask) &&
- (!(usr.mode&USERMODE_INVISIBLE) ||
- (this.mode&USERMODE_OPER) ||
- this.onchanwith(usr) ) ) {
- var chkwho = this.numeric352(usr);
- if (!chkwho)
- umode_notice(USERMODE_OPER,"Notice","WHO returned 0 for user: " + usr.nick + " (B)");
- }
- }
- eow = whomask;
- }
- this.numeric(315, eow + " :End of /WHO list. (Basic)");
-}
-
-function IRCClient_do_complex_who(cmd) {
- var who = new Who();
- var tmp;
- var eow = "*";
- var add = true; // assume the user is doing + by default
- var arg = 1;
- var whomask = "";
- var chan;
-
- // RFC1459 Compatibility. "WHO <mask> o" Only do it if we find a
- // wildcard, otherwise assume we're doing a complex WHO with 'modes'
- if (cmd[2] && ( (cmd[1].match(/[*]/)) || cmd[1].match(/[?]/)) ||
- (cmd[1].match(/[0]/)) && !cmd[3] && (cmd[2].toLowerCase() == "o")) {
- tmp = cmd[1];
- cmd[1] = cmd[2];
- cmd[2] = tmp;
- }
-
- for (myflag in cmd[1]) {
- switch (cmd[1][myflag]) {
- case "+":
- if (!add)
- add = true;
- break;
- case "-":
- if (add)
- add = false;
- break;
- case "a":
- who.tweak_mode(WHO_AWAY,add);
- break;
- case "c":
- arg++;
- if (cmd[arg]) {
- who.tweak_mode(WHO_CHANNEL,add);
- who.Channel = cmd[arg];
- }
- break;
- case "g":
- arg++;
- if (cmd[arg]) {
- who.tweak_mode(WHO_REALNAME,add);
- who.RealName = cmd[arg];
- }
- break;
- case "h":
- arg++;
- if (cmd[arg]) {
- who.tweak_mode(WHO_HOST,add);
- who.Host = cmd[arg];
- }
- break;
- case "i":
- arg++;
- if (cmd[arg]) {
- who.tweak_mode(WHO_IP,add);
- who.IP = cmd[arg];
- }
- break;
- case "l":
- arg++;
- if (cmd[arg]) {
- who.tweak_mode(WHO_CLASS,add);
- who.Class = parseInt(cmd[arg]);
- }
- case "m": // we never set -m
- arg++;
- if (cmd[arg]) {
- who.tweak_mode(WHO_UMODE,true);
- if (!add) {
- var tmp_umode = "";
- if ((cmd[arg][0] != "+") ||
- (cmd[arg][0] != "-") )
- tmp_umode += "+";
- tmp_umode += cmd[arg].replace(/[-]/g," ");
- tmp_umode = tmp_umode.replace(/[+]/g,"-");
- who.UMode = tmp_umode.replace(/[ ]/g,"+");
- } else {
- who.UMode = cmd[arg];
- }
- }
- break;
- case "n":
- arg++;
- if (cmd[arg]) {
- who.Nick = cmd[arg];
- who.tweak_mode(WHO_NICK,add);
- }
- break;
- case "o":
- who.tweak_mode(WHO_OPER,add);
- break;
- case "s":
- arg++;
- if (cmd[arg]) {
- who.Server = cmd[arg];
- who.tweak_mode(WHO_SERVER,add);
- }
- break;
- case "t":
- arg++;
- if (cmd[arg]) {
- who.Time = parseInt(cmd[arg]);
- who.tweak_mode(WHO_TIME,add);
- }
- break;
- case "u":
- arg++;
- if (cmd[arg]) {
- who.User = cmd[arg];
- who.tweak_mode(WHO_USER,add);
- }
- break;
- case "C":
- who.tweak_mode(WHO_FIRST_CHANNEL,add);
- break;
- case "M":
- who.tweak_mode(WHO_MEMBER_CHANNEL,add);
- break;
- case "I":
- who.tweak_mode(WHO_SHOW_IPS_ONLY,add);
- break;
- default:
- break;
- }
- }
-
- // Check to see if the user passed a generic mask to us for processing.
- arg++;
- if (cmd[arg])
- whomask = cmd[arg];
-
- var regexp = "^[0]{1,}$";
- if (whomask.match(regexp))
- whomask = "*";
-
- // allow +c/-c to override.
- if (!who.Channel && ((whomask[0] == "#") || (whomask[0] == "&")))
- who.Channel = whomask;
-
- // Strip off any @ or + in front of a channel and set the flags.
- var sf_op = false;
- var sf_voice = false;
- var sf_done = false;
- var tmp_wc = who.Channel;
- for (cc in tmp_wc) {
- switch(tmp_wc[cc]) {
- case "@":
- sf_op = true;
- who.Channel = who.Channel.slice(1);
- break;
- case "+":
- sf_voice = true;
- who.Channel = who.Channel.slice(1);
- break;
- default: // assume we're done
- sf_done = true;
- break;
- }
- if (sf_done)
- break;
- }
- delete tmp_wc; // don't need this anymore.
-
- // Now we traverse everything and apply the criteria the user passed.
- var who_count = 0;
- for (who_client in Users) {
- var wc = Users[who_client];
- var flag_M = this.onchanwith(wc);
-
- // Don't even bother if the target is +i and the
- // user isn't an oper or on a channel with the target.
- if ( (wc.mode&USERMODE_INVISIBLE) &&
- !(this.mode&USERMODE_OPER) &&
- !flag_M)
- continue;
-
- if ((who.add_flags&WHO_AWAY) && !wc.away)
- continue;
- else if ((who.del_flags&WHO_AWAY) && wc.away)
- continue;
- if (who.add_flags&WHO_CHANNEL) {
- if (!wc.channels[who.Channel.toUpperCase()])
- continue;
- if (sf_op && Channels[who.Channel.toUpperCase()]&&
- !Channels[who.Channel.toUpperCase()].modelist
- [CHANMODE_OP][wc.id])
- continue;
- if(sf_voice&&Channels[who.Channel.toUpperCase()]&&
- !Channels[who.Channel.toUpperCase()].modelist
- [CHANMODE_VOICE][wc.id])
- continue;
- } else if (who.del_flags&WHO_CHANNEL) {
- if (wc.channels[who.Channel.toUpperCase()])
- continue;
- if (sf_op && Channels[who.Channel.toUpperCase()]&&
- Channels[who.Channel.toUpperCase()].modelist
- [CHANMODE_OP][wc.id])
- continue;
- if(sf_voice&&Channels[who.Channel.toUpperCase()]&&
- Channels[who.Channel.toUpperCase()].modelist
- [CHANMODE_VOICE][wc.id])
- continue;
- }
- if ((who.add_flags&WHO_REALNAME) &&
- !IRC_match(wc.realname,who.RealName))
- continue;
- else if ((who.del_flags&WHO_REALNAME) &&
- IRC_match(wc.realname,who.RealName))
- continue;
- if ((who.add_flags&WHO_HOST) &&
- !IRC_match(wc.hostname,who.Host))
- continue;
- else if ((who.del_flags&WHO_HOST) &&
- IRC_match(wc.hostname,who.Host))
- continue;
- if ((who.add_flags&WHO_IP) &&
- !IRC_match(wc.ip,who.IP))
- continue;
- else if ((who.del_flags&WHO_IP) &&
- IRC_match(wc.ip,who.IP))
- continue;
- if (who.add_flags&WHO_UMODE) { // no -m
- var sic = false;
- var madd = true;
- for (mm in who.UMode) {
- switch(who.UMode[mm]) {
- case "+":
- if (!madd)
- madd = true;
- break;
- case "-":
- if (madd)
- madd = false;
- break;
- case "o":
- case "i":
- case "w":
- case "b":
- case "g":
- case "s":
- case "c":
- case "r":
- case "k":
- case "f":
- case "y":
- case "d":
- case "n":
- case "h":
- case "F":
- if (
- (!madd && (wc.mode&
- USERMODE_CHAR
- [who.UMode[mm]])
- )
- ||
- (madd && !(wc.mode&
- USERMODE_CHAR
- [who.UMode[mm]])
- ) )
- sic = true;
- break;
- default:
- break;
- }
- if (sic)
- break;
- }
- if (sic)
- continue;
- }
- if ((who.add_flags&WHO_NICK) &&
- !IRC_match(wc.nick,who.Nick))
- continue;
- else if ((who.del_flags&WHO_NICK) &&
- IRC_match(wc.nick,who.Nick))
- continue;
- if ((who.add_flags&WHO_OPER) &&
- !(wc.mode&USERMODE_OPER))
- continue;
- else if ((who.del_flags&WHO_OPER) &&
- (wc.mode&USERMODE_OPER))
- continue;
- if ((who.add_flags&WHO_SERVER) &&
- !IRC_match(wc.servername,who.Server))
- continue;
- else if ((who.del_flags&WHO_SERVER) &&
- IRC_match(wc.servername,who.Server))
- continue;
- if ((who.add_flags&WHO_USER) &&
- !IRC_match(wc.uprefix,who.User))
- continue;
- else if ((who.del_flags&WHO_USER) &&
- IRC_match(wc.uprefix,who.User))
- continue;
- if ((who.add_flags&WHO_MEMBER_CHANNEL) && !flag_M)
- continue;
- else if ((who.del_flags&WHO_MEMBER_CHANNEL) && flag_M)
- continue;
- if ((who.add_flags&WHO_TIME) &&
- ((time() - wc.connecttime) < who.Time) )
- continue;
- else if ((who.del_flags&WHO_TIME) &&
- ((time() - wc.connecttime) > who.Time) )
- continue;
- if ((who.add_flags&WHO_CLASS) &&
- (wc.ircclass != who.Class))
- continue;
- else if ((who.del_flags&WHO_CLASS) &&
- (wc.ircclass == who.Class))
- continue;
-
- if (whomask && !wc.match_who_mask(whomask))
- continue;
-
- chan = "";
- if ((who.add_flags&WHO_FIRST_CHANNEL) && !who.Channel) {
- for (x in wc.channels) {
- if(wc.channels[x] &&
- (!(Channels[wc.channels[x]].mode&
- CHANMODE_SECRET ||
- Channels[wc.channels[x]].mode&
- CHANMODE_PRIVATE
- ) ||
- this.channels[wc.channels[x].toUpperCase]||
- this.mode&USERMODE_OPER)
- ) {
- chan = Channels[wc.channels[x]].nam;
- break;
- }
- }
- }
-
- if (who.Channel)
- chan = who.Channel;
-
- var show_ips_only;
- if (who.add_flags&WHO_SHOW_IPS_ONLY)
- show_ips_only = true;
- else
- show_ips_only = false;
-
- // If we made it this far, we're good.
- if (chan && Channels[chan.toUpperCase()]) {
- var chkwho = this.numeric352(wc,show_ips_only,Channels[chan.toUpperCase()]);
- if (!chkwho)
- umode_notice(USERMODE_OPER,"Notice","WHO returned 0 for user: " + wc.nick + " (C)");
- } else {
- var chkwho = this.numeric352(wc,show_ips_only);
- if (!chkwho)
- umode_notice(USERMODE_OPER,"Notice","WHO returned 0 for user: " + wc.nick + " (D)");
- }
- who_count++;
-
- if (!(this.mode&USERMODE_OPER) && (who_count >= max_who))
- break;
- }
-
- if (who.Channel)
- eow = who.Channel;
- else if (cmd[2])
- eow = cmd[2];
-
- this.numeric(315, eow + " :End of /WHO list. (Complex)");
-}
-
-// Object which stores WHO bits and arguments.
-function Who() {
- this.add_flags = 0;
- this.del_flags = 0;
- this.tweak_mode = Who_tweak_mode;
- this.Channel = "";
- this.RealName = "";
- this.Host = "";
- this.IP = "";
- this.UMode = "";
- this.Nick = "";
- this.Server = "";
- this.User = "";
- this.Time = 0;
- this.Class = 0;
-}
-
-function Who_tweak_mode(bit,add) {
- if (add) {
- this.add_flags |= bit;
- this.del_flags &= ~bit;
- } else {
- this.add_flags &= ~bit;
- this.del_flags |= bit;
- }
-}
-
-// Take a generic mask in and try to figure out if we're matching a channel,
-// mask, nick, or something else. Return 1 if the user sent to us matches it
-// in some fashion.
-function IRCClient_match_who_mask(mask) {
- if ((mask[0] == "#") || (mask[0] == "&")) { // channel
- if (Channels[mask.toUpperCase()])
- return 1;
- else
- return 0; // channel doesn't exist.
- } else if (mask.match(/[!]/)) { // nick!user@host
- if ( IRC_match(this.nick,mask.split("!")[0]) &&
- IRC_match(this.uprefix,mask.slice(mask.indexOf("!")+1).split("@")[0]) &&
- IRC_match(this.hostname,mask.slice(mask.indexOf("@")+1)) )
- return 1;
- } else if (mask.match(/[@]/)) { // user@host
- if ( IRC_match(this.uprefix,mask.split("@")[0]) &&
- IRC_match(this.hostname,mask.split("@")[1]) )
- return 1;
- } else if (mask.match(/[.]/)) { // host only
- if ( IRC_match(this.hostname,mask) )
- return 1;
- } else { // must be a nick?
- if ( IRC_match(this.nick,mask) )
- return 1;
- }
- return 0;
-}
-
-function IRCClient_do_who_usage() {
- this.numeric(334,":/WHO [+|-][acghilmnostuCIM] <args> <mask>");
- this.numeric(334,":The modes as above work exactly like channel modes.");
- this.numeric(334,":<mask> may be '*' or in nick!user@host notation.");
- this.numeric(334,":i.e. '/WHO +a *.ca' would match all away users from *.ca");
- this.numeric(334,":No args/mask matches to everything by default.");
- this.numeric(334,":a : User is away.");
- this.numeric(334,":c <chan>: User is on <@+><#channel>, no wildcards. Can check +o/+v.");
- this.numeric(334,":g <rnam>: Check against realname field, wildcards allowed.");
- this.numeric(334,":h <host>: Check user's hostname, wildcards allowed.");
- this.numeric(334,":i <ip> : Check against IP address, wildcards allowed.");
- this.numeric(334,":l <clas>: User is a member of <clas> irc class as defined on a Y:Line.");
- this.numeric(334,":m <umde>: User has <umodes> set, -+ allowed.");
- this.numeric(334,":n <nick>: User's nickname matches <nick>, wildcards allowed.");
- this.numeric(334,":o : User is an IRC Operator.");
- this.numeric(334,":s <srvr>: User is on <server>, wildcards allowed.");
- this.numeric(334,":t <time>: User has been on for more than (+) or less than (-) <time> secs.");
- this.numeric(334,":u <user>: User's username field matches, wildcards allowed.");
- this.numeric(334,":C : Only display first channel that the user matches.");
- this.numeric(334,":I : Only return IP addresses (as opposed to hostnames.)");
- this.numeric(334,":M : Only check against channels you're a member of.");
- this.numeric(315,"? :End of /WHO list. (Usage)");
-}
-
-function IRCClient_do_basic_list(mask) {
- this.numeric321();
- // Only allow commas if we're not doing wildcards, otherwise strip
- // off anything past the first comma and pass to the generic parser
- // to see if it can make heads or tails out of it.
- if (mask.match(/[,]/)) {
- if (mask.match(/[*?]/)) {
- mask = mask.slice(0,mask.indexOf(","))
- } else { // parse it out, but junk anything that's not a chan
- var my_split = mask.split(",");
- for (myChan in my_split) {
- if (Channels[my_split[myChan].toUpperCase()])
- this.numeric322(Channels[my_split[myChan].toUpperCase()]);
- }
- // our adventure ends here.
- this.numeric(323, ":End of /LIST. (Basic: Comma-list)");
- return;
- }
- }
- for (chan in Channels) {
- if (Channels[chan] && Channels[chan].match_list_mask(mask))
- this.numeric322(Channels[chan]);
- }
- this.numeric(323, ":End of /LIST. (Basic)");
- return;
-}
-
-// So, the user wants to go the hard way...
-function IRCClient_do_complex_list(cmd) {
- var add = true;
- var arg = 1;
- var list = new List();
- var listmask;
- var listmask_items;
-
- for (lc in cmd[1]) {
- switch(cmd[1][lc]) {
- case "+":
- if (!add)
- add = true;
- break;
- case "-":
- if (add)
- add = false;
- break;
- case "a":
- arg++;
- if (cmd[arg]) {
- list.tweak_mode(LIST_CHANMASK,add);
- list.Mask = cmd[arg];
- }
- break;
- case "c":
- arg++;
- if (cmd[arg]) {
- list.tweak_mode(LIST_CREATED,add);
- list.Created = parseInt(cmd[arg])*60;
- }
- break;
- case "m": // we never set -m, inverse.
- arg++;
- if (cmd[arg]) {
- list.tweak_mode(LIST_MODES,true);
- if (!add) {
- var tmp_mode = "";
- if((cmd[arg][0] != "+") ||
- (cmd[arg][0] != "-") )
- tmp_mode += "+";
- tmp_mode += cmd[arg].replace(/[-]/g," ");
- tmp_mode = tmp_mode.replace(/[+]/g,"-");
- list.Modes = tmp_mode.replace(/[ ]/g,"+");
- } else {
- list.Modes = cmd[arg];
- }
- }
- break;
- case "o":
- arg++;
- if (cmd[arg]) {
- list.tweak_mode(LIST_TOPIC,add);
- list.Topic = cmd[arg];
- }
- break;
- case "p":
- arg++;
- if (cmd[arg]) {
- list.tweak_mode(LIST_PEOPLE,add);
- list.People = parseInt(cmd[arg]);
- }
- break;
- case "t":
- arg++;
- if (cmd[arg]) {
- list.tweak_mode(LIST_TOPICAGE,add);
- list.TopicTime = parseInt(cmd[arg])*60;
- }
- break;
- case "M":
- list.tweak_mode(LIST_DISPLAY_CHAN_MODES,add);
- break;
- default:
- break;
- }
- }
-
- // Generic mask atop all this crap?
- arg++;
- if (cmd[arg])
- listmask = cmd[arg];
-
- // Here we go...
- for (aChan in Channels) {
- // Is the user allowed to see this channel, for starters?
- if (!(Channels[aChan].mode&CHANMODE_SECRET) ||
- (this.mode&USERMODE_OPER) || this.channels[aChan]) {
-
- if ((list.add_flags&LIST_CHANMASK) &&
- !IRC_match(aChan,list.Mask.toUpperCase()))
- continue;
- else if ((list.del_flags&LIST_CHANMASK) &&
- IRC_match(aChan,list.Mask.toUpperCase()))
- continue;
- if ((list.add_flags&LIST_CREATED) &&
- (Channels[aChan].created < (time() - list.Created)))
- continue;
- else if ((list.del_flags&LIST_CREATED) &&
- (Channels[aChan].created > (time() - list.Created)))
- continue;
- if ((list.add_flags&LIST_TOPIC) &&
- (!IRC_match(Channels[aChan].topic,list.Topic)))
- continue;
- else if ((list.del_flags&LIST_TOPIC) &&
- (IRC_match(Channels[aChan].topic,list.Topic)))
- continue;
- if ((list.add_flags&LIST_PEOPLE) &&
- (Channels[aChan].count_users() < list.People) )
- continue;
- else if ((list.del_flags&LIST_PEOPLE) &&
- (Channels[aChan].count_users() >= list.People) )
- continue;
- if ((list.add_flags&LIST_TOPICAGE) && list.TopicTime &&
- (Channels[aChan].topictime > (time()-list.TopicTime)))
- continue;
- else if((list.del_flags&LIST_TOPICAGE)&&list.TopicTime&&
- (Channels[aChan].topictime < (time()-list.TopicTime)))
- continue;
- if (list.add_flags&LIST_MODES) { // there's no -m
- var sic = false;
- var madd = true;
- var c = Channels[aChan];
- for (mm in list.Modes) {
- switch(list.Modes[mm]) {
- case "+":
- if (!madd)
- madd = true;
- break;
- case "-":
- if (madd)
- madd = false;
- break;
- case "i":
- if (
- (!madd && (c.mode&
- CHANMODE_INVITE))
- ||
- (madd && !(c.mode&
- CHANMODE_INVITE))
- )
- sic = true;
- break;
- case "k":
- if (
- (!madd && (c.mode&
- CHANMODE_KEY))
- ||
- (madd && !(c.mode&
- CHANMODE_KEY))
- )
- sic = true;
- break;
- case "l":
- if (
- (!madd && (c.mode&
- CHANMODE_LIMIT))
- ||
- (madd && !(c.mode&
- CHANMODE_LIMIT))
- )
- sic = true;
- break;
- case "m":
- if (
- (!madd && (c.mode&
- CHANMODE_MODERATED))
- ||
- (madd && !(c.mode&
- CHANMODE_MODERATED))
- )
- sic = true;
- break;
- case "n":
- if (
- (!madd && (c.mode&
- CHANMODE_NOOUTSIDE))
- ||
- (madd && !(c.mode&
- CHANMODE_NOOUTSIDE))
- )
- sic = true;
- break;
- case "p":
- if (
- (!madd && (c.mode&
- CHANMODE_PRIVATE))
- ||
- (madd && !(c.mode&
- CHANMODE_PRIVATE))
- )
- sic = true;
- break;
- case "s":
- if (
- (!madd && (c.mode&
- CHANMODE_SECRET))
- ||
- (madd && !(c.mode&
- CHANMODE_SECRET))
- )
- sic = true;
- break;
- case "t":
- if (
- (!madd && (c.mode&
- CHANMODE_TOPIC))
- ||
- (madd && !(c.mode&
- CHANMODE_TOPIC))
- )
- sic = true;
- break;
- default:
- break;
- }
- if (sic)
- break;
- }
- if (sic)
- continue;
- }
-
- if (listmask)
- listmask_items = listmask.split(",");
- var l_match = false; // assume we match nothing.
- if (listmask_items) {
- for (l in listmask_items) {
- if (Channels[aChan].match_list_mask
- (listmask_items[l])) {
- l_match = true;
- break;
- }
- }
- if (!l_match)
- continue;
- }
-
- // We made it.
- if (list.add_flags&LIST_DISPLAY_CHAN_MODES)
- this.numeric322(Channels[aChan],true);
- else
- this.numeric322(Channels[aChan]);
- }
- }
-
- this.numeric(323, ":End of /LIST. (Complex)");
-}
-
-// Object which stores LIST bits and arguments.
-function List() {
- this.add_flags = 0;
- this.del_flags = 0;
- this.tweak_mode = List_tweak_mode;
- this.People = 0;
- this.Created = 0;
- this.TopicTime = 0;
- this.Mask = "";
- this.Modes = "";
- this.Topic = "";
-}
-
-function List_tweak_mode(bit,add) {
- if (add) {
- this.add_flags |= bit;
- this.del_flags &= ~bit;
- } else {
- this.add_flags &= ~bit;
- this.del_flags |= bit;
- }
-}
-
-function IRCClient_do_list_usage() {
- this.numeric(334,":/LIST [+|-][acmoptM] <args> <mask|channel{,channel}>");
- this.numeric(334,":The modes as above work exactly like channel modes.");
- this.numeric(334,":<mask> may be just like Bahamut notation.");
- this.numeric(334,":(Bahamut Notation = >num,<num,C>num,C<num,T>num,T<num,*mask*,!*mask*)");
- this.numeric(334,":i.e. '/LIST +p 50 #*irc*' lists chans w/ irc in the name and 50+ users.");
- this.numeric(334,":No args/mask matches to everything by default.");
- this.numeric(334,":a <mask>: List channels whose names match the mask. Wildcards allowed.");
- this.numeric(334,":c <time>: Chans created less than (-) or more than (+) <time> mins ago.");
- this.numeric(334,":m <mods>: Channel has <modes> set. -+ allowed.");
- this.numeric(334,":o <topc>: Match against channel's <topic>, wildcards allowed.");
- this.numeric(334,":p <num> : Chans with more or equal to (+) members, or (-) less than.");
- this.numeric(334,":t <time>: Only channels whose topics were created <time> mins ago.");
- this.numeric(334,":M : Show channel's mode in front of the list topic.");
- // No "end of" numeric for this.
-}
-
-// does 'this' (channel) match the 'mask' passed to us? Use 'complex'
-// Bahamut parsing to determine that.
-function Channel_match_list_mask(mask) {
- if (mask[0] == ">") { // Chan has more than X people?
- if (this.count_users() < parseInt(mask.slice(1)))
- return 0;
- } else if (mask[0] == "<") { // Chan has less than X people?
- if (this.count_users() >= parseInt(mask.slice(1)))
- return 0;
- } else if (mask[0].toUpperCase() == "C") { //created X mins ago?
- if ((mask[1] == ">") && (this.created <
- (time() - (parseInt(mask.slice(2)) * 60)) ) )
- return 0;
- else if ((mask[1] == "<") && (this.created >
- (time() - (parseInt(mask.slice(2)) * 60)) ) )
- return 0;
- } else if (mask[0].toUpperCase() == "T") { //topics older than X mins?
- if ((mask[1] == ">") && (this.topictime <
- (time() - (parseInt(mask.slice(2)) * 60)) ) )
- return 0;
- else if ((mask[1] == "<") && (this.topictime >
- (time() - (parseInt(mask.slice(2)) * 60)) ) )
- return 0;
- } else if (mask[0] == "!") { // doesn't match mask X
- if (IRC_match(this.nam,mask.slice(1).toUpperCase()))
- return 0;
- } else { // if all else fails, we're matching a generic channel mask.
- if (!IRC_match(this.nam,mask))
- return 0;
- }
- return 1; // if we made it here, we matched something.
-}
-
-function IRCClient_get_usermode(bcast_modes) {
- var tmp_mode = "+";
- for (ch in USERMODE_CHAR) {
- if ((!bcast_modes || (bcast_modes && USERMODE_BCAST[ch])) &&
- this.mode&USERMODE_CHAR[ch])
- tmp_mode += ch;
- }
- return tmp_mode;
-}
-
-function UMode_tweak_mode(bit,add) {
- if (add) {
- this.add_flags |= bit;
- this.del_flags &= ~bit;
- } else {
- this.add_flags &= ~bit;
- this.del_flags |= bit;
- }
-}
-
-function UMode() {
- this.add_flags = 0;
- this.del_flags = 0;
- this.tweak_mode = UMode_tweak_mode;
-}
-
-function IRCClient_setusermode(modestr) {
- if (!modestr)
- return 0;
- var add=true;
- var unknown_mode=false;
- var umode = new UMode();
- for (modechar in modestr) {
- switch (modestr[modechar]) {
- case "+":
- if (!add)
- add=true;
- break;
- case "-":
- if (add)
- add=false;
- break;
- case "i":
- case "w":
- case "s":
- case "k":
- case "g":
- umode.tweak_mode(USERMODE_CHAR
- [modestr[modechar]],add);
- break;
- case "b":
- case "r":
- case "f":
- case "y":
- case "d":
- case "n":
- if (this.mode&USERMODE_OPER)
- umode.tweak_mode(USERMODE_CHAR
- [modestr[modechar]],add);
- break;
- case "o":
- // Allow +o only by servers or non-local users.
- if (add && this.parent &&
- Servers[this.parent.toLowerCase()].hub)
- umode.tweak_mode(USERMODE_OPER,true);
- else if (!add)
- umode.tweak_mode(USERMODE_OPER,false);
- break;
- case "c":
- if ((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_UMODEC))
- umode.tweak_mode(USERMODE_CLIENT,add);
- break;
- default:
- if (!unknown_mode && !this.parent) {
- this.numeric(501, ":Unknown MODE flag");
- unknown_mode=true;
- }
- break;
- }
- }
- var addmodes = "";
- var delmodes = "";
- var bcast_addmodes = "";
- var bcast_delmodes = "";
- for (mym in USERMODE_CHAR) {
- if ((umode.add_flags&USERMODE_CHAR[mym]) &&
- !(this.mode&USERMODE_CHAR[mym])) {
- addmodes += mym;
- if (USERMODE_BCAST[mym])
- bcast_addmodes += mym;
- this.mode |= USERMODE_CHAR[mym];
- } else if ((umode.del_flags&USERMODE_CHAR[mym]) &&
- (this.mode&USERMODE_CHAR[mym])) {
- delmodes += mym;
- if (USERMODE_BCAST[mym])
- bcast_delmodes += mym;
- this.mode &= ~USERMODE_CHAR[mym];
- }
- }
- if (!addmodes && !delmodes)
- return 0;
- var final_modestr = "";
- var bcast_modestr = "";
- if (addmodes)
- final_modestr += "+" + addmodes;
- if (delmodes)
- final_modestr += "-" + delmodes;
- if (bcast_addmodes)
- bcast_modestr += "+" + bcast_addmodes;
- if (bcast_delmodes)
- bcast_modestr += "-" + bcast_delmodes;
- if (this.local) {
- this.originatorout("MODE "+this.nick+" "+final_modestr,this);
- if (bcast_addmodes || bcast_delmodes)
- this.bcast_to_servers("MODE "+this.nick+" "+bcast_modestr,this);
- }
- return 1;
-}
-
-function IRCClient_check_timeout() {
- if (!this.pinged && ((time() - this.idletime) >
- YLines[this.ircclass].pingfreq)) {
- this.pinged = time();
- this.rawout("PING :" + servername);
- } else if (this.pinged && ((time() - this.pinged) >
- YLines[this.ircclass].pingfreq)) {
- this.quit("Ping Timeout");
- return 1; // ping timeout
- }
- return 0; // no ping timeout
-}
-
-function IRCClient_finalize_server_connect(states) {
- hcc_counter++;
- umode_notice(USERMODE_ROUTING,"Routing","Link with " + this.nick +
- "[unknown@" + this.hostname + "] established, states: " +
- states);
- if (server.client_update != undefined)
- server.client_update(this.socket, this.nick, this.hostname);
- if (!this.sentps) {
- for (cl in CLines) {
- if(IRC_match(this.nick,CLines[cl].servername)) {
- this.rawout("PASS " + CLines[cl].password + " :" + states);
- break;
- }
- }
- this.rawout("CAPAB " + server_capab);
- this.rawout("SERVER " + servername + " 1 :" + serverdesc);
- }
- this.bcast_to_servers_raw(":" + servername + " SERVER " + this.nick + " 2 :" + this.info);
- this.synchronize();
-}
-
-function CLine(host,password,servername,port,ircclass) {
- this.host = host;
- this.password = password;
- this.servername = servername;
- this.port = port;
- this.ircclass = ircclass;
- this.lastconnect = 0;
-}
-
-function HLine(allowedmask,servername) {
- this.allowedmask = allowedmask;
- this.servername = servername;
-}
-
-function ILine(ipmask,password,hostmask,port,ircclass) {
- this.ipmask = ipmask;
- this.password = password;
- this.hostmask = hostmask;
- this.port = port;
- this.ircclass = ircclass;
-}
-
-function KLine(hostmask,reason,type) {
- this.hostmask = hostmask;
- this.reason = reason;
- this.type = type;
-}
-
-function NLine(host,password,servername,flags,ircclass) {
- this.host = host;
- this.password = password;
- this.servername = servername;
- this.flags = flags;
- this.ircclass = ircclass;
-}
-
-function OLine(hostmask,password,nick,flags,ircclass) {
- this.hostmask = hostmask;
- this.password = password;
- this.nick = nick;
- this.flags = flags;
- this.ircclass = ircclass;
-}
-
-function QLine(nick,reason) {
- this.nick = nick;
- this.reason = reason;
-}
-
-function YLine(pingfreq,connfreq,maxlinks,sendq) {
- this.pingfreq = pingfreq;
- this.connfreq = connfreq;
- this.maxlinks = maxlinks;
- this.sendq = sendq;
-}
-
-function ZLine(ipmask,reason) {
- this.ipmask = ipmask;
- this.reason = reason;
-}
-
-function WhoWas(nick,uprefix,host,realname,server,serverdesc) {
- this.nick = nick;
- this.uprefix = uprefix;
- this.host = host;
- this.realname = realname;
- this.server = server;
- this.serverdesc = serverdesc;
-}
-
-function NickBuf(oldnick,newnick) {
- this.oldnick = oldnick;
- this.newnick = newnick;
-}
-
-// used for tracking true SJOIN nicks.
-function SJOIN_Nick(nick,isop,isvoice) {
- this.nick = nick;
- this.isop = isop;
- this.isvoice = isvoice;
-}
diff --git a/exec/jsdocs.js b/exec/jsdocs.js
deleted file mode 100644
index 6d3290aadfd9cc1770dbc16b39bafcd336f18e86..0000000000000000000000000000000000000000
--- a/exec/jsdocs.js
+++ /dev/null
@@ -1,296 +0,0 @@
-// jsdocs.js
-
-// This script generates HTML documentation of the Synchronet JavaScript object model
-// Requires a Debug build of the Synchronet executable(s)
-
-// $Id$
-
-const table_tag = "<table border=1 width=100%>";
-
-const li_tag = "<li onclick = 'this.className = (this.className == \"showList\") ? \"defaultStyles\" : \"showList\";'\n" +
- "\tonselectstart = 'event.returnValue = false;'" +
- ">";
-
-min_ver=0;
-max_ver=9999;
-total_methods=0;
-total_properties=0;
-table_depth=0;
-object_depth=0;
-
-body = "";
-
-function write(str)
-{
- body+=str;
-}
-
-function writeln(str)
-{
- write(str + "\n");
-}
-
-function table_open(name)
-{
- writeln(table_tag);
- table_depth++;
-}
-
-function table_close()
-{
- if(table_depth) {
- writeln("</table>");
- table_depth--;
- }
-}
-
-function verstr(ver)
-{
- return(format("%u.%u",ver/100,ver%100));
-}
-
-function document_methods(name,obj)
-{
- if(obj._method_list == undefined)
- return;
-
- f.writeln(li_tag);
- f.writeln("<a href=#" + name +"_methods>methods</a>");
-
- table_close();
- table_open(name);
-
-
- writeln("<caption align=left><b><tt>" + name + "</tt>");
- writeln("<a name=" + name + "_methods> methods</a>");
- writeln("</b></caption>");
- writeln("<tr bgcolor=gray>");
- writeln("<th align=left width=100>");
- writeln("Name".fontcolor("white"));
- writeln("<th align=left width=100>");
- writeln("Returns".fontcolor("white"));
- writeln("<th align=left width=200>");
- writeln("Usage".fontcolor("white"));
- if(!min_ver && obj._method_list[0].ver) {
- writeln("<th align=left width=50>");
- writeln("Ver".fontcolor("white"));
- }
- writeln("<th align=left>");
- writeln("Description".fontcolor("white"));
-
- for(method in obj._method_list) {
- if(obj._method_list[method].ver < min_ver
- || obj._method_list[method].ver > max_ver)
- continue;
-
- write("<tr valign=top>");
-
- if(obj==_global)
- func=obj._method_list[method].name;
- else
- func=name + '.' + obj._method_list[method].name;
-
- write(format("<td>%s<td>%s<td><tt>%s(%s)\n"
- ,obj._method_list[method].name.bold()
- ,obj._method_list[method].type
- ,func
- ,obj._method_list[method].args
- ));
- if(!min_ver && obj._method_list[method].ver)
- writeln("<td>" + verstr(obj._method_list[method].ver));
- writeln("<td>" + obj._method_list[method].desc);
- total_methods++;
- }
-}
-
-function object_header(name, obj, type)
-{
- if(type==undefined)
- type="object";
-
- f.writeln(li_tag);
- if(!object_depth)
- f.write("[+]  ");
- f.writeln(name.bold().link("#"+name) + " " + type);
-
- if(table_depth)
- table_close();
- writeln("<h2><a name=" + name + ">" + name + " " + type + "</a>");
- if(obj._description!=undefined)
- writeln("<br><font size=-1>"+obj._description+"</font>");
- if(!min_ver && obj._ver>310)
- writeln("<font size=-1> - introduced in v"+verstr(obj._ver)+"</font>");
- writeln("</h2>");
- if(obj._constructor!=undefined)
- writeln("<p>" + obj._constructor + "</p>");
-}
-
-function properties_header(name, obj)
-{
-
- f.writeln(li_tag);
- f.writeln("<a href=#" + name +"_properties>properties</a>");
-
- table_close();
- if(obj._method_list != undefined)
- writeln("<br>");
-
- table_open(name);
- writeln("<caption align=left><b><tt>" + name + "</tt>");
- writeln("<a name=" + name + "_properties> properties</a>");
- writeln("</b></caption>");
- writeln("<tr bgcolor=gray>");
- writeln("<th align=left width=100>");
- writeln("Name".fontcolor("white"));
- writeln("<th align=left width=100>");
- writeln("Type".fontcolor("white"));
- if(!min_ver && obj._property_ver_list && obj._property_ver_list.length) {
- writeln("<th align=left width=50>");
- writeln("Ver".fontcolor("white"));
- }
- writeln("<th align=left>");
- writeln("Description".fontcolor("white"));
-}
-
-function document_properties(name, obj)
-{
- var prop_name;
- var count=0;
- var prop_num;
-
- prop_hdr=false;
-
- p=0;
- for(prop in obj) {
- prop_num=count++;
-
- if(min_ver && (!obj._property_ver_list || !obj._property_ver_list[prop_num])) {
- p++;
- continue;
- }
- if(obj._property_ver_list
- && (obj._property_ver_list[prop_num] < min_ver
- || obj._property_ver_list[prop_num] > max_ver)) {
- p++;
- continue;
- }
-
- prop_name=name + "." + prop;
-
- if(typeof(obj[prop])=="object" && prop!="socket") {
- if(obj[prop].length != undefined) // array ?
- document_object(prop_name /*+ "[]"*/,obj[prop][0], "array");
- else
- document_object(prop_name,obj[prop]);
- continue;
- }
- if(!prop_hdr) {
- properties_header(name, obj);
- prop_hdr=true;
- }
- write("<tr valign=top>");
- writeln("<td>" + prop.bold() + "<td>" + typeof(obj[prop]) );
- if(!min_ver && obj._property_ver_list)
- writeln("<td>"
- + (obj._property_ver_list[p] ? verstr(obj._property_ver_list[p]) : "N/A"));
- if(obj._property_desc_list!=undefined)
- writeln("<td>" + obj._property_desc_list[p]);
- p++;
- total_properties++;
- }
-}
-
-function document_object(name, obj, type)
-{
- if(obj._ver > max_ver)
- return;
-
- printf("Documenting: %s\r\n",name);
- object_header(name,obj,type);
- if(obj._dont_document==undefined) {
- if(obj._assoc_array!=undefined)
- for(i in obj) {
- obj=obj[i];
- break;
- }
- f.writeln("<ul>");
- document_methods(name,obj);
- object_depth++;
- document_properties(name,obj);
- object_depth--;
- f.writeln("</ul>");
- table_close();
- }
-}
-
-// open HTML output file
-f=new File("../docs/jsobjs.html");
-if(!f.open("w")) {
- printf("!Error %d opening output file\n",errno);
- exit();
-}
-
-f.writeln("<html>");
-f.writeln("<head>");
-f.writeln("<title>Synchronet JavaScript Object Model Reference</title>");
-
-if(1) { /* Style sheet */
- f.writeln("<STYLE>");
- f.writeln("\tOL LI { cursor: hand; }");
- f.writeln("\tUL LI { display: none;list-style: square; }");
- f.writeln("\t.showList LI { display: list-item; }");
- f.writeln("</STYLE>");
-}
-
-f.writeln("</head>");
-
-f.writeln("<body>");
-f.writeln("<font face=arial,helvetica>");
-
-f.writeln("<h1>Synchronet JavaScript Object Model Reference</h1>");
-f.printf("Generated for <b>Synchronet v%s</b>, compiled %s\n"
- ,system.full_version,system.compiled_when);
-f.writeln("<br><font size=-1>");
-if(min_ver)
- f.writeln("Includes Properties and Methods added in Synchronet v" + verstr(min_ver) + " only.");
-else
- f.writeln("Property and Method version numbers (when available) indicate the Synchronet version when the " +
- "item was added or modified.");
-f.writeln("</font>");
-
-f.writeln("<ol type=square>");
-
-object_header("global" ,_global);
-f.writeln("<ul>");
-document_methods("global" ,_global);
-properties_header("global" ,_global);
-writeln("<tr><td>" + "argc".bold() + "<td>number<td>number of arguments passed to the script</td>");
-writeln("<tr><td>" + "argv".bold() + "<td>array<td>array of argument strings (argv.length == argc)</td>");
-writeln("<tr><td>" + "errno".bold() + "<td>number<td>last system error number</td>");
-writeln("<tr><td>" + "errno_str".bold() + "<td>string<td>description of last system error</td>");
-f.writeln("</ul>");
-
-document_object("js" ,js);
-document_object("system" ,system);
-document_object("server" ,server);
-document_object("client" ,client);
-document_object("user" ,user);
-document_object("bbs" ,bbs);
-document_object("console" ,console);
-document_object("msg_area" ,msg_area);
-document_object("file_area" ,file_area);
-document_object("xtrn_area" ,xtrn_area);
-document_object("MsgBase" ,new MsgBase(msg_area.grp_list[0].sub_list[0].code), "class");
-document_object("File" ,new File(system.devnull), "class");
-sock=new Socket();
-sock.descriptor=client.socket.descriptor;
-document_object("Socket" ,sock, "class");
-
-f.writeln("</ol>");
-
-f.write(body);
-
-f.writeln("<p><small>");
-f.writeln("Totals: " + total_properties + " properties, " + total_methods + " methods");
-
-f.close();
\ No newline at end of file
diff --git a/exec/kermit.ini b/exec/kermit.ini
deleted file mode 100644
index c0d0bf95f67d2e2ca9a89c80fcac68ee29cb253d..0000000000000000000000000000000000000000
--- a/exec/kermit.ini
+++ /dev/null
@@ -1,27 +0,0 @@
-; kermit.ini
-
-; For use with MS-DOS Kermit v3.14 or later and Synchronet-Win32
-
-; $Id$
-
-; Most of the following settings are from KERMIT.UPD (January 1995)
-
-SET PORT FOSSIL 1 ; Use FOSSIL port 1 (for all nodes)
-SET PARITY NONE ; Usually no parity on BBS
-SET FLOW NONE ; No flow control (this is handled by TCP)
-SET BLOCK 3 ; CRC checking for security
-SET RECEIVE PACKET 9024 ; Long packets from client, upper limit
-SET WINDOW 4 ; Sliding windows, upper limit
-SET FILE TYPE BINARY ; Fine for all DOS to DOS transfers(*)
-SET CONTROL UNPREFIX ALL ; Unprefix all control characters except...
-SET CONTROL PREFIX 0 ; Ctrl-@ = NUL, internal string terminator in C-Kermit
-SET CONTROL PREFIX 1 ; Ctrl-A = Packet-start character.
-SET CONTROL PREFIX 129 ; Ctrl-A + 0x80
-SET SEND PATH OFF ; Do not transmit path names
-SET RECEIVE PATH OFF ; Restrict uploads to current directory
-SET FILE COLL OVERWRITE ; Incoming files overwrite old files of same name
-SET CARRIER ON ; Recover from hangups immediately
-SET BELL OFF ; Be quiet
-SET EXIT WARNING OFF ; Unattended, don't ask for permission to exit
-SET STREAMING ON ; New option in 3.16
-LOG TRANSACTION PROTOCOL.LOG
\ No newline at end of file
diff --git a/exec/load/ircd_channel.js b/exec/load/ircd_channel.js
deleted file mode 100644
index 5d502abe582590f737b16690d7ccf36aa8c6f82d..0000000000000000000000000000000000000000
--- a/exec/load/ircd_channel.js
+++ /dev/null
@@ -1,663 +0,0 @@
-// $Id$
-//
-// ircd_channel.js
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details:
-// http://www.gnu.org/licenses/gpl.txt
-//
-// Synchronet IRC Daemon as per RFC 1459, link compatible with Bahamut 1.4
-//
-// Copyright 2003 Randolph Erwin Sommerfeld <sysop@rrx.ca>
-//
-// ** Everything related to channels and their operation.
-//
-
-////////// Constants / Defines //////////
-const CHANNEL_REVISION = "$Revision$".split(' ')[1];
-
-const CHANMODE_NONE =(1<<0); // NONE
-const CHANMODE_BAN =(1<<1); // b
-const CHANMODE_INVITE =(1<<2); // i
-const CHANMODE_KEY =(1<<3); // k
-const CHANMODE_LIMIT =(1<<4); // l
-const CHANMODE_MODERATED =(1<<5); // m
-const CHANMODE_NOOUTSIDE =(1<<6); // n
-const CHANMODE_OP =(1<<7); // o
-const CHANMODE_PRIVATE =(1<<8); // p
-const CHANMODE_SECRET =(1<<9); // s
-const CHANMODE_TOPIC =(1<<10); // t
-const CHANMODE_VOICE =(1<<11); // v
-
-// These are used in the mode crunching section to figure out what character
-// to display in the crunched MODE line.
-function Mode(modechar,args,state,list,isnick) {
- // The mode's character
- this.modechar = modechar;
- // Does this mode take a single argument only?
- this.args = args;
- // Is this mode a stateful mode? (i.e. changes channel behaviour)
- this.state = state;
- // Can this mode accept a list?
- this.list = list;
- // Is the list a nick (true), or a n!u@h IRC mask (false)?
- this.isnick = isnick;
-}
-
-MODE = new Array();
-MODE[CHANMODE_BAN] = new Mode("b",true,false,true,false);
-MODE[CHANMODE_INVITE] = new Mode("i",false,true,false,false);
-MODE[CHANMODE_KEY] = new Mode("k",true,true,false,false);
-MODE[CHANMODE_LIMIT] = new Mode("l",true,true,false,false);
-MODE[CHANMODE_MODERATED] = new Mode("m",false,true,false,false);
-MODE[CHANMODE_NOOUTSIDE] = new Mode("n",false,true,false,false);
-MODE[CHANMODE_OP] = new Mode("o",true,false,true,true);
-MODE[CHANMODE_PRIVATE] = new Mode("p",false,true,false,false);
-MODE[CHANMODE_SECRET] = new Mode("s",false,true,false,false);
-MODE[CHANMODE_TOPIC] = new Mode("t",false,true,false,false);
-MODE[CHANMODE_VOICE] = new Mode("v",true,false,true,true);
-
-////////// Objects //////////
-function Channel(nam) {
- this.nam=nam;
- this.mode=CHANMODE_NONE;
- this.topic="";
- this.topictime=0;
- this.topicchangedby="";
- this.arg = new Array;
- this.arg[CHANMODE_LIMIT] = 0;
- this.arg[CHANMODE_KEY] = "";
- this.users=new Array;
- this.modelist=new Array;
- this.modelist[CHANMODE_OP]=new Array;
- this.modelist[CHANMODE_VOICE]=new Array;
- this.modelist[CHANMODE_BAN]=new Array;
- this.bantime=new Array;
- this.bancreator=new Array;
- this.created=time();
- this.chanmode=Channel_chanmode;
- this.isbanned=Channel_isbanned;
- this.count_modelist=Channel_count_modelist;
- this.occupants=Channel_occupants;
- this.match_list_mask=Channel_match_list_mask;
-}
-
-////////// Functions //////////
-
-function ChanMode_tweaktmpmode(tmp_bit,add) {
- if (!this.chan.modelist[CHANMODE_OP][this.user.id] &&
- !this.user.server && !this.user.uline) {
- this.user.numeric482(this.chan.nam);
- return 0;
- }
- if (add) {
- this.addbits|=tmp_bit;
- this.delbits&=~tmp_bit;
- } else {
- this.addbits&=~tmp_bit;
- this.delbits|=tmp_bit;
- }
-}
-
-function ChanMode_tweaktmpmodelist(tmp_bit,add,arg) {
- if (!this.chan.modelist[CHANMODE_OP][this.user.id] &&
- !this.user.server && !this.user.uline) {
- this.user.numeric482(this.chan.nam);
- return 0;
- }
- for (lstitem in this.tmplist[tmp_bit][add]) {
- // Is this argument in our list for this mode already?
- if (this.tmplist[tmp_bit][add][lstitem].toUpperCase() ==
- arg.toUpperCase())
- return 0;
- }
- // It doesn't exist on our mode, push it in.
- this.tmplist[tmp_bit][add].push(arg);
- // Check for it against the other mode, and maybe nuke it.
- var oadd;
- if (add)
- oadd = false;
- else
- oadd = true;
- for (x in this.tmplist[tmp_bit][oadd]) {
- if (this.tmplist[tmp_bit][oadd][x].toUpperCase() ==
- arg.toUpperCase()) {
- delete this.tmplist[tmp_bit][oadd][x];
- return 0;
- }
- }
-}
-
-function ChanMode_affect_mode_list(list_bit) {
- var tmp_nick;
- for (add in this.tmplist[list_bit]) {
- for (z in this.tmplist[list_bit][add]) {
- tmp_nick = Users[this.tmplist[list_bit][add][z].toUpperCase()];
- if (!tmp_nick)
- tmp_nick = search_nickbuf(this.tmplist[list_bit][add][z]);
- if (tmp_nick && (add=="true") &&
- !this.chan.modelist[list_bit][tmp_nick.id]) {
- this.addmodes += MODE[list_bit].modechar;
- this.addmodeargs += " " + tmp_nick.nick;
- this.chan.modelist[list_bit][tmp_nick.id] = tmp_nick;
- } else if (tmp_nick && (add=="false") &&
- this.chan.modelist[list_bit][tmp_nick.id]) {
- this.delmodes += MODE[list_bit].modechar;
- this.delmodeargs += " " + tmp_nick.nick;
- delete this.chan.modelist[list_bit][tmp_nick.id];
- } else if (!tmp_nick && this.local) {
- this.user.numeric401(this.tmplist[list_bit]
- [add][z]);
- }
- }
- }
-}
-
-function Channel_count_modelist(list_bit) {
- var tmp_counter=0;
- for (tmp_count in this.modelist[list_bit]) {
- if (this.modelist[list_bit][tmp_count])
- tmp_counter++;
- }
- return tmp_counter;
-}
-
-function Channel_chanmode(show_args) {
- var tmp_mode = "+";
- var tmp_extras = "";
- if (this.mode&CHANMODE_INVITE)
- tmp_mode += "i";
- if (this.mode&CHANMODE_KEY) {
- tmp_mode += "k";
- if(show_args)
- tmp_extras += " " + this.arg[CHANMODE_KEY];
- }
- if (this.mode&CHANMODE_LIMIT) {
- tmp_mode += "l";
- if(show_args)
- tmp_extras += " " + this.arg[CHANMODE_LIMIT];
- }
- if (this.mode&CHANMODE_MODERATED)
- tmp_mode += "m";
- if (this.mode&CHANMODE_NOOUTSIDE)
- tmp_mode += "n";
- if (this.mode&CHANMODE_PRIVATE)
- tmp_mode += "p";
- if (this.mode&CHANMODE_SECRET)
- tmp_mode += "s";
- if (this.mode&CHANMODE_TOPIC)
- tmp_mode += "t";
- if (!tmp_extras)
- tmp_extras = " ";
- return tmp_mode + tmp_extras;
-}
-
-function Channel_isbanned(banned_nuh) {
- for (this_ban in this.modelist[CHANMODE_BAN]) {
- if(IRC_match(banned_nuh,this.modelist[CHANMODE_BAN][this_ban]))
- return 1;
- }
- return 0;
-}
-
-function Channel_occupants() {
- var chan_occupants="";
- for(thisChannel_user in this.users) {
- var Channel_user=this.users[thisChannel_user];
- if (Channel_user.nick) {
- if (chan_occupants)
- chan_occupants += " ";
- if (this.modelist[CHANMODE_OP][Channel_user.id])
- chan_occupants += "@";
- if (this.modelist[CHANMODE_VOICE][Channel_user.id])
- chan_occupants += "+";
- chan_occupants += Channel_user.nick;
- }
- }
- return chan_occupants;
-}
-
-// Yay, version 3.0 of this.set_chanmode(), eradicates any global variables.
-function ChanMode(chan,user) {
- this.tmplist = new Array();
- this.tmplist[CHANMODE_OP] = new Array();
- this.tmplist[CHANMODE_OP][false] = new Array(); //deop
- this.tmplist[CHANMODE_OP][true] = new Array(); //op
- this.tmplist[CHANMODE_VOICE] = new Array();
- this.tmplist[CHANMODE_VOICE][false] = new Array(); //devoice
- this.tmplist[CHANMODE_VOICE][true] = new Array(); //voice
- this.tmplist[CHANMODE_BAN] = new Array();
- this.tmplist[CHANMODE_BAN][false] = new Array(); //unban
- this.tmplist[CHANMODE_BAN][true] = new Array(); //ban
- this.state_arg = new Array();
- this.state_arg[CHANMODE_KEY] = "";
- this.state_arg[CHANMODE_LIMIT] = "";
- this.addbits = 0;
- this.delbits = 0;
- this.addmodes = "";
- this.addmodeargs = "";
- this.delmodes = "";
- this.delmodeargs = "";
- this.chan = chan;
- this.user = user;
- // Functions.
- this.tweaktmpmodelist = ChanMode_tweaktmpmodelist;
- this.tweaktmpmode = ChanMode_tweaktmpmode;
- this.affect_mode_list = ChanMode_affect_mode_list;
-}
-
-function IRCClient_set_chanmode(chan,modeline,bounce_modes) {
- if (!chan || !modeline)
- return;
-
- var cmode = new ChanMode(chan,this);
-
- var cm_args = modeline.split(' ');
-
- var add=true;
-
- var mode_counter=0;
- var mode_args_counter=1; // start counting at args, not the modestring
-
- for (modechar in cm_args[0]) {
- mode_counter++;
- switch (cm_args[0][modechar]) {
- case "+":
- if (!add)
- add=true;
- mode_counter--;
- break;
- case "-":
- if (add)
- add=false;
- mode_counter--;
- break;
- case "b":
- if(add && (cm_args.length<=mode_args_counter)) {
- cmode.addbits|=CHANMODE_BAN;//list bans
- break;
- }
- cmode.tweaktmpmodelist(CHANMODE_BAN,add,
- cm_args[mode_args_counter]);
- mode_args_counter++;
- break;
- case "i":
- cmode.tweaktmpmode(CHANMODE_INVITE,add);
- break;
- case "k":
- if(cm_args.length > mode_args_counter) {
- cmode.tweaktmpmode(CHANMODE_KEY,add);
- cmode.state_arg[CHANMODE_KEY]=cm_args[mode_args_counter];
- mode_args_counter++;
- }
- break;
- case "l":
- if (add && (cm_args.length > mode_args_counter)) {
- cmode.tweaktmpmode(CHANMODE_LIMIT,true);
- var regexp = "^[0-9]{1,5}$";
- if(cm_args[mode_args_counter].match(regexp))
- cmode.state_arg[CHANMODE_LIMIT]=cm_args[mode_args_counter];
- mode_args_counter++;
- } else if (!add) {
- cmode.tweaktmpmode(CHANMODE_LIMIT,false);
- if (cm_args.length > mode_args_counter)
- mode_args_counter++;
- }
- break;
- case "m":
- cmode.tweaktmpmode(CHANMODE_MODERATED,add);
- break;
- case "n":
- cmode.tweaktmpmode(CHANMODE_NOOUTSIDE,add);
- break;
- case "o":
- if (cm_args.length <= mode_args_counter)
- break;
- cmode.tweaktmpmodelist(CHANMODE_OP,add,
- cm_args[mode_args_counter]);
- mode_args_counter++;
- break;
- case "p":
- if( (add && !(chan.mode&CHANMODE_SECRET) ||
- (cmode.delbits&CHANMODE_SECRET) ) ||
- (!add) )
- cmode.tweaktmpmode(CHANMODE_PRIVATE,add);
- break;
- case "s":
- if( (add && !(chan.mode&CHANMODE_PRIVATE) ||
- (cmode.delbits&CHANMODE_PRIVATE) ) ||
- (!add) )
- cmode.tweaktmpmode(CHANMODE_SECRET,add);
- break;
- case "t":
- cmode.tweaktmpmode(CHANMODE_TOPIC,add);
- break;
- case "v":
- if (cm_args.length <= mode_args_counter)
- break;
- cmode.tweaktmpmodelist(CHANMODE_VOICE,add,
- cm_args[mode_args_counter]);
- mode_args_counter++;
- break;
- default:
- if ((!this.parent) && (!this.server))
- this.numeric(472, cm_args[0][modechar] + " :is unknown mode char to me.");
- mode_counter--;
- break;
- }
- if (mode_counter == max_modes)
- break;
- }
-
- // If we're bouncing modes, traverse our side of what the modes look
- // like and remove any modes not mentioned by what was passed to the
- // function. Or, clear any ops, voiced members, or bans on the 'bad'
- // side of the network sync.
- if (bounce_modes) {
- for (cm in MODE) {
- if (MODE[cm].state && (chan.mode&cm) &&
- !(cmode.addbits&cm)) {
- cmode.delbits |= cm;
- } else if (MODE[cm].list && MODE[cm].isnick) {
- for (member in chan.modelist[cm]) {
- cmode.delmodes += MODE[cm].modechar;
- cmode.delmodeargs += " " +
- chan.modelist[cm][member].nick;
- delete chan.modelist[cm][member];
- }
- } else if (MODE[cm].list && !MODE[cm].isnick) {
- for (ban in chan.modelist[cm]) {
- cmode.delmodes += MODE[cm].modechar;
- cmode.delmodeargs += " " +
- chan.modelist[cm][ban];
- delete chan.modelist[cm][ban];
- delete chan.bantime[ban];
- delete chan.bancreator[ban];
- }
- }
- }
- }
-
- // Now we run through all the mode toggles and construct our lists for
- // later display. We also play with the channel bit switches here.
- for (cm in MODE) {
- if (MODE[cm].state) {
- if ((cm&CHANMODE_KEY) && (cmode.addbits&CHANMODE_KEY)&&
- cmode.state_arg[cm] && chan.arg[cm] &&
- !this.server && !this.parent && !bounce_modes) {
- this.numeric(467, chan.nam +
- " :Channel key already set.");
- } else if ((cmode.addbits&cm) && (!(chan.mode&cm) ||
- ((cm==CHANMODE_LIMIT)&&(chan.arg[CHANMODE_LIMIT]!=
- cmode.state_arg[CHANMODE_LIMIT])) ) ) {
- cmode.addmodes += MODE[cm].modechar;
- chan.mode |= cm;
- if (MODE[cm].args && MODE[cm].state) {
- cmode.addmodeargs += " " +
- cmode.state_arg[cm];
- chan.arg[cm] = cmode.state_arg[cm];
- }
- } else if ((cmode.delbits&cm) && (chan.mode&cm)) {
- cmode.delmodes += MODE[cm].modechar;
- chan.mode &= ~cm;
- if (MODE[cm].args && MODE[cm].state) {
- cmode.delmodeargs += " " +
- cmode.state_arg[cm];
- chan.arg[cm] = "";
- }
- }
- }
- }
-
- // This is a special case, if +b was passed to us without arguments,
- // we simply display a list of bans on the channel.
- if (cmode.addbits&CHANMODE_BAN) {
- for (the_ban in chan.modelist[CHANMODE_BAN]) {
- this.numeric(367, chan.nam + " " + chan.modelist[CHANMODE_BAN][the_ban] + " " + chan.bancreator[the_ban] + " " + chan.bantime[the_ban]);
- }
- this.numeric(368, chan.nam + " :End of Channel Ban List.");
- }
-
- // Bans are a specialized case, sigh.
- for (z in cmode.tmplist[CHANMODE_BAN][true]) { // +b
- var set_ban = create_ban_mask(
- cmode.tmplist[CHANMODE_BAN][add][z]);
- if ((chan.count_modelist(CHANMODE_BAN) >= max_bans) &&
- !this.server && !this.parent) {
- this.numeric(478, chan.nam + " " + set_ban + " :" +
- "Cannot add ban, channel's ban list is full.");
- } else if (set_ban && !chan.isbanned(set_ban)) {
- cmode.addmodes += "b";
- cmode.addmodeargs += " " + set_ban;
- var banid = chan.modelist[CHANMODE_BAN].push(set_ban);
- chan.bantime[banid] = time();
- chan.bancreator[banid] = this.nuh;
- }
- }
-
- for (z in cmode.tmplist[CHANMODE_BAN][false]) { // -b
- for (ban in chan.modelist[CHANMODE_BAN]) {
- if (cmode.tmplist[CHANMODE_BAN][false][z].toUpperCase()
- == chan.modelist[CHANMODE_BAN][ban].toUpperCase()) {
- cmode.delmodes += "b";
- cmode.delmodeargs += " " +
- cmode.tmplist[CHANMODE_BAN][false][z];
- delete chan.modelist[CHANMODE_BAN][ban];
- delete chan.bantime[ban];
- delete chan.bancreator[ban];
- }
- }
- }
-
- // Modes where we just deal with lists of nicks.
- cmode.affect_mode_list(CHANMODE_OP);
- cmode.affect_mode_list(CHANMODE_VOICE);
-
- if (!cmode.addmodes && !cmode.delmodes)
- return 0;
-
- var final_modestr = "";
-
- if (cmode.addmodes)
- final_modestr += "+" + cmode.addmodes;
- if (cmode.delmodes)
- final_modestr += "-" + cmode.delmodes;
- if (cmode.addmodeargs)
- final_modestr += cmode.addmodeargs;
- if (cmode.delmodeargs)
- final_modestr += cmode.delmodeargs;
-
- var final_args = final_modestr.split(' ');
- var arg_counter = 0;
- var mode_counter = 0;
- var mode_output = "";
- var f_mode_args = "";
- for (marg in final_args[0]) {
- switch (final_args[0][marg]) {
- case "+":
- mode_output += "+";
- add = true;
- break;
- case "-":
- mode_output += "-";
- add = false;
- break;
- case "l":
- if (!add) {
- mode_counter++;
- mode_output += final_args[0][marg];
- break;
- }
- case "b": // only modes with arguments
- case "k":
- case "l":
- case "o":
- case "v":
- arg_counter++;
- f_mode_args += " " + final_args[arg_counter];
- default:
- mode_counter++;
- mode_output += final_args[0][marg];
- break;
- }
- if (mode_counter >= max_modes) {
- var str = "MODE " + chan.nam + " " + mode_output + f_mode_args;
- if (!this.server)
- this.bcast_to_channel(chan, str, true);
- else
- this.bcast_to_channel(chan, str, false);
- if (chan.nam[0] != "&")
- this.bcast_to_servers(str);
-
- if (add)
- mode_output = "+";
- else
- mode_output = "-";
- f_mode_args = "";
- }
- }
-
- if (mode_output.length > 1) {
- str = "MODE " + chan.nam + " " + mode_output + f_mode_args;
- if (!this.server)
- this.bcast_to_channel(chan, str, true);
- else
- this.bcast_to_channel(chan, str, false);
- if (chan.nam[0] != "&")
- this.bcast_to_servers(str);
- }
-
- return 1;
-}
-
-function IRCClient_do_join(chan_name,join_key) {
- if((chan_name[0] != "#") && (chan_name[0] != "&") && !this.parent) {
- this.numeric403(chan_name);
- return 0;
- }
- for (theChar in chan_name) {
- var theChar_code = chan_name[theChar].charCodeAt(0);
- if ((theChar_code <= 32) || (theChar_code == 44) ||
- (chan_name[theChar].charCodeAt(0) == 160)) {
- if (this.local)
- this.numeric(479, chan_name + " :Channel name contains illegal characters.");
- return 0;
- }
- }
- if (this.channels[chan_name.toUpperCase()])
- return 0;
- if ((true_array_len(this.channels) >= max_user_chans) && this.local) {
- this.numeric("405", chan_name + " :You have joined too many channels.");
- return 0;
- }
- var chan = chan_name.toUpperCase().slice(0,max_chanlen);
- if (Channels[chan] != undefined) {
- if (this.local) {
- if ((Channels[chan].mode&CHANMODE_INVITE) &&
- (chan != this.invited)) {
- this.numeric("473", Channels[chan].nam + " :Cannot join channel (+i: invite only)");
- return 0;
- }
- if ((Channels[chan].mode&CHANMODE_LIMIT) &&
- (Channels[chan].count_users() >= Channels[chan].arg[CHANMODE_LIMIT])) {
- this.numeric("471", Channels[chan].nam + " :Cannot join channel (+l: channel is full)");
- return 0;
- }
- if ((Channels[chan].mode&CHANMODE_KEY) &&
- (Channels[chan].arg[CHANMODE_KEY] != join_key)) {
- this.numeric("475", Channels[chan].nam + " :Cannot join channel (+k: key required)");
- return 0;
- }
- if (Channels[chan].isbanned(this.nuh) &&
- (chan != this.invited) ) {
- this.numeric("474", Channels[chan].nam + " :Cannot join channel (+b: you're banned!)");
- return 0;
- }
- }
- // add to existing channel
- Channels[chan].users[this.id] = this;
- var str="JOIN :" + Channels[chan].nam;
- if (!this.local) {
- this.bcast_to_channel(Channels[chan], str, false);
- } else {
- this.bcast_to_channel(Channels[chan], str, true);
- if (Channels[chan].topic) {
- this.numeric332(Channels[chan]);
- this.numeric333(Channels[chan]);
- } else {
- this.numeric331(Channels[chan]);
- }
- }
- if (chan_name[0] != "&")
- server_bcast_to_servers(":" + this.nick + " SJOIN " + Channels[chan].created + " " + Channels[chan].nam);
- } else {
- // create a new channel
- Channels[chan]=new Channel(chan);
- Channels[chan].nam=chan_name.slice(0,max_chanlen);
- Channels[chan].mode=CHANMODE_NONE;
- Channels[chan].topic="";
- Channels[chan].created=time();
- Channels[chan].users = new Array();
- Channels[chan].users[this.id] = this;
- Channels[chan].modelist[CHANMODE_BAN] = new Array;
- Channels[chan].modelist[CHANMODE_VOICE] = new Array;
- Channels[chan].modelist[CHANMODE_OP] = new Array;
- Channels[chan].modelist[CHANMODE_OP][this.id] = this;
- var str="JOIN :" + chan_name;
- this.originatorout(str,this);
- if (chan_name[0] != "&")
- server_bcast_to_servers(":" + servername + " SJOIN " + Channels[chan].created + " " + Channels[chan].nam + " " + Channels[chan].chanmode() + " :@" + this.nick);
- }
- if (this.invited.toUpperCase() == Channels[chan].nam.toUpperCase())
- this.invited = "";
- this.channels[chan] = Channels[chan];
- if (!this.parent) {
- this.names(Channels[chan]);
- this.numeric(366, Channels[chan].nam + " :End of /NAMES list.");
- }
- return 1; // success
-}
-
-function IRCClient_do_part(chan_name) {
- var chan;
- var str;
-
- if((chan_name[0] != "#") && (chan_name[0] != "&") && !this.parent) {
- this.numeric403(chan_name);
- return 0;
- }
- chan = chan_name.toUpperCase();
- if (Channels[chan] != undefined) {
- if (this.channels[chan]) {
- str = "PART " + Channels[chan].nam;
- if (this.parent)
- this.bcast_to_channel(Channels[chan], str, false);
- else
- this.bcast_to_channel(Channels[chan], str, true);
- this.rmchan(Channels[chan]);
- if (chan_name[0] != "&")
- this.bcast_to_servers(str);
- } else if (this.local) {
- this.numeric442(chan_name);
- }
- } else if (this.local) {
- this.numeric403(chan_name);
- }
-}
-
-function IRCClient_part_all() {
- var partingChannel;
-
- for(thisChannel in this.channels) {
- partingChannel=this.channels[thisChannel];
- this.do_part(partingChannel.nam);
- }
-}
-
diff --git a/exec/load/ircd_server.js b/exec/load/ircd_server.js
deleted file mode 100644
index aa0120e0dedf0a309627c52dbff3e0f42c0b0b63..0000000000000000000000000000000000000000
--- a/exec/load/ircd_server.js
+++ /dev/null
@@ -1,1110 +0,0 @@
-// $Id$
-//
-// ircd_channel.js
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details:
-// http://www.gnu.org/licenses/gpl.txt
-//
-// Synchronet IRC Daemon as per RFC 1459, link compatible with Bahamut 1.4
-//
-// Copyright 2003 Randolph Erwin Sommerfeld <sysop@rrx.ca>
-//
-// ** Server to server operation is governed here.
-//
-
-////////// Constants / Defines //////////
-const SERVER_REVISION = "$Revision$".split(' ')[1];
-
-// Various N:Line permission bits
-const NLINE_CHECK_QWKPASSWD =(1<<0); // q
-const NLINE_IS_QWKMASTER =(1<<1); // w
-const NLINE_CHECK_WITH_QWKMASTER =(1<<2); // k
-
-////////// Objects //////////
-function IRC_Server() {
- ////////// VARIABLES
- // Bools/Flags that change depending on connection state.
- this.hub = false; // are we a hub?
- this.local = true; // are we a local socket?
- this.pinged = false; // have we sent a PING?
- this.server = true; // yep, we're a server.
- this.uline = false; // are we services?
- // Variables containing user/server information as we receive it.
- this.flags = 0;
- this.hops = 0;
- this.hostname = "";
- this.id = 0;
- this.ip = "";
- this.ircclass = 0;
- this.linkparent="";
- this.nick = "";
- this.parent = 0;
- this.info = "";
- this.idletime = time();
- // Variables (consts, really) that point to various state information
- this.socket = "";
- ////////// FUNCTIONS
- // Functions we use to control clients (specific)
- this.quit = Server_Quit;
- this.work = Server_Work;
- this.netsplit = IRCClient_netsplit;
- // Socket functions
- this.ircout=ircout;
- this.originatorout=originatorout;
- this.rawout=rawout;
- // IRC protocol sending functions
- this.bcast_to_channel=IRCClient_bcast_to_channel;
- this.bcast_to_servers=IRCClient_bcast_to_servers;
- this.bcast_to_servers_raw=IRCClient_bcast_to_servers_raw;
- this.bcast_to_uchans_unique=IRCClient_bcast_to_uchans_unique;
- // Output helpers
- this.server_nick_info=IRCClient_server_nick_info;
- this.server_chan_info=IRCClient_server_chan_info;
- this.server_info=IRCClient_server_info;
- this.synchronize=IRCClient_synchronize;
- this.reintroduce_nick=IRCClient_reintroduce_nick;
- this.finalize_server_connect=IRCClient_finalize_server_connect;
- this.do_msg=IRCClient_do_msg;
- // Global Functions
- this.check_timeout=IRCClient_check_timeout;
- this.set_chanmode=IRCClient_set_chanmode;
- this.check_nickname=IRCClient_check_nickname;
- // Output helper functions (shared)
-}
-
-////////// Command Parser //////////
-
-function Server_Work() {
- var command;
- var cmdline;
- var origin;
-
- if (!this.socket.is_connected) {
- this.quit("Connection reset by peer");
- return 0;
- }
-
- cmdline=this.socket.recvline(4096,0)
-
- if(cmdline==null)
- return 0;
-
- if (debug)
- log(format("[%s<-%s]: %s",servername,this.nick,cmdline));
-
- cmd = cmdline.split(" ");
-
- if (cmdline[0] == ":") {
- // Silently ignore NULL originator commands.
- if (!cmd[1])
- return 0;
- origin = cmd[0].slice(1);
- command = cmd[1].toUpperCase();
- cmdline = cmdline.slice(cmdline.indexOf(" ")+1);
- // resplit cmd[]
- cmd = cmdline.split(" ");
- } else {
- command = cmd[0].toUpperCase();
- origin = this.nick;
- }
-
- var killtype;
- var ThisOrigin;
- if (origin.match(/[.]/)) {
- ThisOrigin = Servers[origin.toLowerCase()];
- killtype = "SQUIT";
- } else {
- ThisOrigin = Users[origin.toUpperCase()];
- killtype = "KILL";
- }
- if (!ThisOrigin) {
- umode_notice(USERMODE_OPER,"Notice","Server " + this.nick +
- " trying to pass message for non-existent origin: " +
- origin);
- this.rawout(killtype + " " + origin + " :" + servername + " (" + origin + "(?) <- " + this.nick + ")");
- return 0;
- }
-
- this.idletime = time();
-
- if (command.match(/^[0-9]+/)) { // passing on a numeric to the client
- if (!cmd[1])
- return 0; // uh...?
- var destination = Users[cmd[1].toUpperCase()];
- if (!destination)
- return 0;
- destination.rawout(":" + ThisOrigin.nick + " " + cmdline);
- return 1;
- }
-
- switch(command) {
- // PING at the top thanks to RFC1459
- case "PING":
- if (!cmd[1])
- break;
- if (cmd[2] && (cmd[2][0] == ":"))
- cmd[2] = cmd[2].slice(1);
- var tmp_server;
- if (cmd[2])
- tmp_server = searchbyserver(cmd[2]);
- if (tmp_server && (tmp_server != -1) &&
- (tmp_server.id != ThisOrigin.id)) {
- tmp_server.rawout(":" + ThisOrigin.nick + " PING " + ThisOrigin.nick + " :" + tmp_server.nick);
- break;
- }
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (!cmd[2])
- this.ircout("PONG " + servername + " :" + cmd[1]);
- else
- this.ircout("PONG " + cmd[2] + " :" + cmd[1]);
- break;
- case "ADMIN":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (IRC_match(servername,cmd[1])) {
- ThisOrigin.do_admin();
- } else {
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " ADMIN :" + dest_server.nick);
- }
- break;
- case "AKILL":
- var this_uh;
-
- if (!cmd[6])
- break;
- if (!ThisOrigin.uline) {
- umode_notice(USERMODE_OPER,"Notice","Non-U:Lined server " + ThisOrigin.nick + " trying to utilize AKILL.");
- break;
- }
-
- this_uh = cmd[2] + "@" + cmd[1];
- if (isklined(this_uh))
- break;
- KLines.push(new KLine(this_uh,IRC_string(cmdline),"A"));
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " " + cmdline);
- scan_for_klined_clients();
- break;
- case "AWAY":
- if (!cmd[1])
- ThisOrigin.away = "";
- else
- ThisOrigin.away = IRC_string(cmdline);
- break;
- case "CHATOPS":
- if (!cmd[1])
- break;
- var my_ircstr = IRC_string(cmdline);
- umode_notice(USERMODE_CHATOPS,"ChatOps","from " +
- ThisOrigin.nick + ": " + my_ircstr);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " " +
- "CHATOPS :" + my_ircstr);
- break;
- case "CONNECT":
- if (!cmd[3] || !this.hub)
- break;
- if (IRC_match(servername, cmd[3])) {
- ThisOrigin.do_connect(cmd[1],cmd[2]);
- } else {
- var dest_server = searchbyserver(cmd[3]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " CONNECT " + cmd[1] + " " + cmd[2] + " " + dest_server.nick);
- }
- break;
- case "GLOBOPS":
- if (!cmd[1])
- break;
- var my_ircstr = IRC_string(cmdline);
- ThisOrigin.globops(my_ircstr);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " " +
- "GLOBOPS :" + my_ircstr);
- break;
- case "GNOTICE":
- if (!cmd[1])
- break;
- var my_ircstr = IRC_string(cmdline);
- umode_notice(USERMODE_ROUTING,"Routing","from " +
- ThisOrigin.nick + ": " + my_ircstr);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " " +
- "GNOTICE :" + my_ircstr);
- break;
- case "ERROR":
- umode_notice(USERMODE_ROUTING,"Notice", "ERROR from " +
- this.nick + "[(+)0@" + this.hostname + "] -- "+
- IRC_string(cmdline));
- ThisOrigin.quit(IRC_string(cmdline));
- break;
- case "INFO":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (IRC_match(servername, cmd[1])) {
- ThisOrigin.do_info();
- } else {
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " INFO :" + dest_server.nick);
- }
- break;
- case "INVITE":
- if (!cmd[2])
- break;
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- var chan = Channels[cmd[2].toUpperCase()];
- if (!chan)
- break;
- if (!chan.modelist[CHANMODE_OP][ThisOrigin.id])
- break;
- var nick = Users[cmd[1].toUpperCase()];
- if (!nick)
- break;
- if (!nick.channels[chan.nam.toUpperCase()])
- break;
- nick.originatorout("INVITE " + nick.nick + " :" +
- chan.nam,ThisOrigin);
- nick.invited = chan.nam.toUpperCase();
- break;
- case "JOIN":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1]=cmd[1].slice(1);
- var the_channels = cmd[1].split(",");
- for (jchan in the_channels) {
- if (the_channels[jchan][0] != "#")
- break;
- ThisOrigin.do_join(the_channels[jchan].slice(0,max_chanlen),"");
- }
- break;
- case "KICK":
- var chanid;
- var nickid;
- var str;
- var kick_reason;
-
- if (!cmd[2])
- break;
- chanid = Channels[cmd[1].toUpperCase()];
- if (!chanid)
- break;
- nickid = Users[cmd[2].toUpperCase()];
- if (!nickid)
- nickid = search_nickbuf(cmd[2]);
- if (!nickid)
- break;
- if (!nickid.channels[chanid.nam.toUpperCase()])
- break;
- if (cmd[3])
- kick_reason = IRC_string(cmdline).slice(0,max_kicklen);
- else
- kick_reason = ThisOrigin.nick;
- str = "KICK " + chanid.nam + " " + nickid.nick + " :" + kick_reason;
- ThisOrigin.bcast_to_channel(chanid, str, false);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " " + str);
- nickid.rmchan(chanid);
- break;
- case "KILL":
- if (!cmd[1] || !cmd[2])
- break;
- if (cmd[1].match(/[.]/))
- break;
- if (cmd[2] == ":")
- break;
- var reason = IRC_string(cmdline);
- var kills = cmd[1].split(",");
- for(kill in kills) {
- var target = Users[kills[kill].toUpperCase()];
- if (!target)
- target = search_nickbuf(kills[kill]);
- if (target && (this.hub ||
- (target.parent == this.nick)) ) {
- umode_notice(USERMODE_KILL,"Notice","Received KILL message for " + target.nuh + ". From " + ThisOrigin.nick + " Path: target!Synchronet!" + ThisOrigin.nick + " (" + reason + ")");
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " KILL " + target.nick + " :" + reason);
- target.quit("KILLED by " + ThisOrigin.nick + " (" + reason + ")",true);
- } else if (target && !this.hub) {
- umode_notice(USERMODE_OPER,"Notice","Non-Hub server " + this.nick + " trying to KILL " + target.nick);
- this.reintroduce_nick(target);
- }
- }
- break;
- case "LINKS":
- if (!cmd[1] || !cmd[2])
- break;
- if (match_irc_mask(servername, cmd[1])) {
- ThisOrigin.do_links(cmd[2]);
- } else {
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " LINKS " + dest_server.nick + " " + cmd[2]);
- }
- break;
- case "MODE":
- if (!cmd[1] || !cmd[2])
- break;
- if (cmd[1][0] == "#") {
- var chan = Channels[cmd[1].toUpperCase()];
- if (!chan)
- break;
- var modeline;
- // Detect if this is a TSMODE. If so, handle.
- if (parseInt(cmd[2]) == cmd[2]) {
- // desynchronized MODE command.
- if (parseInt(cmd[2]) > chan.created)
- break;
- cmd.shift();
- }
- cmd.shift();
- cmd.shift();
- var modeline = cmd.join(" ");
- ThisOrigin.set_chanmode(chan,modeline,false);
- } else { // assume it's for a user
- ThisOrigin.setusermode(cmd[2]);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " MODE " + ThisOrigin.nick + " " + cmd[2]);
- }
- break;
- case "MOTD":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (IRC_match(servername, cmd[1])) {
- umode_notice(USERMODE_SPY,"Spy",
- "MOTD requested by " + ThisOrigin.nick+
- " (" + ThisOrigin.uprefix + "@" +
- ThisOrigin.hostname + ") [" +
- ThisOrigin.servername + "]");
- ThisOrigin.motd();
- } else {
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " MOTD :" + dest_server.nick);
- }
- break;
- case "NICK":
- if (!cmd[2] || (!cmd[8] && (cmd[2][0] != ":")) )
- break;
- var collide = Users[cmd[1].toUpperCase()];
- if ((collide) && (parseInt(collide.created) >
- parseInt(cmd[3]) ) && this.hub) {
- // Nuke our side of things, allow this newly
- // introduced nick to overrule.
- collide.numeric(436, collide.nick + " :Nickname Collision KILL.");
- this.bcast_to_servers("KILL " + collide.nick + " :Nickname Collision.");
- collide.quit("Nickname Collision",true);
- } else if (collide && !this.hub) {
- umode_notice(USERMODE_OPER,"Notice","Server " + this.nick + " trying to collide nick " + collide.nick + " forwards, reversing.");
- // Don't collide our side of things from a leaf
- this.ircout("KILL " + cmd[1] + " :Inverse Nickname Collision.");
- // Reintroduce our nick, because the remote end
- // probably killed it already on our behalf.
- this.reintroduce_nick(collide);
- break;
- } else if (collide && this.hub) {
- break;
- }
- if (cmd[2][0] == ":") {
- cmd[2] = cmd[2].slice(1);
- ThisOrigin.created = parseInt(cmd[2]);
- ThisOrigin.bcast_to_uchans_unique("NICK " + cmd[1]);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " NICK " + cmd[1] + " :" + cmd[2]);
- push_nickbuf(ThisOrigin.nick,cmd[1]);
- Users[cmd[1].toUpperCase()] = ThisOrigin;
- delete Users[ThisOrigin.nick.toUpperCase()];
- ThisOrigin.nick = cmd[1];
- } else if (cmd[10]) {
- if (!this.hub) {
- if(!this.check_nickname(cmd[1],true)) {
- umode_notice(USERMODE_OPER,"Notice","Server " + this.nick + " trying to introduce invalid nickname: " + cmd[1] + ", killed.");
- this.ircout("KILL " + cmd[1] + " :Bogus Nickname.");
- break;
- }
- cmd[2] = 1; // Force hops to 1.
- cmd[3] = time(); // Force TS on nick.
- cmd[7] = this.nick // Force server name
- } else { // if we're a hub
- var test_server = searchbyserver(cmd[7]);
- if (!test_server || (this.nick !=
- test_server.parent)) {
- umode_notice(USERMODE_OPER,"Notice","Server " + this.nick + " trying to introduce nick from server not behind it: " + cmd[1] + "@" + cmd[7]);
- this.ircout("KILL " + cmd[1] + " :Invalid Origin.");
- break;
- }
- }
- var new_id = "id" + next_client_id;
- next_client_id++;
- Users[cmd[1].toUpperCase()] = new IRC_User(new_id);
- var NewNick = Users[cmd[1].toUpperCase()];
- NewNick.local = false; // not local. duh.
- NewNick.nick = cmd[1];
- NewNick.hops = cmd[2];
- NewNick.created = cmd[3];
- NewNick.uprefix = cmd[5];
- NewNick.hostname = cmd[6];
- NewNick.servername = cmd[7];
- NewNick.realname = IRC_string(cmdline,10);
- NewNick.parent = this.nick;
- NewNick.ip = int_to_ip(cmd[9]);
- NewNick.setusermode(cmd[4]);
- for (u in ULines) {
- if (ULines[u] == cmd[7]) {
- NewNick.uline = true;
- break;
- }
- }
- var true_hops = parseInt(NewNick.hops)+1;
- this.bcast_to_servers_raw("NICK " + NewNick.nick + " " + true_hops + " " + NewNick.created + " " + NewNick.get_usermode(true) + " " + NewNick.uprefix + " " + NewNick.hostname + " " + NewNick.servername + " 0 " + cmd[9] + " :" + NewNick.realname);
- }
- break;
- case "NOTICE":
- // FIXME: servers should be able to send notices.
- if (!cmd[1] || ThisOrigin.server)
- break;
- var my_ircstr = IRC_string(cmdline);
- if ( !cmd[2] || ( !cmd[3] && (
- (cmd[2] == ":") && (my_ircstr == "")
- ) ) )
- break;
- var targets = cmd[1].split(",");
- for (nt in targets) {
- if (targets[nt][0] != "&")
- ThisOrigin.do_msg(targets[nt],"NOTICE",my_ircstr);
- }
- break;
- case "PART":
- if (!cmd[1])
- break;
- var the_channels = cmd[1].split(",");
- for(pchan in the_channels) {
- ThisOrigin.do_part(the_channels[pchan]);
- }
- break;
- case "PASS":
- var result;
-
- if (!this.hub || !cmd[3])
- break;
- if (cmd[3] != "QWK")
- break;
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- if (cmd[4]) { // pass the message on to target.
- var dest_server = searchbyserver(cmd[4]);
- if (!dest_server) {
- break;
- } else if ((dest_server == -1) &&
- (this.flags&NLINE_IS_QWKMASTER)) {
- var qwkid = cmd[2].toLowerCase();
- var hunt = qwkid + ".synchro.net";
- var my_server = 0;
- for (ur in Unregistered) {
- if (Unregistered[ur].nick ==
- hunt) {
- my_server = Unregistered[ur];
- break;
- }
- }
- if (!my_server)
- break;
- if (cmd[1] != "OK") {
- my_server.quit("Server not configured.");
- break;
- }
- Servers[my_server.nick.toLowerCase()] = new IRC_Server();
- var ns = Servers[my_server.id];
- ns.id = my_server.id;
- ns.nick = my_server.nick;
- ns.info = my_server.realname;
- ns.socket = my_server.socket;
- delete Unregistered[my_server.id];
- ns.finalize_server_connect("QWK");
- break;
- } else if (dest_server) {
- if (dest_server == -1)
- break; // security trap
- dest_server.rawout(":" + ThisOrigin.nick + " PASS " + cmd[1] + " :" + cmd[2] + " QWK " + dest_server.nick);
- }
- break;
- }
- // Are we passing this on to our qwk-master?
- for (nl in NLines) {
- if (NLines[nl].flags&NLINE_IS_QWKMASTER) {
- var qwk_master = searchbyserver(NLines[nl].servername);
- if (qwk_master) {
- qwk_master.rawout(":" + ThisOrigin.nick + " PASS " + cmd[1] + " :" + cmd[2] + " QWK");
- return 0;
- }
- }
- }
- // If we got here, we must be the qwk master. Process.
- if (check_qwk_passwd(cmd[2],cmd[1]))
- result = "OK";
- else
- result = "VOID";
- this.rawout(":" + servername + " PASS " + result + " :" + cmd[2] + " QWK " + ThisOrigin.nick);
- break;
- case "PONG":
- if (cmd[2]) {
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- var my_server = searchbyserver(cmd[2]);
- if (!my_server) {
- break;
- } else if (my_server == -1) {
- var my_nick = Users[cmd[2].toUpperCase()];
- if (my_nick)
- my_nick.rawout(":" + ThisOrigin.nick + " PONG " + cmd[1] + " :" + my_nick.nick);
- else
- this.pinged = false;
- break;
- } else if (my_server) {
- my_server.rawout(":" + ThisOrigin.nick + " PONG " + cmd[1] + " :" + cmd[2]);
- break;
- }
- }
- this.pinged = false;
- break;
- case "PRIVMSG":
- if (!cmd[1])
- break;
- var my_ircstr = IRC_string(cmdline);
- if ( !cmd[2] || ( !cmd[3] && (
- (cmd[2] == ":") && (my_ircstr == "")
- ) ) )
- break;
- var targets = cmd[1].split(",");
- for (pm in targets) {
- if (targets[pm][0] != "&")
- ThisOrigin.do_msg(targets[pm],"PRIVMSG",my_ircstr);
- }
- break;
- case "QUIT":
- ThisOrigin.quit(IRC_string(cmdline));
- break;
- case "SERVER":
- if (!cmd[3])
- break;
- // FIXME: when on Earth does this happen? :P?
- if ((cmd[2] == 1) && !this.info) {
- umode_notice(USERMODE_OPER,"Notice","This wasn't supposed to happen!");
- this.nick = cmd[1];
- this.hops = 1;
- this.info = IRC_string(cmdline);
- this.linkparent = servername;
- this.parent = this.nick;
- var newsrv = this;
- } else if (parseInt(cmd[2]) > 1) {
- if (this.hub) {
- var new_id = "id" + next_client_id;
- next_client_id++;
- Servers[cmd[1].toLowerCase()] = new IRC_Server;
- var newsrv = Servers[cmd[1].toLowerCase()];
- newsrv.hops = cmd[2];
- newsrv.nick = cmd[1];
- newsrv.info = IRC_string(cmdline);
- newsrv.parent = this.nick;
- newsrv.linkparent = ThisOrigin.nick;
- newsrv.local = false;
- for (u in ULines) {
- if (ULines[u] == cmd[1]) {
- newsrv.uline = true;
- break;
- }
- }
- } else {
- umode_notice(USERMODE_ROUTING,"Routing","from " + servername + ": Non-Hub link " + this.nick + " introduced " + cmd[1] + "(*).");
- this.quit("Too many servers. You have no H:Line to introduce " + cmd[1] + ".",true);
- return 0;
- }
- } else {
- break;
- }
- this.bcast_to_servers_raw(":" + newsrv.linkparent + " SERVER " + newsrv.nick + " " + (parseInt(newsrv.hops)+1) + " :" + newsrv.info);
- break;
- case "SJOIN":
- if (!cmd[2])
- break;
- if (cmd[2][0] != "#")
- break;
-
- var chan_members;
- var cm_array;
-
- if (cmd[3]) {
- var mode_args = "";
- var tmp_modeargs = 0;
-
- for (tmpmc in cmd[3]) {
- if ((cmd[3][tmpmc] == "k") ||
- (cmd[3][tmpmc] == "l")) {
- tmp_modeargs++;
- mode_args += cmd[3 + tmp_modeargs];
- }
- }
- if ((cmd[4] == "") && cmd[5])
- tmp_modeargs++;
-
- chan_members = IRC_string(cmdline,4+tmp_modeargs).split(' ');
-
- if (chan_members == "") {
- umode_notice(USERMODE_OPER,"Notice","Server " + this.nick + " trying to SJOIN empty channel " + cmd[2] + " before processing.");
- break;
- }
-
- cm_array = new Array;
-
- for (cm in chan_members) {
- var isop = false;
- var isvoice = false;
- if (chan_members[cm][0] == "@") {
- isop = true;
- chan_members[cm] = chan_members[cm].slice(1);
- }
- if (chan_members[cm][0] == "+") {
- isvoice = true;
- chan_members[cm] = chan_members[cm].slice(1);
- }
- var tmp_nick = Users[chan_members[cm].toUpperCase()];
- if (!tmp_nick)
- continue;
- cm_array.push(new SJOIN_Nick(tmp_nick,isop,isvoice));
- }
-
- if (cm_array.length < 1) {
- umode_notice(USERMODE_OPER,"Notice","Server " + this.nick + " trying to SJOIN empty channel " + cmd[2] + " post processing.");
- break;
- }
-
- }
-
- var cn_tuc = cmd[2].toUpperCase();
- var chan = Channels[cmd[2].toUpperCase()];
- if (!chan) {
- Channels[cn_tuc]=new Channel(cn_tuc);
- chan = Channels[cn_tuc];
- chan.nam = cmd[2];
- chan.created = parseInt(cmd[1]);
- chan.topic = "";
- chan.users = new Array;
- chan.modelist[CHANMODE_BAN] = new Array;
- chan.modelist[CHANMODE_VOICE] = new Array;
- chan.modelist[CHANMODE_OP] = new Array;
- chan.mode = CHANMODE_NONE;
- }
-
- if (cmd[3]) {
- var bounce_modes = true;
- if (!ThisOrigin.local ||
- (chan.created == parseInt(cmd[1])))
- bounce_modes = false;
- if (chan.created >= parseInt(cmd[1])) {
- if (mode_args)
- this.set_chanmode(chan, cmd[3] + " " + mode_args, bounce_modes);
- else
- this.set_chanmode(chan, cmd[3], bounce_modes);
- }
-
- var num_sync_modes = 0;
- var push_sync_modes = "+";
- var push_sync_args = "";
- var new_chan_members = "";
- for (member in cm_array) {
- if (new_chan_members)
- new_chan_members += " ";
-
- var member_obj = cm_array[member].nick;
- var is_voice = cm_array[member].isvoice;
- var is_op = cm_array[member].isop;
-
- if (member_obj.channels[chan.nam.toUpperCase()])
- continue;
- member_obj.channels[chan.nam.toUpperCase()] = chan;
- chan.users[member_obj.id] = member_obj;
- member_obj.bcast_to_channel(chan, "JOIN " + chan.nam, false);
- if (chan.created >= parseInt(cmd[1])) {
- if (is_op) {
- chan.modelist[CHANMODE_OP][member_obj.id] = member_obj.id;
- push_sync_modes += "o";
- push_sync_args += " " + member_obj.nick;
- num_sync_modes++;
- new_chan_members += "@";
- }
- if (num_sync_modes >= max_modes) {
- this.bcast_to_channel(chan, "MODE " + chan.nam + " " + push_sync_modes + push_sync_args);
- push_sync_modes = "+";
- push_sync_args = "";
- num_sync_modes = 0;
- }
- if (is_voice) {
- chan.modelist[CHANMODE_VOICE][member_obj.id] = member_obj;
- push_sync_modes += "v";
- push_sync_args += " " + member_obj.nick;
- num_sync_modes++;
- new_chan_members += "+";
- }
- if (num_sync_modes >= max_modes) {
- this.bcast_to_channel(chan, "MODE " + chan.nam + " " + push_sync_modes + push_sync_args);
- push_sync_modes = "+";
- push_sync_args = "";
- num_sync_modes = 0;
- }
- }
- new_chan_members += member_obj.nick;
- }
- if (num_sync_modes)
- this.bcast_to_channel(chan, "MODE " + chan.nam + " " + push_sync_modes + push_sync_args);
-
- // Synchronize the TS to what we received.
- if (chan.created > parseInt(cmd[1]))
- chan.created = parseInt(cmd[1]);
-
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " SJOIN " + chan.created + " " + chan.nam + " " + chan.chanmode(true) + " :" + new_chan_members)
- } else {
- if (ThisOrigin.channels[chan.nam.toUpperCase()])
- break;
- ThisOrigin.channels[chan.nam.toUpperCase()] = chan;
- chan.users[ThisOrigin.id] = ThisOrigin;
- ThisOrigin.bcast_to_channel(chan, "JOIN " + chan.nam, false);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " SJOIN " + chan.created + " " + chan.nam);
- }
- break;
- case "SQUIT":
- var sq_server;
- var reason;
-
- if (!cmd[1] || !this.hub)
- sq_server = this;
- else
- sq_server = searchbyserver(cmd[1]);
- if (!sq_server)
- break;
- reason = IRC_string(cmdline);
- if (!reason || !cmd[2])
- reason = ThisOrigin.nick;
- if (sq_server == -1) {
- this.bcast_to_servers_raw("SQUIT " + this.nick + " :Forwards SQUIT.");
- this.quit("Forwards SQUIT.",true);
- break;
- }
- // message from our uplink telling us a server is gone
- if (this.nick == sq_server.parent) {
- sq_server.quit(reason,false,false,ThisOrigin);
- break;
- }
- // oper or server going for squit of a server
- if (!sq_server.local) {
- sq_server.rawout(":" + ThisOrigin.nick + " SQUIT " + sq_server.nick + " :" + reason);
- break;
- }
- var msg = "Received SQUIT " + cmd[1] + " from " +
- ThisOrigin.nick + "(" + reason + ")";
- server_bcast_to_servers("GNOTICE :" + msg);
- umode_notice(USERMODE_ROUTING,"Routing","from " +
- servername + ": " + msg);
- sq_server.quit(reason);
- break;
- case "STATS":
- if (!cmd[2])
- break;
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- if (IRC_match(servername, cmd[2])) {
- ThisOrigin.do_stats(cmd[1][0]);
- } else {
- var dest_server = searchbyserver(cmd[2]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " STATS " + cmd[1][0] + " :" + dest_server.nick);
- }
- break;
- case "SUMMON":
- if (!cmd[2])
- break;
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- if (IRC_match(servername, cmd[2])) {
- if (enable_users_summon) {
- ThisOrigin.do_summon(cmd[1]);
- } else {
- ThisOrigin.numeric445();
- break;
- }
- } else {
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " SUMMON " + cmd[1] + " :" + dest_server.nick);
- }
- break;
- case "TIME":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (IRC_match(servername, cmd[1])) {
- ThisOrigin.numeric391();
- } else {
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " TIME :" + dest_server.nick);
- }
- break;
- case "TOPIC":
- if (!cmd[4])
- break;
- var chan = Channels[cmd[1].toUpperCase()];
- if (!chan)
- break;
- var the_topic = IRC_string(cmdline);
- if (the_topic == chan.topic)
- break;
- chan.topic = the_topic;
- if (this.hub)
- chan.topictime = cmd[3];
- else
- chan.topictime = time();
- chan.topicchangedby = cmd[2];
- var str = "TOPIC " + chan.nam + " :" + chan.topic;
- ThisOrigin.bcast_to_channel(chan,str,false);
- this.bcast_to_servers_raw(":" + ThisOrigin.nick + " TOPIC " + chan.nam + " " + ThisOrigin.nick + " " + chan.topictime + " :" + chan.topic);
- break;
- case "TRACE":
- if (!cmd[1])
- break;
- ThisOrigin.do_trace(cmd[1]);
- break;
- case "USERS":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (IRC_match(servername, cmd[1])) {
- ThisOrigin.numeric351();
- } else {
- // psst, pass it on
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " VERSION :" + dest_server.nick);
- }
- break;
- case "VERSION":
- if (!cmd[1])
- break;
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- if (IRC_match(servername, cmd[1])) {
- // it's for us, return the message
- ThisOrigin.numeric351();
- } else {
- // psst, pass it on
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server)
- break; // someone messed up.
- dest_server.rawout(":" + ThisOrigin.nick + " VERSION :" + dest_server.nick);
- }
- break;
- case "WALLOPS":
- if (!cmd[1])
- break;
- var str = ":" + ThisOrigin.nick + " WALLOPS :" +
- IRC_string(cmdline);
- wallopers(str);
- this.bcast_to_servers_raw(str);
- break;
- case "WHOIS":
- if (!cmd[2])
- break;
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- if (IRC_match(servername, cmd[2])) {
- var wi_nicks = cmd[1].split(",");
- for (wi_nick in wi_nicks) {
- var wi = Users[wi_nicks[wi_nick].toUpperCase()];
- if (wi)
- ThisOrigin.do_whois(wi);
- else
- ThisOrigin.numeric401(wi_nicks[wi_nick]);
- }
- ThisOrigin.numeric(318, wi_nicks[0]+" :End of /WHOIS list.");
- } else {
- var dest_server = searchbyserver(cmd[2]);
- if (!dest_server)
- break;
- dest_server.rawout(":" + ThisOrigin.nick + " WHOIS " + cmd[1] + " " + dest_server.nick);
- }
- break;
- default:
- umode_notice(USERMODE_OPER,"Notice","Server " + ThisOrigin.nick + " sent unrecognized command: " + cmdline);
- break;
- }
-}
-
-////////// Functions //////////
-
-function server_bcast_to_servers(str) {
- for(thisClient in Local_Servers) {
- Local_Servers[thisClient].rawout(str);
- }
-}
-
-function IRCClient_bcast_to_servers(str) {
- for(thisClient in Local_Servers) {
- if (Local_Servers[thisClient].nick != this.parent)
- Local_Servers[thisClient].originatorout(str,this);
- }
-}
-
-function IRCClient_bcast_to_servers_raw(str) {
- for(thisClient in Local_Servers) {
- if (Local_Servers[thisClient].nick != this.parent)
- Local_Servers[thisClient].rawout(str);
- }
-}
-
-function Server_Quit(str,suppress_bcast,is_netsplit,origin) {
- var tmp;
-
- if (!str)
- str = this.nick;
-
- if (is_netsplit) {
- this.netsplit(str);
- } else if (this.local) {
- if (!suppress_bcast)
- this.bcast_to_servers_raw("SQUIT " + this.nick + " :" + str);
- this.netsplit(servername + " " + this.nick);
- } else if (origin) {
- if (!suppress_bcast)
- this.bcast_to_servers_raw(":" + origin.nick + " SQUIT " + this.nick + " :" + str);
- this.netsplit(origin.nick + " " + this.nick);
- } else {
- umode_notice(USERMODE_OPER,"Notice",
- "Netspliting a server which isn't local and doesn't " +
- "have an origin?!");
- if (!suppress_bcast)
- this.bcast_to_servers_raw("SQUIT " + this.nick + " :" + str);
- this.netsplit();
- }
-
- if (this.local) {
- if (server.client_remove!=undefined)
- server.client_remove(this.socket);
-
- this.rawout("ERROR :Closing Link: [" + this.uprefix + "@" + this.hostname + "] (" + str + ")");
- // FIXME: wrong phrasing below
- umode_notice(USERMODE_CLIENT,"Client","SERVER exiting: " +
- this.nick + " (" + this.uprefix + "@" + this.hostname +
- ") [" + str + "] [" + this.ip + "]");
- if (this.socket!=undefined)
- this.socket.close();
- delete Local_Sockets[this.id];
- }
- delete Local_Sockets[this.id];
- delete Local_Sockets_Map[this.id];
- delete Local_Servers[this.id];
- delete Servers[this.nick.toLowerCase()];
- delete this;
- rebuild_socksel_array = true;
-}
-
-function IRCClient_synchronize() {
- this.rawout("BURST"); // warn of impending synchronization
- for (my_server in Servers) {
- if (Servers[my_server].id != this.id)
- this.server_info(Servers[my_server]);
- }
- for (my_client in Users) {
- this.server_nick_info(Users[my_client]);
- }
- for (my_channel in Channels) {
- if (my_channel[0] == "#")
- this.server_chan_info(Channels[my_channel]);
- }
- umode_notice(USERMODE_ROUTING,"Routing","from " + servername +
- ": " + this.nick + " has processed user/channel burst, " +
- "sending topic burst.");
- for (my_channel in Channels) {
- if ((my_channel[0] == "#") && Channels[my_channel].topic) {
- var chan = Channels[my_channel];
- this.rawout("TOPIC " + chan.nam + " " + chan.topicchangedby + " " + chan.topictime + " :" + chan.topic);
- }
- }
- this.rawout("BURST 0"); // burst completed.
- umode_notice(USERMODE_ROUTING,"Routing","from " + servername +
- ": " + this.nick + " has processed topic burst " +
- "(synched to network data).");
-}
-
-function IRCClient_server_info(sni_server) {
- var realhops = parseInt(sni_server.hops)+1;
- this.rawout(":" + sni_server.linkparent + " SERVER " + sni_server.nick + " " + realhops + " :" + sni_server.info);
-}
-
-function IRCClient_server_nick_info(sni_client) {
- var actual_hops = parseInt(sni_client.hops) + 1;
- this.rawout("NICK " + sni_client.nick + " " + actual_hops + " " + sni_client.created + " " + sni_client.get_usermode(true) + " " + sni_client.uprefix + " " + sni_client.hostname + " " + sni_client.servername + " 0 " + ip_to_int(sni_client.ip) + " :" + sni_client.realname);
- if (sni_client.away)
- this.rawout(":" + sni_client.nick + " AWAY :" + sni_client.away);
-}
-
-function IRCClient_reintroduce_nick(nick) {
- var chan;
- var cmodes;
-
- this.server_nick_info(nick);
-
- for (uchan in nick.channels) {
- cmodes = "";
- chan = nick.channels[uchan];
- if (chan.modelist[CHANMODE_OP][nick.id])
- cmodes += "@";
- if (chan.modelist[CHANMODE_VOICE][nick.id])
- cmodes += "+";
- this.rawout("SJOIN " + chan.created + " " + chan.nam + " " + chan.chanmode(true) + " :" + cmodes + nick.nick);
- if (chan.topic)
- this.rawout("TOPIC " + chan.nam + " " + chan.topicchangedby + " " + chan.topictime + " :" + chan.topic);
- }
-}
-
-function IRCClient_server_chan_info(sni_chan) {
- this.rawout("SJOIN " + sni_chan.created + " " + sni_chan.nam + " " + sni_chan.chanmode(true) + " :" + sni_chan.occupants())
- var modecounter=0;
- var modestr="+";
- var modeargs="";
- for (aBan in sni_chan.modelist[CHANMODE_BAN]) {
- modecounter++;
- modestr += "b";
- if (modeargs)
- modeargs += " ";
- modeargs += sni_chan.modelist[CHANMODE_BAN][aBan];
- if (modecounter >= max_modes) {
- this.ircout("MODE " + sni_chan.nam + " " + modestr + " " + modeargs);
- modecounter=0;
- modestr="+";
- modeargs="";
- }
- }
- if (modeargs)
- this.ircout("MODE " + sni_chan.nam + " " + modestr + " " + modeargs);
-}
-
diff --git a/exec/load/ircd_unreg.js b/exec/load/ircd_unreg.js
deleted file mode 100644
index dbbbe01a0377422d2d596e0da2e5d77b3d7dea8f..0000000000000000000000000000000000000000
--- a/exec/load/ircd_unreg.js
+++ /dev/null
@@ -1,361 +0,0 @@
-// $Id$
-//
-// ircd_unreg.js
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details:
-// http://www.gnu.org/licenses/gpl.txt
-//
-// Synchronet IRC Daemon as per RFC 1459, link compatible with Bahamut 1.4
-//
-// Copyright 2003 Randolph Erwin Sommerfeld <sysop@rrx.ca>
-//
-// ** Handle unregistered clients.
-//
-
-const UNREG_REVISION = "$Revision$".split(' ')[1];
-
-////////// Objects //////////
-function Unregistered_Client(id,socket) {
- ////////// VARIABLES
- // Bools/Flags that change depending on connection state.
- this.pinged = false; // Sent PING?
- this.sentps = false; // Sent PASS/SERVER?
- this.local = true; // FIXME: this is redundant.
- // Variables containing user/server information as we receive it.
- this.id = id;
- this.nick = "*";
- this.realname = "";
- this.uprefix = "";
- this.hostname = "";
- this.password = "";
- this.ircclass = 0;
- this.idletime = time();
- // Variables (consts, really) that point to various state information
- this.socket = socket;
- ////////// FUNCTIONS
- // Functions we use to control clients (specific)
- this.work = Unregistered_Commands;
- this.quit = Unregistered_Quit;
- this.check_timeout = IRCClient_check_timeout;
- // Output helper functions (shared)
- this.rawout = rawout;
- this.originatorout = originatorout;
- this.ircout = ircout;
- this.server_notice = IRCClient_server_notice;
- this.check_nickname = IRCClient_check_nickname;
- // Numerics (shared)
- this.numeric = IRCClient_numeric;
- this.numeric451 = IRCClient_numeric451;
- this.numeric461 = IRCClient_numeric461;
- this.numeric462 = IRCClient_numeric462;
- ////////// EXECUTION
- // We're a local socket that must be polled.
- Local_Sockets[id] = socket.descriptor;
- Local_Sockets_Map[id] = this;
- rebuild_socksel_array = true;
- log(format("%04u",socket.descriptor)
- + " Accepted new connection: " + socket.remote_ip_address
- + " port " + socket.remote_port);
- if ((socket.remote_ip_address.slice(0,4) == "127.") ||
- (socket.remote_ip_address.slice(0,3) == "10.") ||
- (socket.remote_ip_address.slice(0,8) == "192.168.") ||
- (socket.remote_ip_address.slice(0,7) == "172.16." )) {
- this.hostname = servername;
- } else {
- var went_into_hostname;
- var possible_hostname;
- if (debug && resolve_hostnames)
- went_into_hostname = time();
- if (resolve_hostnames)
- possible_hostname = resolve_host(socket.remote_ip_address);
- if (resolve_hostnames && possible_hostname) {
- this.hostname = possible_hostname;
- if(server.client_update != undefined)
- server.client_update(socket,this.nick,this.hostname);
- } else {
- this.hostname = socket.remote_ip_address;
- }
- if (debug && resolve_hostnames) {
- went_into_hostname = time() - went_into_hostname;
- if (went_into_hostname == "NaN")
- went_into_hostname=0;
- umode_notice(USERMODE_DEBUG,"Debug",
- "resolve_host took " +
- went_into_hostname + " seconds.");
- }
- }
- this.server_notice("*** " + VERSION + " (" + serverdesc + ") Ready.");
-}
-
-////////// Command Parsers //////////
-
-function Unregistered_Commands() {
- var cmdline;
- var cmd;
- var command;
-
- if (!this.socket.is_connected) {
- this.quit();
- return 0;
- }
- cmdline=this.socket.recvline(4096,0);
-
- if (!cmdline)
- return 0;
- // Only accept up to 512 bytes from unregistered clients.
- cmdline = cmdline.slice(0,512);
- // Kludge for broken clients.
- if ((cmdline[0] == "\r") || (cmdline[0] == "\n"))
- cmdline = cmdline.slice(1);
- if (debug)
- log("[UNREG]: " + cmdline);
- cmd = cmdline.split(" ");
- if (cmdline[0] == ":") {
- // Silently ignore NULL originator commands.
- if (!cmd[1])
- return 0;
- // We allow non-matching :<origin> commands through FOR NOW,
- // since some *broken* IRC clients use this in the unreg stage.
- command = cmd[1].toUpperCase();
- cmdline = cmdline.slice(cmdline.indexOf(" ")+1);
- } else {
- command = cmd[0].toUpperCase();
- }
-
- // we ignore all numerics from unregistered clients.
- if (command.match(/^[0-9]+/))
- return 0;
-
- switch(command) {
- case "PING":
- if (!cmd[1]) {
- this.numeric(409,":No origin specified.");
- break;
- }
- this.rawout("PONG " + servername + " :" + IRC_string(cmdline));
- break;
- case "CAPAB":
- break; // Silently ignore, for now.
- case "NICK":
- if (!cmd[1]) {
- this.numeric(431, ":No nickname given.");
- break;
- }
- var the_nick = IRC_string(cmd[1]).slice(0,max_nicklen);
- if (this.check_nickname(the_nick))
- this.nick = the_nick;
- break;
- case "PASS":
- if (!cmd[1])
- break;
- this.password = cmd[1];
- break;
- case "PONG":
- this.pinged = false;
- break;
- case "SERVER":
- if (this.nick != "*") {
- this.numeric462();
- break;
- }
- if (!cmd[3]) {
- this.numeric461("SERVER");
- break;
- }
- var this_nline = 0;
- var qwk_slave = false;
- var qwkid = cmd[1].slice(0,cmd[1].indexOf(".")).toUpperCase();
- for (nl in NLines) {
- if ((NLines[nl].flags&NLINE_CHECK_QWKPASSWD) &&
- IRC_match(cmd[1],NLines[nl].servername)) {
- if (check_qwk_passwd(qwkid,this.password)) {
- this_nline = NLines[nl];
- break;
- }
- } else if ((NLines[nl].flags&NLINE_CHECK_WITH_QWKMASTER) &&
- IRC_match(cmd[1],NLines[nl].servername)) {
- for (qwkm_nl in NLines) {
- if (NLines[qwkm_nl].flags&NLINE_IS_QWKMASTER) {
- var qwk_master = searchbyserver(NLines[qwkm_nl].servername);
- if (!qwk_master) {
- this.quit("No QWK master available for authorization.");
- return 0;
- } else {
- qwk_master.rawout(":" + servername + " PASS " + this.password + " :" + qwkid + " QWK");
- qwk_slave = true;
- }
- }
- }
- } else if ((NLines[nl].password == this.password) &&
- (IRC_match(cmd[1],NLines[nl].servername))
- ) {
- this_nline = NLines[nl];
- break;
- }
- }
- if ( (!this_nline ||
- ( (this_nline.password == "*") && !this.sentps &&
- !(this_nline.flags&NLINE_CHECK_QWKPASSWD) )
- ) && !qwk_slave) {
- this.quit("Server not configured.");
- return 0;
- }
- if (Servers[cmd[1].toUpperCase()]) {
- this.quit("Server already exists.");
- return 0;
- }
- // Take care of registration right now.
- Servers[cmd[1].toLowerCase()] = new IRC_Server;
- var new_server = Servers[cmd[1].toLowerCase()];
- Local_Servers[this.id] = new_server;
- Local_Sockets_Map[this.id] = new_server;
- rebuild_socksel_array = true;
- new_server.socket = this.socket;
- new_server.hops = cmd[2];
- new_server.info = IRC_string(cmdline);
- new_server.parent = cmd[1];
- new_server.linkparent = servername;
- new_server.id = this.id;
- new_server.flags = this_nline.flags;
- new_server.nick = cmd[1];
- new_server.hostname = this.hostname;
- if (!qwk_slave) { // qwk slaves should never be hubs.
- for (hl in HLines) {
- if (HLines[hl].servername.toLowerCase()
- == cmd[1].toLowerCase()) {
- new_server.hub = true;
- break;
- }
- }
- // nor should they be ulined.
- for (u in ULines) {
- if (ULines[u] == cmd[1]) {
- new_server.uline = true;
- break;
- }
- }
- }
- new_server.finalize_server_connect("TS");
- break;
- case "USER":
- if (!cmd[4]) {
- this.numeric461("USER");
- break;
- }
- this.realname = IRC_string(cmdline).slice(0,50);
- var unreg_username = parse_username(cmd[1]);
- this.uprefix = "~" + unreg_username;
- break;
- case "QUIT":
- this.quit();
- return 0;
- case "NOTICE":
- break; // drop silently
- default:
- this.numeric451();
- break;
- }
- if (this.uprefix && isklined(this.uprefix + "@" + this.hostname)) {
- this.numeric(465, ":You've been K:Lined from this server.");
- this.quit("You've been K:Lined from this server.");
- return 0;
- }
- if (this.password && (unreg_username || (this.nick != "*"))) {
- var usernum;
- if (unreg_username)
- usernum = system.matchuser(unreg_username);
- if (!usernum && (this.nick != "*"))
- usernum = system.matchuser(this.nick);
- if (usernum) {
- var bbsuser = new User(usernum);
- if (this.password.toUpperCase() == bbsuser.security.password)
- this.uprefix = parse_username(bbsuser.handle).toLowerCase().slice(0,10);
- }
- }
- if ( (true_array_len(Local_Users) + true_array_len(Local_Servers)) > hcc_total)
- hcc_total = true_array_len(Local_Users) + true_array_len(Local_Servers);
- if (true_array_len(Local_Users) > hcc_users)
- hcc_users = true_array_len(Local_Users);
- if (this.realname && this.uprefix && (this.nick != "*")) {
- // Check for a valid I:Line.
- var my_iline;
- // FIXME: We don't compare connecting port.
- for(thisILine in ILines) {
- if ((IRC_match(this.uprefix + "@" +
- this.socket.remote_ip_address,
- ILines[thisILine].ipmask)) &&
- (IRC_match(this.uprefix + "@" +
- this.hostname,
- ILines[thisILine].hostmask))
- ) {
- my_iline = ILines[thisILine];
- break;
- }
- }
- if (!my_iline) {
- this.numeric(463, ":Your host isn't among the privileged.");
- this.quit("You are not authorized to use this server.");
- return 0;
- }
- if (my_iline.password && (my_iline.password!=this.password)) {
- this.numeric(464, ":Password Incorrect.");
- this.quit("Denied.");
- return 0;
- }
- if (!this.check_nickname(this.nick))
- return 0;
- // Amazing. We meet the registration criteria.
- Users[this.nick.toUpperCase()] = new IRC_User(this.id);
- new_user = Users[this.nick.toUpperCase()];
- Local_Sockets_Map[this.id] = new_user;
- Local_Users[this.id] = new_user;
- rebuild_socksel_array = true;
- new_user.socket = this.socket;
- new_user.nick = this.nick;
- new_user.uprefix = this.uprefix;
- new_user.hostname = this.hostname;
- new_user.realname = this.realname;
- new_user.created = time();
- if (this.socket.remote_ip_address)
- new_user.ip = this.socket.remote_ip_address;
- new_user.ircclass = my_iline.ircclass;
- hcc_counter++;
- this.numeric("001", ":Welcome to the Synchronet IRC Service, " + new_user.nuh);
- this.numeric("002", ":Your host is " + servername + ", running " + VERSION);
- this.numeric("003", ":This server was created " + strftime("%a %b %e %Y at %H:%M:%S %Z",server_uptime));
- this.numeric("004", servername + " " + VERSION + " oiwbgscrkfydnhF biklmnopstv");
- this.numeric("005", "MODES=" + max_modes + " MAXCHANNELS=" + max_user_chans + " CHANNELLEN=" + max_chanlen + " MAXBANS=" + max_bans + " NICKLEN=" + max_nicklen + " TOPICLEN=" + max_topiclen + " KICKLEN=" + max_kicklen + " CHANTYPES=#& PREFIX=(ov)@+ NETWORK=Synchronet CASEMAPPING=ascii CHANMODES=b,k,l,imnpst STATUSMSG=@+ :are available on this server.");
- new_user.lusers();
- new_user.motd();
- umode_notice(USERMODE_CLIENT,"Client","Client connecting: " +
- this.nick + " (" + this.uprefix + "@" + this.hostname +
- ") [" + this.socket.remote_ip_address + "] {1}");
- if (server.client_update != undefined)
- server.client_update(this.socket, this.nick, this.hostname);
- server_bcast_to_servers("NICK " + this.nick + " 1 " + this.created + " + " + this.uprefix + " " + this.hostname + " " + servername + " 0 " + ip_to_int(new_user.ip) + " :" + this.realname);
- // we're no longer unregistered.
- delete Unregistered[this];
- }
-}
-
-////////// Functions //////////
-
-function Unregistered_Quit(msg) {
- if (msg)
- this.rawout("ERROR :" + msg);
- this.socket.close();
- delete Local_Sockets[this.id];
- delete Local_Sockets_Map[this.id];
- delete Unregistered[this.id];
- delete this;
- rebuild_socksel_array = true;
-}
-
diff --git a/exec/load/ircd_user.js b/exec/load/ircd_user.js
deleted file mode 100644
index eabfb80bfba9c6b792f137a9f07307bd9abd8a08..0000000000000000000000000000000000000000
--- a/exec/load/ircd_user.js
+++ /dev/null
@@ -1,1457 +0,0 @@
-// $Id$
-//
-// ircd_unreg.js
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details:
-// http://www.gnu.org/licenses/gpl.txt
-//
-// Synchronet IRC Daemon as per RFC 1459, link compatible with Bahamut 1.4
-//
-// Copyright 2003 Randolph Erwin Sommerfeld <sysop@rrx.ca>
-//
-// ** Handle registered clients.
-//
-
-////////// Constants / Defines //////////
-const USER_REVISION = "$Revision$".split(' ')[1];
-
-const USERMODE_NONE =(1<<0); // NONE
-const USERMODE_OPER =(1<<1); // o
-const USERMODE_INVISIBLE =(1<<2); // i
-const USERMODE_WALLOPS =(1<<3); // w
-const USERMODE_CHATOPS =(1<<4); // b
-const USERMODE_GLOBOPS =(1<<5); // g
-const USERMODE_SERVER =(1<<6); // s
-const USERMODE_CLIENT =(1<<7); // c
-const USERMODE_REJECTED =(1<<8); // r
-const USERMODE_KILL =(1<<9); // k
-const USERMODE_FLOOD =(1<<10); // f
-const USERMODE_SPY =(1<<11); // y
-const USERMODE_DEBUG =(1<<12); // d
-const USERMODE_ROUTING =(1<<13); // n
-const USERMODE_HELP =(1<<14); // h
-const USERMODE_NOTHROTTLE =(1<<15); // F
-
-USERMODE_CHAR = new Array();
-USERMODE_CHAR["o"] = USERMODE_OPER;
-USERMODE_CHAR["i"] = USERMODE_INVISIBLE;
-USERMODE_CHAR["w"] = USERMODE_WALLOPS;
-USERMODE_CHAR["b"] = USERMODE_CHATOPS;
-USERMODE_CHAR["g"] = USERMODE_GLOBOPS;
-USERMODE_CHAR["s"] = USERMODE_SERVER;
-USERMODE_CHAR["c"] = USERMODE_CLIENT;
-USERMODE_CHAR["r"] = USERMODE_REJECTED;
-USERMODE_CHAR["k"] = USERMODE_KILL;
-USERMODE_CHAR["f"] = USERMODE_FLOOD;
-USERMODE_CHAR["y"] = USERMODE_SPY;
-USERMODE_CHAR["d"] = USERMODE_DEBUG;
-USERMODE_CHAR["n"] = USERMODE_ROUTING;
-USERMODE_CHAR["h"] = USERMODE_HELP;
-USERMODE_CHAR["F"] = USERMODE_NOTHROTTLE;
-
-// Most umodes aren't propagated across the network. Define the ones that are.
-USERMODE_BCAST = new Array;
-USERMODE_BCAST["o"] = true;
-USERMODE_BCAST["i"] = true;
-USERMODE_BCAST["h"] = true;
-
-// FIXME: Services modes are broadcast but not displayed to the user.
-USERMODE_SERVICES = new Array;
-
-// Various permissions that can be set on an O:Line
-const OLINE_CAN_REHASH =(1<<0); // r
-const OLINE_CAN_RESTART =(1<<1); // R
-const OLINE_CAN_DIE =(1<<2); // D
-const OLINE_CAN_GLOBOPS =(1<<3); // g
-const OLINE_CAN_WALLOPS =(1<<4); // w
-const OLINE_CAN_LOCOPS =(1<<5); // l
-const OLINE_CAN_LSQUITCON =(1<<6); // c
-const OLINE_CAN_GSQUITCON =(1<<7); // C
-const OLINE_CAN_LKILL =(1<<8); // k
-const OLINE_CAN_GKILL =(1<<9); // K
-const OLINE_CAN_KLINE =(1<<10); // b
-const OLINE_CAN_UNKLINE =(1<<11); // B
-const OLINE_CAN_LGNOTICE =(1<<12); // n
-const OLINE_CAN_GGNOTICE =(1<<13); // N
-// Synchronet IRCd doesn't have umode +A RESERVED
-// Synchronet IRCd doesn't have umode +a RESERVED
-const OLINE_CAN_UMODEC =(1<<16); // c
-const OLINE_CAN_CHATOPS =(1<<19); // s
-const OLINE_CHECK_SYSPASSWD =(1<<20); // S
-const OLINE_CAN_DEBUG =(1<<21); // x
-const OLINE_IS_GOPER =(1<<22); // "big O"
-
-// Bits used for walking the complex WHO flags.
-const WHO_AWAY =(1<<0); // a
-const WHO_CHANNEL =(1<<1); // c
-const WHO_REALNAME =(1<<2); // g
-const WHO_HOST =(1<<3); // h
-const WHO_IP =(1<<4); // i
-const WHO_CLASS =(1<<5); // l
-const WHO_UMODE =(1<<6); // m
-const WHO_NICK =(1<<7); // n
-const WHO_OPER =(1<<8); // o
-const WHO_SERVER =(1<<9); // s
-const WHO_TIME =(1<<10); // t
-const WHO_USER =(1<<11); // u
-const WHO_FIRST_CHANNEL =(1<<12); // C
-const WHO_MEMBER_CHANNEL =(1<<13); // M
-const WHO_SHOW_IPS_ONLY =(1<<14); // I
-
-// Bits used for walking complex LIST flags.
-const LIST_CHANMASK =(1<<0); // a
-const LIST_CREATED =(1<<1); // c
-const LIST_MODES =(1<<2); // m
-const LIST_TOPIC =(1<<3); // o
-const LIST_PEOPLE =(1<<4); // p
-const LIST_TOPICAGE =(1<<5); // t
-const LIST_DISPLAY_CHAN_MODES =(1<<6); // M
-
-////////// Objects //////////
-function IRC_User(id) {
- ////////// VARIABLES
- // Bools/Flags that change depending on connection state.
- this.flagged_for_quit = false; // QUIT later?
- this.local = true; // are we a local socket?
- this.pinged = false; // sent PING?
- this.server = false; // No, we're not a server.
- this.uline = false; // Are we services?
- // Variables containing user/server information as we receive it.
- this.away = "";
- this.channels = new Array;
- this.connecttime = time();
- this.created = 0;
- this.flags = 0;
- this.hops = 0;
- this.hostname = "";
- this.idletime = time();
- this.invited = "";
- this.ircclass = 0;
- this.mode = 0;
- this.nick = "";
- this.parent = 0;
- this.realname = "";
- this.servername = servername;
- this.talkidle = time();
- this.uprefix = "";
- this.id = id;
- // Variables (consts, really) that point to various state information
- this.socket = "";
- ////////// FUNCTIONS
- // Functions we use to control clients (specific)
- this.quit = User_Quit;
- this.work = User_Work;
- // Socket functions
- this.ircout=ircout;
- this.originatorout=originatorout;
- this.rawout=rawout;
- // Output helper functions (shared)
- this.bcast_to_channel=IRCClient_bcast_to_channel;
- this.bcast_to_channel_servers=IRCClient_bcast_to_channel_servers;
- this.bcast_to_list=IRCClient_bcast_to_list;
- this.bcast_to_servers=IRCClient_bcast_to_servers;
- this.bcast_to_servers_raw=IRCClient_bcast_to_servers_raw;
- this.bcast_to_uchans_unique=IRCClient_bcast_to_uchans_unique;
- this.do_admin=IRCClient_do_admin;
- this.do_connect=IRCClient_do_connect;
- this.do_info=IRCClient_do_info;
- this.do_join=IRCClient_do_join;
- this.do_links=IRCClient_do_links;
- this.do_msg=IRCClient_do_msg;
- this.do_part=IRCClient_do_part;
- this.do_stats=IRCClient_do_stats;
- this.do_summon=IRCClient_do_summon;
- this.do_trace=IRCClient_do_trace;
- this.do_users=IRCClient_do_users;
- this.do_whois=IRCClient_do_whois;
- this.global=IRCClient_global;
- this.globops=IRCClient_globops;
- this.lusers=IRCClient_lusers;
- this.motd=IRCClient_motd;
- this.names=IRCClient_names;
- this.part_all=IRCClient_part_all;
- this.server_notice=IRCClient_server_notice;
- this.services_msg=IRCClient_services_msg;
- this.trace_all_opers=IRCClient_trace_all_opers;
- // WHO
- this.do_basic_who=IRCClient_do_basic_who;
- this.do_complex_who=IRCClient_do_complex_who;
- this.do_who_usage=IRCClient_do_who_usage;
- this.match_who_mask=IRCClient_match_who_mask;
- // LIST
- this.do_basic_list=IRCClient_do_basic_list;
- this.do_complex_list=IRCClient_do_complex_list;
- this.do_list_usage=IRCClient_do_list_usage;
- // Global functions
- this.check_nickname=IRCClient_check_nickname;
- this.check_timeout=IRCClient_check_timeout;
- this.get_usermode=IRCClient_get_usermode;
- this.netsplit=IRCClient_netsplit;
- this.onchanwith=IRCClient_onchanwith;
- this.rmchan=IRCClient_RMChan;
- this.setusermode=IRCClient_setusermode;
- this.set_chanmode=IRCClient_set_chanmode;
- // Numerics
- this.numeric=IRCClient_numeric;
- this.numeric200=IRCClient_numeric200;
- this.numeric201=IRCClient_numeric201;
- this.numeric202=IRCClient_numeric202;
- this.numeric203=IRCClient_numeric203;
- this.numeric204=IRCClient_numeric204;
- this.numeric205=IRCClient_numeric205;
- this.numeric206=IRCClient_numeric206;
- this.numeric208=IRCClient_numeric208;
- this.numeric261=IRCClient_numeric261;
- this.numeric321=IRCClient_numeric321;
- this.numeric322=IRCClient_numeric322;
- this.numeric331=IRCClient_numeric331;
- this.numeric332=IRCClient_numeric332;
- this.numeric333=IRCClient_numeric333;
- this.numeric351=IRCClient_numeric351;
- this.numeric352=IRCClient_numeric352;
- this.numeric353=IRCClient_numeric353;
- this.numeric382=IRCClient_numeric382;
- this.numeric391=IRCClient_numeric391;
- this.numeric401=IRCClient_numeric401;
- this.numeric402=IRCClient_numeric402;
- this.numeric403=IRCClient_numeric403;
- this.numeric411=IRCClient_numeric411;
- this.numeric412=IRCClient_numeric412;
- this.numeric440=IRCClient_numeric440;
- this.numeric441=IRCClient_numeric441;
- this.numeric442=IRCClient_numeric442;
- this.numeric445=IRCClient_numeric445;
- this.numeric446=IRCClient_numeric446;
- this.numeric451=IRCClient_numeric451;
- this.numeric461=IRCClient_numeric461;
- this.numeric462=IRCClient_numeric462;
- this.numeric481=IRCClient_numeric481;
- this.numeric482=IRCClient_numeric482;
- // Getters
- this.nuh getter = function() {
- return(this.nick + "!" + this.uprefix + "@" + this.hostname);
- };
-}
-
-////////// Command Parser //////////
-function User_Work() {
- var cmdline;
- var cmd;
- var command;
-
- if (!this.socket.is_connected) {
- this.quit("Connection reset by peer");
- return 0;
- }
-
- cmdline=this.socket.recvline(4096,0)
-
- if (!cmdline)
- return 0;
-
- // Only accept up to 512 bytes from clients as per RFC1459.
- cmdline = cmdline.slice(0,512);
- // Kludge for broken clients.
- if ((cmdline[0] == "\r") || (cmdline[0] == "\n"))
- cmdline = cmdline.slice(1);
- if (debug)
- log(format("[%s<-%s]: %s",servername,this.nick,cmdline));
- cmd = cmdline.split(" ");
- if (cmdline[0] == ":") {
- // Silently ignore NULL originator commands.
- if (!cmd[1])
- return 0;
- // if :<originator> doesn't match nick of originating
- // socket, drop silently per RFC.
- if (cmd[0].slice(1).toUpperCase() != this.nick.toUpperCase())
- return 0;
- command = cmd[1].toUpperCase();
- cmdline = cmdline.slice(cmdline.indexOf(" ")+1);
- // resplit cmd[]
- cmd = cmdline.split(" ");
- } else {
- command = cmd[0].toUpperCase();
- }
-
- // Ignore possible numerics from clients.
- if (command.match(/^[0-9]+/))
- return 0;
-
- this.idletime = time();
-
- switch (command) {
- // RFC1459 states that we must reply to a PING as fast as
- // possible, which is why this is on top.
- case "PING":
- if (!cmd[1]) {
- this.numeric(409,":No origin specified.");
- break;
- }
- if (cmd[2]) {
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- var dest_server = searchbyserver(cmd[2]);
- if (!dest_server) {
- this.numeric402(cmd[2]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " PING " + this.nick + " :" + cmd[2]);
- break;
- }
- }
- this.ircout("PONG " + servername + " :" + cmd[1]);
- break;
- case "ADMIN":
- if (cmd[1]) {
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " ADMIN :" + dest_server.nick);
- break;
- }
- }
- this.do_admin();
- break;
- case "AWAY":
- if (cmd[1] && (cmd[1] != ":") ) {
- this.away=IRC_string(cmdline).slice(0,80);
- this.numeric(306, ":You have been marked as being away.");
- this.bcast_to_servers("AWAY :" + this.away);
- } else {
- this.away="";
- this.numeric(305, ":You are no longer marked as being away.");
- this.bcast_to_servers("AWAY");
- }
- break;
- case "CHATOPS":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_CHATOPS))) {
- this.numeric481();
- break;
- }
- umode_notice(USERMODE_CHATOPS,"ChatOps","from " +
- this.nick + ": " + IRC_string(cmdline));
- server_bcast_to_servers(":" + this.nick + " CHATOPS :"+
- IRC_string(cmdline));
- break;
- case "CONNECT":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_LSQUITCON) )) {
- this.numeric481();
- break;
- }
- if (!cmd[1]) {
- this.numeric461("CONNECT");
- break;
- }
- if (cmd[3]) {
- var dest_server = searchbyserver(cmd[3]);
- if (!dest_server) {
- this.numeric402(cmd[3]);
- break;
- } else if (dest_server != -1) {
- if (!(this.flags&OLINE_CAN_GSQUITCON)) {
- this.numeric481();
- break;
- }
- dest_server.rawout(":" + this.nick + " CONNECT " + cmd[1] + " " + cmd[2] + " " + dest_server.nick);
- break;
- }
- }
- this.do_connect(cmd[1],cmd[2]);
- break;
- case "DEBUG":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_DEBUG))) {
- this.numeric481();
- break;
- }
- if (!cmd[1]) {
- this.server_notice("Usage:");
- this.server_notice(" DEBUG D - Toggle DEBUG mode on/off");
- this.server_notice(" DEBUG E <exp> - Evaluate a Javascript expression.");
- this.server_notice(" DEBUG Y <val> - Set yield frequency to <val>");
- this.server_notice(" DEBUG U - Dump all users stored in mem");
- this.server_notice(" DEBUG C - Dump all channels stored in mem");
- break;
- }
- switch (cmd[1][0].toUpperCase()) {
- case "C":
- for (mychan in Channels) {
- this.server_notice(Channels[mychan].nam+","+Channels[mychan].mode+","+Channels[mychan].users);
- }
- break;
- case "D":
- if (debug) {
- debug=false;
- umode_notice(USERMODE_OPER,"Notice","Debug mode disabled by " + this.nuh);
- } else {
- debug=true;
- umode_notice(USERMODE_OPER,"Notice","Debug mode enabled by " + this.nuh);
- }
- break;
- case "E":
- cmd.shift();
- cmd.shift();
- var exp = cmd.join(" ");
- umode_notice(USERMODE_DEBUG,"Debug",
- "Oper " + this.nick +
- " is using EVAL: " + exp);
- try {
- this.server_notice("Result: " +
- eval(exp));
- } catch(e) {
- this.server_notice("!" + e);
- }
- break;
- case "U":
- for (myuser in Users) {
- var usr = Users[myuser];
- this.server_notice(usr.nick+","+usr.local+","+usr.parent+","+usr.id);
- }
- break;
- case "Y":
- if (cmd[2]) {
- umode_notice(USERMODE_DEBUG,"Debug","branch.yield_freq set to " + cmd[2] + " by " + this.nuh);
- branch.yield_freq = parseInt(cmd[2]);
- }
- break;
- default:
- this.server_notice("Unknown DEBUG flag.");
- }
- break;
- case "DIE":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_DIE))) {
- this.numeric481();
- break;
- }
- if (diepass && !cmd[1]) {
- this.numeric461("DIE");
- break;
- } else if (diepass && (cmd[1] != diepass)) {
- this.server_notice("Invalid DIE password.");
- break;
- }
- log("!ERROR! Shutting down the ircd as per " + this.nuh);
- js.terminated = true;
- break;
- case "ERROR":
- break; // silently ignore
- case "GLOBOPS":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_GLOBOPS))) {
- this.numeric481();
- break;
- }
- if (!cmd[1]) {
- this.numeric461("GLOBOPS");
- break;
- }
- this.globops(IRC_string(cmdline));
- break;
- case "INFO":
- if (cmd[1]) {
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " INFO :" + dest_server.nick);
- break;
- }
- }
- this.do_info();
- break;
- case "INVITE":
- if (!cmd[2]) {
- this.numeric461("INVITE");
- break;
- }
- var chanid = Channels[cmd[2].toUpperCase()];
- if (!chanid) {
- this.numeric403(cmd[2]);
- break;
- }
- if (!chanid.modelist[CHANMODE_OP][this.id]) {
- this.numeric482(chanid.nam);
- break;
- }
- var nickid = Users[cmd[1].toUpperCase()];
- if (!nickid) {
- this.numeric401(cmd[1]);
- break;
- }
- if (nickid.channels[chanid.toUpperCase()]) {
- this.numeric(443, nickid.nick + " " + chanid.nam + " :is already on channel.");
- break;
- }
- this.numeric("341", nickid.nick + " " + chanid.nam);
- nickid.originatorout("INVITE " + nickid.nick + " :" + chanid.nam,this);
- nickid.invited=chanid.nam.toUpperCase();
- break;
- case "ISON":
- if (!cmd[1])
- break; // drop silently
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var isonstr = ":";
- var ison_nick_id;
- cmd.shift(); // get rid of command
- for(ison in cmd) {
- ison_nick_id = Users[cmd[ison].toUpperCase()];
- if (ison_nick_id) {
- if (isonstr != ":")
- isonstr += " ";
- isonstr += ison_nick_id.nick;
- }
- }
- this.numeric("303", isonstr);
- break;
- case "JOIN":
- if (!cmd[1]) {
- this.numeric461("JOIN");
- break;
- }
- if (cmd[1][0] == ":")
- cmd[1]=cmd[1].slice(1);
- var the_channels = cmd[1].split(",");
- var the_keys = "";
- if (cmd[2])
- the_keys = cmd[2].split(",");
- var key_counter = 0;
- for(jchan in the_channels) {
- var regexp = "^[0]{1,}$"; //0 is a special case
- if(the_channels[jchan].match(regexp)) {
- this.part_all();
- } else {
- if (Channels[the_channels[jchan].toUpperCase()] && the_keys[key_counter] && (Channels[the_channels[jchan].toUpperCase()].mode&CHANMODE_KEY)) {
- this.do_join(the_channels[jchan].slice(0,max_chanlen),the_keys[key_counter])
- key_counter++;
- } else {
- this.do_join(the_channels[jchan].slice(0,max_chanlen),"");
- }
- }
- }
- break;
- case "KICK":
- if (!cmd[2]) {
- this.numeric461("KICK");
- break;
- }
- var chanid = Channels[cmd[1].toUpperCase()];
- if (!chanid) {
- this.numeric403(cmd[1]);
- break;
- }
- if (!chanid.modelist[CHANMODE_OP][this.id]) {
- this.numeric482(chanid.nam);
- break;
- }
- var nickid = Users[cmd[2].toUpperCase()];
- if (!nickid) {
- nickid = search_nickbuf(cmd[2]);
- if (!nickid) {
- this.numeric401(cmd[2]);
- break;
- }
- }
- if (!nickid.channels[chanid.nam.toUpperCase()]) {
- this.numeric(441, nickid.nick + " " + chanid.nam + " :They aren't on that channel!");
- break;
- }
- var kick_reason;
- if (cmd[3])
- kick_reason = IRC_string(cmdline).slice(0,max_kicklen);
- else
- kick_reason = this.nick;
- var str = "KICK " + chanid.nam + " " + nickid.nick + " :" + kick_reason;
- this.bcast_to_channel(chanid, str, true);
- this.bcast_to_servers(str);
- nickid.rmchan(chanid);
- break;
- case "KILL":
- if (!(this.mode&USERMODE_OPER) ||
- !(this.flags&OLINE_CAN_LKILL)) {
- this.numeric481();
- break;
- }
- if (!cmd[2]) {
- this.numeric461("KILL");
- break;
- }
- if (cmd[1].match(/[.]+/)) {
- this.numeric(483, ":You can't kill a server!");
- break;
- }
- if (cmd[2] == ":") {
- this.numeric(461, "KILL :You MUST specify a reason for /KILL.");
- break;
- }
- var reason = IRC_string(cmdline);
- var kills = cmd[1].split(",");
- var target;
- for(kill in kills) {
- target = Users[kills[kill].toUpperCase()];
- if (!target)
- target = search_nickbuf(kills[kill]);
- if (!target) {
- this.numeric401(kills[kill]);
- continue;
- }
- if (target.local) {
- target.quit("Local kill by " + this.nick + " (" + reason + ")");
- } else {
- if (!(this.flags&OLINE_CAN_GKILL)) {
- this.numeric481();
- continue;
- }
- var trg_srv = searchbyserver(target.servername);
- if (trg_srv && trg_srv.uline) {
- this.numeric(483, ":You may not KILL clients on a U:Lined server.");
- continue;
- }
- server_bcast_to_servers(":" + this.nick + " KILL " + target.nick + " :" + reason);
- target.quit("Killed (" + this.nick + " (" + reason + "))",true);
- }
- }
- break;
- case "KLINE":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_KLINE))) {
- this.numeric481();
- break;
- }
- if (!cmd[2]) {
- this.numeric461("KLINE");
- break;
- }
- var kline_mask = create_ban_mask(cmd[1],true);
- if (!kline_mask) {
- this.server_notice("Invalid K:Line mask.");
- break;
- }
- if (isklined(kline_mask)) {
- this.server_notice("K:Line already exists!");
- break;
- }
- KLines.push(new KLine(kline_mask,IRC_string(cmdline),"k"));
- umode_notice(USERMODE_OPER,"Notice", this.nick +
- " added temporary 99 min. k-line for [" +
- kline_mask + "] [0]");
- scan_for_klined_clients();
- break;
- case "UNKLINE":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_UNKLINE))) {
- this.numeric481();
- break;
- }
- if (!cmd[1]) {
- this.numeric461("UNKLINE");
- break;
- }
- var kline_mask = create_ban_mask(cmd[1],true);
- if (!kline_mask) {
- this.server_notice("Invalid K:Line mask.");
- break;
- }
- if (!isklined(kline_mask)) {
- this.server_notice("No such K:Line.");
- break;
- }
- remove_kline(kline_mask);
- umode_notice(USERMODE_OPER,"Notice", this.nick +
- " has removed the K-Line for: [" +
- kline_mask + "] (1 matches)");
- break;
- case "LINKS":
- if (!cmd[1]) { // *
- this.do_links();
- break;
- } else if (cmd[2]) { // <remote-server> <mask>
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " LINKS " + dest_server.nick + " " + cmd[2]);
- break;
- }
- } else if (cmd[1]) { // <mask>
- this.do_links(cmd[1]);
- break;
- }
- break;
- case "LIST":
- if (!cmd[1]) {
- this.do_basic_list("*");
- break;
- }
- if (cmd[1] == "?") {
- this.do_list_usage();
- break;
- }
- if (!cmd[2] && (cmd[1][0]!="+") && (cmd[1][0]!="-")) {
- this.do_basic_list(cmd[1]);
- break;
- }
- this.do_complex_list(cmd);
- break;
- case "LOCOPS":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_LOCOPS))) {
- this.numeric481();
- break;
- }
- umode_notice(USERMODE_OPER,"LocOps","from " +
- this.nick + ": " + IRC_string(cmdline));
- break;
- case "LUSERS":
- this.lusers();
- break;
- case "MODE":
- var chan;
-
- if (!cmd[1])
- break; // silently ignore
- if (!cmd[2]) {
- // information only
- if ((cmd[1][0] == "#") || (cmd[1][0] == "&")) {
- var chan = Channels[cmd[1].toUpperCase()];
- if (chan) {
- var fullmodes = false;
- if (this.channels[chan.nam.toUpperCase()])
- fullmodes = true;
- this.numeric(324, chan.nam + " " + chan.chanmode(fullmodes));
- this.numeric(329, chan.nam + " " + chan.created);
- break;
- } else {
- this.numeric401(cmd[1]);
- break;
- }
- } else {
- // getting my umode
- if (cmd[1].toUpperCase() ==
- this.nick.toUpperCase())
- this.numeric(221, this.get_usermode());
- else if (Users[cmd[1].toUpperCase()])
- this.numeric(502, ":Can't view mode for other users.");
- else
- this.numeric401(cmd[1]);
- break;
- }
- } else {
- if ((cmd[1][0] == "#") || (cmd[1][0] == "&")) {
- var chan = Channels[cmd[1].toUpperCase()];
- if (!chan) {
- this.numeric403(cmd[1]);
- break;
- }
- cmd.shift();
- cmd.shift();
- var modeline = cmd.join(" ");
- this.set_chanmode(chan,modeline,false);
- } else if (cmd[1].toUpperCase() == this.nick.toUpperCase()) {
- this.setusermode(cmd[2]);
- } else {
- this.numeric(502, ":Can't change mode for other users.");
- }
- }
- break;
- case "MOTD":
- if (cmd[1]) {
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " MOTD :" + dest_server.nick);
- break;
- }
- }
- umode_notice(USERMODE_SPY,"Spy","MOTD requested by " +
- this.nick + " (" + this.uprefix + "@" +
- this.hostname + ") [" + this.servername + "]");
- this.motd();
- break;
- case "NAMES":
- var numnicks;
- var tmp;
- var chan;
- var Client;
-
- if (!cmd[1]) {
- for(tc in Channels) {
- chan = Channels[tc];
- if (!(tc.mode&CHANMODE_SECRET) &&
- !(tc.mode&CHANMODE_PRIVATE))
- this.names(chan);
- }
- numnicks = 0;
- tmp = "";
- for (thisClient in Users) {
- Client = Users[thisClient];
- if (!true_array_len(Client.channels) &&
- !(Client.mode&USERMODE_INVISIBLE)) {
- if (numnicks)
- tmp += " ";
- tmp += Client.nick;
- numnicks++;
- if (numnicks >= 59) {
- this.numeric(353,"* * :"+tmp);
- numnicks = 0;
- tmp = "";
- }
- }
- }
- if (numnicks)
- this.numeric(353,"* * :"+tmp);
- this.numeric(366, "* :End of /NAMES list.");
- } else {
- chans = cmd[1].split(',');
- for (nc in chans) {
- if ((chans[nc][0] == "#") ||
- (chans[nc][0] == "&")) {
- chan = Channels[chans[nc].toUpperCase()];
- if (chan) {
- this.names(chan);
- } else {
- this.numeric401(chans[nc]);
- break;
- }
- } else {
- this.numeric403(chans[nchan]);
- break;
- }
- }
- this.numeric(366, chan.nam + " :End of /NAMES list.");
- }
- break;
- case "NICK":
- var the_nick;
-
- if (!cmd[1]) {
- this.numeric(431, ":No nickname given.");
- break;
- }
- the_nick = IRC_string(cmd[1]).slice(0,max_nicklen);
- if(this.check_nickname(the_nick)) {
- var str="NICK " + the_nick;
- this.bcast_to_uchans_unique(str);
- this.originatorout(str,this);
- this.created = time();
- this.bcast_to_servers(str + " :" + this.created);
- push_nickbuf(this.nick,the_nick);
- // move our Users entry over.
- Users[the_nick.toUpperCase()] = this;
- delete Users[this.nick.toUpperCase()];
- // finalize
- this.nick = the_nick;
- }
- break;
- case "NOTICE":
- if (!cmd[1]) {
- this.numeric411("NOTICE");
- break;
- }
- var my_ircstr = IRC_string(cmdline);
- if ( !cmd[2] || ( !cmd[3] && (
- (cmd[2] == ":") && (my_ircstr == "")
- ) ) ) {
- this.numeric412();
- break;
- }
- var targets = cmd[1].split(',');
- for (nt in targets) {
- this.do_msg(targets[nt],"NOTICE",my_ircstr);
- }
- break;
- case "OPER":
- if (!cmd[2]) {
- this.numeric461(command);
- break;
- }
- if (this.mode&USERMODE_OPER) {
- this.server_notice("You're already an IRC operator.");
- break;
- }
- var oper_success = false;
- for (ol in OLines) {
- if(((cmd[1].toUpperCase() ==
- OLines[ol].nick.toUpperCase()) &&
- (IRC_match(this.uprefix + "@" +
- this.hostname,OLines[ol].hostmask)) &&
- (cmd[2] == OLines[ol].password) &&
- !(OLines[ol].flags&OLINE_CHECK_SYSPASSWD))
- ||
- ((OLines[ol].flags&OLINE_CHECK_SYSPASSWD) &&
- system.check_syspass(cmd[2]) )
- ) {
- oper_success=true;
- this.ircclass = OLines[ol].ircclass;
- this.flags = OLines[ol].flags;
- break;
- }
- }
- if (!oper_success) {
- this.numeric(491, ":No O:Lines for your host. Attempt logged.");
- umode_notice(USERMODE_OPER,"Notice","Failed OPER attempt by " + this.nick + " (" + this.uprefix + "@" + this.hostname + ")");
- break;
- }
- // otherwise we succeeded.
- this.numeric(381, ":You are now an IRC operator.");
- this.mode|=USERMODE_OPER;
- this.rawout(":" + this.nick + " MODE " + this.nick + " +o");
- umode_notice(USERMODE_SERVER,"Notice",
- this.nick + " (" + this.uprefix +
- "@" + this.hostname + ") " +
- "is now operator (O)");
- if (OLines[ol].flags&OLINE_IS_GOPER)
- this.bcast_to_servers("MODE "+ this.nick +" +o");
- break;
- case "PART":
- var the_channels;
-
- if (!cmd[1]) {
- this.numeric461("PART");
- break;
- }
- the_channels = cmd[1].split(",");
- for(pchan in the_channels) {
- this.do_part(the_channels[pchan]);
- }
- break;
- case "PASS":
- case "USER":
- this.numeric462();
- break;
- case "PONG":
- if (cmd[2]) {
- var dest_server = searchbyserver(cmd[2]);
- if (!dest_server) {
- this.numeric402(cmd[2]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " PONG " + cmd[1] + " " + dest_server.nick);
- break;
- }
- }
- this.pinged = false;
- break;
- case "PRIVMSG":
- if (!cmd[1]) {
- this.numeric411("PRIVMSG");
- break;
- }
- var my_ircstr = IRC_string(cmdline);
- if ( !cmd[2] || ( !cmd[3] && (
- (cmd[2] == ":") && (my_ircstr == "")
- ) ) ) {
- this.numeric412();
- break;
- }
- var targets = cmd[1].split(',');
- for (pm in targets) {
- this.do_msg(targets[pm],"PRIVMSG",my_ircstr);
- }
- this.talkidle = time();
- break;
- case "QUIT":
- this.quit(IRC_string(cmdline));
- break;
- case "REHASH":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_REHASH))) {
- this.numeric481();
- break;
- }
- if (cmd[1]) {
- switch(cmd[1].toUpperCase()) {
- case "TKLINES":
- this.numeric382("temp klines");
- umode_notice(USERMODE_SERVER,"Notice",this.nick + " is clearing temp klines while whistling innocently");
- for (kl in KLines) {
- if(KLines[kl].type ==
- "k")
- delete KLines[kl];
- }
- break;
- case "GC":
- if (js.gc!=undefined) {
- this.numeric382("garbage collecting");
- umode_notice(USERMODE_SERVER,"Notice",this.nick + " is garbage collecting while whistling innocently");
- js.gc();
- }
- break;
- case "AKILLS":
- this.numeric382("akills");
- umode_notice(USERMODE_SERVER,"Notice",this.nick + " is rehashing akills");
- for (kl in KLines) {
- if(KLines[kl].type ==
- "A")
- delete KLines[kl];
- }
- break;
- default:
- break;
- }
- } else {
- this.numeric382("Rehashing.");
- umode_notice(USERMODE_SERVER,"Notice",this.nick +
- " is rehashing Server config file while " +
- "whistling innocently");
- read_config_file();
- }
- break;
- case "RESTART":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_RESTART))) {
- this.numeric481();
- break;
- }
- if (restartpass && !cmd[1]) {
- this.numeric461("RESTART");
- break;
- } else if (restartpass && (cmd[1] != restartpass)) {
- this.server_notice("Invalid RESTART password.");
- break;
- }
- var rs_str = "Aieeeee!!! Restarting server...";
- umode_notice(USERMODE_SERVER,"Notice",rs_str);
- terminate_everything(rs_str);
- break;
- case "SQUIT":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_LSQUITCON))) {
- this.numeric481();
- break;
- }
- if(!cmd[1])
- break;
- var sq_server = searchbyserver(cmd[1]);
- if(!sq_server) {
- this.numeric402(cmd[1]);
- break;
- }
- var reason = IRC_string(cmdline);
- if (!reason)
- reason = this.nick;
- if (sq_server == -1) {
- this.quit(reason);
- break;
- }
- if (!sq_server.local) {
- if (!(this.flags&OLINE_CAN_GSQUITCON)) {
- this.numeric481();
- break;
- }
- sq_server.rawout(":" + this.nick + " SQUIT " + sq_server.nick + " :" + reason);
- break;
- }
- umode_notice(USERMODE_ROUTING,"Routing","from " +
- servername + ": Received SQUIT " + cmd[1] +
- " from " + this.nick + "[" + this.uprefix +
- "@" + this.hostname + "] (" + reason + ")");
- sq_server.quit(reason);
- break;
- case "STATS":
- if(!cmd[1])
- break;
- if (cmd[2]) {
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- var dest_server = searchbyserver(cmd[2]);
- if (!dest_server) {
- this.numeric402(cmd[2]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " STATS " + cmd[1][0] + " :" + dest_server.nick);
- break;
- }
- }
- this.do_stats(cmd[1][0]);
- break;
- case "SUMMON":
- if(!cmd[1]) {
- this.numeric411("SUMMON");
- break;
- }
- if (cmd[2]) {
- if (cmd[2][0] == ":")
- cmd[2] = cmd[2].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[2]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " SUMMON " + cmd[1] + " :" + dest_server.nick);
- break;
- }
- }
- if(!enable_users_summon) {
- this.numeric445();
- break;
- }
- this.do_summon(cmd[1]);
- break;
- case "TIME":
- if (cmd[1]) {
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " TIME :" + dest_server.nick);
- break;
- }
- }
- this.numeric391();
- break;
- case "TOPIC":
- if (!cmd[1]) {
- this.numeric461("TOPIC");
- break;
- }
- var chanid = Channels[cmd[1].toUpperCase()];
- if (!chanid) {
- this.numeric403(cmd[1]);
- break;
- }
- if (!this.channels[chanid.nam.toUpperCase()]) {
- this.numeric442(chanid.nam);
- break;
- }
- if (cmd[2]) {
- if (!(chanid.mode&CHANMODE_TOPIC) ||
- chanid.modelist[CHANMODE_OP][this.id]) {
- var tmp_topic = IRC_string(cmdline).slice(0,max_topiclen);
- if (tmp_topic == chanid.topic)
- break;
- chanid.topic = tmp_topic;
- chanid.topictime = time();
- chanid.topicchangedby = this.nick;
- var str = "TOPIC " + chanid.nam + " :" + chanid.topic;
- this.bcast_to_channel(chanid, str, true);
- this.bcast_to_servers("TOPIC " + chanid.nam + " " + this.nick + " " + chanid.topictime + " :" + chanid.topic);
- } else {
- this.numeric482(chanid.nam);
- }
- } else { // we're just looking at one
- if (chanid.topic) {
- this.numeric332(chanid);
- this.numeric333(chanid);
- } else {
- this.numeric331(chanid);
- }
- }
- break;
- case "TRACE":
- if (cmd[1]) {
- this.do_trace(cmd[1]);
- } else { // no args? pass our servername as the target
- this.do_trace(servername);
- }
- break;
- case "USERS":
- if (cmd[1]) {
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " USERS :" + dest_server.nick);
- break;
- }
- }
- if (!enable_users_summon) {
- this.numeric446();
- break;
- }
- this.do_users();
- break;
- case "USERHOST":
- var uhnick;
- var uh;
- var uhstr = "";
- var uh_argcount;
-
- if (!cmd[1]) {
- this.numeric461("USERHOST");
- break;
- }
-
- if (cmd.length > 6)
- uh_argcount = 6;
- else
- uh_argcount = cmd.length;
-
- for (uh=1 ; uh < uh_argcount ; uh++) {
- uhnick = Users[cmd[uh].toUpperCase()];
- if (uhnick) {
- if (uhstr)
- uhstr += " ";
- uhstr += uhnick.nick;
- if (uhnick.mode&USERMODE_OPER)
- uhstr += "*";
- uhstr += "=";
- if (uhnick.away)
- uhstr += "-";
- else
- uhstr += "+";
- uhstr += uhnick.uprefix;
- uhstr += "@";
- uhstr += uhnick.hostname;
- }
- }
- this.numeric(302, ":" + uhstr);
- break;
- case "VERSION":
- if (cmd[1]) {
- if (cmd[1][0] == ":")
- cmd[1] = cmd[1].slice(1);
- var dest_server = searchbyserver(cmd[1]);
- if (!dest_server) {
- this.numeric402(cmd[1]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " VERSION :" + dest_server.nick);
- break;
- }
- }
- this.numeric351();
- break;
- case "WALLOPS":
- if (!((this.mode&USERMODE_OPER) &&
- (this.flags&OLINE_CAN_WALLOPS))) {
- this.numeric481();
- break;
- }
- if (!cmd[1]) {
- this.numeric461("WALLOPS");
- break;
- }
- wallopers(":" + this.nuh + " WALLOPS :" + IRC_string(cmdline));
- server_bcast_to_servers(":" + this.nick + " WALLOPS :" + IRC_string(cmdline));
- break;
- case "WHO":
- if (!cmd[1]) {
- this.do_who_usage();
- break;
- }
- if (cmd[1] == "?") {
- this.do_who_usage();
- break;
- }
- if (cmd[2] || (cmd[1][0] == "-")||(cmd[1][0] == "+"))
- this.do_complex_who(cmd);
- else
- this.do_basic_who(cmd[1]);
- break;
- case "WHOIS":
- if (!cmd[1]) {
- this.numeric(431, ":No nickname given.");
- break;
- }
- if (cmd[2]) {
- var dest_server = searchbyserver(cmd[2]);
- if (!dest_server) {
- this.numeric402(cmd[2]);
- break;
- }
- if (dest_server != -1) {
- dest_server.rawout(":" + this.nick + " WHOIS " + cmd[1] + " " + dest_server.nick);
- break;
- }
- }
- var wi_nicks = cmd[1].split(",");
- for (wi_nick in wi_nicks) {
- var wi = Users[wi_nicks[wi_nick].toUpperCase()];
- if (wi)
- this.do_whois(wi);
- else
- this.numeric401(wi_nicks[wi_nick]);
- }
- this.numeric(318, wi_nicks[0]+" :End of /WHOIS list.");
- break;
- case "WHOWAS":
- if (!cmd[1]) {
- this.numeric(431, ":No nickname given.");
- break;
- }
- var firstnick="";
- var aWhoWas;
- for (aWhoWas=whowas_pointer;aWhoWas>=0;aWhoWas--) {
- var wwh = WhoWasHistory[aWhoWas];
- if (wwh && (wwh.nick.toUpperCase() ==
- cmd[1].toUpperCase())) {
- this.numeric(314,wwh.nick + " " + wwh.uprefix + " " + wwh.host + " * :" + wwh.realname);
- this.numeric(312,wwh.nick + " " + wwh.server + " :" + wwh.serverdesc);
- if (!firstnick)
- firstnick = wwh.nick;
- }
- }
- for (aWhoWas=whowas_buffer;aWhoWas>=whowas_pointer;aWhoWas--) {
- var wwh = WhoWasHistory[aWhoWas];
- if (wwh && (wwh.nick.toUpperCase() ==
- cmd[1].toUpperCase())) {
- this.numeric(314,wwh.nick + " " + wwh.uprefix + " " + wwh.host + " * :" + wwh.realname);
- this.numeric(312,wwh.nick + " " + wwh.server + " :" + wwh.serverdesc);
- if (!firstnick)
- firstnick = wwh.nick;
- }
- }
- if (!firstnick) {
- this.numeric(406,cmd[1] + " :There was no such nickname.");
- firstnick = cmd[1];
- }
- this.numeric(369,firstnick+" :End of /WHOWAS command.");
- break;
- // Services Helper Commands...
- case "CS":
- case "CHANSERV":
- if (!cmd[1]) {
- this.numeric412();
- break;
- }
- var str = cmdline.slice(cmdline.indexOf(" ")+1);
- if (str[0] == ":")
- str = str.slice(1);
- this.services_msg("ChanServ",str);
- break;
- case "NS":
- case "NICKSERV":
- if (!cmd[1]) {
- this.numeric412();
- break;
- }
- var str = cmdline.slice(cmdline.indexOf(" ")+1);
- if (str[0] == ":")
- str = str.slice(1);
- this.services_msg("NickServ",str);
- break;
- case "MS":
- case "MEMOSERV":
- if (!cmd[1]) {
- this.numeric412();
- break;
- }
- var str = cmdline.slice(cmdline.indexOf(" ")+1);
- if (str[0] == ":")
- str = str.slice(1);
- this.services_msg("MemoServ",str);
- break;
- case "OS":
- case "OPERSERV":
- if (!cmd[1]) {
- this.numeric412();
- break;
- }
- var str = cmdline.slice(cmdline.indexOf(" ")+1);
- if (str[0] == ":")
- str = str.slice(1);
- this.services_msg("OperServ",str);
- break;
- case "HELP":
- case "HS":
- case "HELPSERV":
- var str;
- if (!cmd[1]) {
- str = "HELP";
- } else {
- str = cmdline.slice(cmdline.indexOf(" ")+1);
- if (str[0] == ":")
- str = str.slice(1);
- }
- this.services_msg("HelpServ",str);
- break;
- case "IDENTIFY":
- if (!cmd[1]) {
- this.numeric412();
- break;
- }
- var str = cmdline.slice(cmdline.indexOf(" ")+1);
- if (str[0] == ":")
- str = str.slice(1);
- if (cmd[1][1] == "#")
- var services_target = "ChanServ";
- else
- var services_target = "NickServ";
- this.services_msg(services_target,"IDENTIFY " + str);
- break;
- default:
- this.numeric("421", command + " :Unknown command.");
- break;
- }
-}
-
-function User_Quit(str,suppress_bcast,is_netsplit,origin) {
- if (!str)
- str = this.nick;
-
- var tmp = "QUIT :" + str;
- this.bcast_to_uchans_unique(tmp);
- for(thisChannel in this.channels) {
- this.rmchan(this.channels[thisChannel]);
- }
- if (whowas_pointer >= whowas_buffer)
- whowas_pointer = 0;
- if (!this.parent)
- ww_serverdesc = serverdesc;
- else
- ww_serverdesc = Servers[this.parent.toLowerCase()].info;
- WhoWasHistory[whowas_pointer] = new WhoWas(this.nick,this.uprefix,this.hostname,this.realname,this.servername,ww_serverdesc);
- whowas_pointer++;
- if (!suppress_bcast)
- this.bcast_to_servers(tmp);
-
- if (this.local) {
- if(server.client_remove!=undefined)
- server.client_remove(this.socket);
- this.rawout("ERROR :Closing Link: [" + this.uprefix + "@" + this.hostname + "] (" + str + ")");
- umode_notice(USERMODE_CLIENT,"Client","Client exiting: " +
- this.nick + " (" + this.uprefix + "@" + this.hostname +
- ") [" + str + "] [" + this.ip + "]");
- if (this.socket!=undefined)
- this.socket.close();
- }
-
- delete Local_Sockets[this.id];
- delete Local_Sockets_Map[this.id];
- delete Local_Users[this.id];
- delete Users[this.nick.toUpperCase()];
- delete this;
- rebuild_socksel_array = true;
-}
-
diff --git a/exec/load/irclib.js b/exec/load/irclib.js
deleted file mode 100644
index f7e52f63d4c05e3ec29a2c900cb2d42c56e53498..0000000000000000000000000000000000000000
--- a/exec/load/irclib.js
+++ /dev/null
@@ -1,229 +0,0 @@
-// $Id$
-//
-// irclib.js
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details:
-// http://www.gnu.org/licenses/gpl.txt
-//
-// A library of useful IRC functions and objects that can be used to assist
-// in the creation of IRC clients, bots, servers, or custom shells.
-//
-// If you use this to create something neat, let me know about it! :)
-// Either email, or find me on #synchronet, irc.synchro.net, nick 'Cyan'
-//
-// Copyright 2003 Randolph Erwin Sommerfeld <sysop@rrx.ca>
-//
-
-const IRCLIB_REVISION = "$Revision$".split(' ')[1];
-const IRCLIB_VERSION = "irclib.js-" + IRCLIB_REVISION;
-
-// Connect to a server as a client.
-// hostname Hostname to connect to
-// nick Desired nickname
-// username Desired username (i.e. username@host) [RECOMMENDED]
-// realname Desired IRCname field [RECOMMENDED]
-// port Port to connect to [OPTIONAL]
-// password Password to use (if applicable) [OPTIONAL]
-// RETURNS: socket object on success, 0 on failure.
-function IRC_client_connect(hostname,nick,username,realname,port,password) {
- var sock;
-
- if (!port)
- port = 6667;
- if (!username)
- username = "irclib";
- if (!realname)
- realname = IRCLIB_VERSION;
-
- sock = new Socket();
- sock.connect(hostname,port);
- if (sock.is_connected) {
- if (password)
- sock.send("PASS " + password + "\r\n");
- sock.send("NICK " + nick + "\r\n");
- sock.send("USER " + username + " * * :" + realname + "\r\n");
- return sock;
- } else {
- return 0;
- }
-}
-
-// Connect to a server as a server
-// hostname Hostname to connect to
-// servername Desired server name
-// password Password to use [REQUIRED]
-// description Description of IRC server (realname) [RECOMMENDED]
-// port Port to connect to [OPTIONAL]
-// RETURNS: socket object on success, 0 on failure.
-function IRC_server_connect(hostname,servername,password,description,port) {
- var sock;
-
- if (!port)
- port = 6667;
- if (!description)
- description = IRCLIB_VERSION;
-
- sock = new Socket();
- sock.connect(hostname,port);
- if (sock.is_connected) {
- sock.send("PASS " + password + "\r\n");
- sock.send("SERVER " + servername + " 1 :" +description+"\r\n");
- return sock;
- } else {
- return 0;
- }
-}
-
-// Simply takes a string and returns the 'IRC string' (i.e. what's after a :)
-// Moves up to 'arg' argument before parsing, if defined.
-// RETURNS: The 'IRC string' of 'str'
-function IRC_string(str,arg) {
- var cindex;
-
- if (arg) {
- for(sw_counter=0;sw_counter<arg;sw_counter++) {
- str=str.slice(str.indexOf(" ")+1);
- }
- }
- cindex = str.indexOf(":")+1;
- if (!cindex)
- cindex = str.lastIndexOf(" ")+1;
- if (!cindex)
- return str;
- return(str.slice(cindex));
-}
-
-// Takes a string in and strips off the IRC originator, if applicable.
-// RETURNS: an array containing the command arguments, cmd[0] is the command,
-// uppercased.
-function IRC_parsecommand(str) {
- var cmd;
-
- if (str[0] == ":")
- str = str.slice(str.indexOf(" ")+1);
-
- if (!str)
- return 0; // nothing in the string!
-
- cmd = str.split(' ');
- cmd[0] = cmd[0].toUpperCase();
- return cmd;
-}
-
-// Quits from a server, regardless of whether we're connected as a client or
-// a server. 'server' must be a valid socket object which points to the
-// server in question. 'reason' is an optional QUIT message which displays
-// your reason for quitting.
-// RETURNS: void.
-function IRC_quit(server,reason) {
- if (!reason)
- reason = IRCLIB_VERSION;
-
- server.send("QUIT :" + reason + "\r\n");
-}
-
-// This function is intended to match against so-called "IRC wildcards", which
-// is a simple wildcarding syntax (* = match 0 or more characters, ? = always
-// match one character only.) The match is case insensitive.
-// EXAMPLE: IRC_match("cyan@weyland-yutani.net","*@weyland-yutani.net");
-// RETURNS: Same as Javascript match() (the matched string on success, or
-// false on failure)
-function IRC_match(mtchstr,mask) {
- var final_mask="^";
- mask=mask.replace(/[.]/g,"\\\.");
- mask=mask.replace(/[?]/g,".");
- mask=mask.replace(/[*]/g,".*?");
- final_mask=final_mask + mask + "$";
- return mtchstr.toUpperCase().match(final_mask.toUpperCase());
-}
-
-// This will create a 'default mask' when given a complete user@host string.
-// If the 'host' contains less than two dots, then it's returned verbatim,
-// but the 'user' portion is always prefixed with a *, and the ~ is lopped off.
-// Useful for creating access masks (for bots), or quick ban masks (for bans)
-// In the case of a ban, simply prefix the output with '*!' to get a valid ban.
-// ** This function is intelligent enough to strip off any 'Nick!' notation
-// before the user@host portion.
-// EXAMPLE: user@somehost.com -> *user@somehost.com
-// ~hello@something.cool.com -> *hello@*.cool.com
-// ~hi@whatever.com -> *hi@whatever.com
-// test@10.20.30.40 -> *test@10.20.30.*
-// RETURNS: The formatted mask in user@host form.
-function IRC_create_default_mask(uh) {
- if (uh.match(/[!]/))
- tmp = uh.slice(uh.indexOf("!")+1);
- var tmp = uh.split("@");
- if (tmp[0][0] == "~")
- tmp[0] = tmp[0].slice(1);
- tmp[0] = tmp[0].slice(0,9); // always make sure there's room.
- // Check to see if we're an IP address
- var last_quad = tmp[1].slice(tmp[1].lastIndexOf(".")+1);
- var uh_chopped;
- if (last_quad == parseInt(last_quad)) { //ip
- uh_chopped = tmp[1].slice(0,tmp[1].lastIndexOf(".")) + ".*";
- } else { //hostname
- uh_chopped = tmp[1].slice(tmp[1].indexOf(".")+1);
- if (uh_chopped.indexOf(".") == -1)
- uh_chopped = tmp[1];
- else
- uh_chopped = "*." + uh_chopped;
- }
- return "*" + tmp[0] + "@" + uh_chopped;
-}
-
-// Checks to see if a given nickname is a legal IRC nickname. Nickname
-// length is checked only if provided as an argument, otherwise it's ignored.
-// Remember, nickname length can differ per IRC network.
-// RETURNS: 1 on failure (nickname is illegal), 0 on success (nick is legal)
-function IRC_check_nick(nick,mnicklen) {
- if (mnicklen && (nick.length > mnicklen))
- return 1;
- var regexp="^[A-Za-z\{\}\`\^\_\|\\]\\[\\\\][A-Za-z0-9\-\{\}\`\^\_\|\\]\\[\\\\]*$";
- if (!nick.match(regexp))
- return 1;
- return 0;
-}
-
-// This will check to see if the host as passed is valid. This *only* checks
-// the hostname, not anything else (i.e. username, nickname)
-// Set 'wilds' to true if you also allow IRC wildcards to be in the hostname.
-// Set 'uh' to true if you're allowing '@' (as in, passing the full u@h)
-// Set 'nick' to true if passing the entire nick!user@host string
-// RETURNS: 1 on failure (illegal hostname), 0 on success (legal hostname)
-function IRC_check_host(host,wilds,uh,nick) {
- var regexp = "^[A-Za-z0-9\-\.";
- if (wilds)
- regexp += "\?\*";
- if (uh) {
- if (host.slice(host.indexOf("@")+1).indexOf("@") != -1)
- return 1; // only one @ allowed.
- regexp += "\@";
- }
- if (nick) {
- if (host.slice(host.indexOf("!")+1).indexOf("!") != -1)
- return 1; // only one ! allowed.
- regexp += "\!";
- }
- regexp += "]+$";
- if (!host.match(regexp))
- return 1;
- return 0;
-}
-
-// Splits a "nick!user@host" string into its three distinct parts.
-// RETURNS: An array containing nick in [0], user in [1], and host in [2].
-function IRC_split_nuh(str) {
- var tmp = new Array;
- tmp[0] = str.split("!")[0];
- tmp[1] = str.split("!")[1].split("@")[0];
- tmp[2] = str.split("@")[1];
- return tmp;
-}
diff --git a/exec/load/mailproc_util.js b/exec/load/mailproc_util.js
deleted file mode 100644
index 48e6e9345b2c5624fd59cd2391e4711546090d0b..0000000000000000000000000000000000000000
--- a/exec/load/mailproc_util.js
+++ /dev/null
@@ -1,26 +0,0 @@
-// mailproc_util.js
-
-// Utility functions for Synchronet external mail processors
-
-// $Id$
-
-// Parses raw RFC822-formatted messages for use with SMTP Mail Processors
-// Returns an array of header fields parsed from the msgtxt
-// msgtxt is an array of lines from the source (RFC822) message text
-function parse_msg_header(msgtxt)
-{
- var last_field;
- var hdr={};
-
- for(i in msgtxt) {
- if(msgtxt[i].length==0) // Header terminator
- break;
- var match = msgtxt[i].match(/(\S+)\s*:\s*(.*)/);
- if(match)
- hdr[last_field=match[1].toLowerCase()]=match[2];
- else if(last_field) // Folded header field
- hdr[last_field]+=msgtxt[i];
- }
-
- return(hdr);
-}
\ No newline at end of file
diff --git a/exec/load/newsutil.js b/exec/load/newsutil.js
deleted file mode 100644
index 08208679cfcebb20f770053dcfc9896a10239607..0000000000000000000000000000000000000000
--- a/exec/load/newsutil.js
+++ /dev/null
@@ -1,135 +0,0 @@
-// newsutil.js
-
-// Generates and parses USENET news headers
-// for use with newslink.js and nntpservice.js
-
-// $Id$
-
-RFC822HEADER = 0xb0 // from smbdefs.h
-
-function write_news_header(hdr,writeln)
-{
- /* Required header fields */
- writeln("To: " + hdr.to);
- writeln("Subject: " + hdr.subject);
- writeln("Message-ID: " + hdr.id);
- writeln("Date: " + hdr.date);
-
- /* Optional header fields */
- writeln("X-Comment-To: " + hdr.to);
- if(hdr.path!=undefined)
- writeln("Path: " + system.inetaddr + "!" + hdr.path);
- if(hdr.from_org!=undefined)
- writeln("Organization: " + hdr.from_org);
- if(hdr.newsgroups!=undefined)
- writeln("Newsgroups: " + hdr.newsgroups);
- if(hdr.replyto!=undefined)
- writeln("Reply-To: " + hdr.replyto);
- if(hdr.reply_id!=undefined)
- writeln("References: " + hdr.reply_id);
-
- /* FidoNet header fields */
- if(hdr.ftn_area!=undefined)
- writeln("X-FTN-AREA: " + hdr.ftn_area);
- if(hdr.ftn_pid!=undefined)
- writeln("X-FTN-PID: " + hdr.ftn_pid);
- if(hdr.ftn_tid!=undefined)
- writeln("X-FTN-TID: " + hdr.ftn_tid);
- if(hdr.ftn_flags!=undefined)
- writeln("X-FTN-FLAGS: " + hdr.ftn_flags);
- if(hdr.ftn_msgid!=undefined)
- writeln("X-FTN-MSGID: " + hdr.ftn_msgid);
- if(hdr.ftn_reply!=undefined)
- writeln("X-FTN-REPLY: " + hdr.ftn_reply);
-
- if(hdr.field_list!=undefined) {
- for(i in hdr.field_list)
- if(hdr.field_list[i].type==RFC822HEADER)
- writeln(hdr.field_list[i].data);
- }
-}
-
-function parse_news_header(hdr, line)
-{
- /* Parse header lines */
- if((sp=line.indexOf(':'))==-1)
- return;
-
- data=line.slice(sp+1);
- while(data.charAt(0)==' ') // trim prepended spaces
- data=data.slice(1);
- data=truncsp(data); // trim trailing spaces
-
- line=line.substr(0,sp);
- while(line.charAt(0)==' ') // trim prepended spaces
- line=line.slice(1);
-
- switch(line.toLowerCase()) {
- case "to":
- case "apparently-to":
- case "x-comment-to":
- hdr.to=data;
- break;
- case "newsgroups":
- hdr.newsgroups=data;
- break;
- case "path":
- hdr.path=data;
- break;
- case "from":
- hdr.from=data;
- break;
- case "organization":
- hdr.from_org=data;
- break;
- case "reply-to":
- hdr.replyto_net_type=NET_INTERNET;
- hdr.replyto=data;
- break;
- case "date":
- hdr.date=data;
- break;
- case "subject":
- hdr.subject=data;
- break;
- case "message-id":
- hdr.id=data;
- break;
- case "references":
- hdr.reply_id=data;
- break;
- case "x-gateway":
- hdr.gateway=data;
- break;
-
- /* FidoNet header fields */
- case "x-ftn-pid":
- hdr.ftn_pid=data;
- break;
- case "x-ftn-tid":
- hdr.ftn_tid=data;
- break;
- case "x-ftn-area":
- hdr.ftn_area=data;
- break;
- case "x-ftn-flags":
- hdr.ftn_flags=data;
- break;
- case "x-ftn-msgid":
- hdr.ftn_msgid=data;
- break;
- case "x-ftn-reply":
- hdr.ftn_reply=data;
- break;
-
- default:
- if(hdr.field_list==undefined)
- hdr.field_list=new Array();
- hdr.field_list.push(
- { type: RFC822HEADER,
- data: line + ": " + data
- }
- );
- break;
- }
-}
diff --git a/exec/load/nodedefs.js b/exec/load/nodedefs.js
deleted file mode 100644
index 6a07f249301a9fa3cbcb53451d6d4bc099b2c8a2..0000000000000000000000000000000000000000
--- a/exec/load/nodedefs.js
+++ /dev/null
@@ -1,146 +0,0 @@
-/* nodedefs.js */
-
-/* Synchronet NODE.DAB var ants definitions - (mostly bit-fields) */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2001 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
- /********************************************/
- /* Legal values for Node.status */
- /********************************************/
-var NODE_WFC =0 /* Waiting for Call */
-var NODE_LOGON =1 /* at logon prompt */
-var NODE_NEWUSER =2 /* New user applying */
-var NODE_INUSE =3 /* In Use */
-var NODE_QUIET =4 /* In Use - quiet mode */
-var NODE_OFFLINE =5 /* Offline */
-var NODE_NETTING =6 /* Networking */
-var NODE_EVENT_WAITING =7 /* Waiting for all nodes to be inactive */
-var NODE_EVENT_RUNNING =8 /* Running an external event */
-var NODE_EVENT_LIMBO =9 /* Allowing another node to run an event */
-var NODE_LAST_STATUS =10 /* Must be last */
- /********************************************/
-
- /********************************************/
-var NodeStatus =[ /* Node.status value descriptions */
- "Waiting for call" /********************************************/
- ,"At logon prompt"
- ,"New user"
- ,"In-use"
- ,"Waiting for call"
- ,"Offline"
- ,"Networking"
- ,"Waiting for all nodes to become inactive"
- ,"Running external event"
- ,"Waiting for node %d to finish external event"
- ];
-
- /********************************************/
- /* Legal values for Node.action */
- /********************************************/
-var NODE_MAIN =0 /* Main Prompt */
-var NODE_RMSG =1 /* Reading Messages */
-var NODE_RMAL =2 /* Reading Mail */
-var NODE_SMAL =3 /* Sending Mail */
-var NODE_RTXT =4 /* Reading G-Files */
-var NODE_RSML =5 /* Reading Sent Mail */
-var NODE_PMSG =6 /* Posting Message */
-var NODE_AMSG =7 /* Auto-message */
-var NODE_XTRN =8 /* Running External Program */
-var NODE_DFLT =9 /* Main Defaults Section */
-var NODE_XFER =10 /* Transfer Prompt */
-var NODE_DLNG =11 /* Downloading File */
-var NODE_ULNG =12 /* Uploading File */
-var NODE_BXFR =13 /* Bidirectional Transfer */
-var NODE_LFIL =14 /* Listing Files */
-var NODE_LOGN =15 /* Logging on */
-var NODE_LCHT =16 /* In Local Chat with Sysop */
-var NODE_MCHT =17 /* In Multi-Chat with Other Nodes */
-var NODE_GCHT =18 /* In Local Chat with Guru */
-var NODE_CHAT =19 /* In Chat Section */
-var NODE_SYSP =20 /* Sysop Activity */
-var NODE_TQWK =21 /* Transferring QWK packet */
-var NODE_PCHT =22 /* In Private Chat */
-var NODE_PAGE =23 /* Paging another node for Private Chat */
-var NODE_RFSD =24 /* Retrieving file from seq dev (aux=dev) */
-var NODE_LAST_ACTION =25 /* Must be last */
- /********************************************/
-
- /********************************************/
-var NodeAction =[ /* Node.action value descriptions */
- "at main menu" /********************************************/
- ,"reading messages"
- ,"reading mail"
- ,"sending mail"
- ,"reading text files"
- ,"reading sent mail"
- ,"posting message"
- ,"posting auto-message"
- ,"at external program menu"
- ,"changing defaults"
- ,"at transfer menu"
- ,"downloading"
- ,"uploading"
- ,"transferring bidirectional"
- ,"listing files"
- ,"logging on"
- ,"in local chat with %s"
- ,"in multinode chat"
- ,"chatting with %s"
- ,"in chat section"
- ,"performing sysop activities"
- ,"transferring QWK packet"
- ,"in private chat with node %u"
- ,"paging node %u for private chat"
- ,"retrieving from device #%d"
- ];
-
- /********************************************/
- /* Bit values for Node.misc */
- /********************************************/
-var NODE_ANON =(1<<0) /* Anonymous User */
-var NODE_LOCK =(1<<1) /* Locked for sysops only */
-var NODE_INTR =(1<<2) /* Interrupted - hang up */
-var NODE_MSGW =(1<<3) /* Message is waiting (old way) */
-var NODE_POFF =(1<<4) /* Page disabled */
-var NODE_AOFF =(1<<5) /* Activity Alert disabled */
-var NODE_UDAT =(1<<6) /* User data has been updated */
-var NODE_RRUN =(1<<7) /* Re-run this node when log off */
-var NODE_EVENT =(1<<8) /* Must run node event after log off */
-var NODE_DOWN =(1<<9) /* Down this node after logoff */
-var NODE_RPCHT =(1<<10) /* Reset private chat */
-var NODE_NMSG =(1<<11) /* Node message waiting (new way) */
-var NODE_EXT =(1<<12) /* Extended info on node action */
-var NODE_LCHAT =(1<<13) /* Being pulled into local chat */
- /********************************************/
-
diff --git a/exec/load/sbbsdefs.js b/exec/load/sbbsdefs.js
deleted file mode 100644
index 60d5d5de3c8d4b9805ff8517f45625981c7360a6..0000000000000000000000000000000000000000
--- a/exec/load/sbbsdefs.js
+++ /dev/null
@@ -1,659 +0,0 @@
-/* sbbsdefs.js */
-
-/* Synchronet Object Model var ants definitions - (mostly bit-fields) */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2001 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-load("nodedefs.js");
-
-/* Would rather use const than var, but end up with redeclaration errors. */
-
- /********************************************/
- /* system.settings */
- /********************************************/
-var SYS_CLOSED =(1<<0) /* System is closed to New Users */
-var SYS_SYSSTAT =(1<<1) /* Sysops activity included in statistics */
-var SYS_NOBEEP =(1<<2) /* No beep sound locally */
-var SYS_PWEDIT =(1<<3) /* Allow users to change their passwords */
-var SYS_RA_EMU =(1<<4) /* Reverse R/A commands at msg read prompt */
-var SYS_ANON_EM =(1<<5) /* Allow anonymous e-mail */
-var SYS_LISTLOC =(1<<6) /* Use location of caller in user lists */
-var SYS_WILDCAT =(1<<7) /* Expand Wildcat color codes in messages */
-var SYS_PCBOARD =(1<<8) /* Expand PCBoard color codes in messages */
-var SYS_WWIV =(1<<9) /* Expand WWIV color codes in messages */
-var SYS_CELERITY =(1<<10) /* Expand Celerity color codes in messages */
-var SYS_RENEGADE =(1<<11) /* Expand Renegade color codes in messages */
-var SYS_ECHO_PW =(1<<12) /* Echo passwords locally */
-var SYS_REQ_PW =(1<<13) /* Require passwords locally */
-var SYS_L_SYSOP =(1<<14) /* Allow local sysop logon/commands */
-var SYS_R_SYSOP =(1<<15) /* Allow remote sysop logon/commands */
-var SYS_QUOTE_EM =(1<<16) /* Allow quoting of e-mail */
-var SYS_EURODATE =(1<<17) /* Europian date format (DD/MM/YY) */
-var SYS_MILITARY =(1<<18) /* Military time format */
-var SYS_TIMEBANK =(1<<19) /* Allow time bank functions */
-var SYS_FILE_EM =(1<<20) /* Allow file attachments in E-mail */
-var SYS_SHRTPAGE =(1<<21) /* Short sysop page */
-var SYS_TIME_EXP =(1<<22) /* Set to expired values if out-of-time */
-var SYS_FASTMAIL =(1<<23) /* Fast e-mail storage mode */
-var SYS_QVALKEYS =(1<<24) /* Quick validation keys enabled */
-var SYS_ERRALARM =(1<<25) /* Error beeps on */
-var SYS_FWDTONET =(1<<26) /* Allow forwarding of e-mail to netmail */
-var SYS_DELREADM =(1<<27) /* Delete read mail automatically */
-var SYS_NOCDTCVT =(1<<28) /* No credit to minute conversions allowed */
-var SYS_DELEMAIL =(1<<29) /* Physically remove deleted e-mail immed. */
-var SYS_USRVDELM =(1<<30) /* Users can see deleted msgs */
-var SYS_SYSVDELM =(1<<31) /* Sysops can see deleted msgs */
- /********************************************/
-
- /********************************************/
- /* bbs.sys_status */
- /********************************************/
-var SS_UNUSED =(1<<0) /* Unused */
-var SS_INITIAL =(1<<1) /* The bbs data has been initialized. */
-var SS_TMPSYSOP =(1<<2) /* Temporary Sysop Status */
-var SS_USERON =(1<<3) /* A User is logged on to the BBS */
-var SS_LCHAT =(1<<4) /* Local chat in progress */
-var SS_CAP =(1<<5) /* Capture is on */
-var SS_ANSCAP =(1<<6) /* Capture ANSI codes too */
-var SS_FINPUT =(1<<7) /* Using file for input */
-var SS_COMISR =(1<<8) /* Com port ISR is installed */
-var SS_DAILY =(1<<9) /* Execute System Daily Event on logoff */
-var SS_INUEDIT =(1<<10) /* Inside Alt-Useredit section */
-var SS_ABORT =(1<<11) /* Global abort input or output flag */
-var SS_SYSPAGE =(1<<12) /* Paging sysop */
-var SS_SYSALERT =(1<<13) /* Notify sysop when users hangs up */
-var SS_GURUCHAT =(1<<14) /* Guru chat in progress */
-var SS_UNUSED2 =(1<<15) /* not used in v3 (used to be SS_NODEDAB) */
-var SS_EVENT =(1<<16) /* Time shortened due to upcoming event */
-var SS_PAUSEON =(1<<17) /* Pause on, overriding user default */
-var SS_PAUSEOFF =(1<<18) /* Pause off, overriding user default */
-var SS_IN_CTRLP =(1<<19) /* Inside ctrl-p send node message func */
-var SS_NEWUSER =(1<<20) /* New User online */
-var SS_MDMDEBUG =(1<<21) /* Modem debug output */
-var SS_NEST_PF =(1<<22) /* Nested in printfile function */
-var SS_DCDHIGH =(1<<23) /* Assume DCD is high always */
-var SS_SPLITP =(1<<24) /* Split-screen private chat */
-var SS_NEWDAY =(1<<25) /* Date changed while online */
-var SS_RLOGIN =(1<<26) /* Current login via BSD RLogin */
-var SS_FILEXFER =(1<<27) /* File transfer in progress, halt spy */
- /********************************************/
-
- /********************************************/
- /* bbs.startup_options */
- /********************************************/
-var BBS_OPT_KEEP_ALIVE =(1<<0) /* Send keep-alives */
-var BBS_OPT_XTRN_MINIMIZED =(1<<1) /* Run externals minimized */
-var BBS_OPT_AUTO_LOGON =(1<<2) /* Auto-logon via IP */
-var BBS_OPT_DEBUG_TELNET =(1<<3) /* Debug telnet commands */
-var BBS_OPT_SYSOP_AVAILABLE =(1<<4) /* Available for chat */
-var BBS_OPT_ALLOW_RLOGIN =(1<<5) /* Allow logins via BSD RLogin */
-var BBS_OPT_USE_2ND_RLOGIN =(1<<6) /* Use 2nd username in BSD RLogin */
-var BBS_OPT_NO_QWK_EVENTS =(1<<7) /* Don't run QWK-related events */
-var BBS_OPT_NO_HOST_LOOKUP =(1<<11)/* Don't lookup hostname */
-var BBS_OPT_NO_JAVASCRIPT =(1<<29)/* JavaScript disabled */
-var BBS_OPT_LOCAL_TIMEZONE =(1<<30)/* Don't force UCT/GMT */
-var BBS_OPT_MUTE =(1<<31)/* Mute sounds */
- /*******************************************/
-
- /********************************************/
- /* bbs.online */
- /********************************************/
-var ON_LOCAL =1 /* Online locally (events only in v3) */
-var ON_REMOTE =2 /* Online remotely */
- /********************************************/
-
- /********************************************/
- /* console.status */
- /********************************************/
-var CON_R_ECHO =(1<<0) /* Echo remotely */
-var CON_R_ECHOX =(1<<1) /* Echo X's to remote user */
-var CON_R_INPUT =(1<<2) /* Accept input remotely */
-var CON_L_ECHO =(1<<3) /* Echo locally */
-var CON_L_ECHOX =(1<<4) /* Echo X's locally */
-var CON_L_INPUT =(1<<5) /* Accept input locally */
-var CON_RAW_IN =(1<<8) /* Raw input mode - no editing capabilities */
-var CON_ECHO_OFF =(1<<10) /* Remote & Local echo disabled for ML/MF */
-var CON_UPARROW =(1<<11) /* Up arrow hit - move up one line */
-var CON_DOWNARROW =(1<<12) /* Down arrow hit - from getstr() */
-var CON_NO_INACT =(1<<13) /* User inactivity detection disabled */
-var CON_BACKSPACE =(1<<14) /* Backspace key - from getstr(K_LEFTEXIT) */
-var CON_LEFTARROW =(1<<15) /* Left arrow hit - from getstr(K_LEFTEXIT) */
-var CON_INSERT =(1<<16) /* Insert mode - for use with getstr() */
-var CON_DELETELINE=(1<<17) /* Deleted line - from getstr(K_LEFTEXIT) */
- /********************************************/
-
- /********************************************/
- /* Special inkey()/getkey() return values */
- /********************************************/
-var KEY_UP ='\x1e' /* ctrl-^ (up arrow) */
-var KEY_DOWN ='\x0a' /* ctrl-j (dn arrow) */
-var KEY_RIGHT ='\x06' /* ctrl-f (rt arrow) */
-var KEY_LEFT ='\x1d' /* ctrl-] (lf arrow) */
-var KEY_HOME ='\x02' /* ctrl-b (home) */
-var KEY_END ='\x05' /* ctrl-e (end) */
- /********************************************/
-
- /********************************************/
- /* console.attributes, also used for ansi() */
- /********************************************/
-var BLINK =0x80 /* blink bit */
-var HIGH =0x08 /* high intensity foreground bit */
-
- /* foreground colors */
-var BLACK =0 /* dark colors (HIGH bit unset) */
-var BLUE =1
-var GREEN =2
-var CYAN =3
-var RED =4
-var MAGENTA =5
-var BROWN =6
-var LIGHTGRAY =7
-var DARKGRAY =8 /* light colors (HIGH bit set) */
-var LIGHTBLUE =9
-var LIGHTGREEN =10
-var LIGHTCYAN =11
-var LIGHTRED =12
-var LIGHTMAGENTA =13
-var YELLOW =14
-var WHITE =15
-
- /* background colors */
-var ANSI_NORMAL =0x100 /* special value for ansi() */
-var BG_BLACK =0x200 /* special value for ansi() */
-var BG_BLUE =(BLUE<<4)
-var BG_GREEN =(GREEN<<4)
-var BG_CYAN =(CYAN<<4)
-var BG_RED =(RED<<4)
-var BG_MAGENTA =(MAGENTA<<4)
-var BG_BROWN =(BROWN<<4)
-var BG_LIGHTGRAY =(LIGHTGRAY<<4)
-
- /********************************************/
- /* user.settings */
- /********************************************/
-var USER_DELETED =(1<<0) /* Deleted user slot */
-var USER_ANSI =(1<<1) /* Supports ANSI terminal emulation */
-var USER_COLOR =(1<<2) /* Send color codes */
-var USER_RIP =(1<<3) /* Supports RIP terminal emulation */
-var USER_PAUSE =(1<<4) /* Pause on every screen full */
-var USER_SPIN =(1<<5) /* Spinning cursor - Same as K_SPIN */
-var USER_INACTIVE =(1<<6) /* Inactive user slot */
-var USER_EXPERT =(1<<7) /* Expert menu mode */
-var USER_ANFSCAN =(1<<8) /* Auto New file scan */
-var USER_CLRSCRN =(1<<9) /* Clear screen before each message */
-var USER_QUIET =(1<<10) /* Quiet mode upon logon */
-var USER_BATCHFLAG=(1<<11) /* File list allow batch dl flags */
-var USER_NETMAIL =(1<<12) /* Forward e-mail to fidonet addr */
-var USER_CURSUB =(1<<13) /* Remember current sub-board/dir */
-var USER_ASK_NSCAN=(1<<14) /* Ask for newscanning upon logon */
-var USER_NO_EXASCII=(1<<15) /* Don't send extended ASCII */
-var USER_ASK_SSCAN=(1<<16) /* Ask for messages to you at logon */
-var USER_AUTOTERM =(1<<17) /* Autodetect terminal type */
-var USER_COLDKEYS =(1<<18) /* No hot-keys */
-var USER_EXTDESC =(1<<19) /* Extended file descriptions */
-var USER_AUTOHANG =(1<<20) /* Auto-hang-up after transfer */
-var USER_WIP =(1<<21) /* Supports WIP terminal emulation */
-var USER_AUTOLOGON=(1<<22) /* AutoLogon via IP */
- /********************************************/
-
- /********************************************/
- /* user.qwk_settings */
- /********************************************/
-var QWK_FILES =(1<<0) /* Include new files list */
-var QWK_EMAIL =(1<<1) /* Include unread e-mail */
-var QWK_ALLMAIL =(1<<2) /* Include ALL e-mail */
-var QWK_DELMAIL =(1<<3) /* Delete e-mail after download */
-var QWK_BYSELF =(1<<4) /* Include messages from self */
-var QWK_UNUSED =(1<<5) /* Currently unused */
-var QWK_EXPCTLA =(1<<6) /* Expand ctrl-a codes to ascii */
-var QWK_RETCTLA =(1<<7) /* Retain ctrl-a codes */
-var QWK_ATTACH =(1<<8) /* Include file attachments */
-var QWK_NOINDEX =(1<<9) /* Do not create index files in QWK */
-var QWK_TZ =(1<<10) /* Include @TZ (time zone) in msgs */
-var QWK_VIA =(1<<11) /* Include @VIA (path) in msgs */
-var QWK_NOCTRL =(1<<12) /* No extraneous control files */
-var QWK_EXT =(1<<13) /* QWK Extended (QWKE) format */
-var QWK_MSGID =(1<<14) /* Include @MSGID and @REPLY in msgs */
- /********************************************/
-
- /********************************************/
- /* user.chat_settings */
- /********************************************/
-var CHAT_ECHO =(1<<0) /* Multinode chat echo */
-var CHAT_ACTION =(1<<1) /* Chat actions */
-var CHAT_NOPAGE =(1<<2) /* Can't be paged */
-var CHAT_NOACT =(1<<3) /* No activity alerts */
-var CHAT_SPLITP =(1<<4) /* Split screen private chat */
- /********************************************/
-
-
-/************************************************************************/
-/* Valid flags for user.security.exempt/restrict/flags */
-/************************************************************************/
-var UFLAG_A =(1<<0)
-var UFLAG_B =(1<<1)
-var UFLAG_C =(1<<2)
-var UFLAG_D =(1<<3)
-var UFLAG_E =(1<<4)
-var UFLAG_F =(1<<5)
-var UFLAG_G =(1<<6)
-var UFLAG_H =(1<<7)
-var UFLAG_I =(1<<8)
-var UFLAG_J =(1<<9)
-var UFLAG_K =(1<<10)
-var UFLAG_L =(1<<11)
-var UFLAG_M =(1<<12)
-var UFLAG_N =(1<<13)
-var UFLAG_O =(1<<14)
-var UFLAG_P =(1<<15)
-var UFLAG_Q =(1<<16)
-var UFLAG_R =(1<<17)
-var UFLAG_S =(1<<18)
-var UFLAG_T =(1<<19)
-var UFLAG_U =(1<<20)
-var UFLAG_V =(1<<21)
-var UFLAG_W =(1<<22)
-var UFLAG_X =(1<<23)
-var UFLAG_Y =(1<<24)
-var UFLAG_Z =(1<<25)
-
- /********************************************/
- /* Bits in 'mode' for getkey and getstr */
- /********************************************/
-var K_UPPER =(1<<0) /* Converts all letters to upper case */
-var K_UPRLWR =(1<<1) /* Upper/Lower case automatically */
-var K_NUMBER =(1<<2) /* Allow numbers only */
-var K_WRAP =(1<<3) /* Allows word wrap */
-var K_MSG =(1<<4) /* Allows ANSI, ^N ^A ^G */
-var K_SPIN =(1<<5) /* Spinning cursor (same as SPIN) */
-var K_LINE =(1<<6) /* Input line (inverse color) */
-var K_EDIT =(1<<7) /* Edit string passed */
-var K_CHAT =(1<<8) /* In chat multi-chat */
-var K_NOCRLF =(1<<9) /* Don't print CRLF after string input */
-var K_ALPHA =(1<<10) /* Only allow alphabetic characters */
-var K_GETSTR =(1<<11) /* getkey called from getstr() */
-var K_LOWPRIO =(1<<12) /* low priority input */
-var K_NOEXASC =(1<<13) /* No extended ASCII allowed */
-var K_E71DETECT =(1<<14) /* Detect E-7-1 terminal type */
-var K_AUTODEL =(1<<15) /* Auto-delete text (used with K_EDIT) */
-var K_COLD =(1<<16) /* Possible cold key mode */
-var K_NOECHO =(1<<17) /* Don't echo input */
-var K_TAB =(1<<18) /* Treat TAB key as CR */
-var K_LEFTEXIT =(1<<19) /* Allow exit from getstr() with backspace */
-var K_USEOFFSET =(1<<20) /* Use console.getstr_offset with getstr() */
- /********************************************/
-
- /********************************************/
- /* Bits in 'mode' for putmsg and printfile */
- /********************************************/
-var P_NOABORT =(1<<0) /* Disallows abortion of a message */
-var P_SAVEATR =(1<<1) /* Save the new current attributres after */
- /* msg has printed */
-var P_NOATCODES =(1<<2) /* Don't allow @ codes */
-var P_OPENCLOSE =(1<<3) /* Open and close the file */
- /********************************************/
-
- /********************************************/
- /* system.new_user_questions */
- /********************************************/
-var UQ_ALIASES =(1<<0) /* Ask for alias */
-var UQ_LOCATION =(1<<1) /* Ask for location */
-var UQ_ADDRESS =(1<<2) /* Ask for address */
-var UQ_PHONE =(1<<3) /* Ask for phone number */
-var UQ_HANDLE =(1<<4) /* Ask for chat handle */
-var UQ_DUPHAND =(1<<5) /* Search for duplicate handles */
-var UQ_SEX =(1<<6) /* Ask for sex */
-var UQ_BIRTH =(1<<7) /* Ask for birth date */
-var UQ_COMP =(1<<8) /* Ask for computer type */
-var UQ_MC_COMP =(1<<9) /* Multiple choice computer type */
-var UQ_REALNAME =(1<<10) /* Ask for real name */
-var UQ_DUPREAL =(1<<11) /* Search for duplicate real names */
-var UQ_COMPANY =(1<<12) /* Ask for company name */
-var UQ_NOEXASC =(1<<13) /* Don't allow ex-ASCII in user text */
-var UQ_CMDSHELL =(1<<14) /* Ask for command shell */
-var UQ_XEDIT =(1<<15) /* Ask for external editor */
-var UQ_NODEF =(1<<16) /* Don't ask for default settings */
-var UQ_NOCOMMAS =(1<<17) /* Do not require commas in location */
- /********************************************/
-
- /********************************************/
- /* node.settings */
- /********************************************/
-var NM_ANSALARM =(1<<0) /* Alarm locally on answer */
-var NM_WFCSCRN =(1<<1) /* Wait for call screen */
-var NM_WFCMSGS =(1<<2) /* Include total messages/files on WFC */
-var NM_LCL_EDIT =(1<<3) /* Use local editor to create messages */
-var NM_EMSOVL =(1<<4) /* Use expanded memory of overlays */
-var NM_WINOS2 =(1<<5) /* Use Windows/OS2 time slice API call */
-var NM_INT28 =(1<<6) /* Make int 28 DOS idle calls */
-var NM_NODV =(1<<7) /* Don't detect and use DESQview API */
-var NM_NO_NUM =(1<<8) /* Don't allow logons by user number */
-var NM_LOGON_R =(1<<9) /* Allow logons by user real name */
-var NM_LOGON_P =(1<<10) /* Secure logons (always ask for password) */
-var NM_NO_LKBRD =(1<<11) /* No local keyboard (at all) */
-var NM_SYSPW =(1<<12) /* Protect WFC keys and Alt keys with SY: */
-var NM_NO_INACT =(1<<13) /* No local inactivity alert/logoff */
-var NM_NOBEEP =(1<<14) /* Don't beep locally */
-var NM_LOWPRIO =(1<<15) /* Always use low priority input */
-var NM_7BITONLY =(1<<16) /* Except 7-bit input only (E71 terminals) */
-var NM_RESETVID =(1<<17) /* Reset video mode between callers? */
-var NM_NOPAUSESPIN=(1<<18) /* No spinning cursor at pause prompt */
- /********************************************/
-
- /********************************************/
- /* netmail_misc */
- /********************************************/
-var NMAIL_ALLOW =(1<<0) /* Allow NetMail */
-var NMAIL_CRASH =(1<<1) /* Default netmail to crash */
-var NMAIL_HOLD =(1<<2) /* Default netmail to hold */
-var NMAIL_KILL =(1<<3) /* Default netmail to kill after sent */
-var NMAIL_ALIAS =(1<<4) /* Use Aliases in NetMail */
-var NMAIL_FILE =(1<<5) /* Allow file attachments */
-var NMAIL_DIRECT =(1<<6) /* Default netmail to direct */
- /********************************************/
-
- /********************************************/
- /* Bit values for sub[x].settings */
- /********************************************/
-var SUB_QNET =(1<<3) /* Sub-board is netted via QWK network */
-var SUB_PNET =(1<<4) /* Sub-board is netted via PostLink */
-var SUB_FIDO =(1<<5) /* Sub-board is netted via FidoNet */
-var SUB_PRIV =(1<<6) /* Allow private posts on sub */
-var SUB_PONLY =(1<<7) /* Private posts only */
-var SUB_ANON =(1<<8) /* Allow anonymous posts on sub */
-var SUB_AONLY =(1<<9) /* Anonymous only */
-var SUB_NAME =(1<<10) /* Must use real names */
-var SUB_DEL =(1<<11) /* Allow users to delete messages */
-var SUB_DELLAST =(1<<12) /* Allow users to delete last msg only */
-var SUB_FORCED =(1<<13) /* Sub-board is forced scanning */
-var SUB_NOTAG =(1<<14) /* Don't add tag or origin lines */
-var SUB_TOUSER =(1<<15) /* Prompt for to user on posts */
-var SUB_ASCII =(1<<16) /* ASCII characters only */
-var SUB_QUOTE =(1<<17) /* Allow online quoting */
-var SUB_NSDEF =(1<<18) /* New-Scan on by default */
-var SUB_INET =(1<<19) /* Sub-board is netted via Internet */
-var SUB_FAST =(1<<20) /* Fast storage mode */
-var SUB_KILL =(1<<21) /* Kill read messages automatically */
-var SUB_KILLP =(1<<22) /* Kill read pvt messages automatically */
-var SUB_SYSPERM =(1<<23) /* Sysop messages are permament */
-var SUB_GATE =(1<<24) /* Gateway between Network types */
-var SUB_LZH =(1<<25) /* Use LZH compression for msgs */
-var SUB_SSDEF =(1<<26) /* Default ON for Scan for Your msgs */
-var SUB_HYPER =(1<<27) /* Hyper allocation */
-var SUB_EDIT =(1<<28) /* Users can edit msg text after posting */
-var SUB_EDITLAST =(1<<29) /* Users can edit last message only */
-var SUB_NOUSERSIG =(1<<30) /* Suppress user signatures */
- /********************************************/
-
- /********************************************/
- /* Bit values for dir[x].settings */
- /********************************************/
-var DIR_FCHK =(1<<0) /* Check for file existance */
-var DIR_RATE =(1<<1) /* Force uploads to be rated G,R, or X */
-var DIR_MULT =(1<<2) /* Ask for multi-disk numbering */
-var DIR_DUPES =(1<<3) /* Search this dir for upload dupes */
-var DIR_FREE =(1<<4) /* Free downloads */
-var DIR_TFREE =(1<<5) /* Time to download is free */
-var DIR_CDTUL =(1<<6) /* Credit Uploads */
-var DIR_CDTDL =(1<<7) /* Credit Downloads */
-var DIR_ANON =(1<<8) /* Anonymous uploads */
-var DIR_AONLY =(1<<9) /* Anonymous only */
-var DIR_ULDATE =(1<<10) /* Include upload date in listing */
-var DIR_DIZ =(1<<11) /* FILE_ID.DIZ and DESC.SDI support */
-var DIR_NOSCAN =(1<<12) /* Don't new-scan this directory */
-var DIR_NOAUTO =(1<<13) /* Don't auto-add this directory */
-var DIR_ULTIME =(1<<14) /* Deduct time during uploads */
-var DIR_CDTMIN =(1<<15) /* Give uploader minutes instead of cdt */
-var DIR_SINCEDL =(1<<16) /* Purge based on days since last dl */
-var DIR_MOVENEW =(1<<17) /* Files marked as new when moved */
- /********************************************/
-
- /********************************************/
- /* Bits in xtrn[x] and xedit[x].settings */
- /********************************************/
-var XTRN_MULTIUSER =(1<<0) /* allow multi simultaneous users */
-var XTRN_ANSI =(1<<1) /* user must have ANSI, same as ^^^ */
-var XTRN_IO_INTS =(1<<2) /* Intercept I/O interrupts */
-var XTRN_MODUSERDAT =(1<<3) /* Program can modify user data */
-var XTRN_WWIVCOLOR =(1<<4) /* Program uses WWIV color codes */
-var XTRN_EVENTONLY =(1<<5) /* Program executes as event only */
-var XTRN_STARTUPDIR =(1<<6) /* Create drop file in start-up dir */
-var XTRN_REALNAME =(1<<7) /* Use real name in drop file */
-var XTRN_SWAP =(1<<8) /* Swap for this door */
-var XTRN_FREETIME =(1<<9) /* Free time while in this door */
-var XTRN_QUICKBBS =(1<<10) /* QuickBBS style editor */
-var XTRN_EXPANDLF =(1<<11) /* Expand LF to CRLF editor */
-var XTRN_QUOTEALL =(1<<12) /* Automatically quote all of msg */
-var XTRN_QUOTENONE =(1<<13) /* Automatically quote none of msg */
-var XTRN_NATIVE =(1<<14) /* Native application (EX_NATIVE) */
-var XTRN_STRIPKLUDGE=(1<<15) /* Strip FTN Kludge lines from msg */
-var XTRN_CHKTIME =(1<<16) /* Check time online (EX_CHKTIME) */
- /********************************************/
-
- /********************************************/
- /* Xtrn Drop file representations */
- /********************************************/
-var XTRN_NONE = 0 /* No data file needed */
-var XTRN_SBBS = 1 /* Synchronet external */
-var XTRN_WWIV = 2 /* WWIV external */
-var XTRN_GAP = 3 /* Gap door */
-var XTRN_RBBS = 4 /* RBBS, QBBS, or Remote Access */
-var XTRN_WILDCAT = 5 /* Wildcat */
-var XTRN_PCBOARD = 6 /* PCBoard */
-var XTRN_SPITFIRE = 7 /* SpitFire */
-var XTRN_UTI = 8 /* UTI Doors - MegaMail */
-var XTRN_SR = 9 /* Solar Realms */
-var XTRN_RBBS1 = 10 /* DORINFO1.DEF always */
-var XTRN_TRIBBS = 11 /* TRIBBS.SYS */
-var XTRN_DOOR32 = 12 /* DOOR32.SYS */
- /********************************************/
-
-
-
- /********************************************/
- /* Bit values for file.settings */
- /********************************************/
-var FILE_EXTDESC =(1<<0) /* Extended description exists */
-var FILE_ANON =(1<<1) /* Anonymous upload */
- /********************************************/
-
- /********************************************/
- /* Bits in the mode of bbs.exec() */
- /********************************************/
-var EX_SH =(1<<0) /* Use system shell to load other process */
-var EX_OUTR =(1<<1) /* Copy DOS output to remote */
-var EX_OUTL =(1<<2) /* Use _lputc() for local DOS output */
-var EX_INR =(1<<3) /* Trap int 16h keyboard input requests */
-var EX_WWIV =(1<<4) /* Expand WWIV color codes to ANSI sequence */
-var EX_SWAP =(1<<5) /* Swap out for this external */
-var EX_POPEN =(1<<7) /* Leave COM port open */
-var EX_OFFLINE =(1<<8) /* Run this program offline */
-var EX_BG =(1<<10) /* Back-ground/detached process */
-var EX_BIN =(1<<11) /* Binary mode (no Unix LF to CR/LF) */
-var EX_NATIVE =(1<<14) /* Native 32-bit application (XTRN_NATIVE) */
-var EX_CHKTIME =(1<<16) /* Check time left (XTRN_CHKTIME) */
- /********************************************/
-
- /********************************************/
- /* Values for bbs.user_event() */
- /********************************************/
-var EVENT_LOGON =1 /* Execute during logon sequence */
-var EVENT_LOGOFF =2 /* Execute during logoff sequence */
-var EVENT_NEWUSER =3 /* Execute during newuser app. */
-var EVENT_BIRTHDAY=4 /* Execute on birthday */
-var EVENT_POST =5 /* Execute after message posted */
-var EVENT_UPLOAD =6 /* Execute after file uploaded */
-var EVENT_DOWNLOAD=7 /* Execute after file downloaded */
- /********************************************/
-
- /********************************************/
- /* Bits in mode of bbs.telnet_gate() */
- /********************************************/
-var TG_ECHO =(1<<0) /* Turn on telnet echo */
-var TG_CRLF =(1<<1) /* Expand sole CR to CRLF */
-var TG_LINEMODE =(1<<2) /* Send entire lines only */
-var TG_NODESYNC =(1<<3) /* Call Nodesync, get msgs, etc. */
-var TG_CTRLKEYS =(1<<4) /* Interpret ^P ^U ^T, etc locally */
-var TG_PASSTHRU =(1<<5) /* Pass-through telnet commands/responses */
-var TG_RLOGIN =(1<<6) /* Use BSD RLogin protocol */
-var TG_NOCHKTIME =(1<<7) /* Don't check time left online */
- /********************************************/
-
- /********************************************/
- /* Bits in console.telnet_mode */
- /********************************************/
-var TELNET_MODE_BIN_RX =(1<<0) /* Binary receive (no CR to CRLF xlat) */
-var TELNET_MODE_ECHO =(1<<1) /* Echo remotely */
-var TELNET_MODE_GATE =(1<<2) /* Pass-through telnet commands/responses */
- /********************************************/
-
- /********************************************/
- /* Bits in mode of bbs.scan_posts() */
- /********************************************/
-var SCAN_CONST =(1<<0) /* Continuous message scanning */
-var SCAN_NEW =(1<<1) /* New scanning */
-var SCAN_BACK =(1<<2) /* Scan the last message if no new */
-var SCAN_TOYOU =(1<<3) /* Scan for messages to you */
-var SCAN_FIND =(1<<4) /* Scan for text in messages */
-var SCAN_UNREAD =(1<<5) /* Find un-read messages to you */
- /********************************************/
-
- /********************************************/
- /* Bits in msg_area.sub[].scan_cfg */
- /********************************************/
-var SCAN_CFG_NEW =(1<<0) /* Auto-scan for new messages */
-var SCAN_CFG_TOYOU =(1<<1) /* Auto-scan for unread messages to you */
-var SCAN_CFG_YONLY =(1<<8) /* Auto-scan for new messages to you only */
- /********************************************/
-
- /********************************************/
- /********************************************/
- /* Bits in mode for bbs.scan_dirs() */
- /* bbs.list_files() & bbs.list_file_info() */
- /********************************************/
-var FL_ULTIME =(1<<0) /* List files by upload time */
-var FL_DLTIME =(1<<1) /* List files by download time */
-var FL_NO_HDR =(1<<2) /* Don't list directory header */
-var FL_FINDDESC =(1<<3) /* Find text in description */
-var FL_EXFIND =(1<<4) /* Find text in description - extended info */
-var FL_VIEW =(1<<5) /* View ZIP/ARC/GIF etc. info */
- /********************************************/
-
- /********************************************/
- /* Values of mode for bbs.list_users() */
- /********************************************/
-var UL_ALL =0 /* List all active users in user database */
-var UL_SUB =1 /* List all users with access to cursub */
-var UL_DIR =2 /* List all users with access to curdir */
- /********************************************/
-
- /********************************************/
- /* Values of mode in bbs.list_file_info() */
- /********************************************/
-var FI_INFO =0 /* Just list file information */
-var FI_REMOVE =1 /* Remove/Move/Edit file information */
-var FI_DOWNLOAD =2 /* Download files */
-var FI_OLD =3 /* Search/Remove files not downloaded since */
-var FI_OLDUL =4 /* Search/Remove files uploaded before */
-var FI_OFFLINE =5 /* Search/Remove files not online */
-var FI_USERXFER =6 /* User Xfer Download */
-var FI_CLOSE =7 /* Close any open records */
- /********************************************/
-
- /********************************************/
- /* Log "levels" supported by log() function */
- /********************************************/
-var LOG_EMERG =0 /* system is unusable */
-var LOG_ALERT =1 /* action must be taken immediately */
-var LOG_CRIT =2 /* critical conditions */
-var LOG_ERR =3 /* error conditions */
-var LOG_WARNING =4 /* warning conditions */
-var LOG_NOTICE =5 /* normal but significant condition */
-var LOG_INFO =6 /* informational */
-var LOG_DEBUG =7 /* debug-level messages */
- /********************************************/
-
- /* Message attributes */
-var MSG_PRIVATE =(1<<0)
-var MSG_READ =(1<<1)
-var MSG_PERMANENT =(1<<2)
-var MSG_LOCKED =(1<<3)
-var MSG_DELETE =(1<<4)
-var MSG_ANONYMOUS =(1<<5)
-var MSG_KILLREAD =(1<<6)
-var MSG_MODERATED =(1<<7)
-var MSG_VALIDATED =(1<<8)
-var MSG_REPLIED =(1<<9) // User replied to this message
-
- /* Auxillary header attributes */
-var MSG_FILEREQUEST =(1<<0) // File request
-var MSG_FILEATTACH =(1<<1) // File(s) attached to Msg
-var MSG_TRUNCFILE =(1<<2) // Truncate file(s) when sent
-var MSG_KILLFILE =(1<<3) // Delete file(s) when sent
-var MSG_RECEIPTREQ =(1<<4) // Return receipt requested
-var MSG_CONFIRMREQ =(1<<5) // Confirmation receipt requested
-var MSG_NODISP =(1<<6) // Msg may not be displayed to user
-
- /* Message network attributes */
-var MSG_LOCAL =(1<<0) // Msg created locally
-var MSG_INTRANSIT =(1<<1) // Msg is in-transit
-var MSG_SENT =(1<<2) // Sent to remote
-var MSG_KILLSENT =(1<<3) // Kill when sent
-var MSG_ARCHIVESENT =(1<<4) // Archive when sent
-var MSG_HOLD =(1<<5) // Hold for pick-up
-var MSG_CRASH =(1<<6) // Crash
-var MSG_IMMEDIATE =(1<<7) // Send Msg now, ignore restrictions
-var MSG_DIRECT =(1<<8) // Send directly to destination
-var MSG_GATE =(1<<9) // Send via gateway
-var MSG_ORPHAN =(1<<10)// Unknown destination
-var MSG_FPU =(1<<11)// Force pickup
-var MSG_TYPELOCAL =(1<<12)// Msg is for local use only
-var MSG_TYPEECHO =(1<<13)// Msg is for conference distribution
-var MSG_TYPENET =(1<<14)// Msg is direct network mail
-
- /* Net types */
-var NET_NONE =0 // Local message
-var NET_UNKNOWN =1 // Networked, but unknown type
-var NET_FIDO =2 // FidoNet
-var NET_POSTLINK =3 // PostLink
-var NET_QWK =4 // QWK
-var NET_INTERNET =5 // NNTP
-var NET_WWIV =6 // WWIV
-var NET_MHS =7 // MHS
-
- /* Agent types */
-var AGENT_PERSON =0 /* Human */
-var AGENT_PROCESS =1 /* Unknown process type */
-var AGENT_SMBUTIL =2 /* Imported via Synchronet SMBUTIL */
-var AGENT_SMTPSYSMSG =3 /* Synchronet SMTP server system message */
\ No newline at end of file
diff --git a/exec/load/sockdefs.js b/exec/load/sockdefs.js
deleted file mode 100644
index f41a6d4ae6c3b7956770e81dde49295df4bff59d..0000000000000000000000000000000000000000
--- a/exec/load/sockdefs.js
+++ /dev/null
@@ -1,100 +0,0 @@
-/* sockdefs.js */
-
-/*
- * Constants and structures defined by the internet system,
- * Per RFC 790, September 1981, taken from the BSD file netinet/in.h.
- */
-
-/* $Id$ */
-
-/*
- * Protocols
- */
-var IPPROTO_IP =0 /* dummy for IP */
-var IPPROTO_ICMP =1 /* control message protocol */
-var IPPROTO_IGMP =2 /* internet group management protocol */
-var IPPROTO_GGP =3 /* gateway^2 (deprecated) */
-var IPPROTO_TCP =6 /* tcp */
-var IPPROTO_PUP =12 /* pup */
-var IPPROTO_UDP =17 /* user datagram protocol */
-var IPPROTO_IDP =22 /* xns idp */
-var IPPROTO_ND =77 /* UNOFFICIAL net disk proto */
-
-var IPPROTO_RAW =255 /* raw IP packet */
-var IPPROTO_MAX =256
-
-/*
- * Port/socket numbers: network standard functions
- */
-var IPPORT_ECHO =7
-var IPPORT_DISCARD =9
-var IPPORT_SYSTAT =11
-var IPPORT_DAYTIME =13
-var IPPORT_NETSTAT =15
-var IPPORT_FTP =21
-var IPPORT_TELNET =23
-var IPPORT_SMTP =25
-var IPPORT_TIMESERVER =37
-var IPPORT_NAMESERVER =42
-var IPPORT_WHOIS =43
-var IPPORT_MTP =57
-
-/*
- * Port/socket numbers: host specific functions
- */
-var IPPORT_TFTP =69
-var IPPORT_RJE =77
-var IPPORT_FINGER =79
-var IPPORT_TTYLINK =87
-var IPPORT_SUPDUP =95
-
-/*
- * UNIX TCP sockets
- */
-var IPPORT_EXECSERVER =512
-var IPPORT_LOGINSERVER =513
-var IPPORT_CMDSERVER =514
-var IPPORT_EFSSERVER =520
-
-/*
- * UNIX UDP sockets
- */
-var IPPORT_BIFFUDP =512
-var IPPORT_WHOSERVER =513
-var IPPORT_ROUTESERVER =520
- /* 520+1 also used */
-
-/*
- * Ports < IPPORT_RESERVED are reserved for
- * privileged processes (e.g. root).
- */
-var IPPORT_RESERVED =1024
-
-/*
- * Types
- */
-var SOCK_STREAM =1 /* stream socket */
-var SOCK_DGRAM =2 /* datagram socket */
-var SOCK_RAW =3 /* raw-protocol interface */
-var SOCK_RDM =4 /* reliably-delivered message */
-var SOCK_SEQPACKET =5 /* sequenced packet stream */
-
-/* Option name parameter to Socket.getoption/setoption */
-var sockopts = [
- "TYPE",
- "DEBUG",
- "LINGER",
- "SNDBUF",
- "RCVBUF",
- "SNDLOWAT",
- "RCVLOWAT",
- "SNDTIMEO",
- "RCVTIMEO",
- "KEEPALIVE",
- "REUSEADDR",
- "DONTROUTE",
- "BROADCAST",
- "OOBINLINE",
- "ACCEPTCONN",
- "TCP_NODELAY",
-];
\ No newline at end of file
diff --git a/exec/login.src b/exec/login.src
deleted file mode 100644
index 36ceb7ca04f8aaae95796377d1c26c3d3bb45abb..0000000000000000000000000000000000000000
--- a/exec/login.src
+++ /dev/null
@@ -1,66 +0,0 @@
-# login.src
-
-# Login module for Synchronet BBS v2.2+
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-logout
-
-node_status NODE_LOGON
-
-compare_ars WIP
-if_true
- exec_bin WIPLOGIN
- return
- end_if
-
-int c
-int guest
-
-set str "Guest"
-matchuser guest str # save Guest account number in guest
-
-:top
-compare c 10
-if_greater_or_equal
- hangup
- return
- end_if
-
-compare guest 0 # Guest account?
-if_greater
- print "\r\n\1nEnter Name, Number, '\1hNew\1n', or '\1hGuest\1n'\r\nNN: "
-else
- print "\r\n\1nEnter Name, Number, or '\1hNew\1n'\r\nNN: "
- end_if
-getstr str 25 K_UPRLWR|K_LOWPRIO|K_E71DETECT|K_TAB
-truncsp str
-compare_str ""
-if_true
- add c 1
- goto top
- end_if
-compare_str "NEW"
-if_true
- newuser
- if_false
- add c 1
- goto top
- end_if
- logon
- return
- end_if
-login "PW: "
-if_true
- logon
- if_true
- return
- end_if
- end_if
-add c 2
-goto top
-
diff --git a/exec/logon.js b/exec/logon.js
deleted file mode 100644
index bd73799559f4570b3ed93fc7f3e316dd7052f328..0000000000000000000000000000000000000000
--- a/exec/logon.js
+++ /dev/null
@@ -1,115 +0,0 @@
-// logon.js
-
-// Synchronet v3.10 Default Logon Module
-
-// $Id$
-
-// @format.tab-size 4, @format.use-tabs true
-
-load("sbbsdefs.js");
-
-//Disable spinning cursor at pause prompts
-//bbs.node_settings|=NM_NOPAUSESPIN
-
-if(user.security.restrictions&UFLAG_G) {
- while(bbs.online) {
- printf("\1y\1hFor our records, please enter your full name: \1w");
- name=console.getstr(25,K_UPRLWR);
- if(!name || !name.length)
- continue;
- bbs.log_str("Guest: " + name);
- user.name = name;
- break;
- }
-
- while(bbs.online) {
- printf("\1y\1hPlease enter your location (City, State): \1w");
- location=console.getstr(30,K_UPRLWR);
- if(!location || !location.length)
- continue;
- bbs.log_str(" " + location);
- user.location=location;
- break;
- }
-
- if(bbs.online)
- bbs.log_str("\r\n");
- while(bbs.online) {
- printf("\1y\1hWhere did you hear about this BBS?\r\n: \1w");
- ref=console.getstr(70);
- if(!ref || !ref.length)
- continue;
- bbs.log_str(ref + "\r\n");
- break;
- }
-}
-
-
-// Force split-screen chat on ANSI users
-if(user.settings&USER_ANSI)
- user.chat_settings|=CHAT_SPLITP;
-
-// Inactivity exemption
-if(user.security.exemptions&UFLAG_H)
- console.status|=CON_NO_INACT;
-
-/******************************
- * Replaces the 2.1 Logon stuff
- ******************************/
-
-// Logon screens
-
-// Print logon screens based on security level
-if(file_exists(system.text_dir + "menu/logon" + user.level + ".*"))
- menu(logon + user.level);
-
-// Print successively numbered logon screens (logon, logon1, logon2, etc.)
-for(i=0;;i++) {
- fname="logon";
- if(i)
- fname+=i;
- if(!file_exists(system.text_dir + "menu/" + fname + ".*")) {
- if(i>1)
- break;
- continue;
- }
- bbs.menu(fname);
-}
-
-console.clear();
-bbs.user_event(EVENT_LOGON);
-
-// Last few callers
-console.aborted=false;
-console.clear();
-logonlst=system.data_dir + "logon.lst"
-if(file_size(logonlst)<1)
- printf("\1n\1g\1hYou are the first caller of the day!\r\n");
-else {
- printf("\1n\1g\1hLast few callers:\1n\r\n");
- console.printtail(logonlst,P_NOATCODES,4);
-}
-console.crlf();
-
-// Auto-message
-auto_msg=system.data_dir + "msgs/auto.msg"
-if(file_size(auto_msg)>0) {
- console.printfile(auto_msg,P_NOATCODES);
- console.crlf();
-}
-
-// Automatically set shell to WIPSHELL
-if(user.settings&USER_WIP)
- user.shell="WIPSHELL";
-
-
-if(user.security.level==99 /* Sysop logging on */
- && !system.matchuser("guest") /* Guest account does not yet exist */
- && user.security.flags4&UFLAG_G /* Sysop has not asked to stop this question */
- ) {
- if(console.yesno("Create Guest/Anonymous user account (highly recommended)"))
- load("makeguest.js");
- else if(!console.yesno("Ask again later"))
- user.security.flags4&=~UFLAG_G; /* Turn off flag 4G to not ask again */
- console.crlf();
-}
diff --git a/exec/logon.src b/exec/logon.src
deleted file mode 100644
index 1f96b71ab51507abcbb4737b72ee32e6618486ad..0000000000000000000000000000000000000000
--- a/exec/logon.src
+++ /dev/null
@@ -1,154 +0,0 @@
-# logon.src
-
-# Synchronet v2.20 Logon Module
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-or _node_misc NM_NOPAUSESPIN # Disable spinning cursor at pause prompts
-
-compare_ars rest G
-if_true
- :get_name
- print "\1y\1hFor our records, please enter your full name: \1w"
- getname 25
- compare_str ""
- if_true
- goto get_name
- end_if
- log "Guest: "
- logstr
- set_user_string user_string_realname
-
- :get_loc
- print "\1y\1hPlease enter your location (City, State): \1w"
- getname 30
- compare_str ""
- if_true
- goto get_loc
- end_if
- log " "
- logstr
- set_user_string user_string_location
-
-# :get_phone
-# print "\1y\1hPlease enter your voice telephone number: "
-# get_template nnn-nnn-nnnn
-# compare_str ""
-# if_true
-# goto get_phone
-# end_if
-# log " "
-# logstr
-# set_user_string user_string_phone
- log "\r\n"
- :get_mag
- print "yhWhere did you hear about this BBS?\r\n: w"
- getstr 70
- compare_str ""
- if_true
- goto get_mag
- end_if
- logstr
- log "\r\n"
- end_if
-
-#compare_ars rest G or rest X or flag S
-#if_false
-# no_yes Do you want to enter the \1cSynchronet Match Maker\1b
-# if_false
-# exec_xtrn smm
-# end_if
-# end_if
-
-# Force split-screen chat on ANSI users
-compare_user_misc UM_ANSI
-if_true
- compare_user_chat CHAT_SPLITP
- if_false
- toggle_user_chat CHAT_SPLITP
- end_if
- end_if
-
-# Inactivity exemption
-compare_ars exempt H
-if_true
- or _console CON_NO_INACT
- end_if
-
-###############################################################################
-# Replaces the 2.1 Logon stuff
-##############################
-int i
-
-# Logon screens
-
-compare_ars LOCAL
-if_true
- goto logon_event
- end_if
-
-sprintf str "logon%ld" _useron.level
-chkfile "%zmenu/%s.*"
-if_true
- menu "%s"
- end_if
-
-set i 0
-:logon_screens
- add i 1
- compare i 1
- if_equal
- set str "logon"
- else
- sprintf str "logon%ld" i
- end_if
- chkfile "%zmenu/%s.*"
- if_false
- goto logon_event
- end_if
- menu "%s"
- compare_user_misc UM_WIP
- if_true
- getkey
- end_if
- goto logon_screens
-
-:logon_event
-cls
-user_event event_logon
-
-# Last few callers
-clear_abort
-cls
-str logonlst
-set logonlst "%jlogon.lst"
-get_file_length i logonlst
-compare i 1
-if_less
- print "\1n\1g\1hYou are the first caller of the day!\r\n"
-else
- print "\1n\1g\1hLast few callers:\1n\r\n"
- printtail logonlst P_NOATCODES 4
- crlf
- endif
-
-# Auto-message
-setstr "%jmsgs/auto.msg"
-get_file_length i str
-compare i 0
-if_greater
- printfile str P_NOATCODES
- crlf
- end_if
-
-# Automatically set shell to WIPSHELL
-compare_user_misc UM_WIP
-if_true
- setstr "WIPSHELL"
- set_shell
- end_if
-
diff --git a/exec/mailproc_example.js b/exec/mailproc_example.js
deleted file mode 100644
index 4621794a8c7644cc3bbba99be8d765f1507dcb8b..0000000000000000000000000000000000000000
--- a/exec/mailproc_example.js
+++ /dev/null
@@ -1,56 +0,0 @@
-// mailproc_example.js
-
-// Example SMTP "Mail Processor" module
-// Requires Synchronet Mail Server 1.298 or later
-
-// $Id$
-
-load("mailproc_util.js");
-
-// Set to false at any time to indicate a processing failure
-var success=true;
-
-// These lines open the processing error output file as a new File object.
-// If there are any processing errors (e.g. filtered context, blocked sender),
-// you can reject the message by simply writing some text to 'errfile'.
-var errfile = new File(processing_error_filename);
-if(!errfile.open("w"))
- exit();
-
-// These lines read the recipient list into a new 'recipient' object array.
-var rcptlst = new File(recipient_list_filename);
-if(!rcptlst.open("r"))
- exit();
-var recipient=rcptlst.iniGetAllObjects("number");
-// At this point we can access the list of recipients very easily
-// using the 'recipient' object array.
-
-// These lines open the message text file in append mode (writing to the end)
-var msgtxt = new File(message_text_filename);
-if(!msgtxt.open("a+")) // Change the mode to "r+" for "read/update" access
- exit();
-
-// Create an object (associative array) of header field strings
-var header = parse_msg_header(msgtxt.readAll());
-
-// This an example of modifying the message text.
-// In this case, we're adding some text (a dump of the recipient object array)
-// to the end of the message.
-msgtxt.writeln("\r\nHello from mailproc_example.js");
-
-// Dump recipient object array
-msgtxt.writeln("\r\nArray of recipient objects (message envelopes):\r\n");
-for(i in recipient) // For each recipient object...
- for(j in recipient[i]) // For each property...
- msgtxt.writeln("recipient[" +i+ "]." +j+ " = " + recipient[i][j]);
-
-// Dump header field strings
-msgtxt.writeln("\r\nArray of RFC822 header fields:\r\n");
-for(i in header)
- msgtxt.writeln("header[" +i+ "] = " + header[i]);
-
-// If there were any processing errors... reject the message
-if(!success)
- errfile.writeln("A mail processing error occurred. Message rejected.");
-
-// End of mailproc_example.js
\ No newline at end of file
diff --git a/exec/major.src b/exec/major.src
deleted file mode 100644
index c58e73c7457c7adb3fd6927a662c9ededccdc823..0000000000000000000000000000000000000000
--- a/exec/major.src
+++ /dev/null
@@ -1,349 +0,0 @@
-# major.src
-
-# MajorBBS Clone Command Shell for Synchronet
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-:main
-cmd_home
-menu major/main
-getstr 10
-compare_str ""
-if_true
- end_cmd
- end_if
-ungetstr
-getkey
-node_action node_main
-logkey_comma
-
-cmdkey ?
- end_cmd
-
-cmdkey T
- exec_bin chat_sec
- end_cmd
-
-cmdkey I
- text_file_section
- end_cmd
-
-cmdkey F
- call message
- end_cmd
-
-cmdkey E
- cmd_home
- menu major/email
- getstr 10
- compare_str ""
- if_true
- end_cmd
- end_if
- ungetstr
- getkey
- logkey
-
- cmdkey R
- mail_read
- end_cmd
-
- cmdkey W
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
- cmdkey S
- no_yes "\r\nAttach a file"
- if_true
- mail_send_netmail
- else
- mail_send_netfile
- end_if
- end_cmd
-
- cmdkey U
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send_file
- end_cmd
-
- cmdkey E
- mail_read_sent
- end_cmd
-
- cmdkey X
- cmd_pop
- end_cmd
-
- end_cmd
-
-cmdkey L
- call transfers
- end_cmd
-
-cmdkey D
- xtrn_section
- end_cmd
-
-cmdkey A
- cmd_home
- menu major/userdefs
- getstr 10
- compare_str ""
- if_true
- end_cmd
- end_if
- ungetstr
- getkey
- logkey
-
- cmdkey S
- info_user
- end_cmd
-
- cmdkey A
- user_defaults
- end_cmd
-
- cmdkey X
- cmd_pop
- end_cmd
-
- end_cmd
-
-cmdkey R
- print "\r\nchList Users\r\n"
- mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
- getcmd LSA\r
-
- cmdkey L
- userlist_logons
- end_cmd
- cmdkey S
- userlist_sub
- end_cmd
- cmdkey A
- userlist_all
- end_cmd
-
- # fall-through for CR, Ctrl-C, etc
- end_cmd
-
-cmdkey S
- compare_ars SYSOP or exempt Q or I or N
- if_true
- call sysop
- end_if
- end_cmd
-
-cmdkey X
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-end_cmd
-
-############################### Message Section ###############################
-
-:message
-cmd_home
-menu major/msg
-getstr 10
-compare_str ""
-if_true
- end_cmd
- end_if
-ungetstr
-getkey
-
-# Update node status
-node_action node_main
-logkey_comma
-
-cmdkey ?
- end_cmd
-
-cmdkey X
- cmd_pop
- return
- end_cmd
-
-cmdkey R
- msg_read
- end_cmd
-
-cmdkey W
- msg_post
- end_cmd
-
-cmdkey Q
- cmd_home
- menu major/quickscn
- getstr 10
- compare_str ""
- if_true
- end_cmd
- end_if
- ungetstr
- getkey
- logkey
-
- cmdstr S
- msg_new_scan
- end_cmd
-
- cmdstr L
- msg_your_scan
- end_cmd
-
- cmdstr K
- msg_find_text
- end_cmd
-
- cmdstr C
- cmd_home
- menu maincfg
- async
- print "\r\nyhConfig: n"
- getcmd ?QNPIS
- logkey
-
- cmdkey ?
- compare_ars expert
- if_true
- menu maincfg
- end_if
- end_cmd
-
- cmdkey N
- msg_new_scan_cfg
- end_cmd
-
- cmdkey S
- msg_your_scan_cfg
- end_cmd
-
- cmdkey P
- msg_ptrs_cfg
- end_cmd
-
- cmdkey I
- msg_ptrs_reinit
- end_cmd
-
- cmdkey Q
- cmd_pop
- end_cmd
-
- end_cmd
- cmd_pop
- end_cmd
-
-cmdkey T
- exec_bin chat_sec
- end_cmd
-
-cmdkey S
- msg_select_area
- end_cmd
-
-cmdkey F
- call transfers
- end_cmd
-
-cmd_pop
-return
-
-############################ Transfer Menu Commands ###########################
-:transfers
-cmd_home
-menu major/file
-getstr 10
-compare_str ""
-if_true
- end_cmd
- end_if
-ungetstr
-getkey
-logkey
-
-cmdkey F
- print "\r\nchList Files\r\n"
- getfilespec
- if_true
- file_list
- end_if
- end_cmd
-
-cmdkey D
- print "\r\nchDownload File(s)\r\n"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdkey U
- print "\r\nchUpload File\r\n"
- chkfile "%zmenu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdkey S
- file_select_area
- end_cmd
-
-cmdkey X
- cmd_pop
- return
- end_cmd
-
-end_cmd
-
-############################## Sysop Commands #################################
-
-:sysop
-menu sysmain
-print "n\r\nchSelect an option (or X to exit): n"
-getstrupr 40
-
-compare_str "X"
-if_true
- return
- end_if
-
-exec_bin str_cmds
-goto sysop
-
diff --git a/exec/makeguest.js b/exec/makeguest.js
deleted file mode 100644
index e0447c66fe211ce37f88ab3c1a3132550a0cea30..0000000000000000000000000000000000000000
--- a/exec/makeguest.js
+++ /dev/null
@@ -1,39 +0,0 @@
-// makeguest.js
-
-// Script to create the Guest/Anonymous user account
-// This is normally executed from logon.js (rev 1.7+)
-
-// $Id$
-
-// Don't create guest account if sysop account hasn't been created yet
-if(!system.stats.total_users) {
- printf("No users in database.\r\n");
- exit();
-}
-
-// If guest account exists, exit
-if(system.matchuser("Guest")) {
- printf("Guest account already exists.\r\n");
- exit();
-}
-
-load("sbbsdefs.js"); // needed for UFLAG_* definitions
-
-// Create the account
-guest=system.new_user("Guest");
-guest.handle="Guest";
-guest.gender='?';
-guest.comment="This is the auto-generated Guest/Anonymous user account.";
-
-// Setup intelligent security parameters
-guest.security.restrictions|=UFLAG_G; // can't edit defaults (main 'Guest' indicator)
-guest.security.restrictions|=UFLAG_K; // can't read sent mail
-guest.security.restrictions|=UFLAG_P; // can't post
-guest.security.restrictions|=UFLAG_M; // can't post on networked subs (redundant)
-guest.security.restrictions|=UFLAG_W; // can't write to the auto-message
-guest.security.exemptions|=UFLAG_G; // multiple simultaneous logins
-guest.security.exemptions|=UFLAG_L; // unlimited logons per day
-guest.security.exemptions|=UFLAG_T; // unlimited time online
-guest.security.exemptions|=UFLAG_P; // permanent (never expires)
-
-printf("Guest account (user #%d) created successfully.\r\n",guest.number);
diff --git a/exec/matrix.src b/exec/matrix.src
deleted file mode 100644
index 0ac3c0142f3e697ef44993e7ea32447d429a1654..0000000000000000000000000000000000000000
--- a/exec/matrix.src
+++ /dev/null
@@ -1,172 +0,0 @@
-# matrix.src
-
-# Light-bar answer module for Synchronet BBS v2.2+
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-!define LAST 2
-logout
-node_status NODE_LOGON
-
-compare_ars WIP
-if_true
- exec_bin WIPLOGIN
- return
- end_if
-
-int c m
-
-:top
-compare c 10
-if_greater_or_equal
- hangup
- return
- end_if
-
-# Trigger scripts with old style prompt
-print "NN: "
-pause_reset
-cls
-cmd_home
-compare_user_misc UM_ANSI
-if_true
- print "\x1b[H"
-else
- cls
- end_if
-
-print " "
-print "4yh"
-print "������������������������������ͻn\r\n"
-print " "
-print "4yh"
-print "� Logon Matrix �nb��n\r\n"
-print " "
-print "4yh"
-print "������������������������������nb��n\r\n"
-print " 4yh� "
-compare m 0
- if_equal
- print "7bh"
- else
- print " 4wh"
- end_if
-print " Existing User Account "
-print "4y �nb��n\r\n 4yh� "
-compare m 1
- if_equal
- print "7bh"
- else
- print " 4wh"
- end_if
-print " New User Account "
-print "4y �nb��n\r\n 4yh� "
-compare m 2
- if_equal
- print "7bh"
- else
- print " 4wh"
- end_if
-print " Guest User Account "
-print "4y �nb��n\r\n 4yh"
-print "������������������������������ͼnb��n\r\nnb"
-print " "
-print " ��������������������������������n\r\n"
-
-#sync
-getkey
-
-# Down Arrow, Ctrl-J or 'D'
-cmdkeys ^JD
- add m 1
- compare m LAST
- if_greater
- set m 0
- end_if
- pause_reset
- end_cmd
-
-# Up Arrow, Ctrl-^ or 'U'
-cmdkeys ^^U
- sub m 1
- compare m 0
- if_less
- set m LAST
- end_if
- pause_reset
- end_cmd
-
-# Home or Ctrl-B
-cmdkey ^B
- set m 0
- end_cmd
-
-# End of Ctrl-E
-cmdkey ^E
- set m LAST
- end_cmd
-
-cmdkeys ABCDEFGHIJKLMNOPQRSTUVWXYZ*
- ungetkey
- cmd_pop
- end_cmd
-
-switch m
- case 0
- cls
- print "Login: "
- getstr str 25 K_UPRLWR|K_LOWPRIO|K_E71DETECT
- truncsp str
- compare_str ""
- if_true
- add c 1
- goto top
- end_if
- login "PW: "
- if_true
- logon
- if_true
- return
- end_if
- end_if
- pause
- add c 2
- goto top
- end_case
- case 1
- setstr "%q"
- compare_str "VERT"
- if_true
- yes_no Are you calling just to download Synchronet BBS software
- if_true
- setstr "Guest"
- login "PW: "
- if_true
- logon
- if_true
- return
- end_if
- end_if
- end_if
- end_if
- newuser
- logon
- return
- end_case
-
- case 2
- setstr "guest"
- login "PW: "
- if_true
- logon
- if_true
- return
- end_if
- end_if
- end_case
- end_switch
-goto top
-
diff --git a/exec/mlistgate.js b/exec/mlistgate.js
deleted file mode 100644
index c6497699524ce11c5d82a667875759805df7b8b8..0000000000000000000000000000000000000000
--- a/exec/mlistgate.js
+++ /dev/null
@@ -1,194 +0,0 @@
-// mlistgate.js
-
-// Synchronet Mailing List Gateway Module
-
-// This module will scan one or more message bases (listed in ctrl/mlistgate.cfg)
-// and export any new messages to the mail database to be sent to one or more
-// list-server e-mail addresses.
-
-// $Id$
-
-// Configuration file (in ctrl/mlistgate.cfg) format:
-
-// <subcode> <fromaddr> <toaddr> [toaddr] [...]
-
-const REVISION = "$Revision$".split(' ')[1];
-
-printf("Synchronet Mailing List Gateway %s session started\r\n", REVISION);
-
-var tearline = format("--- Synchronet %s%s-%s MListGate %s\r\n"
- ,system.version,system.revision,system.platform,REVISION);
-var tagline = format(" * %s - %s - telnet://%s\r\n"
- ,system.name,system.location,system.inetaddr);
-
-var cfg_fname = system.ctrl_dir + "mlistgate.cfg";
-
-var reset_export_ptrs = false;
-var update_export_ptrs = false;
-
-load("sbbsdefs.js");
-
-if(this.js==undefined) // v3.10?
- js = { terminated: false };
-
-area = new Array();
-
-/******************************/
-/* Read/Parse the Config File */
-/******************************/
-
-cfg_file = new File(cfg_fname);
-if(!cfg_file.open("r")) {
- printf("!Error %d opening %s\r\n",errno,cfg_fname);
- delete cfg_file;
- exit();
-}
-
-while(!cfg_file.eof) {
- line = cfg_file.readln();
- if(line==null || line[0] == ';' || !line.length || line==undefined)
- continue;
- line = truncsp(line);
- str=line.split(/\s+/);
- area.push(str);
-}
-delete cfg_file;
-
-/******************/
-/* Expor Messages */
-/******************/
-var exported=0;
-
-mailbase = new MsgBase("mail");
-if(mailbase.open!=undefined && mailbase.open()==false) {
- printf("!ERROR %s opening mail base\r\n",mailbase.last_error);
- exit();
-}
-
-printf("Scanning %lu message bases...\r\n",area.length);
-for(i in area) {
-
- if(js.terminated)
- break;
-
- sub = area[i].shift();
-
- from = area[i].shift();
-
- msgbase = new MsgBase(sub);
- if(msgbase.open!=undefined && msgbase.open()==false) {
- printf("!ERROR %s opening msgbase: %s\r\n",msgbase.last_error,sub);
- delete msgbase;
- continue;
- }
-
- printf("sub: %s\r\n",sub);
-
- /*********************/
- /* Read Pointer File */
- /*********************/
- export_ptr = 0;
- ptr_fname = msgbase.file + ".mlg";
- ptr_file = new File(ptr_fname);
- if(ptr_file.open("rb")) {
- export_ptr = ptr_file.readBin();
- printf("%s export ptr: %ld\r\n",sub,export_ptr);
- ptr_file.close();
- }
-
- if(reset_export_ptrs)
- ptr = 0;
- else if(update_export_ptrs)
- ptr = msgbase.last_msg;
- else
- ptr = export_ptr;
-
- if(ptr < msgbase.first_msg)
- ptr = msgbase.first_msg;
- else
- ptr++;
-
- /*************************/
- /* EXPORT Local Messages */
- /*************************/
- last_msg=msgbase.last_msg;
- for(;ptr<=last_msg && !js.terminated;ptr++) {
- if(this.console!=undefined)
- console.line_counter = 0;
- hdr = msgbase.get_msg_header(
- /* retrieve by offset? */ false,
- /* message number */ ptr,
- /* regenerate msg-id? */ false
- );
- if(hdr == null)
- continue;
- if(hdr.attr&MSG_DELETE) /* marked for deletion */
- continue;
- if(hdr.attr&MSG_MODERATED && !(hdr.attr&MSG_VALIDATED))
- continue;
- if(hdr.attr&MSG_PRIVATE)/* no private messages on list */
- continue;
- if(hdr.reverse_path) /* no dupe loop */
- continue;
- if(hdr.from_net_type /* don't gate messages between net types */
- && msgbase.cfg!=undefined && !(msgbase.cfg.settings&SUB_GATE))
- continue;
-
- body = msgbase.get_msg_body(
- false /* retrieve by offset */
- ,ptr /* message number */
- ,true /* remove ctrl-a codes */
- ,true /* rfc822 formatted text */
- ,true /* include tails */
- );
- if(body == null) {
- printf("!FAILED to read message number %ld\r\n",ptr);
- continue;
- }
- if(msgbase.cfg!=undefined && msgbase.cfg.settings&SUB_ASCII) {
- /* Convert Ex-ASCII chars to approximate ASCII equivalents */
- body = ascii_str(body);
- hdr.subject = ascii_str(hdr.subject);
- }
- body += tearline;
- body += tagline;
-
- while(area[i].length) { /* For each list server... */
-
- listserv=area[i].shift();
-
- /* Address message to list server e-mail address */
- hdr.to_net_addr = listserv;
- hdr.to_net_type = NET_INTERNET;
-
- hdr.from_net_addr = from;
- hdr.from_net_type = NET_INTERNET;
-
- /* Copy to message base */
- mailbase.save_msg(hdr,body);
- printf("Exported message %lu to list server: %s\r\n",ptr,listserv);
- exported++;
- }
- }
- if(ptr > msgbase.last_msg)
- ptr = msgbase.last_msg;
- export_ptr = ptr;
-
- /* Save Pointers */
- if(!ptr_file.open("wb"))
- printf("!ERROR %d creating/opening %s\r\n",errno,ptr_fname);
- else {
- ptr_file.writeBin(export_ptr);
- ptr_file.close();
- }
- delete ptr_file;
- delete msgbase;
-
-}
-
-delete mailbase;
-
-printf("Synchronet Mailing List Gateway %s session complete (%lu exported)\r\n"
- ,REVISION, exported);
-
-/* End of mlistgate.js */
\ No newline at end of file
diff --git a/exec/mudgate.src b/exec/mudgate.src
deleted file mode 100644
index 6b854121503dfb10a6eb8bf7bec3e29f424fa42b..0000000000000000000000000000000000000000
--- a/exec/mudgate.src
+++ /dev/null
@@ -1,13 +0,0 @@
-# mudgate.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-printf "\r\n\1h\1hPress \1yCtrl-]\1w for a control menu anytime.\r\n\r\n"
-pause
-printf "\1h\1yConnecting to MUD: \1w%s\1n\r\n" str
-telnet_gate str TG_ECHO|TG_CRLF|TG_LINEMODE|TG_NODESYNC|TG_CTRLKEYS
-cls
diff --git a/exec/newslink.js b/exec/newslink.js
deleted file mode 100644
index 8b721f18d7d444ca32b818d9f1be5b5da3b340ff..0000000000000000000000000000000000000000
--- a/exec/newslink.js
+++ /dev/null
@@ -1,776 +0,0 @@
-// newslink.js
-
-// Synchronet Newsgroup Link/Gateway Module
-
-// $Id$
-
-// Configuration file (in ctrl/newslink.cfg) format:
-
-// ;this line is a comment
-// server servername
-// port TCP port number (defaults to 119)
-// user username (optional)
-// pass password (optional)
-// area subboard (internal code) newsgroup flags [attachment_dir]
-// ...
-
-// Defined area flags:
-// x do not add tearlines & taglines to exported messages
-// n do not add "From Newsgroup" text to imported messages
-// t do not add tearline to imported messages
-// a convert extended-ASCII chars to ASCII on imported messages
-// r remove "Newsgroups:" header field from imported messages
-// b decode binary attachments
-// i import all (not just new articles)
-// s no subject filtering
-
-const REVISION = "$Revision$".split(' ')[1];
-
-printf("Synchronet NewsLink %s session started\r\n", REVISION);
-
-var tearline = format("--- Synchronet %s%s-%s NewsLink %s\r\n"
- ,system.version,system.revision,system.platform,REVISION);
-var tagline = format(" * %s - %s - telnet://%s\r\n"
- ,system.name,system.location,system.inetaddr);
-var antispam = format(".remove-%s-this"
- ,random(50000).toString(36));
-
-var cfg_fname = system.ctrl_dir + "newslink.cfg";
-
-var global_flags = ""; // global flags - area flags applied to all areas
-
-load("sbbsdefs.js");
-load("newsutil.js"); // write_news_header() and parse_news_header()
-
-var debug = false;
-var slave = false;
-var reset_import_ptrs = false; // Reset import pointers, import all messages
-var update_import_ptrs = false; // Update import pointers, don't import anything
-var reset_export_ptrs = false; // Reset export pointers, export all messages
-var update_export_ptrs = false; // Update export pointers, don't export anything
-var email_addresses = true; // Include e-mail addresses in headers
-var import_amount = 0; // Import a fixed number of messages per group
-var lines_per_yield = 5; // Release time-slices ever x number of lines
-var yield_length = 1; // Length of yield (in milliseconds)
-var max_newsgroups_per_article = 5; // Used for spam-detection
-
-// Parse arguments
-for(i=0;i<argc;i++) {
- if(argv[i].toLowerCase()=="-d") // debug
- debug = true;
- else if(argv[i].toLowerCase()=="-ri") // reset import pointers (import all)
- reset_import_ptrs = true;
- else if(argv[i].toLowerCase()=="-ui") // update import pointers (import none)
- update_import_ptrs = true;
- else if(argv[i].toLowerCase()=="-re") // reset export pointers (export all)
- reset_export_ptrs = true;
- else if(argv[i].toLowerCase()=="-ue") // update export pointers (export none)
- update_export_ptrs = true;
- else if(argv[i].toLowerCase()=="-ne") // no e-mail addresses
- email_addresses = false;
- else if(argv[i].toLowerCase()=="-nm") // no mangling of e-mail addresses
- antispam = "";
- else if(argv[i].toLowerCase()=="-ix") // import a fixed number of messages
- {
- import_amount = parseInt(argv[i+1]);
- if(import_amount)
- i++;
- else
- import_amount = 500; // default 500
- }
- else
- cfg_fname = argv[i];
-}
-
-if(this.js==undefined) // v3.10?
- js = { terminated: false };
-else
- js.auto_terminate = false;
-
-// Write a string to the server socket
-function write(str)
-{
- socket.send(str);
-}
-
-function writeln(str)
-{
- if(debug)
- printf("cmd: %s\r\n",str);
- write(str + "\r\n");
-}
-
-function readln(str)
-{
- rsp = socket.readln();
- if(debug)
- printf("rsp: %s\r\n",rsp);
- return(rsp);
-}
-
-function unique_fname(dir,fname)
-{
- var new_fname=fname;
- var file_num=0;
- var ext;
- while(file_exists(dir + new_fname) && file_num<1000) {
- // generate unique name, if necessary
- ext=fname.lastIndexOf('.');
- if(ext<0)
- ext="";
- else
- ext=fname.slice(ext);
- // Convert filename.ext to filename.<article>.ext
- new_fname=format("%.*s.%lu%s",fname.length-ext.length,fname,file_num++,ext);
- }
- return(dir + new_fname);
-}
-
-var server;
-var port=119;
-var username;
-var password;
-area = new Array();
-
-/******************************/
-/* Read/Parse the Config File */
-/******************************/
-
-cfg_file = new File(cfg_fname);
-if(!cfg_file.open("r")) {
- printf("!Error %d opening %s\r\n",errno,cfg_fname);
- delete cfg_file;
- exit();
-}
-
-while(!cfg_file.eof) {
- line = cfg_file.readln();
- if(line==null || line[0] == ';' || !line.length || line==undefined)
- continue;
- line = truncsp(line);
- str=line.split(/\s+/);
- switch(str[0].toLowerCase()) {
- case "disabled":
- printf("!NewsLink DISABLED in %s\r\n",cfg_fname);
- delete cfg_file;
- exit();
- case "server":
- server=str[1];
- break;
- case "port":
- port=parseInt(str[1]);
- break;
- case "user":
- username=str[1];
- break;
- case "pass":
- password=str[1];
- break;
- case "flags":
- global_flags=str[1];
- break;
- case "area":
- area.push(str);
- break;
- case "debug":
- debug=true;
- break;
- case "slave":
- slave=true;
- break;
- case "tagline":
- str.shift(); // Remove first element (keyword)
- tagline=str.join(' '); // Combine remaining elements (tagline)
- tagline+="\r\n";
- break;
- case "lines_per_yield":
- lines_per_yield=parseInt(str[1]);
- break;
- case "yield_length":
- yield_length=parseInt(str[1]);
- break;
- case "max_newsgroups_per_article":
- max_newsgroups_per_article=parseInt(str[1]);
- break;
-
- default:
- print("!UNRECOGNIZED configuration keyword: " + str[0]);
- break;
- }
-}
-delete cfg_file;
-
-printf("server: %s\r\n",server);
-if(debug) {
- printf("username: %s\r\n",username);
- printf("password: %s\r\n",password);
-}
-printf("%ld areas\r\n",area.length);
-
-if(server==undefined || !server.length) {
- print("!No news server specified");
- exit();
-}
-
-printf("Connecting to %s port %d ...\r\n",server,port);
-socket = new Socket();
-//socket.debug=true;
-socket.bind(0,server.interface_ip_address);
-if(!socket.connect(server,port)) {
- printf("!Error %d connecting to %s port %d\r\n"
- ,socket.last_error,server,port);
- delete socket;
- exit();
-}
-print("Connected");
-readln();
-
-if(username!=undefined && username.length) {
- print("Authenticating...");
- writeln(format("AUTHINFO USER %s",username));
- readln();
- if(password!=undefined && password.length) {
- writeln(format("AUTHINFO PASS %s",password));
- rsp = readln();
- if(rsp==null || rsp[0]!='2') {
- printf("!Authentication FAILURE: %s\r\n", rsp);
- delete socket;
- exit();
- }
- }
- print("Authenticated");
-}
-
-if(slave) {
- writeln("slave");
- readln();
-}
-
-var stop_semaphore=system.data_dir+"newslink.stop";
-file_remove(stop_semaphore);
-
-/******************************/
-/* Export and Import Messages */
-/******************************/
-var exported=0;
-var imported=0;
-
-printf("Scanning %lu message bases...\r\n",area.length);
-for(i in area) {
-
- if(!socket.is_connected) {
- print("Disconnected");
- break;
- }
-
- if(js.terminated || file_exists(stop_semaphore))
- break;
-
-// printf("%s\r\n",area[i].toString());
-
- sub = area[i][1];
- newsgroup = area[i][2];
- flags = area[i][3];
- if(flags==undefined)
- flags="";
- flags += global_flags;
- flags = flags.toLowerCase();
-
- msgbase = new MsgBase(sub);
- if(msgbase.open!=undefined && msgbase.open()==false) {
- printf("!ERROR %s opening msgbase: %s\r\n",msgbase.last_error,sub);
- delete msgbase;
- continue;
- }
-
- // Use default newsgroup name if not configured
- if(newsgroup==undefined || newsgroup.length<2)
- newsgroup=msgbase.cfg.newsgroup;
-
- attachment_dir=area[i][4];
- if(attachment_dir==undefined)
- attachment_dir=msgbase.cfg.data_dir+"attach";
- mkdir(attachment_dir);
- if(attachment_dir.substr(-1)!='/')
- attachment_dir+="/";
-
- printf("sub: %s, newsgroup: %s\r\n",sub,newsgroup);
-
- /*********************/
- /* Read Pointer File */
- /*********************/
- export_ptr = 0;
- import_ptr = NaN; // Set to highest possible message number (by default)
- if(flags.indexOf('i')>=0) // import all
- import_ptr = 0;
- ptr_fname = msgbase.file + ".snl";
- ptr_file = new File(ptr_fname);
- if(ptr_file.open("rb")) {
- export_ptr = ptr_file.readBin();
- printf("%s export ptr: %ld\r\n",sub,export_ptr);
- import_ptr = ptr_file.readBin();
- printf("%s import ptr: %ld\r\n",sub,import_ptr);
- ptr_file.close();
- }
-
- if(reset_export_ptrs)
- ptr = 0;
- else if(update_export_ptrs)
- ptr = msgbase.last_msg;
- else
- ptr = export_ptr;
-
- if(ptr < msgbase.first_msg)
- ptr = msgbase.first_msg;
- else
- ptr++;
-
- /*************************/
- /* EXPORT Local Messages */
- /*************************/
- if(debug)
- print("exporting local messages");
- last_msg=msgbase.last_msg;
- for(;socket.is_connected
- && ptr<=last_msg
- && !js.terminated
- && !file_exists(stop_semaphore)
- ;ptr++) {
- if(this.console!=undefined)
- console.line_counter = 0;
- hdr = msgbase.get_msg_header(
- /* retrieve by offset? */ false,
- /* message number */ ptr,
- /* regenerate msg-id? */ false
- );
- if(hdr == null)
- continue;
- if(hdr.attr&MSG_DELETE) /* marked for deletion */
- continue;
- if(hdr.attr&MSG_MODERATED && !(hdr.attr&MSG_VALIDATED))
- continue;
- if(hdr.attr&MSG_PRIVATE)/* no private messages on NNTP */
- continue;
- if(hdr.from_net_type==NET_INTERNET) /* no dupe loop */
- continue;
- if(hdr.from_net_type /* don't gate messages between net types */
- && msgbase.cfg!=undefined && !(msgbase.cfg.settings&SUB_GATE))
- continue;
-
- body = msgbase.get_msg_body(
- false /* retrieve by offset */
- ,ptr /* message number */
- ,true /* remove ctrl-a codes */
- ,true /* rfc822 formatted text */
- ,true /* include tails */
- );
- if(body == null) {
- printf("!FAILED to read message number %ld\r\n",ptr);
- continue;
- }
- if(msgbase.cfg!=undefined && msgbase.cfg.settings&SUB_ASCII) {
- /* Convert Ex-ASCII chars to approximate ASCII equivalents */
- body = ascii_str(body);
- hdr.subject = ascii_str(hdr.subject);
- }
- if(flags.indexOf('x')==-1) {
- body += tearline;
- body += tagline;
- }
- if(0)
- writeln(format("IHAVE %s",hdr.id));
- else
- writeln("POST");
-
- rsp = readln();
- if(rsp==null || rsp[0]!='3') {
- printf("!POST FAILURE: %s\r\n",rsp);
- break;
- }
-
- if(!email_addresses)
- writeln(format("From: %s@%s",hdr.from,newsgroup));
- else if(hdr.from.indexOf('@')!=-1)
- writeln(format("From: %s%s",hdr.from,antispam));
- else if(hdr.from_net_type && hdr.from_net_addr!=null) {
- if(hdr.from_net_addr.indexOf('@')!=-1)
- writeln(format("From: \"%s\" <%s%s>"
- ,hdr.from
- ,hdr.from_net_addr,antispam));
- else
- writeln(format("From: \"%s\" <%s@%s%s>"
- ,hdr.from
- ,hdr.from.replace(/ /g,".").toLowerCase()
- ,hdr.from_net_addr,antispam));
- }
- else
- writeln(format("From: \"%s\" <%s@%s%s>"
- ,hdr.from
- ,hdr.from.replace(/ /g,".").toLowerCase()
- ,system.inetaddr,antispam));
-
- if(hdr.newsgroups==undefined)
- hdr.newsgroups=newsgroup;
-
- if(hdr.from_org==undefined && !hdr.from_net_type)
- hdr.from_org=system.name;
-
- write_news_header(hdr,writeln); // from newsutil.js
-
- writeln("X-Gateway: "
- + system.inetaddr
- + " [Synchronet "
- + system.version + system.revision
- + "-" + system.platform + system.beta_version
- + " NewsLink " + REVISION
- + "]"
- );
-
- writeln("");
- if(hdr.to.toLowerCase()!="all") {
- writeln(" To: " + hdr.to);
- }
- write(body);
- writeln(".");
- rsp = readln();
- if(rsp==null || rsp[0]!='2') {
- printf("!POST FAILURE: %s\r\n",rsp);
- break;
- }
- printf("Exported message %lu to newsgroup: %s\r\n",ptr,newsgroup);
- exported++;
- }
- if(ptr > msgbase.last_msg)
- ptr = msgbase.last_msg;
- export_ptr = ptr;
-
- /***************************/
- /* IMPORT Network Messages */
- /***************************/
-
- writeln(format("GROUP %s",newsgroup));
- rsp = readln();
- if(rsp==null || rsp[0]!='2') {
- printf("!GROUP %s FAILURE: %s\r\n",newsgroup,rsp);
- delete ptr_file;
- delete msgbase;
- continue;
- }
- str = rsp.split(' ');
-
- first_msg = parseInt(str[2]);
- last_msg = parseInt(str[3]);
-
- if(reset_import_ptrs)
- ptr = 0;
- else if(update_import_ptrs)
- ptr = last_msg;
- else if(import_amount)
- ptr = last_msg - import_amount;
- else
- ptr = import_ptr;
-
- printf("%s import ptr: %ld, first_msg: %ld, last_msg: %ld\r\n"
- ,newsgroup,ptr,first_msg,last_msg);
-
- if(ptr < first_msg)
- ptr = first_msg;
- else {
- if(ptr > last_msg || isNaN(ptr))
- ptr = last_msg;
- ptr++;
- }
-
- for(;socket.is_connected
- && ptr<=last_msg
- && !js.terminated
- && !file_exists(stop_semaphore)
- ;ptr++) {
- if(this.console!=undefined)
- console.line_counter = 0;
- writeln(format("ARTICLE %lu",ptr));
- rsp = readln();
- if(rsp==null || rsp[0]!='2') {
- if(debug)
- printf("!ARTICLE %lu ERROR: %s\r\n",ptr,rsp);
- continue;
- }
- body="";
- header=true;
- var hdr={ from: "", to: newsgroup, subject: "", id: "" };
- var line;
- var line_counter=0;
- var recv_lines=0;
- var file=undefined;
- var md5;
- while(socket.is_connected) {
-
- if(recv_lines && lines_per_yield && (recv_lines%lines_per_yield)==0)
- sleep(yield_length);
-
- line = socket.recvline(512 /*maxlen*/, 300 /*timeout*/);
-
- if(line==null) {
- print("!TIMEOUT waiting for text line\r\n");
- break;
- }
-
- recv_lines++;
-
- //printf("msgtxt: %s\r\n",line);
-
- if(line==".") {
-// print("End of message text");
- break;
- }
- if(line=="" && header) {
- header=false;
- continue;
- }
-
- if(header) {
- parse_news_header(hdr,line); // from newsutil.js
- continue;
- }
-
- /* Body text, append to 'body' */
- if(line.charAt(0)=='.')
- line=line.slice(1); // Skip prepended dots
-
- body += line+"\r\n";
- line_counter++;
-
- if(flags.indexOf('b')>=0) { // decode attachments
- if(file==undefined
- && line.substr(0,8)=="=ybegin "
- && line.indexOf(" line=")>0
- && (size=line.indexOf(" size="))>0
- && (name=line.indexOf(" name="))>0) {
-
- printf("yenc header: %s\r\n",line);
-
- size=parseInt(line.slice(size+6),10);
- fname=file_getname(line.slice(name+6));
-
- if((total=line.indexOf(" total="))>0)
- total=parseInt(line.slice(total+7),10);
-
- if(total>1) /* multipart */
- continue;
-
- /* part? */
- if((part=line.indexOf(" part="))>0)
- part=parseInt(line.slice(part+6),10);
-
- if(part>1) /* multipart */
- continue;
-
- if(part>0) {
-
- line = socket.recvline(512 /*maxlen*/, 300 /*timeout*/);
-
- body += line+"\r\n";
-
- printf("ypart header: %s\r\n",line);
-
- if(line.substr(0,7)!="=ypart "
- || (begin=line.indexOf(" begin="))<1
- || (end=line.indexOf(" end="))<1) {
- printf("!yEnc MALFORMED ypart line: %s\r\n",line);
- continue;
- }
- if(begin!=1 || end!=size) /* multipart */
- continue;
- }
-
- fname=unique_fname(attachment_dir,fname);
- file=new File(fname);
- file.yenc=true;
- if(file.open("w+b"))
- printf("Receiving/decoding attachment: %s\r\n",file.name);
- else
- printf("!ERROR %s opening %s\r\n",errno_str,file.name);
- continue;
- }
-
- if(file==undefined && line.substr(0,6)=="begin ") {
- // Parse uuencode header
- arg=line.split(/\s+/);
- arg.splice(0,2); // strip "begin 666 "
- fname=file_getname(arg.join(" "));
- fname=unique_fname(attachment_dir,fname);
- file=new File(fname);
- file.uue=true;
- if(file.open("w+b"))
- printf("Receiving/decoding attachment: %s\r\n",file.name);
- else
- printf("!ERROR %s opening %s\r\n",errno_str,file.name);
- continue;
- }
- if(file!=undefined && file.is_open==true) {
- if(file.uue && line=="end") {
- md5=file.md5_hex;
- file.close();
- continue;
- }
- if(file.yenc && line.substr(0,6)=="=yend "
- && (part_size=line.indexOf(" size="))>0) {
- part_size=parseInt(line.slice(part_size+6),10);
- if(part_size!=size) { /* multi-part, ignore */
- file.remove();
- delete file;
- continue;
- }
- if((crc32=line.indexOf(" pcrc32="))>0)
- crc32=parseInt(line.slice(crc32+8),16);
- else if((crc32=line.indexOf(" crc32="))>0)
- crc32=parseInt(line.slice(crc32+7),16);
- else
- crc32=undefined;
-
- if(crc32!=undefined) {
- file_crc32=file.crc32;
- if(crc32!=file_crc32) {
- printf("!yEnc CRC-32 mismatch, actual: %08lX, trailer: %s\r\n"
- ,file_crc32,line);
- file.remove();
- delete file;
- continue;
- }
- }
-
- md5=file.md5_hex;
- file.close();
- continue;
- }
-
- if(!file.write(line))
- printf("!ERROR decoding/writing: %s\r\n",line);
- }
- }
- //print(line);
- }
-
- if(file!=undefined) {
- if(file.is_open==true) { /* Incomplete attachment? */
- print("!Incomplete attachment: " + file_getname(file.name));
- file.remove();
- } else {
- /* Search for duplicate MD5 */
- print("Searching for duplicate file");
- var duplicate=false;
- md5_file=new File(attachment_dir + "md5.lst");
- if(md5_file.open("r")) {
- while(!md5_file.eof && !duplicate) {
- str=md5_file.readln();
- if(str==null)
- break;
- if(str.substr(0,32)==md5)
- duplicate=true;
- }
- md5_file.close();
- }
- if(duplicate) {
- printf("Duplicate MD5 digest found: %s\r\n",str);
- if(file_remove(file.name))
- printf("Duplicate file removed: %s\r\n",file.name);
- else
- printf("!ERROR removing duplicate file: %s\r\n",file.name);
- continue;
- }
- /* Append MD5 to history file */
- if(md5_file.open("a")) {
- md5_file.printf("%s %s\n",md5,file_getname(file.name));
- md5_file.close();
- } else
- printf("!ERROR %d (%s) creating/appending %s\r\n"
- ,errno, errno_str, md5_file.name);
- continue;
- }
- }
-
- if(truncsp(body).length==0) {
- printf("Message %lu not imported (blank)\r\n",ptr);
- continue;
- }
-
- if(max_newsgroups_per_article && hdr.newsgroups!=undefined) {
- var ngarray=hdr.newsgroups.split(',');
- if(ngarray.length>max_newsgroups_per_article) {
- var reason = format("Too many newsgroups (%d): %s",ngarray.length, hdr.newsgroups);
- printf("!%s\r\n",reason);
- system.spamlog("NNTP","NOT IMPORTED",reason,hdr.from,server,hdr.to);
- continue;
- }
- }
-
- if(hdr.to==newsgroup && hdr.newsgroups!=undefined)
- hdr.to=hdr.newsgroups;
-
- // Duplicate/looped message detection here
- if(hdr.id.indexOf('@' + system.inetaddr)!=-1)
- continue;
- if(hdr.path
- && hdr.path.indexOf(system.inetaddr)!=-1)
- continue;
- if(hdr.gateway
- && hdr.gateway.indexOf(system.inetaddr)!=-1)
- continue;
-
- if(flags.indexOf('s')==-1 && system.trashcan("subject",hdr.subject)) {
- var reason = format("Blocked subject (%s)",hdr.subject);
- printf("!%s\r\n",reason);
- system.spamlog("NNTP","NOT IMPORTED",reason,hdr.from,server,hdr.to);
- continue;
- }
-
- if(flags.indexOf('n')==-1)
- body=format("\1n\1b\1hFrom Newsgroup\1n\1b: \1h\1c%s\1n\r\n\r\n",newsgroup) + body;
-
- if(flags.indexOf('a')>=0) { // import ASCII only (convert ex-ASCII to ASCII)
- body = ascii_str(body);
- hdr.subject = ascii_str(hdr.subject);
- }
- if(flags.indexOf('r')>=0) // remove "Newsgroups:" header field
- delete hdr.newsgroups;
-
- hdr.from_net_type=NET_INTERNET;
-// hdr.from_net_addr=hdr.from;
- if(flags.indexOf('t')==-1)
- body += tearline;
- if(msgbase.save_msg(hdr,body)) {
- imported++;
- printf("Message %lu imported into %s (%lu of %lu total) %lu lines\r\n"
- ,ptr, sub, imported, msgbase.total_msgs, line_counter);
- } else
- printf("!IMPORT %lu ERROR: %s\r\n", ptr, msgbase.last_error);
- }
-
- if(ptr > last_msg)
- ptr = last_msg;
- import_ptr = ptr;
-
- /* Save Pointers */
- if(!ptr_file.open("wb"))
- printf("!ERROR %d creating/opening %s\r\n",errno,ptr_fname);
- else {
- ptr_file.writeBin(export_ptr);
- ptr_file.writeBin(import_ptr);
- ptr_file.close();
- }
- delete ptr_file;
- delete msgbase;
-
-// if(flags.indexOf('b')>=0) // binary newsgroup
-// load("binarydecoder.js",sub);
-}
-
-writeln("quit");
-readln();
-
-delete socket;
-
-printf("Synchronet NewsLink %s session complete (%lu exported, %lu imported)\r\n"
- ,REVISION, exported, imported);
-
-/* End of newslink.js */
diff --git a/exec/newuser.js b/exec/newuser.js
deleted file mode 100644
index adf89a97a24a2f04930bfb1f33c8250c60be2fa0..0000000000000000000000000000000000000000
--- a/exec/newuser.js
+++ /dev/null
@@ -1,139 +0,0 @@
-// newuser.js
-
-// New user login module
-
-// $Id$
-
-// @format.tab-size 8, @format.use-tabs true
-
-load("sbbsdefs.js");
-
-send_newuser_welcome = true; // Set to false to disable the new user welcome msg
-ask_qnet=false; // Set to true to enable QWKnet Node question
-ask_sysop=false; // Set to true to enable Synchronet Sysop question
-qnet=false;
-
-if(system.name=="Vertrauen") {
- ask_qnet=true;
- ask_sysop=true;
-}
-
-console.clear();
-
-if(!user.address.length && user.number>1) {
- printf("\1y\1hWhere did you hear about this BBS? ");
- user.address=console.getstr(30,K_LINE);
-}
-
-if(ask_qnet
- && !console.noyes("\r\nIs this account to be used for QWK Networking (DOVE-Net)\1b")
- && !console.noyes("\r\n\1bARE YOU \1wPOSITIVE\1n\1h\1b (If you're unsure, press '\1wN\1b')"))
- qnet=true;
-
-function chk_qwk_id(str)
-{
- if(str.length<2 || str.length>8)
- return(false);
-
- if(Number(str)>0 || Number(str)<0)
- return(false);
-
- /* I know this could be much smaller using regexp */
- if(str.indexOf(' ')>=0)
- return(false);
- if(str.indexOf('.')>=0)
- return(false);
- if(str.indexOf(':')>=0)
- return(false);
- if(str.indexOf(';')>=0)
- return(false);
- if(str.indexOf('\\')>=0)
- return(false);
- if(str.indexOf('/')>=0)
- return(false);
- if(str.indexOf('|')>=0)
- return(false);
- if(str.indexOf('+')>=0)
- return(false);
- if(str.indexOf('"')>=0)
- return(false);
- if(str.indexOf('&')>=0)
- return(false);
-
- if(system.matchuser(str,true)!=user.number || system.trashcan(str))
- return(false);
-
- return(true);
-}
-
-if(qnet) {
- alias = user.alias.toUpperCase();
- while(!chk_qwk_id(alias) && bbs.online) {
- console.crlf();
- printf("\1n\1g\1h o \1wYour logon name must match your BBS's QWK ID.\r\n");
- printf("\1g o\1w Your logon name is currently \"\1y%s\1w\"\r\n\r\n"
- ,user.alias.toUpperCase());
- printf("This is an invalid QWK ID. Your QWK ID MUST be ");
- printf("between 2 and 8 characters in\r\n");
- printf("length, must begin with a letter and contain only valid ");
- printf("DOS filename characters.\r\n\r\n");
- printf("\1y\1hYour correct QWK ID (as configured in your ");
- printf("BBS software) is: ");
- alias=console.getstr(8,K_UPPER|K_LINE|K_NOEXASC);
- }
- if(!bbs.online)
- exit();
- user.alias=alias;
- user.security.restrictions|=UFLAG_Q;
- user.security.exemptions|=UFLAG_L;
- user.security.exemptions|=UFLAG_T;
- user.security.exemptions|=UFLAG_D;
- user.security.exemptions|=UFLAG_M;
-}
-
-if(ask_sysop
- && !console.noyes("\r\n\1bAre you a sysop of a \1wSynchronet\1b BBS (unsure, hit '\1wN\1b')")) {
- user.flags1|=UFLAG_S;
- if(!qnet && console.yesno("\r\nDo you wish to access the Synchronet BBS List database"))
- bbs.exec_xtrn("SBL");
-}
-
-/********************************/
-/* Send New User Welcome E-mail */
-/********************************/
-welcome_msg = system.text_dir + "welcome.msg";
-if(send_newuser_welcome && file_exists(welcome_msg) && !qnet && user.number>1)
- send_newuser_welcome_msg(welcome_msg);
-
-function send_newuser_welcome_msg(fname)
-{
- file = new File(fname);
- if(!file.open("rt")) {
- log("!ERROR " + errno_str + " opening " + fname);
- return(false);
- }
- msgtxt = lfexpand(file.read(file.length));
- file.close();
- delete file;
-
- msgbase = new MsgBase("mail");
- if(msgbase.open()==false) {
- log("!ERROR " + msgbase.last_error);
- return(false);
- }
-
- hdr = {
- to: user.alias,
- to_ext: String(user.number),
- from: system.operator,
- from_ext: "1",
- subject: "Welcome to " + system.name + "!"
- };
-
- if(!msgbase.save_msg(hdr, msgtxt))
- log("!ERROR " + msgbase.last_error + "saving mail message");
-
- log("Sent new user welcome e-mail");
-
- msgbase.close();
-}
\ No newline at end of file
diff --git a/exec/nntpservice.js b/exec/nntpservice.js
deleted file mode 100644
index 589e99f01335c88f9fc5c611d143afa4e7956ba6..0000000000000000000000000000000000000000
--- a/exec/nntpservice.js
+++ /dev/null
@@ -1,698 +0,0 @@
-// nntpservice.js
-
-// Synchronet Service for the Network News Transfer Protocol (RFC 977)
-
-// $Id$
-
-// Example configuration (in ctrl/services.cfg):
-
-// NNTP 119 0-unlimited 0 nntpservice.js
-
-// Tested clients:
-// Microsoft Outlook Express 6
-// Netscape Communicator 4.77
-// Xnews 5.04.25
-// Mozilla 1.1 (Requires -auto, and a prior login via other method)
-
-const REVISION = "$Revision$".split(' ')[1];
-
-var tearline = format("--- Synchronet %s%s-%s NNTP Service %s\r\n"
- ,system.version,system.revision,system.platform,REVISION);
-var tagline = format(" * %s - %s - telnet://%s\r\n"
- ,system.name,system.location,system.inetaddr);
-
-load("sbbsdefs.js");
-load("newsutil.js");
-
-var debug = false;
-var no_anonymous = false;
-var auto_login = false;
-var msgs_read = 0;
-var msgs_posted = 0;
-var slave = false;
-var bogus_cmd_counter = 0;
-var max_bogus_cmds = 10;
-var filter_bogus_clients = false;
-
-// Parse arguments
-for(i=0;i<argc;i++) {
- if(argv[i].toLowerCase()=="-d")
- debug = true;
- else if(argv[i].toLowerCase()=="-f")
- filter_bogus_clients = true;
- else if(argv[i].toLowerCase()=="-na")
- no_anonymous = true;
- else if(argv[i].toLowerCase()=="-auto") {
- no_anonymous = true;
- auto_login = true;
- }
-}
-
-// Write a string to the client socket
-function write(str)
-{
- client.socket.send(str);
-}
-
-function writeln(str)
-{
- if(debug)
- log(format("rsp: %s",str));
- write(str + "\r\n");
-}
-
-// Courtesy of Michael J. Ryan <tracker1@theroughnecks.com>
-function getReferenceTo(reference) {
- //sbbs msg_id pattern.
- var re = /^.*<[^\.]+\.([\d]+)\.([^@]+)@[^>]*>\s*$/;
-
- //Default Response
- var to = "All"
-
- //if TO is already established, return...
- if (reference=="")
- return to;
-
- //if this didn't originate from this bbs.
- if (reference.indexOf(system.inet_addr) < 0)
- return to;
-
- //Load the msgbase the original post was from
- if (!reference.match(re))
- return to;
-
- var sub = reference.replace(re,"$2");
- var msg = parseInt(reference.replace(re,"$1"));
-
- var msgbase = new MsgBase(sub);
- if(msgbase.open!=undefined && msgbase.open()==false)
- return to;
-
- var hdr = msgbase.get_msg_header(false,msg);
- if (hdr != null)
- to = hdr.from;
-
- msgbase.close();
-
- return to;
-}
-
-var username='';
-var msgbase=null;
-var selected=null;
-var current_article=0;
-var quit=false;
-
-writeln(format("200 %s News (Synchronet %s%s-%s%s NNTP Service %s)"
- ,system.name,system.version,system.revision,system.platform,system.beta_version
- ,REVISION));
-
-if(!no_anonymous)
- login("guest"); // Login as guest/anonymous by default
-
-while(client.socket.is_connected && !quit) {
-
- // Get Request
- cmdline = client.socket.recvline(512 /*maxlen*/, 300 /*timeout*/);
-
- if(cmdline==null) {
- log("!TIMEOUT waiting for request");
- break;
- }
-
- if(cmdline=="") /* ignore blank commands */
- continue;
-
- log(format("cmd: %s",cmdline));
-
- cmd=cmdline.split(' ');
-
- switch(cmd[0].toUpperCase()) {
- case "AUTHINFO":
- if(cmd[1]==undefined) {
- writeln("500 Syntax error or unknown command");
- break;
- }
- switch(cmd[1].toUpperCase()) {
- case "USER":
- username='';
- for(i=2;cmd[i]!=undefined;i++) {
- if(i>2)
- username+=' ';
- username+=cmd[i];
- }
- writeln("381 More authentication required");
- break;
- case "PASS":
- if(login(username,cmd[2]))
- writeln("281 Authentication successful");
- else
- writeln("502 Authentication failure");
- break;
- default:
- writeln("500 Syntax error or unknown command");
- break;
- }
- continue;
- case "MODE":
- writeln("200 Hello, you can post");
- continue;
- case "DATE":
- d = new Date();
- writeln("111 " +
- format("%u%02u%02u%02u%02u%02u"
- ,d.getUTCFullYear()
- ,d.getUTCMonth()+1
- ,d.getUTCDate()
- ,d.getUTCHours()
- ,d.getUTCMinutes()
- ,d.getUTCSeconds()
- ));
- continue;
- case "QUIT":
- writeln("205 closing connection - goodbye!");
- quit=true;
- continue;
- }
-
- if(!logged_in) {
- if (auto_login) {
- log("Autologin Search: Started");
- var oUser = new User(1);
- sUser = false;
- sPassword = ""
- iLastOn = 0;
- for (var i=1; i<=system.stats.total_users; i++) {
- oUser.number = i;
- if (oUser.ip_address == client.ip_address)
- if (!(oUser.security.restrictions&UFLAG_Q)) //don't count qnet users
- if (oUser.stats.laston_date > iLastOn) { //more recent than last match
- iLastOn = oUser.stats.laston_date;
- sUser = oUser.alias;
- sPassword = oUser.security.password;
- log("!Autologin Search: Match Found ("+sUser+")");
- }
-
- }
- oUser = null;
- log("Autologin Search: Finished");
-
- if (sUser)
- login(sUser,sPassword);
- }
-
- if(!logged_in) {
- writeln("502 Authentication required");
- log("!Authentication required");
- continue;
- }
- }
-
- /* These commands require login/authentication */
- switch(cmd[0].toUpperCase()) {
-
- case "SLAVE":
- slave = true;
- writeln("202 slave status noted");
- break;
-
- case "LIST":
- if(cmd[1]!=undefined && cmd[1].toUpperCase()=="OVERVIEW.FMT") {
- writeln("215 Order of fields in overview database.");
- writeln("Subject:");
- writeln("From:");
- writeln("Date:");
- writeln("Message-ID:");
- writeln("References:");
- writeln("Bytes:");
- writeln("Lines:");
- }
- else {
- writeln("215 list of newsgroups follows");
- for(g in msg_area.grp_list)
- for(s in msg_area.grp_list[g].sub_list) {
- msgbase=new MsgBase(msg_area.grp_list[g].sub_list[s].code);
- if(msgbase.open!=undefined && msgbase.open()==false)
- continue;
- writeln(format("%s %u %u %s"
- ,msg_area.grp_list[g].sub_list[s].newsgroup
- ,msgbase.last_msg
- ,msgbase.first_msg
- ,msg_area.grp_list[g].sub_list[s].can_post ? "y" : "n"
- ));
- msgbase.close();
- }
- }
- writeln("."); // end of list
- break;
-
- case "XGTITLE":
- writeln("282 list of newsgroups follows");
- for(g in msg_area.grp_list)
- for(s in msg_area.grp_list[g].sub_list)
- writeln(format("%s %s"
- ,msg_area.grp_list[g].sub_list[s].newsgroup
- ,msg_area.grp_list[g].sub_list[s].description
- ));
- writeln("."); // end of list
- break;
-
- case "NEWGROUPS":
- writeln("231 list of new newsgroups follows");
- writeln("."); // end of list
- break;
-
- case "GROUP":
- if(cmd[1]==undefined) {
- writeln("411 no group specified");
- break;
- }
- found=false;
- for(g in msg_area.grp_list)
- for(s in msg_area.grp_list[g].sub_list)
- if(msg_area.grp_list[g].sub_list[s].newsgroup.toLowerCase()==cmd[1].toLowerCase()) {
- msgbase=new MsgBase(msg_area.grp_list[g].sub_list[s].code);
- if(msgbase.open!=undefined && msgbase.open()==false)
- continue;
- found=true;
- selected=msg_area.grp_list[g].sub_list[s];
- break;
- }
- if(found)
- writeln(format("211 %u %u %u %s group selected"
- ,msgbase.total_msgs // articles in group
- ,msgbase.first_msg
- ,msgbase.last_msg
- ,selected.newsgroup
- ));
- else {
- writeln("411 no such newsgroup");
- log("!no such group");
- bogus_cmd_counter++;
- }
- break;
-
- case "OVER":
- case "XOVER":
- if(msgbase==null) {
- writeln("412 no newsgroup selected");
- break;
- }
- writeln("224 Overview information follows");
- var first, last;
- if(cmd[1]==undefined)
- first=last=current_article;
- else if(cmd[1].indexOf('-')>=0) { /* range */
- range=cmd[1].split('-');
- first=Number(range[0]);
- last=Number(range[1]);
- } else
- first=last=Number(cmd[1]);
- for(i=first;i<=last;i++) {
- hdr=msgbase.get_msg_header(false,i);
- if(hdr==null)
- continue;
- if(hdr.attr&MSG_DELETE) /* marked for deletion */
- continue;
- writeln(format("%u\t%s\t%s\t%s\t%s\t%s\t%u\t%u"
- ,i
- ,hdr.subject
- ,hdr.from
- ,hdr.date
- ,hdr.id // message-id
- ,hdr.reply_id // references
- ,hdr.data_length // byte count
- ,Math.round(hdr.data_length/79)+1 // line count
- ));
- }
- writeln("."); // end of list
- break;
-
- case "XHDR":
- if(cmd[1]==undefined || cmd[2]==undefined) {
- writeln("500 Syntax error or unknown command");
- break;
- }
- if(msgbase==null) {
- writeln("412 no newsgroup selected");
- break;
- }
- writeln("221 Header follows");
- var first, last;
- if(cmd[2].indexOf('-')>=0) { /* range */
- range=cmd[2].split('-');
- first=Number(range[0]);
- last=Number(range[1]);
- } else
- first=last=Number(cmd[2]);
- for(i=first;i<=last;i++) {
- hdr=msgbase.get_msg_header(false,i);
- if(hdr==null)
- continue;
- if(hdr.attr&MSG_DELETE) /* marked for deletion */
- continue;
- var field="";
- switch(cmd[1].toLowerCase()) { /* header */
- case "to":
- field=hdr.to;
- break;
- case "subject":
- field=hdr.subject;
- break;
- case "from":
- field=hdr.from;
- break;
- case "reply-to":
- field=hdr.replyto;
- break;
- case "date":
- field=hdr.date;
- break;
- case "message-id":
- field=hdr.id;
- break;
- case "references":
- field=hdr.reply_id;
- break;
- case "lines":
- field=Math.round(hdr.data_length/79)+1;
- break;
- /* FidoNet header fields */
- case "x-ftn-pid":
- field=hdr.ftn_pid;
- break;
- case "x-ftn-area":
- field=hdr.ftn_area;
- break;
- case "x-ftn-flags":
- field=hdr.ftn_flags;
- break;
- case "x-ftn-msgid":
- field=hdr.ftn_msgid;
- break;
- case "x-ftn-reply":
- field=hdr.ftn_reply;
- break;
- }
- if(field==undefined)
- field="";
-
- writeln(format("%u %s",i,field.toString()));
- }
- writeln("."); // end of list
- break;
-
- case "ARTICLE":
- case "HEAD":
- case "BODY":
- case "STAT":
- if(msgbase==null) {
- writeln("412 no newsgroup selected");
- bogus_cmd_counter++;
- break;
- }
- if(cmd[1]==undefined) {
- writeln("420 no current article has been selected");
- bogus_cmd_counter++;
- break;
- }
- if(cmd[1]!='') {
- if(cmd[1].indexOf('<')>=0) /* message-id */
- current_article=cmd[1];
- else
- current_article=Number(cmd[1]);
- }
- if(typeof(current_article)=="number"
- && (current_article<1 || isNaN(current_article))) {
- writeln("420 no current article has been selected");
- break;
- }
-
- hdr=null;
- body=null;
- hdr=msgbase.get_msg_header(false,current_article);
-
- if(hdr==null) {
- writeln("430 no such article found: " + current_article);
- break;
- }
-
- current_article=hdr.number;
-
- if(cmd[0].toUpperCase()!="HEAD")
- body=msgbase.get_msg_body(false,current_article
- ,true /* remove ctrl-a codes */
- ,true /* rfc822 formatted text */);
-
- // force taglines for QNET Users on local messages
- if(user.security.restrictions&UFLAG_Q && !hdr.from_net_type)
- body += "\r\n" + tearline + tagline;
-
-/* Eliminate dupe loops
- if(user.security.restrictions&UFLAG_Q && hdr!=null)
-*/
- if(hdr.attr&MSG_MODERATED && !(hdr.attr&MSG_VALIDATED)) {
- writeln("430 unvalidated message");
- break;
- }
- if(hdr.attr&MSG_DELETE) {
- writeln("430 deleted message");
- break;
- }
- if(hdr.attr&MSG_PRIVATE
- && hdr.to.toLowerCase()!=user.alias.toLowerCase()
- && hdr.to.toLowerCase()!=user.name.toLowerCase()) {
- writeln("430 private message");
- break;
- }
-
- switch(cmd[0].toUpperCase()) {
- case "ARTICLE":
- writeln(format("220 %d %s article retrieved - head and body follow",current_article,hdr.id));
- break;
- case "HEAD":
- writeln(format("221 %d %s article retrieved - header follows",current_article,hdr.id));
- break;
- case "BODY":
- writeln(format("222 %d %s article retrieved - body follows",current_article,hdr.id));
- break;
- case "STAT":
- writeln(format("223 %d %s article retrieved",current_article,hdr.id));
- break;
- }
- if(cmd[0].toUpperCase()=="STAT")
- break;
-
- if(cmd[0].toUpperCase()!="BODY") {
-
- if(!hdr.from_net_type) /* local message */
- writeln(format("From: \"%s\" <%s@%s>"
- ,hdr.from
- ,hdr.from.replace(/ /g,".").toLowerCase()
- ,system.inetaddr));
- else if(!hdr.from_net_addr.length)
- writeln(format("From: %s",hdr.from));
- else if(hdr.from_net_addr.indexOf('@')!=-1)
- writeln(format("From: \"%s\" <%s>"
- ,hdr.from
- ,hdr.from_net_addr));
- else
- writeln(format("From: \"%s\" <%s@%s>"
- ,hdr.from
- ,hdr.from.replace(/ /g,".").toLowerCase()
- ,hdr.from_net_addr));
-
- if(hdr.path==undefined)
- hdr.path="not-for-mail";
-
- if(hdr.newsgroups==undefined)
- hdr.newsgroups = selected.newsgroup;
-
- if(hdr.from_org==undefined && !hdr.from_net_type)
- hdr.from_org=system.name;
-
- write_news_header(hdr,writeln); // from newsutil.js
- }
- if(hdr!=null && body!=null) /* both, separate with blank line */
- writeln("");
- if(body!=null) {
- write(body);
- msgs_read++;
- }
- writeln(".");
- break;
-
- case "NEXT":
- case "LAST":
- if(msgbase==null) {
- writeln("412 no newsgroup selected");
- break;
- }
- if(current_article<1) {
- writeln("420 no current article has been selected");
- break;
- }
- if(cmd[0].toUpperCase()=="NEXT")
- current_article++;
- else
- current_article--;
- writeln(format("223 %u %u article retrieved - request text separately"
- ,current_article
- ,current_article
- ));
- break;
-
- case "IHAVE":
- if(cmd[1]!=undefined && cmd[1].indexOf('@' + system.inetaddr)!=-1) { // avoid dupe loop
- writeln("435 that article came from here. Don't send.");
- continue;
- }
- case "POST":
- if(user.security.restrictions&UFLAG_P) {
- writeln("440 posting not allowed");
- break;
- }
- writeln("340 send article to be posted. End with <CR-LF>.<CR-LF>");
-
- var hdr={ from: "", subject: "" };
- var posted=false;
- var header=true;
- var body="";
- var newsgroups=new Array();
- var lines=0;
- while(client.socket.is_connected) {
-
- line = client.socket.recvline(512 /*maxlen*/, 300 /*timeout*/);
-
- if(line==null) {
- log("!TIMEOUT waiting for text line");
- break;
- }
-
- //log(format("msgtxt: %s",line));
-
- if(line==".") {
- log(format("End of message text (%u chars)",body.length));
- break;
- }
- if(line=="" && header) {
- header=false;
- continue;
- }
-
- if(!header) { /* Body text, append to 'body' */
- if(line.charAt(0)=='.')
- line=line.slice(1); // Skip prepended dots
- body += line;
- body += "\r\n";
- lines++;
- continue;
- }
- log(line);
-
- parse_news_header(hdr,line); // from newsutil.js
- }
-
- if(user.limits!=undefined
- && lines > user.limits.lines_per_message) {
- log(format("!Message of %u lines exceeds user limit (%u lines)"
- ,lines,user.limits.lines_per_message));
- writeln(format("441 posting failed, number of lines (%u) exceeds max (%u)"
- ,lines,user.limits.lines_per_message));
- break;
- }
-
- newsgroups=hdr.newsgroups.split(',');
-
- if(hdr.to==undefined && hdr.reply_id!=undefined)
- hdr.to=getReferenceTo(hdr.reply_id);
-
- if(hdr.to==undefined && hdr.newsgroups!=undefined)
- hdr.to=hdr.newsgroups;
-
- if(!(user.security.restrictions&(UFLAG_G|UFLAG_Q))) { // !Guest and !Network Node
- hdr.from=user.alias;
- hdr.from_ext=user.number;
- }
-
- /* Security logging */
- hdr.from_ip_addr = client.ip_address;
- hdr.from_host_name = client.host_name;
- hdr.from_protocol = client.protocol;
- hdr.from_port = client.port;
-
- if(system.trashcan("subject",hdr.subject)) {
- log(format("!BLOCKED subject: %s",hdr.subject));
- var reason = format("Blocked subject from %s (%s): %s"
- ,user.alias,hdr.from,hdr.subject);
- system.spamlog("NNTP","BLOCKED"
- ,reason,client.host_name,client.ip_address,hdr.to);
- writeln("441 posting failed");
- break;
- }
-
- for(n in newsgroups)
- for(g in msg_area.grp_list)
- for(s in msg_area.grp_list[g].sub_list)
- if(msg_area.grp_list[g].sub_list[s].newsgroup.toLowerCase()
- ==newsgroups[n].toLowerCase()) {
- if(!msg_area.grp_list[g].sub_list[s].can_post)
- continue;
-
- if(msgbase!=null) {
- msgbase.close();
- delete msgbase;
- }
- if(msg_area.grp_list[g].sub_list[s].settings&SUB_NAME
- && !(user.security.restrictions&(UFLAG_G|UFLAG_Q)))
- hdr.from=user.name; // Use real names
- if(msg_area.grp_list[g].sub_list[s].is_moderated)
- hdr.attr|=MSG_MODERATED;
- else
- hdr.attr&=~MSG_MODERATED;
-
- msgbase=new MsgBase(msg_area.grp_list[g].sub_list[s].code);
- if(msgbase.open!=undefined && msgbase.open()==false)
- continue;
- if(msgbase.save_msg(hdr,body)) {
- log(format("%s posted a message (%u chars, %u lines) on %s"
- ,user.alias, body.length, lines, newsgroups[n]));
- writeln("240 article posted ok");
- posted=true;
- msgs_posted++;
- } else
- log(format("!ERROR saving mesage: %s",msgbase.last_error));
- }
- if(!posted) {
- log("!post failure");
- writeln("441 posting failed");
- }
- break;
-
- default:
- writeln("500 Syntax error or unknown command");
- log("!unknown command");
- break;
- }
-
- if(user.security.restrictions&UFLAG_G /* Only guest/anonymous logins can be "bogus" */
- && bogus_cmd_counter >= max_bogus_cmds) {
- log(format("!TOO MANY BOGUS COMMANDS (%u)", bogus_cmd_counter));
- if(filter_bogus_clients) {
- log("!FILTERING CLIENT'S IP ADDRESS: " + client.ip_address);
- system.filter_ip("NNTP","- TOO MANY BOGUS COMMANDS (Example: " + cmdline +")"
- , client.host_name, client.ip_address, client.user_name);
- }
- break;
- }
-}
-
-// Log statistics
-
-if(msgs_read)
- log(format("%u messages read",msgs_read));
-if(msgs_posted)
- log(format("%u messages posted",msgs_posted));
-
-/* End of nntpservice.js */
-
diff --git a/exec/nodedefs.inc b/exec/nodedefs.inc
deleted file mode 100644
index 5b8d73956317f98458c9a9a25cd777cce8c2c03d..0000000000000000000000000000000000000000
--- a/exec/nodedefs.inc
+++ /dev/null
@@ -1,86 +0,0 @@
-# nodedefs.inc
-
-# Baja include file for NODE.DAB (_NODEFILE) field values
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
- # Possible values for node STATUS
-!define NODE_WFC 0 # Waiting for Call
-!define NODE_LOGON 1 # at logon prompt
-!define NODE_NEWUSER 2 # New user applying
-!define NODE_INUSE 3 # In Use
-!define NODE_QUIET 4 # In Use - quiet mode
-!define NODE_OFFLINE 5 # Offline
-!define NODE_NETTING 6 # Networking
-!define NODE_EVENT_WAITING 7 # Waiting for all nodes to be inactive
-!define NODE_EVENT_RUNNING 8 # Running an external event
-!define NODE_EVENT_LIMBO 9 # Allowing another node to run an event
-
- # Bit values for node MISC
-!define NODE_ANON .0 # Anonymous User
-!define NODE_LOCK .1 # Locked for sysops only
-!define NODE_INTR .2 # Interrupted - hang up
-!define NODE_MSGW .3 # Message is waiting (old way
-!define NODE_POFF .4 # Page disabled
-!define NODE_AOFF .5 # Activity Alert disabled
-!define NODE_UDAT .6 # User data has been updated
-!define NODE_RRUN .7 # Re-run this node when log off
-!define NODE_EVENT .8 # Must run node event after log off
-!define NODE_DOWN .9 # Down this node after logoff
-!define NODE_RPCHT .10 # Reset private chat
-!define NODE_NMSG .11 # Node message waiting (new way
-!define NODE_EXT .12 # Extended info on node action
-
- # Possible values for node ACTION
-!define NODE_MAIN 0 # Main Prompt
-!define NODE_RMSG 1 # Reading Messages
-!define NODE_RMAL 2 # Reading Mail
-!define NODE_SMAL 3 # Sending Mail
-!define NODE_RTXT 4 # Reading G-Files
-!define NODE_RSML 5 # Reading Sent Mail
-!define NODE_PMSG 6 # Posting Message
-!define NODE_AMSG 7 # Auto-message
-!define NODE_XTRN 8 # Running External Program
-!define NODE_DFLT 9 # Main Defaults Section
-!define NODE_XFER 10 # Transfer Prompt
-!define NODE_DLNG 11 # Downloading File
-!define NODE_ULNG 12 # Uploading File
-!define NODE_BXFR 13 # Bidirectional Transfer
-!define NODE_LFIL 14 # Listing Files
-!define NODE_LOGN 15 # Logging on
-!define NODE_LCHT 16 # In Local Chat with Sysop
-!define NODE_MCHT 17 # In Multi-Chat with Other Nodes
-!define NODE_GCHT 18 # In Local Chat with Guru
-!define NODE_CHAT 19 # In Chat Section
-!define NODE_SYSP 20 # Sysop Activity
-!define NODE_TQWK 21 # Transferring QWK packet
-!define NODE_PCHT 22 # In Private Chat
-!define NODE_PAGE 23 # Paging another node for Private Chat
-!define NODE_RFSD 24 # Retrieving file from seq dev (aux=dev
-
-# Record format:
-#
-# Field Length Description
-# -----------------------------------------
-# status 1 Current Status of Node
-# errors 1 Number of Critical Errors
-# action 1 Action User is doing on Node
-# useron 2 Number of User on Node
-# connection 2 Current Connection (DCE) rate of Node
-# misc 2 Miscellaneous bits for node
-# aux 2 Auxillary word for node
-# extaux 4 Extended aux dword for node
-
-!define NODE_STATUS_OFFSET 0 # Offset to node status
-!define NODE_ERRORS_OFFSET 1 # Offset to node errors
-!define NODE_ACTION_OFFSET 2 # Offset to node action
-!define NODE_USERON_OFFSET 3 # Offest to node useron
-!define NODE_CONNECTION_OFFSET 5 # Offset to node connection
-!define NODE_MISC_OFFSET 7 # Offset to node misc
-!define NODE_AUX_OFFSET 9 # Offset to node aux
-!define NODE_EXTAUX_OFFSET 11 # Offset to node extaux
-!define NODE_RECORD_LEN 15 # Length of node record
-
-# End of NODEDEFS.INC
diff --git a/exec/nodelist-html.js b/exec/nodelist-html.js
deleted file mode 100644
index 34b4d25eb2c51bc1f5261d8420716c9745db13b0..0000000000000000000000000000000000000000
--- a/exec/nodelist-html.js
+++ /dev/null
@@ -1,209 +0,0 @@
-// nodelist-html.js
-
-// Synchronet Service for sending a periodic HTML node list
-
-var refresh_rate=10 /* seconds */
-var start=new Date();
-
-load("nodedefs.js");
-
-var include_age_gender=true;
-var include_location=false;
-var include_statistics=false;
-
-// Parse arguments
-for(i=0;i<argc;i++)
- switch(argv[i].toLowerCase()) {
- case "-r":
- refresh_rate=Number(argv[++i]);
- break;
- case "-n":
- include_age_gender=false;
- break;
- case "-l":
- include_location=true;
- break;
- case "-s": /* statistics */
- include_statistics=true;
- break;
- }
-
-if(this.server && this.client) {
-
- // Write a string to the client socket
- function write(str)
- {
- client.socket.send(str);
- }
-
- function writeln(str)
- {
- write(str + "\r\n");
- }
-}
-
-function xtrn_name(code)
-{
- if(this.xtrn_area==undefined)
- return(code);
-
- for(s in xtrn_area.sec_list)
- for(p in xtrn_area.sec_list[s].prog_list)
- if(xtrn_area.sec_list[s].prog_list[p].code.toLowerCase()==code.toLowerCase())
- return(xtrn_area.sec_list[s].prog_list[p].name);
- return(code);
-}
-
-// Get HTTP Request
-while(this.client!=undefined && client.socket.data_waiting) {
- request = client.socket.recvline(512 /*maxlen*/, 3 /*timeout*/);
-
- if(request==null)
- break;
-
-// log(format("client request: '%s'",request));
-}
-
-if(this.server==undefined) { /* CGI, so send CGI/HTTP headers */
- writeln("Content-Type: text/html");
- writeln();
-}
-// HTML Header
-writeln("<html>");
-writeln("<head>");
-writeln(format("<title>%s BBS - Node List</title>",system.name));
-writeln(format("<meta http-equiv=refresh content=%d>",refresh_rate));
-writeln("</head>");
-
-writeln("<body bgcolor=teal text=white link=yellow vlink=lime alink=white>");
-writeln("<font face=Arial,Helvetica,sans-serif>");
-
-// Login Button - Modified by RuneMaster of RuneKeep BBS
-writeln("<table border=0 width=100%>");
-writeln("<tr>");
-writeln("<td align=left>");
-writeln(format("<h1>%s BBS - Node List</h1>",system.name.italics()).fontcolor("lime"));
-writeln("</td>");
-writeln("<td align=right>");
-writeln("<form>");
-writeln("<input type=button value='Login' onClick='location=\"telnet://"
- + system.host_name + "\";'>");
-writeln("</form>");
-writeln("</td>");
-writeln("</tr>");
-writeln("</table>");
-
-font_color = "<font color=black>";
-
-if(include_statistics) {
- total = time()-system.uptime;
- days = Math.floor(total/(24*60*60));
- if(days)
- total%=(24*60*60);
- hours = Math.floor(total/(60*60));
- min = (Math.floor(total/60))%60;
- sec = total%60;
-
- // Table
- writeln("<table border=1 width=100%>");
- writeln("<td>Up Time<td>"
- + format("%u days, %u:%02u:%02u",days,hours,min,sec));
- writeln("<td>Logons Today<td>" + system.stats.logons_today);
- writeln("<td>Posts Today<td>" + system.stats.messages_posted_today);
- writeln("<td>Uploads Today<td>"
- + format("%lu bytes in %lu files"
- ,system.stats.bytes_uploaded_today
- ,system.stats.files_uploaded_today));
- writeln("<tr>");
- writeln("<td>Time-on Today<td>" + system.stats.timeon_today);
- writeln("<td>New Users Today<td>" + system.stats.new_users_today);
- writeln("<td>Emails Today<td>" + system.stats.email_sent_today);
- writeln("<td>Downloads Today<td>"
- + format("%lu bytes in %lu files"
- ,system.stats.bytes_downloaded_today
- ,system.stats.files_downloaded_today));
- writeln("</table>");
- writeln("<br>");
-}
-
-// Table
-writeln("<table border=0 width=100%>");
-
-// Header
-writeln("<thead>");
-writeln("<tr bgcolor=white>");
-
-write(format("<th align=center width=7%>%sNode",font_color));
-write(format("<th align=center width=20%>%sUser",font_color));
-write(format("<th align=left>%sAction/Status",font_color));
-if(include_location)
- write(format("<th align=left>%sLocation",font_color));
-if(include_age_gender) {
- write(format("<th align=center width=7%>%sAge",font_color));
- write(format("<th align=center width=10%>%sGender\r\n",font_color));
-}
-write(format("<th align=center width=10%>%sTime\r\n",font_color));
-writeln("</thead>");
-
-writeln("<tbody>");
-var u = new User(1);
-for(n=0;n<system.node_list.length;n++) {
- write("<tr>");
- write(format("<td align=right><font size=-1>%d",n+1));
- if(system.node_list[n].status==NODE_INUSE) {
- u.number=system.node_list[n].useron;
- if(system.node_list[n].action==NODE_XTRN && system.node_list[n].aux)
- action=format("running %s",xtrn_name(u.curxtrn));
- else
- action=format(NodeAction[system.node_list[n].action]
- ,system.node_list[n].aux);
- write(format(
- "<td align=center><a href=mailto:%s>%s</a>"
- ,u.email
- ,u.alias
- ));
- write(format(
- "<td><font color=yellow>%s"
- ,action
- ));
- if(include_location)
- write(format(
- "<td align=left>%s"
- ,u.location
- ));
- if(include_age_gender)
- write(format(
- "<td align=center>%d<td align=center>%s"
- ,u.age
- ,u.gender
- ));
- t=time()-u.logontime;
- if(t&0x80000000) t=0;
- write(format(
- "<td align=center>%u:%02u:%02u"
- ,Math.floor(t/(60*60))
- ,Math.floor(t/60)%60
- ,t%60
- ));
- } else {
- action=format(NodeStatus[system.node_list[n].status],system.node_list[n].aux);
- write(format("<td><td>%s",action));
- }
- write("\r\n");
-}
-writeln("</tbody>");
-writeln("</table>");
-
-writeln("<p><font color=silver><font size=-2>");
-writeln(format("Auto-refresh in %d seconds",refresh_rate));
-write(format("<br>Dynamically generated in %lu milliseconds "
- ,new Date().valueOf()-start.valueOf()));
-write("by ");
-if(this.server)
- write(server.version + " and ");
-write(system.version_notice.link("http://www.synchro.net"));
-writeln("<br>" + system.timestr());
-
-writeln("</body>");
-writeln("</html>");
-/* End of nodelist-html.js */
diff --git a/exec/nodelist.js b/exec/nodelist.js
deleted file mode 100644
index 4b6181735cc05c01078c45f7a98fa41f857ca9e2..0000000000000000000000000000000000000000
--- a/exec/nodelist.js
+++ /dev/null
@@ -1,16 +0,0 @@
-// nodelist.js
-
-load("nodedefs.js");
-
-var u = new User(1);
-for(n=0;n<system.node_list.length;n++) {
- printf("Node %2d ",n+1);
- if(system.node_list[n].status==NODE_INUSE) {
- u.number=system.node_list[n].useron;
- printf("%s (%u %s) ", u.alias, u.age, u.gender);
- printf(NodeAction[system.node_list[n].action],system.node_list[n].aux);
- } else
- printf(NodeStatus[system.node_list[n].status],system.node_list[n].aux);
-
- printf("\r\n");
-}
\ No newline at end of file
diff --git a/exec/noyesbar.src b/exec/noyesbar.src
deleted file mode 100644
index d95398e43921f6db70581aaef6682df058e72b93..0000000000000000000000000000000000000000
--- a/exec/noyesbar.src
+++ /dev/null
@@ -1,58 +0,0 @@
-# noyesbar.src
-
-# Sep 28 1995 - Digital Man
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc # _question
-
-str tmp
-
-copy tmp str
-setstr "N"
-compare_strn 2 _question "\r\n"
-if_true
- crlf
- shift_str _question 2
- end_if
-printf "nbh[c�b] y%s? " _question
-:top
-compare_str "N"
-if_equal
- print "h4w[No]nbh Yes "
-else
- print "nbh No 4w[Yes]"
- end_if
-getkey
-print "\b\b\b\b\b\b\b\b\b\1n\1h\1>"
-compare_key ^M
-if_true
- ungetstr
- copy str tmp
- return
- end_if
-
-compare_keys "YN"
-if_true
- ungetkey
- copy str tmp
- return
- end_if
-
-compare_key ^@
-if_true
- copy str tmp
- return
- end_if
-
-# Toggle
-compare_str "Y"
-if_true
- setstr "N"
-else
- setstr "Y"
- end_if
-goto top
-
diff --git a/exec/obv2show.js b/exec/obv2show.js
deleted file mode 100644
index 3a778fe5eecd5d4dd1293ab71d8df725c923cfc9..0000000000000000000000000000000000000000
--- a/exec/obv2show.js
+++ /dev/null
@@ -1,120 +0,0 @@
-// obv2show.js
-
-// Displays an Oblivion/2 text/ANSI menu file, expanding MCI codes
-
-// usage (from Baja):
-// set str <filename>
-// exec ?obv2show %s
-
-f = new File(argv[0]);
-if(!f.open("r")) {
- print("Error " + f.error + " opening " + f.name);
- exit();
-}
-text=f.readAll();
-f.close();
-
-for(i in text) {
- t=text[i];
-
- if(t.indexOf('%')>=0) {
-
- /* search and replace "standard codes" */
-
- /* User properties */
- t=t.replace(/%UN/g,user.alias);
- t=t.replace(/%RN/g,user.name);
- t=t.replace(/%PN/g,user.phone);
- t=t.replace(/%AD/g,user.address);
- t=t.replace(/%LO/g,user.location);
- t=t.replace(/%UC/g,user.note);
- t=t.replace(/%UL/g,user.security.level);
- t=t.replace(/%FL/g,user.security.level); // File Level
- t=t.replace(/%FP/g,user.security.credits); // File Points
- t=t.replace(/%UK/g,Math.floor(user.stats.bytes_uploaded/1024)); // Uploaded K
- t=t.replace(/%DK/g,Math.floor(user.stats.bytes_downloaded/1024)); // Downloaded K
- t=t.replace(/%UP/g,user.stats.files_uploaded); // Uploads
- t=t.replace(/%DN/g,user.stats.files_downloaded); // Downloads
- t=t.replace(/%PS/g,user.stats.total_posts); // Posts
- t=t.replace(/%CS/g,user.stats.total_logons); // Calls
-
- t=t.replace(/%TL/g,system.secondstr(bbs.time_left).slice(1)); // Time Left
-
- t=t.replace(/%NF/g,system.stats.files_uploaded_today); // New Files
- t=t.replace(/%NP/g,system.stats.messages_posted_today); // New Posts
-
- t=t.replace(/%CR/g,user.connection); // Connect Rate
-
-
- t=t.replace(/%TT/g,"@TPERD@"); // Daily Time Limit
-
- t=t.replace(/%LC/g,system.lastuseron); // Last Caller
-
- t=t.replace(/%TC/g,system.stats.total_logons); // Total Calls
- t=t.replace(/%CT/g,system.stats.logons_today); // Calls Today
- t=t.replace(/%FT/g,system.stats.files_uploaded_today);
- t=t.replace(/%PT/g,system.stats.messages_posted_today);
- t=t.replace(/%NT/g,system.stats.new_users_today);
- t=t.replace(/%UU/g,user.number);
-
- t=t.replace(/%BN/g,system.name); // Board Name
- t=t.replace(/%SN/g,system.operator); // Sysop Name
- t=t.replace(/%DT/g,system.datestr()); // Date
- t=t.replace(/%TM/g,system.timestr()); // Time
-
- // SS Current Status Screen Library Name
- // MS Current Menu Library Name
-
- t=t.replace(/%PC/g,Math.floor(user.stats.total_logons/user.stats.total_posts)); // Post/Call Ratio
-
- t=t.replace(/%NR/g,Math.floor(user.stats.files_downloaded/user.stats.files_uploaded)); // U/D Ratio
- t=t.replace(/%KR/g,Math.floor(user.stats.bytes_downloaded/user.stats.bytes_uploaded)); // U/D K Ratio
-
- t=t.replace(/%LD/g,user.stats.laston_date); // Last On Date
-
-
- t=t.replace(/%CA/g,bbs.curgrp); // Current Area
- t=t.replace(/%CB/g,bbs.cursub); // Current Base
-
- // DU Days until expiration
-
- t=t.replace(/%NN/g,bbs.node_num); // Node Number
-
- t=t.replace(/%VN/g,system.version); // Version Number
- t=t.replace(/%VD/g,system.compiled_when); // Version Date
-
- t=t.replace(/%TF/g,system.stats.total_files); // Total Files
- t=t.replace(/%TP/g,system.stats.total_messages); // Total Posts
-
- t=t.replace(/%CF/g,bbs.curlib); // Current File Conference
- t=t.replace(/%CM/g,bbs.curgrp); // Current Message Conference
-
- // CE Message # (Only activated when used with the Nx message newscanning commands)
-
-
- /*******************/
- /* Console control */
- /*******************/
-
- if(t.indexOf("%PA")>=0) {
- t=t.replace(/%PA/g,""); // Pauses the screen
- console.pause();
- }
- if(t.indexOf("%PF")>=0) {
- t=t.replace(/%PF/g,""); // Turns Screen Pausing Off
- bbs.sys_status|=SS_PAUSEOFF;
- }
- if(t.indexOf("%PO")>=0) {
- t=t.replace(/%PO/g,""); // Turns Screen Pausing Back On
- bbs.sys_status&=~SS_PAUSEOFF;
- }
- if(t.indexOf("%UA")>=0) {
- t=t.replace(/%UA/g,""); // Makes anything below it unabortable
- bbs.sys_status&=~SS_ABORT;
- }
-
- }
-
- /* print line */
- console.putmsg(t + "\r\n");
-}
diff --git a/exec/pcboard.src b/exec/pcboard.src
deleted file mode 100644
index f1280a8657eee62ce37876b97338d2691c2de6b7..0000000000000000000000000000000000000000
--- a/exec/pcboard.src
+++ /dev/null
@@ -1,373 +0,0 @@
-# pcboard.src
-
-# PCBoard v15.1 menu/command emulation
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-menu pcboard/welcome
-
-cmd_home
-compare_ars expert
-if_false
- cls
- menu pcboard/brdm
- end_if
-node_action node_main
-async
-print "n\r\nyh(r@MINLEFT@y min. left) @GRP@ (@GN@) @SUB@ (@SN@) "
-print "Command? n"
-getstr 60
-
-compare_str ""
-if_true
- end_cmd
- end_if
-
-cmdstr ?
- compare_ars expert
- if_true
- cls
- menu pcboard/brdm
- end_if
- end_cmd
-
-cmdstr HELP
- compare_ars expert
- if_true
- cls
- menu pcboard/brdm
- end_if
- end_cmd
-
-cmdstr F
- file_select_area
- if_true
- setstr "*.*"
- file_list
- end_if
- end_cmd
-
-cmdstr EXT
- file_select_area
- if_true
- setstr "*.*"
- file_list_extended
- end_if
- end_cmd
-
-cmdstr VIEW
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-
-cmdstr BATCH
- file_batch_section
- end_cmd
-
-cmdstr REMOVE
- getfilespec
- if_true
- file_remove
- end_if
- end_cmd
-
-cmdstr D
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdstr U
- chkfile "%zmenu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdstr L
- file_find_name
- end_cmd
-
-cmdstr N
- print "\r\nbhUse c@LASTNEW@b for new file scan date"
- yes_no ""
- if_false
- file_ptrs_cfg
- if_false
- end_cmd
- end_if
- end_if
- file_new_scan
- end_cmd
-
-cmdstr Z
- file_find_text
- end_cmd
-
-cmdstr T
- file_temp_section
- end_cmd
-
-cmdstr C
- setstr "1"
- mail_send_feedback
- crlf
- end_cmd
-
-cmdstr Y
- msg_your_scan
- end_cmd
-
-cmdstr TS
- msg_find_Text
- end_cmd
-
-cmdstr QWK
- msg_qwk
- end_cmd
-
-cmdstr AUTO
- auto_message
- end_cmd
-
-cmdstr SELECT
- msg_new_scan_cfg
- end_cmd
-
-cmdstr A
- msg_ptrs_cfg
- end_cmd
-
-cmdstr R
- msg_read
- end_cmd
-
-cmdstr S
- info_system
- end_cmd
-
-cmdstr E
- msg_post
- end_cmd
-
-cmdstr RN
- msg_new_scan
- end_Cmd
-
-cmdstr RC
- msg_cont_scan
- end_cmd
-
-cmdstr JOIN
- msg_select_area
- end_cmd
-
-compare_word "JOIN "
-if_true
- shift_str 5
- msg_set_area
- end_cmd
- end_if
-
-cmdstr J
- msg_select_area
- end_cmd
-
-cmdstr M
- call e-mail
- end_cmd
-
-cmdstr X
- toggle_user_misc UM_EXPERT
- print "\r\nExpert mode is now: "
- compare_ars EXPERT
- if_true
- print "ON"
- else
- print "OFF"
- end_if
- crlf
- end_cmd
-
-cmdstr B
- text_file_section
- end_cmd
-
-cmdstr V
- info_user
- end_cmd
-
-cmdstr G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdstr W
- user_defaults
- end_cmd
-
-cmdstr O
- page_sysop
- end_cmd
-
-cmdstr P
- private_message
- end_cmd
-
-cmdstr I
- menu ../answer
- menu pcboard/welcome
- end_cmd
-
-cmdstr WHO
- nodelist_users
- end_cmd
-
-cmdstr CHAT
- exec_bin chat_sec
- end_cmd
-
-cmdstr NEWS
- menu logon
- end_cmd
-
-cmdstr DOOR
- xtrn_section
- end_cmd
-
-cmdstr OPEN
- xtrn_section
- end_cmd
-
-compare_word "OPEN "
-if_true
- shift_str 5
- xtrn_exec
- end_cmd
- end_if
-
-compare_word "USER "
-if_true
- shift_str 5
- crlf
- finduser
- if_true
- print "yhVerified: w"
- printstr
- crlf
- end_if
- end_cmd
- end_If
-
-cmdstr USER
- print "\r\nyhUsername search string (Enter=List Conferences Users): w"
- getname 25
- compare_str ""
- if_true
- userlist_sub
- else
- crlf
- finduser
- if_true
- print "yhVerified: w"
- printstr
- crlf
- end_if
- end_cmd
- end_If
- end_cmd
-
-print "\r\nrhInvalid Entry! Please try again, @FIRST@ ...\r\n"
-end_cmd
-
-:e-mail
-cmd_home
-compare_ars expert
-if_false
- menu e-mail
- end_if
-async
-print "\r\nyhE-mail: n"
-getcmd ?SRFNUKQ\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu e-mail
- end_if
- end_cmd
-
-cmdkey S
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdkey U
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send_file
- end_cmd
-
-cmdkey R
- mail_read
- end_cmd
-
-cmdkey F
- setstr "1"
- mail_send_feedback
- end_cmd
-
-cmdkey N
- no_yes "\r\nAttach a file"
- if_true
- mail_send_netmail
- else
- mail_send_netfile
- end_if
- end_cmd
-
-cmdkey K
- mail_read_sent
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
diff --git a/exec/playmidi.js b/exec/playmidi.js
deleted file mode 100644
index 454ba6ad427685f8a788d4afeb78a3177438a542..0000000000000000000000000000000000000000
--- a/exec/playmidi.js
+++ /dev/null
@@ -1,263 +0,0 @@
-// playmidi.js
-
-// Synchronet Module to play a single track from a MIDI file
-
-const STATUS_META_EVENT =0xff
-
-/* Meta-Event types */
-const EVENT_TYPE_SEQNUM =0x00
-const EVENT_TYPE_TEXT =0x01
-const EVENT_TYPE_COPYRIGHT =0x02
-const EVENT_TYPE_TRACK_NAME =0x03
-const EVENT_TYPE_INSTRUMENT =0x04
-const EVENT_TYPE_LYRIC =0x05
-const EVENT_TYPE_MARKER =0x05
-const EVENT_TYPE_QUE_POINT =0x06
-const EVENT_TYPE_PROG_NAME =0x07
-const EVENT_TYPE_DEV_NAME =0x08
-const EVENT_TYPE_END_OF_TRACK =0x2f
-const EVENT_TYPE_TEMPO =0x51
-const EVENT_TYPE_SMPTE_OFFSET =0x54
-const EVENT_TYPE_TIME_SIGNATURE =0x58
-const EVENT_TYPE_KEY_SIGNATURE =0x59
-const EVENT_TYPE_PROPRIETARY =0x7f
-
-/* MIDI Channel Voice Messages (upper nibble) */
-const EVENT_TYPE_NOTE_OFF =0x80
-const EVENT_TYPE_NOTE_ON =0x90
-
-var filename;
-var tonefilename;
-var debug=false;
-var channel=0;
-var note_start=0;
-var note_on;
-var note;
-var last_delta=0;
-var tempo=500; /* msec/quarter-note (120 bbp) */
-var ticks_per_qnote=500;
-
-function readVar(file)
-{
- var val = 0;
- var b = 0;
-
- do {
- val<<=7;
- b = file.readBin(1);
- if(b&0x80)
- val|=b^0x80;
- else
- val|=b;
- } while(!file.eof && !js.terminated && b&0x80);
-
- return val;
-}
-
-function ticks_per_msec()
-{
- return(tempo/ticks_per_qnote);
-}
-
-for(i=0;i<argc;i++) {
- switch(argv[i]) {
- case "-d":
- debug=true;
- break;
- case "-c": /* channel */
- channel=parseInt(argv[++i]);
- break;
- case "-t": /* .ton file output */
- tonefilename=argv[++i];
- break;
- default:
- filename=argv[i];
- break;
- }
-}
-
-if(!filename) {
- alert("filename not specified");
- exit();
-}
-
-if(!file_exists(filename))
- filename=system.exec_dir + filename;
-
-file = new File(filename, true /* shareable */);
-
-if(!file.open("rb")) {
- alert("error " + file.error + " opening " + filename);
- exit();
-}
-
-file.network_byte_order = true;
-
-var tonefile;
-if(tonefilename) {
- tonefile=new File(tonefilename);
- if(!tonefile.open("w"))
- alert("error " +tonefile.error+ " creating " + tonefilename);
-}
-
-while(!file.eof && !js.terminated) {
- /* Read chunk */
- type = file.read(4);
- if(file.eof)
- break;
- length = file.readBin();
-
- if(debug) {
- writeln("type = " + type);
- writeln("length = " + length);
- }
-
- if(length<0) {
- alert("invalid length at " + file.position);
- break;
- }
-
- switch(type) {
- case 'MThd':
- fmat = file.readBin(2);
- ntrks = file.readBin(2);
- division = file.readBin(2);
- if(!(division&0x8000))
- ticks_per_qnote=division;
- if(debug) {
- writeln("\tformat: " + fmat);
- writeln("\tntrks: " + ntrks);
- writeln("\tdivis: " + division);
- }
- break;
- case 'MTrk':
- end_of_track = file.position + length;
-
- /* Read events */
- do {
- delta = readVar(file);
- status = file.readBin(1);
-
- if(debug) {
- writeln("\t\tdelta: " + delta);
- writeln("\t\tstatus: " + format("%02X",status));
- }
-
- if(status == STATUS_META_EVENT) /* non-MIDI (Meta) event */
- {
- event_type=file.readBin(1);
- event_len=file.readBin(1);
- if(debug) {
- writeln("\t\t* Meta-Event");
- writeln("\t\t* type: " + format("%02X",event_type));
- writeln("\t\t* len: " + format("%02X",event_len));
- }
-
- end_of_event = file.position + event_len;
-
- switch(event_type) {
- case EVENT_TYPE_TEXT:
- writeln("Text: " + file.read(event_len));
- break;
- case EVENT_TYPE_COPYRIGHT:
- writeln("Copyright: " + file.read(event_len));
- break;
- case EVENT_TYPE_TRACK_NAME:
- writeln("Track Name: " + file.read(event_len));
- break;
- case EVENT_TYPE_INSTRUMENT:
- writeln("Instrument: " + file.read(event_len));
- break;
- case EVENT_TYPE_LYRIC:
- writeln(file.read(event_len));
- break;
- case EVENT_TYPE_MARKER:
- writeln("Marker: " + file.read(event_len));
- break;
- case EVENT_TYPE_QUE_POINT:
- writeln("Que Point: " + file.read(event_len));
- break;
- case EVENT_TYPE_PROG_NAME:
- writeln("Program Name: " + file.read(event_len));
- break;
- case EVENT_TYPE_DEV_NAME:
- writeln("Device Name: " + file.read(event_len));
- break;
- case EVENT_TYPE_END_OF_TRACK:
- writeln("End of track");
- break;
- case EVENT_TYPE_TEMPO:
- track_tempo = file.readBin(1)<<16;
- track_tempo |= file.readBin(1)<<8;
- track_tempo |= file.readBin(1);
- writeln("Tempo: " + track_tempo);
- temp = track_tempo/1000; /* Convert from usec to msec */
- break;
- case EVENT_TYPE_TIME_SIGNATURE:
- nn=file.readBin(1);
- dd=file.readBin(1);
- cc=file.readBin(1);
- bb=file.readBin(1);
- writeln("Time Sigature: " + format("%u/%u",nn,Math.pow(2,dd)));
- break;
- default:
- while(file.position < end_of_event) {
- event_byte = file.readBin(1);
- if(debug)
- writeln("\t\t* event byte: ", format("%02X",event_byte));
- }
- break;
- }
- continue;
- }
- if(status&0x80 && (status&0x0f)==channel) { /* Channel Voice Message */
- switch(status&0xf0) {
- case EVENT_TYPE_NOTE_ON:
- note_start=delta;
- note=file.readBin(1);
- velocity=file.readBin(1);
- if(note_on)
- break;
- writeln("\t\tnote on: " + note);
- if(delta) {
- sleep(delta*ticks_per_msec());
- if(tonefile)
- tonefile.writeln("r " + Math.floor(delta*ticks_per_msec()));
- }
- note_on=note;
- break;
- case EVENT_TYPE_NOTE_OFF:
- note=file.readBin(1);
- velocity=file.readBin(1);
- writeln("\t\tnote off: " + note);
- if(note!=note_on)
- break;
-
- if(delta) {
- freq=523.50/32.0; /* Low 'C' */
- freq*=Math.pow(2,note/12);
- writeln("\t\tPlaying " + Math.floor(freq) + " for " + delta);
- beep(freq,delta*ticks_per_msec());
- if(tonefile)
- tonefile.writeln(Math.floor(freq) +" "+ Math.floor(delta*ticks_per_msec()));
- }
- note_on=0;
- break;
- }
- }
- /*
- else if(status&0x80)
- writeln("Ignoring message for channel: " + format("%02X",status&0x0f));
- */
-
- } while(!file.eof && !js.terminated && file.position < end_of_track);
-
- break;
- default:
- file.position += length;
- break;
-
- }
-}
-
-file.close();
diff --git a/exec/playtone.js b/exec/playtone.js
deleted file mode 100644
index fece1311f651f166cca23dde800ddbdad982ba6c..0000000000000000000000000000000000000000
--- a/exec/playtone.js
+++ /dev/null
@@ -1,143 +0,0 @@
-// playtone.js
-
-/* Tone Generation Utility (using PC speaker, not sound card) */
-
-const REVISION = "$Revision$".split(' ')[1];
-
-const NO_VISUAL =(1<<3)
-
-var mode=0; /* Optional modes */
-var t=1; /* Timing */
-var s=0; /* Stacato */
-var octave=4; /* Default octave */
-var stop=false;
-
-var pitch=523.50/32.0; /* low 'C' */
-
-function play(freq, dur)
-{
- var notes=['c',' ','d',' ','e','f',' ','g',' ','a',' ','b'];
- var sharp=['B','C',' ','D',' ','E','F',' ','G',' ','A',' '];
- var i,n,o,d;
- var len;
- var f;
-
-// writeln("play " + freq + ", " + dur);
-
- if(dur==undefined)
- dur="0";
-
- d=parseFloat(dur);
- if(isNaN(f=parseInt(freq)))
- switch(freq.charAt(0).toUpperCase()) {
- case 'O': /* default octave */
- if(Number(dur.charAt(0)))
- octave=d;
- else
- octave+=d;
- return;
- case 'P': /* pitch variation */
- if(Number(dur.charAt(0)))
- pitch=parseFloat(dur)/32.0;
- else
- pitch+=parseFloat(dur);
- return;
- case 'R': /* rest */
- f=0;
- break;
- case 'S': /* stacato */
- if(Number(dur.charAt(0)))
- s=d;
- else
- s+=d;
- return;
- case 'T': /* time adjust */
- t=d;
- return;
- case 'V':
- if(mode&NO_VISUAL)
- return;
- truncsp(dur);
- if(dur.charAt(dur.length-1)=='\\')
- write(truncstr(dur,'\\'));
- else
- writeln(dur);
- return;
- case 'Q':
- case 'X': /* exit */
- stop=true;
- break;;
- default:
- for(n=0;notes[n];n++)
- if(freq.charAt(0)==notes[n] || freq.charAt(0)==sharp[n])
- break;
- if(parseInt(freq.charAt(1)))
- o=(freq.charAt(1)&0xf);
- else
- o=octave;
- f=pitch*Math.pow(2,o+n/12);
- break;
- }
-
- if(t>10)
- len=(d*t)-(d*s);
- else
- len=d*t;
- if(isNaN(len))
- return;
- if(f)
- beep(f,len);
- else
- sleep(len);
- if(s) {
- if(t>10)
- sleep(d*s);
- else
- sleep(s);
- }
-}
-
-
-printf("\r\nSynchronet Tone Generation Module %s\r\n\r\n", REVISION);
-
-var filename;
-var debug=false;
-
-for(i=0;i<argc;i++) {
- switch(argv[i]) {
- case "-d":
- debug=true;
- break;
- default:
- filename=argv[i];
- break;
- }
-}
-if(filename==undefined) {
- alert("No filename specified");
- exit();
-}
-
-if(!file_exists(filename))
- filename = system.exec_dir + filename;
-file = new File(filename);
-if(!file.open("r")) {
- alert("Error " + file.error + " opening " + file.name);
- exit();
-}
-
-text=file.readAll();
-file.close();
-
-stop=false;
-for(i in text) {
- if(js.terminated || stop)
- break;
- if(debug)
- writeln(text[i]);
- if(text[i].charAt(0)==':') /* comment */
- continue;
- token=truncsp(text[i]).split(/\s+/);
- play(token.shift(), token.join(' '));
-}
-
diff --git a/exec/purgefiles.js b/exec/purgefiles.js
deleted file mode 100644
index d03f538734d436b5502dd2cc63eb78fac57885aa..0000000000000000000000000000000000000000
--- a/exec/purgefiles.js
+++ /dev/null
@@ -1,38 +0,0 @@
-// purgefiles.js
-
-const default_max_age=30; // days
-
-argn=0;
-if((max_age=parseInt(argv[argn]))>0)
- argn++;
-else
- max_age=default_max_age;
-
-if(argc==argn) {
- printf("\nusage: purgfiles.js [max_age_in_days] <directory/pattern>\n");
- printf("\ndefault max_age_in_days = %lu\n",default_max_age);
- exit();
-}
-
-
-printf("Getting directory of %s", argv[argn]);
-files = directory(argv[argn]);
-printf("\n%lu files\n",files.length);
-
-printf("\nPurging files aged more than %lu days\n",max_age);
-purged_files=0;
-now = time();
-for(i in files) {
- t=file_date(files[i]);
- age=(now-t)/(24*60*60);
- if(age <= max_age)
- continue;
- print(system.datestr(t) + " " + files[i]);
- if(!file_remove(files[i])) {
- log("!Error " + errno + " removing " + files[i]);
- continue;
- }
- purged_files++;
-}
-
-printf("%lu files purged.\n",purged_files);
\ No newline at end of file
diff --git a/exec/qnet-ftp.src b/exec/qnet-ftp.src
deleted file mode 100644
index 6a1115b4fa81a822449830c752995f0446758ea0..0000000000000000000000000000000000000000
--- a/exec/qnet-ftp.src
+++ /dev/null
@@ -1,177 +0,0 @@
-# qnet-ftp.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-###############################################################################
-# Baja module for performing FTP-based QWKnet call-outs #
-# Requires Synchronet v3.00d and Baja v2.30 #
-# Developed 2001 by Rob Swindell #
-###############################################################################
-
-# Usage: *QNET-FTP HUBID ADDRESSS PASSWORD
-# Example: *QNET-FTP VERT vert.synchro.net YOURPASS
-
-# You may use the qnet-ftp.bin module INSTEAD of your normal ftp/script
-# QWKnet call-out routine (exec/vert.bat). You can do this by changing
-#
-# SCFG->Networks->QWK->Hubs->VERT->Call-out Command Line to:
-#
-# *QNET-FTP VERT vert.synchro.net YOURPASS
-#
-# The asterisk is important! YOURPASS is your QWKnet password here on Vertrauen.
-#
-# No modification or recompilation of this module should be necessary.
-
-!include sbbsdefs.inc
-!include file_io.inc
-
-# Must be FIRST function call (or module will immediately terminate)
-set _online ON_LOCAL
-
-# Variables
-int i argc argv sock port
-str tmp rep qwk hubid addr user password
-str cmdline
-
-set _ftp_mode FTP_PASV
-
-# Process command line arguments
-set hubid ""
-set addr ""
-set password ""
-
-# Display command line
-copy cmdline str
-lprintf "QNET-FTP: %s" cmdline
-set argc 0
-:process_args
-compare_str ""
-if_true
- goto end_args
- end_if
-sprintf tmp "%.1s" str
-shift_str 1
-compare tmp " "
-if_true
- add argc 1
- goto process_args
- end_if
-switch argc
- case 0
- strcat hubid tmp
- end_case
- case 1
- strcat addr tmp
- end_case
- case 2
- strcat password tmp
- end_case
- default
- goto usage
- end_switch
-goto process_args
-
-:usage
-lprintf "QNET-FTP: !INCORRECT USAGE: %s" cmdline
-return
-
-:end_args
-compare hubid ""
-if_true
- goto usage
- end_if
-compare addr ""
-if_true
- goto usage
- end_if
-compare password ""
-if_true
- goto usage
- end_if
-
-sprintf rep "%%j%s.rep" hubid
-sprintf qwk "%%j%s.qwk" hubid
-chkfile qwk
-if_true
- lprintf "QNET-FTP: %s already exists!" qwk
- set i 0
- :check_qwk
- sprintf qwk "%%j%s.qw%ld" hubid i
- chkfile qwk
- if_true
- lprintf "QNET-FTP: %s already exists!" qwk
- add i 1
- compare i 10
- if_equal
- goto exit
- end_if
- goto check_qwk
- end_if
- end_if
-
-socket_open sock
-if_false
- lprintf "QNET-FTP: !socket_open failure socket_error=%d" _socket_error
- goto exit
- end_if
-
-set port 21 # default FTP port
-lprintf "QNET-FTP: Connecting to %s ... " addr
-socket_connect sock addr port
-crlf
-if_false
- lprintf "QNET-FTP: !socket_connect failed socket_error=%d" _socket_error
- goto exit
- end_if
-lprintf "QNET-FTP: Connected to %s" addr
-
-set user "%q"
-lprintf "QNET-FTP: Logging in as '%s' (PW: '%s')" user password
-ftp_login sock user password
-if_false
- lprintf "QNET-FTP: !ftp_login failed socket_error=%d" _socket_error
- goto exit
- end_if
-
-lprintf "QNET-FTP: Logged in successfully"
-
-chkfile rep
-if_true
- ###################
- # Send REP packet #
- ###################
- lprintf "QNET-FTP: Sending REP packet: %s" rep
-
- sprintf str "%s.rep" hubid
-
- ftp_put sock rep str
- if_false
- lprintf "QNET-FTP: !ftp_put failed socket_error=%d\r\n" _socket_error
- else
- lprintf "QNET-FTP: REP packet sent successfully"
- end_if
-
- remove_file rep
- end_if
-
-#######################
-# Download QWK packet #
-#######################
-sprintf str "%s.qwk" hubid
-lprintf "QNET-FTP: Downloading QWK Packet: %s" str
-ftp_get sock str qwk
-if_true
- lprintf "QNET-FTP: Downloaded %s successfully" str
-else
- lprintf "QNET-FTP: %s NOT downloaded socket_error=%d (no new messages?)" str _socket_error
- end_if
-
-#################
-# Exit routine #
-#################
-:exit
-lprintf "QNET-FTP: Done."
-
-# End of QNET-FTP.SRC
diff --git a/exec/qnet.slt b/exec/qnet.slt
deleted file mode 100644
index e05859e86312965afc88a608a27c4da0f15b9466..0000000000000000000000000000000000000000
--- a/exec/qnet.slt
+++ /dev/null
@@ -1,29 +0,0 @@
-// Main QWK Networking SALT script for calling Synchronet QWK Network Hub(s)
-
-main()
-{
-
-// These two paths need to point to your SBBS\DATA directory
-
-copystr("C:\SBBS\DATA",_down_dir,0,40);
-copystr("C:\SBBS\DATA",_up_dir,0,40);
-
-// Add additional call lines for other systems
-// the first parameter must be sbbsqnet, the second is the HUB's system ID,
-// the third is phone number list, the fourth is your logon name (should be
-// same as your system's QWKID), the fifth is your password, and the sixth is
-// the maximum retry count
-
-// The phone number list can either contain a list of dialing directory
-// entries, or a manual phone number preceeded by an 'M'.
-// Example; both of the following are valid phone number lists:
-// "1 2 3" and "m1-714-529-9525"
-// You can only have one number per hub using the manual dial method.
-
-call("sbbsqnet","VERT","m1-714-529-9721","QWKID","password","3");
-
-cputs_tr("~~ATM0H1^M");
-
-exittelix(0,0);
-}
-
diff --git a/exec/qnet.src b/exec/qnet.src
deleted file mode 100644
index 784219740f7996f657cf029d44e28c806168f470..0000000000000000000000000000000000000000
--- a/exec/qnet.src
+++ /dev/null
@@ -1,481 +0,0 @@
-# qnet.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-###############################################################################
-# Baja module for performing QWKnet call-outs #
-# Requires Synchronet v2.3 and Baja v2.10 #
-# Copyright 1996 Digital Dynamics #
-###############################################################################
-
-# Usage: *QNET HUBID PHONE PASSWORD ATTEMPTS
-# Example: *QNET VERT 1-714-529-9721 YOURPASS 100
-
-# You may use the QNET.BIN module INSTEAD of your normal terminal/script
-# QWKnet call-out routine. You can do this by changing
-#
-# SCFG->Networks->QWK->Hubs->VERT->Call-out Command Line to:
-#
-# *QNET VERT 1-714-529-9721 YOURPASS 100
-#
-# The asterisk is important! 100 is the number of dial attempts, YOURPASS is
-# your QWKnet password here on Vertrauen. Remove 1-714 if you're in the 714
-# area code.
-#
-# No modification or recompilation of this module should be necessary.
-
-!include sbbsdefs.inc
-!include file_io.inc
-
-# Constants (change for your preferences)
-
-!define INIT_ATTEMPTS 5
-!define MAX_INACTIVITY 30 # 30 seconds of host inactivity
-
-# Must be FIRST function call (or module will immediately terminate)
-set _online ON_LOCAL
-# print_local "QNET.SRC\r\n"
-# Force DCD to be assumed HIGH and user online and NO screen pausing
-or _sys_status SS_DCDHIGH|SS_USERON|SS_PAUSEOFF
-# Turn off the ^C status flag
-not _sys_status SS_ABORT
-# Set console for Local Input/Output only
-set _console CON_L_INPUT|CON_L_ECHO
-
-# Make sure there is a COM port configured
-compare _DTE_RATE 0
-if_equal
- print "BAJAQNET: No COM port configured.\7\r\n\r\n"
- pause
- return
- end_if
-
-# Variables
-int i start connect end logfile argc argv attempt result
-str tmp rep qwk log hubid phone password attempts
-
-# Mark beginning time
-time start
-set connect 0
-
-# Process command line arguments
-set hubid ""
-set phone ""
-set password ""
-set attempts ""
-
-set _lncntr 0
-cls
-strupr str
-# Display command line
-print "BAJAQNET: %s\r\n"
-set argc 0
-:process_args
-compare_str ""
-if_true
- goto end_args
- end_if
-sprintf tmp "%.1s" str
-shift_str 1
-compare tmp " "
-if_true
- add argc 1
- goto process_args
- end_if
-switch argc
- case 0
- strcat hubid tmp
- end_case
- case 1
- strcat phone tmp
- end_case
- case 2
- strcat password tmp
- end_case
- case 3
- strcat attempts tmp
- end_case
- default
- goto usage
- end_switch
-goto process_args
-
-:usage
-crlf
-print "Usage: QNET hubid phone password attempts\r\n\r\n"
-print "Example: QNET VERT 1-714-529-9721 YOURPASS 100\r\n\r\n\7"
-pause
-return
-
-:end_args
-compare hubid ""
-if_true
- goto usage
- end_if
-compare phone ""
-if_true
- goto usage
- end_if
-compare password ""
-if_true
- goto usage
- end_if
-compare attempts ""
-if_true
- goto usage
- end_if
-
-sprintf log "%%j/%s.log" hubid
-sprintf rep "%%j/%s.rep" hubid
-sprintf qwk "%%j/%s.qwk" hubid
-chkfile qwk
-if_true
- printf "\7BAJAQNET: %s already exists!\r\n" qwk
- set i 0
- :check_qwk
- sprintf qwk "%%j%s.QW%ld" hubid i
- chkfile qwk
- if_true
- printf "\7BAJAQNET: %s already exists!\r\n" qwk
- add i 1
- compare i 10
- if_equal
- goto exit
- end_if
- goto check_qwk
- end_if
- end_if
-
-fopen logfile O_WRONLY|O_APPEND|O_CREAT log
-if_false
- printf "\7BAJAQNET: Error (%d) opening %s\r\n" _errno log
- goto exit
- end_if
-
-time_str str start
-fprintf logfile "BAJAQNET: Launched: %s\r\n" str
-
-# Required for receiving responses from modem
-set _online ON_REMOTE
-or _console CON_R_INPUT
-
-set attempt 0
-:init
-call flush_input
-add attempt 1
-compare attempt INIT_ATTEMPTS
-if_greater
- setstr "BAJAQNET: Modem initialization failed!\r\n"
- print str
- fwrite logfile str
- goto exit
- end_if
-print "BAJAQNET: Initializing modem\r\n"
-
-print_remote "ATX4E0H0M0V0\r"
-getstr str 80 K_NOECHO
-if_false
- print "BAJAQNET: No response\r\n"
- goto exit
- end_if
-compare_str "0"
-if_false
- print "BAJAQNET: Modem returned %s\r\n"
- goto init
- end_if
-
-set attempt 0
-:dial
-add attempt 1
-compare attempt attempts
-if_greater
- fprintf logfile "BAJAQNET: No connect after %s attempts\r\n" attempts
- goto exit
- end_if
-printf "BAJAQNET: Dialing %s at %s (Attempt: %ld of %s)\r\n" hubid phone attempt attempts
-mswait 1000
-copy str phone
-print_remote "ATDT%s\r"
-getstr str 80 K_NOECHO
-if_false
- goto exit
- end_if
-print "BAJAQNET: "
-copy result str
-switch result
- case 0
- print "Modem responded with '%s'\r\n"
- fprintf logfile "BAJAQNET: Modem repsoned with '%s'\r\n" str
- goto dial
- case 2
- print "RING\r\n"
- goto dial
- case 3
- print "NO CARRIER\r\n"
- goto dial
- case 4
- print "ERROR\r\n"
- goto dial
- case 6
- print "NO DIALTONE\r\n"
- goto dial
- case 7
- print "BUSY\r\n"
- goto dial
- case 8
- print "NO ANSWER\r\n"
- goto dial
- default
- print "Connection established (Result Code: %s)\r\n"
- time connect
- ftime_str str "%X" connect
- fprintf logfile "BAJAQNET: Connected: %s\r\n" str
- end_switch
-
-# Normal use of DCD
-not _sys_status SS_DCDHIGH
-# Wait a second
-mswait 1000
-# Send ESC ESC for front-end mailers
-print_remote "\x1b\x1b"
-# Wait for NN: prompt
-print "BAJAQNET: Waiting for NN: prompt "
-setstr "NN:"
-call waitfor
-print " \r\n"
-# Notify Hub of Script Type and Version
-print_remote "Baja Qnet Version 1.10"
-mswait 2000
-# Send our QWK ID
-print_remote "\24%q\r"
-# Wait for PW: prompt
-print "BAJAQNET: Waiting for PW: prompt "
-setstr "PW:"
-call waitfor
-print " \r\n"
-# Send our PASSWORD
-copy str password
-print_remote "%s\r"
-# Wait for QWK: prompt
-print "BAJAQNET: Waiting for QWK: prompt "
-setstr "QWK:"
-call waitfor
-print " \r\n"
-
-chkfile rep
-if_true
- ###################
- # Send REP packet #
- ###################
- print "BAJAQNET: Sending REP packet\r\n"
- print_remote "UZN"
- mswait 1000
- call flush_input
- send_file_via Z rep
- get_file_length i rep
- sprintf str "BAJAQNET: Upload of REP packet (%lu bytes) " i
- print str
- fwrite logfile str
- if_true
- print "successful\r\n"
- fprintf logfile "successful\r\n"
- remove_file rep
- else
- print "\7UNSUCCESSFUL!\r\n"
- fprintf logfile "UNSUCCESSFUL!\r\n"
- end_if
- #mswait 1000
- #call flush_input
- # Wait for QWK: prompt
- print "BAJAQNET: Waiting for QWK: prompt "
- setstr "QWK:"
- call waitfor
- print " \r\n"
- end_if
-
-#######################
-# Download QWK packet #
-#######################
-print "BAJAQNET: Scanning for new messages "
-int sm nm ss
-
-print_remote "DL"
-setstr "PROTOCOL OR "
-call waitfor
-print " \r\n"
-if_false
- setstr "BAJAQNET: No new messages.\r\n"
- print str
- fwrite logfile str
- print_remote "Q"
- goto exit
- end_if
-print "BAJAQNET: Receiving QWK packet\r\n"
-print_remote "ZN"
-mswait 1000
-call flush_input
-receive_file_via Z qwk
-sprintf str "BAJAQNET: Download of QWK packet "
-print_local "%s"
-fwrite logfile str
-chkfile qwk
-if_true
- get_file_length i qwk
- sprintf str "(%lu bytes) successful\r\n" i
-else
- setstr "UNSUCCESSFUL!\r\n"
- end_if
-print_local "%s"
-fwrite logfile str
-mswait 2000
-copy _sys_misc sm
-copy _node_misc nm
-print_remote "Q"
-goto exit
-
-###############################################################################
-# Wait for a specific text string (contained in current command string) #
-# Automatically hits ENTER for HIT A KEY prompts #
-# Times-out after 30 seconds of host inactivity #
-# Sets logic state to TRUE if the string is located and returns #
-# Sets logic state to FALSE if QWK: is found before the string and returns #
-###############################################################################
-:waitfor
-str waitforstr waitforbuf
-int cursor t1 t2
-copy waitforstr str
-:waitfor_reset
-set waitforbuf ""
-:waitfor_nextchar
-time t1
-:waitfor_checkinput
-inkey
-if_false
- time t2
- sub t2 t1
- compare t2 MAX_INACTIVITY
- if_greater
- goto timeout
- end_if
- goto waitfor_checkinput
- end_if
-
-# Control key?
-compare_keys "^M^J^L^G^H"
-if_true
- :spin_cursor
- and cursor 3
- switch cursor
- case 0
- print_local "-"
- end_case
- case 1
- print_local "\\"
- end_case
- case 2
- print_local "|"
- end_case
- case 3
- print_local "/"
- end_case
- end_switch
- print_local "\b"
- add cursor 1
- # Clear input buffer and continue
- goto waitfor_reset
- end_if
-
-ungetkey
-:waitfor_additional
-inkey
-if_true
- compare_keys "^M^J^L^G^H"
- if_true
- # Clear ungetkey buffer
- setstr "\r"
- ungetstr
- getstr str 0 K_NOECHO
- goto spin_cursor
- end_if
- ungetkey
- goto waitfor_additional
- end_if
-setstr "\r"
-ungetstr
-getstr str 128 K_NOECHO
-if_false
- fprintf logfile "getstr returned FALSE\r\n"
- setlogic FALSE
- return
- end_if
-strcat waitforbuf str
-# Handle Pause Prompt
-compare_substr waitforbuf "HIT A KEY"
-if_true
- fprintf logfile "received hit a key prompt\r\n"
- print_remote "\r"
- goto waitfor_reset
- end_if
-# Handle ANSI Cursor Position Request
-compare_substr waitforbuf "[6n"
-if_true
- print_remote "\r"
- goto waitfor_reset
- end_if
-# Return TRUE if string found
-compare_substr waitforbuf waitforstr
-if_true
- setlogic TRUE
- return
- end_if
-# Return FALSE if QWK: prompt found instead
-compare waitforbuf "QWK: "
-if_true
- setlogic FALSE
- return
- end_if
-
-goto waitfor_nextchar
-
-
-#####################################################################
-# Flush (remove, do not process) any characters in the input buffer #
-#####################################################################
-:flush_input
-inkey
-if_true # Flush input buffer
- goto flush_input
- end_if
-return
-
-###################################################
-# Timeout routine (falls-through to Exit routine) #
-###################################################
-:timeout
-print_local "\r\nBAJAQNET: \7Time-out!\7\r\n"
-fprintf logfile "BAJAQNET: Time-out\r\n"
-
-#################
-# Exit routine #
-#################
-:exit
-print_local "BAJAQNET: Exiting...\r\n"
-# Mark ending time
-time end
-time_str str end
-fprintf logfile "BAJAQNET: Terminated: %s\r\n" str
-compare connect 0
-if_not_equal
- copy i end
- sub i connect
- second_str tmp i
- fprintf logfile "BAJAQNET: Time online: %s\r\n" tmp
- end_if
-hangup
-not _sys_status SS_DCDHIGH
-mswait 2000
-return
-
-# End of QNET.SRC
diff --git a/exec/ra_emu.src b/exec/ra_emu.src
deleted file mode 100644
index 46b3951a7d01f3b0ec27089ffaf53d50ed40ea6b..0000000000000000000000000000000000000000
--- a/exec/ra_emu.src
+++ /dev/null
@@ -1,11 +0,0 @@
-# ra_emu.src
-
-# Emulate RemoteAccess, Renegade, etc. Mail/Message Prompts
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-or _sys_misc SM_RA_EMU
diff --git a/exec/renegade.src b/exec/renegade.src
deleted file mode 100644
index 505dd34d8d24c043e4b1d62cc9b7575542987de9..0000000000000000000000000000000000000000
--- a/exec/renegade.src
+++ /dev/null
@@ -1,880 +0,0 @@
-# renegade.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-################################# Begins Here #################################
-or _sys_misc SM_RA_EMU # Swap Msg ReRead/Reply commands
-:main
-# Set return point for main menu commands (via end_cmd)
-cmd_home
-
-# Display text/menu/main.* if not in expert mode
-compare_ars expert
-if_false
- cls
- menu renegade/main
- end_if
-
-# Update node status
-node_action node_main
-async
-
-# Display main Prompt
-compare_ars exempt T
-if_true
- print "n\r\nbhTime Used: [c@TUSED@b] "
-else
- print "n\r\nbhTime Left: [c@TLEFT@b] "
- end_if
-
-print "bh(c?b=cHelpb)\r\nMain Menu m: n"
-
-# Get key (with / extended commands allowed)
-compare_user_misc UM_COLDKEYS
-if_false
- getkeye
-else
- getstrupr 60
- endif
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Show the key hit
-compare_user_misc UM_COLDKEYS
-if_false
- printkey
- endif
-
-cmdkey F
- cmd_pop
- goto file_transfers
- end_cmd
-
-compare_user_misc UM_COLDKEYS
-if_false
- crlf
- end_if
-pause_reset
-
-# Menu
-cmdkey ?
- compare_ars expert
- if_true
- cls
- menu renegade/main
- end_if
- end_cmd
-
-# Sysop Menu
-compare_ars SYSOP or exempt Q or I or N
-if_true
- cmdkey *
- call sysop
- end_cmd
- end_if
-
-# Commands
-
-cmdkey A
- auto_message
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey E
- cmd_pop
- goto E-mail
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey I
- call main_info
- end_cmd
-
-cmdkey W
- nodelist_users
- end_cmd
-
-cmdkey L
- userlist_logons
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey $
- minute_bank
- end_cmd
-
-cmdkey M
- cmd_pop
- goto message
- end_cmd
-
-cmdkey N
- setstr "1"
- mail_send_feedback
- end_cmd
-
-cmdkey O
- xtrn_section
- end_cmd
-
-cmdkey P
- user_defaults
- end_cmd
-
-cmdkey !
- msg_qwk
- end_cmd
-
-cmdkey S
- text_file_section
- end_cmd
-
-cmdkey U
- userlist_all
- end_cmd
-
-cmdkey X
- toggle_user_misc UM_expert
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_ars expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-# shouldn't hit next line
-print "Problem in command shell."
-pause
-hangup
-
-############################### E-mail Section ################################
-
-:e-mail
-cmd_home
-compare_ars expert
-if_false
- cls
- menu renegade/email
- end_if
-async
-compare_ars exempt T
-if_true
- print "n\r\nbhTime Used: [c@TUSED@b] "
-else
- print "n\r\nbhTime Left: [c@TLEFT@b] "
- end_if
-
-print "bh(c?b=cHelpb)\r\nEmail Menu m: n"
-
-# Get key (with / extended commands allowed)
-compare_user_misc UM_COLDKEYS
-if_false
- getkeye
-else
- getstrupr 60
- endif
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-logkey
-
-# Show the key hit
-compare_user_misc UM_COLDKEYS
-if_false
- printkey
- endif
-
-compare_user_misc UM_COLDKEYS
-if_false
- crlf
- end_if
-pause_reset
-
-cmdkey ?
- compare_ars expert
- if_true
- cls
- menu renegade/email
- end_if
- end_cmd
-
-cmdkey E
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdkey R
- mail_read
- end_cmd
-
-cmdkey V
- mail_read_sent
- end_cmd
-
-cmdkey Q
- cmd_pop
- goto main
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_ars expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-
-########################### Main Config Section ##############################
-
-:main_cfg
-
-compare_ars expert
-if_false
- menu maincfg
- end_if
-async
-print "\r\nyhConfig: n"
-getcmd ?QNPIS\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu maincfg
- end_if
- goto main_cfg
- end_cmd
-
-cmdkey N
- msg_new_scan_cfg
- return
- end_cmd
-
-cmdkey S
- msg_your_scan_cfg
- return
- end_cmd
-
-cmdkey P
- msg_ptrs_cfg
- return
- end_cmd
-
-cmdkey I
- msg_ptrs_reinit
- return
- end_cmd
-
-return
-
-########################### File Transfer Section #############################
-
-:file_transfers
-
-cmd_home
-
-compare_ars expert
-if_false
- cls
- menu renegade/transfer
- end_if
-
-# Update node status
-node_action node_xfer
-async
-
-# Display main Prompt
-print "n\r\nbh[@LIB@ @DIR@]\r\n"
-compare_ars exempt T
-if_true
- print "bhTime Used: [c@TUSED@b] "
-else
- print "bhTime Left: [c@TLEFT@b] "
- end_if
-
-print "bh(c?b=cHelpb)\r\nFile Menu m: n"
-
-# Get key (with / extended commands allowed)
-compare_user_misc UM_COLDKEYS
-if_false
- getkeye
-else
- getstrupr 60
- endif
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Hitting number changes current sub-board
-cmdkey digit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- end_if
- file_get_dir_num
- end_cmd
-
-# Hitting /number changes current group
-cmdkey edigit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- else
- shift_str 1
- end_if
- file_get_lib_num
- end_cmd
-
-# Show the key hit
-compare_user_misc UM_COLDKEYS
-if_false
- printkey
- endif
-
-# Next library
-cmdkey ]
- file_directory_up
- end_cmd
-
-# Previous library
-cmdkey [
- file_directory_down
- end_cmd
-
-cmdkey Q
- cmd_pop
- goto main
- end_cmd
-
-compare_user_misc UM_COLDKEYS
-if_false
- crlf
- end_if
-pause_reset
-
-# Menu
-cmdkey ?
- compare_ars expert
- if_true
- cls
- menu renegade/transfer
- end_if
- end_cmd
-
-# Sysop Menu
-compare_ars SYSOP or exempt Q or I or N
-if_true
- cmdkey *
- call sysop
- end_cmd
- end_if
-
-# Commands
-
-cmdkey E
- file_batch_section
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey D
- print "\r\nchDownload File(s)\r\n"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdkey /D
- file_download_user
- end_cmd
-
-cmdkey F
- print "\r\nchFind Text in File Descriptions (no wildcards)\r\n"
- file_find_text
- end_cmd
-
-cmdkey /F
- file_find_text_all
- end_cmd
-
-cmdkey A
- file_show_directories
- end_cmd
-
-cmdkey /*
- file_show_libraries
- end_cmd
-
-cmdkey J
- file_select_area
- end_cmd
-
-cmdkey L
- print "\r\nchList Files\r\n"
- getfilespec
- if_true
- file_list
- end_if
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey M
- cmd_pop
- goto message
- end_cmd
-
-cmdkey N
- print "\r\nchNew File Scan\r\n"
- file_new_scan
- end_cmd
-
-cmdkey /N
- file_new_scan_all
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey S
- print "\r\nchSearch for Filename(s)\r\n"
- file_find_name
- end_cmd
-
-cmdkey /S
- file_find_name_all
- end_cmd
-
-cmdkey /A
- file_temp_section
- end_cmd
-
-cmdkey U
- print "\r\nchUpload File\r\n"
- chkfile "%zmenu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdkey /U
- file_upload_user
- end_cmd
-
-cmdkey V
- print "\r\nchView File(s)\r\n"
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-
-cmdkey P
- file_ptrs_cfg
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-cmdkey Z
- print "\r\nchUpload File to Sysop\r\n"
- file_upload_sysop
- end_cmd
-
-cmdkey #
- print "\r\nncEnter the number of the directory to change to.\r\n"
- end_cmd
-
-cmdkey /#
- print "\r\nncEnter the number of the library to change to.\r\n"
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_ars expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-# shouldn't hit next line
-print "Problem in command shell."
-pause
-hangup
-
-############################### Message Section ###############################
-
-:message
-cmd_home
-compare_ars expert
-if_false
- cls
- menu renegade/message
- end_if
-
-# Update node status
-node_action node_main
-async
-
-# Display main Prompt
-print "n\r\nbh[@GRP@ @SUB@]\r\n"
-compare_ars exempt T
-if_true
- print "bhTime Used: [c@TUSED@b] "
-else
- print "bhTime Left: [c@TLEFT@b] "
- end_if
-
-print "bh(c?b=cHelpb)\r\nMessage Menu m: n"
-
-# Get key (with / extended commands allowed)
-compare_user_misc UM_COLDKEYS
-if_false
- getkeye
-else
- getstrupr 60
- endif
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Hitting number changes current sub-board
-cmdkey digit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- end_if
- msg_get_sub_num
- end_cmd
-
-# Hitting /number changes current group
-cmdkey edigit
- compare_user_misc UM_COLDKEYS
- if_false
- ungetkey
- else
- shift_str 1
- end_if
- msg_get_grp_num
- end_cmd
-
-# Show the key hit
-compare_user_misc UM_COLDKEYS
-if_false
- printkey
- endif
-
-cmdkey ?
- compare_ars expert
- if_true
- cls
- menu renegade/message
- end_if
- end_cmd
-
-cmdkey Q
- cmd_pop
- goto main
- end_cmd
-
-cmdkey [
- msg_subboard_down
- end_cmd
-
-cmdkey ]
- msg_subboard_up
- end_cmd
-
-compare_user_misc UM_COLDKEYS
-if_false
- crlf
- end_if
-pause_reset
-
-cmdkey A
- msg_show_subboards
- end_cmd
-
-cmdkey /A
- msg_show_groups
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey N
- msg_new_scan
- end_cmd
-
-cmdkey R
- msg_read
- end_cmd
-
-cmdkey P
- msg_post
- end_cmd
-
-cmdkey F
- cmd_pop
- goto file_transfers
- end_cmd
-
-cmdkey S
- print "\r\nchSearch for Text in Messages\r\n"
- msg_find_text
- end_cmd
-
-cmdkey U
- userlist_sub
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /G
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey E
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdkey J
- msg_select_area
- end_cmd
-
-cmdkey Y
- msg_your_scan
- end_cmd
-
-cmdkey Z
- call main_cfg
- end_cmd
-
-cmdkey #
- print "\r\nncEnter the number of the sub-board to change to.\r\n"
- end_cmd
-
-cmdkey /#
- print "\r\nncEnter the number of the message group to change to.\r\n"
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_ars expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-############################## Sysop Commands #################################
-
-:sysop
-cmd_home
-menu sysmain
-print "n\r\nchSelect an option (or Q to quit): n"
-getstrupr 40
-
-cmdstr "Q"
- cmd_pop
- return
- end_cmd
-
-exec_bin str_cmds
-
-end_cmd
-
-
-############################ Main Info Section ###############################
-
-:main_info
-cmd_home
-compare_ars expert
-if_false
- menu maininfo
- end_if
-async
-print "\r\nyhInfo: n"
-getcmd ?QISVY\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu maininfo
- end_if
- end_cmd
-
-cmdkey I
- info_system
- end_cmd
-
-cmdkey S
- info_subboard
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-cmdkey V
- info_version
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
diff --git a/exec/rlogin.src b/exec/rlogin.src
deleted file mode 100644
index 49c7075c5c07c72eb99f3c9ca0b7c8047257a752..0000000000000000000000000000000000000000
--- a/exec/rlogin.src
+++ /dev/null
@@ -1,15 +0,0 @@
-# rlogin.src
-
-# Telnet Gateway using RLogin protocol - Requires v3.00c
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-printf "\r\n\1h\1hPress \1yCtrl-]\1w for a control menu anytime.\r\n\r\n"
-pause
-printf "\1h\1yConnecting to: \1w%s\1n\r\n" str
-telnet_gate str TG_RLOGIN
-cls
diff --git a/exec/sbbsdefs.inc b/exec/sbbsdefs.inc
deleted file mode 100644
index b06f46e19c552d6756e6bd502efb45bb1de46622..0000000000000000000000000000000000000000
--- a/exec/sbbsdefs.inc
+++ /dev/null
@@ -1,365 +0,0 @@
-# sbbsdefs.inc
-
-# Baja include file defining various Synchronet related constants
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include nodedefs.inc
-!include userdefs.inc
-!include errno.inc
-
- # System toggle options (_SYS_MISC)
-!define SM_CLOSED .0 # System is clsoed to New Users
-!define SM_SYSSTAT .1 # Sysops activity included in statistics
-!define SM_NOBEEP .2 # No beep sound locally
-!define SM_PWEDIT .3 # Allow users to change their passwords
-!define SM_RA_EMU .4 # Reverse R/A read message/mail command keys
-!define SM_ANON_EM .5 # Allow anonymous e-mail
-!define SM_LISTLOC .6 # Use location of caller in user lists
-!define SM_WILDCAT .7 # Expand Wildcat color codes in messages
-!define SM_PCBOARD .8 # Expand PCBoard color codes in messages
-!define SM_WWIV .9 # Expand WWIV color codes in messages
-!define SM_CELERITY .10 # Expand Celerity color codes in messages
-!define SM_RENEGADE .11 # Expand Renegade color codes in messages
-!define SM_ECHO_PW .12 # Echo passwords locally
-!define SM_REQ_PW .13 # Require passwords locally
-!define SM_L_SYSOP .14 # Allow local sysop logon/commands
-!define SM_R_SYSOP .15 # Allow remote sysop logon/commands
-!define SM_QUOTE_EM .16 # Allow quoting of e-mail
-!define SM_EURODATE .17 # Europian date format (DD/MM/YY
-!define SM_MILITARY .18 # Military time format
-!define SM_TIMEBANK .19 # Allow time bank functions
-!define SM_FILE_EM .20 # Allow file attachments in E-mail
-!define SM_SHRTPAGE .21 # Short sysop page
-!define SM_TIME_EXP .22 # Set to expired values if out-of-time
-!define SM_FASTMAIL .23 # Fast e-mail storage mode
-!define SM_QVALKEYS .24 # Quick validation keys enabled
-!define SM_ERRALARM .25 # Error beeps on
-!define SM_FWDTONET .26 # Allow forwarding of e-mail to netmail
-!define SM_DELREADM .27 # Delete read mail automatically
-!define SM_NOCDTCVT .28 # No credit to minute conversions allowed
-
- # Node toggle options (_NODE_MISC)
-!define NM_ANSALARM .0 # Alarm locally on answer
-!define NM_WFCSCRN .1 # Wait for call screen
-!define NM_WFCMSGS .2 # Include total messages/files on WFC
-!define NM_LCL_EDIT .3 # Use local editor to create messages
-!define NM_EMSOVL .4 # Use expanded memory of overlays
-!define NM_WINOS2 .5 # Use Windows/OS2 time slice API call
-!define NM_INT28 .6 # Make int 28 DOS idle calls
-!define NM_NODV .7 # Don't detect and use DESQview API
-!define NM_NO_NUM .8 # Don't allow logons by user number
-!define NM_LOGON_R .9 # Allow logons by user real name
-!define NM_LOGON_P .10 # Secure logons (always ask for password
-!define NM_NO_LKBRD .11 # No local keyboard (at all
-!define NM_SYSPW .12 # Protect WFC keys and Alt keys with SY:
-!define NM_NO_INACT .13 # No local inactivity alert/logoff
-!define NM_NOBEEP .14 # Don't beep locally
-!define NM_LOWPRIO .15 # Always use low priority input
-!define NM_7BITONLY .16 # Except 7-bit input only (E71 terminals
-!define NM_NOPAUSESPIN .17 # No spinning cursor at pause prompt
-
- # New user question toggles (_UQ)
-!define UQ_ALIASES .0 # Ask for alias
-!define UQ_LOCATION .1 # Ask for location
-!define UQ_ADDRESS .2 # Ask for address
-!define UQ_PHONE .3 # Ask for phone number
-!define UQ_HANDLE .4 # Ask for chat handle
-!define UQ_DUPHAND .5 # Search for duplicate handles
-!define UQ_SEX .6 # Ask for sex
-!define UQ_BIRTH .7 # Ask for birth date
-!define UQ_COMP .8 # Ask for computer type
-!define UQ_MC_COMP .9 # Multiple choice computer type
-!define UQ_REALNAME .10 # Ask for real name
-!define UQ_DUPREAL .11 # Search for duplicate real names
-!define UQ_COMPANY .12 # Ask for company name
-!define UQ_NOEXASC .13 # Don't allow ex-ASCII in user text
-!define UQ_CMDSHELL .14 # Ask for command shell
-!define UQ_XEDIT .15 # Ask for external editor
-!define UQ_NODEF .16 # Don't ask for default settings
-!define UQ_NOCOMMAS .17 # Do not require commas in location
-
-
- # FidoNet netmail toggles (_NETMAIL_MISC)
-!define NMAIL_ALLOW .0 # Allow NetMail
-!define NMAIL_CRASH .1 # Default netmail to crash
-!define NMAIL_HOLD .2 # Default netmail to hold
-!define NMAIL_KILL .3 # Default netmail to kill after sent
-!define NMAIL_ALIAS .4 # Use Aliases in NetMail
-!define NMAIL_FILE .5 # Allow file attachments
-!define NMAIL_DIRECT .6 # Default netmail to direct
-
- # Console I/O status (_CONSOLE)
-!define CON_R_ECHO .0 # Echo remotely
-!define CON_R_ECHOX .1 # Echo X's to remote user
-!define CON_R_INPUT .2 # Accept input remotely
-!define CON_L_ECHO .3 # Echo locally
-!define CON_L_ECHOX .4 # Echo X's locally
-!define CON_L_INPUT .5 # Accept input locally
-!define CON_RAW_IN .8 # Raw input mode - no editing capabilities
-!define CON_ECHO_OFF .10 # Remote & Local echo disabled for ML/MF
-!define CON_UPARROW .11 # Up arrow hit - move up one line
-!define CON_NO_INACT .13 # Disable user inactivity detection
-
- # String lengths
-
-!define LEN_FDESC 58 # File description
-!define LEN_TITLE 70 # Message title
-!define LEN_CID 25 # Caller ID (phone number
-!define LEN_ARSTR 40 # Max length of Access Requirement string
-!define LEN_CHATACTCMD 9 # Chat action command
-!define LEN_CHATACTOUT 65 # Chat action output string
-
-
- # Online status (0=offline) (_ONLINE)
-!define ON_LOCAL 1 # Online locally
-!define ON_REMOTE 2 # Online remotely
-
- # System status bits (_SYS_STATUS)
-!define SS_LOGOPEN .0 # Node's Log file is open
-!define SS_INITIAL .1 # The bbs data has been initialized.
-!define SS_TMPSYSOP .2 # Temporary Sysop Status
-!define SS_USERON .3 # A User is logged on to the BBS
-!define SS_LCHAT .4 # Local chat in progress
-!define SS_CAP .5 # Capture is on
-!define SS_ANSCAP .6 # Capture ANSI codes too
-!define SS_FINPUT .7 # Using file for input
-!define SS_COMISR .8 # Com port ISR is installed
-!define SS_DAILY .9 # Execute System Daily Event on logoff
-!define SS_INUEDIT .10 # Inside Alt-Useredit section
-!define SS_ABORT .11 # Global abort input or output flag
-!define SS_SYSPAGE .12 # Paging sysop
-!define SS_SYSALERT .13 # Notify sysop when users hangs up
-!define SS_GURUCHAT .14 # Guru chat in progress
-!define SS_NODEDAB .15 # NODE.DAB operations are okay
-!define SS_EVENT .16 # Time shortened due to upcoming event
-!define SS_PAUSEON .17 # Pause on, overriding user default
-!define SS_PAUSEOFF .18 # Pause off, overriding user default
-!define SS_IN_CTRLP .19 # Inside ctrl-p send node message func
-!define SS_NEWUSER .20 # New User online
-!define SS_MDMDEBUG .21 # Modem debug output
-!define SS_NEST_PF .22 # Nested in printfile function
-!define SS_DCDHIGH .23 # Assume DCD is high always
-!define SS_SPLITP .24 # Split-screen private chat
-!define SS_RLOGIN .26 # RLogin session (not telnet)
-
- # Bits in 'mode' for GETSTR function
-!define K_UPPER .0 # Converts all letters to upper case
-!define K_UPRLWR .1 # Upper/Lower case automatically
-!define K_NUMBER .2 # Allow numbers only
-!define K_WRAP .3 # Allows word wrap
-!define K_MSG .4 # Allows ANSI, ^N ^A ^G
-!define K_SPIN .5 # Spinning cursor (same as SPIN
-!define K_LINE .6 # Input line (inverse color
-!define K_EDIT .7 # Edit string passed
-!define K_CHAT .8 # In chat multi-chat
-!define K_NOCRLF .9 # Don't print CRLF after string input
-!define K_ALPHA .10 # Only allow alphabetic characters
-!define K_GETSTR .11 # getkey called from getstr
-!define K_LOWPRIO .12 # low priority input
-!define K_NOEXASC .13 # No extended ASCII allowed
-!define K_E71DETECT .14 # Detect E-7-1 terminal type
-!define K_AUTODEL .15 # Auto-delete text (used with K_EDIT
-!define K_COLD .16 # Possible cold key mode
-!define K_NOECHO .17 # Don't echo input
-!define K_TAB .18 # Treat TAB as CR
-
- # Bits in 'mode' for PRINTFILE function
-!define P_NOABORT .0 # Disallows abortion of a message
-!define P_SAVEATR .1 # Save the new current attributres after
- # msg has printed.
-!define P_NOATCODES .2 # Don't allow @ codes
-!define P_OPENCLOSE .3 # Open and close the file
-
-
- # Values for USER_EVENT function
-!define EVENT_NONE 0 # Only accessible by menu
-!define EVENT_LOGON 1 # Execute during logon sequence
-!define EVENT_NEWUSER 2 # Execute during newuser app.
-!define EVENT_BIRTHDAY 3 # Execute on birthday
-!define EVENT_LOGOFF 4 # Execute during normal logoff
-!define EVENT_POST 5 # Execute after message posted
-!define EVENT_UPLOAD 6 # Execute after file uploaded
-!define EVENT_DOWNLOAD 7 # Execute after file downloaded
-
-!define TG_ECHO .0 # Turn on telnet echo
-!define TG_CRLF .1 # Expand sole CR to CRLF
-!define TG_LINEMODE .2 # Send entire lines only
-!define TG_NODESYNC .3 # Call Nodesync, get msgs, etc.
-!define TG_CTRLKEYS .4 # Interpret ^P ^U ^T, etc locally
-!define TG_PASSTHRU .5 # Pass-through telnet commands/responses
-!define TG_RLOGIN .6 # Use BSD RLogin protocol
-!define TG_NOCHKTIME .7 # Don't check time left online
-
- # Bits for _FTP_MODE
-!define FTP_ECHO_CMD .0 # Echo commands to user (debug)
-!define FTP_ECHO_RSP .1 # Echo reply/response lines to user
-!define FTP_PASV .2 # Use passive transfer mode
-!define FTP_ASCII .3 # Use ASCII transfer mode
-!define FTP_HASH .4 # Print hash marks during transfers
-
-!define BBS_OPT_KEEP_ALIVE .0 # Send keep-alives
-!define BBS_OPT_XTRN_MINIMIZED .1 # Run externals minimized
-!define BBS_OPT_AUTO_LOGON .2 # Auto-logon via IP
-!define BBS_OPT_DEBUG_TELNET .3 # Debug telnet commands
-!define BBS_OPT_SYSOP_AVAILABLE .4 # Available for chat
-!define BBS_OPT_ALLOW_RLOGIN .5 # Allow logins via BSD RLogin
-!define BBS_OPT_USE_2ND_RLOGIN .6 # Use 2nd username in BSD RLogin
-!define BBS_OPT_NO_QWK_EVENTS .7 # Don't run QWK-related events
-!define BBS_OPT_NO_HOST_LOOKUP .11
-!define BBS_OPT_LOCAL_TIMEZONE .30 # Don't force UCT/GMT
-!define BBS_OPT_MUTE .31 # Mute sounds
-
-################################
-# System Variable Declarations #
-################################
-
- # String variables
-!global _USERON.ALIAS
-!global _USERON.NAME
-!global _USERON.HANDLE
-!global _USERON.COMP
-!global _USERON.NOTE
-!global _USERON.ADDRESS
-!global _USERON.LOCATION
-!global _USERON.ZIPCODE
-!global _USERON.PASS
-!global _USERON.BIRTH
-!global _USERON.PHONE
-!global _USERON.MODEM
-!global _USERON.NETMAIL
-!global _USERON.TMPEXT
-!global _USERON.COMMENT
-!global _CONNECTION
-!global _CAP_FNAME
-!global _CID
-!global _COMSPEC
-!global _QUESTION
-
- # Integer variables
-!global _USERON.NUMBER
-!global _USERON.ULS
-!global _USERON.DLS
-!global _USERON.POSTS
-!global _USERON.EMAILS
-!global _USERON.FBACKS
-!global _USERON.ETODAY
-!global _USERON.PTODAY
-!global _USERON.TIMEON
-!global _USERON.TEXTRA
-!global _USERON.LOGONS
-!global _USERON.TTODAY
-!global _USERON.TLAST
-!global _USERON.LTODAY
-!global _USERON.XEDIT
-!global _USERON.SHELL
-!global _USERON.LEVEL
-!global _USERON.SEX
-!global _USERON.ROWS
-!global _USERON.PROT
-!global _USERON.LEECH
-!global _USERON.MISC
-!global _USERON.QWK
-!global _USERON.CHAT
-!global _USERON.FLAGS1
-!global _USERON.FLAGS2
-!global _USERON.FLAGS3
-!global _USERON.FLAGS4
-!global _USERON.EXEMPT
-!global _USERON.REST
-!global _USERON.ULB
-!global _USERON.DLB
-!global _USERON.CDT
-!global _USERON.MIN
-!global _USERON.FREECDT
-!global _USERON.FIRSTON
-!global _USERON.LASTON
-!global _USERON.EXPIRE
-!global _USERON.PWMOD
-!global _USERON.NS_TIME
-!global _CUR_RATE
-!global _CUR_CPS
-!global _DTE_RATE
-!global _LNCNTR
-!global _TOS
-!global _ROWS
-!global _AUTOTERM
-!global _CONSOLE
-!global _ANSWERTIME
-!global _LOGONTIME
-!global _NS_TIME
-!global _LAST_NS_TIME
-!global _ONLINE
-!global _SYS_STATUS
-!global _SYS_MISC
-!global _SYS_PSNUM
-!global _SYS_TIMEZONE
-!global _SYS_PWDAYS
-!global _SYS_DELDAYS
-!global _SYS_AUTODEL
-!global _SYS_NODES
-!global _SYS_EXP_WARN
-!global _SYS_LASTNODE
-!global _SYS_AUTONODE
-!global _NODE_SCRNLEN
-!global _NODE_SCRNBLANK
-!global _NODE_MISC
-!global _NODE_VALUSER
-!global _NODE_IVT
-!global _NODE_SWAP
-!global _NODE_MINBPS
-!global _NODE_NUM
-!global _NEW_LEVEL
-!global _NEW_FLAGS1
-!global _NEW_FLAGS2
-!global _NEW_FLAGS3
-!global _NEW_FLAGS4
-!global _NEW_EXEMPT
-!global _NEW_REST
-!global _NEW_CDT
-!global _NEW_MIN
-!global _NEW_SHELL
-!global _NEW_MISC
-!global _NEW_EXPIRE
-!global _NEW_PROT
-!global _EXPIRED_LEVEL
-!global _EXPIRED_FLAGS1
-!global _EXPIRED_FLAGS2
-!global _EXPIRED_FLAGS3
-!global _EXPIRED_FLAGS4
-!global _EXPIRED_EXEMPT
-!global _EXPIRED_REST
-!global _MIN_DSPACE
-!global _CDT_MIN_VALUE
-!global _CDT_PER_DOLLAR
-!global _LEECH_PCT
-!global _LEECH_SEC
-!global _NETMAIL_COST
-!global _NETMAIL_MISC
-!global _INETMAIL_COST
-!global _INETMAIL_MISC
-!global _LOGON_ULB
-!global _LOGON_DLB
-!global _LOGON_ULS
-!global _LOGON_DLS
-!global _LOGON_POSTS
-!global _LOGON_EMAILS
-!global _LOGON_FBACKS
-!global _POSTS_READ
-!global _LOGFILE
-!global _NODEFILE
-!global _NODE_EXT
-!global _TIMELEFT
-!global _MAX_MINUTES
-!global _MAX_QWKMSGS
-!global _UQ
-!global _ERRORLEVEL
-!global _WORDWRAP
-!global _FTP_MODE
-!global _CLIENT_SOCKET
-!global _SOCKET_ERROR
-!global _STARTUP_OPTIONS
-
-# End of SBBSDEFS.INC
diff --git a/exec/sbbsedit.js b/exec/sbbsedit.js
deleted file mode 100644
index 35e23134c271b43ba9a50ab372cdf26cd3fd7d97..0000000000000000000000000000000000000000
--- a/exec/sbbsedit.js
+++ /dev/null
@@ -1,284 +0,0 @@
-// sbbsedit.js
-
-// Full-screen message editor for Synchronet v3.10m+
-
-// $Id$
-
-const REVISION = "$Revision$".split(' ')[1];
-
-const debug=true;
-
-// Message header display format
-var hdr_fmt = "\1b\1h%-4s\1n\1b: \1h\1c%.60s\1>\r\n";
-var stat_fmt = "\1h\1w\0014 SBBSedit v" + REVISION + " - Type \1y/?\1w for help";
-if(debug)
- stat_fmt += "\1y row=%d l=%d offset=%d";
-stat_fmt+="\1>\1n";
-var tab_size = 4;
-
-load("sbbsdefs.js");
-
-if(!argc) {
- alert("No filename specified");
- exit();
-}
-
-var subj,to,from;
-var row = 0;
-var rows = console.screen_rows;
-var fname = argv[0];
-var line = new Array();
-var ctrlkey_passthru=console.ctrlkey_passthru;
-console.ctrlkey_passthru|=(1<<3); // Ctrl-C
-console.ctrlkey_passthru|=(1<<11); // Ctrl-K
-console.ctrlkey_passthru|=(1<<16); // Ctrl-P
-console.ctrlkey_passthru|=(1<<20); // Ctrl-T
-console.ctrlkey_passthru|=(1<<21); // Ctrl-U
-
-f = new File(fname);
-if(f.open("r")) {
- line = f.readAll();
- f.close();
- print("Read " + line.length + " lines");
-}
-
-console.attributes = LIGHTGRAY;
-console.clear();
-
-drop_file = new File(system.node_dir + "editor.inf");
-if(drop_file.exists && drop_file.open("r")) {
- info = drop_file.readAll();
- delete drop_file;
-
- subj=info[0];
- to=info[1];
- from=info[3];
-}
-
-show_header();
-
-show_tabline();
-
-home = console.getxy();
-row = home.y;
-
-var l=0;
-if(line.length)
- show_text(0);
-update_status();
-
-var offset;
-while(bbs.online) {
- update_status();
- console.clearline();
- console.write("\r"); /* make sure we're at column 0, always */
- str=line[l];
- if(str==undefined)
- str="";
-
- if(offset==undefined || offset>str.length)
- offset=str.length;
-
- console.write(str);
- if(offset!=str.length) {
- if(offset==0)
- console.write('\r');
- else
- console.left(str.length-offset);
- }
-
- var done=false;
- while(bbs.online && !done) {
- ch=console.getkey();
- switch(ch) {
- case '\r':
- done=true;
- continue;
- case '\b':
- if(offset) {
- str=str.slice(0,offset-1)+str.slice(offset);
- offset--;
- console.print("\b");
- console.cleartoeol();
- console.print(str.slice(offset));
- }
- continue;
- }
- console.write(ch);
- str=str.slice(0,offset)+ch+str.slice(offset);
- offset++;
- }
- log(str);
-
- /* Allow "inline" cursor up/down movement using getstr_offset */
- if(str.length && offset==str.length)
- delete offset;
-
- /* Commands */
- switch(str.toLowerCase()) {
- case "/s": /* SAVE */
- if(!f.open("w"))
- alert("Error " + errno + " opening " + f.name);
- else {
- f.writeAll(line);
- f.close();
- }
- /* fall-through */
- case "/abt": /* ABORT */
- bail();
- break;
- case "/clr": /* CLEAR */
- line = new Array();
- console.gotoxy(home);
- show_text(0);
- continue;
- case "/?": /* HELP */
- case "/help":
- console.clear();
- bbs.menu("editor");
- redraw(l);
- continue;
- case "/attr": /* ATTRIBUTES */
- console.clear();
- bbs.menu("attr");
- redraw(l);
- continue;
- case "/l":
- redraw(l);
- continue;
- case "/d": /* Delete current line */
- line.splice(l,1);
- show_text(0);
- continue;
- }
-
- line[l]=str;
-
- if(console.status&(CON_UPARROW|CON_BACKSPACE|CON_LEFTARROW|CON_DELETELINE)) {
- if(console.status&CON_DELETELINE) {
- /* Delete line */
- line.splice(l,1);
- show_text(0); /* should be optimized */
- continue;
- }
- if(console.status&CON_BACKSPACE && str.length==0) {
- /* Delete line */
- line.splice(l,1);
- if(l) l--;
- if(row>home.y) {
- console.up();
- row--;
- }
- show_text(0);
- continue;
- }
- if(l) {
- l--;
- if(row>home.y) {
- console.up();
- row--;
- } else
- show_text(l);
- }
- console.write("\r");
- } else {
- if(console.status&CON_DOWNARROW && l+1>=line.length)
- continue; /* Down allow arrow down past EOF */
- l++;
- if(console.status&CON_INSERT && !(console.status&CON_DOWNARROW)) {
- line.splice(l,0,""); /* Insert a blank line */
- show_text(0);
- }
- if(row+1>=rows)
- l=show_text(first_line(l,row));
- else {
- console.crlf();
- row++;
- }
- }
-}
-
-bail();
-
-function bail()
-{
- console.clear();
- console.ctrlkey_passthru=ctrlkey_passthru;
- exit();
-}
-
-function show_text(begin)
-{
- var save_row=row;
-
- console.pushxy();
- console.gotoxy(home);
-
- row=home.y;
- for(var l=begin; row<rows; l++,row++) {
- console.clearline();
- if(l < line.length)
- console.putmsg(line[l]);
- if(row<rows-1)
- console.crlf();
- }
-
- console.popxy();
- row=save_row;
-
- return(l-1);
-}
-
-function update_status()
-{
- console.pushxy();
- console.gotoxy(1,rows);
- printf(stat_fmt,row,l,offset);
- console.popxy();
-}
-
-function show_header()
-{
- if(subj!=undefined)
- printf(hdr_fmt, "Subj", subj);
- if(to!=undefined)
- printf(hdr_fmt, "To", to);
- if(from!=undefined)
- printf(hdr_fmt, "From", from);
-}
-
-function show_tabline()
-{
- /* Display tab line */
- for(i=0;i<(console.screen_columns-1);i++)
- if(i && (i%tab_size)==0) {
- if((i%(tab_size*2))==0) {
- console.attributes=CYAN|HIGH;
- console.print('|');
- } else
- console.print(ascii(254));
- } else {
- console.attributes=YELLOW|HIGH;
- console.print(ascii(250));
- }
- console.crlf();
-}
-
-function redraw(l)
-{
- save_row=row;
- console.attributes=LIGHTGRAY;
- console.clear();
- show_header();
- show_tabline();
- console.attributes=LIGHTGRAY;
- show_text(first_line(l,row));
- console.gotoxy(1,row=save_row);
-}
-
-function first_line(l,row)
-{
- return(l-(row-home.y));
-}
-
-/* End of edit.js */
\ No newline at end of file
diff --git a/exec/sbbshelp.dab b/exec/sbbshelp.dab
deleted file mode 100644
index b0be5b2efd1fa347a8e223b5bc4a71e3fbf1e6d8..0000000000000000000000000000000000000000
--- a/exec/sbbshelp.dab
+++ /dev/null
@@ -1,170 +0,0 @@
-��������� S y n c h r o n e t L o c a l K e y b o a r d C o m m a n d s ���������� (*
-
-t
-o
-g
-g
-l
-e
-) �� *A
-l
-t
--
-N
-
-Lock This Node �� *A
-l
-t
--
-R
-
-Rerun This Node After Logoff �� A
-l
-t
--
-H
-
-Hang up on User Immediately �� *A
-l
-t
--
-I
-
-Interrupt (Hang up) User with Message �� *A
-l
-t
--
-A
-
-Alert Sysop After Logoff �� *A
-l
-t
--
-Q
-
-Disable/Enable Remote Keyboard (Quiet User) �� A
-l
-t
--
-U
-
-User Editor (Display [WAIT] Remotely) �� *A
-l
-t
--
-E
-
-Local I/O Only (Display [WAIT] Remotely) �� *A
-l
-t
--
-T
-
-Temporary Sysop Status �� A
-l
-t
--
-D
-
-Shell to DOS (Display [WAIT] Remotely) �� *A
-l
-t
--
-L
-
-Turn Local Text/ANSI Capture On/Off �� *A
-l
-t
--
-C
-
-Pop User in and out of Local Sysop Chat �� *A
-l
-t
--
-G
-
-Pop User in and out of Local Guru Chat �� A
-l
-t
--
-P
-
-Turn Chat Page Off �� *A
-l
-t
--
-X
-
-Exit to DOS After Logoff (Down Node) �� A
-l
-t
--
-+
-
-Add 5 Minutes to User's Time �� A
-l
-t
--
--
-
-Subtract 5 Minutes from User's Time �� A
-l
-t
--
-0
-
-through A
-l
-t
--
-9
-
-Quick Validation �� P
-a
-g
-e
-
-U
-p
-
-ASCII Upload �� C
-t
-r
-l
--
-U
-p
-,
-
-D
-n
-,
-
-H
-o
-m
-e
-,
-
-a
-n
-d
-
-E
-n
-d
-
-to Scroll Status Line �� *S
-c
-r
-o
-l
-l
--
-l
-o
-c
-k
-
-On if Sysop is Available for Chat �������������������������������������������������������
\ No newline at end of file
diff --git a/exec/sbbsimsg.js b/exec/sbbsimsg.js
deleted file mode 100644
index 6e31b281553e4eed20ca5eb6fa3c03fda335718f..0000000000000000000000000000000000000000
--- a/exec/sbbsimsg.js
+++ /dev/null
@@ -1,446 +0,0 @@
-// sbbsimsg.js
-
-// Synchronet inter-bbs instant message module
-// uses Finger and SMTP TCP/IP protocols
-
-// $Id$
-
-const REVISION = "$Revision$".split(' ')[1];
-
-const UDP_RESPONSE_TIMEOUT = 5000 // milliseconds
-
-load("sbbsdefs.js");
-load("nodedefs.js");
-load("sockdefs.js"); // SOCK_DGRAM
-
-// Global vars
-var imsg_user;
-var last_user=0;
-var users=0;
-
-print("\1n\1hSynchronet \1cInstant Message \1wModule \1n" + REVISION + "\r\n");
-
-// Parse arguments
-for(i=0;i<argc;i++)
- if(argv[i].toLowerCase()=="-l") {
- list_users(true);
- exit();
- }
-
-// Read the list of systems into list array
-fname = system.ctrl_dir + "sbbsimsg.lst";
-
-f = new File(fname);
-if(!f.open("r")) {
- alert("Error opening " + fname);
- exit();
-}
-
-sys = new Array();
-list = f.readAll();
-f.close();
-for(i in list) {
- if(list[i]==null)
- break;
- while(list[i].charAt(0)==' ') // skip prepended spaces
- list[i] = list[i].slice(1);
-
- word = list[i].split(/\s+/);
-
- if(word[0].charAt(0)==';' || // comment?
- word[0] == system.host_name ||
- word[0] == system.inetaddr) // local system?
- continue; // ignore
-
- if(word[1] != undefined) {
- if(!word[1].length)
- {
- printf("Setting zero-len %s to undefined\r\n",word[1]);
- word[1]=undefined;
- }
-
- if(word[1].search(/^\s*$/m)!=-1)
- {
- printf("Setting %s to undefined\r\n",word[1]);
- word[1]=undefined;
- }
- }
-
- sys.push( { addr: word[0], ip : word[1], udp: false, failed: false, reply: 999999 } );
-}
-
-function save_sys_list()
-{
- sys.sort(sortarray);
- fname = system.ctrl_dir + "sbbsimsg.lst";
- f = new File(fname);
- if(!f.open("w"))
- return;
- for(i=0;sys[i]!=undefined;i++) {
- if(sys[i].ip == undefined)
- f.writeln(sys[i].addr);
- else
- f.writeln(format("%-63s ", sys[i].addr) + sys[i].ip);
- }
- f.close();
-}
-
-function sortarray(a, b)
-{
- return(a.reply-b.reply);
-}
-
-function parse_response(response, show)
-{
- // Skip header
- while(response.length && response[0].charAt(0)!='-')
- response.shift();
- if(response.length && response[0].charAt(0)=='-')
- response.shift(); // Delete the separator line
- while(response.length && !response[0].length)
- response.shift(); // Delete any blank lines
- while(response.length && !response[response.length-1].length)
- response.pop(); // Delete trailing blank lines
-
- if(!response.length) {
- if(show)
- print();
- return;
- }
-
- if(show) {
- str = format("%lu user%s",response.length,response.length==1 ? "":"s");
- printf("\1g\1h%-33s Time Age Sex\r\n",str);
- }
-
- for(j in response) {
- if(response[j]=="")
- continue;
-
- if(show) {
- console.line_counter=0; // defeat pause
- print(format("\1h\1y%.25s\1n\1g %.48s"
- ,response[j],response[j].slice(26)));
- }
- var u = new Object;
- u.host = sys[i].addr;
- u.name = format("%.25s",response[j]);
- u.name = truncsp(u.name);
- imsg_user.push(u);
- users++;
- }
-}
-
-function list_users(show)
-{
- imsg_user = new Array();
- var udp_req=0;
- var udp_replies=0;
- var replies=0;
-
- users = 0;
- start = new Date();
- print("\1m\1hListing Systems and Users (Ctrl-C to Abort)...");
-
- /* UDP systems */
- for(i=0;sys[i]!=undefined;i++)
- sys[i].udp=false; // Reset the udp flag
- sock = new Socket(SOCK_DGRAM);
- //sock.debug=true;
- sock.bind(0,server.interface_ip_address);
- for(i=0;sys[i]!=undefined && !(bbs.sys_status&SS_ABORT);i++) {
- if(sys[i].ip==undefined)
- continue;
- if(!sock.sendto("\r\n",sys[i].ip,79)) // Get list of active users
- //printf("FAILED! (%d) Sending to %s\r\n",sock.last_error,sys[i].addr);
- continue;
- udp_req++;
- }
-
- begin = new Date();
- while(replies<udp_req && new Date().valueOf()-begin.valueOf() < UDP_RESPONSE_TIMEOUT
- && !(bbs.sys_status&SS_ABORT))
- {
-
- if(!sock.poll(1))
- continue;
-
- message=sock.recvfrom(20000);
- if(message==null)
- continue;
- i=get_sysnum(message.ip_address);
- if(i==-1)
- continue;
- replies++;
- udp_replies++;
- sys[i].udp=true;
- sys[i].reply=new Date().valueOf()-start.valueOf();
-
- response=message.data.split("\r\n");
-
- if(show) {
- console.line_counter=0; // defeat pause
- printf("\1n\1h%-25.25s\1n ",sys[i].addr);
- }
-
- parse_response(response, show);
- }
-
- sock.close();
-
- /* TCP systems */
- for(i=0;sys[i]!=undefined && !(bbs.sys_status&SS_ABORT);i++) {
-
- if(sys[i].udp)
- continue;
-
- if(sys[i].failed)
- continue;
-
- begin = new Date();
-
- if(show) {
- console.line_counter=0; // defeat pause
- printf("\1n\1h%-25.25s\1n ",sys[i].addr);
- }
- replies++; // we're adding the number of Finger requests here
-
- sock = new Socket();
- sock.bind(0,server.interface_ip_address);
- is_connected = false;
- if(sys[i].ip != undefined) {
- is_connected = sock.connect(sys[i].ip,79,5);
- if(!is_connected)
- sys[i].ip = undefined; // IP no good, remove from cache
- }
- if(!is_connected && !sock.connect(sys[i].addr,79,5)) {
- log(format("!Finger connection to %s FAILED with error %d"
- ,sys[i].addr,sock.last_error));
- alert("system not available");
- sys[i].failed = true;
- continue;
- }
- sys[i].reply=new Date().valueOf()-begin.valueOf();
-
- // cache the IP address for faster resolution
- if(sys[i].ip != sock.remote_ip_address)
- sys[i].ip = sock.remote_ip_address;
-
- sock.send("\r\n"); // Get list of active users
- var response=new Array();
- while(bbs.online && sock.is_connected) {
- str=sock.readline();
- if(str==null)
- break;
- str = truncsp(str);
- if(str=="")
- continue;
- response.push(str);
- }
- sock.close();
-
-
- parse_response(response,show);
- }
-
-
- t = new Date().valueOf()-start.valueOf();
- printf("\1m\1h%lu systems (%lu UDP) and %lu users listed in %d seconds.\r\n"
- ,replies, udp_replies, users, t/1000);
- save_sys_list();
-}
-
-function get_sysnum(ip)
-{
- for(i in sys)
- if(sys[i].ip==ip)
- return(i);
- printf("Unexpected response from %s\r\n",ip);
- return(-1);
-}
-
-function send_msg(dest, msg)
-{
-
- if((hp = dest.indexOf('@'))==-1) {
- alert("Invalid user");
- exit();
- }
- host = dest.slice(hp+1);
-
- printf("\1h\1ySending...\r\1w");
- sock = new Socket();
- //sock.debug = true;
- sock.bind(0,server.interface_ip_address);
- do {
- if(!sock.connect(host,25)) {
- alert("Connection to " + host + " failed with error " + sock.last_error);
- break;
- }
-
- if(Number((rsp=sock.recvline()).slice(0,3))!=220) {
- alert("Invalid connection response:\r\n" + rsp);
- break;
- }
- sock.send("HELO "+system.inetaddr+"\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid HELO response: " + rsp);
- break;
- }
- sock.send("SOML FROM: "+user.email+"\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid SOML response: " + rsp);
- break;
- }
- if(dest.indexOf('<')<0)
- dest = '<' + dest + '>';
- sock.send("RCPT TO: "+dest+"\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid RCPT TO response: " + rsp);
- break;
- }
- sock.send("DATA\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=354) {
- alert("Invalid DATA response: " + rsp);
- break;
- }
- sock.send(msg);
- sock.send("\r\n.\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid end of message response: " + rsp);
- break;
- }
- sock.send("QUIT\r\n");
- print("Message delivered successfully.");
-
- } while(0);
-
- sock.close();
-}
-
-function getmsg()
-{
- var lines=0;
- var msg="";
- const max_lines = 5;
-
- printf("\1n\1g\1h%lu\1n\1g lines maximum (blank line ends)\r\n",max_lines);
- while(bbs.online && lines<max_lines) {
- console.print("\1n: \1h");
- mode=0;
- if(lines+1<max_lines)
- mode|=K_WRAP;
- str=console.getstr(76, mode);
- if(str=="")
- break;
- msg+=str;
- msg+="\r\n";
- lines++;
- }
-
- if(!lines || !bbs.online || bbs.sys_status&SS_ABORT)
- return("");
-
- return(msg);
-}
-
-list_users(true); // Needed to initialize imsg_user[]
-console.crlf();
-
-var key;
-while(bbs.online) {
- console.line_counter=0; // defeat pause
- console.print("\1n\1h\1bInter-BBS: ");
- console.mnemonics("~Telegram, ~Message, ~List, or ~Quit: ");
- bbs.sys_status&=~SS_ABORT;
- while(bbs.online && !(bbs.sys_status&SS_ABORT)) {
- key=console.inkey(K_UPPER);
- if(key=='Q' || key=='L' || key=='T' || key=='M' || key=='\r')
- break;
- if(system.node_list[bbs.node_num-1].misc&(NODE_MSGW|NODE_NMSG)) {
- console.line_counter=0; // defeat pause
- console.saveline();
- console.crlf();
- bbs.nodesync();
- console.crlf();
- console.restoreline();
- }
- }
-// printf("key=%s\r\n",key);
- switch(key) {
- case 'L':
- print("\1h\1cList\r\n");
- list_users(true);
- console.crlf();
- break;
- case 'T':
- printf("\1h\1cTelegram\r\n\r\n");
- printf("\1n\1h\1y(user@hostname): \1w");
- if(imsg_user.length)
- dest=format("%s@%s",imsg_user[last_user].name,imsg_user[last_user].host);
- else
- dest="";
- dest=console.getstr(dest,64,K_EDIT|K_AUTODEL);
- if(dest==null || dest=='' || bbs.sys_status&SS_ABORT)
- break;
- if((msg=getmsg())=='')
- break;
- send_msg(dest,msg);
- console.crlf();
- break;
- case 'M':
- print("\1h\1cMessage\r\n");
- if(!imsg_user.length) {
- alert("No users!\r\n");
- break;
- }
- done=false;
- while(bbs.online && !done) {
- printf("\r\1n\1h\x11\1n-[\1hQ\1nuit]-\1h\x10 \1y%-25s \1c%s\1>"
- ,imsg_user[last_user].name,imsg_user[last_user].host);
- switch(console.getkey(K_UPPER|K_NOECHO)) {
- case '+':
- case '>':
- case ']':
- case '\x06': /* right arrow */
- case 'N':
- case '\n': /* dn arrrow */
- last_user++;
- if(last_user>=imsg_user.length)
- last_user=0;
- break;
-
- case '-':
- case '<':
- case '[':
- case '\x1d': /* left arrow */
- case 'P':
- case '\x1e': /* up arrow */
- last_user--;
- if(last_user<0)
- last_user=imsg_user.length-1;
- break;
- case '\x1b': /* ESC */
- case 'Q':
- printf("\r\1>");
- done=true;
- break;
- case '\r':
- done=true;
- dest=format("%s@%s"
- ,imsg_user[last_user].name,imsg_user[last_user].host);
- printf("\r\1n\1cSending message to \1h%s\1>\r\n",dest);
- if((msg=getmsg())=='')
- break;
- send_msg(dest,msg);
- console.crlf();
- break;
- }
- }
- break;
- default:
- print("\1h\1cQuit");
- exit();
- break;
- }
-}
diff --git a/exec/sbbsqnet.rs b/exec/sbbsqnet.rs
deleted file mode 100644
index b7c55b450f41ad4e18c9a75a9c4fb3595ee3cfcf..0000000000000000000000000000000000000000
--- a/exec/sbbsqnet.rs
+++ /dev/null
@@ -1,36 +0,0 @@
-; Synchronet QWK Network Robocom Script
-;
-; User account must have 'Q' restriction on host system
-;
-; If path to Synchronet data dir is incorrect, change it
-
-TITLE "Synchronet QWK Network Packet Exchange"
-
-WHEN "Hit a key" SEND "^M" ; if pause, hit enter
-WHEN "No new messages" GOTO END ; if no new messages
-
-WAITFOR "NN:" FAILURE GOTO END ; wait for NN: prompt
-SEND "%BBS13%^M" ; send login name
-WAITFOR "PW:" FAILURE GOTO END ; wait for PW: prompt
-SEND "%BBS7%^M" ; send password
-IF NOT EXIST "%REPDIR%%ID%.REP" GOTO DOWNLOAD
-WAITFOR "QWK: " FAILURE GOTO END ; QWK prompt
-SEND "U" ; Upload
-WAITFOR "Protocol" FAILURE GOTO END
-SEND "ZN" ; Zmodem, don't hang up
-UPLOAD "%REPDIR%%ID%.REP"
-ERASE "%REPDIR%%ID%.REP"
-:DOWNLOAD
-WAITFOR "QWK: " FAILURE GOTO END ; QWK prompt
-SEND "DL" ; Download, leave codes in
-TIMEOUT 300
-WAITFOR "Protocol" FAILURE GOTO END
-SEND "ZN" ; Zmodem, don't hang up
-DOWNLOAD "%QWKDIR%%ID%.QWK"
-
-:END
-SEND "Q" ; Logoff
-DELAY 5
-HANGUP
-EXIT
-
diff --git a/exec/sbbsqnet.scr b/exec/sbbsqnet.scr
deleted file mode 100644
index 82280da0f9bde80516df9137881d427def6b86f7..0000000000000000000000000000000000000000
--- a/exec/sbbsqnet.scr
+++ /dev/null
@@ -1,91 +0,0 @@
-;Logon to Synchronet and transfer QWK packets using Zmodem
-;This script file is for use with Qmodem!
-GRAPHICS ANSI
-TURNOFF NOISE
-STRING SYSNAME PHONE ACCOUNT PASS RETRY DATADIR REP QWK INFO
-
-ASSIGN SYSNAME "XXXX" ; System being called
-ASSIGN PHONE "XXXXXXX^M" ; System phone number
-ASSIGN ACCOUNT "XXXXXX^M" ; Account on system
-ASSIGN PASS "XXXXXXXX^M" ; Password
-ASSIGN RETRY "20" ; # of times to retry
-ASSIGN DATADIR "\SYNCHRO\DATA" ; Download directory
-ASSIGN REP "$DATADIR\$SYSNAME.REP" ; REP is the name of the REPLY packet
-ASSIGN QWK "$DATADIR\$SYSNAME.QWK" ; QWK is the name of the QWK packet
-ASSIGN INFO "$DATADIR\$SYSNAME.LOG" ; INFO is the name of the LOG file
-
-
-
-CLRSCR ; Clear the screen
-
-LOG $INFO ; Open the log file
-STAMP Qmodem QWK log opened
-DISPLAYLN "SBBSQNET: Initialized " ; Display this line
-
-DISPLAYLN "SBBSQNET: Calling $SYSNAME" ; Information line
-STAMP Calling $SYSNAME
-
-DISPLAYLN "SBBSQNET: Dialing $PHONE" ; Information line
-DELAY 1000
-SEND "ATM0^M"
- WHEN "BUSY" LOOP
- WHEN "NO DIAL TONE" LOOP
- TIMEOUT 45 LOOP
-
-LOOP:
- DECR RETRY
- IF "$RETRY" = "0" ENDQWK
- DELAY 1000
- SEND "ATDT $PHONE"
- WAITFOR "CONNECT"
- DELAY 2000
- IF $ONLINE DONE
-
-GOTO LOOP
-
-DONE:
-
-TIMEOUT 600 ENDQWK ; wait up to 10 minutes for sucess
-WHEN "HIT A KEY" "^M"
-WAITFOR "NN:"
-SEND "^M"
-WAITFOR "NN:"
-SEND "$ACCOUNT"
-DELAY 100
-WAITFOR "PW:"
-SEND "$PASS"
-WAITFOR "QWK:"
-
-EXIST $REP UPREP ; If the reply exists, send it
-
-RECEIVE:
- STAMP Download QWK packet
- DELAY 1000
- SEND "DL"
- WHEN "No New Messages" ENDQWK
- WAITFOR "PROTOCOL"
- SEND "ZN"
- DOWNLOAD Z $QWK
- WAITFOR "QWK:"
- SEND "Q"
-
-ENDQWK:
- SEND "Q"
- HANGUP
- STAMP Qmodem QWK log closed
- TURNOFF LOG
- SYSTEM X
-
-UPREP:
- STAMP Upload REPly packet
- DELAY 1000
- SEND "UZN"
- WAITFOR "Start Transfer Now"
- UPLOAD Z $REP
- IF $SUCCESS DELREP
- GOTO RECEIVE
-
-DELREP:
- DOS "del $REP^M"
- WAITFOR "QWK:"
- GOTO RECEIVE
diff --git a/exec/sbbsqnet.slt b/exec/sbbsqnet.slt
deleted file mode 100644
index 70226769e17d49d4b9fa33be15e21ff7a1452783..0000000000000000000000000000000000000000
--- a/exec/sbbsqnet.slt
+++ /dev/null
@@ -1,138 +0,0 @@
-// Logon to Synchronet and transfer QWK packets using Zmodem
-// Version 2.00 (updated 09/17/95)
-
-// This script should need no modification for most Synchronet hubs.
-// The 'login name' node account must have the 'Q' restriction set on
-// the hub (call-out to) system.
-// arg1=system id
-// arg2=dial list
-// arg3=login name
-// arg4=password
-// arg5=retry count
-
-main(str arg1, str arg2, str arg3, str arg4, str arg5)
-{
- str path[128],tmp[128];
- int t,tmark,tstat,nn,pw,pause,qwk,prot,qwkcnt=0;
-
-_zmod_auto=0; // Disable auto-zmodem (causing problems for many Qnet sysops)
-_zmod_rcrash=0; // Disable zmodem receive crash recovery (resume)
-clear_scr();
-printsc("SBBSQNET: Initialized ");
-t=curtime();
-date(t,tmp);
-printsc(tmp);
-printsc(" ");
-time(t,tmp);
-prints(tmp);
-
-copystr(_up_dir,path,0,80);
-strcat(path,"\");
-strcat(path,arg1);
-strcat(path,".LOG");
-printsc("SBBSQNET: ");
-if(usagelog(path)==-1)
- printsc("ERROR OPENING ");
-else
- printsc("Opened ");
-prints(path);
-
-copystr(_up_dir,path,0,80);
-strcat(path,"\");
-strcat(path,arg1);
-strcat(path,".REP");
-
-if(filesize(path)>0) {
- printsc("SBBSQNET: Attempting to send ");
- prints(path); }
-
-printsc("SBBSQNET: ");
-copystr("Calling ",tmp,0,80);
-strcat(tmp,arg1);
-prints(tmp);
-ustamp(tmp,1,1);
-
-printsc("SBBSQNET: Dialing ");
-prints(arg2);
-if(redial(arg2,stoi(arg5),1)==-1) { // Dialing error
- ustamp("Dial error.",1,1);
- return; }
-if(not carrier()) {
- ustamp("No answer.",1,1);
- return; }
-
-nn=track("NN:",0);
-pw=track("PW:",0);
-qwk=track("QWK:",0);
-prot=track("PROTOCOL OR ",1);
-pause=track("HIT A KEY",1);
-
-tmark=timer_start(18000); // wait up to 30 minutes for sucess
-while(not time_up(tmark)) {
- if(not carrier()) {
- ustamp("No carrier.",1,1);
- break; }
- terminal();
- tstat=track_hit(0); // check for track hit
-
- if(tstat==nn) { // NN: prompt
- // Show hub that we're a script
- cputs("Telix Qnet Version 2.00");
- delay(10); // one second
- cputs("^X"); // clear any garbage
- cputs(arg3); // send login name
- cputs("^M"); }
-
- else if(tstat==pw) { // PW: prompt
- delay(1);
- cputs(arg4); // send password
- cputs("^M"); }
-
- else if(tstat==pause) // Hit a key
- cputs("^M");
-
- else if(tstat==qwk) { // QWK prompt
- delay(1);
- qwkcnt=qwkcnt+1;
- if(qwkcnt==1) {
- if(filesize(path)>0) {
- cputs("UZN");
- delay(10);
- terminal();
- flushbuf();
- if(send('Z',path)>=0) { // successful
- copystr("DEL ",tmp,0,4);
- strcat(tmp,path);
- dos(tmp,0); } } // delete REP
- else qwkcnt=2; }
- if(qwkcnt==2) {
- cputs("DL");
- while(not time_up(tmark)) {
- if(not carrier())
- break;
- terminal();
- tstat=track_hit(0);
- if(tstat==qwk) {
- qwkcnt=3;
- break; }
- if(tstat==prot) {
- cputs("ZN");
- delay(10);
- terminal();
- flushbuf();
- receive('Z',"");
- break; } } }
- if(qwkcnt==3) {
- cputs("Q");
- break; } } }
-delay(10);
-terminal();
-if(time_up(tmark)) {
- prints("SBBSQNET: Timeout.");
- ustamp("Timeout.",1,1); }
-hangup();
-timer_free(tmark); // free timer channel
-track_free(0); // free track channels
-usagelog("*CLOSE*"); // close log file
-}
-
diff --git a/exec/sdos.src b/exec/sdos.src
deleted file mode 100644
index 43f34ebb91013fc4727a94ff75b14c8ff28d26a3..0000000000000000000000000000000000000000
--- a/exec/sdos.src
+++ /dev/null
@@ -1,684 +0,0 @@
-# sdos.src
-
-# DOS shell for Synchronet version 2 systems
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-# Thanks to Yojimbo for the BDOS shell that inspired this one
-
-!include sbbsdefs.inc
-
-# Give a bogus DOS error so they think they're in real DOS
-print "nSpecified COMMAND search directory bad\r\n\r\n"
-print "Microsoft(R) MS-DOS(R) Version 5.00\r\n"
-print " (C)Copyright Microsoft Corp 1981-1991.\r\n"
-
-:root
-cmd_home
-
-# Update node status
-node_action node_main
-async
-
-inc_main_cmds
-
-call display_prompt
-print ">n"
-getstr 128
-logstr
-
-compare_word "cd"
-if_true
- shift_str 2
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_word "\\"
- if_true
- shift_str 1
- end_if
- compare_word "mail"
- if_true
- cmd_pop
- goto mail
- end_if
- compare_word "files"
- if_true
- cmd_pop
- goto files
- end_if
- print "Invalid directory\r\n"
- end_cmd
- end_if
-
-cmdstr "dir"
- menu sdos/root
- end_cmd
-
-call global
-end_cmd
-
-:display_prompt
-
-pause_reset
-print "n\r\nC:\\"
-return
-
-
-##############################################################################
-# This is where we go when it's not a valid command
-# Let's really try to act like DOS now (i.e. fake 'em out)
-##############################################################################
-
-:global
-
-# Just <CR>, so ignore
-compare_str ""
-if_true
- return
- end_if
-
-# String commands start with a semicolon
-compare_word ";"
-if_true
- shift_str 1
- exec_bin str_cmds
- return
- end_if
-
-compare_str "sysop"
-if_true
- menu sysmain
- return
- end_if
-
-compare_str "type"
-if_True
- print "Required paramater missing\r\n"
- return
- end_if
-
-compare_word "type "
-if_true
- shift_str 5
- call type
- return
- end_if
-
-# Global BBS commands
-compare_str "chat"
-if_true
- exec_bin chat_sec
- return
- end_if
-
-compare_str "open"
-if_true
- print "External program name missing\r\n"
- return
- end_if
-
-compare_word "open "
-if_true
- shift_str 5
- xtrn_exec
- return
- end_if
-
-compare_str "doors"
-if_true
- xtrn_section
- return
- end_if
-
-compare_str "gfiles"
-if_true
- text_file_section
- return
- end_if
-
-compare_str "automsg"
-if_true
- auto_message
- return
- end_if
-
-compare_str "setup"
-if_true
- user_defaults
- return
- end_if
-
-compare_str "logoff"
-if_true
- file_download_batch
- if_true
- return
- end_if
- logoff
- return
- end_if
-
-compare_str "ver"
-if_True
- info_version
- return
- end_if
-
-compare_str "exit"
-if_true
- logoff_fast
- return
- end_if
-
-# DOS Stuff
-compare_word "dir"
-if_true
- shift_str 3
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_str ".."
- if_true
- menu sdos/root
- return
- end_if
- compare_word ".."
- if_true
- shift_str 2
- end_if
- compare_str ""
- if_true
- menu sdos/root
- return
- end_if
- compare_word "\\"
- if_true
- shift_str 1
- end_if
- compare_str ""
- if_true
- menu sdos/root
- return
- end_if
- compare_word "files"
- if_true
- menu sdos/files
- return
- end_if
- compare_word "mail"
- if_true
- menu sdos/mail
- return
- end_if
- shift_str 1
- compare_word ":"
- if_true
- print "Invalid drive specification\r\n"
- return
- end_if
- print "\r\n Volume in drive C is BBS\r\n"
- print " Volume Serial Number is 9156-8BEA\r\n"
- print "Invalid directory\r\n"
- return
- end_if
-
-# Fake environment
-compare_str "set"
-if_true
- print "COMSPEC=C:\\COMMAND.COM\r\n"
- print "PROMPT=$p$g\r\n"
- print "PATH=C:\\\r\n"
- print "SBBSCTRL=C:\\SBBS\\CTRL\r\n"
- print "SBBSNODE=C:\\BBS\\NODE@NODE@\\\r\n"
- print "SBBSNNUM=@NODE@\r\n"
- return
- end_if
-
-# Pretend we set it
-compare_word "set "
-if_true
- return
- end_if
-
-# Echo
-compare_str "echo"
-if_true
- print "ECHO is on\r\n"
- return
- end_if
-
-compare_word "echo "
-if_true
- shift_str 5
- printstr
- crlf
- return
- end_if
-
-# Del, Erase, Copy
-compare_str "del"
-if_true
- print "Required parameter missing\r\n"
- return
- end_if
-
-compare_word "del "
-if_true
- print "Sharing violation\r\n"
- return
- end_if
-
-compare_str "erase"
-if_true
- print "Required parameter missing\r\n"
- return
- end_if
-
-compare_word "erase "
-if_true
- print "Sharing violation\r\n"
- return
- end_if
-
-compare_str "copy"
-if_true
- print "Required parameter missing\r\n"
- return
- end_if
-
-compare_word "copy "
-if_true
- print "Sharing violation\r\n"
- return
- end_if
-
-# Changing drive letter?
-
-shift_str 1
-compare_word ":"
-if_true
- print "Invalid drive specification\r\n"
- return
- end_if
-print "Bad command or file name\r\n"
-return
-
-:files
-
-cmd_home
-call display_prompt
-
-print "FILES>n"
-getstr 128
-logstr
-
-compare_word "cd"
-if_true
- shift_str 2
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_str ".."
- if_true
- cmd_pop
- goto root
- end_if
- compare_word ".."
- if_true
- shift_str 2
- end_if
- compare_str "\\"
- if_true
- cmd_pop
- goto root
- end_if
- compare_str "\\mail"
- if_true
- cmd_pop
- goto mail
- end_if
- print "Invalid directory\r\n"
- end_cmd
- end_if
-
-cmdstr "dir"
- menu sdos/files
- end_cmd
-
-cmdstr "batch"
- file_batch_section
- end_cmd
-
-cmdstr "download"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-compare_word "download "
-if_true
- shift_str 9
- file_download
- end_cmd
- end_if
-
-cmdstr "extended"
- getfilespec
- if_true
- file_list_extended
- end_if
- end_cmd
-
-compare_word "extended "
-if_true
- shift_str 9
- file_list_extended
- end_cmd
- end_If
-
-cmdstr "find"
- file_find_text
- end_cmd
-
-cmdstr "area"
- file_select_area
- end_cmd
-
-cmdstr "list"
- getfilespec
- if_true
- file_list
- end_if
- end_cmd
-
-compare_word "list "
-if_true
- shift_str 5
- file_list
- end_cmd
- end_if
-
-cmdstr "newscan"
- file_new_scan
- end_cmd
-
-cmdstr "remove"
- getfilespec
- if_true
- file_remove
- end_if
- end_cmd
-
-compare_word "remove "
-if_True
- shift_str 7
- file_remove
- end_cmd
- end_if
-
-cmdstr "search"
- file_find_name
- end_cmd
-
-cmdstr "temp"
- file_temp_section
- end_cmd
-
-cmdstr "upload"
- chkfile "%zmenu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdstr "view"
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-
-compare_word "view "
-if_True
- shift_str 5
- file_view
- end_cmd
- end_if
-
-cmdstr "config"
- file_ptrs_cfg
- end_cmd
-
-call global
-end_cmd
-
-:type
-
-compare_word nodes
-if_true
- nodelist_all
- return
- end_if
-
-compare_word logon
-if_true
- userlist_logons
- return
- end_if
-
-compare_word users
-if_true
- userlist_all
- return
- end_if
-
-compare_word system
-if_true
- info_system
- return
- end_if
-
-compare_word your
-if_true
- info_user
- return
- end_if
-
-print "File not found - "
-printstr
-crlf
-return
-
-
-:mail
-
-cmd_home
-
-# Update node status
-node_action node_main
-async
-
-inc_main_cmds
-
-call display_prompt
-
-print "MAIL>n"
-getstr 128
-logstr
-
-compare_word "cd"
-if_true
- shift_str 2
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_str ".."
- if_true
- cmd_pop
- goto root
- end_if
- compare_word ".."
- if_true
- shift_str 2
- end_if
- compare_str "\\"
- if_true
- cmd_pop
- goto root
- end_if
- compare_str "\\files"
- if_true
- cmd_pop
- goto files
- end_if
- print "Invalid directory\r\n"
- end_cmd
- end_if
-
-cmdstr "dir"
- menu sdos/mail
- end_cmd
-
-cmdstr "config"
- call main_cfg
- end_cmd
-
-cmdstr "send"
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdstr "sendfile"
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send_file
- end_cmd
-
-cmdstr "read"
- mail_read
- end_cmd
-
-cmdstr "feedback"
- setstr "1"
- mail_send_feedback
- end_cmd
-
-cmdstr "netmail"
- no_yes "\r\nAttach a file"
- if_true
- mail_send_netmail
- else
- mail_send_netfile
- end_if
- end_cmd
-
-cmdstr "readsent"
- mail_read_sent
- end_cmd
-
-cmdstr "area"
- msg_select_area
- end_cmd
-
-cmdstr "post"
- msg_post
- end_cmd
-
-cmdstr "newscan"
- msg_new_scan
- end_cmd
-
-cmdstr "find"
- msg_find_text
- end_cmd
-
-cmdstr "yourmsgs"
- msg_your_scan
- end_cmd
-
-cmdstr "qwk"
- msg_qwk
- end_cmd
-
-cmdstr "readmsgs"
- msg_read
- end_Cmd
-
-
-call global
-end_cmd
-
-########################### Main Config Section ##############################
-
-:main_cfg
-
-compare_user_misc UM_expert
-if_false
- menu maincfg
- end_if
-async
-print "\r\nyhConfig: n"
-getcmd ?QNPIS\r
-logkey
-
-cmdkey ?
- compare_user_misc UM_expert
- if_true
- menu maincfg
- end_if
- goto main_cfg
- end_cmd
-
-cmdkey N
- msg_new_scan_cfg
- return
- end_cmd
-
-cmdkey S
- msg_your_scan_cfg
- return
- end_cmd
-
-cmdkey P
- msg_ptrs_cfg
- return
- end_cmd
-
-cmdkey I
- msg_ptrs_reinit
- return
- end_cmd
-
-return
-
-# End of SDOS.SRC
diff --git a/exec/sendmsg.js b/exec/sendmsg.js
deleted file mode 100644
index d8011797c1ee68d83829774d1c2fe28f60c52377..0000000000000000000000000000000000000000
--- a/exec/sendmsg.js
+++ /dev/null
@@ -1,60 +0,0 @@
-// sendmsg.js
-
-// Send a short message (telegram) to a user on another Synchronet system
-// Requires v3.10f or later
-
-if(argc>0 && argv[0].indexOf('@')!=-1)
- dest = argv[0];
-else if((dest = prompt("User (user@hostname)"))==null)
- exit();
-if((hp = dest.indexOf('@'))==-1) {
- alert("Invalid user");
- exit();
-}
-if((msg = prompt("Message"))==null)
- exit();
-host = dest.slice(hp+1);
-sock = new Socket();
-//sock.debug = true;
-do {
- if(!sock.connect(host,25)) {
- alert("Connection to " + host + " failed with error " + sock.last_error);
- break;
- }
-
- if(Number((rsp=sock.recvline()).slice(0,3))!=220) {
- alert("Invalid connection response:\r\n" + rsp);
- break;
- }
- sock.send("HELO "+system.inetaddr+"\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid HELO response: " + rsp);
- break;
- }
- sock.send("SOML FROM: "+user.email+"\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid SOML response: " + rsp);
- break;
- }
- sock.send("RCPT TO: "+dest+"\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid RCPT TO response: " + rsp);
- break;
- }
- sock.send("DATA\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=354) {
- alert("Invalid DATA response: " + rsp);
- break;
- }
- sock.send(msg);
- sock.send("\r\n.\r\n");
- if(Number((rsp=sock.recvline()).slice(0,3))!=250) {
- alert("Invalid end of message response: " + rsp);
- break;
- }
- sock.send("QUIT\r\n");
- print("Message delivered successfully.");
-
-} while(0);
-
-sock.close();
diff --git a/exec/simple.src b/exec/simple.src
deleted file mode 100644
index 2dc60d0705f8a35e9fab53e78057619ea3a42f5c..0000000000000000000000000000000000000000
--- a/exec/simple.src
+++ /dev/null
@@ -1,380 +0,0 @@
-# simple.src
-
-# Simple Synchronet Command Shell - for beginner/first-time users
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-replace_text 563 "\1n\1h\1b{\1wContinue? Yes/No\1b} "
-
-# Set return point for main menu commands (via end_cmd)
-cmd_home
-# Update node status
-node_action node_main
-cls
-async
-
-menu simple/main
-menu simple/prompt
-print "n"
-
-getstrupr 10
-crlf
-pause_reset
-
-# Write command to log file
-logstr
-
-# Commands
-
-cmdstr C
- exec_bin chat_sec
- end_cmd
-
-cmdstr CHAT
- exec_bin chat_sec
- end_cmd
-
-cmdstr Q
- msg_qwk
- end_cmd
-
-# Send Post/Email menu
-cmdstr S
- cmd_home
- cls
- async
- menu simple/sendmsg
- menu simple/prompt
- print "n"
- getstrupr 10
- crlf
- pause_reset
-
- # Send Email
- cmdstr E
- call sendmail
- end_cmd
-
- cmdstr EMAIL
- call sendmail
- end_cmd
-
- # Post Message
- cmdstr P
- call postmessage
- end_cmd
-
- cmdstr POST
- call postmessage
- end_cmd
-
- # Send NetMail
- cmdstr N
- call sendnetmail
- end_cmd
-
- cmdstr NETMAIL
- call sendnetmail
- end_cmd
-
- # Quit back to main
- cmdstr Q
- cmd_pop
- end_cmd
-end_cmd
-
-# Read messages/mail menu
-cmdstr R
- cmd_home
- cls
- async
- menu simple/readmsg
- menu simple/prompt
- print "n"
- getstrupr 10
- crlf
- pause_reset
-
- # Read your Email
- cmdstr E
- mail_read
- end_cmd
-
- cmdstr EMAIL
- mail_read
- end_cmd
-
- # Read your sent Email
- cmdstr F
- mail_read_sent
- end_cmd
-
- # Read messages in a conference
- cmdstr A
- msg_select_area
- if_true
- msg_read
- end_if
- end_cmd
-
- cmdstr ALL
- msg_read
- end_cmd
-
- # Bulletins
- cmdstr B
- text_file_section
- end_cmd
-
- # Read all new messages
- cmdstr N
- print "lbhScanning for new messages...\r\n"
- msg_new_scan_all
- end_cmd
-
- cmdstr NEW
- print "lbhScanning for new messages...\r\n"
- msg_new_scan_all
- end_cmd
-
- # Read all new messages TO: YOU
- cmdstr Y
- print "lbhScanning for your messages...\r\n"
- msg_your_scan_all
- end_cmd
-
- cmdstr YOU
- print "lbhScanning for your messages...\r\n"
- msg_your_scan_all
- end_cmd
-
- cmdstr YOUR
- print "lbhScanning for your messages...\r\n"
- msg_your_scan_all
- end_cmd
-
- cmdstr C
- call msg_cfg
- end_cmd
-
- # Quit back to main menu
- cmdstr Q
- cmd_pop
- end_cmd
-end_cmd
-
-#Open door menu
-cmdstr O
- xtrn_section
- end_cmd
-
-cmdstr OPEN
- xtrn_section
- end_cmd
-
-cmdstr DOOR
- xtrn_section
- end_cmd
-
-cmdstr DOORS
- xtrn_section
- end_cmd
-
-#Account config (user defaults)
-cmdstr A
- user_defaults
- end_cmd
-
-#Page another user
-cmdstr P
- private_message
- pause_reset
- end_cmd
-
-#List users online
-cmdstr L
- cls
- nodelist_users
- end_cmd
-
-#List files
-cmdstr F
- cmd_home
- cls
- async
- menu simple/filelist
- menu simple/prompt
- print "n"
- getstrupr 10
- crlf
- pause_reset
-
- cmdstr A
- file_select_area
- if_false
- end_cmd
- end_if
- setstr "*.*"
- file_list
- end_cmd
-
- cmdstr N
- print "\r\nbhUse c@NEWFILETIME@b for new file scan "
- yes_no "date/time"
- if_false
- file_ptrs_cfg
- if_false
- end_cmd
- end_if
- end_if
- file_new_scan_all
- end_cmd
-
- cmdstr F
- print "\r\nchFind Text in File Descriptions (no wildcards)\r\n"
- file_find_text_all
- end_cmd
-
- cmdstr S
- print "\r\nchSearch for Filename(s)\r\n"
- file_find_name_all
- end_cmd
-
- # Quit back to main menu
- cmdstr Q
- cmd_pop
- end_cmd
-end_cmd
-
-
-#Download file
-cmdstr D
- file_download_batch
- if_true
- end_cmd
- end_if
- print "\r\nEnter the filename or wildcard to download\r\n"
- getfilespec
- if_true
- file_download
- endif
- end_cmd
-
-#Upload a file
-cmdstr U
- file_select_area
- if_false
- end_cmd
- end_if
- chkfile "%ztext/menu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-#Logoff
-cmdstr G
- call logoffbbs
- end_cmd
-
-cmdstr BYE
- call logoffbbs
- end_cmd
-
-cmdstr GOODBYE
- call logoffbbs
- end_cmd
-
-cmdstr OFF
- call logoffbbs
- end_cmd
-
-cmdstr LOGOFF
- call logoffbbs
- end_cmd
-
-#fall through
-end_cmd
-
-:logoffbbs
-file_download_batch
-if_false
- logoff
- endif
-return
-
-:sendmail
-print "\r\nbhSend E-mail to (User name or number): n"
-getname 25
-compare_str ""
-if_true
- return
- end_if
-compare_str "SYSOP"
-if_true
- setstr "1"
- end_if
-no_yes "\r\nAttach a file"
-if_false
- mail_send_file
-else
- mail_send
- end_if
-return
-
-:sendnetmail
-no_yes "\r\nAttach a file"
-if_false
- mail_send_netfile
-else
- mail_send_netmail
- end_if
-return
-
-
-:postmessage
-msg_select_area
-if_true
- msg_post
- end_if
-return
-
-########################### Msg Config Section ##############################
-
-:msg_cfg
-
-menu maincfg
-async
-print "\r\nyhCommand: n"
-getstrupr 10
-logkey
-
-cmdkey N
- msg_new_scan_cfg
- return
- end_cmd
-
-cmdkey S
- msg_your_scan_cfg
- return
- end_cmd
-
-cmdkey P
- msg_ptrs_cfg
- return
- end_cmd
-
-cmdkey I
- msg_ptrs_reinit
- return
- end_cmd
-
-return
-
-
-#end of SIMPLE.SRC
diff --git a/exec/socktest.src b/exec/socktest.src
deleted file mode 100644
index 263dfe903debf1985a5175635c9f012c7f740431..0000000000000000000000000000000000000000
--- a/exec/socktest.src
+++ /dev/null
@@ -1,63 +0,0 @@
-!include sbbsdefs.inc
-
-int sock len
-str buf
-
-socket_open sock
-if_false
- print "open failure\r\n"
- return
- end_if
-setstr "cvs.synchro.net"
-socket_connect sock str 23
-if_false
- print "connect failure\r\n"
- return
- end_if
-
-or _console CON_RAW_IN
-loop
-
- inchar
- if_true
- compare_key ^]
- if_equal
- break
- end_if
- copy_char buf
- socket_write sock buf
- if_false
- print "\r\nError writing to socket\r\n"
- break
- end_if
- continue
- end_if
-
- socket_check sock
- if_false
- print "\r\nSocket disconnected\r\n"
- break
- end_if
-
- socket_nread sock len
- if_false
- print "\r\nError getting read length\r\n"
- break
- end_if
-
- compare len 0
- if_equal
- continue
- end_if
-
-# printf "reading %d" len
-
- socket_read sock buf len
- if_true
- pause_reset
- print buf
- end_if
- end_loop
-
-socket_close sock
-xor _console CON_RAW_IN
\ No newline at end of file
diff --git a/exec/sound.js b/exec/sound.js
deleted file mode 100644
index f84d052285d05f4a22bc4138b2d58eb73d3dfd2b..0000000000000000000000000000000000000000
--- a/exec/sound.js
+++ /dev/null
@@ -1,7 +0,0 @@
-/* sound.js */
-
-/* Plays a sound (WAV) file on the local (server) sound system */
-
-/* Sound filename must be specified on the command-line */
-
-sound(argv[0]);
\ No newline at end of file
diff --git a/exec/str_cmds.src b/exec/str_cmds.src
deleted file mode 100644
index efe2943fb54c5c119278f9c6cf9daacc43155661..0000000000000000000000000000000000000000
--- a/exec/str_cmds.src
+++ /dev/null
@@ -1,454 +0,0 @@
-# str_cmds.src
-
-# Global String Command Module for Synchronet
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-# This is NOT a command shell, DO NOT add to SCFG->Command Shells
-
-# This module is loaded from command shells with the EXEC_BIN function
-
-# It contains mostly sysop commands (i.e. ;ERR)
-
-# The command string must be the current string (obtained with SETSTR, GETSTR
-# or similar function) before this module is loaded.
-
-!include nodedefs.inc
-!include file_io.inc
-
-str fname
-int file
-
-# Remove any trailing spaces
-
-truncsp str
-
-logstr
-compare_ars SYSOP
-if_true
- # Change node action to "sysop activities"
- node_action NODE_SYSP
- sync
-
- ######################## SYSOP Functions ##############################
-
- compare_str "ERR"
- if_true
- error_log
- return
- end_if
-
- compare_str "GURU"
- if_true
- guru_log
- return
- end_if
-
- compare_str "CHUSER"
- if_true
- change_user
- return
- end_if
-
- compare_str "ANSCAP"
- if_true
- ansi_capture
- return
- end_if
-
- compare_word "LIST"
- if_true
- chksyspass
- if_true
- shift_str 4
- call get_arg
- printfile_str
- end_if
- return
- end_if
-
- compare_str "EDIT"
- if_true
- edit_text_file
- return
- end_if
-
- compare_str "LOG"
- if_true
- system_log
- return
- end_if
-
- compare_str "MEM"
- if_true
- show_mem
- return
- end_if
-
- compare_str "YLOG"
- if_true
- system_ylog
- return
- end_if
-
- compare_str "SS"
- if_true
- system_stats
- return
- end_if
-
- compare_word "NS"
- if_true
- shift_str 2
- compare_word " "
- if_true
- shift_str 1
- end_if
- node_stats
- return
- end_if
-
- compare_word "EXEC"
- if_true
- chksyspass
- if_true
- shift_str 4
- call get_arg
- exec_int %s
- end_if
- return
- end_if
-
- compare_word "FOSSIL"
- if_true
- chksyspass
- if_true
- shift_str 6
- call get_arg
- exec %s
- end_if
- return
- end_if
-
- compare_word "CALL"
- if_true
- chksyspass
- if_true
- shift_str 4
- call get_arg
- set fname "%jqnet/%s.now"
- fopen file O_WRONLY|O_CREAT|O_DENYNONE fname
- if_true
- fclose file
- end_if
- end_if
- return
- end_if
-
- compare_word "NODE"
- if_true
- strlwr str
- exec_int %!%s
- return
- end_if
-
- compare_word "DOWN"
- if_true
- shift_str 4
- call get_arg
- exec_int %!node down %s
- return
- end_if
-
- compare_word "RERUN"
- if_true
- shift_str 5
- call get_arg
- exec_int %!node rerun %s
- return
- end_if
-
- compare_str "SLOG"
- if_true
- exec_int %!slog /p
- return
- end_if
-
- compare_str "NLOG"
- if_true
- exec_int %!slog %n /p
- return
- end_if
-
- compare_word "NLOG "
- if_true
- shift_str 5
- exec_int %!slog %n../node%s /p
- return
- end_if
-
- compare_word "UEDIT"
- if_true
- shift_str 5
- compare_word " "
- if_true
- shift_str 1
- end_if
- user_edit
- return
- end_if
-
- compare_str "MAIL"
- if_true
- mail_read_all
- return
- end_if
-
- compare_str "BULKMAIL"
- if_true
- print "\r\nEnter ARS matches to send mail to or [CR] to send "
- print "by name/number\r\nARS to match: "
- getstrupr 40
- mail_send_bulk
- return
- end_if
-
- compare_str "DOS" # DOS/Windows shell
- if_true
- chksyspass
- if_true
- exec_int "command.com"
- end_if
- return
- end_if
-
- compare_str "SHELL" # Unix shell (-i for interactive)
- if_true
- chksyspass
- if_true
- compare_ars "UNIX"
- if_true
- exec_int "%y -i"
- else
- exec_int "%y"
- end_if
- end_if
- return
- end_if
-
- compare_word "SPY"
- if_true
- chksyspass
- if_true
- shift_str 3
- call get_arg
- crlf
- spy
- if_true
- print "\1n\r\nSpy session complete.\r\n"
- end_if
- end_if
- return
- end_if
-
- compare_str "DIR" # directory of current lib/dir
- if_true
- chksyspass
- print "\r\nDirectory of %f\r\n\r\n"
- if_true
- exec_int "%y /c dir %f /p"
- end_if
- return
- end_if
-
- compare_word "LOAD"
- if_true
- shift_str 4
- call get_arg
- load_text %s
- return
- end_if
-
- compare_word "DIR" # directory of user specified location
- if_true
- chksyspass
- if_true
- shift_str 3
- call get_arg
- exec_int "%y /c dir %s /p"
- end_if
- return
- end_if
-
- compare_word "UPLOAD"
- if_true
- shift_str 7
- file_upload_bulk
- return
- end_if
-
- compare_word "ALTUL"
- if_true
- shift_str 6
- file_set_alt_path
- return
- end_if
-
- compare_word "RESORT"
- if_true
- shift_str 7
- file_resort_directory
- return
- end_if
-
- compare_word "OLDUL"
- if_true
- shift_str 6
- file_find_old_uploads
- return
- end_if
-
- compare_word "OLD"
- if_true
- shift_str 4
- file_find_old
- return
- end_if
-
- compare_word "OFFLINE"
- if_true
- shift_str 8
- file_find_offline
- return
- end_if
-
- compare_word "CLOSE"
- if_true
- shift_str 6
- file_find_open
- return
- end_if
-
- compare_word "GET"
- if_true
- shift_str 3
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_str ""
- if_true
- print "\r\nPath and filename: "
- getstr 60
- compare_str ""
- if_true
- return
- end_if
- end_if
- file_get
- return
- end_if
-
- compare_word "PUT"
- if_true
- shift_str 3
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_str ""
- if_true
- print "\r\nPath and filename: "
- getstr 60
- compare_str ""
- if_true
- return
- end_if
- end_if
- file_put
- return
- end_if
- end_if
-
-############################# Exemption Functions #############################
-
-
-# Quiet Node
-compare_ars exempt Q
-if_true
- compare_str "QUIET"
- if_true
- compare_ars QUIET
- if_true
- exec_int %!node status=3 %#
- else
- exec_int %!node status=4 %#
- end_if
- return
- end_if
-
- compare_str "ANON"
- if_true
- toggle_node_misc NODE_ANON
- exec_int %!node list %#
- return
- end_if
- end_if
-
-# Lock Node
-compare_ars exempt N
-if_true
- compare_word "LOCK"
- if_true
- shift_str 4
- call get_arg
- exec_int %!node lock %s
- return
- end_if
- end_if
-
-# Interrupt Node
-compare_ars exempt I
-if_true
- compare_word "INTR"
- if_true
- shift_str 4
- call get_arg
- exec_int %!node intr %s
- return
- end_if
- end_if
-
-# Chat
-compare_ars exempt C
-if_true
- compare_str "CHAT"
- if_true
- page_sysop
- return
- end_if
- end_if
-
-compare_str "POFF"
-if_true
- toggle_node_misc NODE_POFF
- end_if
-
-# None of the above (unrecognized)
-return
-
-### Generic routine to ask user for parameter if one wasn't specified ###
-
-:get_arg
- compare_word " "
- if_true
- shift_str 1
- end_if
- compare_str ""
- if_true
- print "Parameter(s): "
- getstr
- end_if
-return
diff --git a/exec/syspage.wav b/exec/syspage.wav
deleted file mode 100644
index 1929e77e16e739d4b281d25804133e57d6ec8d4c..0000000000000000000000000000000000000000
Binary files a/exec/syspage.wav and /dev/null differ
diff --git a/exec/telgate.src b/exec/telgate.src
deleted file mode 100644
index 6fd79de5b37b6f5d08628701e899f2ada2de59b0..0000000000000000000000000000000000000000
--- a/exec/telgate.src
+++ /dev/null
@@ -1,13 +0,0 @@
-# telgate.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-printf "\r\n\1h\1hPress \1yCtrl-]\1w for a control menu anytime.\r\n\r\n"
-pause
-printf "\1h\1yConnecting to: \1w%s\1n\r\n" str
-telnet_gate str TG_PASSTHRU
-cls
diff --git a/exec/textdat.js b/exec/textdat.js
deleted file mode 100644
index d3928b6904e53986145430f90007a874de880247..0000000000000000000000000000000000000000
--- a/exec/textdat.js
+++ /dev/null
@@ -1,9 +0,0 @@
-load("sbbsdefs.js"); // SS_ABORT
-
-for(i=1;!(bbs.sys_status&SS_ABORT);i++) {
- str = bbs.text(i);
- if(str==null)
- break;
- // console.line_counter=0; /* uncomment to display continuously */
- printf("\1n\1h%d: \1n%s\1n\r\n",i,str);
-}
\ No newline at end of file
diff --git a/exec/tone/axelf.ton b/exec/tone/axelf.ton
deleted file mode 100644
index b95b09d10169b359fe3915fdd1ae49bd066e33e6..0000000000000000000000000000000000000000
--- a/exec/tone/axelf.ton
+++ /dev/null
@@ -1,49 +0,0 @@
-: Axel Foley (from Beverly Hills Cop)
-: converted from synth track of MIDI file
-659 500
-784 375
-659 250
-659 125
-880 250
-659 250
-587 250
-659 500
-988 375
-659 250
-659 125
-1047 250
-988 250
-784 250
-659 250
-988 250
-1319 250
-659 125
-587 250
-587 125
-494 250
-740 250
-659 250
-r 2000
-659 500
-784 375
-659 250
-659 125
-880 250
-659 250
-587 250
-659 500
-988 375
-659 250
-659 125
-1047 250
-988 250
-784 250
-659 250
-988 250
-1319 250
-659 125
-587 250
-587 125
-494 250
-740 250
-659 250
diff --git a/exec/tone/battle.ton b/exec/tone/battle.ton
deleted file mode 100644
index b100c4690675f37a69cc5ee73f6942a41ea2dc50..0000000000000000000000000000000000000000
--- a/exec/tone/battle.ton
+++ /dev/null
@@ -1,32 +0,0 @@
-: Battle Hymn of Republic |
-t 2
-s 5
-v Mine \
-f4 133
-v eyes \
-f4 160
-v have \
-f4 100
-v seen \
-f4 160
-v the \
-D4 100
-v glor\
-d4 160
-v y \
-f4 100
-v of \
-A4 160
-v the \
-c5 100
-v com\
-d5 160
-v ing \
-d5 100
-v of \
-d5 160
-v the \
-c5 100
-v lord.\
-A4 200
-v
\ No newline at end of file
diff --git a/exec/tone/bouree.ton b/exec/tone/bouree.ton
deleted file mode 100644
index 7e9ac3b7d77725e94003042eae780415b304f316..0000000000000000000000000000000000000000
--- a/exec/tone/bouree.ton
+++ /dev/null
@@ -1,21 +0,0 @@
-: Bouree |
-t 2
-b3 80
-c4 80
-d4 160
-g3 80
-F3 80
-g3 160
-g4 160
-F4 160
-e4 80
-F4 80
-d4 160
-a3 80
-b3 80
-c4 160
-F3 80
-e3 80
-F3 160
-d4 160
-b3 160
diff --git a/exec/tone/buffgals.ton b/exec/tone/buffgals.ton
deleted file mode 100644
index 179146650f787fb21a8a5289fc653b1b774437eb..0000000000000000000000000000000000000000
--- a/exec/tone/buffgals.ton
+++ /dev/null
@@ -1,22 +0,0 @@
-: Buffalo Gals |
-s 5
-c3 100
-c3 100
-c3 200
-e3 200
-g3 100
-g3 100
-a3 133
-g3 200
-g3 133
-e3 200
-r 200
-g3 133
-f3 200
-f3 133
-d3 200
-r 200
-a3 133
-g3 200
-g3 133
-e3 200
diff --git a/exec/tone/camptown.ton b/exec/tone/camptown.ton
deleted file mode 100644
index 9d0b4205975f34a91072dea77787cf180e34f1c1..0000000000000000000000000000000000000000
--- a/exec/tone/camptown.ton
+++ /dev/null
@@ -1,22 +0,0 @@
-: Camptown Races |
-s 5
-t 2
-a3 100
-a3 100
-F3 100
-a3 100
-b3 100
-a3 100
-F3 200
-F3 100
-e3 300
-F3 100
-e3 200
-r 15
-a3 100
-a3 100
-F3 100
-a3 100
-b3 100
-a3 100
-F3 200
diff --git a/exec/tone/clown.ton b/exec/tone/clown.ton
deleted file mode 100644
index 956ab30aab8c366d41308907abbc28f236e2f834..0000000000000000000000000000000000000000
--- a/exec/tone/clown.ton
+++ /dev/null
@@ -1,33 +0,0 @@
-t 200
-c5 2
-p -.50
-b4 2
-p -.50
-A4 1
-p -.50
-b4 1
-p -.50
-A4 1
-p -.50
-a4 1
-p -.50
-G4 2
-p -.50
-g4 2
-p -.50
-F4 2
-p -.50
-g4 1
-p -.10
-g4 1
-p -.10
-g4 1
-p -.10
-g4 1
-p -.10
-g4 1
-p -.10
-g4 1
-p -.10
-g4 1
-
diff --git a/exec/tone/countdown.ton b/exec/tone/countdown.ton
deleted file mode 100644
index 5646b5cd53bfadb094e9a84db85dc62dfa3dbaab..0000000000000000000000000000000000000000
--- a/exec/tone/countdown.ton
+++ /dev/null
@@ -1,41 +0,0 @@
-r 250.00000000000003
-988 125.00000000000001
-880 125.00000000000001
-988 500.00000000000006
-659 500.00000000000006
-r 250.00000000000003
-1047 125.00000000000001
-988 125.00000000000001
-1047 250.00000000000003
-988 250.00000000000003
-880 500.00000000000006
-r 250.00000000000003
-1047 125.00000000000001
-988 125.00000000000001
-1047 500.00000000000006
-659 500.00000000000006
-r 250.00000000000003
-880 125.00000000000001
-784 125.00000000000001
-880 250.00000000000003
-784 250.00000000000003
-740 250.00000000000003
-880 250.00000000000003
-784 750
-740 125.00000000000001
-784 125.00000000000001
-880 750
-784 125.00000000000001
-880 125.00000000000001
-988 250.00000000000003
-880 250.00000000000003
-784 250.00000000000003
-740 250.00000000000003
-659 500.00000000000006
-1047 500.00000000000006
-988 1500
-988 125.00000000000001
-1047 125.00000000000001
-988 125.00000000000001
-880 125.00000000000001
-988 2000.0000000000002
diff --git a/exec/tone/ent.ton b/exec/tone/ent.ton
deleted file mode 100644
index da3eea3f71f7fa8124c35321405e829b43e37fe4..0000000000000000000000000000000000000000
--- a/exec/tone/ent.ton
+++ /dev/null
@@ -1,299 +0,0 @@
-: Now we're going to set-up and play a song
-
-Visual The Entertainer
-
-pitch 323.50 All commands can be abreviated with just one character
-t 200
-s 10
-:r 10 Rest before we begin
-
-:intro
-
-o 6
-
-d 1
-e 1
-c 1
-o -1
-a 2
-b 1
-g 1
-r 1
-
-d 1
-e 1
-c 1
-o -1
-a 2
-b 1
-g 1
-r 1
-
-d 1
-e 1
-c 1
-o -1
-a 2
-b 1
-a 1
-G 1
-g 2
-r 2
-
-g5 1
-r 1
-
-: begin
-o 5
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-r 1
-
-a4 1
-g4 1
-F4 1
-a4 1
-c5 1
-e5 2
-d5 1
-c5 1
-b4 1
-d5 1
-
-r 1
-g3 1
-r 1
-a3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-c 1
-d 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-g3 1
-r 1
-a3 1
-r 1
-
-: repeat
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-r 1
-
-a4 1
-g4 1
-F4 1
-a4 1
-c5 1
-e5 2
-d5 1
-c5 1
-b4 1
-d5 1
-
-r 1
-g3 1
-r 1
-a3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-c 1
-d 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-g3 1
-r 1
-c3 1
-
diff --git a/exec/tone/example.ton b/exec/tone/example.ton
deleted file mode 100644
index e3ec4579fd2ac7b777d0cecd35d2c54c07643c45..0000000000000000000000000000000000000000
--- a/exec/tone/example.ton
+++ /dev/null
@@ -1,539 +0,0 @@
-: Example TONE (.TON) file
- All lines starting with non-alphanumeric characters are ignored.
-
-: We're going to set the timer count value (in milliseconds). The first word
- of the line must begin with a 'T' (not case sensitive). Following the 'T'
- word (or letter) must be some amount of white space (tabs or space) then
- a number to use for the timer count value. The default timer count value
- is 1 millisecond.
-
-Time 200
-
-: The colons you see at the beginning of the comment paragraphs are not
- necessary. They are only used to visually separate comments from tone
- command lines. A space, tab, or any other non-alphanumeric character would
- work just as well.
-
-: Now we're going to display some text on the monitor using the 'V' (visual)
- command. The first word of the line must begin with a 'V' (not case
- sensitive). Some amount of white space must follow the 'V' word (or letter)
- then text to be displayed to the user. If you do not wish a new line to be
- automatically displayed, append a backslash (\) to the end of the line.
-
-Visual This is the beginning of our example TONE file.
-Visual This text will be displayed on the same line as \
-Visual this text.
-
-: Now we're going to play some tones. Tones may be specified by note letter
- (and optional octave number) or exact frequency (in Hz). We'll begin with
- a natural 'a' (440Hz) for 1 second (1000 milliseconds). Tone lines have two
- parameters, the note (or exact frequency) and duration (in time counts).
- Since our time counter value is now 200, we will need a time count of 5 to
- produce a 1 second duration (5 counts multiplied by 200 milliseconds equals
- 1 second.)
-
-a 5
-
-: The note is still playing right now and will continue to play until we make
- another tone, give a rest command, or give a quit command.
-
-: Notice that we used a lower case 'a'. Note letters ARE case sensitive. Lower
- case notes are naturals and upper case notes are sharps.
-
-: Now we're going to specify the same note by specifying the exact frequency
- (in HZ) of 440, for the same duration.
-
-440 5
-
-: There will be no audible change caused by the above command because we were
- already hearing the same frequency. What you will hear is a 2 second 'a',
- unaware that we actually played two 1 second 'a's.
-
-: To stop the note from sounding, we are now going to give a rest command.
- Rest commands can be specified with a word starting with the letter 'R'
- (not case sensitive) or by specifying a frequency of 0. Some amount of
- white space must follow, then a duration (in time counts). The following
- rest command is specifying 1 second of silence.
-
-Rest 5
-
-: To produce an automatic sound-off or pause between notes, we must specify
- a stacato duration (in milliseconds). This helps the listener to distinguish
- between notes played of the same frequency. If you do not specify a stacato
- duration, the result is legato (smooth transition between notes).
-
-: The stacato command must begin with the 'S' character (not case sensitive)
- followed by white space then the duration (in milliseconds). The default
- duration is 0 (disabled).
-
-Stacato 10
-
-: To play notes from octaves other than the default octave (4), you can either
- change the current default octave (with the Octave command) or specify the
- octave with the note. To play a low C for 1 second, we will use the
- following command:
-
-c1 5
-
-: When we don't specify the octave number, the default octave is used. To
- change the default octave number, we can use the following command:
-
-Octave 3
-
-Visual Now we will play a C major scale (octave 3):
-
-c 2 Comments can follow any command (except Visual)
-d 2
-e 2
-f 2
-g 2
-a 2
-b 2
-
-: To adjust the current default octave, we can use the plus (+) and minus
- (-) symbols:
-
-Octave +1
-
-Visual Another C major scale (now in octave 4).
-
-c 2
-d 2
-e 2
-f 2
-g 2
-a 2
-b 2
-
-Visual Rest a little
-
-Rest 5
-
-: When specifying notes, the sounded frequency is based on a default pitch for
- middle C. The default starts at 523.50Hz but can be adjusted with the Pitch
- command. This is useful for created de-tuning or bend effects. The Pitch
- command can be used to specify a default pitch or adjust the current default
- pitch up (+) or down (-).
-
-Visual Now for a pitch variation example.
-
-: Lower timer count value and disable stacto for a smooth transition between
- pitches
-
-Time 40
-Stacato 0
-
-: Starting at a3 and ascend gradually.
-
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10 Kind of repetitive, huh?
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-a3 1
-p +.10
-
-: Now descend quickly
-
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-a3 1
-p -1.0
-
-: Now we're going to set-up and play a song
-
-Visual The Entertainer
-
-pitch 323.50 All commands can be abreviated with just one character
-t 200
-s 10
-r 10 Rest before we begin
-
-:intro
-
-o 6
-
-d 1
-e 1
-c 1
-o -1
-a 2
-b 1
-g 1
-r 1
-
-d 1
-e 1
-c 1
-o -1
-a 2
-b 1
-g 1
-r 1
-
-d 1
-e 1
-c 1
-o -1
-a 2
-b 1
-a 1
-G 1
-g 2
-r 2
-
-g5 1
-r 1
-
-: begin
-o 5
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-r 1
-
-a4 1
-g4 1
-F4 1
-a4 1
-c5 1
-e5 2
-d5 1
-c5 1
-b4 1
-d5 1
-
-r 1
-g3 1
-r 1
-a3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-c 1
-d 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-g3 1
-r 1
-a3 1
-r 1
-
-: repeat
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-r 1
-
-a4 1
-g4 1
-F4 1
-a4 1
-c5 1
-e5 2
-d5 1
-c5 1
-b4 1
-d5 1
-
-r 1
-g3 1
-r 1
-a3 1
-r 1
-
-d4 1
-D4 1
-e4 1
-c5 2
-e4 1
-c5 2
-e4 1
-c5 3
-
-a3 1
-r 1
-g3 1
-
-c 1
-d 1
-D 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-
-g3 1
-r 1
-g3 1
-r 1
-
-c 1
-d 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-
-c 1
-d 1
-c 1
-e 1
-c 1
-d 1
-e 2
-b4 1
-d 2
-c 1
-
-r 1
-g3 1
-r 1
-c3 1
-
-
diff --git a/exec/tone/funeral.ton b/exec/tone/funeral.ton
deleted file mode 100644
index 4fc170cd211c557a1871ac1a5f20b6d912a77368..0000000000000000000000000000000000000000
--- a/exec/tone/funeral.ton
+++ /dev/null
@@ -1,14 +0,0 @@
-: Funeral March-Marionette |
-t 2
-s 10
-a2 93
-d3 93
-r 70
-d3 93
-d3 93
-C3 93
-b2 93
-C3 93
-r 70
-d3 93
-e3 93
diff --git a/exec/tone/furelise.ton b/exec/tone/furelise.ton
deleted file mode 100644
index 8eeda90f2c07b0d35223cde807fce0509026dc4d..0000000000000000000000000000000000000000
--- a/exec/tone/furelise.ton
+++ /dev/null
@@ -1,20 +0,0 @@
-: Fur Elise |
-t 2
-s 5
-e4 133
-D4 133
-e4 133
-b3 133
-d4 133
-c4 133
-a3 200
-r 100
-c3 133
-e3 133
-a3 133
-b3 200
-r 100
-e3 133
-G2 133
-b3 133
-c4 200
diff --git a/exec/tone/godfather.ton b/exec/tone/godfather.ton
deleted file mode 100644
index a374c9fe65ace37653f8529e1b419f1c7aad7384..0000000000000000000000000000000000000000
--- a/exec/tone/godfather.ton
+++ /dev/null
@@ -1,44 +0,0 @@
-784 250.00000000000003
-1047 250.00000000000003
-1245 250.00000000000003
-1175 250.00000000000003
-1047 250.00000000000003
-1245 250.00000000000003
-1047 250.00000000000003
-1175 250.00000000000003
-1047 250.00000000000003
-831 250.00000000000003
-932 250.00000000000003
-784 1000.0000000000001
-784 250.00000000000003
-1047 250.00000000000003
-1245 250.00000000000003
-1175 250.00000000000003
-1047 250.00000000000003
-1245 250.00000000000003
-1047 250.00000000000003
-1175 250.00000000000003
-1047 250.00000000000003
-784 250.00000000000003
-740 250.00000000000003
-698 1000.0000000000001
-698 250.00000000000003
-831 250.00000000000003
-988 250.00000000000003
-1175 1000.0000000000001
-698 250.00000000000003
-831 250.00000000000003
-988 250.00000000000003
-1047 1000.0000000000001
-523 250.00000000000003
-622 250.00000000000003
-932 250.00000000000003
-831 250.00000000000003
-784 250.00000000000003
-932 250.00000000000003
-831 250.00000000000003
-831 250.00000000000003
-784 250.00000000000003
-784 250.00000000000003
-988 250.00000000000003
-1047 1000.0000000000001
diff --git a/exec/tone/goodnite.ton b/exec/tone/goodnite.ton
deleted file mode 100644
index e42405d592f8806bb794ca238447ba0db12ffe3b..0000000000000000000000000000000000000000
--- a/exec/tone/goodnite.ton
+++ /dev/null
@@ -1,22 +0,0 @@
-: Good-night, Ladies |
-s 5
-e4 420
-c4 420
-g3 140
-c4 840
-r 210
-e4 420
-c4 420
-d4 140
-d4 840
-r 210
-e4 420
-c4 420
-f4 140
-f4 840
-f4 140
-e4 280
-c4 140
-d4 280
-b3 140
-c4 840
diff --git a/exec/tone/halloween.ton b/exec/tone/halloween.ton
deleted file mode 100644
index 3ab4d78cbc5eda6795b948b8bf0db9eeb4538922..0000000000000000000000000000000000000000
--- a/exec/tone/halloween.ton
+++ /dev/null
@@ -1,37 +0,0 @@
-1175 250.00000000000003
-784 250.00000000000003
-784 250.00000000000003
-1175 250.00000000000003
-784 250.00000000000003
-784 250.00000000000003
-1175 250.00000000000003
-784 250.00000000000003
-1245 250.00000000000003
-784 250.00000000000003
-1175 250.00000000000003
-784 250.00000000000003
-784 250.00000000000003
-1175 250.00000000000003
-784 250.00000000000003
-784 250.00000000000003
-1175 250.00000000000003
-784 250.00000000000003
-1245 250.00000000000003
-784 250.00000000000003
-1109 250.00000000000003
-740 250.00000000000003
-740 250.00000000000003
-1109 250.00000000000003
-740 250.00000000000003
-1175 250.00000000000003
-740 250.00000000000003
-1109 250.00000000000003
-740 250.00000000000003
-740 250.00000000000003
-1109 250.00000000000003
-740 250.00000000000003
-740 250.00000000000003
-1109 250.00000000000003
-740 250.00000000000003
-1175 250.00000000000003
-740 250.00000000000003
diff --git a/exec/tone/hatdance.ton b/exec/tone/hatdance.ton
deleted file mode 100644
index 9ed6d6db7ae3e1d603141512313276cc3e7dfd11..0000000000000000000000000000000000000000
--- a/exec/tone/hatdance.ton
+++ /dev/null
@@ -1,17 +0,0 @@
-: Mexican Hat Dance |
-d3 160
-F3 160
-r 120
-d3 160
-F3 160
-r 120
-d3 160
-F3 320
-r 240
-d3 160
-F3 160
-G3 160
-F3 160
-f3 320
-F3 160
-G3 240
diff --git a/exec/tone/humor.ton b/exec/tone/humor.ton
deleted file mode 100644
index e2f612ddc6bd1fb508efe6e52b71c1b0d5d38132..0000000000000000000000000000000000000000
--- a/exec/tone/humor.ton
+++ /dev/null
@@ -1,18 +0,0 @@
-: Humoresque |
-s 5
-g2 210
-a2 140
-g2 210
-a2 140
-b2 210
-d3 140
-e3 210
-d3 140
-g3 210
-F3 140
-a3 210
-g3 140
-F3 210
-a3 140
-g3 210
-e3 210
diff --git a/exec/tone/jeanie.ton b/exec/tone/jeanie.ton
deleted file mode 100644
index 8cea3248c5d21075ab9539d7b706b5d94ab59cc8..0000000000000000000000000000000000000000
--- a/exec/tone/jeanie.ton
+++ /dev/null
@@ -1,14 +0,0 @@
-: Jeanie with Light Brown |
-t 2
-s 5
-d4 200
-c4 300
-a3 100
-A3 100
-a3 100
-g3 100
-f3 100
-a3 200
-c3 100
-d3 100
-f3 300
diff --git a/exec/tone/la_cuca.ton b/exec/tone/la_cuca.ton
deleted file mode 100644
index 954127d5ed17b378a364f880f5c74a967214dacc..0000000000000000000000000000000000000000
--- a/exec/tone/la_cuca.ton
+++ /dev/null
@@ -1,21 +0,0 @@
-: La Cucaracha |
-s 10
-d3 133
-d3 133
-d3 133
-g3 400
-b3 200
-r 100
-d3 133
-d3 133
-d3 133
-g3 400
-b3 200
-r 200
-g3 133
-g3 133
-F3 133
-F3 133
-e3 133
-e3 133
-d3 400
diff --git a/exec/tone/maplerag.ton b/exec/tone/maplerag.ton
deleted file mode 100644
index 9db8f29dd3a7060b48f847e76f515088fd7a82de..0000000000000000000000000000000000000000
--- a/exec/tone/maplerag.ton
+++ /dev/null
@@ -1,24 +0,0 @@
-: Maple Leaf Rag |
-t 2
-s 2
-b3 80
-d4 80
-g3 80
-b3 80
-d4 160
-F3 80
-d4 80
-F3 80
-a3 80
-d4 240
-r 80
-b3 80
-d4 80
-g3 80
-b3 80
-d4 160
-F3 80
-d4 80
-F3 80
-a3 80
-d4 240
diff --git a/exec/tone/march.ton b/exec/tone/march.ton
deleted file mode 100644
index f22e3cb844dc437fb6d485c335a2e63c762600dd..0000000000000000000000000000000000000000
--- a/exec/tone/march.ton
+++ /dev/null
@@ -1,21 +0,0 @@
-: March - Nutcracker Suite |
-s 5
-t 2
-d4 200
-d4 70
-d4 70
-d4 70
-e4 200
-e4 200
-F4 200
-d4 200
-e4 400
-d4 200
-d4 70
-d4 70
-d4 70
-e4 200
-e4 200
-F4 200
-d4 200
-e4 266
diff --git a/exec/tone/mary.ton b/exec/tone/mary.ton
deleted file mode 100644
index e36108d0881014408e60ac500c4fb2fc2f2bb671..0000000000000000000000000000000000000000
--- a/exec/tone/mary.ton
+++ /dev/null
@@ -1,57 +0,0 @@
-: Mary had a little lamb
-s 50
-v Mar\
-e4 500
-v y \
-d4 100
-v had \
-c4 300
-v a \
-d4 300
-v lit\
-e4 300
-v tle \
-e4 300
-v lamb, \
-e4 800
-v lit\
-d4 300
-v tle \
-d4 300
-v lamb, \
-d4 800
-v lit\
-e4 300
-v tle \
-g4 300
-v lamb.\
-g4 800
-v
-
-v Mar\
-e4 500
-v y \
-d4 100
-v had \
-c4 300
-v a \
-d4 300
-v lit\
-e4 300
-v tle \
-e4 300
-v lamb, \
-e4 300
-v her \
-e4 300
-v fleece \
-d4 300
-v was \
-d4 300
-v white \
-e4 300
-v as \
-d4 300
-v snow.\
-c4 1000
-v
diff --git a/exec/tone/mountai.ton b/exec/tone/mountai.ton
deleted file mode 100644
index e5e5a9a1784dbdc2f293abc3d41ac0ba86a17e0f..0000000000000000000000000000000000000000
--- a/exec/tone/mountai.ton
+++ /dev/null
@@ -1,14 +0,0 @@
-: Comin' round the mountain|
-t 2
-s 5
-d3 106
-e3 106
-g3 106
-g3 106
-g3 106
-g3 106
-e3 106
-d3 106
-b2 106
-d3 106
-g3 320
diff --git a/exec/tone/sakura.ton b/exec/tone/sakura.ton
deleted file mode 100644
index f785f956f4e020cce6dfc26228caec09b089891c..0000000000000000000000000000000000000000
--- a/exec/tone/sakura.ton
+++ /dev/null
@@ -1,17 +0,0 @@
-: Sakura |
-s 10
-t 2
-a2 140
-a2 140
-b2 280
-a2 140
-a2 140
-b2 280
-a2 140
-b2 140
-c3 140
-b2 140
-a2 140
-b2 70
-a2 70
-f2 280
diff --git a/exec/tone/sleeping.ton b/exec/tone/sleeping.ton
deleted file mode 100644
index fcd520d2fe395386f0bf8d8fa8b0f763376d129b..0000000000000000000000000000000000000000
--- a/exec/tone/sleeping.ton
+++ /dev/null
@@ -1,42 +0,0 @@
-: Are You Sleeping? |
-t 2
-s 1
-g3 200
-a3 200
-b3 200
-g3 200
-g3 200
-a3 200
-b3 200
-g3 200
-b3 200
-c4 200
-d4 390
-r 10
-b3 200
-c4 200
-d4 390
-r 10
-d4 100
-e4 100
-d4 100
-c4 100
-b3 200
-g3 190
-r 10
-
-d4 100
-e4 100
-d4 100
-c4 100
-b3 200
-g3 190
-r 10
-
-g3 200
-d3 200
-g3 400
-
-g3 200
-d3 200
-g3 400
diff --git a/exec/tone/susanna.ton b/exec/tone/susanna.ton
deleted file mode 100644
index 526756a0e441a6c9de6db4c03ae7972680177df2..0000000000000000000000000000000000000000
--- a/exec/tone/susanna.ton
+++ /dev/null
@@ -1,18 +0,0 @@
-: Oh! Susanna |
-t 2
-s 5
-g3 100
-a3 100
-b3 133
-d4 133
-d4 133
-e4 133
-d4 133
-b3 133
-g3 160
-a3 100
-b3 133
-b3 133
-a3 133
-g3 133
-a3 200
diff --git a/exec/tone/swinglow.ton b/exec/tone/swinglow.ton
deleted file mode 100644
index 733377797f9d8ebb30237b8801cd0a62c84d2254..0000000000000000000000000000000000000000
--- a/exec/tone/swinglow.ton
+++ /dev/null
@@ -1,17 +0,0 @@
-: Swing low, Sweet Chariot |
-t 3
-s 10
-a2 140
-f2 280
-a2 140
-f2 186
-f2 93
-d2 93
-c2 186
-f2 93
-f2 93
-f2 93
-f2 93
-a2 93
-c3 93
-c3 140
diff --git a/exec/tone/symph_40.ton b/exec/tone/symph_40.ton
deleted file mode 100644
index 361ae2c464fc1fb88634be39a51a74432f7e8ca4..0000000000000000000000000000000000000000
--- a/exec/tone/symph_40.ton
+++ /dev/null
@@ -1,23 +0,0 @@
-: Symphony #40 |
-t 2
-s 10
-D3 110
-d3 110
-d3 132
-D3 110
-d3 110
-d3 132
-D3 110
-d3 110
-d3 132
-A3 110
-r 82
-A3 110
-a3 110
-g3 132
-g3 110
-f3 110
-D3 132
-D3 110
-d3 110
-c3 132
diff --git a/exec/tone/tdc.ton b/exec/tone/tdc.ton
deleted file mode 100644
index 68979d4dc39cddfd7bcdbeb3026b87fff910623e..0000000000000000000000000000000000000000
--- a/exec/tone/tdc.ton
+++ /dev/null
@@ -1,190 +0,0 @@
-: Twelve days of Christmas
-
-Stacato 5
-Timing 80
-Rest 8
-v On \
-c4 2
-v the \
-c4 2
-v twelfth \
-c4 4
-v day \
-f4 2
-v of \
-f4 2
-v Christ\
-f4 4
-v mas \
-e4 2
-v my \
-f4 2
-v true \
-g4 2
-v love \
-a4 2
-v gave \
-A4 2
-v to \
-g4 2
-v me\
-a4 4
-Rest 4
-v
-
-v Twelve \
-c5 2
-v De\
-c5 2
-v scrip\
-g4 2
-v tor \
-a4 2
-v Type\
-A4 2
-v -Codes,\
-g4 4
-v
-
-v E\
-g4 2
-v lev\
-c5 2
-v en \
-c5 2
-v Point\
-g4 2
-v ers \
-a4 2
-v Point\
-A4 2
-v ing,\
-g4 2
-v
-
-v Ten \
-c5 4
-v Pipe\
-g4 2
-v lines \
-a4 2
-v Pip\
-A4 2
-v ing,\
-g4 2
-v
-
-v Nine \
-c5 4
-v Page \
-g4 2
-v Frames \
-a4 2
-v Pag\
-A4 2
-v ing,\
-g4 2
-v
-
-v Eight \
-c5 4
-v Bits \
-g4 2
-v A\
-a4 2
-v 'Shift\
-A4 2
-v ing,\
-g4 2
-v
-
-v Sev\
-c5 2
-v en \
-c5 2
-v Swans \
-g4 2
-v A\
-a4 2
-v 'Swim\
-A4 2
-v ming,\
-g4 2
-v
-
-v Six \
-c5 4
-v Sig\
-g4 2
-v nals \
-a4 2
-v Pend\
-A4 2
-v ing,\
-g4 2
-v
-
-v FIVE \
-c5 8
-v TRAP \
-d5 4
-b4 4
-v GATES!\
-c5 8
-a3 2
-g3 2
-a3 2
-A3 2
-v
-
-v Four \
-c5 2
-A4 2
-v Far \
-a4 2
-g4 2
-v Calls,\
-f4 4
-v
-
-v Three \
-A4 4
-v Short \
-d4 4
-v Jumps,\
-f4 4
-v
-
-v Two \
-g4 2
-f4 2
-v Tur\
-e4 2
-v tle \
-d4 2
-v Doves,\
-c4 4
-v
-
-v And \
-a4 2
-v a \
-A4 2
-v Task State \
-c5 4
-v Seg\
-d5 2
-v ment \
-A4 2
-v with \
-a4 2
-v a \
-f4 2
-v Bit \
-g4 4
-v Map\
-f4 8
-Rest 4
-v .\
-f2 3
-v
diff --git a/exec/tone/trapeze.ton b/exec/tone/trapeze.ton
deleted file mode 100644
index 3312e678912f30c1ced64f86ea3fc9b8a3625942..0000000000000000000000000000000000000000
--- a/exec/tone/trapeze.ton
+++ /dev/null
@@ -1,21 +0,0 @@
-: Man on Flying Trapeze |
-s 5
-f3 220
-f3 220
-A3 220
-c4 220
-d4 220
-D4 220
-d4 220
-d4 220
-c4 220
-g3 220
-c4 440
-e3 220
-f3 220
-a3 220
-A3 220
-c4 220
-d4 220
-c4 220
-A3 440
diff --git a/exec/tone/weasel.ton b/exec/tone/weasel.ton
deleted file mode 100644
index f5215e9bc066a8c77dc3cdf88f718a25f0a6e0be..0000000000000000000000000000000000000000
--- a/exec/tone/weasel.ton
+++ /dev/null
@@ -1,17 +0,0 @@
-: Pop! Goes the Weasel |
-s 1
-g2 200
-g2 133
-a2 200
-a2 133
-b2 133
-d3 100
-b2 133
-g2 200
-d2 133
-g2 200
-g2 133
-a2 200
-a2 133
-b2 266
-g2 200
diff --git a/exec/tone/yankee.ton b/exec/tone/yankee.ton
deleted file mode 100644
index 2ba754fc80e6c8f9da07e25af1479f3e8c7c2884..0000000000000000000000000000000000000000
--- a/exec/tone/yankee.ton
+++ /dev/null
@@ -1,15 +0,0 @@
-: Yankee Doodle |
-c3 220
-c3 220
-d3 220
-e3 220
-c3 220
-e3 220
-d3 220
-g2 220
-c3 220
-c3 220
-d3 220
-e3 220
-c3 440
-b2 220
diff --git a/exec/type.src b/exec/type.src
deleted file mode 100644
index 7122da99496eb5d723cf0191ac3431b4ed492c92..0000000000000000000000000000000000000000
--- a/exec/type.src
+++ /dev/null
@@ -1,7 +0,0 @@
-# type.src
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-printfile_str
diff --git a/exec/typehtml.js b/exec/typehtml.js
deleted file mode 100644
index 98a9f3e2f96a54f8b60016dbeaf6fac10f74673f..0000000000000000000000000000000000000000
--- a/exec/typehtml.js
+++ /dev/null
@@ -1,136 +0,0 @@
-// typehtml.js
-
-// Convert HTML to plain-text with (optional) Synchronet attribute (Ctrl-A) codes
-
-// Planned replacement for exec/typehtml.src (Baja version)
-
-// $Id$
-
-var NORMAL ="\1N\1H"
-var HEADING1 ="\1H\1Y"
-var HEADING2 ="\1H\1C"
-var HEADING3 ="\1H\1M"
-var HEADING4 ="\1H\1G"
-var HEADING5 ="\1H\1B"
-var HEADING6 ="\1H\1R"
-var BOLD ="\1H\1C\x014"
-var ITALIC ="\1H\1G\x012"
-var UNDERLINE ="\1H\1W\x016"
-var STRIKE_THROUGH ="\1N\1K\x017"
-var LIST_ITEM ="\1N\r\n \1H\1Wo \1G"
-
-var f;
-var mono=true;
-
-for(i in argv) {
- switch(argv[i].toLowerCase()) {
- case "-mono":
- mono=true;
- break;
- case "-color":
- mono=false;
- break;
- default:
- f = new File(argv[i]);
- break;
- }
-}
-
-if(this.f==undefined) {
- print("usage: typehtml [-mono] <filename>");
- exit(1);
-}
-
-if(!f.open("r")) {
- alert("Error " + errno + " opening " + f.name);
- exit(errno);
-}
-
-buf=f.read(f.length);
-f.close();
-
-// Monochrome?
-
-if(mono) {
- NORMAL =""
- HEADING1 =""
- HEADING2 =""
- HEADING3 =""
- HEADING4 =""
- HEADING5 =""
- HEADING6 =""
- BOLD =""
- ITALIC =""
- UNDERLINE =""
- STRIKE_THROUGH =""
- LIST_ITEM ="\r\n o "
-}
-
-// Global search and replaces
-
-// Tag aliases
-buf=buf.replace(/<strong>/gi,"<b>");
-buf=buf.replace(/<\/strong>/gi,"</b>");
-buf=buf.replace(/<strike>/gi,"<s>");
-buf=buf.replace(/<\/strike>/gi,"</s>");
-
-// Pre block (defeat white-space condensation)
-buf=buf.replace(/<pre>([^<]*)<\/pre>/gi
- ,function (str, text) {
- return text.replace(/ /gi," ")
-// .replace(/\r/gi," ")
- .replace(/\n/gi," ");
- }
- );
-
-// Condense white-space
-buf=buf.replace(/>\s*\n/g,">"); // Replace >\r\n with >
-buf=buf.replace(/\s+/g," "); // Replace white-space with single space
-
-// Strip blocks
-buf=buf.replace(/<head[^<]*>.*<\/head>/gi,""); // Strip the header
-
-// Links
-buf=buf.replace(/<a\s+[^<]*href\s*=\s*([^> ]*)[^>]*>([^<]*)<\/a>/gi,"$2 [$1]");
-
-// Visual white-space
-buf=buf.replace(/<br>/gi,"\r\n"); // Replace <br> with \r\n
-buf=buf.replace(/<p>/gi,"\r\n"); // Replace <p> with \r\n
-buf=buf.replace(/<tr[^<]*>/gi,"\r\n"); // Replace <tr> with \r\n
-buf=buf.replace(/<\/p>/gi,"\r\n"); // Replace </p> with \r\n
-buf=buf.replace(/<\/ul>/gi,"\r\n\r\n"); // Replace </ul>
-buf=buf.replace(/<\/ol>/gi,"\r\n"); // Replace </ol>
-buf=buf.replace(/<\/caption>/gi,"\r\n"); // Replace </caption>
-buf=buf.replace(/<\/table>/gi,"\r\n"); // Replace </table>
-
-buf=buf.replace(/<td[^<]*>/gi," ");
-buf=buf.replace(/<th[^<]*>/gi," ");
-
-// Text attributes
-buf=buf.replace(/<b>([^<]*)<\/b>/gi,BOLD + "$1" + NORMAL);
-buf=buf.replace(/<i>([^<]*)<\/i>/gi,ITALIC + "$1" + NORMAL);
-buf=buf.replace(/<u>([^<]*)<\/u>/gi,UNDERLINE + "$1" + NORMAL);
-buf=buf.replace(/<s>([^<]*)<\/s>/gi,STRIKE_THROUGH + "$1" + NORMAL);
-
-// Headings
-buf=buf.replace(/<h1[^<]*>([^<]*)<\/h1>/gi,"\r\n" + HEADING1 + "*** $1 ***" + NORMAL + "\r\n\r\n");
-buf=buf.replace(/<h2[^<]*>([^<]*)<\/h2>/gi,"\r\n" + HEADING2 + "%%% $1 %%%" + NORMAL + "\r\n");
-buf=buf.replace(/<h3[^<]*>([^<]*)<\/h3>/gi,"\r\n" + HEADING3 + "--- $1 ---" + NORMAL + "\r\n");
-buf=buf.replace(/<h4[^<]*>([^<]*)<\/h4>/gi,"\r\n" + HEADING4 + "-=< $1 >=-" + NORMAL + "\r\n");
-buf=buf.replace(/<h5[^<]*>([^<]*)<\/h5>/gi,"\r\n" + HEADING5 + "... $1 ..." + NORMAL + "\r\n");
-buf=buf.replace(/<h6[^<]*>([^<]*)<\/h6>/gi,"\r\n" + HEADING6 + "___ $1 ___" + NORMAL + "\r\n");
-
-// Lists
-buf=buf.replace(/<li[^<]*>/gi,LIST_ITEM);
-
-// Strip unsupported tags
-buf=buf.replace(/<[^<]*>/g,"");
-
-// Translate &xxx; codes to ASCII and ex-ASCII
-buf=html_decode(buf);
-
-buf=word_wrap(buf);
-
-buf+="\r\n";
-
-write(buf);
diff --git a/exec/typehtml.src b/exec/typehtml.src
deleted file mode 100644
index 8455e05d49d8acc5bf30bc5bf71cef11663947b6..0000000000000000000000000000000000000000
--- a/exec/typehtml.src
+++ /dev/null
@@ -1,469 +0,0 @@
-# typehtml.c
-
-# Synchronet Baja Modules to Display HTML files to TTY/ANSI users
-
-# $Id$
-
-# Created October 09, 2000 by Rob Swindell
-
-# Requires Baja v2.20+
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include file_io.inc
-!include sbbsdefs.inc
-
-# Color Attributes for HTML type styles
-!define NORMAL "\1N\1H"
-!define HEADING1 "\1H\1Y"
-!define HEADING2 "\1H\1C"
-!define HEADING3 "\1H\1M"
-!define HEADING4 "\1H\1G"
-!define HEADING5 "\1H\1B"
-!define HEADING6 "\1H\1R"
-!define BOLD "\1H\1C\x014"
-!define ITALIC "\1H\1G\x012"
-!define UNDERLINE "\1H\1W\x016"
-!define STRIKE_THROUGH "\1N\1K\x017"
-!define LIST_ITEM " \1H\1Wo \1G"
-
-!define RIGHT_MARGIN 79
-
-str filename # HTML filename
-str tmpfname # Temporary filename
-str href
-int i
-int ch
-int len
-int t
-int start
-int htmlfile
-int tmpfile
-int hlevel # header level
-int col # current cursor column
-int last_line_len # length of last line printed
-int lines # total lines printed
-int printing # printing on
-int newline # new line read from html file
-
-copy filename str
-
-compare_str ""
-if_true
- print "usage: typehtml <filename>\r\n"
- return
- end_if
-
-# Open HTML input file
-fopen htmlfile O_RDONLY|O_DENYNONE filename
-if_false
- printf "!Error %d opening %s\r\n" _ERRNO filename
- return
- end_if
-
-# Open Ctrl-A output file
-set tmpfname "%gHTML.ASC"
-fopen tmpfile O_WRONLY|O_CREAT|O_TRUNC tmpfname
-if_false
- printf "!Error %d creating %s\r\n" _ERRNO tmpfname
- return
- end_if
-
-set col 0 # reset column counter
-set last_line_len 0 # reset last line length
-set lines 0 # reset line counter
-set printing 1 # printing by default
-
-print "Converting HTML"
-time start
-
-:next_line
- print "."
-
- # Read a line
- fread_line htmlfile str
- if_false # end of file
- fclose htmlfile
- fclose tmpfile
- time t
- sub t start
-# printf "%d seconds" t
-# pause
- cls
- printfile tmpfname P_NOATCODES
- return
- end_if
-
- set newline 1
-
- # truncate whitespace off end
- truncsp str
-
- # truncate whitespace off front
- call skip_whitespace
-
- :next_char
- compare_first_char str 0
- if_true
- goto next_line
- end_if
-
- compare_substr str "<"
- if_false
- compare col 0
- if_true
- call skip_whitespace
- end_if
- set i RIGHT_MARGIN
- sub i col
- compare i 0
- if_equal
- call crlf
- set i RIGHT_MARGIN
- end_if
- strlen len str
- compare i len
- if_greater
- copy i len
- end_if
- fprintf tmpfile "%.*s" i str
- shift_str str i
- add col i
- compare col RIGHT_MARGIN
- if_greater_or_equal
- call crlf
- end_if
- goto next_char
- end_if
-
- compare_first_char str '<'
- if_false
- compare printing 1
- if_true
- # handle word wrap
- compare newline 1
- if_equal
- compare col 0
- if_not_equal
- fprintf tmpfile " "
- add col 1
- end_if
- end_if
- set newline 0
-
- # don't start lines with white-space
- compare col 0
- if_true
- compare_first_char str ' '
- end_if
- if_false
- fwrite tmpfile str 1
- add col 1
- compare col RIGHT_MARGIN
- if_greater_or_equal
- call crlf
- end_if
- end_if
- end_if
- shift_str 1
- goto next_char
- end_if
-
- shift_str 1 # skip <
-
- # Title
- compare_word "TITLE>"
- if_true
- set printing 0
- call find_close_bracket
- goto next_char
- end_if
- compare_word "/TITLE>"
- if_true
- set printing 1
- call find_close_bracket
- goto next_char
- end_if
-
-
- # List item
- compare_word "LI>"
- if_false
- compare_word "LI "
- end_if
- if_true
- compare col 0
- if_not_equal
- call crlf
- end_if
- fprintf tmpfile LIST_ITEM
- set col 6
- call find_close_bracket
- goto next_char
- end_if
-
- # Strike-through
- compare_word "S>"
- if_false
- compare_word "STRIKE>"
- end_if
- if_true
- fprintf tmpfile STRIKE_THROUGH
- call find_close_bracket
- goto next_char
- end_if
-
- # Bold
- compare_word "B>"
- if_false
- compare_word "STRONG>"
- end_if
- if_true
- fprintf tmpfile BOLD
- call find_close_bracket
- goto next_char
- end_if
-
- # Italics
- compare_word "I>"
- if_false
- compare_word "EM>"
- end_if
- if_true
- fprintf tmpfile ITALIC
- call find_close_bracket
- goto next_char
- end_if
-
- # Underline
- compare_word "U>"
- if_false
- compare_word "U>"
- end_if
- if_true
- fprintf tmpfile UNDERLINE
- call find_close_bracket
- goto next_char
- end_if
-
-
- # Attribute off
- compare_word "/S>"
- if_false
- compare_word "/STRIKE>"
- end_if
- if_false
- compare_word "/B>"
- end_if
- if_false
- compare_word "/STRONG>"
- end_if
- if_false
- compare_word "/I>"
- end_if
- if_false
- compare_word "/EM>"
- end_if
- if_false
- compare_word "/U>"
- end_if
- if_true
- fprintf tmpfile NORMAL
- call find_close_bracket
- goto next_char
- end_if
-
- # Table cell
- compare_word "TD>"
- if_false
- compare_word "TD "
- end_if
- if_true
- # visually separate cells
- compare col 0
- if_greater
- fprintf tmpfile " "
- add col 1
- end_if
- call find_close_bracket
- goto next_char
- end_if
-
-
- # Dumb CR/LF block
- compare_word "BR>"
- if_false
- compare_word "BR "
- end_if
- if_false
- compare_word "P>"
- end_if
- if_false
- compare_word "P "
- end_if
- if_false
- compare_word "TR>"
- end_if
- if_false
- compare_word "TR "
- end_if
- if_true
- call crlf
- call find_close_bracket
- goto next_char
- end_if
-
-
- # Intelligent CR/LF block (force single blank line)
- compare_word "/UL>"
- if_false
- compare_word "/OL>"
- end_if
- if_false
- compare_word "/DIR>"
- end_if
- if_false
- compare_word "/MENU>"
- end_if
- if_true
- fprintf tmpfile NORMAL
- end_if
- if_false
- compare_word "H"
- if_true
- shift_str 1
- copy hlevel str
- compare hlevel 0
- if_greater
- switch hlevel
- case 1
- fprintf tmpfile HEADING1
- end_case
- case 2
- fprintf tmpfile HEADING2
- end_case
- case 3
- fprintf tmpfile HEADING3
- end_case
- case 4
- fprintf tmpfile HEADING4
- end_case
- case 5
- fprintf tmpfile HEADING5
- end_case
- default
- fprintf tmpfile HEADING6
- end_case
- end_switch
- setlogic TRUE
- else
- setlogic FALSE
- end_if
- end_if
- end_if
- if_false
- compare_word "/H"
- if_true
- shift_str 2
- copy hlevel str
- compare hlevel 0
- if_greater
- fprintf tmpfile NORMAL
- setlogic TRUE
- else
- setlogic FALSE
- end_if
- end_if
- end_if
- if_true
- compare lines 0
- if_equal
- compare col 0
- end_if
- if_greater
- compare last_line_len 0
- if_equal
- compare col 0
- end_if
- if_not_equal
- call crlf
- call crlf
- end_if
- end_if
- call find_close_bracket
- goto next_char
- end_if
-
- # Hyper-link
- compare_word "A HREF="
- if_true
- shift_str 7
- set href ""
- :copy_href
- compare_first_char str '>'
- if_false
- copy_first_char ch str
- strcat href ch
- shift_str 1
- goto copy_href
- end_if
- end_if
-
- # Show hyper-link
- compare_word "/A>"
- if_true
- compare href ""
- if_false
- strlen i href
- add i 3
- add col i
- compare col RIGHT_MARGIN
- if_equal_or_greater
- call crlf
- sub i 1
- copy col i
- else
- fprintf tmpfile " "
- end_if
- fprintf tmpfile "<%s>" href
- end_if
- set href ""
- end_if
-
- call find_close_bracket
- goto next_char
-
-return
-
-# Carriage-return/Line-feed with column reset
-:crlf
- copy last_line_len col
- fprintf tmpfile "\r\n"
- set col 0
- add lines 1
- return
-
-# Shift str past first close bracket
-:find_close_bracket
- compare_first_char str 0
- if_true
- return
- end_if
-
- compare_first_char str '>'
- shift_str 1
- if_false
- goto find_close_bracket
- end_if
- return
-
-:skip_whitespace
- compare_first_char str ' '
- if_false
- compare_first_char str '\t'
- end_if
- if_true
- shift_str 1
- goto skip_whitespace
- end_if
- return
diff --git a/exec/unixgate.src b/exec/unixgate.src
deleted file mode 100644
index cc7df5d8cc44c7cb9b2f993ece880c63996aef96..0000000000000000000000000000000000000000
--- a/exec/unixgate.src
+++ /dev/null
@@ -1,15 +0,0 @@
-# unixgate.src
-
-# Telnet Gateway for Unix servers - Requires v3.00c
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-printf "\r\n\1h\1hPress \1yCtrl-]\1w for a control menu anytime.\r\n\r\n"
-pause
-printf "\1h\1yConnecting to: \1w%s\1n\r\n" str
-telnet_gate str TG_PASSTHRU
-cls
diff --git a/exec/userdefs.inc b/exec/userdefs.inc
deleted file mode 100644
index d90c38993dffa429b67a005c91538861395c01e7..0000000000000000000000000000000000000000
--- a/exec/userdefs.inc
+++ /dev/null
@@ -1,160 +0,0 @@
-# userdefs.inc
-
-# Baja include file defining various Synchronet USER related constants
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!define LEN_ALIAS 25 # User alias
-!define LEN_NAME 25 # User name
-!define LEN_HANDLE 8 # User chat handle
-!define LEN_NOTE 30 # User note
-!define LEN_COMP 30 # User computer description
-!define LEN_COMMENT 60 # User comment
-!define LEN_NETMAIL 60 # NetMail forwarding address
-!define LEN_PASS 8 # User password
-!define LEN_PHONE 12 # User phone number
-!define LEN_BIRTH 8 # Birthday in MM/DD/YY format
-!define LEN_ADDRESS 30 # User address
-!define LEN_LOCATION 30 # Location (City, State
-!define LEN_ZIPCODE 10 # Zip/Postal code
-!define LEN_MODEM 8 # User modem type description
-
-#**************************************************************************
-# This is a list of offsets into the USER.DAT file for different variables
-# that are stored (for each user
-#**************************************************************************
-!define U_ALIAS 0 # Offset to alias
-!define U_NAME U_ALIAS+LEN_ALIAS # Offset to name
-!define U_HANDLE U_NAME+LEN_NAME
-!define U_NOTE U_HANDLE+LEN_HANDLE+2
-!define U_COMP U_NOTE+LEN_NOTE
-!define U_COMMENT U_COMP+LEN_COMP+2
-
-!define U_NETMAIL U_COMMENT+LEN_COMMENT+2
-
-!define U_ADDRESS U_NETMAIL+LEN_NETMAIL+2
-!define U_LOCATION U_ADDRESS+LEN_ADDRESS
-!define U_ZIPCODE U_LOCATION+LEN_LOCATION
-
-!define U_PASS U_ZIPCODE+LEN_ZIPCODE+2
-!define U_PHONE U_PASS+8 # Offset to phone-number
-!define U_BIRTH U_PHONE+12 # Offset to users birthday
-!define U_MODEM U_BIRTH+8
-!define U_LASTON U_MODEM+8
-!define U_FIRSTON U_LASTON+8
-!define U_EXPIRE U_FIRSTON+8
-!define U_PWMOD U_EXPIRE+8
-
-!define U_LOGONS U_PWMOD+8+2
-!define U_LTODAY U_LOGONS+5
-!define U_TIMEON U_LTODAY+5
-!define U_TEXTRA U_TIMEON+5
-!define U_TTODAY U_TEXTRA+5
-!define U_TLAST U_TTODAY+5
-!define U_POSTS U_TLAST+5
-!define U_EMAILS U_POSTS+5
-!define U_FBACKS U_EMAILS+5
-!define U_ETODAY U_FBACKS+5
-!define U_PTODAY U_ETODAY+5
-
-!define U_ULB U_PTODAY+5+2
-!define U_ULS U_ULB+10
-!define U_DLB U_ULS+5
-!define U_DLS U_DLB+10
-!define U_CDT U_DLS+5
-!define U_MIN U_CDT+10
-
-!define U_LEVEL U_MIN+10+2 # Offset to Security Level
-!define U_FLAGS1 U_LEVEL+2 # Offset to Flags
-!define U_TL U_FLAGS1+8 # Offset to unused field
-!define U_FLAGS2 U_TL+2
-!define U_EXEMPT U_FLAGS2+8
-!define U_REST U_EXEMPT+8
-!define U_ROWS U_REST+8+2 # Number of Rows on user's monitor
-!define U_SEX U_ROWS+2 # Sex, Del, ANSI, color etc.
-!define U_MISC U_SEX+1 # Miscellaneous flags in 8byte hex
-!define U_OLDXEDIT U_MISC+8 # External editor Version 1 method
-!define U_LEECH U_OLDXEDIT+2 # two hex digits - leech attempt count
-!define U_CURSUB U_LEECH+2 # Current sub internal code
-!define U_CURDIR U_CURSUB+8 # Current dir internal code
-!define U_CMDSET U_CURDIR+8 # unused
-!define U_MAIN_CMD U_CMDSET+2+2 # unused
-!define U_XFER_CMD U_MAIN_CMD+40 # unused
-!define U_SCAN_CMD U_XFER_CMD+40+2 # unused
-!define U_MAIL_CMD U_SCAN_CMD+40 # unused
-!define U_FREECDT U_MAIL_CMD+40+2
-!define U_FLAGS3 U_FREECDT+10 # Flag set #3
-!define U_FLAGS4 U_FLAGS3+8 # Flag set #4
-!define U_XEDIT U_FLAGS4+8 # External editor code
-!define U_SHELL U_XEDIT+8 # Command shell code
-!define U_QWK U_SHELL+8 # QWK settings
-!define U_TMPEXT U_QWK+8 # QWK extension
-!define U_CHAT U_TMPEXT+3 # Chat settings
-!define U_NS_TIME U_CHAT+8 # New-file scan date/time
-!define U_PROT U_NS_TIME+8 # Default transfer protocol
-!define U_UNUSED U_PROT+1
-!define U_LEN U_UNUSED+28+2
-
-
-!define UM_DELETED .0 # Bit values for user.misc
-!define UM_ANSI .1 # Supports ANSI terminal emulation
-!define UM_COLOR .2 # Send color codes
-!define UM_RIP .3 # Supports RIP terminal emulation
-!define UM_UPAUSE .4 # Pause on every screen full
-!define UM_SPIN .5 # Spinning cursor - Same as K_SPIN
-!define UM_INACTIVE .6 # Inactive user slot
-!define UM_EXPERT .7 # Expert menu mode
-!define UM_ANFSCAN .8 # Auto New file scan
-!define UM_CLRSCRN .9 # Clear screen before each message
-!define UM_QUIET .10 # Quiet mode upon logon
-!define UM_BATCHFLAG .11 # File list allow batch dl flags
-!define UM_NETMAIL .12 # Forward e-mail to fidonet addr
-!define UM_CURSUB .13 # Remember current sub-board/dir
-!define UM_ASK_NSCAN .14 # Ask for newscanning upon logon
-!define UM_NO_EXASCII .15 # Don't send extended ASCII
-!define UM_ASK_SSCAN .16 # Ask for messages to you at logon
-!define UM_AUTOTERM .17 # Autodetect terminal type
-!define UM_COLDKEYS .18 # No hot-keys
-!define UM_EXTDESC .19 # Extended file descriptions
-!define UM_AUTOHANG .20 # Auto-hang-up after transfer
-!define UM_WIP .21 # Supports WIP terminal emulation
- # Bits in user.qwk
-!define QWK_FILES .0 # Include new files list
-!define QWK_EMAIL .1 # Include unread e-mail
-!define QWK_ALLMAIL .2 # Include ALL e-mail
-!define QWK_DELMAIL .3 # Delete e-mail after download
-!define QWK_BYSELF .4 # Include messages from self
-!define QWK_UNUSED .5 # Currently unused
-!define QWK_EXPCTLA .6 # Expand ctrl-a codes to ascii
-!define QWK_RETCTLA .7 # Retain ctrl-a codes
-!define QWK_ATTACH .8 # Include file attachments
-!define QWK_NOINDEX .9 # Do not create index files in QWK
-!define QWK_TZ .10 # Include "@TZ" time zone in msgs
-!define QWK_VIA .11 # Include "@VIA" seen-bys in msgs
-!define QWK_NOCTRL .12 # No extraneous control files
- # Bits in user.chat
-!define CHAT_ECHO .0 # Multinode chat echo
-!define CHAT_ACTION .1 # Chat actions
-!define CHAT_NOPAGE .2 # Can't be paged
-!define CHAT_NOACT .3 # No activity alerts
-!define CHAT_SPLITP .4 # Split screen private chat
-
- # For use with SET_USER_STRING function
-!define USER_STRING_ALIAS 0
-!define USER_STRING_REALNAME 1
-!define USER_STRING_HANDLE 2
-!define USER_STRING_COMPUTER 3
-!define USER_STRING_NOTE 4
-!define USER_STRING_ADDRESS 5
-!define USER_STRING_LOCATION 6
-!define USER_STRING_ZIPCODE 7
-!define USER_STRING_PASSWORD 8
-!define USER_STRING_BIRTHDAY 9
-!define USER_STRING_PHONE 10
-!define USER_STRING_MODEM 11
-!define USER_STRING_COMMENT 12
-!define USER_STRING_NETMAIL 13 # Requires v3 (03/02/00) or later
-
-# End of USERDEFS.INC
diff --git a/exec/userlist.js b/exec/userlist.js
deleted file mode 100644
index eac05253a540ddc5d3e9a692d6c654dbd7a10481..0000000000000000000000000000000000000000
--- a/exec/userlist.js
+++ /dev/null
@@ -1,27 +0,0 @@
-// userlist.js
-
-// A sample user listing script for Synchronet v3.1+
-
-// $Id$
-
-load("sbbsdefs.js");
-
-if(system.lastuser==undefined) /* v3.10 */
- lastuser=system.stats.total_users;
-else /* v3.11 */
- lastuser=system.lastuser;
-var u = new User(1);
-
-for(i=1;i<=lastuser;i++) {
- u.number=i;
- if(u.settings&USER_DELETED)
- continue;
- printf("%d/%d ",i,lastuser);
- printf("%-30s %-30s %s\r\n"
- ,u.alias
- ,u.location
- ,u.connection
- );
- if(bbs.sys_status&SS_ABORT)
- break;
-}
\ No newline at end of file
diff --git a/exec/wildcat.src b/exec/wildcat.src
deleted file mode 100644
index 04f5330e637353c74d95e2e907aca57ee0f78bd6..0000000000000000000000000000000000000000
--- a/exec/wildcat.src
+++ /dev/null
@@ -1,645 +0,0 @@
-# wildcat.src
-
-# $id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-:main
-cmd_home
-async
-compare_ars expert
-if_false
- clear_abort
- menu wildcat/main
- print "\r\nwhCommand >>? n"
-else
- print "\r\nyh@GRP@ @SUB@, wMAIN MENUy: ? n"
- end_if
-
-node_action node_main
-
-getcmd 1AEMHUQCNFTJGPIYWVSBDR?\r
-
-# Write command to log file
-logkey_comma
-
-# Commands
-cmdkey ?
- compare_ars expert
- if_true
- menu wildcat/main
- end_if
- end_cmd
-cmdkey M
- cmd_pop
- goto message
- end_cmd
-cmdkey U
- print "\r\nchList Users\r\n"
- mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
- getcmd LSA\r
- cmdkey L
- userlist_logons
- end_cmd
- cmdkey S
- userlist_sub
- end_cmd
- cmdkey A
- userlist_all
- end_cmd
- end_cmd
-
-cmdkey N
- menu logon
- pause
- end_cmd
-
-cmdkey C
- setstr "1"
- mail_send_feedback
- end_cmd
-cmdkey F
- cmd_pop
- goto transfers
- end_cmd
-cmdkey T
- exec_bin chat_sec
- end_cmd
-cmdkey J
- msg_select_area
- end_cmd
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- compare_ars expert
- if_false
- logoff
- else
- logoff_fast
- end_if
- end_cmd
-
-cmdkey P
- page_sysop
- pause
- end_cmd
-
-cmdkey I
- menu ../answer
- pause
- end_cmd
-
-cmdkey Y
- user_defaults
- end_cmd
-
-cmdkey W
- nodelist_users
- crlf
- pause
- end_cmd
-
-cmdkey S
- info_system
- crlf
- pause
- end_cmd
-
-cmdkey B
- text_file_section
- end_cmd
-
-cmdkey D
- xtrn_section
- end_cmd
-
-cmdkey E
- call E-mail
- end_cmd
-
-cmdkey A
- auto_message
- end_cmd
-
-cmdkey V
- print "\r\nyhUsername search string: w"
- getname 25
- finduser
- if_true
- print "yhVerified: w"
- printstr
- crlf
- end_if
- end_cmd
-
-cmdkey H
- toggle_user_misc UM_EXPERT
- print "\r\nExpert mode is now: "
- compare_ars EXPERT
- if_true
- print "ON"
- else
- print "OFF"
- end_if
- crlf
- end_cmd
-
-cmdkey 1
- compare_ars SYSOP or exempt Q or I or N
- if_true
- cmd_pop
- goto sysop
- end_if
- end_cmd
-
-cmdkey R
- info_user
- pause
- end_cmd
-
-end_cmd
-
-############################### E-mail Section ################################
-
-:e-mail
-cmd_home
-compare_ars expert
-if_false
- menu e-mail
- end_if
-async
-print "\r\nyhE-mail: n"
-getcmd ?SRFNUKQ\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu e-mail
- end_if
- end_cmd
-
-cmdkey S
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdkey U
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send_file
- end_cmd
-
-cmdkey R
- mail_read
- end_cmd
-
-cmdkey F
- setstr "1"
- mail_send_feedback
- end_cmd
-
-cmdkey N
- no_yes "\r\nAttach a file"
- if_true
- mail_send_netmail
- else
- mail_send_netfile
- end_if
- end_cmd
-
-cmdkey K
- mail_read_sent
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-################################ File Section #################################
-
-:transfers
-cmd_home
-async
-compare_ars expert
-if_false
- clear_abort
- menu wildcat/file
- print "\r\nwhCommand >>? n"
-else
- print "\r\nyh@LIB@ @DIR@, wFILE MENUy: ? n"
- end_if
-
-# Update node status
-node_action node_xfer
-getcmd 1QLDUNVMSGPIJEFH?\r
-logkey_comma
-
-cmdkey ?
- compare_ars expert
- if_true
- menu wildcat/file
- end_if
- end_cmd
-
-cmdkey H
- toggle_user_misc UM_EXPERT
- print "\r\nExpert mode is now: "
- compare_ars EXPERT
- if_true
- print "ON"
- else
- print "OFF"
- end_if
- crlf
- end_cmd
-
-cmdkey Q
- cmd_pop
- goto main
- end_cmd
-
-cmdkey L
- setstr "*.*"
- file_list
- end_cmd
-
-cmdkey D
- print "\r\nchDownload File(s)\r\n"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdkey U
- print "\r\nchUpload File\r\n"
- chkfile "../text/menu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdkey N
- print "\r\nbhUse c@NEWFILETIME@b for new file scan date/time"
- yes_no ""
- if_false
- file_ptrs_cfg
- if_false
- end_cmd
- end_if
- end_if
- file_new_scan
- end_cmd
-
-cmdkey V
- print "\r\nchView File(s)\r\n"
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-
-cmdkey M
- cmd_pop
- goto message
- end_cmd
-
-cmdkey S
- print "\r\nchSearch for Filename(s)\r\n"
- file_find_name
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- compare_ars expert
- if_false
- logoff
- else
- logoff_fast
- end_if
- end_cmd
-
-cmdkey P
- info_user
- pause
- end_cmd
-
-cmdkey I
- print "\r\nchList Extended File Information\r\n"
- getfilespec
- if_true
- file_list_extended
- end_if
- end_cmd
-
-cmdkey J
- file_select_area
- end_cmd
-
-cmdkey E
- file_batch_section
- end_cmd
-
-cmdkey F
- info_xfer_policy
- pause
- cls
- info_directory
- end_cmd
-
-cmdkey 1
- compare_ars SYSOP or exempt Q or I or N
- if_true
- cmd_pop
- goto sysop
- end_if
- end_cmd
-
-end_cmd
-
-############################### Message Section ###############################
-
-:message
-cmd_home
-async
-compare_ars expert
-if_false
- clear_abort
- menu wildcat/msg
- print "\r\nwhCommand >>? n"
-else
- print "\r\nyh@GRP@ @SUB@, wMESSAGE MENUy: ? n"
- end_if
-
-# Update node status
-node_action node_main
-getcmd 1GREFSQCUHJT?\r
-logkey_comma
-
-cmdkey ?
- compare_ars expert
- if_true
- menu wildcat/msg
- end_if
- end_cmd
-
-cmdkey Q
- cmd_pop
- goto main
- end_cmd
-
-cmdkey R
- cmd_home
- print "n\r\nyhReading Messages: [wNy]ew messages, [wSy]earch, "
- print "[wUy]nread personal,\r\n"
- print "[wJy]oin, or [wENTERy] to quit? "
- getstr 5
- logkey
-
- cmdstr N
- msg_new_scan
- end_cmd
-
- cmdstr S
- msg_find_text
- end_cmd
-
- cmdstr U
- msg_your_scan
- end_cmd
-
- cmdstr J
- msg_select_area
- end_cmd
-
- cmdstr ""
- cmd_pop
- end_cmd
- print "Invalid command.\r\n"
- cmd_pop
- end_cmd
-
-cmdkey E
- msg_select_area
- if_true
- msg_post
- end_if
- end_cmd
-
-cmdkey F
- cmd_pop
- goto transfers
- end_cmd
-
-cmdkey S
- print "\r\nchSearch for Text in Messages\r\n"
- msg_find_text
- end_cmd
-
-cmdkey C
- print "\r\nchCheck for Messages Posted to You\r\n"
- msg_your_scan
- end_cmd
-
-cmdkey U
- cmd_home
- compare_ars expert
- if_false
- menu maincfg
- end_if
- async
- print "\r\nyhConfig: n"
- getcmd ?QNPIS
- logkey
-
- cmdkey ?
- compare_ars expert
- if_true
- menu maincfg
- end_if
- end_cmd
-
- cmdkey N
- msg_new_scan_cfg
- end_cmd
-
- cmdkey S
- msg_your_scan_cfg
- end_cmd
-
- cmdkey P
- msg_ptrs_cfg
- end_cmd
-
- cmdkey I
- msg_ptrs_reinit
- end_cmd
-
- cmdkey Q
- cmd_pop
- end_cmd
-
- end_cmd
-
-cmdkey H
- toggle_user_misc UM_EXPERT
- print "\r\nExpert mode is now: "
- compare_ars EXPERT
- if_true
- print "ON"
- else
- print "OFF"
- end_if
- crlf
- end_cmd
-
-cmdkey J
- msg_select_area
- end_cmd
-
-cmdkey T
- msg_qwk
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- compare_ars expert
- if_false
- logoff
- else
- logoff_fast
- end_if
- end_cmd
-
-cmdkey 1
- compare_ars SYSOP or exempt Q or I or N
- if_true
- cmd_pop
- goto sysop
- end_if
- end_cmd
-
-end_cmd
-
-################################ Sysop Section ################################
-
-:sysop
-cmd_home
-async
-compare_ars expert
-if_false
- clear_abort
- menu wildcat/sysop
- print "\r\nwhCommand >>? n"
-else
- print "\r\nyh@GRP@ @SUB@, wSYSOP MENUy: ? n"
- end_if
-
-# Update node status
-node_action node_main
-getcmd JUQ?NFD1G2A\r
-logkey_comma
-
-cmdkey ?
- compare_ars expert
- if_true
- menu wildcat/sysop
- end_if
- end_cmd
-
-cmdkey J
- msg_select_area
- end_cmd
-
-cmdkey U
- chksyspass
- if_true
- setstr "1"
- user_edit
- end_if
- end_cmd
-
-cmdkey Q
- cmd_pop
- goto main
- end_cmd
-
-cmdkey F
- cmd_pop
- goto transfers
- end_cmd
-
-cmdkey D
- chksyspass
- if_true
- exec_int command
- end_if
- end_cmd
-
-cmdkey 1
- cmd_pop
- goto message
- end_cmd
-
-cmdkey G
- file_download_batch
- if_true
- end_cmd
- end_if
- compare_ars expert
- if_false
- logoff
- else
- logoff_fast
- end_if
- end_cmd
-
-cmdkey 2
- cmd_pop
- goto transfers
- end_cmd
-
-cmdkey A
- exec_int command /c %!SLOG
- end_cmd
-
-end_cmd
-
-
diff --git a/exec/wiplogin.src b/exec/wiplogin.src
deleted file mode 100644
index d4f3152e3ec493a2ce38a441d28f73691da0a28c..0000000000000000000000000000000000000000
--- a/exec/wiplogin.src
+++ /dev/null
@@ -1,126 +0,0 @@
-# wiplogin.src
-
-# $Id$
-
-# ANSWER.WIP requires button press
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-getkey
-
-#########################
-# TEXT.DAT Replacements #
-#########################
-
-replace_text 48 "@MENU:NUMBER@"
-replace_text 83 "@MENU:NUMBER@"
-replace_text 86 "@MENU:NUMBER@"
-replace_text 87 "@MENU:NUMBER@"
-replace_text 268 ""
-replace_text 292 ""
-replace_text 384 "@MENU:NUMBER@"
-replace_text 494 "@MENU:KEYBOARD@"
-replace_text 503 "@MENU:NUMBER@"
-replace_text 506 ""
-replace_text 559 "@MENU:YESNO@"
-replace_text 560 ""
-replace_text 561 ""
-replace_text 562 "@MENU:NOYES@"
-replace_text 563 "@MENU:PAUSE@"
-replace_text 570 ""
-replace_text 652 "@MENU:NUMBER@"
-replace_text 653 "@MENU:NUMBER@"
-replace_text 654 "@MENU:NUMBER@"
-replace_text 655 "@MENU:NUMBER@"
-
-##############
-# Login Menu #
-##############
-
-int c m
-
-:top
-compare c 10
-if_greater_or_equal
- hangup
- return
- end_if
-
-cmd_home
-clear_abort
-cls
-printfile "%zmenu/login.wip"
-sync
-print_local "\r\n[WIP] Login Menu: "
-
-getkey
-logkey_comma
-
-cmdkey L
- print_local "Login\r\n"
- print_local "Enter name: "
- printfile "%zmenu/namepass.wip"
- getstr str 25 K_UPRLWR|K_LOWPRIO|K_NOECHO
- truncsp str
- compare_str ""
- if_true
- add c 1
- end_cmd
- end_if
- print_local "Password: "
- login ""
- getkey
- if_true
- logon
- if_true
- return
- end_if
- end_if
- pause
- add c 2
- end_cmd
-
-cmdkey N
- print_local "New\r\n"
- setstr "%q"
- compare_str "VERT"
- if_true
- yes_no "Are you calling just to download Synchronet BBS software"
- if_true
- setstr "Guest"
- login "Password: "
- if_true
- logon
- if_true
- return
- end_if
- end_if
- end_if
- end_if
- newuser
- logon
- return
- end_cmd
-
-cmdkey G
- print_local "Guest\r\n"
- setstr "guest"
- login "Password: "
- if_true
- logon
- if_true
- return
- end_if
- end_if
- end_cmd
-
-cmdkey H
- print_local "Hang-up\r\n"
- hangup
- return
- end_cmd
-
-end_cmd
-
diff --git a/exec/wipshell.src b/exec/wipshell.src
deleted file mode 100644
index 99d99b6d05e2688a86b6bb7783608d699a161523..0000000000000000000000000000000000000000
--- a/exec/wipshell.src
+++ /dev/null
@@ -1,378 +0,0 @@
-# wipshell.src
-
-# WIP Windows Interface Protocol {tm} Durand Communications Networks, Inc.
-# Command Shell for Synchronet Multinode BBS Software
-
-# $Id$
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc
-
-compare_user_misc UM_COLDKEYS
-if_true
- toggle_user_misc UM_COLDKEYS
- end_if
-
-str tmp
-
-cmd_home
-clear_abort
-cls
-printfile_remote "%zmenu/wipmain.wip"
-node_action NODE_MAIN
-inc_main_cmds
-sync
-print_local "[WIP] Main Menu: "
-
-getkey
-logkey_comma
-
-cmdkey C
- print_local "Chat\r\n"
- exec_bin chat_sec
- end_cmd
-
-cmdkey D
- print_local "Default Settings\r\n"
- user_defaults
- end_cmd
-
-cmdkey E
- print_local "E-mail\r\n"
- cmd_home
- clear_abort
- cls
- printfile_remote "%zmenu/e-mail.wip"
- sync
- print_local "\r\n[WIP] E-mail Menu: "
- getkey
- logkey
- cmdkey S
- print_local "Send\r\n"
- call sendmail
- end_cmd
- cmdkey F
- print_local "Feedback\r\n"
- setstr "1"
- mail_send
- end_cmd
- cmdkey R
- print_local "Read\r\n"
- mail_read
- end_cmd
- cmdkey K
- print_local "Kill\r\n"
- mail_read_sent
- end_cmd
- cmdkey N
- print_local "NetMail\r\n"
- call sendnetmail
- end_cmd
- cmdkey Q
- print_local "Quit\r\n"
- cmd_pop
- end_cmd
- end_cmd
-
-cmdkey I
- print_local "Info\r\n"
- cmd_home
- clear_abort
- cls
- printfile_remote "%zmenu/info.wip"
- sync
- print_local "\r\n[WIP] Info Menu: "
- getkey
- logkey
- cmdkey T
- print_local "Text Files\r\n"
- text_file_section
- end_cmd
- cmdkey I
- print_local "System\r\n"
- info_system
- end_cmd
- cmdkey Y
- print_local "Your Stats\r\n"
- info_user
- end_cmd
- cmdkey L
- print_local "Callers\r\n"
- userlist_logons
- end_cmd
- cmdkey U
- print_local "User List\r\n"
- userlist_all
- end_cmd
- cmdkey Q
- print_local "Quit\r\n"
- cmd_pop
- end_cmd
- end_cmd
-
-cmdkey M
- print_local "Messages\r\n"
- cmd_home
- clear_abort
- cls
- printfile_remote "%zmenu/msgs.wip"
- sync
- print_local "\r\n[WIP] Messages Menu: "
- getkey
- logkey
- cmdkey C
- print_local "Configure\r\n"
- call msg_cfg
- end_cmd
- cmdkey R
- print_local "Read\r\n"
- msg_select_area
- if_true
- msg_read
- end_if
- end_cmd
- cmdkey N
- print_local "New Scan\r\n"
- msg_new_scan_all
- end_cmd
- cmdkey P
- print_local "Post\r\n"
- msg_select_area
- if_true
- msg_post
- end_if
- end_cmd
- cmdkey Q
- print_local "QWK\r\n"
- msg_qwk
- end_cmd
- cmdkey X
- print_local "Quit\r\n"
- cmd_pop
- end_cmd
- end_cmd
-
-
-cmdkey O
- print_local "Logoff\r\n"
- call logoffbbs
- end_cmd
-
-cmdkey S
- print_local "Match Maker\r\n"
- exec_xtrn SMM
- end_cmd
-
-cmdkey X
- print_local "Doors\r\n"
- xtrn_section
- end_cmd
-
-cmdkey F
- call file_transfers
- end_cmd
-
-end_cmd
-
-# End of main menu loop
-
-:sendmail
-print "\r\nbhSend E-mail to (User name or number): n"
-getname 25
-compare_str ""
-if_true
- return
- end_if
-compare_str "SYSOP"
-if_true
- setstr "1"
- end_if
-no_yes "\r\nAttach a file"
-if_false
- mail_send_file
-else
- mail_send
- end_if
-return
-
-:sendnetmail
-no_yes "\r\nAttach a file"
-if_false
- mail_send_netfile
-else
- mail_send_netmail
- end_if
-return
-
-:msg_cfg
-cmd_home
-clear_abort
-cls
-printfile "%zmenu/msgcfg.wip"
-sync
-print_local "\r\n[WIP] Message Scan Config: "
-getkey
-logkey
-cmdkey N
- print_local "New Scan\r\n"
- msg_new_scan_cfg
- end_cmd
-
-cmdkey P
- print_local "Pointers\r\n"
- msg_ptrs_cfg
- end_cmd
-
-cmdkey I
- print_local "Re-init\r\n"
- msg_ptrs_reinit
- end_cmd
-cmd_pop
-return
-
-:file_transfers
-
-cmd_home
-clear_abort
-cls
-printfile_remote "%zmenu/wipfile.wip"
-node_action NODE_XFER
-inc_file_cmds
-sync
-print_local "[WIP] File Menu: "
-
-getkey
-logkey_comma
-
-cmdkey B
- print_local "Batch\r\n"
- file_batch_section
- end_cmd
-
-cmdkey C
- print_local "Config\r\n"
- menu xfercfg
- async
- print "\r\nyhConfig: n"
- getcmd ?QBEP\r
- logkey
-
- cmdkey P
- file_ptrs_cfg
- end_cmd
-
- cmdkey B
- toggle_user_misc UM_BATCHFLAG
- end_cmd
-
- cmdkey E
- toggle_user_misc UM_EXTDESC
- end_cmd
- end_cmd
-
-
-cmdkey D
- print_local "Download\r\n"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdkey E
- print_local "File Info\r\n"
- getfilespec
- if_true
- file_list_extended
- end_if
- end_cmd
-
-cmdkey F
- print_local "Find Text\r\n"
- file_find_text_all
- end_cmd
-
-cmdkey L
- print_local "List Files\r\n"
- file_select_area
- if_false
- end_cmd
- end_if
- setstr "*.*"
- file_list
- end_cmd
-
-cmdkey N
- print_local "New Files\r\n"
- date_str tmp _ns_time
- sprintf str "bhUse c%sb for new file scan date/time" tmp
- yes_no "%s"
- if_false
- file_ptrs_cfg
- if_false
- end_cmd
- end_if
- end_if
- file_new_scan_all
- end_cmd
-
-cmdkey R
- print_local "Remove Files\r\n"
- getfilespec
- if_true
- file_remove
- end_if
- end_cmd
-
-cmdkey S
- print_local "Search for Filename\r\n"
- file_find_name_all
- end_cmd
-
-cmdkey U
- print_local "Upload\r\n"
- no_yes "Upload file to Sysop only"
- if_false
- file_upload_user
- end_cmd
- end_if
- file_select_area
- if_false
- end_cmd
- end_if
- chkfile "%ztext/menu/upload.*"
- if_true
- menu upload
- end_if
- file_upload
- end_cmd
-
-cmdkey V
- print_local "View file\r\n"
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-cmdpop
-return
-
-
-
-:logoffbbs
-file_download_batch
-if_false
- logoff
- end_if
-return
-
-
-
-# End of WIPSHELL.SRC
-
-
diff --git a/exec/wwiv.src b/exec/wwiv.src
deleted file mode 100644
index a05ec57a7c5d86397ca75abd9066061c0d842c79..0000000000000000000000000000000000000000
--- a/exec/wwiv.src
+++ /dev/null
@@ -1,821 +0,0 @@
-# WWIV emulation script for BAJA. It's as close to the real thing as the
-# compiler would allow. Enjoy. By Kitsune@1:264/227
-################################# Begins Here #################################
-
-!include sbbsdefs.inc
-
-# Set return point for main menu commands (via end_cmd)
-cmd_home
-
-# Display TEXT\MENU\MAIN.* if not in expert mode
-compare_ars expert
-if_false
- cls
- menu wwiv/main
- end_if
-
-# Update node status
-node_action NODE_MAIN
-async
-
-# Display main Prompt
-compare_ars exempt T
-if_true
- print "\r\nnT - @TUSED@\n\r"
-else
- print "\r\nnT - @TLEFT@\n\r"
- end_if
-print "yh(@GN@:@SN@) (@GRP@: @SUBL@) : n"
-
-# Get key (with / extended commands allowed)
-getkeye
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Hitting number changes current sub-board
-cmdkey digit
- ungetkey
- msg_get_sub_num
- end_cmd
-
-# Hitting /number changes current group
-cmdkey edigit
- ungetkey
- msg_get_grp_num
- end_cmd
-
-# Show the key hit
-printkey
-
-# Next sub-board
-cmdkey >
- msg_subboard_up
- end_cmd
-cmdkey }
- msg_subboard_up
- end_cmd
-cmdkey +
- msg_subboard_up
- end_cmd
-cmdkey =
- msg_subboard_up
- end_cmd
-
-# Previous sub-board
-cmdkey <
- msg_subboard_down
- end_cmd
-cmdkey {
- msg_subboard_down
- end_cmd
-cmdkey -
- msg_subboard_down
- end_cmd
-
-# Next group
-cmdkey ]
- msg_group_up
- end_cmd
-
-# Previous group
-cmdkey [
- msg_group_down
- end_cmd
-
-# String commands start with a semicolon
-cmdkey ;
- getstrupr 40
- exec_bin str_cmds
- end_cmd
-
-cmdkey T
- print "\r\n"
- call file_transfers
- end_cmd
-
-crlf
-pause_reset
-
-# Menu
-cmdkey ?
- compare_ars expert
- if_true
- menu wwiv/main
- end_if
- end_cmd
-
-# Sysop Menu
-compare_ars level 90 or exempt Q or I or N
-if_true
- cmdkey !
- menu sysmain
- end_cmd
- end_if
-
-# Commands
-
-cmdkey A
- auto_message
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey D
- user_defaults
- end_cmd
-
-cmdkey E
- call E-mail
- end_cmd
-
-cmdkey F
- print "\r\nchFind Text in Messages\r\n"
- msg_find_text
- end_cmd
-
-cmdkey /F
- msg_find_text_all
- end_cmd
-
-cmdkey G
- text_file_section
- end_cmd
-
-cmdkey I
- call main_info
- end_cmd
-
-cmdkey J
- msg_select_area
- end_cmd
-
-cmdkey L
- exec_xtrn SBL
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey $
- minute_bank
- end_cmd
-
-cmdkey N
- print "\r\nchNew Message Scan\r\n"
- msg_new_scan
- end_cmd
-
-cmdkey /N
- msg_new_scan_all
- end_cmd
-
-cmdkey O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey P
- msg_post
- end_cmd
-
-cmdkey M
- msg_qwk
- end_cmd
-
-cmdkey R
- msg_read
- end_cmd
-
-cmdkey S
- msg_read
- end_cmd
-
-cmdkey Y
- print "\r\nchScan for Messages Posted to You\r\n"
- msg_your_scan
- end_cmd
-
-cmdkey /S
- msg_your_scan_all
- end_cmd
-
-cmdkey U
- print "\r\nchList Users\r\n"
- mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
- getcmd LSA\r
-
- cmdkey L
- userlist_logons
- end_cmd
- cmdkey S
- userlist_sub
- end_cmd
- cmdkey A
- userlist_all
- end_cmd
-
- # fall-through for CR, Ctrl-C, etc
- end_cmd
-
-cmdkey /U
- userlist_all
- end_cmd
-
-cmdkey .
- xtrn_section
- end_cmd
-
-cmdkey Z
- print "\r\nchContinuous New Message Scan\r\n"
- msg_cont_scan
- end_cmd
-
-cmdkey /Z
- msg_cont_scan_all
- end_cmd
-
-cmdkey *
- msg_show_subboards
- end_cmd
-
-cmdkey /*
- msg_show_groups
- end_cmd
-
-cmdkey &
- call main_cfg
- end_cmd
-
-cmdkey #
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-cmdkey /#
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_ars expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-# shouldn't hit next line
-print "Problem in command shell."
-pause
-hangup
-
-############################### E-mail Section ################################
-
-:e-mail
-cmd_home
-compare_ars expert
-if_false
- menu E-MAIL
- end_if
-async
-print "\r\nyhE-mail: n"
-getcmd ?SRFNUKQ\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu E-MAIL
- end_if
- end_cmd
-
-cmdkey S
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send
- end_cmd
-
-cmdkey U
- print "_\r\nbhE-mail (User name or number): w"
- getname 25
- compare_str ""
- if_true
- end_cmd
- end_if
- compare_str "SYSOP"
- if_true
- setstr "1"
- end_if
- mail_send_file
- end_cmd
-
-cmdkey R
- mail_read
- end_cmd
-
-cmdkey F
- setstr "1"
- mail_send_feedback
- end_cmd
-
-cmdkey N
- mail_send_netmail
- end_cmd
-
-cmdkey K
- mail_read_sent
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-############################ Main Info Section ###############################
-
-:main_info
-cmd_home
-compare_ars expert
-if_false
- menu MAININFO
- end_if
-async
-print "\r\nyhInfo: n"
-getcmd ?QISVY\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu MAININFO
- end_if
- end_cmd
-
-cmdkey I
- info_system
- end_cmd
-
-cmdkey S
- info_subboard
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-cmdkey V
- info_version
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-########################### Main Config Section ##############################
-
-:main_cfg
-
-compare_ars expert
-if_false
- menu MAINCFG
- end_if
-async
-print "\r\nyhConfig: n"
-getcmd ?QNPIS\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu MAINCFG
- end_if
- goto main_cfg
- end_cmd
-
-cmdkey N
- msg_new_scan_cfg
- return
- end_cmd
-
-cmdkey S
- msg_your_scan_cfg
- return
- end_cmd
-
-cmdkey P
- msg_ptrs_cfg
- return
- end_cmd
-
-cmdkey I
- msg_ptrs_reinit
- return
- end_cmd
-
-return
-
-########################### File Transfer Section #############################
-
-:file_transfers
-
-cmd_home
-
-compare_ars expert
-if_false
- cls
- menu wwiv/transfer
- end_if
-
-# Update node status
-node_action NODE_XFER
-async
-
-# Display main Prompt
-compare_ars exempt T
-if_true
- print "\r\nnT - @TUSED@\n\r"
-else
- print "\r\nnT - @TLEFT@\n\r"
- end_if
-print "yh[@LN@:@DN@] [@LIB@: @DIRL@] : n"
-
-# Get key (with / extended commands allowed)
-getkeye
-
-# Do nothing for control keys and space
-cmdkey ^@
- end_cmd
-cmdkey ^M
- end_cmd
-cmdkey ^S
- end_cmd
- cmdkey "
- end_cmd
-
-# Write command to log file
-logkey_comma
-
-# Hitting number changes current sub-board
-cmdkey digit
- ungetkey
- file_get_dir_num
- end_cmd
-
-# Hitting /number changes current group
-cmdkey edigit
- ungetkey
- file_get_lib_num
- end_cmd
-
-# Show the key hit
-printkey
-
-# Next directory
-cmdkey >
- file_directory_up
- end_cmd
-cmdkey }
- file_directory_up
- end_cmd
-cmdkey +
- file_directory_up
- end_cmd
-cmdkey =
- file_directory_up
- end_cmd
-
-# Previous directory
-cmdkey <
- file_directory_down
- end_cmd
-cmdkey {
- file_directory_down
- end_cmd
-cmdkey -
- file_directory_down
- end_cmd
-
-# Next library
-cmdkey ]
- file_library_up
- end_cmd
-
-# Previous library
-cmdkey [
- file_library_down
- end_cmd
-
-# String commands start with a semicolon
-cmdkey ;
- getstrupr 40
- exec_bin str_cmds
- end_cmd
-
-cmdkey Q
- cmd_pop
- print "\r\n"
- return
- end_cmd
-
-crlf
-pause_reset
-
-# Menu
-cmdkey ?
- compare_ars expert
- if_true
- menu wwiv/TRANSFER
- end_if
- end_cmd
-
-# Sysop Menu
-compare_ars level 90
-if_true
- cmdkey !
- menu sysxfer
- end_cmd
- end_if
-
-# Commands
-
-cmdkey B
- file_batch_section
- end_cmd
-
-cmdkey C
- exec_bin chat_sec
- end_cmd
-
-cmdkey D
- print "\r\nchDownload File(s)\r\n"
- file_download_batch
- if_true
- end_cmd
- end_if
- getfilespec
- if_true
- file_download
- end_if
- end_cmd
-
-cmdkey /D
- print "\r\nchDownload File(s) from User(s)\r\n"
- file_download_user
- end_cmd
-
-cmdkey E
- print "\r\nchList Extended File Information\r\n"
- getfilespec
- if_true
- file_list_extended
- end_if
- end_cmd
-
-cmdkey F
- print "\r\nchFind Text in File Descriptions (no wildcards)\r\n"
- file_find_text
- end_cmd
-
-cmdkey /F
- file_find_text_all
- end_cmd
-
-cmdkey I
- call file_info
- end_cmd
-
-cmdkey J
- file_select_area
- end_cmd
-
-cmdkey L
- print "\r\nchList Files\r\n"
- getfilespec
- if_true
- file_list
- end_if
- end_cmd
-
-cmdkey /L
- nodelist_all
- end_cmd
-
-cmdkey N
- print "\r\nchNew File Scan\r\n"
- file_new_scan
- end_cmd
-
-cmdkey /N
- file_new_scan_all
- end_cmd
-
-cmdkey O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff
- end_cmd
-
-cmdkey /O
- file_download_batch
- if_true
- end_cmd
- end_if
- logoff_fast
- end_cmd
-
-cmdkey R
- print "\r\nchRemove/Edit File(s)\r\n"
- getfilespec
- if_true
- file_remove
- end_if
- end_cmd
-
-cmdkey S
- print "\r\nchSearch for Filename(s)\r\n"
- file_find_name
- end_cmd
-
-cmdkey /S
- file_find_name_all
- end_cmd
-
-cmdkey G
- file_temp_section
- end_cmd
-
-cmdkey U
- print "\r\nchUpload File\r\n"
- file_upload
- end_cmd
-
-cmdkey /U
- print "\r\nchUpload File to User\r\n"
- file_upload_user
- end_cmd
-
-cmdkey V
- print "\r\nchView File(s)\r\n"
- getfilespec
- if_true
- file_view
- end_if
- end_cmd
-
-cmdkey Z
- print "\r\nchUpload File to Sysop\r\n"
- file_upload_sysop
- end_cmd
-
-cmdkey *
- file_show_directories
- end_cmd
-
-cmdkey /*
- file_show_libraries
- end_cmd
-
-cmdkey T
- :xfercfg
- compare_ars expert
- if_false
- menu XFERCFG
- end_if
- async
- print "\r\nyhConfig: n"
- getcmd ?QBP\r
- logkey
-
- cmdkey ?
- compare_ars expert
- if_true
- menu XFERCFG
- end_if
- goto xfercfg
- end_cmd
-
- cmdkey P
- file_ptrs_cfg
- end_cmd
-
- cmdkey B
- toggle_user_misc UM_BATCHFLAG
- end_cmd
- end_cmd
-
-cmdkey #
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-cmdkey /#
- print "\r\nchType the actual number, not the symbol.\r\n"
- end_cmd
-
-cmdkey P
- file_ptrs_cfg
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-# fall through
-print "\r\nchUnrecognized command."
-compare_ars expert
-if_true
- print " Hit 'i?nch' for a menu."
- end_if
-crlf
-end_cmd
-
-# shouldn't hit next line
-print "Problem in command shell."
-pause
-hangup
-
-############################ File Info Section ###############################
-
-:file_info
-cmd_home
-compare_ars expert
-if_false
- menu XFERINFO
- end_if
-async
-print "\r\nyhInfo: n"
-getcmd ?TYDUQ\r
-logkey
-
-cmdkey ?
- compare_ars expert
- if_true
- menu XFERINFO
- end_if
- end_cmd
-
-cmdkey T
- info_xfer_policy
- end_cmd
-
-cmdkey Y
- info_user
- end_cmd
-
-cmdkey D
- info_directory
- end_cmd
-
-cmdkey U
- userlist_dir
- end_cmd
-
-cmdkey Q
- cmd_pop
- return
- end_cmd
-
-cmd_pop
-return
-
-#end of DEFAULT.CST
diff --git a/exec/yesnobar.src b/exec/yesnobar.src
deleted file mode 100644
index 3a9a23230b631cb223a46895d375bcebc19af396..0000000000000000000000000000000000000000
--- a/exec/yesnobar.src
+++ /dev/null
@@ -1,58 +0,0 @@
-# yesnobar.src
-
-# Sep 28 1995 - Digital Man
-
-# $Id $
-
-# @format.tab-size 8, @format.use-tabs true
-
-!include sbbsdefs.inc # _question
-
-str tmp
-
-copy tmp str
-setstr "Y"
-compare_strn 2 _question "\r\n"
-if_true
- crlf
- shift_str _question 2
- end_if
-printf "nbh[c�b] y%s? " _question
-:top
-compare_str "Y"
-if_equal
- print "h4w[Yes]nbh No "
-else
- print "nbh Yes 4w[No]"
- end_if
-getkey
-print "\b\b\b\b\b\b\b\b\b\1n\1h\1>"
-compare_key ^M
-if_true
- ungetstr
- copy str tmp
- return
- end_if
-
-compare_keys "YN"
-if_true
- ungetkey
- copy str tmp
- return
- end_if
-
-compare_key ^@
-if_true
- copy str tmp
- return
- end_if
-
-# Toggle
-compare_str "Y"
-if_true
- setstr "N"
-else
- setstr "Y"
- end_if
-goto top
-
diff --git a/install/FILE_ID.DIZ b/install/FILE_ID.DIZ
deleted file mode 100644
index e3439ce1d8a30586c5bfc18982c024838a5c7e28..0000000000000000000000000000000000000000
--- a/install/FILE_ID.DIZ
+++ /dev/null
@@ -1,12 +0,0 @@
-Synchronet v3.10L Internet BBS Software
-for Windows 95/98/ME/NT/2K/XP - Install
-or Upgrade from v2.x or v3.x. Includes
-integrated Telnet, RLogin, FTP, NNTP
-and Mail servers. Up to 250 nodes in one
-window! Supports popular DOS doors, 32-bit
-WinSock doors, multinode chat, QWK, FidoNet,
-and much, much more! Highly customizable.
-Your BBS Software for the New Millennium!
-Check www.synchro.net for the latest and
-greatest. See v310_new.txt for list of new
-features.
diff --git a/install/GNUmakefile b/install/GNUmakefile
deleted file mode 100644
index 8a540d70ab3b0ee1d6cd2ad0bc6d8f1b247bfa9a..0000000000000000000000000000000000000000
--- a/install/GNUmakefile
+++ /dev/null
@@ -1,226 +0,0 @@
-# Global GNU makefile for Synchronet
-#
-# Usage:
-# ------
-# [g]make install [variable=value]...
-#
-# variables:
-# ----------
-# DEBUG = Set to force a debug build
-# RELEASE = Set to force a release build
-# INSTALL = Set to CLASSIC (All in one sbbs dir) or UNIX (use /etc, /sbin...)
-# SYMLINK = Don't copy binaries, rather create symlinks in $(SBBSDIR)/exec
-# SBBSDIR = Directory to do CLASSIC install to
-# PREFIX = Set to the UNIX base directory to install to
-# bcc = Set to use Borland compiler
-# os = Set to the OS name (Not required)
-# SBBSUSER = Owner for the installed files
-# SBBSGROUP = Group for the installed files
-# NOCVS = do not do CVS update
-# JSLIB = Full path and filename to JavaScript library.
-# CVSTAG = CVS tag to pull
-
-ifndef DEBUG
- ifndef RELEASE
- DEBUG := 1
- endif
-endif
-
-ifdef SYMLINK
- INSBIN := ln -sf
-else
- INSBIN := cp
-endif
-
-ifdef bcc
- CCPRE := bcc
- MKFLAGS += bcc=1
-else
- CCPRE := gcc
-endif
-
-INSTALL ?= CLASSIC # Can be CLASSIC or UNIX
-CVSTAG ?= HEAD # CVS tag to pull... HEAD means current.
-
-SBBSUSER ?= $(USER)
-SBBSGROUP ?= $(GROUP)
-SBBSCHOWN := $(SBBSUSER):$(SBBSGROUP)
-
-ifeq ($(INSTALL),UNIX)
- PREFIX ?= /usr/local
- MKFLAGS += PREFIX=$(PREFIX)
-else # Classic Install
- SBBSDIR ?= $(shell pwd)
-endif
-
-os ?= $(shell uname)
-os := $(shell echo $(os) | awk '/.*/ { print tolower($$1)}')
-
-MKFLAGS += os=$(os)
-
-ifdef DEBUG
- SUFFIX := debug
- MKFLAGS += DEBUG=1
-else
- SUFFIX := release
- MKFLAGS += RELEASE=1
-endif
-
-ifdef JSLIB
- MKFLAGS += JSLIB=$(JSLIB)
-endif
-
-all: binaries baja externals $(SBBSDIR)/docs
-
-binaries: sbbs3 scfg
-
-externals: sbj sbl
-
-
-sbbs3: $(SBBSDIR)/src/sbbs3 $(SBBSDIR)/src/uifc $(SBBSDIR)/src/xpdev \
- $(SBBSDIR)/include \
- $(SBBSDIR)/lib/mozilla/js/$(os).$(SUFFIX) \
- $(SBBSDIR)/lib/mozilla/nspr/$(os).$(SUFFIX) \
- $(SBBSDIR)/lib/fltk/$(os)
- $(MAKE) -C $(SBBSDIR)/src/sbbs3 $(MKFLAGS)
-
-scfg: $(SBBSDIR)/src/sbbs3 $(SBBSDIR)/src/uifc $(SBBSDIR)/src/xpdev \
- $(SBBSDIR)/include \
- $(SBBSDIR)/lib/fltk/$(os)
- $(MAKE) -C $(SBBSDIR)/src/sbbs3/scfg $(MKFLAGS)
-
-baja: $(SBBSDIR)/exec binaries
- $(MAKE) -C $(SBBSDIR)/exec $(MKFLAGS) BAJAPATH=$(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/baja
-
-sbj: $(SBBSDIR)/xtrn
- $(MAKE) -C $(SBBSDIR)/xtrn/sbj $(MKFLAGS)
-
-sbl: $(SBBSDIR)/xtrn
- $(MAKE) -C $(SBBSDIR)/xtrn/sbl $(MKFLAGS) SBBS_SRC=$(SBBSDIR)/src/sbbs3 XPDEV=$(SBBSDIR)/src/xpdev
-
-node_dirs: $(SBBSDIR)/node1 $(SBBSDIR)/node2 $(SBBSDIR)/node3 $(SBBSDIR)/node4
-
-install: all $(SBBSDIR)/ctrl $(SBBSDIR)/text node_dirs
-ifeq ($(INSTALL),UNIX)
- @echo ERROR: UNIX Install type not yet supported.
- fail
-else
- @echo Installing to $(SBBSDIR)
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/baja $(SBBSDIR)/exec/baja
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/node $(SBBSDIR)/exec/node
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/chksmb $(SBBSDIR)/exec/chksmb
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/fixsmb $(SBBSDIR)/exec/fixsmb
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/addfiles $(SBBSDIR)/exec/addfiles
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/makeuser $(SBBSDIR)/exec/makeuser
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/smbutil $(SBBSDIR)/exec/smbutil
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/sbbs $(SBBSDIR)/exec/sbbs
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/sbbsmono $(SBBSDIR)/exec/sbbs
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/sbbsecho $(SBBSDIR)/exec/sbbsecho
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/echocfg $(SBBSDIR)/exec/echocfg
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).exe.$(SUFFIX)/filelist $(SBBSDIR)/exec/filelist
- $(INSBIN) $(SBBSDIR)/src/sbbs3/scfg/$(CCPRE).$(os).$(SUFFIX)/scfg $(SBBSDIR)/exec/scfg
- $(INSBIN) $(SBBSDIR)/src/sbbs3/scfg/$(CCPRE).$(os).$(SUFFIX)/scfghelp.ixb $(SBBSDIR)/exec/scfghelp.ixb
- $(INSBIN) $(SBBSDIR)/src/sbbs3/scfg/$(CCPRE).$(os).$(SUFFIX)/scfghelp.dat $(SBBSDIR)/exec/scfghelp.dat
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).lib.$(SUFFIX)/libsbbs.so $(SBBSDIR)/exec/libsbbs.so
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).lib.$(SUFFIX)/libftpsrvr.so $(SBBSDIR)/exec/libftpsrvr.so
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).lib.$(SUFFIX)/libmailsrvr.so $(SBBSDIR)/exec/libmailsrvr.so
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).lib.$(SUFFIX)/libservices.so $(SBBSDIR)/exec/libservices.so
- $(INSBIN) $(SBBSDIR)/src/sbbs3/$(CCPRE).$(os).lib.$(SUFFIX)/libwebsrvr.so $(SBBSDIR)/exec/libwebsrvr.so
-# kludge... must fix this to allow moz JS libs and such. ToDo
- $(INSBIN) $(SBBSDIR)/lib/mozilla/*/$(os).$(SUFFIX)/*.so $(SBBSDIR)/exec/
- -chown -R $(SBBSCHOWN) $(SBBSDIR)
- -chown -h $(SBBSCHOWN) $(SBBSDIR)/exec/*
-endif
-
-# CVS checkout command-line
-CVS_CO = @cd $(SBBSDIR); cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs co
-
-$(SBBSDIR)/ctrl: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) ctrl
-endif
-
-$(SBBSDIR)/text: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) text
-endif
-
-$(SBBSDIR)/docs: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) docs
-endif
-
-$(SBBSDIR)/exec: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) exec
-endif
-
-$(SBBSDIR)/node1: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) node1
-endif
-
-$(SBBSDIR)/node2: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) node2
-endif
-
-$(SBBSDIR)/node3: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) node3
-endif
-
-$(SBBSDIR)/node4: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) node4
-endif
-
-$(SBBSDIR)/xtrn: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) -N xtrn
-endif
-
-$(SBBSDIR)/src/sbbs3: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) src/sbbs3
-endif
-
-$(SBBSDIR)/src/uifc: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) src/uifc
-endif
-
-$(SBBSDIR)/src/xpdev: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) src/xpdev
-endif
-
-$(SBBSDIR)/include: cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) include
-endif
-
-$(SBBSDIR)/lib/mozilla/js/$(os).$(SUFFIX): cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) lib/mozilla/js/$(os).$(SUFFIX)
-endif
-
-$(SBBSDIR)/lib/mozilla/nspr/$(os).$(SUFFIX): cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) lib/mozilla/nspr/$(os).$(SUFFIX)
-endif
-
-$(SBBSDIR)/lib/fltk/$(os): cvslogin
-ifndef NOCVS
- $(CVS_CO) -r $(CVSTAG) lib/fltk/$(os)
-endif
-
-cvslogin: $(SBBSDIR)
-ifndef NOCVS
- @echo Press \<ENTER\> when prompted for password
- @cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login
-endif
-
-$(SBBSDIR):
- @[ ! -e $(SBBSDIR) ] && mkdir $(SBBSDIR);
-
diff --git a/install/checkout.bat b/install/checkout.bat
deleted file mode 100755
index b2b2c3626b73b959693845016ee7be2b155f55d5..0000000000000000000000000000000000000000
--- a/install/checkout.bat
+++ /dev/null
@@ -1,8 +0,0 @@
-@echo off
-echo Synchronet source code check-out for Win32
-echo $Id$
-setlocal
-set HOME=c:\
-set CVSROOT=:pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs
-cvs co src-sbbs3
-cvs co lib-win32%1
diff --git a/install/install.sf6 b/install/install.sf6
deleted file mode 100644
index c022c22375beddb7ab33af39d7b82c1abe735e4c..0000000000000000000000000000000000000000
Binary files a/install/install.sf6 and /dev/null differ
diff --git a/install/sbbs_src.exclude b/install/sbbs_src.exclude
deleted file mode 100644
index 628d9566b6d87ee38c9e75ae5c514855c6605fb7..0000000000000000000000000000000000000000
--- a/install/sbbs_src.exclude
+++ /dev/null
@@ -1,9 +0,0 @@
-CVS
-CVS/*
-*.o
-*.d
-*.bat
-*.~*
-.#*
-bcc.*
-gcc.*
diff --git a/install/sbbs_src.lst b/install/sbbs_src.lst
deleted file mode 100644
index 9e85df1fdcc34c147e8459314f399a19200d8984..0000000000000000000000000000000000000000
--- a/install/sbbs_src.lst
+++ /dev/null
@@ -1,16 +0,0 @@
-install/GNUmakefile
-install/termcap
-install/terminfo
-include/mozilla
-src/xpdev
-src/uifc
-src/sbbs3
-ctrl
-text
-docs
-exec
-xtrn
-node1
-node2
-node3
-node4
diff --git a/install/tarlibs.sh b/install/tarlibs.sh
deleted file mode 100644
index ebcad3714232652a855b680fd42eabc853b4e8c2..0000000000000000000000000000000000000000
--- a/install/tarlibs.sh
+++ /dev/null
@@ -1,5 +0,0 @@
-#/bin/sh
-tar cvzf lib-linux.tgz lib/mozilla/*/linux.*/*.so
-tar cvzf lib-freebsd.tgz lib/mozilla/*/freebsd.*/*.so
-tar cvzf lib-openbsd.tgz lib/mozilla/*/openbsd.*/*.so
-tar cvzf lib-unix.tgz lib/mozilla/*/*/*.so
diff --git a/install/tarsrc.sh b/install/tarsrc.sh
deleted file mode 100644
index fe843119f8359f580bbeb76afb4beb3e361e9310..0000000000000000000000000000000000000000
--- a/install/tarsrc.sh
+++ /dev/null
@@ -1,2 +0,0 @@
-#/bin/sh
-tar -cvzf sbbs_src.tgz -X install/sbbs_src.exclude -T install/sbbs_src.lst
diff --git a/install/termcap b/install/termcap
deleted file mode 100644
index ac460f63c8faf2c959e97c0df59a9619d28c4139..0000000000000000000000000000000000000000
--- a/install/termcap
+++ /dev/null
@@ -1,26 +0,0 @@
-# Needs xt?
-# am rather than YE?
-# ic=\E[@ (Insert char - nonstandard?)
-# IC=\E[%d@ (Insert multiple chars - nonstandard?)
-# bt=\E[Z (Backtab - nonstandard?)
-# dc=\E[P (Delete char - nonstandard?)
-# DC=\E[%dP (Delete X chars - nonstandard?)
-# dl=\E[M (Delete line - nonstandard?)
-# :DL=\E[%dM (Delete X lines - nonstandard?)
-# al=\E[L (Insert line - nonstandard?)
-# AL=\E[%dL (Insert X lines - nonstandard?)
-# cv=\E[%i%dH (Move to row x - don't change y - unsupported?)
-ansi-bbs:\
- :eo:mi:ms:NP:ut:am:\
- :co#80:li#24:Co#8:pa#64:\
- :bl=^G:cr=^M:cl=\E[2J\E[H:ce=\E[K:cd=\E[J:cm=\E[%i%d;%dH:do=\E[B:\
- :ho=\E[H:le=\E[D:nd=\E[C:up=\E[A:mb=\E[5m:md=\E[1m:\
- :mk=\E[8m:mr=\E[7m:us=\E[4m:me=\E[m:\
- :DO=\E[%dB:LE=\E[%dD:RI=\E[%dC:UP=\E[%dA:\
- :r1=\E[m\E[2J\E[H:rc=\E[u:sc=\E[s:ta=^I:cb=\E[1K:\
- :AF=\E[3%dm:AB=\E[4%dm:op=\E[m:\
- :ac=l\332m\300k\277j\331u\264t\303v\301w\302q\304x\263n\305`^Da\260f\370g\361~\371.^Y-^Xh\261i^U0\333y\363z\362:\
- :ku=\E[A:kd=\E[B:kr=\E[C:kl=\E[D:\
- :kb=^H:kD=\177:kH=\E[Y:kN=\E[U:kP=\E[V:\
- :kh=\E[H:@7=\E[K:\
- :k1=\EOP:k2=\EOQ:k3=\EOw:k4=\EOx:
diff --git a/install/terminfo b/install/terminfo
deleted file mode 100644
index a5bd63e4d3d8f13b9ac535802498c979975d1727..0000000000000000000000000000000000000000
--- a/install/terminfo
+++ /dev/null
@@ -1,26 +0,0 @@
-# Needs xt?
-# am rather than YE?
-# ic=\E[@ (Insert char - nonstandard?)
-# IC=\E[%d@ (Insert multiple chars - nonstandard?)
-# bt=\E[Z (Backtab - nonstandard?)
-# dc=\E[P (Delete char - nonstandard?)
-# DC=\E[%dP (Delete X chars - nonstandard?)
-# dl=\E[M (Delete line - nonstandard?)
-# :DL=\E[%dM (Delete X lines - nonstandard?)
-# al=\E[L (Insert line - nonstandard?)
-# AL=\E[%dL (Insert X lines - nonstandard?)
-# cv=\E[%i%dH (Move to row x - don't change y - unsupported?)
-ansi-bbs,
- am, bce, eo, mir, msgr, npc,
- colors#8, cols#80, lines#24, pairs#64,
- acsc=l\332m\300k\277j\331u\264t\303v\301w\302q\304x\263n\305`\004a\260f\370g\361~\371.\031-\030h\261i^U0\333y\363z\362,
- bel=^G, blink=\E[5m, bold=\E[1m, clear=\E[2J\E[H, cr=^M,
- cub=\E[%p1%dD, cub1=\E[D, cud=\E[%p1%dB, cud1=\E[B,
- cuf=\E[%p1%dC, cuf1=\E[C, cup=\E[%i%p1%d;%p2%dH,
- cuu=\E[%p1%dA, cuu1=\E[A, ed=\E[J, el=\E[K, el1=\E[1K,
- home=\E[H, ht=^I, ind=^J, invis=\E[8m, kbs=^H, kcub1=\E[D,
- kcud1=\E[B, kcuf1=\E[C, kcuu1=\E[A, kdch1=\177, kend=\E[K,
- kf1=\EOP, kf2=\EOQ, kf3=\EOw, kf4=\EOx, khome=\E[H, kll=\E[Y,
- knp=\E[U, kpp=\E[V, nel=^M^J, op=\E[m, rc=\E[u, rev=\E[7m,
- rs1=\E[m\E[2J\E[H, sc=\E[s, setab=\E[4%p1%dm,
- setaf=\E[3%p1%dm, sgr0=\E[m, smul=\E[4m,
diff --git a/node1/XTRN.DAT b/node1/XTRN.DAT
deleted file mode 100644
index a3fafcfedafdf7cf35bcd36950ead685b8aace58..0000000000000000000000000000000000000000
--- a/node1/XTRN.DAT
+++ /dev/null
@@ -1,7 +0,0 @@
-User
-System
-Sysop
-Guru
-/sbbs/ctrl/
-/sbbs/data/
-; This is a bogus xtrn.dat, just enough for SMB2SMM to run.
\ No newline at end of file
diff --git a/node1/node.cnf b/node1/node.cnf
deleted file mode 100644
index 79d7a50a007232d7cd9f9d6b8dd03bd43ecb24c7..0000000000000000000000000000000000000000
Binary files a/node1/node.cnf and /dev/null differ
diff --git a/node2/XTRN.DAT b/node2/XTRN.DAT
deleted file mode 100644
index a3fafcfedafdf7cf35bcd36950ead685b8aace58..0000000000000000000000000000000000000000
--- a/node2/XTRN.DAT
+++ /dev/null
@@ -1,7 +0,0 @@
-User
-System
-Sysop
-Guru
-/sbbs/ctrl/
-/sbbs/data/
-; This is a bogus xtrn.dat, just enough for SMB2SMM to run.
\ No newline at end of file
diff --git a/node2/node.cnf b/node2/node.cnf
deleted file mode 100644
index 79d7a50a007232d7cd9f9d6b8dd03bd43ecb24c7..0000000000000000000000000000000000000000
Binary files a/node2/node.cnf and /dev/null differ
diff --git a/node3/XTRN.DAT b/node3/XTRN.DAT
deleted file mode 100644
index a3fafcfedafdf7cf35bcd36950ead685b8aace58..0000000000000000000000000000000000000000
--- a/node3/XTRN.DAT
+++ /dev/null
@@ -1,7 +0,0 @@
-User
-System
-Sysop
-Guru
-/sbbs/ctrl/
-/sbbs/data/
-; This is a bogus xtrn.dat, just enough for SMB2SMM to run.
\ No newline at end of file
diff --git a/node3/node.cnf b/node3/node.cnf
deleted file mode 100644
index 79d7a50a007232d7cd9f9d6b8dd03bd43ecb24c7..0000000000000000000000000000000000000000
Binary files a/node3/node.cnf and /dev/null differ
diff --git a/node4/XTRN.DAT b/node4/XTRN.DAT
deleted file mode 100644
index a3fafcfedafdf7cf35bcd36950ead685b8aace58..0000000000000000000000000000000000000000
--- a/node4/XTRN.DAT
+++ /dev/null
@@ -1,7 +0,0 @@
-User
-System
-Sysop
-Guru
-/sbbs/ctrl/
-/sbbs/data/
-; This is a bogus xtrn.dat, just enough for SMB2SMM to run.
\ No newline at end of file
diff --git a/node4/node.cnf b/node4/node.cnf
deleted file mode 100644
index 79d7a50a007232d7cd9f9d6b8dd03bd43ecb24c7..0000000000000000000000000000000000000000
Binary files a/node4/node.cnf and /dev/null differ
diff --git a/src/build/mkdep b/src/build/mkdep
deleted file mode 100755
index 6f2e6095dff6a1f20f437336a94b7ed20987f125..0000000000000000000000000000000000000000
--- a/src/build/mkdep
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/bin/sh -
-#
-# Copyright (c) 1991, 1993
-# The Regents of the University of California. All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in the
-# documentation and/or other materials provided with the distribution.
-# 3. All advertising materials mentioning features or use of this software
-# must display the following acknowledgement:
-# This product includes software developed by the University of
-# California, Berkeley and its contributors.
-# 4. Neither the name of the University nor the names of its contributors
-# may be used to endorse or promote products derived from this software
-# without specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# @(#)mkdep.gcc.sh 8.1 (Berkeley) 6/6/93
-# $FreeBSD: src/usr.bin/mkdep/mkdep.gcc.sh,v 1.18 1999/08/28 01:04:04 peter Exp $
-
-D=.depend # default dependency file is .depend
-append=0
-pflag=
-outpath=.
-objfile=
-outfile=
-ALL_ARGS=
-
-while :
- do case "$1" in
- # -a appends to the depend file
- -a)
- append=1
- shift ;;
-
- # -f allows you to select a makefile name
- -f)
- D=$2
- shift; shift ;;
-
- # the -p flag produces "program: program.c" style dependencies
- # so .o's don't get produced
- -p)
- pflag=p
- shift ;;
- -MMD)
- shift;;
- -o)
- outfile=$2
- objfile=`echo $outfile | sed -e 's;gcc.*/;;g'`
- outpath=`echo $outfile | sed -e 's;/[^/]*;;g'`
- D=$outpath\/$D
- shift; shift ;;
-
- *)
- ALL_ARGS="$ALL_ARGS $1"
- shift ;;
- esac
- test -z "$1" && break
-done
-
-TMP=_mkdep$$
-trap 'rm -f $TMP ; trap 2 ; kill -2 $$' 1 2 3 13 15
-trap 'rm -f $TMP' 0
-
-# For C sources, mkdep must use exactly the same cpp and predefined flags
-# as the compiler would. This is easily arranged by letting the compiler
-# pick the cpp. mkdep must be told the cpp to use for exceptional cases.
-CC=${CC-"cc"}
-MKDEP_CPP=${MKDEP_CPP-"${CC} -E"}
-MKDEP_CPP_OPTS=${MKDEP_CPP_OPTS-"-M"};
-
-echo "# $@" > $TMP # store arguments for debugging
-
-if $MKDEP_CPP $MKDEP_CPP_OPTS $ALL_ARGS | sed -e "s;$objfile:;$outfile:;g;" >> $TMP; then :
-else
- echo 'mkdep: compile failed' >&2
- exit 1
-fi
-
-case x$pflag in
- x) case $append in
- 0) sed -e 's; \./; ;g' < $TMP > $D;;
- *) sed -e 's; \./; ;g' < $TMP >> $D;;
- esac
- ;;
- *) case $append in
- 0) sed -e 's;\.o:;:;' -e 's; \./; ;g' < $TMP > $D;;
- *) sed -e 's;\.o:;:;' -e 's; \./; ;g' < $TMP >> $D;;
- esac
- ;;
-esac
-
-exit $?
diff --git a/src/odoors/DOOR.CFG b/src/odoors/DOOR.CFG
deleted file mode 100644
index b68fd752b132167093a78cbe086fa24607a73d5d..0000000000000000000000000000000000000000
--- a/src/odoors/DOOR.CFG
+++ /dev/null
@@ -1,341 +0,0 @@
-; DOOR.CFG - Sample OpenDoors door configuration file
-;
-; This configuration file can be used by the sysop to customize an OpenDoors
-; door for use on their own system. The information in this file is NOT usually
-; needed, and the file can be left as is, or even erased, without effecting the
-; door's performance. OpenDoors is designed to run on almost any BBS system
-; automatically, without requiring anything but to the door's .EXE file.
-; However, there are many cases where the sysop may wish to customize a door's
-; operation using this configuration file. The configuration file system is
-; provided to allow the customization of options such as paging hours, maximum
-; time permitted within the door, etc., and to allow OpenDoors doors to be run
-; under even the most non-typical BBS setups.
-;
-; Any text following a semi-colon (;), and blank lines, are ignored.
-;
-;------------------------------------------------------------------------------
-;
-; BBS system directory. Indicates where the door information file (drop file)
-; can be found. Remove the semi-colon (;) to activate this option.
-;
-;BBSDir C:\BBS
-;
-;------------------------------------------------------------------------------
-;
-; The door's working directory. This is where the door's system files are
-; located. Remove the semi-colon (;) to activate this option.
-;
-;DoorDir C:\BBS\MYDOOR
-;
-;------------------------------------------------------------------------------
-;
-; Local mode override. Forces door to always operate in local test mode.
-; Remove the semi-colon (;) to activate this option. When this mode is
-; activated, no door information file is required and default settings are
-; used for the user's name, location, etc.
-;
-;LocalMode
-;
-;------------------------------------------------------------------------------
-;
-; Door personality setting. This setting selects one of a number of sysop
-; interface personalities. Each personality setting emulates the status line
-; format and sysop function keys of a particular BBS package. Valid
-; personality settings are:
-;
-; Standard (OpenDoors style, simplified from RA)
-; PCBoard
-; RemoteAccess
-; Wildcat
-;
-Personality Standard
-;
-;------------------------------------------------------------------------------
-;
-; Log File options. "LogFileName" specifies filename (path optional) where the
-; door should record log information. To disable the log file altogether,
-; remove the semi-colon (;) from the "DisableLogging" line.
-;
-;LogFileName DOOR.LOG
-;DisableLogging
-;
-;------------------------------------------------------------------------------
-;
-; BBS node number that door is running on. Only used if OpenDoors is unable
-; to determine the node number by some other means.
-;
-Node 1
-;
-;------------------------------------------------------------------------------
-;
-; Sysop paging hours. Sysop paging will be permitted beginning at the start
-; time, up until, but not including, the end time. Times should be in 24-hour
-; format. To disable paging on a particular day, set the paging start and end
-; times to the same time. To make paging always available, set the start time
-; to 0:00 and the end time to 23:59.
-;
-; Start Time End Time
-SundayPagingHours 9:00 22:00
-MondayPagingHours 8:30 22:00
-TuesdayPagingHours 8:30 22:00
-WednesdayPagingHours 8:30 22:00
-ThursdayPagingHours 8:30 22:00
-FridayPagingHours 8:30 22:00
-SaturdayPagingHours 9:00 22:00
-;
-;------------------------------------------------------------------------------
-;
-; Duration of sysop page. Value indicates the number of beeps that compose the
-; sysop page alarm, with one beep sounded per second.
-;
-PageDuration 10
-;
-;------------------------------------------------------------------------------
-;
-; Maximum length of time a user is permitted to access the door. If the user's
-; total remaining time on the BBS is less than this value, the user will only
-; be permitted to access the door for this shorter length of time. This option
-; may be disabled by placing a semi-colon (;) at the beginning of the line.
-; When this option is disabled, the user will be permitted to use the full
-; of their remaining time on the BBS within the door.
-;
-;MaximumDoorTime 15
-;
-;------------------------------------------------------------------------------
-;
-; Inactivity timeout. Specifies the maximum number of seconds that may elapse
-; without the user pressing any key, before the user will be automatically
-; disconnected. A value of 0 disables inactivity timeouts.
-;
-InactivityTimeout 200
-;
-;------------------------------------------------------------------------------
-;
-; Name of the sysop. OpenDoors can usually determine the sysop's name from the
-; information passed to the door by the BBS. However, some BBS software does
-; not supply this information to doors. In such cases, if the sysop's name is
-; required by the door, it may be supplied here. Remove the semi-colon (;) to
-; activate this option.
-;
-;SysopName The Sysop
-;
-;------------------------------------------------------------------------------
-;
-; Name of the BBS. OpenDoors can usually determine the name of the BBS from
-; the information passed to the door by the BBS. However, some BBS software
-; does not supply this information to door programs. In such cases, if the
-; name of the BBS is needed by the door, it may be supplied here. Remove the
-; semi-colon (;) to activate this option.
-;
-;SystemName Unnamed BBS
-;
-;------------------------------------------------------------------------------
-;
-; Door colour options. These options specify the various text colours that
-; will be used by the door if ANSI or AVATAR graphics modes are available.
-; Colours are specified in the format:
-;
-; {Bright} {Flashing} [Foreground Colour] on [Background Colour]
-;
-; Where foreground and background colours are one of:
-;
-; Black
-; Blue
-; Green
-; Cyan
-; Red
-; Magenta
-; Yellow / Brown
-; White / Grey
-;
-; Note that some of these options (such as those that pertain to files
-; listings) are not used for all doors.
-;
-ChatUserColour Bright white on black
-ChatSysopColour Bright red on black
-FileListTitleColour Bright yellow on black
-FileListNameColour Bright yellow on black
-FileListSizeColour Bright magenta on black
-FileListDescriptionColour Cyan on black
-FileListOfflineColour Bright red on black
-PagePromptColour Bright white on black
-PopupMenuTitleColour Bright white on grey
-PopupMenuBorderColour Black on grey
-PopupMenuTextColour Black on grey
-PopupMenuKeyColour Red on grey
-PopupMenuHighlightColour Grey on black
-PopupMenuHighKeyColour Red on black
-;
-;------------------------------------------------------------------------------
-;
-; Memory swapping options. These options are generally not needed, but can be
-; used to customize OpenDoor's swapping behaviour. "SwappingDir" can be used
-; to specify which directory or directories should be used for swapping.
-; Multiple directory paths can be seperated using a semi-colon.
-; "SwappingNoEMS" can be used to prevent any swapping from being done to EMS
-; memory, and "SwappingDisable" can be used to disable memory swapping
-; altogether. Remove the semi-colon (;) to activate any of these options.
-;
-;SwappingDir C:\
-;SwappingNoEMS
-;SwappingDisable
-;
-;------------------------------------------------------------------------------
-;
-; Serial port options. These options are generally not needed, as these
-; settings can usually be determined from the BBS door information file.
-; "LockedBPS" specifies the the BPS rate at which the door should communicate
-; with the modem. "SerialPort" specifies the port port number that the modem
-; is connected to. Unless you have reassigned the port numbers through your
-; FOSSIL drive, port 0 corresponds to COM1, port 1 corresponds to COM2, and
-; so on. Remove the semi-colon (;) to activate either of these options.
-;
-;LockedBPS 38400
-;SerialPort 0
-;
-;
-; Under DOS, a FOSSIL driver is normally used for serial I/O if one is
-; available. If a FOSSIL driver has not been loaded, the door communicates
-; directly with the modem. Removing the semi-colon (;) from the "NoFossil"
-; option causes the door to always communicate directly with the modem,
-; bypassing any FOSSIL driver.
-;
-;NoFossil
-;
-;------------------------------------------------------------------------------
-;
-; The following options only apply for the MS-DOS version of this program,
-; and only if a FOSSIL driver is NOT being used for serial communications.
-; If a FOSSIL driver IS being used, these options are normally set on the
-; FOSSIL driver command line. Under Windows, these options are set in the
-; control panel.
-;
-; Hexidecimal address of the serial port. This address can usually be
-; determined automatically for ports COM1, COM2, COM3, and COM4, and is
-; normally only required for ports COM5 and higher. Remove the semi-colon
-; (;) to activate this option.
-;
-;PortAddress 2F8
-;
-;
-; Interrupt request line that the serial port is using. May be any IRQ line
-; from 1 to 15. By default, IRQ line 4 is used for ports COM1: and COM3:,
-; while IRQ line 3 is used for all other ports. Remove the semi-colon (;)
-; to activate this option.
-;
-;PortIRQ 4
-;
-;
-; Serial I/O buffer sizes. "ReceiveBuffer" specifies the number of bytes in
-; the serial I/O receive buffer. You may want to increase this buffer size
-; if you find that characters being sent from the user's modem are being lost.
-; "TransmitBuffer" specifies the number of bytes in the serial I/O transmit
-; buffer. You may want to increase this buffer size for improved performance
-; in some multitasking environments. A transmit buffer size smaller than 3072
-; bytes is not recommended.
-;
-ReceiveBuffer 256
-TransmitBuffer 3072
-;
-;
-; UART FIFO buffers. Normally, OpenDoors will use 16550A UART FIFO buffers
-; if they are available. You can prevent OpenDoors from using the FIFO
-; buffers, even if they are available, by removing the semi-colon before
-; the "NoFIFO" keyword. The "FIFOTriggerSize" specifies how many characters
-; may be placed in the FIFO buffers before an serial I/O interrupt is
-; envoked. Valid values are 1, 4, 8 and 14 bytes. The default value is 4
-; bytes.
-;
-;NoFIFO
-FIFOTriggerSize 4
-;
-;------------------------------------------------------------------------------
-;
-; The following options control if and how the Windows version of this program
-; disables DTR response by the modem prior to exiting. Normally, the sequence
-; of modem commands specified by DisableDTR is sent before exiting, to prevent
-; the modem from hanging up. To disable this feature, remove the semi-colon
-; (;) at the beginning of the NoDTRDisable line.
-;
-; DisableDTR specifies a series of commands to be sent to the modem, and
-; responses to be received by the modem. Each command and response is
-; separated by a space. A tilde (~) character denotes a one second pause, and
-; a pipe (|) denotes a CR.
-;
-;NoDTRDisable
-DisableDTR ~+++ OK AT&D0| OK ATO|
-;
-;------------------------------------------------------------------------------
-;
-; Custom door information file support. OpenDoors automatically recognizes
-; most door information file (drop file) formats, including DORINFO?.DEF,
-; EXITINFO.BBS, DOOR.SYS, SFDOORS.DAT, CALLINFO.BBS and CHAIN.TXT. However,
-; to permit OpenDoors doors to operate on BBS systems that produce a different
-; format file, you may define a custom door information file format. A custom
-; door information file format is defined using the "CustomFileName" command,
-; followed by one or more lines beginning with the "CustomFileLine" command.
-;
-; The "CustomFileName" option specifies the filename used to distinguish this
-; file format from other file formats. This filename should not include a
-; path. To specify the path where the door information file is located, use
-; the BBSDir setting, near the beginning of this file. If the filename of the
-; custom format is the same as that of one of the built-in formats, the custom
-; format will override the built-in format.
-;
-; The actual format of the custom file is specified using a number of lines
-; that begin with the keyword "CustomFileLine". Each of these lines will
-; correspond to a single line in the door information file, with the option
-; following the "CustomFileLine" keyword specifying the information that can
-; be found on that line. This can be one of the following keywords:
-;
-; Ignore - Causes the next line in the door information
-; file to be ignored. Use on lines for which none
-; of the options below apply.
-; ComPort - COM? port the modem is connected to
-; (0 indicates local mode)
-; FossilPort - Fossil port number the modem is connected to
-; ModemBPS - BPS rate at which to communicate with modem
-; (0 or non-numerical value indicates local mode)
-; LocalMode - 1, T or Y if door is operating in local mode
-; UserName - Full name of the user
-; UserFirstName - First name(s) of the user
-; UserLastName - Last name of the user
-; Alias - The user's psuedonym / handle
-; HoursLeft - Hours user has left online
-; MinutesLeft - Minutes user has left online, or time left online
-; in format hh:mm
-; SecondsLeft - Seconds user has left online, or time left online
-; in format hh:mm:ss or format mm:ss
-; (If more than one of the above time options are
-; used, the user time left is taken to be the total
-; of all of these values.)
-; ANSI - 1, T, Y or G for ANSI graphics mode
-; AVATAR - 1, T or Y for AVATAR graphics mode
-; RIP - 1, T or Y for RIP graphics mode
-; PagePausing - 1, T or Y if user wishes a pause at end of screen
-; ScreenLength - Number of lines on user's screen
-; ScreenClearing - 1, T or Y if screen clearing mode is on
-; Security - The user's security level / access level
-; City - City the user is calling from
-; Node - Node number user is connected to
-; SysopName - Full name of the sysop
-; SysopFirstName - The sysop's first name(s)
-; SysopLastName - The sysop's last name
-; SystemName - Name of the BBS
-;
-;
-CustomFileName EXAMPLE.DEF ; Same format as DORINFO?.DEF
-CustomFileLine SystemName
-CustomFileLine SysopFirstName
-CustomFileLine SysopLastName
-CustomFileLine ComPort
-CustomFileLine ModemBPS
-CustomFileLine Ignore
-CustomFileLine UserFirstName
-CustomFileLine UserLastName
-CustomFileLine City
-CustomFileLine ANSI
-CustomFileLine Security
-CustomFileLine MinutesLeft
-;
-;------------------------------------------------------------------------------
diff --git a/src/odoors/DORINFO1.DEF b/src/odoors/DORINFO1.DEF
deleted file mode 100644
index 32be55548455175366e99f8a3954b40743bed1bb..0000000000000000000000000000000000000000
--- a/src/odoors/DORINFO1.DEF
+++ /dev/null
@@ -1,12 +0,0 @@
-TEST BBS
-THE
-SYSOP
-COM0
-0 BAUD,N,8,1
-0
-TEST
-USER
-UNKNOWN LOCATION
-1
-10
-60
diff --git a/src/odoors/DOS.mak b/src/odoors/DOS.mak
deleted file mode 100644
index 314f35c8ad35005a9288cf28cda8653343cc8dfe..0000000000000000000000000000000000000000
--- a/src/odoors/DOS.mak
+++ /dev/null
@@ -1,422 +0,0 @@
-# OpenDoors 6.10
-# (C) Copyright 1991 - 1997 by Brian Pirie. All Rights Reserved.
-#
-#
-# File: DOS.mak
-#
-# Description: Makefile used to build the MS-DOS OpenDoors libraries from
-# the sources. Usage is described below.
-#
-# Revisions: Date Ver Who Change
-# ---------------------------------------------------------------
-# Oct 13, 1994 6.00 BP New file header format.
-# Oct 13, 1994 6.00 BP Made directories configurable.
-# Oct 13, 1994 6.00 BP Erase tlib-created backup file.
-# Oct 14, 1994 6.00 BP Added ODGen.h dependencies.
-# Oct 14, 1994 6.00 BP Added ODPlat.c module.
-# Oct 31, 1994 6.00 BP Added headers dependency constant.
-# Nov 01, 1994 6.00 BP Added ODUtil.c module.
-# Dec 31, 1994 6.00 BP Added -B option for Borland Cs.
-# Jan 01, 1995 6.00 BP Added ODKrnl.c, ODKrnl.h.
-# Jan 29, 1995 6.00 BP Added ODCmdLn.c.
-# Nov 16, 1995 6.00 BP Added ODInQue.c, and new headers.
-# Nov 21, 1995 6.00 BP Created ODInit1.c, ODInit2.c.
-# Dec 02, 1995 6.00 BP Added ODRes.h
-# Dec 02, 1995 6.00 BP Added ODFrame.c, ODFrame.h.
-# Dec 02, 1995 6.00 BP Added ODStat.h, ODSwap.h.
-# Dec 04, 1995 6.00 BP Changes for building Win32 version.
-# Dec 05, 1995 6.00 BP Split into makefiles for each platform
-# Dec 07, 1995 6.00 BP Added ODEdit.c.
-# Jan 04, 1996 6.00 BP Added ODGetIn.c.
-# Feb 09, 1996 6.00 BP Renamed ODInit?.* to ODInEx?.*
-# Feb 19, 1996 6.00 BP Changed version number to 6.00.
-# Mar 03, 1996 6.10 BP Begin version 6.10.
-#
-###############################################################################
-#
-# USAGE INFORMATION
-#
-###############################################################################
-#
-# Command Line: make -fDOS.mak -DTARGET=?
-# or
-# nmake -fDOS.mak "TARGET=?"
-#
-# Where: "TARGET=?" - Specifies which version of the library should be
-# built. TARGET can be set to:
-#
-# t - MS-DOS version, tiny memory model
-# s - MS-DOS version, small memory model
-# c - MS-DOS version, compact memory model
-# m - MS-DOS version, medium memory model
-# l - MS-DOS version, large memory model
-# h - MS-DOS version, huge memory model
-#
-# Setting must be in lower case for Borland compilers,
-# uppercase for Microsoft compilers.
-#
-###############################################################################
-#
-# CONFIGURATION
-#
-# Customize this section of the makefile to provide the relevant information
-# for your compiler, assembler (if any) and build environment.
-#
-###############################################################################
-# Compiler executable file name. Use:
-#
-# tcc - For Borland Turbo C and Turbo C++
-# bcc - For Borland C++
-# cl - For Microsoft compilers
-#
-CC=tcc
-#
-#------------------------------------------------------------------------------
-#
-# Assembler executable file name. Use:
-#
-# tasm - For Turbo Assembler
-# masm - For Microsoft Macro Assembler
-#
-AS=tasm
-#
-#------------------------------------------------------------------------------
-#
-# Library managment utility. Use:
-#
-# tlib - For Borland compilers
-# lib - For Microsoft compilers
-#
-LIB=tlib
-#
-#------------------------------------------------------------------------------
-#
-# MS-DOS compiler command-line flags. Use:
-#
-# -m$(TARGET) -c -O -G -Z -d -B - For Borland compilers including Turbo C
-# /a$(TARGET) /c /nologo - For Microsoft compilers
-#
-CFLAGS=-m$(TARGET) -c -O -G -Z -d -Ic:\progra~1\tc\include
-#
-#------------------------------------------------------------------------------
-#
-# Assembler command-line flags.
-#
-AFLAGS=/mx
-ADEFLCODE=/dLCODE
-ADEFLDATA=/dLDATA
-#
-#------------------------------------------------------------------------------
-#
-# Output directories. customize for your own preferences. Note that trailing
-# backslash (\) characters are required.
-#
-SOURCEDIR=.\ # Comments required
-ODHEADERDIR=.\ # in order to
-OBJDIR=..\obj\ # avoid line
-LIBDIR=..\lib\ # concatentation
-#
-###############################################################################
-#
-# DEPENDENCIES
-#
-# You won't normally have to change anything after this point in this makefile.
-#
-###############################################################################
-#
-# Define primary target.
-#
-all: $(LIBDIR)ODoor$(TARGET).lib
-#
-#------------------------------------------------------------------------------
-#
-# Name of all headers.
-#
-HEADERS= $(HEADERDIR)ODCom.h\
- $(HEADERDIR)ODCore.h\
- $(HEADERDIR)ODFrame.h\
- $(HEADERDIR)ODGen.h\
- $(HEADERDIR)ODInEx.h\
- $(HEADERDIR)ODInQue.h\
- $(HEADERDIR)ODKrnl.h\
- $(HEADERDIR)ODPlat.h\
- $(HEADERDIR)ODRes.h\
- $(HEADERDIR)ODScrn.h\
- $(HEADERDIR)ODStat.h\
- $(HEADERDIR)ODSwap.h\
- $(HEADERDIR)ODTypes.h\
- $(HEADERDIR)ODUtil.h\
- $(HEADERDIR)OpenDoor.h
-#
-#------------------------------------------------------------------------------
-#
-# Build from C sources.
-#
-$(OBJDIR)odauto$(TARGET).obj : $(SOURCEDIR)odauto.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odauto.c
- command /c erase $(OBJDIR)odauto$(TARGET).obj
- move odauto.obj $(OBJDIR)odauto$(TARGET).obj
-
-$(OBJDIR)odblock$(TARGET).obj : $(SOURCEDIR)odblock.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odblock.c
- command /c erase $(OBJDIR)odblock$(TARGET).obj
- move odblock.obj $(OBJDIR)odblock$(TARGET).obj
-
-$(OBJDIR)odcfile$(TARGET).obj : $(SOURCEDIR)odcfile.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcfile.c
- command /c erase $(OBJDIR)odcfile$(TARGET).obj
- move odcfile.obj $(OBJDIR)odcfile$(TARGET).obj
-
-$(OBJDIR)odcmdln$(TARGET).obj : $(SOURCEDIR)odcmdln.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcmdln.c
- command /c erase $(OBJDIR)odcmdln$(TARGET).obj
- move odcmdln.obj $(OBJDIR)odcmdln$(TARGET).obj
-
-$(OBJDIR)odcom$(TARGET).obj : $(SOURCEDIR)odcom.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcom.c
- command /c erase $(OBJDIR)odcom$(TARGET).obj
- move odcom.obj $(OBJDIR)odcom$(TARGET).obj
-
-$(OBJDIR)odcore$(TARGET).obj : $(SOURCEDIR)odcore.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcore.c
- command /c erase $(OBJDIR)odcore$(TARGET).obj
- move odcore.obj $(OBJDIR)odcore$(TARGET).obj
-
-$(OBJDIR)oddrbox$(TARGET).obj : $(SOURCEDIR)oddrbox.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)oddrbox.c
- command /c erase $(OBJDIR)oddrbox$(TARGET).obj
- move oddrbox.obj $(OBJDIR)oddrbox$(TARGET).obj
-
-$(OBJDIR)odedit$(TARGET).obj : $(SOURCEDIR)odedit.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odedit.c
- command /c erase $(OBJDIR)odedit$(TARGET).obj
- move odedit.obj $(OBJDIR)odedit$(TARGET).obj
-
-$(OBJDIR)odedstr$(TARGET).obj : $(SOURCEDIR)odedstr.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odedstr.c
- command /c erase $(OBJDIR)odedstr$(TARGET).obj
- move odedstr.obj $(OBJDIR)odedstr$(TARGET).obj
-
-$(OBJDIR)odemu$(TARGET).obj : $(SOURCEDIR)odemu.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odemu.c
- command /c erase $(OBJDIR)odemu$(TARGET).obj
- move odemu.obj $(OBJDIR)odemu$(TARGET).obj
-
-$(OBJDIR)odgetin$(TARGET).obj : $(SOURCEDIR)odgetin.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odgetin.c
- command /c erase $(OBJDIR)odgetin$(TARGET).obj
- move odgetin.obj $(OBJDIR)odgetin$(TARGET).obj
-
-$(OBJDIR)odgraph$(TARGET).obj : $(SOURCEDIR)odgraph.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odgraph.c
- command /c erase $(OBJDIR)odgraph$(TARGET).obj
- move odgraph.obj $(OBJDIR)odgraph$(TARGET).obj
-
-$(OBJDIR)odinex1$(TARGET).obj : $(SOURCEDIR)odinex1.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odinex1.c
- command /c erase $(OBJDIR)odinex1$(TARGET).obj
- move odinex1.obj $(OBJDIR)odinex1$(TARGET).obj
-
-$(OBJDIR)odinex2$(TARGET).obj : $(SOURCEDIR)odinex2.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odinex2.c
- command /c erase $(OBJDIR)odinex2$(TARGET).obj
- move odinex2.obj $(OBJDIR)odinex2$(TARGET).obj
-
-$(OBJDIR)odinque$(TARGET).obj : $(SOURCEDIR)odinque.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odinque.c
- command /c erase $(OBJDIR)odinque$(TARGET).obj
- move odinque.obj $(OBJDIR)odinque$(TARGET).obj
-
-$(OBJDIR)odkrnl$(TARGET).obj : $(SOURCEDIR)odkrnl.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odkrnl.c
- command /c erase $(OBJDIR)odkrnl$(TARGET).obj
- move odkrnl.obj $(OBJDIR)odkrnl$(TARGET).obj
-
-$(OBJDIR)odlist$(TARGET).obj : $(SOURCEDIR)odlist.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odlist.c
- command /c erase $(OBJDIR)odlist$(TARGET).obj
- move odlist.obj $(OBJDIR)odlist$(TARGET).obj
-
-$(OBJDIR)odlog$(TARGET).obj : $(SOURCEDIR)odlog.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odlog.c
- command /c erase $(OBJDIR)odlog$(TARGET).obj
- move odlog.obj $(OBJDIR)odlog$(TARGET).obj
-
-$(OBJDIR)odmulti$(TARGET).obj : $(SOURCEDIR)odmulti.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odmulti.c
- command /c erase $(OBJDIR)odmulti$(TARGET).obj
- move odmulti.obj $(OBJDIR)odmulti$(TARGET).obj
-
-$(OBJDIR)odplat$(TARGET).obj : $(SOURCEDIR)odplat.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odplat.c
- command /c erase $(OBJDIR)odplat$(TARGET).obj
- move odplat.obj $(OBJDIR)odplat$(TARGET).obj
-
-$(OBJDIR)odpcb$(TARGET).obj : $(SOURCEDIR)odpcb.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odpcb.c
- command /c erase $(OBJDIR)odpcb$(TARGET).obj
- move odpcb.obj $(OBJDIR)odpcb$(TARGET).obj
-
-$(OBJDIR)odpopup$(TARGET).obj : $(SOURCEDIR)odpopup.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odpopup.c
- command /c erase $(OBJDIR)odpopup$(TARGET).obj
- move odpopup.obj $(OBJDIR)odpopup$(TARGET).obj
-
-$(OBJDIR)odprntf$(TARGET).obj : $(SOURCEDIR)odprntf.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odprntf.c
- command /c erase $(OBJDIR)odprntf$(TARGET).obj
- move odprntf.obj $(OBJDIR)odprntf$(TARGET).obj
-
-$(OBJDIR)odra$(TARGET).obj : $(SOURCEDIR)odra.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odra.c
- command /c erase $(OBJDIR)odra$(TARGET).obj
- move odra.obj $(OBJDIR)odra$(TARGET).obj
-
-$(OBJDIR)odscrn$(TARGET).obj : $(SOURCEDIR)odscrn.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odscrn.c
- command /c erase $(OBJDIR)odscrn$(TARGET).obj
- move odscrn.obj $(OBJDIR)odscrn$(TARGET).obj
-
-$(OBJDIR)odspawn$(TARGET).obj : $(SOURCEDIR)odspawn.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odspawn.c
- command /c erase $(OBJDIR)odspawn$(TARGET).obj
- move odspawn.obj $(OBJDIR)odspawn$(TARGET).obj
-
-$(OBJDIR)odstand$(TARGET).obj : $(SOURCEDIR)odstand.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odstand.c
- command /c erase $(OBJDIR)odstand$(TARGET).obj
- move odstand.obj $(OBJDIR)odstand$(TARGET).obj
-
-$(OBJDIR)odstat$(TARGET).obj : $(SOURCEDIR)odstat.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odstat.c
- command /c erase $(OBJDIR)odstat$(TARGET).obj
- move odstat.obj $(OBJDIR)odstat$(TARGET).obj
-
-$(OBJDIR)odsys$(TARGET).obj : $(SOURCEDIR)odsys.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odsys.c
- command /c erase $(OBJDIR)odsys$(TARGET).obj
- move odsys.obj $(OBJDIR)odsys$(TARGET).obj
-
-$(OBJDIR)odutil$(TARGET).obj : $(SOURCEDIR)odutil.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odutil.c
- command /c erase $(OBJDIR)odutil$(TARGET).obj
- move odutil.obj $(OBJDIR)odutil$(TARGET).obj
-
-$(OBJDIR)odwcat$(TARGET).obj : $(SOURCEDIR)odwcat.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odwcat.c
- command /c erase $(OBJDIR)odwcat$(TARGET).obj
- move odwcat.obj $(OBJDIR)odwcat$(TARGET).obj
-
-$(OBJDIR)odwin$(TARGET).obj : $(SOURCEDIR)odwin.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odwin.c
- command /c erase $(OBJDIR)odwin$(TARGET).obj
- move odwin.obj $(OBJDIR)odwin$(TARGET).obj
-#
-#------------------------------------------------------------------------------
-#
-# Build from assembly sources.
-#
-$(OBJDIR)odswapt.obj : $(SOURCEDIR)odswap.asm
- $(AS) $(AFLAGS) $(SOURCEDIR)odswap.asm
- command /c erase $(OBJDIR)odswapt.obj
- move odswap.obj $(OBJDIR)odswapt.obj
-
-$(OBJDIR)odswaps.obj : $(SOURCEDIR)odswap.asm
- $(AS) $(AFLAGS) $(SOURCEDIR)odswap.asm
- command /c erase $(OBJDIR)odswaps.obj
- move odswap.obj $(OBJDIR)odswaps.obj
-
-$(OBJDIR)odswapc.obj : $(SOURCEDIR)odswap.asm
- $(AS) $(AFLAGS) $(ADEFLDATA) $(SOURCEDIR)odswap.asm
- command /c erase $(OBJDIR)odswapc.obj
- move odswap.obj $(OBJDIR)odswapc.obj
-
-$(OBJDIR)odswapm.obj : $(SOURCEDIR)odswap.asm
- $(AS) $(AFLAGS) $(ADEFLCODE) $(SOURCEDIR)odswap.asm
- command /c erase $(OBJDIR)odswapm.obj
- move odswap.obj $(OBJDIR)odswapm.obj
-
-$(OBJDIR)odswapl.obj : $(SOURCEDIR)odswap.asm
- $(AS) $(AFLAGS) $(ADEFLDATA) $(ADEFLCODE) $(SOURCEDIR)odswap.asm
- command /c erase $(OBJDIR)odswapl.obj
- move odswap.obj $(OBJDIR)odswapl.obj
-
-$(OBJDIR)odswaph.obj : $(SOURCEDIR)odswap.asm
- $(AS) $(AFLAGS) $(ADEFLDATA) $(ADEFLCODE) $(SOURCEDIR)odswap.asm
- command /c erase $(OBJDIR)odswaph.obj
- move odswap.obj $(OBJDIR)odswaph.obj
-#
-#------------------------------------------------------------------------------
-#
-# Build library from objects.
-#
-OBJECTS= $(OBJDIR)odauto$(TARGET).obj\
- $(OBJDIR)odblock$(TARGET).obj\
- $(OBJDIR)odcfile$(TARGET).obj\
- $(OBJDIR)odcmdln$(TARGET).obj\
- $(OBJDIR)odcom$(TARGET).obj\
- $(OBJDIR)odcore$(TARGET).obj\
- $(OBJDIR)oddrbox$(TARGET).obj\
- $(OBJDIR)odedit$(TARGET).obj\
- $(OBJDIR)odedstr$(TARGET).obj\
- $(OBJDIR)odemu$(TARGET).obj\
- $(OBJDIR)odgetin$(TARGET).obj\
- $(OBJDIR)odgraph$(TARGET).obj\
- $(OBJDIR)odinex1$(TARGET).obj\
- $(OBJDIR)odinex2$(TARGET).obj\
- $(OBJDIR)odinque$(TARGET).obj\
- $(OBJDIR)odkrnl$(TARGET).obj\
- $(OBJDIR)odlist$(TARGET).obj\
- $(OBJDIR)odlog$(TARGET).obj\
- $(OBJDIR)odmulti$(TARGET).obj\
- $(OBJDIR)odplat$(TARGET).obj\
- $(OBJDIR)odpcb$(TARGET).obj\
- $(OBJDIR)odpopup$(TARGET).obj\
- $(OBJDIR)odprntf$(TARGET).obj\
- $(OBJDIR)odra$(TARGET).obj\
- $(OBJDIR)odscrn$(TARGET).obj\
- $(OBJDIR)odspawn$(TARGET).obj\
- $(OBJDIR)odstand$(TARGET).obj\
- $(OBJDIR)odstat$(TARGET).obj\
- $(OBJDIR)odswap$(TARGET).obj\
- $(OBJDIR)odsys$(TARGET).obj\
- $(OBJDIR)odutil$(TARGET).obj\
- $(OBJDIR)odwcat$(TARGET).obj\
- $(OBJDIR)odwin$(TARGET).obj
-$(LIBDIR)odoor$(TARGET).lib : $(OBJECTS)
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odauto$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odblock$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odcfile$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odcmdln$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odcom$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odcore$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)oddrbox$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odedit$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odedstr$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odemu$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odgetin$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odgraph$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odinex1$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odinex2$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odinque$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odkrnl$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odlist$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odlog$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odmulti$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odplat$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odpcb$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odpopup$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odprntf$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odra$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odscrn$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odspawn$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odstand$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odstat$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odswap$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odsys$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odutil$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odwcat$(TARGET).obj
- $(LIB) $(LIBDIR)odoor$(TARGET).lib -+$(OBJDIR)odwin$(TARGET).obj
- erase $(LIBDIR)odoor$(TARGET).bak
-#
-#------------------------------------------------------------------------------
diff --git a/src/odoors/FILE_ID.DIZ b/src/odoors/FILE_ID.DIZ
deleted file mode 100644
index 9fbef744d53520b820551ea5deebba88254742a0..0000000000000000000000000000000000000000
--- a/src/odoors/FILE_ID.DIZ
+++ /dev/null
@@ -1,17 +0,0 @@
-OpenDoors 6.21 C/C++ door programming toolkit
-OpenDoors is an advanced, easy to use library
-for writing online software such as BBS doors
-
-Includes full source code and DLL for the
-native-Win32 version. v6.2x modifications by
-Rob Swindell (www.synchro.net) add support for
-TCP socket (Telnet) connections and Door32.sys!
-
-OpenDoors transparently interfaces with most
-BBS systems, automatically displays output on
-both local and remote screens, creates ANSI/
-AVATAR/RIP control sequences, and provides a
-sysop interface with commands for chat, time
-adjustment, disconnecting, etc.
-http://www.attcanada.net/~pirie/opendoors.html
-(C) 1991-2001 Brian Pirie
diff --git a/src/odoors/GNUmakefile b/src/odoors/GNUmakefile
deleted file mode 100644
index 949e6b58bdc0aed2c4edbf6a38983b6bc06bc681..0000000000000000000000000000000000000000
--- a/src/odoors/GNUmakefile
+++ /dev/null
@@ -1,175 +0,0 @@
-# OpenDoors 6.23
-# (C} Copyright 1991 - 1997 by Brian Pirie. All Rights Reserved.
-#
-# Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net}
-#
-#
-# File: Win32.mak
-#
-# Description: Makefile used to build the Win32 OpenDoors libraries from
-# the sources. Usage is described below.
-#
-# Revisions: Date Ver Who Change
-# ---------------------------------------------------------------
-# Aug 09, 2003 6.3 SH *nix port
-#
-###############################################################################
-#
-# USAGE INFORMATION
-#
-###############################################################################
-#
-# Command Line: make -fWin32.mak
-# or
-# nmake /f Win32.mak
-#
-###############################################################################
-#
-# CONFIGURATION
-#
-# Customize this section of the makefile to provide the relevant information
-# for your compiler, assembler (if any} and build environment.
-#
-###############################################################################
-# Compiler executable file name. Use:
-#
-# tcc - For Borland Turbo C and Turbo C++
-# bcc - For Borland C++
-# cl - For Microsoft compilers
-#
-CC := gcc
-#
-#------------------------------------------------------------------------------
-#
-# Linker executable file name. Use:
-#
-# tlink - For Borland compilers
-# link - For Microsoft compilers
-#
-LD := ld
-#
-#------------------------------------------------------------------------------
-#
-# Compiler command-line flags.
-#
-CFLAGS += -O2 -g -L. -I../xpdev
-# /MTd /Zi - for debug
-#
-#------------------------------------------------------------------------------
-#
-# Link flags.
-#
-LDFLAGS :=
-#
-#------------------------------------------------------------------------------
-#
-# Output directories. customize for your own preferences. Note that trailing
-# backslash (\} characters are required.
-#
-SHLIB := .so
-STATICLIB := .a
-OBJFILE := .o
-ifdef PROFILE
- CFLAGS += -pg
- SHLIB := _p${SHLIB}
- STATICLIB := _p.a
-endif
-#
-###############################################################################
-#
-# DEPENDENCIES
-#
-# You won't normally have to change anything after this point in this makefile.
-#
-###############################################################################
-#
-# Define primary target.
-#
-all: ${LIBDIR}libODoors${SHLIB} ${LIBDIR}libODoors${STATICLIB} ex_chat ex_diag ex_hello ex_music ex_ski ex_vote
-#
-#------------------------------------------------------------------------------
-#
-# Name of all headers.
-#
-HEADERS= ${HEADERDIR}ODCom.h\
- ${HEADERDIR}ODCore.h\
- ${HEADERDIR}ODGen.h\
- ${HEADERDIR}ODInEx.h\
- ${HEADERDIR}ODInQue.h\
- ${HEADERDIR}ODKrnl.h\
- ${HEADERDIR}ODPlat.h\
- ${HEADERDIR}ODRes.h\
- ${HEADERDIR}ODScrn.h\
- ${HEADERDIR}ODStat.h\
- ${HEADERDIR}ODSwap.h\
- ${HEADERDIR}ODTypes.h\
- ${HEADERDIR}ODUtil.h\
- ${HEADERDIR}OpenDoor.h
-#
-#------------------------------------------------------------------------------
-#
-# Build DLL from objects.
-#
-OBJECTS := ${OBJDIR}ODAuto${OBJFILE}\
- ${OBJDIR}ODBlock${OBJFILE}\
- ${OBJDIR}ODCFile${OBJFILE}\
- ${OBJDIR}ODCmdLn${OBJFILE}\
- ${OBJDIR}ODCom${OBJFILE}\
- ${OBJDIR}ODCore${OBJFILE}\
- ${OBJDIR}ODDrBox${OBJFILE}\
- ${OBJDIR}ODEdit${OBJFILE}\
- ${OBJDIR}ODEdStr${OBJFILE}\
- ${OBJDIR}ODEmu${OBJFILE}\
- ${OBJDIR}ODGetIn${OBJFILE}\
- ${OBJDIR}ODGraph${OBJFILE}\
- ${OBJDIR}ODInEx1${OBJFILE}\
- ${OBJDIR}ODInEx2${OBJFILE}\
- ${OBJDIR}ODInQue${OBJFILE}\
- ${OBJDIR}ODKrnl${OBJFILE}\
- ${OBJDIR}ODList${OBJFILE}\
- ${OBJDIR}ODLog${OBJFILE}\
- ${OBJDIR}ODMulti${OBJFILE}\
- ${OBJDIR}ODPlat${OBJFILE}\
- ${OBJDIR}ODPCB${OBJFILE}\
- ${OBJDIR}ODPopup${OBJFILE}\
- ${OBJDIR}ODPrntf${OBJFILE}\
- ${OBJDIR}ODRA${OBJFILE}\
- ${OBJDIR}ODScrn${OBJFILE}\
- ${OBJDIR}ODSpawn${OBJFILE}\
- ${OBJDIR}ODStand${OBJFILE}\
- ${OBJDIR}ODStat${OBJFILE}\
- ${OBJDIR}ODStr${OBJFILE}\
- ${OBJDIR}ODUtil${OBJFILE}\
- ${OBJDIR}ODWCat${OBJFILE}\
- ${OBJDIR}ODWin${OBJFILE}
-# ${OBJDIR}ODoor.res
-# ${OBJDIR}odsys${OBJFILE}\ this file is missing
-
-${LIBDIR}libODoors${SHLIB} : ${OBJECTS}
- $(CC) $(CFLAGS) -shared -o ${LIBDIR}libODoors${SHLIB}.6.2 ${OBJECTS}
- ln -fs ${LIBDIR}libODoors${SHLIB}.6.2 ${LIBDIR}libODoors${SHLIB}
-
-${LIBDIR}libODoors${STATICLIB} : ${OBJECTS}
- ar -r ${LIBDIR}libODoors${STATICLIB} ${OBJECTS}
- ranlib ${LIBDIR}libODoors${STATICLIB}
-
-ex_chat: ex_chat.c ${LIBDIR}libODoors${SHLIB}
- $(CC) $(CFLAGS) ex_chat.c -o ex_chat -lODoors
-
-ex_diag: ex_diag.c ${LIBDIR}libODoors${SHLIB}
- $(CC) $(CFLAGS) ex_diag.c -o ex_diag -lODoors
-
-ex_hello: ex_hello.c ${LIBDIR}libODoors${SHLIB}
- $(CC) $(CFLAGS) ex_hello.c -o ex_hello -lODoors
-
-ex_music: ex_music.c ${LIBDIR}libODoors${SHLIB}
- $(CC) $(CFLAGS) ex_music.c -o ex_music -lODoors
-
-ex_ski: ex_ski.c ${LIBDIR}libODoors${SHLIB}
- $(CC) $(CFLAGS) ex_ski.c -o ex_ski -lODoors
-
-ex_vote: ex_vote.c ${LIBDIR}libODoors${SHLIB}
- $(CC) $(CFLAGS) ex_vote.c -o ex_vote ../xpdev/filewrap.c -lODoors -DMULTINODE_AWARE
-
-#
-#------------------------------------------------------------------------------
diff --git a/src/odoors/ODApp.ico b/src/odoors/ODApp.ico
deleted file mode 100644
index 3192ae1411d92a412de4eee079679cf9b4a39072..0000000000000000000000000000000000000000
Binary files a/src/odoors/ODApp.ico and /dev/null differ
diff --git a/src/odoors/ODAuto.c b/src/odoors/ODAuto.c
deleted file mode 100644
index e41f3e74af34365214517f25f88b6c6043446266..0000000000000000000000000000000000000000
--- a/src/odoors/ODAuto.c
+++ /dev/null
@@ -1,214 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODAuto.c
- *
- * Description: Implements od_autodetect() for automatic detection of
- * terminal emulation supported by remote system.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 14, 1994 6.00 BP Standardized coding style.
- * Dec 31, 1994 6.00 BP Use new millisecond timer functions.
- * Nov 12, 1995 6.00 BP 32-bit portability.
- * Nov 13, 1995 6.00 BP Fixed non-functioning RIP autodetect.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <ctype.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODTypes.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODCore.h"
-#include "ODKrnl.h"
-
-
-/* Private function prototypes. */
-static char ODWaitNoCase(char *pszWaitFor, tODMilliSec WaitTime);
-
-
-/* Number of attempts and timeout values for testing each terminal emulation */
-/* protocol. */
-#define ANSI_TRIES 1
-#define ANSI_WAIT 660 /* Time in milliseconds. */
-#define RIP_TRIES 1
-#define RIP_WAIT 660 /* Time in milliseconds. */
-
-/* Strings to use for autodetection. */
-#define ANSI_QUERY "\x1b[6n\r \r"
-#define ANSI_RESPONSE "\x1b["
-#define RIP_QUERY "\r\x1b[!\r \r"
-#define RIP_RESPONSE "RIP"
-
-/* Maximum number of characters to match with _waitnocase(). */
-#define MATCH_LEN 3
-
-
-/* ----------------------------------------------------------------------------
- * od_autodetect()
- *
- * Determines the terminal emulation capabilities of the remote communications
- * software, when possible. Turns on ANSI and/or RIP modes if they are
- * supported by the remote system.
- *
- * Parameters: nFlags - Currently unused.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_autodetect(INT nFlags)
-{
- INT nCount;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_autodetect()");
-
- /* Initialize OpenDoors if it hasn't aready been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Temporary code that will be optimized out, which prevents a compiler */
- /* warning from being generated for the currently unused flags parameter. */
- (void)nFlags;
-
- /* If operating in local mode, turn on ANSI mode, but not RIP. */
- if(od_control.baud == 0)
- {
- od_control.user_ansi = TRUE;
- OD_API_EXIT();
- return;
- }
-
- /* If user_ansi is not set, attempt to determine ANSI capabilities. */
- if(!od_control.user_ansi)
- {
- /* Clear inbound keyboard buffer. */
- od_clear_keybuffer();
-
- /* Try twice to test ANSI capabilities. */
- for(nCount = 0; nCount < ANSI_TRIES; ++nCount)
- {
- /* Send a string that an ANSI capable terminal will usually */
- /* respond to. */
- od_disp(ANSI_QUERY, strlen(ANSI_QUERY), FALSE);
-
- /* Wait for response expected from an ANSI terminal, for up to */
- /* 12/18.2 second. */
- if(ODWaitNoCase(ANSI_RESPONSE, ANSI_WAIT))
- {
- /* If expected sequence was received, turn on ANSI mode and */
- /* exit the loop. */
- od_control.user_ansi = TRUE;
- break;
- }
- }
- od_clear_keybuffer();
- }
-
- /* If user_rip is not set, attempt to determine RIP capabilities. */
- if(!od_control.user_rip)
- {
- /* Clear inbound keyboard buffer. */
- od_clear_keybuffer();
-
- /* Try twice to test RIP capabilities. */
- for(nCount = 0; nCount < RIP_TRIES; ++nCount)
- {
- /* Send a string that a RIP capable terminal will usually */
- /* respond to. */
- od_disp(RIP_QUERY, strlen(RIP_QUERY), FALSE);
-
- /* Wait for response expected from a RIP terminal. */
- if(ODWaitNoCase(RIP_RESPONSE, RIP_WAIT))
- {
- /* If expected sequence was received, turn on RIP mode and */
- /* exit the loop. */
- od_control.user_rip = TRUE;
- break;
- }
- }
- od_clear_keybuffer();
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODWaitNoCase() *** PRIVATE FUNCTION ***
- *
- * Waits up to the specified maximum time for a specified string to be sent
- * from the remote system. String matching is not case sensitive.
- *
- * Parameters: pszWaitFor - String to wait for.
- *
- * WaitTime - Maximum time, in milliseconds, to wait.
- *
- * Return: TRUE on success, FALSE on failure.
- */
-static char ODWaitNoCase(char *pszWaitFor, tODMilliSec WaitTime)
-{
- tODTimer Timer;
- char szReceived[MATCH_LEN + 1];
- int nCount;
- char chReceived;
- int nMatchChars = MIN(MATCH_LEN, strlen(pszWaitFor));
-
- ASSERT(pszWaitFor != NULL);
- ASSERT(strlen(pszWaitFor) != 0);
- ASSERT(WaitTime >= 0);
-
- ODTimerStart(&Timer, WaitTime);
-
- for(nCount = 0; nCount <= MATCH_LEN; ++nCount)
- {
- szReceived[nCount] = '\0';
- }
-
- do
- {
- if((chReceived = od_get_key(FALSE)) != 0)
- {
- for(nCount = 0; nCount < MATCH_LEN - 1; ++ nCount)
- {
- szReceived[nCount] = szReceived[nCount + 1];
- }
- szReceived[MATCH_LEN - 1] = chReceived;
-
- if(strnicmp(szReceived + (MATCH_LEN - nMatchChars), pszWaitFor,
- nMatchChars) == 0)
- {
- return(TRUE);
- }
- }
- } while(!ODTimerElapsed(&Timer));
-
- return(FALSE);
-}
diff --git a/src/odoors/ODBlock.c b/src/odoors/ODBlock.c
deleted file mode 100644
index 9f01e6d0e1c24608a0a4621d5199cfe3ee4a3816..0000000000000000000000000000000000000000
--- a/src/odoors/ODBlock.c
+++ /dev/null
@@ -1,831 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODBlock.c
- *
- * Description: Implements the text block manipulation functions.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODKrnl.h"
-
-
-/* Set to TRUE when od_puttext() should leave the cursor in its original */
-/* position */
-static BOOL bScrollAction = TRUE;
-
-
-
-/* ----------------------------------------------------------------------------
- * od_puttext()
- *
- * Displays the contents of the buffer passed in block. Leaves cursor in
- * original position, unless bScrollAction is FALSE. Leaves colour at
- * original value.
- *
- * Parameters: nLeft - Column number of left edge of block of text to
- * transfer, where 1 is the leftmost column of the
- * screen.
- *
- * nTop - Row number of the top edge of block of text to
- * to transfer, where 1 is the top row of the screen.
- *
- * nRight - Column number of the right edge of block.
- *
- * nBottom - Row number of bottom edge of block.
- *
- * pBlock - Pointer to buffer that has been filled in the format
- * used by od_gettext().
- *
- * Return: TRUE on success, FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_puttext(INT nLeft, INT nTop, INT nRight, INT nBottom,
- void *pBlock)
-{
- INT nRowLength = nRight - nLeft +1;
- INT nRowBytes = nRowLength * 2;
- char *pchTest;
- char *pchMemory;
- char *pBuffer;
- char *pchScreenBlock;
- INT nBlockRow = 0;
- INT nOutRow;
- INT nOutColour = 999;
- INT nOutColumn, nCheckColumn;
- char *pchMemBlock;
- INT nMoveCost = od_control.user_avatar ? 4 : 7;
- BYTE btMaxRight, btMaxBottom;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_puttext()");
-
- /* Ensure that OpenDoors is initialized before proceeding. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Get current display setting profile. */
- ODScrnGetTextInfo(&ODTextInfo);
-
- /* Calculate the maximum values for bottom and right of block. */
- btMaxRight=ODTextInfo.winright-ODTextInfo.winleft+1;
- btMaxBottom=ODTextInfo.winbottom-ODTextInfo.wintop+1;
-
- /* Check that parameters seem reasonable. */
- if(nLeft<1 || nTop<1 || nRight>btMaxRight || nBottom>btMaxBottom
- || nTop > nBottom || nLeft > nRight || pBlock==NULL)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Ensure that ANSI and/or AVATAR mode is available. */
- if(!od_control.user_ansi && !od_control.user_avatar)
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* If OpenDoors is operating in remote mode. */
- if(od_control.baud != 0)
- {
- /* Allocate temporary buffer to store original screen contents while */
- /* buffer paste is being performed. */
- if((pBuffer=malloc(nRowBytes*(nBottom-nTop+1)))==NULL)
- {
- od_control.od_error = ERR_MEMORY;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Get current screen contents of area to be pasted into, storing */
- /* into the temporary buffer. */
- if(!ODScrnGetText((BYTE)nLeft, (BYTE)nTop, (BYTE)nRight, (BYTE)nBottom,
- pBuffer))
- {
- od_control.od_error = ERR_PARAMETER;
- free(pBuffer);
- OD_API_EXIT();
- return(FALSE);
- }
- }
-
- /* Display the block to be pasted on the local screen. */
- if(!ODScrnPutText((BYTE)nLeft, (BYTE)nTop, (BYTE)nRight, (BYTE)nBottom,
- pBlock))
- {
- od_control.od_error = ERR_PARAMETER;
- free(pBuffer);
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* If operating in remote mode. */
- if(od_control.baud != 0)
- {
- /* Loop for each line in the buffer to be pasted */
- for(nOutRow=nTop;nOutRow<=nBottom;++nOutRow,++nBlockRow)
- {
- /* Setup pointer to beginning of line of original screen contents. */
- pchScreenBlock=(char *)pBuffer+(nRowBytes*nBlockRow);
-
- /* Setup pointer to beginning of line of block to be displayed. */
- pchMemBlock=(char *)pBlock+(nRowBytes*nBlockRow);
-
- /* Loop for each column on this line. */
- for(nOutColumn=0;nOutColumn<nRowLength;)
- {
- /* Loop from this character onwards, counting number of */
- /* characters that don't need to be changed. */
- nCheckColumn=nOutColumn;
- pchMemory=((char *)pchMemBlock)+(nCheckColumn<<1);
- pchTest=((char *)pchScreenBlock)+(nCheckColumn<<1);
- for(;nCheckColumn<nRowLength;++nCheckColumn)
- {
- if(od_control.od_full_put) break;
-
- /* If both buffers have space characters. */
- if(*pchMemory==*pchTest && (*pchTest==' ' || *pchTest=='\0'))
- {
- /* If colours differ, then stop comparison loop. */
- if((pchTest[1]&0x70) != (pchMemory[1]&0x70))
- {
- break;
- }
- }
-
- /* If both have different character and colour attributes. */
- else if(*((int *)pchTest) != *((int *)pchMemory))
- {
- /* Then stop comparison loop now. */
- break;
- }
-
- /* Increment source and background pointers by two bytes. */
- pchTest+=2;
- pchMemory+=2;
- }
-
- /* If no futher text to change on this line. */
- if(nCheckColumn==nRowLength)
- {
- /* Move to the next line. */
- goto next_line;
- }
-
- /* If this is the first text to be displayed on this line. */
- if(nOutColumn == 0)
- {
- /* Move the cursor to the first text to be changed on line. */
- nOutColumn = nCheckColumn;
-
- /* If AVATAR mode is available. */
- if(od_control.user_avatar)
- {
- /* Send the avatar cursor positioning command. */
- szODWorkString[0]=22;
- szODWorkString[1]=8;
- szODWorkString[2]=nOutRow;
- szODWorkString[3]=nLeft+nOutColumn;
- od_disp(szODWorkString,4,FALSE);
- }
- else
- {
- /* Otherwise, send the ANSI cursor positioning command. */
- sprintf(szODWorkString,"x[%d;%dH",nOutRow,nLeft + nOutColumn);
- szODWorkString[0]=27;
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
- }
- }
-
- /* If the number of characters after current cursor position */
- /* which must be changed, is greater than the number of */
- /* characters required to reposition the cursor on this line, */
- /* then move the cursor to skip unchanged characters. */
- else if((nCheckColumn-nOutColumn)>nMoveCost)
- {
- nOutColumn=nCheckColumn;
- /* If AVATAR mode is available. */
- if(od_control.user_avatar)
- {
- /* Advance cursor appropriate number of characters */
- /* using the AVATAR cursor position command. */
- szODWorkString[0]=22;
- szODWorkString[1]=8;
- szODWorkString[2]=nOutRow;
- szODWorkString[3]=nLeft+nOutColumn;
- od_disp(szODWorkString,4,FALSE);
- }
- else
- {
- /* Otherwise, advance cursor appropriate number of */
- /* characters using the ANSI cursor position command. */
- sprintf(szODWorkString,"x[%d;%dH",nOutRow,nLeft + nOutColumn);
- szODWorkString[0]=27;
- od_disp(szODWorkString,strlen(szODWorkString),FALSE);
- }
- }
-
- /* Output text for the number of characters found to be */
- /* different. */
- pchTest=(char *)&pchMemBlock[nOutColumn*2];
- for(;nOutColumn<=nCheckColumn;++nOutColumn)
- {
- if(pchTest[1] != nOutColour)
- {
- od_set_attrib(nOutColour=pchTest[1]);
- }
- od_disp(pchTest,1,FALSE);
- pchTest++;
- pchTest++;
- }
- }
-next_line:
- ;
- }
-
- /* If not disabled, update cursor position. */
- if(bScrollAction)
- {
- od_set_cursor(ODTextInfo.cury,ODTextInfo.curx);
- }
-
- /* Deallocate temporary buffer. */
- free(pBuffer);
- }
-
- /* Restore the original display attribute. */
- od_set_attrib(ODTextInfo.attribute);
-
- /* Return with success. */
- OD_API_EXIT();
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_gettext()
- *
- * Retrieves text from the screen (based on what is current displayed on the
- * local display), storing it in the buffer provided by the caller.
- *
- * Parameters: nLeft - Column number of left edge of block of text to
- * transfer, where 1 is the leftmost column of the
- * screen.
- *
- * nTop - Row number of the top edge of block of text to
- * to transfer, where 1 is the top row of the screen.
- *
- * nRight - Column number of the right edge of block.
- *
- * nBottom - Row number of bottom edge of block.
- *
- * pBlock - Pointer to buffer large enough to hold two bytes
- * for each character in the block.
- *
- * Return: TRUE on success, FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_gettext(INT nLeft, INT nTop, INT nRight, INT nBottom,
- void *pBlock)
-{
- BYTE btMaxRight, btMaxBottom;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_gettext()");
-
- /* Initialize OpenDoors if not already done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- ODScrnGetTextInfo(&ODTextInfo);
-
- btMaxRight=ODTextInfo.winright-ODTextInfo.winleft+1;
- btMaxBottom=ODTextInfo.winbottom-ODTextInfo.wintop+1;
- if(nLeft<1 || nTop<1 || nRight>btMaxRight || nBottom>btMaxBottom || !pBlock)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- if(!od_control.user_ansi && !od_control.user_avatar)
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(FALSE);
- }
-
- OD_API_EXIT();
- return(ODScrnGetText((BYTE)nLeft, (BYTE)nTop, (BYTE)nRight, (BYTE)nBottom,
- pBlock));
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_scroll()
- *
- * Scrolls the specified area of the screen by the specified number of
- * lines, in either the up or down directions. The cursor is left at its
- * original locaiton, and the display attribute is left at its original
- * setting. New lines are created in the current display colour.
- *
- * Parameters: nLeft - Column number of left edge of area to scroll, where
- * 1 is the leftmost column of the screen.
- *
- * nTop - Row number of the top edge of the area to scroll,
- * where 1 is the top row of the screen.
- *
- * nRight - Column number of the right edge of area to scroll.
- *
- * nBottom - Row number of bottom edge of area to scroll.
- *
- * nDistance - Number of lines to scroll the text. A value of 0
- * has no effect on the specified area, a positive
- * value moves the text upwards (leaving blank lines
- * at the bottom of the specified area), while a
- * negative value moves the text upwards. If the
- * distance is equal to the number of lines in the
- * area, then the entire area is cleared.
- *
- * nFlags - Bitwise-or (|) of SCROLL_* flags. SCROLL_NORMAL
- * is the default. SCROLL_NO_CLEAR does not clear
- * the new area at the top/bottom of the scroll
- * region if doing so would be slower.
- *
- * Return: TRUE on success, FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_scroll(INT nLeft, INT nTop, INT nRight, INT nBottom,
- INT nDistance, WORD nFlags)
-{
- BYTE btWidth, btHeight;
- BYTE btCount;
- BYTE btFirst, btLast;
- char szAVTSeq[7];
- void *pBlock;
- char szBlank[81];
- BYTE btKeepHeight;
- BYTE btMaxRight;
- BYTE btMaxBottom;
- tODScrnTextInfo TextState;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_scroll()");
-
- /* Ensure that OpenDoors has been initialized before proceeding. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Get current display setting information. */
- ODScrnGetTextInfo(&TextState);
-
- /* Determine the height and width of the area to be scrolled. */
- btWidth=nRight-nLeft+1;
- btHeight=nBottom-nTop+1;
-
- /* Determine the number of lines currently in the area that will still */
- /* be visible after scrolling. */
- btKeepHeight=btHeight-((nDistance>=0) ? nDistance : -nDistance);
-
- /* Determine the maximum bottom and left coordinates of an area to be */
- /* scrolled. */
- btMaxRight=TextState.winright-TextState.winleft+1;
- btMaxBottom=TextState.winbottom-TextState.wintop+1;
-
- /* Check that parameters are valid. */
- if(nLeft<1 || nTop<1 || nRight>btMaxRight || nBottom>btMaxBottom ||
- nLeft > nRight || nTop > nBottom)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Check that ANSI or AVATAR graphics mode is available. */
- if(!od_control.user_ansi && !od_control.user_avatar)
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* If distance to be scrolled is 0, then we are finished already and */
- /* can return immediately. */
- if(nDistance == 0)
- {
- OD_API_EXIT();
- return(TRUE);
- }
-
- /* If distance is positive, then we are moving text upwards. */
- if(nDistance>0)
- {
- /* Ensure that distance is not greater than size of scrolled area. */
- if(nDistance>btHeight)
- {
- nDistance=btHeight;
- }
-
- /* Calculate first and last line to be moved. */
- btFirst=nBottom-(nDistance-1);
- btLast=nBottom;
- }
-
- /* If distance is negative, then we are moving text downwards. */
- else /* if(nDistance<0) */
- {
- /* Ensure that distance is not greater than size of scrolled area. */
- if(nDistance<-btHeight)
- {
- nDistance=-btHeight;
- }
-
- /* Calculate first and last line to be moved. */
- btFirst=nTop;
- btLast=nTop-nDistance-1;
- }
-
- /* If AVATAR mode is available */
- if(od_control.user_avatar)
- {
- /* Generate AVATAR sequence which causes the remote terminal to */
- /* scroll an area of its screen. */
- szAVTSeq[0]=22;
-
- /* If scrolling text upwards. */
- if(nDistance>0)
- {
- /* Specify control sequence for scrolling upwards. */
- szAVTSeq[1]=10;
- szAVTSeq[2]=nDistance;
-
- /* Move text appropriate direction on local screen. */
- ODScrnCopyText((BYTE)nLeft, (BYTE)(nTop + nDistance), (BYTE)nRight,
- (BYTE)nBottom, (BYTE)nLeft, (BYTE)nTop);
- }
- /* If scrolling text downwards. */
- else /* if(disatnce<0) */
- {
- /* Specify control sequence for scrolling downwards. */
- szAVTSeq[1]=11;
- szAVTSeq[2]=-nDistance;
-
- /* Move text appropriate direction on local screen. */
- ODScrnCopyText((BYTE)nLeft, (BYTE)nTop, (BYTE)nRight,
- (BYTE)(nBottom + nDistance), (BYTE)nLeft, (BYTE)(nTop - nDistance));
- }
-
- /* Specify area to be scrolled to the AVATAR terminal. */
- szAVTSeq[3]=nTop;
- szAVTSeq[4]=nLeft;
- szAVTSeq[5]=nBottom;
- szAVTSeq[6]=nRight;
-
- /* Send the control sequence to the AVATAR terminal. */
- od_disp(szAVTSeq,7,FALSE);
-
- /* Generate string containing a blank line of text. */
- for(btCount=0;btCount<btWidth;++btCount) szBlank[btCount]=' ';
- szBlank[btCount]='\0';
-
- /* Blank-out lines that will no longer be visiable. */
- for(;btFirst<=btLast;++btFirst)
- {
- ODScrnSetCursorPos((BYTE)nLeft, btFirst);
- ODScrnDisplayString(szBlank);
- }
-
- /* Reset cursor position on local display. */
- ODScrnSetCursorPos(TextState.curx,TextState.cury);
- }
-
- /* Otherwise, we are using ANSI mode. */
- else /* if(od_control.user_ansi) */
- {
- /* If any of the original text will still be available after */
- /* scrolling. */
- if(btKeepHeight>0)
- {
- /* Allocate some temporary memory to hold text to be "got". */
- if((pBlock=malloc(btKeepHeight*btWidth*2))==NULL)
- {
- /* If memory allocation failed, then scrolling fails. */
- od_control.od_error = ERR_MEMORY;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* If we are scrolling text upwards. */
- if(nDistance > 0)
- {
- /* Move text that will still be visible, using od_gettext() */
- /* and od_puttext(). */
- od_gettext(nLeft,nTop+nDistance,nRight,nBottom,pBlock);
- bScrollAction=FALSE;
- od_puttext(nLeft,nTop,nRight,nBottom-nDistance,pBlock);
- bScrollAction=TRUE;
- }
-
- /* If we are scrolling text downwards. */
- else /* if(nDistance < 0) */
- {
- /* Move text that will still be visible, using od_gettext() */
- /* and od_puttext(). */
- od_gettext(nLeft,nTop,nRight,nBottom+nDistance,pBlock);
- bScrollAction=FALSE;
- od_puttext(nLeft,nTop-nDistance,nRight,nBottom,pBlock);
- bScrollAction=TRUE;
- }
-
- /* Deallocate temporary memory block. */
- free(pBlock);
- }
-
- /* If new area clearing has not been disabled. */
- if(!(nFlags&SCROLL_NO_CLEAR))
- {
- /* Loop for lines that should be blank. */
- for(;btFirst<=btLast;++btFirst)
- {
- /* Move cursor to the beginning of this line. */
- od_set_cursor(btFirst,nLeft);
-
- /* If right boarder of area to be scrolled is the edge of the */
- /* screen, then we can use a quick control sequence to clear */
- /* the rest of the line. Call od_clr_line() to do this. */
- if(nRight == 80)
- {
- od_clr_line();
- }
-
- /* If right boarder of area to be scrolled is not at the edge */
- /* of the screen, then each line must be manually erased, by */
- /* sending the appropriate number of blanks (spaces). */
- else /* if(right != 80) */
- {
- od_repeat(' ',btWidth);
- }
- }
- }
-
- /* Reset the cursor to its original position. */
- od_set_cursor(TextState.cury,TextState.curx);
- }
-
- /* Return with success */
- OD_API_EXIT();
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_save_screen()
- *
- * Stores the contents of the entire screen into a buffer, along with
- * the current cursor location and display colour. Supports all display
- * modes.
- *
- * Parameters: pBuffer - Pointer to a buffer of at least 4004 bytes in size,
- * where the information on the current screen state
- * will be stored.
- *
- * Return: TRUE on success, FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_save_screen(void *pBuffer)
-{
- char btHeight;
- tODScrnTextInfo TextState;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_save_screen()");
-
- /* Ensure that OpenDoors is initialized before proceeding. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Check parameters and current output window size. */
- ODScrnGetTextInfo(&TextState);
- if(TextState.winleft!=1 || TextState.winright!=80 || !pBuffer)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Store current cursor location in buffer. */
- ((char *)pBuffer)[0]=TextState.curx;
- ((char *)pBuffer)[1]=TextState.cury;
-
- /* Store current display colour in buffer. */
- ((char *)pBuffer)[2]=TextState.attribute;
-
- /* Store height of buffer stored. */
- ((char *)pBuffer)[3]=btHeight=TextState.winbottom-TextState.wintop+1;
-
- /* Store screen contents using local screen gettext() function. */
- OD_API_EXIT();
- return(ODScrnGetText(1,1,80,btHeight,(char *)pBuffer+4));
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_restore_screen()
- *
- * Restores the screen contents, along with the current text colour and cursor
- * location, as previously stored by od_save_screen().
- *
- * Parameters: pBuffer - Pointer to buffer which was filled by a previous call
- * to od_save_screen().
- *
- * Return: TRUE on success, FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_restore_screen(void *pBuffer)
-{
- char *pch;
- char btPos;
- char chLast;
- char *pchTextBuffer;
- char btHeight;
- int nToReturn=TRUE;
- tODScrnTextInfo TextState;
- char btLine;
- char btDistance=0;
- char btCursorRow;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_restore_screen()");
-
- /* Ensure that OpenDoors is initialized before proceeding. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Check parameters and current output window size. */
- ODScrnGetTextInfo(&TextState);
- if(TextState.winleft!=1 || TextState.winright!=80 || !pBuffer)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Determine current window height were text will be restored. */
- btHeight=TextState.winbottom-TextState.wintop+1;
-
- /* If current display window height is too small for entire buffer */
- /* to be re-displayed. */
- if(btHeight<((char *)pBuffer)[3])
- {
- /* Then we will always display as much of the END of the buffer */
- /* as possible. */
- btDistance = btHeight - ((char *)pBuffer)[3];
- }
- else if(btHeight > ((char *)pBuffer)[3])
- {
- /* Otherwise, ensure that we don't try to display more lines that */
- /* are in the buffer. */
- btHeight=((char *)pBuffer)[3];
- }
-
- /* Clear the remote and local screens. */
- od_clr_scr();
-
- /* If ANSI or AVATAR modes are available. */
- if(od_control.user_avatar || od_control.user_ansi)
- {
- /* Then we can efficiently display the buffer using od_puttext(). */
- bScrollAction=FALSE;
- nToReturn=od_puttext(1,1,80,btHeight,(char *)pBuffer+(4+((int)btDistance*160)));
- bScrollAction=TRUE;
-
- /* Restore original cursor location. */
- od_set_cursor(((char *)pBuffer)[1],((char *)pBuffer)[0]);
-
- /* Restore original display attribute. */
- od_set_attrib(((char *)pBuffer)[2]);
- }
-
- /* If we are operating in ASCII mode. */
- else /* if (!od_control.od_avatar && !od_control.caller_ansi) */
- {
- /* Then the buffer is displayed one line at a time, beginning */
- /* at the top of the screen, up to the saved cusrsor location. */
-
- /* Set pointer to beginning of buffer to be displayed. */
- pchTextBuffer=(char *)pBuffer+4;
-
- /* Get final cursor row number. */
- btCursorRow=((char *)pBuffer)[1];
-
- /* Loop for each line in the buffer. */
- for(btLine=1;btLine<=btHeight;++btLine)
- {
- /* Set pointer to last character of line. */
- pch=(char *)pchTextBuffer+158;
-
- /* Loop backwards until a non-blank character is found, or we */
- /* reach the beginning of the line. */
- for(chLast=80;chLast>1;)
- {
- /* If this is a blank character. */
- if(*pch==32 || *pch==0)
- {
- /* Move to previous character. */
- --chLast;
- pch-=2;
- }
-
- /* If this is not a blank character, then stop looping. */
- else
- {
- break;
- }
- }
-
- /* If this is the line on which the cursor resides. */
- if(btLine==btCursorRow)
- {
- /* If last non-blank character of line is at or past the final */
- /* cursor location, then we backup the last character to be */
- /* displayed to the cursor before the final cursor position. */
- /* This code could be improved to be able to display text on */
- /* the entire cursor line by displaying the entire line, */
- /* sending a C/R, and redisplaying first portion of line to */
- /* end up with the cursor in the desired position. */
- if(chLast>=((char *)pBuffer)[0])
- {
- chLast=((char *)pBuffer)[0]-1;
- }
- }
-
- /* Display all characters on this line */
- pch = (char *)pchTextBuffer;
- for(btPos=1;btPos<=chLast;++btPos)
- {
- od_putch(*pch);
- pch+=2;
- }
-
- /* If this is the row where the cursor should be left, then we */
- /* stop displaying now. */
- if(btLine==btCursorRow)
- {
- break;
- }
-
- /* If cursor hasn't been wrapped, then we should send a C/R - */
- /* L/F sequence. */
- if(chLast != 80)
- {
- od_disp_str("\n\r");
- pchTextBuffer+=160;
- }
- }
- }
-
- /* Return with the appropriate success/failure status. */
- OD_API_EXIT();
- return(nToReturn);
-}
diff --git a/src/odoors/ODCFile.c b/src/odoors/ODCFile.c
deleted file mode 100644
index eb3a4a3a4345332f8506bb7e49f897d3728014f8..0000000000000000000000000000000000000000
--- a/src/odoors/ODCFile.c
+++ /dev/null
@@ -1,925 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODCFile.c
- *
- * Description: Implements the configuration file sub-system.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Nov 11, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 01, 1996 6.00 BP Added DisableDTR and NoDTRDisable.
- * Jan 19, 1996 6.00 BP Display error if config file not found
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODInEx.h"
-#include "ODUtil.h"
-
-
-/* Internal private variables */
-static WORD awTimeVal[3];
-static BYTE btTimeNumVals;
-
-
-/* Local functions. */
-static WORD ODCfgGetWordDecimal(char *pszConfigText);
-static DWORD ODCfgGetDWordDecimal(char *pszConfigText);
-static WORD ODCfgGetWordHex(char *pszConfigText);
-static void ODCfgGetNextTime(char **ppchConfigText);
-static BOOL ODCfgIsTrue(char *pszConfigText);
-
-
-/* ----------------------------------------------------------------------------
- * ODConfigInit()
- *
- * Called to perform OpenDoors initialization when the configuration file
- * system is being used. This function is called from the normal od_init(),
- * and also uses the normal od_init() to perform base initialization after
- * the configuration file has been read, but before certain configuration
- * settings are set in od_control.
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL ODConfigInit(void)
-{
- void (*custom_line_function)(char *keyword, char *options)
- = od_control.config_function;
- char *pchConfigText;
- WORD wCurrent;
- INT nConfigOption;
- BOOL bConfigFileRequired = TRUE;
- static FILE *pfConfigFile;
- static FILE *pfCustomDropFile = NULL;
- static char szConfigLine[257];
- static char szToken[33];
- static char szTempString[256];
- static char szWorkDir[80];
- static BOOL bWorkDirSet = FALSE;
- static time_t nUnixTime;
- static struct tm *TimeBlock;
- static INT16 nPageStart;
- static INT16 nPageEnd;
- static BOOL bPageSet = FALSE;
- static BOOL bInactivitySet = FALSE;
- static INT16 nInactivity;
- static char *pszWork;
- static BOOL bPageLengthSet = FALSE;
- static BYTE btPageLength;
- static char *apszFileNames[1];
-
- bIsCallbackActive = TRUE;
-
- nUnixTime = time(NULL);
- TimeBlock = localtime(&nUnixTime);
-
- /* Use default configuration file filename if none has been specified. */
- if(od_control.od_config_filename == NULL)
- {
- od_control.od_config_filename = "door.cfg";
- bConfigFileRequired = FALSE;
- }
-
- if((pfConfigFile = fopen(od_control.od_config_filename, "rt")) == NULL)
- {
- if(strchr(od_control.od_config_filename, DIRSEP) != NULL
- || strchr(od_control.od_config_filename, ':') != NULL)
- {
- wCurrent = strlen(od_control.od_config_filename);
- pchConfigText = (char *)od_control.od_config_filename + (wCurrent - 1);
- while(wCurrent > 0)
- {
- if(*pchConfigText == DIRSEP || *pchConfigText == ':')
- {
- strcpy(szConfigLine, (char *)pchConfigText + 1);
- pfConfigFile = fopen(szConfigLine, "rt");
- break;
- }
-
- --pchConfigText;
- --wCurrent;
- }
- }
- else
- {
- strcpy(szConfigLine, od_control.od_config_filename);
- }
- }
-
- /* If we were able to open the configuration file. */
- if(pfConfigFile != NULL)
- {
- /* Get configuration file strings in upper case. */
- for(wCurrent = 0; wCurrent < TEXT_SIZE; ++wCurrent)
- {
- strupr(od_config_text[wCurrent]);
- }
- for(wCurrent = 0; wCurrent < LINES_SIZE; ++wCurrent)
- {
- strupr(od_config_lines[wCurrent]);
- }
-
- for(;;)
- {
- /* Read the next line from the configuration file. */
- if(fgets(szConfigLine, 257, pfConfigFile) == NULL) break;
-
- /* Ignore all of line after comments or CR/LF char. */
- pchConfigText = (char *)szConfigLine;
- while(*pchConfigText)
- {
- if(*pchConfigText == '\n' || *pchConfigText == '\r'
- || *pchConfigText == ';')
- {
- *pchConfigText = '\0';
- break;
- }
- ++pchConfigText;
- }
-
- /* Search for beginning of first token on line. */
- pchConfigText = (char *)szConfigLine;
- while(*pchConfigText
- && (*pchConfigText == ' ' || *pchConfigText == '\t'))
- {
- ++pchConfigText;
- }
- if(!*pchConfigText) continue;
-
- /* Get first token from line. */
- wCurrent = 0;
- while(*pchConfigText
- && !(*pchConfigText == ' ' || *pchConfigText == '\t'))
- {
- if(wCurrent < 32) szToken[wCurrent++] = *pchConfigText;
- ++pchConfigText;
- }
- if(wCurrent <= 32)
- {
- szToken[wCurrent] = '\0';
- }
- else
- {
- szToken[32] = '\0';
- }
- strupr(szToken);
-
- /* Find beginning of configuration option parameters */
- while(*pchConfigText && (*pchConfigText == ' '
- || *pchConfigText == '\t'))
- {
- ++pchConfigText;
- }
-
- /* Trim trailing spaces from setting string. */
- for(wCurrent = strlen(pchConfigText) - 1; wCurrent > 0; --wCurrent)
- {
- if(pchConfigText[wCurrent] == ' '
- || pchConfigText[wCurrent] == '\t')
- {
- pchConfigText[wCurrent] = '\0';
- }
- else
- {
- break;
- }
- }
-
-
- for(wCurrent = 0; wCurrent < TEXT_SIZE; ++wCurrent)
- {
- if(strcmp(szToken, od_config_text[wCurrent]) == 0)
- {
- switch(wCurrent)
- {
- case 0:
- wODNodeNumber = ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 1:
- strcpy(od_control.info_path,pchConfigText);
- break;
-
- case 2:
- if(pchConfigText[strlen(pchConfigText) - 1] == DIRSEP
- && pchConfigText[strlen(pchConfigText) - 2] != ':'
- && strlen(pchConfigText) > 1)
- {
- pchConfigText[strlen(pchConfigText) - 1] = '\0';
- }
-
- szOriginalDir = (char *)malloc(256);
- if(szOriginalDir != NULL)
- {
- ODDirGetCurrent(szOriginalDir, 256);
- }
-
- strcpy(szWorkDir, pchConfigText);
- bWorkDirSet = TRUE;
- break;
-
- case 3:
- strcpy(od_control.od_logfile_name, pchConfigText);
- break;
-
- case 4:
- od_control.od_logfile_disable = TRUE;
- break;
-
- case 5:
- case 6:
- case 7:
- case 8:
- case 9:
- case 10:
- case 11:
- if((wCurrent - 5) == (WORD)TimeBlock->tm_wday)
- {
- ODCfgGetNextTime((char **)&pchConfigText);
- nPageStart = awTimeVal[0] * 60 + awTimeVal[1];
- ODCfgGetNextTime((char **)&pchConfigText);
- nPageEnd = awTimeVal[0] * 60 + awTimeVal[1];
- bPageSet = TRUE;
- }
- break;
-
- case 12:
- od_control.od_maxtime = ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 13:
- bSysopNameSet = TRUE;
- strncpy((char *)&szForcedSysopName, pchConfigText, 39);
- szForcedSysopName[39] = '\0';
- break;
-
- case 14:
- bSystemNameSet = TRUE;
- strncpy((char *)&szForcedSystemName, pchConfigText, 39);
- szForcedSystemName[39] = '\0';
- break;
-
- case 15:
- od_control.od_swapping_disable = TRUE;
- break;
-
- case 16:
- strncpy(od_control.od_swapping_path, pchConfigText, 79);
- od_control.od_swapping_path[79] = '\0';
- break;
-
- case 17:
- od_control.od_swapping_noems = TRUE;
- break;
-
- case 18:
- dwForcedBPS = ODCfgGetDWordDecimal(pchConfigText);
- break;
-
- case 19:
- nForcedPort = ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 20:
- if(pfCustomDropFile == NULL && !od_control.od_force_local)
- {
- apszFileNames[0] = (char *)pchConfigText;
- if(ODSearchForDropFile(apszFileNames, 1, szTempString,
- NULL) != -1)
- {
- if((pfCustomDropFile = fopen(szTempString, "rt"))
- != NULL)
- {
- od_control.od_info_type = CUSTOM;
- od_control.user_attribute = 0x06;
- od_control.user_screen_length = 23;
- od_control.user_ansi = TRUE;
- od_control.user_rip = FALSE;
- od_control.user_avatar = FALSE;
- od_control.od_page_pausing = TRUE;
- od_control.od_page_len = 15;
- od_control.user_timelimit = 0;
- strcpy(od_control.user_name, "Unknown User");
- strcpy(od_control.user_location,
- "Unknown Location");
- od_control.user_security = 1;
- }
- }
- }
- break;
-
- case 21:
- if(pfCustomDropFile != NULL)
- {
- if(fgets(szTempString, 255, pfCustomDropFile)!=NULL)
- {
- if(szTempString[strlen(szTempString) - 1] == '\n')
- {
- szTempString[strlen(szTempString) - 1] = '\0';
- }
- else
- {
- INT ch;
- do
- {
- ch = fgetc(pfCustomDropFile);
- } while(ch != '\n' && ch != EOF);
- }
-
- strupr(pchConfigText);
-
- for(nConfigOption = 0; nConfigOption < LINES_SIZE;
- ++nConfigOption)
- {
- if(strcmp(pchConfigText,
- od_config_lines[nConfigOption]) == 0)
- {
- switch(nConfigOption)
- {
- case 1:
- od_control.port =
- ODCfgGetWordDecimal(szTempString) - 1;
- break;
-
- case 2:
- od_control.port =
- ODCfgGetWordDecimal(szTempString);
- break;
-
- case 3:
- od_control.baud =
- ODCfgGetWordDecimal(szTempString);
- break;
-
- case 4:
- if(ODCfgIsTrue(szTempString))
- {
- od_control.baud = 0;
- }
- break;
-
- case 5:
- case 6:
- ODStringToName(szTempString);
- strncpy(od_control.user_name,
- szTempString, 34);
- od_control.user_name[34] = '\0';
- break;
-
- case 7:
- strcat(od_control.user_name, " ");
- ODStringToName(szTempString);
- strncat(od_control.user_name,
- szTempString,
- 35 - strlen(od_control.user_name));
- od_control.user_name[35] = '\0';
- break;
-
- case 8:
- ODStringToName(szTempString);
- strncpy(od_control.user_handle,
- szTempString, 35);
- od_control.user_handle[35] = '\0';
- break;
-
- case 9:
- pszWork = (char *)szTempString;
- ODCfgGetNextTime((char **)&pszWork);
- od_control.user_timelimit +=
- (awTimeVal[0] * 60);
- break;
-
- case 10:
- pszWork = (char *)szTempString;
- ODCfgGetNextTime((char **)&pszWork);
- if(btTimeNumVals <= 1)
- {
- od_control.user_timelimit +=
- awTimeVal[0];
- }
- else
- {
- od_control.user_timelimit +=
- awTimeVal[1] + (awTimeVal[0] * 60);
- }
- break;
-
- case 11:
- pszWork = (char *)szTempString;
- ODCfgGetNextTime((char **)&pszWork);
- if(btTimeNumVals <= 1)
- {
- od_control.user_timelimit +=
- awTimeVal[0] / 60;
- }
- else if(btTimeNumVals == 2)
- {
- od_control.user_timelimit +=
- (awTimeVal[1] / 60) + awTimeVal[0];
- }
- else
- {
- od_control.user_timelimit +=
- (awTimeVal[2] / 60) + awTimeVal[1]
- + (awTimeVal[0] * 60);
- }
- break;
-
- case 12:
- od_control.user_ansi =
- ODCfgIsTrue(szTempString);
- break;
-
- case 13:
- od_control.user_avatar =
- ODCfgIsTrue(szTempString);
- break;
-
- case 14:
- od_control.od_page_pausing =
- ODCfgIsTrue(szTempString);
- break;
-
- case 15:
- od_control.user_screen_length =
- ODCfgGetWordDecimal(szTempString);
- break;
-
- case 16:
- if(ODCfgIsTrue(szTempString))
- {
- od_control.user_attribute |= 0x02;
- }
- else
- {
- od_control.user_attribute &=~ 0x02;
- }
- break;
-
- case 17:
- od_control.user_security =
- ODCfgGetWordDecimal(szTempString);
- break;
-
- case 18:
- ODStringToName(szTempString);
- strncpy(od_control.user_location,
- szTempString, 25);
- od_control.user_location[25] = '\0';
- break;
-
- case 19:
- wODNodeNumber =
- ODCfgGetWordDecimal(szTempString);
- break;
-
- case 20:
- case 21:
- ODStringToName(szTempString);
- strncpy(od_control.sysop_name,
- szTempString, 38);
- od_control.sysop_name[38] = '\0';
- break;
-
- case 22:
- strcat(od_control.sysop_name, " ");
- ODStringToName(szTempString);
- strncat(od_control.sysop_name,
- szTempString,
- 39 - strlen(od_control.system_name));
- od_control.sysop_name[39] = '\0';
- break;
-
- case 23:
- strncpy(od_control.system_name,
- szTempString, 39);
- od_control.system_name[39] = '\0';
- break;
-
- case 24:
- od_control.user_rip =
- ODCfgIsTrue(szTempString);
- }
- }
- }
- }
- }
- break;
-
- case 22:
- bInactivitySet = TRUE;
- nInactivity = ODCfgGetWordDecimal(pchConfigText);
- if(nInactivity < 0) nInactivity = 0;
- break;
-
- case 23:
- btPageLength = (BYTE)ODCfgGetWordDecimal(pchConfigText);
- bPageLengthSet = TRUE;
- break;
-
- case 24:
- od_control.od_chat_color2 =
- od_color_config(pchConfigText);
- break;
-
- case 25:
- od_control.od_chat_color1 =
- od_color_config(pchConfigText);
- break;
-
- case 26:
- od_control.od_list_title_col =
- od_color_config(pchConfigText);
- break;
-
- case 27:
- od_control.od_list_name_col =
- od_color_config(pchConfigText);
- break;
-
- case 28:
- od_control.od_list_size_col =
- od_color_config(pchConfigText);
- break;
-
- case 29:
- od_control.od_list_comment_col =
- od_color_config(pchConfigText);
- break;
-
- case 30:
- od_control.od_list_offline_col =
- od_color_config(pchConfigText);
- break;
-
- case 31:
- strncpy(szDesiredPersonality, pchConfigText, 32);
- szDesiredPersonality[32] = '\0';
- break;
-
- case 32:
- /* "NoFossil" */
- od_control.od_no_fossil = TRUE;
- break;
-
- case 33:
- /* "PortAddress" */
- od_control.od_com_address = ODCfgGetWordHex(pchConfigText);
- break;
-
- case 34:
- /* "PortIRQ" */
- od_control.od_com_irq =
- (char)ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 35:
- /* "ReceiveBuffer" */
- od_control.od_com_rx_buf =
- ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 36:
- /* "TransmitBuffer" */
- od_control.od_com_tx_buf =
- ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 37:
- /* "PagePromptColour" */
- od_control.od_continue_col =
- od_color_config(pchConfigText);
- break;
-
- case 38:
- /* "LocalMode" */
- od_control.od_force_local = TRUE;
- break;
-
- case 39:
- /* "PopupMenuTitleColour" */
- od_control.od_menu_title_col =
- od_color_config(pchConfigText);
- break;
-
- case 40:
- /* "PopupMenuBorderColour" */
- od_control.od_menu_border_col =
- od_color_config(pchConfigText);
- break;
-
- case 41:
- /* "PopupMenuTextColour" */
- od_control.od_menu_text_col =
- od_color_config(pchConfigText);
- break;
-
- case 42:
- /* "PopupMenuKeyColour" */
- od_control.od_menu_key_col =
- od_color_config(pchConfigText);
- break;
-
- case 43:
- /* "PopupMenuHighlightColour" */
- od_control.od_menu_highlight_col =
- od_color_config(pchConfigText);
- break;
-
- case 44:
- /* "PopupMenuHighKeyColour" */
- od_control.od_menu_highkey_col =
- od_color_config(pchConfigText);
- break;
-
- case 45:
- /* "NoFIFO" */
- od_control.od_com_no_fifo = TRUE;
- break;
-
- case 46:
- /* "FIFOTriggerSize" */
- od_control.od_com_fifo_trigger =
- (BYTE)ODCfgGetWordDecimal(pchConfigText);
- break;
-
- case 47:
- /* "DisableDTR" */
- ODStringCopy(od_control.od_disable_dtr, pchConfigText,
- sizeof(od_control.od_disable_dtr));
- break;
-
- case 48:
- /* "NoDTRDisable" */
- od_control.od_disable |= DIS_DTR_DISABLE;
- break;
- }
- }
- }
-
- /* Check if command is a programmer customized option. */
- if(wCurrent >= TEXT_SIZE && custom_line_function != NULL)
- {
- (*custom_line_function)((char *)&szToken, pchConfigText);
- }
- }
-
- /* Close the configuration file. */
- fclose(pfConfigFile);}
- else
- {
- if(bConfigFileRequired)
- {
- od_control.od_error = ERR_FILEOPEN;
- ODInitError("Unable to access configuration file.");
- exit(od_control.od_errorlevel[1]);
- }
- }
-
- /* Close custom door info file */
- if(pfCustomDropFile != NULL)
- {
- fclose(pfCustomDropFile);
- }
-
- bIsCallbackActive = FALSE;
-
- /* Carry out normal OpenDoors initialization. */
- bCalledFromConfig = TRUE;
- od_init();
- bCalledFromConfig = FALSE;
-
- /* Update any settings that need to be updated. */
- if(bPageSet)
- {
- od_control.od_pagestartmin = nPageStart;
- od_control.od_pageendmin = nPageEnd;
- }
-
- if(bInactivitySet && nInactivity != 0)
- {
- od_control.od_inactivity = nInactivity;
- }
-
- if(bSysopNameSet)
- {
- strcpy((char *)&od_control.sysop_name, (char *)&szForcedSysopName);
- }
-
- if(bSystemNameSet)
- {
- strcpy((char *)&od_control.system_name, (char *)&szForcedSystemName);
- }
-
- if(bPageLengthSet)
- {
- od_control.od_page_len = btPageLength;
- }
-
- if(bWorkDirSet)
- {
- ODDirChangeCurrent(szWorkDir);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODCfgGetWordDecimal() *** PRIVATE FUNCTION ***
- *
- * Obtains the value of the next decimal number in the provided string, in the
- * form of a WORD (16 bit value).
- *
- * Parameters: pszConfigText - String to examine.
- *
- * Return: The first number obtained from the string.
- */
-static WORD ODCfgGetWordDecimal(char *pszConfigText)
-{
- ASSERT(pszConfigText != NULL);
-
- /* Skip any initial non-numerical characters. */
- while(*pszConfigText && (*pszConfigText < '0' || *pszConfigText > '9'))
- {
- ++pszConfigText;
- }
-
- /* Return value of number. */
- return(atoi(pszConfigText));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODCfgGetDWordDecimal() *** PRIVATE FUNCTION ***
- *
- * Obtains the value of the next decimal number in the provided string, in the
- * form of a DWORD (32 bit value).
- *
- * Parameters: pszConfigText - String to examine.
- *
- * Return: The first number obtained from the string.
- */
-static DWORD ODCfgGetDWordDecimal(char *pszConfigText)
-{
- ASSERT(pszConfigText != NULL);
-
- /* Skip any initial non-numerical characters. */
- while(*pszConfigText && (*pszConfigText < '0' || *pszConfigText > '9'))
- {
- ++pszConfigText;
- }
-
- /* Return value of number. */
- return(atol(pszConfigText));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODCfgGetWordHex() *** PRIVATE FUNCTION ***
- *
- * Obtains the value of the next hexidecimal number in the provided string, in
- * the form of a WORD (16 bit value).
- *
- * Parameters: pszConfigText - String to examine.
- *
- * Return: The first number obtained from the string.
- */
-static WORD ODCfgGetWordHex(char *pszConfigText)
-{
- WORD wToReturn;
-
- ASSERT(pszConfigText != NULL);
-
- /* Skip any initial non-hexidecimal characters. */
- while(*pszConfigText && (*pszConfigText < '0' || *pszConfigText > '9')
- && (toupper(*pszConfigText) < 'A' || toupper(*pszConfigText) > 'F'))
- {
- ++pszConfigText;
- }
-
- sscanf(pszConfigText, "%x", &wToReturn);
-
- return(wToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODCfgGetNextTime() *** PRIVATE FUNCTION ***
- *
- * Obtains the next time from a string, updating the string pointer to point to
- * the position in the string after the end of the time. The time information
- * is stored in the btTimeNumVals and awTimeVal private global variables.
- *
- * Parameters: ppchConfigText - Pointer to character pointer to the string,
- * which is to be updated.
- *
- * Return: void
- */
-static void ODCfgGetNextTime(char **ppchConfigText)
-{
- char *pchConfigText = (char *)(*ppchConfigText);
-
- ASSERT(ppchConfigText != NULL);
- ASSERT(*ppchConfigText != NULL);
-
- btTimeNumVals = 0;
- awTimeVal[0] = 0;
- awTimeVal[1] = 0;
- awTimeVal[2] = 0;
-
-
- while(*pchConfigText && (*pchConfigText == ' ' || *pchConfigText == '\t'))
- {
- ++pchConfigText;
- }
-
-
- while(*pchConfigText && btTimeNumVals < 3)
- {
- if(*pchConfigText < '0' || *pchConfigText > '9') break;
- awTimeVal[btTimeNumVals++] = atoi(pchConfigText);
- while(*pchConfigText && *pchConfigText >= '0' && *pchConfigText <= '9')
- {
- ++pchConfigText;
- }
- if(*pchConfigText == ':' || *pchConfigText == '.' || *pchConfigText == ','
- || *pchConfigText == ';')
- {
- ++pchConfigText;
- }
- }
-
- *ppchConfigText = (char *)pchConfigText;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODCfgIsTrue() *** PRIVATE FUNCTION ***
- *
- * Determines whether the specified string represents a TRUE or FALSE value.
- * For example "Yes", "TRUE", "Y" and "1" all represent TRUE values, while
- * "No", "FALSE", "N" and "0" all represent FALSE values.
- *
- * Parameters: pszConfigText - String to examine.
- *
- * Return: The Boolean value represented by the string.
- */
-static BOOL ODCfgIsTrue(char *pszConfigText)
-{
- ASSERT(pszConfigText != NULL);
-
- while(*pszConfigText && (*pszConfigText == ' ' || *pszConfigText == '\t'))
- {
- ++pszConfigText;
- }
-
- switch(*pszConfigText)
- {
- case '1':
- case 't':
- case 'T':
- case 'y':
- case 'Y':
- case 'g':
- case 'G':
- return(TRUE);
- }
-
- return(FALSE);
-}
diff --git a/src/odoors/ODCmdLn.c b/src/odoors/ODCmdLn.c
deleted file mode 100644
index 5d0da98ce1709665f17c1f8866e2c6fc61c924d6..0000000000000000000000000000000000000000
--- a/src/odoors/ODCmdLn.c
+++ /dev/null
@@ -1,664 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODCmdLn.c
- *
- * Description: Implementation of od_parse_cmd_line() function, which
- * parses standard command-line parameters for OpenDors programs.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Jan 29, 1995 6.00 BP Created.
- * Aug 19, 1995 6.00 BP Cleaned up indentations.
- * Nov 12, 1995 6.00 BP 32-bit portability.
- * Nov 12, 1995 6.00 BP Added -CONFIG parameter.
- * Dec 21, 1995 6.00 BP Added -HANDLE parameter.
- * Dec 24, 1995 6.00 BP puts() -> printf().
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 03, 1996 6.00 BP Recognize -D for -DROPFILE.
- * Jan 03, 1996 6.00 BP Parameters must begin with - or /.
- * Feb 06, 1996 6.00 BP Added -SILENT for od_silent_mode.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 20, 1996 6.00 BP Added bParsedCmdLine.
- * Feb 21, 1996 6.00 BP Make cmd line options overriding.
- * Feb 25, 1996 6.00 BP Fix -P COMx.
- * Feb 27, 1996 6.00 BP Add -P COMx to command line help.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Apr 08, 1996 6.10 BP Added command-line parsing callbacks.
- * Apr 24, 2002 6.22 RS Added -SOCKET parameter.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <ctype.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODPlat.h"
-#include "ODCore.h"
-#include "ODInEx.h"
-
-
-/* Maximum number of command-line arguments. Any additional arguments will */
-/* simply be ignored. */
-#define MAX_ARGS 32
-
-/* Size of temporary string that will hold any options following custom */
-/* command-line keywords that are passed to the client application's handler */
-/* function. */
-#define CUSTOM_OPTION_SIZE 80
-
-/* Command-line parameter identifiers. */
-typedef enum
-{
- kParamConfigFile,
- kParamLocal,
- kParamBPS,
- kParamPort,
- kParamNode,
- kParamHelp,
- kParamPersonality,
- kParamMaxTime,
- kParamAddress,
- kParamIRQ,
- kParamNoFOSSIL,
- kParamNoFIFO,
- kParamDropFile,
- kParamUserName,
- kParamTimeLeft,
- kParamSecurity,
- kParamLocation,
- kParamGraphics,
- kParamBBSName,
- kParamPortHandle,
- kParamSocketDescriptor,
- kParamSilentMode,
- kParamOption,
- kParamUnknown
-} tCommandLineParameter;
-
-
-/* Private function prototypes. */
-static void ODAdvanceToNextArg(INT *pnCurrentArg, INT nArgCount,
- char *pszOption);
-static void ODGetNextArgName(INT *pnCurrentArg, INT nArgCount,
- char *papszArguments[], char *pszString, size_t nStringSize);
-static tCommandLineParameter ODGetCommandLineParameter(char *pszArgument);
-
-
-/* Private variables. */
-#define CONFIG_FILENAME_SIZE 80
-static char szConfigFilename[CONFIG_FILENAME_SIZE];
-
-
-/* ----------------------------------------------------------------------------
- * od_parse_cmd_line()
- *
- * Function to parse an OpenDoors program's command-line, interpreting
- * standard command-line parameters. This is one of the few OpenDoors APIs
- * that will not automatically initialize OpenDoors if it hasn't already
- * been done. This is because od_parse_cmd_line() performs setup that must
- * be done prior to OpenDoors initialization.
- *
- * Parameters: FOR NON-WIN32 VERSIONS:
- *
- * nArgCount - Number of command line arguments, as passed to
- * main() in argc.
- *
- * papszArguments - Pointer to array of pointers to string
- * arguments, as passed to main() in argv. The
- * first element of this array (usually the
- * full path and filename of the executable)
- * is ignored.
- *
- * FOR WIN32 VERSION:
- *
- * pszCmdLine - Pointer to the command line string, as passed
- * to WinMain().
- *
- * Return: void
- */
-#ifdef ODPLAT_WIN32
-ODAPIDEF void ODCALL od_parse_cmd_line(LPSTR pszCmdLine)
-#else /* !ODPLAT_WIN32 */
-ODAPIDEF void ODCALL od_parse_cmd_line(INT nArgCount, char *papszArguments[])
-#endif /* !ODPLAT_WIN32 */
-{
- char *pszCurrentArg;
- INT nCurrentArg;
- INT n;
-#ifdef ODPLAT_WIN32
- INT nArgCount;
- char *papszArguments[MAX_ARGS];
- char *pszCmdLineCopy;
- char *pchCurrent
-#endif /* ODPLAT_WIN32 */
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_parse_cmd_line()");
-
-#ifdef ODPLAT_WIN32
- /* Attempt to allocate space for a copy of the command line. */
- pszCmdLineCopy = malloc(strlen(pszCmdLine) + 1);
- if(pszCmdLineCopy == NULL)
- {
- od_control.od_error = ERR_MEMORY;
- return;
- }
-
- /* Copy the command line text into our working copy. */
- strcpy(pszCmdLineCopy, pszCmdLine);
-
- /* Loop, building papszArguments and nArgCount. */
- pchCurrent = pszCmdLineCopy;
- for(nArgCount = 0; nArgCount < MAX_ARGS && *pchCurrent != '\0'; ++nArgCount)
- {
- /* Store address of the next command line argument. */
- papszArguments[nArgCount] = pchCurrent;
-
- /* Skip forward to the next white space. */
- while(*pchCurrent != '\0' && !isspace(*pchCurrent))
- {
- ++pchCurrent;
- }
-
- /* Replace white space characters with '\0' string terminators, until */
- /* we reach the next command line argument, or the end of the string. */
- while(*pchCurrent != '\0' && isspace(*pchCurrent))
- {
- *pchCurrent = '\0';
- ++pchCurrent;
- }
- }
-#endif /* ODPLAT_WIN32 */
-
-#ifndef ODPLAT_WIN32
- /* Check validity of parameters. */
- if(papszArguments == NULL)
- {
- od_control.od_error = ERR_PARAMETER;
- return;
- }
-#endif /* !ODPLAT_WIN32 */
-
- /* Record that od_parse_cmd_line() has been called. */
- bParsedCmdLine = TRUE;
-
- /* Initialize variables that are not initialized in od_init() if */
- /* od_parse_cmd_line is specified. */
- od_control.user_ansi = TRUE;
- od_control.user_timelimit = 60;
-
-#ifdef ODPLAT_WIN32
- for(nCurrentArg = 0; nCurrentArg < nArgCount; ++nCurrentArg)
-#else /* !ODPLAT_WIN32 */
- for(nCurrentArg = 1; nCurrentArg < nArgCount; ++nCurrentArg)
-#endif /* !ODPLAT_WIN32 */
- {
- pszCurrentArg = papszArguments[nCurrentArg];
-
- switch(ODGetCommandLineParameter(pszCurrentArg))
- {
- case kParamConfigFile:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- strncpy(szConfigFilename, papszArguments[nCurrentArg],
- sizeof(szConfigFilename) - 1);
- szConfigFilename[sizeof(szConfigFilename) - 1] = '\0';
- od_control.od_config_filename = szConfigFilename;
- break;
-
- case kParamLocal:
- od_control.od_force_local = TRUE;
- break;
-
- case kParamBPS:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.baud = atol(papszArguments[nCurrentArg]);
- wPreSetInfo |= PRESET_BPS;
- break;
-
- case kParamPort:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- if(strnicmp(papszArguments[nCurrentArg], "COM", 3) == 0)
- {
- od_control.port = atoi(papszArguments[nCurrentArg] + 3) - 1;
- }
- else
- {
- od_control.port = atoi(papszArguments[nCurrentArg]);
- }
- wPreSetInfo |= PRESET_PORT;
- break;
-
- case kParamHelp:
- if(od_control.od_cmd_line_help_func != NULL)
- {
- (*od_control.od_cmd_line_help_func)();
- exit(0);
- }
-
-#ifdef ODPLAT_WIN32
- sprintf(szODWorkString, "%s Command Line Options",
- strlen(od_control.od_prog_name) > 0 ? od_control.od_prog_name
- : OD_VER_SHORTNAME);
- if(od_control.od_cmd_line_help != NULL)
- {
- MessageBox(NULL, od_control.od_cmd_line_help, szODWorkString,
- MB_ICONINFORMATION | MB_OK);
- }
- else
- {
- MessageBox(NULL,
- "(Note that some options can be overriden by configuration or drop files.)\n"
- "\n"
- "-C x or -CONFIG x\t- Specfies configuration filename.\n"
- "-L or -LOCAL\t- Causes door to operate in local mode, without requiring a drop file.\n"
- "-D or -DROPFILE x\t- Door information file directory and/or filename.\n"
- "-N x or -NODE x\t- Sets the node number to use.\n"
- "-B x or -BPS x\t- Sets the serial port <---> modem bps (baud) rate to use.\n"
- "-P x or -PORT x\t- Sets serial port to use. For COM1: use -P 0 or -P COM1, for COM2: use -P 1 or -P COM2, etc.\n"
- "-HANDLE x\t- Provides an already open serial port handle.\n"
- "-SOCKET x\t- Provides an already open TCP/IP socket descriptor.\n"
- "-SILENT\t\t- Operate in silent mode, with no local display.\n"
- "-MAXTIME x\t- Sets the maximum number of minutes that user will be permitted to access the door.\n"
- "-G or -GRAPHICS\t- Unless followed by 0 or N, turns on ANSI display mode.\n"
- "-BBSNAME x\t- Name of BBS.\n"
- "-USERNAME x\t- Name of user who is currently online.\n"
- "-TIMELEFT x\t- User's time remaining online.\n"
- "-SECURITY x\t- User's security level.\n"
- "-LOCATION x\t- Location from which user is calling.\n"
- "-?, -H or -HELP\t- Displays command-line help and exits.",
- szODWorkString, MB_ICONINFORMATION | MB_OK);
- }
-#else /* !ODPLAT_WIN32 */
- printf("AVALIABLE COMMAND LINE OPTIONS ");
- if(od_control.od_cmd_line_help != NULL)
- {
- printf(od_control.od_cmd_line_help);
- }
- else
- {
- printf("(Some can be overriden by config/drop file)\n");
- printf(" -C or -CONFIG - Specfies configuration filename.\n");
- printf(" -L or -LOCAL - Causes door to operate in local mode, without requiring a\n");
- printf(" door information (drop) file.\n");
- printf(" -D or -DROPFILE - Door information file directory and/or filename.\n");
- printf(" -N x or -NODE x - Sets the node number to use.\n");
- printf(" -B x or -BPS x - Sets the serial port <---> modem bps (baud) rate to use.\n");
- printf(" -P x or -PORT x - Sets serial port to use. For COM1: use -P 0 or -P COM1, for\n");
- printf(" COM2: use -P 1 or -P COM2, etc.\n");
- printf(" -ADDRESS x - Sets serial port address in HEXIDECIMAL (if no FOSSIL).\n");
- printf(" -IRQ x - Sets the serial port IRQ line (if FOSSIL is not used).\n");
- printf(" -NOFOSSIL - Disables use of FOSSIL driver, even if available.\n");
- printf(" -NOFIFO - Disables use of 16550 FIFO buffers (only if no FOSSIL).\n");
- printf(" -MAXTIME x - Sets the maximum number of minutes that any user will be\n");
- printf(" permitted to access the door, regardless of time left.\n");
- printf(" -SILENT - Operate in silent mode, with no local display.\n");
- printf(" -G or -GRAPHICS - Unless followed by 0 or N, turns on ANSI display mode.\n");
- printf(" -BBSNAME x - Name of BBS.\n");
- printf(" -USERNAME x - Name of user who is currently online.\n");
- printf(" -TIMELEFT x - User's time remaining online.\n");
- printf(" -SECURITY x - User's security level.\n");
- printf(" -LOCATION x - Location from which user is calling.\n");
- printf(" -?, -H or -HELP - Displays command-line help and exits.\n");
- }
-#endif /* !ODPLAT_WIN32 */
- exit(1);
- break;
-
- case kParamNode:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_node = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamMaxTime:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_maxtime = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamAddress:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_com_address =
- (WORD)strtol(papszArguments[nCurrentArg], NULL, 16);
- break;
-
- case kParamIRQ:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_com_irq = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamNoFOSSIL:
- od_control.od_no_fossil = TRUE;
- break;
-
- case kParamNoFIFO:
- od_control.od_com_no_fifo = TRUE;
- break;
-
- case kParamDropFile:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- strncpy(od_control.info_path, papszArguments[nCurrentArg],
- sizeof(od_control.info_path) - 1);
- od_control.info_path[sizeof(od_control.info_path) - 1] = '\0';
- break;
-
- case kParamUserName:
- ODGetNextArgName(&nCurrentArg, nArgCount, papszArguments,
- od_control.user_name, sizeof(od_control.user_name));
- break;
-
- case kParamTimeLeft:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.user_timelimit = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamSecurity:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.user_security = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamLocation:
- ODGetNextArgName(&nCurrentArg, nArgCount, papszArguments,
- od_control.user_location, sizeof(od_control.user_location));
- break;
-
- case kParamGraphics:
- n = nCurrentArg;
- if(++n < nArgCount)
- {
- if(atoi(papszArguments[n]) == 0 ||
- stricmp(papszArguments[n], "N") == 0)
- {
- od_control.user_ansi = FALSE;
- ++nCurrentArg;
- break;
- }
- }
- od_control.user_ansi = TRUE;
- break;
-
- case kParamBBSName:
- ODGetNextArgName(&nCurrentArg, nArgCount, papszArguments,
- od_control.system_name, sizeof(od_control.system_name));
- break;
-
- case kParamSocketDescriptor:
- od_control.od_use_socket = TRUE;
- /* fall through */
-
- case kParamPortHandle:
- ODAdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_open_handle = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamSilentMode:
- od_control.od_silent_mode = TRUE;
- break;
-
- case kParamUnknown:
- /* If the client application provided a custom command line */
- /* handler function, then pass this unrecognized command-line */
- /* parameter and any options to that callback function. */
- if(od_control.od_cmd_line_handler != NULL)
- {
- char szCustomOptions[CUSTOM_OPTION_SIZE];
- ODGetNextArgName(&nCurrentArg, nArgCount, papszArguments,
- szCustomOptions, sizeof(szCustomOptions));
- (*od_control.od_cmd_line_handler)(pszCurrentArg,
- szCustomOptions);
- }
- break;
- }
- }
-
-#ifdef ODPLAT_WIN32
- free(pszCmdLineCopy);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODAdvanceToNextArg() *** PRIVATE FUNCTION ***
- *
- * Moves to the argument for a particular command line option.
- *
- * Parameters: pnCurrentArg - Pointer to current argument number.
- *
- * nArgCount - Total number of arguments available.
- *
- * pszOption - Pointer to command line option name.
- *
- * Return: void
- */
-static void ODAdvanceToNextArg(INT *pnCurrentArg, INT nArgCount,
- char *pszOption)
-{
- ASSERT(pnCurrentArg != NULL);
- ASSERT(pszOption != NULL);
-
- if(++*pnCurrentArg >= nArgCount)
- {
- printf("Missing parameter for option: %s\n", pszOption);
- exit(1);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODGetNextArgName() *** PRIVATE FUNCTION ***
- *
- * Obtains a multi-word name from command-line.
- *
- * Parameters: pnCurrentArg - Pointer to integer storing current argument
- * number.
- *
- * nArgCount - The total number of command-line argument
- *
- * papszArguments - Pointer to array of pointers to string
- * arguments, as passed to main() in argv.
- *
- * pszString - Pointer to string in which name will string
- * be stored.
- *
- * nStringSize - Size of the string.
- *
- * Return: void
- */
-static void ODGetNextArgName(INT *pnCurrentArg, INT nArgCount,
- char *papszArguments[], char *pszString, size_t nStringSize)
-{
- BOOL bFirst = TRUE;
-
- ASSERT(pnCurrentArg != NULL);
- ASSERT(papszArguments != NULL);
- ASSERT(pszString != NULL);
- ASSERT(nStringSize > 0);
-
- if((*pnCurrentArg) + 1 >= nArgCount)
- {
- printf("Missing parameter for option: %s\n",
- papszArguments[(*pnCurrentArg) - 1]);
- exit(1);
- }
-
- pszString[0] = '\0';
-
- while(++*pnCurrentArg < nArgCount)
- {
- if(ODGetCommandLineParameter(papszArguments[*pnCurrentArg])
- != kParamOption)
- {
- --*pnCurrentArg;
- break;
- }
-
- if(strlen(pszString) >= nStringSize - 1)
- {
- break;
- }
-
- if(!bFirst)
- {
- strcat(pszString, " ");
- }
-
- strncat(pszString, papszArguments[*pnCurrentArg],
- strlen(pszString) - nStringSize - 1);
- pszString[nStringSize - 1] = '\0';
-
- bFirst = FALSE;
- }
-
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODGetCommandLineParameter() *** PRIVATE FUNCTION ***
- *
- * Determines which command-line option, if any, is specified by an argument
- * string.
- *
- * Parameters: pszArgument - Pointer to string containing raw command-line
- * argument.
- *
- * Return: A tCommandLineParameter, identifying which command-line option,
- * if any, matches the argument string.
- */
-static tCommandLineParameter ODGetCommandLineParameter(char *pszArgument)
-{
- ASSERT(pszArgument != NULL);
-
- if(*pszArgument == '-' || *pszArgument == '/')
- {
- ++pszArgument;
- }
- else
- {
- return(kParamOption);
- }
-
- if(stricmp(pszArgument, "C") == 0
- || stricmp(pszArgument, "CONFIG") == 0
- || stricmp(pszArgument, "CONFIGFILE") == 0
- || stricmp(pszArgument, "CFGFILE") == 0
- || stricmp(pszArgument, "CFG") == 0)
- {
- return(kParamConfigFile);
- }
- else if(stricmp(pszArgument, "L") == 0
- || stricmp(pszArgument, "LOCAL") == 0)
- {
- return(kParamLocal);
- }
- else if(stricmp(pszArgument, "B") == 0
- || stricmp(pszArgument, "BPS") == 0
- || stricmp(pszArgument, "BAUD") == 0)
- {
- return(kParamBPS);
- }
- else if(stricmp(pszArgument, "P") == 0
- || stricmp(pszArgument, "PORT") == 0)
- {
- return(kParamPort);
- }
- else if(stricmp(pszArgument, "N") == 0
- || stricmp(pszArgument, "NODE") == 0)
- {
- return(kParamNode);
- }
- else if(stricmp(pszArgument, "?") == 0
- || stricmp(pszArgument, "H") == 0
- || stricmp(pszArgument, "HELP") == 0)
- {
- return(kParamHelp);
- }
- else if(stricmp(pszArgument, "PERSONALITY") == 0)
- {
- return(kParamPersonality);
- }
- else if(stricmp(pszArgument, "MAXTIME") == 0)
- {
- return(kParamMaxTime);
- }
- else if(stricmp(pszArgument, "ADDRESS") == 0)
- {
- return(kParamAddress);
- }
- else if(stricmp(pszArgument, "IRQ") == 0)
- {
- return(kParamIRQ);
- }
- else if(stricmp(pszArgument, "NOFOSSIL") == 0)
- {
- return(kParamNoFOSSIL);
- }
- else if(stricmp(pszArgument, "NOFIFO") == 0)
- {
- return(kParamNoFIFO);
- }
- else if(stricmp(pszArgument, "DROPFILE") == 0 ||
- stricmp(pszArgument, "D") == 0)
- {
- return(kParamDropFile);
- }
- else if(stricmp(pszArgument, "USERNAME") == 0)
- {
- return(kParamUserName);
- }
- else if(stricmp(pszArgument, "TIMELEFT") == 0)
- {
- return(kParamTimeLeft);
- }
- else if(stricmp(pszArgument, "SECURITY") == 0)
- {
- return(kParamSecurity);
- }
- else if(stricmp(pszArgument, "LOCATION") == 0)
- {
- return(kParamLocation);
- }
- else if(stricmp(pszArgument, "GRAPHICS") == 0
- || stricmp(pszArgument, "G") == 0)
- {
- return(kParamGraphics);
- }
- else if(stricmp(pszArgument, "BBSNAME") == 0)
- {
- return(kParamBBSName);
- }
- else if(stricmp(pszArgument, "HANDLE") == 0)
- {
- return(kParamPortHandle);
- }
- else if(stricmp(pszArgument, "SOCKET") == 0)
- {
- return(kParamSocketDescriptor);
- }
- else if(stricmp(pszArgument, "SILENT") == 0)
- {
- return(kParamSilentMode);
- }
- else
- {
- return(kParamUnknown);
- }
-}
diff --git a/src/odoors/ODCom.c b/src/odoors/ODCom.c
deleted file mode 100644
index 4564c40177faf1f1cd6efeef9e2e1ef83ab9ba80..0000000000000000000000000000000000000000
--- a/src/odoors/ODCom.c
+++ /dev/null
@@ -1,3609 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODCom.c
- *
- * Description: Generic serial I/O routines, provide a single interface to
- * serial ports on any platform.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 20, 1994 6.00 BP Handle BIOS missing port addrs.
- * Oct 20, 1994 6.00 BP Standardized coding style.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Dec 07, 1994 6.00 BP Support for RTS/CTS flow control.
- * Dec 10, 1994 6.00 BP Allow word frmt setting for intern I/O
- * Dec 13, 1994 6.00 BP Remove include of dir.h.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Jan 01, 1995 6.00 BP Integrate in Win32 code.
- * Jan 01, 1995 6.00 BP Add FLOW_DEFAULT setting.
- * Jan 01, 1995 6.00 BP Added ODComWaitEvent().
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 21, 1995 6.00 BP Ported to Win32.
- * Dec 21, 1995 6.00 BP Add ability to use already open port.
- * Jan 09, 1996 6.00 BP Supply actual in/out buffer size used.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Initial support for Door32 interface.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Jan 13, 1997 6.10 BP Fixes for Door32 support.
- * Oct 19, 2001 6.20 RS Added TCP/IP socket (telnet) support.
- * Oct 22, 2001 6.21 RS Fixed disconnected socket detection.
- * Aug 22, 2002 6.22 RS Fixed bugs in ODComCarrier and ODComWaitEvent
- * Aug 22, 2002 6.22 MD Modified socket functions for non-blocking use.
- * Sep 18, 2002 6.22 MD Fixed bugs in ODComWaitEvent for non-blocking sockets.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <ctype.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#ifdef ODPLAT_NIX
-#include <sys/ioctl.h>
-#include <signal.h>
-#include <termios.h>
-#endif
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODCom.h"
-#include "ODUtil.h"
-
-
-/* The following define determines whether serial port function should */
-/* ASSERT or return an error code on programmer erorrs (e.g. invalid */
-/* parameters. */
-#define ASSERT_ON_INVALID_CALLS
-
-/* The following code defines the VERIFY_CALL() macro, which maps to an */
-/* ASSERT if ASSERT_ON_INVALID_CALLS is defined. Otherwise, this macro */
-/* maps to a test which will return an error code to the caller. */
-#ifdef ASSERT_ON_INVALID_CALLS
-#define VERIFY_CALL(x) ASSERT(x)
-#else /* !ASSERT_ON_INVALID_CALLS */
-#define VERIFY_CALL(x) if(x) return(kODRCInvalidCall)
-#endif /* !ASSERT_ON_INVALID_CALLS */
-
-
-/* The following defines determine which serial I/O mechanisms should be */
-/* supported. */
-
-/* Serial I/O mechanisms supported under MS-DOS version. */
-#ifdef ODPLAT_DOS
-#define INCLUDE_FOSSIL_COM /* INT 14h FOSSIL-based I/O. */
-#define INCLUDE_UART_COM /* Internal interrupt driven I/O. */
-#endif /* ODPLAT_DOS */
-
-/* Serial I/O mechanisms supported under Win32 version. */
-#ifdef ODPLAT_WIN32
-#define INCLUDE_WIN32_COM /* Win32 API serial I/O. */
-#define INCLUDE_DOOR32_COM /* Door32 I/O interface. */
-#define INCLUDE_SOCKET_COM /* TCP/IP socket I/O. */
-#endif /* ODPLAT_WIN32 */
-
-/* Serial I/O mechanisms supported inder *nix version */
-#ifdef ODPLAT_NIX
-#define INCLUDE_STDIO_COM
-#endif /* ODPLAT_NIX */
-
-/* Include "windows.h" for Win32-API based serial I/O. */
-#ifdef INCLUDE_WIN32_COM
-#include "windows.h"
-#endif /* INCLUDE_WIN32_COM */
-
-/* terminal variables */
-#ifdef INCLUDE_STDIO_COM
-struct termios tio_default; /* Initial term settings */
-#endif
-
-
-#if defined(_WIN32) && defined(INCLUDE_SOCKET_COM)
- #include <winsock.h>
- static WSADATA WSAData; /* WinSock data */
-#endif
-
-/* ========================================================================= */
-/* Serial port object structure. */
-/* ========================================================================= */
-
-/* Win32-API serial I/O implementation requires current timeout setting */
-/* status variable in serial port object structure. */
-#ifdef INCLUDE_WIN32_COM
-typedef enum
-{
- kNotSet,
- kBlocking,
- kNonBlocking
-} tReadTimeoutState;
-#endif /* INCLUDE_WIN32_COM */
-
-/* Structure associated with each serial port handle. */
-typedef struct
-{
- BOOL bIsOpen;
- BOOL bUsingClientsHandle;
- BYTE btFlowControlSetting;
- long lSpeed;
- BYTE btPort;
- int nPortAddress;
- BYTE btIRQLevel;
- BYTE btWordFormat;
- int nReceiveBufferSize;
- int nTransmitBufferSize;
- BYTE btFIFOSetting;
- tComMethod Method;
- void (*pfIdleCallback)(void);
-#ifdef INCLUDE_WIN32_COM
- HANDLE hCommDev;
- tReadTimeoutState ReadTimeoutState;
-#endif /* INCLUDE_WIN32_COM */
-#ifdef INCLUDE_DOOR32_COM
- HINSTANCE hinstDoor32DLL;
- BOOL (WINAPI *pfDoorInitialize)(void);
- BOOL (WINAPI *pfDoorShutdown)(void);
- BOOL (WINAPI *pfDoorWrite)(const BYTE *pbData, DWORD dwSize);
- DWORD (WINAPI *pfDoorRead)(BYTE *pbData, DWORD dwSize);
- HANDLE (WINAPI *pfDoorGetAvailableEventHandle)(void);
- HANDLE (WINAPI *pfDoorGetOfflineEventHandle)(void);
-#endif /* INCLUDE_DOOR32_COM */
-#ifdef INCLUDE_SOCKET_COM
- SOCKET socket;
-#endif
-} tPortInfo;
-
-/* ========================================================================= */
-/* Internal interrupt-driven serial I/O specific defintions & functions. */
-/* ========================================================================= */
-
-#ifdef INCLUDE_UART_COM
-
-/* Private function prototypes, used by internal UART async serial I/O. */
-static void ODComSetVect(BYTE btVector, void (INTERRUPT far *pfISR)(void));
-static void (INTERRUPT far *ODComGetVect(BYTE btVector))(void);
-static void INTERRUPT ODComInternalISR();
-static BOOL ODComInternalTXReady(void);
-static void ODComInternalResetRX(void);
-static void ODComInternalResetTX(void);
-
-
-/* Offsets of UART registers. */
-#define TXBUFF 0 /* Transmit buffer register. */
-#define RXBUFF 0 /* Receive buffer register. */
-#define DLLSB 0 /* Divisor latch LS byte. */
-#define DLMSB 1 /* Divisor latch MS byte. */
-#define IER 1 /* Interrupt enable register. */
-#define IIR 2 /* Interrupt ID register. */
-#define LCR 3 /* Line control register. */
-#define MCR 4 /* Modem control register. */
-#define LSR 5 /* Line status register. */
-#define MSR 6 /* Modem status register. */
-
-/* FIFO control register bits. */
-#define FE 0x01 /* FIFO enable. */
-#define RR 0x02 /* FIFO receive buffer reset. */
-#define TR 0x04 /* FIFO transmit buffer reset. */
-#define FTS_1 0x00 /* FIFO trigger size 1 byte. */
-#define FTS_4 0x40 /* FIFO trigger size 4 bytes. */
-#define FTS_8 0x80 /* FIFO trigger size 8 bytes. */
-#define FTS_14 0xc0 /* FIFO trigger size 14 bytes. */
-
-/* Modem control register (MCR) bits. */
-#define DTR 0x01 /* Data terminal ready. */
-#define NOT_DTR 0xfe /* All bits other than DTR. */
-#define RTS 0x02 /* Request to send. */
-#define NOT_RTS 0xfd /* All bits other than RTS. */
-#define OUT1 0x04 /* Output #1. */
-#define OUT2 0x08 /* Output #2. */
-#define LPBK 0x10 /* Loopback mode bit. */
-
-/* Modem status register (MSR) bits. */
-#define DCTS 0x01 /* Delta clear to send. */
-#define DDSR 0x02 /* Delta data set ready. */
-#define TERI 0x04 /* Trailing edge ring indicator. */
-#define DRLSD 0x08 /* Delta Rx line signal detect. */
-#define CTS 0x10 /* Clear to send. */
-#define DSR 0x20 /* Data set ready. */
-#define RI 0x40 /* Ring indicator. */
-#define RLSD 0x80 /* Receive line signal detect. */
-
-/* Line control register (LCR) bits. */
-#define DATA5 0x00 /* 5 Data bits. */
-#define DATA6 0x01 /* 6 Data bits. */
-#define DATA7 0x02 /* 7 Data bits. */
-#define DATA8 0x03 /* 8 Data bits. */
-
-#define STOP1 0x00 /* 1 Stop bit. */
-#define STOP2 0x04 /* 2 Stop bits. */
-
-#define NOPAR 0x00 /* No parity. */
-#define ODDPAR 0x08 /* Odd parity. */
-#define EVNPAR 0x18 /* Even parity. */
-#define STKPAR 0x28 /* Sticky parity. */
-#define ZROPAR 0x38 /* Zero parity. */
-
-#define DLATCH 0x80 /* Baud rate divisor latch. */
-#define NOT_DL 0x7f /* Turns off divisor latch. */
-
-/* Line status register (LSR) bits. */
-#define RDR 0x01 /* Receive data ready. */
-#define ERRS 0x1E /* All the error bits. */
-#define TXR 0x20 /* Transmitter ready. */
-
-/* Interrupt enable register (IER) bits. */
-#define DR 0x01 /* Data ready. */
-#define THRE 0x02 /* Transmit holding register empty. */
-#define RLS 0x04 /* Receive line status. */
-#define MS 0x08 /* Modem status. */
-
-/* Flow control receive buffer limits. */
-#define RECEIVE_LOW_NUM 1 /* Numerator for low water mark. */
-#define RECEIVE_LOW_DENOM 4 /* Denominator for low water mark. */
-#define RECEIVE_HIGH_NUM 3 /* Numerator for high water mark. */
-#define RECEIVE_HIGH_DENOM 4 /* Denominator for high water mark. */
-
-
-/* Built-in async serial I/O global variables. */
-
-/* These variabes are shared throughout the functions that handle the */
-/* built-in UART-base serial I/O, including the interrupt service routine. */
-/* Since only one copy of these variables exist, the built-in serial I/O */
-/* routines may only be used to access one port at a time. */
-
-/* Default port addresses. */
-/* First 4 addresses are standard addresses used for PC/AT COM1 thru COM4. */
-/* Second 4 addresses are PS/2 standard addresses used for COM5 thru COM8. */
-static int anDefaultPortAddr[] = {0x3f8, 0x2f8, 0x3e8, 0x2e8,
- 0x4220, 0x4228, 0x5220, 0x5228};
-
-/* UART address variables. */
-static int nDataRegAddr; /* Data register address. */
-static int nIntEnableRegAddr; /* Interrupt enable register. */
-static int nIntIDRegAddr; /* Interrupt ID register address. */
-static int nLineCtrlRegAddr; /* Line control register address. */
-static int nModemCtrlRegAddr; /* Modem control register address. */
-static int nLineStatusRegAddr; /* Line status register address. */
-static int nModemStatusRegAddr; /* Modem status register address. */
-
-/* General variables. */
-static BYTE btIntVector; /* Interrupt vector number for port. */
-static char btI8259Bit; /* 8259 bit mask. */
-static char btI8259Mask; /* Copy as it was before open. */
-static int nI8259MaskRegAddr; /* Address of i8259 mask register. */
-static int nI8259EndOfIntRegAddr; /* Address of i8259 EOI register. */
-static int nI8259MasterEndOfIntRegAddr; /* Address of master PIC EOI reg. */
-static char btOldIntEnableReg; /* Original IER contents. */
-static char btOldModemCtrlReg; /* Original MCR contents. */
-static void (INTERRUPT far *pfOldISR)();/* Original ISR routine for IRQ. */
-static char bUsingFIFO = FALSE; /* Are we using 16550 FIFOs? */
-static unsigned char btBaseFIFOCtrl; /* FIFO control register byte. */
-
-
-/* Transmit queue variables. */
-static int nTXQueueSize; /* Actual size of transmit queue. */
-static char *pbtTXQueue; /* Pointer to transmit queue. */
-static int nTXInIndex; /* Location to store next byte. */
-static int nTXOutIndex; /* Location to get next byte. */
-static int nTXChars; /* Count of characters in queue. */
-
-/* Receive queue variables. */
-static int nRXQueueSize; /* Actual size of receive queue. */
-static char *pbtRXQueue; /* Pointer to receive queue. */
-static int nRXInIndex; /* Location to store next byte. */
-static int nRXOutIndex; /* Location to retrieve next byte. */
-static int nRXChars; /* Count of characters in queue. */
-
-/* Flow control variables. */
-static int nRXHighWaterMark; /* High water mark for queue size. */
-static int nRXLowWaterMark; /* Low water mark for queue size. */
-static BYTE btFlowControl; /* Flow control method. */
-static BOOL bStopTrans; /* Flag set to stop transmitting. */
-
-/* ----------------------------------------------------------------------------
- * ODComSetVect() *** PRIVATE FUNCTION ***
- *
- * Sets the function to be called for the specified interrupt level.
- *
- * Parameters: btVector - Interrupt vector level, a value from 0 to 255.
- *
- * pfISR - Pointer to the ISR function to be called.
- *
- * Return: void
- */
-static void ODComSetVect(BYTE btVector, void (INTERRUPT far *pfISR)(void))
-{
- ASM push ds
- ASM mov ah, 0x25
- ASM mov al, btVector
- ASM lds dx, pfISR
- ASM int 0x21
- ASM pop ds
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComGetVect() *** PRIVATE FUNCTION ***
- *
- * Returns the address of the function that is currently called for the
- * specified interrupt level.
- *
- * Parameters: btVector - Interrupt vector level, a value from 0 to 255.
- *
- * Return: A pointer to the code that is currently executed on an interrupt
- * of the speceified level.
- */
-static void (INTERRUPT far *ODComGetVect(BYTE btVector))(void)
-{
- void (INTERRUPT far *pfISR)(void);
-
- ASM push es
- ASM mov ah, 0x35
- ASM mov al, btVector
- ASM int 0x21
- ASM mov word ptr pfISR, bx
- ASM mov word ptr [pfISR+2], bx
- ASM pop es
-
- return(pfISR);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComInternalTXReady() *** PRIVATE FUNCTION ***
- *
- * Returns TRUE if the internal serial I/O transmit buffer is not full.
- *
- * Parameters: none
- *
- * Return: void
- */
-static BOOL ODComInternalTXReady(void)
-{
- /* Return TRUE if tx_chars is less than total tx buffer size. */
- return(nTXChars < nTXQueueSize);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComInternalResetTX() *** PRIVATE FUNCTION ***
- *
- * Clears transmit buffer used by internal serial I/O routines.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODComInternalResetTX(void)
-{
- /* Disable interrupts. */
- ASM cli
-
- /* If we are using 16550A FIFO buffers, then clear the FIFO transmit */
- /* buffer. */
- if(bUsingFIFO)
- {
- ASM mov al, btBaseFIFOCtrl
- ASM or al, TR
- ASM mov dx, nIntIDRegAddr
- ASM out dx, al
- }
-
- /* Reset start, end and total count of characters in buffer */
- /* If buffer is still empty on next transmit interrupt, transmit */
- /* interrupts will be turned off. */
- nTXChars = nTXInIndex = nTXOutIndex = 0;
-
- /* Re-enable interrupts. */
- ASM sti
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComInternalResetRX() *** PRIVATE FUNCTION ***
- *
- * Clears receive buffer used by internal serial I/O routines.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODComInternalResetRX(void)
-{
- /* Disable interrupts. */
- ASM cli
-
- /* If we are using 16550A FIFO buffers, then clear the FIFO receive */
- /* buffer. */
- if(bUsingFIFO)
- {
- ASM mov al, btBaseFIFOCtrl
- ASM or al, RR
- ASM mov dx, nIntIDRegAddr
- ASM out dx, al
- }
-
- /* Reset start, end and total count of characters in buffer */
- /* On the next receive interrupt, data will be added at the beginning */
- /* of the buffer. */
- nRXChars = nRXInIndex = nRXOutIndex = 0;
-
- /* Re-enable interrupts. */
- ASM sti
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComInternalISR() *** PRIVATE FUNCTION ***
- *
- * Interrupt service routine for internal UART-based serial I/O.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void INTERRUPT ODComInternalISR()
-{
- char btIIR;
- BYTE btTemp;
-
- /* Loop until there are no more pending operations to perform with the */
- /* UART. */
- for(;;)
- {
- /* While bit 0 of the UART IIR is 0, there remains pending operations. */
- /* Read IIR. */
- ASM mov dx, nIntIDRegAddr
- ASM in al, dx
- ASM mov btIIR, al
-
- /* If IIR bit 0 is set, then UART processing is finished. */
- if(btIIR & 0x01) break;
-
- /* Bits 1 and 2 of the IIR register identify the type of operation */
- /* to be performed with the UART. */
-
- /* Switch on bits 1 and 2 of IIR register. */
- switch(btIIR & 0x06)
- {
- case 0x00:
- /* Operation: modem status has changed. */
-
- /* Read modem status register. */
- ASM mov dx, nModemStatusRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- /* We only care about the modem status register if we are */
- /* using RTS/CTS flow control, and the CTS register has */
- /* changed. */
- if((btFlowControl & FLOW_RTSCTS) && (btTemp & DCTS))
- {
- if(btTemp & CTS)
- {
- /* If CTS has gone high, then re-enable transmission. */
- bStopTrans = FALSE;
-
- /* Restart transmission if there is anything in the */
- /* transmit buffer. */
- if(nTXChars > 0)
- {
- /* Enable transmit interrupt. */
- ASM mov dx, nIntEnableRegAddr
- ASM in al, dx
- ASM or al, THRE
- ASM out dx, al
- }
- }
- else
- {
- /* If CTS has gone low, then stop transmitting. */
- bStopTrans = TRUE;
- }
- }
-
- break;
-
- case 0x02:
- /* Operation: room in transmit register/FIFO. */
- /* Check whether we can send further characters to transmit. */
- if(nTXChars <= 0 || bStopTrans)
- {
- /* If we cannot send more characters, then turn off */
- /* transmit interrupts. */
- ASM mov dx, nIntEnableRegAddr
- ASM in al, dx
- ASM and al, 0xfd
- ASM out dx, al
- }
- else
- {
- /* If we still have characters to transmit ... */
-
- /* Check line status register to determine whether transmit */
- /* register/FIFO truly has room. Some UARTs trigger transmit */
- /* interrupts before the character has been tranmistted, */
- /* causing transmitted characters to be lost. */
- ASM mov dx, nLineStatusRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- if(btTemp & TXR)
- {
- /* There is room in the transmit register/FIFO. */
-
- /* Get next character to transmit. */
- btTemp = pbtTXQueue[nTXOutIndex++];
-
- /* Write character to UART data register. */
- ASM mov dx, nDataRegAddr
- ASM mov al, btTemp
- ASM out dx, al
-
- /* Wrap-around transmit buffer pointer, if needed. */
- if (nTXOutIndex == nTXQueueSize)
- {
- nTXOutIndex = 0;
- }
-
- /* Decrease count of characters in transmit buffer. */
- nTXChars--;
- }
- }
- break;
-
- case 0x04:
- /* Operation: Receive Data. */
-
- /* Get character from receive buffer ASAP. */
- ASM mov dx, nDataRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- /* If receive buffer is above high water mark. */
- if(nRXChars >= nRXHighWaterMark)
- {
- /* If we are using flow control, then stop sender from */
- /* sending. */
- if(btFlowControl & FLOW_RTSCTS)
- {
- /* If using RTS/CTS flow control, then lower RTS line. */
- ASM mov dx, nModemCtrlRegAddr
- ASM in al, dx
- ASM and al, NOT_RTS
- ASM out dx, al
- }
- }
-
- /* If there is room in receive buffer. */
- if(nRXChars < nRXQueueSize)
- {
- /* Store the new character in the receive buffer. */
- pbtRXQueue[nRXInIndex++] = btTemp;
-
- /* Wrap-around buffer index, if needed. */
- if (nRXInIndex == nRXQueueSize)
- nRXInIndex = 0;
-
- /* Increment count of characters in the buffer. */
- nRXChars++;
- }
- break;
-
- case 0x06:
- /* Operation: Change in line status register. */
-
- /* We just read the register to move on to further operations. */
- ASM mov dx, nLineStatusRegAddr
- ASM in al, dx
- break;
- }
- }
-
- /* Send end of interrupt to interrupt controller(s). */
- ASM mov dx, nI8259EndOfIntRegAddr
- ASM mov al, 0x20
- ASM out dx, al
-
- if(nI8259MasterEndOfIntRegAddr != 0)
- {
- ASM mov dx, nI8259MasterEndOfIntRegAddr
- ASM mov al, 0x20
- ASM out dx, al
- }
-}
-#endif /* INCLUDE_UART_COM */
-
-
-
-/* ========================================================================= */
-/* Win32-API base serial I/O specific functions. */
-/* ========================================================================= */
-
-#ifdef INCLUDE_WIN32_COM
-
-/* Function prototypes. */
-static tODResult ODComWin32SetReadTimeouts(tPortInfo *pPortInfo,
- tReadTimeoutState RequiredTimeoutState);
-
-
-/* ----------------------------------------------------------------------------
- * ODComWin32SetReadTimeouts() *** PRIVATE FUNCTION ***
- *
- * Ensures that read timeout state is set appropriately.
- *
- * Parameters: pPortInfo - Pointer to serial port handle structure.
- *
- * RequiredTimeoutState - Timeout state that should be set.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-static tODResult ODComWin32SetReadTimeouts(tPortInfo *pPortInfo,
- tReadTimeoutState RequiredTimeoutState)
-{
- ASSERT(pPortInfo != NULL);
-
- /* If timeout state must be changed ... */
- if(RequiredTimeoutState != pPortInfo->ReadTimeoutState)
- {
- COMMTIMEOUTS CommTimeouts;
-
- /* Obtain current timeout settings. */
- if(!GetCommTimeouts(pPortInfo->hCommDev, &CommTimeouts))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Setup timeout setting structure appropriately. */
- switch(RequiredTimeoutState)
- {
- case kBlocking:
- CommTimeouts.ReadIntervalTimeout = 0;
- CommTimeouts.ReadTotalTimeoutMultiplier = 0;
- CommTimeouts.ReadTotalTimeoutConstant = 0;
- break;
- case kNonBlocking:
- CommTimeouts.ReadIntervalTimeout = INFINITE;
- CommTimeouts.ReadTotalTimeoutMultiplier = 0;
- CommTimeouts.ReadTotalTimeoutConstant = 0;
- break;
- default:
- ASSERT(FALSE);
- }
-
- /* Write settings. */
- if(!SetCommTimeouts(pPortInfo->hCommDev, &CommTimeouts))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Record current read timeout setting state for subsequent */
- /* calls to this function. */
- pPortInfo->ReadTimeoutState = RequiredTimeoutState;
- }
-
- return(kODRCSuccess);
-}
-
-#endif /* INCLUDE_WIN32_COM */
-
-
-
-/* ========================================================================= */
-/* Implementation of generic serial I/O functions. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODComAlloc()
- *
- * Allocates a serial port handle, which can be passed to other ODCom...()
- * functions.
- *
- * Parameters: phPort - Pointer to serial port handle.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComAlloc(tPortHandle *phPort)
-{
- tPortInfo *pPortInfo;
-
- VERIFY_CALL(phPort != NULL);
-
- /* Attempt to allocate a serial port information structure. */
- pPortInfo = malloc(sizeof(tPortInfo));
-
- /* If memory allocation failed, return with failure. */
- if(pPortInfo == NULL)
- {
- *phPort = ODPTR2HANDLE(NULL, tPortInfo);
- return(kODRCNoMemory);
- }
-
- /* Initialize serial port information structure. */
- pPortInfo->bIsOpen = FALSE;
- pPortInfo->bUsingClientsHandle = FALSE;
- pPortInfo->btFlowControlSetting = FLOW_DEFAULT;
- pPortInfo->lSpeed = SPEED_UNSPECIFIED;
- pPortInfo->btWordFormat = ODPARITY_NONE | DATABITS_EIGHT | STOP_ONE;
- pPortInfo->nReceiveBufferSize = 1024;
- pPortInfo->nTransmitBufferSize = 1024;
- pPortInfo->btFIFOSetting = FIFO_ENABLE | FIFO_TRIGGER_8;
- pPortInfo->Method = kComMethodUnspecified;
- pPortInfo->pfIdleCallback = NULL;
-
- /* Convert serial port information structure pointer to a handle. */
- *phPort = ODPTR2HANDLE(pPortInfo, tPortInfo);
-
- /* Set default port number. */
- ODComSetPort(*phPort, 0);
-
-#if defined(INCLUDE_SOCKET_COM) && defined(_WINSOCKAPI_)
- WSAStartup(MAKEWORD(1,1), &WSAData);
-#endif
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComFree()
- *
- * Deallocates a serial port handle that is no longer required.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComFree(tPortHandle hPort)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- /* Deallocate port information structure. */
- free(pPortInfo);
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetIdleFunction()
- *
- * Sets function to call when serial I/O module is idle, or NULL for none.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pfCallback - Pointer to function to call when idle.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetIdleFunction(tPortHandle hPort,
- void (*pfCallback)(void))
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->pfIdleCallback = pfCallback;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetFlowControl()
- *
- * Sets the flow control method(s) to use. If this function is not called,
- * RTS/CTS flow control is used by default. This function should not be
- * called while the port is open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * btFlowControlSetting - One or more FLOW_* settings, joined
- * by bitwise-or (|) operators. If
- * FLOW_DEFAULT is included, all other
- * settings are ignored, and the default
- * settings for this serial I/O method
- * are used.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetFlowControl(tPortHandle hPort, BYTE btFlowControlSetting)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->btFlowControlSetting = btFlowControlSetting;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetSpeed()
- *
- * Sets the serial port BPS (baud) rate to use. Depending upon the serial I/O
- * method being used, this setting may be controlled by the user's system
- * configuration, in which case the value passed to this function wil have
- * no effect. A setting of SPEED_UNSPECIFIED, indicates that the serial port
- * speed should not be changed, if it is possible not to do so with the serial
- * I/O method being used. This function cannot be called while the port is
- * open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * lSpeed - A valid BPS rate, or SPEED_UNSPECIFIED.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetSpeed(tPortHandle hPort, long lSpeed)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->lSpeed = lSpeed;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetPort()
- *
- * Sets the serial port number to be associated with this port handle. This
- * function cannot be called while the port is open. Calling this function
- * also sets the IRQ line number and serial port address to their defaults
- * for this port number, if this values can be set for the serial I/O method
- * being used.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * btPort - Serial port identification, where 0 typically
- * corresponds to COM1, 1 to COM2, and so on.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetPort(tPortHandle hPort, BYTE btPort)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- /* Store port number in port information structure. */
- pPortInfo->btPort = btPort;
-
-
-#ifdef INCLUDE_UART_COM
- /* Get default address for this port number, if possible. */
- pPortInfo->nPortAddress = 0;
-
- if(btPort < 4)
- {
- /* Get port address from BIOS data area. */
- pPortInfo->nPortAddress = *(((int far *)0x400) + btPort);
- }
-
- /* If port address is still unknown, and we know the default */
- /* address, then use that address. */
- if(pPortInfo->nPortAddress == 0
- && btPort < DIM(anDefaultPortAddr))
- {
- pPortInfo->nPortAddress = anDefaultPortAddr[btPort];
- }
-
-
- /* Set default IRQ number for this port number. */
-
- /* Ports 0 and 2 (COM1:, COM3:) default to IRQ 4, all others */
- /* default to IRQ 3. */
- if(btPort == 0 || btPort == 2)
- {
- pPortInfo->btIRQLevel = 4;
- }
- else
- {
- pPortInfo->btIRQLevel = 3;
- }
-#endif /* INCLUDE_UART_COM */
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetPortAddress()
- *
- * Sets address of the serial port, if it can be set for the serial I/O method
- * being used. This function cannot be called when the port is open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * nPortAddress - Address of serial port.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetPortAddress(tPortHandle hPort, int nPortAddress)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->nPortAddress = nPortAddress;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetIRQ()
- *
- * Sets the IRQ line associated with this serial port, if applicable for the
- * serial I/O method being used. This function cannot be called while the port
- * is open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * btIRQLevel - A number from 1 to 15, specifying the IRQ line that
- * the serial port is wired to.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetIRQ(tPortHandle hPort, BYTE btIRQLevel)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->btIRQLevel = btIRQLevel;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetWordFormat()
- *
- * Determine the word format (number of data bits, stop bits and parity bits)
- * to use, if it can be set for the serial I/O method being used. If this
- * function is not called, N81 word format is used. This function can only
- * be called when the port is not open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * btWordFormat - Bitwise-or (|) of PARITY_*, STOP_* and DATABITS_*
- * settings which determine the word format to use.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetWordFormat(tPortHandle hPort, BYTE btWordFormat)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->btWordFormat = btWordFormat;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetRXBuf()
- *
- * Sets the desired size of the receive buffer, if possible for the
- * serial I/O method being used. Note that for some serial I/O methods, this
- * buffer size is fixed, controlled by the user's system configuration.
- * No error is generated when this function is called when such serial I/O
- * methods will be used - in this case this setting will simply have no effect.
- * This function cannot be called while the port is open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * nReceiveBufferSize - Number of bytes in the receive buffer.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetRXBuf(tPortHandle hPort, int nReceiveBufferSize)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->nReceiveBufferSize = nReceiveBufferSize;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetTXBuf()
- *
- * Sets the desired size of the transmit buffer, if possible for the
- * serial I/O method being used. Note that for some serial I/O methods, this
- * buffer size is fixed, controlled by the user's system configuration.
- * No error is generated when this function is called when such serial I/O
- * methods will be used - in this case this setting will simply have no effect.
- * This function cannot be called while the port is open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * nTransmitBufferSize - Number of bytes in the transmit buffer.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetTXBuf(tPortHandle hPort, int nTransmitBufferSize)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->nTransmitBufferSize = nTransmitBufferSize;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetFIFO()
- *
- * Enables or disables use of the UART FIFO buffers (if applicable), and also
- * sets the FIFO trigger level. This function cannot be called while the port
- * is open.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * btFIFOSetting - UART FIFO setting, including FIFO_ENABLE or
- * FIDO_DISABLE, and a FIFO_TRIGGER_* setting,
- * joined by bitwise-or (|) operators.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetFIFO(tPortHandle hPort, BYTE btFIFOSetting)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->btFIFOSetting = btFIFOSetting;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetPreferredMethod()
- *
- * Sets the method to be used to perform serial I/O.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * Method - The method to be used for peforming serial I/O,
- * or kComMethodUnspecified to have the serial I/O
- * routines to automatically choose the method to use.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetPreferredMethod(tPortHandle hPort, tComMethod Method)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- pPortInfo->Method = Method;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComGetMethod()
- *
- * Returns the method being used to perform serial I/O, if this has been
- * determined. You can only assume that this value will be set after
- * ODComOpen() has been called.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pMethod - Pointer to a tComMethod, in which function will
- * store the method of serial I/O being used, if this
- * has been determined.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComGetMethod(tPortHandle hPort, tComMethod *pMethod)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pMethod != NULL);
-
- *pMethod = pPortInfo->Method;
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComOpen()
- *
- * Initializes serial I/O for appropriate serial I/O mechanism (e.g. FOSSIL
- * driver, internal async I/O, etc.)
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComOpen(tPortHandle hPort)
-{
-#if defined(INCLUDE_FOSSIL_COM) || defined(INCLUDE_UART_COM)
- unsigned int uDivisor;
- unsigned long ulQuotient, ulRemainder;
- BYTE btTemp;
-#endif /* INCLUDE_FOSSIL_COM || INCLUDE_UART_COM */
-#ifdef INCLUDE_STDIO_COM
- struct termios tio_raw;
-#endif
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
-
- nPort = (int)pPortInfo->btPort;
-
- /* Ensure that port is not already open. */
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
- /* The following code is used to handle FOSSIL-based serial I/O open */
- /* operations. */
-#ifdef INCLUDE_FOSSIL_COM
- /* If use of FOSSIL driver has not been disabled, then first attempt to */
- /* use it. */
- if(pPortInfo->Method == kComMethodFOSSIL ||
- pPortInfo->Method == kComMethodUnspecified)
- {
- /* Attempt to open port with FOSSIL DRIVER. */
- ASM push si
- ASM push di
- ASM mov ah, 4
- ASM mov dx, nPort
- ASM mov bx, 0
- ASM int 20
- ASM pop di
- ASM pop si
- ASM cmp ax, 6484
- ASM je fossil
- goto no_fossil;
-
-fossil:
- pPortInfo->Method = kComMethodFOSSIL;
-
- /* Enable flow control, if applicable. */
-
- /* Generate flow control setting. All bits in high nibble of flow */
- /* control are set to 1, because some FOSSIL driver implementations */
- /* use the high nibble as a control mask. */
- if(pPortInfo->btFlowControlSetting & FLOW_DEFAULT)
- {
- btTemp = FLOW_RTSCTS | 0xf0;
- }
- else
- {
- btTemp = pPortInfo->btFlowControlSetting | 0xf0;
- }
-
- ASM push si
- ASM push di
- ASM mov ah, 0x0f
- ASM mov al, btTemp
- ASM mov dx, nPort
- ASM int 20
- ASM pop di
- ASM pop si
-
- /* If serial port speed is not to be set, then return now. */
- if(pPortInfo->lSpeed == SPEED_UNSPECIFIED)
- {
- /* Set port state to open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Return with success. */
- return(kODRCSuccess);
- }
-
- /* Set to current baud rate. */
- switch(pPortInfo->lSpeed)
- {
- case 300L:
- btTemp = 0x40;
- break;
- case 600L:
- btTemp = 0x60;
- break;
- case 1200L:
- btTemp = 0x80;
- break;
- case 2400L:
- btTemp = 0xa0;
- break;
- case 4800L:
- btTemp = 0xc0;
- break;
- case 9600L:
- btTemp = 0xe0;
- break;
- case 19200L:
- btTemp = 0x00;
- break;
- case 38400L:
- btTemp = 0x20;
- break;
- default:
- /* If invalid bps rate, don't change current bps setting. */
- /* Set port state to open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Return with success. */
- return(kODRCSuccess);
- }
-
- /* Add desired word format parameters to data to be passed to fossil. */
- btTemp |= pPortInfo->btWordFormat;
-
- /* Initialize fossil driver. */
- ASM push si
- ASM push di
- ASM mov al, btTemp
- ASM mov ah, 0
- ASM mov dx, nPort
- ASM int 20
- ASM pop di
- ASM pop si
-
- /* Set port state to open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Return with success. */
- return(kODRCSuccess);
- }
-
-no_fossil:
-#endif /* INCLUDE_FOSSIL_COM */
-
- /* The following code is used to carry out the serial port I/O open */
- /* operations if built-in UART-based serial I/O is being used. */
-#ifdef INCLUDE_UART_COM
- if(pPortInfo->Method == kComMethodUART ||
- pPortInfo->Method == kComMethodUnspecified)
- {
- /* Set internal serial I/O flow control variable from pre-set */
- /* flow control options. */
- if(pPortInfo->btFlowControlSetting & FLOW_DEFAULT)
- {
- btFlowControl = FLOW_RTSCTS;
- }
- else
- {
- btFlowControl = pPortInfo->btFlowControlSetting;
- }
-
- /* Store serial I/O method being used. */
- pPortInfo->Method = kComMethodUART;
-
- /* Calculate receive buffer high and low water marks for use with */
- /* flow control. */
- nRXHighWaterMark = (pPortInfo->nReceiveBufferSize * RECEIVE_HIGH_NUM)
- / RECEIVE_HIGH_DENOM;
- nRXLowWaterMark = (pPortInfo->nReceiveBufferSize * RECEIVE_LOW_NUM)
- / RECEIVE_LOW_DENOM;
-
- /* Allocate transmit and receive buffers */
- pbtTXQueue = malloc(nTXQueueSize = pPortInfo->nTransmitBufferSize);
- pbtRXQueue = malloc(nRXQueueSize = pPortInfo->nReceiveBufferSize);
-
- if(pbtTXQueue == NULL || pbtRXQueue == NULL)
- {
- return(kODRCNoMemory);
- }
-
- /* If serial port address is unknown. */
- if(pPortInfo->nPortAddress == 0)
- {
- return(kODRCNoPortAddress);
- }
-
- /* Initialize table of UART register port addresses. */
- nDataRegAddr = pPortInfo->nPortAddress;
- nIntEnableRegAddr = nDataRegAddr + IER;
- nIntIDRegAddr = nDataRegAddr + IIR;
- nLineCtrlRegAddr = nDataRegAddr + LCR;
- nModemCtrlRegAddr = nDataRegAddr + MCR;
- nLineStatusRegAddr = nDataRegAddr + LSR;
- nModemStatusRegAddr = nDataRegAddr + MSR;
-
-
- /* Store interrupt vector number and PIC interrupt information for */
- /* the specified IRQ line. */
- if(pPortInfo->btIRQLevel <= 7)
- {
- btIntVector = 0x08 + (pPortInfo->btIRQLevel);
- btI8259Bit = 1 << (pPortInfo->btIRQLevel);
- nI8259MaskRegAddr = 0x21;
- nI8259EndOfIntRegAddr = 0x20;
- nI8259MasterEndOfIntRegAddr = 0x00;
- }
- else
- {
- btIntVector = 0x68 + (pPortInfo->btIRQLevel);
- btI8259Bit = 1 << (pPortInfo->btIRQLevel - 8);
- nI8259MaskRegAddr = 0xA1;
- nI8259EndOfIntRegAddr = 0xA0;
- nI8259MasterEndOfIntRegAddr = 0x20;
- }
-
- /* Save original state of UART IER register. */
- ASM mov dx, nIntEnableRegAddr
- ASM in al, dx
- ASM mov btOldIntEnableReg, al
-
- /* Test that a UART is indeed installed at this port address. */
- ASM mov dx, nIntEnableRegAddr
- ASM mov al, 0
- ASM out dx, al
-
- ASM mov dx, nIntEnableRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- if (btTemp != 0)
- {
- return(kODRCNoUART);
- }
-
- /* Setup for RTS/CTS flow control, if it is to be used. */
- if(btFlowControl & FLOW_RTSCTS)
- {
- /* Read modem status register. */
- ASM mov dx, nModemStatusRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- /* Enable transmission only if CTS is high. */
- bStopTrans = !(btTemp & CTS);
- }
-
- /* Save original PIC interrupt settings, and temporarily disable */
- /* interrupts on this IRQ line while we perform initialization. */
- ASM cli
-
- ASM mov dx, nI8259MaskRegAddr
- ASM in al, dx
- ASM mov btI8259Mask, al
- ASM or al, btI8259Bit
- ASM out dx, al
-
- /* Initialize transmit and recieve buffers. */
- ODComInternalResetTX();
- ODComInternalResetRX();
-
- /* Re-enable interrupts. */
- ASM sti
-
- /* Save original interrupt vector. */
- pfOldISR = ODComGetVect(btIntVector);
-
- /* Set interrupt vector to point to our ISR. */
-#ifdef _MSC_VER
- ODComSetVect(btIntVector, (void far *)ODComInternalISR);
-#else /* !_MSC_VER */
- ODComSetVect(btIntVector, ODComInternalISR);
-#endif /* !_MSC_VER */
-
- /* Set line control register to 8 data bits, no parity bits, 1 stop */
- /* bit. */
- btTemp = pPortInfo->btWordFormat;
- ASM mov dx, nLineCtrlRegAddr
- ASM mov al, btTemp
- ASM out dx, al
-
- /* Save original modem control register. */
- ASM cli
-
- ASM mov dx, nModemCtrlRegAddr
- ASM in al, dx
- ASM mov btOldModemCtrlReg, al
-
- /* Keep current DTR setting, and activate RTS. */
- btTemp = (btOldModemCtrlReg & DTR) | (OUT2 + RTS);
- ASM mov dx, nModemCtrlRegAddr
- ASM mov al, btTemp
- ASM out dx, al
-
- /* Enable use of 16550A FIFOs, if available. */
- if(pPortInfo->btFIFOSetting & FIFO_ENABLE)
- {
- /* Set FIFO enable bit and trigger size. */
- btBaseFIFOCtrl = pPortInfo->btFIFOSetting;
-
- /* Attempt to enable use of FIFO buffers. */
- ASM mov al, btBaseFIFOCtrl
- ASM mov dx, nIntIDRegAddr
- ASM out dx, al
-
- /* Check whether a 16550A UART is actually present by reading */
- /* state of FIFO buffer. */
- ASM mov dx, nIntIDRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- bUsingFIFO = btTemp & 0xc0;
- }
-
- ASM sti
-
- /* Enable receive and modem status interrupts on the UART. */
- ASM mov dx, nIntEnableRegAddr
- ASM mov al, DR + MS
- ASM out dx, al
-
- ASM cli
-
- ASM mov dx, nI8259MaskRegAddr
- ASM in al, dx
- ASM mov ah, btI8259Bit
- ASM not ah
- ASM and al, ah
- ASM out dx, al
-
- ASM sti
-
- /* Set baud rate, if possible. */
-
- /* Calculate baud rate divisor. */
- if(pPortInfo->lSpeed != SPEED_UNSPECIFIED)
- {
- ODDWordDivide(&ulQuotient, &ulRemainder, 115200UL, pPortInfo->lSpeed);
-
- /* If division results in a remainder, then this is an invalid */
- /* baud rate. We only change the UART baud rate if we have a valid */
- /* rate to set it to. Otherwise, we cross our fingers and proceed */
- /* with the currently set UART baud rate. */
- if(ulRemainder == 0L)
- {
- uDivisor = (unsigned int)ulQuotient;
-
- /* Disable interrupts. */
- ASM cli
-
- /* Set baud rate divisor latch. */
- /* The data register now becomes the lower byte of the baud rate */
- /* divisor, and the interrupt enable register becomes the upper */
- /* byte of the divisor. */
- ASM mov dx, nLineCtrlRegAddr
- ASM in al, dx
- ASM or al, DLATCH
- ASM out dx, al
-
- /* Write lower byte of baud rate divisor. */
- ASM mov dx, nDataRegAddr
- ASM mov ax, uDivisor
- ASM out dx, al
-
- /* Write upper byte of baud rate divisor. */
- ASM mov dx, nIntEnableRegAddr
- ASM mov al, ah
- ASM out dx, al
-
- /* Reset baud rate divisor latch. */
- ASM mov dx, nLineCtrlRegAddr
- ASM in al, dx
- ASM and al, NOT_DL
- ASM out dx, al
-
- /* Re-enable interrupts. */
- ASM sti
- }
- }
-
- /* Remember the serial I/O method that we are using. */
- pPortInfo->Method = kComMethodUART;
-
- /* Store port state as open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Return with success. */
- return(kODRCSuccess);
- }
-#endif /* INCLUDE_UART_COM */
-
- /* The following code is used to handle I/O using the Door32 interface. */
-#ifdef INCLUDE_DOOR32_COM
- if(pPortInfo->Method == kComMethodDoor32 ||
- pPortInfo->Method == kComMethodUnspecified)
- {
- /* Attempt to load the Door32 DLL. */
- pPortInfo->hinstDoor32DLL = LoadLibrary("DOOR32.DLL");
- if(pPortInfo->hinstDoor32DLL != NULL)
- {
- /* Obtain pointers to required Door32 API function entry points. */
- pPortInfo->pfDoorInitialize = (BOOL (WINAPI *)(void))
- GetProcAddress(pPortInfo->hinstDoor32DLL, "DoorInitialize");
- pPortInfo->pfDoorShutdown = (BOOL (WINAPI *)(void))
- GetProcAddress(pPortInfo->hinstDoor32DLL, "DoorShutdown");
- pPortInfo->pfDoorWrite = (BOOL (WINAPI *)(const BYTE *, DWORD))
- GetProcAddress(pPortInfo->hinstDoor32DLL, "DoorWrite");
- pPortInfo->pfDoorRead = (DWORD (WINAPI *)(BYTE *, DWORD))
- GetProcAddress(pPortInfo->hinstDoor32DLL, "DoorRead");
- pPortInfo->pfDoorGetAvailableEventHandle = (HANDLE (WINAPI *)(void))
- GetProcAddress(pPortInfo->hinstDoor32DLL,
- "DoorGetAvailableEventHandle");
- pPortInfo->pfDoorGetOfflineEventHandle = (HANDLE (WINAPI *)(void))
- GetProcAddress(pPortInfo->hinstDoor32DLL,
- "DoorGetOfflineEventHandle");
-
- /* Check whether we have successfully been able to obtain all the */
- /* required function entry points. */
- if(pPortInfo->pfDoorInitialize != NULL
- && pPortInfo->pfDoorShutdown != NULL
- && pPortInfo->pfDoorWrite != NULL
- && pPortInfo->pfDoorRead != NULL
- && pPortInfo->pfDoorGetAvailableEventHandle != NULL
- && pPortInfo->pfDoorGetOfflineEventHandle != NULL)
- {
- if((*pPortInfo->pfDoorInitialize)())
- {
- /* Set port state as open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Set serial I/O method. */
- pPortInfo->Method = kComMethodDoor32;
-
- /* Return with success. */
- return(kODRCSuccess);
- }
- }
-
- /* On failure to obtain all Door32 function entry points, unload */
- /* the Door32 DLL. */
- FreeLibrary(pPortInfo->hinstDoor32DLL);
- }
-
- /* If our attempt to use the Door32 interface failed for any reason, */
- /* then proceed, attempting to use the Win32 serial I/O interface. */
- }
-#endif /* INCLUDE_DOOR32_COM */
-
- /* The following code is used to handle Win32 API-base serial I/O */
- /* open operations. */
-#ifdef INCLUDE_WIN32_COM
- if(pPortInfo->Method == kComMethodWin32 ||
- pPortInfo->Method == kComMethodUnspecified)
- {
- char szDevName[7];
- DCB dcb;
-
- /* Generate device name. */
- sprintf(szDevName, "COM%u", (unsigned)pPortInfo->btPort + 1);
-
- /* Attempt to create handle for device. */
- pPortInfo->hCommDev = CreateFile(szDevName, GENERIC_READ | GENERIC_WRITE,
- 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
-
- /* On open failure, return with an error code. */
- if(pPortInfo->hCommDev == INVALID_HANDLE_VALUE)
- {
- return(kODRCGeneralFailure);
- }
-
- /* Note that read timeout settings have not been set. */
- pPortInfo->ReadTimeoutState = kNotSet;
-
- /* Call SetupComm() to set queue sizes. */
- if(!SetupComm(pPortInfo->hCommDev, pPortInfo->nReceiveBufferSize,
- pPortInfo->nTransmitBufferSize))
- {
- CloseHandle(pPortInfo->hCommDev);
- return(kODRCGeneralFailure);
- }
-
- /* Get current port state. */
- if(!GetCommState(pPortInfo->hCommDev, &dcb))
- {
- CloseHandle(pPortInfo->hCommDev);
- return(kODRCGeneralFailure);
- }
-
- /* Fill device control block. */
-
- /* Set bps rate, if appropriate. */
- if(pPortInfo->lSpeed != SPEED_UNSPECIFIED)
- {
- dcb.BaudRate = pPortInfo->lSpeed;
- }
-
- /* Set flow control, if appropriate. */
- if(!(pPortInfo->btFlowControlSetting & FLOW_DEFAULT))
- {
- if(pPortInfo->btFlowControlSetting & FLOW_RTSCTS)
- {
- dcb.fOutxCtsFlow = 1;
- dcb.fRtsControl = RTS_CONTROL_HANDSHAKE;
- }
- else
- {
- dcb.fOutxCtsFlow = 0;
- dcb.fRtsControl = RTS_CONTROL_ENABLE;
- }
- }
-
- /* Set word size. */
- if((pPortInfo->btWordFormat & DATABITS_MASK) == DATABITS_FIVE)
- {
- dcb.ByteSize = 5;
- }
- else if((pPortInfo->btWordFormat & DATABITS_MASK) == DATABITS_SIX)
- {
- dcb.ByteSize = 6;
- }
- else if((pPortInfo->btWordFormat & DATABITS_MASK) == DATABITS_SEVEN)
- {
- dcb.ByteSize = 7;
- }
- else if((pPortInfo->btWordFormat & DATABITS_MASK) == DATABITS_EIGHT)
- {
- dcb.ByteSize = 8;
- }
-
- /* Set parity. */
- if((pPortInfo->btWordFormat & ODPARITY_MASK) == ODPARITY_NONE)
- {
- dcb.Parity = NOPARITY;
- }
- else if((pPortInfo->btWordFormat & ODPARITY_MASK) == ODPARITY_ODD)
- {
- dcb.Parity = ODDPARITY;
- }
- else if((pPortInfo->btWordFormat & ODPARITY_MASK) == ODPARITY_EVEN)
- {
- dcb.Parity = EVENPARITY;
- }
-
- /* Enable DTR control. */
- dcb.fDtrControl = DTR_CONTROL_ENABLE;
-
- /* Set number of stop bits. */
- if((pPortInfo->btWordFormat & STOP_MASK) == STOP_ONE)
- {
- dcb.StopBits = ONESTOPBIT;
- }
- else if((pPortInfo->btWordFormat & STOP_MASK) == STOP_ONE_POINT_FIVE)
- {
- dcb.StopBits = ONE5STOPBITS;
- }
- else if((pPortInfo->btWordFormat & STOP_MASK) == STOP_TWO)
- {
- dcb.StopBits = TWOSTOPBITS;
- }
-
- /* Set comm state from device control block. */
- if(!SetCommState(pPortInfo->hCommDev, &dcb))
- {
- CloseHandle(pPortInfo->hCommDev);
- return(kODRCGeneralFailure);
- }
-
- /* Store port state as open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Set serial I/O method. */
- pPortInfo->Method = kComMethodWin32;
-
- /* Return with success. */
- return(kODRCSuccess);
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_STDIO_COM
- if(pPortInfo->Method == kComMethodStdIO ||
- pPortInfo->Method == kComMethodUnspecified)
- {
- if (isatty(fileno(stdin))) {
- tcgetattr(fileno(stdin),&tio_default);
- tio_raw = tio_default;
- cfmakeraw(&tio_raw);
- tcsetattr(fileno(stdin),TCSANOW,&tio_raw);
- }
-
- /* Set port state as open. */
- pPortInfo->bIsOpen = TRUE;
-
- /* Set serial I/O method. */
- pPortInfo->Method = kComMethodStdIO;
-
- /* Return with success. */
- return(kODRCSuccess);
-
- }
-#endif /* INCLUDE_STDIO_COM */
-
- /* If we get to this point, then no form of serial I/O could be */
- /* initialized. */
- return(kODRCGeneralFailure);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComOpenFromExistingHandle()
- *
- * Initializes serial I/O using a serial port handle natvie to the current
- * operating system, which has already been opened by another application.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * dwExistingHandle - Native operating system's handle to an
- * already open serial port.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComOpenFromExistingHandle(tPortHandle hPort,
- DWORD dwExistingHandle)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(!pPortInfo->bIsOpen);
-
-#ifdef INCLUDE_SOCKET_COM
- if(pPortInfo->Method == kComMethodSocket) {
-
- pPortInfo->socket = dwExistingHandle;
-
- pPortInfo->bIsOpen = TRUE;
-
- return(kODRCSuccess);
- }
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_WIN32_COM
-
- /* Store handle to the Win32 handle to the serial port. */
- pPortInfo->hCommDev = (HANDLE)dwExistingHandle;
-
- /* Remember that read timeout settings have not been set. */
- pPortInfo->ReadTimeoutState = kNotSet;
-
- /* Remember that we are using a handle provided by the client, rather */
- /* than one that we opened ourself. This flag prevents the handle from */
- /* being closed by a call to ODComClose(). */
- pPortInfo->bUsingClientsHandle = TRUE;
-
- /* Remember that the serial port is now open. */
- pPortInfo->bIsOpen = TRUE;
-
- return(kODRCSuccess);
-
-#else /* !INCLUDE_WIN32_COM */
- UNUSED(dwExistingHandle);
- UNUSED(pPortInfo);
-
- /* If no form of serial I/O included in this build can use this handle, */
- /* then return with a failure. */
- return(kODRCInvalidCall);
-
-#endif /* !INCLUDE_WIN32_COM */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComClose()
- *
- * Closes currently open serial port.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComClose(tPortHandle hPort)
-{
-#ifdef INCLUDE_UART_COM
- BYTE btTemp;
-#endif /* INCLUDE_UART_COM */
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- /* If we are using the client's handle, then we should not close it. */
- if(pPortInfo->bUsingClientsHandle)
- {
- pPortInfo->bIsOpen = FALSE;
- return(kODRCSuccess);
- }
-
- nPort = (int)pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- ASM mov ah, 5
- ASM mov dx, nPort
- ASM int 20
- break;
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- /* Reset UART registers to their original values. */
- ASM mov dx, nModemCtrlRegAddr
- ASM mov al, btOldModemCtrlReg
- ASM out dx, al
- ASM mov dx, nIntEnableRegAddr
- ASM mov al, btOldIntEnableReg
- ASM out dx, al
-
- /* Disable interrupts. */
- ASM cli
-
- /* Reset this line's interrupt enable status on the PIC to its */
- /* original state. */
- ASM mov dx, nI8259MaskRegAddr
- ASM in al, dx
- ASM mov btTemp, al
-
- btTemp = (btTemp & ~btI8259Bit) | (btI8259Mask & btI8259Bit);
-
- ASM mov dx, nI8259MaskRegAddr
- ASM mov al, btTemp
- ASM out dx, al
-
- /* Re-enable interrupts. */
- ASM sti
-
- /* Reset vector to original interrupt handler. */
-#ifdef _MSC_VER
- ODComSetVect(btIntVector, (void far *)pfOldISR);
-#else /* !_MSC_VER */
- ODComSetVect(btIntVector, pfOldISR);
-#endif /* !_MSC_VER */
-
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- CloseHandle(pPortInfo->hCommDev);
- break;
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- ASSERT(pPortInfo->pfDoorShutdown != NULL);
- (*pPortInfo->pfDoorShutdown)();
- ASSERT(pPortInfo->hinstDoor32DLL != NULL);
- FreeLibrary(pPortInfo->hinstDoor32DLL);
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- closesocket(pPortInfo->socket);
- break;
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- tcsetattr(fileno(stdin),TCSANOW,&tio_default);
- break;
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Store the fact that the port is now closed. */
- pPortInfo->bIsOpen = FALSE;
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComCarrier()
- *
- * Determines whether or not the carrier detect signal is present.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pbIsCarrier - Location to store result. Set to TRUE if carrier
- * detect signal is high, FALSE if it is low.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComCarrier(tPortHandle hPort, BOOL *pbIsCarrier)
-{
-#ifdef ODPLAT_NIX
- sigset_t sigs;
-#endif
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pbIsCarrier != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- {
- int to_return;
-
- ASM mov ah, 3
- ASM mov dx, nPort
- ASM int 20
- ASM and ax, 128
- ASM mov to_return, ax
-
- *pbIsCarrier = to_return;
-
- break;
- }
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- {
- BYTE btMSR;
-
- ASM mov dx, nModemStatusRegAddr
- ASM in al, dx
- ASM mov btMSR, al
-
- *pbIsCarrier = btMSR & RLSD;
- break;
- }
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwModemStats;
-
- /* Get modem status settings. */
- if(!GetCommModemStatus(pPortInfo->hCommDev, &dwModemStats))
- {
- return(kODRCGeneralFailure);
- }
-
- *pbIsCarrier = (dwModemStats & MS_RLSD_ON) ? TRUE : FALSE;
-
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- ASSERT(pPortInfo->pfDoorGetOfflineEventHandle != NULL);
- *pbIsCarrier = (WaitForSingleObject(
- (*pPortInfo->pfDoorGetOfflineEventHandle)(),
- 0) != WAIT_OBJECT_0);
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- {
- int i;
- char ch;
- fd_set socket_set;
- struct timeval tv;
-
- FD_ZERO(&socket_set);
- FD_SET(pPortInfo->socket,&socket_set);
-
- tv.tv_sec=0;
- tv.tv_usec=0;
- i=select(pPortInfo->socket+1,&socket_set,NULL,NULL,&tv);
- if(i==0
- || (i==1 && recv(pPortInfo->socket,&ch,1,MSG_PEEK)==1))
- *pbIsCarrier = TRUE;
- else
- *pbIsCarrier = FALSE;
- break;
- }
-#endif
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- {
- sigpending(&sigs);
- if(sigismember(&sigs,SIGHUP))
- *pbIsCarrier = FALSE;
- else
- *pbIsCarrier = TRUE;
- break;
- }
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSetDTR()
- *
- * Raises or lowers the DTR signal on the port.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * bHigh - TRUE to raise DTR, FALSE to lower it.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSetDTR(tPortHandle hPort, BOOL bHigh)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- ASM cmp byte ptr bHigh, 0
- ASM je lower
- ASM mov al, 1
- ASM jmp set_dtr
-
-lower:
- ASM xor al, al
-
-set_dtr:
- ASM mov ah, 6
- ASM mov dx, nPort
- ASM int 20
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- if(bHigh)
- {
- ASM cli
-
- ASM mov dx, nModemCtrlRegAddr
- ASM in al, dx
- ASM or al, DTR
- ASM out dx, al
-
- ASM sti
- }
- else
- {
- ASM cli
-
- ASM mov dx, nModemCtrlRegAddr
- ASM in al, dx
- ASM and al, NOT_DTR
- ASM out dx, al
-
- ASM sti
- }
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- /* Set DTR line appropriately. */
- if(!EscapeCommFunction(pPortInfo->hCommDev, bHigh ? SETDTR : CLRDTR))
- {
- return(kODRCGeneralFailure);
- }
- break;
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- return(kODRCUnsupported);
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- if(bHigh)
- return(kODRCUnsupported);
- closesocket(pPortInfo->socket);
- break;
-#endif /* INCLUDE_SOCKET_CO */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- return(kODRCUnsupported);
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComOutbound()
- *
- * Determines the number of bytes waiting in the serial port outbound buffer.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pnOutboundWaiting - Location where result the number of bytes
- * waiting in the outbound buffer should be
- * stored. Under some I/O methods we can
- * determine whether data is still in the
- * buffer, but not the number of bytes in the
- * buffer. In this situation, this may be set
- * to SIZE_NON_ZERO.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComOutbound(tPortHandle hPort, int *pnOutboundWaiting)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pnOutboundWaiting != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- ASM mov ah, 0x03
- ASM mov dx, nPort
- ASM int 20
- ASM and ah, 0x40
- ASM jz still_sending
- *pnOutboundWaiting = 0;
- break;
-
-still_sending:
- *pnOutboundWaiting = SIZE_NON_ZERO;
- break;
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- *pnOutboundWaiting = (int)nTXChars;
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwErrors;
- COMSTAT ComStat;
-
- /* Use ClearCommError() to obtain device status. */
- if(!ClearCommError(pPortInfo->hCommDev, &dwErrors, &ComStat))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Set pbIsInbound to TRUE if any bytes are in outbound queue. */
- *pnOutboundWaiting = (int)ComStat.cbOutQue;
-
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- /* Door32 doesn't currently support this functionality, so we */
- /* assume that all sent data is transmitted immediately. */
- *pnOutboundWaiting = 0;
- return(kODRCUnsupported);
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- *pnOutboundWaiting = 0;
- return(kODRCUnsupported);
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- *pnOutboundWaiting = 0;
- return(kODRCUnsupported);
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComClearOutbound()
- *
- * Removes the current contents of the serial port outbound buffer.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComClearOutbound(tPortHandle hPort)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- ASM mov ah, 9
- ASM mov dx, nPort
- ASM int 20
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- ODComInternalResetTX();
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- if(!PurgeComm(pPortInfo->hCommDev, PURGE_TXCLEAR))
- {
- return(kODRCGeneralFailure);
- }
- break;
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- return(kODRCUnsupported);
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- return(kODRCUnsupported);
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- return(kODRCUnsupported);
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComClearInbound()
- *
- * Removes the current contents of the serial port inbound buffer.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComClearInbound(tPortHandle hPort)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- ASM mov ah, 10
- ASM mov dx, nPort
- ASM int 20
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- ODComInternalResetRX();
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- if(!PurgeComm(pPortInfo->hCommDev, PURGE_RXCLEAR))
- {
- return(kODRCGeneralFailure);
- }
- break;
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- return(kODRCUnsupported);
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- return(kODRCUnsupported);
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- return(kODRCUnsupported);
-#endif
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComInbound()
- *
- * Determines the number of bytes waiting in the serial port inbound buffer.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pnInboundWaiting - Location in which to store number of bytes
- * waiting in the inbound buffer. Under some
- * I/O methods (e.g. FOSSIL driver), we can
- * determine whether data is still in the
- * buffer, but not the number of bytes in the
- * buffer. In this situation, this may be set
- * to SIZE_NON_ZERO.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComInbound(tPortHandle hPort, int *pnInboundWaiting)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pnInboundWaiting != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- {
- BOOL bDataInBuffer = FALSE;
-
- ASM mov ah, 3
- ASM mov dx, nPort
- ASM push si
- ASM push di
- ASM int 20
- ASM pop di
- ASM pop si
- ASM and ah, 1
- ASM mov bDataInBuffer, ah
-
- *pnInboundWaiting = bDataInBuffer ? SIZE_NON_ZERO : 0;
-
- break;
- }
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- *pnInboundWaiting = (int)nRXChars;
-
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwErrors;
- COMSTAT ComStat;
-
- /* Use ClearCommError() to obtain device status. */
- if(!ClearCommError(pPortInfo->hCommDev, &dwErrors, &ComStat))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Set pbIsInbound to TRUE if there are any bytes in inbound queue. */
- *pnInboundWaiting = (int)ComStat.cbInQue;
-
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- ASSERT(pPortInfo->pfDoorGetAvailableEventHandle != NULL);
- if(WaitForSingleObject(
- (*pPortInfo->pfDoorGetAvailableEventHandle)(),
- 0) == WAIT_OBJECT_0)
- {
- *pnInboundWaiting = SIZE_NON_ZERO;
- }
- else
- {
- *pnInboundWaiting = 0;
- }
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- if(ioctlsocket(pPortInfo->socket,FIONREAD,pnInboundWaiting) != 0)
- *pnInboundWaiting = 0;
- break;
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- if(ioctl(0,FIONREAD,pnInboundWaiting) == -1)
- *pnInboundWaiting = 0;
- break;
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComGetByte()
- *
- * Returns a single inbound byte. If there are characters waiting in the
- * inbound buffer, the next character is returned immediately. If bWait is TRUE
- * and no characters are waiting, this function will wait until a character is
- * received (possibly forever, if no characters are ever received).
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pbtNext - Location to store retrieved byte.
- *
- * bWait - If TRUE, function will only return after a character
- * has been received. If FALSE, this function will return
- * kODRCNothingWaiting if no characters are waiting.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComGetByte(tPortHandle hPort, char *pbtNext, BOOL bWait)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pbtNext != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- {
- BYTE btToReturn;
- int nInboundSize;
-
- /* If we should not wait for characters if inbound queue is empty. */
- if(!bWait)
- {
- /* Determine whether there are any inbound characterse waiting. */
- ODComInbound(hPort, &nInboundSize);
-
- /* If there are no inbound characters waiting, then return */
- /* without obtaining any characters. */
- if(nInboundSize == 0) return(kODRCNothingWaiting);
- }
-
- ASM mov ah, 2
- ASM mov dx, nPort
- ASM push si
- ASM push di
- ASM int 20
- ASM pop di
- ASM pop si
- ASM mov btToReturn, al
-
- *pbtNext = btToReturn;
-
- break;
- }
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- /* If we should not wait for characters if inbound queue is empty. */
- if(!bWait)
- {
- /* If there are no inbound characters waiting, then return */
- /* without obtaining any characters. */
- if(!nRXChars) return(kODRCNothingWaiting);
- }
-
- /* Loop, calling idle function, until next character arrives. */
- while(!nRXChars)
- {
- if(pPortInfo->pfIdleCallback != NULL)
- {
- (*pPortInfo->pfIdleCallback)();
- }
- }
-
- /* Disable interrupts. */
- ASM cli
-
- /* Get next character from receive queue. */
- *pbtNext = pbtRXQueue[nRXOutIndex++];
-
- /* Wrap queue index if needed. */
- if (nRXOutIndex == nRXQueueSize)
- {
- nRXOutIndex = 0;
- }
-
- /* Decrement count of total character in the receive queue. */
- nRXChars--;
-
- /* Re-enable interrupts. */
- ASM sti
-
- /* If receive buffer is below low water mark. */
- if(nRXChars <= nRXLowWaterMark)
- {
- /* If we are using flow control, then stop sender from */
- /* sending. */
- if(btFlowControl & FLOW_RTSCTS)
- {
- /* If using RTS/CTS flow control, then raise RTS line. */
- ASM mov dx, nModemCtrlRegAddr
- ASM in al, dx
- ASM or al, RTS
- ASM out dx, al
- }
- }
-
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwBytesRead;
- DWORD dwErrors;
-
- /* Ensure read timeout state is set appropriately for bWait value. */
- if(bWait)
- {
- ODComWin32SetReadTimeouts(pPortInfo, kBlocking);
- }
- else
- {
- ODComWin32SetReadTimeouts(pPortInfo, kNonBlocking);
- }
-
- /* Perform read operation. */
- if(!ReadFile(pPortInfo->hCommDev, pbtNext, 1, &dwBytesRead, NULL))
- {
- ClearCommError(pPortInfo->hCommDev, &dwErrors, NULL);
- return(kODRCGeneralFailure);
- }
-
- /* Determine whether or not a byte was read. */
- if(dwBytesRead == 0)
- {
- /* If no bytes where read, then this is a general error if bWait */
- /* is TRUE. If bWait is FALSE, then we should return */
- /* waiting kODRCNothingWaiting. */
- return(bWait ? kODRCGeneralFailure : kODRCNothingWaiting);
- }
-
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- if(WaitForSingleObject((*pPortInfo->pfDoorGetAvailableEventHandle)(),
- bWait ? INFINITE : 0) == WAIT_OBJECT_0)
- {
- (*pPortInfo->pfDoorRead)(pbtNext, 1);
- break;
- }
-
- return(bWait ? kODRCGeneralFailure : kODRCNothingWaiting);
-
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- {
- fd_set socket_set;
- struct timeval tv;
- int select_ret, recv_ret;
-
- FD_ZERO(&socket_set);
- FD_SET(pPortInfo->socket,&socket_set);
-
- tv.tv_sec=0;
- tv.tv_usec=0;
-
- select_ret = select(pPortInfo->socket+1, &socket_set, NULL, NULL, bWait ? NULL : &tv);
- if (select_ret == SOCKET_ERROR)
- return (kODRCGeneralFailure);
- if (select_ret == 0)
- return (kODRCNothingWaiting);
-
- do {
- recv_ret = recv(pPortInfo->socket, pbtNext, 1, 0);
- if(recv_ret != SOCKET_ERROR)
- break;
- if(WSAGetLastError() != WSAEWOULDBLOCK)
- return (kODRCGeneralFailure);
- Sleep(50);
- } while (bWait);
-
- if (recv_ret == 0)
- return (kODRCNothingWaiting);
-
- break;
- }
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- {
- fd_set socket_set;
- struct timeval tv;
- int select_ret, recv_ret;
-
- FD_ZERO(&socket_set);
- FD_SET(0,&socket_set);
-
- tv.tv_sec=0;
- tv.tv_usec=0;
-
- select_ret = select(1, &socket_set, NULL, NULL, bWait ? NULL : &tv);
- if (select_ret == -1)
- return (kODRCGeneralFailure);
- if (select_ret == 0)
- return (kODRCNothingWaiting);
-
- recv_ret = read(0, pbtNext, 1);
- if(recv_ret != -1)
- break;
- return (kODRCGeneralFailure);
-
- if (recv_ret == 0)
- return (kODRCNothingWaiting);
-
- break;
- }
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSendByte()
- *
- * Sends a single byte to the serial port outbound buffer.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * btToSend - The byte to transmit.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSendByte(tPortHandle hPort, BYTE btToSend)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
-try_again:
- ASM mov ah, 0x0b
- ASM mov dx, nPort
- ASM mov al, btToSend
- ASM int 20
- ASM cmp ax, 0
- ASM jne keep_going
-
- /* Call idle function, if any. */
- if(pPortInfo->pfIdleCallback != NULL)
- {
- (*pPortInfo->pfIdleCallback)();
- }
-
- goto try_again;
-keep_going:
- break;
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- /* Loop, calling idle function, until characters are waiting in */
- /* the transmit buffer. */
- while(!ODComInternalTXReady())
- {
- /* Call idle function, if any. */
- if(pPortInfo->pfIdleCallback != NULL)
- {
- (*pPortInfo->pfIdleCallback)();
- }
- }
-
- /* Disable interrupts. */
- ASM cli
-
- /* Place the character in the queue. */
- pbtTXQueue[nTXInIndex++] = btToSend;
-
- /* Wrap transmit queue index, if needed. */
- if (nTXInIndex == nTXQueueSize)
- {
- nTXInIndex = 0;
- }
-
- /* Increment count of total characters in the queue. */
- nTXChars++;
-
- /* Enable transmit interrupt on the UART. */
- ASM mov dx, nIntEnableRegAddr
- ASM in al, dx
- ASM or al, THRE
- ASM out dx, al
-
- ASM sti
-
- break;
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwErrors;
- DWORD dwBytesWritten;
-
- /* Attempt to perform write operation. */
- if(!WriteFile(pPortInfo->hCommDev, &btToSend, 1, &dwBytesWritten,
- NULL) || dwBytesWritten != 1)
- {
- ClearCommError(pPortInfo->hCommDev, &dwErrors, NULL);
- return(kODRCGeneralFailure);
- }
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- ASSERT(pPortInfo->pfDoorWrite != NULL);
- if(!(*pPortInfo->pfDoorWrite)(&btToSend, 1))
- {
- return(kODRCGeneralFailure);
- }
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- {
- fd_set socket_set;
- struct timeval tv;
- int send_ret;
-
- FD_ZERO(&socket_set);
- FD_SET(pPortInfo->socket,&socket_set);
-
- tv.tv_sec=0;
- tv.tv_usec=0;
-
- if(select(pPortInfo->socket+1,NULL,&socket_set,NULL,&tv) != 1)
- return(kODRCGeneralFailure);
-
- do {
- send_ret = send(pPortInfo->socket, &btToSend, 1, 0);
- if (send_ret != 1)
- Sleep(50);
- } while ((send_ret == SOCKET_ERROR) && (WSAGetLastError() == WSAEWOULDBLOCK));
-
- if (send_ret == SOCKET_ERROR)
- return (kODRCGeneralFailure);
-
- break;
- }
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- {
- if((write(1,&btToSend,1,0))!=1)
- return(kODRCGeneralFailure);
- break;
- }
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComGetBuffer()
- *
- * Retreives received data into a buffer, filling the buffer with as much data
- * as possible that has been received, returning immediately.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pbtBuffer - Pointer to a contiguous array of bytes.
- *
- * nSize - Size of buffer, in bytes. This is the maximum
- * number of characters that will be returned.
- *
- * pnBytesRead - Pointer to an int where function will store the
- * number of bytes actually read.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComGetBuffer(tPortHandle hPort, BYTE *pbtBuffer, int nSize,
- int *pnBytesRead)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pbtBuffer != NULL);
- VERIFY_CALL(nSize > 0);
- VERIFY_CALL(pnBytesRead != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- {
- int nReceived;
-
- ASM push di
- ASM mov cx, nSize
- ASM mov dx, nPort
-
-
-#ifdef LARGEDATA
- ASM les di, pbtBuffer
-#else
- ASM mov ax, ds
- ASM mov es, ax
- ASM mov di, pbtBuffer
-#endif
-
- ASM mov ah, 0x18
- ASM int 20
- ASM pop di
- ASM mov nReceived, ax
-
- *pnBytesRead = nReceived;
-
- break;
- }
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- {
- int nTransferSize;
- int nFirstHalfSize;
- int nSecondHalfSize;
- char *pbtSource;
-
- /* Disable interrupts. */
- ASM cli
-
- /* Number of bytes to transfer is minimum of buffer size, and */
- /* number of bytes in receive queue. */
- nTransferSize = MIN(nRXChars, nSize);
-
- /* First half of transfer is minimum of number of bytes from here */
- /* to the end of the buffer, and the total transfer size. */
- nFirstHalfSize = nRXQueueSize - nRXOutIndex;
- nFirstHalfSize = MIN(nFirstHalfSize, nTransferSize);
-
- /* Second half of transfer is remaining bytes, if any. */
- nSecondHalfSize = nTransferSize - nFirstHalfSize;
-
- /* Perform first half of transfer. */
- pbtSource = pbtRXQueue + nRXOutIndex;
- while(nFirstHalfSize--)
- {
- *pbtBuffer++ = *pbtSource++;
- }
-
- /* If there is a second half to transfer. */
- if(nSecondHalfSize)
- {
- /* Copy source will begin at beginning of queue. */
- pbtSource = pbtRXQueue;
-
- /* Set final queue out index. */
- nRXOutIndex = nSecondHalfSize;
-
- /* Perform second half of transfer. */
- while(nSecondHalfSize--)
- {
- *pbtBuffer++ = *pbtSource++;
- }
- }
-
- /* If entire transfer was performed in first half. */
- else
- {
- /* Set final queue out index. */
- nRXOutIndex += nTransferSize;
-
- /* Wrap queue out index, if needed. */
- if(nRXOutIndex == nRXQueueSize) nRXOutIndex = 0;
- }
-
- /* Subtract number of bytes retrieved from number of bytes in */
- /* receive queue. */
- nRXChars -= nTransferSize;
-
- /* Return number of bytes copied into buffer. */
- *pnBytesRead = nTransferSize;
-
- /* Re-enable interrupts. */
- ASM sti
-
- break;
- }
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwBytesRead;
- DWORD dwErrors;
-
- /* Ensure read timeout state is set for non-blocking read */
- ODComWin32SetReadTimeouts(pPortInfo, kNonBlocking);
-
- /* Perform read operation. */
- if(!ReadFile(pPortInfo->hCommDev, pbtBuffer, nSize, &dwBytesRead,
- NULL))
- {
- ClearCommError(pPortInfo->hCommDev, &dwErrors, NULL);
- return(kODRCGeneralFailure);
- }
-
- /* Pass number of bytes read back to caller. */
- *pnBytesRead = (int)dwBytesRead;
-
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- ASSERT(pPortInfo->pfDoorRead != NULL);
- *pnBytesRead = (int)((*pPortInfo->pfDoorRead)(pbtBuffer, nSize));
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- {
- fd_set socket_set;
- struct timeval tv;
-
- FD_ZERO(&socket_set);
- FD_SET(pPortInfo->socket,&socket_set);
-
- tv.tv_sec=0;
- tv.tv_usec=0;
-
- if(select(pPortInfo->socket+1,&socket_set,NULL,NULL,&tv) != 1) {
- *pnBytesRead = 0;
- break;
- }
-
- *pnBytesRead = recv(pPortInfo->socket,pbtBuffer,nSize,0);
- break;
- }
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- {
- for(*pnBytesRead=0;
- *pnBytesRead<nSize && (ODComGetByte(hPort, (pbtBuffer+*pnBytesRead), FALSE)==kODRCSuccess);
- *pnBytesRead++);
- }
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComSendBuffer()
- *
- * Sends the contents of an entire buffer to the serial port, waiting until
- * there is enough room in the serial port outbound buffer.
- *
- * Parameters: hPort - Handle to a serial port object.
- *
- * pbtBuffer - Pointer to the first byte in the buffer to transmit.
- *
- * nSize - Number of bytes to transmit from the buffer.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComSendBuffer(tPortHandle hPort, BYTE *pbtBuffer, int nSize)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
- int nPort;
-
- VERIFY_CALL(pPortInfo != NULL);
- VERIFY_CALL(pbtBuffer != NULL);
- VERIFY_CALL(nSize >= 0);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- nPort = pPortInfo->btPort;
-
- /* If there are no characters to transmit, then there is no need to */
- /* proceed further. */
- if(nSize == 0)
- {
- return(kODRCSuccess);
- }
-
- switch(pPortInfo->Method)
- {
-#ifdef INCLUDE_FOSSIL_COM
- case kComMethodFOSSIL:
- {
- int nCount;
-
-try_again:
- ASM push di
- ASM mov cx, nSize
- ASM mov dx, nPort
-
-
-#ifdef LARGEDATA
- ASM les di, pbtBuffer
-#else
- ASM mov ax, ds
- ASM mov es, ax
- ASM mov di, pbtBuffer
-#endif
-
- ASM mov ah, 0x19
- ASM int 20
- ASM pop di
- ASM mov nCount, ax
-
- if(nCount<nSize)
- {
- /* Call idle function, if any. */
- if(pPortInfo->pfIdleCallback != NULL)
- {
- (*pPortInfo->pfIdleCallback)();
- }
-
- nSize-=nCount;
- pbtBuffer+=nCount;
- goto try_again;
- }
- break;
- }
-#endif /* INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_UART_COM
- case kComMethodUART:
- {
- int nTransferSize;
- int nFirstHalfSize;
- int nSecondHalfSize;
- char *pbtDest;
-
- /* Loop, copying as much of buffer to transmit queue as possible, */
- /* then waiting for some characters to be transmitted, and copy */
- /* more of buffer to transmit queue, until entire buffer has been */
- /* transferred. */
- for(;;)
- {
- /* Disable interrupts. */
- ASM cli
-
- /* Try to transfer all of buffer if possible. */
- nTransferSize = nSize;
-
- /* Adjust number of character to transfer down if there isn't */
- /* enough space in transmit queue. */
- if(nTransferSize > (nTXQueueSize - nTXChars))
- {
- nTransferSize = (nTXQueueSize - nTXChars);
- }
-
- /* Block transfer is divided into two segments - everything from */
- /* current in index to end of queue, and everything from */
- /* beginning of queue to end of free space in queue. */
-
- /* Calculate size of first half of transfer. */
- nFirstHalfSize = nTXQueueSize - nTXInIndex;
- if(nFirstHalfSize > nTransferSize) nFirstHalfSize = nTransferSize;
-
- /* Calculate size of second half of transfer. */
- nSecondHalfSize = nTransferSize - nFirstHalfSize;
-
- /* Transfer characters at current queue in index. */
- pbtDest = pbtTXQueue + nTXInIndex;
- while(nFirstHalfSize--)
- {
- *pbtDest++ = *pbtBuffer++;
- }
-
- /* If there is a second half to transfer. */
- if(nSecondHalfSize)
- {
- /* Copy destination will begin at beginning of queue. */
- pbtDest = pbtTXQueue;
-
- /* Set final queue in index. */
- nTXInIndex = nSecondHalfSize;
-
- /* Perform second half of transfer. */
- while(nSecondHalfSize--)
- {
- *pbtDest++ = *pbtBuffer++;
- }
- }
-
- /* If entire transfer was performed in first half. */
- else
- {
- /* Set final queue in index. */
- nTXInIndex += nTransferSize;
-
- /* Wrap queue in index if we just happened to fill characters */
- /* up to end of physical queue. If there was one less */
- /* character transferred, no wrap would be necessary, and if */
- /* there was one more character to be transferred, transfer */
- /* would have to be performed in two halves. */
- if(nTXInIndex == nTXQueueSize) nTXInIndex = 0;
- }
-
- /* Update count of total characters in the queue. */
- nTXChars += nTransferSize;
-
- /* Enable transmit interrupt on the UART. */
- ASM mov dx, nIntEnableRegAddr
- ASM in al, dx
- ASM or al, THRE
- ASM out dx, al
-
- /* Re-enable interrupts. */
- ASM sti
-
- /* Adjust count of characters left to transfer down by number of */
- /* characters transferred. */
- nSize -= nTransferSize;
-
- /* If there are no characters left to transfer, then we are */
- /* done. */
- if(nSize == 0) break;
-
- /* Call idle function, if any. */
- if(pPortInfo->pfIdleCallback != NULL)
- {
- (*pPortInfo->pfIdleCallback)();
- }
- }
- break;
- }
-#endif /* INCLUDE_UART_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwErrors;
- DWORD dwBytesWritten;
-
- /* Attempt to perform write operation. */
- if(!WriteFile(pPortInfo->hCommDev, pbtBuffer, nSize, &dwBytesWritten,
- NULL) || dwBytesWritten != (DWORD)nSize)
- {
- ClearCommError(pPortInfo->hCommDev, &dwErrors, NULL);
- return(kODRCGeneralFailure);
- }
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- ASSERT(pPortInfo->pfDoorWrite != NULL);
- if(!(*pPortInfo->pfDoorWrite)(pbtBuffer, nSize))
- {
- return(kODRCGeneralFailure);
- }
- break;
- return(kODRCUnsupported);
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- {
- fd_set socket_set;
- struct timeval tv;
- int send_ret;
-
- FD_ZERO(&socket_set);
- FD_SET(pPortInfo->socket,&socket_set);
-
- tv.tv_sec=0;
- tv.tv_usec=0;
-
- if(select(pPortInfo->socket+1,NULL,&socket_set,NULL,&tv) != 1)
- return(kODRCGeneralFailure);
-
- do {
- send_ret = send(pPortInfo->socket, pbtBuffer, nSize, 0);
- if (send_ret != SOCKET_ERROR)
- break;
- Sleep(25);
- } while (WSAGetLastError() == WSAEWOULDBLOCK);
-
- if (send_ret != nSize)
- return (kODRCGeneralFailure);
- break;
- }
-#endif /* INCLUDE_SOCKET_COM */
-
-#ifdef INCLUDE_STDIO_COM
- case kComMethodStdIO:
- {
- if(write(1,pbtBuffer,nSize)!=nSize)
- return (kODRCGeneralFailure);
- break;
- }
-#endif
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODComWaitEvent()
- *
- * Blocks until the specified serial I/O event occurs, or an error condition
- * is encountered.
- *
- * Parameters: hPort - Handle to an open port.
- *
- * Event - Event type to wait for.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODComWaitEvent(tPortHandle hPort, tComEvent Event)
-{
- tPortInfo *pPortInfo = ODHANDLE2PTR(hPort, tPortInfo);
-
- VERIFY_CALL(pPortInfo != NULL);
-
- VERIFY_CALL(pPortInfo->bIsOpen);
-
- switch(pPortInfo->Method)
- {
-#if defined(INCLUDE_UART_COM) || defined(INCLUDE_FOSSIL_COM) || defined(INCLUDE_STDIO_COM)
- case kComMethodFOSSIL:
- case kComMethodUART:
- case kComMethodStdIO:
- switch(Event)
- {
- case kNoCarrier:
- {
- BOOL bCarrier;
- for(;;)
- {
- ODComCarrier(hPort, &bCarrier);
- if(!bCarrier) break;
-
- if(pPortInfo->pfIdleCallback != NULL)
- {
- (*pPortInfo->pfIdleCallback)();
- }
- }
- break;
- }
- default:
- VERIFY_CALL(FALSE);
- }
- break;
-#endif /* INCLUDE_UART_COM || INCLUDE_FOSSIL_COM */
-
-#ifdef INCLUDE_WIN32_COM
- case kComMethodWin32:
- {
- DWORD dwEvtMask;
-
- /* Obtain current event mask. */
- if(!GetCommMask(pPortInfo->hCommDev, &dwEvtMask))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Turn on event to be waited for. */
- switch(Event)
- {
- case kNoCarrier:
- dwEvtMask |= EV_RLSD;
- break;
- default:
- VERIFY_CALL(FALSE);
- }
-
- /* Write new event mask. */
- if(!SetCommMask(pPortInfo->hCommDev, dwEvtMask))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Wait until event occurs. */
- for(;;)
- {
- /* Block until some event occurs. */
- if(!WaitCommEvent(pPortInfo->hCommDev, &dwEvtMask, NULL))
- {
- return(kODRCGeneralFailure);
- }
-
- /* Determine whether this is what we are waiting for. */
- switch(Event)
- {
- case kNoCarrier:
- if(dwEvtMask | EV_RLSD)
- {
- BOOL bCarrier;
- ODComCarrier(hPort, &bCarrier);
- if(!bCarrier)
- {
- return(kODRCSuccess);
- }
- }
- break;
- }
-
- /* If we get here, the event we are waiting for hasn't occurred */
- /* yet, so loop and block waiting for next event. */
- }
-
- break;
- }
-#endif /* INCLUDE_WIN32_COM */
-
-#ifdef INCLUDE_DOOR32_COM
- case kComMethodDoor32:
- switch(Event)
- {
- case kNoCarrier:
- ASSERT(pPortInfo->pfDoorGetOfflineEventHandle != NULL);
- WaitForSingleObject(
- (*pPortInfo->pfDoorGetOfflineEventHandle)(), INFINITE);
- break;
- default:
- VERIFY_CALL(FALSE);
- }
- break;
-#endif /* INCLUDE_DOOR32_COM */
-
-#ifdef INCLUDE_SOCKET_COM
- case kComMethodSocket:
- {
- if(Event == kNoCarrier)
- {
- /* Wait for socket disconnect */
- fd_set socket_set;
- char ch;
- int recv_ret;
-
- while(1)
- {
-
- FD_ZERO(&socket_set);
- FD_SET(pPortInfo->socket,&socket_set);
- if(select(pPortInfo->socket+1,&socket_set,NULL,NULL,NULL)
- ==SOCKET_ERROR)
- break;
- recv_ret = recv(pPortInfo->socket, &ch, 1, MSG_PEEK);
- if(recv_ret == SOCKET_ERROR && WSAGetLastError() == WSAEWOULDBLOCK)
- continue;
- if (recv_ret != 1)
- break;
- }
- }
- else
- {
- VERIFY_CALL(FALSE);
- }
- break;
- }
-#endif /* INCLUDE_SOCKET_COM */
-
-
- default:
- /* If we get here, then the current serial I/O method is not */
- /* handled by this function. */
- ASSERT(FALSE);
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
diff --git a/src/odoors/ODCom.h b/src/odoors/ODCom.h
deleted file mode 100644
index 1d60e3fc465b7562b871758f286aab9c71e2657c..0000000000000000000000000000000000000000
--- a/src/odoors/ODCom.h
+++ /dev/null
@@ -1,137 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODCom.h
- *
- * Description: Public definitions for serial communications module, which
- * is implemented in odcom.c
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 21, 1994 6.00 BP Created.
- * Jan 01, 1995 6.00 BP Added ODComWaitEvent().
- * Dec 21, 1995 6.00 BP Add ability to use already open port.
- * Jan 09, 1996 6.00 BP Supply actual in/out buffer size used.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Initial support for Door32 interface.
- * Oct 19, 2001 6.20 RS Added TCP/IP socket (telnet) support.
- */
-
-#ifndef _INC_ODCOM
-#define _INC_ODCOM
-
-/* odtypes.h is needed for definitions of tODHandle, and BOOL. */
-#include "ODTypes.h"
-
-/* Serial I/O handle. */
-typedef tODHandle tPortHandle;
-
-/* Flow Control setting manifest constants. */
-#define FLOW_NONE 0x00
-#define FLOW_RTSCTS 0x02
-#define FLOW_DEFAULT 0x80
-
-/* Parity bit setting manifest constants. */
-#define ODPARITY_NONE 0x00
-#define ODPARITY_ODD 0x08
-#define ODPARITY_EVEN 0x18
-
-#define ODPARITY_MASK 0x18
-
-/* Stop bit setting manifest constants. */
-#define STOP_ONE 0x00
-#define STOP_ONE_POINT_FIVE 0x04 /* Only with DATABITS_FIVE. */
-#define STOP_TWO 0x04 /* Only if not using DATABITS_FIVE. */
-
-#define STOP_MASK 0x04
-
-/* Character length manifest constants. */
-#define DATABITS_FIVE 0x00
-#define DATABITS_SIX 0x01
-#define DATABITS_SEVEN 0x02
-#define DATABITS_EIGHT 0x03
-
-#define DATABITS_MASK 0x03
-
-/* FIFO setting constants. */
-#define FIFO_DISABLE 0x00
-#define FIFO_ENABLE 0x01
-#define FIFO_TRIGGER_1 0x00
-#define FIFO_TRIGGER_4 0x40
-#define FIFO_TRIGGER_8 0x80
-#define FIFO_TRIGGER_14 0xc0
-
-/* Misc. manifest constants. */
-#define SPEED_UNSPECIFIED 0
-#define SIZE_NON_ZERO -1
-
-/* Serial I/O method settings. */
-typedef enum
-{
- kComMethodUnspecified,
- kComMethodFOSSIL,
- kComMethodUART,
- kComMethodWin32,
- kComMethodDoor32,
- kComMethodSocket,
- kComMethodStdIO,
-} tComMethod;
-
-/* Serial I/O event types. */
-typedef enum
-{
- kNoCarrier
-} tComEvent;
-
-/* Serial I/O function prototypes. */
-tODResult ODComAlloc(tPortHandle *phPort);
-tODResult ODComFree(tPortHandle hPort);
-tODResult ODComSetIdleFunction(tPortHandle hPort,
- void (*pfCallback)(void));
-tODResult ODComSetFlowControl(tPortHandle hPort, BYTE btFlowControlSetting);
-tODResult ODComSetSpeed(tPortHandle hPort, long lSpeed);
-tODResult ODComSetPort(tPortHandle hPort, BYTE btPort);
-tODResult ODComSetIRQ(tPortHandle hPort, BYTE btIRQLevel);
-tODResult ODComSetPortAddress(tPortHandle hPort, int nPortAddress);
-tODResult ODComSetWordFormat(tPortHandle hPort, BYTE btWordFormat);
-tODResult ODComSetRXBuf(tPortHandle hPort, int nReceiveBufferSize);
-tODResult ODComSetTXBuf(tPortHandle hPort, int nTransmitBufferSize);
-tODResult ODComSetFIFO(tPortHandle hPort, BYTE btFIFOSetting);
-tODResult ODComSetPreferredMethod(tPortHandle hPort, tComMethod Method);
-tODResult ODComGetMethod(tPortHandle hPort, tComMethod *pMethod);
-tODResult ODComOpen(tPortHandle hPort);
-tODResult ODComOpenFromExistingHandle(tPortHandle hPort,
- DWORD dwExistingHandle);
-tODResult ODComClose(tPortHandle hPort);
-tODResult ODComClearInbound(tPortHandle hPort);
-tODResult ODComClearOutbound(tPortHandle hPort);
-tODResult ODComInbound(tPortHandle hPort, int *pnInboundWaiting);
-tODResult ODComOutbound(tPortHandle hPort, int *pnOutboundWaiting);
-tODResult ODComCarrier(tPortHandle hPort, BOOL *pbIsCarrier);
-tODResult ODComSetDTR(tPortHandle hPort, BOOL bHigh);
-tODResult ODComSendByte(tPortHandle hPort, BYTE btToSend);
-tODResult ODComGetByte(tPortHandle hPort, char *pbtNext, BOOL bWait);
-tODResult ODComSendBuffer(tPortHandle hPort, BYTE *pbtBuffer, int nSize);
-tODResult ODComGetBuffer(tPortHandle hPort, BYTE *pbtBuffer, int nSize,
- int *pnBytesRead);
-tODResult ODComWaitEvent(tPortHandle hPort, tComEvent Event);
-
-#endif /* !_INC_ODCOM */
diff --git a/src/odoors/ODCore.c b/src/odoors/ODCore.c
deleted file mode 100644
index 1d4df8520b3b6e7fb1ff7c6cd47af6f74236e9d8..0000000000000000000000000000000000000000
--- a/src/odoors/ODCore.c
+++ /dev/null
@@ -1,1578 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODCore.c
- *
- * Description: Implements the core of OpenDoors, including chat mode
- * and standard input/output functions that are
- * used throughout OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 19, 1994 6.00 BP Changed paging hours logic.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Oct 22, 1994 6.00 BP Name case conversion /w punct.
- * Dec 08, 1994 6.00 BP Allow custom chat mode deactivation.
- * Dec 09, 1994 6.00 BP Remove global dir entry structure.
- * Dec 13, 1994 6.00 BP Remove include of dir.h.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Dec 31, 1994 6.00 BP Remove old multitasker definitions.
- * Jan 01, 1995 6.00 BP Don't use ODComInbound().
- * Jan 01, 1995 6.00 BP _waitdrain() -> ODWaitDrain().
- * Jan 01, 1995 6.00 BP Use new millisecond timer functions.
- * Jan 01, 1995 6.00 BP Remove od_init() from _remotechar()
- * Jan 01, 1995 6.00 BP Split off odkrnl.c from odcore.c
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Moved first_word() to odlist.c
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Create odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Dec 12, 1995 6.00 BP Added od_set_color().
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 13, 1995 6.00 BP Moved chat mode code to ODKrnl.h.
- * Dec 19, 1995 6.00 BP Request reason for chat outside hours.
- * Dec 23, 1995 6.00 BP Allow space to continue at page pause.
- * Dec 24, 1995 6.00 BP Added abtGreyBlock.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 03, 1996 6.00 BP Use OD_API_VAR_DEFN for od_control.
- * Jan 04, 1996 6.00 BP tODInQueueEvent -> tODInputEvent.
- * Jan 23, 1996 6.00 BP No od_set_statusline() under Win32.
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 30, 1996 6.00 BP Add ODInQueueGetNextEvent() timeout.
- * Jan 09, 1996 6.00 BP ODComOutbound() returns actual size.
- * Jan 09, 1996 6.00 BP Reduce kernel calls from od_disp...().
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Mar 21, 1996 6.10 BP Added od_control_get().
- * Sep 01, 1996 6.10 BP Update output area on od_set_per...().
- * Oct 19, 2001 6.20 RS od_get_key now ignores linefeeds.
- * Mar 14, 2002 6.22 RS Fixed od_get_key(bWait=FALSE)
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <time.h>
-#include <errno.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODCom.h"
-#include "ODKrnl.h"
-#include "ODScrn.h"
-#include "ODCore.h"
-#include "ODInQue.h"
-#ifdef ODPLAT_WIN32
-#include "ODFrame.h"
-#endif /* ODPLAT_WIN32 */
-
-
-/* GLOBAL VARIABLES SHARED THROUGHOUT OPENDOORS. */
-
-/* Global declaration of the OpenDoors control structure. */
-OD_API_VAR_DEFN tODControl
-#ifndef _WIN32 /* warning C4229: anachronism used : modifiers on data are ignored */
-OD_GLOBAL_CONV
-#endif
-od_control;
-
-/* OpenDoors global initialized flag. */
-BOOL bODInitialized = FALSE;
-
-/* Global serial port object handle. */
-tPortHandle hSerialPort;
-
-/* Global input queue object handle. */
-tODInQueueHandle hODInputQueue;
-
-/* Reentrancy control. */
-BOOL bIsCallbackActive = FALSE;
-BOOL bShellChatActive = FALSE;
-
-/* Global working space. */
-char szODWorkString[OD_GLOBAL_WORK_STRING_SIZE];
-
-/* Global instance of the text information structure for general use. */
-tODScrnTextInfo ODTextInfo;
-
-/* Logfile function hooks. */
-BOOL (*pfLogWrite)(INT) = NULL;
-void (*pfLogClose)(INT) = NULL;
-
-/* od_color_config() support for od_printf(). */
-char chColorCheck = 0;
-char *pchColorEndPos;
-
-/* Status line information. */
-BYTE btCurrentStatusLine = STATUS_NONE;
-OD_PERSONALITY_CALLBACK *pfCurrentPersonality = NULL;
-char szDesiredPersonality[33] = "";
-extern SET_PERSONALITY_FUNC *pfSetPersonality = NULL;
-
-/* Commonly used character sequences. */
-char abtBlackBlock[2] = {' ', 0x07};
-char abtGreyBlock[2] = {' ', 0x70};
-char szBackspaceWithDelete[4] = {8, ' ', 8, 0};
-
-/* Current output area on screen. */
-BYTE btOutputTop = 1;
-BYTE btOutputBottom = 23;
-
-
-/* PRIVATE VARIABLES. */
-
-/* Display color varaibles. */
-char bAnyColorChangeYet;
-
-/* Static character sequences. */
-static char szClearScreen[2] = {12, 0};
-
-/* Lookup table to map colors from PC values to ANSI color values. */
-static BYTE abtPCToANSIColorTable[8] = {30, 34, 32, 36, 31, 35, 33, 37};
-
-
-/* LOCAL HELPER FUNCTIONS. */
-static void ODAddANSIParameter(char *szControlSequence, int nParameterValue);
-
-
-/* ----------------------------------------------------------------------------
- * ODWaitDrain()
- *
- * Waits for up to the specified number of milliseconds for the output serial
- * buffer to drain.
- *
- * Parameters: MaxWait - Specifies the maximum number of milliseconds to wait
- * before timing out.
- *
- * Return: void
- */
-void ODWaitDrain(tODMilliSec MaxWait)
-{
- int nOutboundSize;
- tODTimer Timer;
-
- /* If we are operating in local mode, then don't do anything. */
- if(od_control.baud == 0) return;
-
- /* Otherwise, start a timer that is set to elapse after the maximum */
- /* wait period. */
- ODTimerStart(&Timer, MaxWait);
-
- /* Loop until either the outbound buffer is empty, or the */
- /* timer has elapsed. */
- for(;;)
- {
- /* Check whether any data is in the outbound serial queue. */
- ODComOutbound(hSerialPort, &nOutboundSize);
-
- /* If the queue is empty or the timer has elapsed, then stop */
- /* waiting. */
- if(nOutboundSize == 0 || ODTimerElapsed(&Timer)) break;
-
- /* Otherwise, give other tasks a chance to run. */
- od_sleep(0);
-
- /* Give od_kernel() activities a chance to run. */
- CALL_KERNEL_IF_NEEDED();
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_clr_scr()
- *
- * Clears the contents of the local and remote screens, if screen clearing is
- * enabled.
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_clr_scr(void)
-{
- INT16 nOriginalAttrib;
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_clr_scr()");
-
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Don't clear screen if disabled. */
- if(!od_control.od_always_clear && !(od_control.user_attribute & 2)
- && (od_control.od_extended_info || od_control.od_info_type == CUSTOM))
- {
- OD_API_EXIT();
- return;
- }
-
- if(od_control.user_rip)
- {
- od_disp("!|*", 3, FALSE);
- if(!od_control.od_default_rip_win)
- {
- od_disp("!|w0000270M12", 13, FALSE);
- }
- }
-
- /* Send ascii 12 to modem, no local echo. */
- od_disp(szClearScreen, 1, FALSE);
-
- /* Clear local window. */
- ODScrnClear();
-
- /* Get color set prior to screen clear. */
- nOriginalAttrib = od_control.od_cur_attrib;
-
- /* Current color state is unknown. */
- od_control.od_cur_attrib = -1;
-
- /* Set color to original value. This gurantees that local and */
- /* remote systems both have the same current color set. */
- od_set_attrib(nOriginalAttrib);
-
- OD_API_EXIT();
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * od_input_str()
- *
- * Allows the user to input a string up to the specified length, using
- * characters in the specified range. This string input function is designed
- * to be compatible with all terminal types.
- *
- * Parameters: pszInput - Pointer to string to store input in.
- *
- * nMaxLength - Maximum number of characters to permit the user
- * to input.
- *
- * chMin - The minimum character value to permit. This must
- * be at least ASCII 32.
- *
- * chMax - The maximum character value to permit.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_input_str(char *pszInput,
- INT nMaxLength,
- unsigned char chMin,
- unsigned char chMax)
-{
- char chKeyPressed;
- INT nPosition;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_input_str()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Start at the beginning of the string. */
- nPosition = 0;
-
- /* Check that input parameters are valid. */
- if(pszInput == NULL || nMaxLength < 1 || chMin > chMax)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return;
- }
-
- for(;;)
- {
- chKeyPressed = od_get_key(TRUE);
-
- /* If user pressed enter. */
- if(chKeyPressed == '\r' || chKeyPressed == '\n')
- {
- /* Terminate the string. */
- pszInput[nPosition] = '\0';
-
- /* Display CR-LF sequence. */
- od_disp_str("\n\r");
-
- /* Exit the function. */
- OD_API_EXIT();
- return;
- }
-
- /* If the user pressed backspace. */
- else if(chKeyPressed == 8)
- {
- /* If we are not currently at the beginning of the string. */
- if(nPosition > 0)
- {
- /* Send backspace sequence. */
- od_disp_str(szBackspaceWithDelete);
-
- /* Move current position back by one position in the string. */
- --nPosition;
- }
- }
-
- /* If this is a valid character to place in the string and we have */
- /* not reached the maximum size of the string yet. */
- else if(chKeyPressed >= chMin && chKeyPressed <= chMax
- && nPosition < nMaxLength)
- {
- /* Display key that was pressed. */
- od_putch(chKeyPressed);
-
- /* Add the entered character to the string and increment our */
- /* current position in the string. */
- pszInput[nPosition++] = chKeyPressed;
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_clear_keybuffer()
- *
- * Clears any keystrokes from the inbound buffers. Both input from local and
- * remote systems is discarded, by clearing both OpenDoors' common input
- * event queue, and the serial port inbound buffer. This function is called
- * to cause any input by the user prior to the time the function was called
- * to be ignored.
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_clear_keybuffer(void)
-{
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_clear_keybuffer()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Empty any events in the common input event queue. */
- ODInQueueEmpty(hODInputQueue);
-
- /* If we are not operating in local mode ... */
- if(od_control.baud != 0)
- {
- /* ... then remove any items in the serial port inbound buffer. */
- ODComClearInbound(hSerialPort);
- }
-
- /* Call the OpenDoors kernel function. */
- CALL_KERNEL_IF_NEEDED();
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_get_key()
- *
- * Inputs a single character, optionally waiting for the next character if no
- * character has been received yet. This function returns data received from
- * either the local or remote system, in the order in which it was received.
- *
- * Parameters: bWait - FALSE if od_get_key() should return right away with
- * a value of 0 if no characters have been received, or
- * TRUE if od_get_key() should wait for the next received
- * character.
- *
- * Return: Character that was received, or 0 if no character is waiting.
- */
-ODAPIDEF char ODCALL od_get_key(BOOL bWait)
-{
- tODInputEvent InputEvent;
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_get_key()");
-
- OD_API_ENTRY();
-
- /* Call the OpenDoors kernel. */
- CALL_KERNEL_IF_NEEDED();
-
- do {
-
- /* If we aren't supposed to wait for input, then check whether any */
- /* input is waiting in the input queue, and if not return right away */
- /* without any data. */
- if(!bWait)
- {
- if(!ODInQueueWaiting(hODInputQueue))
- {
- OD_API_EXIT();
- return(0);
- }
- }
-
- /* Obtain the next character from the input queue. If we get to this */
- /* point and there is no data waiting in the input queue, then the */
- /* ODInQueueGetNextEvent() function will block until a character */
- /* is available in the input queue. */
- ODInQueueGetNextEvent(hODInputQueue, &InputEvent, OD_NO_TIMEOUT);
-
- /* Only keyboard input events are currently supported by od_get_key(). */
- ASSERT(InputEvent.EventType == EVENT_CHARACTER);
-
- /* Update OpenDoors control structure member that records whether the */
- /* last input came from the local or remote user. */
- od_control.od_last_input = InputEvent.bFromRemote ? 0 : 1;
-
- } while(InputEvent.chKeyPress == '\n'); /* Ignore line-feed char */
-
- /* Return the character that was pressed by the user. */
- OD_API_EXIT();
- return(InputEvent.chKeyPress);
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * od_carrier()
- *
- * Allows programs to determine the current state of the carrier detect
- * signal when OpenDoors' automatic carrier detection has been disabled.
- *
- * Parameters: none
- *
- * Return: TRUE if the carrier detct signal is present, FALSE if it
- * isn't. When operating in local mode, this function always
- * returns FALSE.
- */
-ODAPIDEF BOOL ODCALL od_carrier(void)
-{
- BOOL bIsCarrier;
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_carrier()");
-
- /* If we are operating in local mode, then return FALSE. */
- if(od_control.baud == 0)
- {
- od_control.od_error = ERR_NOREMOTE;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* In remote mode, obtain the current state of the carrier detect signal. */
- ODComCarrier(hSerialPort, &bIsCarrier);
-
- /* Return the current state of the carrier detect signal. */
- OD_API_EXIT();
- return(bIsCarrier);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_repeat()
- *
- * This function displays the same character the specified number of times on
- * the local and remote screens, using any available optimal control sequences
- * under the current display mode.
- *
- * Parameters: chValue - Character to repeat.
- *
- * btTimes - Number of times to repeat the character.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_repeat(char chValue, BYTE btTimes)
-{
- char *pchCurStringPos;
- BYTE btLeft;
- char szBuffer[3];
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_repeat()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* If the caller asked to repeat the character 0 times, then we can */
- /* safely return right away without doing anything. */
- if(btTimes == 0)
- {
- OD_API_EXIT();
- return;
- }
-
- /* Generate string of repeat characters. */
- pchCurStringPos = szODWorkString;
- for(btLeft = btTimes; btLeft--;)
- {
- *pchCurStringPos++ = chValue;
- }
- *pchCurStringPos = '\0';
-
- /* Display repeated string on local screen. */
- ODScrnDisplayString(szODWorkString);
-
- /* If we are operating in AVATAR mode. */
- if(od_control.user_avatar)
- {
- /* Generate the AVATAR control sequence to repeat this character */
- /* the specified number of times. */
- szBuffer[0] = 25;
- szBuffer[1] = chValue;
- szBuffer[2] = btTimes;
- od_disp(szBuffer, 3, FALSE);
- }
-
- /* If AVATAR mode is not available. */
- else
- {
- /* Send the entire repeated string to the remote system. */
- od_disp(szODWorkString, btTimes, FALSE);
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_page()
- *
- * This function is called when the user wished to page the system operator.
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_page(void)
-{
- INT16 nCount;
- tODTimer Timer;
- time_t nUnixTime;
- struct tm *TimeBlock;
- INT16 nMinute;
- BOOL bFailed = FALSE;
- INT16 nOriginalAttrib;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_page()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Save current display color attribute. */
- nOriginalAttrib = od_control.od_cur_attrib;
-
- /* Clear the screen. */
- od_clr_scr();
- od_set_attrib(od_control.od_chat_color1);
-
- /* Ask reason for chat. */
- od_disp_str(od_control.od_chat_reason);
- od_set_attrib(od_control.od_chat_color2);
- od_putch('[');
-
- /* Use extended ASCII characters if operating in ANSI or AVATAR mode. */
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat('�',77);
- }
- else
- {
- od_repeat('-',77);
- }
- od_disp_str("]\n\r ");
- od_input_str(od_control.user_reasonforchat,77,32,255);
-
- /* If the user did not abort sysop paging by entering a blank reason */
- /* for chat. */
- if(strlen(od_control.user_reasonforchat) != 0)
- {
- /* Indicate that the user wants to chat. */
- od_control.user_wantchat = TRUE;
-#ifdef ODPLAT_WIN32
- ODFrameUpdateWantChat();
-#endif /* ODPLAT_WIN32 */
-
- /* Determine whether or not sysop paging should be permitted at */
- /* the current time. */
- nUnixTime = time(NULL);
- TimeBlock = localtime(&nUnixTime);
- nMinute = (60 * TimeBlock->tm_hour) + TimeBlock->tm_min;
- if(od_control.od_pagestartmin < od_control.od_pageendmin)
- {
- if(nMinute < od_control.od_pagestartmin
- || nMinute >= od_control.od_pageendmin)
- {
- bFailed = TRUE;
- }
- }
- else if(od_control.od_pagestartmin > od_control.od_pageendmin)
- {
- if(nMinute < od_control.od_pagestartmin
- && nMinute >= od_control.od_pageendmin)
- {
- bFailed = TRUE;
- }
- }
- else
- {
- bFailed = FALSE;
- }
-
- /* If paging is set to PAGE_ENABLE, meaning that sysop paging should */
- /* be permitted regardless of the time of day, then allow paging. */
- if(od_control.od_okaytopage == PAGE_ENABLE)
- {
- bFailed = FALSE;
- }
-
- /* If paging is explicitly disable by PAGE_DISABLE, or the current */
- /* time of the day is not normally permitted for paging. */
- if(od_control.od_okaytopage == PAGE_DISABLE || bFailed)
- {
- /* Indicate this to user. */
- od_disp_str("\n\r");
- od_disp_str(od_control.od_no_sysop);
- od_disp_str(od_control.od_press_key);
- od_get_answer("\x0d\x0a");
-
- /* Return from this function. */
- goto cleanup;
- }
-
- /* Update status line right away. */
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
-
- /* Write sysop page information to the logfile, if the log file */
- /* system is hooked up. */
- if(pfLogWrite != NULL)
- {
- (*pfLogWrite)(8);
- }
-
- /* Tell the user that we are now paging the system operator. */
- od_set_attrib(od_control.od_chat_color1);
- od_disp_str(od_control.od_paging);
-
-#ifdef OD_TEXTMODE
- /* Display sysop page status line if it exists and the sysop status */
- /* line is currently active. */
- if(od_control.od_page_statusline != -1 && btCurrentStatusLine != 8)
- {
- od_set_statusline(od_control.od_page_statusline);
- }
-#endif /* OD_TEXTMODE */
-
- /* Increment the total number of times that the user has paged */
- /* the sysop. */
- ++od_control.user_numpages;
-
- /* Sysop hasn't responded yet. */
- bChatted=FALSE;
-
- /* Loop for length of sysop page. */
- for(nCount = 0; nCount < od_control.od_page_len; ++nCount)
- {
- /* Start a timer that is set to elapse in exactly one second. */
- ODTimerStart(&Timer, 1000);
-
- /* Display another period character. */
- od_putch('.');
-
- /* Abort page if system operator answered */
- if(bChatted) goto cleanup;
-
- /* Send beep to local and remote systems. */
- od_putch('\a');
-
- /* Check whether system operator has answered after playing beep. */
- if (bChatted) goto cleanup;
-
- /* Wait for the timer to elapse, calling od_kernel() so that */
- /* chat mode will start as soon as the sysop presses the */
- /* chat key. */
- while(!ODTimerElapsed(&Timer))
- {
- CALL_KERNEL_IF_NEEDED();
- }
- }
-
- /* If sysop page time has elapsed without a response from the */
- /* sysop, then notify the user. */
- od_disp_str(od_control.od_no_response);
- od_disp_str(od_control.od_press_key);
- od_get_answer("\x0d\x0a");
- od_disp_str("\n\r\n\r");
- }
-
-cleanup:
- /* Restore original display color attribute. */
- od_set_attrib(nOriginalAttrib);
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_disp()
- *
- * Function to send one or more character to the remote system, optionally
- * also echoing the same characters to the local screen.
- *
- * Parameters: pachBuffer - Pointer to buffer of characters to send.
- *
- * nSize - Number of characters to send from the buffer.
- *
- * bLocalEcho - TRUE to also echo the characters to the local
- * screen, FALSE to just send the characters to the
- * remote system.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_disp(char *pachBuffer, INT nSize, BOOL bLocalEcho)
-{
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_disp()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Call the OpenDoors kernel, if needed. */
-#ifndef OD_MULTITHREADED
- if(ODTimerElapsed(&RunKernelTimer))
- {
- CALL_KERNEL_IF_NEEDED();
- }
-#endif /* !OD_MULTITHREADED */
-
- /* If we are operating in remote mode, then send the buffer to the */
- /* remote system. */
- if(od_control.baud != 0)
- {
- ODComSendBuffer(hSerialPort, (BYTE *)pachBuffer, nSize);
- }
-
- /* If we are also to display the character on the local screen, then */
- /* display the buffer on the local screen. */
- if(bLocalEcho)
- {
- ODScrnDisplayBuffer(pachBuffer, nSize);
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_disp_str()
- *
- * Displays a string on both the local and remote systems.
- *
- * Parameters: pszToDisplay - Pointer to the string to be displayed.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_disp_str(char *pszToDisplay)
-{
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_disp_str()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Call the OpenDoors kernel, if needed. */
-#ifndef OD_MULTITHREADED
- if(ODTimerElapsed(&RunKernelTimer))
- {
- CALL_KERNEL_IF_NEEDED();
- }
-#endif /* !OD_MULTITHREADED */
-
- /* Send the string to the remote system, if we are running in remote mode. */
- if(od_control.baud != 0)
- {
- ODComSendBuffer(hSerialPort, (BYTE *)pszToDisplay, strlen(pszToDisplay));
- }
-
- /* Display the screen on the local screen. */
- ODScrnDisplayString(pszToDisplay);
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_set_statusline()
- *
- * Switches to one of the available status lines provided by the current
- * personality, or turns off the status line altogether.
- *
- * Parameters: nSetting - Indicates which status line (if any) should be
- * activated.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_set_statusline(INT nSetting)
-{
-#ifdef OD_TEXTMODE
- INT nDistance;
- BYTE btCount
-#endif /* OD_TEXTMODE */
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_set_statusline()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY()
-
-#ifdef OD_TEXTMODE
-
- /* If status line is disabled, then don't do anything. */
- if(!od_control.od_status_on)
- {
- OD_API_EXIT();
- return;
- }
-
- /* Ensure that the parameter is within the valid range. */
- if(nSetting < 0 || nSetting > 8)
- {
- nSetting = 0;
- }
-
- /* If the specified status line is already active, and status line */
- /* update isn't being forced, then return without doing anything. */
- if(!od_control.od_update_status_now && nSetting == btCurrentStatusLine)
- {
- OD_API_EXIT();
- return;
- }
-
- /* Save the current cursor settings. */
- ODStoreTextInfo();
-
- /* Reset screen boundary to allow access to the entire screen. */
- ODScrnSetBoundary(1,1,80,25);
-
- /* If status line is being turned off. */
- if(btCurrentStatusLine == STATUS_NONE)
- {
- if((nDistance = (INT)ODTextInfo.cury - ( 1 + (INT)btOutputBottom
- - (INT)btOutputTop)) > 0)
- {
- ODScrnCopyText(1, (BYTE)((INT)btOutputTop + nDistance), 80,
- (BYTE)((INT)btOutputBottom + nDistance), (BYTE)btOutputTop, 1);
- ODTextInfo.cury = 1 + btOutputBottom - btOutputTop;
- }
- else if(ODTextInfo.cury < btOutputTop)
- {
- ODTextInfo.cury = btOutputTop;
- ODScrnCopyText(1, (BYTE)(btOutputTop + 24 - btOutputBottom), 80, 25,
- btOutputTop, 1);
- }
- }
-
- od_control.od_current_statusline = btCurrentStatusLine = nSetting;
-
- if(nSetting == 8)
- {
- ODScrnSetAttribute(0x07);
-
- for(btCount = 1; btCount <= 25; ++btCount)
- {
- if(btCount < btOutputTop || btCount > btOutputBottom)
- {
- if(btCount == 25)
- {
- ODScrnPutText(80, 25, 80, 25, abtBlackBlock);
- ODScrnSetCursorPos(1, 25);
- ODScrnDisplayString(" ");
- }
- else
- {
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" ");
- }
- }
- }
-
- ODScrnSetAttribute(ODTextInfo.attribute);
- ODScrnSetCursorPos(ODTextInfo.curx, ODTextInfo.cury);
- }
-
- else
- {
- ODScrnEnableCaret(FALSE);
- ODScrnEnableScrolling(FALSE);
-
- (*pfCurrentPersonality)((BYTE)nSetting);
-
- ODScrnEnableCaret(TRUE);
- ODScrnEnableScrolling(TRUE);
-
- ODScrnSetBoundary(1, btOutputTop, 80, btOutputBottom);
- ODScrnSetAttribute(ODTextInfo.attribute);
- ODScrnSetCursorPos(ODTextInfo.curx, ODTextInfo.cury);
- }
-
-#else /* !OD_TEXTMODE */
-
- od_control.od_error = ERR_UNSUPPORTED;
-
-#endif /* !OD_TEXTMODE */
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStoreTextInfo()
- *
- * Stores the current text settings into the OpenDoors global text information
- * structure.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODStoreTextInfo(void)
-{
- ODScrnGetTextInfo(&ODTextInfo);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODRestoreTextInfo()
- *
- * Restores display settings previously stored by ODStoreTextInfo()
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODRestoreTextInfo(void)
-{
- ODScrnSetBoundary(ODTextInfo.winleft, ODTextInfo.wintop,
- ODTextInfo.winright, ODTextInfo.winbottom);
- ODScrnSetAttribute(ODTextInfo.attribute);
- ODScrnSetCursorPos(ODTextInfo.curx, ODTextInfo.cury);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStringToName()
- *
- * Reformats a string so that it has the correct capitalization for a name,
- * and removes any trailing line break character.
- *
- * Parameters: pszToConvert - Pointer to the string to reformat.
- *
- * Return: void
- */
-void ODStringToName(char *pszToConvert)
-{
- /* Begin by changing the entire string to lower case. */
- strlwr(pszToConvert);
-
- /* Trim any newline character that may be at the end of the string. */
- if(pszToConvert[strlen(pszToConvert) - 1] == '\n')
- {
- pszToConvert[strlen(pszToConvert) - 1] = '\0';
- }
-
- /* Change the first character to lower case. */
- *pszToConvert = toupper(*pszToConvert);
-
- /* Loop through the rest of the string, capitalizing any other words */
- /* in the string. */
- while(*pszToConvert)
- {
- switch(*pszToConvert++)
- {
- case ' ':
- case '\t':
- case ',':
- case '.':
- case '-':
- *pszToConvert = toupper(*pszToConvert);
- break;
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_set_color()
- *
- * Sets the current display color for both local and remote output.
- *
- * Parameters: nForeground - New foreground (text) color.
- *
- * nBackground - New background color.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_set_color(INT nForeground, INT nBackground)
-{
- /* Use od_set_attrib() to perform the actual color setting. */
- /* Here, we rely on od_set_attrib() to look after initialization, */
- /* API_ENTRY() and API_EXIT() calls, etc. This allows od_set_color() */
- /* (which was previously just a macro) to be implemented with as */
- /* little overhead as possible. */
- od_set_attrib(nForeground | (nBackground << 4));
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_set_attrib()
- *
- * Sets the current display color for both local and remote output.
- *
- * Parameters: nColor - New Display color to set, or -1 for no change.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_set_attrib(INT nColor)
-{
- char szControlSequence[40];
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_set_attrib()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* If color value is -1, then make no change. */
- if(nColor == -1)
- {
- OD_API_EXIT();
- return;
- }
-
- /* If we are operating in AVATAR mode. */
- if(od_control.user_avatar)
- {
- if(od_control.od_cur_attrib != nColor || od_control.od_full_color)
- {
- /* Change local text color. */
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib = nColor));
-
- /* Generate AVATAR control sequence. */
- szControlSequence[0] = 22;
- szControlSequence[1] = 1;
- szControlSequence[2] = nColor;
-
- /* Send AVATAR control sequence. */
- od_disp(szControlSequence, 3, FALSE);
- }
- }
-
- /* If we are operating in ANSI mode. */
- else if(od_control.user_ansi)
- {
- bAnyColorChangeYet = FALSE;
-
- if(od_control.od_cur_attrib == -1 || od_control.od_full_color)
- {
-ansi_reset:
- /* Reset ANSI terminal status. */
- ODAddANSIParameter(szControlSequence, 0);
-
- /* If blink attribute is set. */
- if(nColor & 0x80)
- {
- /* Add it to the ANSI color sequence. */
- ODAddANSIParameter(szControlSequence, 5);
- }
-
- /* If high intensity attribute is set. */
- if(nColor & 0x08)
- {
- /* Add it to the ANSI color sequence. */
- ODAddANSIParameter(szControlSequence, 1);
- }
- }
-
- /* If current color is known. */
- else
- {
- /* If have to reset flashing or bright. */
- if(((od_control.od_cur_attrib&0x80) &&
- !(nColor & 0x80)) || ((od_control.od_cur_attrib & 0x08)
- && !(nColor & 0x08)))
- {
- /* Must reset entire colour settings. */
- od_control.od_cur_attrib = -1;
- goto ansi_reset;
- }
-
- /* If flashing has to be turned on. */
- if((nColor & 0x80) != (od_control.od_cur_attrib & 0x80))
- {
- /* Add it to the ANSI color sequence. */
- ODAddANSIParameter(szControlSequence, 5);
- }
-
- /* If bright has to be turned on. */
- if((nColor & 0x08) != (od_control.od_cur_attrib & 0x08)
- || od_control.od_cur_attrib == -1)
- {
- /* Add it to the ANSI color sequence. */
- ODAddANSIParameter(szControlSequence, 1);
- }
- }
-
-
- /* If foreground color has changed. */
- if((nColor & 0x07) != (od_control.od_cur_attrib & 0x07)
- || od_control.od_cur_attrib == -1 || od_control.od_full_color)
- {
- /* Add translated color to sequence. */
- ODAddANSIParameter(szControlSequence,
- abtPCToANSIColorTable[nColor&0x07]);
- }
-
- /* If background color has changed. */
- if((nColor & 0x70) != (od_control.od_cur_attrib & 0x70)
- || od_control.od_cur_attrib == -1 || od_control.od_full_color)
- {
- /* Add translated color to sequence. */
- ODAddANSIParameter(szControlSequence,
- abtPCToANSIColorTable[(nColor & 0x70) >> 4] + 10);
- }
-
- /* If any change in color. */
- if(bAnyColorChangeYet)
- {
- /* Append change-attribute command. */
- strcat(szControlSequence, "m");
-
- /* Send ANSI sequence to the modem. */
- od_disp(szControlSequence, strlen(szControlSequence), FALSE);
- }
-
- /* Change local text color. */
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib = nColor));
- }
- else
- {
- od_control.od_error = ERR_NOGRAPHICS;
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODAddANSIParameter() *** PRIVATE FUNCTION ***
- *
- * Adds a parameter to an ANSI color sequence.
- *
- * Parameters: szControlSequence - The contents of the control sequence string
- * generated so far.
- *
- * nParameterValue - Value of the parameter to add.
- *
- * Return: void
- */
-static void ODAddANSIParameter(char *szControlSequence, int nParameterValue)
-{
- char szTemp[5];
-
- if(bAnyColorChangeYet)
- {
- sprintf(szTemp, ";%d", nParameterValue);
- strcat(szControlSequence, szTemp);
- }
- else
- {
- bAnyColorChangeYet = TRUE;
- sprintf(szControlSequence, "x[%d", nParameterValue);
- szControlSequence[0] = 27;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_putch()
- *
- * Displays a character on the local and remote screens.
- *
- * Parameters: chToDisplay - The character to display.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_putch(char chToDisplay)
-{
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_putch()");
-
- /* Initialize OpenDoors if it hasn't been done already. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Display the character on the local screen. */
- ODScrnDisplayChar(chToDisplay);
-
- /* If not operating in local mode, then send the character to the */
- /* serial port. */
- if(od_control.baud)
- {
- ODComSendByte(hSerialPort, chToDisplay);
- }
-
- /* If it is time to call the kernel, then do so. */
- if(ODTimerElapsed(&RunKernelTimer))
- {
- CALL_KERNEL_IF_NEEDED();
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_set_dtr()
- *
- * Changes the state of the DTR line to the modem, if not running in local
- * mode.
- *
- * Parameters: bHigh - TRUE to raise DTR, FALSE to lower it.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_set_dtr(BOOL bHigh)
-{
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_set_dtr()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* If we are running in local mode, then return with an error. */
- if(!od_control.baud)
- {
- od_control.od_error = ERR_NOREMOTE;
- OD_API_EXIT();
- return;
- }
-
- /* Otherwise, change the state of the DTR line. */
- ODComSetDTR(hSerialPort, bHigh);
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_get_answer()
- *
- * Waits for the user to press one of the keys listed in pszOptions. Case is
- * not sensitive, although the pressed key is returned in the same case as it
- * is specified in pszOptions.
- *
- * Parameters: pszOptions - String listing characters to accept.
- *
- * Return: void
- */
-ODAPIDEF char ODCALL od_get_answer(char *pszOptions)
-{
- char *pchPossibleOption;
- char chPressed;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_get_answer()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- for(;;)
- {
- /* Wait for the next key press by the user. */
- chPressed = od_get_key(TRUE);
- chPressed = tolower(chPressed);
-
- /* Loop through list of possible options. */
- pchPossibleOption = (char *)pszOptions;
- while(*pchPossibleOption)
- {
- /* If the key pressed matches this possible option. */
- if(tolower(*pchPossibleOption) == chPressed)
- {
- /* Then return the character in the case originally specified */
- /* by the caller. */
- OD_API_EXIT();
- return(*pchPossibleOption);
- }
-
- /* Move on to the next possible option. */
- ++pchPossibleOption;
- }
-
- /* If the key pressed did not match a possible option, then we */
- /* just loop again, getting the next key. */
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_color_config()
- *
- * Determines the color attribute that is described by the provided string.
- * This string is in the same format that is used for specifying colors in the
- * OpenDoors configuration file.
- *
- * Parameters: pszColorDesc - Color description string.
- *
- * Return: The PC-style color attribute corresponding to the color
- * description string.
- */
-ODAPIDEF BYTE ODCALL od_color_config(char *pszColorDesc)
-{
- BYTE btColor = 0x07;
- char szToken[40];
- char *pszStart=(char *)pszColorDesc;
- char *pszEnd;
- BYTE btLength;
- BYTE btIdentifier;
- BOOL bForeground = TRUE;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_color_config()");
-
- /* Initialize OpenDoros if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- while(*pszStart && *pszStart!=chColorCheck)
- {
- if(*pszStart == ' ' || *pszStart== '\t')
- {
- ++pszStart;
- }
- else
- {
- btLength = 0;
- pszEnd = (char *)pszStart;
- while(*pszEnd && *pszEnd != chColorCheck && *pszEnd != ' '
- && *pszEnd != '\t')
- {
- ++btLength;
- ++pszEnd;
- }
-
- if(btLength > 39) btLength = 39;
- strncpy(szToken, pszStart, btLength);
- szToken[btLength] = '\0';
- strupr(szToken);
-
- for(btIdentifier = 0; btIdentifier < 12; ++btIdentifier)
- if(strcmp(od_config_colours[btIdentifier], szToken) == 0)
- {
- if(btIdentifier <= 9)
- {
- if(btIdentifier >= 8) btIdentifier -= 2;
-
- if(bForeground)
- {
- bForeground=FALSE;
- btColor &=~ 0x07;
- btColor |= btIdentifier;
- }
- else
- {
- btColor &=~ 0x70;
- btColor |= (btIdentifier << 4);
- }
- }
-
- else if(btIdentifier == 10)
- {
- btColor |= 0x08;
- }
-
- else if(btIdentifier == 11)
- {
- btColor |= 0x80;
- }
-
- break;
- }
-
- pszStart = (char *)pszEnd;
- }
- }
-
- pchColorEndPos = (char *)pszStart;
-
- OD_API_EXIT();
-
- return(btColor);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODPagePrompt()
- *
- * Called to display the page prompt at the end of a screen of text. This page
- * prompt allows the user to stop further display, to display the next page,
- * or to display in continuous (non-stop) mode with page pausing disabled.
- *
- * Parameters: pbPausing - Pointer to current page pausing enabled flag.
- *
- * Return: FALSE if display should be continued, or TRUE to abort display.
- */
-BOOL ODPagePrompt(BOOL *pbPausing)
-{
- INT nPromptLength = strlen(od_control.od_continue);
- tODScrnTextInfo TextInfo;
- BOOL bToReturn = FALSE;
- char chKeyPressed;
- BYTE btCount;
-
- /* Return right away if page pausing is disabled. */
- if(!*pbPausing) return(FALSE);
-
- /* Get current text color. */
- ODScrnGetTextInfo(&TextInfo);
-
- /* Set to prompt color. */
- od_set_attrib(od_control.od_continue_col);
-
- /* Display page prompt string. */
- od_disp_str(od_control.od_continue);
-
- /* Restore original text color. */
- od_set_attrib(TextInfo.attribute);
-
- /* Loop until the user makes a valid choice. */
- for(;;)
- {
- /* Obtain the next key from the user. */
- chKeyPressed = od_get_key(TRUE);
-
- /* If user chooses to continue. */
- if(chKeyPressed == tolower(od_control.od_continue_yes) ||
- chKeyPressed == toupper(od_control.od_continue_yes) ||
- chKeyPressed == 13 ||
- chKeyPressed == ' ')
- {
- /* Remove the prompt and return. */
- goto finished_pausing;
- }
-
- /* If user requested nonstop display. */
- else if(chKeyPressed == tolower(od_control.od_continue_nonstop) ||
- chKeyPressed == toupper(od_control.od_continue_nonstop))
- {
- /* Disable page pausing. */
- *pbPausing = FALSE;
-
- /* Remove the prompt and return. */
- goto finished_pausing;
- }
-
- /* If user chooses to stop display. */
- else if(chKeyPressed == tolower(od_control.od_continue_no) ||
- chKeyPressed == toupper(od_control.od_continue_no) ||
- chKeyPressed == 's' || chKeyPressed == 'S' || chKeyPressed == 3
- || chKeyPressed == 11 || chKeyPressed == 0x18)
- {
- /* If we are operating in remote mode. */
- if(od_control.baud)
- {
- /* Clear the output buffer. */
- ODComClearOutbound(hSerialPort);
- }
-
- /* Tell the caller to stop displaying more text. */
- bToReturn = TRUE;
-
- /* Remove the prompt and return. */
- goto finished_pausing;
- }
- }
-
-finished_pausing:
- /* Remove the pause prompt. */
- for(btCount = 0; btCount < nPromptLength; ++btCount)
- {
- od_disp_str(szBackspaceWithDelete);
- }
-
- return(bToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_control_get()
- *
- * Returns a pointer to the od_control structure containing information
- * and settings associated with the current session.
- *
- * Parameters: None.
- *
- * Return: A pointer to the od_control structure associated with this
- * session.
- */
-ODAPIDEF tODControl * ODCALL od_control_get(void)
-{
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_disp_str()");
-
- return(&od_control);
-}
diff --git a/src/odoors/ODCore.h b/src/odoors/ODCore.h
deleted file mode 100644
index 4b67bbda0800467a0637d8376dff90ec567db982..0000000000000000000000000000000000000000
--- a/src/odoors/ODCore.h
+++ /dev/null
@@ -1,109 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODCore.h
- *
- * Description: Global functions and variables provide by the odcore.c
- * module. These core facilities are used throughout OpenDoors,
- * and are required regardless of what OpenDoors features that
- * a given program uses.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 16, 1995 6.00 BP Created.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Dec 24, 1995 6.00 BP Added abtGreyBlock.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 01, 1996 6.00 BP Changed TEXT_SIZE to 49.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Sep 01, 1996 6.10 BP Update output area on od_set_per...().
- */
-
-#ifndef _INC_ODCORE
-#define _INC_ODCORE
-
-
-/* Include other header files that have definitions neede by this one. */
-#include "ODInQue.h"
-#include "ODCom.h"
-#include "ODPlat.h"
-#include "ODScrn.h"
-
-
-/* OpenDoors global initialized flag. */
-extern BOOL bODInitialized;
-
-/* Global serial port object handle. */
-extern tPortHandle hSerialPort;
-
-/* Global input queue object handle. */
-extern tODInQueueHandle hODInputQueue;
-
-/* Reentrancy control. */
-extern BOOL bIsCallbackActive;
-extern BOOL bShellChatActive;
-
-/* Global working space. */
-#define OD_GLOBAL_WORK_STRING_SIZE 257
-extern char szODWorkString[OD_GLOBAL_WORK_STRING_SIZE];
-
-/* Global instance of the text information structure for general use. */
-extern tODScrnTextInfo ODTextInfo;
-
-/* Logfile function hooks. */
-extern BOOL (*pfLogWrite)(INT);
-extern void (*pfLogClose)(INT);
-
-/* od_colour_config() support for od_printf(). */
-extern char chColorCheck;
-extern char *pchColorEndPos;
-
-/* Status line information. */
-extern BYTE btCurrentStatusLine;
-extern OD_PERSONALITY_CALLBACK *pfCurrentPersonality;
-extern char szDesiredPersonality[33];
-typedef BOOL ODCALL SET_PERSONALITY_FUNC(char *pszName);
-extern SET_PERSONALITY_FUNC *pfSetPersonality;
-
-/* Commonly used character sequences. */
-extern char abtBlackBlock[2];
-extern char abtGreyBlock[2];
-extern char szBackspaceWithDelete[4];
-
-/* Current output area on screen. */
-extern BYTE btOutputTop;
-extern BYTE btOutputBottom;
-
-
-/* Core functions used throughout OpenDoors. */
-void ODWaitDrain(tODMilliSec MaxWait);
-void ODStoreTextInfo(void);
-void ODRestoreTextInfo(void);
-void ODStringToName(char *pszToConvert);
-BOOL ODPagePrompt(BOOL *pbPausing);
-
-
-/* Number of built-in configuration file options. */
-#define TEXT_SIZE 49
-
-/* Number of user-defined info file options. */
-#define LINES_SIZE 25
-
-
-#endif /* _INC_ODCORE */
diff --git a/src/odoors/ODDrBox.c b/src/odoors/ODDrBox.c
deleted file mode 100644
index 5b3e225cd743aebd0dadbc60a3fdfc56e0603af1..0000000000000000000000000000000000000000
--- a/src/odoors/ODDrBox.c
+++ /dev/null
@@ -1,187 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODDrBox.c
- *
- * Description: Implements the od_draw_box() function.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODKrnl.h"
-
-
-/* ----------------------------------------------------------------------------
- * od_draw_box()
- *
- * Draws a box on the local and remote screens, using the box characters
- * specified in od_control.od_box_chars. Unlike the window functions, this
- * function does not store the original contents of the screen where the box
- * is drawn.
- *
- * Parameters: btLeft - Column number of the left side of the box.
- *
- * btTop - Row number of the top side of the box.
- *
- * btRight - Column number of hte right side of the box.
- *
- * btBottom - Row number of the bottom side of the box.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_draw_box(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom)
-{
- /* Number of current line being drawn. */
- BYTE btLine;
-
- /* X size of window. */
- BYTE btBetweenSize = (btRight - btLeft) - 1;
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_draw_box()");
-
- /* Ensure that OpenDoors has been initialized */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Setup od_box_chars appropriately */
- if(od_control.od_box_chars[BOX_BOTTOM] == 0)
- {
- od_control.od_box_chars[BOX_BOTTOM] = od_control.od_box_chars[BOX_TOP];
- }
- if(od_control.od_box_chars[BOX_RIGHT] == 0)
- {
- od_control.od_box_chars[BOX_RIGHT] = od_control.od_box_chars[BOX_LEFT];
- }
-
- /* Check that required display capabilities are supported. */
- if(!(od_control.user_ansi || od_control.user_avatar))
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Check that parameters are within valid range. */
- if(btLeft<1 || btTop<1 || btRight>80 || btBottom>25)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Move to top corner, if needed. */
- od_set_cursor(btTop, btLeft);
-
- /* Display left corner character. */
- od_putch(od_control.od_box_chars[BOX_UPPERLEFT]);
-
- /* Display top line. */
- od_repeat(od_control.od_box_chars[BOX_TOP], btBetweenSize);
-
- /* Display right corner character. */
- od_putch(od_control.od_box_chars[BOX_UPPERRIGHT]);
-
- /* If AVATAR display mode is available. */
- if(od_control.user_avatar)
- {
- /* Display first left vertical line. */
- od_set_cursor(btTop + 1, btLeft);
- od_putch(od_control.od_box_chars[BOX_LEFT]);
-
- /* Fill in the center of the window. */
- od_emulate(22);
- od_emulate(12);
- od_emulate((BYTE)od_control.od_cur_attrib);
- od_emulate((BYTE)((btBottom - btTop) - 1));
- od_emulate(btBetweenSize);
-
- /* Display first right vertical line. */
- od_set_cursor(btTop + 1, btRight);
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
-
- /* Display remaining vertical lines. */
- for(btLine = btTop + 2; btLine < btBottom; ++btLine)
- {
- /* Move to the start of the line. */
- od_set_cursor(btLine, btLeft);
-
- /* Display left line character. */
- od_putch(od_control.od_box_chars[BOX_LEFT]);
-
- /* Move to line start. */
- od_set_cursor(btLine, btRight);
-
- /* Display right line character. */
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
- }
- }
-
- /* If AVATAR mode is not available. */
- else
- {
- /* Loop through middle lines of window. */
- for(btLine = btTop + 1; btLine < btBottom; ++btLine)
- {
- /* Move to the start of the line. */
- od_set_cursor(btLine,btLeft);
-
- /* Display left line character. */
- od_putch(od_control.od_box_chars[BOX_LEFT]);
-
- /* Display the blank area. */
- od_repeat(' ', btBetweenSize);
-
- /* Display the right line character. */
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
- }
- }
-
- /* Move to bottom corner. */
- od_set_cursor(btBottom, btLeft);
-
- /* Display left corner character. */
- od_putch(od_control.od_box_chars[BOX_LOWERLEFT]);
-
- /* Display bottom line. */
- od_repeat(od_control.od_box_chars[BOX_BOTTOM], btBetweenSize);
-
- /* Display right corner character. */
- od_putch(od_control.od_box_chars[BOX_LOWERRIGHT]);
-
- /* Return with success. */
- OD_API_EXIT();
- return(TRUE);
-}
diff --git a/src/odoors/ODEdStr.c b/src/odoors/ODEdStr.c
deleted file mode 100644
index d9f0f9dbf7c88978a8806539a54d4c580b88fe5e..0000000000000000000000000000000000000000
--- a/src/odoors/ODEdStr.c
+++ /dev/null
@@ -1,1239 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODEdStr.c
- *
- * Description: Implementation of od_edit_str(). This is the advanced line
- * editing function which requires ANSI or AVATAR graphics.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Dec 31, 1994 6.00 BP Use ODTimerSleep() instead of loop.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 23, 1995 6.00 BP Added EDIT_FLAG_SHOW_SIZE.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 04, 1996 6.00 BP Use od_get_input().
- * Jan 12, 1996 6.00 BP Claim exclusive use of arrow keys.
- * Jan 31, 1996 6.00 BP Added timeout for od_get_input().
- * Feb 10, 1996 6.00 BP Fixed ...SHOW_SIZE /w ...PERMALITERAL.
- * Feb 13, 1996 6.00 BP Added od_get_input() flags parameter.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Apr 08, 1996 6.10 BP Make 'C' use word capitalization.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <ctype.h>
-#include <stddef.h>
-#include <string.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODKrnl.h"
-#include "ODStat.h"
-
-
-/* Current od_edit_str() state and settings. */
-static INT anCurrentFormatOffset[80];
-static BOOL abCurrentFormatLiteral[80];
-static char szCurrentOriginalString[81];
-static char *pszCurrentInput;
-static char *pszCurrentFormat;
-static unsigned char nCurrentStringLength;
-static char chCurrentBlank;
-
-
-/* Private helper functions used by od_edit_str(). */
-static BOOL ODEditIsCharValidForPos(char chEntered, INT nPosition);
-static char ODEditAsCharForPos(char chEntered, INT nPosition);
-static void ODEditDisplayPermaliteral(WORD nFlags);
-
-
-/* ----------------------------------------------------------------------------
- * od_edit_str()
- *
- * Provides more advanced editing capabilities than od_get_str(), requiring
- * ANSI, AVATAR or RIP modes.
- *
- * Parameters: pszInput - Pointer to string where inputted text is
- * stored.
- *
- * pszFormat - Pointer to format string, which specifies
- * the format of inputted text.
- *
- * nRow - The row number where the input field should
- * begin.
- *
- * nColumn - The column number where the input field
- * should begin.
- *
- * btNormalColour - Color of normal text.
- *
- * btHighlightColour - Color of highlighted text.
- *
- * chBlank - Character to display blanks with.
- *
- * nFlags - Specifies one or more flags, combined with
- * the bitwise-or operator.
- *
- * Return: One of a number of possible EDIT_RETURN_ values, which indicate
- * why the function returned.
- */
-ODAPIDEF WORD ODCALL od_edit_str(char *pszInput, char *pszFormat, INT nRow,
- INT nColumn, BYTE btNormalColour, BYTE btHighlightColour,
- char chBlank, WORD nFlags)
-{
- char chTemp;
- unsigned int nCount;
- unsigned char chCurrentValue;
- char *pchCurrent;
- unsigned int nCursorPos;
- INT nKeysPressed = 0;
- WORD wToReturn;
- BOOL bInsertMode = TRUE;
- char chAddAtEnd = '\0';
- BOOL bNormal = TRUE;
- tODInputEvent InputEvent;
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_edit_str()");
-
- /* Verify that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Store pointers to current input string and current format string. */
- pszCurrentInput=(char *)pszInput;
- pszCurrentFormat=(char *)pszFormat;
-
- /* Check that the parameters passed in are valid. */
- if(pszCurrentInput == NULL || pszCurrentFormat == NULL || nRow < 1
- || nColumn < 1)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(EDIT_RETURN_ERROR);
- }
-
- /* Initially, the maximum length of input string is 0. */
- nCurrentStringLength = 0;
-
- /* The type that is being examined. */
- chCurrentValue = 0;
-
- /* Counter of position in format string. */
- nCount = 0;
-
- /* Loop until we reach the end fo the format string. */
- for(pchCurrent = pszCurrentFormat; *pchCurrent;)
- {
- /* Get next character from format string. */
- chTemp = *pchCurrent++;
-
- /* If current character is not a literal value. */
- if(chCurrentValue == '\0')
- {
- /* If format string has " or ' characters, then this is the */
- /* beginning of a literal string. */
- if(chTemp == 39 || chTemp == 34)
- {
- chCurrentValue = chTemp;
- }
-
- /* If this is not a literal character, and not a space character... */
- else if(chTemp != 32)
- {
- /* Check that we haven't exceeded the maximum allowable string */
- /* length. */
- if(nCurrentStringLength >= 80)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(EDIT_RETURN_ERROR);
- }
-
- /* Record format character's position. */
- anCurrentFormatOffset[nCurrentStringLength] = nCount;
-
- /* Record that this character is not a literal. */
- abCurrentFormatLiteral[nCurrentStringLength] = FALSE;
-
- /* Increment length of input string. */
- ++nCurrentStringLength;
- }
- }
-
- /* If this is a literal character. */
- else
- {
- /* Check for end of literal string. */
- if(chTemp == chCurrentValue)
- {
- /* If found, stop literal string processing */
- chCurrentValue = '\0';
- }
- else
- {
- /* Check that we haven't exceeded the maximum allowable string */
- /* length. */
- if(nCurrentStringLength >= 80)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(EDIT_RETURN_ERROR);
- }
-
- /* Record character's position. */
- anCurrentFormatOffset[nCurrentStringLength] = nCount;
-
- /* Record that character IS a literal value. */
- abCurrentFormatLiteral[nCurrentStringLength] = TRUE;
-
- /* Increment length of input string. */
- ++nCurrentStringLength;
- }
- }
-
- /* Increment format string position. */
- ++nCount;
- }
-
- /* Check that there is at least one character permitted in the input */
- /* string. If not, return with a parameter error. */
- if(nCurrentStringLength==0)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(EDIT_RETURN_ERROR);
- }
-
- /* If editing an existing string. */
- if(nFlags & EDIT_FLAG_EDIT_STRING)
- {
- /* Check for valid existing input string. */
- if(strlen(pszCurrentInput) > nCurrentStringLength)
- {
- pszCurrentInput[nCurrentStringLength] = '\0';
- }
-
- /* Start with cursor at the end of the string. */
- nCursorPos = strlen(pszCurrentInput);
- }
-
- /* If we are not editing an existing string. */
- else
- {
- /* Blank-out current string contents. */
- pszCurrentInput[0] = '\0';
-
- /* Set cursor to beginning of string. */
- nCursorPos = 0;
- }
-
- /* Store original string, in case user cancels. */
- strcpy(szCurrentOriginalString,pszCurrentInput);
-
- /* Set appropriate text color. */
- od_set_attrib(btHighlightColour);
-
- /* Determine appropriate blank character */
- chCurrentBlank = (nFlags & EDIT_FLAG_PASSWORD_MODE) ? ' ' : chBlank;
-
- /* Turn off insert mode if the strict input or permaliteral flags were */
- /* specified. */
- if((nFlags & EDIT_FLAG_STRICT_INPUT) || (nFlags & EDIT_FLAG_PERMALITERAL))
- {
- bInsertMode = FALSE;
- }
-
- /* If the no-initial-redraw flag is not set, then do initial redraw. */
- if(!(nFlags & EDIT_FLAG_NO_REDRAW))
- {
- /* Set to redraw position. */
- od_set_cursor(nRow, nColumn);
-
- if(nFlags & EDIT_FLAG_PASSWORD_MODE)
- {
- /* If we are in password mode, then just draw password blanks. */
- od_repeat(chBlank, (BYTE)strlen(pszCurrentInput));
- }
- else
- {
- /* Otherwise, display the actual string. */
- od_disp_str(pszCurrentInput);
- }
-
- if(nFlags & EDIT_FLAG_PERMALITERAL)
- {
- /* If we are in permaliteral mode, then fill the remaining edit */
- /* field with the literal characters. */
- ODEditDisplayPermaliteral(nFlags);
- }
- else
- {
- /* Otherwise, fill the remaining edit field with the blank */
- /* character. */
- BYTE btRemaining
- = (BYTE)(nCurrentStringLength - strlen(pszCurrentInput));
- if(!(nFlags & EDIT_FLAG_SHOW_SIZE)) ++btRemaining;
- od_repeat(chCurrentBlank, btRemaining);
- }
- }
-
- /* Claim exclusive use of arrow keys. */
- ODStatStartArrowUse();
-
- /* Set the cursor to appropriate position. */
- od_set_cursor(nRow, nColumn + nCursorPos);
-
- /* Normally, we start the input loop at the keep_going tag. */
- if(bNormal) goto keep_going;
-
- for(;;)
- {
- /* If auto-accept mode has been specified ... */
- if(nFlags & EDIT_FLAG_AUTO_ENTER)
- {
- /* ... then check whether we have reached the end of the string. */
- if(strlen(pszCurrentInput) == nCurrentStringLength)
- {
- /* Indicate that input has been accepted, rather than cancelled. */
- wToReturn = EDIT_RETURN_ACCEPT;
-
- /* Return the current string to the caller, if it is valid. */
- goto try_to_accept;
- }
- }
-
-keep_going:
- /* Check whether we have reached a literal character in permaliteral */
- /* mode. If so, we will move past the permanent literal characters */
- /* automatically. */
- if((nFlags & EDIT_FLAG_PERMALITERAL)
- && (nCursorPos < nCurrentStringLength))
- {
- if(abCurrentFormatLiteral[nCursorPos])
- {
- if(nCursorPos < strlen(pszCurrentInput))
- {
- goto pressed_right_arrow;
- }
- chTemp = pszCurrentFormat[anCurrentFormatOffset[nCursorPos]];
- ++nKeysPressed;
- goto try_this_character;
- }
- }
-
-get_another_key:
- /* Block, waiting for the next key pressed by the user. */
-
- od_get_input(&InputEvent, OD_NO_TIMEOUT, GETIN_NORMAL);
-
- /* Increment total number of keystrokes. */
- ++nKeysPressed;
-
- if(InputEvent.EventType == EVENT_EXTENDED_KEY)
- {
- switch(InputEvent.chKeyPress)
- {
- case OD_KEY_UP:
- case OD_KEY_SHIFTTAB:
- if(nFlags & EDIT_FLAG_FIELD_MODE)
- {
- wToReturn = EDIT_RETURN_PREVIOUS;
- goto try_to_accept;
- }
- break;
-
- case OD_KEY_DOWN:
-pressed_down_arrow:
- if(nFlags & EDIT_FLAG_FIELD_MODE)
- {
- wToReturn = EDIT_RETURN_NEXT;
- goto try_to_accept;
- }
- break;
-
- case OD_KEY_RIGHT:
-pressed_right_arrow:
- /* If we are not at the end of the string. */
- if(nCursorPos < strlen(pszCurrentInput))
- {
- /* Move input position right. */
- nCursorPos++;
-
- /* Move the cursor on screen. */
- od_set_cursor(nRow, nColumn + nCursorPos);
- }
- if(chAddAtEnd)
- {
- chAddAtEnd = 0;
- goto add_another_key;
- }
- break;
-
- case OD_KEY_LEFT:
-pressed_left_arrow:
- /* If we are not at the beginning of the string. */
- if(nCursorPos > 0)
- {
- /* Move input position left. */
- nCursorPos--;
-
- /* Move cursor on screen. */
- od_set_cursor(nRow, nColumn + nCursorPos);
- }
-
- /* If we are moving past a permanent literal character, */
- /* then continue moving further left, if possible. */
- if((nFlags & EDIT_FLAG_PERMALITERAL)
- && abCurrentFormatLiteral[nCursorPos] && nCursorPos > 0)
- {
- goto pressed_left_arrow;
- }
- break;
-
- case OD_KEY_HOME:
- /* If we are not at the beginning of the string. */
- if(nCursorPos != 0)
- {
- /* Move input position to the beginning of the string. */
- nCursorPos = 0;
-
- /* Move the cursor on the screen. */
- od_set_cursor(nRow, nColumn);
- }
- break;
-
- case OD_KEY_END:
- /* If we are not at the end of the string .*/
- if(nCursorPos != strlen(pszCurrentInput))
- {
- /* Set the input position to the end of the string. */
- nCursorPos=strlen(pszCurrentInput);
-
- /* Move cursor on screen. */
- od_set_cursor(nRow,nColumn+nCursorPos);
- }
- break;
-
- case OD_KEY_DELETE:
-pressed_delete:
- /* Check whether delete key is permitted at this time. */
- if(!(nFlags & EDIT_FLAG_STRICT_INPUT)
- && nCursorPos < strlen(pszCurrentInput)
- && !(nFlags & EDIT_FLAG_PERMALITERAL))
- {
- /* Move remaining line, if any, to the left */
- chCurrentValue = strlen(pszCurrentInput) - 1;
- for(nCount = nCursorPos; nCount < chCurrentValue; ++nCount)
- {
- od_putch(
- pszCurrentInput[nCount] = pszCurrentInput[nCount + 1]);
- }
-
- /* Erase the last character. */
- pszCurrentInput[chCurrentValue] = '\0';
-
- /* Blank out last character. */
- od_putch(chCurrentBlank);
-
- /* Move the cursor on the screen. */
- od_set_cursor(nRow, nColumn + nCursorPos);
-
- /* Update changes to string. */
- goto check_cursor_char;
- }
- break;
-
- case OD_KEY_INSERT:
- if(!(nFlags & EDIT_FLAG_STRICT_INPUT)
- && !(nFlags & EDIT_FLAG_PERMALITERAL))
- {
- /* Toggle insert setting. */
- bInsertMode = !bInsertMode;
- }
- break;
-
- }
- }
- else if(InputEvent.EventType == EVENT_CHARACTER)
- {
- chTemp = InputEvent.chKeyPress;
-try_this_character:
-
- if(chTemp == 27)
- {
- /* If cancel key is allowed ... */
- if(nFlags & EDIT_FLAG_ALLOW_CANCEL)
- {
- /* Reset the input string to the original contents. */
- strcpy(pszCurrentInput, szCurrentOriginalString);
-
- /* Indicate that return reason was due to user cancelling. */
- wToReturn = EDIT_RETURN_CANCEL;
-
- /* Return after redrawing the original string in the input */
- /* field. */
- goto exit_and_redraw;
- }
- }
-
-
- /* If user pressed [Enter] or [Ctrl]-[Z]. */
- else if(chTemp == 13 || chTemp == 26)
- {
- /* User has accepted input. */
- wToReturn = EDIT_RETURN_ACCEPT;
-
- /* Return if input string is valid. */
- goto try_to_accept;
- }
-
- /* If the backspace key has been pressed. */
- else if(chTemp == 8)
- {
- backspace_again:
- /* If we are not already at the beginning of the string. */
- if(nCursorPos > 0)
- {
- if(nFlags & EDIT_FLAG_PERMALITERAL)
- {
- for(nCount = 0;nCount < nCursorPos; ++nCount)
- {
- if(!abCurrentFormatLiteral[nCount]) goto continue_deletion;
- }
- goto get_another_key;
- }
-
- continue_deletion:
- /* If we are at the end of the string. */
- if(nCursorPos == strlen(pszCurrentInput))
- {
- /* Erase last char in string. */
- pszCurrentInput[--nCursorPos] = '\0';
-
- if((nFlags & EDIT_FLAG_PERMALITERAL)
- && abCurrentFormatLiteral[nCursorPos])
- {
- goto backspace_again;
- }
- else
- {
- /* Move to new cursor pos. */
- od_set_cursor(nRow,nColumn+nCursorPos);
-
- /* Blank old character. */
- od_putch(chCurrentBlank);
-
- /* Move again to cursor pos. */
- od_set_cursor(nRow,nColumn+nCursorPos);
- }
- }
-
- /* If we are in the middle of the string and we are not in */
- /* string input mode. */
- else if(!(nFlags & EDIT_FLAG_STRICT_INPUT)
- && !(nFlags & EDIT_FLAG_PERMALITERAL))
- {
- /* Move cursor left. */
- --nCursorPos;
-
- /* Move cursor on screen. */
- od_set_cursor(nRow, nColumn + nCursorPos);
-
- /* Goto standard delete handler. */
- goto pressed_delete;
- }
- }
- }
-
- /* If this is a next field request. */
- else if(chTemp == 9)
- {
- /* Goto down arrow handler. */
- goto pressed_down_arrow;
- }
-
- /* If Control-Y. */
- else if(chTemp == 25)
- {
- /* Erase entire contents of line. */
- goto kill_whole_line;
- }
-
- else
- {
- /* If this is the first key pressed, and we are in autodelete mode. */
- if(nKeysPressed == 1 && (nFlags & EDIT_FLAG_AUTO_DELETE))
- {
- kill_whole_line:
- /* If string is not empty. */
- if(strlen(pszCurrentInput) != 0)
- {
- /* Move to beginning of string. */
- od_set_cursor(nRow,nColumn);
-
- /* Blank out the entire string contents. */
- od_repeat(chCurrentBlank, (BYTE)strlen(pszCurrentInput));
- }
-
- /* Move to new cursor position. */
- od_set_cursor(nRow,nColumn);
-
- /* Update insert position. */
- nCursorPos = 0;
-
- /* Blank out the current string contents. */
- pszCurrentInput[0] = '\0';
- }
-
- add_another_key:
- if(!ODEditIsCharValidForPos(chTemp,nCursorPos))
- {
- /* If character is not a valid input char. */
- if(abCurrentFormatLiteral[nCursorPos])
- {
- if(nCursorPos < strlen(pszCurrentInput))
- {
- if(pszCurrentInput[nCursorPos] ==
- pszCurrentFormat[anCurrentFormatOffset[nCursorPos]])
- {
- chAddAtEnd = chTemp;
- goto pressed_right_arrow;
- }
- }
- chAddAtEnd = chTemp;
- chTemp = pszCurrentFormat[anCurrentFormatOffset[nCursorPos]];
- }
- else
- {
- continue;
- }
- }
-
- /* Convert character to correct value, if applicable. */
- chTemp = ODEditAsCharForPos(chTemp, nCursorPos);
-
- /* If we are at end of string. */
- if(nCursorPos >= strlen(pszCurrentInput))
- {
- /* Reset original cursor position */
- nCursorPos = strlen(pszCurrentInput);
-
- /* If there is room to add a char. */
- if(nCursorPos < nCurrentStringLength)
- {
- /* If password mode */
- if(nFlags & EDIT_FLAG_PASSWORD_MODE)
- {
- /* Display the password character. */
- od_putch(chBlank);
- }
- /* If not in password mode. */
- else
- {
- /* Display the character. */
- od_putch(chTemp);
- }
-
- /* Store the character. */
- pszCurrentInput[nCursorPos] = chTemp;
-
- /* Add a new string terminator. */
- pszCurrentInput[++nCursorPos] = '\0';
- }
- }
-
- /* If in insert mode, but not at end of string. */
- else if(bInsertMode)
- {
- /* If room in string. */
- if(strlen(pszCurrentInput) < nCurrentStringLength)
- {
- /* If in password mode. */
- if(nFlags & EDIT_FLAG_PASSWORD_MODE)
- {
- /* Move to end. */
- od_set_cursor(nRow,nColumn+strlen(pszCurrentInput));
-
- /* Add another password character. */
- od_putch(chBlank);
- }
-
- /* If not in password mode. */
- else
- {
- /* Display the new character. */
- od_putch(chTemp);
-
- /* Loop through rest of string. */
- for(nCount = nCursorPos; nCount < strlen(pszCurrentInput);
- ++nCount)
- {
- /* Display the next remaining character. */
- od_putch(pszCurrentInput[nCount]);
- }
- }
-
- pszCurrentInput[(strlen(pszCurrentInput) + 1)] = '\0';
-
- /* Sift remaining characters forward. */
- for(nCount = strlen(pszCurrentInput); nCount > nCursorPos;
- --nCount)
- {
- pszCurrentInput[nCount] = pszCurrentInput[nCount-1];
- }
-
- /* Add new char in space. */
- pszCurrentInput[nCursorPos++] = chTemp;
-
- /* Move to new cursor position. */
- od_set_cursor(nRow, nColumn + nCursorPos);
- }
- else
- {
- goto get_another_key;
- }
- }
-
- /* If we are in overwrite mode, but not at end of string. */
- else
- {
- /* If password mode. */
- if(nFlags & EDIT_FLAG_PASSWORD_MODE)
- {
- /* Display the password character. */
- od_putch(chBlank);
- }
- /* If not in password mode. */
- else
- {
- /* Display the character. */
- od_putch(chTemp);
- }
-
- /* Add character to string. */
- pszCurrentInput[nCursorPos++] = chTemp;
- }
-
- /* If not at end of possible string. */
- if(nCursorPos < nCurrentStringLength)
- {
- /* If the next character is literal constant. */
- if(abCurrentFormatLiteral[nCursorPos])
- {
- chTemp = pszCurrentFormat[anCurrentFormatOffset[nCursorPos]];
- goto add_another_key;
- }
- }
-
- if(chAddAtEnd)
- {
- chTemp = chAddAtEnd;
- chAddAtEnd = 0;
- goto add_another_key;
- }
-
-
- check_cursor_char:
- /* If there is a character under cursor. */
- if(nCursorPos < strlen(pszCurrentInput))
- {
- /* If character corresponds to the format string. */
- if(ODEditIsCharValidForPos(pszCurrentInput[nCursorPos],
- nCursorPos))
- {
- /* Determine correct character for this position. */
- chTemp = ODEditAsCharForPos(pszCurrentInput[nCursorPos],
- nCursorPos);
-
- /* If actual character is not correct. */
- if(chTemp != pszCurrentInput[nCursorPos])
- {
- /* Change character to correct value. */
- pszCurrentInput[nCursorPos] = chTemp;
-
- /* If password mode. */
- if(nFlags & EDIT_FLAG_PASSWORD_MODE)
- {
- /* Display the password character. */
- od_putch(chBlank);
- }
-
- /* If not in password mode. */
- else
- {
- /* Display the character. */
- od_putch(chTemp);
- }
-
- /* Reset cursor position. */
- od_set_cursor(nRow, nColumn + nCursorPos);
- }
- }
- }
- }
- }
- }
-
- /* Accept string if it is valid. */
-try_to_accept:
- /* If string must be filled. */
- if(nFlags & EDIT_FLAG_FILL_STRING)
- {
- /* If string is not filled, don't return. */
- if(strlen(pszCurrentInput) != nCurrentStringLength) goto keep_going;
- }
-
- /* Loop through string .... */
- for(nCount = 0; nCount < strlen(pszCurrentInput); ++nCount)
- {
- /* ... testing each character for validity. */
- if(!ODEditIsCharValidForPos(pszCurrentInput[nCount], nCount))
- goto keep_going;
- }
-
- /* Initially, assume that the string has not been changed. */
- chCurrentValue = FALSE;
-
- /* Loop through the string. */
- for(nCount = 0; nCount < strlen(pszCurrentInput); ++nCount)
- {
- /* Find correct value for each character. */
- chTemp = ODEditAsCharForPos(pszCurrentInput[nCount], nCount);
-
- /* If character is not correct. */
- if(chTemp != pszCurrentInput[nCount])
- {
- /* Change char to correct value */
- pszCurrentInput[nCount] = chTemp;
-
- /* Remember that string has been changed. */
- chCurrentValue = TRUE;
- }
- }
-
- /* If permaliteral mode. */
- if(nFlags & EDIT_FLAG_LEAVE_BLANK)
- {
- /* Count # of literal characters. */
- nCount = 0;
- while(nCount<strlen(pszCurrentInput))
- {
- if(abCurrentFormatLiteral[nCount])
- {
- ++nCount;
- }
- else
- {
- break;
- }
- }
-
- /* If only literals in string. */
- if(strlen(pszCurrentInput) == nCount && nCount > 0)
- {
- /* Then they shouldn't be here. */
- pszCurrentInput[0] = '\0';
- goto exit_and_redraw;
- }
- }
-
- /* Always redraw if string was changed. */
- if(chCurrentValue) goto exit_and_redraw;
-
- /* If no-redraw flag not set. */
- if(!(nFlags & EDIT_FLAG_NO_REDRAW))
- {
-exit_and_redraw:
- /* Set appropriate text colour. */
- od_set_attrib(btNormalColour);
-
- /* Set to redraw position. */
- od_set_cursor(nRow,nColumn);
-
- /* If password mode. */
- if(nFlags & EDIT_FLAG_PASSWORD_MODE)
- {
- /* Display blanked-out string. */
- od_repeat(chBlank, (BYTE)strlen(pszCurrentInput));
- }
- else
- {
- /* Display actual string. */
- od_disp_str(pszCurrentInput);
- }
-
- /* If we should keep the background. */
- if(nFlags & EDIT_FLAG_KEEP_BLANK)
- {
- /* Then redraw background. */
- if(nFlags & EDIT_FLAG_PERMALITERAL)
- {
- ODEditDisplayPermaliteral(nFlags);
- }
- else
- {
- od_repeat(chCurrentBlank,
- (BYTE)(nCurrentStringLength - strlen(pszCurrentInput) + 1));
- }
- }
- /* If we should erase the background ... */
- else
- {
- /* ... then do it. */
- od_repeat(' ',
- (BYTE)(nCurrentStringLength - strlen(pszCurrentInput) + 1));
- }
- }
-
- /* Release exclusive use of arrow keys. */
- ODStatEndArrowUse();
-
- /* Return with appropriate return value. */
- OD_API_EXIT();
- return(wToReturn);
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * ODEditIsCharValidForPos() *** PRIVATE FUNCTION ***
- *
- * Determines whether or not the entered character can be accepted as a valid
- * character (after any possible conversion by ODEditAsCharForPos() is applied)
- * for the specified position in the string.
- *
- * Parameters: chEntered - The character entered by the user.
- *
- * nPosition - The position in the string where this character
- * would be inserted.
- *
- * Return: TRUE if this character should be accepted, FALSE if not.
- */
-static BOOL ODEditIsCharValidForPos(char chEntered, INT nPosition)
-{
- /* If this character is a literal. */
- if(abCurrentFormatLiteral[nPosition])
- {
- /* Check required literal character. */
- if(chEntered != pszCurrentFormat[anCurrentFormatOffset[nPosition]])
- {
- /* If this is not the correct literal character, then do not */
- /* permit it to be entered in this position. */
- return(FALSE);
- }
- return(TRUE);
- }
-
- /* If this position has a corresponding format control character, */
- /* then check that control character. The execution path will */
- /* continue out of this switch statement (rather than returning */
- /* to the calling function) if and only if the entered character */
- /* is valid for the format character specified. */
- switch(pszCurrentFormat[anCurrentFormatOffset[nPosition]])
- {
- /* Only numerical characters are to be permitted. */
- case '#':
- if(chEntered < '0' || chEntered > '9') return(FALSE);
- break;
-
- /* Only numerical and space characters are to be permitted. */
- case '%':
- if((chEntered < '0' || chEntered > '9') && chEntered != ' ')
- {
- return(FALSE);
- }
- break;
-
- /* Only floating point number characters are to be permitted. */
- case '9':
- if(chEntered >= '0' && chEntered <= '9') break;
- if(chEntered == '.' || chEntered == '+' || chEntered == '-') break;
- return(FALSE);
-
- /* Only "printable" characters are to be permitted. */
- case '*':
- if(chEntered < 32) return(FALSE);
- break;
-
- /* City name characters are to be permitted. */
- case 'C':
- case 'c':
- if(chEntered >= 'A' && chEntered <= 'Z') break;
- if(chEntered >= 'a' && chEntered <= 'z') break;
- if(chEntered == ' ' || chEntered == ',' || chEntered == '.') break;
- if(chEntered == '*' || chEntered == '?') break;
- return(FALSE);
-
- /* If only alphabetic characters are to be permitted. */
- case 'A':
- case 'a':
- case 'L':
- case 'l':
- case 'M':
- case 'm':
- case 'U':
- case 'u':
- if(chEntered>='A' && chEntered<='Z') break;
- if(chEntered>='a' && chEntered<='z') break;
- if(chEntered==' ') break;
- return(FALSE);
-
- /* If only date characters are to be permitted. */
- case 'D':
- case 'd':
- if(chEntered>='0' && chEntered<='9') break;
- if(chEntered=='-' || chEntered=='/') break;
- return(FALSE);
-
- /* If only MS-DOS filename characters are to be permitted. */
- case 'F':
- case 'f':
- if(chEntered >= 'A' && chEntered <= 'Z') break;
- if(chEntered >= '0' && chEntered <= '9') break;
- if(chEntered >= 'a' && chEntered <= 'z') break;
- switch(chEntered)
- {
- /* Filename separators. */
- case ':':
- case '.':
- case DIRSEP:
-
- /* Wildcard characters. */
- case '?':
- case '*':
-
- /* Other valid symbols in filenames */
- case '#':
- case '$':
- case '&':
- case '\'':
- case '(':
- case '>':
- case '-':
- case '@':
- case '_':
- case '!':
- case '{':
- case '}':
- case '~':
- return(TRUE);
- }
-
- return(FALSE);
-
- /* If only hexidecimal characters are to be permitted. */
- case 'H':
- case 'h':
- if(chEntered>='0' && chEntered<='9') break;
- if(chEntered>='A' && chEntered<='F') break;
- if(chEntered>='a' && chEntered<='f') break;
- return(FALSE);
-
- /* If only telephone number characters are to be permitted. */
- case 'T':
- case 't':
- if(chEntered >= '0' && chEntered <= '9') break;
- if(chEntered == '-' || chEntered == '(' || chEntered == ')'
- || chEntered == ' ' || chEntered == '+')
- {
- break;
- }
- return(FALSE);
-
- /* If filenames with wildcards are to be permitted. */
- case 'W':
- case 'w':
- if(chEntered >= 'A' && chEntered <= 'Z') break;
- if(chEntered >= 'a' && chEntered <= 'z') break;
- if(chEntered == ':' || chEntered == '.' || chEntered == DIRSEP
- || chEntered == '*' || chEntered == '?')
- {
- break;
- }
- return(FALSE);
-
- /* If alpha-numeric characters are to be permitted. */
- case 'X':
- case 'x':
- if(chEntered >= 'A' && chEntered <= 'Z') break;
- if(chEntered >= 'a' && chEntered <= 'z') break;
- if(chEntered >= '0' && chEntered <= '9') break;
- if(chEntered == ' ') break;
- return(FALSE);
-
- /* If this is a Yes/No field. */
- case 'Y':
- case 'y':
- if(chEntered == 'y' || chEntered == 'n' || chEntered == 'Y'
- || chEntered == 'N')
- {
- break;
- }
- return(FALSE);
- }
-
- /* If execution gets to this point, then the character has been approved. */
- return(TRUE);
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * ODEditAsCharForPos() *** PRIVATE FUNCTION ***
- *
- * Converts the character entered by the user to a valid character for this
- * position in the string. For example, for fields that are set to all
- * upper case, this function converts the entered characte to its upper case
- * equivalent.
- *
- * Parameters: chEntered - Character that was entered by the user.
- *
- * nPosition - Position in the string where the character is to
- * be entered.
- *
- * Return: The actual character to add to the input string at this
- * position.
- */
-static char ODEditAsCharForPos(char chEntered, INT nPosition)
-{
- /* If this character is a literal. */
- if(abCurrentFormatLiteral[nPosition])
- {
- /* Return the only valid char for this position. */
- return(pszCurrentFormat[anCurrentFormatOffset[nPosition]]);
- }
-
- /* If this position has a corresponding format control character, */
- /* then check that control character. */
- switch(pszCurrentFormat[anCurrentFormatOffset[nPosition]])
- {
- /* If Yes/No characters are required. */
- case 'Y':
- case 'y':
- return(toupper(chEntered));
-
- /* If filename characters are required. */
- case 'F':
- case 'f':
- return(toupper(chEntered));
-
- /* If lower case characters are required. */
- case 'L':
- case 'l':
- return(tolower(chEntered));
-
- /* If upper case characters are required. */
- case 'U':
- case 'u':
- return(toupper(chEntered));
-
- /* If automatic capitalization is required. */
- case 'M':
- case 'm':
- case 'C':
- case 'c':
- /* First character is always upper case. */
- if(nPosition == 0) return(toupper(chEntered));
-
- /* Check for other base cases. */
- if(abCurrentFormatLiteral[nPosition-1]) return(toupper(chEntered));
- if(toupper(pszCurrentFormat[anCurrentFormatOffset[nPosition]]) != 'M'
- && toupper(pszCurrentFormat[anCurrentFormatOffset[nPosition]])
- != 'C')
- {
- return(toupper(chEntered));
- }
-
- /* If previous character is a word delimiter, then this character */
- /* should be uppper case. */
- if(pszCurrentInput[nPosition-1] == ' '
- || pszCurrentInput[nPosition-1] == '.'
- || pszCurrentInput[nPosition-1] == ','
- || pszCurrentInput[nPosition-1] == '-')
- {
- return(toupper(chEntered)); /* Otherwise, this should be lower */
- }
-
- /* Otherwise, this character should be lower-case. */
- return(tolower(chEntered));
- }
-
- return(chEntered);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditDisplayPermaliteral() *** PRIVATE FUNCTION ***
- *
- * Displays permaliterals (characters specified in the format string that
- * should be returned in the input string, but which the user may never
- * change).
- *
- * Parameters: nFlags - Flags parameter that was passed into od_edit_str().
- *
- * Return: void
- */
-static void ODEditDisplayPermaliteral(WORD nFlags)
-{
- INT nCount;
- BYTE btRepeat = 0;
-
- for(nCount = strlen(pszCurrentInput); nCount <= nCurrentStringLength;
- ++nCount)
- {
- if(nCount != nCurrentStringLength)
- {
- if(abCurrentFormatLiteral[nCount])
- {
- if(btRepeat > 0)
- {
- od_repeat(chCurrentBlank, btRepeat);
- btRepeat = 0;
- }
- od_putch(pszCurrentFormat[anCurrentFormatOffset[nCount]]);
- }
- else
- {
- ++btRepeat;
- }
- }
- else
- {
- if(!(nFlags & EDIT_FLAG_SHOW_SIZE))
- {
- ++btRepeat;
- }
- }
- }
-
- if(btRepeat > 0) od_repeat(chCurrentBlank, btRepeat);
-}
diff --git a/src/odoors/ODEdit.c b/src/odoors/ODEdit.c
deleted file mode 100644
index dcd5b02df23364846eba78b21b0c37b0dc09ae91..0000000000000000000000000000000000000000
--- a/src/odoors/ODEdit.c
+++ /dev/null
@@ -1,2645 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODEdit.c
- *
- * Description: Implementation of the OpenDoors multi-line editor, which
- * allows the user to edit strings which may span many lines.
- * Provides standard text editor features, such as word wrap.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Dec 07, 1995 6.00 BP Created.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 04, 1996 6.00 BP Use od_get_input().
- * Jan 12, 1996 6.00 BP Claim exclusive use of arrow keys.
- * Jan 31, 1996 6.00 BP Added timeout for od_get_input().
- * Feb 08, 1996 6.00 BP Finished implementation details.
- * Feb 13, 1996 6.00 BP Added od_get_input() flags parameter.
- * Feb 16, 1996 6.00 BP New trans. size estimation heuristics.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 24, 1996 6.00 BP Fixed garbage on [Enter] after w-wrap.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 13, 1996 6.10 BP Restore cursor position after menu.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Jun 08, 1996 6.10 BP Added cast in call to alloc function.
- * Oct 19, 2001 6.20 RS Eliminated MSVC 6.0 warning.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <stdlib.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODTypes.h"
-#include "ODGen.h"
-#include "ODCore.h"
-#include "ODKrnl.h"
-#include "ODStat.h"
-#include "ODCom.h"
-#include "ODScrn.h"
-
-
-/* ========================================================================= */
-/* Misc. definitions. */
-/* ========================================================================= */
-
-/* Macros used by this module. */
-#define IS_EOL_CHAR(ch) ((ch) == '\n' || (ch) == '\r' || (ch) == '\0')
-
-/* Configurable constants. */
-#define LINE_ARRAY_GROW_SIZE 20
-#define BUFFER_GROW_SIZE 4096
-#define ANSI_SCROLL_DISTANCE 7
-#define PRE_DRAIN_TIME 10000
-#define MAX_TAB_STOP_SIZE 8
-#define DEFAULT_TAB_STOP_SIZE 8
-#define DEFAULT_LINE_BREAK "\n"
-
-/* Other manifest constants. */
-#define REDRAW_NO_BOUNDARY 0xffff
-
-/* Default editor options. */
-static tODEditOptions ODEditOptionsDefault =
-{
- 1, 1, 80, 23,
- FORMAT_PARAGRAPH_BREAKS,
- NULL,
- NULL,
- EFLAG_NORMAL,
-};
-
-
-
-/* ========================================================================= */
-/* Multiline editor instance structure. */
-/* ========================================================================= */
-
-typedef struct
-{
- char *pszEditBuffer;
- UINT unBufferSize;
- tODEditOptions *pUserOptions;
- UINT unCurrentLine;
- UINT unCurrentColumn;
- UINT unLineScrolledToTop;
- UINT unAreaWidth;
- UINT unAreaHeight;
- char **papchStartOfLine;
- UINT unLineArraySize;
- UINT unLinesInBuffer;
- BOOL bInsertMode;
- UINT unTabStopSize;
- UINT unScrollDistance;
- char *pszLineBreak;
- char *pszParagraphBreak;
- BOOL bWordWrapLongLines;
- void *pRememberBuffer;
-} tEditInstance;
-
-
-
-/* ========================================================================= */
-/* Editor function prototypes. */
-/* ========================================================================= */
-
-/* High level implementation. */
-static BOOL ODEditSetupInstance(tEditInstance *pEditInstance,
- char *pszBufferToEdit, UINT unBufferSize, tODEditOptions *pUserOptions);
-static void ODEditRedrawArea(tEditInstance *pEditInstance);
-static void ODEditDrawAreaLine(tEditInstance *pEditInstance,
- UINT unAreaLineToDraw);
-static INT ODEditMainLoop(tEditInstance *pEditInstance);
-static void ODEditGotoPreviousLine(tEditInstance *pEditInstance);
-static void ODEditGotoNextLine(tEditInstance *pEditInstance);
-static BOOL ODEditScrollArea(tEditInstance *pEditInstance, INT nDistance);
-static BOOL ODEditRecommendFullRedraw(tEditInstance *pEditInstance,
- UINT unEstPartialRedrawBytes, BOOL bDefault);
-static UINT ODEditEstDrawBytes(tEditInstance *pEditInstance,
- UINT unStartRedrawLine, UINT unStartRedrawColumn, UINT unFinishRedrawLine,
- UINT unFinishRedrawColumn);
-static UINT ODEditGetCurrentLineInArea(tEditInstance *pEditInstance);
-static void ODEditUpdateCursorPos(tEditInstance *pEditInstance);
-static void ODEditUpdateCursorIfMoved(tEditInstance *pEditInstance);
-static tODResult ODEditEnterText(tEditInstance *pEditInstance,
- char *pszEntered, BOOL bInsertMode);
-static void ODEditSetBreakSequence(tEditInstance *pEditInstance,
- char chFirstEOLChar, char chSecondEOLChar);
-static BOOL ODEditCursorLeft(tEditInstance *pEditInstance);
-static void ODEditDeleteCurrentChar(tEditInstance *pEditInstance);
-static void ODEditDeleteCurrentLine(tEditInstance *pEditInstance);
-static BOOL ODEditPastEndOfCurLine(tEditInstance *pEditInstance);
-static size_t ODEditRememberBufferSize(tEditInstance *pEditInstance);
-static void ODEditRememberArea(tEditInstance *pEditInstance,
- void *pRememberedArea);
-static void ODEditRedrawChanged(tEditInstance *pEditInstance,
- void *pRememberedArea, UINT unUpperBoundary, UINT unLowerBoundary);
-static BOOL ODEditDetermineChanged(tEditInstance *pEditInstance,
- void *pRememberedArea, UINT unUpperBoundary, UINT unLowerBoundary,
- UINT *punStartRedrawLine, UINT *punStartRedrawColumn,
- UINT *punFinishRedrawLine, UINT *punFinishRedrawColumn);
-static void ODEditRedrawSubArea(tEditInstance *pEditInstance,
- UINT unStartRedrawLine, UINT unStartRedrawColumn, UINT unFinishRedrawLine,
- UINT unFinishRedrawColumn);
-static void ODEditGetActualCurPos(tEditInstance *pEditInstance,
- UINT *punRow, UINT *punColumn);
-static BOOL ODEditIsEOLForMode(tEditInstance *pEditInstance, char chToTest);
-
-/* Low level buffer manipulation functions. */
-static BOOL ODEditBufferFormatAndIndex(tEditInstance *pEditInstance);
-static UINT ODEditBufferGetLineLength(tEditInstance *pEditInstance,
- UINT unBufferLine);
-static UINT ODEditBufferGetTotalLines(tEditInstance *pEditInstance);
-static char *ODEditBufferGetCharacter(tEditInstance *pEditInstance,
- UINT unBufferLine, UINT unBufferColumn);
-static tODResult ODEditBufferMakeSpace(tEditInstance *pEditInstance,
- UINT unLine, UINT unColumn, UINT unNumChars);
-static tODResult ODEditTryToGrow(tEditInstance *pEditInstance,
- UINT unSizeNeeded);
-
-
-
-/* ========================================================================= */
-/* High level editor implementation. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * od_multiline_edit()
- *
- * Multiline editor function, allows the user to enter or change text that
- * spans multiple lines.
- *
- * Parameters: pszBufferToEdit - Pointer to '\0'-terminated buffer of text
- * to edit.
- *
- * unBufferSize - Size of the buffer, in characters.
- *
- * pEditOptions - Pointer to a tODEditOptions structure, or
- * NULL to use default settings.
- *
- * Return: An od_multiline_edit()-specific result code.
- */
-ODAPIDEF INT ODCALL od_multiline_edit(char *pszBufferToEdit, UINT unBufferSize,
- tODEditOptions *pEditOptions)
-{
- tEditInstance EditInstance;
- INT nToReturn;
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_node_open()");
-
- /* Initialize OpenDoors if not already done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Validate parameters. */
- if(pszBufferToEdit == NULL || unBufferSize == 0)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(OD_MULTIEDIT_ERROR);
- }
-
- /* Check the user's terminal supports the required capabilities. */
- if(!(od_control.user_ansi || od_control.user_avatar))
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(OD_MULTIEDIT_ERROR);
- }
-
- /* Initialize editor instance information structure. */
- if(!ODEditSetupInstance(&EditInstance, pszBufferToEdit, unBufferSize,
- pEditOptions))
- {
- OD_API_EXIT();
- return(OD_MULTIEDIT_ERROR);
- }
-
- /* Attempt to build the buffer line index and ensure that the buffer */
- /* conforms to the format specified by the client application. */
- if(!ODEditBufferFormatAndIndex(&EditInstance))
- {
- od_control.od_error = ERR_MEMORY;
- OD_API_EXIT();
- return(OD_MULTIEDIT_ERROR);
- }
-
- /* Claim exclusive use of arrow keys. */
- ODStatStartArrowUse();
-
- /* Ensure that all information in the outbound communications buffer */
- /* has been sent before starting. This way, we can safely purge the */
- /* outbound buffer at any time without loosing anything that was sent */
- /* before od_multiline_edit() was called. */
- ODWaitDrain(PRE_DRAIN_TIME);
-
- /* Draw the initial edit area. */
- ODEditRedrawArea(&EditInstance);
-
- /* Run the main editor loop. */
- nToReturn = ODEditMainLoop(&EditInstance);
-
- /* Release exclusive use of arrow keys. */
- ODStatEndArrowUse();
-
- /* Set final information which will be available in the user options */
- /* structure for the client application to access. */
- EditInstance.pUserOptions->pszFinalBuffer = EditInstance.pszEditBuffer;
- EditInstance.pUserOptions->unFinalBufferSize = unBufferSize;
-
- OD_API_EXIT();
- return(nToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditSetupInstance() *** PRIVATE FUNCTION ***
- *
- * Initializes editor instance information structure.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * pszBufferToEdit - Buffer pointer provided by client.
- *
- * unBufferSize - Initial buffer size, as specified by the
- * client.
- *
- * pUserOptions - Editor options specified by the client.
- *
- * Return: TRUE on success, FALSE on failure. In the case of failure,
- * od_control.od_error is set appropriately.
- */
-static BOOL ODEditSetupInstance(tEditInstance *pEditInstance,
- char *pszBufferToEdit, UINT unBufferSize, tODEditOptions *pUserOptions)
-{
- ASSERT(pEditInstance != NULL);
- ASSERT(pszBufferToEdit != NULL);
-
- /* Setup editor instance structure. */
- pEditInstance->pszEditBuffer = pszBufferToEdit;
- pEditInstance->unBufferSize = unBufferSize;
- if(pUserOptions == NULL)
- {
- /* Edit options is just the defaults. */
- pEditInstance->pUserOptions = &ODEditOptionsDefault;
- }
- else
- {
- /* Edit options are supplied by the user. */
- pEditInstance->pUserOptions = pUserOptions;
-
- /* Initialize any edit options that the user did not setup. */
- /* Check that edit area has been initialized. */
- if(pUserOptions->nAreaLeft == 0)
- {
- pUserOptions->nAreaLeft = ODEditOptionsDefault.nAreaLeft;
- }
- if(pUserOptions->nAreaRight == 0)
- {
- pUserOptions->nAreaRight = ODEditOptionsDefault.nAreaRight;
- }
- if(pUserOptions->nAreaTop == 0)
- {
- pUserOptions->nAreaTop = ODEditOptionsDefault.nAreaTop;
- }
- if(pUserOptions->nAreaBottom == 0)
- {
- pUserOptions->nAreaBottom = ODEditOptionsDefault.nAreaBottom;
- }
- }
- pEditInstance->unCurrentLine = 0;
- pEditInstance->unCurrentColumn = 0;
- pEditInstance->unLineScrolledToTop = 0;
- pEditInstance->papchStartOfLine = NULL;
- pEditInstance->unLineArraySize = 0;
- pEditInstance->unLinesInBuffer = 0;
- pEditInstance->unAreaWidth = (UINT)pEditInstance->pUserOptions->
- nAreaRight - (UINT)pEditInstance->pUserOptions->nAreaLeft + 1;
- pEditInstance->unAreaHeight = (UINT)pEditInstance->pUserOptions->
- nAreaBottom - (UINT)pEditInstance->pUserOptions->nAreaTop + 1;
- pEditInstance->bInsertMode = TRUE;
- pEditInstance->unTabStopSize = DEFAULT_TAB_STOP_SIZE;
-
- /* Setup line break and paragraph break sequences, if they can be */
- /* determined at this point. If they can't be determined, set them */
- /* to NULL. */
- switch(pEditInstance->pUserOptions->TextFormat)
- {
- case FORMAT_FTSC_MESSAGE:
- /* FTSC compliant messages use \r as a paragraph break, and do */
- /* not have any line break characters. */
- pEditInstance->pszLineBreak = "";
- pEditInstance->pszParagraphBreak = "\r";
- break;
-
- case FORMAT_PARAGRAPH_BREAKS:
- /* Paragraph break mode only inserts CR/LF sequences at the end */
- /* of a paragrah, and word-wraps the text that forms a paragrah. */
- pEditInstance->pszLineBreak = "";
- pEditInstance->pszParagraphBreak = NULL;
- break;
-
- case FORMAT_LINE_BREAKS:
- case FORMAT_NO_WORDWRAP:
- /* Line break mode and no word wrap mode both terminate every */
- /* line of the file with a CR/LF sequence, and have no paragrah */
- /* terminator. In line break mode, word wrap is enabled, whereas */
- /* it is not in FORMAT_NO_WORDWRAP mode. */
- pEditInstance->pszLineBreak = NULL;
- pEditInstance->pszParagraphBreak = "";
- break;
-
- default:
- /* An invalid text format was specified. */
- od_control.od_error = ERR_PARAMETER;
- return(FALSE);
- }
-
- /* Determine whether long lines sould be word wrapped or character */
- /* wrapped. */
- pEditInstance->bWordWrapLongLines = (pEditInstance->pUserOptions->TextFormat
- != FORMAT_NO_WORDWRAP);
-
- /* Attempt to allocate abuffer for remembered data. */
- pEditInstance->pRememberBuffer =
- malloc(ODEditRememberBufferSize(pEditInstance));
-
- if(pEditInstance->pRememberBuffer == NULL)
- {
- od_control.od_error = ERR_MEMORY;
- return(FALSE);
- }
-
- /* If AVATAR mode or local mode is active, then scroll up or down one */
- /* line at a time. */
- if(od_control.user_avatar || od_control.baud == 0)
- {
- pEditInstance->unScrollDistance = 1;
- }
- /* In ANSI mode with a remote connection, scroll multiple lines at a */
- /* time. This is the minimum of the default scroll distance, and the */
- /* current height of the edit area - 1. */
- else
- {
- pEditInstance->unScrollDistance = MIN(ANSI_SCROLL_DISTANCE,
- pEditInstance->pUserOptions->nAreaBottom
- - pEditInstance->pUserOptions->nAreaTop);
- }
-
- /* Return with success. */
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditRedrawArea() *** PRIVATE FUNCTION ***
- *
- * Redraws the area of the screen used by the editor.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditRedrawArea(tEditInstance *pEditInstance)
-{
- UINT unAreaLine;
-
- ASSERT(pEditInstance != NULL);
-
- ODScrnEnableCaret(FALSE);
-
- /* First, remove anything that is still in the outbound communications */
- /* buffer, since whatever it was, it will no longer be visible after */
- /* the screen redraw anyhow. */
- if(od_control.baud != 0) ODComClearOutbound(hSerialPort);
-
- /* Loop, drawing every line in the edit area. */
- for(unAreaLine = 0; unAreaLine < pEditInstance->unAreaHeight; ++unAreaLine)
- {
- ODEditDrawAreaLine(pEditInstance, unAreaLine);
- }
-
- ODScrnEnableCaret(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditDrawAreaLine() *** PRIVATE FUNCTION ***
- *
- * Redraws the specified line in the area of the screen used by the editor.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unAreaLineToDraw - 0-based line number in the edit area to be
- * redrawn.
- *
- * Return: void
- */
-static void ODEditDrawAreaLine(tEditInstance *pEditInstance,
- UINT unAreaLineToDraw)
-{
- UINT unBufferLine;
- UINT unLineLength;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(unAreaLineToDraw >= 0);
- ASSERT(unAreaLineToDraw < pEditInstance->unAreaHeight);
-
- /* Determine the buffer line that is displayed on this screen line. */
- unBufferLine = unAreaLineToDraw + pEditInstance->unLineScrolledToTop;
-
- /* Position the cursor to the beginning of this line. */
- od_set_cursor((UINT)pEditInstance->pUserOptions->nAreaTop
- + unAreaLineToDraw, (UINT)pEditInstance->pUserOptions->nAreaLeft);
-
- /* If this line is not beyond the end of the buffer. */
- if(unBufferLine < pEditInstance->unLinesInBuffer)
- {
- /* Determine the length of this buffer line. */
- unLineLength = ODEditBufferGetLineLength(pEditInstance, unBufferLine);
-
- od_disp(ODEditBufferGetCharacter(pEditInstance, unBufferLine, 0),
- unLineLength, TRUE);
- }
-
- /* If right edge of edit area aligns with the right edge of the screen. */
- if(pEditInstance->pUserOptions->nAreaRight == OD_SCREEN_WIDTH)
- {
- /* Clear the remainder of this line on the screen. */
- od_clr_line();
- }
- else
- {
- /* Place spaces after the end of the current line, up to right edge of */
- /* the edit area. */
- od_repeat(' ', (BYTE)(pEditInstance->unAreaWidth - unLineLength));
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditMainLoop() *** PRIVATE FUNCTION ***
- *
- * Implements the main editor loop, which repeatedly waits for input from the
- * user, until the user chooses to exit.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: Value to be returned by od_multiline_edit.
- */
-static INT ODEditMainLoop(tEditInstance *pEditInstance)
-{
- tODInputEvent InputEvent;
-
- ASSERT(pEditInstance != NULL);
-
- /* Set initial cursor position. */
- ODEditUpdateCursorPos(pEditInstance);
-
- /* Loop, obtaining keystrokes until the user chooses to exit. */
- for(;;)
- {
- od_get_input(&InputEvent, OD_NO_TIMEOUT, GETIN_NORMAL);
- if(InputEvent.EventType == EVENT_EXTENDED_KEY)
- {
- switch(InputEvent.chKeyPress)
- {
- case OD_KEY_UP:
- /* If we aren't at the start of the file, then move to the */
- /* previous line. */
- if(pEditInstance->unCurrentLine > 0)
- {
- ODEditGotoPreviousLine(pEditInstance);
- ODEditUpdateCursorPos(pEditInstance);
- }
- break;
-
- case OD_KEY_DOWN:
- /* If we aren't at the end of the file, then move to the */
- /* next line. */
- if(pEditInstance->unCurrentLine
- < ODEditBufferGetTotalLines(pEditInstance) - 1)
- {
- ODEditGotoNextLine(pEditInstance);
- ODEditUpdateCursorPos(pEditInstance);
- }
- break;
-
- case OD_KEY_LEFT:
- /* Attempt to move the cursor left. */
- if(ODEditCursorLeft(pEditInstance))
- {
- /* If it was possible to move the cursor, then update the */
- /* cursor position on the screen. */
- ODEditUpdateCursorPos(pEditInstance);
- }
- break;
-
- case OD_KEY_RIGHT:
- /* In word wrap mode, we allow the cursor to move up to the */
- /* end of this line, and then wrap around to the next line. */
- if(pEditInstance->bWordWrapLongLines)
- {
- if(pEditInstance->unCurrentColumn < ODEditBufferGetLineLength
- (pEditInstance, pEditInstance->unCurrentLine))
- {
- ++pEditInstance->unCurrentColumn;
- ODEditUpdateCursorPos(pEditInstance);
- }
- else if(pEditInstance->unCurrentLine
- < ODEditBufferGetTotalLines(pEditInstance) - 1)
- {
- ODEditGotoNextLine(pEditInstance);
- pEditInstance->unCurrentColumn = 0;
- ODEditUpdateCursorPos(pEditInstance);
- }
- }
-
- /* In character wrap mode, we allow the cursor to move up to */
- /* the right edge of the edit area. */
- else
- {
- if(pEditInstance->unCurrentColumn
- < pEditInstance->unAreaWidth - 1)
- {
- ++pEditInstance->unCurrentColumn;
- ODEditUpdateCursorPos(pEditInstance);
- }
- }
- break;
-
- case OD_KEY_HOME:
- pEditInstance->unCurrentColumn = 0;
- ODEditUpdateCursorPos(pEditInstance);
- break;
-
- case OD_KEY_END:
- pEditInstance->unCurrentColumn = ODEditBufferGetLineLength(
- pEditInstance, pEditInstance->unCurrentLine);
- ODEditUpdateCursorPos(pEditInstance);
- break;
-
- case OD_KEY_PGUP:
- if(pEditInstance->unLineScrolledToTop > 0)
- {
- UINT unDistance = MIN(pEditInstance->unAreaHeight - 1,
- pEditInstance->unLineScrolledToTop);
- ODEditScrollArea(pEditInstance, -((INT)unDistance));
- pEditInstance->unCurrentLine -= unDistance;
- ODEditUpdateCursorPos(pEditInstance);
- }
- else if(pEditInstance->unCurrentLine != 0)
- {
- pEditInstance->unCurrentLine = 0;
- ODEditUpdateCursorPos(pEditInstance);
- }
- break;
-
- case OD_KEY_PGDN:
- if(pEditInstance->unLineScrolledToTop <
- pEditInstance->unLinesInBuffer - 1)
- {
- UINT unDistance = MIN(pEditInstance->unAreaHeight - 1,
- pEditInstance->unLinesInBuffer
- - pEditInstance->unLineScrolledToTop - 1);
- ODEditScrollArea(pEditInstance, (INT)unDistance);
- pEditInstance->unCurrentLine = MIN(
- pEditInstance->unCurrentLine + unDistance,
- pEditInstance->unLinesInBuffer - 1);
- ODEditUpdateCursorPos(pEditInstance);
- }
- break;
-
- case OD_KEY_INSERT:
- /* If the insert key is pressed, then toggle insert mode. */
- pEditInstance->bInsertMode = !pEditInstance->bInsertMode;
- break;
-
- case OD_KEY_DELETE:
- /* Delete the character at the current position. */
-
- /* If we are currently past the end of this line. */
- if(ODEditPastEndOfCurLine(pEditInstance))
- {
- /* Add spaces to this line to fill it up to the current */
- /* cursor position. */
- switch(ODEditBufferMakeSpace(pEditInstance,
- pEditInstance->unCurrentLine,
- pEditInstance->unCurrentColumn, 0))
- {
- case kODRCUnrecoverableFailure:
- /* If we encountered an unrecoverable failure, then */
- /* exit from the editor with a memory allocation */
- /* error. */
- od_control.od_error = ERR_MEMORY;
- return(OD_MULTIEDIT_ERROR);
-
- case kODRCSuccess:
- /* On success, delete the current character. */
- ODEditDeleteCurrentChar(pEditInstance);
- break;
-
- default:
- /* On any other failure, just beep and continue. */
- od_putch('\a');
- }
- }
- else
- {
- /* If we aren't pas the end of the line, then just do a */
- /* simple delete character operation. */
- ODEditDeleteCurrentChar(pEditInstance);
- }
- break;
- }
- }
- else if(InputEvent.EventType == EVENT_CHARACTER)
- {
- if(InputEvent.chKeyPress == 25)
- {
- /* Control-Y (delete line) has been pressed. */
- ODEditDeleteCurrentLine(pEditInstance);
- }
- else if(InputEvent.chKeyPress == 26
- || InputEvent.chKeyPress == 27)
- {
- /* Escape or control-Z has been pressed. */
-
- /* If a menu callback function has been provided by */
- /* the client, then call it. */
- if(pEditInstance->pUserOptions->pfMenuCallback != NULL)
- {
- /* Call the menu callback function. */
- switch((*pEditInstance->pUserOptions->pfMenuCallback)(NULL))
- {
- case EDIT_MENU_EXIT_EDITOR:
- return(OD_MULTIEDIT_SUCCESS);
-
- case EDIT_MENU_DO_NOTHING:
- /* Continue in the editor without doing anything. */
- break;
-
- default:
- ASSERT(FALSE);
- }
-
- /* If we are continuing, then restore initial cursor pos. */
- ODEditUpdateCursorPos(pEditInstance);
- }
- else
- {
- /* If a menu key callback function has not been provided, */
- /* then we exit the editor unconditionally. */
- return(OD_MULTIEDIT_SUCCESS);
- }
- }
- else if(InputEvent.chKeyPress == '\b')
- {
- /* Backspace key has been pressed. */
-
- /* If the cursor is past the end of the line, then we just move */
- /* the cursor left, without deleting any characters. */
- BOOL bDelete = !ODEditPastEndOfCurLine(pEditInstance);
-
- /* Backup the cursor one space. */
- if(ODEditCursorLeft(pEditInstance))
- {
- /* If there was space to move the cursor back to, then */
- /* proceed and remove the character at the current position. */
- if(bDelete)
- {
- ODEditDeleteCurrentChar(pEditInstance);
- }
- else
- {
- /* In this case, we must still show the new cursor */
- /* position. */
- ODEditUpdateCursorPos(pEditInstance);
- }
- }
- }
- else if(InputEvent.chKeyPress == '\t')
- {
- char szTextToAdd[MAX_TAB_STOP_SIZE + 1];
- UINT unTargetColumn;
- UINT unTargetDistance;
-
- /* A tab key has been entered. */
-
- /* Determine the column that this will move the cursor to. */
- ASSERT(pEditInstance->unTabStopSize <= MAX_TAB_STOP_SIZE);
- unTargetColumn = ((pEditInstance->unCurrentColumn / pEditInstance->
- unTabStopSize) + 1) * pEditInstance->unTabStopSize;
-
- /* In insert mode, then insert spaces into the buffer. */
- if(pEditInstance->bInsertMode)
- {
- /* Determine the number of columns that we need to advance in */
- /* order to reach this target column. */
- unTargetDistance = unTargetColumn -
- pEditInstance->unCurrentColumn;
- ASSERT(unTargetDistance <= MAX_TAB_STOP_SIZE);
-
- /* Translate this to a string with the appropriate number of */
- /* spaces. */
- memset(szTextToAdd, ' ', unTargetDistance);
- szTextToAdd[unTargetDistance] = '\0';
-
- /* Add this to the buffer. */
- if(ODEditEnterText(pEditInstance, szTextToAdd, TRUE) ==
- kODRCUnrecoverableFailure)
- {
- od_control.od_error = ERR_MEMORY;
- return(OD_MULTIEDIT_ERROR);
- }
- }
-
- /* In overwrite mode, then just advance the cursor position. */
- else
- {
- /* Determine the column where the cursor should be wrapped. */
- UINT unWrapColumn = pEditInstance->bWordWrapLongLines ?
- ODEditBufferGetLineLength(pEditInstance,
- pEditInstance->unCurrentLine)
- : pEditInstance->unAreaWidth;
-
- if(unTargetColumn < unWrapColumn)
- {
- pEditInstance->unCurrentColumn = unTargetColumn;
- ODEditUpdateCursorPos(pEditInstance);
- }
- else if(pEditInstance->unCurrentLine
- < ODEditBufferGetTotalLines(pEditInstance) - 1)
- {
- ODEditGotoNextLine(pEditInstance);
- pEditInstance->unCurrentColumn = 0;
- ODEditUpdateCursorPos(pEditInstance);
- }
- }
- }
- else if(InputEvent.chKeyPress == '\r')
- {
- char *pszTextToAdd;
-
- /* The enter key has been pressed. In insert mode, or at the end */
- /* of the buffer in overwrite mode, this adds a new line. */
- if(pEditInstance->bInsertMode || pEditInstance->unCurrentLine
- >= ODEditBufferGetTotalLines(pEditInstance) - 1)
- {
- if(!pEditInstance->bInsertMode)
- {
- /* If we are not in insert mode, begin by positioning the */
- /* cursor at the end of this line. */
- pEditInstance->unCurrentColumn = ODEditBufferGetLineLength(
- pEditInstance, pEditInstance->unCurrentLine);
- }
-
- /* Determine the line/paragraph break sequence to use. */
- if(pEditInstance->pszLineBreak != NULL
- && strlen(pEditInstance->pszLineBreak) > 0)
- {
- pszTextToAdd = pEditInstance->pszLineBreak;
- }
- else if(pEditInstance->pszParagraphBreak != NULL
- && strlen(pEditInstance->pszParagraphBreak) > 0)
- {
- pszTextToAdd = pEditInstance->pszParagraphBreak;
- }
- else
- {
- pszTextToAdd = DEFAULT_LINE_BREAK;
- }
-
- /* Insert the sequence into the buffer. */
- if(ODEditEnterText(pEditInstance, pszTextToAdd, TRUE) ==
- kODRCUnrecoverableFailure)
- {
- od_control.od_error = ERR_MEMORY;
- return(OD_MULTIEDIT_ERROR);
- }
- }
- else
- {
- /* Pressing the enter key in overwrite mode just moves the */
- /* cursor to the beginning of the next line. In other words, */
- /* it is equivalent to pressing Down arrow followed by home. */
- ODEditGotoNextLine(pEditInstance);
- pEditInstance->unCurrentColumn = 0;
- ODEditUpdateCursorPos(pEditInstance);
- }
- }
- else if(InputEvent.chKeyPress >= 32)
- {
- char szTextToAdd[2];
- szTextToAdd[0] = InputEvent.chKeyPress;
- szTextToAdd[1] = '\0';
-
- /* A valid buffer character has been entered. */
- if(ODEditEnterText(pEditInstance, szTextToAdd,
- (BOOL)(pEditInstance->bInsertMode
- || ODEditPastEndOfCurLine(pEditInstance)))
- == kODRCUnrecoverableFailure)
- {
- od_control.od_error = ERR_MEMORY;
- return(OD_MULTIEDIT_ERROR);
- }
- }
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditGotoPreviousLine() *** PRIVATE FUNCTION ***
- *
- * Moves the current cursor position to the previous line, scrolling the screen
- * if necessary to keep the cursor visible.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditGotoPreviousLine(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- /* If we are already at the first line, then return without doing */
- /* anything. */
- if(pEditInstance->unCurrentLine == 0) return;
-
- /* If cursor is at top of edit area, then scroll area */
- /* first. */
- if(ODEditGetCurrentLineInArea(pEditInstance) == 0)
- {
- ODEditScrollArea(pEditInstance,
- -(INT)(MIN(pEditInstance->unScrollDistance,
- pEditInstance->unCurrentLine)));
- }
-
- /* Move cursor to previous line. */
- --pEditInstance->unCurrentLine;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditGotoNextLine() *** PRIVATE FUNCTION ***
- *
- * Advances the current cursor position to the next line, scrolling the screen
- * if necessary to keep the cursor visible.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditGotoNextLine(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- /* If we are already at the end of the file, then return without */
- /* doing anything. */
- if(pEditInstance->unCurrentLine
- >= ODEditBufferGetTotalLines(pEditInstance) - 1)
- {
- return;
- }
-
- /* If cursor is at the bottom of the edit area, then scroll area first. */
- if(ODEditGetCurrentLineInArea(pEditInstance)
- == pEditInstance->unAreaHeight - 1)
- {
- ODEditScrollArea(pEditInstance,
- (INT)MIN(pEditInstance->unScrollDistance,
- ODEditBufferGetTotalLines(pEditInstance)
- - pEditInstance->unCurrentLine));
- }
-
- /* Move cursor to next line. */
- ++pEditInstance->unCurrentLine;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditScrollArea() *** PRIVATE FUNCTION ***
- *
- * Scrolls the edit area up or down the specified distance, redrawing newly
- * "exposed" lines.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * nDistance - Number of lines to scroll, where a positive
- * value moves the text upwards, and a negative
- * value moves the text down.
- *
- * Return: FALSE if a full redraw has been performed, TRUE if an efficient
- * scroll command has been used.
- */
-static BOOL ODEditScrollArea(tEditInstance *pEditInstance, INT nDistance)
-{
- BOOL bUseScrollCommand = FALSE;
- UINT unAreaLine;
- UINT unBufferLine;
- UINT unFirstAreaLineToDraw;
- UINT unLastAreaLineToDraw;
- UINT unPositiveDistance;
-
- ASSERT(pEditInstance);
-
- /* If scroll distance is zero, then we don't need to do anything at all. */
- if(nDistance == 0)
- {
- return(TRUE);
- }
- /* Otherwise, obtain the absolute value of the distance as an unsigned */
- /* integer. */
- else if(nDistance < 0)
- {
- unPositiveDistance = (UINT)-nDistance;
- }
- else
- {
- unPositiveDistance = (UINT)nDistance;
- }
-
- /* In AVATAR mode, if more than one of the currently visible lines will */
- /* still be visible after scrolling, then we will consider using the */
- /* scroll operation. */
- if(od_control.user_avatar
- && ((INT)pEditInstance->unAreaHeight) - ((INT)unPositiveDistance) > 1)
- {
- /* Even under this situation, we only want to use the scroll operation */
- /* if the amount of data still in the outbound buffer + our estimate */
- /* of the amount of data that will be sent to perform the scroll */
- /* operation is less than our estimate of the amount of data that */
- /* would be sent by a complete screen redraw. */
- UINT unEstimatedScrollData = ((pEditInstance->unAreaWidth + 4) *
- unPositiveDistance) + 7;
-
- if(!ODEditRecommendFullRedraw(pEditInstance, unEstimatedScrollData,
- TRUE))
- {
- bUseScrollCommand = TRUE;
- }
- }
-
- /* In local mode, we can also use the scroll command for efficiency. */
- if(od_control.baud == 0)
- {
- bUseScrollCommand = TRUE;
- }
-
- /* Area scroll is achieved by one of two means. We either use the scroll */
- /* command, and then draw just the newly visible lines, or we redraw the */
- /* entire edit area, after removing any data from the outbound */
- /* communications buffer. */
-
- if(bUseScrollCommand)
- {
- /* Use the od_scroll() function to scroll the screen contents. */
- od_scroll(pEditInstance->pUserOptions->nAreaLeft,
- pEditInstance->pUserOptions->nAreaTop,
- pEditInstance->pUserOptions->nAreaRight,
- pEditInstance->pUserOptions->nAreaBottom,
- nDistance, SCROLL_NO_CLEAR);
-
- /* Fill the newly visible lines. First, the portion of the area that */
- /* requires redrawing is determined, and then a loop redraws the lines */
- /* that must be drawn. */
-
- /* If we are moving text upwards, exposing new lines at the bottom of */
- /* the area: */
- if(nDistance > 0)
- {
- ASSERT(pEditInstance->unLineScrolledToTop + unPositiveDistance
- < pEditInstance->unLinesInBuffer);
- pEditInstance->unLineScrolledToTop += unPositiveDistance;
- unFirstAreaLineToDraw = pEditInstance->unAreaHeight
- - (UINT)unPositiveDistance;
- unLastAreaLineToDraw = pEditInstance->unAreaHeight - 1;
- }
- /* Otherwise, we have moved text downwards, exposing new lines at the */
- /* top of the edit area. */
- else
- {
- ASSERT(pEditInstance->unLineScrolledToTop >= unPositiveDistance);
- pEditInstance->unLineScrolledToTop -= unPositiveDistance;
- unFirstAreaLineToDraw = 0;
- unLastAreaLineToDraw = unPositiveDistance - 1;
- }
-
- ODScrnEnableCaret(FALSE);
-
- /* Now, redraw the new lines. */
- unBufferLine = unFirstAreaLineToDraw
- + pEditInstance->unLineScrolledToTop;
- for(unAreaLine = unFirstAreaLineToDraw; unAreaLine <=
- unLastAreaLineToDraw; ++unAreaLine, ++unBufferLine)
- {
- /* Draw the entire line. */
- ODEditDrawAreaLine(pEditInstance, unAreaLine);
- }
-
- ODScrnEnableCaret(TRUE);
- }
-
- /* Just redraw the entire edit area. */
- else
- {
- /* Adjust the line number that is scrolled to the top of the screen. */
- if(nDistance > 0)
- {
- pEditInstance->unLineScrolledToTop += unPositiveDistance;
- }
- else
- {
- pEditInstance->unLineScrolledToTop -= unPositiveDistance;
- }
-
- /* Perform redraw, first purging outbound buffer. */
- ODEditRedrawArea(pEditInstance);
- }
-
- return(bUseScrollCommand);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditRecommendFullRedraw() *** PRIVATE FUNCTION ***
- *
- * Determines whether it would be more efficient to add the specified number
- * of bytes to the outbound buffer as part of an incremental redraw, or if
- * it would be more efficient to just purge the outbound buffer and do a
- * complete redraw of the edit area.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unEstPartialRedrawBytes - Estimate of the number of bytes that
- * would be transmitted if an incremental
- * redraw is performed.
- *
- * bDefault - The default action (TRUE for full
- * redraw, FALSE for incremental) if the
- * number of bytes in the outbound buffer
- * cannot be determined.
- *
- * Return: TRUE if a full redraw is recommended, FALSE if an the
- * incremental redraw is recommended.
- */
-static BOOL ODEditRecommendFullRedraw(tEditInstance *pEditInstance,
- UINT unEstPartialRedrawBytes, BOOL bDefault)
-{
- int nOutboundBufferBytes;
- UINT unEstFullRedrawBytes;
-
- /* In local mode, just return the default action. */
- if(od_control.baud == 0)
- {
- return(bDefault);
- }
-
- /* Attempt to obtain the number of bytes in the communications outbound */
- /* buffer. Unfortunately, this information may not be available. For */
- /* example, FOSSIL drivers will only report whether or not there is */
- /* still data in the outbound buffer, but not a count of the number of */
- /* bytes in the buffer. Under such a situation, ODComOutbound() returns */
- /* SIZE_NON_ZERO if there is data in the buffer, and 0 if there is no */
- /* data in the buffer. This is not a problem under OpenDoor's internal */
- /* serial I/O code, nor is it a problem under Win32's communications */
- /* facilities. */
- ODComOutbound(hSerialPort, &nOutboundBufferBytes);
-
- if(nOutboundBufferBytes == SIZE_NON_ZERO)
- {
- /* We know that there is data in the outbound buffer, but we don't */
- /* know how much, and so we cannot make a recommendation. Instead, */
- /* the default course of action will be taken. */
- return(bDefault);
- }
-
- /* Estimate the # of bytes required for a full redraw of the edit area. */
- unEstFullRedrawBytes = ODEditEstDrawBytes(pEditInstance, 0,
- 0, pEditInstance->unAreaHeight - 1, pEditInstance->unAreaWidth);
-
- /* Recommend a full redraw if the number of bytes for an incremental */
- /* redraw plus the number of bytes already in the outbound buffer */
- /* exceed the number of bytes required for a full redraw. */
- if(unEstPartialRedrawBytes + (UINT)nOutboundBufferBytes
- > unEstFullRedrawBytes)
- {
- return(TRUE);
- }
- else
- {
- return(FALSE);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditEstDrawBytes() *** PRIVATE FUNCTION ***
- *
- * Estimates the number of bytes which will be transmitted in order to redraw
- * the specified portion of the edit area.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unStartRedrawLine - Line of first character to draw.
- *
- * unStartRedrawColumn - Column of first character to draw.
- *
- * unFinishRedrawLine - Line of last character to draw.
- *
- * unFinishRedrawColumn - Column after last character to draw.
- *
- * Return: A rough estimate of the number of bytes required for the redraw.
- */
-static UINT ODEditEstDrawBytes(tEditInstance *pEditInstance,
- UINT unStartRedrawLine, UINT unStartRedrawColumn, UINT unFinishRedrawLine,
- UINT unFinishRedrawColumn)
-{
- UINT unAreaLine;
- UINT unBufferLine;
- UINT unLineLength;
- UINT unByteTally = 0;
-
- /* If we are only drawing text on a single line, then estimate is just */
- /* the distance between the start and finish redraw column. This number */
- /* is precise only if the cursor is already at the location where */
- /* output is to begin, and the final cursor position is the location */
- /* where output finishes. This is in fact the situation when the user */
- /* is entering new text in the middle of the line - the most common */
- /* situation that will be encountered. */
- if(unStartRedrawLine == unFinishRedrawLine)
- {
- return(unFinishRedrawColumn - unStartRedrawColumn);
- }
-
- /* If we are drawing text on multiple lines, then inspect the contents */
- /* of those lines to estimate the number of bytes to be transmitted. */
- for(unAreaLine = unStartRedrawLine,
- unBufferLine = pEditInstance->unLineScrolledToTop + unStartRedrawLine;
- unAreaLine <= unFinishRedrawLine;
- ++unAreaLine, ++unBufferLine)
- {
- /* Determine the length of this line. */
- if(unBufferLine < pEditInstance->unLinesInBuffer)
- {
- unLineLength = ODEditBufferGetLineLength(pEditInstance, unBufferLine);
- if(unAreaLine == unStartRedrawLine)
- {
- unLineLength -= unStartRedrawColumn;
- }
- }
- else
- {
- unLineLength = 0;
- }
-
- /* Add the number of characters on this line, along with the number of */
- /* bytes required to reposition the cursor and to clear the unused */
- /* portion of this line to the tally. This assumes that the edit area */
- /* spans the entire screen. */
- unByteTally += unLineLength + 7;
- }
-
- return(unByteTally);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditGetCurrentLineInArea() *** PRIVATE FUNCTION ***
- *
- * Determines which line of the edit area the cursor is currently located in.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: 0-based index of the distance from the top of the edit area
- * (as specified in the user options structure) where the
- * cursor is currently located.
- */
-static UINT ODEditGetCurrentLineInArea(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- return(pEditInstance->unCurrentLine - pEditInstance->unLineScrolledToTop);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditUpdateCursorPos() *** PRIVATE FUNCTION ***
- *
- * Unconditionally updates the position of the cursor on the screen to
- * reflect its actual position. Compare with ODEditUpdateCursorIfMoved().
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditUpdateCursorPos(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- /* Reposition the cursor on the screen. */
- od_set_cursor(ODEditGetCurrentLineInArea(pEditInstance)
- + pEditInstance->pUserOptions->nAreaTop,
- pEditInstance->unCurrentColumn + pEditInstance->pUserOptions->nAreaLeft);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditUpdateCursorIfMoved() *** PRIVATE FUNCTION ***
- *
- * Updates the position of the cursor on the screen to reflec its actual
- * position only if we belive it isn't already there. Compare with
- * ODEditUpdateCursorPos().
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditUpdateCursorIfMoved(tEditInstance *pEditInstance)
-{
- UINT unActualRow;
- UINT unActualColumn;
- ODEditGetActualCurPos(pEditInstance, &unActualRow, &unActualColumn);
-
- if(!(unActualRow == ODEditGetCurrentLineInArea(pEditInstance)
- + pEditInstance->pUserOptions->nAreaTop
- && unActualColumn == pEditInstance->unCurrentColumn
- + pEditInstance->pUserOptions->nAreaLeft))
- {
- ODEditUpdateCursorPos(pEditInstance);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditEnterText() *** PRIVATE FUNCTION ***
- *
- * Inserts new text at the current cursor position, updating the cursor
- * position accordingly.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * pszEntered - The character(s) to be inserted.
- *
- * Return: kODRCSuccess on success, kODRCSafeFailure if we were unable to
- * obtain enough buffer space before making any changes, or
- * kODRCUnrecoverableFailure if the buffer has been changed, but
- * there was insufficient memory to re-index the buffer.
- */
-static tODResult ODEditEnterText(tEditInstance *pEditInstance,
- char *pszEntered, BOOL bInsertMode)
-{
- UINT unNumCharsToAdd;
- char *pch;
- tODResult Result;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(pszEntered != NULL);
-
- /* Remember initial edit area contents, to permit selective redraw. */
- ODEditRememberArea(pEditInstance, pEditInstance->pRememberBuffer);
-
- /* Determine the number of characters that are to be added to the buffer. */
- unNumCharsToAdd = strlen(pszEntered);
-
- /* Make room in the buffer for the new characters, if needed. */
- if(bInsertMode)
- {
- Result = ODEditBufferMakeSpace(pEditInstance,
- pEditInstance->unCurrentLine, pEditInstance->unCurrentColumn,
- unNumCharsToAdd);
-
- if(Result != kODRCSuccess)
- {
- /* Beep on failure. */
- od_putch('\a');
- return(Result);
- }
- }
-
- /* Copy the new characters to the buffer. */
- pch = ODEditBufferGetCharacter(pEditInstance,
- pEditInstance->unCurrentLine, pEditInstance->unCurrentColumn);
- memcpy(pch, pszEntered, unNumCharsToAdd);
-
- /* Move the cursor position to the end of the newly added text. The */
- /* cursor position may be temporarily assigned to a position that is */
- /* past the end of the edit area or past the end of the buffer. */
- for(pch = pszEntered; *pch != '\0'; ++pch)
- {
- if(IS_EOL_CHAR(*pch))
- {
- /* A carriage return character advances the cursor to the */
- /* leftmost column on the next line. */
- pEditInstance->unCurrentColumn = 0;
- pEditInstance->unCurrentLine++;
-
- /* If the next character is a different EOL character, and is */
- /* not the end of the string, then skip that character. */
- if(IS_EOL_CHAR(pch[1]) && pch[1] != '\0' && pch[1] != *pch)
- {
- ++pch;
- }
- }
- else
- {
- /* All other characters move the cursor ahead one column. */
- pEditInstance->unCurrentColumn++;
- }
- }
-
- /* Reindex and reformat the buffer based on its new contents. */
- if(!ODEditBufferFormatAndIndex(pEditInstance))
- {
- return(kODRCUnrecoverableFailure);
- }
-
- /* Check whether the cursor is now positioned past the end of the edit */
- /* area, requiring the edit area to be scrolled up. */
- if(ODEditGetCurrentLineInArea(pEditInstance)
- >= pEditInstance->unAreaHeight)
- {
- /* We need to scroll the area accordingly. */
-
- /* Distance to scroll is maximum of the current single-step scroll */
- /* distance, and the distance that the cursor is positioned below */
- /* the bottom of the current edit area. */
- UINT unScrollDistance = MAX(pEditInstance->unScrollDistance,
- ODEditGetCurrentLineInArea(pEditInstance) -
- pEditInstance->unAreaHeight + 1);
-
- /* Perform actual scroll operation. */
- if(ODEditScrollArea(pEditInstance, (INT)unScrollDistance))
- {
- /* Entire area wasn't redrawn by operation, so some redrawing */
- /* may still be required, within the area of text that was */
- /* visible before the scroll operation. */
- ODEditRedrawChanged(pEditInstance, pEditInstance->pRememberBuffer,
- 0, pEditInstance->unAreaHeight - unScrollDistance);
- }
- }
-
- /* Perform necessary redrawing and reposition the cursor if needed. */
- ODEditRedrawChanged(pEditInstance, pEditInstance->pRememberBuffer,
- REDRAW_NO_BOUNDARY, REDRAW_NO_BOUNDARY);
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditSetBreakSequence() *** PRIVATE FUNCTION ***
- *
- * If the default line or paragraph break sequence has not yet been set, then
- * this function sets it based on the break sequence that was encountered in
- * the buffer supplied by the client application.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * chFirstEOLChar - First character in the encountered sequence.
- *
- * chSecondEOLChar - Second character in the encountered sequence.
- *
- * Return: void
- */
-static void ODEditSetBreakSequence(tEditInstance *pEditInstance,
- char chFirstEOLChar, char chSecondEOLChar)
-{
- char *pszSequence;
-
- ASSERT(pEditInstance != NULL);
-
- if(pEditInstance->pszParagraphBreak != NULL
- && pEditInstance->pszLineBreak != NULL)
- {
- /* In this situation, both the default line break sequence and default */
- /* paragraph break sequence have been set, so there is nothing for us */
- /* to do. */
- return;
- }
-
- /* Obtain a pointer to the encountered sequence. We want to use a static */
- /* string constant for this, so that the string will continue to exist, */
- /* in unchanged form. */
- if(chFirstEOLChar == '\r' && chSecondEOLChar == '\0')
- {
- pszSequence = "\r";
- }
- else if(chFirstEOLChar == '\n' && chSecondEOLChar == '\0')
- {
- pszSequence = "\n";
- }
- else if(chFirstEOLChar == '\n' && chSecondEOLChar == '\r')
- {
- pszSequence = "\n\r";
- }
- else if(chFirstEOLChar == '\r' && chSecondEOLChar == '\n')
- {
- pszSequence = "\r\n";
- }
- else
- {
- /* This should never happen: an invalid end of line sequence was */
- /* passed in. */
- ASSERT(FALSE);
- }
-
- /* Set the as yet undetermined line/paragraph terminators. */
- if(pEditInstance->pszParagraphBreak == NULL)
- {
- pEditInstance->pszParagraphBreak = pszSequence;
- }
-
- if(pEditInstance->pszLineBreak == NULL)
- {
- pEditInstance->pszLineBreak = pszSequence;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditCursorLeft() *** PRIVATE FUNCTION ***
- *
- * Attempts to move the cursor left. Called when the user presses the left
- * arrow key, and is also called as part of the process of handling the
- * backspace key.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: TRUE on success, or FALSE if the cursor cannot be moved left any
- * further.
- */
-static BOOL ODEditCursorLeft(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- /* In word wrap mode, pressing the left key when the cursor */
- /* is past the end of the line jumps the cursor to the end */
- /* of the line. */
- if(pEditInstance->bWordWrapLongLines &&
- pEditInstance->unCurrentColumn > ODEditBufferGetLineLength
- (pEditInstance, pEditInstance->unCurrentLine))
- {
- pEditInstance->unCurrentColumn = ODEditBufferGetLineLength
- (pEditInstance, pEditInstance->unCurrentLine);
- return(TRUE);
- }
-
- /* If we are not already at the leftmost column. */
- else if(pEditInstance->unCurrentColumn > 0)
- {
- /* Move left one column. */
- --pEditInstance->unCurrentColumn;
- return(TRUE);
- }
- else if(pEditInstance->bWordWrapLongLines)
- {
- /* In word wrap mode, this will move us up to the end of */
- /* the previous line. */
- if(pEditInstance->unCurrentLine > 0)
- {
- ODEditGotoPreviousLine(pEditInstance);
- pEditInstance->unCurrentColumn = ODEditBufferGetLineLength(
- pEditInstance, pEditInstance->unCurrentLine);
- return(TRUE);
- }
- }
-
- /* It wasn't possible to move the cursor. */
- return(FALSE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditDeleteCurrentChar() *** PRIVATE FUNCTION ***
- *
- * Deletes the character at the current cursor position, performing necessary
- * redraw. Pressing the delete key causes just this function to be called.
- * Pressing the backspace key causes ODEditCursorLeft() to be called to first
- * move the cursor left before calling ODEditDeleteCurrentChar().
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditDeleteCurrentChar(tEditInstance *pEditInstance)
-{
- char *pch;
-
- ASSERT(pEditInstance != NULL);
-
- /* Remember initial edit area contents, to permit selective redraw. */
- ODEditRememberArea(pEditInstance, pEditInstance->pRememberBuffer);
-
- /* Backup the entire buffer contents by one character. */
- pch = ODEditBufferGetCharacter(pEditInstance,
- pEditInstance->unCurrentLine, pEditInstance->unCurrentColumn);
- memmove(pch, pch + 1, strlen(pch + 1) + 1);
-
- /* Reindex and reformat the buffer based on its new contents. */
- ODEditBufferFormatAndIndex(pEditInstance);
-
- /* Perform necessary redrawing and reposition the cursor if needed. */
- ODEditRedrawChanged(pEditInstance, pEditInstance->pRememberBuffer,
- REDRAW_NO_BOUNDARY, REDRAW_NO_BOUNDARY);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditDeleteCurrentLine() *** PRIVATE FUNCTION ***
- *
- * Removes the entire current line from the buffer.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: void
- */
-static void ODEditDeleteCurrentLine(tEditInstance *pEditInstance)
-{
- char *pszStartOfThisLine;
- char *pszStartOfNextLine;
-
- ASSERT(pEditInstance != NULL);
-
- /* Remember initial edit area contents, to permit selective redraw. */
- ODEditRememberArea(pEditInstance, pEditInstance->pRememberBuffer);
-
- /* Determine start of this line. */
- pszStartOfThisLine = ODEditBufferGetCharacter(pEditInstance,
- pEditInstance->unCurrentLine, 0);
-
- if(pEditInstance->unLinesInBuffer == pEditInstance->unCurrentLine + 1)
- {
- /* If this is the last line of the buffer, then we just remove */
- /* everything from this line, without actually removing the line. */
- *pszStartOfThisLine = '\0';
- }
- else
- {
- /* If this is not the last line of the buffer, then remove this */
- /* entire line, so that the next line will become the current */
- /* line. */
- pszStartOfNextLine = ODEditBufferGetCharacter(pEditInstance,
- pEditInstance->unCurrentLine + 1, 0);
- memmove(pszStartOfThisLine, pszStartOfNextLine,
- strlen(pszStartOfNextLine) + 1);
- }
-
- /* Reset the cursor position to the beginning of the current line. */
- pEditInstance->unCurrentColumn = 0;
-
- /* Reindex and reformat the buffer based on its new contents. */
- ODEditBufferFormatAndIndex(pEditInstance);
-
- /* Perform necessary redrawing and reposition the cursor if needed. */
- ODEditRedrawChanged(pEditInstance, pEditInstance->pRememberBuffer,
- REDRAW_NO_BOUNDARY, REDRAW_NO_BOUNDARY);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditPastEndOfCurLine() *** PRIVATE FUNCTION ***
- *
- * Determines whether the cursor is currently past the end of the current line.
- * The end of the line is considered to be the first column after the last
- * character on the line. So, on a blank line, a cursor is considered to be
- * past the end if it is in or past the second column (column 0).
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: TRUE if the cursor is past the end of the current line,
- * FALSE if it is not.
- */
-static BOOL ODEditPastEndOfCurLine(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- return(pEditInstance->unCurrentColumn >
- ODEditBufferGetLineLength(pEditInstance, pEditInstance->unCurrentLine));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditRememberBufferSize() *** PRIVATE FUNCTION ***
- *
- * Determines the buffer size required by ODEditRememberArea().
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: the required buffer size, in size_t units (bytes).
- */
-static size_t ODEditRememberBufferSize(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
-
- return((pEditInstance->unAreaWidth + 1)
- * pEditInstance->unAreaHeight);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditRememberArea() *** PRIVATE FUNCTION ***
- *
- * Stores a copy of the text currently displayed in the edit area in the
- * provided buffer, so that it can later be reused to redraw only the portion
- * of the edit area which has been changed by an operation.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * pRememberedArea - Pointer to a buffer, which is at least
- * the number of bytes specified by
- * ODEditRememberBufferSize() in size.
- *
- * Return: void
- */
-static void ODEditRememberArea(tEditInstance *pEditInstance,
- void *pRememberedArea)
-{
- UINT unDataLineOffset = 0;
- UINT unDataLineSize;
- UINT unAreaLine;
- UINT unBufferLine;
- UINT unLineLength;
- char *pchStartOfLine;
- char *pchDataLocation;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(pRememberedArea != NULL);
-
- /* Determine the length of a single line in the remember buffer. */
- unDataLineSize = pEditInstance->unAreaWidth + 1;
-
- pchDataLocation = (char *)pRememberedArea + unDataLineOffset;
- for(unBufferLine = pEditInstance->unLineScrolledToTop, unAreaLine = 0;
- unAreaLine < pEditInstance->unAreaHeight;
- ++unAreaLine, ++unBufferLine)
- {
- /* If this line is not beyond the end of the buffer. */
- if(unBufferLine < pEditInstance->unLinesInBuffer)
- {
- /* Determine the length of this buffer line. */
- unLineLength = ODEditBufferGetLineLength(pEditInstance, unBufferLine);
-
- /* Determine the start location of this buffer line. */
- pchStartOfLine = ODEditBufferGetCharacter(pEditInstance, unBufferLine,
- 0);
- }
- else
- {
- /* If this line is beyond the end of the buffer, then it is empty. */
- unLineLength = 0;
- pchStartOfLine = "";
- }
-
- /* Copy the contents of this line to the data buffer. */
- memcpy(pchDataLocation, pchStartOfLine, unLineLength);
- pchDataLocation[unLineLength] = '\0';
-
- /* Update the location where data is being stored in the buffer. */
- pchDataLocation += unDataLineSize;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditRedrawChanged() *** PRIVATE FUNCTION ***
- *
- * Redraws the portion of the edit area which has been changed by an operation,
- * based on the original edit area contents as stored in a buffer by the
- * ODEditRememberArea() function.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * pRememberedArea - Pointer to a buffer that was filled by a
- * previous call to ODEditRememberArea().
- *
- * unUpperBoundary - The first line in the edit area to consider
- * redrawing, or REDRAW_NO_BOUNDARY to specify
- * the top of the edit area.
- *
- * unLowerBoundary - The last line in the edit area to consider
- * redrawing, or REDRAW_NO_BOUNDARY to specify
- * the bottom of the edit area.
- *
- * Return: void
- */
-static void ODEditRedrawChanged(tEditInstance *pEditInstance,
- void *pRememberedArea, UINT unUpperBoundary, UINT unLowerBoundary)
-{
- UINT unStartRedrawLine;
- UINT unStartRedrawColumn;
- UINT unFinishRedrawLine;
- UINT unFinishRedrawColumn;
- UINT unEstPartialRedrawBytes;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(pRememberedArea != NULL);
-
- /* Determine what portion of the edit area, within the specified upper */
- /* and lower boundaries, has been changed. */
- if(!ODEditDetermineChanged(pEditInstance, pRememberedArea, unUpperBoundary,
- unLowerBoundary, &unStartRedrawLine, &unStartRedrawColumn,
- &unFinishRedrawLine, &unFinishRedrawColumn))
- {
- /* Nothing has changed in the edit area. */
- ODEditUpdateCursorIfMoved(pEditInstance);
- return;
- }
-
- /* Now that we have determined the portion of the edit area that would */
- /* be redraw by a partial (incremental) redraw, we compare the amount */
- /* of data involved + the amount of data still in the outbound buffer */
- /* with the amount of data involved in a full redraw. If the amount of */
- /* data in the outbound buffer cannot be determined, we default to */
- /* using an incremental redraw. */
- unEstPartialRedrawBytes = ODEditEstDrawBytes(pEditInstance,
- unStartRedrawLine, unStartRedrawColumn, unFinishRedrawLine,
- unFinishRedrawColumn);
- if(ODEditRecommendFullRedraw(pEditInstance, unEstPartialRedrawBytes,
- FALSE))
- {
- /* Purge the outbound buffer and do a full redraw. */
- ODEditRedrawArea(pEditInstance);
-
- /* Move the cursor back to its appropriate position. */
- ODEditUpdateCursorPos(pEditInstance);
- }
- else
- {
- /* Perform a partial (incremental) redraw. */
-
- /* Now, redraw the portion of the edit area that has been determined to */
- /* require redrawing. */
- ODEditRedrawSubArea(pEditInstance, unStartRedrawLine, unStartRedrawColumn,
- unFinishRedrawLine, unFinishRedrawColumn);
-
- /* Now, move the cursor back to its appropriate position, if it isn't */
- /* already there. */
- ODEditUpdateCursorIfMoved(pEditInstance);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditDetermineChanged() *** PRIVATE FUNCTION ***
- *
- * Determines what portion of the edit area, within the specifiede upper and
- * lower boundary, has been changed. Area is specified as row and column
- * position of the first changed characer between boundaries, and the row
- * and column position past the last changed character between the boundaries.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * pRememberedArea - Pointer to a buffer that was filled by a
- * previous call to ODEditRememberArea().
- *
- * unUpperBoundary - The first line in the edit area to
- * consider redrawing, or
- * REDRAW_NO_BOUNDARY to specify the top of
- * the edit area.
- *
- * unLowerBoundary - The last line in the edit area to
- * consider redrawing, or
- * REDRAW_NO_BOUNDARY to specify the bottom
- * of the edit area.
- *
- * punStartRedrawLine - Output: Line of first changed character.
- *
- * punStartRedrawColumn - Output: Column of first changed char.
- *
- * punFinishRedrawLine - Output: Line of last changed character.
- *
- * punFinishRedrawColumn - Output: Column after last changed char.
- *
- * Return: TRUE if some text in the edit area has been changed, FALSE
- * if there is no change.
- */
-static BOOL ODEditDetermineChanged(tEditInstance *pEditInstance,
- void *pRememberedArea, UINT unUpperBoundary, UINT unLowerBoundary,
- UINT *punStartRedrawLine, UINT *punStartRedrawColumn,
- UINT *punFinishRedrawLine, UINT *punFinishRedrawColumn)
-{
- BOOL bFoundStart = FALSE;
- BOOL bFoundFinish = FALSE;
- UINT unDataLineOffset = 0;
- UINT unDataLineSize;
- UINT unAreaLine;
- UINT unLineLength;
- UINT unColumn;
- UINT unBufferLine;
- char *pchCurrent;
- char *pchRemembered;
-
- /* Determine the length of a single line in the remember buffer. */
- unDataLineSize = pEditInstance->unAreaWidth + 1;
-
- /* If caller specified no upper boundary, then reset upper boundary */
- /* to 0. */
- if(unUpperBoundary == REDRAW_NO_BOUNDARY) unUpperBoundary = 0;
-
- /* Likewise, iff caller specified no lower boundary, then reset the */
- /* lower boundary to the bottom of the edit area. */
- if(unLowerBoundary == REDRAW_NO_BOUNDARY)
- {
- unLowerBoundary = pEditInstance->unAreaHeight;
- }
-
- /* Loop through the area within boundaries, determining which */
- /* portion of the edit area has changed. */
- for(unBufferLine = pEditInstance->unLineScrolledToTop + unUpperBoundary,
- unAreaLine = unUpperBoundary; unAreaLine < unLowerBoundary;
- ++unAreaLine, ++unBufferLine)
- {
- /* Determine location of corresponding line in remembered data. */
- pchRemembered = (char *)pRememberedArea + unDataLineOffset
- + unDataLineSize * unAreaLine;
-
- /* If this line is not beyond the end of the buffer. */
- if(unBufferLine < pEditInstance->unLinesInBuffer)
- {
- /* Determine the start location of this buffer line. */
- pchCurrent = ODEditBufferGetCharacter(pEditInstance, unBufferLine, 0);
-
- /* Determine the length of this buffer line. */
- unLineLength = ODEditBufferGetLineLength(pEditInstance, unBufferLine);
- }
- else
- {
- pchCurrent = "";
- unLineLength = 0;
- }
-
- /* Start at the first column on this line. */
- unColumn = 0;
-
- /* Look for any characters that differ. */
- for(;; ++unColumn, ++pchCurrent, ++pchRemembered)
- {
- /* Determine if we are at the end of the remembered line. */
- BOOL bEndOfRemembered = (*pchRemembered == '\0');
-
- /* Determine if we are at the end of the current buffer line. */
- BOOL bEndOfCurrent = (unColumn == unLineLength);
-
- /* If we are at the end of either of the buffers (but not both), */
- /* or if these two characters differ, then we have found the */
- /* start of the area that must be redrawn. */
- if(!(bEndOfRemembered && bEndOfCurrent))
- {
- if(bEndOfRemembered || bEndOfCurrent
- || *pchCurrent != *pchRemembered)
- {
- if(bFoundStart)
- {
- bFoundFinish = FALSE;
- }
- else
- {
- /* We have found a character that differs. */
- bFoundStart = TRUE;
- *punStartRedrawLine = unAreaLine;
- *punStartRedrawColumn = unColumn;
- }
- }
- }
-
- /* If we have found the first changed text in the buffer, then we */
- /* are now looking for the last changed text in the buffer. */
- if(bFoundStart && !bFoundFinish)
- {
- if(*pchCurrent == *pchRemembered)
- {
- bFoundFinish = TRUE;
- *punFinishRedrawLine = unAreaLine;
- *punFinishRedrawColumn = unColumn;
- }
- else if(bEndOfRemembered)
- {
- bFoundFinish = TRUE;
- *punFinishRedrawLine = unAreaLine;
- *punFinishRedrawColumn = unLineLength;
- }
- else if(bEndOfCurrent)
- {
- bFoundFinish = TRUE;
- *punFinishRedrawLine = unAreaLine;
- *punFinishRedrawColumn = unColumn + strlen(pchRemembered);
- }
- }
-
- /* If we are at the end of either buffers. */
- if(bEndOfRemembered || bEndOfCurrent)
- {
- /* Now, proceed to processing the next line in the edit area. */
- break;
- }
- }
- }
-
- /* If we haven't found any text in the edit area that has changed. */
- if(!bFoundStart)
- {
- /* Then return indicating no change. */
- return(FALSE);
- }
-
- /* If we haven't found an end to the portion of the area that has */
- /* changed, then we must redraw up to the end of the edit area. */
- if(!bFoundFinish)
- {
- *punFinishRedrawLine = unLowerBoundary;
- *punFinishRedrawColumn = unColumn;
- }
-
- /* Return indicating that ther has been some change. */
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditRedrawSubArea() *** PRIVATE FUNCTION ***
- *
- * Redraws the portion of the edit area within the specified range. Redrawing
- * is performed from the location of the start redraw row and column, up to
- * but not includin gthe finish redraw row and column.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unStartRedrawLine - Line of first character to draw.
- *
- * unStartRedrawColumn - Column of first character to draw.
- *
- * unFinishRedrawLine - Line of last character to draw.
- *
- * unFinishRedrawColumn - Column after last character to draw.
- *
- * Return: void
- */
-static void ODEditRedrawSubArea(tEditInstance *pEditInstance,
- UINT unStartRedrawLine, UINT unStartRedrawColumn, UINT unFinishRedrawLine,
- UINT unFinishRedrawColumn)
-{
- UINT unAreaLine;
- UINT unLineLength;
- UINT unBufferLine;
- char *pchCurrent;
- UINT unStartColumn;
- UINT unFinishColumn;
- UINT unScrnStartColumn;
- UINT unTextLength;
-
- /* Now, perform actual redraw in area that requires redrawing. */
- for(unBufferLine = pEditInstance->unLineScrolledToTop + unStartRedrawLine,
- unAreaLine = unStartRedrawLine; unAreaLine <= unFinishRedrawLine;
- ++unBufferLine, ++unAreaLine)
- {
- BOOL bFirstLine = (unAreaLine == unStartRedrawLine);
- BOOL bLastLine = (unAreaLine == unFinishRedrawLine);
- UINT unScrnRow = (UINT)pEditInstance->pUserOptions->nAreaTop
- + unAreaLine;
-
- /* If this line is not beyond the end of the buffer. */
- if(unBufferLine < pEditInstance->unLinesInBuffer)
- {
- pchCurrent = ODEditBufferGetCharacter(pEditInstance, unBufferLine, 0);
- unTextLength = unLineLength =
- ODEditBufferGetLineLength(pEditInstance, unBufferLine);
- }
- else
- {
- pchCurrent = "";
- unTextLength = unLineLength = 0;
- }
-
- /* Move to the position on the first line to begin redraw. */
- if(bFirstLine)
- {
- UINT unActualRow;
- UINT unActualColumn;
- ODEditGetActualCurPos(pEditInstance, &unActualRow, &unActualColumn);
-
- unStartColumn = unStartRedrawColumn;
- unScrnStartColumn = (UINT)pEditInstance->pUserOptions->nAreaLeft
- + unStartColumn;
-
- if(unScrnRow != unActualRow || unScrnStartColumn != unActualColumn)
- {
- od_set_cursor(unScrnRow, unScrnStartColumn);
- }
-
- pchCurrent += unStartRedrawColumn;
- unTextLength -= unStartRedrawColumn;
- }
- else
- {
- unStartColumn = 0;
- unScrnStartColumn = (UINT)pEditInstance->pUserOptions->nAreaLeft;
- od_set_cursor(unScrnRow, unScrnStartColumn);
- }
-
- /* If this is the last line to redraw, then adjust accordingly. */
- if(bLastLine)
- {
- if(unFinishRedrawColumn < unLineLength)
- {
- unTextLength -= unLineLength - unFinishRedrawColumn;
- }
- unFinishColumn = unFinishRedrawColumn;
- }
- else
- {
- unFinishColumn = pEditInstance->unAreaWidth;
- }
-
- /* Output changed text. */
- if(unStartColumn < unLineLength)
- {
- od_disp(pchCurrent, unTextLength, TRUE);
- unStartColumn += unTextLength;
- }
-
- /* If we need to clear the rest of the line. */
- if(unFinishColumn == pEditInstance->unAreaWidth)
- {
- /* If right edge of edit area aligns with the right edge of the */
- /* screen. */
- if(pEditInstance->pUserOptions->nAreaRight == OD_SCREEN_WIDTH)
- {
- /* Clear the remainder of this line on the screen. */
- od_clr_line();
- }
- else
- {
- /* Place spaces after the end of the current line, up to right */
- /* edge of the edit area. */
- od_repeat(' ', (BYTE)(pEditInstance->unAreaWidth - unLineLength));
- }
- }
- else if(unStartColumn < unFinishColumn)
- {
- od_repeat(' ', (BYTE)(unFinishColumn - unStartColumn));
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditGetActualCurPos() *** PRIVATE FUNCTION ***
- *
- * Estimates the actual position of the cursor on the screen.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * punRow - Pointer to location where cursor row number
- * should be stored.
- *
- * punColumn - Pointer to location where cursor column number
- * should be stored.
- *
- * Return: void
- */
-static void ODEditGetActualCurPos(tEditInstance *pEditInstance,
- UINT *punRow, UINT *punColumn)
-{
- tODScrnTextInfo TextInfo;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(punRow != NULL);
- ASSERT(punColumn != NULL);
-
- UNUSED(pEditInstance);
-
- /* Obtain current cursor position information from the ODScrn module. */
- ODScrnGetTextInfo(&TextInfo);
- *punRow = (UINT)TextInfo.cury;
- *punColumn = (UINT)TextInfo.curx;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditIsEOLForMode() *** PRIVATE FUNCTION ***
- *
- * Determines whether the specified character should be treated as an EOL
- * character for the current mode.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: TRUE if this is an EOL character, FALSE otherwise.
- */
-static BOOL ODEditIsEOLForMode(tEditInstance *pEditInstance, char chToTest)
-{
- switch(pEditInstance->pUserOptions->TextFormat)
- {
- case FORMAT_FTSC_MESSAGE:
- return(chToTest == '\r' || chToTest == '\0');
-
- default:
- return(IS_EOL_CHAR(chToTest));
- }
-}
-
-
-
-/* ========================================================================= */
-/* Low level buffer manipulation functions. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODEditBufferFormatAndIndex() *** PRIVATE FUNCTION ***
- *
- * Regenerates the count of lines in the buffer, and the array of pointers to
- * the start of each line.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: TRUE on success, or FALSE if there is not enough memory
- * available to complete this operation.
- */
-static BOOL ODEditBufferFormatAndIndex(tEditInstance *pEditInstance)
-{
- char *pch;
- char *pchLastSpace;
- UINT unProcessingColumn;
- UINT unProcessingLine;
- BOOL bAtEndOfBuffer = FALSE;
- BOOL bLineEndedByBreak;
- BOOL bFTSCMode =
- (pEditInstance->pUserOptions->TextFormat == FORMAT_FTSC_MESSAGE);
-
- ASSERT(pEditInstance != NULL);
-
- /* Reset current line count. */
- unProcessingLine = 0;
-
- /* Begin at the beginning of the buffer to edit. */
- pch = pEditInstance->pszEditBuffer;
- ASSERT(pch != NULL);
-
- /* Loop for each line in the buffer. */
- while(!bAtEndOfBuffer)
- {
- /* In FTSC mode, skip a line if it begins with a ^A ("kludge lines"). */
- if(bFTSCMode)
- {
- /* Loop while the current line begins with a ^A. */
- while(*pch == 0x01)
- {
- /* Loop until the end of the line is found. */
- while(!ODEditIsEOLForMode(pEditInstance, *pch)) ++pch;
-
- if(*pch == '\0')
- {
- /* If the line was ended by a null character, then note that */
- /* the end of the buffer has been reached. */
- bAtEndOfBuffer = TRUE;
- }
- else
- {
- /* If the line was not ended by a null character, then skip */
- /* the end of line character. */
- ++pch;
- }
- }
-
- continue;
- }
-
- /* Add the address of the start of this line to the line array. */
-
- /* If the line array is full, then attempt to grow it. */
- ASSERT(unProcessingLine <= pEditInstance->unLineArraySize);
- if(unProcessingLine == pEditInstance->unLineArraySize)
- {
- /* Determine the size to grow the array to. */
- UINT unNewArraySize = pEditInstance->unLineArraySize
- + LINE_ARRAY_GROW_SIZE;
-
- /* Attempt to reallocate this memory block. */
- char **papchNewLineArray = (char **)realloc(
- pEditInstance->papchStartOfLine, unNewArraySize * sizeof(char *));
-
- /* If reallocation failed, then return with failure. */
- if(papchNewLineArray == NULL)
- {
- return(FALSE);
- }
-
- /* Otherwise, update the editor instance information with the new */
- /* array address and array size information. */
- pEditInstance->papchStartOfLine = papchNewLineArray;
- pEditInstance->unLineArraySize = unNewArraySize;
- }
-
- /* Add the address of the start of this line to the array. */
- pEditInstance->papchStartOfLine[unProcessingLine] = pch;
-
- /* Reset word wrap information. */
- pchLastSpace = NULL;
-
- /* Now, find the end of this line. */
- bLineEndedByBreak = TRUE;
- unProcessingColumn = 0;
- while(!ODEditIsEOLForMode(pEditInstance, *pch))
- {
- /* If this character is a space, then record the location of the */
- /* last space characters. */
- if(*pch == ' ') pchLastSpace = pch;
-
- /* Check for characters which must be filtered from the buffer */
- /* in FTSC message mode. */
- if(bFTSCMode)
- {
- if(*pch == 0x0a || ((unsigned char)*pch) == 0x8d)
- {
- /* If this character must be removed, then move rest of */
- /* buffer up by one character, and proceed to next loop */
- /* iteration. */
- memmove(pch, pch + 1, strlen(pch + 1) + 1);
- continue;
- }
- }
-
- /* Increment count of characters on this line. */
- ++unProcessingColumn;
-
- /* Check whether we have reached the maximum number of characters */
- /* that will fit on this line. */
- if(unProcessingColumn >= pEditInstance->unAreaWidth - 1)
- {
- if(pEditInstance->bWordWrapLongLines)
- {
- /* If we are to word wrap long lines, then back up to the */
- /* beginning of the last word, if we have encountered any */
- /* space characters. */
- if(pchLastSpace != NULL && pchLastSpace < pch)
- {
- /* Update current column number accordingly. */
- unProcessingColumn -= (UINT)(pch - pchLastSpace);
-
- /* Back up to position to perform word wrap at. */
- pch = pchLastSpace;
- }
- }
-
- /* If we are wrapping text where the cursor is located, then we */
- /* will have to reposition the cursor accordingly. */
- if(unProcessingLine == pEditInstance->unCurrentLine
- && unProcessingColumn < pEditInstance->unCurrentColumn)
- {
- /* Move the cursor to the next line. */
- pEditInstance->unCurrentLine++;
-
- /* Adjust the cursor column number to the position where the */
- /* corresponding wrapped text will appear. */
- pEditInstance->unCurrentColumn -= unProcessingColumn;
- }
-
- /* Note that line was not ended by en explicit line break. */
- bLineEndedByBreak = FALSE;
-
- break;
- }
-
- /* Move to the next character in the buffer. */
- ++pch;
- }
-
- /* If we the line was terminated by a '\0', then note that the end of */
- /* the buffer has been reached. */
- if(*pch == '\0')
- {
- bAtEndOfBuffer = TRUE;
- }
-
- /* If the line was not terminated by a '\0', then find the first */
- /* character of the next line. */
- else
- {
- char chFirstEOLChar = *pch;
- char chSecondEOLChar = '\0';
-
- /* Move to the next character in the buffer. */
- ++pch;
-
- /* If this character is a different EOL sequence character from the */
- /* already encountered EOL character, then skip past it too. */
- if(ODEditIsEOLForMode(pEditInstance, chFirstEOLChar) && *pch != '\0'
- && ODEditIsEOLForMode(pEditInstance, *pch)
- && *pch != chFirstEOLChar)
- {
- chSecondEOLChar = *pch;
- ++pch;
- }
-
- /* If we don't already know what form of line/paragraph break to */
- /* use (just a CR, just a LF, a CR/LF sequence or a LF/CR */
- /* sequence), then use this line termination as an example of */
- /* what should be used. */
- if(bLineEndedByBreak)
- {
- ODEditSetBreakSequence(pEditInstance, chFirstEOLChar,
- chSecondEOLChar);
- }
- }
-
- /* Increment the count of the current line number. */
- unProcessingLine++;
- }
-
- /* Update count of number of lines in the buffer, based on the number */
- /* that we have found. */
- pEditInstance->unLinesInBuffer = unProcessingLine;
-
- /* Return with success. */
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditBufferGetLineLength() *** PRIVATE FUNCTION ***
- *
- * Determines the length of the specified line in the buffer, not including
- * any line terminator characters.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unBufferLine - 0-based index of the line in question.
- *
- * Return: The number of characters on this line.
- */
-static UINT ODEditBufferGetLineLength(tEditInstance *pEditInstance,
- UINT unBufferLine)
-{
- char *pch;
- char *pchStartOfLine;
- UINT unCharsBeforeEOL;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(unBufferLine < pEditInstance->unLinesInBuffer);
- ASSERT(pEditInstance->unLinesInBuffer <= pEditInstance->unLineArraySize);
-
- /* Get the address of the start of this line in the buffer. */
- pchStartOfLine
- = ODEditBufferGetCharacter(pEditInstance, unBufferLine, 0);
-
- /* Count the number of characters before the next end of line character. */
- for(pch = pchStartOfLine, unCharsBeforeEOL = 0;
- !ODEditIsEOLForMode(pEditInstance, *pch);
- ++unCharsBeforeEOL, ++pch);
-
- /* If this is the last line in the buffer, then the number of characers */
- /* before the next end of line character is the length of this line. */
- if(unBufferLine >= pEditInstance->unLinesInBuffer - 1)
- {
- return(unCharsBeforeEOL);
- }
-
- /* If this is not the last line in the buffer, then the length of this */
- /* line is the minimum of the number of characters before the next end */
- /* of line character and the number of characters before the next line, */
- /* according to the line index information. This is because all lines */
- /* do not necessarily end with an end-of-line character. */
- else
- {
- return(MIN(unCharsBeforeEOL, (UINT)(ODEditBufferGetCharacter(
- pEditInstance, unBufferLine + 1, 0) - pchStartOfLine)));
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditBufferGetTotalLines() *** PRIVATE FUNCTION ***
- *
- * Determines the number of lines in the current edit buffer.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * Return: The total number of lines in the buffer.
- */
-static UINT ODEditBufferGetTotalLines(tEditInstance *pEditInstance)
-{
- ASSERT(pEditInstance != NULL);
- ASSERT(pEditInstance->unLinesInBuffer <= pEditInstance->unLineArraySize);
-
- /* Return the total number of lines in the buffer. */
- return(pEditInstance->unLinesInBuffer);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditBufferGetCharacter() *** PRIVATE FUNCTION ***
- *
- * Obtains the character at the specified position in the buffer.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unBufferLine - 0-based index of the line in question.
- *
- * unBufferColumn - The position in the line of the required
- * character.
- *
- * Return: A pointer to the character at the specified position in the
- * specified line. The caller can assume that any remaining
- * character(s) in the line follow this character, but should
- * not assume that the pointer can be used to access following
- * lines in the buffer.
- */
-static char *ODEditBufferGetCharacter(tEditInstance *pEditInstance,
- UINT unBufferLine, UINT unBufferColumn)
-{
- ASSERT(pEditInstance != NULL);
- ASSERT(unBufferLine < pEditInstance->unLinesInBuffer);
- ASSERT(pEditInstance->unLinesInBuffer <= pEditInstance->unLineArraySize);
- ASSERT(unBufferColumn <= ODEditBufferGetLineLength(pEditInstance, unBufferLine));
-
- /* The position of this character is the position of this line, plus */
- /* the number of characters into the line. */
- return(pEditInstance->papchStartOfLine[unBufferLine] + unBufferColumn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditBufferMakeSpace() *** PRIVATE FUNCTION ***
- *
- * Moves the remaining buffer contents by the specified distance to make room
- * for new text. The new space is filled by space (' ') characters. Does not
- * necessarily reindex the buffer before returning, and so this should be done
- * by the caller after the new buffer space has been filled.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unLine - Line number to make more room on.
- *
- * unColumn - Column number to insert the space.
- *
- * unNumChars - Number of characters to make room for.
- *
- * Return: kODRCSuccess on success, kODRCSafeFailure if we were unable to
- * obtain enough buffer space before making any changes, or
- * kODRCUnrecoverableFailure if the buffer has been changed, but
- * there was insufficient memory to re-index the buffer.
- */
-static tODResult ODEditBufferMakeSpace(tEditInstance *pEditInstance,
- UINT unLine, UINT unColumn, UINT unNumChars)
-{
- UINT unLineLength;
- UINT unBufferUsed;
- UINT unBufferUnused;
- UINT unRemainingBufferBytes;
- UINT unCount;
- char *pchBufferPos;
- tODResult Result;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(unLine < pEditInstance->unLinesInBuffer);
-
- /* Determine the current length of the specified line. */
- unLineLength = ODEditBufferGetLineLength(pEditInstance, unLine);
-
- /* If a column past the current end of this line was specified, then */
- /* adjust column and number of characters in order to extend the line */
- /* up to the specified column as well as adding space beginning at that */
- /* column. */
- if(unColumn > unLineLength)
- {
- UINT unExtendLineBy = unColumn - unLineLength;
- unColumn -= unExtendLineBy;
- unNumChars += unExtendLineBy;
- }
-
- /* Now, determine whether the buffer is large enough for the additional */
- /* space that will be added. */
- unBufferUsed = strlen(pEditInstance->pszEditBuffer) + 1;
- unBufferUnused = pEditInstance->unBufferSize - unBufferUsed;
- if(unBufferUnused < unNumChars)
- {
- /* There is not currently sufficient room in the buffer for the new */
- /* characters, then attempt to grow the buffer to make more room. */
- Result = ODEditTryToGrow(pEditInstance, unBufferUsed + unNumChars);
- if(Result != kODRCSuccess)
- {
- /* On failure, return the result code that indicates the nature */
- /* of the failure. */
- return(Result);
- }
- }
-
- /* Now, shift the buffer contents from this location forward by */
- /* unNumChars characters. */
- pchBufferPos = ODEditBufferGetCharacter(pEditInstance, unLine, unColumn);
- unRemainingBufferBytes = strlen(pchBufferPos) + 1;
- memmove(pchBufferPos + unNumChars, pchBufferPos, unRemainingBufferBytes);
-
- /* Next, we fill the new buffer area with space characters. */
- for(unCount = 0; unCount < unNumChars; ++unCount)
- {
- *pchBufferPos++ = ' ';
- }
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEditTryToGrow() *** PRIVATE FUNCTION ***
- *
- * Attempts to reallocate the buffer to a larger size. This function is called
- * if it is found that the current buffer isn't large enough to complete some
- * operation. If the client application has setup the editor to permit buffer
- * reallocation, then this function will call the realloc callback function
- * supplied by the client application. If buffer growing is not possible, then
- * this function automatically fails.
- *
- * Parameters: pEditInstance - Editor instance information structure.
- *
- * unSizeNeeded - The minimum buffer size that is needed.
- *
- * Return: kODRCSuccess on success, kODRCSafeFailure if we were unable to
- * obtain enough buffer space before making any changes, or
- * kODRCUnrecoverableFailure if the buffer has been changed, but
- * there was insufficient memory to re-index the buffer.
- */
-static tODResult ODEditTryToGrow(tEditInstance *pEditInstance,
- UINT unSizeNeeded)
-{
- BOOL bFullReIndexRequired = FALSE;
-
- ASSERT(pEditInstance != NULL);
- ASSERT(unSizeNeeded > pEditInstance->unBufferSize);
-
- if(pEditInstance->pUserOptions->pfBufferRealloc != NULL)
- {
- /* If the buffer is growable, then attempt to grow it using the */
- /* realloc function provided by the client application. */
- UINT unNewBufferSize = MAX(pEditInstance->unBufferSize
- + BUFFER_GROW_SIZE, unSizeNeeded);
- char *pszNewBuffer = (char *)((*pEditInstance->pUserOptions->
- pfBufferRealloc)(pEditInstance->pszEditBuffer, unNewBufferSize));
-
- /* If we were unable to grow the buffer, then fail now. At this */
- /* point, nothing has changed, and so the buffer information */
- /* is still intact and valid. */
- if(pszNewBuffer == NULL)
- {
- return(kODRCSafeFailure);
- }
-
- /* Otherwise, determine whether the entire buffer will now have to */
- /* be reindexed. This is necessary if the reallocated buffer is at */
- /* a new location than the original was. */
- if(pszNewBuffer != pEditInstance->pszEditBuffer)
- {
- bFullReIndexRequired = TRUE;
- }
-
- /* Now, store the new buffer pointer and buffer size information. */
- pEditInstance->pszEditBuffer = pszNewBuffer;
- pEditInstance->unBufferSize = unNewBufferSize;
- }
- else
- {
- /* If the buffer is not growable, then fail right away. */
- return(kODRCSafeFailure);
- }
-
- /* If a full reindex is required due to buffer reallocation, then do so. */
- if(bFullReIndexRequired)
- {
- if(!ODEditBufferFormatAndIndex(pEditInstance))
- {
- /* If this fails, then return with failure. */
- return(kODRCUnrecoverableFailure);
- }
- bFullReIndexRequired = FALSE;
- }
-
- /* If we get to this point, we suceeded in growing the buffer to the */
- /* required size, so return with success. */
- return(kODRCSuccess);
-}
diff --git a/src/odoors/ODEmu.c b/src/odoors/ODEmu.c
deleted file mode 100644
index 6cc063d4f153aab2fbed8d528ab4925de5f7cb85..0000000000000000000000000000000000000000
--- a/src/odoors/ODEmu.c
+++ /dev/null
@@ -1,2212 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODEmu.c
- *
- * Description: Code for the TTY/ANSI/AVATAR terminal emulation routines,
- * including .ASC/.ANS/.AVT/.RIP file display functions.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Jun 07, 1995 6.00 BP Added od_emu_simulate_modem.
- * Jul 18, 1995 6.00 BP Fixed warning in call to _ulongdiv().
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 15, 1995 6.00 BP Terminal emulation speed optimization.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 24, 1995 6.00 BP Use od_connect_speed for modem sim.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 21, 1996 6.00 BP Use ODScrnShowMessage().
- * Jan 09, 1996 6.00 BP ODComOutbound() returns actual size.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Prevent TC generated N_LXMUL@ call.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Oct 18, 2001 6.11 MD Added od_send_file_section()
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <ctype.h>
-#include <string.h>
-#include <stdarg.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODCom.h"
-#include "ODTypes.h"
-#include "ODScrn.h"
-#include "ODKrnl.h"
-#include "ODUtil.h"
-
-
-/* Manifest constants. */
-#define MODEM_SIMULATOR_TICK 54L
-
-#define LEVEL_NONE 0
-#define LEVEL_ASCII 1
-#define LEVEL_ANSI 2
-#define LEVEL_AVATAR 3
-#define LEVEL_RIP 4
-
-
-/* Local helper function prototypes. */
-static void ODEmulateFromBuffer(char *pszBuffer, BOOL bRemoteEcho);
-static FILE *ODEmulateFindCompatFile(char *pszBaseName, INT *pnLevel);
-static void ODEmulateFillArea(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom, char chToFillWith);
-
-
-/* Current terminal emulator state variables. */
-static BYTE btANSISeqLevel = 0;
-static INT anANSIParams[10];
-static char szCurrentParam[4] = "";
-static BYTE btCurrentParamLength;
-static BYTE btSavedColumn=1;
-static BYTE btSavedRow = 1;
-static char szToRepeat[129];
-static BYTE btRepeatCount;
-static BYTE btAvatarSeqLevel = 0;
-static char chPrevParam;
-static BYTE btNumParams;
-static BYTE btDefaultAttrib = 7;
-static BOOL bAvatarInsertMode = FALSE;
-static INT8 btScrollLines;
-static BYTE btScrollLeft, btScrollTop, btScrollRight, btScrollBottom;
-
-/* Variables for tracking hotkeys while displaying a menu file. */
-static char *pszCurrentHotkeys=NULL;
-static char chHotkeyPressed;
-
-/* Lookup table to map colors from ANSI values to PC color values. */
-static BYTE abtANSIToPCColorTable[8] = {0, 4, 2, 6, 1, 5, 3, 7};
-
-
-/* ----------------------------------------------------------------------------
- * od_hotkey_menu()
- *
- * Displays a .ASC/.ANS/.AVT/.RIP file, just as od_send_file() does. However,
- * unlike od_send_file(), od_hotkey_menu() also allows checks for keypresses
- * by the user. If any of the hotkeys listed in pszHotKeys are pressed while
- * the file is being displayed, or after the file has finished being displayed,
- * od_hotkey_menu() will return this value to the caller. This allows menu
- * screens to be easily displayed from on-disk files, while permitting the user
- * to choose a menu item at any time.
- *
- * Parameters: pszFileName - Pointer to the filename to display.
- *
- * pszHotKeys - Pointer to a string listing the valid keys.
- * Keys are not case sensitive.
- *
- * bWait - If TRUE, od_hotkey_menu() will not return until
- * the user presses one of the valid keys. If FALSE,
- * then od_hotkey_menu() will return as soon as it
- * has finished displaying the file, even if the
- * user has not pressed any key;.
- *
- * Return: The key pressed by the user, or '\0' if no key was pressed.
- */
-ODAPIDEF char ODCALL od_hotkey_menu(char *pszFileName, char *pszHotKeys,
- BOOL bWait)
-{
- char chPressed;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_hotkey_menu()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- if(!pszHotKeys)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return('\0');
- }
-
- /* Store pointer to string of hotkeys in global hotkey array for access */
- /* from od_send_file(). */
- pszCurrentHotkeys = (char *)pszHotKeys;
-
- /* Clear the hotkey status variable. */
- chHotkeyPressed = '\0';
-
- /* Display the menu file using od_send_file() primitive. */
- if(!od_send_file(pszFileName))
- {
- OD_API_EXIT();
- return('\0');
- }
-
- /* Clear the global hotkey array. */
- pszCurrentHotkeys = NULL;
-
- /* If the file display was interrupted by the pressing of one of the */
- /* hotkeys, return the pressed hotkey immediately. */
- if(chHotkeyPressed != '\0')
- {
- OD_API_EXIT();
- return(chHotkeyPressed);
- }
-
- /* If no hotkey has been pressed key, and the wait flag has been set, */
- /* wait for the user to press a valid hotkey. */
- if(bWait)
- {
- /* Wait for a valid hotkey using the od_get_answer() primitive. */
- chPressed = od_get_answer(pszHotKeys);
-
- /* If a remote user is connected on this node. */
- if(od_control.baud)
- {
- /* Clear the outbound buffer. */
- ODComClearOutbound(hSerialPort);
- }
-
- /* Return the hotkey pressed by the user. */
- OD_API_EXIT();
- return(chPressed);
- }
-
- /* No hotkey has been pressed, so return 0. */
- /* (Since 0 is used to terminate the string of valid hotkeys, it can */
- /* never be a valid hotkey itself, and is therefore a safe value to */
- /* indicate the "no key press" state.) */
- OD_API_EXIT();
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_send_file()
- *
- * Displays a .ASC/.ANS/.AVT/.RIP file to the local and remote screens. If
- * OpenDoors is unable to display the required file format locally, an
- * equivalent file that is locally displayable is selected. If no such
- * equivalent file can be found, then a message box is displayed, indicating
- * that the file is being transmitted to the remote system.
- *
- * Parameters: pszFileName - The name of the file to send. This parameter may
- * explicitly specify the full filename and
- * extension, or the extension may be omitted. In the
- * case that the extension is omitted, this function
- * automatically selects the appropriate file type
- * for the current display mode (RIP, ANSI, etc.).
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_send_file(char *pszFileName)
-{
- FILE *pfRemoteFile;
- FILE *pfLocalFile = NULL;
- BOOL bAnythingLocal = TRUE;
- void *pWindow;
- INT nFileLevel;
- BYTE btCount;
- BOOL bPausing;
- char chKey;
- char *pchParsing;
- char szMessage[74];
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_send_file()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- if(!pszFileName)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Initialize local variables. */
- btCount = 2;
-
- /* Turn on page pausing, if available. */
- bPausing = od_control.od_page_pausing;
-
- /* If operating in auto-filename mode (no extension specified). */
- if(strchr(pszFileName, '.') == NULL)
- {
- /* Begin by searching for a .RIP file. */
- nFileLevel = LEVEL_RIP;
-
- /* If no .ASC/.ANS/.AVT/.RIP file. */
- if((pfRemoteFile = ODEmulateFindCompatFile(pszFileName, &nFileLevel))
- == NULL)
- {
- /* Then return with an error. */
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* If the file found was a .RIP. */
- if(nFileLevel == LEVEL_RIP)
- {
- /* Search for file to display locally. */
- nFileLevel = LEVEL_AVATAR;
-
- /* No page pausing with .RIP display. */
- bPausing = FALSE;
-
- if((pfLocalFile = ODEmulateFindCompatFile(pszFileName, &nFileLevel))
- == NULL)
- {
- /* If there is no further .ASC/.ANS/.AVT/.RIP files, then no */
- /* local display. */
- bAnythingLocal = FALSE;
- }
- }
- else if(nFileLevel == LEVEL_NONE)
- {
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Get filename of remote file. */
- strcpy(szODWorkString, pszFileName);
- strcat(szODWorkString, ".rip");
- strupr(szODWorkString);
- }
- else
- {
- /* If the full filename was specified, then attempt to open that file. */
- if((pfRemoteFile = fopen(pszFileName,"rb")) == NULL)
- {
- /* If unable to open file, then return. */
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- strcpy(szODWorkString, pszFileName);
- strupr(szODWorkString);
-
- if(strstr(szODWorkString, ".rip"))
- {
- /* No page pausing during .RIP display. */
- bPausing = FALSE;
-
- /* Disable local display. */
- bAnythingLocal = FALSE;
- }
- }
-
- /* Set default colour to grey on black. */
- btDefaultAttrib = 0x07;
-
- /* Reset all terminal emulation. */
- btAvatarSeqLevel = 0;
- btANSISeqLevel = 0;
-
- /* Turn off AVATAR insert mode. */
- bAvatarInsertMode = FALSE;
-
- /* Reset [S]top/[P]ause control key status. */
- chLastControlKey = 0;
-
- if(!bAnythingLocal)
- {
- strcpy(szODWorkString, od_control.od_sending_rip);
- strcat(szODWorkString, pszFileName);
- ODStringCopy(szMessage, szODWorkString, sizeof(szMessage));
-
- pWindow = ODScrnShowMessage(szMessage, 0);
- }
-
- /* Loop to display each line in the file(s) with page pausing, etc. */
- for(;;)
- {
- /* Call the OpenDoors kernel routine. */
- CALL_KERNEL_IF_NEEDED();
-
- /* If hotkeys are active. */
- if(pszCurrentHotkeys != NULL)
- {
- /* If a key is waiting in buffer. */
- while((chKey = (char)tolower(od_get_key(FALSE))) != 0)
- {
- /* Check for key in hotkey string. */
- pchParsing = (char *)pszCurrentHotkeys;
- while(*pchParsing)
- {
- /* If key is found. */
- if(tolower(*pchParsing) == chKey)
- {
- /* Return, indicating that hotkey was pressed. */
- chHotkeyPressed = *pchParsing;
- goto abort_send;
- }
- ++pchParsing;
- }
- }
- }
-
- /* If a control key has been pressed. */
- if(chLastControlKey)
- {
- switch(chLastControlKey)
- {
- /* If it was a stop control key. */
- case 's':
- if(od_control.od_list_stop)
- {
- /* If enabled, clear keyboard buffer. */
-abort_send:
- /* If operating in remote mode. */
- if(od_control.baud)
- {
- /* Clear the outbound FOSSIL buffer. */
- ODComClearOutbound(hSerialPort);
- }
-
- /* Return from function. */
- goto end_transmission;
- }
- break;
-
- /* If control key was "pause". */
- case 'p':
- /* If pause is enabled. */
- if(od_control.od_list_pause)
- {
- /* Clear keyboard buffer. */
- od_clear_keybuffer();
-
- /* Wait for any keypress. */
- od_get_key(TRUE);
- }
- }
-
- /* Clear control key status. */
- chLastControlKey = 0;
- }
-
- /* Get next line, if any. */
- if(fgets(szODWorkString, 256, pfRemoteFile) == NULL)
- {
- /* If different local file. */
- if(pfLocalFile)
- {
- /* Display rest of it. */
- while(fgets(szODWorkString, 256, pfLocalFile))
- {
- /* Pass each line to terminal emulator. */
- ODEmulateFromBuffer(szODWorkString, FALSE);
- }
- }
-
- /* Return from od_send_file(). */
- goto end_transmission;
- }
-
- /* Set parsepos = last char in globworkstr. */
- pchParsing = (char *)&szODWorkString;
- while(*++pchParsing) ;
- --pchParsing;
-
- /* Check for end of page state. */
- if((*pchParsing == '\r' || *pchParsing == '\n') &&
- ++btCount >= od_control.user_screen_length && bPausing)
- {
- /* Display page pause prompt. */
- if(ODPagePrompt(&bPausing))
- {
- /* If user chose to abort, then return from od_send_file(). */
- goto end_transmission;
- }
-
- /* Reset line count. */
- btCount = 2;
- }
-
-
- /* If the file is also to be displayed locally. */
- if(bAnythingLocal)
- {
- /* If the local file is different from the remote file, then obtain */
- /* the next line from the local file. */
- if(pfLocalFile)
- {
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
-
- if(fgets(szODWorkString, 256, pfLocalFile) == NULL)
- {
- while(fgets(szODWorkString, 256, pfRemoteFile))
- {
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
- }
-
- /* Return from od_send_file(). */
- goto end_transmission;
- }
-
- ODEmulateFromBuffer(szODWorkString, FALSE);
- }
- else
- {
- /* Pass the string through the local terminal emulation */
- /* system, and send a copy to the remote system. */
- if(od_control.od_no_ra_codes)
- {
- ODEmulateFromBuffer(szODWorkString, FALSE);
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
- }
- else
- {
- ODEmulateFromBuffer(szODWorkString,TRUE);
- }
- }
- }
- else
- {
- /* If the file is not being displayed locally, then just send the */
- /* entire line to the remote system (if any). */
- od_disp(szODWorkString,strlen(szODWorkString),FALSE);
- }
- }
-
-end_transmission:
-
- /* Close remote file. */
- fclose(pfRemoteFile);
-
- /* If there is a different local file, then close it too. */
- if(pfLocalFile)
- {
- fclose(pfLocalFile);
- }
-
- /* If we are not displaying anything on the local system. */
- if(!bAnythingLocal)
- {
- /* Wait while file is being sent. */
- if(od_control.baud != 0)
- {
- int nOutboundSize;
- do
- {
- CALL_KERNEL_IF_NEEDED();
- ODComOutbound(hSerialPort, &nOutboundSize);
- } while(nOutboundSize != 0);
- }
-
- /* Get rid of the window. */
- ODScrnRemoveMessage(pWindow);
- }
-
- OD_API_EXIT();
- return(TRUE);
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * od_send_file_section()
- *
- * Displays a .ASC/.ANS/.AVT/.RIP multi-section file to the local and remote
- * screens. If OpenDoors is unable to display the required file format locally,
- * an equivalent file that is locally displayable is selected. If no such
- * equivalent file can be found, then a message box is displayed, incdicating
- * that the file is being transmitted to the remote system.
- *
- * Note: This function works virtually identical to od_send_file() except it
- * checks for the section headers (if found).
- *
- * Parameters: pszFileName - The name of the file to send. This parameter may
- * explicitly specify the full filename and
- * extension, or the extension may be omitted. In the
- * case that the extension is omitted, this function
- * automatically selects the appropriate file type
- * for the current display mode (RIP, ANSI, etc.).
- * pszSectionname - Name of the section in which to send. This
- * parameter must include only the section name
- * and not the @# delimiter.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_send_file_section(char *pszFileName, char *pszSectionName)
-{
- FILE *pfRemoteFile;
- FILE *pfLocalFile = NULL;
- BOOL bAnythingLocal = TRUE;
- void *pWindow;
- INT nFileLevel;
- BYTE btCount;
- BOOL bPausing;
- char chKey;
- char *pchParsing;
- char szMessage[74];
- char szFullSectionName[256];
- BOOL bSectionFound = FALSE;
- UINT uSectionNameLength;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_send_file_section()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- if(!pszFileName || !pszSectionName)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Initialize local variables. */
- btCount = 2;
-
- /* Turn on page pausing, if available. */
- bPausing = od_control.od_page_pausing;
-
- /* If operating in auto-filename mode (no extension specified). */
- if(strchr(pszFileName, '.') == NULL)
- {
- /* Begin by searching for a .RIP file. */
- nFileLevel = LEVEL_RIP;
-
- /* If no .ASC/.ANS/.AVT/.RIP file. */
- if((pfRemoteFile = ODEmulateFindCompatFile(pszFileName, &nFileLevel))
- == NULL)
- {
- /* Then return with an error. */
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* If the file found was a .RIP. */
- if(nFileLevel == LEVEL_RIP)
- {
- /* Search for file to display locally. */
- nFileLevel = LEVEL_AVATAR;
-
- /* No page pausing with .RIP display. */
- bPausing = FALSE;
-
- if((pfLocalFile = ODEmulateFindCompatFile(pszFileName, &nFileLevel))
- == NULL)
- {
- /* If there is no further .ASC/.ANS/.AVT/.RIP files, then no */
- /* local display. */
- bAnythingLocal = FALSE;
- }
- }
- else if(nFileLevel == LEVEL_NONE)
- {
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Get filename of remote file. */
- strcpy(szODWorkString, pszFileName);
- strcat(szODWorkString, ".rip");
- strupr(szODWorkString);
- }
- else
- {
- /* If the full filename was specified, then attempt to open that file. */
- if((pfRemoteFile = fopen(pszFileName,"rb")) == NULL)
- {
- /* If unable to open file, then return. */
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- strcpy(szODWorkString, pszFileName);
- strupr(szODWorkString);
-
- if(strstr(szODWorkString, ".rip"))
- {
- /* No page pausing during .RIP display. */
- bPausing = FALSE;
-
- /* Disable local display. */
- bAnythingLocal = FALSE;
- }
- }
-
- /* Set default colour to grey on black. */
- btDefaultAttrib = 0x07;
-
- /* Reset all terminal emulation. */
- btAvatarSeqLevel = 0;
- btANSISeqLevel = 0;
-
- /* Turn off AVATAR insert mode. */
- bAvatarInsertMode = FALSE;
-
- /* Reset [S]top/[P]ause control key status. */
- chLastControlKey = 0;
-
- if(!bAnythingLocal)
- {
- strcpy(szODWorkString, od_control.od_sending_rip);
- strcat(szODWorkString, pszFileName);
- ODStringCopy(szMessage, szODWorkString, sizeof(szMessage));
-
- pWindow = ODScrnShowMessage(szMessage, 0);
- }
-
- /* Create section name information */
- strcpy(szFullSectionName, "@#");
- strncat(szFullSectionName, pszSectionName, 254);
-
- /* Get the length of the section name in it's full form */
- uSectionNameLength = strlen(szFullSectionName);
-
- /* Loop to display each line in the file(s) with page pausing, etc. */
- for(;;)
- {
- /* Call the OpenDoors kernel routine. */
- CALL_KERNEL_IF_NEEDED();
-
- /* If hotkeys are active. */
- if(pszCurrentHotkeys != NULL)
- {
- /* If a key is waiting in buffer. */
- while((chKey = (char)tolower(od_get_key(FALSE))) != 0)
- {
- /* Check for key in hotkey string. */
- pchParsing = (char *)pszCurrentHotkeys;
- while(*pchParsing)
- {
- /* If key is found. */
- if(tolower(*pchParsing) == chKey)
- {
- /* Return, indicating that hotkey was pressed. */
- chHotkeyPressed = *pchParsing;
- goto abort_send;
- }
- ++pchParsing;
- }
- }
- }
-
- /* If a control key has been pressed. */
- if(chLastControlKey)
- {
- switch(chLastControlKey)
- {
- /* If it was a stop control key. */
- case 's':
- if(od_control.od_list_stop)
- {
- /* If enabled, clear keyboard buffer. */
-abort_send:
- /* If operating in remote mode. */
- if(od_control.baud)
- {
- /* Clear the outbound FOSSIL buffer. */
- ODComClearOutbound(hSerialPort);
- }
-
- /* Return from function. */
- goto end_transmission;
- }
- break;
-
- /* If control key was "pause". */
- case 'p':
- /* If pause is enabled. */
- if(od_control.od_list_pause)
- {
- /* Clear keyboard buffer. */
- od_clear_keybuffer();
-
- /* Wait for any keypress. */
- od_get_key(TRUE);
- }
- }
-
- /* Clear control key status. */
- chLastControlKey = 0;
- }
-
- /* Get next line, if any. */
- if(fgets(szODWorkString, 256, pfRemoteFile) == NULL)
- {
- /* If different local file. */
- if(pfLocalFile)
- {
- /* Display rest of it. */
- while(fgets(szODWorkString, 256, pfLocalFile))
- {
- if (!bSectionFound && strncmp(szFullSectionName, szODWorkString, uSectionNameLength) == 0)
- {
- /* Section Found, allow all lines up to EOF or new section to be displayed */
- bSectionFound = TRUE;
- /* Read next line, ignore the section line */
- continue;
- }
- else if (!bSectionFound)
- {
- /* Section not found yet, continue loop */
- continue;
- }
- else if (bSectionFound && strncmp(szODWorkString, "@#", 2) == 0)
- {
- /* New Section Intercepted */
- goto end_transmission;
- }
- /* Pass each line to terminal emulator. */
- ODEmulateFromBuffer(szODWorkString, FALSE);
- }
- }
-
- /* Return from od_send_file(). */
- goto end_transmission;
- }
-
- /* Check for section header @# + pszSectionName */
- if (!bSectionFound && strncmp(szFullSectionName, szODWorkString, uSectionNameLength) == 0)
- {
- /* Flag the section as found */
- bSectionFound = TRUE;
- /* Read next line, ignore section line */
- continue;
- }
- else if (!bSectionFound)
- {
- /* Section hasn't been found yet */
- continue;
- }
- else if (bSectionFound && strncmp(szODWorkString, "@#", 2) == 0)
- {
- /* New section found, terminate send */
- goto end_transmission;
- }
-
- /* Set parsepos = last char in globworkstr. */
- pchParsing = (char *)&szODWorkString;
- while(*++pchParsing) ;
- --pchParsing;
-
- /* Check for end of page state. */
- if((*pchParsing == '\r' || *pchParsing == '\n') &&
- ++btCount >= od_control.user_screen_length && bPausing)
- {
- /* Display page pause prompt. */
- if(ODPagePrompt(&bPausing))
- {
- /* If user chose to abort, then return from od_send_file(). */
- goto end_transmission;
- }
-
- /* Reset line count. */
- btCount = 2;
- }
-
-
- /* If the file is also to be displayed locally. */
- if(bAnythingLocal)
- {
- /* If the local file is different from the remote file, then obtain */
- /* the next line from the local file. */
- if(pfLocalFile)
- {
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
-
- if(fgets(szODWorkString, 256, pfLocalFile) == NULL)
- {
- while(fgets(szODWorkString, 256, pfRemoteFile))
- {
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
- }
-
- /* Return from od_send_file(). */
- goto end_transmission;
- }
-
- ODEmulateFromBuffer(szODWorkString, FALSE);
- }
- else
- {
- /* Pass the string through the local terminal emulation */
- /* system, and send a copy to the remote system. */
- if(od_control.od_no_ra_codes)
- {
- ODEmulateFromBuffer(szODWorkString, FALSE);
- od_disp(szODWorkString, strlen(szODWorkString), FALSE);
- }
- else
- {
- ODEmulateFromBuffer(szODWorkString,TRUE);
- }
- }
- }
- else
- {
- /* If the file is not being displayed locally, then just send the */
- /* entire line to the remote system (if any). */
- od_disp(szODWorkString,strlen(szODWorkString),FALSE);
- }
- }
-
-end_transmission:
-
- /* Close remote file. */
- fclose(pfRemoteFile);
-
- /* If there is a different local file, then close it too. */
- if(pfLocalFile)
- {
- fclose(pfLocalFile);
- }
-
- /* If we are not displaying anything on the local system. */
- if(!bAnythingLocal)
- {
- /* Wait while file is being sent. */
- if(od_control.baud != 0)
- {
- int nOutboundSize;
- do
- {
- CALL_KERNEL_IF_NEEDED();
- ODComOutbound(hSerialPort, &nOutboundSize);
- } while(nOutboundSize != 0);
- }
-
- /* Get rid of the window. */
- ODScrnRemoveMessage(pWindow);
- }
-
- /* If the section was not found, return FALSE for error */
- if (!bSectionFound)
- {
- OD_API_EXIT();
- return (FALSE);
- }
-
- OD_API_EXIT();
- return(TRUE);
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * ODEmulateFindCompatFile() *** PRIVATE FUNCTION ***
- *
- * Searches for an .ASC/.ANS/.AVT/.RIP file that is compatible with the
- * specified display capabilities level.
- *
- * Parameters: pszBaseName - Base filename to use.
- *
- * pnLevel - Highest file level to search for. This value is
- * updated to indicate the type of file found.
- *
- * Return: A pointer to a now-open file of the required type, or NULL if
- * no match was found.
- */
-static FILE *ODEmulateFindCompatFile(char *pszBaseName, INT *pnLevel)
-{
- FILE *pfCompatibleFile;
-
- ASSERT(pszBaseName != NULL);
- ASSERT(pnLevel != NULL);
- ASSERT(*pnLevel >= 0 && *pnLevel <= 4);
-
- /* Loop though .RIP/.AVT/.ANS/.ASC extensions. */
- for(;*pnLevel > LEVEL_NONE; --*pnLevel)
- {
- /* Get base-filename passed in. */
- strcpy(szODWorkString, pszBaseName);
-
- /* Try current extension. */
- switch(*pnLevel)
- {
- case LEVEL_RIP:
- if(!od_control.user_rip) continue;
- strcat(szODWorkString, ".rip");
- break;
-
- case LEVEL_AVATAR:
- if(!od_control.user_avatar) continue;
- strcat(szODWorkString, ".avt");
- break;
-
- case LEVEL_ANSI:
- if(!od_control.user_ansi) continue;
- strcat(szODWorkString, ".ans");
- break;
-
- case LEVEL_ASCII:
- strcat(szODWorkString, ".asc");
- break;
- }
-
- /* If we are able to open this file, then return a pointer to */
- /* the file. */
- if((pfCompatibleFile = fopen(szODWorkString,"rb")) != NULL)
- return(pfCompatibleFile);
- }
-
- /* Return NULL if no file was found. */
- return(NULL);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_disp_emu()
- *
- * Sends an entire string to both local and remote systems. The characters
- * displayed locally are fed through the local terminal emulation sub-system,
- * allowing aribtrary ANSI/AVATAR control sequences to be displayed both
- * locally and remotely.
- *
- * Parameters: pszToDisplay - Pointer to string to display.
- *
- * bRemoteEcho - TRUE if characters should also be transmitted
- * to the remote system.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_disp_emu(char *pszToDisplay, BOOL bRemoteEcho)
-{
- BOOL bTranslateRemote;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_disp_emu()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Send pszToDisplay to remote system. */
- if(bRemoteEcho)
- {
- if(od_control.od_no_ra_codes)
- {
- od_disp(pszToDisplay, strlen(pszToDisplay), FALSE);
- bTranslateRemote = FALSE;
- }
- else
- {
- bTranslateRemote = TRUE;
- }
- }
- else
- {
- bTranslateRemote = FALSE;
- }
-
- /* Pass string to be emulated to local terminal emulation function. */
- ODEmulateFromBuffer(pszToDisplay, bTranslateRemote);
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_emulate()
- *
- * Sends a single character to both local and remote systems. The characters
- * displayed locally are fed through the local terminal emulation sub-system,
- * allowing aribtrary ANSII/AVATAR control sequences to be displayed both
- * locally and remotely.
- *
- * Parameters: chToEmulate - Character to feed through the terminal emulator.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_emulate(char chToEmulate)
-{
- static char szBuffer[2];
-
- *szBuffer = chToEmulate;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_emulate()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Pass character to be emulated to local terminal emulation function. */
- ODEmulateFromBuffer(szBuffer, TRUE);
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEmulateFromBuffer() *** PRIVATE FUNCTION ***
- *
- * Displays a string on the local screen, interpreting any terminal emulation
- * control sequences. The string may also be sent to the remote system at the
- * same time.
- *
- * Parameters: pszBuffer - Pointer to the string to transmit.
- *
- * bRemoteEcho - TRUE if string should also be sent to the remote
- * system, FALSE if it should not be.
- *
- * Return: void
- */
-static void ODEmulateFromBuffer(char *pszBuffer, BOOL bRemoteEcho)
-{
- char chCurrent;
- static tODScrnTextInfo TextInfo;
- INT nTemp;
- BOOL bEchoThisChar;
- INT nCharsPerTick;
- INT nCharsThisTick;
- tODTimer ModemSimTimer;
-
- ASSERT(pszBuffer != NULL);
-
- /* If we should simulate modem transmission speed. */
- if(od_control.od_emu_simulate_modem)
- {
- DWORD lCharsPerSecond;
-
- /* Determine character per second rate to simulate. */
- if(od_control.baud == 0)
- {
- lCharsPerSecond = 960L;
- }
- else
- {
- ODDWordDivide(&lCharsPerSecond, (DWORD *)NULL,
- od_control.od_connect_speed, 10L);
- }
-
- /* Determine number of characters to send per timer tick. */
- lCharsPerSecond = ODDWordMultiply(lCharsPerSecond, MODEM_SIMULATOR_TICK);
- ODDWordDivide(&lCharsPerSecond, (DWORD *)NULL, lCharsPerSecond, 1000L);
- nCharsPerTick = (INT)lCharsPerSecond;
-
- /* Start tick timer. */
- ODTimerStart(&ModemSimTimer, MODEM_SIMULATOR_TICK);
-
- /* Reset number of characters that we have sent during this tick. */
- nCharsThisTick = 0;
- }
-
- while(*pszBuffer)
- {
- /* Read the next character from the buffer into local variable for */
- /* access speed efficiency. */
- chCurrent = *pszBuffer;
-
- /* If we should simulate modem transmission speed. */
- if(od_control.od_emu_simulate_modem)
- {
- /* If we have now sent all of the characters that should be sent */
- /* during this tick. */
- if(nCharsThisTick++ >= nCharsPerTick)
- {
- /* Wait for timer to elapse. */
- ODTimerWaitForElapse(&ModemSimTimer);
-
- /* Restart tick timer. */
- ODTimerStart(&ModemSimTimer, MODEM_SIMULATOR_TICK);
-
- /* Reset characters sent in this tick. */
- nCharsThisTick = 0;
- }
- }
-
- bEchoThisChar = bRemoteEcho;
-
- /* Switch according to ANSI emulator state. */
- switch(btANSISeqLevel)
- {
- /* If we are not in the middle of an ANSI command string. */
- case 0:
- /* Switch according to current character. */
- switch(chCurrent)
- {
- /* If this is the escape character. */
- case 27:
- /* If we are not in the middle of an AVATAR sequence. */
- if(btAvatarSeqLevel == 0)
- {
- /* Then treat this as the start an ANSI sequence. */
- btANSISeqLevel = 1;
- break;
- }
-
- /* Deliberate fallthrough to default case. */
-
- /* If not start of an ANSI sequence. */
- default:
- /* Check our position in AVATAR sequence. */
- switch(btAvatarSeqLevel)
- {
- /* If not in middle of an AVATAR command. */
- case 0:
- /* Check the character we've been sent. */
- switch(chCurrent)
- {
- /* Check for QBBS/RA pause for keypress code. */
- case 0x01:
- if(od_control.od_no_ra_codes)
- {
- goto output_next_char;
- }
-
- /* Wait for user to press [ENTER] key. */
- od_get_answer("\n\r");
- bEchoThisChar = FALSE;
- break;
-
- /* QBBS/RA ^F user parameters. */
- case 0x06:
- if(od_control.od_no_ra_codes)
- {
- goto output_next_char;
- }
- btAvatarSeqLevel = 21;
- bEchoThisChar = FALSE;
- break;
-
- /* QBBS/RA ^K user parameters. */
- case 0x0b:
- if(od_control.od_no_ra_codes)
- {
- goto output_next_char;
- }
- btAvatarSeqLevel = 22;
- bEchoThisChar = FALSE;
- break;
-
- case 0x0c:
- bAvatarInsertMode = FALSE;
- ODScrnSetAttribute((BYTE)(
- od_control.od_cur_attrib = btDefaultAttrib));
- ODScrnClear();
- break;
-
- case 0x19:
- bAvatarInsertMode = FALSE;
- btAvatarSeqLevel = 1;
- break;
-
- case 0x16: /* ^V */
- btAvatarSeqLevel = 3;
- break;
-
- default:
- output_next_char:
- /* Output next character. */
- if(bAvatarInsertMode)
- {
- ODScrnGetTextInfo(&TextInfo);
- if(TextInfo.curx < 80)
- {
- ODScrnCopyText(TextInfo.curx,
- TextInfo.cury, 79, TextInfo.cury,
- (BYTE)(TextInfo.curx + 1),
- TextInfo.cury);
- }
- ODScrnDisplayChar(chCurrent);
- }
-
- else
- {
- ODScrnDisplayChar(chCurrent);
- }
- }
- break;
-
- case 1:
- bAvatarInsertMode = FALSE;
- chPrevParam = chCurrent;
- btAvatarSeqLevel = 2;
- break;
-
- case 2:
- for(nTemp = 0; nTemp < (INT)chCurrent;
- ++nTemp)
- {
- ODScrnDisplayChar(chPrevParam);
- }
- btAvatarSeqLevel = 0;
- break;
-
- case 3:
- switch(chCurrent)
- {
- case 0x01:
- bAvatarInsertMode = FALSE;
- btAvatarSeqLevel = 4;
- break;
-
- case 0x02:
- bAvatarInsertMode = FALSE;
- ODScrnGetTextInfo(&TextInfo);
- ODScrnSetAttribute((BYTE)
- (od_control.od_cur_attrib =
- TextInfo.attribute | 0x80));
- btAvatarSeqLevel = 0;
- break;
-
- case 0x03:
- bAvatarInsertMode = FALSE;
- ODScrnGetTextInfo(&TextInfo);
- if(TextInfo.cury > 1)
- {
- ODScrnSetCursorPos(TextInfo.curx,
- (BYTE)(TextInfo.cury - 1));
- }
- btAvatarSeqLevel = 0;
- break;
-
- case 0x04:
- bAvatarInsertMode = FALSE;
- ODScrnGetTextInfo(&TextInfo);
- if(TextInfo.cury < 25)
- {
- ODScrnSetCursorPos(TextInfo.curx,
- (BYTE)(TextInfo.cury + 1));
- }
- btAvatarSeqLevel = 0;
- break;
-
- case 0x05:
- bAvatarInsertMode = FALSE;
- ODScrnGetTextInfo(&TextInfo);
- if(TextInfo.curx > 1)
- {
- ODScrnSetCursorPos((BYTE)(TextInfo.curx - 1),
- TextInfo.cury);
- }
- btAvatarSeqLevel = 0;
- break;
-
- case 0x06:
- bAvatarInsertMode = FALSE;
- ODScrnGetTextInfo(&TextInfo);
- if(TextInfo.curx < 80)
- {
- ODScrnSetCursorPos((BYTE)(TextInfo.curx + 1),
- TextInfo.cury);
- }
- btAvatarSeqLevel = 0;
- break;
-
- case 0x07:
- bAvatarInsertMode = FALSE;
- ODScrnClearToEndOfLine();
- btAvatarSeqLevel = 0;
- break;
-
- case 0x08:
- bAvatarInsertMode = FALSE;
- btAvatarSeqLevel = 5;
- break;
-
- case 0x09: /* ^I */
- bAvatarInsertMode = TRUE;
- btAvatarSeqLevel = 0;
- break;
-
- case 0x0a: /* ^J */
- btScrollLines = -1;
- btAvatarSeqLevel = 7;
- break;
-
- case 0x0b: /* ^K */
- btScrollLines = 1;
- btAvatarSeqLevel = 7;
- break;
-
- case 0x0c: /* ^L */
- btAvatarSeqLevel = 14;
- break;
-
- case 0x0d: /* ^M */
- btAvatarSeqLevel = 15;
- break;
-
- case 0x0e: /* ^N */
- ODScrnGetTextInfo(&TextInfo);
- if(TextInfo.curx < 80)
- {
- ODScrnCopyText((BYTE)(TextInfo.curx + 1),
- TextInfo.cury, 80, TextInfo.cury,
- TextInfo.curx, TextInfo.cury);
- }
-
- ODScrnEnableScrolling(FALSE);
- ODScrnSetCursorPos(80, TextInfo.cury);
- ODScrnDisplayChar(' ');
- ODScrnEnableScrolling(TRUE);
- ODScrnSetCursorPos(TextInfo.curx, TextInfo.cury);
-
- btAvatarSeqLevel = 0;
- break;
-
- case 0x19: /* ^Y */
- btAvatarSeqLevel = 19;
- break;
-
- default:
- btAvatarSeqLevel = 0;
- }
- break;
-
- case 4:
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = chCurrent));
- btAvatarSeqLevel = 0;
- break;
-
- case 5:
- chPrevParam = chCurrent;
- btAvatarSeqLevel = 6;
- break;
-
- case 6:
- ODScrnSetCursorPos(chCurrent, chPrevParam);
- btAvatarSeqLevel = 0;
- break;
-
- case 7:
- if(btScrollLines < 1)
- {
- btScrollLines = chCurrent;
- }
- else
- {
- btScrollLines = -chCurrent;
- }
- btAvatarSeqLevel = 8;
- break;
-
- case 8:
- btScrollTop = chCurrent;
- btAvatarSeqLevel = 9;
- break;
-
- case 9:
- btScrollLeft = chCurrent;
- btAvatarSeqLevel = 10;
- break;
-
- case 10:
- btScrollBottom = chCurrent;
- btAvatarSeqLevel = 11;
- break;
-
- case 11:
- btScrollRight = chCurrent;
- btAvatarSeqLevel = 12;
- break;
-
- case 12:
- if(btScrollLines == 0
- || abs(btScrollLines) >
- (btScrollBottom - btScrollTop))
- {
- ODEmulateFillArea(btScrollLeft, btScrollTop,
- btScrollRight, btScrollBottom, ' ');
- }
-
- else if(btScrollLines < 0)
- {
- ODScrnCopyText(btScrollLeft, btScrollTop,
- btScrollRight,
- (BYTE)(btScrollBottom + btScrollLines),
- btScrollLeft,
- (BYTE)(btScrollTop - btScrollLines));
- ODEmulateFillArea(btScrollLeft, btScrollTop,
- btScrollRight,
- (BYTE)(btScrollTop - (btScrollLines - 1)), ' ');
- }
-
- else
- {
- ODScrnCopyText(btScrollLeft,
- (BYTE)(btScrollTop + btScrollLines),
- btScrollRight, btScrollBottom,
- btScrollLeft, btScrollTop);
- ODEmulateFillArea(btScrollLeft,
- (BYTE)(btScrollBottom - (btScrollLines - 1)),
- btScrollRight, btScrollBottom, ' ');
- }
- btAvatarSeqLevel = 0;
- break;
-
- case 14:
- btScrollLines = (chCurrent & 0x7f);
- btScrollRight = ' ';
- btAvatarSeqLevel = 17;
- break;
-
- case 15:
- btScrollLines = (chCurrent & 0x7f);
- btAvatarSeqLevel = 16;
- break;
-
- case 16:
- btScrollRight = chCurrent;
- btAvatarSeqLevel = 17;
- break;
-
- case 17:
- btScrollTop = chCurrent;
- btAvatarSeqLevel = 18;
- break;
-
- case 18:
- ODScrnGetTextInfo(&TextInfo);
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = btScrollLines));
- ODEmulateFillArea(TextInfo.curx, TextInfo.cury,
- (BYTE)(TextInfo.curx + chCurrent),
- (BYTE)(TextInfo.cury + btScrollTop), btScrollRight);
- btAvatarSeqLevel = 0;
- break;
-
- case 19:
- btScrollLines = (chCurrent & 0x7f);
- szToRepeat[btRepeatCount = 0] = '\0';
- btAvatarSeqLevel = 20;
- break;
-
- case 20:
- if(btRepeatCount < btScrollLines)
- {
- szToRepeat[btRepeatCount] = chCurrent;
- szToRepeat[++btRepeatCount] = '\0';
- }
- else
- {
- for(btRepeatCount = 0; btRepeatCount <
- (BYTE)chCurrent;++btRepeatCount)
- {
- ODScrnDisplayString(szToRepeat);
- }
- btAvatarSeqLevel = 0;
- }
- break;
-
- /* RA/QBBS ^F control codes. */
- case 21:
- bEchoThisChar = FALSE;
- switch(chCurrent)
- {
- case 'A':
- od_disp_str(od_control.user_name);
- break;
- case 'B':
- od_disp_str(od_control.user_location);
- break;
- case 'C':
- od_disp_str(od_control.user_password);
- break;
- case 'D':
- od_disp_str(od_control.user_dataphone);
- break;
- case 'E':
- od_disp_str(od_control.user_homephone);
- break;
- case 'F':
- od_disp_str(od_control.user_lastdate);
- break;
- case 'G':
- od_disp_str(od_control.user_lasttime);
- break;
- case 'H':
- btScrollLines = 0;
- goto show_flags;
- case 'I':
- btScrollLines = 1;
- goto show_flags;
- case 'J':
- btScrollLines = 2;
- goto show_flags;
- case 'K':
- btScrollLines = 3;
- show_flags: for(btRepeatCount = 0; btRepeatCount < 8;
- ++btRepeatCount)
- {
- if((od_control.user_flags[btScrollLines] >>
- btRepeatCount) & 0x01)
- {
- szToRepeat[btRepeatCount] = 'X';
- }
- else
- {
- szToRepeat[btRepeatCount] = '-';
- }
- }
- szToRepeat[btRepeatCount] = '\0';
- od_disp_str(szToRepeat);
- break;
- case 'L':
- od_printf("%lu", od_control.user_net_credit);
- break;
- case 'M':
- od_printf("%u", od_control.user_messages);
- break;
- case 'N':
- od_printf("%u", od_control.user_lastread);
- break;
- case 'O':
- od_printf("%u", od_control.user_security);
- break;
- case 'P':
- od_printf("%u", od_control.user_numcalls);
- break;
- case 'Q':
- od_printf("%ul", od_control.user_uploads);
- break;
- case 'R':
- od_printf("%ul", od_control.user_upk);
- break;
- case 'S':
- od_printf("%ul", od_control.user_downloads);
- break;
- case 'T':
- od_printf("%ul", od_control.user_downk);
- break;
- case 'U':
- od_printf("%d", od_control.user_time_used);
- break;
- case 'V':
- od_printf("%d", od_control.user_screen_length);
- break;
- case 'W':
- btRepeatCount = 0;
- while(od_control.user_name[btRepeatCount])
- {
- if((szToRepeat[btRepeatCount]
- = od_control.user_name[btRepeatCount])
- == ' ')
- {
- szToRepeat[btRepeatCount] = '\0';
- break;
- }
- ++btRepeatCount;
- }
- od_disp_str(szToRepeat);
- break;
- case 'X':
- if(od_control.user_ansi)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case 'Y':
- if(od_control.user_attribute & 0x04)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case 'Z':
- if(od_control.user_attribute & 0x02)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case '0':
- if(od_control.user_attribute & 0x40)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case '1':
- if(od_control.user_attribute & 0x80)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case '2':
- if(od_control.user_attrib2 & 0x01)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case '3':
- od_disp_str(od_control.user_handle);
- break;
- case '4':
- od_disp_str(od_control.user_firstcall);
- break;
- case '5':
- od_disp_str(od_control.user_birthday);
- break;
- case '6':
- od_disp_str(od_control.user_subdate);
- break;
- case '7':
- /* days until subscrption expiry */
- break;
- case '8':
- if(od_control.user_attrib2 & 0x02)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- break;
- case '9':
- od_printf("%lu:%lu",
- od_control.user_uploads,
- od_control.user_downloads);
- break;
- case ':':
- od_printf("%lu:%lu",
- od_control.user_upk,
- od_control.user_downk);
- break;
- case ';':
- if(od_control.user_attrib2 & 0x04)
- {
- od_disp_str("ON");
- }
- else
- {
- od_disp_str("OFF");
- }
- }
- btAvatarSeqLevel=0;
- break;
-
- /* QBBS/RA ^K control codes. */
- case 22:
- bEchoThisChar = FALSE;
- switch(chCurrent)
- {
- case 'A':
- od_printf("%lu", od_control.system_calls);
- break;
- case 'B':
- od_disp_str(od_control.system_last_caller);
- break;
- case 'C':
- /* number of active messages */
- break;
- case 'D':
- /* system starting message number */
- break;
- case 'E':
- /* system ending message number */
- break;
- case 'F':
- /* number of times user has paged sysop */
- break;
- case 'G':
- /* day of the week (Monday, Tuesday, etc.) */
- break;
- case 'H':
- /* number of users in user file */
- break;
- case 'I':
- /* Time in 24 hour format */
- break;
- case 'J':
- /* today's date */
- break;
- case 'K':
- /* minutes connected this call */
- break;
- case 'L':
- /* Seconds connected (0) */
- break;
- case 'M':
- od_printf("%d", od_control.user_time_used);
- break;
- case 'N':
- od_disp_str("00");
- break;
- case 'O':
- /* Minutes remaining today */
- od_printf("%d", od_control.user_timelimit);
- break;
- case 'P':
- /* seconds remaining today (0) */
- break;
- case 'Q':
- od_printf("0", od_control.user_timelimit);
- break;
- case 'R': /* current baud rate */
- od_printf("0", od_control.baud);
- break;
- case 'S':
- /* day of the week (MON, TUE) */
- break;
- case 'T':
- /* Daily download limit (in K) */
- break;
- case 'U':
- /* Minutes until next system event */
- break;
- case 'V':
- ODScrnDisplayString(od_control.event_starttime);
- break;
- case 'W':
- /* line number (from command line) */
- break;
- case 'X':
- od_exit(2, TRUE);
- break;
- case 'Y':
- /* Name of current msg area */
- break;
- case 'Z':
- /* name of current file area */
- break;
- case '0':
- /* # of messages in area */
- break;
- case '1':
- /* # of message area */
- break;
- case '2':
- /* # of file area */
- break;
- }
- btAvatarSeqLevel = 0;
- }
- }
- break;
-
- case 1:
- switch(chCurrent)
- {
- case '[':
- btANSISeqLevel = 2;
- btCurrentParamLength = 0;
- btNumParams = 0;
- break;
-
- default:
- btANSISeqLevel = 0;
- ODScrnDisplayChar(27);
- ODScrnDisplayChar(chCurrent);
- }
- break;
-
- default:
- if((chCurrent >= '0' && chCurrent <= '9') || chCurrent == '?')
- {
- if(btCurrentParamLength < 3)
- {
- szCurrentParam[btCurrentParamLength] = chCurrent;
- szCurrentParam[++btCurrentParamLength] = '\0';
- }
- else
- {
- btANSISeqLevel = 0;
- }
- }
-
- else if(chCurrent == ';')
- {
- if(btNumParams < 10)
- {
- if(btCurrentParamLength != 0)
- {
- if(strcmp(szCurrentParam, "?9") == 0)
- {
- anANSIParams[btNumParams] = -2;
- }
- else
- {
- anANSIParams[btNumParams] = atoi(szCurrentParam);
- }
- szCurrentParam[0] = '\0';
- btCurrentParamLength = 0;
- ++btNumParams;
- }
- else
- {
- anANSIParams[btNumParams++] = -1;
- }
- }
- else
- {
- btANSISeqLevel = 0;
- }
- }
-
- else
- {
- btANSISeqLevel = 0;
-
- if(btCurrentParamLength != 0 && btNumParams < 10)
- {
- if(strcmp(szCurrentParam,"?9") == 0)
- {
- anANSIParams[btNumParams] = -2;
- }
- else
- {
- anANSIParams[btNumParams] = atoi(szCurrentParam);
- }
- szCurrentParam[0] = '\0';
- btCurrentParamLength = 0;
- ++btNumParams;
- }
-
- ODScrnGetTextInfo(&TextInfo);
-
- switch(chCurrent)
- {
- case 'A':
- if(btNumParams == 0) anANSIParams[0] = 1;
- if((nTemp = TextInfo.cury - anANSIParams[0]) < 1)
- {
- nTemp = 1;
- }
- if(nTemp > 25) nTemp=25;
- ODScrnSetCursorPos(TextInfo.curx, (BYTE)nTemp);
- break;
-
- case 'B':
- if(btNumParams == 0) anANSIParams[0] = 1;
- if((nTemp = TextInfo.cury + anANSIParams[0]) > 25)
- {
- nTemp = 25;
- }
- if(nTemp < 1) nTemp = 1;
- ODScrnSetCursorPos(TextInfo.curx, (BYTE)nTemp);
- break;
-
- case 'C':
- if(btNumParams == 0) anANSIParams[0] = 1;
- if((nTemp=TextInfo.curx + anANSIParams[0]) > 80)
- {
- nTemp = 80;
- }
- if(nTemp < 1) nTemp = 1;
- ODScrnSetCursorPos((BYTE)nTemp, TextInfo.cury);
- break;
-
- case 'D':
- if(btNumParams == 0) anANSIParams[0] = 1;
- if((nTemp = TextInfo.curx - anANSIParams[0]) < 1)
- {
- nTemp = 1;
- }
- if(nTemp > 80) nTemp = 80;
- ODScrnSetCursorPos((BYTE)nTemp, TextInfo.cury);
- break;
-
- case 'H':
- case 'f':
- if(btNumParams >= 2)
- {
- if(anANSIParams[0] == -1)
- {
- ODScrnSetCursorPos((BYTE)anANSIParams[1], 1);
- }
- else
- {
- ODScrnSetCursorPos((BYTE)anANSIParams[1],
- (BYTE)anANSIParams[0]);
- }
- }
- else if(btNumParams == 1)
- {
- if(anANSIParams[0] <= 0)
- {
- ODScrnSetCursorPos(1, TextInfo.cury);
- }
- else
- {
- ODScrnSetCursorPos(1, (BYTE)anANSIParams[0]);
- }
- }
- else /* if(num_params==0) */
- {
- ODScrnSetCursorPos(1, 1);
- }
- break;
-
- case 'J':
- if(btNumParams >= 1 && anANSIParams[0] == 2)
- {
- /* Clear entire screen. */
- ODScrnClear();
- }
- else if(btNumParams == 0 || anANSIParams[0] == 0)
- {
- /* Not supported - Clears from cursor to end of */
- /* screen. */
- }
- else if(btNumParams>=1 && anANSIParams[0]==1)
- {
- /* Not supported - Clears from beginning of screen to */
- /* cursor. */
- }
- break;
-
- case 'K':
- if(btNumParams == 0 || anANSIParams[0] == 0)
- {
- /* Clear to end of line. */
- ODScrnClearToEndOfLine();
- }
- else if(btNumParams >= 1 && anANSIParams[0] == 1)
- {
- /* Not supported - should clear to beginning of line. */
- }
- else if(btNumParams >= 1 && anANSIParams[0] == 2)
- {
- /* Not supported - should clear entire line. */
- }
- break;
-
- case 'm':
- for(nTemp = 0; nTemp < btNumParams; ++nTemp)
- {
- if(anANSIParams[nTemp] == 0)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute = 0x07));
- }
- else if(anANSIParams[nTemp] == 1)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = TextInfo.attribute | 0x08));
- }
- else if(anANSIParams[nTemp] == 2)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = TextInfo.attribute & (~0x08)));
- }
- else if(anANSIParams[nTemp] == 4)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = (TextInfo.attribute & 0xf8) | (1)));
- }
- else if(anANSIParams[nTemp] == 5)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = TextInfo.attribute | 0x80));
- }
- else if(anANSIParams[nTemp] == 7)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = (TextInfo.attribute << 4)
- | (TextInfo.attribute >> 4)));
- }
- else if(anANSIParams[nTemp] == 8)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = (TextInfo.attribute & 0xf0)
- | ((TextInfo.attribute >> 4) & 0x07)));
- }
- else if(anANSIParams[nTemp] >= 30
- && anANSIParams[nTemp] <= 37)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = (TextInfo.attribute & 0xf8)
- + abtANSIToPCColorTable[
- (anANSIParams[nTemp] - 30)]));
- }
- else if(anANSIParams[nTemp] >= 40
- && anANSIParams[nTemp]<=47)
- {
- ODScrnSetAttribute((BYTE)(od_control.od_cur_attrib
- = TextInfo.attribute
- = (TextInfo.attribute & 0x8f)
- + (abtANSIToPCColorTable[
- anANSIParams[nTemp] - 40] << 4)));
- }
- }
- break;
-
- case 's':
- btSavedColumn = TextInfo.curx;
- btSavedRow = TextInfo.cury;
- break;
-
- case 'u':
- ODScrnSetCursorPos(btSavedColumn, btSavedRow);
- break;
-
- case '@':
- /* Not supported - inserts spaces at cursor. */
- break;
-
- case 'P':
- /* Not supported - deletes characters at cursor. */
- break;
-
- case 'L':
- /* Not supported - inserts lines at cursor. */
- break;
-
- case 'M':
- /* Not supported - deletes lines at cursor. */
- break;
-
- case 'r':
- /* Not supported - sets scrolling zone - 1st param is */
- /* top row, 2nd param is bottom row. Cursor may go */
- /* outside zone, but no scrolling occurs there. */
- /* Also resets cursor to row 1, column 1. */
- /* If only one param, bottom row is bottom of screen. */
- break;
-
- case 'h':
- if(btNumParams >= 1 && anANSIParams[0] == 4)
- {
- /* Not suppored - turn insert mode on. */
- }
- else if(btNumParams >= 1 && anANSIParams[0] == -2)
- {
- /* Home cursor. */
- ODScrnSetCursorPos(1, 1);
- }
- break;
-
- case 'l':
- if(btNumParams >= 1 && anANSIParams[0] == 4)
- {
- /* Not suppored - turn insert mode off. */
- }
- break;
-
- case 'E':
- /* Not supported - repeat CRLF specified # of times. */
- break;
-
- case 'F':
- /* Not supported - repeat reverse CRLF specified # */
- /* of times. Also not suppored ESC M - reverse */
- /* linefeed, ESC D - LF, ESC E - CRLF */
- break;
- }
- }
- }
-
- if(bEchoThisChar && od_control.baud != 0)
- {
- ODComSendByte(hSerialPort, chCurrent);
- }
-
- ++pszBuffer;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODEmulateFillArea() *** PRIVATE FUNCTION ***
- *
- * Fills an area of the local screen with the specified character, in the
- * current display color.
- *
- * Parameters: btLeft - The left column of the area to fill.
- *
- * btTop - The top row of the area to fill.
- *
- * btRight - The right column of the area to fill.
- *
- * btBottom - The bottom row of the area to fill.
- *
- * chToFillWith - Character to fill in the specified area with.
- *
- * Return: void
- */
-static void ODEmulateFillArea(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom, char chToFillWith)
-{
- BYTE btCount;
- BYTE btLast;
- static char szTemp[81];
- static tODScrnTextInfo TextInfo;
-
- ODScrnGetTextInfo(&TextInfo);
-
- btLast = btRight - btLeft;
-
- for(btCount=0; btCount <= btLast; ++btCount)
- {
- szTemp[btCount] = chToFillWith;
- }
- szTemp[btCount] = 0;
-
- ODScrnEnableScrolling(FALSE);
-
- for(btCount = btTop; btCount <= btBottom; ++btCount)
- {
- ODScrnSetCursorPos(btLeft, btCount);
- ODScrnDisplayString(szTemp);
- }
-
- ODScrnSetCursorPos(TextInfo.curx, TextInfo.cury);
-
- ODScrnEnableScrolling(TRUE);
-}
diff --git a/src/odoors/ODFrame.c b/src/odoors/ODFrame.c
deleted file mode 100644
index 4a978571a60f7281e247ecf3e19390a9da97e5c3..0000000000000000000000000000000000000000
--- a/src/odoors/ODFrame.c
+++ /dev/null
@@ -1,1759 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODFrame.c
- *
- * Description: Implements the OpenDoors frame window which provides the
- * menu, toolbar, and status bar. The frame window's client
- * area contains the display window which shows the door's
- * output as the remote user would see it. This file should
- * not be built into non-Windows versions of OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Aug 20, 1995 6.00 BP Created.
- * Dec 20, 1995 6.00 BP Remember toolbar & statusbar settings.
- * Dec 22, 1995 6.00 BP Added od_connect_speed.
- * Jan 20, 1996 6.00 BP Made ODFrameCenter...() shared.
- * Jan 21, 1996 6.00 BP Added ODScrnShowMessage() and related.
- * Feb 17, 1996 6.00 BP Add ...Accelerator() return value.
- * Feb 17, 1996 6.00 BP Pass WM_MENUSELECT to DefWindowProc().
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 21, 1996 6.00 BP Fixed user keyboard off command.
- * Feb 22, 1996 6.00 BP Allow escape to close Help About box.
- * Feb 23, 1996 6.00 BP Properly update when toolbar turned on
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 14, 1996 6.10 BP Added configuration menu option.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-
-#include "windows.h"
-#include "commctrl.h"
-
-#include "OpenDoor.h"
-#include "ODRes.h"
-#include "ODFrame.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODKrnl.h"
-
-#ifdef ODPLAT_WIN32
-
-/* Frame window information structure. */
-typedef struct
-{
- HINSTANCE hInstance;
- BOOL bToolbarOn;
- HWND hwndToolbar;
- BOOL bStatusBarOn;
- HWND hwndStatusBar;
- HWND hwndTimeEdit;
- HWND hwndTimeUpDown;
- BOOL bWantsChatIndicator;
- HACCEL hacclFrameCommands;
- HWND hwndMessageWindow;
- char *pszCurrentMessage;
- int nCurrentMessageFlags;
-} tODFrameWindowInfo;
-
-/* Toolbar button information. */
-TBBUTTON atbButtons[] =
-{
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {0, ID_DOOR_CHATMODE, TBSTATE_ENABLED, TBSTYLE_BUTTON, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {1, ID_DOOR_USERKEYBOARDOFF, TBSTATE_ENABLED, TBSTYLE_BUTTON, 0, 0},
- {2, ID_DOOR_SYSOPNEXT, TBSTATE_ENABLED, TBSTYLE_BUTTON, 0, 0},
- {0, 0, TBSTATE_ENABLED, TBSTYLE_SEP, 0, 0},
- {3, ID_DOOR_HANGUP, TBSTATE_ENABLED, TBSTYLE_BUTTON, 0, 0},
- {4, ID_DOOR_LOCKOUT, TBSTATE_ENABLED, TBSTYLE_BUTTON, 0, 0},
- {5, ID_DOOR_EXIT, TBSTATE_ENABLED, TBSTYLE_BUTTON, 0, 0},
-};
-
-/* Other toolbar settings. */
-#define NUM_TOOLBAR_BITMAPS 6
-#define MIN_TIME 0
-#define MAX_TIME 1440
-
-/* Pointer to default edit box window procedure. */
-WNDPROC pfnDefEditProc = NULL;
-WNDPROC pfnDefToolbarProc = NULL;
-
-/* Global frame window handle. */
-static HWND hwndCurrentFrame;
-
-/* Status bar settings. */
-#define NUM_STATUS_PARTS 2
-#define NODE_PART_WIDTH 65
-
-/* Child window IDs. */
-#define ID_TOOLBAR 1000
-#define ID_TIME_EDIT 1001
-#define ID_TIME_UPDOWN 1002
-#define ID_STATUSBAR 1003
-
-
-/* Private function prototypes. */
-static HWND ODFrameCreateToolbar(HWND hwndParent, HANDLE hInstance,
- tODFrameWindowInfo *pWindowInfo);
-static void ODFrameDestroyToolbar(HWND hwndToolbar,
- tODFrameWindowInfo *pWindowInfo);
-static HWND ODFrameCreateStatusBar(HWND hwndParent, HANDLE hInstance);
-static void ODFrameSetMainStatusText(HWND hwndStatusBar);
-static void ODFrameDestroyStatusBar(HWND hwndStatusBar);
-static void ODFrameSizeStatusBar(HWND hwndStatusBar);
-LRESULT CALLBACK ODFrameWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-LRESULT CALLBACK ODFrameToolbarProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-static void ODFrameUpdateTimeLeft(tODFrameWindowInfo *pWindowInfo);
-LRESULT CALLBACK ODFrameTimeEditProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-BOOL CALLBACK ODFrameAboutDlgProc(HWND hwndDlg, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-static HWND ODFrameCreateWindow(HANDLE hInstance);
-static void ODFrameDestroyWindow(HWND hwndFrame);
-static void ODFrameMessageLoop(HANDLE hInstance, HWND hwndFrame);
-DWORD OD_THREAD_FUNC ODFrameThreadProc(void *pParam);
-BOOL CALLBACK ODFrameMessageDlgProc(HWND hwndDlg, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameCreateWindow() *** PRIVATE FUNCTION ***
- *
- * Creates the OpenDoors frame window and its children.
- *
- * Parameters: hInstance - Handle to application instance.
- *
- * Return: A handle to the newly created window, or NULL on failure.
- */
-static HWND ODFrameCreateWindow(HANDLE hInstance)
-{
- HWND hwndFrameWindow = NULL;
- WNDCLASS wcFrameWindow;
- tODFrameWindowInfo *pWindowInfo = NULL;
- tODThreadHandle hScreenThread;
- HKEY hOpenDoorsKey;
- DWORD cbData;
-
- /* Register the main frame window's window class. */
- memset(&wcFrameWindow, 0, sizeof(wcFrameWindow));
- wcFrameWindow.style = CS_HREDRAW | CS_VREDRAW;
- wcFrameWindow.lpfnWndProc = ODFrameWindowProc;
- wcFrameWindow.cbClsExtra = 0;
- wcFrameWindow.cbWndExtra = 0;
- wcFrameWindow.hInstance = hInstance;
- if(od_control.od_app_icon != NULL)
- {
- wcFrameWindow.hIcon = od_control.od_app_icon;
- }
- else
- {
- wcFrameWindow.hIcon
- = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_OPENDOORS));
- }
- wcFrameWindow.hCursor = LoadCursor(NULL, IDC_ARROW);
- wcFrameWindow.hbrBackground = NULL;
- wcFrameWindow.lpszMenuName = MAKEINTRESOURCE(IDR_FRAME_MENU);
- wcFrameWindow.lpszClassName = "ODFrame";
-
- RegisterClass(&wcFrameWindow);
-
- /* Setup window information structure. */
- pWindowInfo = malloc(sizeof(tODFrameWindowInfo));
- if(!pWindowInfo)
- {
- return(NULL);
- }
- pWindowInfo->hInstance = hInstance;
- pWindowInfo->hwndTimeEdit = NULL;
- pWindowInfo->hwndTimeUpDown = NULL;
- pWindowInfo->bWantsChatIndicator = FALSE;
- pWindowInfo->hwndMessageWindow = NULL;
-
- /* Determine whether or not the toolbar and status bar are on. */
- RegCreateKey(HKEY_CURRENT_USER, "Software\\Pirie\\OpenDoors",
- &hOpenDoorsKey);
-
- cbData = sizeof(pWindowInfo->bToolbarOn);
- if(RegQueryValueEx(hOpenDoorsKey, "ToolBarOn", NULL, NULL,
- (LPBYTE)&pWindowInfo->bToolbarOn,
- &cbData) != ERROR_SUCCESS)
- {
- pWindowInfo->bToolbarOn = TRUE;
- RegSetValueEx(hOpenDoorsKey, "ToolBarOn", 0, REG_DWORD,
- (LPBYTE)&pWindowInfo->bToolbarOn,
- sizeof(pWindowInfo->bToolbarOn));
- }
-
- cbData = sizeof(pWindowInfo->bStatusBarOn);
- if(RegQueryValueEx(hOpenDoorsKey, "StatusBarOn", NULL, NULL,
- (LPBYTE)&pWindowInfo->bStatusBarOn,
- &cbData) != ERROR_SUCCESS)
- {
- pWindowInfo->bStatusBarOn = TRUE;
- RegSetValueEx(hOpenDoorsKey, "StatusBarOn", 0, REG_DWORD,
- (LPBYTE)&pWindowInfo->bStatusBarOn,
- sizeof(pWindowInfo->bStatusBarOn));
- }
-
- RegCloseKey(hOpenDoorsKey);
-
- /* Create the main frame window. */
- if((hwndFrameWindow = CreateWindowEx(
- 0L,
- wcFrameWindow.lpszClassName,
- od_control.od_prog_name,
- WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_BORDER | WS_MINIMIZEBOX,
- CW_USEDEFAULT,
- 0,
- 0,
- 0,
- NULL,
- NULL,
- hInstance,
- pWindowInfo)) == NULL)
- {
- /* On window creation failure, return NULL. */
- return(NULL);
- }
-
- /* Load accelerator table for the frame window. */
- pWindowInfo->hacclFrameCommands
- = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDR_FRAME));
-
- /* Create the OpenDoors toolbar. On failure, we will continue anyhow. */
- if(pWindowInfo->bToolbarOn)
- {
- pWindowInfo->hwndToolbar =
- ODFrameCreateToolbar(hwndFrameWindow, hInstance, pWindowInfo);
- }
-
- /* Create the status bar. On failure, we will continue anyhow. */
- if(pWindowInfo->bStatusBarOn)
- {
- pWindowInfo->hwndStatusBar =
- ODFrameCreateStatusBar(hwndFrameWindow, hInstance);
- }
-
- /* Updates state of the window from whether or not the user has */
- /* requested a chat with the sysop. */
- ODFrameUpdateWantChat();
-
- /* Create the local screen window, which occupies the remaining */
- /* client area of the frame window. */
- ODScrnStartWindow(hInstance, &hScreenThread, hwndFrameWindow);
-
- return(hwndFrameWindow);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameCreateToolbar() *** PRIVATE FUNCTION ***
- *
- * Creates the OpenDoors toolbar.
- *
- * Parameters: hwndParent - Handle to the parent window.
- *
- * hInstance - Handle to the executable file's module instance.
- *
- * pWindowInfo - Pointer to frame window information structure.
- *
- * Return: A handle to the toolbar on success, or NULL on failure.
- */
-static HWND ODFrameCreateToolbar(HWND hwndParent, HANDLE hInstance,
- tODFrameWindowInfo *pWindowInfo)
-{
- HWND hwndToolbar = NULL;
- HWND hwndTimeEdit = NULL;
- HWND hwndTimeUpDown = NULL;
- HWND hwndToolTip;
- BOOL bSuccess = FALSE;
-
- ASSERT(hwndParent != NULL);
- ASSERT(hInstance != NULL);
- ASSERT(pWindowInfo != NULL);
-
- /* First, attempt to create the toolbar window. */
- hwndToolbar = CreateToolbarEx(hwndParent,
- WS_CHILD | WS_BORDER | WS_VISIBLE | TBSTYLE_TOOLTIPS,
- ID_TOOLBAR, NUM_TOOLBAR_BITMAPS, hInstance, IDB_TOOLBAR,
- atbButtons, DIM(atbButtons), 0, 0, 0, 0, sizeof(TBBUTTON));
-
- if(hwndToolbar == NULL)
- {
- goto CleanUp;
- }
-
- /* Change the window proc for the toolbar window to our own, keeping a */
- /* pointer to the original window proc. */
- pfnDefToolbarProc = (WNDPROC)GetWindowLong(hwndToolbar, GWL_WNDPROC);
- SetWindowLong(hwndToolbar, GWL_WNDPROC, (LONG)ODFrameToolbarProc);
-
- /* Next, create an edit control on the toolbar, to allow the user's */
- /* time remaining online to be adjusted. */
- hwndTimeEdit = CreateWindowEx(WS_EX_STATICEDGE, "EDIT", "",
- WS_CHILD | WS_BORDER | WS_VISIBLE | ES_LEFT,
- 0, 0, 70, 22, hwndToolbar, (HMENU)ID_TIME_EDIT, hInstance, NULL);
-
- if(hwndTimeEdit == NULL)
- {
- goto CleanUp;
- }
-
- /* Now that the edit window has the appropriate parent, we set its */
- /* position accordingly. */
- SetWindowPos(hwndTimeEdit, NULL, 2, 2, 0, 0,
- SWP_NOZORDER | SWP_NOSIZE);
-
- /* Set font of the edit control to be the standard non-bold font. */
- SendMessage(hwndTimeEdit, WM_SETFONT,
- (WPARAM)GetStockObject(DEFAULT_GUI_FONT), MAKELPARAM(FALSE, 0));
-
- /* Change the window proc for the edit window to our own, keeping a */
- /* pointer to the original window proc. */
- pfnDefEditProc = (WNDPROC)GetWindowLong(hwndTimeEdit, GWL_WNDPROC);
- SetWindowLong(hwndTimeEdit, GWL_WNDPROC, (LONG)ODFrameTimeEditProc);
-
- /* Add the time edit control to the tooltip control. */
-
- /* Obtain a handle to the toolbar's tooltip control. */
- hwndToolTip = (HWND)SendMessage(hwndToolbar, TB_GETTOOLTIPS, 0, 0);
- if(hwndToolTip)
- {
- TOOLINFO ToolInfo;
-
- /* Fill TOOLINFO structure. */
- ToolInfo.cbSize = sizeof(ToolInfo);
- ToolInfo.uFlags = TTF_IDISHWND | TTF_CENTERTIP;
- ToolInfo.lpszText = "User's Time Remaining";
- ToolInfo.hwnd = hwndParent;
- ToolInfo.uId = (UINT)hwndTimeEdit;
- ToolInfo.hinst = hInstance;
-
- /* Setup tooltips for the time edit box. */
- SendMessage(hwndToolTip, TTM_ADDTOOL, 0, (LPARAM)&ToolInfo);
- }
-
- /* Now, we create an up-down control to buddy with the edit control. */
- hwndTimeUpDown = CreateWindowEx(0L, UPDOWN_CLASS, "",
- WS_CHILD | WS_BORDER | WS_VISIBLE | UDS_ARROWKEYS |
- UDS_ALIGNRIGHT, 0, 0, 8, 8,
- hwndToolbar, (HMENU)ID_TIME_UPDOWN, hInstance, NULL);
-
- if(hwndTimeUpDown == NULL)
- {
- goto CleanUp;
- }
-
- /* Set the up-down control's buddy control to be the edit control that */
- /* we just created. */
- SendMessage(hwndTimeUpDown, UDM_SETBUDDY, (LONG)hwndTimeEdit, 0L);
-
- /* Set the valid range of values for the edit control. */
- SendMessage(hwndTimeUpDown, UDM_SETRANGE, 0L, MAKELONG(MAX_TIME, MIN_TIME));
-
- /* Store handles to time limit edit and up-down controls. */
- pWindowInfo->hwndTimeEdit = hwndTimeEdit;
- pWindowInfo->hwndTimeUpDown = hwndTimeUpDown;
-
- /* Next, we set the default text for the edit control. */
- ODFrameUpdateTimeLeft(pWindowInfo);
-
- /* Return with success. */
- bSuccess = TRUE;
-
-CleanUp:
- if(!bSuccess)
- {
- /* On failure, free any allocated resources. */
- if(hwndTimeUpDown != NULL)
- {
- DestroyWindow(hwndTimeUpDown);
- }
- if(hwndTimeEdit != NULL)
- {
- DestroyWindow(hwndTimeUpDown);
- }
- if(hwndToolbar != NULL)
- {
- DestroyWindow(hwndToolbar);
- hwndToolbar = NULL;
- }
- }
-
- /* Return handle to newly created toolbar, or NULL on failure. */
- return(hwndToolbar);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameDestroyToolbar() *** PRIVATE FUNCTION ***
- *
- * Destroys the OpenDoors toolbar.
- *
- * Parameters: hwndToolbar - Handle to previously created toolbar.
- *
- * pWindowInfo - Pointer to frame window information structure.
- *
- * Return: void.
- */
-static void ODFrameDestroyToolbar(HWND hwndToolbar,
- tODFrameWindowInfo *pWindowInfo)
-{
- ASSERT(hwndToolbar != NULL);
- ASSERT(pWindowInfo != NULL);
-
- /* Destroy the time up-down control, and NULL its handle in the frame */
- /* window information structure. */
- DestroyWindow(pWindowInfo->hwndTimeUpDown);
- pWindowInfo->hwndTimeUpDown = NULL;
-
- /* Destroy the time edit control, and NULL its handle in the frame window */
- /* information structure. */
- DestroyWindow(pWindowInfo->hwndTimeEdit);
- pWindowInfo->hwndTimeEdit = NULL;
-
- /* Now, destroy the toolbar itself. */
- DestroyWindow(hwndToolbar);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameCreateStatusBar() *** PRIVATE FUNCTION ***
- *
- * Creates the OpenDoors status bar.
- *
- * Parameters: hwndParent - Handle to the parent window.
- *
- * hInstance - Handle to the executable file's module instance.
- *
- * Return: A handle to the status bar on success, or NULL on failure.
- */
-static HWND ODFrameCreateStatusBar(HWND hwndParent, HANDLE hInstance)
-{
- HWND hwndStatusBar = NULL;
- char szStatusText[20];
-
- ASSERT(hwndParent != NULL);
-
- /* Create the status bar window. */
- hwndStatusBar = CreateWindowEx(0L, STATUSCLASSNAME, "",
- WS_CHILD | WS_VISIBLE, 0, 0, 0, 0,
- hwndParent, (HMENU)ID_STATUSBAR, hInstance, NULL);
-
- if(hwndStatusBar == NULL)
- {
- return(NULL);
- }
-
- /* Set the size of the status bar parts from the size of the frame */
- /* window. */
- ODFrameSizeStatusBar(hwndStatusBar);
-
- /* Add the user's name, location and connection info string. */
- ODFrameSetMainStatusText(hwndStatusBar);
-
- /* Add the node number string. */
- sprintf(szStatusText, "Node %d", od_control.od_node);
- SendMessage(hwndStatusBar, SB_SETTEXT, (WPARAM)1, (LPARAM)szStatusText);
-
- return(hwndStatusBar);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameSetMainStatusText() *** PRIVATE FUNCTION ***
- *
- * Updates the text that is displayed in the main pane of the status bar.
- *
- * Parameters: hwndStatusBar - Handle to the status bar.
- *
- * Return: void.
- */
-static void ODFrameSetMainStatusText(HWND hwndStatusBar)
-{
- char szStatusText[160];
-
- ASSERT(hwndStatusBar != NULL);
-
- /* Generate base status bar text, with the user's name, location and */
- /* connection information. */
- if(od_control.baud == 0)
- {
- sprintf(szStatusText, "%s of %s in local mode",
- od_control.user_name,
- od_control.user_location);
- }
- else
- {
- sprintf(szStatusText, "%s of %s at %ldbps",
- od_control.user_name,
- od_control.user_location,
- od_control.od_connect_speed);
- }
-
- /* If the user has paged the sysop, then include reason for chat if */
- /* it is available. */
- if(od_control.user_wantchat && strlen(od_control.user_reasonforchat) > 0)
- {
- strcat(szStatusText, " (Reason for chat: \"");
- strcat(szStatusText, od_control.user_reasonforchat);
- strcat(szStatusText, "\")");
- }
-
- /* Update status bar text in the main status bar pane with the newly */
- /* generated string. */
- SendMessage(hwndStatusBar, SB_SETTEXT, (WPARAM)0, (LPARAM)szStatusText);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameDestroyStatusBar() *** PRIVATE FUNCTION ***
- *
- * Destroys the OpenDoors status bar.
- *
- * Parameters: hwndStatusBar - Handle to previously created status bar.
- *
- * Return: void.
- */
-static void ODFrameDestroyStatusBar(HWND hwndStatusBar)
-{
- DestroyWindow(hwndStatusBar);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameSizeStatusBar() *** PRIVATE FUNCTION ***
- *
- * Creates the OpenDoors status bar.
- *
- * Parameters: hwndStatusBar - Handle to existing status bar window.
- *
- * Return: void.
- */
-static void ODFrameSizeStatusBar(HWND hwndStatusBar)
-{
- int anWidths[NUM_STATUS_PARTS];
- int nStatusWidth;
- RECT rcStatusBar;
-
- /* Determine the total width of the status bar. */
- GetWindowRect(hwndStatusBar, &rcStatusBar);
- nStatusWidth = rcStatusBar.right - rcStatusBar.left;
-
- /* Calculate the width of the parts from the total width. */
- anWidths[0] = nStatusWidth - NODE_PART_WIDTH;
- anWidths[1] = -1;
-
- /* Update the status bar part settings. */
- SendMessage(hwndStatusBar, SB_SETPARTS, NUM_STATUS_PARTS,
- (LPARAM)anWidths);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameGetUsedClientAtTop()
- *
- * Determines height in pixels of the space used at the top of the
- * frame window's client area, by the toolbar, etc.
- *
- * Parameters: hwndFrame - Handle to the OpenDoors frame window.
- *
- * Return: The height of the used space, in pixels.
- */
-INT ODFrameGetUsedClientAtTop(HWND hwndFrame)
-{
- tODFrameWindowInfo *pWindowInfo;
- RECT rcWindow;
-
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndFrame, GWL_USERDATA);
-
- if(!pWindowInfo->bToolbarOn) return(0);
-
- GetWindowRect(pWindowInfo->hwndToolbar, &rcWindow);
-
- return(rcWindow.bottom - rcWindow.top - 2);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameGetUsedClientAtBottom()
- *
- * Determines height in pixels of the space used at the bottom of the
- * frame window's client area, by the status bar, etc.
- *
- * Parameters: hwndFrame - Handle to the OpenDoors frame window.
- *
- * Return: The height of the used space, in pixels.
- */
-INT ODFrameGetUsedClientAtBottom(HWND hwndFrame)
-{
- tODFrameWindowInfo *pWindowInfo;
- RECT rcWindow;
-
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndFrame, GWL_USERDATA);
-
- if(!pWindowInfo->bStatusBarOn) return(0);
-
- GetWindowRect(pWindowInfo->hwndStatusBar, &rcWindow);
-
- return(rcWindow.bottom - rcWindow.top - 1);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameWindowProc() *** PRIVATE FUNCTION ***
- *
- * The OpenDoors frame window proceedure.
- *
- * Parameters: hwnd - Handle to the OpenDoors frame window.
- *
- * uMsg - Specifies the message.
- *
- * wParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * lParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * Return: The return value is the result of the message processing and
- * depends on the message.
- */
-LRESULT CALLBACK ODFrameWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- tODFrameWindowInfo *pWindowInfo;
-
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwnd, GWL_USERDATA);
-
- switch(uMsg)
- {
- case WM_CREATE:
- {
- /* At window creation time, store a pointer to the window */
- /* information structure in window's user data. */
- CREATESTRUCT *pCreateStruct = (CREATESTRUCT *)lParam;
- pWindowInfo = (tODFrameWindowInfo *)pCreateStruct->lpCreateParams;
- SetWindowLong(hwnd, GWL_USERDATA, (LONG)pWindowInfo);
-
- /* Update the enabled and checked states of frame window commands. */
- ODFrameUpdateCmdUI();
-
- /* If the client has not provided a help callback function, then */
- /* remove the Contents item from the help menu. */
- if(od_control.od_help_callback == NULL)
- {
- RemoveMenu(GetMenu(hwnd), ID_HELP_CONTENTS, MF_BYCOMMAND);
- }
-
- if(od_control.od_config_callback == NULL)
- {
- RemoveMenu(GetMenu(hwnd), ID_DOOR_CONFIG, MF_BYCOMMAND);
- }
- break;
- }
-
- case WM_CLOSE:
- /* If door exit has been chosen, confirm with local user. */
- if(MessageBox(hwnd,
- "You are about to terminate this session and return the user to the BBS.\nDo you wish to proceed?",
- od_control.od_prog_name,
- MB_ICONQUESTION | MB_YESNO) == IDYES)
- {
- /* Normal door exit (drop to BBS) is implemented by the */
- /* WM_DESTROY handler. */
- ODFrameDestroyWindow(hwnd);
- }
- break;
-
- case WM_DESTROY:
- /* If toolbar is on, then it must be destroyed when the frame */
- /* window is destroyed. */
- if(pWindowInfo->bToolbarOn)
- {
- ODFrameDestroyToolbar(GetDlgItem(hwnd, ID_TOOLBAR), pWindowInfo);
- }
-
- /* If status bar is on, then it must be destroyed when the frame */
- /* window is destroyed. */
- if(pWindowInfo->bStatusBarOn)
- {
- ODFrameDestroyStatusBar(GetDlgItem(hwnd, ID_STATUSBAR));
- }
-
- /* Now, force OpenDoors to shutdown. */
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_DROPTOBBS);
-
- /* When the frame window is destroyed, it is the window proc's */
- /* responsiblity to deallocate the window information structure. */
- free(pWindowInfo);
- SetWindowLong(hwnd, GWL_USERDATA, (LONG)NULL);
-
- /* Reset current frame window handle. */
- hwndCurrentFrame = NULL;
- break;
-
- case WM_SETFOCUS:
- /* Whenver input focus is set to the frame window, pass the input */
- /* focus on to the screen window, which fills most of our client */
- /* area. */
- ODScrnSetFocusToWindow();
- break;
-
- case WM_TIMER:
- /* If the window flash timer has elapsed, then flash the window. */
- FlashWindow(hwnd, TRUE);
- break;
-
- case WM_COMMAND:
- /* An OpenDoors-defined command has been selected, so switch on */
- /* the command ID. */
- switch(LOWORD(wParam))
- {
- case ID_HELP_ABOUT:
- /* Display the OpenDoors default about box. */
- DialogBox(pWindowInfo->hInstance, MAKEINTRESOURCE(IDD_ABOUT),
- hwnd, ODFrameAboutDlgProc);
- break;
-
- case ID_HELP_CONTENTS:
- /* Call the client's help callback function, if one was */
- /* provided. */
- if(od_control.od_help_callback != NULL)
- {
- (*od_control.od_help_callback)();
- }
- break;
-
- case ID_DOOR_CONFIG:
- if(od_control.od_config_callback != NULL)
- {
- (*od_control.od_config_callback)();
- }
- break;
-
- case ID_DOOR_EXIT:
- /* On request for normal door exit (drop to BBS), just send */
- /* a close message to this window. This will prompt to */
- /* confirm exit, and then shutdown OpenDoors if appropriate. */
- PostMessage(hwnd, WM_CLOSE, 0, 0L);
- break;
-
- case ID_DOOR_CHATMODE:
- /* If chat mode is currently active, then end it. */
- if(od_control.od_chat_active)
- {
- ODKrnlEndChatMode();
- }
- /* If chat mode is not currently active, then start it. */
- else
- {
- ODKrnlStartChatThread(TRUE);
- }
- break;
-
- case ID_DOOR_USERKEYBOARDOFF:
- /* If user keyboard off command has been chosen, then toggle */
- /* keyboard off mode on or off. */
- od_control.od_user_keyboard_on
- = !od_control.od_user_keyboard_on;
-
- /* Update the keyboard off menu item and toolbar button. */
- CheckMenuItem(GetMenu(hwnd), ID_DOOR_USERKEYBOARDOFF,
- MF_BYCOMMAND | (od_control.od_user_keyboard_on
- ? MF_UNCHECKED : MF_CHECKED));
- SendMessage(GetDlgItem(hwnd, ID_TOOLBAR), TB_CHECKBUTTON,
- ID_DOOR_USERKEYBOARDOFF,
- MAKELONG(!od_control.od_user_keyboard_on, 0));
- break;
-
- case ID_DOOR_SYSOPNEXT:
- /* If sysop next command has been chosen, then toggle the */
- /* sysop next flag on or off. */
- od_control.sysop_next = !od_control.sysop_next;
-
- /* Update the sysop next menu item and toolbar button. */
- CheckMenuItem(GetMenu(hwnd), ID_DOOR_SYSOPNEXT, MF_BYCOMMAND |
- (od_control.sysop_next ? MF_CHECKED : MF_UNCHECKED));
- SendMessage(GetDlgItem(hwnd, ID_TOOLBAR), TB_CHECKBUTTON,
- ID_DOOR_SYSOPNEXT, MAKELONG(od_control.sysop_next, 0));
- break;
-
- case ID_DOOR_HANGUP:
- /* If hangup command has been chosen, then confirm with the */
- /* local user. */
- if(MessageBox(hwnd,
- "You are about to disconnect this user. Do you wish to proceed?",
- od_control.od_prog_name,
- MB_ICONQUESTION | MB_YESNO) == IDYES)
- {
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_HANGUP);
- }
- break;
-
- case ID_DOOR_LOCKOUT:
- /* If lockout command has been chosen, the confirm with the */
- /* local user. */
- if(MessageBox(hwnd,
- "You are about to lock out this user. Do you wish to proceed?",
- od_control.od_prog_name,
- MB_ICONQUESTION | MB_YESNO) == IDYES)
- {
- /* Set the user's access security level to 0. */
- od_control.user_security = 0;
-
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_HANGUP);
- }
- break;
-
- case ID_VIEW_TOOL_BAR:
- {
- HKEY hOpenDoorsKey;
-
- /* If toolbar on/off command has been chosen ... */
- if(pWindowInfo->bToolbarOn)
- {
- /* If the toolbar is on, then turn it off. */
- ODFrameDestroyToolbar(GetDlgItem(hwnd, ID_TOOLBAR),
- pWindowInfo);
- pWindowInfo->bToolbarOn = FALSE;
- CheckMenuItem(GetMenu(hwnd), ID_VIEW_TOOL_BAR,
- MF_BYCOMMAND | MF_UNCHECKED);
- }
- else
- {
- /* If the toolbar is off, then turn it on. */
- pWindowInfo->hwndToolbar = ODFrameCreateToolbar(hwnd,
- pWindowInfo->hInstance, pWindowInfo);
- pWindowInfo->bToolbarOn = TRUE;
- CheckMenuItem(GetMenu(hwnd), ID_VIEW_TOOL_BAR,
- MF_BYCOMMAND | MF_CHECKED);
- ODFrameUpdateCmdUI();
- }
-
- /* Adjust window sizes accordingly. */
- ODScrnAdjustWindows();
-
- /* Update the toolbar setting in the registry. */
- RegCreateKey(HKEY_CURRENT_USER, "Software\\Pirie\\OpenDoors",
- &hOpenDoorsKey);
- RegSetValueEx(hOpenDoorsKey, "ToolBarOn", 0, REG_DWORD,
- (LPBYTE)&pWindowInfo->bToolbarOn,
- sizeof(pWindowInfo->bToolbarOn));
- RegCloseKey(hOpenDoorsKey);
- break;
- }
-
- case ID_VIEW_STAT_BAR:
- {
- HKEY hOpenDoorsKey;
-
- /* If the status bar on/off command has been chosen ... */
- if(pWindowInfo->bStatusBarOn)
- {
- /* If the status bar is on, then turn it off. */
- pWindowInfo->bStatusBarOn = FALSE;
- CheckMenuItem(GetMenu(hwnd), ID_VIEW_STAT_BAR,
- MF_BYCOMMAND | MF_UNCHECKED);
- ODFrameDestroyStatusBar(GetDlgItem(hwnd, ID_STATUSBAR));
- }
- else
- {
- /* If the status bar is off, then turn it on. */
- pWindowInfo->bStatusBarOn = TRUE;
- CheckMenuItem(GetMenu(hwnd), ID_VIEW_STAT_BAR,
- MF_BYCOMMAND | MF_CHECKED);
- pWindowInfo->hwndStatusBar =
- ODFrameCreateStatusBar(hwnd, pWindowInfo->hInstance);
- }
-
- /* Adjust window sizes accordingly. */
- ODScrnAdjustWindows();
-
- /* Update the status bar setting in the registry. */
- RegCreateKey(HKEY_CURRENT_USER, "Software\\Pirie\\OpenDoors",
- &hOpenDoorsKey);
- RegSetValueEx(hOpenDoorsKey, "StatusBarOn", 0, REG_DWORD,
- (LPBYTE)&pWindowInfo->bStatusBarOn,
- sizeof(pWindowInfo->bStatusBarOn));
- RegCloseKey(hOpenDoorsKey);
- break;
- }
-
- case ID_USER_ADDONEMINUTE:
- /* If add one minute command has been chosen, then */
- /* increment the user's time, up to the maximum allowable */
- /* time. */
- if(od_control.user_timelimit < MAX_TIME)
- {
- od_control.user_timelimit++;
- ODFrameUpdateTimeLeft(pWindowInfo);
- }
- break;
-
- case ID_USER_ADDFIVEMINUTES:
- /* If add five minutes command has been chosen, then */
- /* adjust the user's time accordingly. */
- od_control.user_timelimit =
- MIN(od_control.user_timelimit + 5, MAX_TIME);
- ODFrameUpdateTimeLeft(pWindowInfo);
- break;
-
- case ID_USER_SUBTRACTONEMINUTE:
- /* If subtract one minute command has been chosen, then */
- /* adjust the user's time accordingly. */
- if(od_control.user_timelimit > MIN_TIME)
- {
- od_control.user_timelimit--;
- ODFrameUpdateTimeLeft(pWindowInfo);
- }
- break;
-
- case ID_USER_SUBTRACTFIVEMINUTES:
- /* If the subtract five mintues command has been chosen, */
- /* then adjust the user's time accordingly. */
- od_control.user_timelimit =
- MAX(od_control.user_timelimit - 5, MIN_TIME);
- ODFrameUpdateTimeLeft(pWindowInfo);
- break;
-
- case ID_USER_INACTIVITYTIMER:
- /* If the user inactivity timer command has been chosen, */
- /* then toggle the timer on or off. */
- od_control.od_disable_inactivity =
- !od_control.od_disable_inactivity;
- CheckMenuItem(GetMenu(hwnd), ID_USER_INACTIVITYTIMER,
- MF_BYCOMMAND | (od_control.od_disable_inactivity ?
- MF_UNCHECKED : MF_CHECKED));
- break;
-
- case ID_TIME_EDIT:
- {
- /* If the user's time remaining has been directly edited, */
- /* then adjust the time limit accordingly. */
- if(HIWORD(wParam) == EN_CHANGE)
- {
- char szTimeText[40];
- GetWindowText((HWND)lParam, szTimeText, sizeof(szTimeText));
- od_control.user_timelimit = atoi(szTimeText);
-
- /* Do not allow the time limit to fall outside of the */
- /* valid range. */
- od_control.user_timelimit =
- MAX(MIN_TIME, od_control.user_timelimit);
- od_control.user_timelimit =
- MIN(MAX_TIME, od_control.user_timelimit);
-
- /* Update the position of the up-down control. */
- SendMessage(pWindowInfo->hwndTimeUpDown, UDM_SETPOS, 0,
- (LPARAM)MAKELONG(od_control.user_timelimit, 0));
- }
- }
-
- default:
- return(TRUE);
- }
- return(FALSE);
-
- case WM_NOTIFY:
- /* A control parent notification message has been sent. */
- switch(((LPNMHDR)lParam)->code)
- {
- case TTN_NEEDTEXT:
- {
- /* This is the message from the tool tip control, requesting */
- /* the appropriate string to display for the current toolbar */
- /* item. */
- LPTOOLTIPTEXT lpToolTipText = (LPTOOLTIPTEXT)lParam;
- switch(lpToolTipText->hdr.idFrom)
- {
- case ID_DOOR_EXIT:
- lpToolTipText->lpszText = "Exit To BBS";
- break;
- case ID_DOOR_CHATMODE:
- lpToolTipText->lpszText = "Chat Mode";
- break;
- case ID_DOOR_USERKEYBOARDOFF:
- lpToolTipText->lpszText = "User Keyboard Off";
- break;
- case ID_DOOR_SYSOPNEXT:
- lpToolTipText->lpszText = "Sysop Next";
- break;
- case ID_DOOR_HANGUP:
- lpToolTipText->lpszText = "Hangup";
- break;
- case ID_DOOR_LOCKOUT:
- lpToolTipText->lpszText = "Lockout";
- break;
- }
- break;
- }
- }
- break;
-
- case WM_VSCROLL:
- /* A scrolling action has taken place. */
-
- /* If it is the time limit up-down control that has scrolled. */
- if((HWND)lParam == pWindowInfo->hwndTimeUpDown)
- {
- int nPos = HIWORD(wParam);
-
- /* Adjust the user's time limit. */
- od_control.user_timelimit = MAX(MIN(nPos, MAX_TIME), MIN_TIME);
-
- /* Update the time left displayed in the edit box. */
- ODFrameUpdateTimeLeft(pWindowInfo);
- }
- break;
-
- case WM_SIZE:
- /* The OpenDoors frame window has been resized, so its contents */
- /* must now be resized accordingly. */
-
- /* Pass the message on to the status bar window, so that it will */
- /* automatically adjust its own position and overall size. */
- SendMessage(GetDlgItem(hwnd, ID_STATUSBAR), WM_SIZE, wParam, lParam);
-
- /* Now, adjust the size of each part of the status bar. */
- ODFrameSizeStatusBar(GetDlgItem(hwnd, ID_STATUSBAR));
-
- /* Pass the message on to the toolbar, so that it will resize */
- /* iteself. */
- SendMessage(GetDlgItem(hwnd, ID_TOOLBAR), WM_SIZE, wParam, lParam);
- break;
-
- case WM_MENUSELECT:
- /* If the user has selected an item on the menu, then we should */
- /* update the status bar accordingly. */
- if(HIWORD(wParam) == 0xFFFF)
- {
- /* If menu is being exited, then turn off the status bar simple */
- /* mode. */
- HWND hwndStatusBar = GetDlgItem(hwnd, ID_STATUSBAR);
-
- SendMessage(hwndStatusBar, SB_SIMPLE, (WPARAM)FALSE, 0L);
- }
- else
- {
- char szCommandString[160] = "";
- HWND hwndStatusBar = GetDlgItem(hwnd, ID_STATUSBAR);
-
- /* A new menu item is being selected. */
-
- /* If this item is on the system menu, then provide the strings */
- /* for any of those menu items. */
- if(HIWORD(wParam) & MF_SYSMENU)
- {
- switch(LOWORD(wParam))
- {
- case SC_SIZE:
- strcpy(szCommandString,
- "Resizes this window.");
- break;
- case SC_MOVE:
- strcpy(szCommandString,
- "Moves this window.");
- break;
- case SC_MINIMIZE:
- strcpy(szCommandString,
- "Collapses this window to an icon.");
- break;
- case SC_MAXIMIZE:
- strcpy(szCommandString,
- "Expands this window to fill the screen.");
- break;
- case SC_CLOSE:
- strcpy(szCommandString,
- "Closes this window, and returns the user to the BBS.");
- break;
- case SC_RESTORE:
- strcpy(szCommandString,
- "Restores this window to normal size.");
- break;
- case SC_TASKLIST:
- strcpy(szCommandString,
- "");
- break;
- }
- }
- else
- {
- /* If this item is on the window menu provided by OpenDoors, */
- /* then load the status bar string for this command ID. */
- LoadString(pWindowInfo->hInstance, LOWORD(wParam),
- szCommandString, sizeof(szCommandString));
- }
-
- /* Switch the status bar into simple (single-paned) mode. */
- SendMessage(hwndStatusBar, SB_SIMPLE, (WPARAM)TRUE, 0L);
-
- /* Set the text for the status bar. */
- SendMessage(hwndStatusBar, SB_SETTEXT, (WPARAM)255 | SBT_NOBORDERS,
- (LPARAM)szCommandString);
- }
- return(DefWindowProc(hwnd, uMsg, wParam, lParam));
-
- case WM_SHOW_MESSAGE:
- if(pWindowInfo->hwndMessageWindow == NULL)
- {
- pWindowInfo->pszCurrentMessage = (char *)lParam;
- pWindowInfo->nCurrentMessageFlags = (int)wParam;
-
- /* Create the message window. */
- DialogBoxParam(pWindowInfo->hInstance,
- MAKEINTRESOURCE(IDD_MESSAGE), hwnd, ODFrameMessageDlgProc,
- (LPARAM)pWindowInfo);
- }
- break;
-
- case WM_REMOVE_MESSAGE:
- if(pWindowInfo->hwndMessageWindow != NULL)
- {
- PostMessage(pWindowInfo->hwndMessageWindow, WM_COMMAND,
- MAKELONG(IDOK, 0), 0L);
- pWindowInfo->hwndMessageWindow = NULL;
- }
- break;
-
- default:
- /* Pass messages that we don't explicitly handle on to the */
- /* default window proc. */
- return(DefWindowProc(hwnd, uMsg, wParam, lParam));
- }
-
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameUpdateCmdUI()
- *
- * Updates the enabled and checked state of OpenDoors commands that may change.
- *
- * Parameters: None.
- *
- * Return: void.
- */
-void ODFrameUpdateCmdUI(void)
-{
- HWND hwndFrame = hwndCurrentFrame;
- HMENU hMenu = GetMenu(hwndFrame);
- HWND hwndToolbar = GetDlgItem(hwndFrame, ID_TOOLBAR);
- tODFrameWindowInfo *pWindowInfo;
-
- if(hwndFrame == NULL) return;
-
- /* Obtain window information structure. */
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndFrame, GWL_USERDATA);
- if(pWindowInfo == NULL) return;
-
- /* Check or uncheck the toolbar and status bar menu items. */
- CheckMenuItem(hMenu, ID_VIEW_TOOL_BAR, MF_BYCOMMAND |
- (pWindowInfo->bToolbarOn ? MF_CHECKED : MF_UNCHECKED));
- CheckMenuItem(hMenu, ID_VIEW_STAT_BAR, MF_BYCOMMAND |
- (pWindowInfo->bStatusBarOn ? MF_CHECKED : MF_UNCHECKED));
-
- /* Check or uncheck the inactivity timer menu item. */
- CheckMenuItem(hMenu, ID_USER_INACTIVITYTIMER, MF_BYCOMMAND |
- (od_control.od_disable_inactivity ? MF_UNCHECKED : MF_CHECKED));
-
- /* Check or uncheck the sysop next menu item and toolbar button. */
- CheckMenuItem(hMenu, ID_DOOR_SYSOPNEXT, MF_BYCOMMAND |
- (od_control.sysop_next ? MF_CHECKED : MF_UNCHECKED));
- SendMessage(hwndToolbar, TB_CHECKBUTTON,
- ID_DOOR_SYSOPNEXT, MAKELONG(od_control.sysop_next, 0));
-
- /* Check or uncheck the keyboard off menu item and toolbar button. */
- CheckMenuItem(hMenu, ID_DOOR_USERKEYBOARDOFF, MF_BYCOMMAND |
- (od_control.od_user_keyboard_on ? MF_UNCHECKED : MF_CHECKED));
- SendMessage(hwndToolbar, TB_CHECKBUTTON,
- ID_DOOR_USERKEYBOARDOFF,
- MAKELONG(!od_control.od_user_keyboard_on, 0));
-
- /* Update the chat mode menu item and toolbar button. */
- CheckMenuItem(hMenu, ID_DOOR_CHATMODE, MF_BYCOMMAND |
- (od_control.od_chat_active ? MF_CHECKED : MF_UNCHECKED));
- SendMessage(hwndToolbar, TB_CHECKBUTTON, ID_DOOR_CHATMODE,
- MAKELONG(od_control.od_chat_active, 0));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameUpdateTimeDisplay()
- *
- * Updates the remaining time online that is displayed anywhere by the frame
- * window. Uses ODFrameUpdateTimeLeft().
- *
- * Parameters: None.
- *
- * Return: void.
- */
-void ODFrameUpdateTimeDisplay(void)
-{
- tODFrameWindowInfo *pWindowInfo;
-
- /* If there is no current frame window, then return without doing */
- /* anything. */
- if(hwndCurrentFrame == NULL) return;
-
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndCurrentFrame,
- GWL_USERDATA);
- ASSERT(pWindowInfo != NULL);
-
- ODFrameUpdateTimeLeft(pWindowInfo);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameUpdateWantChat()
- *
- * Updates the state of the flashing wants-chat indicator on the frame window.
- *
- * Parameters: None.
- *
- * Return: void.
- */
-void ODFrameUpdateWantChat(void)
-{
- tODFrameWindowInfo *pWindowInfo;
-
- /* If there is no current frame window, then return without doing */
- /* anything. */
- if(hwndCurrentFrame == NULL) return;
-
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndCurrentFrame,
- GWL_USERDATA);
- ASSERT(pWindowInfo != NULL);
-
- /* If the status bar is on, then update the text displayed in the */
- /* status bar's main pane. */
- if(pWindowInfo->bStatusBarOn)
- {
- ODFrameSetMainStatusText(pWindowInfo->hwndStatusBar);
- }
-
- /* Toggle the state of the wants-chat indicator, of needed. */
- if(pWindowInfo->bWantsChatIndicator && !od_control.user_wantchat)
- {
- /* Restore original window text. */
- SetWindowText(hwndCurrentFrame, od_control.od_prog_name);
-
- /* Restore the window flash to its original state. */
- FlashWindow(hwndCurrentFrame, FALSE);
-
- /* Destroy the Windows timer. */
- KillTimer(hwndCurrentFrame, 1);
-
- /* Record that wants chat indicator is now off. */
- pWindowInfo->bWantsChatIndicator = FALSE;
- }
- else if (!pWindowInfo->bWantsChatIndicator && od_control.user_wantchat)
- {
- /* Set window title to include the wants chat indicator. */
- char szNewWindowTitle[sizeof(od_control.od_prog_name) + 20];
- sprintf(szNewWindowTitle, "%s - User Wants Chat",
- od_control.od_prog_name);
- SetWindowText(hwndCurrentFrame, szNewWindowTitle);
-
- /* Start the flashing the window. */
- SetTimer(hwndCurrentFrame, 1,
- GetCaretBlinkTime(), NULL);
-
- /* Record that wants chat indicator is now on. */
- pWindowInfo->bWantsChatIndicator = TRUE;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameDestroyWindow() *** PRIVATE FUNCTION ***
- *
- * Destroys the OpenDoors frame window and its children.
- *
- * Parameters: hwndFrame - Handle to the window previously created by
- * ODFrameCreateWindow().
- *
- * Return: void.
- */
-static void ODFrameDestroyWindow(HWND hwndFrame)
-{
- tODFrameWindowInfo *pWindowInfo;
-
- ASSERT(hwndFrame != NULL);
-
- /* Obtain a pointer to the frame window information structure. */
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndFrame, GWL_USERDATA);
-
- /* At this point, deallocate the accelerator table. */
- if(pWindowInfo->hacclFrameCommands != NULL)
- {
- DestroyAcceleratorTable(pWindowInfo->hacclFrameCommands);
- }
-
- /* Destroying the main frame window will automatically cause its */
- /* children to be destroyed. */
- DestroyWindow(hwndFrame);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameToolbarProc() *** PRIVATE FUNCTION ***
- *
- * The toolbar window proceedure.
- *
- * Parameters: hwnd - Handle to the toolbar window.
- *
- * uMsg - Specifies the message.
- *
- * wParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * lParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * Return: The return value is the result of the message processing and
- * depends on the message.
- */
-LRESULT CALLBACK ODFrameToolbarProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- switch(uMsg)
- {
- /* Forward needed message to the main frame window proceedure. */
- case WM_VSCROLL:
- case WM_COMMAND:
- SendMessage(GetParent(hwnd), uMsg, wParam, lParam);
- break;
- }
-
- /* Pass all messages on to the default toolbar window proceedure. */
- return(CallWindowProc(pfnDefToolbarProc, hwnd, uMsg, wParam, lParam));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameUpdateTimeLeft() *** PRIVATE FUNCTION ***
- *
- * Updates the displayed time remaining from od_control.user_timelimit.
- *
- * Parameters: pWindowInfo - Pointer to frame window information structure.
- *
- * Return: void.
- */
-static void ODFrameUpdateTimeLeft(tODFrameWindowInfo *pWindowInfo)
-{
- char szTimeLeft[12];
- RECT rcWindow;
-
- if(pWindowInfo->hwndTimeEdit == NULL)
- {
- /* If the time limit edit control does not exist (i.e., if the */
- /* toolbar is not currently on), then there is nothing for us to do. */
- return;
- }
-
- /* Generate the string to be displayed in the edit control. */
- sprintf(szTimeLeft, "%d min.", od_control.user_timelimit);
-
- /* Set the edit control's text to the new string. */
- SetWindowText(pWindowInfo->hwndTimeEdit, szTimeLeft);
-
- /* Force edit control to be redrawn. (Except for rightmost pixel */
- /* column.) */
- GetWindowRect(pWindowInfo->hwndTimeEdit, &rcWindow);
- rcWindow.right--;
- InvalidateRect(pWindowInfo->hwndTimeEdit, &rcWindow, TRUE);
-
- /* Set the position of the up-down control to match. */
- SendMessage(pWindowInfo->hwndTimeUpDown, UDM_SETPOS, 0,
- (LPARAM)MAKELONG(od_control.user_timelimit, 0));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameTimeEditProc() *** PRIVATE FUNCTION ***
- *
- * The time edit window proceedure. Relays mouse messages from the edit box
- * to the tooltip control, and then passes all messages on to the standard
- * edit box window proceedure.
- *
- * Parameters: hwnd - Handle to the time edit window.
- *
- * uMsg - Specifies the message.
- *
- * wParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * lParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * Return: The return value is the result of the message processing and
- * depends on the message.
- */
-LRESULT CALLBACK ODFrameTimeEditProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- switch(uMsg)
- {
- case WM_MOUSEMOVE:
- case WM_LBUTTONDOWN:
- case WM_LBUTTONUP:
- {
- MSG msg;
- HWND hwndToolTip;
-
- /* Setup message structure. */
- msg.lParam = lParam;
- msg.wParam = wParam;
- msg.message = uMsg;
- msg.hwnd = hwnd;
-
- /* Obtain handle to the tooltip window. */
- hwndToolTip = (HWND)SendMessage(GetParent(hwnd), TB_GETTOOLTIPS,
- 0, 0);
-
- /* Relay the message to the tooltip window. */
- SendMessage(hwndToolTip, TTM_RELAYEVENT, 0, (LPARAM)(LPMSG)&msg);
-
- break;
- }
- }
-
- /* Pass all messages on to the default edit box window proceedure. */
- return(CallWindowProc(pfnDefEditProc, hwnd, uMsg, wParam, lParam));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameAboutDlgProc()
- *
- * DialogProc for the OpenDoors default Help About dialog box.
- *
- * Parameters: hwndDlg - Window handle to the dialog box.
- *
- * uMsg - Message ID.
- *
- * wParam - First message parameter.
- *
- * lParam - Second message parameter.
- *
- * Return: TRUE if message is processed, FALSE otherwise.
- */
-BOOL CALLBACK ODFrameAboutDlgProc(HWND hwndDlg, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- switch(uMsg)
- {
- case WM_INITDIALOG:
- /* At dialog box creation time, update the text in the about */
- /* box with any information provided by the OpenDoors programmer. */
-
- /* If a program name has been provided, then display it. */
- if(strcmp(od_control.od_prog_name, OD_VER_SHORTNAME) != 0)
- {
- SetWindowText(GetDlgItem(hwndDlg, IDC_DOORNAME),
- od_control.od_prog_name);
- }
-
- /* If copyright information has been provided, then display it. */
- if(strlen(od_control.od_prog_copyright) > 0)
- {
- SetWindowText(GetDlgItem(hwndDlg, IDC_COPYRIGHT),
- od_control.od_prog_copyright);
- }
-
- /* If program version information has been provided, then display */
- /* it. */
- if(strlen(od_control.od_prog_version) > 0)
- {
- SetWindowText(GetDlgItem(hwndDlg, IDC_VERSION),
- od_control.od_prog_version);
- }
-
- /* Center the about dialog box in the area occupied by the */
- /* main frame window. */
- ODFrameCenterWindowInParent(hwndDlg);
-
- return(TRUE);
-
- case WM_COMMAND:
- /* If a command has been chosen. */
- switch(LOWORD(wParam))
- {
- case IDCANCEL:
- case IDOK:
- /* If the OK button has been pressed, then close the dialog. */
- EndDialog(hwndDlg, IDOK);
- break;
- }
- return(TRUE);
-
- default:
- /* Otherwise, indicate that this message has not been processed. */
- return(FALSE);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameCenterWindowInParent() *** PRIVATE FUNCTION ***
- *
- * Repositions the specified window so that it is centered in its parent.
- *
- * Parameters: hwndChild - The window to reposition.
- *
- * Return: void.
- */
-void ODFrameCenterWindowInParent(HWND hwndChild)
-{
- HWND hwndParent;
- RECT rcParent;
- RECT rcChild;
- INT nChildWidth;
- INT nChildHeight;
- INT nParentWidth;
- INT nParentHeight;
-
- ASSERT(hwndChild != NULL);
-
- /* Obtain a handle to the parent window. */
- hwndParent = GetParent(hwndChild);
- ASSERT(hwndParent != NULL);
-
- /* Obtain the bounding boxes of both windows. */
- GetWindowRect(hwndChild, &rcChild);
- GetWindowRect(hwndParent, &rcParent);
-
- /* Determine the height and width of both windows. */
- nChildWidth = rcChild.right - rcChild.left;
- nChildHeight = rcChild.bottom - rcChild.top;
- nParentWidth = rcParent.right - rcParent.left;
- nParentHeight = rcParent.bottom - rcParent.top;
-
- /* Move the child to the center of the parent. */
- SetWindowPos(hwndChild, NULL,
- rcParent.left + (nParentWidth - nChildWidth) / 2,
- rcParent.top + (nParentHeight - nChildHeight) / 2,
- 0, 0, SWP_NOSIZE | SWP_NOZORDER);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameMessageLoop() *** PRIVATE FUNCTION ***
- *
- * Message loop for OpenDoors local UI thread (frame window handling).
- *
- * Parameters: hInstance - Handle to current instance.
- *
- * hwndFrame - Handle to the frame window.
- *
- * Return: void.
- */
-static void ODFrameMessageLoop(HANDLE hInstance, HWND hwndFrame)
-{
- MSG msg;
-
- ASSERT(hInstance != NULL);
- ASSERT(hwndFrame != NULL);
-
- /* Loop, fetching, translating and dispatching messages for any windows */
- /* created by this thread. (GetMessage() blocks when no messages are */
- /* available.) */
- while(GetMessage(&msg, NULL, 0, 0))
- {
- if(!ODFrameTranslateAccelerator(hwndFrame, &msg))
- {
- TranslateMessage(&msg);
- DispatchMessage(&msg);
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameTranslateAccelerator()
- *
- * Translates WM_KEYDOWN or WM_SYSKEYDOWN messages to frame window commands,
- * if needed, based on the frame window's accelerator table.
- *
- * Parameters: hwndFrame - Handle to the OpenDoors main frame window.
- *
- * pMsg - Pointer to the message that may require
- * translation.
- *
- * Return: TRUE if message was translated, FALSE if not.
- */
-BOOL ODFrameTranslateAccelerator(HWND hwndFrame, LPMSG pMsg)
-{
- tODFrameWindowInfo *pWindowInfo;
-
- ASSERT(hwndFrame != NULL);
- ASSERT(pMsg != NULL);
-
- /* Obtain a pointer to the frame window information structure. */
- pWindowInfo = (tODFrameWindowInfo *)GetWindowLong(hwndFrame, GWL_USERDATA);
- ASSERT(pWindowInfo != NULL);
-
- /* Perform accelerator translation, based on the frame window's */
- /* accelerator table, sending any resulting WM_COMMAND messages */
- /* to the frame window. */
- return(TranslateAccelerator(hwndFrame, pWindowInfo->hacclFrameCommands,
- pMsg) != 0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameThreadProc() *** PRIVATE FUNCTION ***
- *
- * Function that execute the OpenDoors frame window thread.
- *
- * Parameters: pParam - The thread parameter, which must be the handle to the
- * current application instance.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-DWORD OD_THREAD_FUNC ODFrameThreadProc(void *pParam)
-{
- HWND hwndFrame;
- HANDLE hInstance = (HANDLE)pParam;
-
- /* Create the frame window. */
- hwndFrame = ODFrameCreateWindow(hInstance);
-
- if(hwndFrame == NULL)
- {
- return(FALSE);
- }
-
- /* Store a pointer to the frame window. */
- hwndCurrentFrame = hwndFrame;
-
- /* Loop, processing messages for the frame window. */
- ODFrameMessageLoop(hInstance, hwndFrame);
-
- /* Destroy the frame window. */
- ODFrameDestroyWindow(hwndFrame);
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameStart()
- *
- * Function that starts up the frame window.
- *
- * Parameters: hInstance - Handle to the current application instance.
- *
- * phFrameThread - Pointer to the frame thread handle.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODFrameStart(HANDLE hInstance, tODThreadHandle *phFrameThread)
-{
- return(ODThreadCreate(phFrameThread, ODFrameThreadProc,
- (void *)hInstance));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFrameMessageDlgProc()
- *
- * Dialog proceedure for the OpenDoors message window.
- *
- * Parameters: hwndDlg - Window handle to the dialog box.
- *
- * uMsg - Message ID.
- *
- * wParam - First message parameter.
- *
- * lParam - Second message parameter.
- *
- * Return: TRUE if message is processed, FALSE otherwise.
- */
-BOOL CALLBACK ODFrameMessageDlgProc(HWND hwndDlg, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- switch(uMsg)
- {
- case WM_INITDIALOG:
- {
- tODFrameWindowInfo *pWindowInfo;
-
- pWindowInfo = (tODFrameWindowInfo *)lParam;
-
- ASSERT(pWindowInfo != NULL);
-
- pWindowInfo->hwndMessageWindow = hwndDlg;
-
- /* Set the message window title. */
- SetWindowText(hwndDlg, od_control.od_prog_name);
-
- /* Change the text displayed in the message window. */
- SetWindowText(GetDlgItem(hwndDlg, IDC_MESSAGE_TEXT1),
- (char *)pWindowInfo->pszCurrentMessage);
-
- /* Center window in parent window. */
- ODFrameCenterWindowInParent(hwndDlg);
-
- return(FALSE);
- }
-
- case WM_COMMAND:
- /* If a command has been chosen. */
- switch(LOWORD(wParam))
- {
- case IDOK:
- /* If the OK button has been pressed, then close the dialog. */
- EndDialog(hwndDlg, IDOK);
- break;
- }
- return(TRUE);
-
- default:
- /* Indicate that this message has not been processed. */
- return(FALSE);
- }
-
- return(TRUE);
-}
-
-
-#endif /* ODPLAT_WIN32 */
diff --git a/src/odoors/ODFrame.h b/src/odoors/ODFrame.h
deleted file mode 100644
index d10a41d1191d2643e0de9fe309521d0a4e26b846..0000000000000000000000000000000000000000
--- a/src/odoors/ODFrame.h
+++ /dev/null
@@ -1,58 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODFrame.h
- *
- * Description: Defines the public interface to the OpenDoors frame window.
- * This file is only applicable when building the Win32 version
- * of OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Aug 20, 1995 6.00 BP Created.
- * Jan 20, 1996 6.00 BP Made ODFrameCenter...() shared.
- * Feb 17, 1996 6.00 BP Add ...Accelerator() return value.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODFRAME
-#define _INC_ODFRAME
-
-#include "ODPlat.h"
-#include "ODGen.h"
-
-#ifdef ODPLAT_WIN32
-
-/* Public frame window functions. */
-tODResult ODFrameStart(HANDLE hInstance, tODThreadHandle *phFrameThread);
-INT ODFrameGetUsedClientAtTop(HWND hwndFrame);
-INT ODFrameGetUsedClientAtBottom(HWND hwndFrame);
-BOOL ODFrameTranslateAccelerator(HWND hwndFrame, LPMSG pMsg);
-void ODFrameUpdateCmdUI(void);
-void ODFrameUpdateTimeDisplay(void);
-void ODFrameUpdateWantChat(void);
-void ODFrameCenterWindowInParent(HWND hwndChild);
-
-/* User defined messages that are handled by the frame window. */
-#define WM_SHOW_MESSAGE (WM_USER + 1)
-#define WM_REMOVE_MESSAGE (WM_USER + 2)
-
-#endif /* ODPLAT_WIN32 */
-
-#endif /* _INC_ODFRAME */
diff --git a/src/odoors/ODGen.h b/src/odoors/ODGen.h
deleted file mode 100644
index 192cda743385eaa8caca2c7685eee318d323418e..0000000000000000000000000000000000000000
--- a/src/odoors/ODGen.h
+++ /dev/null
@@ -1,194 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODGen.h
- *
- * Description: Contains general definitions used throughout OpenDoors,
- * including: - version information manifest constants
- * - debugging macros
- * - compiler-dependent definitions
- * - internally used macros
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP Created.
- * Oct 20, 1994 6.00 BP Added DIM macro.
- * Dec 31, 1994 6.00 BP Remove USEINLINE option.
- * Dec 12, 1995 6.00 BP Moved ODPLAT_??? to OpenDoor.h.
- * Dec 19, 1995 6.00 BP Implement ASSERT() for Win32.
- * Jan 23, 1996 6.00 BP Added OD_TEXTMODE.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 24, 1996 6.00 BP Turn off OD_DIAGNOSTICS.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 03, 1996 6.10 BP Moved ODFAR to OpenDoor.h.
- * Oct 19, 2001 6.20 RS Incremented version for socket support.
- */
-
-#ifndef _INC_ODGEN
-#define _INC_ODGEN
-
-
-/* PLATFORM-SPECIFIC DEFINITIONS. */
-
-/* DLL specific defintions. */
-#ifdef OD_DLL
-#ifdef ODPLAT_WIN32
-#define OD_DLL_NAME "ODOORS62"
-#endif /* ODPLAT_WIN32 */
-#endif /* OD_DLL */
-
-/* Mutlithreading specific definitions. */
-#ifdef ODPLAT_WIN32
-#define OD_MULTITHREADED
-#endif /* ODPLAT_WIN32 */
-
-/* Text mode specific definitions. */
-#if defined(ODPLAT_DOS) || defined(ODPLAT_NIX)
-#define OD_TEXTMODE
-#endif /* ODPLAT_DOS */
-
-/* DOS specific definitions. */
-#ifdef ODPLAT_DOS
-
-/* Keyword to flag ISR functions. */
-#define INTERRUPT interrupt
-
-/* Inline assembly keyword varies from compiler to compiler. */
-#ifdef _MSC_VER
-#define ASM __asm
-#else
-#define ASM asm
-#endif
-
-/* Memory model information. */
-#ifdef __TINY__
-#define SMALLDATA
-#define SMALLCODE
-#endif
-#ifdef __SMALL__
-#define SMALLDATA
-#define SMALLCODE
-#endif
-#ifdef __COMPACT__
-#define LARGEDATA
-#define SMALLCODE
-#endif
-#ifdef __MEDIUM__
-#define SMALLDATA
-#define LARGECODE
-#endif
-#ifdef __LARGE__
-#define LARGEDATA
-#define LARGECODE
-#endif
-#ifdef __HUGE__
-#define LARGEDATA
-#define LARGECODE
-#endif
-#endif /* ODPLAT_DOS */
-
-
-/* VERSION INFORMATION CONSTANTS. */
-#define OD_VER_SHORTNAME "OpenDoors"
-#define OD_VER_STATUSLINE " OpenDoors 6.20 - (C) Copyright 1991-2001" \
- " by Brian Pirie "
-#define OD_VER_UNREG_STAT " OpenDoors 6.20 *WARNING* Unregistered Version" \
- " - Limit 1 month trial period! "
-
-#ifdef ODPLAT_DOS
-#define OD_VER_SIGNON "[OpenDoors 6.20/DOS - " \
- "(C) Copyright 1991-2001 by Brian Pirie]\n\r"
-#define OD_VER_FULLNAME "OpenDoors 6.20/DOS"
-#endif /* ODPLAT_DOS */
-#ifdef ODPLAT_WIN32
-#define OD_VER_SIGNON "[OpenDoors 6.20/Win32 - " \
- "(C) Copyright 1991-2001 by Brian Pirie]\n\r"
-#define OD_VER_FULLNAME "OpenDoors 6.20/Win32"
-#endif /* ODPLAT_WIN32 */
-
-
-/* COMPILER DEPENDENT DEFINITIONS. */
-
-/* Some compilers don't like const keyword on parameters. */
-#define CONST const
-
-
-/* DEBUG MACROS. */
-
-/* OD_DEBUG is defined for debug version of the library. */
-/* #define OD_DEBUG */
-
-/* OD_DIAGNOSTICS is defined to enable od_internal_debug. */
-/* #define OD_DIAGNOSTICS */
-
-/* ASSERTion macro - terminates if test condition fails. */
-#ifdef OD_DEBUG
-#define __STR(x) __VAL(x)
-#define __VAL(x) #x
-#ifdef ODPLAT_WIN32
-#define ASSERT(x) if(!(x)) { MessageBox(NULL, __FILE__ ":" \
- __STR(__LINE__) "\n" #x, OD_VER_FULLNAME " - Test condition failed", \
- MB_ICONSTOP | MB_OK); exit(1); }
-#else /* !ODPLAT_WIN32 */
-#define ASSERT(x) if(!(x)) { puts(OD_VER_FULLNAME \
- " - Test condition failed:\n" __FILE__ ":" __STR(__LINE__) "\n" #x); \
- exit(1); }
-#endif /* !ODPLAT_WIN32 */
-#else /* !OD_DEBUG */
-#define ASSERT(x)
-#endif /* !OD_DEBUG */
-
-/* TRACE() macro - used to generate debug output. */
-#ifdef OD_TRACE
-#include <stdio.h>
-#define TRACE_API 1
-#define TRACE(x, y) printf("[%s]", y);
-#else
-#define TRACE(x, y)
-#endif
-
-
-/* SCREEN SIZE. */
-#define OD_SCREEN_WIDTH 80
-#define OD_SCREEN_HEIGHT 25
-
-
-/* INTERNALLY USED MACROS. */
-
-/* MIN() and MAX() macros. Note that expressions passed to macros may be */
-/* evaluated more than once. For this reason, it is best to only pass */
-/* constants or variables to these macros. */
-#ifndef MIN
-#define MIN(x, y) ((x) > (y)) ? (y) : (x)
-#endif /* !MIN */
-#ifndef MAX
-#define MAX(x, y) ((x) > (y)) ? (x) : (y)
-#endif /* !MAX */
-
-/* DIM() macro. Returns the number of elements in an array. */
-#ifndef DIM
-#define DIM(x) (sizeof(x) / sizeof(*x))
-#endif /* !DIM */
-
-/* UNUSED() macro. Used to flag that a function parameter is intentionally */
-/* not used, thus preventing a compile-time warning. */
-#define UNUSED(x) ((void)(x))
-
-#endif /* !_INC_ODGEN */
diff --git a/src/odoors/ODGetIn.c b/src/odoors/ODGetIn.c
deleted file mode 100644
index 2af72f808ff2dd7c72c045fbba5164f81c42b4f6..0000000000000000000000000000000000000000
--- a/src/odoors/ODGetIn.c
+++ /dev/null
@@ -1,470 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODGetIn.c
- *
- * Description: Implements the od_get_input() function, which obtains the
- * next input event of any type, optionally performing
- * translation.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Jan 04, 1996 6.00 BP Created.
- * Jan 30, 1996 6.00 BP Tweaked TREAT_ESC_AS_ANSI_TIMEOUT.
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 30, 1996 6.00 BP Add ODInQueueGetNextEvent() timeout.
- * Jan 31, 1996 6.00 BP Added timeout for od_get_input().
- * Feb 13, 1996 6.00 BP Added od_get_input() flags parameter.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 19, 1996 6.00 BP Switched to table implementation.
- * Feb 25, 1996 6.00 BP Added new control sequences to table.
- * Feb 27, 1996 6.00 BP Added od_max_key_latency.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stddef.h>
-#include <string.h>
-
-#include "OpenDoor.h"
-#include "ODInQue.h"
-#include "ODCore.h"
-#include "ODKrnl.h"
-
-/* Control sequence table definitions. */
-typedef struct
-{
- char *pszSequence;
- char chExtendedKey;
- BOOL bIsControlKey;
-} tODKeySequence;
-
-tODKeySequence aKeySequences[] =
-{
- /* VT-52 control sequences. */
- {"\033A", OD_KEY_UP, FALSE},
- {"\033B", OD_KEY_DOWN, FALSE},
- {"\033C", OD_KEY_RIGHT, FALSE},
- {"\033D", OD_KEY_LEFT, FALSE},
- {"\033H", OD_KEY_HOME, FALSE},
- {"\033K", OD_KEY_END, FALSE},
- {"\033P", OD_KEY_F1, FALSE},
- {"\033Q", OD_KEY_F2, FALSE},
- {"\033?w", OD_KEY_F3, FALSE},
- {"\033?x", OD_KEY_F4, FALSE},
- {"\033?t", OD_KEY_F5, FALSE},
- {"\033?u", OD_KEY_F6, FALSE},
- {"\033?q", OD_KEY_F7, FALSE},
- {"\033?r", OD_KEY_F8, FALSE},
- {"\033?p", OD_KEY_F9, FALSE},
-
- /* Control sequences common to VT-100/VT-102/VT-220/VT-320/ANSI. */
- {"\033[A", OD_KEY_UP, FALSE},
- {"\033[B", OD_KEY_DOWN, FALSE},
- {"\033[C", OD_KEY_RIGHT, FALSE},
- {"\033[D", OD_KEY_LEFT, FALSE},
- {"\033[M", OD_KEY_PGUP, FALSE},
- {"\033[H\x1b[2J", OD_KEY_PGDN, FALSE},
- {"\033[H", OD_KEY_HOME, FALSE},
- {"\033[K", OD_KEY_END, FALSE},
- {"\033OP", OD_KEY_F1, FALSE},
- {"\033OQ", OD_KEY_F2, FALSE},
- {"\033OR", OD_KEY_F3, FALSE},
- {"\033OS", OD_KEY_F4, FALSE},
-
- /* VT-220/VT-320 specific control sequences. */
- {"\033[17~", OD_KEY_F6, FALSE},
- {"\033[18~", OD_KEY_F7, FALSE},
- {"\033[19~", OD_KEY_F8, FALSE},
- {"\033[20~", OD_KEY_F9, FALSE},
- {"\033[21~", OD_KEY_F10, FALSE},
-
- /* ANSI-specific control sequences. */
- {"\033[L", OD_KEY_HOME, FALSE},
- {"\033Ow", OD_KEY_F3, FALSE},
- {"\033Ox", OD_KEY_F4, FALSE},
- {"\033Ot", OD_KEY_F5, FALSE},
- {"\033Ou", OD_KEY_F6, FALSE},
- {"\033Oq", OD_KEY_F7, FALSE},
- {"\033Or", OD_KEY_F8, FALSE},
- {"\033Op", OD_KEY_F9, FALSE},
-
- /* PROCOMM-specific control sequences (non-keypad alternatives). */
- {"\033OA", OD_KEY_UP, FALSE},
- {"\033OB", OD_KEY_DOWN, FALSE},
- {"\033OC", OD_KEY_RIGHT, FALSE},
- {"\033OD", OD_KEY_LEFT, FALSE},
- {"\033OH", OD_KEY_HOME, FALSE},
- {"\033OK", OD_KEY_END, FALSE},
-
- /* Other standard control sequences. */
- {"\x16\t", OD_KEY_INSERT, TRUE},
-
- /* OpenDoors-specific alternatives. */
- {"\x7f", OD_KEY_DELETE, FALSE},
- {"\x5", OD_KEY_UP, TRUE},
- {"\x18", OD_KEY_DOWN, TRUE},
- {"\x13", OD_KEY_LEFT, TRUE},
- {"\x4", OD_KEY_RIGHT, TRUE},
- {"\x7", OD_KEY_DELETE, TRUE},
- {"\x16", OD_KEY_INSERT, TRUE},
-};
-
-/* Constant that indicates no match has been found. */
-#define NO_MATCH DIM(aKeySequences)
-
-/* Configurable constants. */
-
-/* The time, in milliseconds, to wait for a second character in a control */
-/* sequence, before deciding that none is going to come. */
-#define MAX_CHARACTER_LATENCY 250
-
-/* Size of inbound sequence buffer. */
-#define SEQUENCE_BUFFER_SIZE 10
-
-/* Current control sequence received state. */
-static char szCurrentSequence[SEQUENCE_BUFFER_SIZE] = "";
-static tODTimer SequenceFailTimer;
-static BOOL bSequenceFromRemote;
-static int nMatchedSequence = NO_MATCH;
-static BOOL bDoorwaySequence = FALSE;
-static BOOL bTimerActive = FALSE;
-
-/* Local private function prototypes. */
-static void ODGetInResetSequence(void);
-
-
-
-/* ----------------------------------------------------------------------------
- * od_get_input()
- *
- * Obtains the next input event of any type, optionally performing
- * translation on input events.
- *
- * Parameters: pInputEvent - Pointer to a tODInputEvent structure, which
- * will be filled by information on the next input
- * event, if any is obtained.
- *
- * TimeToWait - Number of milliseconds to wait for input to be
- * available. A value of 0 causes od_get_input()
- * to return immediately if no input is waiting,
- * while a value of OD_NO_TIMEOUT causes the
- * function to never return unless input has been
- * obtained.
- *
- * wFlags - Flags which customize od_get_input()'s behaviour.
- *
- * Return: TRUE if an input event was obtained, FALSE if not.
- */
-ODAPIDEF BOOL ODCALL od_get_input(tODInputEvent *pInputEvent,
- tODMilliSec TimeToWait, WORD wFlags)
-{
- BOOL bGotEvent;
- tODTimer TotalWaitTimer;
- tODInputEvent LastInputEvent;
- tODMilliSec TimeLeft;
- tODMilliSec MaximumWait;
- int nSequence;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_get_input()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Check for parameter validity. */
- if(pInputEvent == NULL)
- {
- od_control.od_error = ERR_PARAMETER;
- goto FunctionExit;
- }
-
- /* Call the OpenDoors kernel, if applicable */
- CALL_KERNEL_IF_NEEDED();
-
- /* Start a timer if the caller has specified a timeout. */
- if(TimeToWait != 0 && TimeToWait != OD_NO_TIMEOUT)
- {
- ODTimerStart(&TotalWaitTimer, TimeToWait);
- }
-
- /* Loop until we have a valid input event, or until we should exit for */
- /* some other reason. */
- bGotEvent = FALSE;
- while(!bGotEvent)
- {
- /* If we aren't supposed to wait for input, then fail if there is */
- /* nothing waiting in the queue. */
- if(TimeToWait == 0)
- {
- if(!ODInQueueWaiting(hODInputQueue)) break;
- }
-
- /* If a maximum wait timeout has been specified, then determine how */
- /* much of that time is left. */
- if(TimeToWait != 0 && TimeToWait != OD_NO_TIMEOUT)
- {
- TimeLeft = ODTimerLeft(&TotalWaitTimer);
- }
- else
- {
- TimeLeft = OD_NO_TIMEOUT;
- }
-
- /* Determine the maximum time to wait for the next input event. */
- if(bTimerActive)
- {
- MaximumWait = MIN(TimeLeft, ODTimerLeft(&SequenceFailTimer));
- }
- else
- {
- MaximumWait = TimeLeft;
- }
-
- /* Otherwise, attempt to obtain the next input event. */
- if(MaximumWait == 0 ||
- ODInQueueGetNextEvent(hODInputQueue, &LastInputEvent, MaximumWait)
- != kODRCSuccess)
- {
- if(TimeToWait != OD_NO_TIMEOUT ||
- (bTimerActive && ODTimerElapsed(&SequenceFailTimer)
- && szCurrentSequence[0] == 27 && strlen(szCurrentSequence) == 1))
- {
- /* If no input event could be obtained within the specified */
- /* then return with failure. */
- break;
- }
- }
-
- /* If no translation is required, then just return this event. */
- if((wFlags & GETIN_RAW)
- || LastInputEvent.EventType != EVENT_CHARACTER)
- {
- bGotEvent = TRUE;
- memcpy(pInputEvent, &LastInputEvent, sizeof(tODInputEvent));
- }
- else
- {
- /* We have a character event in translation mode. */
-
- /* First, check whether this is a doorway sequence, which is */
- /* handled differently than all other control sequences, */
- if(bDoorwaySequence)
- {
- pInputEvent->bFromRemote = LastInputEvent.bFromRemote;
- pInputEvent->chKeyPress = LastInputEvent.chKeyPress;
- pInputEvent->EventType = EVENT_EXTENDED_KEY;
- bGotEvent = TRUE;
- break;
- }
- else if(LastInputEvent.chKeyPress == '\0')
- {
- bDoorwaySequence = TRUE;
- continue;
- }
-
- /* If sequence buffer is full, then reset the buffer and coninue. */
- /* Possible improvement: Is this what really should be done? */
- if(strlen(szCurrentSequence) >= SEQUENCE_BUFFER_SIZE - 1)
- {
- ODGetInResetSequence();
- continue;
- }
-
- /* Otherwise, add this character to the sequence buffer. */
- szCurrentSequence[strlen(szCurrentSequence)] =
- LastInputEvent.chKeyPress;
- bSequenceFromRemote = LastInputEvent.bFromRemote;
-
- /* Search for a matching control sequence. */
- for(nMatchedSequence = 0; nMatchedSequence < DIM(aKeySequences);
- ++nMatchedSequence)
- {
- /* Skip sequences that use control characters if required. */
- if((wFlags & GETIN_RAWCTRL)
- && aKeySequences[nMatchedSequence].bIsControlKey)
- {
- continue;
- }
-
- /* Stop loop if we have a match. */
- if(strcmp(szCurrentSequence,
- aKeySequences[nMatchedSequence].pszSequence) == 0)
- {
- break;
- }
- }
-
- /* If we have a full match of a control sequence. */
- if(nMatchedSequence != NO_MATCH)
- {
- /* Check whether there is another, longer sequence that may */
- /* match. */
- if(!bTimerActive || !ODTimerElapsed(&SequenceFailTimer))
- {
- for(nSequence = 0; nSequence < DIM(aKeySequences);
- ++nSequence)
- {
- /* Skip sequences that use control characters if required. */
- if((wFlags & GETIN_RAWCTRL)
- && aKeySequences[nSequence].bIsControlKey)
- {
- continue;
- }
-
- /* Stop loop if we have found another possible match. */
- if(strlen(szCurrentSequence) <
- strlen(aKeySequences[nSequence].pszSequence)
-
- && strncmp(szCurrentSequence,
- aKeySequences[nSequence].pszSequence,
- strlen(szCurrentSequence)) == 0
-
- && nSequence != nMatchedSequence)
- {
- break;
- }
- }
-
- /* If there is another possible match, we cannot determine */
- /* whether this is the sequence we want until the maximum */
- /* character latency has passed. */
- if(nSequence < DIM(aKeySequences)) continue;
- }
-
- /* Return resulting event. */
- pInputEvent->bFromRemote = bSequenceFromRemote;
- pInputEvent->chKeyPress =
- aKeySequences[nMatchedSequence].chExtendedKey;
- pInputEvent->EventType = EVENT_EXTENDED_KEY;
- bGotEvent = TRUE;
- break;
- }
-
- /* Start a timer that will elapse if no further control sequence */
- /* characters are received within the maximum latency time. */
- if(od_control.od_max_key_latency != 0)
- {
- ODTimerStart(&SequenceFailTimer, od_control.od_max_key_latency);
- }
- else
- {
- ODTimerStart(&SequenceFailTimer, MAX_CHARACTER_LATENCY);
- }
- bTimerActive = TRUE;
-
- /* We only get here if we don't fully match a control sequence. */
-
- /* If this was the first character of a control sequence, we only */
- /* continue looking for the rest of the sequence if this is a */
- /* possible start of the sequence. */
- if(strlen(szCurrentSequence) == 1)
- {
- for(nSequence = 0; nSequence < DIM(aKeySequences); ++nSequence)
- {
- /* Skip sequences that use control characters if required. */
- if((wFlags & GETIN_RAWCTRL)
- && aKeySequences[nSequence].bIsControlKey)
- {
- continue;
- }
-
- /* Stop loop if we have found a complete match. */
- if(szCurrentSequence[0] ==
- aKeySequences[nSequence].pszSequence[0])
- {
- break;
- }
- }
-
- /* If this is not a possible control sequence start, then return */
- /* this event in unmodified form. */
- if(nSequence == NO_MATCH)
- {
- bGotEvent = TRUE;
- memcpy(pInputEvent, &LastInputEvent, sizeof(tODInputEvent));
- }
- }
- }
- }
-
-FunctionExit:
- /* If we don't have an input event to return. */
- if(!bGotEvent)
- {
- /* If we have found a complete sequence already, and the seqeuence */
- /* timer has elapsed, then return that event. */
- if(bTimerActive && ODTimerElapsed(&SequenceFailTimer))
- {
- if(nMatchedSequence != NO_MATCH)
- {
- /* Return resulting event. */
- pInputEvent->bFromRemote = bSequenceFromRemote;
- pInputEvent->chKeyPress =
- aKeySequences[nMatchedSequence].chExtendedKey;
- pInputEvent->EventType = EVENT_EXTENDED_KEY;
- bGotEvent = TRUE;
- }
- else
- {
- /* If the sequence began with an escape key, then return an escape */
- /* key event. */
- if(szCurrentSequence[0] == 27 && strlen(szCurrentSequence) == 1)
- {
- pInputEvent->bFromRemote = bSequenceFromRemote;
- pInputEvent->chKeyPress = szCurrentSequence[0];
- pInputEvent->EventType = EVENT_CHARACTER;
- bGotEvent = TRUE;
- }
- }
- }
- }
-
- /* On success, reset current sequence buffer. */
- if(bGotEvent)
- {
- ODGetInResetSequence();
- }
-
- /* Exit function with appropriate return value. */
- OD_API_EXIT();
-
- return(bGotEvent);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODGetInResetSequence() *** PRIVATE FUNCTION ***
- *
- * Resets (empties) the current sequence buffer.
- *
- * Parameters: None
- *
- * Return: void
- */
-static void ODGetInResetSequence(void)
-{
- memset(szCurrentSequence, '\0', SEQUENCE_BUFFER_SIZE);
- nMatchedSequence = NO_MATCH;
- bDoorwaySequence = FALSE;
- bTimerActive = FALSE;
-}
diff --git a/src/odoors/ODGraph.c b/src/odoors/ODGraph.c
deleted file mode 100644
index 6d251c39dd097bf4513032d028ddd6fd25b161db..0000000000000000000000000000000000000000
--- a/src/odoors/ODGraph.c
+++ /dev/null
@@ -1,247 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODGraph.c
- *
- * Description: Implements special ANSI/AVATAR control functions.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 16, 1995 6.00 BP Moved local vars here from odcore.c.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 13, 1996 6.10 BP Added od_get_cursor().
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODKrnl.h"
-
-
-/* Local private variables. */
-static char szANSIClearLine[3] = {27, '[', 'K'};
-static char szAvatarClearLine[2] = {22, 7};
-
-
-/* ----------------------------------------------------------------------------
- * od_clr_line()
- *
- * Clears the contents of the current line, from the current cursor position
- * to the end of the line. This function affects both local and remote
- * screens.
- *
- * Parameters: None.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_clr_line(void)
-{
- char *pchLine;
- INT nCharsLeft;
- INT nCount;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_clr_line()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Obtain the current cursor position. */
- ODScrnGetTextInfo(&ODTextInfo);
-
- /* Calculate the number of columns that are to be erased. */
- nCharsLeft = 80 - ODTextInfo.curx;
-
- /* If either ANSI or AVATAR mode is available, then we first */
- /* clear the line on the local screen without affecting the */
- /* remote screen. */
- if(od_control.user_avatar || od_control.user_ansi)
- {
- pchLine = (char *)szODWorkString;
- for(nCount = 0; nCount <= nCharsLeft; ++nCount) *pchLine++ = ' ';
- *pchLine = '\0';
- ODScrnEnableScrolling(0);
- ODScrnDisplayString(szODWorkString);
- ODScrnEnableScrolling(1);
- ODScrnSetCursorPos(ODTextInfo.curx, ODTextInfo.cury);
- }
-
- /* If AVATAR mode is active. */
- if(od_control.user_avatar)
- {
- /* Transmit the two-character AVATAR clear to end of line sequence. */
- od_disp(szAvatarClearLine, 2, FALSE);
- }
-
- /* If ANSI mode is active. */
- else if(od_control.user_ansi)
- {
- /* Transmit the three-character ANSI clear to end of line sequence. */
- od_disp(szANSIClearLine, 3, FALSE);
- }
-
- /* If we are operating in plain-ASCII mode. */
- else
- {
- /* Generate a sequence of space characters followed by backspace */
- /* characters. */
- pchLine = (char *)szODWorkString;
- for(nCount = 0; nCount < nCharsLeft; ++nCount) *pchLine++ = ' ';
- for(nCount = 0; nCount < nCharsLeft; ++nCount) *pchLine++ = 8;
- *pchLine='\0';
-
- /* Send this sequence to both the local and remote screens. */
- od_disp(szODWorkString, strlen(szODWorkString), TRUE);
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_set_cursor()
- *
- * Moves the position of the cursor on both local and remote screens. This
- * function is available in all display modes other than plain-ASCII.
- *
- * Parameters: nRow - 1-based index of the row to position the cursor in.
- *
- * nColumn - Index of the column to position the cursor in.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_set_cursor(INT nRow, INT nColumn)
-{
- static char szControlSequence[40];
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_set_cursor()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Check validity of parameters. */
- if(nRow < 1 || nColumn < 1)
- {
- od_control.od_error = ERR_PARAMETER;
- return;
- }
-
- /* If AVATAR mode is on. */
- if(od_control.user_avatar)
- {
- /* Position the local cursor. */
- ODScrnSetCursorPos((BYTE)nColumn, (BYTE)nRow);
-
- /* Generate the AVATAR control sequence to position the remote cursor. */
- szControlSequence[0] = 22;
- szControlSequence[1] = 8;
- szControlSequence[2] = nRow;
- szControlSequence[3] = nColumn;
-
- /* Transmit the AVATAR control sequence to the remote terminal. */
- od_disp(szControlSequence, 4, FALSE);
- }
-
- /* If ANSI mode is on. */
- else if(od_control.user_ansi)
- {
- /* Generate the ANSI control sequence to position the remote cursor. */
- sprintf(szControlSequence, "x[%d;%dH", nRow, nColumn);
- szControlSequence[0] = 27;
-
- /* Transmit the ANSI control seequence to the remote terminal. */
- od_disp(szControlSequence, strlen(szControlSequence), FALSE);
-
- /* Position the cursor on the local screen. */
- ODScrnSetCursorPos((BYTE)nColumn, (BYTE)nRow);
- }
- else
- {
- /* If neither ANSI nor AVATAR modes are available, indicate this */
- /* in the error code in od_control. */
- od_control.od_error = ERR_NOGRAPHICS;
- }
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_get_cursor()
- *
- * Returns our best estimate of the current position of the cursor on the
- * remote screen.
- *
- * Parameters: pnRow - 1-based index of the row to position the cursor in.
- *
- * pnColumn - Index of the column to position the cursor in.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_get_cursor(INT *pnRow, INT *pnColumn)
-{
- tODScrnTextInfo TextInfo;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_get_cursor()");
-
- /* Ensure that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Check for parameter validity. */
- if(pnRow == NULL && pnColumn == NULL)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return;
- }
-
- /* Obtain current state of local screen. */
- ODScrnGetTextInfo(&TextInfo);
-
- /* Set the caller's parameters to the current row and column, if each */
- /* of these parameters were supplied. */
- if(pnRow != NULL) *pnRow = (INT)TextInfo.cury;
- if(pnColumn != NULL) *pnColumn = (INT)TextInfo.curx;
-
- OD_API_EXIT();
-}
diff --git a/src/odoors/ODInEx.h b/src/odoors/ODInEx.h
deleted file mode 100644
index ce5f44774e1e39089137ea01371c8e726b559532..0000000000000000000000000000000000000000
--- a/src/odoors/ODInEx.h
+++ /dev/null
@@ -1,450 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODInEx.h
- *
- * Description: OpenDoors initialization and shutdown operations
- * (od_init() and od_exit()), including drop file I/O.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 22, 1995 6.00 BP Created.
- * Nov 23, 1995 6.00 BP 32-bit portability.
- * Dec 03, 1995 6.00 BP Win32 port.
- * Jan 19, 1996 6.00 BP Don't use atexit() under Win32.
- * Jan 19, 1996 6.00 BP Make ODInitError() a shared function.
- * Jan 20, 1996 6.00 BP Prompt for user name if force_local.
- * Feb 02, 1996 6.00 BP Added RA 2.50 EXITINFO.BBS support.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 20, 1996 6.00 BP Added bParsedCmdLine.
- * Feb 21, 1996 6.00 BP Don't override command line options.
- * Feb 21, 1996 6.00 BP Force single-byte structure alignment.
- * Feb 23, 1996 6.00 BP Make DTR disable code shared.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODINEX
-#define _INC_ODINEX
-
-#include "ODPlat.h"
-
-/* Drop file structures. */
-
-/* Force byte alignment, if possible */
-#ifdef __TURBOC__
-#if(__TURBOC__ >= 0x295)
-#pragma option -a-
-#endif /* __TURBOC__ >= 0x295 */
-#endif /* __TURBOC__ */
-#ifdef _MSC_VER
-#pragma pack(1)
-#endif /* _MSC_VER */
-
-typedef struct
-{
- WORD baud;
- DWORD num_calls;
- char last_caller[36];
- char sLastHandle[36]; /* New to RA 2.50 */
- char extra1[92];
- char start_date[9];
- WORD busyperhour[24];
- WORD busyperday[7];
- char name[36];
- char location[26];
- char organisation[51];
- char address[3][51];
- char handle[36];
- char comment[81];
- DWORD password_crc;
- char dataphone[16];
- char homephone[16];
- char lasttime[6];
- char lastdate[9];
- BYTE attrib;
- BYTE attrib2;
- char flags[4];
- DWORD credit;
- DWORD pending;
- WORD posted;
- WORD sec;
- DWORD lastread;
- DWORD nocalls;
- DWORD ups;
- DWORD downs;
- DWORD upk;
- DWORD downk;
- DWORD todayk;
- INT16 elapsed;
- WORD screenlen;
- char lastpwdchange;
- WORD group;
- WORD combinedrecord[200];
- char firstcall[9];
- char birthday[9];
- char subdate[9];
- BYTE screenwidth;
- BYTE language;
- BYTE dateformat;
- char forwardto[36];
- WORD msgarea;
- WORD filearea;
- BYTE default_protocol;
- WORD file_group;
- BYTE last_dob_check;
- BYTE sex;
- DWORD xirecord;
- WORD msg_group;
- BYTE btAttribute3; /* New to RA 2.50. */
- char sPassword[16]; /* New to RA 2.50. */
- BYTE extra2[31];
- char status;
- char starttime[6];
- char errorlevel;
- char days;
- char forced;
- char lasttimerun[9];
- char netmailentered;
- char echomailentered;
- char logintime[6];
- char logindate[9];
- INT16 timelimit;
- DWORD loginsec;
- WORD userrecord;
- WORD readthru;
- WORD numberpages;
- WORD downloadlimit;
- char timeofcreation[6];
- DWORD logonpasswordcrc;
- BYTE wantchat;
- INT16 deducted_time;
- char menustack[50][9];
- BYTE menustackpointer;
- char extra3[200];
- BYTE error_free;
- BYTE sysop_next;
- char emsi_session;
- char emsi_crtdef[41];
- char emsi_protocols[41];
- char emsi_capabilities[41];
- char emsi_requests[41];
- char emsi_software[41];
- BYTE hold_attr1;
- BYTE hold_attr2;
- BYTE hold_len;
- char page_reason[81];
- BYTE status_line;
- char last_cost_menu[9];
- WORD menu_cost_per_min;
- BYTE has_avatar;
- BYTE has_rip;
- BYTE btRIPVersion; /* New to RA 2.50. */
- BYTE btExtraSpace[85];
-} tRA2ExitInfoRecord;
-
-
-typedef struct
-{
- WORD baud;
- DWORD num_calls;
- char last_caller[36];
- char extraspace[128];
- char start_date[9];
- WORD busyperhour[24];
- WORD busyperday[7];
- char uname[36];
- char uloc[26];
- char password[16];
- char dataphone[13];
- char homephone[13];
- char lasttime[6];
- char lastdate[9];
- BYTE attrib;
- BYTE flags[4];
- WORD credit;
- WORD pending;
- WORD posted;
- WORD lastread;
- WORD sec;
- WORD nocalls;
- WORD ups;
- WORD downs;
- WORD upk;
- WORD downk;
- WORD todayk;
- WORD elapsed;
- WORD screenlen;
- BYTE lastpwdchange;
- BYTE attrib2;
- BYTE group;
- WORD xirecord;
- char extra2[3];
- char status;
- char starttime[6];
- char errorlevel;
- char days;
- char forced;
- char lasttimerun[9];
- char netmailentered;
- char echomailentered;
- char logintime[6];
- char logindate[9];
- WORD timelimit;
- DWORD loginsec;
- DWORD net_credit;
- WORD userrecord;
- WORD readthru;
- WORD numberpages;
- WORD downloadlimint;
- union
- {
- struct
- {
- char timeofcreation[6];
- char logonpassword[16];
- char wantchat;
- } ra;
- struct
- {
- char qwantchat;
- char gosublevel;
- char menustack[20][9];
- char menu[9];
- BYTE screenclear;
- BYTE moreprompts;
- BYTE graphicsmode;
- BYTE externedit;
- INT16 screenlength;
- BYTE mnpconnect;
- char chatreason[49];
- BYTE externlogoff;
- BYTE ansicapable;
- BYTE ripactive;
- BYTE extraspace[199];
- } qbbs;
- } bbs;
-} tExitInfoRecord;
-
-typedef struct
-{
- INT16 deducted_time;
- char menustack[50][9];
- char menustackpointer;
- char userhandle[36];
- char comment[81];
- char firstcall[9];
- char combinedrecord[25];
- char birthday[9];
- char subdate[9];
- BYTE screenwidth;
- BYTE msgarea;
- BYTE filearea;
- BYTE language;
- BYTE dateformat;
- char forwardto[36];
- char extra_space[43];
- char error_free;
- char sysop_next;
- char emsi_session;
- char emsi_crtdef[41];
- char emsi_protocols[41];
- char emsi_capabilities[41];
- char emsi_requests[41];
- char emsi_software[41];
- char hold_attr1;
- char hold_attr2;
- char hold_len;
- char extr_space[100];
-} tExtendedExitInfo;
-
-struct _pcbsys
-{
- char display[2]; /* "-1" = On, " 0" = Off */
- char printer[2];
- char pagebell[2];
- char calleralarm[2];
- char sysopflag; /* ' ', 'N'=sysop next, 'X'=exit to dos */
- char errorcorrection[2];
- char graphicsmode; /* 'Y'=Yes, 'N'=No, '7'=7E1 */
- char nodechat; /* 'A'=available, 'U'=unavailable */
- char dteportspeed[5];
- char connectspeed[5]; /* "Local"=local mode */
- WORD recordnum;
- char firstname[15];
- char password[15];
- INT16 logontimeval; /* minutes since midnight */
- INT16 todayused; /* -ve # of minutes */
- char logontime[5];
- INT16 timeallowed;
- WORD kallowed;
- char conference;
- char joined[5];
- char scanned[5];
- INT16 conferenceaddtime;
- INT16 creditminutes;
- char languageext[4];
- char fullname[25];
- INT16 minutesremaining;
- char node; /* ' ' if no network */
- char eventtime[5];
- char eventactive[2];
- char slideevent[2];
- DWORD memmessage;
- char comport; /* 0=none, 1-8 */
- char reserved1[2];
- char useansi; /* 1 = yes, 0 = no */
- char lasteventdate[8];
- WORD lasteventminute;
- char dosexit;
- char eventupcoming;
- char stopuploads;
- WORD conferencearea;
-};
-
-struct _userssyshdr
-{
- WORD Version; /* PCBoard version number (i.e. 145) */
- DWORD RecNo; /* Record number from USER's file */
- WORD SizeOfRec; /* Size of "fixed" user record */
- WORD NumOfAreas; /* Number of conference areas (Main=1) */
- WORD NumOfBitFields; /* Number of Bit Map fields for conferences */
- WORD SizeOfBitFields; /* Size of each Bit Map field */
- char AppName[15]; /* Name of the Third Party Application */
- WORD AppVersion; /* Version number for the application */
- WORD AppSizeOfRec; /* Size of a "fixed length" record (if any) */
- WORD AppSizeOfConfRec; /* Size of each conference record (if any) */
- DWORD AppRecOffset; /* Offset of AppRec into USERS.INF record */
- char Updated; /* TRUE if USERS.SYS has been updated */
-};
-
-struct _pcbflags
-{
- int Dirty :1; /* Dirty Flag (meaning file has been updated) */
- int MsgClear :1; /* User's choice for screen clear after messages */
- int HasMail :1; /* Indicates if NEW mail has been left for user */
- int Reserved :5;
-};
-
-struct _pcbdate
-{
- int Day :5; /* 5 bit integer representing the Day */
- int Month :4; /* 4 bit integer representing the Month */
- int Year :7; /* 7 bit integer representing the Year MINUS 80 */
-};
-
-struct _userssysrec
-{
- char Name[26]; /* Name (NULL terminated) */
- char City[25]; /* City (NULL terminated) */
- char Password[13]; /* Password (NULL terminated) */
- char BusDataPhone[14]; /* Business or Data Phone (NULL terminated) */
- char HomeVoicePhone[14];/* Home or Voice Phone (NULL terminated) */
- WORD LastDateOn; /* Julian date for the Last Date On */
- char LastTimeOn[6]; /* Last Time On (NULL Terminated) */
- char ExpertMode; /* 1=Expert, 0=Novice */
- char Protocol; /* Protocol (A thru Z) */
- struct _pcbflags PackedFlags;
- struct _pcbdate DateLastDirRead;
- INT16 SecurityLevel; /* Security Level */
- WORD NumTimesOn; /* Number of times the caller has connected */
- char PageLen; /* Page Length when display data on the screen */
- WORD NumUploads; /* Total number of FILES uploaded */
- WORD NumDownloads; /* Total number of FILES downloaded */
- DWORD DailyDnldBytes; /* Number of BYTES downloaded so far today */
- char UserComment[31]; /* Comment field #1 (NULL terminated) */
- char SysopComment[31]; /* Comment field #1 (NULL terminated) */
- INT16 ElapsedTimeOn; /* Number of minutes online */
- WORD RegExpDate; /* Julian date for Registration Expiration Date */
- INT16 ExpSecurityLevel; /* Expired Security Level */
- WORD LastConference; /* Number of the conference the caller was in */
- DWORD TotDnldBytes; /* Total number of BYTES downloaded */
- DWORD TotUpldBytes; /* Total number of BYTES uploaded */
- char DeleteFlag; /* 1=delete this record, 0=keep */
- DWORD RecNum; /* Record Number in USERS.INF file */
- char Reserved[9]; /* Bytes 391-399 from the USERS file */
- DWORD MsgsRead; /* Number of messages the user has read in PCB */
- DWORD MsgsLeft; /* Number of messages the user has left in PCB */
-};
-
-/* Restore original structure alignment, if possible. */
-#ifdef _MSC_VER
-#pragma pack()
-#endif /* _MSC_VER */
-
-
-/* od_init() and od_exit() global helper functons. */
-#ifndef ODPLAT_WIN32
-void ODAtExitCallback(void);
-#endif /* !ODPLAT_WIN32 */
-INT ODWriteExitInfoPrimitive(FILE *pfDropFile, INT nCount);
-BOOL ODReadExitInfoPrimitive(FILE *pfDropFile, INT nCount);
-INT ODSearchForDropFile(char **papszFileNames, INT nNumFileNames,
- char *pszFound, char *pszDirectory);
-void ODInitError(char *pszErrorText);
-#ifdef ODPLAT_WIN32
-BOOL CALLBACK ODInitLoginDlgProc(HWND hwndDlg, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-void ODInExDisableDTR(void);
-#endif /* ODPLAT_WIN32 */
-
-
-/* Global variables. */
-extern WORD wODNodeNumber;
-extern BOOL bIsCoSysop;
-extern BOOL bIsSysop;
-extern char *apszDropFileInfo[25];
-extern BYTE btExitReason;
-extern DWORD dwForcedBPS;
-extern INT nForcedPort;
-extern DWORD dwFileBPS;
-extern char szDropFilePath[120];
-extern char szExitinfoBBSPath[120];
-extern INT16 nInitialElapsed;
-extern char *szOriginalDir;
-extern BYTE btDoorSYSLock;
-extern time_t nStartupUnixTime;
-extern INT16 nInitialRemaining;
-extern BOOL bSysopNameSet;
-extern char szForcedSysopName[40];
-extern BOOL bSystemNameSet;
-extern char szForcedSystemName[40];
-extern BOOL bUserFull;
-extern BOOL bCalledFromConfig;
-extern tRA2ExitInfoRecord *pRA2ExitInfoRecord;
-extern tExitInfoRecord *pExitInfoRecord;
-extern tExtendedExitInfo *pExtendedExitInfo;
-extern struct _pcbsys *pPCBoardSysRecord;
-extern struct _userssyshdr *pUserSysHeader;
-extern struct _userssysrec *pUserSysRecord;
-extern BOOL bPreOrExit;
-extern BOOL bRAStatus;
-extern BOOL bPromptForUserName;
-extern BOOL bParsedCmdLine;
-extern WORD wPreSetInfo;
-#ifdef ODPLAT_WIN32
-extern tODThreadHandle hFrameThread;
-#endif /* ODPLAT_WIN32 */
-
-
-/* wPreSetInfo flags. */
-#define PRESET_BPS 0x0001
-#define PRESET_PORT 0x0002
-#define PRESET_REQUIRED (PRESET_BPS | PRESET_PORT)
-
-
-#endif /* _INC_ODINEX */
diff --git a/src/odoors/ODInEx1.c b/src/odoors/ODInEx1.c
deleted file mode 100644
index ccdbc5b11f52c99920ac71833210e3b4605cbe57..0000000000000000000000000000000000000000
--- a/src/odoors/ODInEx1.c
+++ /dev/null
@@ -1,2456 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODInEx1.c
- *
- * Description: Performs OpenDoors initialization and shutdown operations
- * (od_init() and od_exit()), including drop file I/O. This
- * module is broken into two files, ODInEx1.c and ODInEx2.c.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 19, 1994 6.00 BP Default paging hours 8:00-22:00.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Oct 29, 1994 6.00 BP Properly read dorinfo?.def BBS name.
- * Oct 31, 1994 6.00 BP Only use dorinfo?.def /w exitinfo.bbs.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Dec 31, 1994 6.00 BP Remove call to _mt_init().
- * Dec 31, 1994 6.00 BP Add call to ODPlatInit().
- * Jul 30, 1995 6.00 BP Split up od_init().
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 14, 1995 6.00 BP New default for od_colour_char is 0.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Nov 23, 1995 6.00 BP Moved Pascal conversion to odutil.c.
- * Dec 21, 1995 6.00 BP Add ability to use already open port.
- * Dec 22, 1995 6.00 BP Added od_connect_speed.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Dec 30, 1995 6.00 BP Only use comm idle func under DOS.
- * Jan 01, 1996 6.00 BP Added od_disable_dtr.
- * Jan 01, 1996 6.00 BP Raise DTR after opening serial port.
- * Jan 02, 1996 6.00 BP Use printf() in ODInitError().
- * Jan 03, 1996 6.00 BP Display connect speed with %lu.
- * Jan 19, 1996 6.00 BP Don't use atexit() under Win32.
- * Jan 19, 1996 6.00 BP Make ODInitError() a shared function.
- * Jan 20, 1996 6.00 BP Prompt for user name if force_local.
- * Jan 23, 1996 6.00 BP Added od_exiting and OD_TEXTMODE.
- * Jan 31, 1996 6.00 BP Added DIS_NAME_PROMPT.
- * Jan 31, 1996 6.00 BP Support new SFDOORS.DAT format.
- * Feb 02, 1996 6.00 BP Added RA 2.50 EXITINFO.BBS support.
- * Feb 06, 1996 6.00 BP Added od_silent_mode.
- * Feb 08, 1996 6.00 BP Recognize SFSYSOP.DAT.
- * Feb 09, 1996 6.00 BP Correctly translate RA 2.x sex field.
- * Feb 09, 1996 6.00 BP Made default outbound buffer 3072.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 20, 1996 6.00 BP Added bParsedCmdLine.
- * Feb 21, 1996 6.00 BP Don't override command line options.
- * Feb 21, 1996 6.00 BP Change od_always_clear default to on.
- * Feb 23, 1996 6.00 BP Changed default DTR disable string.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Added TRIBBS.SYS support.
- * Mar 06, 1996 6.10 BP Initial support for Door32 interface.
- * Mar 13, 1996 6.10 BP Added od_local_win_col.
- * Mar 17, 1996 6.10 BP Reset text color after local login.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Apr 08, 1996 6.10 BP Store local login name in user_handle.
- * Jan 13, 1997 6.10 BP Fixes for Door32 support.
- * Oct 19, 2001 6.20 RS Added door32.sys and socket support.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <ctype.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#ifdef ODPLAT_NIX
-#include <termios.h>
-#include <unistd.h>
-#include <sys/types.h>
-#include <pwd.h>
-#endif
-#include "ODStr.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODInQue.h"
-#include "ODKrnl.h"
-#include "ODInEx.h"
-#include "ODUtil.h"
-#ifdef ODPLAT_WIN32
-#include "ODFrame.h"
-#include "ODRes.h"
-#endif /* ODPLAT_WIN32 */
-
-/* Default size of local/remote combined keyboard buffer. */
-#define DEFAULT_EVENT_QUEUE_SIZE 128
-
-
-/* Local private helper functions. */
-static void ODInitReadExitInfo(void);
-static void ODInitPartTwo(void);
-static BOOL ODInitReadSFDoorsDAT(void);
-static void ODInitPartTwo(void);
-
-
-/* Private variables. */
-static BYTE btRAStatusToSet = 0;
-#ifndef ODPLAT_WIN32
-static BOOL bPreset = TRUE;
-#endif /* !ODPLAT_WIN32 */
-static char szIFTemp[256];
-
-/* Configuration file keywords. */
-static char *apszConfigText[] =
-{
- "Node",
- "BBSDir",
- "DoorDir",
- "LogFileName",
- "DisableLogging",
- "SundayPagingHours",
- "MondayPagingHours",
- "TuesdayPagingHours",
- "WednesdayPagingHours",
- "ThursdayPagingHours",
- "FridayPagingHours",
- "SaturdayPagingHours",
- "MaximumDoorTime",
- "SysopName",
- "SystemName",
- "SwappingDisable",
- "SwappingDir",
- "SwappingNoEMS",
- "LockedBPS",
- "SerialPort",
- "CustomFileName",
- "CustomFileLine",
- "InactivityTimeout",
- "PageDuration",
- "ChatUserColour",
- "ChatSysopColour",
- "FileListTitleColour",
- "FileListNameColour",
- "FileListSizeColour",
- "FileListDescriptionColour",
- "FileListOfflineColour",
- "Personality",
- "NoFossil",
- "PortAddress",
- "PortIRQ",
- "ReceiveBuffer",
- "TransmitBuffer",
- "PagePromptColour",
- "LocalMode",
- "PopupMenuTitleColour",
- "PopupMenuBorderColour",
- "PopupMenuTextColour",
- "PopupMenuKeyColour",
- "PopupMenuHighlightColour",
- "PopupMenuHighKeyColour",
- "NoFIFO",
- "FIFOTriggerSize",
- "DisableDTR",
- "NoDTRDisable",
-};
-
-/* Custom drop file keywords. */
-static char *apszConfigLines[] =
-{
- "Ignore",
- "ComPort",
- "FossilPort",
- "ModemBPS",
- "LocalMode",
- "UserName",
- "UserFirstName",
- "UserLastName",
- "Alias",
- "HoursLeft",
- "MinutesLeft",
- "SecondsLeft",
- "ANSI",
- "AVATAR",
- "PagePausing",
- "ScreenLength",
- "ScreenClearing",
- "Security",
- "City",
- "Node",
- "SysopName",
- "SysopFirstName",
- "SysopLastName",
- "SystemName",
- "RIP",
-};
-
-/* Logfile messages. */
-static char *apszLogMessages[] =
-{
- "Carrier lost, exiting door",
- "System operator terminating call, exiting door",
- "User's time limit expired, exiting door",
- "User keyboard inactivity time limit exceeded, exiting door",
- "System operator returning user to BBS, exiting door",
- "Exiting door with errorlevel %d",
- "Invoking operating system shell",
- "Returning from operating system shell",
- "User paging system operator",
- "Entering sysop chat mode",
- "Terminating sysop chat mode",
- "%s entering door",
- "Reason for chat: %s",
- "Exiting door",
-};
-
-/* Color name strings. */
-static char *apszColorNames[] =
-{
- "BLACK",
- "BLUE",
- "GREEN",
- "CYAN",
- "RED",
- "MAGENTA",
- "YELLOW",
- "WHITE",
- "BROWN",
- "GREY",
- "BRIGHT",
- "FLASHING",
-};
-
-/* Array of door information (drop) file names to search for. */
-static char *apszDropFileNames[] =
-{
- "exitinfo.bbs",
- "dorinfo1.def",
- "chain.txt",
- "sfdoors.dat",
- "door.sys",
- "callinfo.bbs",
- "sfmain.dat",
- "sffile.dat",
- "sfmess.dat",
- "sfsysop.dat",
- "tribbs.sys",
- "door32.sys",
-};
-
-/* Array of door information (drop) file numbers
- * (corresponding to apszDropFileNames)
- */
-static enum {
- FOUND_EXITINFO_BBS,
- FOUND_DORINFO1_DEF,
- FOUND_CHAIN_TXT,
- FOUND_SFDOORS_DAT,
- FOUND_DOOR_SYS,
- FOUND_CALLINFO_BBS,
- FOUND_SFMAIN_DAT,
- FOUND_SFFILE_DAT,
- FOUND_SFMESS_DAT,
- FOUND_SFSYSOP_DAT,
- FOUND_TRIBBS_SYS,
- FOUND_DOOR32_SYS,
-};
-
-#define FOUND_NONE -1
-
-
-/* Global variables. */
-WORD wODNodeNumber = 65535U;
-BOOL bIsCoSysop;
-BOOL bIsSysop;
-char *apszDropFileInfo[25];
-BYTE btExitReason = 0;
-DWORD dwForcedBPS = 1;
-INT nForcedPort = -1;
-DWORD dwFileBPS;
-char szDropFilePath[120];
-char szExitinfoBBSPath[120];
-INT16 nInitialElapsed;
-char *szOriginalDir = NULL;
-BYTE btDoorSYSLock = 0;
-time_t nStartupUnixTime;
-INT16 nInitialRemaining;
-BOOL bSysopNameSet = FALSE;
-char szForcedSysopName[40];
-BOOL bSystemNameSet = FALSE;
-char szForcedSystemName[40];
-BOOL bUserFull = FALSE;
-BOOL bCalledFromConfig = FALSE;
-tRA2ExitInfoRecord *pRA2ExitInfoRecord = NULL;
-tExitInfoRecord *pExitInfoRecord = NULL;
-tExtendedExitInfo *pExtendedExitInfo = NULL;
-struct _pcbsys *pPCBoardSysRecord = NULL;
-struct _userssyshdr *pUserSysHeader = NULL;
-struct _userssysrec *pUserSysRecord = NULL;
-BOOL bPreOrExit = FALSE;
-BOOL bRAStatus;
-BOOL bPromptForUserName = FALSE;
-BOOL bParsedCmdLine = FALSE;
-WORD wPreSetInfo = 0;
-#ifdef ODPLAT_WIN32
-tODThreadHandle hFrameThread;
-#endif /* ODPLAT_WIN32 */
-
-
-/* ----------------------------------------------------------------------------
- * od_init()
- *
- * Starts up OpenDoors. Initializes various members of od_control, reads the
- * BBS door information (drop file), initializes the serial port and carries
- * out other operations that must be done at initialization time. May be
- * explicitly called by the user, or called as a result of the first call to
- * some other OpenDoors API function.
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_init(void)
-{
- BYTE btCount;
- FILE *pfDropFile=NULL;
- char *pointer;
- INT nFound = FOUND_NONE;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_init()");
-
- /* If a callback function is active, then don't do anything. */
- if(bIsCallbackActive) return;
-
- /* If we are not being called from within ODConfigInit(). */
- if(!bCalledFromConfig)
- {
- /* If OpenDoors has already been initialized, then return without */
- /* doing anything. */
- if(bODInitialized) return;
-
- /* Otherwise, set the initialized flag so that od_init() won't be */
- /* run again. */
- bODInitialized = TRUE;
-
- /* Initialize program name string. */
- if(od_control.od_prog_name[0] == '\0')
- {
- strcpy(od_control.od_prog_name, OD_VER_SHORTNAME);
- }
-
- /* Initialize color name strings in od_control. */
- for(btCount = 0; btCount < DIM(apszColorNames); ++btCount)
- {
- if(!*od_control.od_color_names[btCount])
- {
- strcpy(od_control.od_color_names[btCount],
- apszColorNames[btCount]);
- }
- }
-
- /* Initialize custom drop file strings in od_control. */
- for(btCount = 0; btCount < LINES_SIZE; ++btCount)
- {
- if(!*od_control.od_cfg_lines[btCount])
- {
- strcpy(od_control.od_cfg_lines[btCount], apszConfigLines[btCount]);
- }
- }
-
- /* Initialize configuration keyword strings in od_control. */
- for(btCount = 0; btCount < TEXT_SIZE; ++btCount)
- {
- if(!*od_control.od_cfg_text[btCount])
- {
- strcpy(od_control.od_cfg_text[btCount], apszConfigText[btCount]);
- }
- }
-
- /* Enable multiple personality system if it has been installed. */
-#ifdef OD_TEXTMODE
- if(od_control.od_mps != NULL)
- {
- (*(OD_COMPONENT_CALLBACK *)od_control.od_mps)();
- }
-#endif /* !OD_TEXTMODE */
-
- /* If baud rate has been set in od_control, then remember the forced */
- /* rate for later use. */
- if(od_control.baud != 0)
- {
- dwForcedBPS = od_control.baud;
- }
-
- /* If the serial port number has already been set in od_control, then */
- /* remember the forced port number for later use. */
- if(od_control.port != 0)
- {
- nForcedPort = od_control.port;
- }
-
- /* If the configuration file system has been installed, then allow */
- /* the configuration file initialization routine take over */
- /* initialization from here. Once it has read the configuration file */
- /* it will call od_init() again, at which time od_init() will carry */
- /* on from this point in the code. */
- if(od_control.config_file != NULL)
- {
- (*(OD_COMPONENT_CALLBACK *)od_control.config_file)();
- return;
- }
- }
-
- /* Initialize the OpenDoors platform-specific utility functions. */
- ODPlatInit();
-
- /* Store the time of door startup. */
- time(&nStartupUnixTime);
-
- /* Allocate the set of strings that are used to store certain parts */
- /* of drop files for rewriting at od_exit() time. */
- for(btCount = 0; btCount < DIM(apszDropFileInfo); ++btCount)
- {
- if((apszDropFileInfo[btCount] = (char *)malloc(81)) == NULL)
- {
-malloc_error:
- ODInitError("Insufficient memory available to start up program.");
- exit(od_control.od_errorlevel[1]);
- }
- }
-
- /* Determine the current node number. */
- if((pointer=getenv("TASK")) != NULL)
- {
- od_control.od_node = atoi(pointer);
- }
- else if(wODNodeNumber != 65535U)
- {
- od_control.od_node = wODNodeNumber;
- }
- else if(od_control.od_node == 0)
- {
- od_control.od_node = 1;
- }
-
- /* If a custom drop file format is not being used, then set certain */
- /* od_control members to their default values. In the case where */
- /* a custom drop file format is being used, these values will already */
- /* have been set, and so we don't want to touch them. */
- if(od_control.od_info_type != CUSTOM)
- {
- od_control.user_avatar = FALSE;
- od_control.user_rip = FALSE;
- od_control.user_attribute = 0x06;
- od_control.user_screen_length = 23;
- od_control.od_page_pausing = TRUE;
- od_control.od_page_len = 15;
- }
- else
- {
- /* When a custom drop file is being used, there are certain */
- /* variables that we must initialize if they weren't already set */
- /* when the custom drop file was read. */
- if(od_control.user_timelimit == 0) od_control.user_timelimit = 60;
- if(od_control.port == -1) od_control.baud = 0L;
- }
-
- /* Setup inbound local/remote buffer. */
- if(ODInQueueAlloc(&hODInputQueue, od_control.od_in_buf_size == 0 ?
- DEFAULT_EVENT_QUEUE_SIZE : od_control.od_in_buf_size) != kODRCSuccess)
- {
- goto malloc_error;
- }
-
- /* Enable user's keyboard by default. */
- od_control.od_user_keyboard_on = TRUE;
-
- /* If door information (drop) file reading has been disabled, then */
- /* don't attempt to read any drop file. */
- if(od_control.od_disable & DIS_INFOFILE)
- {
- od_control.od_info_type = NO_DOOR_FILE;
- }
-
- /* Otherwise, if the local mode override has been explicitly asked for, */
- /* setup od_control for default local mode operation. */
- else if(od_control.od_force_local)
- {
-force_local:
- /* No door information file is being used. */
- od_control.od_info_type = NO_DOOR_FILE;
-
- /* Operate in local mode. */
- od_control.baud = 0L;
-
- if(!bParsedCmdLine)
- {
- /* Enable ANSI mode. */
- od_control.user_ansi = TRUE;
-
- /* Default to 60 minutes of time available. */
- od_control.user_timelimit = 60;
- }
-
- /* Choose the appropriate system name. */
- if(bSystemNameSet)
- {
- strcpy(od_control.user_location, szForcedSystemName);
- }
- else if(od_control.system_name[0] != '\0')
- {
- strcpy(od_control.user_location, od_control.system_name);
- }
- else
- {
- strcpy(od_control.user_location, "Unknown Location");
- }
- }
-
- /* If drop file reading isn't disable, if a custom format drop file */
- /* hasn't already been read and automatic local mode hasn't been */
- /* specified, then attempt to find and read a standard drop file. */
- else if(od_control.od_info_type != CUSTOM)
- {
- /* Generate the name of the dorinfox.def file for this node. */
- if(od_control.od_node > 35)
- {
- apszDropFileNames[1] = (char *)"dorinfo1.def";
- }
- else if(od_control.od_node > 9)
- {
- sprintf(szIFTemp, "dorinfo%c.def", od_control.od_node + 55);
- apszDropFileNames[1] = (char *)szIFTemp;
- }
- else
- {
- sprintf(szIFTemp, "dorinfo%d.def", od_control.od_node);
- apszDropFileNames[1] = (char *)szIFTemp;
- }
-
- nFound = FOUND_NONE;
-
- if(!ODFileAccessMode(od_control.info_path, 4))
- {
- /* Check for a DORINFOx.DEF filename. */
- if(ODStringHasTail(od_control.info_path, ".def") &&
- strlen(od_control.info_path) >= strlen(apszDropFileNames[2]) &&
- strnicmp((char *)&od_control.info_path +
- (strlen(od_control.info_path) - 12), "dorinfo", 7) == 0)
- {
- nFound = FOUND_DORINFO1_DEF;
- strcpy(szDropFilePath, od_control.info_path);
- }
- else
- {
- /* Check filenames other than DORINFOx.DEF */
- for(btCount = 0; btCount < DIM(apszDropFileNames); ++btCount)
- {
- if(ODStringHasTail(od_control.info_path,
- apszDropFileNames[btCount]))
- {
- strcpy(szDropFilePath, od_control.info_path);
- nFound = btCount;
- break;
- }
- }
- }
- }
-
- /* Search for a door information file. */
- if(nFound == FOUND_NONE)
- {
- nFound = ODSearchForDropFile((char **)&apszDropFileNames,
- DIM(apszDropFileNames), (char *)&szDropFilePath,
- (char *)&szExitinfoBBSPath);
- }
-
- if(nFound == FOUND_EXITINFO_BBS)
- {
- od_control.od_info_type = NO_DOOR_FILE;
- ODInitReadExitInfo();
- if(od_control.od_info_type == NO_DOOR_FILE)
- {
- goto DropFileFail;
- }
-
- ODMakeFilename(szODWorkString, szExitinfoBBSPath, "dorinfo1.def",
- sizeof(szExitinfoBBSPath));
- if((pfDropFile = fopen(szODWorkString, "r")) == NULL)
- {
- goto DropFileFail;
- }
-
- goto read_dorinfox;
- }
-
- else if(nFound==FOUND_DORINFO1_DEF)
- {
- /* Open DORINFO?.DEF. */
- if((pfDropFile = fopen(szDropFilePath, "r")) == NULL) goto DropFileFail;
-
- /* Set door type to DORINFO. */
- od_control.od_info_type = DORINFO1;
-
-read_dorinfox:
- /* If not able to read first line. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
-
- if(szIFTemp[strlen(szIFTemp) - 1] == '\n')
- {
- szIFTemp[strlen(szIFTemp) - 1] = '\0';
- }
- strncpy(od_control.system_name, szIFTemp, 39);
- od_control.system_name[39] = '\0';
-
- /* get sysop name from DORINFO1.DEF */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- ODStringToName(szIFTemp);
- strncpy(od_control.sysop_name, szIFTemp, 19);
-
- /* get sysop's last name */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(szIFTemp);
- if(strlen(szIFTemp))
- {
- strcat(od_control.sysop_name," ");
- strncat(od_control.sysop_name,szIFTemp,19);
- }
- /* get com port that modem is connected to */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.port=szIFTemp[3]-'1';
- /* determine BPS rate of connection */
- if(fgets((char *)apszDropFileInfo[0],255,pfDropFile)==NULL) goto DropFileFail;
- od_control.baud= (od_control.port == -1) ? 0 : atol((char *)apszDropFileInfo[0]);
-
- if(fgets((char *)apszDropFileInfo[1],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* get user's first name */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(szIFTemp);
- strncpy(od_control.user_name,szIFTemp,17);
- /* get user's last name */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(szIFTemp);
- if(strlen(szIFTemp))
- {
- strcat(od_control.user_name," ");
- strncat(od_control.user_name,szIFTemp,17);
- }
- /* get user's location */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(szIFTemp);
- strncpy(od_control.user_location,szIFTemp,25);
- /* get ANSI mode settings */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(szIFTemp[0]=='0') od_control.user_ansi=FALSE;
- else od_control.user_ansi=TRUE;
- /* get user security level */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_security=atoi(szIFTemp);
- /* get time left in door */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_timelimit=atoi(szIFTemp);
- fclose(pfDropFile);
- }
- /* Read CHAIN.TXT */
- else if(nFound==FOUND_CHAIN_TXT)
- {
- if((pfDropFile=fopen(szDropFilePath,"r"))==NULL) goto DropFileFail;
-
- od_control.od_info_type=CHAINTXT;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_num=atoi(szIFTemp);
-
- if(fgets((char *)&od_control.user_handle,35,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(od_control.user_handle);
-
- if(fgets((char *)&od_control.user_name,35,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(od_control.user_name);
-
- if(fgets((char *)&od_control.user_callsign,12,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(od_control.user_callsign);
-
- if(fgets((char *)apszDropFileInfo[0],80,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_sex=szIFTemp[0];
-
- if(fgets((char *)apszDropFileInfo[1],80,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- strncpy(od_control.user_lastdate,szIFTemp,8);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_screenwidth=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_screen_length=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_security=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- bIsSysop=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- bIsCoSysop=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_ansi=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail; /* non-zero if remote */
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_timelimit=atoi(szIFTemp);
- od_control.user_timelimit/=60;
-
- if(fgets((char *)apszDropFileInfo[3],80,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets((char *)apszDropFileInfo[4],80,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets((char *)apszDropFileInfo[5],80,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(strcmp(szIFTemp,"KB")==0)
- {
- od_control.baud=0;
- }
- else
- {
- od_control.baud=atol(szIFTemp);
- }
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.port=atoi(szIFTemp)-1;
-
- if(fgets((char *)apszDropFileInfo[6],80,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets((char *)&od_control.user_password,15,pfDropFile)==NULL) goto DropFileFail;
- ODStringToName(od_control.user_password);
-
- if(fgets((char *)apszDropFileInfo[2],80,pfDropFile)==NULL) goto DropFileFail;
- if(fgets((char *)apszDropFileInfo[7],80,pfDropFile)==NULL) goto DropFileFail;
- if(fgets((char *)apszDropFileInfo[8],80,pfDropFile)==NULL) goto DropFileFail;
- if(fgets((char *)apszDropFileInfo[9],80,pfDropFile)==NULL) goto DropFileFail;
- if(fgets((char *)apszDropFileInfo[10],80,pfDropFile)==NULL) goto DropFileFail;
- if(fgets((char *)apszDropFileInfo[11],80,pfDropFile)==NULL) goto DropFileFail;
- if(fgets((char *)apszDropFileInfo[12],80,pfDropFile)==NULL) goto DropFileFail;
-
- fclose(pfDropFile);
- }
-
- else if(nFound == FOUND_SFDOORS_DAT
- || nFound == FOUND_SFMAIN_DAT
- || nFound == FOUND_SFFILE_DAT
- || nFound == FOUND_SFMESS_DAT
- || nFound == FOUND_SFSYSOP_DAT)
- {
- od_control.od_info_type = SFDOORSDAT;
-
- if(!ODInitReadSFDoorsDAT())
- {
- goto DropFileFail;
- }
- }
-
- else if(nFound==FOUND_DOOR_SYS)
- {
- if((pfDropFile=fopen(szDropFilePath,"r"))==NULL) goto DropFileFail;
-
- /* Read line 1. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- if(szIFTemp[0]=='C' && szIFTemp[1]=='O' && szIFTemp[2]=='M' && szIFTemp[4]==':')
- { /* GAP style DOOR.SYS */
- od_control.od_info_type=DOORSYS_GAP;
-
- od_control.port=szIFTemp[3]-'1';
-
- /* Read line 2. */
- if(fgets((char *)apszDropFileInfo[0], 80, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
- od_control.od_connect_speed = atol(apszDropFileInfo[0]);
-
- /* Read line 3. */
- if(fgets((char *)apszDropFileInfo[1],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 4. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.od_node = atoi(szIFTemp);
-
- /* Read line 5. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- strupr(szIFTemp);
- if(strchr(szIFTemp, 'N') != NULL)
- {
- btDoorSYSLock = 1;
- od_control.baud = atol(apszDropFileInfo[0]);
- }
- else if(strchr(szIFTemp, 'Y') != NULL)
- {
- btDoorSYSLock = 2;
- od_control.baud = 19200;
- }
- else
- {
- od_control.baud = atol(szIFTemp);
- }
-
- if(od_control.port == -1) od_control.baud = 0L;
-
- /* Read line 6. */
- if(fgets((char *)apszDropFileInfo[3],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 7. */
- if(fgets((char *)apszDropFileInfo[4],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 8. */
- if(fgets((char *)apszDropFileInfo[5],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 9. */
- if(fgets((char *)apszDropFileInfo[22],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 10. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[35]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_name,szIFTemp);
-
- /* Read line 11. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[25]='\0';
- if(szIFTemp[strlen(szIFTemp)-1]=='\n') szIFTemp[strlen(szIFTemp)-1]='\0';
- strcpy(od_control.user_location,szIFTemp);
-
- /* Read line 12. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_homephone,szIFTemp);
-
- /* Read line 13. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_dataphone,szIFTemp);
-
- /* Read line 14. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- if(szIFTemp[strlen(szIFTemp)-1]=='\n') szIFTemp[strlen(szIFTemp)-1]='\0';
- strcpy(od_control.user_password,szIFTemp);
-
- /* Read line 15. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_security=atoi(szIFTemp);
-
- /* Read line 16. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_numcalls=atoi(szIFTemp);
-
- /* Read line 17. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_lastdate,szIFTemp);
-
- /* Read line 18. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 19. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_timelimit=atoi(szIFTemp);
-
- /* Read line 20. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- strupr(szIFTemp);
- if(!strcmp(szIFTemp,"RIP"))
- {
- od_control.user_rip=TRUE;
- od_control.user_ansi=TRUE;
- }
- else if(szIFTemp[0]=='G')
- {
- od_control.user_rip=FALSE;
- od_control.user_ansi=TRUE;
- }
- else
- {
- od_control.user_rip=FALSE;
- od_control.user_ansi=FALSE;
- }
-
- /* Read line 21. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_screen_length=atoi(szIFTemp);
-
- /* Read line 22. */
- if(fgets((char *)apszDropFileInfo[8],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 23. */
- if(fgets((char *)apszDropFileInfo[9],80,pfDropFile)==NULL) goto DropFileFail;
- if(apszDropFileInfo[9][strlen(apszDropFileInfo[9])-1]!='\n')
- {
- int ch;
- apszDropFileInfo[9][strlen(apszDropFileInfo[9])-1]='\n';
- do
- {
- ch = fgetc(pfDropFile);
- } while(ch != '\n' && ch != EOF);
- }
-
- /* Read line 24. */
-again:
- if(fgets((char *)apszDropFileInfo[10],80,pfDropFile)==NULL) goto DropFileFail;
- if(strchr(apszDropFileInfo[10],',')!=NULL) goto again;
-
- /* Read line 25. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_subdate,szIFTemp);
-
- /* Read line 26. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_num=atoi(szIFTemp);
-
- /* Read line 27. */
- if(fgets((char *)apszDropFileInfo[6],80,pfDropFile)==NULL) goto DropFileFail;
-
- /* Read line 28. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_uploads=atoi(szIFTemp);
-
- /* Read line 29. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_downloads=atoi(szIFTemp);
-
- /* Read line 30. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_todayk=atoi(szIFTemp);
-
- /* Read line 31. */
- if(fgets((char *)apszDropFileInfo[21],80,pfDropFile)==NULL) goto DropFileFail;
-
-
- /* Beginning of extending DOOR.SYS data */
- /* Read line 32. */
- fgets((char *)apszDropFileInfo[7],80,pfDropFile);
- /* Read line 33. */
- fgets((char *)apszDropFileInfo[11],80,pfDropFile);
- /* Read line 34. */
- fgets((char *)apszDropFileInfo[12],80,pfDropFile);
- /* Read line 35. */
- fgets((char *)apszDropFileInfo[13],80,pfDropFile);
- /* Read line 36. */
- if(fgets((char *)apszDropFileInfo[14],80,pfDropFile)!=NULL)
- {
- /* Read line 37. */
- strncpy(od_control.user_birthday,apszDropFileInfo[7],8);
- od_control.user_birthday[8]='\0';
-
- /* Read line 38. */
- strncpy(od_control.sysop_name,apszDropFileInfo[13],39);
- od_control.sysop_name[39]='\0';
- ODStringToName(od_control.sysop_name);
-
- /* Read line 39. */
- strncpy(od_control.user_handle,apszDropFileInfo[14],35);
- od_control.user_handle[35]='\0';
- ODStringToName(od_control.user_handle);
-
- /* Read line 40. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- strncpy(od_control.event_starttime, szIFTemp, 5);
- od_control.event_starttime[5] = '\0';
-
- /* Read line 41. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- if(szIFTemp[0]=='y' || szIFTemp[0]=='Y')
- od_control.user_error_free=TRUE;
- else
- od_control.user_error_free=FALSE;
-
- /* Read line 42. */
- if(fgets((char *)apszDropFileInfo[7],80,pfDropFile)==NULL) goto finished;
- /* Read line 43. */
- if(fgets((char *)apszDropFileInfo[13],80,pfDropFile)==NULL) goto finished;
- /* Read line 44. */
- if(fgets((char *)apszDropFileInfo[14],80,pfDropFile)==NULL) goto finished;
- /* Read line 45. */
- if(fgets((char *)apszDropFileInfo[15],80,pfDropFile)==NULL) goto finished;
- /* Read line 46. */
- if(fgets((char *)apszDropFileInfo[16],80,pfDropFile)==NULL) goto finished;
-
- /* Read line 47. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- strncpy(od_control.user_logintime,szIFTemp,5);
- od_control.user_logintime[5]='\0';
-
- /* Read line 48. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- strncpy(od_control.user_lasttime,szIFTemp,5);
- od_control.user_lasttime[5]='\0';
-
- /* Read line 49. */
- if(fgets((char *)apszDropFileInfo[18],80,pfDropFile)==NULL) goto finished;
-
- /* Read line 50. */
- if(fgets((char *)apszDropFileInfo[19],80,pfDropFile)==NULL) goto finished;
-
- /* Read line 51. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- od_control.user_upk=atoi(szIFTemp);
-
- /* Read line 52. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- od_control.user_downk=atoi(szIFTemp);
-
- /* Read line 53. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- strncpy(od_control.user_comment,szIFTemp,79);
- od_control.user_comment[79]='\0';
- if(od_control.user_comment[strlen(od_control.user_comment)-1]=='\n')
- od_control.user_comment[strlen(od_control.user_comment)-1]='\0';
-
- /* Read line 54. */
- if(fgets((char *)apszDropFileInfo[20],80,pfDropFile)==NULL) goto finished;
-
- /* Read line 55. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto finished;
- od_control.user_messages=atoi(szIFTemp);
-
-
- od_control.od_info_type=DOORSYS_WILDCAT;
- }
- }
-
- else /* DoorWay style DOOR.SYS */
- {
- od_control.od_info_type=DOORSYS_DRWY;
-
- szIFTemp[35]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_name,szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.port=szIFTemp[0]-'1';
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(od_control.port==-1)
- {
- od_control.baud=0L;
- }
- else
- {
- od_control.baud=atol(szIFTemp);
- }
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_timelimit=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(szIFTemp[0]=='G')
- {
- od_control.user_ansi=TRUE;
- }
- else
- {
- od_control.user_ansi=FALSE;
- }
- }
-finished:
- fclose(pfDropFile);
- }
-
- else if(nFound==FOUND_CALLINFO_BBS)
- {
- if((pfDropFile=fopen(szDropFilePath,"r"))==NULL) goto DropFileFail;
-
- od_control.od_info_type=CALLINFO;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[35]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_name,szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[25]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_location,szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_security=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_timelimit=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(szIFTemp[0]=='M')
- {
- od_control.user_ansi=FALSE;
- }
- else
- {
- od_control.user_ansi=TRUE;
- }
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_password,szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_homephone,szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_screen_length=atoi(szIFTemp);
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.port=szIFTemp[3]-'1';
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
-
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.baud=atol(szIFTemp);
-
- fclose(pfDropFile);
- }
- else if(nFound == FOUND_TRIBBS_SYS)
- {
- /* We have found reading a TRIBBS.SYS file. */
-
- /* Attempt to open the file. */
- if((pfDropFile = fopen(szDropFilePath, "r")) == NULL)
- {
- goto DropFileFail;
- }
-
- /* Record the drop file type being used. */
- od_control.od_info_type = TRIBBSSYS;
-
- /* Read line 1: User's number. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_num = atoi(szIFTemp);
-
- /* Read line 2: User's name. */
- if(fgets((char *)&od_control.user_name, 35, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
- ODStringToName(od_control.user_name);
-
- /* Read line 3: User's password. */
- if(fgets((char *)&od_control.user_password, 15, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
-
- /* Read line 4: User's security level. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_security = atoi(szIFTemp);
-
- /* Read line 5: "Y" for expert mode, "N" for novice mode. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_expert = (szIFTemp[0] == 'Y');
-
- /* Read line 6: "Y" for ANSI, "N" for TTY. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_ansi = (szIFTemp[0] == 'Y');
-
- /* Read line 7: Minutes remaining for this call. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_timelimit = atoi(szIFTemp);
-
- /* Read line 8: User's phone number. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- szIFTemp[15] = '\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_homephone, szIFTemp);
-
- /* Read line 9: User's location. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- ODStringToName(szIFTemp);
- strncpy(od_control.user_location, szIFTemp, 25);
-
- /* Read line 10: User's birthday. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- strncpy(od_control.user_birthday, szIFTemp, 8);
- od_control.user_birthday[8] = '\0';
- od_control.user_birthday[2] = '-';
- od_control.user_birthday[5] = '-';
-
- /* Read line 11: Node number. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.od_node = atoi(szIFTemp);
-
- /* Read line 12: Serial port. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.port = atoi(szIFTemp) - 1;
-
- /* Read line 13: Baud rate. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.od_connect_speed =
- (od_control.port == -1) ? 0 : atol(szIFTemp);
-
- /* Read line 14: Locked baud rate or 0 for unlocked port. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.baud = atol(szIFTemp);
- if(od_control.baud == 0)
- {
- od_control.baud = od_control.od_connect_speed;
- }
-
- /* Read line 15: "Y" for RTS/CTS handshaking, "N" for none. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.od_com_flow_control = (szIFTemp[0] == 'Y')
- ? COM_RTSCTS_FLOW : COM_NO_FLOW;
-
- /* Read line 16: "Y" for error free connection, "N" otherwise. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_error_free = (szIFTemp[0] == 'Y');
-
- /* Read line 17: BBS name. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- ODStringCopy(od_control.system_name, szIFTemp, 40);
- ODStringToName(od_control.system_name);
-
- /* Read line 18: Sysop's name. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- ODStringCopy(od_control.sysop_name, szIFTemp, 40);
- ODStringToName(od_control.sysop_name);
-
- /* Read line 19: User's alias. */
- if(fgets((char *)&od_control.user_handle, 35, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
- ODStringToName(od_control.user_handle);
-
- /* Read line 20: "Y" for RIP mode, "N" for no RIP mode. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_rip = (szIFTemp[0] == 'Y');
-
- /* Now, close the TRIBBS.SYS file. */
- fclose(pfDropFile);
- }
- else if(nFound == FOUND_DOOR32_SYS)
- {
- /* We have found a DOOR32.SYS file. */
-
- /* Attempt to open the file. */
- if((pfDropFile = fopen(szDropFilePath, "r")) == NULL)
- {
- goto DropFileFail;
- }
-
- /* Record the drop file type being used. */
- od_control.od_info_type = DOOR32SYS;
-
- /* Read line 1: Comm type. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- switch(atoi(szIFTemp)) {
- case 0: /* local */
- od_control.od_force_local = TRUE; /* Is this the right way? */
- break;
- case 1: /* serial */
- break;
- case 2: /* telnet */
- od_control.od_use_socket = TRUE;
- break;
- }
- /* Read line 2: Comm or Socket handle. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.od_open_handle = atoi(szIFTemp);
-
- /* Read line 3: Baud rate */
- if(fgets((char *)apszDropFileInfo[0],255,pfDropFile)==NULL) goto DropFileFail;
- od_control.baud= (od_control.port == -1) ? 0 : atol((char *)apszDropFileInfo[0]);
-
- /* Read line 4: BBS Software name and version - unused. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
-
- /* Read line 5: User's number. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_num = atoi(szIFTemp);
-
- /* Read line 6: User's real name. */
- if(fgets((char *)&od_control.user_name, 35, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
- ODStringToName(od_control.user_name);
-
- /* Read line 7: User's alias. */
- if(fgets((char *)&od_control.user_handle, 35, pfDropFile) == NULL)
- {
- goto DropFileFail;
- }
- ODStringToName(od_control.user_handle);
-
- /* Read line 8: User's security level */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_security=atoi(szIFTemp);
-
- /* Read line 9: Minutes remaining for this call. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.user_timelimit = atoi(szIFTemp);
-
- /* Read line 10: User's Terminal type */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) goto DropFileFail;
- od_control.user_ansi=TRUE;
- switch(atoi(szIFTemp)) {
- case 0: /* ASCII */
- od_control.user_ansi=FALSE;
- break;
- case 1: /* ANSI */
- od_control.user_ansi=TRUE;
- break;
- case 2: /* AVATAR */
- od_control.user_avatar=TRUE;
- break;
- case 3: /* RIP */
- od_control.user_rip=TRUE;
- break;
- }
-
- /* Read line 11: Current Node number. */
- if(fgets(szIFTemp, 255, pfDropFile) == NULL) goto DropFileFail;
- od_control.od_node = atoi(szIFTemp);
-
- /* Now, close the DOOR32.SYS file. */
- fclose(pfDropFile);
- }
- else
- {
-DropFileFail:
- if(pfDropFile!=NULL) /* Let's not leave the file open */
- fclose(pfDropFile);
-
- od_control.od_info_type = NO_DOOR_FILE;
-
- if(od_control.od_no_file_func != NULL)
- {
- (*od_control.od_no_file_func)();
- }
-
- /* Check whether force local has been turned on by the no */
- /* file function. */
- if(od_control.od_force_local)
- {
- goto force_local;
- }
-
- /* Exit with failure if the no file function has not read a */
- /* door information file itself. */
- if(od_control.od_info_type == NO_DOOR_FILE
- && (wPreSetInfo & PRESET_REQUIRED) != PRESET_REQUIRED)
- {
- ODInitError("Unable to read door information (drop) file.");
- exit(od_control.od_errorlevel[1]);
- }
- }
- }
-
- ODInitPartTwo();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInitReadSFDoorsDAT() *** PRIVATE FUNCTION ***
- *
- * Reads an SFDOORS.DAT format drop file.
- *
- * Parameters: none
- *
- * Return: TRUE on success or FALSE on failure.
- */
-static BOOL ODInitReadSFDoorsDAT(void)
-{
- FILE *pfDropFile;
-
- if((pfDropFile=fopen(szDropFilePath,"r"))==NULL) return(FALSE);
-
- /* Line 1: User number. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_num=atoi(szIFTemp);
-
- /* Line 2: User name. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- szIFTemp[35]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_name,szIFTemp);
-
- /* Line 3: User password. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_password,szIFTemp);
-
- /* Line 4: Unused. */
- if(fgets((char *)apszDropFileInfo[0],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 5: Modem <-> Serial port bps rate. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.baud=atol(szIFTemp);
-
- /* Line 6: Serial port number. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.port=atoi(szIFTemp)-1;
-
- /* Line 7: User's time remaining. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_timelimit=atoi(szIFTemp);
-
- /* Line 8: Unused. */
- if(fgets((char *)apszDropFileInfo[13],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 9: Unused. */
- if(fgets((char *)apszDropFileInfo[14],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 10: User's ANSI mode setting. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- strupr(szIFTemp);
- od_control.user_ansi=(szIFTemp[0]=='T');
-
- /* Line 11: User's security level. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_security=atoi(szIFTemp);
-
- /* Line 12: User's upload count. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_uploads=atoi(szIFTemp);
-
- /* Line 13: User's download count. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_downloads=atoi(szIFTemp);
-
- /* Line 14: Unused. */
- if(fgets((char *)apszDropFileInfo[1],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 15: User's login time. */
- if(fgets((char *)apszDropFileInfo[2],255,pfDropFile)==NULL) return(FALSE);
- sprintf(od_control.user_logintime, "%02.2d:%02.2d",
- atoi((char *)apszDropFileInfo[2]) % 60,
- atoi((char *)apszDropFileInfo[2]) / 60);
-
- /* Line 16: Unused. */
- if(fgets((char *)apszDropFileInfo[3],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 17: Sysop next flag. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- strupr(szIFTemp);
- od_control.sysop_next=(szIFTemp[0]=='T');
-
- /* Line 18: Unused. */
- if(fgets((char *)apszDropFileInfo[4],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 19: Unused. */
- if(fgets((char *)apszDropFileInfo[5],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 20: Unused. */
- if(fgets((char *)apszDropFileInfo[6],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 21: Error free connection flag. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- strupr(szIFTemp);
- od_control.user_error_free=(szIFTemp[0]=='T');
-
- /* Line 22: Current message area. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_msg_area=atoi(szIFTemp);
-
- /* Line 23: Current file area. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_file_area=atoi(szIFTemp);
-
- /* Line 24: Current node number. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.od_node=atoi(szIFTemp);
-
- /* Line 25: Unused. */
- if(fgets((char *)apszDropFileInfo[10],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 26: Unused. */
- if(fgets((char *)apszDropFileInfo[11],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 27: Unused. */
- if(fgets((char *)apszDropFileInfo[12],80,pfDropFile)==NULL) return(FALSE);
-
- /* Line 28: Kilobytes downloaded today. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_todayk=atoi(szIFTemp);
-
- /* Line 29: Kilobytes uploaded in total. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_upk=atoi(szIFTemp);
-
- /* Line 30: Kilobytes downloaded in total. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- od_control.user_downk=atoi(szIFTemp);
-
- /* Line 31: User's home phone number. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- szIFTemp[15]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_homephone,szIFTemp);
-
- /* Line 32: User's home location. */
- if(fgets(szIFTemp,255,pfDropFile)==NULL) return(FALSE);
- szIFTemp[25]='\0';
- ODStringToName(szIFTemp);
- strcpy(od_control.user_location,szIFTemp);
-
- /* Line 33: Unused. */
- if(fgets((char *)apszDropFileInfo[15],80,pfDropFile)==NULL)
- {
- apszDropFileInfo[15][0]='\0';
- }
-
- /* Line 34: RIP mode. */
- if(fgets(szIFTemp,255,pfDropFile) != NULL)
- {
- strupr(szIFTemp);
- od_control.user_rip = (szIFTemp[0] == 'T');
- }
-
- /* line 35: User wants chat. */
- if(fgets(szIFTemp,255,pfDropFile) != NULL)
- {
- strupr(szIFTemp);
- od_control.user_wantchat = (szIFTemp[0] == 'T');
- }
-
- /* Line 36: Unused. */
- if(fgets((char *)apszDropFileInfo[17],80,pfDropFile)==NULL)
- {
- apszDropFileInfo[17][0]='\0';
- }
-
- /* Line 37: IRQ number. */
- if(fgets(szIFTemp,255,pfDropFile) != NULL)
- {
- od_control.od_com_irq = atoi(szIFTemp);
- }
-
- /* Line 38: Serial port address. */
- if(fgets(szIFTemp,255,pfDropFile) != NULL)
- {
- od_control.od_com_address = atoi(szIFTemp);
- }
-
- /* Line 39: Unused. */
- if(fgets((char *)apszDropFileInfo[18],80,pfDropFile)==NULL)
- {
- apszDropFileInfo[18][0]='\0';
- }
-
- fclose(pfDropFile);
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInitReadExitInfo() *** PRIVATE FUNCTION ***
- *
- * Reads an EXITINFO.BBS format drop file.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODInitReadExitInfo(void)
-{
- DWORD dwFileSize;
- FILE *pfDropFile;
- BYTE btCount;
-
- od_control.od_extended_info=FALSE;
- od_control.od_ra_info=FALSE;
-
- /* Try to open EXITINFO.BBS. */
- ODMakeFilename(szODWorkString, szExitinfoBBSPath, "exitinfo.bbs",
- sizeof(szExitinfoBBSPath));
- if((pfDropFile = fopen(szODWorkString, "rb")) != NULL)
- {
- dwFileSize = ODFileSize(pfDropFile);
-
- if(dwFileSize >= 2363)
- {
- if((pRA2ExitInfoRecord=malloc(sizeof(tRA2ExitInfoRecord)))!=NULL)
- {
- if(fread(pRA2ExitInfoRecord,1,2363,pfDropFile)==2363)
- {
- od_control.od_ra_info=TRUE;
- od_control.od_extended_info=TRUE;
- od_control.od_info_type=RA2EXITINFO;
-
- od_control.baud=(long)pRA2ExitInfoRecord->baud;
- od_control.system_calls=pRA2ExitInfoRecord->num_calls;
- ODStringPascalToC(od_control.system_last_caller,pRA2ExitInfoRecord->last_caller,35);
- ODStringPascalToC(od_control.system_last_handle,pRA2ExitInfoRecord->sLastHandle,35);
- ODStringPascalToC(od_control.timelog_start_date,pRA2ExitInfoRecord->start_date,8);
- memcpy(&od_control.timelog_busyperhour,&pRA2ExitInfoRecord->busyperhour,62);
- ODStringPascalToC(od_control.user_name,pRA2ExitInfoRecord->name,35);
- ODStringPascalToC(od_control.user_location,pRA2ExitInfoRecord->location,25);
- ODStringPascalToC(od_control.user_org,pRA2ExitInfoRecord->organisation,50);
- for(btCount=0;btCount<3;++btCount)
- ODStringPascalToC(od_control.user_address[btCount],pRA2ExitInfoRecord->address[btCount],50);
- ODStringPascalToC(od_control.user_handle,pRA2ExitInfoRecord->handle,35);
- ODStringPascalToC(od_control.user_comment,pRA2ExitInfoRecord->comment,80);
- od_control.user_pwd_crc=pRA2ExitInfoRecord->password_crc;
- ODStringPascalToC(od_control.user_dataphone,pRA2ExitInfoRecord->dataphone,15);
- ODStringPascalToC(od_control.user_homephone,pRA2ExitInfoRecord->homephone,15);
- ODStringPascalToC(od_control.user_lasttime,pRA2ExitInfoRecord->lasttime,5);
- ODStringPascalToC(od_control.user_lastdate,pRA2ExitInfoRecord->lastdate,8);
- od_control.user_attribute=pRA2ExitInfoRecord->attrib;
- od_control.user_attrib2=pRA2ExitInfoRecord->attrib2;
- memcpy(&od_control.user_flags,&pRA2ExitInfoRecord->flags,14);
- od_control.user_security=pRA2ExitInfoRecord->sec;
- od_control.user_lastread=pRA2ExitInfoRecord->lastread;
- memcpy(&od_control.user_numcalls,&pRA2ExitInfoRecord->nocalls,29);
- od_control.user_group=pRA2ExitInfoRecord->group;
- memcpy(&od_control.user_combinedrecord,&pRA2ExitInfoRecord->combinedrecord,200);
- ODStringPascalToC(od_control.user_firstcall,pRA2ExitInfoRecord->firstcall,8);
- ODStringPascalToC(od_control.user_birthday,pRA2ExitInfoRecord->birthday,8);
- ODStringPascalToC(od_control.user_subdate,pRA2ExitInfoRecord->subdate,8);
- od_control.user_screenwidth=pRA2ExitInfoRecord->screenwidth;
- od_control.user_language=pRA2ExitInfoRecord->language;
- od_control.user_date_format=pRA2ExitInfoRecord->dateformat;
- ODStringPascalToC(od_control.user_forward_to,pRA2ExitInfoRecord->forwardto,35);
- memcpy(&od_control.user_msg_area,&pRA2ExitInfoRecord->msgarea,15);
- od_control.user_sex = (pRA2ExitInfoRecord->sex == 1) ? 'M' : 'F';
- od_control.user_attrib3=pRA2ExitInfoRecord->btAttribute3;
- ODStringPascalToC(od_control.user_password,pRA2ExitInfoRecord->sPassword,15);
- od_control.event_status=pRA2ExitInfoRecord->status;
- ODStringPascalToC(od_control.event_starttime,pRA2ExitInfoRecord->starttime,5);
- memcpy(&od_control.event_errorlevel,&pRA2ExitInfoRecord->errorlevel,3);
- ODStringPascalToC(od_control.event_last_run,pRA2ExitInfoRecord->lasttimerun,8);
- memcpy(&od_control.user_netmailentered,&pRA2ExitInfoRecord->netmailentered,2);
- ODStringPascalToC(od_control.user_logintime,pRA2ExitInfoRecord->logintime,5);
- ODStringPascalToC(od_control.user_logindate,pRA2ExitInfoRecord->logindate,8);
- memcpy(&od_control.user_timelimit,&pRA2ExitInfoRecord->timelimit,6);
- memcpy(&od_control.user_num,&pRA2ExitInfoRecord->userrecord,8);
- ODStringPascalToC(od_control.user_timeofcreation,pRA2ExitInfoRecord->timeofcreation,5);
- od_control.user_logon_pwd_crc=pRA2ExitInfoRecord->logonpasswordcrc;
- od_control.user_wantchat=pRA2ExitInfoRecord->wantchat;
- od_control.user_deducted_time=pRA2ExitInfoRecord->deducted_time;
- for(btCount=0;btCount<50;++btCount)
- ODStringPascalToC(od_control.user_menustack[btCount],pRA2ExitInfoRecord->menustack[btCount],8);
- od_control.user_menustackpointer=pRA2ExitInfoRecord->menustackpointer;
- memcpy(&od_control.user_error_free,&pRA2ExitInfoRecord->error_free,3);
- ODStringPascalToC(od_control.user_emsi_crtdef,pRA2ExitInfoRecord->emsi_crtdef,40);
- ODStringPascalToC(od_control.user_emsi_protocols,pRA2ExitInfoRecord->emsi_protocols,40);
- ODStringPascalToC(od_control.user_emsi_capabilities,pRA2ExitInfoRecord->emsi_capabilities,40);
- ODStringPascalToC(od_control.user_emsi_requests,pRA2ExitInfoRecord->emsi_requests,40);
- ODStringPascalToC(od_control.user_emsi_software,pRA2ExitInfoRecord->emsi_software,40);
- memcpy(&od_control.user_hold_attr1,&pRA2ExitInfoRecord->hold_attr1,3);
- ODStringPascalToC(od_control.user_reasonforchat,pRA2ExitInfoRecord->page_reason,77);
- btRAStatusToSet = pRA2ExitInfoRecord->status_line-1;
- ODStringPascalToC(od_control.user_last_cost_menu,pRA2ExitInfoRecord->last_cost_menu,8);
- od_control.user_menu_cost=pRA2ExitInfoRecord->menu_cost_per_min;
- od_control.user_rip=pRA2ExitInfoRecord->has_rip;
- od_control.user_rip_ver=pRA2ExitInfoRecord->btRIPVersion;
-
- od_control.user_ansi=od_control.user_attribute&8;
- od_control.user_avatar=od_control.user_attrib2&2;
- }
-
- else
- {
- free(pRA2ExitInfoRecord);
- }
- }
- }
-
- else if(dwFileSize>=1493)
- {
- if(ODReadExitInfoPrimitive(pfDropFile,476))
- {
- if((pExtendedExitInfo=malloc(sizeof(tExtendedExitInfo)))!=NULL)
- {
- if(fread(pExtendedExitInfo,1,sizeof(tExtendedExitInfo), pfDropFile)==sizeof(tExtendedExitInfo))
- { /* transfer info into od_control struct */
- ODStringPascalToC(od_control.user_timeofcreation,pExitInfoRecord->bbs.ra.timeofcreation,5);
- ODStringPascalToC(od_control.user_logonpassword,pExitInfoRecord->bbs.ra.logonpassword,15);
- od_control.user_wantchat=pExitInfoRecord->bbs.ra.wantchat;
-
- od_control.user_deducted_time=pExtendedExitInfo->deducted_time;
- for(btCount=0;btCount<50;++btCount)
- {
- ODStringPascalToC(od_control.user_menustack[btCount],pExtendedExitInfo->menustack[btCount],8);
- }
- od_control.user_menustackpointer=pExtendedExitInfo->menustackpointer;
- ODStringPascalToC(od_control.user_handle,pExtendedExitInfo->userhandle,35);
- ODStringPascalToC(od_control.user_comment,pExtendedExitInfo->comment,80);
- ODStringPascalToC(od_control.user_firstcall,pExtendedExitInfo->firstcall,8);
- memcpy(od_control.user_combinedrecord,pExtendedExitInfo->combinedrecord,25);
- ODStringPascalToC(od_control.user_birthday,pExtendedExitInfo->birthday,8);
- ODStringPascalToC(od_control.user_subdate,pExtendedExitInfo->subdate,8);
- od_control.user_screenwidth=pExtendedExitInfo->screenwidth;
- od_control.user_msg_area=pExtendedExitInfo->msgarea;
- od_control.user_file_area=pExtendedExitInfo->filearea;
- od_control.user_language=pExtendedExitInfo->language;
- od_control.user_date_format=pExtendedExitInfo->dateformat;
- ODStringPascalToC(od_control.user_forward_to,pExtendedExitInfo->forwardto,35);
- memcpy(&od_control.user_error_free,&pExtendedExitInfo->error_free,3);
- ODStringPascalToC(od_control.user_emsi_crtdef,pExtendedExitInfo->emsi_crtdef,40);
- ODStringPascalToC(od_control.user_emsi_protocols,pExtendedExitInfo->emsi_protocols,40);
- ODStringPascalToC(od_control.user_emsi_capabilities,pExtendedExitInfo->emsi_capabilities,40);
- ODStringPascalToC(od_control.user_emsi_requests,pExtendedExitInfo->emsi_requests,40);
- ODStringPascalToC(od_control.user_emsi_software,pExtendedExitInfo->emsi_software,40);
- memcpy(&od_control.user_hold_attr1,&pExtendedExitInfo->hold_attr1,3);
-
- od_control.od_ra_info=TRUE;
- od_control.od_extended_info=TRUE;
- od_control.od_info_type=RA1EXITINFO;
- }
- }
- }
- }
-
- else if(dwFileSize>476)
- {
- if(dwFileSize > sizeof(tExitInfoRecord))
- {
- dwFileSize = sizeof(tExitInfoRecord);
- }
-
- if(ODReadExitInfoPrimitive(pfDropFile,(int)dwFileSize))
- {
- od_control.user_wantchat=pExitInfoRecord->bbs.qbbs.qwantchat;
- for(btCount=0;btCount<pExitInfoRecord->bbs.qbbs.gosublevel;++btCount)
- {
- ODStringPascalToC(od_control.user_menustack[btCount],pExitInfoRecord->bbs.qbbs.menustack[btCount],8);
- }
- od_control.user_menustackpointer=pExitInfoRecord->bbs.qbbs.gosublevel;
- ODStringPascalToC(od_control.user_menustack[od_control.user_menustackpointer],pExitInfoRecord->bbs.qbbs.menu,8);
-
- od_control.od_extended_info=TRUE;
- od_control.od_info_type=QBBS275EXITINFO;
- nInitialElapsed=pExitInfoRecord->elapsed;
-
- od_control.user_rip = pExitInfoRecord->bbs.qbbs.ripactive;
- }
- }
-
- else if(dwFileSize>=452)
- {
- if(ODReadExitInfoPrimitive(pfDropFile,(int)dwFileSize))
- {
- ODStringPascalToC(od_control.user_timeofcreation,pExitInfoRecord->bbs.ra.timeofcreation,5);
- ODStringPascalToC(od_control.user_logonpassword,pExitInfoRecord->bbs.ra.logonpassword,15);
- od_control.user_wantchat=pExitInfoRecord->bbs.ra.wantchat;
-
- od_control.od_extended_info=TRUE;
- od_control.od_info_type=EXITINFO;
- }
- }
-
- od_control.od_page_pausing=od_control.user_attribute&0x04;
-
- fclose(pfDropFile);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInitPartTwo() *** PRIVATE FUNCTION ***
- *
- * Called by od_init() to carry on with second stage of OpenDoors
- * initialization. The sole reason that this function exists is because some
- * compilers were unable to compile this file with a huge od_init() function
- * that had this code in the main od_init() body.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODInitPartTwo(void)
-{
- BYTE btCount;
-#ifdef ODPLAT_NIX
- struct termios term;
- struct passwd *uinfo;
-#endif
-
- /* Initialize any colors that haven't already been set. */
- if(!od_control.od_list_title_col) od_control.od_list_title_col = 0x0f;
- if(!od_control.od_continue_col) od_control.od_continue_col = 0x0f;
- if(!od_control.od_list_name_col) od_control.od_list_name_col = 0x0e;
- if(!od_control.od_list_size_col) od_control.od_list_size_col = 0x0d;
- if(!od_control.od_list_comment_col) od_control.od_list_comment_col = 0x03;
- if(!od_control.od_list_offline_col) od_control.od_list_offline_col = 0x0c;
- if(!od_control.od_local_win_col) od_control.od_local_win_col = 0x19;
- if(!od_control.od_menu_title_col) od_control.od_menu_title_col = 0x74;
- if(!od_control.od_menu_border_col) od_control.od_menu_border_col = 0x70;
- if(!od_control.od_menu_text_col) od_control.od_menu_text_col = 0x70;
- if(!od_control.od_menu_key_col) od_control.od_menu_key_col = 0x7f;
- if(!od_control.od_menu_highkey_col) od_control.od_menu_highkey_col = 0x0f;
- if(!od_control.od_menu_highlight_col)
- {
- od_control.od_menu_highlight_col = 0x07;
- }
-
- /* Color sequence delimiter characters. */
- od_control.od_color_char = '\0';
- od_control.od_color_delimiter = '`';
-
- /* Enable sysop paging between the hours of 8:00am and 10:00pm. */
- od_control.od_okaytopage = PAGE_USE_HOURS;
- od_control.od_pagestartmin = 480;
- od_control.od_pageendmin = 1320;
-
- /* Default maximum user inactivity is 200 seconds. */
- od_control.od_inactivity = 200;
-
- /* Screen clearing is on by default. */
- od_control.od_always_clear = TRUE;
-
- od_control.od_inactive_warning = 10;
- od_control.od_cur_attrib = -1;
-
- /* Enable screen clearing on door exit. */
- od_control.od_clear_on_exit = TRUE;
-
- /* RA/QBBS control codes are now disabled by default. */
- od_control.od_no_ra_codes = TRUE;
-
- if(od_control.od_chat_color1 == 0) od_control.od_chat_color1 = 0x0c;
- if(od_control.od_chat_color2 == 0) od_control.od_chat_color2 = 0x0f;
-
- /* Set default messages and prompts. */
- od_control.od_before_shell = "\n\rPlease wait a moment...\n\r";
- od_control.od_after_shell = "\n\r...Thanks for waiting\n\r\n\r";
- od_control.od_help_text = " Alt: [C]hat [H]angup [L]ockout [J]Dos [K]eyboard-Off [D]rop to BBS ";
- od_control.od_before_chat = "\n\rThe system operator has placed you in chat mode to talk with you:\n\r\n\r";
- od_control.od_after_chat = "\n\rChat mode ended.\n\r\n\r";
- od_control.od_inactivity_timeout = "\n\rMaximum user inactivity time has elapsed, please call again.\n\r\n\r";
- od_control.od_inactivity_warning = "\n\rWARNING: Inactivity timeout in 10 seconds, press a key now to remain online.\n\r\n\r";
- od_control.od_time_warning = "\n\rWARNING: You only have %d minute(s) remaining for this session.\n\r\n\r";
- od_control.od_time_left = "%d mins ";
- od_control.od_sysop_next = "[SN] ";
- od_control.od_no_keyboard = "[Keyboard]";
- od_control.od_want_chat = "[Want-Chat]";
- od_control.od_no_time = "\n\rSorry, you have used up of your time for this session.\n\r\n\r";
- od_control.od_no_sysop = "\n\rSorry, the system operator is not available at this time.\n\r";
- od_control.od_press_key = "Press [Enter] to continue";
- od_control.od_chat_reason = " Why would you like to chat? (Blank line to cancel)\n\r";
- od_control.od_paging = "\n\rPaging system operator for chat";
- od_control.od_no_response = " No response.\n\r\n\r";
- od_control.od_status_line[0] = " [Node: ";
- od_control.od_status_line[1] = "%s of %s at %lu BPS";
- od_control.od_status_line[2] = "Security: Time: [F9]=Help ";
- od_control.od_month[0] = "Jan";
- od_control.od_month[1] = "Feb";
- od_control.od_month[2] = "Mar";
- od_control.od_month[3] = "Apr";
- od_control.od_month[4] = "May";
- od_control.od_month[5] = "Jun";
- od_control.od_month[6] = "Jul";
- od_control.od_month[7] = "Aug";
- od_control.od_month[8] = "Sep";
- od_control.od_month[9] = "Oct";
- od_control.od_month[10] = "Nov";
- od_control.od_month[11] = "Dec";
- od_control.od_day[0] = "Sun";
- od_control.od_day[1] = "Mon";
- od_control.od_day[2] = "Tue";
- od_control.od_day[3] = "Wed";
- od_control.od_day[4] = "Thu";
- od_control.od_day[5] = "Fri";
- od_control.od_day[6] = "Sat";
- od_control.od_offline = "[OFFLINE] ";
- od_control.od_continue = "Continue? [Y/n/=]";
- od_control.od_continue_yes = 'y';
- od_control.od_continue_no = 'n';
- od_control.od_continue_nonstop = '=';
- od_control.od_help_text2 = OD_VER_STATUSLINE;
- od_control.od_sending_rip = "Sending RIP file: ";
- od_control.od_hanging_up = "Ending call...";
- od_control.od_exiting = "Program is exiting...";
- if(strlen(od_control.od_disable_dtr) == 0)
- {
- strcpy(od_control.od_disable_dtr, "~+++~ AT&D0| ATO|");
- }
-
- nInitialRemaining = od_control.user_timelimit;
-
- if(od_control.od_maxtime > 0 && od_control.od_maxtime <= 1440)
- {
- if(od_control.user_timelimit > (INT)od_control.od_maxtime)
- {
- od_control.od_maxtime_deduction
- = od_control.user_timelimit-od_control.od_maxtime;
- od_control.user_timelimit
- = od_control.od_maxtime;
- }
- }
-
- /* If sysop name is unkown, then use the word "Sysop". */
- if(strlen(od_control.sysop_name) == 0)
- {
- strcpy(od_control.sysop_name, "Sysop");
- }
-
- /* If in foced local mode and user name has not yet been set. */
- if(od_control.od_force_local && od_control.user_name[0] == '\0')
- {
- /* If name prompting is not disabled, then turn on flag to prompt for */
- /* user's name. */
- if(!(od_control.od_disable & DIS_NAME_PROMPT))
- {
- bPromptForUserName = TRUE;
- }
-
- /* Use sysop's name as default user name. */
- if(bSysopNameSet)
- {
- strcpy(od_control.user_name, szForcedSysopName);
- }
- else
- {
- strcpy(od_control.user_name, od_control.sysop_name);
- }
- }
-
- dwFileBPS = od_control.baud;
-
- /* Determine desired BPS rate. */
- if(dwForcedBPS != 1)
- {
- if(od_control.od_disable & DIS_LOCAL_OVERRIDE || od_control.baud != 0)
- {
- od_control.baud = dwForcedBPS;
- }
- }
-
- /* If we are not operating in local mode, then setup for serial I/O. */
-#ifndef ODPLAT_NIX
- if(od_control.baud != 0)
-#endif
- {
- tComMethod ComMethod;
-
- /* Attempt to allocate an OpenDoors port object. */
- if(ODComAlloc(&hSerialPort) != kODRCSuccess)
- {
-malloc_error:
- ODInitError("Insufficient memory available to start up program.");
- exit(od_control.od_errorlevel[1]);
- }
-
- /* Set socket I/O method, if specified by user. */
- if(od_control.od_use_socket)
- {
- ODComSetPreferredMethod(hSerialPort, kComMethodSocket);
- }
-
-#ifdef ODPLAT_WIN32
- /* Check whether a handle has been provided by the caller. */
- if(od_control.od_open_handle != 0)
- {
- if(ODComOpenFromExistingHandle(hSerialPort, od_control.od_open_handle)
- != kODRCSuccess)
- {
- ODInitError("Unable to use provided serial port handle.");
- exit(od_control.od_errorlevel[1]);
- }
- }
- else
-#endif /* ODPLAT_WIN32 */
- {
- /* Set flow control type. */
- switch(od_control.od_com_flow_control)
- {
- case COM_NO_FLOW:
- ODComSetFlowControl(hSerialPort, FLOW_NONE);
- break;
- case COM_RTSCTS_FLOW:
- ODComSetFlowControl(hSerialPort, FLOW_RTSCTS);
- break;
- case COM_DEFAULT_FLOW:
- /* Don't say anything to the serial I/O module about flow */
- /* control. */
- break;
- default:
- /* We should never get here. */
- ASSERT(FALSE);
- }
-
- /* Determine desired port. */
- if(nForcedPort != -1) od_control.port=nForcedPort;
-
- /* Set port number. */
- ODComSetPort(hSerialPort, (BYTE)od_control.port);
-
- /* If serial port address has been explicitly set, then set user's */
- /* port address in serial port object. */
- if(od_control.od_com_address != 0)
- {
- ODComSetPortAddress(hSerialPort, od_control.od_com_address);
- }
-
- /* If serial port IRQ line number has been explicitly set, then */
- /* set user's setting in serial port object. */
- if(od_control.od_com_irq >= 1 && od_control.od_com_irq < 15)
- {
- ODComSetIRQ(hSerialPort, od_control.od_com_irq);
- }
-
- /* Set BPS rate, if this is not disabled. */
- if(!(od_control.od_disable&DIS_BPS_SETTING))
- {
- ODComSetSpeed(hSerialPort, od_control.baud);
- }
- else
- {
- ODComSetSpeed(hSerialPort, SPEED_UNSPECIFIED);
- }
-
- /* Set serial I/O method, if specified by user. */
- if(od_control.od_no_fossil)
- {
- ODComSetPreferredMethod(hSerialPort, kComMethodUART);
- }
-
- /* Establish default buffer sizes */
- if(od_control.od_com_rx_buf == 0)
- od_control.od_com_rx_buf = 256;
- if(od_control.od_com_tx_buf == 0)
- od_control.od_com_tx_buf = 3072;
-
- /* Set buffer sizes for serial port. */
- ODComSetRXBuf(hSerialPort, od_control.od_com_rx_buf);
- ODComSetTXBuf(hSerialPort, od_control.od_com_tx_buf);
-
- /* Set FIFO enabled/disabled and trigger size */
- if(od_control.od_com_no_fifo)
- {
- /* Disable UART FIFO buffers. */
- ODComSetFIFO(hSerialPort, FIFO_DISABLE);
- }
- else
- {
- /* Enable FIFO, setting size of FIFO trigger. */
- switch(od_control.od_com_fifo_trigger)
- {
- case 1:
- ODComSetFIFO(hSerialPort, FIFO_ENABLE | FIFO_TRIGGER_1);
- break;
- case 4:
- ODComSetFIFO(hSerialPort, FIFO_ENABLE | FIFO_TRIGGER_4);
- break;
- case 8:
- ODComSetFIFO(hSerialPort, FIFO_ENABLE | FIFO_TRIGGER_8);
- break;
- case 14:
- ODComSetFIFO(hSerialPort, FIFO_ENABLE | FIFO_TRIGGER_14);
- break;
- default:
- od_control.od_com_fifo_trigger = 4;
- ODComSetFIFO(hSerialPort, FIFO_ENABLE | FIFO_TRIGGER_4);
- }
- }
-
-#ifdef ODPLAT_DOS
- /* Set od_kernel() to be idle function. */
- ODComSetIdleFunction(hSerialPort, od_kernel);
-#endif /* ODPLAT_DOS */
-
- /* Open serial port. */
- switch(ODComOpen(hSerialPort))
- {
- case kODRCSuccess:
- /* Serial port open succeeded, so proceed with OpenDoors */
- /* initialization. */
- break;
- case kODRCNoMemory:
- goto malloc_error;
- case kODRCNoPortAddress:
- ODInitError("Serial port address is unknown, cannot continue.");
- exit(od_control.od_errorlevel[1]);
- break;
- case kODRCNoUART:
- ODInitError("No UART at specified port address, cannot continue.\n");
- exit(od_control.od_errorlevel[1]);
- break;
- default:
- ODInitError("Unable to access serial port, cannot continue.\n");
- exit(od_control.od_errorlevel[1]);
- break;
- }
- }
-
- /* Raise DTR signal. */
- ODComSetDTR(hSerialPort, TRUE);
-
- /* Get serial I/O method actually being used. */
- ODComGetMethod(hSerialPort, (tComMethod *)&ComMethod);
- switch(ComMethod)
- {
- case kComMethodFOSSIL:
- od_control.od_com_method = COM_FOSSIL;
- break;
- case kComMethodUART:
- od_control.od_com_method = COM_INTERNAL;
- break;
- case kComMethodWin32:
- od_control.od_com_method = COM_WIN32;
- break;
- case kComMethodDoor32:
- od_control.od_com_method = COM_DOOR32;
- break;
- case kComMethodSocket:
- od_control.od_com_method = COM_SOCKET; /* Why are using doubling up constants here? */
- break;
- case kComMethodStdIO:
- od_control.od_com_method = COM_STDIO;
- break;
- default:
- ODInitError("No method of accessing serial port, cannot continue.\n");
- exit(od_control.od_errorlevel[1]);
- break;
- }
- }
-
- /* If we are operating in local mode, then disable silent mode. */
- if(od_control.baud == 0)
- {
- od_control.od_silent_mode = FALSE;
- }
-
- /* Setup local screen. */
- ODScrnInitialize();
-#ifdef OD_TEXTMODE
- ODScrnSetBoundary(1, 1, 80, 23);
-#else /* !OD_TEXTMODE */
- ODScrnSetBoundary(1, 1, 80, 25);
-#endif /* !OD_TEXTMODE */
-
-#ifndef ODPLAT_WIN32
- if(bPreset)
- {
- atexit(ODAtExitCallback);
- bPreset = FALSE;
- }
-#endif /* !ODPLAT_WIN32 */
-
- /* Setup remote terminal for ANSI graphics if operating in RIP mode. */
- if(od_control.user_rip)
- {
- od_clr_scr();
- }
-
-#ifdef ODPLAT_WIN32
- /* Startup the OpenDoors frame window, if we are not operating in silent */
- /* mode. */
- if(!od_control.od_silent_mode)
- {
-#ifdef OD_DLL
- ODFrameStart(GetModuleHandle(OD_DLL_NAME), &hFrameThread);
-#else /* !OD_DLL */
- ODFrameStart(GetModuleHandle(NULL), &hFrameThread);
-#endif /* !OD_DLL */
- }
-#endif /* ODPLAT_WIN32 */
-
- /* Initialize the OpenDoors kernel. */
- ODKrnlInitialize();
-
-#ifndef ODPLAT_WIN32
-#ifdef ODPLAT_NIX
- if(bPromptForUserName)
- {
- od_control.od_com_method=COM_STDIO;
- od_control.baud=300;
- gethostname(od_control.system_name,sizeof(od_control.system_name));
- od_control.system_name[sizeof(od_control.system_name)-1]=0;
- if (isatty(fileno(stdin))) {
- tcgetattr(fileno(stdin),&term);
- od_control.baud=cfgetispeed(&term);
- if(!od_control.baud)
- od_control.baud=cfgetispeed(&term);
- if(!od_control.baud)
- od_control.baud=300;
- }
- uinfo=getpwuid(getuid());
- ODStringCopy(od_control.user_handle, uinfo->pw_name,sizeof(od_control.user_handle));
- ODStringCopy(od_control.user_name, uinfo->pw_gecos,sizeof(od_control.user_name));
- }
-#else
- if(bPromptForUserName)
- {
- void *pWindow = ODScrnCreateWindow(10, 8, 70, 15,
- od_control.od_local_win_col, od_control.od_prog_name,
- od_control.od_local_win_col);
-
- if(pWindow != NULL)
- {
- ODScrnSetCursorPos(12, 9);
- ODScrnDisplayString("This program has been started in local mode,");
- ODScrnSetCursorPos(12, 10);
- ODScrnDisplayString("independently of a BBS system. When operating in this");
- ODScrnSetCursorPos(12, 11);
- ODScrnDisplayString("mode, you may specify what name you should be known to");
- ODScrnSetCursorPos(12, 12);
- ODScrnDisplayString("the program by.");
- ODScrnSetCursorPos(12, 14);
- ODScrnDisplayString("Your name:");
- ODScrnLocalInput(23, 14, od_control.user_name, 35);
- ODStringCopy(od_control.user_handle, od_control.user_name,
- sizeof(od_control.user_name));
- ODScrnDestroyWindow(pWindow);
- ODScrnSetCursorPos(1, 1);
- ODScrnSetAttribute(0x07);
- }
- }
-#endif /* !ODPLAT_NIX */
-#endif /* !ODPLAT_WIN32 */
-
-#ifdef OD_TEXTMODE
- /* Setup sysop status line/function key personality. */
- if(pfSetPersonality == NULL)
- {
-no_default:
- if (od_control.od_default_personality == NULL)
- {
- pfCurrentPersonality = pdef_opendoors;
- }
- else
- {
- pfCurrentPersonality = od_control.od_default_personality;
- }
- (*pfCurrentPersonality)(20);
- if(bRAStatus)
- {
- od_set_statusline(btRAStatusToSet);
- }
- else
- {
- od_set_statusline(0);
- }
- }
- else
- {
- if(!((*pfSetPersonality)(szDesiredPersonality)))
- {
- goto no_default;
- }
- }
-#endif /* OD_TEXTMODE */
-
- /* If connect speed has not been set yet, then set it to the */
- /* serial port speed. */
- if(od_control.od_connect_speed == 0)
- {
- od_control.od_connect_speed = od_control.baud;
- }
-
- /* Initialize the array of characters to use for drawing boxes, */
- /* window and menu boarders, etc. */
- od_control.od_box_chars[0] = 218U;
- od_control.od_box_chars[1] = 196U;
- od_control.od_box_chars[2] = 191U;
- od_control.od_box_chars[3] = 179U;
- od_control.od_box_chars[4] = 192U;
- od_control.od_box_chars[5] = 217U;
-
- /* Enable pausing and stoping of listing. */
- od_control.od_list_stop = TRUE;
- od_control.od_list_pause = TRUE;
-
- /* Initialize array of logfile messages. */
- for(btCount = 0; btCount < DIM(apszLogMessages); ++btCount)
- {
- if(od_control.od_logfile_messages[btCount] == NULL)
- {
- (char *)od_control.od_logfile_messages[btCount]
- = (char *)apszLogMessages[btCount];
- }
- }
-
- /* Set log file name to default, if none has been specified already. */
- if(strlen(od_control.od_logfile_name) == 0)
- {
- strcpy(od_control.od_logfile_name, "DOOR.LOG");
- }
-
- /* If OpenDoors log file system is installed, then start it up. */
- if(od_control.od_logfile != NULL)
- {
- (*(OD_COMPONENT_CALLBACK *)od_control.od_logfile)();
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInitError()
- *
- * Called to display an error message when OpenDoors initialization fails,
- * forcing the program to exit.
- *
- * Parameters: pszErrorText - Pointer to the error message explaining the
- * reason for failure.
- *
- * Return: void
- */
-void ODInitError(char *pszErrorText)
-{
-#ifdef ODPLAT_DOS
- printf("%s: %s\n", od_control.od_prog_name, pszErrorText);
- if(bParsedCmdLine)
- {
- printf("Use the -HELP command line option for help, or -LOCAL for local mode.\n");
- }
-#endif
-#ifdef ODPLAT_WIN32
- char *pszMessage;
- if(!bParsedCmdLine ||
- (pszMessage = malloc(strlen(pszErrorText) + 80)) == NULL)
- {
- MessageBox(NULL, pszErrorText, od_control.od_prog_name,
- MB_ICONSTOP | MB_OK | MB_TASKMODAL);
- }
- else
- {
- sprintf(pszMessage,
- "%s\nUse the -HELP command line option for help, or -LOCAL for local mode.",
- pszErrorText);
- MessageBox(NULL, pszMessage, od_control.od_prog_name,
- MB_ICONSTOP | MB_OK | MB_TASKMODAL);
- free(pszMessage);
- }
-#endif
-#ifdef ODPLAT_NIX
- write(2,pszErrorText,strlen(pszErrorText));
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInitLoginDlgProc()
- *
- * Dialog box proceedure for the local mode login dialog box.
- *
- * Parameters: hwndDlg - Window handle to the dialog box.
- *
- * uMsg - Message ID.
- *
- * wParam - First message parameter.
- *
- * lParam - Second message parameter.
- *
- * Return: TRUE if message is processed, FALSE otherwise.
- */
-#ifdef ODPLAT_WIN32
-BOOL CALLBACK ODInitLoginDlgProc(HWND hwndDlg, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- switch(uMsg)
- {
- case WM_INITDIALOG:
- ODFrameCenterWindowInParent(hwndDlg);
-
- /* Set the title of the dialog box to the name of this program. */
- SetWindowText(hwndDlg, od_control.od_prog_name);
-
- /* The initial text in the user name dialog box should be the */
- /* default user name. */
- SetWindowText(GetDlgItem(hwndDlg, IDC_USER_NAME),
- od_control.user_name);
-
- /* Limit the number of characters that may be entered as the */
- /* user's name to the maximum size of the string. */
- SendMessage(GetDlgItem(hwndDlg, IDC_USER_NAME), EM_LIMITTEXT,
- sizeof(od_control.user_name), 0L);
-
- return(TRUE);
-
- case WM_COMMAND:
- /* If a command has been chosen. */
- switch(LOWORD(wParam))
- {
- case IDOK:
- /* If the OK button has been pressed, obtain the entered */
- /* user name. */
- GetWindowText(GetDlgItem(hwndDlg, IDC_USER_NAME),
- od_control.user_name, sizeof(od_control.user_name));
- ODStringCopy(od_control.user_handle, od_control.user_name,
- sizeof(od_control.user_name));
-
- /* Now close the dialog. */
- EndDialog(hwndDlg, IDOK);
- break;
-
- case IDCANCEL:
- /* If the Cancel button has benn pressed, close the dialog. */
- EndDialog(hwndDlg, IDCANCEL);
- break;
- }
- return(TRUE);
-
- default:
- /* Otherwise, indicate that this message has not been processed. */
- return(FALSE);
- }
-}
-#endif /* ODPLAT_WIN32 */
diff --git a/src/odoors/ODInEx2.c b/src/odoors/ODInEx2.c
deleted file mode 100644
index 82000bc2e47a1df02604f407ec5e62dd1c19defe..0000000000000000000000000000000000000000
--- a/src/odoors/ODInEx2.c
+++ /dev/null
@@ -1,1433 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODInEx2.c
- *
- * Description: Performs OpenDoors initialization and shutdown operations
- * (od_init() and od_exit()), including drop file I/O. This
- * module is broken into two files, ODInEx1.c and ODInEx2.c.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Oct 29, 1994 6.00 BP New EXITINFO.BBS timelimit writing.
- * Nov 01, 1994 6.00 BP New directory access functions.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Dec 13, 1994 6.00 BP Remove include of dir.h.
- * Dec 31, 1994 6.00 BP Add DIR_ATTRIB_ARCH in file search.
- * Dec 31, 1994 6.00 BP Move _mt_init to new func in odplat.c
- * Jan 01, 1995 6.00 BP _waitdrain() -> ODWaitDrain().
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 01, 1996 6.00 BP Added od_disable_dtr, DIS_DTR_DISABLE.
- * Jan 04, 1996 6.00 BP tODInQueueEvent -> tODInputEvent.
- * Jan 19, 1996 6.00 BP Don't use atexit() under Win32.
- * Jan 21, 1996 6.00 BP Try DTR disable sequence twice.
- * Jan 21, 1996 6.00 BP Use ODScrnShowMessage().
- * Jan 23, 1996 6.00 BP Added od_exiting.
- * Jan 23, 1996 6.00 BP Use ODProcessExit() instead of exit().
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 30, 1996 6.00 BP Add ODInQueueGetNextEvent() timeout.
- * Jan 31, 1996 6.00 BP Support new SFDOORS.DAT format.
- * Feb 02, 1996 6.00 BP Added RA 2.50 EXITINFO.BBS support.
- * Feb 09, 1996 6.00 BP Correctly translate RA 2.x sex field.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 23, 1996 6.00 BP Make DTR disable code shared.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Added TRIBBS.SYS support.
- * Mar 27, 1996 6.10 BP Added WCNODEID to
- * Jan 13, 1997 6.10 BP Fixes for Door32 support.
- * Oct 19, 2001 6.20 RS Added TCP/IP socket (telnet) support.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <ctype.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODCom.h"
-#include "ODPlat.h"
-#include "ODTypes.h"
-#include "ODScrn.h"
-#include "ODInQue.h"
-#include "ODKrnl.h"
-#include "ODInEx.h"
-#include "ODUtil.h"
-
-
-/* Time difference leeway for door information files to be considered to */
-/* have been written during the same exit (door execution session). */
-#define DROPFILE_TIME_LEEWAY 10
-
-/* Maximum length of modem response string. */
-#define MAX_RESPONSE_LEN 40
-
-/* Maximum time to wait for modem response string, in milliseconds. */
-#define RESPONSE_TIMEOUT 2000
-
-
-/* Environment variables that specify directories where drop files may be */
-/* found. */
-static char *apszEnvVarNames[] =
-{
- "RA",
- "QUICK",
- "PCB",
- "BBS",
- "WCNODEID",
-};
-#define NUM_DIR_ENV_VARS DIM(apszEnvVarNames)
-
-
-/* Local helper functions. */
-static INT ODSearchInDir(char **papszFileNames, INT nNumFileNames,
- char *pszFound, char *pszDirectory);
-
-/* Currently, the following functions are only used in the Win32 version. */
-#ifdef ODPLAT_WIN32
-static BOOL ODSendModemCommand(char *pszCommand, int nRetries);
-static BOOL ODSendModemCommandOnce(char *pszCommand);
-static BOOL ODWaitForString(char *pszResponse, tODMilliSec ResponseTimeout);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef OD_DIAGNOSTICS
-static char szDebugWorkString[500] = "";
-#endif /* OD_DIAGNOSTICS */
-
-
-
-/* ----------------------------------------------------------------------------
- * od_exit()
- *
- * Shuts down OpenDoors operations. Normally, the program is exited as soon
- * as OpenDoors is shutdown.
- *
- * Parameters: nErrorLevel - Result code to exit program with.
- *
- * bTermCall - TRUE to disconnect the user before exiting,
- * FALSE to leave the user connected.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_exit(INT nErrorLevel, BOOL bTermCall)
-{
- BYTE btCount;
- FILE *pfDropFile;
- time_t nMaxTime;
- time_t nDoorEndTime;
- void *pWindow = NULL;
- DWORD dwActiveMinutes;
- static BOOL bExiting = FALSE;
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_exit()");
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Starting up od_exit()", "OpenDoors Diagnostics",
- MB_OK);
- }
-#endif
-
- /* If this is a recursive od_exit() call, then ignore it. */
- if(bExiting)
- {
- return;
- }
- bExiting = TRUE;
-
- /* If user called od_exit() before doing anything else, then we first */
- /* initialize OpenDoors in order to shutdown and exit. */
- if(!bODInitialized) od_init();
-
- /* Update remaining time. */
- od_control.user_timelimit += od_control.od_maxtime_deduction;
-
- /* Calculate deducted time */
- time(&nDoorEndTime);
- ODDWordDivide(&dwActiveMinutes, NULL, nDoorEndTime - nStartupUnixTime, 60L);
- od_control.user_time_used += ((nInitialRemaining
- - od_control.user_timelimit) - (int)dwActiveMinutes);
-
- /* Reset to original bps rate that was stored in drop file */
- od_control.baud = dwFileBPS;
-
- /* If function hook is defined. */
- if(od_control.od_before_exit != NULL)
- {
- /* Then call it. */
- (*od_control.od_before_exit)();
- }
-
- if(bTermCall && od_control.od_hanging_up != NULL)
- {
- pWindow = ODScrnShowMessage(od_control.od_hanging_up, 0);
- }
- else if(!bTermCall)
- {
- pWindow = ODScrnShowMessage(od_control.od_exiting, 0);
- }
-
- if(szOriginalDir != NULL)
- {
- ODDirChangeCurrent(szOriginalDir);
- free(szOriginalDir);
- szOriginalDir=NULL;
- }
-
- if(od_control.od_extended_info) /* Update EXITINFO.BBS, if applicable */
- {
- ODMakeFilename(szExitinfoBBSPath, szExitinfoBBSPath, "EXITINFO.BBS",
- sizeof(szExitinfoBBSPath));
- if((pfDropFile = fopen(szExitinfoBBSPath, "r+b")) != NULL)
- {
- switch(od_control.od_info_type)
- {
- case RA2EXITINFO:
- pRA2ExitInfoRecord->baud = (unsigned int)od_control.baud;
- pRA2ExitInfoRecord->num_calls = od_control.system_calls;
- ODStringCToPascal(pRA2ExitInfoRecord->last_caller,35,od_control.system_last_caller);
- ODStringCToPascal(pRA2ExitInfoRecord->sLastHandle,35,od_control.system_last_handle);
- ODStringCToPascal(pRA2ExitInfoRecord->start_date,8,od_control.timelog_start_date);
- memcpy(&pRA2ExitInfoRecord->busyperhour,&od_control.timelog_busyperhour,62);
- ODStringCToPascal(pRA2ExitInfoRecord->name,35,od_control.user_name);
- ODStringCToPascal(pRA2ExitInfoRecord->location,25,od_control.user_location);
- ODStringCToPascal(pRA2ExitInfoRecord->organisation,50,od_control.user_org);
- for(btCount=0;btCount<3;++btCount)
- ODStringCToPascal(pRA2ExitInfoRecord->address[btCount],50,od_control.user_address[btCount]);
- ODStringCToPascal(pRA2ExitInfoRecord->handle,35,od_control.user_handle);
- ODStringCToPascal(pRA2ExitInfoRecord->comment,80,od_control.user_comment);
- pRA2ExitInfoRecord->password_crc=od_control.user_pwd_crc;
- ODStringCToPascal(pRA2ExitInfoRecord->dataphone,15,od_control.user_dataphone);
- ODStringCToPascal(pRA2ExitInfoRecord->homephone,15,od_control.user_homephone);
- ODStringCToPascal(pRA2ExitInfoRecord->lasttime,5,od_control.user_lasttime);
- ODStringCToPascal(pRA2ExitInfoRecord->lastdate,8,od_control.user_lastdate);
- pRA2ExitInfoRecord->attrib=od_control.user_attribute;
- pRA2ExitInfoRecord->attrib2=od_control.user_attrib2;
- memcpy(&pRA2ExitInfoRecord->flags,&od_control.user_flags,14);
- pRA2ExitInfoRecord->sec=od_control.user_security;
- pRA2ExitInfoRecord->lastread=od_control.user_lastread;
- memcpy(&pRA2ExitInfoRecord->nocalls,&od_control.user_numcalls,29);
- pRA2ExitInfoRecord->group=od_control.user_group;
- memcpy(&pRA2ExitInfoRecord->combinedrecord,&od_control.user_combinedrecord,200);
- ODStringCToPascal(pRA2ExitInfoRecord->firstcall,8,od_control.user_firstcall);
- ODStringCToPascal(pRA2ExitInfoRecord->birthday,8,od_control.user_birthday);
- ODStringCToPascal(pRA2ExitInfoRecord->subdate,8,od_control.user_subdate);
- pRA2ExitInfoRecord->screenwidth=od_control.user_screenwidth;
- pRA2ExitInfoRecord->language=od_control.user_language;
- pRA2ExitInfoRecord->dateformat=od_control.user_date_format;
- ODStringCToPascal(pRA2ExitInfoRecord->forwardto,35,od_control.user_forward_to);
- memcpy(&pRA2ExitInfoRecord->msgarea,&od_control.user_msg_area,15);
- pRA2ExitInfoRecord->sex = (od_control.user_sex == 'M') ? 1 : 2;
- pRA2ExitInfoRecord->btAttribute3=od_control.user_attrib3;
- ODStringCToPascal(pRA2ExitInfoRecord->sPassword,15,od_control.user_password);
- pRA2ExitInfoRecord->status=od_control.event_status;
- ODStringCToPascal(pRA2ExitInfoRecord->starttime,5,od_control.event_starttime);
- memcpy(&pRA2ExitInfoRecord->errorlevel,&od_control.event_errorlevel,3);
- ODStringCToPascal(pRA2ExitInfoRecord->lasttimerun,8,od_control.event_last_run);
- memcpy(&pRA2ExitInfoRecord->netmailentered,&od_control.user_netmailentered,2);
- ODStringCToPascal(pRA2ExitInfoRecord->logintime,5,od_control.user_logintime);
- ODStringCToPascal(pRA2ExitInfoRecord->logindate,8,od_control.user_logindate);
- memcpy(&pRA2ExitInfoRecord->timelimit,&od_control.user_timelimit,6);
- memcpy(&pRA2ExitInfoRecord->userrecord,&od_control.user_num,8);
- ODStringCToPascal(pRA2ExitInfoRecord->timeofcreation,5,od_control.user_timeofcreation);
- pRA2ExitInfoRecord->logonpasswordcrc=od_control.user_logon_pwd_crc;
- pRA2ExitInfoRecord->wantchat=od_control.user_wantchat;
- pRA2ExitInfoRecord->deducted_time=od_control.user_deducted_time;
- for(btCount=0;btCount<50;++btCount)
- ODStringCToPascal(pRA2ExitInfoRecord->menustack[btCount],8,od_control.user_menustack[btCount]);
- pRA2ExitInfoRecord->menustackpointer=od_control.user_menustackpointer;
- memcpy(&pRA2ExitInfoRecord->error_free,&od_control.user_error_free,3);
- ODStringCToPascal(pRA2ExitInfoRecord->emsi_crtdef,40,od_control.user_emsi_crtdef);
- ODStringCToPascal(pRA2ExitInfoRecord->emsi_protocols,40,od_control.user_emsi_protocols);
- ODStringCToPascal(pRA2ExitInfoRecord->emsi_capabilities,40,od_control.user_emsi_capabilities);
- ODStringCToPascal(pRA2ExitInfoRecord->emsi_requests,40,od_control.user_emsi_requests);
- ODStringCToPascal(pRA2ExitInfoRecord->emsi_software,40,od_control.user_emsi_software);
- memcpy(&pRA2ExitInfoRecord->hold_attr1,&od_control.user_hold_attr1,3);
- ODStringCToPascal(pRA2ExitInfoRecord->page_reason,77,od_control.user_reasonforchat);
- if(bRAStatus)
- {
- pRA2ExitInfoRecord->status_line = btCurrentStatusLine + 1;
- }
-
- ODStringCToPascal(pRA2ExitInfoRecord->last_cost_menu,9,od_control.user_last_cost_menu);
- pRA2ExitInfoRecord->menu_cost_per_min=od_control.user_menu_cost;
- pRA2ExitInfoRecord->has_rip=od_control.user_rip;
- pRA2ExitInfoRecord->btRIPVersion=od_control.user_rip_ver;
-
- fwrite(pRA2ExitInfoRecord,1,sizeof(tRA2ExitInfoRecord),pfDropFile);
- free(pRA2ExitInfoRecord);
- break;
-
- case EXITINFO:
- ODStringCToPascal(pExitInfoRecord->bbs.ra.timeofcreation,5,od_control.user_timeofcreation);
- ODStringCToPascal(pExitInfoRecord->bbs.ra.logonpassword,15,od_control.user_logonpassword);
- pExitInfoRecord->bbs.ra.wantchat=od_control.user_wantchat;
-
- ODWriteExitInfoPrimitive(pfDropFile,476);
- break;
-
-
- case RA1EXITINFO:
- pExtendedExitInfo->deducted_time=od_control.user_deducted_time;
-
- for(btCount=0;btCount<50;++btCount)
- {
- ODStringCToPascal(pExtendedExitInfo->menustack[btCount],8,od_control.user_menustack[btCount]);
- }
-
- pExtendedExitInfo->menustackpointer=od_control.user_menustackpointer;
- ODStringCToPascal(pExtendedExitInfo->userhandle,35,od_control.user_handle);
- ODStringCToPascal(pExtendedExitInfo->comment,80,od_control.user_comment);
- ODStringCToPascal(pExtendedExitInfo->firstcall,8,od_control.user_firstcall);
- memcpy(pExtendedExitInfo->combinedrecord,od_control.user_combinedrecord,25);
- ODStringCToPascal(pExtendedExitInfo->birthday,8,od_control.user_birthday);
- ODStringCToPascal(pExtendedExitInfo->subdate,8,od_control.user_subdate);
- pExtendedExitInfo->screenwidth=od_control.user_screenwidth;
- pExtendedExitInfo->msgarea = (BYTE)od_control.user_msg_area;
- pExtendedExitInfo->filearea = (BYTE)od_control.user_file_area;
- pExtendedExitInfo->language=od_control.user_language;
- pExtendedExitInfo->dateformat=od_control.user_date_format;
- ODStringCToPascal(pExtendedExitInfo->forwardto,35,od_control.user_forward_to);
- memcpy(&pExtendedExitInfo->error_free,&od_control.user_error_free,3);
- ODStringCToPascal(pExtendedExitInfo->emsi_crtdef,40,od_control.user_emsi_crtdef);
- ODStringCToPascal(pExtendedExitInfo->emsi_protocols,40,od_control.user_emsi_protocols);
- ODStringCToPascal(pExtendedExitInfo->emsi_capabilities,40,od_control.user_emsi_capabilities);
- ODStringCToPascal(pExtendedExitInfo->emsi_requests,40,od_control.user_emsi_requests);
- ODStringCToPascal(pExtendedExitInfo->emsi_software,40,od_control.user_emsi_software);
- memcpy(&pExtendedExitInfo->hold_attr1,&od_control.user_hold_attr1,3);
-
- ODStringCToPascal(pExitInfoRecord->bbs.ra.timeofcreation,5,od_control.user_timeofcreation);
- ODStringCToPascal(pExitInfoRecord->bbs.ra.logonpassword,15,od_control.user_logonpassword);
- pExitInfoRecord->bbs.ra.wantchat=od_control.user_wantchat;
-
- ODWriteExitInfoPrimitive(pfDropFile,476);
- fwrite(pExtendedExitInfo,1,1017,pfDropFile);
- free(pExtendedExitInfo);
- break;
-
-
- case QBBS275EXITINFO:
- pExitInfoRecord->elapsed=nInitialElapsed;
- pExitInfoRecord->bbs.qbbs.qwantchat=od_control.user_wantchat;
- pExitInfoRecord->bbs.qbbs.gosublevel=od_control.user_menustackpointer;
- for(btCount=0;btCount<pExitInfoRecord->bbs.qbbs.gosublevel;++btCount)
- {
- ODStringCToPascal(pExitInfoRecord->bbs.qbbs.menustack[btCount],8,od_control.user_menustack[btCount]);
- }
- ODStringCToPascal(pExitInfoRecord->bbs.qbbs.menu,8,od_control.user_menustack[od_control.user_menustackpointer]);
- pExitInfoRecord->bbs.qbbs.externlogoff = bTermCall ? 1 : 0;
- pExitInfoRecord->bbs.qbbs.ripactive = od_control.user_rip ? 1 : 0;
-
- ODWriteExitInfoPrimitive(pfDropFile,644);
- }
-
- fclose(pfDropFile);
- }
- }
-
-
- switch(od_control.od_info_type)
- {
- case DOORSYS_GAP:
- case DOORSYS_WILDCAT:
- pfDropFile=fopen(szDropFilePath,"w");
- if(od_control.baud==0L)
- {
- fprintf(pfDropFile,"COM0:\n");
- }
- else
- {
- fprintf(pfDropFile,"COM%d:\n",od_control.port+1);
- }
- fprintf(pfDropFile,"%s",apszDropFileInfo[0]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[1]);
- fprintf(pfDropFile,"%u\n",od_control.od_node);
- switch(btDoorSYSLock)
- {
- case 0:
- fprintf(pfDropFile,"%lu\n",od_control.baud);
- break;
- case 1:
- fprintf(pfDropFile,"N\n");
- break;
- case 2:
- fprintf(pfDropFile,"Y\n");
- }
- fprintf(pfDropFile,"%s",apszDropFileInfo[3]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[4]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[5]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[22]);
- strupr(od_control.user_name);
- fprintf(pfDropFile,"%s\n",od_control.user_name);
- fprintf(pfDropFile,"%s\n",od_control.user_location);
- fprintf(pfDropFile,"%s\n",od_control.user_homephone);
- fprintf(pfDropFile,"%s\n",od_control.user_dataphone);
- fprintf(pfDropFile,"%s\n",od_control.user_password);
- fprintf(pfDropFile,"%u\n",od_control.user_security);
- fprintf(pfDropFile,"%d\n",od_control.user_numcalls);
- fprintf(pfDropFile,"%s\n",od_control.user_lastdate);
- fprintf(pfDropFile,"%u\n",(signed int)od_control.user_timelimit*60);
- fprintf(pfDropFile,"%d\n",od_control.user_timelimit);
- if(od_control.user_rip)
- {
- fprintf(pfDropFile,"RIP\n");
- }
- else if(od_control.user_ansi)
- {
- fprintf(pfDropFile,"GR\n");
- }
- else
- {
- fprintf(pfDropFile,"NG\n");
- }
- fprintf(pfDropFile,"%d\n",od_control.user_screen_length);
- fprintf(pfDropFile,"%s",apszDropFileInfo[8]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[9]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[10]);
- fprintf(pfDropFile,"%s\n",od_control.user_subdate);
- fprintf(pfDropFile,"%u\n",od_control.user_num);
- fprintf(pfDropFile,"%s",apszDropFileInfo[6]);
- fprintf(pfDropFile,"%u\n",od_control.user_uploads);
- fprintf(pfDropFile,"%u\n",od_control.user_downloads);
- fprintf(pfDropFile,"%u\n",od_control.user_todayk);
- fprintf(pfDropFile,"%s",apszDropFileInfo[21]);
-
-
- if(od_control.od_info_type==DOORSYS_WILDCAT)
- {
- fprintf(pfDropFile,"%s\n",od_control.user_birthday);
- fprintf(pfDropFile,"%s",apszDropFileInfo[11]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[12]);
- fprintf(pfDropFile,"%s\n",od_control.sysop_name);
- strupr(od_control.user_handle);
- fprintf(pfDropFile,"%s\n",od_control.user_handle);
- fprintf(pfDropFile,"%s\n",od_control.event_starttime);
- if(od_control.user_error_free)
- fprintf(pfDropFile,"Y\n");
- else
- fprintf(pfDropFile,"N\n");
- fprintf(pfDropFile,"%s",apszDropFileInfo[7]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[13]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[14]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[15]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[16]);
- fprintf(pfDropFile,"%s\n",od_control.user_logintime);
- fprintf(pfDropFile,"%s\n",od_control.user_lasttime);
- fprintf(pfDropFile,"%s",apszDropFileInfo[18]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[19]);
- fprintf(pfDropFile,"%u\n",od_control.user_upk);
- fprintf(pfDropFile,"%u\n",od_control.user_downk);
- fprintf(pfDropFile,"%s\n",od_control.user_comment);
- fprintf(pfDropFile,"%s",apszDropFileInfo[20]);
- fprintf(pfDropFile,"%u\n",od_control.user_messages);
- }
-
- fclose(pfDropFile);
- break;
-
-
- case DOORSYS_DRWY:
- pfDropFile=fopen(szDropFilePath,"w");
- fprintf(pfDropFile,"%s\n",od_control.user_name);
-
- if(od_control.baud==0L)
- {
- fprintf(pfDropFile,"-1\n");
- }
- else
- {
- fprintf(pfDropFile,"%d\n",od_control.port+1);
- }
-
- fprintf(pfDropFile,"%lu\n",od_control.baud);
-
- fprintf(pfDropFile,"%d\n",od_control.user_timelimit);
-
- if(od_control.user_ansi)
- {
- fprintf(pfDropFile,"G\n");
- }
- else
- {
- fprintf(pfDropFile,"M\n");
- }
-
- fclose(pfDropFile);
- break;
-
-
- case SFDOORSDAT:
- pfDropFile=fopen(szDropFilePath,"w");
-
- fprintf(pfDropFile,"%u\n",od_control.user_num);
- fprintf(pfDropFile,"%s\n",od_control.user_name);
- fprintf(pfDropFile,"%s\n",od_control.user_password);
- fprintf(pfDropFile,"%s",apszDropFileInfo[0]);
- fprintf(pfDropFile,"%lu\n",od_control.baud);
- fprintf(pfDropFile,"%d\n",od_control.port+1);
- fprintf(pfDropFile,"%d\n",od_control.user_timelimit);
- fprintf(pfDropFile,"%s",apszDropFileInfo[13]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[14]);
- if(od_control.user_ansi)
- {
- fprintf(pfDropFile,"TRUE\n");
- }
- else
- {
- fprintf(pfDropFile,"FALSE\n");
- }
- fprintf(pfDropFile,"%u\n",od_control.user_security);
- fprintf(pfDropFile,"%u\n",od_control.user_uploads);
- fprintf(pfDropFile,"%u\n",od_control.user_downloads);
- fprintf(pfDropFile,"%s",apszDropFileInfo[1]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[2]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[3]);
- if(od_control.sysop_next)
- {
- fprintf(pfDropFile,"TRUE\n");
- }
- else
- {
- fprintf(pfDropFile,"FALSE\n");
- }
- fprintf(pfDropFile,"%s",apszDropFileInfo[4]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[5]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[6]);
- if(od_control.user_error_free)
- {
- fprintf(pfDropFile,"TRUE\n");
- }
- else
- {
- fprintf(pfDropFile,"FALSE\n");
- }
-
- fprintf(pfDropFile,"%u\n",od_control.user_msg_area);
- fprintf(pfDropFile,"%u\n",od_control.user_file_area);
- fprintf(pfDropFile,"%u\n",od_control.od_node);
-
- fprintf(pfDropFile,"%s",apszDropFileInfo[10]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[11]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[12]);
- fprintf(pfDropFile,"%u\n",od_control.user_todayk);
- fprintf(pfDropFile,"%u\n",od_control.user_upk);
- fprintf(pfDropFile,"%u\n",od_control.user_downk);
- fprintf(pfDropFile,"%s\n",od_control.user_homephone);
- fprintf(pfDropFile,"%s\n",od_control.user_location);
- if(apszDropFileInfo[15][0]!='\0')
- {
- fprintf(pfDropFile, "%s", apszDropFileInfo[15]);
- fprintf(pfDropFile, od_control.user_rip ? "TRUE\n" : "FALSE\n");
- fprintf(pfDropFile, od_control.user_wantchat ? "TRUE\n"
- : "FALSE\n");
- fprintf(pfDropFile, "%s", apszDropFileInfo[17]);
- fprintf(pfDropFile, "%d\n", od_control.od_com_irq);
- fprintf(pfDropFile, "%d\n", od_control.od_com_address);
- fprintf(pfDropFile, "%s", apszDropFileInfo[18]);
- }
- fclose(pfDropFile);
- break;
-
-
- case CHAINTXT:
- pfDropFile=fopen(szDropFilePath,"w");
- fprintf(pfDropFile,"%d\n",od_control.user_num);
- fprintf(pfDropFile,"%s\n",od_control.user_handle);
- fprintf(pfDropFile,"%s\n",od_control.user_name);
- fprintf(pfDropFile,"%s\n",od_control.user_callsign);
- fprintf(pfDropFile,"%s",apszDropFileInfo[0]);
- fprintf(pfDropFile,"%c\n",od_control.user_sex);
- fprintf(pfDropFile,"%s",apszDropFileInfo[1]);
- fprintf(pfDropFile,"%s\n",od_control.user_lastdate);
- fprintf(pfDropFile,"%d\n",od_control.user_screenwidth);
- fprintf(pfDropFile,"%d\n",od_control.user_screen_length);
- fprintf(pfDropFile,"%d\n",od_control.user_security);
- fprintf(pfDropFile,"%d\n",bIsSysop);
- fprintf(pfDropFile,"%d\n",bIsCoSysop);
- fprintf(pfDropFile,"%d\n",od_control.user_ansi);
- if(od_control.baud==0L)
- {
- fprintf(pfDropFile,"0\n");
- }
- else
- {
- fprintf(pfDropFile,"1\n");
- }
- fprintf(pfDropFile," %d.00\n",od_control.user_timelimit*60);
- fprintf(pfDropFile,"%s",apszDropFileInfo[3]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[4]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[5]);
- if(od_control.baud==0L)
- {
- fprintf(pfDropFile,"KB\n");
- }
- else
- {
- fprintf(pfDropFile,"%lu\n",od_control.baud);
- }
- fprintf(pfDropFile,"%d\n",od_control.port+1);
- fprintf(pfDropFile,"%s",apszDropFileInfo[6]);
- fprintf(pfDropFile,"%s\n",od_control.user_password);
- fprintf(pfDropFile,"%s",apszDropFileInfo[2]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[7]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[8]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[9]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[10]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[11]);
- fprintf(pfDropFile,"%s",apszDropFileInfo[12]);
- fclose(pfDropFile);
- break;
- case TRIBBSSYS:
- pfDropFile = fopen(szDropFilePath, "w");
- fprintf(pfDropFile, "%u\n", od_control.user_num);
- fprintf(pfDropFile, "%s\n", od_control.user_name);
- fprintf(pfDropFile, "%s\n", od_control.user_password);
- fprintf(pfDropFile, "%u\n", od_control.user_security);
- fprintf(pfDropFile, "%c\n", od_control.user_expert ? 'Y' : 'N');
- fprintf(pfDropFile, "%c\n", od_control.user_ansi ? 'Y' : 'N');
- fprintf(pfDropFile, "%d\n", od_control.user_timelimit);
- fprintf(pfDropFile, "%s\n", od_control.user_homephone);
- fprintf(pfDropFile, "%s\n", od_control.user_location);
- od_control.user_birthday[2] = '/';
- od_control.user_birthday[5] = '/';
- fprintf(pfDropFile, "%s\n", od_control.user_birthday);
- fprintf(pfDropFile, "%d\n", od_control.od_node);
- fprintf(pfDropFile, "%d\n", od_control.port + 1);
- fprintf(pfDropFile, "%lu\n", od_control.od_connect_speed);
- fprintf(pfDropFile, "%lu\n", od_control.baud);
- fprintf(pfDropFile, "%c\n", (od_control.od_com_flow_control
- == COM_RTSCTS_FLOW) ? 'Y' : 'N');
- fprintf(pfDropFile, "%c\n", od_control.user_error_free ? 'Y' : 'N');
- fprintf(pfDropFile, "%s\n", od_control.system_name);
- fprintf(pfDropFile, "%s\n", od_control.sysop_name);
- fprintf(pfDropFile, "%s\n", od_control.user_handle);
- fprintf(pfDropFile, "%c\n", od_control.user_rip ? 'Y' : 'N');
- fclose(pfDropFile);
- break;
- }
-
- /* Deallocate temorary strings. */
- for(btCount=0;btCount<25;++btCount)
- {
- free(apszDropFileInfo[btCount]);
- }
-
- /* If logfile system is active. */
- if(pfLogClose != NULL)
- {
- /* Then close the logfile. */
- (*pfLogClose)(nErrorLevel);
- }
-
- /* Disconnect the remote user if required. */
- if(od_control.baud && bTermCall)
- {
- BOOL bCarrier;
-
- /* Wait up to ten seconds for bufffer to drain. */
- ODWaitDrain(10000);
-
- /* Wait up to five seconds for no carrier */
- ODComSetDTR(hSerialPort, FALSE);
- nMaxTime = time(NULL) + 5L;
-
- do
- {
- ODComCarrier(hSerialPort, &bCarrier);
- } while(bCarrier && time(NULL) <= nMaxTime);
-
- /* Raise DTR signal again. */
- ODComSetDTR(hSerialPort, TRUE);
- }
-
- /* In Win32 version, disable DTR before closing serial port, if */
- /* required. */
-#ifdef ODPLAT_WIN32
- /* If we are operating in remote mode, and we should not hangup on the */
- /* caller ... */
- if(!bTermCall && od_control.baud)
- {
- ODInExDisableDTR();
- }
-#endif /* ODPLAT_WIN32 */
-
- /* Remove the message that indicates we are in the process of exiting */
- /* or hanging up. */
- ODScrnRemoveMessage(pWindow);
-
-#ifndef ODPLAT_WIN32
- /* Reset output area boundary to the entire screen. */
- ODScrnSetBoundary(1,1,80,25);
-
- /* Reset text color. */
- ODScrnSetAttribute(0x07);
-
- /* Clear screen if neccesary. */
- if(od_control.od_clear_on_exit)
- {
- ODScrnClear();
- }
- else
- {
- ODScrnSetCursorPos(1, 1);
- }
-#endif /* !ODPLAT_WIN32 */
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Terminating kernel threads", "OpenDoors Diagnostics",
- MB_OK);
- }
-#endif
- /* Shutdown the OpenDoors kernel. */
- ODKrnlShutdown();
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Shutting down local screen", "OpenDoors Diagnostics",
- MB_OK);
- }
-#endif
- /* Shutdown OpenDoors local screen module. */
- ODScrnShutdown();
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Performing any final serial port deallocation",
- "OpenDoors Diagnostics", MB_OK);
- }
-#endif
- /* If not operating in local mode, then deallocate serial port resources. */
- if(od_control.baud != 0)
- {
- /* Close serial port. */
- ODComClose(hSerialPort);
-
- /* Deallocate serial port object. */
- ODComFree(hSerialPort);
- }
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Deallocating common queue", "OpenDoors Diagnostics",
- MB_OK);
- }
-#endif
- /* Deallocate input buffer. */
- ODInQueueFree(hODInputQueue);
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Going to inactive mode", "OpenDoors Diagnostics",
- MB_OK);
- }
-#endif
- /* OpenDoors is no longer active. */
- bODInitialized = FALSE;
-
- /* od_exit() is no longer active. */
- bExiting = FALSE;
-
- /* If the client does not want a call to od_exit() to shutdown the */
- /* application, but just to shutdown OpenDoors, then return now. */
- if(od_control.od_noexit) return;
-
- /* If exit() has already been called, then do not call it again. */
- if(bPreOrExit) return;
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, "Terminating process", "OpenDoors Diagnostics", MB_OK);
- }
-#endif
- /* Exit with appropriate errorlevel. */
- ODProcessExit(nErrorLevel);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSearchForDropFile()
- *
- * Searches for a door information (drop) file, given a list of possible drop
- * file names. Searches for the drop file first in the directory specified
- * by od_control.info_path. If a directory was specified in the configuration
- * file, this is where that directory name would be stored. This function will
- * then proceed to search the current directory and any directories specified
- * by recognized environment variables, until either a drop file is found, or
- * until all possibilities are exhaused.
- *
- * If a directory contains more than one supported dropfile, the choice of
- * drop files is narrowed to the most recently written file, and any files
- * written in the ten seconds before that file was written. Of these files,
- * the file with the highest priority (based on its position in the list of
- * possible drop file names) is selected. This heuristic attempts to ignore
- * any "old" drop files that may still be hanging around from another
- * program or another login session, while still choosing the file with the
- * most information.
- *
- * Parameters: papszFileNames - Array of possible drop file names.
- *
- * nNumFilesNames - The number of names in papszFileNames.
- *
- * pszFound - If a drop file was found, this string
- * will be changed to point to the filename
- * of the file that was found.
- *
- * pszDirectory - If a drop file was found, this string
- * will be changed to contain the name of
- * the directory in which the file was found.
- *
- * Return: Index in the array of the file that was found, or -1 if no
- * potential drop file was found.
- */
-INT ODSearchForDropFile(char **papszFileNames, INT nNumFileNames,
- char *pszFound, char *pszDirectory)
-{
- BYTE btCount;
- char *pszEnvVarSetting;
- INT nResult;
-
- ASSERT(papszFileNames != NULL);
- ASSERT(nNumFileNames > 0);
- ASSERT(pszFound != NULL);
-
- /* First, look for the drop file(s) in the directory specified by */
- /* od_control.info_path. */
- if(strlen(od_control.info_path) != 0)
- {
- if((nResult = ODSearchInDir(papszFileNames, nNumFileNames, pszFound,
- od_control.info_path)) != -1)
- {
- if(pszDirectory != NULL) strcpy(pszDirectory, od_control.info_path);
- return(nResult);
- }
- }
-
- /* Next, look for the drop file(s) in the current directory. */
- if((nResult = ODSearchInDir(papszFileNames, nNumFileNames, pszFound,
- "."DIRSEP_STR)) != -1)
- {
- if(pszDirectory != NULL) strcpy(pszDirectory, "."DIRSEP_STR);
- return(nResult);
- }
-
- /* Look through array of environment variables, checking whether any of */
- /* them specify the name of a directory in which a drop file can be */
- /* found. */
- ASSERT(DIM(apszEnvVarNames) == NUM_DIR_ENV_VARS);
- for(btCount = 0; btCount < NUM_DIR_ENV_VARS; ++btCount)
- {
- if((pszEnvVarSetting = (char *)getenv(apszEnvVarNames[btCount])) != NULL)
- {
- if((nResult = ODSearchInDir(papszFileNames, nNumFileNames, pszFound,
- pszEnvVarSetting)) != -1)
- {
- if(pszDirectory != NULL) strcpy(pszDirectory,pszEnvVarSetting);
- return(nResult);
- }
- }
- }
-
- return(-1);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSearchInDir() *** PRIVATE FUNCTION ***
- *
- * Private helper function used by ODSearchForDropFile(). Searches for a drop
- * file in a single specified directory. The heuristic for selecting a drop
- * file, if more than one exists, is described in the header for the
- * ODSearchForDropFile() function.
- *
- * Parameters: papszFileNames - Array of possible drop file names.
- *
- * nNumFilesNames - The number of names in papszFileNames.
- *
- * pszFound - If a drop file was found, this string
- * will be changed to point to the filename
- * of the file that was found.
- *
- * pszDirectory - Name of the directory to search in.
- *
- * Return: Index in the array of the file that was found, or -1 if no
- * potential drop file was found.
- */
-static INT ODSearchInDir(char **papszFileNames, INT nNumFileNames,
- char *pszFound, char *pszDirectory)
-{
- BYTE btCount;
- char szFullName[80];
- INT nFound = -1;
- tODDirHandle hDir;
- tODDirEntry DirEntry;
- time_t LatestTime = 0;
-
- ASSERT(papszFileNames != NULL);
- ASSERT(nNumFileNames > 0);
- ASSERT(pszFound != NULL);
- ASSERT(pszDirectory != NULL);
-
- for(btCount=0; btCount < nNumFileNames; ++btCount)
- {
- /* Do not consider DORINFO1.DEF if a DORINFOx.DEF for this node has */
- /* been found. */
- if(btCount == 2 && nFound == 1)
- {
- continue;
- }
-
- ASSERT(papszFileNames[btCount] != NULL);
-
- ODMakeFilename(szFullName, pszDirectory, (char *)papszFileNames[btCount],
- sizeof(szFullName));
-
- /* Attempt to open directory. */
- if(ODDirOpen(szFullName, DIR_ATTRIB_NORMAL | DIR_ATTRIB_ARCH, &hDir)
- == kODRCSuccess)
- {
- /* Read the first matching entry in the directory. */
- ODDirRead(hDir, &DirEntry);
-
- if(nFound == -1
- || DirEntry.LastWriteTime > LatestTime + DROPFILE_TIME_LEEWAY)
- {
- if(!ODFileAccessMode(szFullName, 4))
- {
- nFound=btCount;
- LatestTime = DirEntry.LastWriteTime;
- }
- }
-
- /* Close the open directory. */
- ODDirClose(hDir);
- }
- }
-
- if(nFound != -1)
- {
- ODMakeFilename(pszFound, pszDirectory, (char *)papszFileNames[nFound],
- 160);
- }
-
- return(nFound);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODReadExitInfoPrimitive()
- *
- * Reads the core a of pre-RA2 style EXITINFO.BBS file.
- *
- * Parameters: pfDropFile - Pointer to already open EXITINFO.BBS file.
- *
- * nCount - Specifies the number of bytes to read.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-BOOL ODReadExitInfoPrimitive(FILE *pfDropFile, INT nCount)
-{
- if((pExitInfoRecord=malloc(sizeof(tExitInfoRecord)))==NULL) return(FALSE);
-
- if(fread(pExitInfoRecord,1,nCount,pfDropFile)!=(size_t)nCount)
- {
- return(FALSE);
- }
-
- /* now we read all the data from the */
- /* EXITINFO structure to the OpenDoors */
- /* control structure. This may look */
- /* a bit messy, but it gets the job */
- /* done, and allows the programmer */
- /* to access all the strings in C */
- /* format instead of Pascal */
- od_control.baud=pExitInfoRecord->baud;
- od_control.system_calls=pExitInfoRecord->num_calls;
- ODStringPascalToC(od_control.system_last_caller,pExitInfoRecord->last_caller,35);
- ODStringPascalToC(od_control.timelog_start_date,pExitInfoRecord->start_date,8);
- memcpy(&od_control.timelog_busyperhour,&pExitInfoRecord->busyperhour,62);
- ODStringPascalToC(od_control.user_name,pExitInfoRecord->uname,35);
- ODStringPascalToC(od_control.user_location,pExitInfoRecord->uloc,25);
- ODStringPascalToC(od_control.user_password,pExitInfoRecord->password,15);
- ODStringPascalToC(od_control.user_dataphone,pExitInfoRecord->dataphone,12);
- ODStringPascalToC(od_control.user_homephone,pExitInfoRecord->homephone,12);
- ODStringPascalToC(od_control.user_lasttime,pExitInfoRecord->lasttime,5);
- ODStringPascalToC(od_control.user_lastdate,pExitInfoRecord->lastdate,8);
- memcpy(&od_control.user_attribute,&pExitInfoRecord->attrib,5);
- od_control.user_net_credit=pExitInfoRecord->credit;
- od_control.user_pending=pExitInfoRecord->pending;
- od_control.user_messages=pExitInfoRecord->posted;
- od_control.user_lastread=pExitInfoRecord->lastread;
- od_control.user_security=pExitInfoRecord->sec;
- od_control.user_numcalls=pExitInfoRecord->nocalls;
- od_control.user_uploads=pExitInfoRecord->ups;
- od_control.user_downloads=pExitInfoRecord->downs;
- od_control.user_upk=pExitInfoRecord->upk;
- od_control.user_downk=pExitInfoRecord->downk;
- od_control.user_todayk=pExitInfoRecord->todayk;
- memcpy(&od_control.user_time_used,&pExitInfoRecord->elapsed,6);
- od_control.user_group=pExitInfoRecord->group;
- od_control.user_xi_record=pExitInfoRecord->xirecord;
- od_control.event_status=pExitInfoRecord->status;
- ODStringPascalToC(od_control.event_starttime,pExitInfoRecord->starttime,5);
- memcpy(&od_control.event_errorlevel,&pExitInfoRecord->errorlevel,3);
- ODStringPascalToC(od_control.event_last_run,pExitInfoRecord->lasttimerun,8);
- memcpy(&od_control.user_netmailentered,&pExitInfoRecord->netmailentered,2);
- ODStringPascalToC(od_control.user_logintime,pExitInfoRecord->logintime,5);
- ODStringPascalToC(od_control.user_logindate,pExitInfoRecord->logindate,8);
-
- /* Note that the timelimit field is skipped here. This value has already */
- /* been read from the DORINFOx.DEF file, and is not consistently written */
- /* to the EXITINFO.BBS file by various BBS packages. */
-
- memcpy(&od_control.user_loginsec,&pExitInfoRecord->loginsec,16);
- od_control.user_ansi=od_control.user_attribute&8;
- od_control.user_avatar=od_control.user_attrib2&2;
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODWriteExitInfoPrimitive()
- *
- * Writes the core a of pre-RA2 style EXITINFO.BBS file.
- *
- * Parameters: pfDropFile - Pointer to already open EXITINFO.BBS file.
- *
- * nCount - Number of bytes to be written.
- *
- * Return: Number of bytes actually written.
- */
-INT ODWriteExitInfoPrimitive(FILE *pfDropFile, INT nCount)
-{
- INT nToReturn;
- DWORD dwActiveMinutes;
- INT nUserTimeLost;
- INT nTimeSubtractedBySysop;
- time_t nCurrentUnixTime;
-
- pExitInfoRecord->num_calls=od_control.system_calls;
- ODStringCToPascal(pExitInfoRecord->last_caller,35,od_control.system_last_caller);
- ODStringCToPascal(pExitInfoRecord->start_date,8,od_control.timelog_start_date);
- memcpy(&pExitInfoRecord->busyperhour,&od_control.timelog_busyperhour,31);
- ODStringCToPascal(pExitInfoRecord->uname,35,od_control.user_name);
- ODStringCToPascal(pExitInfoRecord->uloc,25,od_control.user_location);
- ODStringCToPascal(pExitInfoRecord->password,15,od_control.user_password);
- ODStringCToPascal(pExitInfoRecord->dataphone,12,od_control.user_dataphone);
- ODStringCToPascal(pExitInfoRecord->homephone,12,od_control.user_homephone);
- ODStringCToPascal(pExitInfoRecord->lasttime,5,od_control.user_lasttime);
- ODStringCToPascal(pExitInfoRecord->lastdate,8,od_control.user_lastdate);
- memcpy(&pExitInfoRecord->attrib,&od_control.user_attribute,5);
- pExitInfoRecord->credit=(WORD)od_control.user_net_credit;
- pExitInfoRecord->pending=(WORD)od_control.user_pending;
- pExitInfoRecord->posted=(WORD)od_control.user_messages;
- pExitInfoRecord->lastread=(WORD)od_control.user_lastread;
- pExitInfoRecord->sec=(WORD)od_control.user_security;
- pExitInfoRecord->nocalls=(WORD)od_control.user_numcalls;
- pExitInfoRecord->ups=(WORD)od_control.user_uploads;
- pExitInfoRecord->downs=(WORD)od_control.user_downloads;
- pExitInfoRecord->upk=(WORD)od_control.user_upk;
- pExitInfoRecord->downk=(WORD)od_control.user_downk;
- pExitInfoRecord->todayk=(WORD)od_control.user_todayk;
- memcpy(&pExitInfoRecord->elapsed,&od_control.user_time_used,6);
- pExitInfoRecord->group = (BYTE)od_control.user_group;
- pExitInfoRecord->xirecord=(WORD)od_control.user_xi_record;
- pExitInfoRecord->status=od_control.event_status;
- pExitInfoRecord->status=od_control.event_status;
- ODStringCToPascal(pExitInfoRecord->starttime,5,od_control.event_starttime);
- memcpy(&pExitInfoRecord->errorlevel,&od_control.event_errorlevel,3);
- ODStringCToPascal(pExitInfoRecord->lasttimerun,8,od_control.event_last_run);
- memcpy(&pExitInfoRecord->netmailentered,&od_control.user_netmailentered,2);
- ODStringCToPascal(pExitInfoRecord->logintime,5,od_control.user_logintime);
- ODStringCToPascal(pExitInfoRecord->logindate,8,od_control.user_logindate);
-
- /* Calculate new time limit based on how time was adjusted during door's */
- /* execution. */
- time(&nCurrentUnixTime);
- ODDWordDivide(&dwActiveMinutes, NULL, nCurrentUnixTime-nStartupUnixTime, 60L);
- nUserTimeLost = (nInitialRemaining - od_control.user_timelimit);
- nTimeSubtractedBySysop = nUserTimeLost - (int)dwActiveMinutes;
- pExitInfoRecord->timelimit -= nTimeSubtractedBySysop;
-
- memcpy(&pExitInfoRecord->loginsec,&od_control.user_loginsec,16);
-
- nToReturn=(fwrite(pExitInfoRecord,1,nCount,pfDropFile) == (size_t)nCount);
- free(pExitInfoRecord);
- return(nToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODAtExitCallback()
- *
- * OpenDoors sets up the C library to call back this function when the program
- * is about to exit. OpenDoors uses this function to attempt to trap the
- * condition where the programmer exits the program without explicitly calling
- * od_exit(). If the program is about to exit, and OpenDoors is still active,
- * then od_exit() is called.
- *
- * It is not recommended that the programmer using OpenDoors rely on this
- * mechanism, because:
- *
- * 1. It doesn't seem to be supported by all compilers.
- *
- * 2. It doesn't permit OpenDoors to determine the actual error level
- * that the program is exiting with in order to report this information
- * in the log file (if enabled).
- *
- * Parameters: none
- *
- * Return: void
- */
-#ifndef ODPLAT_WIN32
-void ODAtExitCallback(void)
-{
- if(bODInitialized)
- {
- bPreOrExit = TRUE;
- if(od_control.od_errorlevel[0])
- {
- od_exit(od_control.od_errorlevel[7],FALSE);
- }
- else
- {
- od_exit(6,FALSE);
- }
- }
-}
-#endif /* !ODPLAT_WIN32 */
-
-
-/* Currently, these functions are only used in the Win32 version. */
-#ifdef ODPLAT_WIN32
-
-
-/* ----------------------------------------------------------------------------
- * ODSendModemCommand() *** PRIVATE FUNCTION ***
- *
- * Sends a sequence of commands to the modem, waiting for the specified
- * response between each command. The command sequence is retried the specified
- * number of times.
- *
- * Parameters: pszCommand - Command string to send to the modem, along with
- * response strings. Each of these are separated by
- * a space character. A pipe character ('|') denotes a
- * CR, and a tilde character ('~') denotes a one
- * second pause.
- *
- * nRetries - Number of times to retry command sequence.
- *
- * Return: TRUE on success, or FALSE if some expected response string was
- * not received from the modem after modem response timeout period.
- */
-static BOOL ODSendModemCommand(char *pszCommand, int nRetries)
-{
- ASSERT(pszCommand != NULL);
- ASSERT(nRetries >= 1);
-
- while(nRetries--)
- {
- if(ODSendModemCommandOnce(pszCommand))
- {
- return(TRUE);
- }
- }
-
- return(FALSE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSendModemCommandOnce() *** PRIVATE FUNCTION ***
- *
- * Sends a series of commands to the modem, waiting for the specified response
- * between each command.
- *
- * Parameters: pszCommand - Command string to send to the modem, along with
- * response strings. Each of these are separated by
- * a space character. A pipe character ('|') denotes a
- * CR, and a tilde character ('~') denotes a one
- * second pause.
- *
- * Return: TRUE on success, or FALSE if some expected response string was
- * not received from the modem after modem response timeout period.
- */
-static BOOL ODSendModemCommandOnce(char *pszCommand)
-{
- char *pchCurrent;
- char szResponse[MAX_RESPONSE_LEN + 1];
- int nResponsePos;
- BOOL bSendingCommand = TRUE;
-
- ASSERT(pszCommand != NULL);
-
- /* We must be operating in remote mode. */
- ASSERT(od_control.baud != 0);
-
- /* Loop through each character in the string. */
- for(pchCurrent = pszCommand; *pchCurrent != '\0'; ++pchCurrent)
- {
- /* What we do with this character depends upon whether we are */
- /* currently sending a command, or waiting for a response. */
- if(bSendingCommand)
- {
- switch(*pchCurrent)
- {
- case ' ':
- /* A space character denotes that we should toggle between */
- /* sending a command and receiving a response. */
- bSendingCommand = FALSE;
-
- /* Start at the beginning of the empty response string. */
- nResponsePos = 0;
- szResponse[0] = '\0';
- break;
-
- case '|':
- /* A pipe character denotes that a carriage return should be */
- /* send to the modem. */
- ODComSendByte(hSerialPort, '\r');
-#ifdef OD_DIAGNOSTICS
- strcat(szDebugWorkString, "\n");
-#endif /* OD_DIAGNOSTICS */
- break;
-
- case '~':
- /* A tilde character denotes a 1 second pause. */
- od_sleep(1000);
- break;
-
- default:
- /* Otherwise, send this character as is. */
- ODComSendByte(hSerialPort, *pchCurrent);
-#ifdef OD_DIAGNOSTICS
- {
- char szAppend[2];
- szAppend[0] = *pchCurrent;
- szAppend[1] = 0;
- strcat(szDebugWorkString, szAppend);
- }
-#endif /* OD_DIAGNOSTICS */
- }
-
- od_sleep(200);
- }
- else
- {
- /* We are currently building a string that we should wait for. */
- switch(*pchCurrent)
- {
- case ' ':
- /* A space character denotes that we should toggle between */
- /* sending a command and receiving a response. */
-
- /* Wait until the response string we have built is received. */
- if(!ODWaitForString(szResponse, RESPONSE_TIMEOUT))
- {
- /* If string was not received, then return now. */
- return(FALSE);
- }
-
- /* Switch to sending command mode. */
- bSendingCommand = TRUE;
- break;
-
- case '~':
- /* Pauses are ignored in response strings. */
- break;
-
- default:
- /* Otherwise, add this character to the response string. */
- if(nResponsePos < MAX_RESPONSE_LEN)
- {
- szResponse[nResponsePos] = *pchCurrent;
- ++nResponsePos;
- szResponse[nResponsePos] = '\0';
- }
- }
- }
- }
-
- /* Return with success. */
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODWaitForString() *** PRIVATE FUNCTION ***
- *
- * Waits for the specified string to be received from the modem, for up to
- * the specified length of time.
- *
- * Parameters: pszResponse - Pointer to the string to wait for.
- *
- * ResponseTimeout - The maximum time, in milliseconds, to wait.
- *
- * Return: TRUE on success, or FALSE if some expected response string was
- * not received from the modem after modem response timeout period.
- */
-static BOOL ODWaitForString(char *pszResponse, tODMilliSec ResponseTimeout)
-{
- tODTimer Timer;
- char szReceived[MAX_RESPONSE_LEN + 1] = "\0";
- tODInputEvent InputEvent;
-
- ASSERT(pszResponse != NULL);
- ASSERT(ResponseTimeout > 0);
-
- /* We must be operating in remote mode. */
- ASSERT(od_control.baud != 0);
-
- /* If response string is empty, then we don't wait for anything. */
- if(strlen(pszResponse) == 0) return(TRUE);
-
-#ifdef OD_DIAGNOSTICS
- strcat(szDebugWorkString, "[");
-#endif /* OD_DIAGNOSTICS */
-
- ODTimerStart(&Timer, ResponseTimeout);
- while(!ODTimerElapsed(&Timer))
- {
- if(ODInQueueGetNextEvent(hODInputQueue, &InputEvent,
- ODTimerLeft(&Timer)) == kODRCSuccess)
- {
- if(InputEvent.bFromRemote && InputEvent.EventType == EVENT_CHARACTER)
- {
-#ifdef OD_DIAGNOSTICS
- {
- char szAppend[2];
- szAppend[0] = InputEvent.chKeyPress;
- szAppend[1] = 0;
- strcat(szDebugWorkString, szAppend);
- }
-#endif /* OD_DIAGNOSTICS */
-
- /* Add the received character to the received string. */
- if(strlen(szReceived) == MAX_RESPONSE_LEN)
- {
- memmove(szReceived, szReceived + 1, MAX_RESPONSE_LEN);
- }
- szReceived[strlen(szReceived) + 1] = '\0';
- szReceived[strlen(szReceived)] = InputEvent.chKeyPress;
-
- /* If the sequence has been received, then return with success. */
- if(strstr(szReceived, pszResponse) != NULL)
- {
-#ifdef OD_DIAGNOSTICS
- strcat(szDebugWorkString, "]");
-#endif /* OD_DIAGNOSTICS */
- return(TRUE);
- }
- }
- }
- else
- {
- /* When no characters are waiting, allow other processes to run. */
- od_sleep(0);
- }
- }
-
-#ifdef OD_DIAGNOSTICS
- strcat(szDebugWorkString, "]");
-#endif OD_DIAGNOSTICS
-
- /* Indicate that string was not received in the time alotted. */
- return(FALSE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInExDisableDTR()
- *
- * Disables DTR response by the modem, if required.
- *
- * Parameters: None
- *
- * Return: void
- */
-void ODInExDisableDTR(void)
-{
- BOOL bCarrier;
-
- /* If we are using the Door32 interface, then do not disable DTR. */
- if(od_control.od_com_method == COM_DOOR32 || od_control.od_com_method == COM_SOCKET)
- {
- return;
- }
-
- /* Check that carrier detect signal is still present. */
- ODComCarrier(hSerialPort, &bCarrier);
- if(bCarrier)
- {
- /* Only disable DTR response if OpenDoors opened the serial port, */
- /* and DTR disabling has not been explicitly turned off. */
- if(od_control.od_open_handle == 0
- && !(od_control.od_disable & DIS_DTR_DISABLE))
- {
- if(!ODSendModemCommand(od_control.od_disable_dtr, 2))
- {
-#ifdef OD_DIAGNOSTICS
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, szDebugWorkString, "DTR Disable FAILED!",
- MB_OK);
- szDebugWorkString[0] = '\0';
- }
-#endif /* OD_DIAGNOSTICS */
- }
- else
- {
-#ifdef OD_DIAGNOSTICS
- if(od_control.od_internal_debug)
- {
- MessageBox(NULL, szDebugWorkString, "DTR Disable Succeeded!",
- MB_OK);
- szDebugWorkString[0] = '\0';
- }
-#endif /* OD_DIAGNOSTICS */
- }
- }
- }
-}
-
-#endif /* ODPLAT_WIN32 */
diff --git a/src/odoors/ODInQue.c b/src/odoors/ODInQue.c
deleted file mode 100644
index 46c49484bcda63467472a8d4f94e8024aa823228..0000000000000000000000000000000000000000
--- a/src/odoors/ODInQue.c
+++ /dev/null
@@ -1,446 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODInQue.h
- *
- * Description: OpenDoors input queue management. This input queue is where
- * all input events (e.g. keystrokes) from both local and remote
- * systems are combined into a single stream.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 16, 1995 6.00 BP Created.
- * Nov 17, 1995 6.00 BP Added multithreading support.
- * Jan 04, 1996 6.00 BP tODInQueueEvent -> tODInputEvent.
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 30, 1996 6.00 BP Add semaphore timeout.
- * Jan 30, 1996 6.00 BP Add ODInQueueGetNextEvent() timeout.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdlib.h>
-#include <string.h>
-
-#include "OpenDoor.h"
-#include "ODGen.h"
-#include "ODInQue.h"
-#include "ODPlat.h"
-#include "ODKrnl.h"
-
-
-/* Input queue handle structure. */
-typedef struct
-{
- tODInputEvent *paEvents;
- INT nQueueEntries;
- INT nInIndex;
- INT nOutIndex;
- time_t nLastActivityTime;
-#ifdef OD_MULTITHREADED
- tODSemaphoreHandle hItemCountSemaphore;
- tODSemaphoreHandle hAddEventSemaphore;
-#endif /* OD_MULTITHREADED */
-} tInputQueueInfo;
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueAlloc()
- *
- * Allocates a new input queue.
- *
- * Parameters: phInQueue - Pointer to location where a handle to the
- * newly allocated input queue should be
- * stored.
- *
- * nInitialQueueSize - The minimum number of events that the
- * input queue should be able to hold.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODInQueueAlloc(tODInQueueHandle *phInQueue, INT nInitialQueueSize)
-{
- tInputQueueInfo *pInputQueueInfo = NULL;
- tODInputEvent *pInputQueue = NULL;
- tODResult Result = kODRCNoMemory;
-
- ASSERT(phInQueue != NULL);
-
- if(phInQueue == NULL) return(kODRCInvalidCall);
-
- /* Attempt to allocate a serial port information structure. */
- pInputQueueInfo = malloc(sizeof(tInputQueueInfo));
-
- /* If memory allocation failed, return with failure. */
- if(pInputQueueInfo == NULL) goto CleanUp;
-
- /* Initialize semaphore handles to NULL. */
-#ifdef OD_MULTITHREADED
- pInputQueueInfo->hItemCountSemaphore = NULL;
- pInputQueueInfo->hAddEventSemaphore = NULL;
-#endif /* OD_MULTITHREADED */
-
- /* Attempt to allocate space for the queue itself. */
- pInputQueue = calloc(nInitialQueueSize, sizeof(tODInputEvent));
- if(pInputQueue == NULL) goto CleanUp;
-
- /* Create semaphores if this is a multithreaded platform. */
-#ifdef OD_MULTITHREADED
- if(ODSemaphoreAlloc(&pInputQueueInfo->hItemCountSemaphore, 0,
- nInitialQueueSize) != kODRCSuccess)
- {
- goto CleanUp;
- }
-
- if(ODSemaphoreAlloc(&pInputQueueInfo->hAddEventSemaphore, 1, 1)
- != kODRCSuccess)
- {
- goto CleanUp;
- }
-#endif /* OD_MULTITHREADED */
-
- /* Initialize input queue information structure. */
- pInputQueueInfo->paEvents = pInputQueue;
- pInputQueueInfo->nQueueEntries = nInitialQueueSize;
- pInputQueueInfo->nInIndex = 0;
- pInputQueueInfo->nOutIndex = 0;
-
- /* Convert intut queue information structure pointer to a handle. */
- *phInQueue = ODPTR2HANDLE(pInputQueueInfo, tInputQueueInfo);
-
- /* Reset the time of the last activity. */
- ODInQueueResetLastActivity(*phInQueue);
-
- Result = kODRCSuccess;
-
-CleanUp:
- if(Result != kODRCSuccess)
- {
-#ifdef OD_MULTITHREADED
- if(pInputQueueInfo != NULL
- && pInputQueueInfo->hItemCountSemaphore != NULL)
- {
- ODSemaphoreFree(pInputQueueInfo->hItemCountSemaphore);
- }
-
- if(pInputQueueInfo != NULL
- && pInputQueueInfo->hAddEventSemaphore != NULL)
- {
- ODSemaphoreFree(pInputQueueInfo->hAddEventSemaphore);
- }
-#endif /* OD_MULTITHREADED */
-
- if(pInputQueue != NULL) free(pInputQueue);
- if(pInputQueueInfo != NULL) free(pInputQueueInfo);
- *phInQueue = ODPTR2HANDLE(NULL, tInputQueueInfo);
- }
-
- /* Return with the appropriate result code. */
- return(Result);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueFree()
- *
- * Destroys an input queue that was previously created by ODInQueueAlloc().
- *
- * Parameters: hInQueue - Handle to the input queue to destroy.
- *
- * Return: void
- */
-void ODInQueueFree(tODInQueueHandle hInQueue)
-{
- tInputQueueInfo *pInputQueueInfo = ODHANDLE2PTR(hInQueue, tInputQueueInfo);
-
- ASSERT(pInputQueueInfo != NULL);
-
- /* Deallocate semaphores, if appropriate. */
-#ifdef OD_MULTITHREADED
- ASSERT(pInputQueueInfo->hItemCountSemaphore != NULL);
- ODSemaphoreFree(pInputQueueInfo->hItemCountSemaphore);
-#endif /* OD_MULTITHREADED */
-
- /* Deallocate the input queue itself. */
- ASSERT(pInputQueueInfo->paEvents != NULL);
- free(pInputQueueInfo->paEvents);
-
- /* Deallocate port information structure. */
- free(pInputQueueInfo);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueWaiting()
- *
- * Determines whether or not an event is currently waiting in the input queue.
- *
- * Parameters: hInQueue - Handle to the input queue to check.
- *
- * Return: TRUE if there is one or more waiting events, or FALSE if the
- * queue is empty.
- */
-BOOL ODInQueueWaiting(tODInQueueHandle hInQueue)
-{
- tInputQueueInfo *pInputQueueInfo = ODHANDLE2PTR(hInQueue, tInputQueueInfo);
- BOOL bEventWaiting;
-
- ASSERT(pInputQueueInfo != NULL);
-
- /* There is data waiting in the queue if the in index is not equal to */
- /* the out index. */
- bEventWaiting = (pInputQueueInfo->nInIndex != pInputQueueInfo->nOutIndex);
-
- return(bEventWaiting);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueAddEvent()
- *
- * Adds a new event to the input queue.
- *
- * Parameters: hInQueue - Handle to the input queue to add an event to.
- *
- * pEvent - Pointer to the event structure to obtain the
- * event information from.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODInQueueAddEvent(tODInQueueHandle hInQueue,
- tODInputEvent *pEvent)
-{
- tInputQueueInfo *pInputQueueInfo = ODHANDLE2PTR(hInQueue, tInputQueueInfo);
- INT nNextInPos;
-
- ASSERT(pInputQueueInfo != NULL);
- ASSERT(pEvent != NULL);
- if(pInputQueueInfo == NULL || pEvent == NULL) return(kODRCInvalidCall);
-
- /* Serialize access to add event function. */
-#ifdef OD_MULTITHREADED
- ODSemaphoreDown(pInputQueueInfo->hAddEventSemaphore, OD_NO_TIMEOUT);
-#endif /* OD_MULTITHREADED */
-
- /* Reset the time of the last activity. */
- ODInQueueResetLastActivity(hInQueue);
-
- /* Determine what the next in index would be after this addition to the */
- /* queue. */
- nNextInPos = (pInputQueueInfo->nInIndex + 1)
- % pInputQueueInfo->nQueueEntries;
-
- /* If the queue is full, then return an out of space error. */
- if(nNextInPos == pInputQueueInfo->nOutIndex)
- {
- /* Allow further access to input queue. */
-#ifdef OD_MULTITHREADED
- ODSemaphoreUp(pInputQueueInfo->hAddEventSemaphore, 1);
-#endif /* OD_MULTITHREADED */
-
- return(kODRCNoMemory);
- }
-
- /* Otherwise, add the new event to the input queue. */
- memcpy(&pInputQueueInfo->paEvents[pInputQueueInfo->nInIndex], pEvent,
- sizeof(tODInputEvent));
-
- /* Update queue in index. */
- pInputQueueInfo->nInIndex = nNextInPos;
-
- /* Increment queue items count semaphore. */
-#ifdef OD_MULTITHREADED
- ODSemaphoreUp(pInputQueueInfo->hItemCountSemaphore, 1);
-#endif /* OD_MULTITHREADED */
-
- /* Allow further access to add event function. */
-#ifdef OD_MULTITHREADED
- ODSemaphoreUp(pInputQueueInfo->hAddEventSemaphore, 1);
-#endif /* OD_MULTITHREADED */
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueGetNextEvent()
- *
- * Obtains the next event from the input queue. If no events are currently
- * waiting in the input queue, this function blocks until an item is added
- * to the queue, or the maximum wait time is reached.
- *
- * Parameters: hInQueue - Handle to the input queue to obtain the next event
- * from.
- *
- * pEvent - Pointer to structure to store input event information
- * in.
- *
- * Timeout - Maximum time, in milliseconds, to wait for next input
- * event. A value of OD_NO_TIMEOUT causes this function
- * to only return when an input event is obtained.
- *
- * Return: kODRCSuccess on succes, or kODRCTimeout if the maximum wait time
- * is exceeded.
- */
-tODResult ODInQueueGetNextEvent(tODInQueueHandle hInQueue,
- tODInputEvent *pEvent, tODMilliSec Timeout)
-{
- tInputQueueInfo *pInputQueueInfo = ODHANDLE2PTR(hInQueue, tInputQueueInfo);
-#ifdef ODPLAT_NIX
- struct timeval tv;
- fd_set in;
-#endif
-
- ASSERT(pInputQueueInfo != NULL);
- ASSERT(pEvent != NULL);
-
-#ifdef OD_MULTITHREADED
-
- /* In multithreaded implementations, we wait for there to be an item in */
- /* the queue by decrementing the queue size semaphore. This will cause */
- /* this thread to be blocked until an event is added to the queue, if it */
- /* is currently empty. */
-
- ODSemaphoreDown(pInputQueueInfo->hItemCountSemaphore, Timeout);
-
-#else /* !OD_MULTITHREADED */
-
- /* In non-multithreaded implementations, we check queue in and out */
- /* indicies to determine whether there are any events waiting in the */
- /* queue. If the queue is empty we loop, calling od_kernel() to check */
- /* for new events and od_yeild() to give more time to other processors */
- /* if there is nothing for us to do, until an event is added to the */
- /* queue. */
- if(pInputQueueInfo->nInIndex == pInputQueueInfo->nOutIndex)
- {
- tODTimer Timer;
-
- /* If a timeout has been specified, then start timer to keep track */
- /* of how long we have been waiting. */
- if(Timeout != 0 && Timeout != OD_NO_TIMEOUT)
- {
- ODTimerStart(&Timer, Timeout);
- }
-
- /* As soon as we see that there is nothing in the queue, we do an */
- /* od_kernel() call to check for new input. */
- CALL_KERNEL_IF_NEEDED();
-
- /* As long as we don't have new input, we loop, yielding to other */
- /* processes, and then giving od_kernel() a chance to run. */
- while(pInputQueueInfo->nInIndex == pInputQueueInfo->nOutIndex)
- {
- /* If a timeout has been specified, then ensure that the maximum */
- /* wait time has not elapsed. */
- if(Timeout != 0 && Timeout != OD_NO_TIMEOUT
- && ODTimerElapsed(&Timer))
- {
- return(kODRCTimeout);
- }
-
- /* Yield the processor to other tasks. */
- od_sleep(0);
-
- /* Call od_kernel(). */
- CALL_KERNEL_IF_NEEDED();
- }
- }
-
-#endif /* !OD_MULTITHREADED */
-
- /* Copy next input event from the queue into the caller's structure. */
- memcpy(pEvent, &pInputQueueInfo->paEvents[pInputQueueInfo->nOutIndex],
- sizeof(tODInputEvent));
-
- /* Move out pointer to the next queue item, wrapping back to the start */
- /* of the queue if needed. */
- pInputQueueInfo->nOutIndex
- = (pInputQueueInfo->nOutIndex + 1) % pInputQueueInfo->nQueueEntries;
-
- /* Now, return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueEmpty()
- *
- * Removes all events from the input queue.
- *
- * Parameters: hInQueue - Handle to the input queue to be emptied.
- *
- * Return: void
- */
-void ODInQueueEmpty(tODInQueueHandle hInQueue)
-{
- tODInputEvent InputEvent;
-
- ASSERT(hInQueue != NULL);
-
- /* Remove all items from the queue. */
- while(ODInQueueWaiting(hInQueue))
- {
- ODInQueueGetNextEvent(hInQueue, &InputEvent, OD_NO_TIMEOUT);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueGetLastActivity()
- *
- * Returns the time of the last input activity. This is the latest of the time
- * that the queue was created, the time of the last call to
- * ODInQueueAddEvent() on this input queue, and the time of the last call to
- * ODInQueueResetLastActivity() on this input queue.
- *
- * Parameters: hInQueue - Handle to the input queue.
- *
- * Return: void
- */
-time_t ODInQueueGetLastActivity(tODInQueueHandle hInQueue)
-{
- tInputQueueInfo *pInputQueueInfo = ODHANDLE2PTR(hInQueue, tInputQueueInfo);
-
- ASSERT(pInputQueueInfo != NULL);
-
- /* Returns the last activity time. */
- return(pInputQueueInfo->nLastActivityTime);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODInQueueResetLastActivity()
- *
- * Resets the time of the last input activity to the current time.
- *
- * Parameters: hInQueue - Handle to the input queue.
- *
- * Return: void
- */
-void ODInQueueResetLastActivity(tODInQueueHandle hInQueue)
-{
- tInputQueueInfo *pInputQueueInfo = ODHANDLE2PTR(hInQueue, tInputQueueInfo);
-
- ASSERT(pInputQueueInfo != NULL);
-
- /* Resets the last activity time to the current time. */
- pInputQueueInfo->nLastActivityTime = time(NULL);
-}
diff --git a/src/odoors/ODInQue.h b/src/odoors/ODInQue.h
deleted file mode 100644
index 3be1e4ded94f8387da380f60d94ea1607aa02934..0000000000000000000000000000000000000000
--- a/src/odoors/ODInQue.h
+++ /dev/null
@@ -1,57 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODInQue.h
- *
- * Description: OpenDoors input queue management. This input queue is where
- * all input events (e.g. keystrokes) from both local and remote
- * systems are combined into a single stream.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 16, 1995 6.00 BP Created.
- * Jan 04, 1996 6.00 BP Moved event type defs to OpenDoor.h.
- * Jan 04, 1996 6.00 BP tODInQueueEvent -> tODInputEvent.
- * Jan 30, 1996 6.00 BP Add ODInQueueGetNextEvent() timeout.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODINQUE
-#define _INC_ODINQUE
-
-#include <time.h>
-
-#include "ODTypes.h"
-
-/* OpenDoors input queue handle. */
-typedef tODHandle tODInQueueHandle;
-
-/* Input queue functions. */
-tODResult ODInQueueAlloc(tODInQueueHandle *phInQueue, INT nInitialQueueSize);
-void ODInQueueFree(tODInQueueHandle hInQueue);
-BOOL ODInQueueWaiting(tODInQueueHandle hInQueue);
-tODResult ODInQueueAddEvent(tODInQueueHandle hInQueue,
- tODInputEvent *pEvent);
-tODResult ODInQueueGetNextEvent(tODInQueueHandle hInQueue,
- tODInputEvent *pEvent, tODMilliSec Timeout);
-void ODInQueueEmpty(tODInQueueHandle hInQueue);
-time_t ODInQueueGetLastActivity(tODInQueueHandle hInQueue);
-void ODInQueueResetLastActivity(tODInQueueHandle hInQueue);
-
-#endif /* _INC_ODINQUE */
diff --git a/src/odoors/ODInfo.ico b/src/odoors/ODInfo.ico
deleted file mode 100644
index 842108fe741c285deee0f943a75a1df3e36e6e6f..0000000000000000000000000000000000000000
Binary files a/src/odoors/ODInfo.ico and /dev/null differ
diff --git a/src/odoors/ODKrnl.c b/src/odoors/ODKrnl.c
deleted file mode 100644
index df948526c080b6ff94f1c5f8749e23cce6436266..0000000000000000000000000000000000000000
--- a/src/odoors/ODKrnl.c
+++ /dev/null
@@ -1,1661 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODKrnl.c
- *
- * Description: Contains the OpenDoors kernel, which is responsible for many
- * of the core functions which continue regardless of what the
- * client program is doing. The implementation of this file is
- * central to the OpenDoors architecture. The functionality
- * implemented by the OpenDoors kernel includes (but is not
- * limited to):
- *
- * - Obtaining and input from the user, through the modem
- * and possibly the local keyboard.
- * - Monitoring maximum time and inactivity time limits.
- * - Responding to loss of carrier.
- * - Forcing the status line to be updated regularily,
- * on platforms that it exists.
- * - Implementing the system operator <-> remote user chat
- * mode.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Jan 01, 1995 6.00 BP Split off from odcore.c
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 15, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Nov 21, 1995 6.00 BP Ported to Win32.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 13, 1995 6.00 BP Moved chat mode code to ODKrnl.h.
- * Dec 24, 1995 6.00 BP od_chat_active = TRUE on chat start.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 04, 1996 6.00 BP tODInQueueEvent -> tODInputEvent.
- * Jan 12, 1996 6.00 BP Added bOnlyShiftArrow.
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 30, 1996 6.00 BP Add semaphore timeout.
- * Feb 06, 1996 6.00 BP Added od_silent_mode.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 23, 1996 6.00 BP Only create active semapore once.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Prevent TC generated N_SCOPY@ call.
- * Mar 13, 1996 6.10 BP bOnlyShiftArrow -> nArrowUseCount.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Oct 22, 2001 6.21 RS Lowered thread priorities to normal.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <time.h>
-#include <limits.h>
-
-#include "OpenDoor.h"
-#ifdef ODPLAT_NIX
-#include <sys/types.h>
-#include <unistd.h>
-#include <signal.h>
-#include <fcntl.h>
-#include <errno.h>
-#endif
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODCom.h"
-#include "ODKrnl.h"
-#include "ODScrn.h"
-#include "ODInQue.h"
-#include "ODInEx.h"
-#ifdef ODPLAT_WIN32
-#include "ODFrame.h"
-#endif /* ODPLAT_WIN32 */
-
-
-/* Multithreading performance tuning. */
-#define REMOTE_INPUT_THREAD_PRIORITY OD_PRIORITY_NORMAL /* was ABOVE_NORMAL */
-#define NO_CARRIER_THREAD_PRIORITY OD_PRIORITY_NORMAL /* was ABOVE_NORMAL */
-#define NO_CARRIER_THREAD_SLEEP_TIME 6000
-#define TIME_UPDATE_THREAD_PRIORITY OD_PRIORITY_NORMAL
-#define TIME_UPDATE_THREAD_SLEEP_TIME 3000
-
-/* Misc performance tuning. */
-#define STATUS_UPDATE_PERIOD 3L
-#define CHAT_YIELD_PERIOD 25L
-
-/* Pending command identifiers. */
-#define KERNEL_FUNC_CHATTOGGLE 0x0001
-
-/* Private function prototypes. */
-static void ODKrnlHandleReceivedChar(char chReceived, BOOL bFromRemote);
-static void ODKrnlTimeUpdate(void);
-static void ODKrnlChatCleanup(void);
-static void ODKrnlChatMode(void);
-#ifdef ODPLAT_NIX
-static void sig_run_kernel(int sig);
-static void sig_get_char(int sig);
-static void sig_no_carrier(int sig);
-#endif
-
-/* Functions specific to the multithreaded implementation of the kernel. */
-#ifdef OD_MULTITHREADED
-/* Thread proceedures. */
-DWORD OD_THREAD_FUNC ODKrnlRemoteInputThread(void *pParam);
-DWORD OD_THREAD_FUNC ODKrnlNoCarrierThread(void *pParam);
-DWORD OD_THREAD_FUNC ODKrnlTimeUpdateThread(void *pParam);
-DWORD OD_THREAD_FUNC ODKrnlChatThread(void *pParam);
-
-/* Helper functions. */
-static void ODKrnlWaitForExclusiveControl(void);
-static void ODKrnlGiveUpExclusiveControl(void);
-#endif /* OD_MULTITHREADED */
-
-/* Local working variables. */
-#ifdef OD_MULTITHREADED
-static tODThreadHandle hRemoteInputThread = NULL;
-static tODThreadHandle hNoCarrierThread = NULL;
-static tODThreadHandle hTimeUpdateThread = NULL;
-static tODThreadHandle hClientThread = NULL;
-static tODThreadHandle hChatThread = NULL;
-static BOOL bHaveExclusiveControl;
-static BOOL bChatActivatedInternally;
-#endif /* OD_MULTITHREADED */
-static BOOL bKernelActive = FALSE;
-static BOOL bWarnedAboutInactivity = FALSE;
-static INT16 nLastInactivitySetting = 0;
-static time_t nNextStatusUpdateTime;
-static INT nKrnlFuncPending;
-static BOOL bLastStatusSetting;
-static INT16 nChatOriginalAttrib;
-
-/* Global kernel-related variables. */
-tODTimer RunKernelTimer;
-time_t nNextTimeDeductTime;
-char chLastControlKey = '\0';
-INT nArrowUseCount = 0;
-BOOL bForceStatusUpdate = FALSE;
-BOOL bIsShell;
-#ifdef OD_MULTITHREADED
-tODSemaphoreHandle hODActiveSemaphore = NULL;
-#endif /* OD_MULTITHREADED */
-
-
-
-/* ========================================================================= */
-/* Core of the OpenDoors Kernel. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODKrnlInitialize()
- *
- * Initializes kernel activities. In multithreaded versions of OpenDoors, this
- * is the function that starts the various kernel threads.
- *
- * Parameters: kODRCSuccess on success, or an error code on failure.
- *
- * Return: void
- */
-tODResult ODKrnlInitialize(void)
-{
-#ifdef ODPLAT_NIX
- sigset_t block;
- struct sigaction act;
- struct itimerval itv;
-#endif
-
- tODResult Result = kODRCSuccess;
-
-#ifdef ODPLAT_NIX
- /* HUP Detection */
- act.sa_handler=sig_no_carrier;
- /* If two HUP signals are recieved, die on the second */
- act.sa_flags=SA_RESETHAND;
- sigemptyset(&(act.sa_mask));
- sigaction(SIGHUP,&act,NULL);
-
- /* Run kernel on SIGALRM (Every 1 second) */
- act.sa_handler=sig_run_kernel;
- act.sa_flags=SA_RESTART;
- sigemptyset(&(act.sa_mask));
- sigaction(SIGALRM,&act,NULL);
- itv.it_interval.tv_sec=0;
- itv.it_interval.tv_usec=10000;
- itv.it_value.tv_sec=0;
- itv.it_value.tv_usec=10000;
- setitimer(ITIMER_REAL,&itv,NULL);
-
- /* Make stdin signal driven. */
-/* act.sa_handler=sig_get_char;
-/* act.sa_flags=0;
-/* sigemptyset(&(act.sa_mask));
-/* sigaction(SIGIO,&act,NULL);
-/*
-/* /* Have SIGIO signals delivered to this process */
-/* fcntl(0,F_SETOWN,getpid());
-/*
-/* /* Enable SIGIO when read possible on stdin */
-/* fcntl(0,F_SETFL,fcntl(0,F_GETFL)|O_ASYNC); */
-/*/
-
- /* Make sure SIGHUP, SIGALRM, and SIGIO are unblocked */
- sigemptyset(&block);
- sigaddset(&block,SIGHUP);
- sigaddset(&block,SIGALRM);
- sigaddset(&block,SIGIO);
- sigprocmask(SIG_UNBLOCK,&block,NULL);
-#endif
-
- /* Initialize time of next status update and next time deduction. */
- nNextStatusUpdateTime = time(NULL) + STATUS_UPDATE_PERIOD;
- nNextTimeDeductTime = time(NULL) + 60L;
- bLastStatusSetting = od_control.od_status_on = TRUE;
-
- /* Initially, no kernel functions are pending. */
- nKrnlFuncPending = 0;
-
- /* Initially, the kernel is not active. */
- bKernelActive = FALSE;
-
-#ifdef OD_MULTITHREADED
- /* Initially, we do not have exclusive control of the application. */
- bHaveExclusiveControl = FALSE;
-
- /* Obtain a handle to the client thread. */
- hClientThread = ODThreadGetCurrent();
-
- /* Create OpenDoors activation semaphore. */
- if(hODActiveSemaphore == NULL)
- {
- Result = ODSemaphoreAlloc(&hODActiveSemaphore, 0, INT_MAX);
- if(Result != kODRCSuccess) return(Result);
- }
-
- /* Start the remote input thread if we are not operating in local mode. */
- if(od_control.baud != 0)
- {
- Result = ODThreadCreate(&hRemoteInputThread, ODKrnlRemoteInputThread,
- NULL);
- if(Result != kODRCSuccess) return(Result);
- ODThreadSetPriority(hRemoteInputThread, REMOTE_INPUT_THREAD_PRIORITY);
- }
-
- /* Start the carrier detection thread if we are not operating in local */
- /* mode. */
- if(od_control.baud != 0)
- {
- Result = ODThreadCreate(&hNoCarrierThread, ODKrnlNoCarrierThread, NULL);
- if(Result != kODRCSuccess) return(Result);
- ODThreadSetPriority(hNoCarrierThread, NO_CARRIER_THREAD_PRIORITY);
- }
-
- /* Start the time update thread. */
- Result = ODThreadCreate(&hTimeUpdateThread, ODKrnlTimeUpdateThread, 0);
- if(Result != kODRCSuccess) return(Result);
- ODThreadSetPriority(hTimeUpdateThread, TIME_UPDATE_THREAD_PRIORITY);
-#endif /* OD_MULTITHREADED */
-
- /* Return with success. */
- return(Result);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlShutdown()
- *
- * Shuts down kernel activities.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODKrnlShutdown(void)
-{
- if(bKernelActive) return;
-
-#ifdef OD_MULTITHREADED
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- MessageBox(NULL, "Terminating remote input thread", "OpenDoors Diagnostics", MB_OK);
-#endif
- /* Shutdown the remote input thread, if it exists. */
- if(hRemoteInputThread != NULL) ODThreadTerminate(hRemoteInputThread);
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- MessageBox(NULL, "Terminating carrier detection", "OpenDoors Diagnostics", MB_OK);
-#endif
- /* Shutdown the carrier detection thread, if it exists. */
- if(hNoCarrierThread != NULL) ODThreadTerminate(hNoCarrierThread);
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- MessageBox(NULL, "Terminating time update thread", "OpenDoors Diagnostics", MB_OK);
-#endif
- /* Shutdown the time update thread, if it exists. */
- if(hTimeUpdateThread != NULL) ODThreadTerminate(hTimeUpdateThread);
-
-#if defined(OD_DIAGNOSTICS) && defined(ODPLAT_WIN32)
- if(od_control.od_internal_debug)
- MessageBox(NULL, "Releasing activation semaphore", "OpenDoors Diagnostics", MB_OK);
-#endif
-#endif /* OD_MULTITHREADED */
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_kernel()
- *
- * Carries out any kernel tasks that must be performed through regular,
- * explicit calls to this function,
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_kernel(void)
-{
-#ifndef OD_MULTITHREADED
- WORD wKey;
- BYTE btShiftStatus;
- char ch;
- char *pszShellName;
- BOOL bCarrier;
-#endif /* OD_MULTITHREADED */
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_kernel()");
-
- /* Initialize OpenDoors if not already done. */
- if(!bODInitialized) od_init();
-
- /* If this is an attempt at a re-entrant call to od_kernel() from another */
- /* function called by a currently active od_kernel(), then return without */
- /* doing anything. */
- if(bKernelActive) return;
-
- OD_API_ENTRY();
-
- /* Note that kernel is active to prevent recursive calls to the kernel. */
- bKernelActive = TRUE;
-
- /* Call od_ker_exec function if required. */
- if(od_control.od_ker_exec != NULL)
- {
- (*od_control.od_ker_exec)();
- }
-
- /* The remainder of od_kernel() only applies to non-multithreaded */
- /* versions of OpenDoors. */
-#ifndef OD_MULTITHREADED
- /* If not operating in local mode, then perform remote-mode specific */
- /* activies. */
- if(od_control.baud != 0)
- {
-#ifndef ODPLAT_NIX /* On *nix, this is handled by signals */
- /* If carrier detection is enabled, then shutdown OpenDoors if */
- /* the carrier detect signal is no longer high. */
- if(!(od_control.od_disable&DIS_CARRIERDETECT))
- {
- ODComCarrier(hSerialPort, &bCarrier);
- if(!bCarrier)
- {
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_NOCARRIER);
- }
- }
-#endif
-
- /* Loop, obtaining any new characters from the serial port and */
- /* adding them to the common local/remote input queue. */
- while(ODComGetByte(hSerialPort, &ch, FALSE) == kODRCSuccess)
- {
- ODKrnlHandleReceivedChar(ch, TRUE);
- }
- }
-
-#ifdef ODPLAT_DOS
-check_keyboard_again:
- if(nKrnlFuncPending && !bShellChatActive)
- {
- if(nKrnlFuncPending & KERNEL_FUNC_CHATTOGGLE)
- {
- nKrnlFuncPending &=~ KERNEL_FUNC_CHATTOGGLE;
- goto chat_pressed;
- }
- }
-
- /* Don't check local keyboard if sysop DIS_SYSOP_KEYS is set, or if we */
- /* are operatingin silent mode. */
- if(od_control.od_disable & DIS_SYSOP_KEYS
- || od_control.od_silent_mode)
- {
- goto after_key_check;
- }
-
- ASM mov ah, 1
- ASM push si
- ASM push di
- ASM int 0x16
- ASM jnz key_waiting
- ASM pop di
- ASM pop si
- ASM jmp after_key_check
-key_waiting:
- ASM mov ah, 0
- ASM int 0x16
- ASM mov wKey, ax
- ASM mov ah, 2
- ASM int 0x16
- ASM mov btShiftStatus, al
- ASM pop di
- ASM pop si
-
- if(nArrowUseCount > 0 && (wKey == 0x4800 || wKey == 0x5000)
- && !(btShiftStatus & 2))
- {
- /* Pass key on to od_local_input, if it is defined. */
- if(od_control.od_local_input != NULL)
- {
- (*od_control.od_local_input)(wKey);
- }
-
- /* Add this key to the local/remote input queue. */
- ODKrnlHandleLocalKey(wKey);
- }
-
- /* If hangup key is pressed. */
- else if(wKey == od_control.key_hangup)
- {
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_HANGUP);
- }
-
- /* If drop to BBS key is pressed. */
- else if(wKey == od_control.key_drop2bbs)
- {
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_DROPTOBBS);
- }
-
- else if(wKey == od_control.key_dosshell)
- {
- if(!bShellChatActive)
- {
- if(pfLogWrite != NULL)
- (*pfLogWrite)(6);
-
- /* If function hook is defined. */
- if(od_control.od_cbefore_shell != NULL)
- {
- /* Then call it. */
- bShellChatActive = TRUE;
- (*od_control.od_cbefore_shell)();
- bShellChatActive = FALSE;
- }
-
- if(od_control.od_before_shell != NULL)
- od_disp_str(od_control.od_before_shell);
-
- if((pszShellName = (char *)getenv("COMSPEC")) == NULL)
- {
- pszShellName = (char *)"COMMAND.COM";
- }
- bIsShell = TRUE;
- od_spawnvpe(P_WAIT, pszShellName, NULL, NULL);
- bIsShell = FALSE;
-
- if(od_control.od_after_shell != NULL)
- od_disp_str(od_control.od_after_shell);
-
- /* If a function hook is defined. */
- if(od_control.od_cafter_shell != NULL)
- {
- /* Then call it. */
- bShellChatActive = TRUE;
- (*od_control.od_cafter_shell)();
- bShellChatActive = FALSE;
- }
-
- if(pfLogWrite != NULL)
- (*pfLogWrite)(7);
- }
- }
-
- /* If toggle chat mode key is pressed. */
- else if(wKey == od_control.key_chat)
- {
-chat_pressed:
- if(!bShellChatActive || od_control.od_chat_active)
- {
- /* If chat mode is active. */
- if(od_control.od_chat_active)
- {
- /* Signal exit of chat mode. */
- ODKrnlEndChatMode();
- }
-
- /* If chat mode is off. */
- else
- {
- /* Enable second call to kernel. */
- bKernelActive = FALSE;
-
- /* Enter chat mode. */
- ODKrnlChatMode();
-
- /* Disable second call to kernel. */
- bKernelActive = TRUE;
- }
- }
- else
- {
- if(nKrnlFuncPending & KERNEL_FUNC_CHATTOGGLE)
- {
- nKrnlFuncPending &= ~KERNEL_FUNC_CHATTOGGLE;
- }
- else
- {
- nKrnlFuncPending |= KERNEL_FUNC_CHATTOGGLE;
- }
- }
- }
-
- /* If sysop next key is pressed. */
- else if(wKey == od_control.key_sysopnext)
- {
- /* Toggle sysop next setting. */
- od_control.sysop_next = !od_control.sysop_next;
-
- /* Update status line. */
- goto statup;
- }
-
- /* If ESCape key is pressed and we are in chat mode. */
- else if((wKey&0xff) == 27 && od_control.od_chat_active)
- {
- /* Signal exit from chat mode. */
- od_control.od_chat_active = FALSE;
- }
-
- /* If lockout user key is pressed. */
- else if(wKey == od_control.key_lockout)
- {
- /* Set the user's access security level to 0. */
- od_control.user_security = 0;
-
- /* Shutdown OpenDoors. */
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_HANGUP);
- }
-
-
- /* If toggle keyboard off key is pressed. */
- else if(wKey == od_control.key_keyboardoff)
- {
- /* Toggle user keyboard settings. */
- od_control.od_user_keyboard_on =! od_control.od_user_keyboard_on;
-
- /* Update status line. */
- goto statup;
- }
-
- /* If increase time key is pressed. */
- else if(wKey == od_control.key_moretime)
- {
- /* If time limit is less than maximum possible time limit. */
- if(od_control.user_timelimit < 1440)
- {
- /* Increase time left online. */
- ++od_control.user_timelimit;
- }
-
- /* Update status line. */
- goto statup;
- }
-
- /* If decrease time key is pressed. */
- else if(wKey == od_control.key_lesstime)
- {
- /* Never let user's time limit be set to a negative value. */
- if(od_control.user_timelimit > 0)
- {
- /* Decrease user's timelimit. */
- --od_control.user_timelimit;
- }
-
- /* Update the status line. */
- goto statup;
- }
-
- else
- {
- for(ch = 0; ch < 9; ++ch)
- {
- if(wKey == od_control.key_status[ch])
- {
- if(btCurrentStatusLine != ch && od_control.od_status_on)
- {
- od_set_statusline(ch);
- }
- goto check_keyboard_again;
- }
- }
-
- /* Look for user-defined hotkeys. */
- for(ch=0; ch<od_control.od_num_keys; ++ch)
- {
- /* If it matches. */
- if(wKey == (WORD)od_control.od_hot_key[ch])
- {
- /* Record keypress. */
- od_control.od_last_hot = wKey;
-
- /* Notify the current personality. */
- (*pfCurrentPersonality)(21);
-
- /* Check for a hotkey function. */
- if(od_control.od_hot_function[ch] != NULL)
- {
- /* Call it if it exists. */
- (*od_control.od_hot_function[ch])();
- }
-
- /* Stop searching. */
- break;
- }
- }
-
- /* If no hotkeys found. */
- if(ch >= od_control.od_num_keys)
- {
- /* Pass key on to od_local_input, if it is defined. */
- if(od_control.od_local_input != NULL)
- {
- (*od_control.od_local_input)(wKey);
- }
-
- /* Add this key to the local/remote input queue. */
- ODKrnlHandleLocalKey(wKey);
- }
- }
- goto check_keyboard_again;
-
-after_key_check:
-
- /* If status line has been turned on since last call to kernel. */
- if(bLastStatusSetting != od_control.od_status_on)
- {
- /* Generate the status line. */
- od_set_statusline(0);
- }
-
- bLastStatusSetting = od_control.od_status_on;
-
- if(od_control.od_update_status_now)
- {
- od_set_statusline(btCurrentStatusLine);
- od_control.od_update_status_now = FALSE;
- }
-
- /* Update status line when needed. */
- if(nNextStatusUpdateTime < time(NULL) || bForceStatusUpdate)
- {
-statup:
- nNextStatusUpdateTime = time(NULL) + STATUS_UPDATE_PERIOD;
-
- /* Turn off status line update force flag */
- bForceStatusUpdate = FALSE;
-
- if(od_control.od_status_on && btCurrentStatusLine != 8)
- {
- /* Store console settings. */
- ODStoreTextInfo();
-
- /* Enable writes to whole screen. */
- ODScrnSetBoundary(1, 1, 80, 25);
- ODScrnEnableCaret(FALSE);
- (*pfCurrentPersonality)((BYTE)(10 + btCurrentStatusLine));
- ODRestoreTextInfo();
- ODScrnEnableCaret(TRUE);
- }
- }
-#endif
-
- ODKrnlTimeUpdate();
-
-#ifndef ODPLAT_NIX
- ODTimerStart(&RunKernelTimer, 250);
-#endif
-
- OD_API_EXIT();
-
- bKernelActive = FALSE;
-#endif /* !OD_MULTITHREADED */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlHandleLocalKey()
- *
- * Called when a key is pressed on the local keyboard that should be placed
- * in the common local/remote input queue. This function is not called for
- * sysop function keys.
- *
- * Parameters: wKeyCode
- *
- * Return: void
- */
-void ODKrnlHandleLocalKey(WORD wKeyCode)
-{
- /* If local keyboard input by sysop has not been disabled. */
- if(!(od_control.od_disable & DIS_LOCAL_INPUT))
- {
- if((wKeyCode & 0xff) == 0)
- {
- ODKrnlHandleReceivedChar('\0', FALSE);
- ODKrnlHandleReceivedChar((char)(wKeyCode >> 8), FALSE);
- }
- else
- {
- ODKrnlHandleReceivedChar((char)wKeyCode, FALSE);
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlHandleReceivedChar() *** PRIVATE FUNCTION ***
- *
- * Called when a character is received from the local or remote system.
- *
- * Parameters: chReceived - Character that should be handled.
- *
- * bFromRemote - TRUE if this character was received from the
- * remote system, FALSE if it originated from the
- * local console.
- *
- * Return: void
- */
-static void ODKrnlHandleReceivedChar(char chReceived, BOOL bFromRemote)
-{
- tODInputEvent InputEvent;
-
- /* If we are operating in remote mode, and remote user keyboard has been */
- /* disabled by the sysop, then return, ignoring this character. */
- if(bFromRemote && !od_control.od_user_keyboard_on)
- {
- return;
- }
-
- /* Add this input event to the local/remote common input queue. */
- InputEvent.EventType = EVENT_CHARACTER;
- InputEvent.bFromRemote = bFromRemote;
- InputEvent.chKeyPress = chReceived;
- ODInQueueAddEvent(hODInputQueue, &InputEvent);
-
- /* Update last control key information. */
- switch(chReceived)
- {
- case 's':
- case 'S':
- case 3:
- case 11:
- case 0x18:
- chLastControlKey = 's';
- break;
- case 'p':
- case 'P':
- chLastControlKey = 'p';
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlTimeUpdate() *** PRIVATE FUNCTION ***
- *
- * Performs regular updating of time remaining online, inactivity time, and
- * forces OpenDoors to exit if a time limit has been exceeded.
- *
- * Parameters: None
- *
- * Return: void
- */
-static void ODKrnlTimeUpdate(void)
-{
- time_t CurrentTime;
- static char szTemp[80];
-
- /* Obtain the current time. */
- CurrentTime = time(NULL);
-
- /* If inactivity setting has changed. */
- if(nLastInactivitySetting != od_control.od_inactivity)
- {
- /* If it was previously disabled. */
- if(nLastInactivitySetting == 0)
- {
- /* Prevent immediate timeout. */
- ODInQueueResetLastActivity(hODInputQueue);
- }
-
- /* Store current value. */
- nLastInactivitySetting = od_control.od_inactivity;
- }
-
- /* Check user keyboard inactivity. */
- if((ODInQueueGetLastActivity(hODInputQueue) + od_control.od_inactivity)
- < CurrentTime)
- {
- /* If timeout, display message. */
- if(od_control.od_inactivity != 0 && !od_control.od_disable_inactivity)
- {
- if(od_control.od_time_msg_func == NULL)
- {
- od_disp_str(od_control.od_inactivity_timeout);
- }
- else
- {
- (*od_control.od_time_msg_func)(od_control.od_inactivity_timeout);
- }
-
- /* End connection. */
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_INACTIVITY);
- }
- }
-
- /* If less than 5s left of inactivity. */
- else if(ODInQueueGetLastActivity(hODInputQueue) + od_control.od_inactivity
- < CurrentTime + od_control.od_inactive_warning)
- {
- if(!bWarnedAboutInactivity && od_control.od_inactivity != 0
- && !od_control.od_disable_inactivity)
- {
- /* Warn the user. */
- if(od_control.od_time_msg_func == NULL)
- {
- od_disp_str(od_control.od_inactivity_warning);
- }
- else
- {
- (*od_control.od_time_msg_func)(od_control.od_inactivity_warning);
- }
- /* Don't warn the user a second time. */
- bWarnedAboutInactivity = TRUE;
- }
- }
- else
- {
- /* Re-enable inactivity warning. */
- bWarnedAboutInactivity = FALSE;
- }
-
- /* If chat mode is active. */
- if(od_control.od_chat_active)
- {
- /* Prevent the user's time from being drained. */
- nNextTimeDeductTime = time(NULL) + 60;
- }
-
- /* If 1 minute has passed since last time update. */
- if(CurrentTime >= nNextTimeDeductTime)
- {
- /* Next time update should occur 60 seconds after this one was */
- /* scheduled. */
- nNextTimeDeductTime += 60;
-
- /* Force status line to be updated immediately. */
- bForceStatusUpdate = TRUE;
-
- /* Decrement time left. */
- --od_control.user_timelimit;
-
- /* If the user's time limit is close to expiring, then notify */
- /* the user. */
- if(od_control.user_timelimit <= 3 &&
- od_control.user_timelimit > 0 &&
- !(od_control.od_disable & DIS_TIMEOUT))
- {
- /* If less than 3 mins left, tell user. */
- sprintf(szTemp, od_control.od_time_warning,
- od_control.user_timelimit);
- if(od_control.od_time_msg_func == NULL)
- {
- od_disp_str(szTemp);
- }
- else
- {
- (*od_control.od_time_msg_func)(szTemp);
- }
- }
-
-#ifdef ODPLAT_WIN32
- ODFrameUpdateTimeDisplay();
-#endif /* ODPLAT_WIN32 */
- }
-
- /* If user has no time left. */
- if(od_control.user_timelimit <= 0
- && !(od_control.od_disable & DIS_TIMEOUT))
- {
- /* Notify the user. */
- if(od_control.od_time_msg_func == NULL)
- {
- od_disp_str(od_control.od_no_time);
- }
- else
- {
- (*od_control.od_time_msg_func)(od_control.od_no_time);
- }
-
- /* Force OpenDoors to shutdown. */
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_TIMEOUT);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlForceOpenDoorsShutdown()
- *
- * Called to force the application to exit due to some event in OpenDoors,
- * such as loss of carrier, user inactivity timeout, the hangup command
- * being chosen by the system operator, etc. The only time when OpenDoors
- * is shutdown without going through this function should be as a result of
- * an explicit call to od_exit() by the client application.
- *
- * Parameters: btReasonForShutdown - An OpenDoors exit reason code.
- *
- * Return: Never returns.
- */
-void ODKrnlForceOpenDoorsShutdown(BYTE btReasonForShutdown)
-{
- BOOL bHangup;
-
-#ifdef OD_MULTITHREADED
- /* First, wait until an OpenDoors API is active. This way, we won't */
- /* interrupt any client application operations that may leave the */
- /* system in an unstable state (for instance, interrupting some file */
- /* I/O operations). */
- ODKrnlWaitForExclusiveControl();
-#endif /* OD_MULTITHREADED */
-
- bKernelActive = TRUE;
-
- /* Determine whether we should hangup on the user before exiting. */
- if(btReasonForShutdown == ERRORLEVEL_HANGUP
- || btReasonForShutdown == ERRORLEVEL_INACTIVITY)
- {
- bHangup = TRUE;
- }
- else
- {
- bHangup = FALSE;
- }
-
- /* Record exit reason in global variable. */
- btExitReason = btReasonForShutdown - 1;
-
- /* Use the client-defined errorlevel, if any. */
- if(od_control.od_errorlevel[0])
- {
- od_exit(od_control.od_errorlevel[btReasonForShutdown], bHangup);
- }
-
- /* Otherwise, use the default OpenDoors errorlevel. */
- else
- {
- od_exit(btReasonForShutdown - 1, bHangup);
- }
-}
-
-
-/* ========================================================================= */
-/* OpenDoors Kernel multithreaded implementation. */
-/* ========================================================================= */
-
-#ifdef OD_MULTITHREADED
-
-/* ----------------------------------------------------------------------------
- * ODKrnlRemoteInputThread() *** PRIVATE FUNCTION ***
- *
- * Code for the remote input thread. This thread executes an infinite loop,
- * blocking until a character is received from the remote system, and then
- * adding this character to the common local/remote input queue. This thread
- * should be given higher than normal priority.
- *
- * In non-multithreaded versions of OpenDoors, the task of checking for new
- * characters from the remote system and adding them to the common input
- * queue is performed on each call to od_kernel().
- *
- * Parameters: As dictated for any thread function.
- *
- * Return: As dictated for any thread function.
- */
-DWORD OD_THREAD_FUNC ODKrnlRemoteInputThread(void *pParam)
-{
- char chReceived;
-
- /* We keep looping until someone else terminates this thread. */
- for(;;)
- {
- /* Get next character from the modem, blocking if no character */
- /* is waiting. */
- ODComGetByte(hSerialPort, &chReceived, TRUE);
-
- /* Handle this received character, adding it to the local/remote */
- /* common input queue, if appropriate. */
- ODKrnlHandleReceivedChar(chReceived, TRUE);
- }
-
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlNoCarrierThread() *** PRIVATE FUNCTION ***
- *
- * Thread which performs carrier detection. Normally, this thread doesn't
- * execute at all, but instead blocks waiting for a no carrier serial port
- * event. Only when the carrier detect signal goes low does this thread
- * execute, performing its one purpose in live - to trigger an OpenDoors
- * shutdown. This thread should be given higher than normal priority.
- *
- * This thread should only be created when OpenDoors is operating in remote
- * mode.
- *
- * In non-multithreaded versions of OpenDoors, this task is performed by
- * od_kernel().
- *
- * Parameters: As dictated for any thread function.
- *
- * Return: As dictated for any thread function.
- */
-DWORD OD_THREAD_FUNC ODKrnlNoCarrierThread(void *pParam)
-{
- /* Block until the carrier detect signal goes low with carrier */
- /* detection enabled. */
- for(;;)
- {
- /* Wait for carrier detect signal to go low. */
- ODComWaitEvent(hSerialPort, kNoCarrier);
-
- /* If carrier detection has not been disabled, then we have found */
- /* a condition where OpenDoors should exit. */
- if(!(od_control.od_disable&DIS_CARRIERDETECT)) break;
-
- /* If we have no carrier but carrier detection is currently */
- /* disabled, then we sleep for a while before checking again. */
- /* This isn't a very elegant implementation, and perhaps a */
- /* better approach will be used for future versions. */
- od_sleep(NO_CARRIER_THREAD_SLEEP_TIME);
- }
-
- /* Force OpenDoors to exit. */
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_NOCARRIER);
-
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlTimeUpdateThread() *** PRIVATE FUNCTION ***
- *
- * Thread which performs time limit updating and checking. This thread executes
- * an infinite loop, sleeping for several seconds, waking up to perform time
- * limit updating, and then going back to sleep. This thead should typically
- * operate at normal priority.
- *
- * In non-multithreaded versions of OpenDoors, this task is performed by
- * od_kernel().
- *
- * Parameters: As dictated for any thread function.
- *
- * Return: As dictated for any thread function.
- */
-DWORD OD_THREAD_FUNC ODKrnlTimeUpdateThread(void *pParam)
-{
- /* We keep looping until someone else terminates this thread. */
- for(;;)
- {
- /* Sleep until it is time to do the next update. */
- od_sleep(TIME_UPDATE_THREAD_SLEEP_TIME);
-
- /* Now, perform time update. */
- ODKrnlTimeUpdate();
- }
-
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlWaitForExclusiveControl() *** PRIVATE FUNCTION ***
- *
- * Claims exclusive control of the application by the OpenDoors kernel. This is
- * required to ensure that the client application is not busy when the
- * OpenDoors kernel interrupts other operations for one reason or another
- * (for example, to start chat mode or to force the program to exit).
- *
- * Parameters: None
- *
- * Return: void
- */
-static void ODKrnlWaitForExclusiveControl(void)
-{
- /* If we already have exclusive control, then don't do anything. */
- if(bHaveExclusiveControl) return;
-
- /* Wait until an OpenDoors API is active. */
- ODSemaphoreDown(hODActiveSemaphore, OD_NO_TIMEOUT);
-
- /* Now, suspend the client thread. */
- ASSERT(hClientThread != NULL);
- ODThreadSuspend(hClientThread);
-
- /* Record that we now have exclusive control. */
- bHaveExclusiveControl = TRUE;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlGiveUpExclusiveControl() *** PRIVATE FUNCTION ***
- *
- * Relinguishes exclusive control of the application by the OpenDoors kernel.
- * A call to this function should only take place after a previous call to
- * ODKrnlWaitForExclusiveControl().
- *
- * Parameters: None
- *
- * Return: void
- */
-static void ODKrnlGiveUpExclusiveControl(void)
-{
- /* If we don't have exclusive control, then this call doesn't do */
- /* anything. */
- if(!bHaveExclusiveControl) return;
-
- /* First, restart the client thread. */
- ASSERT(hClientThread != NULL);
- ODThreadResume(hClientThread);
-
- /* Now, allow currently active OpenDoors API to return control */
- /* to the client application. */
- ODSemaphoreUp(hODActiveSemaphore, 1);
-
- /* Note that we no longer have exclusive control. */
- bHaveExclusiveControl = FALSE;
-}
-
-#endif /* OD_MULTITHREADED */
-
-
-
-/* ========================================================================= */
-/* OpenDoors chat mode. */
-/* ========================================================================= */
-
-BOOL bChatted;
-BOOL bSysopColor;
-
-#ifdef OD_MULTITHREADED
-
-/* ----------------------------------------------------------------------------
- * ODKrnlChatThread() *** PRIVATE FUNCTION ***
- *
- * Thread which implements sysop <-> remote user chat mode.
- *
- * Parameters: As dictated for any thread function.
- *
- * Return: As dictated for any thread function.
- */
-DWORD OD_THREAD_FUNC ODKrnlChatThread(void *pParam)
-{
- BOOL bTriggeredInsideOpenDoors = bChatActivatedInternally;
-
- /* The chat thread doesn't start up chat mode until the kernel has */
- /* exclusive control of the client application. */
- if(bTriggeredInsideOpenDoors)
- {
- ODKrnlWaitForExclusiveControl();
- }
-
- /* Now, execute the chat mode loop. */
- ODKrnlChatMode();
-
- /* If we get here, then we are responsible for relinguishing exclusive */
- /* control of the application. */
- if(bTriggeredInsideOpenDoors)
- {
- ODKrnlGiveUpExclusiveControl();
- }
-
- /* Exit the chat thread. */
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlStartChatThread()
- *
- * Starts the chat mode thread.
- *
- * Parameters: bTriggeredInternally - TRUE if chat mode has been triggered
- * inside OpenDoors, or FALSE if it has
- * been triggered by a call to od_chat().
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODKrnlStartChatThread(BOOL bTriggeredInternally)
-{
- tODResult Result;
-
- bChatActivatedInternally = bTriggeredInternally;
-
- Result = ODThreadCreate(&hChatThread, ODKrnlChatThread, NULL);
- if(Result != kODRCSuccess)
- {
- return(Result);
- }
-
- /* If chat mode command has been chosen, then toggle chat */
- /* mode on or off. */
- od_control.od_chat_active = TRUE;
-
-#ifdef ODPLAT_WIN32
- /* Update the enabled and checked state of commands. */
- ODFrameUpdateCmdUI();
-#endif /* ODPLAT_WIN32 */
-
- return(kODRCSuccess);
-}
-
-
-#endif /* OD_MULTITHREADED */
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlEndChatMode()
- *
- * Forces chat mode to exit.
- *
- * Parameters: None
- *
- * Return: void
- */
-void ODKrnlEndChatMode(void)
-{
-#ifdef OD_MULTITHREADED
-
- /* Shutdown the chat thread. */
- ODThreadTerminate(hChatThread);
-
- /* Perform post-chat cleanup operations. */
- ODKrnlChatCleanup();
-
-#else /* !OD_MULTITHREADED */
-
- /* Turn off chat mode. */
- od_control.od_chat_active = FALSE;
-
-#endif /* !OD_MULTITHREADED */
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_chat()
- *
- * Allows the client application to activate the line-by-line default chat
- * mode provided by OpenDoors, allowing the local sysop and remote user to
- * communicate with one another in real time.
- *
- * Parameters: none
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_chat(void)
-{
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_chat()");
-
- /* Set the main chat active flag in od_control. */
- od_control.od_chat_active = TRUE;
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
-#ifdef OD_MULTITHREADED
-
- /* In multithreaded versions of OpenDoors, od_chat() causes the chat */
- /* mode thread to be started, which in turn implements chat mode. */
- /* od_chat() only returns when this thread exits. */
- if(ODKrnlStartChatThread(FALSE) != kODRCSuccess)
- {
- od_control.od_error = ERR_GENERALFAILURE;
- OD_API_EXIT();
- }
-
- /* Now, wait for the chat thread to exit. */
- ODThreadWaitForExit(hChatThread);
-
- /* Now, note that the chat thread no longer exists. */
- hChatThread = NULL;
-
-#else /* !OD_MULTITHREADED */
-
- /* In non-multithreaded versions, a call to od_chat() maps directly to a */
- /* call to ODKrnlChatMode(), which implements chat mode. */
- ODKrnlChatMode();
-
-#endif /* !OD_MULTITHREADED */
-
- OD_API_EXIT();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlChatMode() *** PRIVATE FUNCTION ***
- *
- * Implements the OpenDoors chat mode.
- *
- * Parameters: None
- *
- * Return: void
- */
-static void ODKrnlChatMode(void)
-{
- BYTE chKeyPressed;
- char szCurrentWord[79];
- BYTE btWordLength = 0;
- BYTE btCurrentColumn = 0;
- char *pchCurrent;
- BYTE btCount;
-#ifndef OD_MULTITHREADED
- tODTimer Timer;
-#endif /* !OD_MULTITHREADED */
-
- /* Empty current word string. */
- szCurrentWord[0] = '\0';
-
- /* Save current display color attribute. */
- nChatOriginalAttrib = od_control.od_cur_attrib;
-
- /* Record that sysop has entered chat mode. */
- bChatted = TRUE;
-
- /* Turn off "user wants to chat" indicator, and force the status line. */
- /* to be updated. */
- od_control.user_wantchat = FALSE;
-#ifdef ODPLAT_WIN32
- ODFrameUpdateWantChat();
-#endif /* ODPLAT_WIN32 */
-
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
-
- /* Note that chat mode is now active. */
- od_control.od_chat_active = TRUE;
-
- /* If a pre-chat function hook has been defined, then call it. */
- if(od_control.od_cbefore_chat!=NULL)
- {
- bShellChatActive = TRUE;
- (*od_control.od_cbefore_chat)();
- bShellChatActive = FALSE;
-
- /* If chat has been deactivated, then return right away */
- if(!od_control.od_chat_active) goto cleanup;
- }
-
- /* Display a message indicating that the sysop has entered chat mode. */
- od_set_attrib(od_control.od_chat_color1);
- if(od_control.od_before_chat != NULL)
- od_disp_str(od_control.od_before_chat);
-
- /* Currently set to sysop color. */
- bSysopColor = TRUE;
-
- /* If the logfile system is hooked up, then write a log entry */
- /* indicating that the sysop has entered chat mode. */
- if(pfLogWrite != NULL)
- {
- (*pfLogWrite)(9);
- }
-
-#ifndef OD_MULTITHREADED
- /* Start a timer that will elapse after 25 milliseconds. */
- ODTimerStart(&Timer, CHAT_YIELD_PERIOD);
-#endif /* !OD_MULTITHREADED */
-
- /* Loop while sysop chat mode is stilil on. */
- while(od_control.od_chat_active)
- {
- /* Obtain the next key from the user. */
-#ifdef OD_MULTITHREADED
- chKeyPressed = od_get_key(TRUE);
-#else /* !OD_MULTITHREADED */
- chKeyPressed = od_get_key(FALSE);
-#endif /* !OD_MULTITHREADED */
-
- /* If color not set correctly. */
- if((od_control.od_last_input && !bSysopColor)
- || (!od_control.od_last_input && bSysopColor))
- {
- /* If sysop was last person to type. */
- if(od_control.od_last_input)
- {
- /* Switch to sysop text color. */
- od_set_attrib(od_control.od_chat_color1);
- }
- else
- {
- /* Otherwise, switch to the user text color. */
- od_set_attrib(od_control.od_chat_color2);
- }
-
- /* Record current color setting. */
- bSysopColor = od_control.od_last_input;
- }
-
- /* If this is a displayable character. */
- if(chKeyPressed >= 32)
- {
- /* Display the character that was typed. */
- od_putch(chKeyPressed);
-
- /* If the user pressed spacebar, then this is the end of the */
- /* previous word. */
- if(chKeyPressed == 32)
- {
- btWordLength = 0;
- szCurrentWord[0] = 0;
- }
-
- /* Add this character to the current word, if we haven't exceeded */
- /* the maximum word length. */
- else if(btWordLength < 70)
- {
- szCurrentWord[btWordLength++] = chKeyPressed;
- szCurrentWord[btWordLength] = '\0';
- }
-
- /* If we are not yet at the end of the line, then increment the */
- /* current column number. */
- if(btCurrentColumn < 75)
- {
- ++btCurrentColumn;
- }
-
- /* If we are at the end of the line. */
- else
- {
- /* If the current word should be wrapped to the next line. */
- if(btWordLength < 70 && btWordLength > 0)
- {
- /* Generate a string to erase the word from the current line. */
- pchCurrent = (char *)szODWorkString;
- for(btCount = 0; btCount < btWordLength; ++btCount)
- {
- *(pchCurrent++) = 8;
- }
-
- for(btCount = 0; btCount < btWordLength; ++btCount)
- {
- *(pchCurrent++) = ' ';
- }
-
- *pchCurrent = '\0';
-
- /* Display the string to erase the old word. */
- od_disp_str(szODWorkString);
-
- /* Move to the next line. */
- od_disp_str("\n\r");
-
- /* Redisplay the word on the next line. */
- od_disp_str(szCurrentWord);
-
- /* Update current column number. */
- btCurrentColumn = btWordLength;
- }
-
- /* If we have reached the end of the line, but word wrap should */
- /* not be performed. */
- else
- {
- /* Move to the next line. */
- od_disp_str("\n\r");
-
- /* Update the current column number. */
- btCurrentColumn = 0;
- }
-
- /* Reset the current word information. */
- btWordLength = 0;
- szCurrentWord[0] = 0;
- }
- }
-
- /* If the backspace key was pressed. */
- else if(chKeyPressed == 8)
- {
- /* Send backspace sequence. */
- od_disp_str(szBackspaceWithDelete);
-
- /* If we are in the middle of a word, then we must remove the */
- /* last character of the word. */
- if(btWordLength > 0)
- {
- szCurrentWord[--btWordLength] = '\0';
- }
-
- /* Update the current column number. */
- if(btCurrentColumn > 0) --btCurrentColumn;
- }
-
- /* If the enter key was pressed. */
- else if(chKeyPressed == 13)
- {
- /* Send carriage return / line feed sequence. */
- od_disp_str("\n\r");
-
- /* Reset the current word contents. */
- btWordLength = 0;
- szCurrentWord[0] = 0;
-
- /* Update the current column number. */
- btCurrentColumn = 0;
- }
-
- /* If the sysop pressed the escape key. */
- else if(chKeyPressed == 27 && od_control.od_last_input)
- {
- /* Exit chat mode. */
- goto cleanup;
- }
-
-#ifndef OD_MULTITHREADED
- /* Give up processor after 25 milliseconds elapsed. */
- else if(ODTimerElapsed(&Timer))
- {
- od_sleep(0);
-
- /* Restart the timer, so that it will elapse after another */
- /* 25 milliseconds. */
- ODTimerStart(&Timer, CHAT_YIELD_PERIOD);
- }
-#endif /* !OD_MULTITHREADED */
- }
-
-cleanup:
- ODKrnlChatCleanup();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODKrnlChatCleanup() *** PRIVATE FUNCTION ***
- *
- * Performs post-chat operations, such as resetting the original display
- * color, etc.
- *
- * Parameters: None
- *
- * Return: void
- */
-static void ODKrnlChatCleanup(void)
-{
- od_set_attrib(od_control.od_chat_color1);
-
- /* Indicate that chat mode is exiting. */
- if(od_control.od_after_chat != NULL)
- {
- od_disp_str(od_control.od_after_chat);
- }
-
- /* If an after chat function has been provided, then call it. */
- if(od_control.od_cafter_chat != NULL)
- {
- bShellChatActive = TRUE;
- (*od_control.od_cafter_chat)();
- bShellChatActive = FALSE;
- }
-
- /* If the logfile system is hooked up, then write a line to the log */
- /* indicating that chat mode has been exited. */
- if(pfLogWrite != NULL)
- {
- (*pfLogWrite)(10);
- }
-
- /* Restore original display color attribute. */
- od_set_attrib(nChatOriginalAttrib);
-
- /* Record that chat mode is no longer active. */
- od_control.od_chat_active = FALSE;
-
-#ifdef ODPLAT_WIN32
- /* Update the enabled and checked state of commands. */
- ODFrameUpdateCmdUI();
-#endif /* ODPLAT_WIN32 */
-
-#ifdef OD_MULTITHREADED
- if(bChatActivatedInternally)
- {
- ODKrnlGiveUpExclusiveControl();
- }
-#endif
-}
-
-#ifdef ODPLAT_NIX
-/* ----------------------------------------------------------------------------
- * sig_run_kernel(sig) *** PRIVATE FUNCTION ***
- *
- * Runs od_kernel() on a SIGALRM
- *
- */
-static void sig_run_kernel(int sig)
-{
- od_kernel();
-}
-
-/* ----------------------------------------------------------------------------
- * sig_run_kernel(sig) *** PRIVATE FUNCTION ***
- *
- * Runs od_kernel() on a SIGALRM
- *
- */
-static void sig_get_char(int sig)
-{
- static char ch;
- /* Loop, obtaining any new characters from the serial port and */
- /* adding them to the common local/remote input queue. */
- while(ODComGetByte(hSerialPort, &ch, FALSE) == kODRCSuccess)
- {
- ODKrnlHandleReceivedChar(ch, TRUE);
- }
-}
-
-static void sig_no_carrier(int sig)
-{
- if(od_control.baud != 0)
- {
- ODKrnlForceOpenDoorsShutdown(ERRORLEVEL_NOCARRIER);
- }
-}
-#endif
diff --git a/src/odoors/ODKrnl.h b/src/odoors/ODKrnl.h
deleted file mode 100644
index fb48ef8950fe923dddee3826b494b2815333229b..0000000000000000000000000000000000000000
--- a/src/odoors/ODKrnl.h
+++ /dev/null
@@ -1,84 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODKrnl.h
- *
- * Description: Contains the public definitions related to odkrnl.c
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Jan 01, 1995 6.00 BP Split off from odcore.c and oddoor.h
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Jan 12, 1996 6.00 BP Added bOnlyShiftArrow.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 13, 1996 6.10 BP bOnlyShiftArrow -> nArrowUseCount.
- */
-
-#ifndef _INC_ODKRNL
-#define _INC_ODKRNL
-
-#include "ODPlat.h"
-
-/* Global kernel-related variables. */
-extern tODTimer RunKernelTimer;
-extern time_t nNextTimeDeductTime;
-extern char chLastControlKey;
-extern INT nArrowUseCount;
-extern BOOL bForceStatusUpdate;
-extern BOOL bSysopColor;
-#ifdef OD_MULTITHREADED
-extern tODSemaphoreHandle hODActiveSemaphore;
-#endif /* OD_MULTITHREADED */
-
-/* Chat mode global variables. */
-extern BOOL bIsShell;
-extern BOOL bChatted;
-
-/* Kernel function prototypes. */
-tODResult ODKrnlInitialize(void);
-void ODKrnlShutdown(void);
-void ODKrnlHandleLocalKey(WORD wKeyCode);
-void ODKrnlEndChatMode(void);
-void ODKrnlForceOpenDoorsShutdown(BYTE btReasonForShutdown);
-#ifdef OD_MULTITHREADED
-tODResult ODKrnlStartChatThread(BOOL bTriggeredInternally);
-#endif /* OD_MULTITHREADED */
-
-/* Macro used to generate the appropriate code (if any) to call */
-/* the OpenDoors kernel from within OpenDoors code. */
-#ifdef OD_MULTITHREADED
-#define CALL_KERNEL_IF_NEEDED()
-#else /* !OD_MULTITHREADED */
-#ifdef ODPLAT_NIX
-#define CALL_KERNEL_IF_NEEDED()
-#else
-#define CALL_KERNEL_IF_NEEDED() od_kernel()
-#endif /* !ODPLAT_NIX */
-#endif /* !OD_MULTITHREADED */
-
-/* Macro used to increment or decrement OpenDoors active semaphore. */
-#ifdef OD_MULTITHREADED
-#define OD_API_ENTRY() ODSemaphoreUp(hODActiveSemaphore, 1);
-#define OD_API_EXIT() ODSemaphoreDown(hODActiveSemaphore, 1);
-#else /* !OD_MULTITHREADED */
-#define OD_API_ENTRY()
-#define OD_API_EXIT()
-#endif /* !OD_MULTITHREADED */
-
-#endif /* _INC_ODKRNL */
diff --git a/src/odoors/ODList.c b/src/odoors/ODList.c
deleted file mode 100644
index ae60dacb7ee658b654a7438eae8cb4c1830b05d8..0000000000000000000000000000000000000000
--- a/src/odoors/ODList.c
+++ /dev/null
@@ -1,561 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODList.c
- *
- * Description: Implements the od_list_files() function for displaying
- * a FILES.BBS file.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Dec 09, 1994 6.00 BP Use new directory access functions.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Moved functions from odcore.c
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <ctype.h>
-#include <string.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODCom.h"
-#include "ODPlat.h"
-#include "ODKrnl.h"
-#include "ODUtil.h"
-
-
-/* Filename component identifies. */
-#define WILDCARDS 0x01
-#define EXTENSION 0x02
-#define FILENAME 0x04
-#define DIRECTORY 0x08
-#define DRIVE 0x10
-
-
-/* Local private helper function prototypes. */
-static void ODListFilenameMerge(char *pszEntirePath, const char *pszDrive,
- const char *pszDir, const char *pszName, const char *pszExtension);
-static char *ODListGetFirstWord(char *pszInStr, char *pszOutStr);
-static char *ODListGetRemainingWords(char *pszInStr);
-static INT ODListFilenameSplit(const char *pszEntirePath, char *pszDrive,
- char *pszDir, char *pszName, char *pszExtension);
-
-
-/* ----------------------------------------------------------------------------
- * od_list_files()
- *
- * Displays a list of files available for download, using an extended version
- * of the standard FILES.BBS format index file.
- *
- * Parameters: pszFileSpec - Directory name where the FILES.BBS file can be
- * found, or full path and filename of a FILES.BBS
- * format index file.
- *
- * Return: TRUE on success or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_list_files(char *pszFileSpec)
-{
- BYTE btLineCount = 2;
- BOOL bPausing;
- static char szLine[513];
- static char szFilename[80];
- static char szDrive[3];
- static char szDir[70];
- static char szTemp1[9];
- static char szTemp2[5];
- static char szBaseName[9];
- static char szExtension[5];
- static char szDirectory[100];
- INT nFilenameInfo;
- FILE *pfFilesBBS;
- static char *pszCurrent;
- BOOL bIsDir;
- BOOL bUseNextLine = TRUE;
- tODDirHandle hDir;
- tODDirEntry DirEntry;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_list_files()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Check user's page pausing setting. */
- bPausing = od_control.od_page_pausing;
-
- if(od_control.od_extended_info) bPausing = od_control.user_attribute & 0x04;
-
- /* Parse directory parameter. */
- if(pszFileSpec == NULL)
- {
- strcpy(szODWorkString, ".");
- strcpy(szDirectory, "."DIRSEP_STR);
- }
- else if(*pszFileSpec == '\0')
- {
- strcpy(szODWorkString, ".");
- strcpy(szDirectory, "."DIRSEP_STR);
- }
- else
- {
- strcpy(szODWorkString, pszFileSpec);
- strcpy(szDirectory, pszFileSpec);
- if(szODWorkString[strlen(szODWorkString) - 1] == DIRSEP)
- {
- szODWorkString[strlen(szODWorkString) - 1] = '\0';
- }
- }
-
- /* Get directory information on path. */
- if(ODDirOpen(szODWorkString, DIR_ATTRIB_ARCH | DIR_ATTRIB_RDONLY
- | DIR_ATTRIB_DIREC, &hDir) != kODRCSuccess)
- {
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- if(ODDirRead(hDir, &DirEntry) != kODRCSuccess)
- {
- ODDirClose(hDir);
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
-
- ODDirClose(hDir);
-
- /* If it is a directory. */
- if(DirEntry.wAttributes & DIR_ATTRIB_DIREC)
- {
- /* Append FILES.BBS to directory name & open. */
- bIsDir = TRUE;
- ODMakeFilename(szODWorkString, szODWorkString, "FILES.BBS",
- sizeof(szODWorkString));
- if((pfFilesBBS = fopen(szODWorkString, "r")) == NULL)
- {
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
- }
-
- /* If it is not a directory. */
- else
- {
- bIsDir = FALSE;
- if((pfFilesBBS = fopen(szODWorkString,"r")) == NULL)
- {
- od_control.od_error = ERR_FILEOPEN;
- OD_API_EXIT();
- return(FALSE);
- }
- }
-
-
- /* Ignore previously pressed control keys. */
- chLastControlKey = 0;
-
-
- /* Loop until the end of the FILES.BBS file has been reached. */
- for(;;)
- {
- if(fgets(szLine, 512, pfFilesBBS) == NULL) break;
-
- if(!bUseNextLine)
- {
- if(szLine[strlen(szLine) - 1] == '\n')
- {
- bUseNextLine = TRUE;
- }
- continue;
- }
-
- if(szLine[strlen(szLine) - 1] == '\n')
- {
- szLine[strlen(szLine) - 1] = '\0';
- }
- else
- {
- bUseNextLine = FALSE;
- }
-
- if(chLastControlKey != 0)
- {
- switch(chLastControlKey)
- {
- case 's':
- if(od_control.od_list_stop)
- {
- if(od_control.baud)
- {
- ODComClearOutbound(hSerialPort);
- }
- od_clear_keybuffer();
- fclose(pfFilesBBS);
- OD_API_EXIT();
- return(TRUE);
- }
- break;
-
- case 'p':
- if(od_control.od_list_pause)
- {
- od_clear_keybuffer();
- od_get_key(TRUE);
- }
- }
- chLastControlKey = 0;
- }
-
- /* Determine whether or not this is a comment line. */
- if(szLine[0] == ' ' || strlen(szLine) == 0)
-
- {
- /* If so, display the line in comment color. */
- od_set_attrib(od_control.od_list_title_col);
- od_disp_str(szLine);
- od_disp_str("\n\r");
- ++btLineCount;
- }
-
- /* If the line is not a comment. */
- else
- {
- /* Extract the first word of the line, */
- ODListGetFirstWord(szLine, szFilename);
-
- /* And extract the filename. */
- nFilenameInfo = ODListFilenameSplit(szFilename, szDrive, szDir,
- szBaseName, szExtension);
- if(!((nFilenameInfo & DRIVE) || (nFilenameInfo & DIRECTORY)))
- {
- if(bIsDir)
- {
- ODMakeFilename(szDirectory, szDirectory, szFilename,
- sizeof(szDirectory));
- strcpy(szFilename, szDirectory);
- }
- else
- {
- ODListFilenameSplit(szDirectory, szDrive, szDir, szTemp1,
- szTemp2);
- ODListFilenameMerge(szFilename, szDrive, szDir, szBaseName,
- szExtension);
- }
- }
-
- /* Search for the filespec in directory. */
- if(ODDirOpen(szFilename, DIR_ATTRIB_ARCH | DIR_ATTRIB_RDONLY, &hDir)
- == kODRCSuccess)
- {
- /* Display information on every file that matches. */
- while(ODDirRead(hDir, &DirEntry) == kODRCSuccess)
- {
- od_set_attrib(od_control.od_list_name_col);
- od_printf("%-12.12s ", DirEntry.szFileName);
- od_set_attrib(od_control.od_list_size_col);
- od_printf("%-6ld ", DirEntry.dwFileSize);
- od_set_attrib(od_control.od_list_comment_col);
- pszCurrent = ODListGetRemainingWords(szLine);
- if(strlen(pszCurrent) <= 56)
- {
- od_disp_str(pszCurrent);
- od_disp_str("\n\r");
- }
- else
- {
- od_printf("%-56.56s\n\r", pszCurrent);
- }
- ++btLineCount;
- }
-
- ODDirClose(hDir);
- }
-
- /* Otherwise, indicate that the file is "Offline". */
- else
- {
- ODListFilenameMerge(szFilename, "", "", szBaseName, szExtension);
- od_set_attrib(od_control.od_list_name_col);
- od_printf("%-12.12s ", szFilename);
- od_set_attrib(od_control.od_list_offline_col);
- od_disp_str(od_control.od_offline);
- od_set_attrib(od_control.od_list_comment_col);
-
- od_printf("%-56.56s\n\r", ODListGetRemainingWords(szLine));
- ++btLineCount;
- }
- }
-
- /* Check for end of screen & page pausing. */
- if(btLineCount >= od_control.user_screen_length && bPausing)
- {
- /* Provide page pausing at end of each screen. */
- if(ODPagePrompt(&bPausing))
- {
- fclose(pfFilesBBS);
- OD_API_EXIT();
- return(TRUE);
- }
-
- /* Reset the line number counter. */
- btLineCount = 2;
- }
- }
-
- /* When finished, close the file. */
- fclose(pfFilesBBS);
-
- /* Return with success. */
- OD_API_EXIT();
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODListFilenameMerge() *** PRIVATE FUNCTION ***
- *
- * Builds a fully-qualified path name from the provided path component
- * strings.
- *
- * Parameters: pszEntirePath - Pointer to the destination string where the
- * generated path should be stored.
- *
- * pszDrive - Pointer to the drive string.
- *
- * pszDir - Pointer to the directory string.
- *
- * pszName - Pointer to the base filename string.
- *
- * pszExtension - Pointer to the extension name string.
- *
- * Return: void
- */
-static void ODListFilenameMerge(char *pszEntirePath, const char *pszDrive,
- const char *pszDir, const char *pszName, const char *pszExtension)
-{
- if(pszEntirePath == NULL) return;
-
- pszEntirePath[0] = '\0';
-
- if(pszDrive != NULL)
- {
- strcpy(pszEntirePath, pszDrive);
- }
- if(pszDir != NULL)
- {
- strcat(pszEntirePath, pszDir);
- }
- if(pszName != NULL)
- {
- strcat(pszEntirePath,pszName);
- }
- if(pszExtension != NULL)
- {
- strcat(pszEntirePath,pszExtension);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODListFilenameSplit() *** PRIVATE FUNCTION ***
- *
- * Splits the provided path string into drive, directory name, file base name
- * and file extension components.
- *
- * Parameters: pszEntirePath - A string containing the path to split.
- *
- * pszDrive - A string where the drive letter should be stored.
- *
- * pszDir - A string where the directory name should be
- * stored.
- *
- * pszName - A string where the base filename should be
- * stored.
- *
- * pszExtension - A string where the filename extension should be
- * stored.
- *
- * Return: One or more flags indicating which components where found in the
- * provided path name.
- */
-static INT ODListFilenameSplit(const char *pszEntirePath, char *pszDrive,
- char *pszDir, char *pszName, char *pszExtension)
-{
- char *pchCurrentPos;
- char *pchStart;
- BYTE btSize;
- INT nToReturn;
-
- ASSERT(pszEntirePath != NULL);
- ASSERT(pszDrive != NULL);
- ASSERT(pszDir != NULL);
- ASSERT(pszName != NULL);
- ASSERT(pszExtension != NULL);
-
- pchStart = (char *)pszEntirePath;
- nToReturn = 0;
-
- if((pchCurrentPos = strrchr(pchStart,':')) == NULL)
- {
- pszDrive[0] = '\0';
- }
- else
- {
- btSize = (int)(pchCurrentPos - pchStart) + 1;
- if(btSize > 2) btSize = 2;
- strncpy(pszDrive, pchStart, btSize);
- pszDrive[btSize] = '\0';
- pchStart = pchCurrentPos + 1;
- nToReturn |= DRIVE;
- }
-
- if((pchCurrentPos = strrchr(pchStart, DIRSEP))==NULL)
- {
- pszDir[0] = '\0';
- }
- else
- {
- btSize = (int)(pchCurrentPos - pchStart) + 1;
- strncpy(pszDir,pchStart,btSize);
- pszDir[btSize] = '\0';
- pchStart = pchCurrentPos + 1;
- nToReturn |= DIRECTORY;
- }
-
- if(strchr(pchStart,'*') != NULL || strchr(pchStart, '?') != NULL)
- {
- nToReturn |= WILDCARDS;
- }
-
- if((pchCurrentPos = strrchr(pchStart, '.')) == NULL)
- {
- if(pchStart =='\0')
- {
- pszExtension[0] = '\0';
- pszName[0] = '\0';
- }
- else
- {
- pszExtension[0] = '\0';
- btSize = strlen(pchStart);
- if (btSize > 8) btSize = 0;
- strncpy(pszName, pchStart, btSize);
- pszName[btSize] = '\0';
- nToReturn |= FILENAME;
- }
- }
- else
- {
- nToReturn |= FILENAME;
- nToReturn |= EXTENSION;
-
- btSize = (int)(pchCurrentPos - pchStart);
-
- if(btSize > 8) btSize = 8;
-
- strncpy(pszName, pchStart, btSize);
- pszName[btSize] = '\0';
-
- btSize = strlen(pchCurrentPos);
- if(btSize > 4) btSize = 4;
- strncpy(pszExtension, pchCurrentPos, btSize);
- pszExtension[btSize]='\0';
- }
-
- return(nToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODListGetFirstWord() *** PRIVATE FUNCTION ***
- *
- * Returns the first word in a string containing a series of words separated by
- * one or more spaced.
- *
- * Parameters: pszInStr - String to look in.
- *
- * pszOutStr - Buffer to store result in. This buffer should be at
- * least as long as the pszInStr string.
- *
- * Return: Pointer to the pszOutStr that was passed in.
- */
-static char *ODListGetFirstWord(char *pszInStr, char *pszOutStr)
-{
- char *pchOut = (char *)pszOutStr;
-
- ASSERT(pszInStr != NULL);
- ASSERT(pszOutStr != NULL);
-
- while(*pszInStr && *pszInStr != ' ')
- {
- *pchOut++ = *pszInStr++;
- }
- *pchOut = '\0';
-
- return(pszOutStr);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODListGetRemainingWords() *** PRIVATE FUNCTION ***
- *
- * Obtains the remaining words in a string, after the first word. This function
- * is a companion to ODListGetFirstWord(), which obtains just the first word
- * in a string of many words.
- *
- * Parameters: pszInStr - String to look at.
- *
- * Return: A pointer to the position in a string of the second word.
- */
-static char *ODListGetRemainingWords(char *pszInStr)
-{
- char *pchStartOfRemaining = (char *)pszInStr;
-
- /* Skip over the first word in the string. */
- while(*pchStartOfRemaining && *pchStartOfRemaining != ' ')
- {
- ++pchStartOfRemaining;
- }
-
- /* Skip over any spaces after the first word. */
- while(*pchStartOfRemaining && *pchStartOfRemaining == ' ')
- {
- ++pchStartOfRemaining;
- }
-
- /* Return pointer to the rest of the string. */
- return((char *)pchStartOfRemaining);
- }
diff --git a/src/odoors/ODLog.c b/src/odoors/ODLog.c
deleted file mode 100644
index 348089e60425c5f89e8a1dccfb1e25885f79d557..0000000000000000000000000000000000000000
--- a/src/odoors/ODLog.c
+++ /dev/null
@@ -1,258 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODLog.c
- *
- * Description: Implements the logfile subsystem.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODInEx.h"
-#include "ODKrnl.h"
-
-
-/* Private logfile file handle */
-static FILE *logfile_pointer;
-
-
-/* Private helper functions. */
-static BOOL ODLogWriteStandardMsg(INT nLogfileMessage);
-static void ODLogClose(INT nReason);
-
-
-/* ----------------------------------------------------------------------------
- * ODLogEnable()
- *
- * This function is called from od_init() when the user explicitly includes the
- * OpenDoors logfile option using the od_control.od_logfile setting.
- *
- * Parameters: None.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL ODLogEnable(void)
-{
- /* At this time, this function simply maps to a call to od_log_open(). */
- od_log_open();
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_log_open()
- *
- * Called to begin logfile operations. This is when the first message is
- * written to the logfile, indicating that the user is entering OpenDoors.
- *
- * Parameters: None.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_log_open()
-{
- time_t nUnixTime;
- struct tm *ptmTimeRecord;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_log_open()");
-
- /* Initialize OpenDoors if not already done. */
- if(!bODInitialized) od_init();
-
- /* Don't open logfile if it has been disabled in config file, etc. */
- if(od_control.od_logfile_disable) return(TRUE);
-
- /* Open actual logfile. */
- if((logfile_pointer=fopen(od_control.od_logfile_name, "a")) == NULL)
- {
- return(FALSE);
- }
-
- /* Get the current time. */
- nUnixTime = time(NULL);
- ptmTimeRecord = localtime(&nUnixTime);
-
- /* Print logfile tear line. */
- fprintf(logfile_pointer, "\n---------- %s %02.2d %s %02.2d, %s\n",
- od_control.od_day[ptmTimeRecord->tm_wday],
- ptmTimeRecord->tm_mday,
- od_control.od_month[ptmTimeRecord->tm_mon],
- ptmTimeRecord->tm_year,
- od_program_name);
-
- /* Print message of door start up. */
- sprintf(szODWorkString, (char *)od_control.od_logfile_messages[11],
- od_control.user_name);
- od_log_write(szODWorkString);
-
- /* Set internal function hooks to enable calling of logfile features */
- /* from elsewhere in OpenDoors. */
- pfLogWrite = ODLogWriteStandardMsg;
- pfLogClose = ODLogClose;
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODLogWriteStandardMsg() *** PRIVATE FUNCTION ***
- *
- * Function called to write a standard message to the logfile.
- *
- * Parameters: nLogfileMessage - Index of the standard message to write to
- * the logfile.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-static BOOL ODLogWriteStandardMsg(INT nLogfileMessage)
-{
- if(nLogfileMessage < 0 || nLogfileMessage > 11)
- {
- return(FALSE);
- }
-
- od_log_write((char *)od_control.od_logfile_messages[nLogfileMessage]);
-
- if(nLogfileMessage == 8)
- {
- sprintf(szODWorkString, od_control.od_logfile_messages[12],
- od_control.user_reasonforchat);
- szODWorkString[67] = '\0';
- od_log_write(szODWorkString);
- }
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_log_write()
- *
- * Called to write a message to the logfile.
- *
- * Parameters: pszMessage - Pointer to a string containing the message text.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_log_write(char *pszMessage)
-{
- char *pszFormat;
- time_t nUnixTime;
- struct tm *ptmTimeRecord;
-
- /* Verify that OpenDoors has been initialized. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Stop if logfile has been disabled in config file, etc. */
- if(od_control.od_logfile_disable)
- {
- OD_API_EXIT();
- return(TRUE);
- }
-
- /* If logfile has not yet been opened, then open it. */
- if(logfile_pointer==NULL)
- {
- if(!od_log_open())
- {
- OD_API_EXIT();
- return(FALSE);
- }
- }
-
- /* Get the current system time. */
- nUnixTime=time(NULL);
- ptmTimeRecord=localtime(&nUnixTime);
-
- /* Determine which logfile format string to use. */
- if(ptmTimeRecord->tm_hour<10)
- {
- pszFormat=(char *)"> %1.1d:%02.2d:%02.2d %s\n";
- }
- else
- {
- pszFormat=(char *)"> %2.2d:%02.2d:%02.2d %s\n";
- }
-
- /* Write a line to the logfile. */
- fprintf(logfile_pointer, pszFormat, ptmTimeRecord->tm_hour,
- ptmTimeRecord->tm_min, ptmTimeRecord->tm_sec, pszMessage);
-
- OD_API_EXIT();
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODLogClose() *** PRIVATE FUNCTION ***
- *
- * Writes final entry to the logfile when OpenDoors is exiting.
- *
- * Parameters: nReason - Specifies the reason why OpenDoors is exiting.
- *
- * Return: void
- */
-static void ODLogClose(INT nReason)
-{
- /* Stop if logfile has been disabled in the config file, etc. */
- if(od_control.od_logfile_disable) return;
-
- /* If logfile has not been opened, then abort. */
- if(logfile_pointer==NULL) return;
-
- if(bPreOrExit)
- {
- od_log_write((char *)od_control.od_logfile_messages[13]);
- }
- else if(btExitReason<=5 && btExitReason>=1)
- {
- od_log_write((char *)od_control.od_logfile_messages[btExitReason-1]);
- }
- else
- {
- sprintf(szODWorkString,(char *)od_control.od_logfile_messages[5],nReason);
- od_log_write(szODWorkString);
- }
-
- /* Close the logfile. */
- fclose(logfile_pointer);
-
- /* Prevent further use of logfile without first re-opening it. */
- pfLogWrite = NULL;
- pfLogClose = NULL;
- logfile_pointer = NULL;
-}
diff --git a/src/odoors/ODMulti.c b/src/odoors/ODMulti.c
deleted file mode 100644
index a81c4822f46eba8b781be850b1aabe84edcc1fac..0000000000000000000000000000000000000000
--- a/src/odoors/ODMulti.c
+++ /dev/null
@@ -1,255 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODMulti.c
- *
- * Description: Code for multiple personality system, which allows
- * a status line / function key personality to be dynamically
- * selected at run-time.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 23, 1996 6.00 BP Disable MPS under Win32 version.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Sep 01, 1996 6.10 BP Update output area on od_set_per...().
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <ctype.h>
-#include <stddef.h>
-#include <time.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODInEx.h"
-#include "ODKrnl.h"
-
-
-/* Maximum number of personalities that may be installed at once. */
-#define MAX_PERSONALITIES 12
-
-
-/* Information on installed personalities. */
-typedef struct
-{
- char szName[33];
- INT nStatusTopLine;
- INT nStatusBottomLine;
- OD_PERSONALITY_PROC *pfPersonalityFunction;
-} tPersonalityInfo;
-
-static tPersonalityInfo aPersonalityInfo[MAX_PERSONALITIES]=
-{
- {"STANDARD", 1, 23, pdef_opendoors},
- {"REMOTEACCESS", 1, 23, pdef_ra},
- {"WILDCAT", 1, 23, pdef_wildcat},
- {"PCBOARD", 1, 23, pdef_pcboard}
-};
-
-
-/* Private variables. */
-static INT nPersonalities = 5;
-static INT nCurrentPersonality = 255;
-
-
-/* ----------------------------------------------------------------------------
- * ODMPSEnable()
- *
- * This function is called from within od_init() when the user enables the
- * multiple personality system.
- *
- * Parameters: None.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL ODMPSEnable(void)
-{
- pfSetPersonality = od_set_personality;
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_set_personality()
- *
- * Sets the current personality to the one that is specified in pszName.
- *
- * Parameters: pszName - The name of the personality to switch to.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_set_personality(char *pszName)
-{
-#ifdef OD_TEXTMODE
- BYTE btNewPersonality;
- char szNameToMatch[33];
- tPersonalityInfo *pNewPersonalityInfo;
-#endif /* OD_TEXTMODE */
-
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_set_personality()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
-#ifdef OD_TEXTMODE
- /* Check for valid parameters. */
- if(strlen(pszName) == 0)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Build personality name to match. */
- strncpy(szNameToMatch, pszName, 32);
- szNameToMatch[32] = '\0';
- strupr(szNameToMatch);
-
- /* Loop through installed personalities, checking for a match. */
- for(btNewPersonality = 0; btNewPersonality < nPersonalities;
- ++btNewPersonality)
- {
- /* If the name of this personality matches the one we are looking for. */
- if(strcmp(szNameToMatch, aPersonalityInfo[btNewPersonality].szName) == 0)
- {
- if(btNewPersonality != nCurrentPersonality)
- {
- /* Remove current status line from the screen .*/
- od_set_statusline(8);
-
- /* Initialize the new personality. */
- if(nCurrentPersonality != 255)
- (*(OD_PERSONALITY_CALLBACK *)pfCurrentPersonality)(22);
- od_control.od_page_statusline = -1;
- pNewPersonalityInfo =
- &aPersonalityInfo[nCurrentPersonality=btNewPersonality];
- bRAStatus = TRUE;
- (*(OD_PERSONALITY_CALLBACK *)pNewPersonalityInfo
- ->pfPersonalityFunction)(20);
- ODScrnSetBoundary(1, (BYTE)pNewPersonalityInfo->nStatusTopLine, 80,
- (BYTE)pNewPersonalityInfo->nStatusBottomLine);
- pfCurrentPersonality
- = pNewPersonalityInfo->pfPersonalityFunction;
- btCurrentStatusLine = 255;
-
- /* Update output area. */
- btOutputTop = (BYTE)pNewPersonalityInfo->nStatusTopLine;
- btOutputBottom = (BYTE)pNewPersonalityInfo->nStatusBottomLine;
-
- /* Draw the new statusline. */
- od_set_statusline(0);
- }
-
- OD_API_EXIT();
- return(TRUE);
- }
- }
-
- OD_API_EXIT();
- od_control.od_error = ERR_LIMIT;
- return(FALSE);
-
-#else /* !OD_TEXTMODE */
-
- /* The multiple personality system is not supported under this platform. */
- od_control.od_error = ERR_UNSUPPORTED;
-
- /* Return with failure. */
- OD_API_EXIT();
- return(FALSE);
-
-#endif /* !OD_TEXTMODE */
-}
-
-
-
-/* ----------------------------------------------------------------------------
- * od_add_personality()
- *
- * Installs a new personality into the set of available personalities.
- *
- * Parameters: pszName - Pointer to string containing the name of
- * the new personality.
- *
- * btOutputTop - Index of the top line of the status bar.
- *
- * btOutputBottom - Index of the bottom line of the status bar.
- *
- * pfPerFunc - Pointer to the callback function which
- * implements this personality.
- *
- * Return: TRUE on success or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_add_personality(char *pszName, BYTE btOutputTop,
- BYTE btOutputBottom, OD_PERSONALITY_PROC *pfPerFunc)
-{
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_add_personality()");
-
-#ifdef OD_TEXTMODE
-
- /* Check that we haven't exceeded the limit on the total number of */
- /* installed personalities. */
- if(nPersonalities == MAX_PERSONALITIES)
- {
- od_control.od_error = ERR_LIMIT;
- return(FALSE);
- }
-
- /* Store information on this new personality. */
- strncpy(aPersonalityInfo[nPersonalities].szName, pszName, 32);
- aPersonalityInfo[nPersonalities].szName[32] = '\0';
- strupr(aPersonalityInfo[nPersonalities].szName);
- aPersonalityInfo[nPersonalities].nStatusTopLine = btOutputTop;
- aPersonalityInfo[nPersonalities].nStatusBottomLine = btOutputBottom;
- aPersonalityInfo[nPersonalities].pfPersonalityFunction = pfPerFunc;
-
- /* Increment total number of personalities. */
- ++nPersonalities;
-
- /* Return with success. */
- return(TRUE);
-
-#else /* !OD_TEXTMODE */
-
- /* The multiple personality system is not supported under this platform. */
- od_control.od_error = ERR_UNSUPPORTED;
-
- /* Return with failure. */
- return(FALSE);
-
-#endif /* !OD_TEXTMODE */
-}
diff --git a/src/odoors/ODOORS62.TXT b/src/odoors/ODOORS62.TXT
deleted file mode 100644
index 4cc62b0caac1bf058dad915f62e1189d40554104..0000000000000000000000000000000000000000
--- a/src/odoors/ODOORS62.TXT
+++ /dev/null
@@ -1,95 +0,0 @@
-**************************************************************************
-* OpenDoors v6.23 C/C++ Door Development Kit for DOS and Win32 Platforms *
-**************************************************************************
-
-August 10, 2003
-
-*nix (using StdIO only) update to Brian Pirie's OpenDoors Library
-
-August 22, 2002
-
-Door32.sys and Socket update to Brian Pirie's OpenDoors Library
-(http://www.attcanada.net/~pirie/opendoors.html)
-
-by Rob Swindell (http://www.synchro.net/)
-
-The current source code is always available via CVS at cvs.synchro.net.
-
-The latest and greatest Win32 ODoors62.dll can always be downloaded here:
-http://cvs.synchro.net/cgi-bin/cvsweb.cgi/~checkout~/src/odoors/ODoors62.dll
-
-==============================================================================
-
-This archive includes the source code to the OpenDoors library with
-modifications made by me (Rob Swindell, aka Digital Man) to add support for
-the Door32.sys drop file format and Win32 TCP/IP socket (Telnet)
-communications.
-
-I made my modifications to the 6.1.1 release by Brian Pirie (ods611.zip) and
-used Microsoft Visual C++ v6.0. I also eliminated any warnings or errors
-detected by this compiler. The linker still warns of duplicate symbol
-definition (od_control and od_printf), but I left those duplicate defintions
-in the .def file since they may have been necessary for another platform or
-compiler that I'm not using.
-
-This version also includes the ODEmu.c:od_send_file_section() modification
-by Michael Dillon (gsvalore@arn.net | http://members.darktech.org/gsvalore/).
-
-
-DOOR32.SYS
-----------
-The Door32.sys drop file format was created in June of 2000 to support the
-new wave of 32-bit Windows and *nix doors. The main feature of this
-drop file format is that it includes the currently open Win32 comm handle or
-socket descriptor (whichever is appropriate for the current connection).
-
-I didn't add support for the Win32 comm handle in the door32.sys file
-(I run a telnet-only BBS and would have no way to test it). I can't
-imagine it would be very difficult to add; I'm just not sure how much demand
-there would be for such a feature today.
-
-I did however add support for the socket descriptor in the drop file (used for
-TCP/IP - Telnet connections) and this is currently the only "standard" drop
-file format that is expected to include a socket descriptor (Synchronet's
-XTRN.DAT drop file also includes a socket descriptor, but I don't really
-consider that format to be a "standard").
-
-The Door32.sys drop file is currently supported by the following known BBS
-packages:
-
- Software Home Page Version
- -----------+-------------------------------------+--------
- Mystic BBS www.mysticbbs.com 1.07
- EleBBS www.elebbs.com 0.08?
- Synchronet www.synchro.net 3.x
-
-
-TCP SOCKET I/O
---------------
-When using a Door32.sys drop file, the communications type (Local, Serial, or
-Telnet) is automatically determined and I added support for (and tested) the
-Telnet/socket communication method using Synchronet BBS Software v3.10 for
-Win32 and HyperTerminal Private Edition v6.1.
-
-Since the Telnet protocol specifies that an end-of-line sequence (ENTER or
-Carriage Return) is a CRLF (ASCII 13, 10), I had to modify od_get_key() to
-ignore any line feed (ASCII 10, Ctrl-J) characters. Without this modification,
-hitting enter in most Telnet clients would cause a "double return" to be sent
-to the door. There may be a more desirable solution to the problem, but this
-one seems to work for now.
-
-v6.21 fixes a bug in the socket disconnection ("carrier-loss") detection in
-v6.20. I also lowered the input and carrier-detect thread priorities down to
-"normal" which makes the doors appear to run faster and also make debugging
-continuous loop problems (like the one in v6.20) much easier.
-
-v6.22 changes:
-Another bug fixed in socket disconnection ("carrier-loss") detection.
-Added support for non-blocking sockets (e.g. EleBBS) - thanks to GSValore.
-Added support for the "-SOCKET" command-line option to specify the socket
-descriptor on the command-line.
-
-v6.23 changes:
-*nix support using stdio
-
-/* End of ODOORS62.TXT */
diff --git a/src/odoors/ODPCB.c b/src/odoors/ODPCB.c
deleted file mode 100644
index f5b50955973464a0eb7417dd015e64e921007922..0000000000000000000000000000000000000000
--- a/src/odoors/ODPCB.c
+++ /dev/null
@@ -1,207 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODPCB.c
- *
- * Description: Implements the PC-Board personality.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 14, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 22, 1995 6.00 BP Added od_connect_speed.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 03, 1996 6.00 BP Display connect speed with %lu.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <stdio.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODKrnl.h"
-#include "ODUtil.h"
-#include "ODStat.h"
-
-
-/* ----------------------------------------------------------------------------
- * pdef_pcboard()
- *
- * Personality function for the PC-Board like status line / function key
- * personality.
- *
- * Parameters: btOperation - Indicates personality operation to be performed.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL pdef_pcboard(BYTE btOperation)
-{
- static char szTemp[81];
- BYTE btInfoType = od_control.od_info_type;
-
-
- switch(btOperation)
- {
- case PEROP_DISPLAY1:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" ALT-H=Help ");
- ODScrnSetCursorPos(3, 24);
- if(od_control.baud != 0)
- {
- ODScrnPrintf("(%lu) ", od_control.od_connect_speed);
- }
- else
- {
- ODScrnDisplayString("(Local) ");
- }
- sprintf(szTemp, "%s - %s", od_control.user_name,
- od_control.user_location);
- szTemp[42] = '\0';
- strupr(szTemp);
- ODScrnDisplayString(szTemp);
- ODScrnSetCursorPos(1,25);
- if(od_control.user_ansi || od_control.user_avatar
- || od_control.user_rip)
- {
- ODScrnDisplayChar('G');
- }
- else
- {
- ODScrnDisplayChar('A');
- }
- if(btInfoType == RA1EXITINFO || btInfoType == RA2EXITINFO
- || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnPrintf(" (%s)",od_control.user_firstcall);
- }
- ODScrnSetCursorPos(15, 25);
- ODScrnPrintf("Sec(0)=%u ",od_control.user_security);
- if(od_control.od_extended_info || btInfoType == DOORSYS_GAP
- || btInfoType == CHAINTXT || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnPrintf("Times On=%u ", od_control.user_numcalls);
- }
- if(od_control.od_extended_info || btInfoType == SFDOORSDAT
- || btInfoType == DOORSYS_GAP || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnPrintf("Up:Dn=%lu:%lu", od_control.user_uploads,
- od_control.user_downloads);
- }
- ODScrnSetCursorPos(70, 25);
- ODScrnPrintf("%4d", od_control.user_timelimit);
-
- od_control.key_status[0] = 0x0000;
- od_control.key_status[1] = 0x2300;
- break;
-
- case PEROP_DISPLAY2:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" Alt-> N=Next X=DOS F1/F2=Time 2=LkOut 5=SHELL 8=HngUp 10=Chat ");
-
- od_control.key_status[0] = 0x2300;
- od_control.key_status[1] = 0x0000;
- break;
-
- case PEROP_UPDATE1:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(70, 25);
- ODScrnPrintf("%4d", od_control.user_timelimit);
- break;
-
- case PEROP_INITIALIZE:
- od_control.key_hangup = 0x4200;
- od_control.key_drop2bbs = 0x2d00;
- od_control.key_dosshell = 0x3f00;
- od_control.key_chat = 0x4400;
- od_control.key_sysopnext = 0x3100;
- od_control.key_lockout = 0x3c00;
- od_control.key_status[0] = 0x0000;
- od_control.key_status[1] = 0x2300;
- od_control.key_status[2] = 0x0000;
- od_control.key_status[3] = 0x0000;
- od_control.key_status[4] = 0x0000;
- od_control.key_status[5] = 0x0000;
- od_control.key_status[6] = 0x0000;
- od_control.key_status[7] = 0x0000;
- od_control.key_status[8] = 0x0000;
- od_control.key_keyboardoff = 0x2500;
- od_control.key_moretime = 0x0000;
- od_control.key_lesstime = 0x0000;
- ODStatAddKey(0x6900);
- ODStatAddKey(0x6800);
- od_control.od_page_statusline = 0;
- break;
-
- case PEROP_CUSTOMKEY:
- switch(od_control.od_last_hot)
- {
- /* Key to add five minutes. */
- case 0x6900:
- if(od_control.user_timelimit <= 1435 &&
- od_control.user_timelimit >= 5)
- {
- od_control.user_timelimit += 5;
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- }
- else if(od_control.user_timelimit < 5)
- {
- od_control.user_timelimit++;
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- }
- break;
-
- /* Subtract five minutes from the user's remaining time. */
- case 0x6800:
- if(od_control.user_timelimit > 5)
- {
- od_control.user_timelimit -= 5;
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- }
- else if(od_control.user_timelimit > 1)
- {
- --od_control.user_timelimit;
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- }
- break;
-
- default:
- return;
- }
- od_control.od_last_hot = 0;
- break;
- }
-}
diff --git a/src/odoors/ODPlat.c b/src/odoors/ODPlat.c
deleted file mode 100644
index e618f5a367cef52bc36fd8cd35b4cdbb4dcd92c0..0000000000000000000000000000000000000000
--- a/src/odoors/ODPlat.c
+++ /dev/null
@@ -1,1574 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODPlat.c
- *
- * Description: Contains platform-specific utility functions. Non-platform
- * specific utility functions are implemented in odutil.c
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 14, 1994 6.00 BP Created, with od_yield().
- * Nov 01, 1994 6.00 BP Added new directory access functions.
- * Dec 09, 1994 6.00 BP Eliminate access to old dir functions.
- * Dec 31, 1994 6.00 BP Added timing, file delete functions.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Dec 31, 1994 6.00 BP Added ODMultitasker and ODPlatInit()
- * Nov 14, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Added multithreading functions.
- * Nov 21, 1995 6.00 BP Ported to Win32.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 13, 1995 6.00 BP Added ODThreadWaitForExit().
- * Dec 13, 1995 6.00 BP Added ODThreadGetCurrent().
- * Dec 19, 1995 6.00 BP Fixed ODThreadGetCurrent() (Win32).
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 23, 1996 6.00 BP Added ODProcessExit().
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 30, 1996 6.00 BP Add semaphore timeout.
- * Jan 31, 1996 6.00 BP Add ODTimerLeft(), rm ODTimerSleep().
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Prevent TC calls N_LXMUL@ & N_LXDIV@.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <time.h>
-#include <ctype.h>
-#include <string.h>
-
-#include "OpenDoor.h"
-#ifdef ODPLAT_NIX
-#include <sys/time.h>
-#include <glob.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#endif
-#include "ODGen.h"
-#include "ODCore.h"
-#include "ODPlat.h"
-#include "ODUtil.h"
-#include "ODSwap.h"
-#include "ODKrnl.h"
-
-#ifdef ODPLAT_WIN32
-#include "windows.h"
-#endif /* ODPLAT_WIN32 */
-
-
-/* Multitasker type, only availvable under DOS. */
-#ifdef ODPLAT_DOS
-tODMultitasker ODMultitasker = kMultitaskerNone;
-static void ODPlatYield(void);
-#endif /* ODPLAT_DOS */
-
-/* ----------------------------------------------------------------------------
- * ODPlatInit()
- *
- * Performs any initialization required to use the utility functions supplied
- * by this module.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODPlatInit(void)
-{
-#ifdef ODPLAT_DOS
- /* If this is the DOS version of OpenDoors, then ODPlatInit() must */
- /* determine what multitasker we are running under. */
-
- /* Check whether running under OS/2. */
- ASM mov ah, 0x30
- ASM int 0x21
- ASM cmp al, 0x0a
- ASM jl NoOS2
-
- /* If we get to this point, then OS/2 has been detected. */
- ODMultitasker = kMultitaskerOS2;
- return;
-
-NoOS2:
- /* Check whether we are running under DesqView. */
- ASM mov cx, 0x4445
- ASM mov dx, 0x5351
- ASM mov ax, 0x2b01
- ASM int 0x21
- ASM cmp al, 0xff
- ASM je NoDesqView
-
- /* If we get to this point, then DesqView has been detected. */
- ODMultitasker = kMultitaskerDV;
-
-NoDesqView:
- /* Check whether we are running under Windows. */
- ASM push di
- ASM push si
- ASM mov ax, 0x1600
- ASM int 0x2f
- ASM pop si
- ASM pop di
- ASM cmp al, 0x00
- ASM je NoWindows
- ASM cmp al, 0x80
- ASM je NoWindows
-
- /* If we get to this point, then Windows has been detected. */
- ODMultitasker = kMultitaskerWin;
-
-NoWindows:
- ODMultitasker = kMultitaskerNone;
-#endif /* ODPLAT_DOS */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODPlatYield() *** PRIVATE FUNCTION ***
- *
- * Yields control to other tasks when running as a DOS application under a
- * multitasking system.
- *
- * Parameters: none
- *
- * Return: void
- */
-#ifdef ODPLAT_DOS
-static void ODPlatYield(void)
-{
- switch(ODMultitasker)
- {
- case kMultitaskerDV:
- ASM mov ax, 0x1000
- ASM int 0x15
- break;
-
- case kMultitaskerWin:
- ASM mov ax, 0x1680
- ASM int 0x2f
- break;
-
- case kMultitaskerOS2:
- default:
- ASM int 0x28
- }
-}
-#endif /* ODPLAT_DOS */
-
-
-/* ========================================================================= */
-/* Multithreading and synchronization support. */
-/* ========================================================================= */
-
-#ifdef OD_MULTITHREADED
-
-/* ----------------------------------------------------------------------------
- * ODThreadCreate()
- *
- * Starts a new thread of concurrent execution.
- *
- * Parameters: phThread - Pointer to the location where the handle to the
- * new thread should be stored.
- *
- * pfThreadProc - Function to call to begin execution of the
- * thread.
- *
- * pThreadParam - Parameter to pass to the thread function when
- * it is called.
- *
- * Return: kOCRCSuccess on success, or an error code on failure.
- */
-tODResult ODThreadCreate(tODThreadHandle *phThread,
- ptODThreadProc *pfThreadProc, void *pThreadParam)
-{
-#ifdef ODPLAT_WIN32
- DWORD dwThreadID;
- HANDLE hNewThread;
-
- ASSERT(phThread != NULL);
- ASSERT(pfThreadProc != NULL);
-
- /* Attempt to create the new thread. */
- hNewThread = CreateThread(NULL, 0, pfThreadProc, pThreadParam,
- 0, &dwThreadID);
-
- /* Check for thread creation failure. */
- if(hNewThread == NULL)
- {
- return(kODRCGeneralFailure);
- }
-
- /* Pass newly created thread's handle back to the caller. */
- *phThread = hNewThread;
-
- /* Return with success. */
- return(kODRCSuccess);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadExit()
- *
- * Causes the calling thread to be terminated.
- *
- * Parameters: none
- *
- * Return: Never returns!
- */
-void ODThreadExit()
-{
-#ifdef ODPLAT_WIN32
- ExitThread(0);
-#endif /* ODPLAT_WIN32 */
-
- /* We should never get here. */
- ASSERT(FALSE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadTerminate()
- *
- * Terminates the specified thread.
- *
- * Parameters: hThread - Handle to the thread to be terminated.
- *
- * Return: kOCRCSuccess on success, or an error code on failure.
- */
-tODResult ODThreadTerminate(tODThreadHandle hThread)
-{
- ASSERT(hThread != NULL);
-
-#ifdef ODPLAT_WIN32
- return(TerminateThread(hThread, 0) ? kODRCSuccess : kODRCGeneralFailure);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadSuspend()
- *
- * Pauses execution of the specified thread, until the ODThreadResume()
- * function is called.
- *
- * Parameters: hThread - Handle to the thread to be suspended.
- *
- * Return: kOCRCSuccess on success, or an error code on failure.
- */
-tODResult ODThreadSuspend(tODThreadHandle hThread)
-{
- ASSERT(hThread != NULL);
-
-#ifdef ODPLAT_WIN32
- return(SuspendThread(hThread) == 0xFFFFFFFF ? kODRCGeneralFailure
- : kODRCSuccess);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadResume()
- *
- * Continues execution of a thread previously paused by a call to
- * ODThreadSuspend().
- *
- * Parameters: hThread - Handle to the thread to be resumed.
- *
- * Return: kOCRCSuccess on success, or an error code on failure.
- */
-tODResult ODThreadResume(tODThreadHandle hThread)
-{
- ASSERT(hThread != NULL);
-
-#ifdef ODPLAT_WIN32
- return(ResumeThread(hThread) == 0xFFFFFFFF ? kODRCGeneralFailure
- : kODRCSuccess);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadSetPriority()
- *
- * Changes the execution priority of a thread. Since the exact semantics of
- * thread priorities are different for each platform, this function should
- * be used carefully. The caller should assume that no thread will run if there
- * exists a non-blocked thread with a higher priority.
- *
- * Parameters: hThread - Handle to the thread to change the priority of.
- *
- * ThreadPriority - New priority to assign to the thread.
- *
- * Return: kOCRCSuccess on success, or an error code on failure.
- */
-tODResult ODThreadSetPriority(tODThreadHandle hThread,
- tODThreadPriority ThreadPriority)
-{
-#ifdef ODPLAT_WIN32
- int nWindowsThreadPriority;
-
- ASSERT(hThread != NULL);
-
- /* Determine the Windows thread priority to assign to the thread. */
- switch(ThreadPriority)
- {
- case OD_PRIORITY_LOWEST:
- nWindowsThreadPriority = THREAD_PRIORITY_LOWEST;
- break;
- case OD_PRIORITY_BELOW_NORMAL:
- nWindowsThreadPriority = THREAD_PRIORITY_BELOW_NORMAL;
- break;
- case OD_PRIORITY_NORMAL:
- nWindowsThreadPriority = THREAD_PRIORITY_NORMAL;
- break;
- case OD_PRIORITY_ABOVE_NORMAL:
- nWindowsThreadPriority = THREAD_PRIORITY_ABOVE_NORMAL;
- break;
- case OD_PRIORITY_HIGHEST:
- nWindowsThreadPriority = THREAD_PRIORITY_HIGHEST;
- break;
- default:
- ASSERT(FALSE);
- }
-
- /* Update the thread's priority. */
- return(SetThreadPriority(hThread, nWindowsThreadPriority)
- ? kODRCSuccess : kODRCGeneralFailure);
-
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadWaitForExit()
- *
- * Blocks until the specified thread is terminated.
- *
- * Parameters: hThread - Handle to the thread to wait for.
- *
- * Return: void
- */
-void ODThreadWaitForExit(tODThreadHandle hThread)
-{
-#ifdef ODPLAT_WIN32
- WaitForSingleObject(hThread, INFINITE);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODThreadGetCurrent()
- *
- * Obtains a handle to the thread that called this function.
- *
- * Parameters: None.
- *
- * Return: Handle to the current thread.
- */
-tODThreadHandle ODThreadGetCurrent(void)
-{
-#ifdef ODPLAT_WIN32
- HANDLE hDuplicate;
- if(!DuplicateHandle(GetCurrentProcess(), GetCurrentThread(),
- GetCurrentProcess(), &hDuplicate, 0, FALSE, DUPLICATE_SAME_ACCESS))
- {
- return(NULL);
- }
- return(hDuplicate);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSemaphoreAlloc()
- *
- * Allocates a semaphore synchronization object.
- *
- * Parameters: phSemaphore - Pointer to location where the handle to the
- * newly created semaphore should be stored.
- *
- * nInitialCount - Initial value to assign to the semaphore.
- *
- * nMaximumCount - Maximum value that the semaphore may have
- * (if supported by the current platform).
- *
- * Return: kOCRCSuccess on success, or an error code on failure.
- */
-tODResult ODSemaphoreAlloc(tODSemaphoreHandle *phSemaphore, INT nInitialCount,
- INT nMaximumCount)
-{
- ASSERT(phSemaphore != NULL);
- ASSERT(nInitialCount >= 0);
- ASSERT(nMaximumCount >= nInitialCount);
-
-#ifdef ODPLAT_WIN32
- *phSemaphore = CreateSemaphore(NULL, (LONG)nInitialCount,
- (LONG)nMaximumCount, NULL);
-
- return(*phSemaphore == NULL ? kODRCGeneralFailure : kODRCSuccess);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSemaphoreFree()
- *
- * Deallocates a semaphore that we previously created by ODSemaphoreAlloc().
- *
- * Parameters: hSemaphore - Handle to semaphore to deallocate.
- *
- * Return: void
- */
-void ODSemaphoreFree(tODSemaphoreHandle hSemaphore)
-{
- ASSERT(hSemaphore != NULL);
-
-#ifdef ODPLAT_WIN32
- DeleteObject(hSemaphore);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSemaphoreUp()
- *
- * Increments the count of the specified semaphore.
- *
- * Parameters: hSemaphore - Semaphore to increment.
- *
- * nIncrementBy - Amount to add to the semaphore's current value.
- *
- * Return: void
- */
-void ODSemaphoreUp(tODSemaphoreHandle hSemaphore, INT nIncrementBy)
-{
- ASSERT(hSemaphore != NULL);
- ASSERT(nIncrementBy > 0);
-
-#ifdef ODPLAT_WIN32
- ReleaseSemaphore(hSemaphore, nIncrementBy, NULL);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODSemaphoreDown()
- *
- * Decrements the count of the specified semaphore. A semaphore may never have
- * a value less than 0. Hence, an attempt to decrement the value of a
- * semaphore below zero will cause the calling thread to be blocked until some
- * other thread increments the semaphore.
- *
- * Parameters: hSemaphore - Handle to the semaphore to decrement.
- *
- * Timeout - Maximum time to wait for the semaphore to be
- * incremented, or OD_NO_TIMEOUT to prevent this
- * function from returning before the semaphore is
- * incremented.
- *
- * Return: kODRCSuccess, or kODRCTimeout if the semaphore was not
- * decremented before Timeout milliseconds elapsed.
- */
-tODResult ODSemaphoreDown(tODSemaphoreHandle hSemaphore, tODMilliSec Timeout)
-{
- ASSERT(hSemaphore != NULL);
-
-#ifdef ODPLAT_WIN32
- if(WaitForSingleObject(hSemaphore, Timeout) == WAIT_FAILED)
- {
- return(kODRCTimeout);
- }
-#endif /* ODPLAT_WIN32 */
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-#endif /* OD_MULTITHREADED */
-
-
-/* ----------------------------------------------------------------------------
- * ODProcessExit()
- *
- * Ends the current process.
- *
- * Parameters: nExitCode - Exit code to return to the calling process.
- *
- * Return: Never returns.
- */
-void ODProcessExit(INT nExitCode)
-{
-#ifdef ODPLAT_WIN32
- ExitProcess(nExitCode);
-#else /* !ODPLAT_WIN32 */
- exit(nExitCode);
-#endif /* !ODPLAT_WIN32 */
-}
-
-
-/* ========================================================================= */
-/* Millisecond timer functions. */
-/* ========================================================================= */
-
-#ifdef ODPLAT_DOS
-/* For the DOS platform, we need to know the number of milliseconds per */
-/* clock tick. */
-#define MILLISEC_PER_TICK 55 /* (approx. == 1000 / CLOCKS_PER_SEC) */
-#endif /* ODPLAT_DOS */
-
-/* ----------------------------------------------------------------------------
- * ODTimerStart()
- *
- * Starts a timer for a specified number of milliseconds. Future calls to
- * ODTimerElapsed() can be used to determine whether or not specified time
- * has elapsed. Note that while this function accepts its parameter in
- * milliseconds, it does not gurantee millisecond resolution. In fact, under
- * DOS, this timer mechanism has just under a 55 millisecond resolution, with
- * an average error of about 27 milliseconds.
- *
- * Parameters: pTimer - Pointer to a tODTimer structure that will be later
- * passed to ODTimerElapsed().
- *
- * Duration - Number of milliseconds after which timer should
- * elapse.
- *
- * Return: void
- */
-void ODTimerStart(tODTimer *pTimer, tODMilliSec Duration)
-{
-#ifdef ODPLAT_NIX
- struct timeval tv;
-#endif
- ASSERT(pTimer != NULL);
- ASSERT(Duration >= 0);
-
-#ifdef ODPLAT_DOS
- /* Store timer start time right away. */
- pTimer->Start = clock();
-
- /* Calculate duration of timer. */
- ODDWordDivide((DWORD *)&pTimer->Duration, NULL, Duration,
- MILLISEC_PER_TICK);
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- /* Store timer start time now. */
- pTimer->Start = GetCurrentTime();
- pTimer->Duration = Duration;
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- gettimeofday(&tv,NULL);
- pTimer->Start_sec=tv.tv_sec;
- pTimer->Start_usec=tv.tv_usec;
- pTimer->Duration = Duration;
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODTimerElapsed()
- *
- * Determines whether or not a timer set by ODTimerStart() has elapsed.
- *
- * Parameters: pTimer - Pointer to a tODTimer structure that was populated
- * by ODTimerStart().
- *
- * Return: TRUE if timer has elapsed, FALSE if it has not.
- */
-BOOL ODTimerElapsed(tODTimer *pTimer)
-{
-#ifdef ODPLAT_NIX
- struct timeval tv;
- struct timeval end;
-#endif
-
- ASSERT(pTimer != NULL);
-
-#ifdef ODPLAT_DOS
- return(clock() > pTimer->Start + pTimer->Duration
- || clock() < pTimer->Start);
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- return(GetCurrentTime() > pTimer->Start + pTimer->Duration
- || GetCurrentTime() < pTimer->Start);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- return(ODTimerLeft(pTimer)==0);
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODTimerWaitForElapse()
- *
- * Sleeps until the specified timer elapses.
- *
- * Parameters: pTimer - Pointer to a tODTimer structure that was populated
- * by ODTimerStart().
- *
- * Return: void
- */
-void ODTimerWaitForElapse(tODTimer *pTimer)
-{
-#ifdef ODPLAT_NIX
- struct timeval tv;
-#endif
- ASSERT(pTimer != NULL);
-
-#ifdef ODPLAT_DOS
-
- /* Under DOS, our timer resolution is low enough (only 18.2 ticks per */
- /* second), that we cannot accurately calculate the time to sleep for. */
- /* For this reason, we simply loop until the timer has elapsed, yielding */
- /* control to other tasks if when the timer has not elapsed. */
-
- /* While timer has not elapsed. */
- while(!ODTimerElapsed(pTimer))
- {
- /* Let other tasks run. */
- od_sleep(0);
- }
-
-#elif defined(ODPLAT_NIX)
- /* This is timing sensitive and *MUST* wait regardless of 100% CPU or signals */
- while(1) {
- gettimeofday(&tv,NULL);
- tv.tv_sec -= (pTimer->Start_sec + pTimer->Duration/1000);
- tv.tv_usec -= (pTimer->Start_usec + ((pTimer->Duration*1000)%1000000));
- if(tv.tv_usec < 0) {
- tv.tv_sec--;
- tv.tv_usec += 1000000;
- }
- if(tv.tv_sec<0 || tv.tv_usec<0)
- return;
- if(!select(0,NULL,NULL,NULL,&tv))
- break;
- }
-#else /* !ODPLAT_DOS */
- {
- /* Under other platforms, timer resolution is high enough that we can */
- /* ask the OS to block this thread for the amount of time required */
- /* for the timer to elapse. */
-
- tODMilliSec CurrentTime;
- tODMilliSec TimerElapseTime = pTimer->Start + pTimer->Duration;
-
- /* Determine the current time. */
-#ifdef ODPLAT_WIN32
- CurrentTime = GetCurrentTime();
-#endif /* ODPLAT_WIN32 */
-
- if(TimerElapseTime <= CurrentTime)
- {
- /* Timer has already elapsed. */
- return;
- }
-
- /* Sleep for the amount of time left until the timer should elapse. */
- od_sleep(TimerElapseTime - CurrentTime);
- }
-#endif /* !ODPLAT_DOS */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODTimerLeft()
- *
- * Determines the number of milliseconds left before the timer elapses.
- *
- * Parameters: pTimer - Pointer to a tODTimer structure that was populated
- * by ODTimerStart().
- *
- * Return: Number of milliseconds before timer elapses, or 0 if the timer
- * has already elapsed.
- */
-tODMilliSec ODTimerLeft(tODTimer *pTimer)
-{
-#ifdef ODPLAT_NIX
- struct timeval tv;
- tODMilliSec left=0;
-#endif
- ASSERT(pTimer != NULL);
-
-#ifdef ODPLAT_DOS
- {
- clock_t Now = clock();
- clock_t Left;
-
- /* If timer has elapsed, return 0. */
- if(Now > pTimer->Start + pTimer->Duration
- || Now < pTimer->Start)
- {
- return(0);
- }
-
- Left = pTimer->Start + pTimer->Duration - Now;
-
- return(ODDWordMultiply(Left, MILLISEC_PER_TICK));
- }
-#elif defined(ODPLAT_NIX)
- gettimeofday(&tv,NULL);
- tv.tv_sec -= pTimer->Start_sec;
- tv.tv_usec -= pTimer->Start_usec;
- if(tv.tv_usec < 0) {
- tv.tv_sec--;
- tv.tv_usec += 1000000;
- }
- left=(tv.tv_usec/1000)+(tv.tv_sec*1000);
- if(left<0)
- left=0;
- return(left);
-#else /* !ODPLAT_DOS */
- {
- tODMilliSec Now;
-
-#ifdef ODPLAT_WIN32
- Now = GetCurrentTime();
-#endif /* ODPLAT_WIN32 */
-
- /* If timer has elapsed, return 0. */
- if(Now > pTimer->Start + pTimer->Duration
- || Now < pTimer->Start)
- {
- return(0);
- }
-
- return(pTimer->Start + pTimer->Duration - Now);
- }
-#endif /* !ODPLAT_DOS */
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_sleep()
- *
- * Sleeps for the specified number of milliseconds, being as friendly to other
- * running tasks as possible. Under DOS, this function uses the ODTimerStart()/
- * ODTimerElapsed() mechanism, and so its accuracy is limited by the accuracy
- * of that mechanism.
- *
- * Parameters: Milliseconds - Number of milliseconds to sleep. A value of 0
- * allows any other waiting processes to run for
- * the rest of the current timeslice.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL od_sleep(tODMilliSec Milliseconds)
-{
-#ifdef ODPLAT_NIX
- struct timeval tv;
- struct timeval start;
-#endif
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_sleep()");
-
- /* Ensure that OpenDoors is initialized before proceeding. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
-#ifdef ODPLAT_DOS
- if(Milliseconds == 0)
- {
- ODPlatYield();
- }
- else
- {
- tODTimer SleepTimer;
- ODTimerStart(&SleepTimer, Milliseconds);
- while(!ODTimerElapsed(&SleepTimer))
- {
- /* Let other tasks run. */
- ODPlatYield();
- }
- }
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- Sleep(Milliseconds);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- if(Milliseconds==0) {
- /* Prevent 100% CPU *only* no delay is actually required here */
- tv.tv_sec=0;
- tv.tv_usec=1;
- select(0,NULL,NULL,NULL,&tv);
- }
- else {
- gettimeofday(&start,NULL);
- start.tv_sec += Milliseconds/1000;
- start.tv_usec += (Milliseconds*1000)%1000000;
-
-
- while(1) {
- /* This is timing sensitive and *MUST* wait for at least Milliseconds regardless of 100% CPU or signals */
- gettimeofday(&tv,NULL);
- tv.tv_sec -= (start.tv_sec + Milliseconds/1000);
- tv.tv_usec -= (start.tv_usec + ((Milliseconds*1000)%1000000));
- if(tv.tv_usec < 0) {
- tv.tv_sec--;
- tv.tv_usec += 1000000;
- }
- if(tv.tv_sec<0 || tv.tv_usec<0)
- break;
- if(!select(0,NULL,NULL,NULL,&tv))
- break;
- }
- }
-#endif
-
- OD_API_EXIT();
-}
-
-
-/* ========================================================================= */
-/* Directory access. */
-/* ========================================================================= */
-
-/* Structure for directories entries returned by DOS. */
-#ifdef ODPLAT_DOS
-typedef struct
-{
- BYTE abtReserved[21];
- BYTE btAttrib;
- WORD wFileTime;
- WORD wFileDate;
- DWORD dwFileSize;
- char szFileName[13];
-} tDOSDirEntry;
-#endif /* ODPLAT_DOS */
-
-
-/* Dir handle structure. */
-typedef struct
-{
- BOOL bEOF;
-#ifdef ODPLAT_DOS
- tDOSDirEntry FindBlock;
-#endif /* ODPLAT_DOS */
-#ifdef ODPLAT_WIN32
- HANDLE hWindowsDir;
- WIN32_FIND_DATA WindowsDirEntry;
- int wAttributes;
-#endif /* ODPLAT_WIN32 */
-#ifdef ODPLAT_NIX
- glob_t g;
- int pos;
- int wAttributes;
-#endif
-} tODDirInfo;
-
-
-/* Directory access private function prototypes. */
-static time_t DOSToCTime(WORD wDate, WORD wTime);
-#ifdef ODPLAT_DOS
-static INT ODDirDOSFindFirst(CONST char *pszPath, tDOSDirEntry *pBlock,
- WORD wAttributes);
-static INT ODDirDOSFindNext(tDOSDirEntry *pBlock);
-#endif /* ODPLAT_DOS */
-#ifdef ODPLAT_WIN32
-static BOOL ODDirWinMatchesAttributes(tODDirInfo *pDirInfo);
-#endif /* ODPLAT_WIN32 */
-
-
-/* ----------------------------------------------------------------------------
- * ODDirOpen()
- *
- * Opens a directory for future access using ODDirRead(). On Success,
- * ODDirOpen() provides a directory handle that represents a list of directory
- * entries that match the specified path and attributes. When finished with
- * the directory handle, the caller should release it using ODDirClose().
- *
- * Parameters: pszPath - Directory with filename (wildcards are supported),
- * for which matching files should be found. If there
- * are no matching files, ODDirOpen() returns with
- * kODRCNoMatch.
- *
- * nAttributes - One or more of the DIR_ATTRIB_... constants,
- * connected by the bitmap-OR (|) operator.
- *
- * phDir - Pointer to a tODDirHandle, into which ODDirOpen()
- * will place a valid directory handle if and only
- * if it returns kODRCSuccess.
- *
- * Return: A tODResult indicating success or reason for failure.
- */
-tODResult ODDirOpen(CONST char *pszPath, WORD wAttributes, tODDirHandle *phDir)
-{
- tODDirInfo *pDirInfo;
-
- ASSERT(pszPath != NULL);
- ASSERT(phDir != NULL);
-
- /* Attempt to allocate a directory information structure. */
- if((pDirInfo = malloc(sizeof(tODDirInfo))) == NULL)
- {
- /* If unable to allocate enough memory, return this state to the */
- /* caller. */
- return(kODRCNoMemory);
- }
-
- /* Initialize directory information structure. */
- pDirInfo->bEOF = FALSE;
-
-#ifdef ODPLAT_DOS
- /* Read the first matching directory entry structure. */
- if(ODDirDOSFindFirst(pszPath, &pDirInfo->FindBlock, wAttributes))
- {
- /* If unable to read directory entry, release directory information */
- /* structure, and return indicating that there are no matching files. */
- free(pDirInfo);
- return(kODRCNoMatch);
- }
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- /* Store a copy of the attributes passed to open function. */
- pDirInfo->wAttributes = wAttributes;
-
- /* Attempt to read first directory entry. */
- pDirInfo->hWindowsDir = FindFirstFile(pszPath, &pDirInfo->WindowsDirEntry);
-
- if(pDirInfo->hWindowsDir == INVALID_HANDLE_VALUE)
- {
- /* If unable to read directory entry, release directory information */
- /* structure, and return indicating that there are no matching files. */
- free(pDirInfo);
- return(kODRCNoMatch);
- }
-
- /* If first file doesn't match specified attributes, then find one that */
- /* does. */
- /* Find next matching entry, if any. */
- while(!ODDirWinMatchesAttributes(pDirInfo))
- {
- if(!FindNextFile(pDirInfo->hWindowsDir, &pDirInfo->WindowsDirEntry))
- {
- /* If unable to find matching directory entry, then release */
- /* structure, return indicating that there are no matching files. */
- free(pDirInfo);
- return(kODRCNoMatch);
- }
- }
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- if(glob(pszPath,GLOB_NOSORT,NULL,&(pDirInfo->g)))
- return(kODRCNoMatch);
- if(pDirInfo->g.gl_pathc==0) {
- globfree(&(pDirInfo->g));
- return(kODRCNoMatch);
- }
- pDirInfo->pos=0;
- pDirInfo->wAttributes = wAttributes;
-#endif
-
- /* Now that open operation is complete, give the caller a directory */
- /* handle. */
- *phDir = ODPTR2HANDLE(pDirInfo, tODDirInfo);
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDirRead()
- *
- * Reads the next directory entry from an open directory, placing the directory
- * information into the tODDirEntry structure pointed to by pDirEntry.
- *
- * Parameters: hDir - Handle to an open directory, as provided by
- * ODDirOpen().
- *
- * pDirEntry - Pointer to structure into which directory entry
- * information should be placed.
- *
- * Return: A tODResult indicating success or reason for failure. After the
- * last directory entry has been read, all subsequent calls to
- * ODDirRead() will return kODRCEndOfFile.
- */
-tODResult ODDirRead(tODDirHandle hDir, tODDirEntry *pDirEntry)
-{
- tODDirInfo *pDirInfo = ODHANDLE2PTR(hDir, tODDirInfo);
-#ifdef ODPLAT_WIN32
- WORD wDOSDate;
- WORD wDOSTime;
-#endif /* ODPLAT_WIN32 */
-#ifdef ODPLAT_NIX
- struct stat st;
-#endif
-
- ASSERT(pDirEntry != NULL);
- ASSERT(pDirInfo != NULL);
-
- /* Check whether the last directory entry has been returned yet. */
- if(pDirInfo->bEOF)
- {
- /* Return this state information to the caller. */
- return(kODRCEndOfFile);
- }
-
-#ifdef ODPLAT_DOS
- /* Provide the caller with the information from the previously read */
- /* directory entry. */
-
- /* Copy the filename to the caller's structure. */
- ODStringCopy(pDirEntry->szFileName, pDirInfo->FindBlock.szFileName,
- DIR_FILENAME_SIZE);
-
- /* Copy the attributes to the caller's structure. */
- pDirEntry->wAttributes = pDirInfo->FindBlock.btAttrib;
-
- /* Copy the file size to the caller's structure. */
- pDirEntry->dwFileSize = pDirInfo->FindBlock.dwFileSize;
-
- /* Determine the last file write time, in C library time format. */
- pDirEntry->LastWriteTime = DOSToCTime(pDirInfo->FindBlock.wFileDate,
- pDirInfo->FindBlock.wFileTime);
-
- /* Read next directory entry, if any. */
- pDirInfo->bEOF = ODDirDOSFindNext(&pDirInfo->FindBlock);
-
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- /* Provide the caller with the information from the previously read */
- /* directory entry. */
-
- /* Copy filename from Win32 8.3 filename. */
- if(strlen(pDirInfo->WindowsDirEntry.cAlternateFileName) == 0)
- {
- ODStringCopy(pDirEntry->szFileName,
- pDirInfo->WindowsDirEntry.cFileName, DIR_FILENAME_SIZE);
- }
- else
- {
- ODStringCopy(pDirEntry->szFileName,
- pDirInfo->WindowsDirEntry.cAlternateFileName, DIR_FILENAME_SIZE);
- }
-
- /* Copy attribute bits. */
- pDirEntry->wAttributes = DIR_ATTRIB_NORMAL;
- if(pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE)
- {
- pDirEntry->wAttributes |= DIR_ATTRIB_ARCH;
- }
- if(pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
- {
- pDirEntry->wAttributes |= DIR_ATTRIB_DIREC;
- }
- if(pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN)
- {
- pDirEntry->wAttributes |= DIR_ATTRIB_HIDDEN;
- }
- if(pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
- {
- pDirEntry->wAttributes |= DIR_ATTRIB_RDONLY;
- }
- if(pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM)
- {
- pDirEntry->wAttributes |= DIR_ATTRIB_SYSTEM;
- }
-
- /* Copy the file size to the caller's structure. */
- pDirEntry->dwFileSize = (long)pDirInfo->WindowsDirEntry.nFileSizeLow;
-
- /* Determine the last file write time, in C library time format. */
- FileTimeToDosDateTime(&pDirInfo->WindowsDirEntry.ftLastWriteTime, &wDOSDate,
- &wDOSTime);
- pDirEntry->LastWriteTime = DOSToCTime(wDOSDate, wDOSTime);
-
- /* Find next matching entry, if any. */
- do
- {
- if(!FindNextFile(pDirInfo->hWindowsDir, &pDirInfo->WindowsDirEntry))
- {
- pDirInfo->bEOF = TRUE;
- }
- } while(!ODDirWinMatchesAttributes(pDirInfo));
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- while(!pDirInfo->bEOF) {
- if(strrchr(pDirInfo->g.gl_pathv[pDirInfo->pos],DIRSEP)==NULL)
- strcpy(pDirEntry->szFileName,pDirInfo->g.gl_pathv[pDirInfo->pos]);
- else
- strcpy(pDirEntry->szFileName,strrchr(pDirInfo->g.gl_pathv[pDirInfo->pos],DIRSEP));
- stat(pDirInfo->g.gl_pathv[pDirInfo->pos],&st);
- pDirEntry->wAttributes=DIR_ATTRIB_NORMAL;
- if(st.st_mode & S_IFDIR)
- pDirEntry->wAttributes |= DIR_ATTRIB_DIREC;
- if(!st.st_mode & S_IWUSR)
- pDirEntry->wAttributes |= DIR_ATTRIB_RDONLY;
- if(!st.st_mode & S_IRUSR)
- pDirEntry->wAttributes |= DIR_ATTRIB_SYSTEM;
- pDirEntry->LastWriteTime=st.st_mtime;
- pDirEntry->dwFileSize=st.st_size;
- pDirInfo->pos++;
- if(pDirInfo->pos==pDirInfo->g.gl_pathc)
- pDirInfo->bEOF=TRUE;
- if(pDirEntry->wAttributes==pDirInfo->wAttributes)
- return(kODRCSuccess);
- if(pDirInfo->bEOF==TRUE)
- return(kODRCEndOfFile);
- }
-#endif
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDirClose()
- *
- * Closes and open directory handle.
- *
- * Parameters: hDir - Handle to an open directory handle, as provided by the
- * ODDirOpen() function.
- *
- * Return: void
- */
-void ODDirClose(tODDirHandle hDir)
-{
- tODDirInfo *pDirInfo = ODHANDLE2PTR(hDir, tODDirInfo);
-
- ASSERT(pDirInfo != NULL);
-
-#ifdef ODPLAT_WIN32
- /* Under Win32, close directory handle. */
- FindClose(pDirInfo->hWindowsDir);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- globfree(&(pDirInfo->g));
-#endif
-
- /* Free the directory information structure. */
- free(pDirInfo);
-}
-
-
-/* ----------------------------------------------------------------------------
- * DOSToCTime() *** PRIVATE FUNCTION ***
- *
- * Converts DOS directory entry time format to the C library time format.
- *
- * Parameters: uDate - Date portion of the time to be converted.
- *
- * uTime - Time of day portion of the time to be converted.
- *
- * Return: The specified time, represented as a time_t.
- */
-static time_t DOSToCTime(WORD wDate, WORD wTime)
-{
- struct tm TimeStruct;
-
- TimeStruct.tm_sec = (wTime & 0x001f) * 2;
- TimeStruct.tm_min = (wTime & 0x07e0) >> 5;
- TimeStruct.tm_hour = (wTime & 0xf800) >> 11;
- TimeStruct.tm_mday = wDate & 0x001f;
- TimeStruct.tm_mon = ((wDate & 0x01e0) >> 5) - 1;
- TimeStruct.tm_year = 80 + ((wDate & 0xfe00) >> 9);
-
- return(mktime(&TimeStruct));
-}
-
-
-/* MS-DOS specific functions for directory access. */
-#ifdef ODPLAT_DOS
-
-/* ----------------------------------------------------------------------------
- * ODDirDOSFindFirst() *** PRIVATE FUNCTION ***
- *
- * MS-DOS specific "Find First" function for reading directory entries. This
- * is essentially just a C-language interface to the interrupt function call
- * that is provided by DOS.
- *
- * Parameters: pszPath - Pointer to string containing directory and
- * filespec to search for.
- *
- * pBlock - Pointer to directory block.
- *
- * nAttributes - Attributes to match, if any.
- *
- * Return: 0 on success, -1 on failure.
- */
-static int ODDirDOSFindFirst(CONST char *pszPath, tDOSDirEntry *pBlock,
- WORD wAttributes)
-{
- int nToReturn;
-
- ASSERT(pszPath != NULL);
- ASSERT(pBlock != NULL);
-
- ASM push ds
- ASM mov ah, 0x2f /* Int 0x21, ah=0x2f: Get current DOS DTA */
- ASM int 0x21 /* Get current DTA */
- ASM push bx /* Store offset of current DTA on stack */
- ASM push es /* Store segment of current DTA on stack */
- ASM mov ah, 0x1a /* Int 0x21, ah=0x1a: Set new DOS DTA */
-#ifdef LARGEDATA /* If using far pointers */
- ASM lds dx, pBlock /* Load DS:DX with far address of pBlock */
-#else /* If using near pointers */
- ASM mov dx, pBlock /* Load DX with near address of pBlock */
-#endif
- ASM int 0x21 /* Set DOS DTA */
- ASM mov ah, 0x4e /* Int 0x21, ah=0x4e: DOS findfirst function */
- ASM mov cx, wAttributes /* Load attributes into CX */
-#ifdef LARGEDATA /* If using far pointers */
- ASM lds dx, pszPath /* Load DS:DX with far address in pszPath */
-#else /* If using near pointers */
- ASM mov dx, pszPath /* Load DX with near address in pszPath */
-#endif
- ASM int 0x21 /* Call findfirst function */
- ASM jc error /* If carry flag is set, then an error has ocurred */
- ASM mov word ptr nToReturn, 0 /* If no error, return 0 */
- ASM jmp after_result
-error:
- ASM mov word ptr nToReturn, -1 /* If error, return -1 */
-after_result:
- ASM mov ah, 0x1a /* Int 0x21, ah=0x1a: Set new DOS DTA */
- ASM pop ds /* Pop original DTA segment off of stack */
- ASM pop dx /* Pop original DTA offest from stack */
- ASM int 0x21 /* Reset DOS DTA to original */
- ASM pop ds /* Restore DS stored at function startup */
- return(nToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDirDOSFindNext() *** PRIVATE FUNCTION ***
- *
- * MS-DOS specific "Find Next" function for reading directory entries. This
- * is essentially just a C-language interface to the interrupt function call
- * that is provided by DOS.
- *
- * Parameters: pBlock - Pointer to block in which to store next directory
- * entry.
- *
- * Return: 0 on success, -1 on failure.
- */
-static int ODDirDOSFindNext(tDOSDirEntry *pBlock)
-{
- int nToReturn;
-
- ASSERT(pBlock != NULL);
-
- ASM push ds /* Save DS */
- ASM mov ah, 0x2f /* Int 0x21, ah=0x2f: Get current DOS DTA */
- ASM int 0x21 /* Get current DTA */
- ASM push bx /* Store offset of current DTA on stack */
- ASM push es /* Store segment of current DTA on stack */
- ASM mov ah, 0x1a /* Int 0x21, ah=0x1a: Set new DOS DTA */
-#ifdef LARGEDATA /* If using far pointers */
- ASM lds dx, pBlock /* Load DS:DX with far address of pBlock */
-#else /* If using near pointers */
- ASM mov dx, pBlock /* Load DX with near address of pBlock */
-#endif
- ASM int 0x21 /* Set DOS DTA */
- ASM mov ah, 0x4f /* Int 0x21, ah=0x4f: DOS findnext function */
- ASM int 0x21 /* Call findfirst function */
- ASM jc error /* If carry flag is set, then an error has ocurred */
- ASM mov word ptr nToReturn, 0 /* If no error, return 0 */
- ASM jmp after_result
-error:
- ASM mov word ptr nToReturn, -1 /* If error, return -1 */
-after_result:
- ASM mov ah, 0x1a /* Int 0x21, ah=0x1a: Set new DOS DTA */
- ASM pop ds /* Pop original DTA segment off of stack */
- ASM pop dx /* Pop original DTA offest from stack */
- ASM int 0x21 /* Reset DOS DTA to original */
- ASM pop ds /* Restore DS stored at function startup */
- return(nToReturn);
-}
-
-#endif /* ODPLAT_DOS */
-
-
-/* Win32 specific private functions for directory access. */
-#ifdef ODPLAT_WIN32
-/* ----------------------------------------------------------------------------
- * ODDirWinMatchesAttributes() *** PRIVATE FUNCTION ***
- *
- * Determines whether or not the directory entry pDirInfo->WindowsDirEntry
- * meets the attribute requirements specified in pDirInfo->nAttributes
- *
- * Parameters: pDirInfo - Pointer to a directory information structure with
- * attribute and directory entry values.
- *
- * Return: TRUE if the file matches the attributes, FALSE if it does not.
- */
-static BOOL ODDirWinMatchesAttributes(tODDirInfo *pDirInfo)
-{
- if((pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
- && !(pDirInfo->wAttributes & DIR_ATTRIB_DIREC))
- {
- return(FALSE);
- }
-
- if((pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE)
- && !(pDirInfo->wAttributes & DIR_ATTRIB_ARCH))
- {
- return(FALSE);
- }
-
- if((pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN)
- && !(pDirInfo->wAttributes & DIR_ATTRIB_HIDDEN))
- {
- return(FALSE);
- }
-
- if((pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
- && !(pDirInfo->wAttributes & DIR_ATTRIB_RDONLY))
- {
- return(FALSE);
- }
-
- if((pDirInfo->WindowsDirEntry.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM)
- && !(pDirInfo->wAttributes & DIR_ATTRIB_SYSTEM))
- {
- return(FALSE);
- }
-
- return(TRUE);
-}
-#endif /* ODPLAT_WIN32 */
-
-
-/* ----------------------------------------------------------------------------
- * ODDirChangeCurrent()
- *
- * Changes current directory to the one specified.
- *
- * Parameters: pszPath - String containing path to change to.
- *
- * Return: void
- */
-void ODDirChangeCurrent(char *pszPath)
-{
-#ifdef ODPLAT_DOS
- int nDrive = 0;
-
- if(pszPath[1] == ':')
- {
- nDrive = (toupper(pszPath[0]) - 'A');
- }
-
- _setdrvcd(nDrive, (char *)pszPath);
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- SetCurrentDirectory(pszPath);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- chdir(pszPath);
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDirGetCurrent()
- *
- * Obtains the name of the current directory, including the current drive
- * designator.
- *
- * Parameters: pszPath - String containing path to change to.
- *
- * nMaxPathChars - Maximum characters in the buffer pointer to by
- * pszPath.
- *
- * Return: void
- */
-void ODDirGetCurrent(char *pszPath, INT nMaxPathChars)
-{
- ASSERT(pszPath != NULL);
- ASSERT(nMaxPathChars > 0);
-
-#ifdef ODPLAT_DOS
- UNUSED(nMaxPathChars);
-
- strcpy(pszPath, "X:\\");
- pszPath[0] = 'A' + _getdrv();
- _getcd(0, (char *)pszPath + 3);
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- GetCurrentDirectory(nMaxPathChars, pszPath);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- getcwd(pszPath,nMaxPathChars);
-#endif
-
- ASSERT((INT)strlen(pszPath) + 1 <= nMaxPathChars);
-}
-
-
-/* ========================================================================= */
-/* Misc. Functions */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODFileDelete()
- *
- * Deletes the file with the specified filename.
- *
- * Parameters: pszPath - Filename, possibly with path, to delete.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODFileDelete(CONST char *pszPath)
-{
-#ifdef ODPLAT_DOS
- {
- tODResult Result;
-
- ASM push ds
-#ifdef LARGEDATA
- ASM lds dx, pszPath
-#else /* !LARGEDATA */
- ASM mov ax, ss
- ASM mov ds, ax
- ASM mov dx, pszPath
-#endif /* !LARGEDATA */
- ASM mov ah, 0x41
- ASM int 0x21
- ASM jc Failure
- ASM mov word ptr Result, kODRCSuccess
- ASM jmp Done
-Failure:
- ASM mov word ptr Result, kODRCGeneralFailure
-Done:
- ASM pop ds
-
- return(Result);
- }
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- return(DeleteFile(pszPath) ? kODRCSuccess : kODRCGeneralFailure);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- return(unlink(pszPath));
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFileAccessMode()
- *
- * Determines the access permissions of a file.
- *
- * Parameters: pszFilename - Name of file to test.
- *
- * nAccessMode - Indicates which file access mode to test for.
- * A value of 0 indicates existance, 2 indicates
- * write permission, 4 indicates read permission,
- * and 6 indicates read/write permission.
- *
- * Return: FALSE if file can be accessed or TRUE if file cannot be
- * accessed.
- */
-BOOL ODFileAccessMode(char *pszFilename, int nAccessMode)
-{
- FILE *pfFileToTest;
- char *pszModeString;
- tODDirHandle hDir;
-
-#ifdef ODPLAT_DOS
- BYTE nLength;
- /* If we are looking for the root directory. */
- nLength = strlen(pszFilename);
- if((nLength == 3 && pszFilename[1] == ':' && pszFilename[2] == DIRSEP) ||
- (nLength == 1 && pszFilename[0] == DIRSEP))
- {
- if(nAccessMode == 0)
- {
- int to_return = FALSE;
-
-#ifdef LARGEDATA
- ASM push ds
- ASM lds dx, pszFilename
-#else
- ASM mov dx, pszFilename
-#endif
- ASM mov ax, 0x4300
- ASM int 0x21
- ASM jnc done
- ASM mov word ptr to_return, TRUE
-done:
-#ifdef LARGEDATA
- ASM pop ds
-#endif
- return(to_return);
- }
- else
- {
- return(TRUE);
- }
- }
-#endif /* ODPLAT_DOS */
-
- /* If the file doesn't exit, we fail in any mode. */
- if(ODDirOpen(pszFilename,
- DIR_ATTRIB_ARCH | DIR_ATTRIB_RDONLY | DIR_ATTRIB_DIREC,
- &hDir) != kODRCSuccess)
- {
- return(TRUE);
- }
-
- /* If directory open succeeded, then close it again. */
- ODDirClose(hDir);
-
- /* If the file does exist, then amode 0 is satisfied. */
- if(nAccessMode == 0) return(FALSE);
-
- /* If testing for an access permission, determine corresponding fopen() */
- /* mode. */
- switch(nAccessMode)
- {
- case 2:
- pszModeString = "a";
- break;
- case 4:
- pszModeString = "r";
- break;
- default:
- pszModeString = "r+";
- }
-
- /* Attempt to open the file, if unable to do so return failure. */
- if((pfFileToTest=fopen(pszFilename,pszModeString)) == NULL) return(TRUE);
-
- /* If file open was successful, close it again, and return success. */
- fclose(pfFileToTest);
- return(FALSE);
-}
diff --git a/src/odoors/ODPlat.h b/src/odoors/ODPlat.h
deleted file mode 100644
index b7f894ddcb8e272ab7d5e884b2cb3ea400939445..0000000000000000000000000000000000000000
--- a/src/odoors/ODPlat.h
+++ /dev/null
@@ -1,204 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODPlat.h
- *
- * Description: Contains platform-related definitions and prototypes for
- * those function's whose implementation is platform-specific
- * (functions implemented in odplat.c). Non-platform specific
- * utility functions are defined in odutil.h and implemented in
- * odutil.c.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 14, 1994 6.00 BP Created.
- * Nov 01, 1994 6.00 BP Added ODDir...() functions.
- * Dec 31, 1994 6.00 BP Added timing, file delete functions.
- * Dec 31, 1994, 6.00 BP Added ODMultitasker and ODPlatInit()
- * Nov 14, 1995 6.00 BP 32-bit portability.
- * Nov 17, 1995 6.00 BP Added multithreading functions.
- * Dec 13, 1995 6.00 BP Added ODThreadWaitForExit().
- * Dec 13, 1995 6.00 BP Added ODThreadGetCurrent().
- * Jan 23, 1996 6.00 BP Added ODProcessExit().
- * Jan 30, 1996 6.00 BP Add semaphore timeout.
- * Jan 31, 1996 6.00 BP Add ODTimerLeft(), rm ODTimerSleep().
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODPLAT
-#define _INC_ODPLAT
-
-#include <time.h>
-
-#include "ODTypes.h"
-#include "ODGen.h"
-
-#ifdef ODPLAT_NIX
-#include <sys/time.h>
-#endif
-
-#ifdef ODPLAT_WIN32
-#include "windows.h"
-#endif /* ODPLAT_WIN32 */
-
-/* odplat.c initialization function prototype */
-void ODPlatInit(void);
-
-
-/* ========================================================================= */
-/* Millisecond timer functions. */
-/* ========================================================================= */
-
-/* Timer data type. */
-typedef struct
-{
-#ifdef ODPLAT_DOS
- clock_t Start;
- clock_t Duration;
-#elif defined(ODPLAT_NIX)
- long Start_sec;
- long Start_usec;
- tODMilliSec Duration;
-#else /* !ODPLAT_DOS */
- tODMilliSec Start;
- tODMilliSec Duration;
-#endif /* !ODPLAT_DOS */
-} tODTimer;
-
-/* Timer function prototypes. */
-void ODTimerStart(tODTimer *pTimer, tODMilliSec Duration);
-BOOL ODTimerElapsed(tODTimer *pTimer);
-void ODTimerWaitForElapse(tODTimer *pTimer);
-tODMilliSec ODTimerLeft(tODTimer *pTimer);
-
-
-/* ========================================================================= */
-/* Multithreading and synchronization support. */
-/* ========================================================================= */
-
-#ifdef OD_MULTITHREADED
-
-/* Thread handle data type. */
-#ifdef ODPLAT_WIN32
-typedef HANDLE tODThreadHandle;
-#endif /* ODPLAT_WIN32 */
-
-/* Thread priority enumeration. */
-typedef enum
-{
- OD_PRIORITY_LOWEST,
- OD_PRIORITY_BELOW_NORMAL,
- OD_PRIORITY_NORMAL,
- OD_PRIORITY_ABOVE_NORMAL,
- OD_PRIORITY_HIGHEST
-} tODThreadPriority;
-
-/* Thread start proceedure type. */
-#define OD_THREAD_FUNC WINAPI
-#ifdef ODPLAT_WIN32
-typedef DWORD (OD_THREAD_FUNC ptODThreadProc)(void *);
-#endif /* ODPLAT_WIN32 */
-
-/* Thread creation, temination and suspension. */
-tODResult ODThreadCreate(tODThreadHandle *phThread,
- ptODThreadProc *pfThreadProc, void *pThreadParam);
-void ODThreadExit();
-tODResult ODThreadTerminate(tODThreadHandle hThread);
-tODResult ODThreadSuspend(tODThreadHandle hThread);
-tODResult ODThreadResume(tODThreadHandle hThread);
-tODResult ODThreadSetPriority(tODThreadHandle hThread,
- tODThreadPriority ThreadPriority);
-void ODThreadWaitForExit(tODThreadHandle hThread);
-tODThreadHandle ODThreadGetCurrent(void);
-
-
-/* Semaphore handle data type. */
-#ifdef ODPLAT_WIN32
-typedef HANDLE tODSemaphoreHandle;
-#endif /* ODPLAT_WIN32 */
-
-/* Semaphore manipulation functions. */
-tODResult ODSemaphoreAlloc(tODSemaphoreHandle *phSemaphore, INT nInitialCount,
- INT nMaximumCount);
-void ODSemaphoreFree(tODSemaphoreHandle hSemaphore);
-void ODSemaphoreUp(tODSemaphoreHandle hSemaphore, INT nIncrementBy);
-tODResult ODSemaphoreDown(tODSemaphoreHandle hSemaphore, tODMilliSec Timeout);
-
-#endif /* OD_MULTITHREADED */
-
-void ODProcessExit(INT nExitCode);
-
-
-/* ========================================================================= */
-/* DOS multitasker information. */
-/* ========================================================================= */
-#ifdef ODPLAT_DOS
-typedef enum
-{
- kMultitaskerNone,
- kMultitaskerDV,
- kMultitaskerWin,
- kMultitaskerOS2
-} tODMultitasker;
-
-extern tODMultitasker ODMultitasker;
-#endif /* ODPLAT_DOS */
-
-
-/* ========================================================================= */
-/* Directory Access. */
-/* ========================================================================= */
-
-/* Open directory handle type. */
-typedef tODHandle tODDirHandle;
-
-/* Directory entry structure. */
-#define DIR_FILENAME_SIZE 1024
-
-#define DIR_ATTRIB_NORMAL 0x00
-#define DIR_ATTRIB_RDONLY 0x01
-#define DIR_ATTRIB_HIDDEN 0x02
-#define DIR_ATTRIB_SYSTEM 0x04
-#define DIR_ATTRIB_LABEL 0x08
-#define DIR_ATTRIB_DIREC 0x10
-#define DIR_ATTRIB_ARCH 0x20
-
-typedef struct
-{
- char szFileName[DIR_FILENAME_SIZE];
- WORD wAttributes;
- time_t LastWriteTime;
- DWORD dwFileSize;
-} tODDirEntry;
-
-/* Directory function prototypes. */
-tODResult ODDirOpen(CONST char *pszPath, WORD wAttributes, tODDirHandle *phDir);
-tODResult ODDirRead(tODDirHandle hDir, tODDirEntry *pDirEntry);
-void ODDirClose(tODDirHandle hDir);
-void ODDirChangeCurrent(char *pszPath);
-void ODDirGetCurrent(char *pszPath, INT nMaxPathChars);
-
-
-/* ========================================================================= */
-/* Miscellaneous Functions. */
-/* ========================================================================= */
-tODResult ODFileDelete(CONST char *pszPath);
-BOOL ODFileAccessMode(char *pszFilename, int nAccessMode);
-
-#endif /* !_INC_ODPLAT */
diff --git a/src/odoors/ODPopup.c b/src/odoors/ODPopup.c
deleted file mode 100644
index 29d495c7b6049ea124b6f892a88d95ad6bb82caa..0000000000000000000000000000000000000000
--- a/src/odoors/ODPopup.c
+++ /dev/null
@@ -1,716 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODPopUp.c
- *
- * Description: Implements od_popup_menu(), for displaying a menu in
- * a window, allowing the user to make a selection using
- * "hot keys" or by using arrow keys.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Jan 15, 1995 6.00 BP Free menu structure on menu destroy.
- * Feb 02, 1995 6.00 BP Added od_yield() call in for(;;) loop.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Change valid range of nLevel to 0-10.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 23, 1995 6.00 BP Restore original color on exit.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 04, 1996 6.00 BP Use od_get_input().
- * Jan 12, 1996 6.00 BP Claim exclusive use of arrow keys.
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 31, 1996 6.00 BP Added timeout for od_get_input().
- * Jan 31, 1996 6.00 BP Add ODPopupCheckForKey() wait param.
- * Jan 31, 1996 6.00 BP Ignore left & right if !MENU_PULLDOWN.
- * Feb 13, 1996 6.00 BP Added od_get_input() flags parameter.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <ctype.h>
-#include <string.h>
-#include <stdlib.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODKrnl.h"
-#include "ODStat.h"
-
-
-/* Configurable od_popup_menu() parameters. */
-
-/* Maximum menu level. */
-#define MENU_LEVELS 11
-
-/* Maximum number of items in a menu. */
-#define MAX_MENU_ITEMS 21
-
-/* Maximum width of any menu item. */
-#define MAX_ITEM_WIDTH 76
-
-
-/* Other manifest constants. */
-#define NO_COMMAND -10
-
-
-/* Local data types. */
-
-/* Information on an individual menu item. */
-typedef struct
-{
- char szItemText[MAX_ITEM_WIDTH + 1];
- BYTE btKeyIndex;
-} tMenuItem;
-
-/* Information on a popup menu level. */
-typedef struct
-{
- tMenuItem *paMenuItems;
- BYTE btNumMenuItems;
- BYTE btWidth;
- BYTE btRight;
- BYTE btBottom;
- BYTE btCursor;
- BYTE btLeft;
- BYTE btTop;
- WORD wFlags;
- void *pWindow;
-} tMenuLevelInfo;
-
-
-/* Private variables. */
-
-/* Array of information on each menu level. */
-tMenuLevelInfo MenuLevelInfo[MENU_LEVELS];
-
-/* Current menu settings. */
-static BYTE btCorrectItem;
-static INT nCommand;
-static WORD wCurrentFlags;
-static BYTE btCurrentNumMenuItems;
-static INT nCurrentLevel;
-
-
-/* Private helper functions used by od_popup_menu(). */
-static void ODPopupCheckForKey(BOOL bWaitForInput);
-static void ODPopupDisplayMenuItem(BYTE btLeft, BYTE btTop,
- tMenuItem *paMenuItems, BYTE btItemIndex, BOOL bHighlighted, BYTE btWidth,
- BOOL bPositionCursor);
-
-
-/* ----------------------------------------------------------------------------
- * od_popup_menu()
- *
- * Displays a popup menu on the local and remote screens.
- *
- * Parameters: pszTitle - Text to show as the window title of the popup menu.
- * If no title is desired, this parameter should be set
- * to either "" or NULL.
- *
- * pszText - String which contains the menu definition. In the
- * menu definition string, individual menu items are
- * separated by a pipe ('|') character, and hotkeys are
- * proceeded by a carat ('^') character.
- *
- * nLeft - The 1-based column number of the upper right corner
- * of the menu.
- *
- * nTop - The 1-based row number of the upper right corner of
- * the menu.
- *
- * nLevel - Menu level, which must be a value between 0 and
- * MENU_LEVELS.
- *
- * uFlags - One or more flags, combined by the bitwise or (|)
- * operator.
- *
- * Return: POPUP_ERROR on error, POPUP_ESCAPE if user pressed the Escape
- * key, POPUP_LEFT if the user choose to move to the next menu to
- * the left, POPUP_RIGHT if the user choose to move to the next
- * menu to the right, or a postive value if the user choose an item
- * from the menu. In this case, the return value is the 1-based
- * index of the selected menu item.
- */
-ODAPIDEF INT ODCALL od_popup_menu(char *pszTitle, char *pszText, INT nLeft,
- INT nTop, INT nLevel, WORD uFlags)
-{
- tMenuItem *paMenuItems = NULL;
- BYTE btCount;
- BYTE btWidth;
- BYTE btRight;
- BYTE btBottom;
- BYTE btCursor;
- BYTE btLeft;
- BYTE btTop;
- void *pWindow;
- BYTE btBetweenSize;
- BYTE btTitleSize;
- BYTE btRemaining;
- BYTE btLineCount;
- INT16 nOriginalAttrib;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_popup_menu()");
-
- /* Initialize OpenDoors, if not already done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Setup od_box_chars appropriately. */
- if(od_control.od_box_chars[BOX_BOTTOM] == 0)
- {
- od_control.od_box_chars[BOX_BOTTOM] = od_control.od_box_chars[BOX_TOP];
- }
- if(od_control.od_box_chars[BOX_RIGHT] == 0)
- {
- od_control.od_box_chars[BOX_RIGHT] = od_control.od_box_chars[BOX_LEFT];
- }
-
- /* Store initial display color. */
- nOriginalAttrib = od_control.od_cur_attrib;
-
-
- /* check level bounds */
- if(nLevel < 0 || nLevel > MENU_LEVELS)
- {
- od_control.od_error = ERR_LIMIT;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
- /* normalize level */
- nCurrentLevel = nLevel;
-
- if(MenuLevelInfo[nLevel].pWindow == NULL)
- {
- btLeft = nLeft;
- btTop = nTop;
- wCurrentFlags = uFlags;
-
- if(pszText == NULL)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
-
- if(paMenuItems == NULL)
- {
- if((paMenuItems = malloc(sizeof(tMenuItem) * MAX_MENU_ITEMS)) == NULL)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
- }
- MenuLevelInfo[nLevel].paMenuItems = paMenuItems;
-
- btCurrentNumMenuItems = 0;
- btWidth = 0;
- btCount = 0;
- nCommand = NO_COMMAND;
- paMenuItems[0].btKeyIndex = 0;
- while(*pszText && btCurrentNumMenuItems < MAX_MENU_ITEMS)
- {
- switch(*pszText)
- {
- case '|':
- paMenuItems[btCurrentNumMenuItems++].szItemText[btCount]
- = '\0';
- if(btCount > btWidth) btWidth = btCount;
- btCount = 0;
- paMenuItems[btCurrentNumMenuItems].btKeyIndex = 0;
- break;
-
- case '^':
- if(btCount < MAX_ITEM_WIDTH)
- {
- paMenuItems[btCurrentNumMenuItems].btKeyIndex = btCount;
- }
- break;
-
- default:
- if(btCount < MAX_ITEM_WIDTH)
- {
- paMenuItems[btCurrentNumMenuItems].szItemText[btCount++] =
- *pszText;
- }
- }
- ++pszText;
- }
-
- /* If we were in the middle of a menu item when we encountered the end */
- /* of the string, then it should form an additional menu entry. This */
- /* handles the case of a menu string to no terminating | for the last */
- /* entry. */
- if(btCount != 0)
- {
- /* null-terminate current menu entry string */
- paMenuItems[btCurrentNumMenuItems++].szItemText[btCount] = '\0';
-
- /* If this is the widest entry, update he menu width appropriately */
- if(btCount > btWidth) btWidth = btCount;
- }
-
- /* If the menu description string does not contain any menu items */
- if(btCurrentNumMenuItems == 0)
- {
- /* Return with parameter error */
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
-
- /* Adjust menu width to allow title to fit, if possible */
- /* If a title string was passed, and that string is wider than widest */
- /* menu entry ... */
- if(pszTitle != NULL && strlen(pszTitle) + 2 > btWidth)
- {
- /* Then width of menu window should be large enough to allow up to */
- /* the first 76 characters of the title to fit. */
- btWidth = strlen(pszTitle) + 2 > MAX_ITEM_WIDTH
- ? MAX_ITEM_WIDTH : strlen(pszTitle) + 2;
- }
-
- /* Based on number and size of menu items, and width of title, */
- /* determine the bottom, right and inside width of the menu. */
- btBottom = btTop + btCurrentNumMenuItems + 1;
- btRight = btLeft + btWidth + 3;
- btBetweenSize = (btRight - btLeft) - 1;
-
- /* If neither ANSI nor AVATAR mode is available, return with an error */
- if(!(od_control.user_ansi || od_control.user_avatar))
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
-
- /* If menu would "fall off" edge of screen, return with an error */
- if(btLeft < 1 || btTop < 1 || btRight > OD_SCREEN_WIDTH
- || btBottom > OD_SCREEN_HEIGHT || btRight - btLeft < 2
- || btBottom - btTop < 2)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
-
- /* Allocate space to store window information. If unable to allocate */
- /* enough space, return with an error. */
- if((pWindow = malloc((btRight - btLeft + 1) * 2
- + (btBottom - btTop + 1) * 160)) == NULL)
- {
- od_control.od_error = ERR_MEMORY;
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
-
- /* Store contents of screen where memu will be drawn in the temporary */
- /* buffer. */
- if(!od_gettext(btLeft, btTop, btRight, btBottom, pWindow))
- {
- free(pWindow);
- pWindow = NULL;
-
- /* Note that od_error code has been set in od_gettext(). */
- OD_API_EXIT();
- return(POPUP_ERROR);
- }
-
- /* Determine number of characters of title to be displayed */
- if(pszTitle == NULL)
- {
- btTitleSize = 0;
- }
- else
- {
- if((btTitleSize = strlen(pszTitle)) > (btBetweenSize - 4))
- {
- btTitleSize = btBetweenSize - 4;
- }
- }
-
- od_set_cursor(btTop,btLeft);
- od_set_attrib(od_control.od_menu_border_col);
- od_putch(od_control.od_box_chars[BOX_UPPERLEFT]);
- if(btTitleSize == 0)
- {
- od_repeat(od_control.od_box_chars[BOX_TOP], btBetweenSize);
- }
- else
- {
- od_repeat(od_control.od_box_chars[BOX_TOP],
- btRemaining = ((btBetweenSize - btTitleSize - 2) / 2));
- od_set_attrib(od_control.od_menu_title_col);
- od_putch(' ');
- od_disp(pszTitle,btTitleSize, TRUE);
- od_putch(' ');
- od_set_attrib(od_control.od_menu_border_col);
- od_repeat(od_control.od_box_chars[BOX_TOP],
- (BYTE)(btBetweenSize - btRemaining - btTitleSize - 2));
- }
- od_putch(od_control.od_box_chars[BOX_UPPERRIGHT]);
-
- btLineCount = btTop + 1;
- btCorrectItem = 0;
- ODPopupCheckForKey(FALSE);
- btCursor = btCorrectItem;
- for(btCount = 0; btCount < btCurrentNumMenuItems
- && btLineCount < btBottom; ++btCount)
- {
- ODPopupCheckForKey(FALSE);
- if(nCommand != NO_COMMAND && !(wCurrentFlags & MENU_KEEP))
- {
- goto exit_now;
- }
-
- od_set_cursor(btLineCount,btLeft);
- od_putch(od_control.od_box_chars[BOX_LEFT]);
- od_set_attrib(od_control.od_menu_text_col);
-
- if(btCount == btCursor)
- {
- ODPopupDisplayMenuItem(btLeft, btTop, paMenuItems, btCount,
- TRUE, btWidth, FALSE);
- }
- else
- {
- ODPopupDisplayMenuItem(btLeft, btTop, paMenuItems, btCount,
- FALSE, btWidth, FALSE);
- }
-
- od_set_attrib(od_control.od_menu_border_col);
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
- ++btLineCount;
- }
-
- od_set_cursor(btBottom, btLeft);
- od_putch(od_control.od_box_chars[BOX_LOWERLEFT]);
- od_repeat(od_control.od_box_chars[BOX_BOTTOM], btBetweenSize);
- od_putch(od_control.od_box_chars[BOX_LOWERRIGHT]);
- od_set_cursor(btTop + 1, btLeft + 1);
- }
- else
- {
- paMenuItems = MenuLevelInfo[nLevel].paMenuItems;
- btCurrentNumMenuItems = MenuLevelInfo[nLevel].btNumMenuItems;
- btWidth = MenuLevelInfo[nLevel].btWidth;
- btRight = MenuLevelInfo[nLevel].btRight;
- btBottom = MenuLevelInfo[nLevel].btBottom;
- btLeft = MenuLevelInfo[nLevel].btLeft;
- btTop = MenuLevelInfo[nLevel].btTop;
- wCurrentFlags = MenuLevelInfo[nLevel].wFlags;
- pWindow = MenuLevelInfo[nLevel].pWindow;
- btCorrectItem = btCursor = MenuLevelInfo[nLevel].btCursor;
- nCommand = NO_COMMAND;
-
- if(uFlags & MENU_DESTROY)
- {
- nCommand = POPUP_ESCAPE;
- goto destroy;
- }
-
- /* Otherwise, position flashing hardware cursor appropriately */
- od_set_cursor(btTop + btCursor + 1, btLeft + 1);
- }
-
- /* Claim exclusive use of arrow keys. */
- ODStatStartArrowUse();
-
- for(;;)
- {
- ODPopupCheckForKey(TRUE);
- if(btCorrectItem != btCursor)
- {
- ODPopupDisplayMenuItem(btLeft, btTop, paMenuItems, btCursor,
- FALSE, btWidth, TRUE);
- btCursor = btCorrectItem;
- ODWaitDrain(25);
- ODPopupCheckForKey(FALSE);
- ODPopupDisplayMenuItem(btLeft, btTop, paMenuItems, btCursor,
- TRUE, btWidth, TRUE);
- }
-
- if(nCommand != NO_COMMAND)
- {
- goto exit_now;
- }
- }
-
-exit_now:
- if((!(wCurrentFlags & MENU_KEEP)) || nCommand <= 0)
- {
-destroy:
- od_puttext(btLeft, btTop, btRight, btBottom, pWindow);
- free(pWindow);
- MenuLevelInfo[nLevel].pWindow = NULL;
- if(paMenuItems != NULL)
- {
- free(paMenuItems);
- MenuLevelInfo[nLevel].paMenuItems = NULL;
- }
- }
- else if(wCurrentFlags & MENU_KEEP)
- {
- MenuLevelInfo[nLevel].paMenuItems = paMenuItems;
- MenuLevelInfo[nLevel].btNumMenuItems = btCurrentNumMenuItems;
- MenuLevelInfo[nLevel].btWidth = btWidth;
- MenuLevelInfo[nLevel].btRight = btRight;
- MenuLevelInfo[nLevel].btBottom = btBottom;
- MenuLevelInfo[nLevel].btCursor = btCursor;
- MenuLevelInfo[nLevel].btLeft = btLeft;
- MenuLevelInfo[nLevel].btTop = btTop;
- MenuLevelInfo[nLevel].wFlags = wCurrentFlags;
- MenuLevelInfo[nLevel].pWindow = pWindow;
- }
-
- /* Restore original display color. */
- od_set_attrib(nOriginalAttrib);
-
- /* Release exclusive use of arrow keys. */
- ODStatEndArrowUse();
-
- OD_API_EXIT();
- return(nCommand);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODPopupCheckForKey() *** PRIVATE FUNCTION ***
- *
- * Checks whether or not the user has pressed any key. If one or more keys
- * have been pressed, then these keystrokes are processed. This function
- * returns when no more keys are waiting in the inbound buffer, or when a key
- * has been pressed that requires immediate action (such as the [ENTER] key).
- *
- * Parameters: bWaitForInput - Indicates whether this function should return
- * immediately if no input is waiting (FALSE), or
- * wait for the next input even before returning
- * (TRUE).
- *
- * Return: void
- */
-static void ODPopupCheckForKey(BOOL bWaitForInput)
-{
- BYTE btCount;
- tODInputEvent InputEvent;
- BOOL bDoneAnythingYet = FALSE;
-
- /* Loop, processing keys. If a command has been selected, stop looping */
- /* immediately. If there are no more keys waiting, stop looping */
- while(nCommand == NO_COMMAND)
- {
- CALL_KERNEL_IF_NEEDED();
-
- if(!od_get_input(&InputEvent, bWaitForInput && !bDoneAnythingYet
- ? OD_NO_TIMEOUT : 0, GETIN_NORMAL))
- {
- /* Return right away if no input event is waiting. */
- return;
- }
-
- bDoneAnythingYet = TRUE;
-
- if(InputEvent.EventType == EVENT_EXTENDED_KEY)
- {
- switch(InputEvent.chKeyPress)
- {
- case OD_KEY_UP:
-up_arrow:
- if(btCorrectItem == 0)
- {
- btCorrectItem = btCurrentNumMenuItems - 1;
- }
- else
- {
- --btCorrectItem;
- }
- break;
-
- case OD_KEY_DOWN:
-down_arrow:
- if(++btCorrectItem >= btCurrentNumMenuItems)
- {
- btCorrectItem = 0;
- }
- break;
-
- case OD_KEY_LEFT:
-left_arrow:
- if(wCurrentFlags & MENU_PULLDOWN)
- {
- nCommand = POPUP_LEFT;
- return;
- }
- break;
-
- case OD_KEY_RIGHT:
-right_arrow:
- if(wCurrentFlags & MENU_PULLDOWN)
- {
- nCommand = POPUP_RIGHT;
- return;
- }
- break;
- }
- }
-
- else if(InputEvent.EventType == EVENT_CHARACTER)
- {
- if(InputEvent.chKeyPress == '\n' || InputEvent.chKeyPress == '\r')
- {
- nCommand = btCorrectItem + 1;
- return;
- }
-
- else if(InputEvent.chKeyPress == 27)
- {
- if(wCurrentFlags & MENU_ALLOW_CANCEL)
- {
- nCommand = POPUP_ESCAPE;
- return;
- }
- }
-
- else
- {
- /* Check whether key is a menu "hot key" */
- for(btCount = 0; btCount < btCurrentNumMenuItems; ++btCount)
- {
- if(toupper(MenuLevelInfo[nCurrentLevel].paMenuItems[btCount]
- .szItemText[MenuLevelInfo[nCurrentLevel].paMenuItems[btCount]
- .btKeyIndex]) == toupper(InputEvent.chKeyPress))
- {
- btCorrectItem = btCount;
- nCommand = btCorrectItem + 1;
- return;
- }
- }
-
- /* At this point, we know that key was not one of the "hot keys" */
- /* Check for 4, 6, 8 and 2 keys as arrow keys. */
- if(InputEvent.chKeyPress == '4')
- {
- goto left_arrow;
- }
- else if(InputEvent.chKeyPress == '6')
- {
- goto right_arrow;
- }
- else if(InputEvent.chKeyPress == '8')
- {
- goto up_arrow;
- }
- else if(InputEvent.chKeyPress == '2')
- {
- goto down_arrow;
- }
- }
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODPopupDisplayMenuItem() *** PRIVATE FUNCTION ***
- *
- * Displays an individual menu item.
- *
- * Parameters: btLeft - Column number where the menu item will be
- * displayed.
- *
- * btTop - Row number where the menu item will be
- * displayed.
- *
- * paMenuItems - Pointer to array of available menu items.
- *
- * btItemIndex - Index into paMenuItems of the menu item that
- * is to be displayed.
- *
- * bHighlighted - TRUE if the items is to be displayed as
- * highlighted, FALSE if it is to be displayed as
- * non-highlighted.
- *
- * btWidth - Width of the menu item, in characters.
- *
- * bPositionCursor - TRUE if the cursor needs to be positioned
- * prior to drawing the menu item, FALSE if the
- * cursor is already in the required position.
- *
- * Return: void
- */
-static void ODPopupDisplayMenuItem(BYTE btLeft, BYTE btTop,
- tMenuItem *paMenuItems, BYTE btItemIndex, BOOL bHighlighted, BYTE btWidth,
- BOOL bPositionCursor)
-{
- BYTE btCount;
- char *pchItemText;
- BYTE btKeyPosition;
- BYTE btTextColor;
- BYTE btKeyColor;
-
- /* Check that parameters are reasonable when operating in debug mode. */
- ASSERT(paMenuItems != NULL);
- ASSERT(btItemIndex < MAX_MENU_ITEMS);
- ASSERT(btWidth < OD_SCREEN_WIDTH);
-
- ++btLeft;
- ++btTop;
-
- btTextColor = bHighlighted ? od_control.od_menu_highlight_col
- : od_control.od_menu_text_col;
- btKeyColor = bHighlighted ? od_control.od_menu_highkey_col
- : od_control.od_menu_key_col;
-
- pchItemText = (char *)(paMenuItems[btItemIndex].szItemText);
- btKeyPosition = paMenuItems[btItemIndex].btKeyIndex;
-
- if(bPositionCursor) od_set_cursor(btTop + btItemIndex, btLeft);
-
- od_set_attrib(btTextColor);
- od_putch(' ');
-
- for(btCount = 0; btCount < btWidth && *pchItemText; ++btCount)
- {
- if(btCount == btKeyPosition)
- {
- od_set_attrib(btKeyColor);
- od_putch(*pchItemText++);
- od_set_attrib(btTextColor);
- }
- else
- {
- od_putch(*pchItemText++);
- }
- }
-
- od_repeat(' ', (BYTE)((btWidth - btCount) + 1));
-
- if(bPositionCursor) od_set_cursor(btTop + btItemIndex, btLeft);
-}
diff --git a/src/odoors/ODPrntf.c b/src/odoors/ODPrntf.c
deleted file mode 100644
index a1c6d67b4d45b183d6f009a1b4f2d19e683b5da3..0000000000000000000000000000000000000000
--- a/src/odoors/ODPrntf.c
+++ /dev/null
@@ -1,197 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODPrntf.c
- *
- * Description: Implements the od_printf() function.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 03, 1996 6.00 BP Use ODVCALL instead of ODCALL.
- * Jan 04, 1996 6.00 BP Add missing OD_API_EXIT() at end.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-#include <stdarg.h>
-#include <string.h>
-#include <stdlib.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODKrnl.h"
-
-
-/* Size of od_printf() working buffer. Adjust this upwards if you are */
-/* encountering difficulties when calling od_printf() with long strings. */
-#define WORK_BUFFER_SIZE 512
-
-
-/* ----------------------------------------------------------------------------
- * od_printf()
- *
- * The OpenDoors equivalent of the C printf() function, this function performs
- * formatted string output to both the local and remote screens.
- *
- * Parameters: pszFormat - Format string, in the same format as the printf()
- * format string.
- *
- * The semantics of any further parameters are dicated by the
- * contents of the format string.
- *
- * Return: void
- */
-ODAPIDEF void ODVCALL od_printf(char *pszFormat,...)
-{
- va_list pArgumentList;
- static char *pszWorkBuffer = NULL;
- char *pchCurrent;
- char *pchStart;
- BOOL bNotFound;
- INT nCharCount;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_printf()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- /* Allocate work buffer if none has been allocated yet. */
- if(pszWorkBuffer == NULL &&
- (pszWorkBuffer = malloc(WORK_BUFFER_SIZE)) == NULL)
- {
- /* If we are unable to allocate a buffer, return with a memory error. */
- od_control.od_error = ERR_MEMORY;
- OD_API_EXIT();
- return;
- }
-
- /* Copy the arguments after the format string. */
- va_start(pArgumentList, pszFormat);
-
- /* Perform a string printf to the working buffer. */
- vsprintf(pszWorkBuffer, pszFormat, pArgumentList);
-
- va_end(pArgumentList);
-
- /* If no color characters are defined, then just display the entire */
- /* buffer in one shot. */
- if(!od_control.od_color_char && !od_control.od_color_delimiter)
- goto quick_print;
-
- chColorCheck = od_control.od_color_delimiter;
-
- bNotFound = TRUE;
- pchCurrent = (char *)pszWorkBuffer;
- pchStart = (char *)pszWorkBuffer;
- nCharCount = 0;
- while(*pchCurrent)
- {
- if(*pchCurrent == od_control.od_color_delimiter)
- {
- bNotFound = FALSE;
-
- if(nCharCount != 0)
- {
- od_disp(pchStart, nCharCount, TRUE);
- }
-
- if(!*(++pchCurrent))
- {
- chColorCheck = 0;
- OD_API_EXIT();
- return;
- }
- od_set_attrib(od_color_config(pchCurrent));
- if(!*(pchCurrent = (char *)pchColorEndPos))
- {
- chColorCheck = 0;
- OD_API_EXIT();
- return;
- }
-
- if(!*(++pchCurrent))
- {
- OD_API_EXIT();
- return;
- }
- pchStart = (char *)pchCurrent;
- nCharCount = 0;
- }
-
- else if(*pchCurrent == od_control.od_color_char)
- {
- bNotFound = FALSE;
-
- if(nCharCount != 0)
- {
- od_disp(pchStart, nCharCount, TRUE);
- }
-
- if(!*(++pchCurrent))
- {
- OD_API_EXIT();
- return;
- }
- od_set_attrib(*pchCurrent);
-
- if(!*(++pchCurrent))
- {
- OD_API_EXIT();
- return;
- }
- pchStart = (char *)pchCurrent;
- nCharCount = 0;
- }
- else
- {
- ++nCharCount;
- ++pchCurrent;
- }
- }
-
- chColorCheck = 0;
-
- if(bNotFound)
- {
-quick_print:
- /* Display the entire string in one shot. */
- od_disp_str(pszWorkBuffer);
- }
- else if(nCharCount != 0)
- {
- /* If there are remaining characters in the string, then display them. */
- od_disp(pchStart, nCharCount, TRUE);
- }
-
- OD_API_EXIT();
-}
diff --git a/src/odoors/ODRA.c b/src/odoors/ODRA.c
deleted file mode 100644
index be2f3fcffd10215e0c89479fc82f2cc0275a456b..0000000000000000000000000000000000000000
--- a/src/odoors/ODRA.c
+++ /dev/null
@@ -1,619 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODRA.c
- *
- * Description: Implements the RemoteAccess personality.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 19, 1994 6.00 BP Use new od_page constants.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Jul 18, 1995 6.00 BP Fix ODStatGetUserAge() bug.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 14, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 22, 1995 6.00 BP Added od_connect_speed.
- * Dec 24, 1995 6.00 BP Fixed black square at pos 25x80.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 03, 1996 6.00 BP Display connect speed with %lu.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <ctype.h>
-#include <stddef.h>
-#include <time.h>
-#include <stdlib.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODStat.h"
-#include "ODInEx.h"
-
-
-/* Private variables, local to this module. */
-static BOOL bRAPersHasBeenOn = FALSE;
-
-
-/* Private function prototypes. */
-static void ODRADisplayPageInfo(void);
-static void ODRADisplayDate(char *pszDateString);
-static void ODRADisplayFlags(BYTE btFlags);
-static void ODRADisplayTime(void);
-
-
-/* ----------------------------------------------------------------------------
- * pdef_ra()
- *
- * Personality function for the RemoteAccess-like status line / function key
- * personality.
- *
- * Parameters: btOperation - Indicates personality operation to be performed.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL pdef_ra(BYTE btOperation)
-{
- BYTE btInfoType = od_control.od_info_type;
-
- switch(btOperation)
- {
- case PEROP_DISPLAY1:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" (Node ");
- ODScrnSetCursorPos(1, 24);
- ODScrnPrintf("%s of %s at %lu BPS", od_control.user_name,
- od_control.user_location, od_control.od_connect_speed);
-
- if(!od_control.od_user_keyboard_on)
- {
- ODScrnSetCursorPos(49, 24);
- ODScrnSetAttribute(0x99);
- ODScrnDisplayString("(Keyboard)");
- ODScrnSetAttribute(0x70);
- bRAPersHasBeenOn = TRUE;
- }
-
- ODRADisplayPageInfo();
-
- ODScrnSetCursorPos(76, 24);
- if(od_control.od_node < 1000)
- {
- ODScrnPrintf("%u)", od_control.od_node);
- }
- else
- {
- ODScrnDisplayString("?)");
- }
- ODScrnSetCursorPos(1, 25);
- ODScrnDisplayString("Security: Time: (F9)=Help ");
-
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
-
- ODScrnSetCursorPos(11, 25);
- ODScrnPrintf("%u", od_control.user_security);
- ODScrnSetCursorPos(24, 25);
- ODScrnPrintf("%d mins ", od_control.user_timelimit);
- if(od_control.user_ansi)
- {
- ODScrnSetCursorPos(42, 25);
- ODScrnDisplayString("(ANSI)");
- }
-
- if(od_control.user_avatar)
- {
- ODScrnSetCursorPos(48, 25);
- ODScrnDisplayString("(AVT)");
- }
-
- if(od_control.sysop_next)
- {
- ODScrnSetCursorPos(53, 25);
- ODScrnDisplayString("(SN) ");
- }
-
- if(od_control.user_wantchat)
- {
- ODScrnSetCursorPos(57, 25);
- ODScrnSetAttribute(0x99);
- ODScrnDisplayString("(Wants Chat)");
- ODScrnSetAttribute(0x70);
- }
- break;
-
-
- case PEROP_DISPLAY2:
- ODScrnSetAttribute(0x70);
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString("Voice#: Last Call : First Call: ");
- ODScrnSetCursorPos(1, 25);
- ODScrnDisplayString("Data #: Times Called: Age: Birthdate: ");
- if(od_control.od_extended_info || btInfoType == SFDOORSDAT
- || btInfoType == DOORSYS_GAP || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnSetCursorPos(8, 24);
- ODScrnPrintf("%13.13s", od_control.user_homephone);
- }
- if(od_control.od_extended_info || btInfoType == DOORSYS_GAP
- || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnSetCursorPos(8, 25);
- ODScrnPrintf("%13.13s", od_control.user_dataphone);
- }
- if(od_control.od_extended_info || btInfoType == DOORSYS_GAP
- || btInfoType == CHAINTXT || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnSetCursorPos(37, 24);
- ODRADisplayDate(od_control.user_lastdate);
- }
- if(od_control.od_extended_info || btInfoType == DOORSYS_GAP
- || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnSetCursorPos(37, 25);
- ODScrnPrintf("%lu", od_control.user_numcalls);
- }
- if(btInfoType == RA1EXITINFO || btInfoType == RA2EXITINFO
- || btInfoType == DOORSYS_WILDCAT)
- {
- char szUserAge[7];
- ODScrnSetCursorPos(53, 25);
- ODStatGetUserAge(szUserAge);
- ODScrnDisplayString(szUserAge);
- ODScrnSetCursorPos(71, 24);
- ODRADisplayDate(od_control.user_firstcall);
- ODScrnSetCursorPos(71, 25);
- ODRADisplayDate(od_control.user_birthday);
- }
- break;
-
-
- case PEROP_DISPLAY3:
- ODScrnSetAttribute(0x70);
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- ODScrnSetCursorPos(1, 24);
- if(od_control.od_extended_info || btInfoType == SFDOORSDAT
- || btInfoType == DOORSYS_GAP || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnDisplayString("Uploads: Downloads: Tagged: 0k (0) ");
- if(btInfoType == DOORSYS_GAP)
- {
- ODScrnSetCursorPos(10, 24);
- ODScrnPrintf("%lu", od_control.user_uploads);
- ODScrnSetCursorPos(36, 24);
- ODScrnPrintf("%lu", od_control.user_downloads);
- }
- else
- {
- ODScrnSetCursorPos(10, 24);
- ODScrnPrintf("%luk (%lu)", od_control.user_upk,
- od_control.user_uploads);
- ODScrnSetCursorPos(36,24);
- ODScrnPrintf("%luk (%lu)", od_control.user_downk,
- od_control.user_downloads);
- }
- }
- else
- {
- ODScrnDisplayString(" ");
- }
- ODScrnSetCursorPos(1, 25);
- if(od_control.od_extended_info)
- {
- ODScrnDisplayString("Flags: (A):-------- (B):-------- (C):-------- (D):-------- ");
- ODScrnSetCursorPos(12, 25);
- ODRADisplayFlags(od_control.user_flags[0]);
- ODScrnSetCursorPos(26, 25);
- ODRADisplayFlags(od_control.user_flags[1]);
- ODScrnSetCursorPos(40, 25);
- ODRADisplayFlags(od_control.user_flags[2]);
- ODScrnSetCursorPos(54, 25);
- ODRADisplayFlags(od_control.user_flags[3]);
- }
- else
- {
- ODScrnDisplayString(" ");
- }
- break;
-
-
- case PEROP_DISPLAY4:
- ODScrnSetAttribute(0x70);
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" (Time ) ");
- if(od_control.od_extended_info)
- {
- ODScrnSetCursorPos(1, 24);
- ODScrnPrintf("Last Caller: %s Total System Calls: %lu",
- od_control.system_last_caller, od_control.system_calls);
- }
- ODRADisplayTime();
-
- ODScrnSetCursorPos(1, 25);
- if(od_control.od_extended_info || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnDisplayString("(Printer OFF) (Local Screen ON ) Next Event ");
- ODScrnSetCursorPos(57, 25);
- if(od_control.event_status == ES_ENABLED
- || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnPrintf("(%s, errorlevel %u)",od_control.event_starttime,od_control.event_errorlevel);
- }
- else
- {
- ODScrnDisplayString("none, errorlevel 0");
- }
- }
- else
- {
- ODScrnDisplayString(" ");
- }
- break;
-
-
- case PEROP_DISPLAY5:
- ODScrnSetAttribute(0x70);
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- ODScrnSetCursorPos(1, 24);
- if(od_control.od_extended_info || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnDisplayString("Msgs posted : Highread : Group 1 ");
- ODScrnSetCursorPos(18,24);
- ODScrnPrintf("%u",od_control.user_messages);
- ODScrnSetCursorPos(39,24);
- ODScrnPrintf("%u",od_control.user_lastread);
- if(btInfoType == RA1EXITINFO || btInfoType == RA2EXITINFO)
- {
- ODScrnSetCursorPos(76, 24);
- ODScrnPrintf("%u", od_control.user_group);
- }
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- ODScrnSetCursorPos(1, 25);
- if(od_control.od_extended_info || btInfoType == CHAINTXT
- || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnDisplayString("Credit : Handle : ");
- if(btInfoType == EXITINFO || btInfoType == RA1EXITINFO
- || btInfoType == RA2EXITINFO)
- {
- ODScrnSetCursorPos(18, 25);
- ODScrnPrintf("%u.00", (unsigned int)od_control.user_net_credit);
- }
- if(btInfoType == CHAINTXT || btInfoType == RA1EXITINFO
- || btInfoType == RA2EXITINFO || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnSetCursorPos(39, 25);
- ODScrnDisplayString(od_control.user_handle);
- }
- }
- else
- {
- ODScrnDisplayString(" ");
- }
- break;
-
-
- case PEROP_DISPLAY6:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" ");
- ODScrnSetCursorPos(1, 25);
- ODScrnDisplayString(" ");
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- if(btInfoType == RA1EXITINFO || btInfoType == RA2EXITINFO
- || btInfoType == DOORSYS_WILDCAT)
- {
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(od_control.user_comment);
- }
- if(od_control.user_wantchat
- && strlen(od_control.user_reasonforchat) !=0 )
- {
- ODScrnSetCursorPos(1, 25);
- strcpy(szStatusText, od_control.user_reasonforchat);
- szStatusText[69 - strlen(od_control.user_name)] = '\0';
- ODScrnPrintf("Chat (%s): %s", od_control.user_name, szStatusText);
- }
- break;
-
- case PEROP_DISPLAY7:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(" ");
- ODScrnSetCursorPos(1, 25);
- ODScrnDisplayString(" ");
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- break;
-
- case PEROP_DISPLAY8:
- ODScrnSetAttribute(0x70);
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString("ALT: (C)hat (H)angup (J)Shell (L)ockOut (K)eyboard (N)extOn (D)rop To BBS ");
- ODScrnDisplayString(" -Inc Time -Dec Time (F1)-(F7)=Extra Stats");
- break;
-
- case PEROP_UPDATE1:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(24, 25);
-
- ODScrnPrintf("%d mins ", od_control.user_timelimit);
-
- ODScrnSetCursorPos(42, 25);
- if(od_control.user_ansi)
- {
- ODScrnDisplayString("(ANSI)");
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- if(od_control.user_avatar)
- {
- ODScrnDisplayString("(AVT)");
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- if(od_control.sysop_next)
- {
- ODScrnDisplayString("(SN)");
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- if(od_control.user_wantchat)
- {
- ODScrnSetAttribute(0x99);
- ODScrnDisplayString("(Wants Chat)");
- ODScrnSetAttribute(0x70);
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- ODRADisplayPageInfo();
-
- if(od_control.od_user_keyboard_on && bRAPersHasBeenOn)
- {
- ODScrnSetCursorPos(49, 24);
- ODScrnDisplayString(" ");
- }
- if(!od_control.od_user_keyboard_on)
- {
- bRAPersHasBeenOn = TRUE;
- ODScrnSetCursorPos(49, 24);
- ODScrnSetAttribute(0x99);
- ODScrnDisplayString("(Keyboard)");
- ODScrnSetAttribute(0x70);
- }
-
- break;
-
- case PEROP_UPDATE4:
- ODScrnSetAttribute(0x70);
- ODRADisplayTime();
- break;
-
- case PEROP_INITIALIZE:
- bRAStatus = TRUE;
- od_control.key_hangup = 0x2300;
- od_control.key_drop2bbs = 0x2000;
- od_control.key_dosshell = 0x2400;
- od_control.key_chat = 0x2e00;
- od_control.key_sysopnext = 0x3100;
- od_control.key_lockout = 0x2600;
- od_control.key_status[0] = 0x3b00;
- od_control.key_status[1] = 0x3c00;
- od_control.key_status[2] = 0x3d00;
- od_control.key_status[3] = 0x3e00;
- od_control.key_status[4] = 0x3f00;
- od_control.key_status[5] = 0x4000;
- od_control.key_status[6] = 0x4100;
- od_control.key_status[7] = 0x4300;
- od_control.key_status[8] = 0x4400;
- od_control.key_keyboardoff = 0x2500;
- od_control.key_moretime = 0x4800;
- od_control.key_lesstime = 0x5000;
- od_control.od_page_statusline = 5;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODRADisplayPageInfo() *** PRIVATE FUNCTION ***
- *
- * Displays the current sysop page information on the RemoteAccess status line,
- * at the appropriate position, and in the appropriate color.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODRADisplayPageInfo(void)
-{
- time_t nUnixTime;
- struct tm *TimeBlock;
- BOOL bFailed = FALSE;
- INT nMinute;
-
- ODScrnSetCursorPos(60, 24);
-
- switch(od_control.od_okaytopage)
- {
- case PAGE_ENABLE:
- ODScrnSetAttribute(0x19);
- ODScrnDisplayString("(PAGE ON) ");
- ODScrnSetAttribute(0x70);
- break;
-
- case PAGE_DISABLE:
- ODScrnSetAttribute(0x19);
- ODScrnDisplayString("(PAGE OFF)");
- ODScrnSetAttribute(0x70);
- break;
-
- case PAGE_USE_HOURS:
- nUnixTime = time(NULL);
- TimeBlock = localtime(&nUnixTime);
- nMinute = (60 * TimeBlock->tm_hour) + TimeBlock->tm_min;
- if(od_control.od_pagestartmin < od_control.od_pageendmin)
- {
- if(nMinute < od_control.od_pagestartmin
- || nMinute >= od_control.od_pageendmin)
- {
- bFailed = TRUE;
- }
- }
- else
- {
- if(nMinute < od_control.od_pagestartmin
- && nMinute >= od_control.od_pageendmin)
- {
- bFailed=TRUE;
- }
- }
-
- if(bFailed)
- {
- ODScrnDisplayString("(PAGE OFF)");
- }
- else
- {
- ODScrnDisplayString("(PAGE ON) ");
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODRADisplayTime() *** PRIVATE FUNCTION ***
- *
- * Displays the current time on the RemoteAccess status line, at the
- * appropriate position. The time is displayed in the current color.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODRADisplayTime(void)
-{
- time_t nUnixTime;
- struct tm *TimeBlock;
-
- nUnixTime = time(NULL);
- TimeBlock = localtime(&nUnixTime);
- ODScrnSetCursorPos(74, 24);
- ODScrnPrintf("%02.2d:%02.2d", TimeBlock->tm_hour, TimeBlock->tm_min);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODRADisplayDate() *** PRIVATE FUNCTION ***
- *
- * Displays a date stored in a string on the RemoteAccess status line, if
- * the string represents a valid date. The date is displayed at the current
- * cursor location, in the current color.
- *
- * Parameters: pszDateString - Pointer to a string containing the date to
- * display.
- *
- * Return: void
- */
-static void ODRADisplayDate(char *pszDateString)
-{
- INT nMonth;
- INT nTemp;
-
- ASSERT(pszDateString != NULL);
-
- if(strlen(pszDateString) != 8) return;
-
- nMonth = atoi(pszDateString) - 1;
- if(nMonth < 0 || nMonth > 11) return;
-
- nTemp=atoi((char *)pszDateString + 3);
- if(nTemp < 1 || nTemp > 31) return;
-
- if(pszDateString[6] < '0' || pszDateString[6] > '9'
- || pszDateString[7] < '0' || pszDateString[7] > '9')
- {
- return;
- }
-
- ODScrnDisplayChar(pszDateString[3]);
- ODScrnDisplayChar(pszDateString[4]);
- ODScrnDisplayChar('-');
- ODScrnDisplayString(od_control.od_month[nMonth]);
- ODScrnDisplayChar('-');
- ODScrnDisplayChar(pszDateString[6]);
- ODScrnDisplayChar(pszDateString[7]);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODRADisplayFlags() *** PRIVATE FUNCTION ***
- *
- * Displays sysop-defined user flags on the status line. The flags are
- * displayed at the current cursor location, in the current color.
- *
- * Parameters: btFlags - Byte of eight flags to display.
- *
- * Return: void
- */
-static void ODRADisplayFlags(BYTE btFlags)
-{
- BYTE btMask = 0x01;
- INT nFlag;
-
- for(nFlag = 0; nFlag < 8; ++nFlag)
- {
- if(btFlags & btMask)
- {
- ODScrnDisplayChar('X');
- }
- else
- {
- ODScrnDisplayChar('-');
- }
- btMask <<= 1;
- }
-}
diff --git a/src/odoors/ODRes.aps b/src/odoors/ODRes.aps
deleted file mode 100644
index 58cd4524c6fc1fe1d1cd7030cd4296039c63c842..0000000000000000000000000000000000000000
Binary files a/src/odoors/ODRes.aps and /dev/null differ
diff --git a/src/odoors/ODRes.h b/src/odoors/ODRes.h
deleted file mode 100644
index c1f7932508e78fcdea704c9e67b444543d43bd2e..0000000000000000000000000000000000000000
--- a/src/odoors/ODRes.h
+++ /dev/null
@@ -1,78 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODRes.h
- *
- * Description: OpenDoors resource-related definitions. This file is only
- * applicable when building the Win32 version of OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Dec 02, 1995 6.00 BP Created.
- * Jan 20, 1996 6.00 BP Added login dialog box.
- * Jan 21, 1996 6.00 BP Added message dialog box.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 23, 1996 6.00 BP Remove unused IDs.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 14, 1996 6.10 BP Added configuration menu option.
- */
-
-/* Resource IDs. */
-#define IDR_FRAME_MENU 200
-#define IDD_ABOUT 201
-#define IDI_OPENDOORS 202
-#define IDB_TOOLBAR 203
-#define IDR_FRAME 204
-#define IDD_LOGIN 205
-#define IDI_MESSAGE_INFO 206
-#define IDD_MESSAGE 207
-
-
-/* Dialog box control IDs. (The same values can safely be used by other */
-/* dialog boxes.) */
-/* Help dialog box. */
-#define IDC_DOORNAME 1000
-#define IDC_COPYRIGHT 1001
-#define IDC_VERSION 1002
-
-/* Login dialog box. */
-#define IDC_USER_NAME 1000
-
-/* Message dialog box. */
-#define IDC_MESSAGE_ICON 1000
-#define IDC_MESSAGE_TEXT1 1001
-
-
-/* Command IDs. */
-#define ID_DOOR_CHATMODE 50000
-#define ID_DOOR_USERKEYBOARDOFF 50001
-#define ID_DOOR_SYSOPNEXT 50002
-#define ID_DOOR_HANGUP 50003
-#define ID_VIEW_STATUSBAR 50006
-#define ID_USER_ADDONEMINUTE 50007
-#define ID_USER_ADDFIVEMINUTES 50008
-#define ID_USER_SUBTRACTONEMINUTE 50009
-#define ID_USER_SUBTRACTFIVEMINUTES 50010
-#define ID_USER_INACTIVITYTIMER 50011
-#define ID_HELP_ABOUT 50012
-#define ID_HELP_CONTENTS 50013
-#define ID_VIEW_TOOL_BAR 50014
-#define ID_DOOR_EXIT 50015
-#define ID_DOOR_LOCKOUT 50016
-#define ID_VIEW_STAT_BAR 50017
-#define ID_DOOR_CONFIG 50018
diff --git a/src/odoors/ODRes.rc b/src/odoors/ODRes.rc
deleted file mode 100644
index ef8496d4dc7ba15d601caba77fd31625bcc402fc..0000000000000000000000000000000000000000
--- a/src/odoors/ODRes.rc
+++ /dev/null
@@ -1,181 +0,0 @@
-/* OpenDoors 6.10
- * (C) Copyright 1991 - 1997 by Brian Pirie. All Rights Reserved.
- *
- *
- * File: ODRes.rc
- *
- * Description: OpenDoors resource script. Contains defintions for OpenDoors
- * menus, dialog boxes, icons, bitmaps, accelerator table and
- * string resources. This file is only applicable when building
- * the Win32 version of OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Dec 02, 1995 6.00 BP Created.
- * Jan 01, 1996 6.00 BP Changed copyright to 1996 in About Box
- * Jan 20, 1996 6.00 BP Added login dialog box.
- * Jan 21, 1996 6.00 BP Added message dialog box.
- * Jan 21, 1996 6.00 BP Renamed opendoor.ico to odapp.ico.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 14, 1996 6.10 BP Added configuration menu option.
- */
-
-#include "windows.h"
-#include "ODRes.h"
-
-
-/* ========================================================================= */
-/* The OpenDoors frame window menu. */
-/* ========================================================================= */
-
-IDR_FRAME_MENU MENU DISCARDABLE
-BEGIN
- POPUP "&Door"
- BEGIN
- MENUITEM "C&onfigure..." ID_DOOR_CONFIG
- MENUITEM "&Chat Mode\tCtrl+C", ID_DOOR_CHATMODE
- MENUITEM SEPARATOR
- MENUITEM "User &Keyboard Off\tCtrl+K", ID_DOOR_USERKEYBOARDOFF
- MENUITEM "Sysop &Next\tCtrl+N", ID_DOOR_SYSOPNEXT
- MENUITEM SEPARATOR
- MENUITEM "&Hangup\tCtrl+H", ID_DOOR_HANGUP
- MENUITEM "&Lockout\tCtrl+L", ID_DOOR_LOCKOUT
- MENUITEM SEPARATOR
- MENUITEM "E&xit To BBS\tCtrl+X", ID_DOOR_EXIT
- END
- POPUP "&View"
- BEGIN
- MENUITEM "&Toolbar", ID_VIEW_TOOL_BAR, CHECKED
- MENUITEM "Status Bar", ID_VIEW_STAT_BAR, CHECKED
- END
- POPUP "&User"
- BEGIN
- MENUITEM "Add &One Minute\tShift+Up Arrow", ID_USER_ADDONEMINUTE
- MENUITEM "Add &Five Minutes\tCtrl+Up Arrow", ID_USER_ADDFIVEMINUTES
- MENUITEM SEPARATOR
- MENUITEM "&Subtract One Minute\tShift+Down Arrow",
- ID_USER_SUBTRACTONEMINUTE
- MENUITEM "S&ubtract Five Minutes\tCtrl+Down Arrow",
- ID_USER_SUBTRACTFIVEMINUTES
- MENUITEM SEPARATOR
- MENUITEM "&Inactivity Timer", ID_USER_INACTIVITYTIMER
- , CHECKED
- END
- POPUP "&Help"
- BEGIN
- MENUITEM "&Contents\tF1" ID_HELP_CONTENTS
- MENUITEM "&About...", ID_HELP_ABOUT
- END
-END
-
-
-/* ========================================================================= */
-/* Dialog Boxes. */
-/* ========================================================================= */
-
-IDD_ABOUT DIALOG DISCARDABLE 0, 0, 217, 89
-STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
-CAPTION "About"
-FONT 8, "MS Sans Serif"
-BEGIN
- ICON IDI_OPENDOORS,-1,6,7,18,20
- LTEXT "BBS Door Program",IDC_DOORNAME,32,5,120,8
- LTEXT "",IDC_VERSION,32,14,123,7
- LTEXT "",IDC_COPYRIGHT,32,23,119,8
- LTEXT "Written using:",-1,31,48,69,8
- LTEXT "OpenDoors 6.10, Win32 Edition",-1,31,57,127,8
- LTEXT "Copyright \251 1991-1997 by Brian Pirie.",-1,31,
- 66,139,8,SS_NOPREFIX
- LTEXT "All Rights Reserved.",-1,31,75,90,8
- DEFPUSHBUTTON "OK",IDOK,161,6,50,14
-END
-
-IDD_LOGIN DIALOG DISCARDABLE 0, 0, 194, 80
-STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
-CAPTION "OpenDoors"
-FONT 8, "MS Sans Serif"
-BEGIN
- LTEXT "This program has been started in local",-1,6,6,128,8
- LTEXT "mode, independently of a BBS system.",-1,6,14,128,8
- LTEXT "When operating in this mode, you may",-1,6,22,128,8
- LTEXT "specify what name you should be",-1,6,30,128,8
- LTEXT "known to the program by.",-1,6,38,128,8
- LTEXT "Your &name:",-1,6,52,42,8
- EDITTEXT IDC_USER_NAME,6,61,121,12,ES_AUTOHSCROLL
- DEFPUSHBUTTON "OK",IDOK,138,6,50,14
- PUSHBUTTON "Cancel",IDCANCEL,138,23,50,14
-END
-
-IDD_MESSAGE DIALOG DISCARDABLE 0, 0, 186, 31
-STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
-CAPTION "OpenDoors"
-FONT 8, "MS Sans Serif"
-BEGIN
- ICON IDI_MESSAGE_INFO,IDC_MESSAGE_ICON,6,6,18,20
- LTEXT "",IDC_MESSAGE_TEXT1,32,10,149,8
-END
-
-
-/* ========================================================================= */
-/* Icons. */
-/* ========================================================================= */
-
-IDI_OPENDOORS ICON DISCARDABLE "odapp.ico"
-IDI_MESSAGE_INFO ICON DISCARDABLE "odinfo.ico"
-
-
-/* ========================================================================= */
-/* Bitmaps. */
-/* ========================================================================= */
-
-IDB_TOOLBAR BITMAP DISCARDABLE "toolbar.bmp"
-
-
-/* ========================================================================= */
-/* Accelerator Table. */
-/* ========================================================================= */
-
-IDR_FRAME ACCELERATORS DISCARDABLE
-BEGIN
- "C", ID_DOOR_CHATMODE, VIRTKEY, CONTROL, NOINVERT
- "H", ID_DOOR_HANGUP, VIRTKEY, CONTROL, NOINVERT
- "K", ID_DOOR_USERKEYBOARDOFF, VIRTKEY, CONTROL, NOINVERT
- "L", ID_DOOR_LOCKOUT, VIRTKEY, CONTROL, NOINVERT
- "N", ID_DOOR_SYSOPNEXT, VIRTKEY, CONTROL, NOINVERT
- "X", ID_DOOR_EXIT, VIRTKEY, CONTROL, NOINVERT
- VK_DOWN, ID_USER_SUBTRACTFIVEMINUTES, VIRTKEY, CONTROL, NOINVERT
- VK_DOWN, ID_USER_SUBTRACTONEMINUTE, VIRTKEY, SHIFT, NOINVERT
- VK_F1, ID_HELP_CONTENTS, VIRTKEY, NOINVERT
- VK_UP, ID_USER_ADDFIVEMINUTES, VIRTKEY, CONTROL, NOINVERT
- VK_UP, ID_USER_ADDONEMINUTE, VIRTKEY, SHIFT, NOINVERT
-END
-
-
-/* ========================================================================= */
-/* String Resources. */
-/* ========================================================================= */
-
-STRINGTABLE DISCARDABLE
-BEGIN
- ID_DOOR_CHATMODE "Enters or exits chat mode, allowing you to communicate with the remote user."
- ID_DOOR_USERKEYBOARDOFF "Causes any keys or commands from the remote user to be ignored."
- ID_DOOR_SYSOPNEXT "Reserves the system for the sysop after this user logs off (if supported by BBS)."
- ID_DOOR_HANGUP "Hangs up the modem and exits the door."
- ID_USER_ADDONEMINUTE "Increases the user's time remaining by one minute."
- ID_USER_ADDFIVEMINUTES "Increases the user's time remaining by five minutes."
- ID_USER_SUBTRACTONEMINUTE
- "Decreases the user's time remaining by one minute."
- ID_USER_SUBTRACTFIVEMINUTES
- "Decreases the user's time remaining by five minutes."
- ID_USER_INACTIVITYTIMER "Enables the timer that will log off the user after a long period of no activity."
- ID_HELP_ABOUT "Displays program information and copyright."
- ID_VIEW_TOOL_BAR "Shows or hides the toolbar."
-END
-
-STRINGTABLE DISCARDABLE
-BEGIN
- ID_DOOR_EXIT "Exits the door without hanging up."
- ID_DOOR_LOCKOUT "Hangs up the modem, denying any further access to the user (if supported by BBS)."
- ID_VIEW_STAT_BAR "Shows or hides the status bar."
-END
diff --git a/src/odoors/ODScrn.c b/src/odoors/ODScrn.c
deleted file mode 100644
index 712ebd9991593a39a988f33fd09a2af6ffd1a98a..0000000000000000000000000000000000000000
--- a/src/odoors/ODScrn.c
+++ /dev/null
@@ -1,2551 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODScrn.c
- *
- * Description: Functions used to access the local display screen buffer, which
- * keeps a copy of the text that is displayed on the remote
- * terminal. The local display screen buffer also displays the
- * OpenDoors status lines on some platforms. In addition to
- * maintaining the current screen buffer, the odscrn.c module
- * also contains the code to display this buffer on the screen.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Dec 31, 1994 6.00 BP Use new multitasker variable.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP 32-bit portability.
- * Nov 14, 1995 6.00 BP Created odscrn.h.
- * Nov 14, 1995 6.00 BP Make screen size configurable.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 21, 1995 6.00 BP Port to Win32.
- * Jan 20, 1996 6.00 BP Prompt for user name if force_local.
- * Jan 21, 1996 6.00 BP Added ODScrnShowMessage() and related.
- * Jan 27, 1996 6.00 BP Expand tab ('\t') characters.
- * Jan 27, 1996 6.00 BP Added ODScrollUpAndInvalidate().
- * Jan 27, 1996 6.00 BP Made text-mode window f'ns static.
- * Jan 31, 1996 6.00 BP Made them non-static again.
- * Jan 31, 1996 6.00 BP Added ODScrnLocalInput().
- * Feb 06, 1996 6.00 BP Added od_silent_mode.
- * Feb 16, 1996 6.00 BP Make caret visible after local login.
- * Feb 17, 1996 6.00 BP Recognize non-ASCII keys under Win32.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 21, 1996 6.00 BP Forward SC_KEYMENU to frame thread.
- * Feb 21, 1996 6.00 BP Don't beep in "silent mode".
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 13, 1996 6.10 BP Added od_local_win_col.
- * Mar 17, 1996 6.10 BP Terminate string in ODScrnLocalInput()
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-#include <time.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODPlat.h"
-#include "ODScrn.h"
-#include "ODUtil.h"
-#include "ODFrame.h"
-#include "ODInEx.h"
-#ifdef ODPLAT_WIN32
-#include "ODKrnl.h"
-#include "ODRes.h"
-#endif /* ODPLAT_WIN32 */
-
-
-/* ========================================================================= */
-/* Definitions of variables used by the local screen module. */
-/* ========================================================================= */
-
-/* Manifest constants used in this module. */
-#define SCREEN_BUFFER_SIZE (OD_SCREEN_WIDTH * OD_SCREEN_HEIGHT * 2)
-#define SCREEN_BUFFER_SEGMENT_SIZE (SCREEN_BUFFER_SIZE / 16)
-#define BYTES_PER_CHAR 2
-#define BUFFER_LINE_BYTES (OD_SCREEN_WIDTH * BYTES_PER_CHAR)
-#define LINE_BUFFER_SIZE (OD_SCREEN_WIDTH + 1)
-
-
-/* Private variables used by the screen I/O functions. */
-
-/* Segment address of video buffer. */
-#if defined(ODPLAT_DOS) || defined(ODPLAT_NIX)
-static WORD wBufferSegment;
-static void *pAllocatedBufferMemory;
-#endif /* ODPLAT_DOS */
-
-/* Far pointer to video buffer. */
-static void ODFAR *pScrnBuffer;
-
-/* Current cursor position. */
-static BYTE btCursorColumn;
-static BYTE btCursorRow;
-
-/* Current output boundaries. */
-static BYTE btLeftBoundary;
-static BYTE btTopBoundary;
-static BYTE btRightBoundary;
-static BYTE btBottomBoundary;
-
-/* Current display color. */
-static BYTE btCurrentAttribute;
-
-/* Is scrolling enabled. */
-static BOOL bScrollEnabled;
-
-/* Display page to use. */
-static BYTE btDisplayPage;
-
-/* Is cursor currently on. */
-static BYTE bCaretOn;
-
-/* Static temporary working buffer. */
-static char szBuffer[LINE_BUFFER_SIZE];
-
-
-/* Private function prototypes. */
-static void ODScrnGetCursorPos(void);
-static void ODScrnUpdateCaretPos(void);
-static void ODScrnScrollUpOneLine(void);
-static void ODScrnScrollUpAndInvalidate(void);
-
-
-/* ========================================================================= */
-/* Implementation of the local screen window for the Win32 platform. */
-/* ========================================================================= */
-
-#ifdef ODPLAT_WIN32
-
-/* Screen thread startup information. */
-typedef struct
-{
- HWND hwndFrame;
- HANDLE hInstance;
-} tODScrnThreadInfo;
-
-/* Handle to the screen window. */
-static HWND hwndScreenWindow;
-
-/* Does the screen window currently have input focus? */
-BOOL bScreenHasFocus;
-
-/* Current font-related information. */
-static HFONT hCurrentFont;
-static INT nFontCellWidth;
-static INT nFontCellHeight;
-
-/* Table to translate from PC text color values used in the screen buffer */
-/* to their corresponding RGB values. */
-COLORREF acrPCTextColors[] =
-{
- RGB(0x00, 0x00, 0x00),
- RGB(0x00, 0x00, 0xc0),
- RGB(0x00, 0xc0, 0x00),
- RGB(0x00, 0xc0, 0xc0),
- RGB(0xc0, 0x00, 0x00),
- RGB(0xc0, 0x00, 0xc0),
- RGB(0xc0, 0xc0, 0x00),
- RGB(0xc0, 0xc0, 0xc0),
- RGB(0x7f, 0x7f, 0x7f),
- RGB(0x00, 0x00, 0xff),
- RGB(0x00, 0xff, 0x00),
- RGB(0x00, 0xff, 0xff),
- RGB(0xff, 0x00, 0x00),
- RGB(0xff, 0x00, 0xff),
- RGB(0xff, 0xff, 0x00),
- RGB(0xff, 0xff, 0xff),
-};
-
-/* Table to translate from Windows key codes to OpenDoors key codes. */
-typedef struct
-{
- int nVirtKey;
- BYTE btODKey;
-} tWinKeyToODKey;
-
-tWinKeyToODKey aWinKeyToODKey[] =
-{
- {VK_UP, OD_KEY_UP},
- {VK_DOWN, OD_KEY_DOWN},
- {VK_LEFT, OD_KEY_LEFT},
- {VK_RIGHT, OD_KEY_RIGHT},
- {VK_INSERT, OD_KEY_INSERT},
- {VK_DELETE, OD_KEY_DELETE},
- {VK_END, OD_KEY_END},
- {VK_HOME, OD_KEY_HOME},
- {VK_PRIOR, OD_KEY_PGUP},
- {VK_NEXT, OD_KEY_PGDN},
- {VK_F1, OD_KEY_F1},
- {VK_F2, OD_KEY_F2},
- {VK_F3, OD_KEY_F3},
- {VK_F4, OD_KEY_F4},
- {VK_F5, OD_KEY_F5},
- {VK_F6, OD_KEY_F6},
- {VK_F7, OD_KEY_F7},
- {VK_F8, OD_KEY_F8},
- {VK_F9, OD_KEY_F9},
- {VK_F10, OD_KEY_F10},
-};
-
-/* Utility macros. */
-#define COLUMN_AS_XPIXEL(nColumn) (((INT)(nColumn)) * nFontCellWidth)
-#define ROW_AS_YPIXEL(nRow) (((INT)(nRow)) * nFontCellHeight)
-#define XPIXEL_AS_COLUMN(nX) (((INT)(nX)) / nFontCellWidth)
-#define YPIXEL_AS_ROW(nY) (((INT)(nY)) / nFontCellHeight)
-
-/* User defined messages. */
-#define WM_MOVE_YOUR_CARET (WM_USER + 1)
-#define WM_KEYDOWN_RELAY (WM_USER + 2)
-
-/* Height of the flashing caret, in pixels. */
-#define CARET_HEIGHT 3
-
-/* Local function prototypes. */
-LRESULT CALLBACK ODScrnWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam);
-static HWND ODScrnCreateWin(HWND hwndFrame, HANDLE hInstance);
-static void ODScrnMessageLoop(HANDLE hInstance, HWND hwndScreen);
-DWORD OD_THREAD_FUNC ODScrnThreadProc(void *pParam);
-static void ODScrnPaint(HDC hdc, INT nLeft, INT nTop, INT nRight, INT nBottom);
-static void ODScrnInvalidate(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom);
-static void ODScrnSetCurrentFont(HWND hwndScreen, HFONT hNewFont);
-static void ODScrnSetWinCaretPos(void);
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnCreateWin() *** PRIVATE FUNCTION ***
- *
- * Creates the local screen window, which covers the client area of the
- * OpenDoors frame window.
- *
- * Parameters: hwndFrame - Handle to the frame window.
- *
- * hInstance - Handle to application instance.
- *
- * Return: A handle to the newly created window, or NULL on failure.
- */
-static HWND ODScrnCreateWin(HWND hwndFrame, HANDLE hInstance)
-{
- HWND hwndScreen = NULL;
- WNDCLASS wcScreenWindow;
-
- ASSERT(hwndFrame != NULL);
- ASSERT(hInstance != NULL);
-
- /* Register the screen window's window class. */
- memset(&wcScreenWindow, 0, sizeof(wcScreenWindow));
- wcScreenWindow.style = CS_HREDRAW | CS_VREDRAW;
- wcScreenWindow.lpfnWndProc = ODScrnWindowProc;
- wcScreenWindow.cbClsExtra = 0;
- wcScreenWindow.cbWndExtra = 0;
- wcScreenWindow.hInstance = hInstance;
- wcScreenWindow.hIcon = NULL;
- wcScreenWindow.hCursor = LoadCursor(NULL, IDC_ARROW);
- wcScreenWindow.hbrBackground = NULL;
- wcScreenWindow.lpszMenuName = NULL;
- wcScreenWindow.lpszClassName = "ODScreen";
-
- RegisterClass(&wcScreenWindow);
-
- /* Create the screen window. */
- if((hwndScreen = CreateWindowEx(
- WS_EX_CLIENTEDGE,
- wcScreenWindow.lpszClassName,
- "",
- WS_CHILD | WS_BORDER,
- 0,
- 0,
- 500,
- 300,
- hwndFrame,
- NULL,
- hInstance,
- (LPVOID)hInstance)) == NULL)
- {
- /* On window creation failure, return NULL. */
- return(NULL);
- }
-
- /* Store handle to screen window for access from screen. */
- hwndScreenWindow = hwndScreen;
-
- return(hwndScreen);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnWindowProc() *** PRIVATE FUNCTION ***
- *
- * The local screen window proceedure.
- *
- * Parameters: hwnd - Handle to the local screen window.
- *
- * uMsg - Specifies the message.
- *
- * wParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * lParam - Specifies additional message information. The content
- * of this parameter depends on the value of the uMsg
- * parameter.
- *
- * Return: The return value is the result of the message processing and
- * depends on the message.
- */
-LRESULT CALLBACK ODScrnWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam)
-{
- HINSTANCE hInstance;
-
- ASSERT(hwnd != NULL);
-
- hInstance = (HINSTANCE)GetWindowLong(hwnd, GWL_USERDATA);
-
- switch(uMsg)
- {
- case WM_SYSCOMMAND:
- /* We move any SC_KEYMENU WM_SYSCOMMAND messages to the frame */
- /* window's message queue so that the screen window thread */
- /* can continue to process messages when the menu is */
- /* activated from the keyboard when the screen window has */
- /* the keyboard focus. If this isn't done, the menu will not */
- /* behave correctly when activated this way. */
- if(wParam == SC_KEYMENU)
- {
- PostMessage(GetParent(hwnd), uMsg, wParam, lParam);
- }
- else
- {
- return(DefWindowProc(hwnd, uMsg, wParam, lParam));
- }
- break;
-
- case WM_CREATE:
- {
- CREATESTRUCT *pCreateStruct = (CREATESTRUCT *)lParam;
- hInstance = (HINSTANCE)pCreateStruct->lpCreateParams;
- SetWindowLong(hwnd, GWL_USERDATA, (LONG)hInstance);
- break;
- }
-
- case WM_PAINT:
- {
- PAINTSTRUCT PaintStruct;
- HDC hdc;
-
- /* Obtain device context and paint information. */
- hdc = BeginPaint(hwnd, &PaintStruct);
-
- if(hdc != NULL)
- {
- /* Redraw the portion of the window that has been invalidated. */
- ODScrnPaint(hdc,
- XPIXEL_AS_COLUMN(PaintStruct.rcPaint.left),
- YPIXEL_AS_ROW(PaintStruct.rcPaint.top),
- XPIXEL_AS_COLUMN(PaintStruct.rcPaint.right),
- YPIXEL_AS_ROW(PaintStruct.rcPaint.bottom));
-
- /* Release device context. */
- EndPaint(hwnd, &PaintStruct);
- }
- break;
- }
-
- case WM_MOVE_YOUR_CARET:
- ODScrnSetWinCaretPos();
- break;
-
- case WM_LBUTTONDOWN:
- SetFocus(hwnd);
- break;
-
- case WM_SETFOCUS:
- /* Turn on the caret when we receive the input focus. */
- /* First, create the caret. */
- CreateCaret(hwnd, NULL, nFontCellWidth, CARET_HEIGHT);
-
- /* Remember that we now have the input focus. */
- bScreenHasFocus = TRUE;
-
- /* Update the position of the caret. */
- ODScrnSetWinCaretPos();
-
- /* Now, make the caret visible. */
- ShowCaret(hwnd);
- break;
-
- case WM_KILLFOCUS:
- /* Remember that we no longer have the input focus. */
- bScreenHasFocus = FALSE;
-
- /* Turn off the caret when we loose the input focus. */
- DestroyCaret();
- break;
-
- case WM_KEYDOWN_RELAY:
- {
- int nVirtKeyPressed = (int)wParam;
- WORD wRepeatCount = LOWORD(lParam);
- int nKeyTableIndex;
- WORD wKey = 0;
-
- /* Look for a matching key in the OpenDoors key table. */
- for(nKeyTableIndex = 0; nKeyTableIndex < DIM(aWinKeyToODKey);
- ++nKeyTableIndex)
- {
- if(aWinKeyToODKey[nKeyTableIndex].nVirtKey == nVirtKeyPressed)
- {
- wKey = MAKEWORD(0, aWinKeyToODKey[nKeyTableIndex].btODKey);
- break;
- }
- }
-
- /* If a matching key was found, then add it to the queue. */
- if(wKey != 0)
- {
- while(wRepeatCount--)
- {
- ODKrnlHandleLocalKey(wKey);
- }
- }
-
- break;
- }
-
- case WM_CHAR:
- {
- WORD wRepeatCount = LOWORD(lParam);
- BYTE btScanCode = LOBYTE(HIWORD(lParam));
- TCHAR chCharCode = (TCHAR)wParam;
- WORD wKey;
-
- wKey = MAKEWORD(chCharCode, btScanCode);
-
- /* Loop for each repitition of this key. */
- while(wRepeatCount--)
- {
- ODKrnlHandleLocalKey(wKey);
- }
- break;
- }
-
- default:
- /* Pass messages that we don't explicitly handle on to the */
- /* default window proc. */
- return(DefWindowProc(hwnd, uMsg, wParam, lParam));
- }
-
- return(0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnPaint() *** PRIVATE FUNCTION ***
- *
- * Draws the specified portion of the screen on the provided device context.
- *
- * Parameters: hdc - Handle to the device context to draw on.
- *
- * nLeft - Left column to draw.
- *
- * nTop - Top row to draw.
- *
- * nRight - Right column to draw.
- *
- * nBottom - Bottom row to draw.
- *
- * Return: void.
- */
-static void ODScrnPaint(HDC hdc, INT nLeft, INT nTop, INT nRight, INT nBottom)
-{
- INT nIDSavedState;
- INT nCurrentLine;
- INT nStartColumn;
- INT nEndColumn;
- BYTE *pbtBufferContents;
- char achStringToOutput[OD_SCREEN_WIDTH];
- char *pchNextChar;
- BYTE btCurrentAttribute;
-
- ASSERT(hdc != NULL);
- ASSERT(nLeft >= 0);
- ASSERT(nTop >= 0);
- ASSERT(nRight >= nLeft);
- ASSERT(nBottom >= nTop);
-
- /* Ensure that parameters are within valid range. */
- if(nRight >= OD_SCREEN_WIDTH) nRight = OD_SCREEN_WIDTH - 1;
- if(nBottom >= OD_SCREEN_HEIGHT) nBottom = OD_SCREEN_HEIGHT - 1;
-
- /* Save the current state of the device context so that we can restore */
- /* it before returning. */
- nIDSavedState = SaveDC(hdc);
-
- /* Setup device context for displaying text from the screen buffer. */
- SetBkMode(hdc, OPAQUE);
- SelectObject(hdc, hCurrentFont);
-
- /* Loop through each line that is to be painted. */
- for(nCurrentLine = nTop; nCurrentLine <= nBottom; ++nCurrentLine)
- {
- /* Obtain a pointer to the first byte representing this line in */
- /* the screen buffer. */
- pbtBufferContents = (BYTE *)(pScrnBuffer) +
- ((nCurrentLine * OD_SCREEN_WIDTH) + nLeft) * 2;
-
- /* Loop for each portion of this line that can be drawn in a single */
- /* TextOut() call. */
- for(nStartColumn = nLeft; nStartColumn <= nRight;
- nStartColumn = nEndColumn)
- {
- /* Begin constructing a string containing the text to output */
- /* in this call to TextOut(). */
- pchNextChar = achStringToOutput;
-
- /* Determine the color of this portion. */
- btCurrentAttribute = pbtBufferContents[1];
-
- /* Loop, finding the first column that has an incompatible color. */
- for(nEndColumn = nStartColumn; nEndColumn <= nRight; ++nEndColumn)
- {
- /* Stop looping if we come to a non-equivalent color */
- /* attribute. */
- if(btCurrentAttribute != pbtBufferContents[1])
- {
- break;
- }
-
- /* Otherwise, add this character to the string to output. */
- *pchNextChar++ = *pbtBufferContents;
-
- /* Move to the next position in the buffer. */
- pbtBufferContents += 2;
- }
-
- /* Change current display colors to match the current color */
- /* attribute. */
- SetTextColor(hdc, acrPCTextColors[btCurrentAttribute & 0x0f]);
- SetBkColor(hdc, acrPCTextColors[(btCurrentAttribute & 0xf0) >> 4]);
-
- /* Output the string. */
- TextOut(hdc,
- COLUMN_AS_XPIXEL(nStartColumn),
- ROW_AS_YPIXEL(nCurrentLine),
- achStringToOutput,
- (nEndColumn - nStartColumn));
- }
- }
-
- /* Restore the device context to its original state before this function */
- /* was called. */
- RestoreDC(hdc, nIDSavedState);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnInvalidate() *** PRIVATE FUNCTION ***
- *
- * Marks the specified area of the screen window as invalid, forcing the
- * screen thread to redraw it.
- *
- * Parameters: btLeft - The left most column to invalidate.
- *
- * btTop - The top most row to invalidate.
- *
- * btRight - The right most column to invalidate.
- *
- * btBottom - The bottom most row to invalidate.
- *
- * Return: void.
- */
-static void ODScrnInvalidate(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom)
-{
- RECT rcToInvalidate;
-
- /* If the screen window has not been created yet, then return without */
- /* doing anything. */
- if(hwndScreenWindow == NULL) return;
-
- /* Obtain rectangle in client window coordinates, to be invalidated. */
- rcToInvalidate.left = COLUMN_AS_XPIXEL(btLeft);
- rcToInvalidate.top = ROW_AS_YPIXEL(btTop);
- rcToInvalidate.right = COLUMN_AS_XPIXEL(btRight + 1);
- rcToInvalidate.bottom = ROW_AS_YPIXEL(btBottom + 1);
-
- /* Mark this rectangle as invalid. */
- InvalidateRect(hwndScreenWindow, &rcToInvalidate, FALSE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnSetCurrentFont() *** PRIVATE FUNCTION ***
- *
- * Changes the current font to be used for drawing, updating anything that
- * needs updating.
- *
- * Parameters: hwndScreen - Handle to the screen window.
- *
- * nNewFont - Handle to the font to switch to.
- *
- * Return: void.
- */
-static void ODScrnSetCurrentFont(HWND hwndScreen, HFONT hNewFont)
-{
- HDC hdc;
- INT nIDSavedState;
- TEXTMETRIC TextMetrics;
-
- /* Obtain a handle to the a device context for the screen window. */
- hdc = GetDC(hwndScreen);
-
- /* If we are unable to obtian a device context, then return without */
- /* doing anything. */
- if(hdc == NULL)
- {
- return;
- }
-
- /* Change the current font. */
- hCurrentFont = hNewFont;
-
- /* Obtain text metrics from the device context, and then release the */
- /* device context. */
- nIDSavedState = SaveDC(hdc);
- SelectObject(hdc, hCurrentFont);
- GetTextMetrics(hdc, &TextMetrics);
- RestoreDC(hdc, nIDSavedState);
- ReleaseDC(hwndScreen, hdc);
-
- /* Determine the new size of a character cell. */
- nFontCellWidth = TextMetrics.tmMaxCharWidth;
- nFontCellHeight = TextMetrics.tmHeight;
-
- /* Force window sizes to be adjusted for the new font size. */
- ODScrnAdjustWindows();
- ODScrnAdjustWindows();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnAdjustWindows()
- *
- * Resizes and repositions the screen window to the appropriate size based
- * on the current font, portions of the frame window's client area that are
- * in use, etc. Other windows whose size depends on the size of the screen
- * window are also updated.
- *
- * Parameters: None.
- *
- * Return: void.
- */
-void ODScrnAdjustWindows(void)
-{
- INT nNewClientWidth;
- INT nNewClientHeight;
- RECT rcClient;
- RECT rcWindow;
- INT nNonClientWidth;
- INT nNonClientHeight;
- INT nScreenWindowWidth;
- INT nScreenWindowHeight;
- HWND hwndFrame;
- INT nTopFrameUsed;
- INT nBottomFrameUsed;
- HWND hwndScreen;
-
- hwndScreen = hwndScreenWindow;
- ASSERT(hwndScreen != NULL);
-
- hwndFrame = GetParent(hwndScreen);
- ASSERT(hwndFrame != NULL);
-
- /* Determine areas of the frame window's client area that are already */
- /* in use. */
- nTopFrameUsed = ODFrameGetUsedClientAtTop(hwndFrame);
- nBottomFrameUsed = ODFrameGetUsedClientAtBottom(hwndFrame);
-
- /* Determine the new required size of the window's client area. */
- nNewClientWidth = nFontCellWidth * OD_SCREEN_WIDTH;
- nNewClientHeight = nFontCellHeight * OD_SCREEN_HEIGHT;
-
- /* Determine the size of the window's non-client area. */
- GetClientRect(hwndScreen, &rcClient);
- GetWindowRect(hwndScreen, &rcWindow);
- nNonClientWidth = (rcWindow.right - rcWindow.left)
- - (rcClient.right - rcClient.left);
- nNonClientHeight = (rcWindow.bottom - rcWindow.top)
- - (rcClient.bottom - rcClient.top);
-
- /* Determine the overall size required for the screen window. */
- nScreenWindowWidth = nNewClientWidth + nNonClientWidth;
- nScreenWindowHeight = nNewClientHeight + nNonClientHeight;
-
- /* Resize the screen window accordingly. */
- SetWindowPos(hwndScreen, NULL, 0, nTopFrameUsed, nScreenWindowWidth,
- nScreenWindowHeight, SWP_NOACTIVATE | SWP_NOCOPYBITS | SWP_NOZORDER);
-
- /* Resize the OpenDoors frame window (which is the screen window's */
- /* parent) so that the screen window just fill's the frame window's */
- /* remaining client area. */
- GetClientRect(hwndFrame, &rcClient);
- GetWindowRect(hwndFrame, &rcWindow);
- nNonClientWidth = (rcWindow.right - rcWindow.left)
- - (rcClient.right - rcClient.left);
- nNonClientHeight = (rcWindow.bottom - rcWindow.top)
- - (rcClient.bottom - rcClient.top);
-
- SetWindowPos(hwndFrame, NULL, 0, 0, nScreenWindowWidth + nNonClientWidth,
- nScreenWindowHeight + nNonClientHeight + nTopFrameUsed
- + nBottomFrameUsed,
- SWP_NOACTIVATE | SWP_NOCOPYBITS | SWP_NOMOVE | SWP_NOZORDER);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnMessageLoop() *** PRIVATE FUNCTION ***
- *
- * Message loop for OpenDoors screen window thread.
- *
- * Parameters: hInstance - Handle to current instance.
- *
- * hwndScreen - Handle to the screen window.
- *
- * Return: void.
- */
-static void ODScrnMessageLoop(HANDLE hInstance, HWND hwndScreen)
-{
- MSG msg;
- HWND hwndFrame;
-
- ASSERT(hInstance != NULL);
- ASSERT(hwndScreen != NULL);
-
- /* Obtain a handle to the OpenDoors main frame window. */
- hwndFrame = GetParent(hwndScreen);
-
- /* Loop, fetching, translating and dispatching messages for any windows */
- /* created by this thread. (GetMessage() blocks when no messages are */
- /* available.) */
- while(GetMessage(&msg, NULL, 0, 0))
- {
- if(!ODFrameTranslateAccelerator(hwndFrame, &msg))
- {
- TranslateMessage(&msg);
- if(msg.message == WM_KEYDOWN)
- {
- PostMessage(hwndScreen, WM_KEYDOWN_RELAY, msg.wParam, msg.lParam);
- }
- DispatchMessage(&msg);
- }
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnThreadProc() *** PRIVATE FUNCTION ***
- *
- * Function that execute the OpenDoors screen window thread. This thread's
- * primary task is to draw the screen window contents, when needed.
- *
- * Parameters: pParam - The thread parameter, which is a pointer to a
- * tODScrnThreadInfo structure.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-DWORD OD_THREAD_FUNC ODScrnThreadProc(void *pParam)
-{
- tODScrnThreadInfo *pScrnThreadInfo = (tODScrnThreadInfo *)pParam;
- HWND hwndScreen;
- HANDLE hInstance = pScrnThreadInfo->hInstance;
- HWND hwndFrame = pScrnThreadInfo->hwndFrame;
-
- /* We are now done with the thread startup information structure, */
- /* so deallocate it. */
- free(pScrnThreadInfo);
-
- /* Create the screen window. */
- hwndScreen = ODScrnCreateWin(hwndFrame, hInstance);
-
- if(hwndScreen == NULL)
- {
- return(FALSE);
- }
-
- /* Set the current font for the window. This, in turn will force the */
- /* window to be adjusted to the appropriate size, and will adjust the */
- /* size of the OpenDoors frame window accordingly. */
- ODScrnSetCurrentFont(hwndScreen, GetStockObject(OEM_FIXED_FONT));
-
- /* Prompt for the user's name before showing the windows, if required. */
-#ifdef ODPLAT_WIN32
- if(bPromptForUserName)
- {
- if(DialogBox(hInstance, MAKEINTRESOURCE(IDD_LOGIN), hwndFrame,
- ODInitLoginDlgProc) == IDCANCEL)
- {
- exit(od_control.od_errorlevel[1]);
- }
-
- PostMessage(hwndScreen, WM_SETFOCUS, 0, 0L);
- }
-#endif /* ODPLAT_WIN32 */
-
- /* Now, we can make the frame window visible. */
- if(od_control.od_cmd_show == SW_MINIMIZE ||
- od_control.od_cmd_show == SW_SHOWMINIMIZED ||
- od_control.od_cmd_show == SW_SHOWMINNOACTIVE)
- {
- ShowWindow(hwndFrame, SW_SHOWMINNOACTIVE);
- }
- else
- {
- ShowWindow(hwndFrame, SW_RESTORE);
- }
-
- /* Now, show the screen window. */
- ShowWindow(hwndScreen, SW_SHOW);
-
- /* Loop, processing messages for the screen window. */
- ODScrnMessageLoop(hInstance, hwndScreen);
-
- /* Destroy the screen window. */
- DestroyWindow(hwndScreen);
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnStartWindow()
- *
- * Function that starts up the screen window thread, which in turn creates
- * and manages the screen window.
- *
- * Parameters: hInstance - Handle to the current application instance.
- *
- * phScreenThread - Pointer to location where screen thread handle
- * should be stored.
- *
- * hwndFrame - Handle to already created frame window.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODScrnStartWindow(HANDLE hInstance, tODThreadHandle *phScreenThread,
- HWND hwndFrame)
-{
- tODScrnThreadInfo *pScrnThreadInfo;
-
- ASSERT(hInstance != NULL);
- ASSERT(phScreenThread != NULL);
- ASSERT(hwndFrame != NULL);
-
- /* Setup thread information to pass into the screen thread at startup. */
- if((pScrnThreadInfo = malloc(sizeof(tODScrnThreadInfo))) == NULL)
- {
- return(kODRCNoMemory);
- }
-
- pScrnThreadInfo->hInstance = hInstance;
- pScrnThreadInfo->hwndFrame = hwndFrame;
-
- /* Create the screen thread. */
- return(ODThreadCreate(phScreenThread, ODScrnThreadProc,
- pScrnThreadInfo));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnSetFocusToWindow()
- *
- * Sets the current input focus to the screen window.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODScrnSetFocusToWindow(void)
-{
- if(hwndScreenWindow != NULL)
- {
- SetFocus(hwndScreenWindow);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnSetWinCaretPos()
- *
- * Repositions the Windows caret to the position of our cursor, if
- * appropriate.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODScrnSetWinCaretPos(void)
-{
- /* Only move the caret if we have focus, and thus we are the one who */
- /* owns the caret. */
- if(bScreenHasFocus)
- {
- SetCaretPos(COLUMN_AS_XPIXEL(btCursorColumn + btLeftBoundary),
- ROW_AS_YPIXEL(btCursorRow + btTopBoundary + 1) - CARET_HEIGHT);
- }
-}
-
-
-#endif /* ODPLAT_WIN32 */
-
-
-
-/* ========================================================================= */
-/* Functions used throughout OpenDoors to manipulate local screen buffer. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODScrnInitialize()
- *
- * Initializes the local screen module.
- *
- * Parameters: none
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODScrnInitialize(void)
-{
- BOOL bClear = TRUE;
-
-#if defined(ODPLAT_DOS) || defined(ODPLAT_NIX)
- BYTE btDisplayMode;
-
- /* In silent mode, we perform all output in a block of memory that is */
- /* never displayed. */
- /* *nix is always in "silent mode" */
-#ifndef ODPLAT_NIX
- if(od_control.od_silent_mode)
- {
-#endif
- /* Allocate memory for screen buffer, using standard pointer type */
- /* for current memory model. */
- pAllocatedBufferMemory = malloc(SCREEN_BUFFER_SIZE);
-
- if(pAllocatedBufferMemory == NULL)
- {
- return(kODRCNoMemory);
- }
-
- /* Set the screen buffer far pointer to point to the allocated */
- /* buffer. */
- pScrnBuffer = pAllocatedBufferMemory;
-#ifndef ODPLAT_NIX
- }
- else
- {
- /* Get current video mode. */
- ASM push si
- ASM push di
- ASM mov ah, 0x0f
- ASM int 0x10
- ASM mov btDisplayMode, al
- ASM pop di
- ASM pop si
-
- switch(btDisplayMode & 0x7f)
- {
- /* No need to change mode, already colour 80x25. */
- case 0x02:
- case 0x03:
- wBufferSegment = 0xb800;
- pScrnBuffer = (void ODFAR *)0xb8000000L;
- bClear = TRUE;
- break;
-
- /* No need to change mode, already monochrome 80x25. */
- case 0x07:
- wBufferSegment = 0xb000;
- pScrnBuffer = (void ODFAR *)0xb0000000L;
- bClear = TRUE;
- break;
-
- /* Must change mode to monochrome 80x25. */
- case 0x21:
- wBufferSegment = 0xb000;
- pScrnBuffer = (void ODFAR *)0xb0000000L;
- bClear = FALSE;
-
- /* set mode to 0x07 */
- ASM push si
- ASM push di
- ASM mov ax, 0x0007
- ASM int 0x10
- ASM pop di
- ASM pop si
- break;
-
- /* Must change mode to colour 80x25. */
- default:
- wBufferSegment = 0xb800;
- pScrnBuffer = (void ODFAR *)0xb8000000L;
- bClear = FALSE;
-
- /* set mode to 0x03. */
- ASM push si
- ASM push di
- ASM mov ax, 0x0003
- ASM int 0x10
- ASM pop di
- ASM pop si
- }
-
-
-
- /* Adjust address for display page which is being used. */
- ASM push si
- ASM push di
- ASM mov ah, 0x0f
- ASM int 0x10
- ASM mov btDisplayPage, bh
- ASM pop di
- ASM pop si
-
- if(btDisplayPage!=0)
- {
- wBufferSegment += (SCREEN_BUFFER_SEGMENT_SIZE * btDisplayPage);
- ((char ODFAR *)pScrnBuffer) += (SCREEN_BUFFER_SIZE * btDisplayPage);
- }
-
- if(ODMultitasker == kMultitaskerDV)
- {
- /* Determine address of DV screen buffer. */
- /* This doesn't check rows, bh = rows, bl = columns. */
- ASM mov ax, 0x2b02
- ASM mov cx, 0x4445
- ASM mov dx, 0x5351
- ASM int 0x21
- ASM cmp bx, 0x1950
- ASM jne no_change
- ASM mov wBufferSegment, dx
-
- (long)pScrnBuffer = ODDWordShiftLeft((long)wBufferSegment, 16);
- no_change: ;
- }
- }
-#endif /* ODPLAT_DOS */
-#endif /* ODPLAT_DOS/NIX */
-
-#ifdef ODPLAT_WIN32
- /* Allocate memory for screen buffer. */
- pScrnBuffer = malloc(SCREEN_BUFFER_SIZE);
-
- if(pScrnBuffer == NULL)
- {
- return(kODRCNoMemory);
- }
-#endif /* ODPLAT_WIN32 */
-
- /* Initialize display system variables. */
- btLeftBoundary = 0;
- btRightBoundary = 79;
- btTopBoundary = 0;
- btBottomBoundary = 24;
- btCurrentAttribute = 0x07;
- bScrollEnabled = 1;
-
- /* Clear local screen. */
- if(bClear)
- {
- ODScrnClear();
- }
-
- /* Enable flashing cursor. */
- bCaretOn = FALSE;
- ODScrnEnableCaret(TRUE);
-
- /* Return with success. */
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnShutdown()
- *
- * De-initializes the screen module.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODScrnShutdown(void)
-{
-#ifdef ODPLAT_WIN32
- /* Deallocate screen buffer memory. */
- if(pScrnBuffer != NULL)
- {
- free(pScrnBuffer);
- pScrnBuffer = NULL;
- }
-#else /* !ODPLAT_WIN32 */
- /* In silent mode, we must deallocate screen buffer memory. */
- /* *nix is always in silent mode */
-#ifndef ODPLAT_NIX
- if(od_control.od_silent_mode && pAllocatedBufferMemory != NULL)
- {
-#endif
- free(pAllocatedBufferMemory);
- pAllocatedBufferMemory = NULL;
- pScrnBuffer = NULL;
-#ifndef ODPLAT_NIX
- }
-#endif
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnSetBoundary()
- *
- * Sets the current boundary area on the screen. All output is constrained
- * within this boundary area.
- *
- * Parameters: btLeft - 1-based column number of the left edge of the area.
- *
- * btTop - 1-based row number of the top edge of the area.
- *
- * btRight - 1-based column number of the right edge of the area.
- *
- * btBottom - 1-based row number of the bottom edge of the area.
- *
- * Return: void
- */
-void ODScrnSetBoundary(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom)
-{
- /* Set internal window location variables. */
- btLeftBoundary = btLeft - 1;
- btRightBoundary = btRight - 1;
- btTopBoundary = btTop - 1;
- btBottomBoundary = btBottom - 1;
-
- /* Ensure that the cursor is located within the new window boundaries. */
- if(btCursorColumn > btRightBoundary - btLeftBoundary)
- {
- btCursorColumn = btRightBoundary - btLeftBoundary;
- }
- else if(btCursorColumn < btLeftBoundary)
- {
- btCursorColumn = btLeftBoundary;
- }
-
- if(btCursorRow > btBottomBoundary - btTopBoundary)
- {
- btCursorRow = btBottomBoundary - btTopBoundary;
- }
- else if(btCursorRow < btTopBoundary)
- {
- btCursorRow = btTopBoundary;
- }
-
- /* Execute the position flashing cursor primitive. */
- ODScrnUpdateCaretPos();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnSetCursorPos()
- *
- * Sets the current cursor position. The cursor position is where the caret
- * (flashing cursor) appears (if it is currently turned on), and is the
- * location where ODScrnDisplayChar(), ODScrnDisplayString() and ODScrnPrintf()
- * will perform their output. Each of these functions, update the cursor
- * position to the next character cell after the end of their output. Other
- * ODScrn...() functions may also change the current cursor position.
- *
- * Parameters: btColumn - The 1-based column number where the cursor will
- * be placed.
- *
- * Return: void
- */
-void ODScrnSetCursorPos(BYTE btColumn, BYTE btRow)
-{
- /* Set internal cursor position values. */
- btCursorColumn = btColumn - 1;
- btCursorRow = btRow - 1;
-
- /* Ensure that cursor falls within the current output window. */
- if(btCursorColumn > btRightBoundary - btLeftBoundary)
- btCursorColumn = btRightBoundary - btLeftBoundary;
-
- if(btCursorRow > btBottomBoundary - btTopBoundary)
- btCursorRow = btBottomBoundary - btTopBoundary;
-
- /* Execute the position flashing cursor primitive. */
- ODScrnUpdateCaretPos();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnSetAttribute()
- *
- * Sets the current display attribute, to be used by ODScrnDisplayChar(),
- * ODScrnDisplayString(), ODScrnPrintf() and ODScrnClear(). The display
- * attribute byte is always in the IBM color attribute format, with the
- * lower 4 bits indicating the foreground color, and the next 3 bits
- * indicating the background color. The upper bit specifies whether the text
- * is flashing, although this code may not actually show flashing text on
- * all platforms.
- *
- * Parameters: btAttribute - The new color attribute to use.
- *
- * Return: void
- */
-void ODScrnSetAttribute(BYTE btAttribute)
-{
- /* Set internal display colour attribute. */
- btCurrentAttribute = btAttribute;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnEnableScrolling()
- *
- * Enables or disables scrolling of text within the currently defined boundary
- * area when a carriage return is sent with the cursor located on the bottom
- * line of bounary area.
- *
- * Parameters: bEnable - TRUE to enable scrolling, FALSE to disable scrolling.
- *
- * Return: void
- */
-void ODScrnEnableScrolling(BOOL bEnable)
-{
- /* Stores the current scrolling setting. */
- bScrollEnabled = bEnable;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnEnableCaret()
- *
- * Turns the caret (flashing indicator of the current cursor location) on or
- * off. Under the Win32 platform, the caret is always active when the
- * window has input focus, and inactive at any other time. Hene, under
- * Win32, this function has no effect.
- *
- * Parameters: bEnable - TRUE to turn on the flashing caret, FALSE to turn it
- * off.
- *
- * Return: void
- */
-void ODScrnEnableCaret(BOOL bEnable)
-{
-#ifdef ODPLAT_DOS
- if(bCaretOn == bEnable) return;
-
- bCaretOn = bEnable;
-
- /* Execute the cursor on / off primitive. */
- ASM push si
- ASM push di
- ASM mov ah, 0x03
- ASM mov bh, btDisplayPage
- ASM int 0x10
-
- /* ch = start line, cl = end line. */
- ASM push cx
- ASM mov ah, 0x0f
- ASM int 0x10
- ASM pop cx
-
- /* al = video mode. */
- ASM push ax
- ASM and ch, 0x1f
- ASM mov al, bCaretOn
- ASM and al, al
- ASM jnz set_cursor
- /* ch bits 5-6 = blink attr */
- /* 00 = normal */
- /* 01 = invisible */
- ASM or ch, 0x20
-set_cursor:
- ASM pop ax
- ASM mov bh, btDisplayPage
- ASM mov ah, 0x01
- ASM int 0x10
- ASM pop di
- ASM pop si
-
-
- if(bCaretOn)
- {
- /* Turn on the local caret, updating its position. */
- ODScrnUpdateCaretPos();
- }
- else
- {
- /* Turn off the local caret. */
- ASM mov ah, 0x02
- ASM mov bh, btDisplayPage
- ASM mov dh, OD_SCREEN_HEIGHT
- ASM mov dl, OD_SCREEN_WIDTH
- ASM push si
- ASM push di
- ASM int 0x10
- ASM pop di
- ASM pop si
- }
-#endif /* ODPLAT_DOS */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnGetTextInfo()
- *
- * Fills a structure with information about the current display settings,
- * including the position of the current boundary area (output window),
- * color attribute and cursor location.
- *
- * Parameters: pTextInfo - Pointer to the structure to store the current text
- * settings information in.
- *
- * Return: void
- */
-void ODScrnGetTextInfo(tODScrnTextInfo *pTextInfo)
-{
- pTextInfo->wintop = btTopBoundary + 1;
- pTextInfo->winleft = btLeftBoundary + 1;
- pTextInfo->winright = btRightBoundary + 1;
- pTextInfo->winbottom = btBottomBoundary + 1;
- pTextInfo->attribute = btCurrentAttribute;
- pTextInfo->curx = btCursorColumn + 1;
- pTextInfo->cury = btCursorRow + 1;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnPrintf()
- *
- * Performs formatted output within the current boundary area.
- *
- * Parameters: pszFormat - Format string, which is in the same format as is
- * used by the standard C printf() function.
- *
- * The semantics of additional parameters is specified by the
- * contents of the pszFormat string.
- *
- * Return: The standard printf() return value.
- */
-INT ODScrnPrintf(char *pszFormat, ...)
-{
- va_list pArgumentList;
- INT nToReturn;
-
- /* Generate string to display. */
- va_start(pArgumentList, pszFormat);
- nToReturn = vsprintf(szBuffer, pszFormat, pArgumentList);
- va_end(pArgumentList);
-
- /* Ensure that we didn't overrun the buffer. */
- ASSERT(strlen(szBuffer) <= sizeof(szBuffer) - 1);
-
- /* Display generated string. */
- ODScrnDisplayString(szBuffer);
-
- /* Return appropriate value. */
- return (nToReturn);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnDisplayChar()
- *
- * Writes a single character within the current boundary area, advancing the
- * cursor.
- *
- * Parameters: chToOutput - The character to display.
- *
- * Return: void
- */
-void ODScrnDisplayChar(unsigned char chToOutput)
-{
- BYTE ODFAR *pbtDest;
-
- ODScrnGetCursorPos();
-
- if(btCursorColumn > btRightBoundary - btLeftBoundary)
- {
- btCursorColumn = btRightBoundary - btLeftBoundary;
- }
-
- if(btCursorRow > btBottomBoundary - btTopBoundary)
- {
- btCursorRow = btBottomBoundary - btTopBoundary;
- }
-
- switch(chToOutput)
- {
- /* If character is a carriage return. */
- case '\r':
- btCursorColumn = 0;
- break;
-
- /* If character is a line feed. */
- case '\n':
- /* If cursor is at bottom of output window. */
- if(btCursorRow == btBottomBoundary - btTopBoundary)
- {
- /* Scroll the screen up by one line. */
- ODScrnScrollUpAndInvalidate();
- }
- /* If cursor is not at bottom of output window. */
- else
- {
- /* Move the cursor down one line. */
- ++btCursorRow;
- }
- break;
-
- case '\b':
- /* If backspace. */
- if(btCursorColumn != 0) --btCursorColumn;
- break;
-
- case '\t':
- /* If tab character. */
- btCursorColumn = ((btCursorColumn / 8) + 1) * 8;
- if(btCursorColumn > btRightBoundary - btLeftBoundary)
- {
- btCursorColumn = 0;
-
- /* If moving cursor down one line advances past end of window. */
- if(++btCursorRow > btBottomBoundary - btTopBoundary)
- {
- /* Move cursor back to bottom line of window. */
- btCursorRow = btBottomBoundary - btTopBoundary;
-
- /* Scroll the screen up by one line. */
- ODScrnScrollUpAndInvalidate();
- }
- }
- break;
-
- case '\a':
- /* If bell. */
- if(!od_control.od_silent_mode)
- {
-#ifdef ODPLAT_DOS
- ASM mov ah, 0x02
- ASM mov dl, 7
- ASM int 0x21
-#endif /* ODPLAT_DOS */
-#ifdef ODPLAT_WIN32
- MessageBeep(0xffffffff);
-#endif /* ODPLAT_WIN32 */
- }
- break;
-
- /* If character is not a control character. */
- default:
- /* Output character to display buffer. */
- pbtDest = (BYTE ODFAR *)pScrnBuffer
- + ((btTopBoundary + btCursorRow) * BUFFER_LINE_BYTES
- + (btLeftBoundary + btCursorColumn) * BYTES_PER_CHAR);
- *pbtDest++ = chToOutput;
- *pbtDest = btCurrentAttribute;
-
- ASSERT(pbtDest >= (BYTE ODFAR *)pScrnBuffer);
- ASSERT(pbtDest < (BYTE ODFAR *)pScrnBuffer + SCREEN_BUFFER_SIZE);
-
-#ifdef ODPLAT_WIN32
- /* Force the updated area of the screen window to be redrawn. */
- ODScrnInvalidate((BYTE)(btCursorColumn + btLeftBoundary),
- (BYTE)(btCursorRow + btTopBoundary),
- (BYTE)(btCursorColumn + btLeftBoundary),
- (BYTE)(btCursorRow + btTopBoundary));
-#endif /* ODPLAT_WIN32 */
-
- /* Advance cursor. If at end of line ... */
- if(++btCursorColumn > btRightBoundary - btLeftBoundary)
- {
- /* Wrap cursor if necessary. */
- btCursorColumn = 0;
-
- /* If moving cursor down one line advances past end of window. */
- if(++btCursorRow > btBottomBoundary - btTopBoundary)
- {
- /* Move cursor back to bottom line of window. */
- btCursorRow = btBottomBoundary - btTopBoundary;
-
- /* Scroll the screen up by one line. */
- ODScrnScrollUpAndInvalidate();
- }
- }
- }
-
- /* Execute the update flashing cursor primitive. */
- ODScrnUpdateCaretPos();
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnGetCursorPos() *** PRIVATE FUNCTION ***
- *
- * Updates the current cursor position (output position) from the location of
- * the caret (flashing cursor). This function doesn't do anything on the
- * Win32 platform, since we nobody else can reposition the cursor.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODScrnGetCursorPos(void)
-{
-#ifdef ODPLAT_DOS
- if(!bCaretOn) return;
-
- ASM mov ah, 0x03
- ASM mov bh, btDisplayPage
- ASM push si
- ASM push di
- ASM int 0x10
- ASM pop di
- ASM pop si
- ASM sub dh, btTopBoundary
- ASM mov btCursorRow, dh
- ASM sub dl, btLeftBoundary
- ASM mov btCursorColumn, dl
-#endif /* ODPLAT_DOS */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnUpdateCaretPos() *** PRIVATE FUNCTION ***
- *
- * Updates the position of the caret (flashing cursor) from the current cursor
- * location (output position).
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODScrnUpdateCaretPos(void)
-{
-#ifdef ODPLAT_DOS
- if(!bCaretOn) return;
-
- /* Update position of flashing cursor on screen */
- ASM mov ah, 0x02
- ASM mov bh, btDisplayPage
- ASM mov dh, btCursorRow
- ASM add dh, btTopBoundary
- ASM mov dl, btCursorColumn
- ASM add dl, btLeftBoundary
- ASM push si
- ASM push di
- ASM int 0x10
- ASM pop di
- ASM pop si
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- if(hwndScreenWindow != NULL)
- {
- PostMessage(hwndScreenWindow, WM_MOVE_YOUR_CARET, 0, 0);
- }
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnClear()
- *
- * Clears the text within the currently defined boundary area, setting the
- * display attribute of the entire boundary area to the current display
- * color.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODScrnClear(void)
-{
- WORD ODFAR *pDest = (WORD ODFAR *)pScrnBuffer +
- ((btTopBoundary * OD_SCREEN_WIDTH) + btLeftBoundary);
- WORD wBlank = (((WORD)btCurrentAttribute) << 8) | 32;
- BYTE btCurColumn;
- BYTE btCurLine = (btBottomBoundary - btTopBoundary) + 1;
- BYTE btColumnStart = (btRightBoundary - btLeftBoundary) + 1;
- BYTE btSkip = OD_SCREEN_WIDTH - btColumnStart;
-
- /* Clear contents of current window. */
- do
- {
- btCurColumn = btColumnStart;
- do
- {
- ASSERT(pDest >= (WORD ODFAR *)pScrnBuffer);
- ASSERT(pDest <= (WORD ODFAR *)pScrnBuffer + 2000);
- *(pDest++) = wBlank;
- } while ((--btCurColumn) != 0);
- pDest += btSkip;
- } while((--btCurLine) != 0);
-
- /* Move cursor to top left-hand corner of current window. */
- btCursorColumn = btCursorRow = 0;
-
- /* Execute the update flashing cursor primitive. */
- ODScrnUpdateCaretPos();
-
-#ifdef ODPLAT_WIN32
- /* Force the updated area of the screen window to be redrawn. */
- ODScrnInvalidate(btLeftBoundary, btTopBoundary, btRightBoundary,
- btBottomBoundary);
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnScrollUpAndInvalidate() *** PRIVATE FUNCTION ***
- *
- * Scrolls the entire screen up by one line, only if scrolling is enabled.
- * If scrolling is performed, invalidates area that was scrolled. Scrolling
- * is accomplished using ODScrnScrollUpOneLine().
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODScrnScrollUpAndInvalidate(void)
-{
- /* If scrolling is enabled. */
- if(bScrollEnabled)
- {
- /* Execute the scroll primitive. */
- ODScrnScrollUpOneLine();
-
-#ifdef ODPLAT_WIN32
- /* Force the updated area of the screen window to be redrawn. */
- ODScrnInvalidate(btLeftBoundary, btTopBoundary, btRightBoundary,
- btBottomBoundary);
-#endif /* ODPLAT_WIN32 */
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnScrollUpOneLine() *** PRIVATE FUNCTION ***
- *
- * Scrolls the area within the current output boundary up one line, leaving the
- * newly created line at the bottom of the area blank, with the current display
- * attribute.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void ODScrnScrollUpOneLine(void)
-{
- WORD ODFAR *pwDest = (WORD ODFAR *)pScrnBuffer
- + (btTopBoundary * OD_SCREEN_WIDTH + btLeftBoundary);
- WORD ODFAR *pwSource;
- BYTE btCurColumn;
- BYTE btCurLine = btBottomBoundary - btTopBoundary;
- BYTE btColumnStart = btRightBoundary - btLeftBoundary + 1;
- BYTE btSkip = OD_SCREEN_WIDTH - btColumnStart;
- WORD wBlank = (((WORD)btCurrentAttribute) << 8) | 32;
-
- pwSource = pwDest + OD_SCREEN_WIDTH;
-
- ASSERT(btSkip >= 0 && btSkip <= OD_SCREEN_WIDTH);
-
- /* Move text in area of window up one line. */
- do
- {
- btCurColumn = btColumnStart;
- do
- {
- ASSERT(pwDest >= (WORD ODFAR *)pScrnBuffer);
- ASSERT(pwDest <= (WORD ODFAR *)pScrnBuffer + 2000);
- ASSERT(pwSource >= (WORD ODFAR *)pScrnBuffer);
- ASSERT(pwSource <= (WORD ODFAR *)pScrnBuffer+2000);
- *(pwDest++) = *(pwSource++);
- } while((--btCurColumn) != 0);
- pwDest += btSkip;
- pwSource += btSkip;
- } while ((--btCurLine) != 0);
-
- /* Clear newly created line at bottom of window. */
- btCurColumn = btColumnStart;
- do
- {
- ASSERT(pwDest >= (WORD ODFAR *)pScrnBuffer);
- ASSERT(pwDest <= (WORD ODFAR *)pScrnBuffer + 2000);
- *(pwDest++) = wBlank;
- } while((--btCurColumn) != 0);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnGetText()
- *
- * Copies a portion of the currently displayed text and corresponding color
- * attributes to a buffer provided by the caller.
- *
- * Parameters: btLeft - Column number of the left edge of the area to copy
- * from.
- *
- * btTop - Row number of the top edge of the area to copy from.
- *
- * btRight - Column number of the right edge of the area to copy
- * from.
- *
- * btBottom - Row number of the bottom edge of the area to copy
- * from.
- *
- * pbtBuffer - A pointer to the buffer to copy to. It is the
- * caller's responsibility to ensure that this buffer
- * is large enough. This buffer must be at least
- * 2 x (Width of area) x (Height of area) bytes in size.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-BOOL ODScrnGetText(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom,
- void *pbtBuffer)
-{
- WORD *pwBuffer = (WORD *)pbtBuffer;
- WORD ODFAR *pSource = (WORD ODFAR *)pScrnBuffer
- + ((((--btTop) + btTopBoundary)
- * OD_SCREEN_WIDTH) + btLeftBoundary + (--btLeft));
- BYTE btCurColumn;
- BYTE btCurLine = (--btBottom) - btTop + 1;
- BYTE btColumnStart = (--btRight) - btLeft + 1;
- BYTE btSkip = OD_SCREEN_WIDTH - btColumnStart;
-
- ASSERT(btLeft >= 0);
- ASSERT(btTop >= 0);
- ASSERT(btRight <= btRightBoundary - btLeftBoundary);
- ASSERT(btBottom <= btBottomBoundary - btTopBoundary);
- ASSERT(pbtBuffer);
-
- /* Copy contents of screen block to buffer */
- do
- {
- btCurColumn = btColumnStart;
- do
- {
- ASSERT(pSource >= (WORD ODFAR *)pScrnBuffer);
- ASSERT(pSource <= (WORD ODFAR *)pScrnBuffer + 2000);
- ASSERT(pwBuffer >= (WORD *)pbtBuffer);
- ASSERT(pwBuffer <= (WORD *)pbtBuffer + 2000);
- *(pwBuffer++) = *(pSource++);
- } while ((--btCurColumn) != 0);
- pSource += btSkip;
- } while((--btCurLine) != 0);
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnPutText()
- *
- * Changes the currently displayed text and corresponding color attributes in
- * the specified area, to the values taken from the buffer. This buffer is in
- * the same format as is produce by the ODScrnGetText() function.
- *
- * Parameters: btLeft - Column number of the left edge of the area to copy
- * to.
- *
- * btTop - Row number of the top edge of the area to copy to.
- *
- * btRight - Column number of the right edge of the area to copy
- * to.
- *
- * btBottom - Row number of the bottom edge of the area to copy
- * to.
- *
- * pbtBuffer - A pointer to the buffer to copy from.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-BOOL ODScrnPutText(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom,
- void *pbtBuffer)
-{
- WORD *pwBuffer = (WORD *)pbtBuffer;
- WORD ODFAR *pDest = (WORD ODFAR *)pScrnBuffer
- + ((((--btTop) + btTopBoundary)
- * OD_SCREEN_WIDTH) + btLeftBoundary + (--btLeft));
- BYTE btCurColumn;
- BYTE btCurLine = (--btBottom) - btTop + 1;
- BYTE btColumnStart = (--btRight) - btLeft + 1;
- BYTE btSkip = OD_SCREEN_WIDTH - btColumnStart;
-
- ASSERT(btLeft >= 0 && btTop >= 0);
- ASSERT(btLeft <= btRightBoundary - btLeftBoundary);
- ASSERT(btTop <= btBottomBoundary - btTopBoundary);
- ASSERT(btRight >= 0 && btBottom >= 0);
- ASSERT(btRight <= btRightBoundary - btLeftBoundary);
- ASSERT(btBottom <= btBottomBoundary - btTopBoundary);
- ASSERT(pbtBuffer != NULL);
-
- /* Copy contents of screen block to buffer. */
- do
- {
- btCurColumn = btColumnStart;
- do
- {
- ASSERT(pDest >= (WORD ODFAR *)pScrnBuffer);
- ASSERT(pDest <= (WORD ODFAR *)pScrnBuffer + 2000);
- ASSERT(pwBuffer >= (WORD *)pbtBuffer);
- ASSERT(pwBuffer <= (WORD *)pbtBuffer + 2000);
- *(pDest++) = *(pwBuffer++);
- } while ((--btCurColumn) != 0);
- pDest += btSkip;
- } while((--btCurLine) != 0);
-
-#ifdef ODPLAT_WIN32
- /* Force the updated area of the screen window to be redrawn. */
- ODScrnInvalidate((BYTE)(btLeftBoundary + btLeft),
- (BYTE)(btTopBoundary + btTop),
- (BYTE)(btRightBoundary + btRight),
- (BYTE)(btBottomBoundary + btBottom));
-#endif /* ODPLAT_WIN32 */
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnDisplayString()
- *
- * Copies the contents of a string to the display, using the currently set
- * color attributes. The cursor location is updated to the end of the string
- * on the screen.
- *
- * Parameters: pszString - Pointer to the string to display.
- *
- * Return: void.
- */
-void ODScrnDisplayString(char *pszString)
-{
- ODScrnDisplayBuffer(pszString, strlen(pszString));
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnDisplayBuffer()
- *
- * Copies the contents of a buffer to the display, using the currently set
- * color attributes. The cursor location is updated to the end of the text
- * displayed to the screen.
- *
- * Parameters: pBuffer - Pointer to a buffer containing the
- * character(s) to display.
- *
- * nCharsToDisplay - Count of number of characters to display from
- * the buffer.
- *
- * Return: void.
- */
-void ODScrnDisplayBuffer(char *pBuffer, INT nCharsToDisplay)
-{
- char *pchCurrentChar = pBuffer;
- INT nCharsLeft = nCharsToDisplay;
- BYTE ODFAR *pDest;
- BYTE btLeftColumn;
- BYTE btAttribute = btCurrentAttribute;
- BYTE btCurrentColumn;
- BYTE btBottom = btBottomBoundary - btTopBoundary;
-#ifdef ODPLAT_WIN32
- BOOL bAnythingInvalid = FALSE;
- BYTE btLeftMost;
- BYTE btRightMost;
- BYTE btTopMost;
- BYTE btBottomMost;
-#endif /* ODPLAT_WIN32 */
-
- ASSERT(pBuffer != NULL);
- ASSERT(nCharsToDisplay >= 0);
-
- ODScrnGetCursorPos();
-
- if(btCursorColumn > btRightBoundary - btLeftBoundary)
- {
- btCursorColumn = btRightBoundary - btLeftBoundary;
- }
-
- if(btCursorRow > btBottomBoundary - btTopBoundary)
- {
- btCursorRow = btBottomBoundary - btTopBoundary;
- }
-
- btCurrentColumn = btCursorColumn;
-
- btLeftColumn = btRightBoundary - (btCurrentColumn + btLeftBoundary);
- pDest = (BYTE ODFAR *) pScrnBuffer + (((btTopBoundary + btCursorRow)
- * BUFFER_LINE_BYTES)
- + (btLeftBoundary + btCursorColumn) * BYTES_PER_CHAR);
-
- while(nCharsLeft--)
- {
- ASSERT(pDest >= (BYTE ODFAR *)pScrnBuffer);
- ASSERT(pDest <= (BYTE ODFAR *)pScrnBuffer + SCREEN_BUFFER_SIZE);
- switch(*pchCurrentChar)
- {
- case '\r':
- btCurrentColumn = 0;
- btLeftColumn = btRightBoundary - btLeftBoundary;
- pDest = (BYTE ODFAR *)pScrnBuffer + ((btTopBoundary + btCursorRow)
- * BUFFER_LINE_BYTES + btLeftBoundary * BYTES_PER_CHAR);
- pchCurrentChar++;
- break;
- case '\n':
- if (btCursorRow < btBottom)
- {
- ++btCursorRow;
- pDest += BUFFER_LINE_BYTES;
- }
- else if(bScrollEnabled)
- {
- ODScrnScrollUpOneLine();
-#ifdef ODPLAT_WIN32
- /* Entire boundary area is now invalid. */
- bAnythingInvalid = TRUE;
- btLeftMost = btLeftBoundary;
- btRightMost = btRightBoundary;
- btTopMost = btTopBoundary;
- btBottomMost = btBottomBoundary;
-#endif /* ODPLAT_WIN32 */
- }
- pchCurrentChar++;
- break;
-
- case '\a':
- /* If bell */
- if(!od_control.od_silent_mode)
- {
-#ifdef ODPLAT_DOS
- ASM mov ah, 0x02
- ASM mov dl, 7
- ASM int 0x21
-#endif /* ODPLAT_DOS */
-#ifdef ODPLAT_WIN32
- MessageBeep(0xffffffff);
-#endif /* ODPLAT_WIN32 */
- pchCurrentChar++;
- }
- break;
-
- case '\t':
- /* If tab character. */
- btCurrentColumn = ((btCurrentColumn / 8) + 1) * 8;
- if(btCurrentColumn > btRightBoundary - btLeftBoundary)
- {
- btCurrentColumn = 0;
-
- /* If moving cursor down one line advances past end of window. */
- if(++btCursorRow > btBottomBoundary - btTopBoundary)
- {
- /* Move cursor back to bottom line of window. */
- btCursorRow = btBottomBoundary - btTopBoundary;
-
- /* If scrolling is enabled. */
- if(bScrollEnabled)
- {
- /* Execute the scroll primitive .*/
- ODScrnScrollUpOneLine();
-#ifdef ODPLAT_WIN32
- /* Entire boundary area is now invalid. */
- bAnythingInvalid = TRUE;
- btLeftMost = btLeftBoundary;
- btRightMost = btRightBoundary;
- btTopMost = btTopBoundary;
- btBottomMost = btBottomBoundary;
-#endif /* ODPLAT_WIN32 */
- }
- }
- }
-
- /* Determine new buffer destination address. */
- pDest = (BYTE ODFAR *) pScrnBuffer
- + (((btTopBoundary + btCursorRow) * BUFFER_LINE_BYTES)
- + (btLeftBoundary + btCursorColumn) * BYTES_PER_CHAR);
- break;
-
- case '\b':
- if(btCurrentColumn > 0)
- {
- --btCurrentColumn;
- pDest-=2;
- btLeftColumn++;
- }
- pchCurrentChar++;
- break;
-
- default:
- *(pDest++) = *(pchCurrentChar++);
- *(pDest++) = btAttribute;
-
-#ifdef ODPLAT_WIN32
- /* Expand area to invalidate, if needed. */
- if(!bAnythingInvalid)
- {
- bAnythingInvalid = TRUE;
- btLeftMost = btLeftBoundary + btCurrentColumn;
- btRightMost = btLeftBoundary + btCurrentColumn;
- btTopMost = btTopBoundary + btCursorRow;
- btBottomMost = btTopBoundary + btCursorRow;
- }
- else
- {
- BYTE btColumn = btLeftBoundary + btCurrentColumn;
- BYTE btRow = btTopBoundary + btCursorRow;
-
- if(btColumn < btLeftMost) btLeftMost = btColumn;
- if(btColumn > btRightMost) btRightMost = btColumn;
- if(btRow < btTopMost) btTopMost = btRow;
- if(btRow > btBottomMost) btBottomMost = btRow;
- }
-#endif /* ODPLAT_WIN32 */
-
- if(btLeftColumn--)
- {
- ++btCurrentColumn;
- }
- else
- {
- btCurrentColumn = 0;
- btLeftColumn = btRightBoundary - btLeftBoundary;
-
- if(btCursorRow < btBottom)
- {
- ++btCursorRow;
- }
- else if(bScrollEnabled)
- {
- ODScrnScrollUpOneLine();
-#ifdef ODPLAT_WIN32
- /* Entire boundary area is now invalid. */
- bAnythingInvalid = TRUE;
- btLeftMost = btLeftBoundary;
- btRightMost = btRightBoundary;
- btTopMost = btTopBoundary;
- btBottomMost = btBottomBoundary;
-#endif /* ODPLAT_WIN32 */
- }
-
- pDest = (BYTE ODFAR *)pScrnBuffer
- + ((btTopBoundary + btCursorRow)
- * BUFFER_LINE_BYTES + btLeftBoundary * BYTES_PER_CHAR);
- }
- }
- }
-
- btCursorColumn = btCurrentColumn;
- ODScrnUpdateCaretPos();
-
-#ifdef ODPLAT_WIN32
- if(bAnythingInvalid)
- {
- /* Force the updated area of the screen window to be redrawn. */
- ODScrnInvalidate(btLeftMost, btTopMost, btRightMost,
- btBottomMost);
- }
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnCopyText()
- *
- * Copies the contents of the specified area on the screen to another location
- * on the screen. The destination location must be such that the entire area
- * specified as the source can be displayed without falling off the edge of the
- * screen.
- *
- * Parameters: btLeft - Column number of the left edge of the area to
- * copy from.
- *
- * btTop - Row number of the top edge of the area to copy
- * from.
- *
- * btRight - Column number of the right edge of the area to
- * copy from.
- *
- * btBottom - Row number of the bottom edge of the area to
- * copy from.
- *
- * btDestColumn - Column number where the upper right corner of
- * the area should be copied to.
- *
- * btDestRow - Row number where the upper right cornder of the
- * area should be copied to.
- *
- * Return: TRUE on success, or FALSE on failure. May fail due to
- * insufficient available memory.
- */
-BOOL ODScrnCopyText(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom,
- BYTE btDestColumn, BYTE btDestRow)
-{
- void *pScrnBuffer;
-
- ASSERT(btLeft >= 0 && btTop >= 0);
- ASSERT(btLeft <= btRightBoundary - btLeftBoundary);
- ASSERT(btTop <= btBottomBoundary - btTopBoundary);
- ASSERT(btRight >= 0 && btBottom >= 0);
- ASSERT(btRight <= btRightBoundary - btLeftBoundary);
- ASSERT(btBottom <= btBottomBoundary - btTopBoundary);
- ASSERT(btDestColumn >= 0 && btDestRow >= 0);
- ASSERT(btDestColumn <= btRightBoundary - btLeftBoundary);
- ASSERT(btDestRow <= btBottomBoundary - btTopBoundary);
-
- if( !(btLeft <= btRightBoundary - btLeftBoundary
- && btTop <= btBottomBoundary - btTopBoundary)
- || !(btRight <= btRightBoundary - btLeftBoundary
- && btBottom <= btBottomBoundary - btTopBoundary)
- || !(btDestColumn <= btRightBoundary - btLeftBoundary
- && btDestRow <= btBottomBoundary - btTopBoundary))
- {
- return(FALSE);
- }
-
-
- if((pScrnBuffer = malloc((btRight - btLeft + 1) * (btBottom - btTop + 1)
- * BYTES_PER_CHAR)) == NULL)
- {
- /* Insufficient memory, return with failure. */
- return (FALSE);
- }
-
- ODScrnGetText(btLeft, btTop, btRight, btBottom, pScrnBuffer);
- ODScrnPutText(btDestColumn, btDestRow,
- (BYTE)(btRight + (btDestColumn - btLeft)),
- (BYTE)(btBottom + (btDestRow - btTop)), pScrnBuffer);
- free(pScrnBuffer);
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnClearToEndOfLine()
- *
- * Clears the contents of the current line, from the current cursor location
- * to the end of the line.
- *
- * Parameters: none
- *
- * Return: void
- */
-void ODScrnClearToEndOfLine(void)
-{
- unsigned char btCharsToDelete = btRightBoundary
- - (btLeftBoundary + btCursorColumn);
- BYTE ODFAR *pDest = (BYTE ODFAR *) pScrnBuffer
- + (((btTopBoundary + btCursorRow) * BUFFER_LINE_BYTES)
- + (btLeftBoundary + btCursorColumn) * BYTES_PER_CHAR);
- BYTE btAttribute = btCurrentAttribute;
-
- while(btCharsToDelete--)
- {
- *(pDest++) = ' ';
- *(pDest++) = btAttribute;
- }
-
-#ifdef ODPLAT_WIN32
- /* Force the updated area of the screen window to be redrawn. */
- ODScrnInvalidate((BYTE)(btLeftBoundary + btCursorColumn),
- (BYTE)(btTopBoundary + btCursorRow), btRightBoundary,
- (BYTE)(btTopBoundary + btCursorRow));
-#endif /* ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnCreateWindow()
- *
- * Creates a text-based window on the local terminal.
- *
- * Parameters: btLeft - Column numebr of the left of the window.
- *
- * btTop - Row number of the top of the window.
- *
- * btRight - Column number of the right of the window.
- *
- * btBottom - Row number of the bottom of the window.
- *
- * btAttribute - Display attribute for the window boarder and
- * the area inside the window.
- *
- * pszTitle - Pointer to a string containing the title to
- * display, or "" for none.
- *
- * btTitleAttribute - Display attribute for the title text.
- *
- * Return: void
- */
-#ifdef OD_TEXTMODE
-void *ODScrnCreateWindow(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom, BYTE btAttribute, char *pszTitle, BYTE btTitleAttribute)
-{
- void *pUnder;
- INT nBetween;
- INT nCount;
- INT nFirst;
- char *pszString;
- int nTitleWidth;
-
- ASSERT(pszTitle != NULL);
-
- /* Alocate space to store screen contents "under" window. */
- if((pUnder = malloc((btRight - btLeft + 1) * (btBottom - btTop + 1)
- * BYTES_PER_CHAR + 4 * sizeof(BYTE))) == NULL)
- {
- return(NULL);
- }
-
- /* Store the window's position in the buffer. */
- ((BYTE *)pUnder)[0] = btLeft;
- ((BYTE *)pUnder)[1] = btTop;
- ((BYTE *)pUnder)[2] = btRight;
- ((BYTE *)pUnder)[3] = btBottom;
-
- /* Retrieve screen contents in window area. */
- ODScrnGetText(btLeft, btTop, btRight, btBottom, ((BYTE *)pUnder) + 4);
-
- /* Determine area between left & right of window, distance of line before */
- /* title, and distance of line after title. */
- if(strlen(pszTitle) == 0)
- {
- nTitleWidth = 0;
- }
- else
- {
- nTitleWidth = strlen(pszTitle) + 2;
- }
- nCount = (nBetween = btRight - btLeft - 1) - nTitleWidth;
- nCount -= (nFirst = nCount / 2);
-
- /* Prepare to begin drawing window at upper left corner */
- ODScrnSetCursorPos(btLeft, btTop);
- ODScrnSetAttribute(btAttribute);
-
- /* Draw first line of window */
- ODScrnDisplayChar((unsigned char)214);
- while(nFirst--) ODScrnDisplayChar((unsigned char)196);
- if(strlen(pszTitle) != 0)
- {
- ODScrnSetAttribute(btTitleAttribute);
- ODScrnDisplayChar(' ');
- ODScrnDisplayString(pszTitle);
- ODScrnDisplayChar(' ');
- ODScrnSetAttribute(btAttribute);
- }
- while(nCount--) ODScrnDisplayChar((unsigned char)196);
- ODScrnDisplayChar((unsigned char)183);
-
- /* Build string for working lines */
- pszString = szBuffer;
- *pszString++ = (unsigned char)186;
- nCount = nBetween;
- while(nCount--) *pszString++ = ' ';
- *pszString++ = (unsigned char)186;
- *pszString++ = '\0';
-
- /* Draw working lines of window */
- for(nCount = btTop + 1; nCount < btBottom; ++nCount)
- {
- ODScrnSetCursorPos(btLeft, (BYTE)nCount);
- ODScrnDisplayString(szBuffer);
- }
-
- /* Draw last line of window */
- ODScrnSetCursorPos(btLeft, btBottom);
- ODScrnDisplayChar((unsigned char)211);
- while(nBetween--) ODScrnDisplayChar((unsigned char)196);
- ODScrnDisplayChar((unsigned char)189);
-
- /* return pointer to buffer */
- return(pUnder);
-}
-#endif /* OD_TEXTMODE */
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnDestroyWindow()
- *
- * Removes a text-based window that was created by ODScrnCreateWindow().
- *
- * Parameters: pWindow - Pointer to the buffer returned by the corresponding
- * call to ODScrnCreateWindow().
- *
- * Return: void
- */
-#ifdef OD_TEXTMODE
-void ODScrnDestroyWindow(void *pWindow)
-{
- BYTE btLeft;
- BYTE btTop;
- BYTE btRight;
- BYTE btBottom;
- BYTE *pabtWindow = (BYTE *)pWindow;
-
- ASSERT(pWindow != NULL);
-
- /* Determine the location of the window. */
- btLeft = pabtWindow[0];
- btTop = pabtWindow[1];
- btRight = pabtWindow[2];
- btBottom = pabtWindow[3];
-
- /* Restore original screen contents under the window. */
- ODScrnPutText(btLeft, btTop, btRight, btBottom, ((BYTE *)pWindow) + 4);
-
- /* Deallocate window buffer. */
- free(pWindow);
-}
-#endif /* OD_TEXTMODE */
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnLocalInput()
- *
- * Inputs a string, only displaying input on local screen.
- *
- * Parameters: btLeft - Column number of the left end of the input
- * field.
- *
- * btRow - Row number where the input field appears.
- *
- * pszString - Location where user's input should be stored. Must
- * be initialized.
- *
- * nMaxChars - The maximum number of characters that may be
- * accepted for input into the string.
- *
- * Return: void
- */
-#ifdef OD_TEXTMODE
-void ODScrnLocalInput(BYTE btLeft, BYTE btRow, char *pszString,
- BYTE btMaxChars)
-{
- BYTE btCount;
- BYTE btCurrentPos;
- BOOL bAnyKeysPressed = FALSE;
- tODInputEvent InputEvent;
-
- /* Draw initial input field. */
- ODScrnSetCursorPos(btLeft, btRow);
- ODScrnDisplayString(pszString);
- for(btCount = strlen(pszString); btCount <= btMaxChars; ++btCount)
- {
- ODScrnDisplayChar(177);
- }
-
- /* Start with the cursor at the end of the input field. */
- btCurrentPos = strlen(pszString);
-
- /* Loop until the user presses enter. */
- for(;;)
- {
- /* Position the cursor at the appropriate location. */
- ODScrnSetCursorPos((BYTE)(btLeft + btCurrentPos), btRow);
-
- /* Obtain the next input event. */
- ODInQueueGetNextEvent(hODInputQueue, &InputEvent, OD_NO_TIMEOUT);
-
- switch(InputEvent.chKeyPress)
- {
- case '\b':
- /* If user presses [Backspace], then move back if we are not at */
- /* the left of the input field. */
- if(btCurrentPos > 0)
- {
- /* Backspace, removing last character from string. */
- btCurrentPos--;
- ODScrnSetCursorPos((BYTE)(btLeft + btCurrentPos), btRow);
- ODScrnDisplayChar(177);
- pszString[btCurrentPos] = '\0';
- }
- break;
-
- case '\n':
- case '\r':
- /* If user presses [Enter], then exit from the function. */
- return;
-
- case '\0':
- /* In the case of a multi-character sequence, skip the next */
- /* character from the input queue. */
- ODInQueueGetNextEvent(hODInputQueue, &InputEvent, OD_NO_TIMEOUT);
- break;
-
- default:
- /* If this is a valid string character for the string. */
- if(InputEvent.chKeyPress >= ' ')
- {
- /* If no keys have been pressed yet, then erase the entire */
- /* string first. */
- if(!bAnyKeysPressed)
- {
- btCurrentPos = 0;
- ODScrnSetCursorPos(btLeft, btRow);
- for(btCount = 0; btCount <= btMaxChars; ++btCount)
- {
- ODScrnDisplayChar(177);
- }
- ODScrnSetCursorPos(btLeft, btRow);
- }
-
- /* If we are not at the end of the string, then add the */
- /* character to the string. */
- if(btCurrentPos < btMaxChars)
- {
- /* Display the new character. */
- ODScrnDisplayChar(InputEvent.chKeyPress);
-
- /* Add the character to the string. */
- pszString[btCurrentPos] = InputEvent.chKeyPress;
-
- /* Update the current cursor position. */
- ++btCurrentPos;
-
- /* Terminate the string. */
- pszString[btCurrentPos] = '\0';
- }
- }
- }
-
- /* Note that a key has now been pressed. */
- bAnyKeysPressed = TRUE;
- }
-}
-#endif /* OD_TEXTMODE */
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnShowMessage()
- *
- * Displays a message window with the specified message text. Unlike the
- * Windows MessageBox() function, this message box is removed by the caller
- * of the function rather than the user.
- *
- * Parameters: pszText - Pointer to message text to be displayed. This string
- * must continue to exist until after the
- * ODScrnRemoveMessage() function is called.
- *
- * nFlags - Currently unused, must be 0.
- *
- * Return: A pointer which must be passed to ODScrnRemoveMessage() in
- * order to remove this message from the screen. A return value
- * of NULL does not necessarily indicate window creation failure,
- * and should still be passed to a corresponding call to
- * ODScrnRemoveMessage().
- */
-void *ODScrnShowMessage(char *pszText, int nFlags)
-{
- ASSERT(pszText != NULL);
- ASSERT(nFlags == 0);
-
- /* In silent mode, this function does nothing. */
- if(od_control.od_silent_mode) return(NULL);
-
-#ifdef ODPLAT_WIN32
-
- /* Place a message in the frame window's message queue, asking it to */
- /* create the message window. */
- PostMessage(GetParent(hwndScreenWindow), WM_SHOW_MESSAGE, (WPARAM)nFlags,
- (LPARAM)pszText);
-
- return(NULL);
-
-#else /* !ODPLAT_WIN32 */
- {
- int nWindowWidth;
- int nLeftColumn;
- char szMessage[74];
- void *pWindow;
-
- UNUSED(nFlags);
-
- ODStringCopy(szMessage, pszText, sizeof(szMessage));
-
- ODStoreTextInfo();
-
- nWindowWidth = strlen(szMessage) + 4;
- nLeftColumn = 40 - (nWindowWidth / 2);
- if((pWindow = ODScrnCreateWindow((BYTE)nLeftColumn, 10,
- (BYTE)(nLeftColumn + (nWindowWidth - 1)), 14,
- od_control.od_local_win_col, "", od_control.od_local_win_col))
- == NULL)
- {
- return(NULL);
- }
-
- ODScrnSetCursorPos((BYTE)(42 - (nWindowWidth / 2)), 12);
- ODScrnDisplayString(szMessage);
- ODRestoreTextInfo();
-
- ODScrnEnableCaret(FALSE);
-
- return(pWindow);
- }
-#endif /* !ODPLAT_WIN32 */
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODScrnRemoveMessage()
- *
- * Removes a message that was shown by a previous call to ODScrnShowMessage().
- *
- * Parameters: pMessageInfo - Pointer to the buffer returned by the
- * corresponding call to ODScrnShowMessage().
- *
- * Return: void
- */
-void ODScrnRemoveMessage(void *pMessageInfo)
-{
- /* In silent mode, this function does nothing. */
- if(od_control.od_silent_mode) return;
-
-#ifdef ODPLAT_WIN32
- /* Place a message in the frame window's message queue, asking it to */
- /* remove the message window. */
- SendMessage(GetParent(hwndScreenWindow), WM_REMOVE_MESSAGE, 0, 0L);
-#else /* !ODPLAT_WIN32 */
- /* If pMessageInfo is NULL, then we do nothing. */
- if(pMessageInfo == NULL) return;
-
- ODStoreTextInfo();
- ODScrnDestroyWindow(pMessageInfo);
- ODRestoreTextInfo();
- ODScrnEnableCaret(TRUE);
-#endif /* !ODPLAT_WIN32 */
-}
diff --git a/src/odoors/ODScrn.h b/src/odoors/ODScrn.h
deleted file mode 100644
index 28c507e699f7b6b7e93c53037e199094621d8f1b..0000000000000000000000000000000000000000
--- a/src/odoors/ODScrn.h
+++ /dev/null
@@ -1,110 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODScrn.h
- *
- * Description: Functions used to access the local display screen buffer, which
- * keeps a copy of the text that is displayed on the remote
- * terminal. The local display screen buffer also displays the
- * OpenDoors status lines on some platforms. In addition to
- * maintaining the current screen buffer, the odscrn.c module
- * also contains the code to display this buffer on the screen.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 14, 1995 6.00 BP Created.
- * Jan 21, 1996 6.00 BP Added ODScrnShowMessage() and related.
- * Jan 27, 1996 6.00 BP Made text-mode window f'ns static.
- * Jan 31, 1996 6.00 BP Made them non-static again.
- * Jan 31, 1996 6.00 BP Added ODScrnLocalInput().
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- */
-
-#ifndef _INC_ODSCRN
-#define _INC_ODSCRN
-
-#include "ODTypes.h"
-#include "ODPlat.h"
-
-/* Text information structure. */
-typedef struct
-{
- unsigned char winleft;
- unsigned char wintop;
- unsigned char winright;
- unsigned char winbottom;
- unsigned char attribute;
- unsigned char curx;
- unsigned char cury;
-} tODScrnTextInfo;
-
-
-/* Screen buffer initialization and shutdown functions. */
-tODResult ODScrnInitialize(void);
-void ODScrnShutdown(void);
-
-/* Basic text output functions. */
-void ODScrnDisplayChar(unsigned char chToOutput);
-void ODScrnDisplayBuffer(char *pBuffer, INT nCharsToDisplay);
-void ODScrnDisplayString(char *pszString);
-INT ODScrnPrintf(char *pszFormat, ...);
-
-/* Functions for manipulating rectangular areas of the screen buffer. */
-BOOL ODScrnGetText(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom,
- void *pbtBuffer);
-BOOL ODScrnPutText(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom,
- void *pbtBuffer);
-BOOL ODScrnCopyText(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom,
- BYTE btDestColumn, BYTE btDestRow);
-
-/* Functions for clearing portions of the screen buffer. */
-void ODScrnClear(void);
-void ODScrnClearToEndOfLine(void);
-
-/* Functions for setting or obtaining current display settings. */
-void ODScrnSetBoundary(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE btBottom);
-void ODScrnSetCursorPos(BYTE btColumn, BYTE btRow);
-void ODScrnSetAttribute(BYTE btAttribute);
-void ODScrnEnableScrolling(BOOL bEnable);
-void ODScrnEnableCaret(BOOL bEnable);
-void ODScrnGetTextInfo(tODScrnTextInfo *pTextInfo);
-
-/* Functions for displaying OpenDoors message window. */
-void *ODScrnShowMessage(char *pszText, int nFlags);
-void ODScrnRemoveMessage(void *pMessageInfo);
-
-/* Additional local output functions for text mode based versions. */
-#ifdef OD_TEXTMODE
-void *ODScrnCreateWindow(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom, BYTE btAttribute, char *pszTitle, BYTE btTitleAttribute);
-void ODScrnDestroyWindow(void *pWindow);
-void ODScrnLocalInput(BYTE btLeft, BYTE btRow, char *pszString,
- BYTE btMaxChars);
-#endif /* OD_TEXTMODE */
-
-/* Functions for local screen window under Win32 version. */
-#ifdef ODPLAT_WIN32
-tODResult ODScrnStartWindow(HANDLE hInstance, tODThreadHandle *phScreenThread,
- HWND hwndFrame);
-void ODScrnSetFocusToWindow(void);
-void ODScrnAdjustWindows(void);
-#endif /* ODPLAT_WIN32 */
-
-#endif /* _INC_ODSCRN */
diff --git a/src/odoors/ODSpawn.c b/src/odoors/ODSpawn.c
deleted file mode 100644
index 8ac24e1baa952db76f382e1552b539b7141be52c..0000000000000000000000000000000000000000
--- a/src/odoors/ODSpawn.c
+++ /dev/null
@@ -1,1098 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODSpawn.c
- *
- * Description: Implements the od_spawn...() functions for suspending this
- * program and executing a sub-program. Can be called by the
- * user explicitly, or invoked for sysop OS shell.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Oct 21, 1994 6.00 BP Further isolated com routines.
- * Dec 09, 1994 6.00 BP Use new directory access functions.
- * Dec 13, 1994 6.00 BP Standardized coding style.
- * Dec 31, 1994 6.00 BP Remove #ifndef USEINLINE DOS code.
- * Jan 01, 1995 6.00 BP _waitdrain -> ODWaitDrain()
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 11, 1995 6.00 BP Removed register keyword.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Nov 17, 1995 6.00 BP Use new input queue mechanism.
- * Nov 21, 1995 6.00 BP Ported to Win32.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 23, 1996 6.00 BP Finished port to Win32.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 23, 1996 6.00 BP Enable and test under Win32.
- * Feb 27, 1996 6.00 BP Store screen info in our own struct.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Aug 10, 2003 6.23 SH *nix support - some functions not supported (Yet)
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-#include <ctype.h>
-#include <time.h>
-#include <errno.h>
-
-#include "OpenDoor.h"
-#ifdef ODPLAT_NIX
-#include <signal.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#endif
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODCom.h"
-#include "ODPlat.h"
-#include "ODScrn.h"
-#include "ODInQue.h"
-#include "ODInEx.h"
-#include "ODUtil.h"
-#include "ODKrnl.h"
-#include "ODSwap.h"
-
-#ifdef ODPLAT_WIN32
-#include "ODFrame.h"
-#endif /* ODPLAT_WIN32 */
-
-#if defined(ODPLAT_WIN32) && defined(_MSC_VER)
-#undef P_WAIT
-#undef P_NOWAIT
-#include <process.h>
-#endif /* ODPLAT_WIN32 && _MSC_VER */
-
-#ifdef ODPLAT_DOS
-
-/* Local and global variables for memory swapping spawn routines. */
-
-int _swap = 0; /* if 0, do swap */
-char *_swappath = NULL; /* swap path */
-int _useems = 0; /* if 0, use EMS */
-int _required = 0; /* child memory requirement in K */
-static long swapsize; /* swap size requirement in bytes */
-static int ems = 2; /* if 0, EMS is available */
-static int mapsize; /* size of page map information */
-static unsigned int tempno = 1; /* tempfile number */
-static char errtab[] = /* error table */
-{
- 0,
- EINVAL,
- ENOENT,
- ENOENT,
- EMFILE,
- EACCES,
- EBADF,
- ENOMEM,
- ENOMEM,
- ENOMEM,
- E2BIG,
- ENOEXEC,
- EINVAL,
- EINVAL,
- -1,
- EXDEV,
- EACCES,
- EXDEV,
- ENOENT,
- -1
-};
-
-static VECTOR vectab1[]=
-{
- 0, 1, 0, 0,
- 1, 1, 0, 0,
- 2, 1, 0, 0,
- 3, 1, 0, 0,
- 0x1B, 1, 0, 0,
- 0x23, 1, 0, 0,
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 2, 0, 0, /* free record */
- 0, 3, 0, 0 /* end record */
-};
-
-static VECTOR vectab2[(sizeof vectab1)/(sizeof vectab1[0])];
-
-/* Location function prototypes. */
-int _spawnvpe(int nModeFlag, char *pszPath, char *papszArgs[],
- char *papszEnviron[]);
-int _spawnve(int nModeFlag, char *pszPath, char *papszArgs[],
- char * papszEnviron[]);
-static void savevect(void);
-
-
-#endif /* ODPLAT_DOS */
-
-
-/* ----------------------------------------------------------------------------
- * od_spawn()
- *
- * Executes the specified command line, suspending OpenDoors operations while
- * the spawned-to program is running.
- *
- * Parameters: pszCommandLine - Command to execute along with any parameters.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_spawn(char *pszCommandLine)
-{
-#ifdef ODPLAT_DOS
- char *apszArgs[4];
- INT16 nReturnCode;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_spawn()");
-
- *apszArgs=getenv("COMSPEC");
-
- apszArgs[1] = "/c";
- apszArgs[2] = pszCommandLine;
- apszArgs[3] = NULL;
-
- if(*apszArgs != NULL)
- {
- if((nReturnCode = od_spawnvpe(P_WAIT, *apszArgs, apszArgs, NULL)) != -1
- || errno != ENOENT)
- {
- return(nReturnCode != -1);
- }
- }
-
- *apszArgs = "command.com";
-
- return(od_spawnvpe(P_WAIT, *apszArgs, apszArgs, NULL) != -1);
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_WIN32
- char *pch;
- char *apszArgs[3];
- char szProgName[80];
-
- /* Build command and arguments list. */
- /* Build program name. */
- ODStringCopy(szProgName, pszCommandLine, sizeof(szProgName));
- pch = strchr(szProgName, ' ');
- if(pch != NULL) *pch = '\0';
- apszArgs[0] = szProgName;
-
- /* Build arguments. */
- pch = strchr(pszCommandLine, ' ');
- if(pch == NULL)
- {
- apszArgs[1] = NULL;
- }
- else
- {
- apszArgs[1] = pch + 1;
- apszArgs[2] = NULL;
- }
-
- /* Now, call od_spawnvpe(). */
- return(od_spawnvpe(P_WAIT, *apszArgs, apszArgs, NULL) != -1);
-#endif /* ODPLAT_WIN32 */
-
-#ifdef ODPLAT_NIX
- sigset_t block;
- struct itimerval itv;
- struct sigaction act;
- int retval;
-
- /* Suspend kernel */
- sigemptyset(&block);
- sigaddset(&block,SIGALRM);
- sigprocmask(SIG_BLOCK,&block,NULL);
- retval=system(pszCommandLine);
-
- /* Restore kernel */
- sigemptyset(&block);
- sigaddset(&block,SIGALRM);
- sigprocmask(SIG_UNBLOCK,&block,NULL);
-
- return(retval==-1);
-#endif
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_spawnvpe()
- *
- * Executes the specified program, using the specified arguments and
- * environment variables, optionally suspending OpenDoors operations while
- * the spawned-to program is running.
- *
- * Parameters: nModeFlag - P_WAIT to for OpenDoors operations to be suspended
- * while the spawned-to program is running, or
- * P_NOWAIT if the calling program should continue to
- * run while the spawned-to program is running. In
- * non-multitasking environments, the only valid value
- * of this parameters is P_WAIT.
- *
- * pszPath - Complete path and filename of the program to
- * exectute.
- *
- * papszArg - Array of string pointers to command line arguments.
- *
- * papszEnv - Array of string pointers to environment variables.
- *
- * Return: -1 on failure or the spawned-to program's return value on
- * success.
- */
-ODAPIDEF INT16 ODCALL od_spawnvpe(INT16 nModeFlag, char *pszPath,
- char *papszArg[], char *papszEnv[])
-{
- INT16 nToReturn;
- time_t nStartUnixTime;
- DWORD dwQuotient;
-#ifdef ODPLAT_WIN32
- void *pWindow;
-#endif /* ODPLAT_WIN32 */
-#if defined(ODPLAT_DOS) || defined(ODPLAT_NIX)
- char *pszDir;
- BYTE *abtScreenBuffer;
- INT nDrive;
- tODScrnTextInfo TextInfo;
-#endif /* ODPLAT_DOS */
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_spawnvpe()");
-
- /* Initialize OpenDoors if it hasn't already been done. */
- if(!bODInitialized) od_init();
-
-#ifdef ODPLAT_DOS
- /* Ensure the nModeFlag is P_WAIT, which is the only valid value for */
- /* the MS-DOS version of OpenDoors. */
- if(nModeFlag != P_WAIT)
- {
- od_control.od_error = ERR_PARAMETER;
- return(-1);
- }
-
- /* Store current screen contents. */
- if((abtScreenBuffer = malloc(4000)) == NULL)
- {
- od_control.od_error = ERR_MEMORY;
- return(-1);
- }
- if((pszDir = malloc(256)) == NULL)
- {
- od_control.od_error = ERR_MEMORY;
- free(abtScreenBuffer);
- return(-1);
- }
-
- /* Store current display settings. */
- ODScrnGetTextInfo(&TextInfo);
-
- /* Set current output area to the full screen. */
- ODScrnSetBoundary(1,1,80,25);
-
- /* Store contents of entire screen. */
- ODScrnGetText(1, 1, 80, 25, (char *)abtScreenBuffer);
-
- /* Set the current display colour to grey on black. */
- ODScrnSetAttribute(0x07);
-
- /* Clear the screen if required. Otherwise, move the cursor to the */
- /* upper left corner of the screen. */
- if(od_control.od_clear_on_exit)
- {
- ODScrnClear();
- }
- else
- {
- ODScrnSetCursorPos(1, 1);
- }
-
- /* Store current directory. */
- strcpy(pszDir, "X:\\");
- pszDir[0] = 'A' + (nDrive = _getdrv());
- _getcd(0, (char *)pszDir + 3);
-#endif /* ODPLAT_DOS */
-
- /* Remember when spawned to program was executed. */
- nStartUnixTime = time(NULL);
-
- if(nModeFlag == P_WAIT)
- {
- /* Display the spawn message box under Win32. */
-#ifdef ODPLAT_WIN32
- pWindow = ODScrnShowMessage("Running sub-program...", 0);
-#endif /* ODPLAT_WIN32 */
-
- /* Wait for up to ten seconds for outbound buffer to drain. */
- ODWaitDrain(10000);
-
-#ifdef OD_MULTITHREADED
- /* Mutlithreaded versions of OpenDoors must shutdown the kernel */
- /* before closing the serial port. */
- ODKrnlShutdown();
-#endif /* OD_MULTITHREADED */
-
- /* Close serial port. */
- if(od_control.baud != 0)
- {
-#ifdef ODPLAT_WIN32
- /* Disable DTR response by the modem before closing the serial */
- /* port, if this is required. */
- ODInExDisableDTR();
-#endif /* ODPLAT_WIN32 */
- ODComClose(hSerialPort);
- }
- }
-
- /* Execute specified program with the specified arguments. */
- nToReturn = _spawnvpe(nModeFlag, pszPath, papszArg, papszEnv);
-
- if(nModeFlag == P_WAIT)
- {
- /* Re-open serial port. */
- if(od_control.baud != 0)
- {
- ODComOpen(hSerialPort);
- }
-
-#ifdef OD_MULTITHREADED
- /* Mutlithreaded versions of OpenDoors must shutdown the kernel */
- /* before closing the serial port, so reinitialize the kernel now. */
- ODKrnlInitialize();
-#endif /* OD_MULTITHREADED */
-
- if(!(bIsShell || od_control.od_spawn_freeze_time))
- {
- ODDWordDivide(&dwQuotient, NULL, time(NULL) - nStartUnixTime, 60L);
- od_control.user_timelimit -= (int)dwQuotient;
- }
- else
- {
- nNextTimeDeductTime += time(NULL) - nStartUnixTime;
- }
-
- /* Reset the time of the last input activity to the current time. */
- /* This will prevent an immediate inactity timeout, regardless of */
- /* how long the spawned-to program was active. */
- ODInQueueResetLastActivity(hODInputQueue);
-
- /* Clear inbound buffer. */
- od_clear_keybuffer();
-
- /* Remove the spawn message box under Win32. */
-#ifdef ODPLAT_WIN32
- ODScrnRemoveMessage(pWindow);
-#endif /* ODPLAT_WIN32 */
- }
-
-#ifdef ODPLAT_DOS
- /* Redisplay the door screen. */
- ODScrnPutText(1, 1, 80, 25, (char *)abtScreenBuffer);
-
- /* Restore cursor to old position. */
- ODScrnSetBoundary(TextInfo.winleft, TextInfo.wintop,
- TextInfo.winright, TextInfo.winbottom);
- ODScrnSetAttribute(TextInfo.attribute);
- ODScrnSetCursorPos(TextInfo.curx, TextInfo.cury);
-
- _setdrvcd(nDrive, pszDir);
-
- /* Free allocated space. */
- free(abtScreenBuffer);
- free(pszDir);
-#endif /* ODPLAT_DOS */
-
- /* Return appropriate value. */
- return(nToReturn);
-}
-
-
-#ifdef ODPLAT_DOS
-
-/* ----------------------------------------------------------------------------
- * _spawnvpe() *** PRIVATE FUNCTION ***
- *
- * Executes a child program in the MS-DOS environment, swapping the calling
- * program out of memory if enabled.
- *
- * Parameters: nModeFlag - Must be P_WAIT.
- *
- * pszPath - Name of program to execute.
- *
- * papszArgs - Array of command-line arguments.
- *
- * papszEnviron - Array of environment variables.
- *
- * Return: -1 on failure or the spawned-to program's return value on
- * success.
- */
-int _spawnvpe(int nModeFlag, char *pszPath, char *papszArgs[],
- char *papszEnviron[])
-{
- char *e;
- char *p;
- char buf[80];
- int nReturnCode;
-
-
- _swappath = (char *)(strlen(od_control.od_swapping_path) == 0 ? NULL
- : (char *)od_control.od_swapping_path);
- _useems = od_control.od_swapping_noems;
- _swap = od_control.od_swapping_disable;
-
- if((nReturnCode=_spawnve(nModeFlag, pszPath, papszArgs, papszEnviron))!=-1
- || errno!=ENOENT || *pszPath=='\\' || *pszPath=='/'
- || *pszPath && *(pszPath+1)==':' || (e=getenv("PATH"))==NULL)
- {
- return(nReturnCode);
- }
-
- for (;;e++)
- {
- if((p=strchr(e,';'))!=NULL)
- {
- if(p-e > 66)
- {
- e=p;
- continue;
- }
- }
- else if(strlen(e)>66)
- {
- return( -1 );
- }
-
- p=buf;
-
- while(*e && *e!=';') *p++=*e++;
-
- if(p>buf)
- {
- if(*(p-1)!='\\' && *(p-1)!='/') *p++ = '\\';
- strcpy(p,pszPath);
-
- if((nReturnCode=_spawnve(nModeFlag,buf,papszArgs,papszEnviron))!=-1 || errno!=ENOENT)
- {
- return(nReturnCode);
- }
- }
- if(*e=='\0') return(-1);
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * addvect() *** PRIVATE FUNCTION ***
- *
- * Adds a vector to the vector table.
- *
- * Parameters: number - The vector number.
- *
- * opcode - Vector flags.
- *
- * Return: -1 on failure, or 0 on success.
- */
-int addvect(int number, int opcode)
-{
- VECTOR *vect = vectab1;
-
- if ( number < 0 || number > 0xFF ||
- ( opcode != IRET && opcode != CURRENT ))
- {
- errno = EINVAL;
- return( -1 );
- }
-
- /* see if number is already in table */
- while ( vect->flag != 3 && ( vect->flag == 2 ||
- vect->number != ( char )number ))
- {
- vect++;
- }
-
- if ( vect->flag == 3 )
- {
- /* look for a free record */
- vect = vectab1;
- while ( vect->flag == CURRENT || vect->flag == IRET )
- vect++;
- }
-
- if ( vect->flag != 3 )
- {
- vect->number = ( char )number;
- vect->flag = ( char )opcode;
- if ( opcode == CURRENT )
- _getvect( number, &vect->vseg, &vect->voff );
- return( 0 );
- }
-
- errno = ENOMEM;
- return( -1 );
-}
-
-
-/* ----------------------------------------------------------------------------
- * savevect() *** PRIVATE FUNCTION ***
- *
- * Saves current vector in vector table.
- *
- * Parameters: none
- *
- * Return: void
- */
-static void savevect(void)
-{
- VECTOR *vect1 = vectab1;
- VECTOR *vect2 = vectab2;
-
- while ( vect1->flag != 3 )
- {
- if ( vect1->flag != 2 )
- {
- vect2->number = vect1->number;
- vect2->flag = CURRENT;
- _getvect( vect1->number, &vect2->vseg, &vect2->voff );
- }
- else
- vect2->flag = 2; /* free */
- vect1++;
- vect2++;
- }
- vect2->flag = 3; /* end */
-}
-
-
-/* ----------------------------------------------------------------------------
- * testfile() *** PRIVATE FUNCTION ***
- *
- * Tests swap file.
- *
- * Parameters: p - Path.
- *
- * file - File name.
- *
- * handle - File handle.
- *
- * Return: 1 on failure.
- */
-static int testfile(char *p, char *file, int *handle)
-{
- unsigned int startno = tempno;
- int nDrive = ( *file | 32 ) - 96; /* a = 1, b = 2, etc. */
- int root;
- unsigned int bytes; /* bytes per cluster */
- unsigned int clusters; /* free clusters */
- int need; /* clusters needed for swap file */
- int nReturnCode; /* return code */
- unsigned long dwQuotient;
- unsigned long remainder;
-
- if ( file + 2 == p )
- {
- *p++ = '\\';
- if ( _getcd( nDrive, p )) /* get current directory */
- return( 1 ); /* invalid drive */
- p = file + strlen( file );
- }
- else
- {
- *p = '\0';
- if ( ODFileAccessMode( file, 0 ))
- return( 1 ); /* path does not exist */
- }
- if ( *( p - 1 ) != '\\' && *( p - 1 ) != '/' )
- *p++ = '\\';
- if ( p - file == 3 )
- root = 1; /* is root directory */
- else
- root = 0; /* is not root directory */
- strcpy( p, "swp" );
- p += 3;
-
- if ( _dskspace( nDrive, &bytes, &clusters ) != 0 )
- return( 1 ); /* invalid drive */
-
-
-
- ODDWordDivide(&dwQuotient, &remainder, swapsize, bytes);
- need = (int)dwQuotient;
-
- if ( remainder )
- need++;
- if ( root == 0 ) /* if subdirectory */
- need++; /* in case the directory needs space */
- if ( clusters < ( unsigned int )need )
- return( 1 ); /* insufficient free disk space */
-
- do
- {
-again: tempno = ( ++tempno ) ? tempno : 1;
- if ( tempno == startno )
- return( 1 ); /* extremely unlikely */
- ltoa(( long )tempno, p, 10 );
- }
- while ( !ODFileAccessMode( file, 0 ));
-
-/*
- * The return code from _create will equal 80 if the user is running DOS 3.0
- * or above and the file was created by another program between the access
- * call and the _create call.
- */
-
- if (( nReturnCode = _create( file, handle )) == 80 )
- goto again;
- return( nReturnCode );
-}
-
-
-/* ----------------------------------------------------------------------------
- * tempfile() *** PRIVATE FUNCTION ***
- *
- * Creates a temporary swap file.
- *
- * Parameters: file - Filename
- *
- * handle - Handle to file.
- *
- * Return: 0 on success, or 1 on failure.
- */
-static int tempfile(char *file, int *handle)
-{
- char *s = _swappath;
- char *p = file;
-
- if ( s )
- {
- for ( ;; s++ )
- {
- while ( *s && *s != ';' )
- *p++ = *s++;
- if ( p > file )
- {
- if ( p == file + 1 || file[ 1 ] != ':' )
- {
- memmove( file + 2, file, ( int )( p - file ));
- *file = ( char )( _getdrv() + 'a' );
- file[ 1 ] = ':';
- p += 2;
- }
- if ( testfile( p, file, handle ) == 0 )
- return( 0 );
- p = file;
- }
- if ( *s == '\0' )
- break;
- }
- }
- else /* try the current directory */
- {
- *p++ = ( char )( _getdrv() + 'a' );
- *p++ = ':';
- if ( testfile( p, file, handle ) == 0 )
- return( 0 );
- }
-
- errno = EACCES;
- return( 1 );
-}
-
-
-/* ----------------------------------------------------------------------------
- * cmdenv() *** PRIVATE FUNCTION ***
- *
- * Constructs environment.
- *
- * Parameters: papszArgs - Array of arguments.
- *
- * papszEnviron - Array of environment variables to add.
- *
- * command - The command specified.
- *
- * env - Pointer to environment.
- *
- * memory - Allocated memory.
- *
- * Return: Environment length.
- */
-static int cmdenv(char **papszArgs, char **papszEnviron, char *command,
- char **env, char **memory)
-{
- char **vp;
- unsigned int elen = 0; /* environment length */
- char *p;
- int cnt;
- int len;
-
- /* construct environment */
-
- if ( papszEnviron == NULL )
- {
- char far *parent_env;
- char far *env_ptr;
- int nul_count;
-
- ASM mov ah, 0x62
- ASM int 0x21
- ASM push es
- ASM mov es, bx
- ASM mov ax, es:[0x2c]
- ASM pop es
- ASM mov word ptr parent_env, 0
- ASM mov word ptr parent_env + 2, ax
-
- env_ptr = parent_env;
- nul_count = 0;
- while(nul_count < 2)
- {
- if(*env_ptr)
- {
- nul_count = 0;
- }
- else
- {
- ++nul_count;
- }
-
- ++env_ptr;
- ++elen;
- }
-
- if ( elen > 32766 ) /* 32K - 2 */
- {
- errno = E2BIG;
- return( -1 );
- }
-
- if (( p = malloc(elen + 15 )) == NULL )
- {
- errno = ENOMEM;
- return( -1 );
- }
- *memory = p;
-
- *( unsigned int * )&p = *( unsigned int * )&p + 15 & ~15;
- *env = p;
-
- len = elen;
- while(len--)
- {
- *p++ = *parent_env++;
- }
- }
- else
- {
- for ( vp = papszEnviron; *vp; vp++ )
- {
- elen += strlen( *vp ) + 1;
- if ( elen > 32766 ) /* 32K - 2 */
- {
- errno = E2BIG;
- return( -1 );
- }
- }
-
- if (( p = malloc( ++elen + 15 )) == NULL )
- {
- errno = ENOMEM;
- return( -1 );
- }
- *memory = p;
-
- *( unsigned int * )&p = *( unsigned int * )&p + 15 & ~15;
- *env = p;
-
- for ( vp = papszEnviron; *vp; vp++ )
- p = strchr( strcpy( p, *vp ), '\0' ) + 1;
-
- *p = '\0'; /* final element */
- }
-
-
- /* construct command-line */
-
- vp = papszArgs;
- p = command + 1;
- cnt = 0;
-
- if (vp!=NULL && *vp )
- {
- while ( *++vp )
- {
- *p++ = ' ';
- cnt++;
- len = strlen( *vp );
- if ( cnt + len > 125 )
- {
- errno = E2BIG;
- free( *memory );
- return( -1 );
- }
- strcpy( p, *vp );
- p += len;
- cnt += len;
- }
- }
-
- *p = '\r';
- *command = ( char )cnt;
-
- return(( int )elen ); /* return environment length */
-}
-
-
-/* ----------------------------------------------------------------------------
- * doxspawn() *** PRIVATE FUNCTION ***
- *
- * Performs spawn using memory swapping.
- *
- * Parameters: pszPath - Path to command to exectute.
- *
- * papszArg - Array of arugments.
- *
- * papszEnviron - Pointer to the environment.
- *
- * Return: 0 on success, or -1 on failure.
- */
-static int doxspawn(char *pszPath, char *papszArgs[], char *papszEnviron[])
-{
- int nReturnCode = 0; /* assume do xspawn */
- int doswap = 0; /* assume do swap */
- int elen; /* environment length */
- char *memory;
- char *env; /* environment */
- char command[ 128 ]; /* command-line */
- long totalsize; /* parent and free memory in bytes */
- int handle;
- int pages;
- char file[ 79 ];
- char *mapbuf = NULL; /* buffer for map information */
-
- /* construct the command-line and the environment */
- if (( elen = cmdenv( papszArgs, papszEnviron, command, &env, &memory )) == -1 )
- return( -1 );
-
- if ( _swap == 0 )
- {
- if ( _useems == 0 )
- {
- if ( ems == 2 )
- ems = _chkems( "EMMXXXX0", &mapsize );
- if ( ems == 0 && ( mapbuf = malloc( mapsize )) == NULL )
- {
- errno = ENOMEM;
- free( memory );
- return( -1 );
- }
- }
- if (( nReturnCode = _xsize( _psp, &swapsize, &totalsize )) == 0 )
- {
- if ( _required == 0 || totalsize - swapsize - 272
- < (long)ODDWordShiftLeft(( long )_required , 10 ))
- {
- if ( ems == 0 && _useems == 0 )
- {
- pages = ( int )ODDWordShiftRight( swapsize , 14);
- if ((long)ODDWordShiftLeft(( long )pages , 14 ) < swapsize )
- pages++;
- if ( _savemap( mapbuf ) == 0 &&
- _getems( pages, &handle ) == 0 )
- *file = '\0'; /* use EMS */
- else if ( tempfile( file, &handle ) != 0 )
- nReturnCode = -1; /* don't do xspawn */
- }
- else if ( tempfile( file, &handle ) != 0 )
- nReturnCode = -1; /* don't do xspawn */
- }
- else
- doswap = 1; /* don't do swap */
- }
- else
- {
- errno = errtab[ nReturnCode ];
- nReturnCode = -1; /* don't do xspawn */
- }
- }
- else
- doswap = 1; /* don't do swap */
-
- if ( nReturnCode == 0 )
- {
- savevect(); /* save current vectors */
- nReturnCode = _xspawn( pszPath, command, env, vectab1, doswap, elen, file,
- handle );
- _setvect( vectab2 ); /* restore saved vectors */
- if ( nReturnCode == 0 )
- nReturnCode = _getrc(); /* get child return code */
- else
- {
- errno = errtab[ nReturnCode ];
- nReturnCode = -1;
- }
- /*
- * If EMS was used, restore the page-mapping state of the expanded
- * memory hardware.
- */
- if ( doswap == 0 && *file == '\0' && _restmap( mapbuf ) != 0 )
- {
- errno = EACCES;
- nReturnCode = -1;
- }
- }
-
- if ( mapbuf )
- free( mapbuf );
- free( memory );
- return( nReturnCode );
-}
-
-
-/* ----------------------------------------------------------------------------
- * _spawnve() *** PRIVATE FUNCTION ***
- *
- * Performs a spawn.
- *
- * Parameters: nModeFlag - Must be P_WAIT
- *
- * pszPath - Command to execute.
- *
- * papszArgs - Command line arguments.
- *
- * papszEnviron - Pointer to environment.
- *
- * Return: void
- */
-int _spawnve(int nModeFlag, char *pszPath, char *papszArgs[],
- char * papszEnviron[])
-{
- char *p;
- char *s;
- int nReturnCode = -1;
- char buf[ 80 ];
-
- if ( nModeFlag != P_WAIT )
- {
- errno = EINVAL;
- return( -1 );
- }
-
- p = strrchr( pszPath, '\\' );
- s = strrchr( pszPath, '/' );
- if ( p == NULL && s == NULL )
- p = pszPath;
- else if ( p == NULL || s > p )
- p = s;
-
- if ( strchr( p, '.' ))
- {
- if ( !ODFileAccessMode( pszPath, 0 ))
- nReturnCode = doxspawn( pszPath, papszArgs, papszEnviron );
- /* If file not found, access will have set errno to ENOENT. */
- }
- else
- {
- strcpy( buf, pszPath );
- strcat( buf, ".com" );
- if ( !ODFileAccessMode( buf, 0 ))
- nReturnCode = doxspawn( buf, papszArgs, papszEnviron );
- else
- {
- strcpy( strrchr( buf, '.' ), ".exe" );
- if ( !ODFileAccessMode( buf, 0 ))
- nReturnCode = doxspawn( buf, papszArgs, papszEnviron );
- /* If file not found, access will have set errno to ENOENT. */
- }
- }
-
- return( nReturnCode );
-}
-
-#endif /* ODPLAT_DOS */
-
-#ifdef ODPLAT_NIX
-/* ----------------------------------------------------------------------------
- * _spawnvpe() *** PRIVATE FUNCTION ***
- *
- * Executes a child program in the *nix environment.
- *
- * Parameters: nModeFlag - Must be P_WAIT or P_NOWAIT
- *
- * pszPath - Name of program to execute.
- *
- * papszArgs - Array of command-line arguments.
- *
- * papszEnviron - Array of environment variables.
- *
- * Return: -1 on failure or the spawned-to program's return value on
- * success.
- */
-int _spawnvpe(int nModeFlag, char *pszPath, char *papszArgs[],
- char *papszEnviron[])
-{
- pid_t child;
- int status;
- pid_t wret;
- struct sigaction act;
-
-
- child=fork();
-
- if(nModeFlag == P_WAIT) {
- /* require wait for child */
- act.sa_handler=SIG_IGN;
- sigemptyset(&(act.sa_mask));
- act.sa_flags=SA_NOCLDSTOP;
- sigaction(SIGCHLD,&act,NULL);
- }
- else {
- /* Ignore SIGCHLD for backgrounded spawned processes */
- act.sa_handler=SIG_IGN;
- sigemptyset(&(act.sa_mask));
- act.sa_flags=SA_NOCLDSTOP|SA_NOCLDWAIT;
- sigaction(SIGCHLD,&act,NULL);
- }
-
- if(!child) {
- /* Do the exec stuff here */
- execve(pszPath,papszArgs,papszEnviron);
- exit(-1); /* this should never happen! */
- }
- if(nModeFlag == P_WAIT) {
- wret=waitpid(child,&status,0);
- if(WIFEXITED(status)) {
- return(WEXITSTATUS(status));
- }
- return(-1);
- }
- return(0);
-}
-#endif /* ODPLAT_NIX */
diff --git a/src/odoors/ODStand.c b/src/odoors/ODStand.c
deleted file mode 100644
index d2282af9368553157764b6d0303802d823f50a8f..0000000000000000000000000000000000000000
--- a/src/odoors/ODStand.c
+++ /dev/null
@@ -1,226 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODStand.c
- *
- * Description: Implements the OpenDoors standard (default) personality.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Nov 13, 1995 6.00 BP 32-bit portability.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 22, 1995 6.00 BP Added od_connect_speed.
- * Dec 24, 1995 6.00 BP Fixed black square at pos 25x80.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODInEx.h"
-
-
-/* ----------------------------------------------------------------------------
- * pdef_opendoors()
- *
- * Personality function for the OpenDoors standard status line / function key
- * personality.
- *
- * Parameters: btOperation - Indicates personality operation to be performed.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL pdef_opendoors(BYTE btOperation)
-{
- switch(btOperation)
- {
- case PEROP_DISPLAY1:
- /* Display standard status line. */
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1, 24);
- ODScrnDisplayString(od_control.od_status_line[0]);
- ODScrnSetCursorPos(1, 24);
- ODScrnPrintf(od_control.od_status_line[1], od_control.user_name,
- od_control.user_location, od_control.od_connect_speed);
- ODScrnSetCursorPos(77, 24);
- if(od_control.od_node < 1000)
- {
- ODScrnPrintf("%d]", od_control.od_node);
- }
- else
- {
- ODScrnDisplayString("?]");
- }
- ODScrnSetCursorPos(1,25);
- ODScrnDisplayString(od_control.od_status_line[2]);
-
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
-
- ODScrnSetCursorPos(11,25);
- ODScrnPrintf("%u",od_control.user_security);
- ODScrnSetCursorPos(24,25);
- ODScrnPrintf(od_control.od_time_left,od_control.user_timelimit);
- if(od_control.user_ansi)
- {
- ODScrnSetCursorPos(40,25);
- ODScrnDisplayString("[ANSI]");
- }
-
- if(od_control.user_avatar)
- {
- ODScrnSetCursorPos(47,25);
- ODScrnDisplayString("[AVT]");
- }
-
- if(od_control.sysop_next)
- {
- ODScrnSetCursorPos(35,25);
- ODScrnDisplayString(od_control.od_sysop_next);
- }
-
- if(od_control.user_wantchat)
- {
- ODScrnSetCursorPos(57,25);
- ODScrnSetAttribute(0xf0);
- ODScrnDisplayString(od_control.od_want_chat);
- }
-
- if(!od_control.od_user_keyboard_on)
- {
- ODScrnSetCursorPos(58,24);
- ODScrnSetAttribute(0xf0);
- ODScrnDisplayString(od_control.od_no_keyboard);
- }
- break;
-
- case PEROP_DISPLAY8:
- /* Display help status line. */
- ODScrnSetAttribute(0x70);
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
- ODScrnSetCursorPos(1,24);
- ODScrnDisplayString(od_control.od_help_text);
- ODScrnSetCursorPos(1,25);
- /* Display copyright inforomation. */
- if(bUserFull)/**/
- {
- ODScrnDisplayString(od_control.od_help_text2);
- }
- else
- {
- ODScrnDisplayString(OD_VER_UNREG_STAT);
- }
- break;
-
- case PEROP_UPDATE1:
- /* Update primary status line. */
- ODScrnSetAttribute(0x70);
-
- /* Update user's time limit. */
- ODScrnSetCursorPos(24,25);
- ODScrnPrintf(od_control.od_time_left,od_control.user_timelimit);
-
- /* Update "sysop next" setting. */
- ODScrnSetCursorPos(35,25);
- if(od_control.sysop_next)
- {
- ODScrnDisplayString(od_control.od_sysop_next);
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- /* Update ANSI mode indicator. */
- if(od_control.user_ansi)
- {
- ODScrnDisplayString("[ANSI] ");
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- /* Update AVATAR mode indicator. */
- if(od_control.user_avatar)
- {
- ODScrnDisplayString("[AVT] ");
- }
- else
- {
- ODScrnDisplayString(" ");
- }
-
- /* Update keyboard-off indicator. */
- ODScrnSetCursorPos(58,24);
- if(od_control.od_user_keyboard_on)
- {
- ODScrnDisplayString(" ");
- }
- else
- {
- ODScrnSetAttribute(0xf0);
- ODScrnDisplayString(od_control.od_no_keyboard);
- }
-
- /* Update want-chat indicator. */
- ODScrnSetCursorPos(57,25);
- if(od_control.user_wantchat)
- {
- ODScrnSetAttribute(0xf0);
- ODScrnDisplayString(od_control.od_want_chat);
- }
- else
- {
- ODScrnDisplayString(" ");
- }
- break;
-
- case PEROP_INITIALIZE:
- od_control.key_hangup=0x2300;
- od_control.key_drop2bbs=0x2000;
- od_control.key_dosshell=0x2400;
- od_control.key_chat=0x2e00;
- od_control.key_sysopnext=0x3100;
- od_control.key_lockout=0x2600;
- od_control.key_status[0]=0x3b00;
- od_control.key_status[1]=0x0000;
- od_control.key_status[2]=0x0000;
- od_control.key_status[3]=0x0000;
- od_control.key_status[4]=0x0000;
- od_control.key_status[5]=0x0000;
- od_control.key_status[6]=0x0000;
- od_control.key_status[7]=0x4300;
- od_control.key_status[8]=0x4400;
- od_control.key_keyboardoff=0x2500;
- od_control.key_moretime=0x4800;
- od_control.key_lesstime=0x5000;
- od_control.od_page_statusline=-1;
- break;
- }
-}
diff --git a/src/odoors/ODStat.c b/src/odoors/ODStat.c
deleted file mode 100644
index 027c64cfe13983b828b66b192d3b665fdbda0494..0000000000000000000000000000000000000000
--- a/src/odoors/ODStat.c
+++ /dev/null
@@ -1,197 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODStat.c
- *
- * Description: Helper functions used by various built-in personalities.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Jul 18, 1995 6.00 BP Fix ODStatGetUserAge() bug.
- * Nov 13, 1995 6.00 BP 32-bit portability.
- * Nov 13, 1995 6.00 BP Created odstat.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Jan 12, 1996 6.00 BP Added ODStatStartArrowUse(), etc.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 13, 1996 6.10 BP bOnlyShiftArrow -> nArrowUseCount.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <ctype.h>
-#include <stddef.h>
-#include <stdlib.h>
-#include <time.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODCore.h"
-#include "ODGen.h"
-#include "ODStat.h"
-#include "ODKrnl.h"
-
-
-/* Global working string available to all personalities for status line */
-/* generation. */
-char szStatusText[80];
-
-
-/* ----------------------------------------------------------------------------
- * ODStatAddKey()
- *
- * Adds another hot key to the array of custom local keys.
- *
- * Parameters: wKeyCode - IBM scan-code/ASCII-code style key identification
- * code to add.
- *
- * Return: void
- */
-void ODStatAddKey(WORD wKeyCode)
-{
- if(od_control.od_num_keys < 16)
- od_control.od_hot_key[od_control.od_num_keys++] = wKeyCode;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStatRemoveKey()
- *
- * Removes a custom sysop hotkey that was previously added with ODStatAddKey().
- *
- * Parameters: wKeyCode - The scan code / ASCII code key identification code
- * to remove.
- *
- * Return: void
- */
-void ODStatRemoveKey(WORD wKeyCode)
-{
- INT nCount;
-
- for(nCount = 0; nCount < od_control.od_num_keys; ++nCount)
- if((WORD)od_control.od_hot_key[nCount] == wKeyCode)
- {
- if(nCount != od_control.od_num_keys - 1)
- {
- od_control.od_hot_key[nCount] =
- od_control.od_hot_key[od_control.od_num_keys-1];
- }
- --od_control.od_num_keys;
- return;
- }
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStatGetUserAge()
- *
- * Generates a string containing the age, in years, of the current
- * user, based on the current date and the user's birthday.
- *
- * Parameters: pszAge - Pointer to a string where user's age should be stored.
- *
- * Return: void
- */
-void ODStatGetUserAge(char *pszAge)
-{
- INT nAge;
- INT n;
- time_t Time;
- struct tm *TimeBlock;
-
- if(od_control.od_info_type==RA2EXITINFO || od_control.od_info_type==DOORSYS_WILDCAT)
- {
- nAge = atoi(od_control.user_birthday) - 1;
-
- if(strlen(od_control.user_birthday) == 8 && nAge <= 11)
- {
- if(od_control.user_birthday[6] >= '0'
- && od_control.user_birthday[6] <= '9'
- && od_control.user_birthday[7] >= '0'
- && od_control.user_birthday[7] <= '9')
- {
- if(od_control.user_birthday[3] >= '0'
- && od_control.user_birthday[3] <= '3'
- && od_control.user_birthday[4] >= '0'
- && od_control.user_birthday[4] <= '9')
- {
- Time = time(NULL);
- TimeBlock = localtime(&Time);
-
- n = (TimeBlock->tm_year % 100)
- - atoi((char *)od_control.user_birthday + 6);
-
- if(n < 0) nAge = n + 100; else nAge = n;
-
- n = atoi(od_control.user_birthday) - 1;
- if(TimeBlock->tm_mon < n)
- --nAge;
- else if(TimeBlock->tm_mon == n)
- {
- n=atoi((char *)od_control.user_birthday + 3);
-
- if(TimeBlock->tm_mday < n) --nAge;
- }
-
- sprintf(pszAge, "%d", nAge);
- return;
- }
- }
- }
- }
-
- strcpy(pszAge, "?");
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStatStartArrowUse()
- *
- * Called by OpenDoors when it needs to use the arrow keys, and so they
- * shouldn't be used by the status line.
- *
- * Parameters: None
- *
- * Return: void
- */
-void ODStatStartArrowUse(void)
-{
- ++nArrowUseCount;
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStatEndArrowUse()
- *
- * Called by OpenDoors when it no longer needs to use the arrow keys, and so
- * they can again be used by the status line.
- *
- * Parameters: None
- *
- * Return: void
- */
-void ODStatEndArrowUse(void)
-{
- ASSERT(nArrowUseCount > 0);
- --nArrowUseCount;
-}
diff --git a/src/odoors/ODStat.h b/src/odoors/ODStat.h
deleted file mode 100644
index 34aee89367b6453cbbdc14fe3020039160420e8b..0000000000000000000000000000000000000000
--- a/src/odoors/ODStat.h
+++ /dev/null
@@ -1,49 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODStat.h
- *
- * Description: Public functions provided by the odstat.c module, for status
- * line functions shared among personalities.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 13, 1995 6.00 BP Created.
- * Jan 12, 1996 6.00 BP Added ODStatStartArrowUse(), etc.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODSTAT
-#define _INC_ODSTAT
-
-
-/* Global working string available to all personalities for status line */
-/* generation. */
-extern char szStatusText[80];
-
-
-/* Public status line function prototypes. */
-void ODStatAddKey(WORD wKeyCode);
-void ODStatRemoveKey(WORD wKeyCode);
-void ODStatGetUserAge(char *pszAge);
-void ODStatStartArrowUse(void);
-void ODStatEndArrowUse(void);
-
-
-#endif /* _INC_ODSTAT */
diff --git a/src/odoors/ODStr.c b/src/odoors/ODStr.c
deleted file mode 100644
index 15883f91c64cae4cd81f6a551dc60ca92993756b..0000000000000000000000000000000000000000
--- a/src/odoors/ODStr.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODStr.c
- *
- * Description: Functions used to mainuplate strings
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#include "OpenDoor.h"
-
-#ifdef ODPLAT_NIX
-#include <string.h>
-
-int
-strlwr(char *str)
-{
- size_t i;
- for(i=0;i<strlen(str);i++)
- {
- if(str[i]>64 && str[i]<=91) str[i]=str[i]|32;
- }
- return 0;
-}
-
-int
-strupr(char *str)
-{
- size_t i;
- for(i=0;i<strlen(str);i++)
- {
- if(str[i]>96 && str[i]<123) str[i] &= 223;
- }
- return 0;
-}
-#endif
diff --git a/src/odoors/ODStr.h b/src/odoors/ODStr.h
deleted file mode 100644
index fe96011f8c1e89d8bc74704ee166fbf35ad6e8b8..0000000000000000000000000000000000000000
--- a/src/odoors/ODStr.h
+++ /dev/null
@@ -1,40 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODStr.h
- *
- * Description: Functions used to maipulate strings
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Aug 10, 2003 6.23 SH Initial rev.
- */
-
-#include "OpenDoor.h"
-
-#ifndef _INC_ODSTR
-#define _INC_ODSTR
-
-#ifdef ODPLAT_NIX
-#define strnicmp strncasecmp
-#define stricmp strcasecmp
-int strlwr(char *str);
-int strupr(char *str);
-#endif
-
-#endif
diff --git a/src/odoors/ODSwap.asm b/src/odoors/ODSwap.asm
deleted file mode 100644
index b147d4256cd7d635838bfe72327ab48998cd239b..0000000000000000000000000000000000000000
--- a/src/odoors/ODSwap.asm
+++ /dev/null
@@ -1,1453 +0,0 @@
-; OpenDoors Online Software Programming Toolkit
-; (C) Copyright 1991 - 1999 by Brian Pirie.
-;
-; This library is free software; you can redistribute it and/or
-; modify it under the terms of the GNU Lesser General Public
-; License as published by the Free Software Foundation; either
-; version 2 of the License, or (at your option) any later version.
-;
-; This library is distributed in the hope that it will be useful,
-; but WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-; Lesser General Public License for more details.
-;
-; You should have received a copy of the GNU Lesser General Public
-; License along with this library; if not, write to the Free Software
-; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;
-;
-; File: ODSwap.asm
-;
-; Description: Performs EMS/disk swapping and low level spawning
-; activities. This file should only be included when building
-; the MS-DOS version of OpenDoors.
-;
-; Revisions: Date Ver Who Change
-; ---------------------------------------------------------------
-; Oct 13, 1994 6.00 BP New file header format.
-; Feb 19, 1996 6.00 BP Changed version number to 6.00.
-; Mar 03, 1996 6.10 BP Begin version 6.10.
-
-
-; If you have increased the file handle table size so that more than 20 files
-; may be open in the parent process, set FHTSZ to the new size.
-
-FHTSZ EQU 20
-
-IFDEF LCODE
-ARG_1 EQU 6
-ELSE
-ARG_1 EQU 4
-ENDIF
-
-arena struc ; arena header
-sig db 0 ; 'M' or 'Z' if last block
-own dw 0 ; PSP of owner or 0 if free
-siz dw 0 ; size not including header
-arena ends
-
-vector struc
-number db 0 ; vector number
-flag db 0 ; 0-CURRENT,1-IRET,2-free,3-end
-vseg dw 0 ; vector segment
-voff dw 0 ; vector offset
-vector ends
-
-_TEXT SEGMENT word public 'CODE'
- ASSUME cs:_TEXT
- ASSUME ds:nothing
- ASSUME es:nothing
- ASSUME ss:nothing
-
-; The code between slidetop and slidebot constitutes the spawn kernel. The
-; kernel is copied to the front of the parent process immediately following the
-; parent's PSP. The environment passed to the child is copied to immediately
-; following the kernel.
-
-slidetop:
-
-path db 79 dup (0) ; program to execute
-command db 128 dup (0) ; command-line
-file db 79 dup (0) ; swap file
-
-parmblk label byte ; parameter block
-environ dw 0 ; environment block
-cmd dw 0,0 ; command-line tail
-fcb1 dw 0,0 ; first file control block
-fcb2 dw 0,0 ; second file control block
-
-fcb5c db 10h dup (0) ; first file control block
-fcb6c db 10h dup (0) ; second file control block
-
-cntsvl dw 0 ; count save low
-cntsvh dw 0 ; count save high
-tmpcode dw 0 ; temporary return code
-env dw 0 ; environment segment
-envlen dw 0 ; environment length
-parsz dw 0 ; parent size
-ttlsz dw 0 ; total size
-oldsz dw 0 ; old size
-newsz dw 0 ; new size
-emsseg dw 0 ; EMS page frame segment
-handle dw 0 ; EMS handle
-useems db 0 ; if 0, use EMS
-save db 4 dup (0) ; save 4 bytes at DS:[2Eh]
-f1add dd 0 ; fnish1 address
-last db 0 ; if 0, last block swap
-IF FHTSZ - 20
-fhtsv db FHTSZ dup (0) ; file handle table save
-ENDIF
-
-errmsg db 'spawn error',0Dh,0Ah
-msglen EQU $-errmsg
-
- EVEN
-lclstk dw 64 dup (0) ; local stack
-stktop label word ; stack top
-
-slide1: mov ax,cs ; install local stack
- cli
- mov ss,ax
- mov sp,offset stktop - offset slidetop + 100h
- sti
-
-; copy environment
-
- mov bx,offset slidebot - offset slidetop + 15 + 100h
- mov cl,4
- shr bx,cl ; convert to paragraphs
- add bx,ax ; add CS (actually PSP)
-index = offset environ - offset slidetop + 100h
- mov cs:[index],bx ; parameter block
- mov es,bx
- xor di,di
-index = offset env - offset slidetop + 100h
- mov ds,cs:[index]
- xor si,si
-index = offset envlen - offset slidetop + 100h
- mov cx,cs:[index]
- shr cx,1 ; translate to word count
- rep movsw ; CF set if one byte left over
- adc cx,cx ; CX = 1 or 0, depending CF
- rep movsb ; possible final byte
-
- dec ax ; PSP segment
- mov es,ax ; program arena header
- mov bx,es:[siz]
-index = offset oldsz - offset slidetop + 100h
- mov cs:[index],bx ; old size
- mov byte ptr es:[sig],'M' ; not last
-index = offset newsz - offset slidetop + 100h
- mov bx,cs:[index] ; new size
- mov es:[siz],bx
-
- inc ax ; PSP segment
- add ax,bx ; add new size
- mov es,ax ; new last arena header
- mov byte ptr es:[sig],'Z' ; last
-index = offset last - offset slidetop + 100h
- cmp byte ptr cs:[index],0
- je slide2 ; jump if last block swap
- mov byte ptr es:[sig],'M' ; not last
-
-slide2: mov word ptr es:[own],0 ; free
-index = offset ttlsz - offset slidetop + 100h
- mov ax,cs:[index] ; total size
- sub ax,bx ; subtract new size
- dec ax ; account for arena header
- mov es:[siz],ax
-
-; save 4 bytes destroyed by DOS 2.0 at DS:2Eh
-
- mov ax,cs ; PSP segment
- mov es,ax
- mov bx,es:[2Eh]
-index = offset save - offset slidetop + 100h
- mov cs:[index],bx
- mov bx,es:[30h]
-index = offset save - offset slidetop + 102h
- mov cs:[index],bx
-
- mov bx,offset parmblk - offset slidetop + 100h
- mov ds,ax ; PSP segment
- mov dx,100h ; offset path
- mov ax,4B00h ; load and execute program
- int 21h
- jnc slide3 ; jump if no error
-index = offset tmpcode - offset slidetop + 100h
- mov cs:[index],ax ; temporary return code
-
-slide3: mov ax,cs ; install local stack
- cli
- mov ss,ax
- mov sp,offset stktop - offset slidetop + 100h
- sti
-
-; restore 4 bytes destroyed by DOS 2.0 at DS:2Eh
-
- mov es,ax ; PSP segment
-index = offset save - offset slidetop + 100h
- mov bx,cs:[index]
- mov es:[2Eh],bx
-index = offset save - offset slidetop + 102h
- mov bx,cs:[index]
- mov es:[30h],bx
-
-index = offset oldsz - offset slidetop + 100h
- mov bx,cs:[index] ; old size
- mov ah,4Ah ; resize memory block
- int 21h
- jnc slide7
-
-index = offset useems - offset slidetop + 100h
-slide4: cmp byte ptr cs:[index],0
- jne slide6 ; jump if don't use EMS
-index = offset handle - offset slidetop + 100h
- mov dx,cs:[index] ; EMS handle
-
-slide5: mov ah,45h ; release handle and memory
- int 67h
- cmp ah,82h ; memory manager busy?
- je slide5 ; jump if busy
-
-slide6: jmp slide18 ; exit
-
-index = offset parsz - offset slidetop + 100h
-slide7: mov bx,cs:[index] ; parent size
-index = offset ttlsz - offset slidetop + 100h
- mov ax,cs:[index] ; total size
- sub ax,bx ; subtract parent size
- or ax,ax
- jz slide9
- mov dx,cs ; PSP segment
- add dx,bx ; add parent size
- mov es,dx ; new last arena header
- mov byte ptr es:[sig],'Z' ; last
-index = offset last - offset slidetop + 100h
- cmp byte ptr cs:[index],0
- je slide8 ; jump if last block swap
- mov byte ptr es:[sig],'M' ; not last
-
-slide8: mov word ptr es:[own],0 ; free
- dec ax ; account for arena header
- mov es:[siz],ax
-
-slide9: push cs ; PSP segment
-index = offset useems - offset slidetop + 100h
- cmp byte ptr cs:[index],0
- jne slide14 ; jump if don't use EMS
- pop es ; PSP segment
- mov di,offset slidebot - offset slidetop + 100h
-index = offset emsseg - offset slidetop + 100h
- mov ds,cs:[index] ; EMS page frame segment
- mov si,offset slidebot - offset slidetop
-index = offset handle - offset slidetop + 100h
- mov dx,cs:[index] ; EMS handle
- xor bx,bx ; logical page number
- mov cx,16384 - ( offset slidebot - offset slidetop )
- jmp short slide13
-
-index = offset cntsvl - offset slidetop + 100h
-slide10: sub cs:[index],cx
-index = offset cntsvh - offset slidetop + 100h
- sbb word ptr cs:[index],0
- xor al,al ; physical page number
-
-slide11: mov ah,44h ; map memory
- int 67h
- or ah,ah
- jz slide12
- cmp ah,82h ; memory manager busy?
- je slide11 ; jump if busy
- jmp slide4 ; exit
-
-slide12: shr cx,1 ; translate to word count
- rep movsw ; CF set if one byte left over
- adc cx,cx ; CX = 1 or 0, depending CF
- rep movsb ; possible final byte
- xor si,si
- mov cx,16384 ; assume copy full block
- inc bx ; logical page number
- cmp bx,1
- je slide13
- mov ax,es
- add ax,1024 ; 16384 bytes
- mov es,ax
- mov di,16640 ; 16384 + 100h
-
-index = offset cntsvh - offset slidetop + 100h
-slide13: cmp word ptr cs:[index],0
- jne slide10 ; jump if more than full block
-index = offset cntsvl - offset slidetop + 100h
- cmp cs:[index],cx
- jae slide10 ; jump if at least full block
- mov cx,cs:[index] ; CX = cntsvl
- cmp cx,0
- jne slide10 ; jump if more left to copy
- jmp short slide17
-
-slide14: pop ds ; PSP segment
-IF FHTSZ - 20
-
-; restore the file handle table from the kernel
-
- mov si,offset fhtsv - offset slidetop + 100h
- mov es,ds:[36h] ; file handle table segment
- mov di,ds:[34h] ; file handle table offset
- mov cx,FHTSZ ; file handle table size
- rep movsb
-ENDIF
- mov dx,offset file - offset slidetop + 100h
- mov ax,3D00h ; open file read only
- int 21h
- jc slide18 ; exit if error
- mov bx,ax ; handle
-
- xor cx,cx
- mov dx,offset slidebot - offset slidetop
- mov ax,4200h ; move file pointer
- int 21h ; from beginning of file
-
- mov dx,offset slidebot - offset slidetop + 100h
- mov cx,65520 ; assume read full block
- jmp short slide16
-
-index = offset cntsvl - offset slidetop + 100h
-slide15: sub cs:[index],cx
-index = offset cntsvh - offset slidetop + 100h
- sbb word ptr cs:[index],0
- mov ah,3Fh ; read file
- int 21h
- jc slide18 ; exit if error
- cmp ax,cx
- jne slide18 ; exit if not all read
-
- mov ax,ds
- add ax,4095 ; 65520 bytes
- mov ds,ax
-
-index = offset cntsvh - offset slidetop + 100h
-slide16: cmp word ptr cs:[index],0
- jne slide15 ; jump if more than full block
-index = offset cntsvl - offset slidetop + 100h
- cmp word ptr cs:[index],65520
- jae slide15 ; jump if at least full block
- mov cx,cs:[index] ; CX = cntsvl
- cmp cx,0
- jne slide15 ; jump if more left to read
-
-index = offset tmpcode - offset slidetop + 100h
-slide17: mov ax,cs:[index] ; temporary return code
-index = offset f1add - offset slidetop + 100h
- jmp dword ptr cs:[index]
-
-slide18: push cs ; PSP segment
- pop ds
- mov dx,offset errmsg - offset slidetop + 100h
- mov cx,msglen ; errmsg length
- mov bx,2 ; standard error device handle
- mov ah,40h ; write error message
- int 21h
- mov ax,4C01h ; terminate with return code
- int 21h
-
-handler: iret ; interrupt handler
-
-slidebot:
-
-cntl dw 0 ; count low
-cnth dw 0 ; count high
-stks dw 0 ; original SS contents
-stkp dw 0 ; original SP contents
-psp dw 0 ; PSP segment
-s1add dd 0 ; slide1 address
-rcode dw 0 ; return code
-useems2 db 0 ; if 0, use EMS
-vtabseg dw 0 ; vectab1 segment
-vtaboff dw 0 ; vectab1 offset
-
-errmsg2 db 'spawn error',0Dh,0Ah
-msglen2 EQU $-errmsg2
-
-;
-; int _xspawn( char *, char *, char *, VECTOR *, int, int, char *, int );
-;
-
- PUBLIC __xspawn
-IFDEF LCODE
-__xspawn PROC far
-ELSE
-__xspawn PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push di ; preserve register variables
- push si
- push ds
-
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1]
-ELSE
- mov si,word ptr [bp+ARG_1]
-ENDIF
- mov di,offset path
-
-start1: mov al,ds:[si] ; copy path string
- mov cs:[di],al ; to code segment
- inc si
- inc di
- or al,al ; null char?
- jnz start1 ; no, get next char
-
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+4]
-ELSE
- mov si,word ptr [bp+ARG_1+2]
-ENDIF
- mov bx,si ; preserve si
- mov di,offset command
- mov cx,2 ; account for count and '\r'
- add cl,byte ptr ds:[bx] ; add count byte
-
-start2: mov al,ds:[bx] ; copy command
- mov cs:[di],al ; to code segment
- inc bx
- inc di
- loop start2 ; get next char
-
- inc si ; skip count byte
- push cs
- pop es
- mov di,offset fcb5c
- mov ax,2901h ; parse filename
- int 21h ; skip leading separators
- mov di,offset fcb6c
- mov al,1 ; parse filename
- int 21h ; skip leading separators
-
-IFDEF LDATA
- mov ax,word ptr [bp+ARG_1+8]
-ELSE
- mov ax,word ptr [bp+ARG_1+4]
-ENDIF
- mov cl,4
- shr ax,cl ; convert to paragraphs
-IFDEF LDATA
- mov bx,word ptr [bp+ARG_1+10]
-ELSE
- mov bx,ds
-ENDIF
- add ax,bx
- mov cs:[env],ax ; environment segment
-
-IFDEF LDATA
- lds bx,dword ptr [bp+ARG_1+12] ; vectab1
-ELSE
- mov bx,word ptr [bp+ARG_1+6] ; vectab1
-ENDIF
- mov cs:[vtabseg],ds ; vectab1 segment
- mov cs:[vtaboff],bx ; vectab1 offset
-
- mov cs:[stks],ss ; original SS contents
- mov cs:[stkp],sp ; original SP contents
- mov cs:[rcode],0 ; assume success
-
-IFDEF LDATA
- mov ax,word ptr [bp+ARG_1+16]
-ELSE
- mov ax,word ptr [bp+ARG_1+8]
-ENDIF
- or ax,ax ; do swap?
- jz start3 ; yes, jump
- jmp noswap1
-
-IFDEF LDATA
-start3: mov ax,word ptr [bp+ARG_1+18]
-ELSE
-start3: mov ax,word ptr [bp+ARG_1+10]
-ENDIF
- mov cs:[envlen],ax ; environment length
- add ax,offset slidebot - offset slidetop + 30 + 100h
- mov cl,4
- shr ax,cl ; convert to paragraphs
- mov cs:[newsz],ax ; new size
-
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+20]
-ELSE
- mov si,word ptr [bp+ARG_1+12]
-ENDIF
- mov di,offset file
- mov cs:[useems2],1 ; assume don't use EMS
- cmp byte ptr ds:[si],0
- jne start4
- mov cs:[useems2],0 ; use EMS
-
-start4: mov al,ds:[si] ; copy file string
- mov cs:[di],al ; to code segment
- inc si
- inc di
- or al,al ; null char?
- jnz start4 ; no, get next char
-
-; save fnish1 address
-
- mov word ptr cs:[f1add+2],cs
- mov word ptr cs:[f1add],offset fnish1
-
-; initialize parameter block
-
- mov ax,cs:[psp] ; PSP segment
- mov cs:[cmd],offset command - offset slidetop + 100h
- mov cs:[cmd+2],ax
- mov cs:[fcb1],offset fcb5c - offset slidetop + 100h
- mov cs:[fcb1+2],ax
- mov cs:[fcb2],offset fcb6c - offset slidetop + 100h
- mov cs:[fcb2+2],ax
-
- cld ; left to right direction
-
- mov ds,ax ; PSP segment
-IFDEF LDATA
- mov dx,word ptr [bp+ARG_1+24]
-ELSE
- mov dx,word ptr [bp+ARG_1+14]
-ENDIF
-IF FHTSZ - 20
- cmp word ptr ds:[32h],FHTSZ ; file handle table size
- je start5 ; jump if OK
- mov cs:[rcode],5
- jmp short start6
-ENDIF
-
-start5: mov ax,cs:[newsz] ; new size
- cmp ax,cs:[ttlsz] ; new size < total size?
- jb start8 ; yes, jump
- mov cs:[rcode],7 ; extremely unlikely
-
-start6: cmp cs:[useems2],0
- jne start7 ; jump if don't use EMS
- jmp fnish2
-
-start7: mov bx,dx ; file handle
- jmp fnish6
-
-start8: cmp cs:[useems2],0
- jne start12 ; jump if don't use EMS
- mov cs:[useems],0 ; use EMS
- mov cs:[handle],dx ; EMS handle
- mov es,cs:[emsseg] ; EMS page frame segment
- xor bx,bx ; logical page number
- jmp short start11
-
-start9: sub cs:[cntl],cx
- sbb cs:[cnth],0
- call mapems
- or ah,ah
- jz start10 ; jump if map succeeded
- jmp fnish2
-
-start10: mov si,100h
- xor di,di
- shr cx,1 ; translate to word count
- rep movsw ; CF set if one byte left over
- adc cx,cx ; CX = 1 or 0, depending CF
- rep movsb ; possible final byte
- inc bx ; logical page number
- mov ax,ds
- add ax,1024 ; 16384 bytes
- mov ds,ax
-
-start11: mov cx,16384 ; assume copy full block
- cmp cs:[cnth],0
- jne start9 ; jump if more than full block
- cmp cs:[cntl],16384
- jae start9 ; jump if at least full block
- mov cx,cs:[cntl]
- cmp cx,0
- jne start9 ; jump if more left to copy
- jmp short start17
-
-start12: mov cs:[useems],1 ; don't use EMS
- mov bx,dx ; handle
- mov dx,100h ; DS:DX segment:offset buffer
- mov cx,65520 ; assume write full block
- jmp short start16
-
-start13: sub cs:[cntl],cx
- sbb cs:[cnth],0
- mov ah,40h ; write file
- int 21h
- jc start14 ; jump if error
- cmp ax,cx
- je start15 ; jump if all written
-
-start14: mov ah,3Eh ; close file
- int 21h
- mov cs:[rcode],5
- jmp fnish7
-
-start15: mov ax,ds
- add ax,4095 ; 65520 bytes
- mov ds,ax
-
-start16: cmp cs:[cnth],0
- jne start13 ; jump if more than full block
- cmp cs:[cntl],65520
- jae start13 ; jump if at least full block
- mov cx,cs:[cntl]
- cmp cx,0
- jne start13 ; jump if more left to write
-
- mov ah,3Eh ; close file
- int 21h
-IF FHTSZ - 20
-
-; save the file handle table in the kernel
-
- mov es,cs:[psp] ; PSP segment
- mov ds,es:[36h] ; file handle table segment
- mov si,es:[34h] ; file handle table offset
- push cs
- pop es
- mov di,offset fhtsv ; file handle table save
- mov cx,FHTSZ ; file handle table size
- rep movsb
-ENDIF
-
-start17: mov cx,cs
- mov dx,offset handler ; interrupt handler offset
- call safevect ; set vectors in vectab1
-
-; time to copy the kernel
-
- mov es,cs:[psp] ; PSP segment
- mov di,100h
- mov ds,cx ; DS = CS
- mov si,offset slidetop
- mov cx,offset slidebot - offset slidetop
- shr cx,1 ; translate to word count
- rep movsw ; CF set if one byte left over
- adc cx,cx ; CX = 1 or 0, depending CF
- rep movsb ; possible final byte
-
- mov word ptr cs:[s1add+2],es ; PSP segment
-index = offset slide1 - offset slidetop + 100h
- mov word ptr cs:[s1add],index ; slide1 offset
-
- mov cx,es ; PSP segment
-index = offset handler - offset slidetop + 100h
- mov dx,index ; interrupt handler offset
- call safevect ; set vectors in vectab1
-
- jmp dword ptr cs:[s1add] ; jump to the kernel
-
-; If all goes well, this is where we come back to from the kernel.
-
-fnish1: mov cs:[rcode],ax ; return code
-
- cli ; restore original stack
- mov ss,cs:[stks]
- mov sp,cs:[stkp]
- sti
-
- push ds ; maybe EMS page frame segment
- push dx ; maybe EMS handle
- push bx ; maybe swap file handle
- mov cx,cs
- mov dx,offset handler ; interrupt handler offset
- call safevect ; set vectors in vectab1
- pop bx
- pop dx
- pop ds
-
- cmp cs:[useems2],0
- jne fnish4 ; jump if don't use EMS
-
-; DS = EMS page frame segment
-; DX = EMS handle
-
- mov cx,offset slidebot - offset slidetop
- mov es,cs:[psp] ; PSP segment
- mov di,100h
- xor si,si
- xor bx,bx ; logical page number
- call mapems
- or ah,ah
- jnz fnish3 ; jump if map failed
- shr cx,1 ; translate to word count
- rep movsw ; CF set if one byte left over
- adc cx,cx ; CX = 1 or 0, depending CF
- rep movsb ; possible final byte
-
-fnish2: mov ah,45h ; release handle and memory
- int 67h
- cmp ah,82h ; memory manager busy?
- je fnish2 ; jump if busy
- jmp short fnish7
-
-fnish3: mov ah,45h ; release handle and memory
- int 67h
- cmp ah,82h ; memory manager busy?
- je fnish3 ; jump if busy
- jmp short fnish5 ; exit
-
-; BX = swap file handle
-
-fnish4: xor cx,cx ; offset 0
- xor dx,dx ; offset 0
- mov ax,4200h ; move file pointer
- int 21h ; from beginning of file
-
- mov cx,offset slidebot - offset slidetop
- mov ds,cs:[psp] ; PSP segment
- mov dx,100h
- mov ah,3Fh ; read file
- int 21h
- jc fnish5 ; exit if error
- cmp ax,cx
- je fnish6
-
-fnish5: push cs
- pop ds
- mov dx,offset errmsg2
- mov cx,msglen2 ; errmsg2 length
- mov bx,2 ; standard error device handle
- mov ah,40h ; write error message
- int 21h
- mov ax,4C01h ; terminate with return code
- int 21h
-
-fnish6: mov ah,3Eh ; close file
- int 21h
- push cs
- pop ds
- mov dx,offset file
- mov ah,41h ; delete file
- int 21h
-
-fnish7: pop ds
- pop si ; restore register variables
- pop di
- pop bp
-
- mov ax,cs:[rcode] ; return code
- or ax,ax
- jz fnish11
- push ax
- mov ax,3000h ; get DOS version number
- int 21h
- cmp al,3 ; major version number
- pop ax
- jb fnish8
- cmp al,34 ; unknown error - 3.0
- jae fnish9
- cmp al,32 ; sharing violation
- jb fnish8
- mov al,5 ; access denied
- jmp short fnish10
-
-fnish8: cmp al,19 ; unknown error - 2.0
- jbe fnish10
-
-fnish9: mov al,19 ; unknown error - 2.0
-
-fnish10: xor ah,ah
-
-fnish11: ret
-
-; If we are not swapping, we jump here.
-
-noswap1: mov ax,cs
-
-; initialize parameter block
-
- mov bx,cs:[env]
- mov cs:[environ],bx
- mov cs:[cmd],offset command
- mov cs:[cmd+2],ax
- mov cs:[fcb1],offset fcb5c
- mov cs:[fcb1+2],ax
- mov cs:[fcb2],offset fcb6c
- mov cs:[fcb2+2],ax
-
-; save 4 bytes destroyed by DOS 2.0 at DS:2Eh
-
- mov si,cs:[2Eh]
- mov word ptr cs:[save],si
- mov si,cs:[30h]
- mov word ptr cs:[save+2],si
-
- mov cx,cs
- mov dx,offset handler ; interrupt handler offset
- call safevect ; set vectors in vectab1
-
- mov es,cx ; ES = CS
- mov bx,offset parmblk
- mov ds,cx ; DS = CS
- mov dx,offset path
- mov ax,4B00h ; load and execute program
- int 21h
- jnc noswap2 ; jump if no error
- mov cs:[rcode],ax ; return code
-
-noswap2: cli ; restore original stack
- mov ss,cs:[stks]
- mov sp,cs:[stkp]
- sti
-
-; restore 4 bytes destroyed by DOS 2.0 at DS:2Eh
-
- mov si,word ptr cs:[save]
- mov cs:[2Eh],si
- mov si,word ptr cs:[save+2]
- mov cs:[30h],si
-
- jmp fnish7
-
-__xspawn ENDP
-
-mapems PROC near
-
-; DX = handle
-; BX = logical page number
-
- xor al,al ; physical page number
-
-map1: mov ah,44h ; map memory
- int 67h
- cmp ah,82h ; memory manager busy?
- je map1 ; jump if busy
-
- ret
-
-mapems ENDP
-
-setvectsub PROC near
-
-; ES = vector table segment
-; BX = vector table offset
-
- mov ah,25h ; set interrupt vector
-
-setvectsub1: mov al,es:[bx+flag] ; 0-CURRENT,1-IRET,2-free,3-end
- cmp al,3 ; is it the end?
- je setvectsub3 ; yes, jump
- cmp al,2 ; is it free?
- je setvectsub2 ; yes, jump
- mov al,es:[bx+number] ; vector number
- mov ds,es:[bx+vseg] ; vector segment
- mov dx,es:[bx+voff] ; vector offset
- int 21h ; set interrupt vector
-
-setvectsub2: add bx,6 ; size of vector structure
- jmp setvectsub1 ; next
-
-setvectsub3: ret
-
-setvectsub ENDP
-
-safevect PROC near
-
-; CX = handler segment
-; DX = handler offset
-
- mov es,cs:[vtabseg] ; vectab1 segment
- mov bx,cs:[vtaboff] ; vectab1 offset
-
-safevect1: mov al,es:[bx+flag] ; 0-CURRENT,1-IRET,2-free,3-end
- cmp al,3 ; is it the end?
- je safevect3 ; yes, jump
- cmp al,1 ; is it IRET?
- jne safevect2 ; no, jump
- mov es:[bx+vseg],cx ; handler segment
- mov es:[bx+voff],dx ; handler offset
-
-safevect2: add bx,6 ; size of vector structure
- jmp safevect1 ; next
-
-safevect3: mov bx,cs:[vtaboff] ; vectab1 offset
- call setvectsub
-
- ret
-
-safevect ENDP
-
-;
-; int _xsize( unsigned int, long *, long * );
-;
-
- PUBLIC __xsize
-IFDEF LCODE
-__xsize PROC far
-ELSE
-__xsize PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push di ; preserve register variables
- push si
- push ds
-
- mov cs:[last],0 ; assume last block swap
- mov bx,word ptr [bp+ARG_1] ; PSP segment
- mov cs:[psp],bx
- mov dx,bx
- dec bx ; program arena header
-
-size1: mov es,bx ; current arena header
- mov ax,es:[own]
- or ax,ax ; is it free?
- jz size2 ; yes, count it
- cmp ax,dx ; do we own it?
- jne size4 ; no, jump
- mov cx,bx ; last owned block
-
-size2: inc bx
- add bx,es:[siz] ; block size
- jc size3 ; carry, arena is trashed
- mov al,es:[sig] ; get arena signature
- cmp al,'M' ; are we at end of memory?
- je size1 ; no, jump
- cmp al,'Z'
- je size5
-
-size3: mov bx,-1 ; request maximum memory
- mov ah,48h ; allocate memory block
- int 21h
- mov cs:[rcode],7
- jmp fnish7
-
-size4: mov cs:[last],1 ; not last block swap
-
-size5: sub bx,dx ; subtract PSP segment
- mov ax,cx ; last owned block
- mov es,cx
- inc ax
- add ax,es:[siz] ; block size
- sub ax,dx ; subtract PSP segment
- mov cs:[parsz],ax ; parent size
- sub ax,10h ; subtract PSP size
- xor dx,dx ; convert to bytes
- mov cx,4
-
-size6: shl ax,1
- rcl dx,1
- loop size6
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+2]
-ELSE
- mov si,word ptr [bp+ARG_1+2]
-ENDIF
- mov ds:[si],ax ; swap size requirement
- mov ds:[si+2],dx
- mov cs:[cntl],ax ; count low
- mov cs:[cnth],dx ; count high
- mov cx,offset slidebot - offset slidetop
- sub ax,cx
- sbb dx,0
- mov cs:[cntsvl],ax ; count save low
- mov cs:[cntsvh],dx ; count save high
- mov cs:[ttlsz],bx ; total size
- xor dx,dx ; convert to bytes
- mov cx,4
-
-size7: shl bx,1
- rcl dx,1
- loop size7
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+6]
-ELSE
- mov si,word ptr [bp+ARG_1+4]
-ENDIF
- mov ds:[si],bx ; parent and free memory
- mov ds:[si+2],dx
-
- pop ds
- pop si ; restore register variables
- pop di
- pop bp
- xor ax,ax
- ret
-
-__xsize ENDP
-
-;
-; int _chkems( char *, int * );
-;
-
- PUBLIC __chkems
-IFDEF LCODE
-__chkems PROC far
-ELSE
-__chkems PROC near
-ENDIF
-
- push bp
- mov bp,sp
-
-; determine whether expanded memory is available
-
-IFDEF LDATA
- push ds
- lds dx,dword ptr [bp+ARG_1] ; EMM device driver name
-ELSE
- mov dx,word ptr [bp+ARG_1] ; EMM device driver name
-ENDIF
- mov ax,3D00h ; open file read only
- int 21h
-IFDEF LDATA
- pop ds
-ENDIF
- jc check2 ; expanded memory unavailable
-
-; determine whether we opened the EMM device driver or a file
-
- mov bx,ax ; handle
- mov ax,4400h ; IOCTL - get device info
- int 21h
- jc check1 ; expanded memory unavailable
- test dx,80h ; test bit 7
- jz check1 ; expanded memory unavailable
-
- mov ax,4407h ; IOCTL - get output status
- int 21h
- jc check1 ; expanded memory unavailable
- or al,al
- jz check1 ; expanded memory unavailable
-
-; close EMM device driver to reclaim handle
-
- mov ah,3Eh ; close file
- int 21h
-
-; determine whether the EMM is functional
-
- mov ah,40h ; get manager status
- int 67h
- or ah,ah
- jnz check2 ; expanded memory unavailable
-
-; check EMM version
-
- mov ah,46h ; get EMM version
- int 67h
- or ah,ah
- jnz check2 ; expanded memory unavailable
- cmp al,32h ; version 3.2
- jb check2 ; expanded memory unavailable
-
-; get page frame segment
-
- mov ah,41h ; get page frame segment
- int 67h
- or ah,ah
- jnz check2 ; expanded memory unavailable
- mov cs:[emsseg],bx ; segment
-
-; get size of page map information
-
- mov ax,4E03h ; get size of page map info
- int 67h
- or ah,ah
- jnz check2 ; expanded memory unavailable
-IFDEF LDATA
- les bx,dword ptr [bp+ARG_1+4] ; mapsize address
- mov es:[bx],ax
-ELSE
- mov bx,word ptr [bp+ARG_1+2] ; mapsize address
- mov ds:[bx],ax
-ENDIF
- xor ax,ax ; expanded memory available
- pop bp
- ret
-
-; close EMM device driver or file to reclaim handle
-
-check1: mov ah,3Eh ; close file
- int 21h
-
-check2: mov ax,1 ; expanded memory unavailable
- pop bp
- ret
-
-__chkems ENDP
-
-;
-; int _savemap( char * );
-;
-
- PUBLIC __savemap
-IFDEF LCODE
-__savemap PROC far
-ELSE
-__savemap PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push di ; preserve register variable
-
-IFDEF LDATA
- les di,dword ptr [bp+ARG_1] ; buffer address
-ELSE
- mov di,word ptr [bp+ARG_1] ; buffer address
- push ds
- pop es
-ENDIF
- mov ax,4E00h ; save page map
- int 67h
-
- pop di ; restore register variable
- pop bp
- ret
-
-__savemap ENDP
-
-;
-; int _restmap( char * );
-;
-
- PUBLIC __restmap
-IFDEF LCODE
-__restmap PROC far
-ELSE
-__restmap PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push ds
- push si ; preserve register variable
-
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1] ; buffer address
-ELSE
- mov si,word ptr [bp+ARG_1] ; buffer address
-ENDIF
- mov ax,4E01h ; restore page map
- int 67h
- xor al,al
-
- pop si ; restore register variable
- pop ds
- pop bp
- ret
-
-__restmap ENDP
-
-;
-; int _getems( int, int * );
-;
-
- PUBLIC __getems
-IFDEF LCODE
-__getems PROC far
-ELSE
-__getems PROC near
-ENDIF
-
- push bp
- mov bp,sp
-
- mov bx,word ptr [bp+ARG_1] ; number of pages
- mov ah,43h ; get handle and allocate
- ; memory
- int 67h
-IFDEF LDATA
- les bx,dword ptr [bp+ARG_1+2] ; handle address
- mov es:[bx],dx ; handle
-ELSE
- mov bx,word ptr [bp+ARG_1+2] ; handle address
- mov ds:[bx],dx ; handle
-ENDIF
- xor al,al
- pop bp
- ret
-
-__getems ENDP
-
-;
-; int _dskspace( int, unsigned int *, unsigned int * );
-;
-
- PUBLIC __dskspace
-IFDEF LCODE
-__dskspace PROC far
-ELSE
-__dskspace PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push di ; preserve register variable
-
- mov ah,36h ; get free disk space
- mov dl,byte ptr [bp+ARG_1] ; drive code (0=default, 1=A)
- int 21h
- cmp ax,0FFFFh ; was drive invalid?
- je space1 ; yes, jump
- mul cx ; bytes per sector *
- ; sectors per cluster
-IFDEF LDATA
- les di,dword ptr [bp+ARG_1+2]
- mov es:[di],ax ; bytes per cluster
-ELSE
- mov di,word ptr [bp+ARG_1+2]
- mov ds:[di],ax ; bytes per cluster
-ENDIF
-IFDEF LDATA
- les di,dword ptr [bp+ARG_1+6]
- mov es:[di],bx ; number of available clusters
-ELSE
- mov di,word ptr [bp+ARG_1+4]
- mov ds:[di],bx ; number of available clusters
-ENDIF
- xor ax,ax
-
-space1: pop di ; restore register variable
- pop bp
- ret
-
-__dskspace ENDP
-
-;
-; int _getrc( void );
-;
-
- PUBLIC __getrc
-IFDEF LCODE
-__getrc PROC far
-ELSE
-__getrc PROC near
-ENDIF
-
- mov ah,4Dh ; get child return code
- int 21h
-
- ret
-
-__getrc ENDP
-
-;
-; int _create( char *, int * );
-;
-
- PUBLIC __create
-IFDEF LCODE
-__create PROC far
-ELSE
-__create PROC near
-ENDIF
-
- push bp
- mov bp,sp
-IFDEF LDATA
- push ds
-ENDIF
-
- mov ax,3000h ; get DOS version number
- int 21h
-IFDEF LDATA
- lds dx,dword ptr [bp+ARG_1] ; file
-ELSE
- mov dx,word ptr [bp+ARG_1] ; file
-ENDIF
- xor cx,cx ; normal attribute
- mov ah,5Bh ; create new file
- cmp al,3 ; major version number
- jae create1
- mov ah,3Ch ; create file
-
-create1: int 21h
- jc create2
-IFDEF LDATA
- lds bx,dword ptr [bp+ARG_1+4] ; handle address
-ELSE
- mov bx,word ptr [bp+ARG_1+2] ; handle address
-ENDIF
- mov ds:[bx],ax
- xor ax,ax
-
-create2:
-IFDEF LDATA
- pop ds
-ENDIF
- pop bp
- ret
-
-__create ENDP
-
-
-;
-; int _getcd( int, char * );
-;
-
-
- PUBLIC __getcd
-IFDEF LCODE
-__getcd PROC far
-ELSE
-__getcd PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push si ; preserve register variable
-IFDEF LDATA
- push ds
-ENDIF
-
- mov dl,byte ptr [bp+ARG_1] ; drive code (0=default, 1=A)
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+2] ; buffer
-ELSE
- mov si,word ptr [bp+ARG_1+2] ; buffer
-ENDIF
- mov ah,47h ; get current directory
- int 21h
- jc getcd1
- xor ax,ax
-
-getcd1:
-IFDEF LDATA
- pop ds
-ENDIF
- pop si ; restore register variable
- pop bp
- ret
-
-__getcd ENDP
-
-;
-; int _getdrv( void );
-;
-
- PUBLIC __getdrv
-IFDEF LCODE
-__getdrv PROC far
-ELSE
-__getdrv PROC near
-ENDIF
-
- mov ah,19h ; get default disk drive
- int 21h
- xor ah,ah
-
-; AX = drive (0 = A, 1 = B, etc.)
-
- ret
-
-__getdrv ENDP
-
-;
-; void _getvect( int, unsigned int *, unsigned int * );
-;
-
- PUBLIC __getvect
-IFDEF LCODE
-__getvect PROC far
-ELSE
-__getvect PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push ds
- push si ; preserve register variable
-
- mov ah,35h ; get interrupt vector
- mov al,byte ptr [bp+ARG_1] ; interrupt number
- int 21h
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+2]
-ELSE
- mov si,word ptr [bp+ARG_1+2]
-ENDIF
- mov ds:[si],es ; segment
-IFDEF LDATA
- lds si,dword ptr [bp+ARG_1+6]
-ELSE
- mov si,word ptr [bp+ARG_1+4]
-ENDIF
- mov ds:[si],bx ; offset
-
- pop si ; restore register variable
- pop ds
- pop bp
- ret
-
-__getvect ENDP
-
-;
-; void _setvect( VECTOR * );
-;
-
- PUBLIC __setvect
-IFDEF LCODE
-__setvect PROC far
-ELSE
-__setvect PROC near
-ENDIF
-
- push bp
- mov bp,sp
- push ds ; modified in setvectsub
-
-IFDEF LDATA
- les bx,dword ptr [bp+ARG_1] ; vector table
-ELSE
- mov bx,word ptr [bp+ARG_1] ; vector table
- push ds
- pop es
-ENDIF
-
- call setvectsub
-
- pop ds
- pop bp
- ret
-
-__setvect ENDP
-
-
-;
-; void _setdrvcd(int drive, char * string);
-;
-
- PUBLIC __setdrvcd
-IFDEF LCODE
-__setdrvcd PROC far
-ELSE
-__setdrvcd PROC near
-ENDIF
- push bp
- mov bp,sp
-IFDEF LDATA
- push ds
-ENDIF
- mov dl,byte ptr [bp+ARG_1] ; drive code (0=A, 1=B)
- mov ah,0eh
- int 21h
-IFDEF LDATA
- lds dx,dword ptr [bp+ARG_1+2] ; buffer
-ELSE
- mov dx,word ptr [bp+ARG_1+2] ; buffer
-ENDIF
- mov ah,3bh ; set current directory
- int 21h
-
-IFDEF LDATA
- pop ds
-ENDIF
- pop bp
- ret
-
-__setdrvcd ENDP
-
-_TEXT ENDS
-
- END
-
diff --git a/src/odoors/ODSwap.h b/src/odoors/ODSwap.h
deleted file mode 100644
index d1d0e16d1438b3de34abaefbbfbf927baf0a79f2..0000000000000000000000000000000000000000
--- a/src/odoors/ODSwap.h
+++ /dev/null
@@ -1,68 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODSwap.h
- *
- * Description: Provides memory swapping, spawning and certain other low-
- * level assembly routines needed by OpenDoors. This file is only
- * applicable when building the MS-DOS version of OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 25, 1995 6.00 BP Created.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODSWAP
-#define _INC_ODSWAP
-
-#ifdef ODPLAT_DOS
-
-/* Data types. */
-typedef struct _vector
-{
- char number; /* vector number */
- char flag; /* 0-CURRENT, 1-IRET, 2-free, 3-end */
- unsigned int vseg; /* vector segment */
- unsigned int voff; /* vector offset */
-} VECTOR;
-
-/* Global variables. */
-extern char **environ;
-
-/* Public functions. */
-int _chkems(char *, int *);
-int _create(char *, int *);
-int _dskspace(int, unsigned int *, unsigned int *);
-int _getcd(int, char *);
-int _getdrv(void);
-int _getems(int, int *);
-int _getrc(void);
-void _getvect(int, unsigned int *, unsigned int *);
-int _restmap(char *);
-int _savemap(char *);
-void _setdrvcd(int, char * );
-void _setvect(VECTOR *);
-int _xsize(unsigned int, long *, long *);
-int _xspawn(char *, char *, char *, VECTOR *, int, int, char *, int);
-
-#endif /* ODPLAT_DOS */
-
-
-#endif /* _INC_ODSWAP */
diff --git a/src/odoors/ODTypes.h b/src/odoors/ODTypes.h
deleted file mode 100644
index 89595ac40d983d7b9505b3544c17ad1eb35b9ea2..0000000000000000000000000000000000000000
--- a/src/odoors/ODTypes.h
+++ /dev/null
@@ -1,70 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODTypes.c
- *
- * Description: Defines special data types used by OpenDoors.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 15, 1994 6.00 BP Created.
- * Jan 30, 1996 6.00 BP Added kODRCTimeout.
- * Feb 08, 1996 6.00 BP Added kODRCSafeFailure.
- * Feb 08, 1996 6.00 BP Added kODRCUnrecoverableFailure.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- */
-
-#ifndef _INC_ODTYPES
-#define _INC_ODTYPES
-
-/* Generic handle data type. */
-typedef void * tODHandle;
-#define ODHANDLE2PTR(h, t) ((t *) h)
-#define ODPTR2HANDLE(p, t) ((tODHandle) p)
-
-/* OpenDoors function call result codes. */
-typedef enum
-{
- kODRCSuccess,
- kODRCGeneralFailure,
- kODRCNoMemory,
- kODRCNothingWaiting,
- kODRCNoMatch,
- kODRCEndOfFile,
- kODRCNoPortAddress,
- kODRCNoUART,
- kODRCInvalidCall,
- kODRCFileAccessError,
- kODRCFilenameTooLong,
- kODRCTimeout,
- kODRCSafeFailure,
- kODRCUnrecoverableFailure,
- kODRCUnsupported,
-} tODResult;
-
-/* Callback function types. */
-#ifdef _MSC_VER
-typedef void ODCALL OD_COMPONENT_CALLBACK(void);
-typedef void ODCALL OD_PERSONALITY_CALLBACK(BYTE btOperation);
-#else /* !_MSC_VER */
-typedef void OD_COMPONENT_CALLBACK(void);
-typedef void OD_PERSONALITY_CALLBACK(BYTE btOperation);
-#endif /* !_MSC_VER */
-
-#endif /* !_INC_ODTYPES */
diff --git a/src/odoors/ODUtil.c b/src/odoors/ODUtil.c
deleted file mode 100644
index df6f63594836321fba2c2438c5bc0fe0e381d819..0000000000000000000000000000000000000000
--- a/src/odoors/ODUtil.c
+++ /dev/null
@@ -1,461 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODUtil.c
- *
- * Description: Implements the non-platform specific utility functions that
- * are defined in odutil.h. Platform specific utility functions
- * are implemented in odplat.c.
- *
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 01, 1994 6.00 BP Created.
- * Dec 31, 1994 6.00 BP Added ODMakeFilename().
- * Nov 13, 1995 6.00 BP 32-bit portability.
- * Nov 23, 1995 6.00 BP Added ODDWordDivide().
- * Nov 23, 1995 6.00 BP Added ODDStringHasTail().
- * Nov 23, 1995 6.00 BP Added ODFileSize().
- * Nov 24, 1995 6.00 BP ODMakeFilename(): handle empty path.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Added ODDWordMultiply().
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODStr.h"
-#include "ODUtil.h"
-#include "ODGen.h"
-
-
-/* ========================================================================= */
-/* General string manipulation functions. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODStringCopy()
- *
- * Safely copies one string to another. Unlike strncpy(), ODStringCopy()
- * ensures that the destination string is always '\0' terminated.
- *
- * Parameters: pszDest - Pointer to destination string to which to copy
- * characters.
- *
- * pszSource - Pointer to source string from which to copy
- * characters.
- *
- * nSizeOfDest - Maximum number of characters to place in pszDest,
- * INCLUDING the '\0' string terminator.
- *
- * Return: void
- */
-void ODStringCopy(char *pszDest, CONST char *pszSource, INT nSizeofDest)
-{
- ASSERT(pszDest != NULL);
- ASSERT(pszSource != NULL);
- ASSERT(nSizeofDest > 0);
-
- /* Copy at most the specified number of bytes from source to dest, using */
- /* (presumably well optimized) strncpy(). */
- strncpy(pszDest, pszSource, nSizeofDest);
-
- /* Ensure that destination string is '\0' terminated. This will not */
- /* already be the case if strlen(pszSource) >= nSizeofDest. */
- pszDest[nSizeofDest - 1] = '\0';
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStringCToPascal()
- *
- * Converts a string from C's zero-terminated string format to Pascal's
- * length byte + string data format.
- *
- * Parameters: psPascalString - Pointer to the destination string.
- *
- * btMaxPascalLength - Size of the destination string, as declared
- * in Pascal.
- *
- * pszCString - Pointer to the source string, in C format.
- *
- * Return: A pointer to psPascalString.
- */
-char *ODStringCToPascal(char *psPascalString, BYTE btMaxPascalLength,
- char *pszCString)
-{
- BYTE btCStringLength = strlen(pszCString);
-
- ASSERT(psPascalString != NULL);
- ASSERT(btMaxPascalLength > 0);
- ASSERT(pszCString != NULL);
-
- memcpy((char *)psPascalString + 1,
- pszCString, *psPascalString = (btCStringLength < btMaxPascalLength)
- ? btCStringLength : btMaxPascalLength);
- return(psPascalString);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStringPascalToC()
- *
- * Converts a string from Pascal's length byte + string data format to C's
- * zero-terminated string format.
- *
- * Parameters: pszCString - Pointer to destination string.
- *
- * psPascalString - Pointer to Pascal format source string.
- *
- * btMaxLength - Length of C string.
- *
- * Return: A pointer to pszCString.
- */
-char *ODStringPascalToC(char *pszCString, char *psPascalString,
- BYTE btMaxLength)
-{
- ASSERT(pszCString != NULL);
- ASSERT(psPascalString != NULL);
- ASSERT(btMaxLength > 0);
-
- if(*(BYTE *)psPascalString <= btMaxLength)
- {
- memcpy(pszCString, (char *)psPascalString + 1, *psPascalString);
- pszCString[*psPascalString] = '\0';
- }
- else
- {
- pszCString[0] = '\0';
- }
- return(pszCString);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODStringHasTail()
- *
- * Determines whether a string ends in exactly the specified sequence of
- * characters.
- *
- * Parameters: pszFullString - String to examine.
- *
- * pszTail - String to look for at the end of
- * pszFullString.
- *
- * Return: TRUE if the pszFullString does end with pszTail, FALSE if
- * it does not.
- */
-BOOL ODStringHasTail(char *pszFullString, char *pszTail)
-{
- INT nTailLength = strlen(pszTail);
- INT nFullStringLength = strlen(pszFullString);
-
- ASSERT(pszFullString != NULL);
- ASSERT(pszTail != NULL);
-
- if(nFullStringLength < nTailLength)
- {
- return(FALSE);
- }
-
- return(stricmp(pszFullString + (nFullStringLength - nTailLength), pszTail) == 0);
-}
-
-
-/* ========================================================================= */
-/* File-related functions. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODMakeFilename()
- *
- * Generates a fully-qualified filename from a path and base filename.
- *
- * Parameters: pszOut - String to store generated filename in.
- *
- * pszPath - Directory name. May be the same as pszOut, or
- * may be different.
- *
- * pszFilename - Base filename.
- *
- * nMaxOutSize - Size of pszOut. This value should be one more
- * than the maximum number of characters to be
- * stored in the output string.
- *
- * Return: kODRCSuccess on success, or an error code on failure.
- */
-tODResult ODMakeFilename(char *pszOut, CONST char *pszPath,
- CONST char *pszFilename, INT nMaxOutSize)
-{
- /* Validate parameters in debug mode */
- ASSERT(pszPath != NULL);
- ASSERT(pszFilename != NULL);
- ASSERT(pszOut != NULL);
- ASSERT(pszFilename != pszOut);
- ASSERT(nMaxOutSize > 0);
-
- /* Check that there is enough room in the destination string to hold */
- /* both source strings plus possibly an additional \-seperator. */
- if((INT)(strlen(pszPath) + strlen(pszFilename) + 1) > nMaxOutSize - 1)
- {
- return(kODRCFilenameTooLong);
- }
-
- /* Copy path to output filename, if the addresses are different. */
- if(pszPath != pszOut)
- {
- strcpy(pszOut, pszPath);
- }
-
- /* Ensure there is a trailing backslash, if path was not empty. */
-#ifdef ODPLAT_NIX
-
-#else
- if(pszOut[strlen(pszOut) - 1] != DIRSEP && strlen(pszOut) > 0)
- {
- strcat(pszOut, DIRSEP_STR);
- }
-#endif
-
- /* Append base filename. */
- strcat(pszOut, pszFilename);
-
- return(kODRCSuccess);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODFileSize()
- *
- * Determines the size of a currently open file.
- *
- * Parameters: pfFile - Pointer to an already open file to examine.
- *
- * Return: The size of the file. In the case of a file that is open in
- * binary mode, this will be the file length in bytes.
- */
-DWORD ODFileSize(FILE *pfFile)
-{
- DWORD dwOriginal;
- DWORD dwFileSize;
-
- ASSERT(pfFile != NULL);
-
- dwOriginal = ftell(pfFile);
- fseek(pfFile, 0L, SEEK_END);
- dwFileSize = ftell(pfFile);
- fseek(pfFile, dwOriginal, SEEK_SET);
- return(dwFileSize);
-}
-
-
-/* ========================================================================= */
-/* DWORD math functions. */
-/* ========================================================================= */
-
-/* ----------------------------------------------------------------------------
- * ODDWordShiftLeft()
- *
- * Shifts a DWORD to the left by the specified number of bits.
- *
- * Parameters: dwValue - Value to be shifted.
- *
- * btDistance - Distance to shift dwValue by.
- *
- * Return: Result of the shift operation.
- */
-DWORD ODDWordShiftLeft(DWORD dwValue, BYTE btDistance)
-{
- WORD wUpper;
- WORD wLower;
-
- wLower = (WORD)dwValue;
- wUpper = *(WORD *)(((BYTE *)(&dwValue)) + 2);
-
- while(btDistance--)
- {
- wUpper <<= 1;
- wUpper |= (wLower & 0x8000) >> 15;
- wLower <<= 1;
- }
-
- dwValue = wLower;
- *(WORD *)(((BYTE *)(&dwValue)) + 2) = wUpper;
-
- return(dwValue);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDWordShiftRight()
- *
- * Shifts a DWORD to the right by the specified number of bits.
- *
- * Parameters: dwValue - Value to be shifted.
- *
- * btDistance - Distance to shift dwValue by.
- *
- * Return: Result of the shift operation.
- */
-DWORD ODDWordShiftRight(DWORD dwValue, BYTE btDistance)
-{
- WORD wUpper;
- WORD wLower;
-
- wLower = (WORD)dwValue;
- wUpper = *(WORD *)(((BYTE *)(&dwValue)) + 2);
-
- while(btDistance--)
- {
- wLower >>= 1;
- wLower |= (wUpper & 0x0001) << 15;
- wUpper >>= 1;
- }
-
- dwValue=wLower;
- *(WORD *)(((BYTE *)(&dwValue)) + 2) = wUpper;
- return(dwValue);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDWordDivide()
- *
- * Divides one DWORD by another DWORD, calculating the quotient and remainder.
- *
- * Parameters: pdwQuotient - Location where the quotient should be stored,
- * or NULL if quotient is not required.
- *
- * pdwRemainder - Location where remainder should be stored,
- * or NULL if remainder is not required.
- *
- * dwDividend - Dividend to be divided by divisor.
- *
- * dwDivisor - Divisor to divide dividend by.
- *
- * Return: TRUE on success or FALSE on failure.
- */
-BOOL ODDWordDivide(DWORD *pdwQuotient, DWORD *pdwRemainder,
- DWORD dwDividend, DWORD dwDivisor)
-{
- INT nTimes = 0;
- DWORD dwQuotient;
- DWORD dwRemainder;
-
- /* Check for divide by zero in debug versions. */
- ASSERT(dwDivisor != 0);
-
- /* Check that divisor is not zero. (An attempt to divide by zero will */
- /* put this algorithm into an infinite loop, rather than triggering */
- /* a divide fault.) */
- if(dwDivisor == 0L)
- {
- return(FALSE);
- }
-
- /* Initialize remainder to be entire dividend */
- dwRemainder = dwDividend;
-
- /* Initialize quotient to 0 */
- dwQuotient = 0L;
-
- /* Determine largest required multiple of divisor */
- while(dwRemainder >= dwDivisor)
- {
- dwDivisor = ODDWordShiftLeft(dwDivisor, 1);
- ++nTimes;
- }
-
- /* Loop across for all multiples of divisor, beginning with the largest */
- do
- {
- dwQuotient = ODDWordShiftLeft(dwQuotient, 1);
-
- /* If current remainder is >= this multiple of the divisor */
- if(dwRemainder >= dwDivisor)
- {
- /* Subtract the multiple of the divisor from the remainder */
- dwRemainder -= dwDivisor;
-
- /* The next bit of the quotient should be a 1 */
- dwQuotient |= 1L;
- }
-
- /* Divide current multiple of divisor by two */
- dwDivisor = ODDWordShiftRight(dwDivisor, 1);
-
- /* Repeat for all multiples of the divisor */
- } while(nTimes--);
-
- /* If caller asked for quotient, then return it */
- if(pdwQuotient != NULL)
- {
- *pdwQuotient = dwQuotient;
- }
-
- /* If caller asked for remainder, then return it */
- if(pdwRemainder != NULL)
- {
- *pdwRemainder = dwRemainder;
- }
-
- return(TRUE);
-}
-
-
-/* ----------------------------------------------------------------------------
- * ODDWordDivide()
- *
- * Multiplies one DWORD by another, returning the product. Multiplication
- * is performed by using at most 32 additions.
- *
- * Parameters: dwMultiplicand - The multiplicand.
- *
- * dwMultiplier - The multiplier.
- *
- * Return: Result of the multiplication.
- */
-DWORD ODDWordMultiply(DWORD dwMultiplicand, DWORD dwMultiplier)
-{
- DWORD dwResult = 0;
-
- /* Loop while multiplier is not zero */
- while(dwMultiplier != 0)
- {
- /* If least significant bit of multiplier is set */
- if(dwMultiplier & 0x00000001)
- {
- /* Add multiplicand to product */
- dwResult += dwMultiplicand;
- }
-
- /* Shift multiplicand left one bit */
- dwMultiplicand = ODDWordShiftLeft(dwMultiplicand, 1);
-
- /* Shift multiplier right one bit */
- dwMultiplier = ODDWordShiftRight(dwMultiplier, 1);
- }
-
- /* Return the final result to the caller. */
- return(dwResult);
-}
diff --git a/src/odoors/ODUtil.h b/src/odoors/ODUtil.h
deleted file mode 100644
index da5423ef0b6d2f3af433c7f3f6826e5b95cb7ceb..0000000000000000000000000000000000000000
--- a/src/odoors/ODUtil.h
+++ /dev/null
@@ -1,66 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODUtil.h
- *
- * Description: Contains prototypes and definitions for use by non-platform
- * specific utility functions. These functions are implemented in
- * odutil.c. Platform-specific utility functions are defined in
- * odplat.h, and implemented in odplat.c.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Nov 01, 1994 6.00 BP Created.
- * Dec 31, 1994 6.00 BP Added ODMakeFilename().
- * Nov 13, 1995 6.00 BP 32-bit portability.
- * Nov 23, 1995 6.00 BP Added ODDWordDivide().
- * Nov 23, 1995 6.00 BP Added ODDStringHasTail().
- * Nov 23, 1995 6.00 BP Added ODFileSize().
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 06, 1996 6.10 BP Added ODDWordMultiply().
- */
-
-#ifndef _INC_ODUTIL
-#define _INC_ODUTIL
-
-#include "ODGen.h"
-#include "ODTypes.h"
-#include "OpenDoor.h"
-
-/* General string manipulation functions. */
-void ODStringCopy(char *pszDest, CONST char *pszSource, INT nSizeofDest);
-char *ODStringCToPascal(char *psPascalString, BYTE btMaxPascalLength,
- char *pszCString);
-char *ODStringPascalToC(char *pszCString, char *psPascalString,
- BYTE btMaxLength);
-BOOL ODStringHasTail(char *pszFullString, char *pszTail);
-
-/* File-related functions. */
-tODResult ODMakeFilename(char *pszOut, CONST char *pszPath,
- CONST char *pszFilename, INT nMaxOutSize);
-DWORD ODFileSize(FILE *pfFile);
-
-/* DWORD math functions. */
-DWORD ODDWordShiftLeft(DWORD dwValue, BYTE btDistance);
-DWORD ODDWordShiftRight(DWORD dwValue, BYTE btDistance);
-BOOL ODDWordDivide(DWORD *pdwQuotient, DWORD *pdwRemainder,
- DWORD dwDividend, DWORD dwDivisor);
-DWORD ODDWordMultiply(DWORD dwMultiplicand, DWORD dwMultiplier);
-
-#endif /* !_INC_ODUTIL */
diff --git a/src/odoors/ODWCat.c b/src/odoors/ODWCat.c
deleted file mode 100644
index f6ea356688eb39bad42d2b0ca49789ae72b497a5..0000000000000000000000000000000000000000
--- a/src/odoors/ODWCat.c
+++ /dev/null
@@ -1,270 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODWCat.c
- *
- * Description: Implements the Wildcat personality.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Jul 18, 1995 6.00 BP Fix ODStatGetUserAge() bug.
- * Nov 13, 1995 6.00 BP 32-bit portability.
- * Nov 14, 1995 6.00 BP Added include of odscrn.h.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 24, 1995 6.00 BP Fixed black square at pos 25x80.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 03, 1996 6.00 BP Display connect speed with %lu.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 19, 1996 6.10 BP MSVC15 source-level compatibility.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <ctype.h>
-#include <stddef.h>
-#include <time.h>
-#include <stdio.h>
-
-#include "OpenDoor.h"
-#include "ODGen.h"
-#include "ODScrn.h"
-#include "ODCore.h"
-#include "ODStat.h"
-#include "ODKrnl.h"
-
-
-/* ----------------------------------------------------------------------------
- * pdef_wildcat()
- *
- * Personality function for the Wildcat BBS-like status line / function key
- * personality.
- *
- * Parameters: btOperation - Indicates personality operation to be performed.
- *
- * Return: void
- */
-ODAPIDEF void ODCALL pdef_wildcat(BYTE btOperation)
-{
- BYTE btInfoType = od_control.od_info_type;
-
- switch(btOperation)
- {
- case PEROP_DISPLAY1:
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(1,24);
- ODScrnDisplayString(" Baud: ");
- ODScrnSetCursorPos(1,25);
- ODScrnDisplayString("Phone: Sec: Time Left: ");
- ODScrnPutText(80, 25, 80, 25, abtGreyBlock);
-
- ODScrnSetAttribute(0x71);
- ODScrnSetCursorPos(1,24);
- sprintf(szStatusText, "(%s), ", od_control.user_name,
- od_control.user_location);
- ODScrnPrintf("%34.34s", szStatusText);
- ODScrnSetCursorPos(43, 24);
- ODScrnPrintf("%lu", od_control.od_connect_speed);
-
- ODScrnSetCursorPos(8,25);
- if(od_control.od_extended_info || btInfoType==SFDOORSDAT || btInfoType==DOORSYS_GAP || btInfoType==DOORSYS_WILDCAT)
- {
- ODScrnDisplayString(od_control.user_homephone);
- }
-
- if(btInfoType==RA1EXITINFO || btInfoType==RA2EXITINFO || btInfoType==DOORSYS_WILDCAT)
- {
- char szUserAge[7];
- ODScrnSetCursorPos(28,25);
- ODScrnSetAttribute(0x70);
- ODScrnDisplayString("Age: ");
- ODScrnSetAttribute(0x71);
- ODStatGetUserAge(szUserAge);
- ODScrnDisplayString(szUserAge);
- }
-
- ODScrnSetCursorPos(43,25);
- ODScrnPrintf("%u",od_control.user_security);
-
- if(btInfoType==RA1EXITINFO || btInfoType==RA2EXITINFO || btInfoType==DOORSYS_WILDCAT)
- {
- if(strlen(od_control.user_firstcall)==8)
- {
- ODScrnSetCursorPos(49,25);
- ODScrnSetAttribute(0x70);
- ODScrnDisplayString("Since: ");
- ODScrnSetAttribute(0x71);
- ODScrnDisplayChar(od_control.user_firstcall[0]);
- ODScrnDisplayChar(od_control.user_firstcall[1]);
- ODScrnDisplayChar('/');
- ODScrnDisplayChar(od_control.user_firstcall[6]);
- ODScrnDisplayChar(od_control.user_firstcall[7]);
- }
- }
-
- case PEROP_UPDATE1:
- ODScrnSetAttribute(0x71);
- ODScrnSetCursorPos(74,25);
- if(od_control.user_timelimit<=9)
- {
- ODScrnPrintf(" %d",od_control.user_timelimit);
- }
- else if(od_control.user_timelimit<=99)
- {
- ODScrnPrintf(" %d",od_control.user_timelimit);
- }
- else if(od_control.user_timelimit<=999)
- {
- ODScrnPrintf(" %d",od_control.user_timelimit);
- }
- else
- {
- ODScrnPrintf("%d",od_control.user_timelimit);
- }
-
- ODScrnSetAttribute(0x70);
- ODScrnSetCursorPos(56,24);
-
- if(od_control.od_okaytopage==TRUE)
- ODScrnDisplayString("Page Bell ");
- else
- ODScrnDisplayString(" ");
-
- if(od_control.od_user_keyboard_on)
- ODScrnDisplayString("Kybd ");
- else
- ODScrnDisplayString(" ");
-
- if(od_control.sysop_next)
- ODScrnDisplayString("Local-Next");
- else
- ODScrnDisplayString(" ");
- break;
-
- case PEROP_INITIALIZE:
- od_control.key_hangup=0x0000;
- od_control.key_drop2bbs=0x4400;
- od_control.key_dosshell=0x2000;
- od_control.key_chat=0x4100;
- od_control.key_sysopnext=0x3b00;
- od_control.key_lockout=0x8100;
- od_control.key_status[0]=0x0000;
- od_control.key_status[1]=0x0000;
- od_control.key_status[2]=0x0000;
- od_control.key_status[3]=0x0000;
- od_control.key_status[4]=0x0000;
- od_control.key_status[5]=0x0000;
- od_control.key_status[6]=0x0000;
- od_control.key_status[7]=0x0000;
- od_control.key_status[8]=0x0000;
- od_control.key_keyboardoff=0x2500;
- od_control.key_moretime=0x0000;
- od_control.key_lesstime=0x0000;
- od_control.od_page_statusline=-1;
- ODStatAddKey(0x4200); /* Key to end chat */
- ODStatAddKey(0x4800); /* Key to add five minutes */
- ODStatAddKey(0x5000); /* key to subtract five minutes */
- ODStatAddKey(0x7800); /* key to hangup */
- ODStatAddKey(0x7900); /* key to hangup */
- ODStatAddKey(0x7a00); /* key to hangup */
- ODStatAddKey(0x7b00); /* key to hangup */
- ODStatAddKey(0x7c00); /* key to hangup */
- ODStatAddKey(0x7d00); /* key to hangup */
- ODStatAddKey(0x7e00); /* key to hangup */
- ODStatAddKey(0x7f00); /* key to hangup */
- ODStatAddKey(0x8000); /* key to hangup */
- ODStatAddKey(0x3f00); /* key to toggle bell */
- ODStatAddKey(0x3e00); /* key to toggle bell */
- break;
-
- case PEROP_CUSTOMKEY:
- switch((WORD)od_control.od_last_hot)
- {
- case 0x4200:
- od_control.od_chat_active = FALSE;
- break;
-
- case 0x4800:
- if(od_control.user_timelimit <= 1435)
- {
- od_control.user_timelimit += 5;
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- }
- break;
-
- case 0x5000:
- od_control.user_timelimit -= 5;
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- break;
-
- case 0x7800:
- case 0x7900:
- case 0x7a00:
- case 0x7b00:
- case 0x7c00:
- case 0x7d00:
- case 0x7e00:
- case 0x7f00:
- case 0x8000:
- od_exit(2,TRUE);
- break;
-
- case 0x3f00:
- case 0x3e00:
- if(od_control.od_okaytopage!=TRUE)
- {
- od_control.od_okaytopage=TRUE;
- }
- else
- {
- od_control.od_okaytopage=FALSE;
- }
- bForceStatusUpdate = TRUE;
- CALL_KERNEL_IF_NEEDED();
- break;
-
- default:
- return;
- }
- od_control.od_last_hot=0;
- break;
-
- case PEROP_DEINITIALIZE:
- ODStatRemoveKey(0x4200);
- ODStatRemoveKey(0x4800);
- ODStatRemoveKey(0x5000);
- ODStatRemoveKey(0x7800);
- ODStatRemoveKey(0x7900);
- ODStatRemoveKey(0x7a00);
- ODStatRemoveKey(0x7b00);
- ODStatRemoveKey(0x7c00);
- ODStatRemoveKey(0x7d00);
- ODStatRemoveKey(0x7e00);
- ODStatRemoveKey(0x7f00);
- ODStatRemoveKey(0x8000);
- ODStatRemoveKey(0x3e00);
- ODStatRemoveKey(0x3f00);
- break;
- }
-}
diff --git a/src/odoors/ODWin.c b/src/odoors/ODWin.c
deleted file mode 100644
index 1ebaff37a7c2afdb7b5f83eef2b61dabbdac67a8..0000000000000000000000000000000000000000
--- a/src/odoors/ODWin.c
+++ /dev/null
@@ -1,319 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: ODWin.c
- *
- * Description: Implements the od_window_...() functions for creating
- * and removing text-mode windows.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Oct 13, 1994 6.00 BP New file header format.
- * Nov 01, 1994 6.00 BP Include stdlib.h for malloc prototype.
- * Dec 09, 1994 6.00 BP Standardized coding style.
- * Dec 12, 1994 6.00 BP Set od_error on window remove failure.
- * Aug 19, 1995 6.00 BP 32-bit portability.
- * Nov 16, 1995 6.00 BP Removed oddoor.h, added odcore.h.
- * Dec 12, 1995 6.00 BP Added entry, exit and kernel macros.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Aug 10, 2003 6.23 SH *nix support
- */
-
-#define BUILDING_OPENDOORS
-
-#include <string.h>
-#include <stdlib.h>
-
-#include "OpenDoor.h"
-#include "ODGen.h"
-#include "ODCore.h"
-#include "ODKrnl.h"
-
-
-/* ----------------------------------------------------------------------------
- * od_window_create()
- *
- * Creates a window on the screen, storing information on the original screen
- * contents "under" the window in order to restore the screen after the window
- * is removed. A window that is created with this function must be destroyed
- * by od_window_remove() in order to free up memory that is allocated by this
- * function.
- *
- * Parameters: nLeft - 1-based column number of left edge of window.
- *
- * nTop - 1-based row number of top edge of window.
- *
- * nRight - 1-based column number of right edge of window.
- *
- * nBottom - 1-based row number of bottom edge of window.
- *
- * pszTitle - Pointer to a string containing title for window.
- * If this string is empty, no title is displayed.
- *
- * btBoarderCol - Colour of window boarder.
- *
- * btTitleCol - Colour of window title.
- *
- * btInsideCol - Colour of rest of window.
- *
- * nReserved - Should always be 0 for this version.
- *
- * Return: Pointer to window description buffer (which must later be
- * passed to od_window_remove(), or NULL on failure.
- */
-ODAPIDEF void * ODCALL od_window_create(INT nLeft, INT nTop, INT nRight,
- INT nBottom, char *pszTitle, BYTE btBorderCol, BYTE btTitleCol,
- BYTE btInsideCol, INT nReserved)
-{
- BYTE btLine;
- BYTE btBetweenSize;
- void *pBuffer;
- BYTE btTitleSize;
- BYTE btRemaining;
-
- /* Log function entry if running in trace mode. */
- TRACE(TRACE_API, "od_window_create()");
-
- /* Ensure that OpenDoors has been initialized */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- nReserved &= 0x00;
-
- btBetweenSize = (nRight - nLeft) - 1;
-
- /* Setup od_box_chars appropriately. */
- if(od_control.od_box_chars[BOX_BOTTOM]==0)
- {
- od_control.od_box_chars[BOX_BOTTOM] = od_control.od_box_chars[BOX_TOP];
- }
- if(od_control.od_box_chars[BOX_RIGHT]==0)
- {
- od_control.od_box_chars[BOX_RIGHT] = od_control.od_box_chars[BOX_LEFT];
- }
-
- /* Ensure that the current display mode can support the capabilities */
- /* required to display and remove windows. */
- if(!(od_control.user_ansi || od_control.user_avatar))
- {
- od_control.od_error = ERR_NOGRAPHICS;
- OD_API_EXIT();
- return(NULL);
- }
-
- /* Validate parameters. */
- if(nLeft < 1 || nTop < 1 || nRight > 80 || nBottom > 25 || nRight-nLeft < 2
- || nBottom-nTop < 2)
- {
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(NULL);
- }
-
- /* Allocate a buffer large enough to hold all window information. */
- if((pBuffer = malloc((nRight - nLeft + 1) * 2 + (nBottom - nTop + 1) * 160
- + 4)) == NULL)
- {
- od_control.od_error = ERR_MEMORY;
- OD_API_EXIT();
- return(NULL);
- }
-
- /* Store current contents of screen where window will be drawn. */
- if(!od_gettext(nLeft, nTop, nRight, nBottom, (char *)pBuffer+4))
- {
- free(pBuffer);
-
- /* Note: od_control.od_error code has been set by od_gettext(). */
-
- OD_API_EXIT();
- return(NULL);
- }
-
- /* Store window information in buffer. */
- ((char *)pBuffer)[0]=nLeft;
- ((char *)pBuffer)[1]=nTop;
- ((char *)pBuffer)[2]=nRight;
- ((char *)pBuffer)[3]=nBottom;
-
- /* Determine number of characters of title to display. */
- if(pszTitle==NULL)
- {
- btTitleSize = 0;
- }
- else
- {
- if((btTitleSize = strlen(pszTitle)) > (btBetweenSize - 4))
- {
- btTitleSize = btBetweenSize - 4;
- }
- }
-
- /* Move to position of window's top corner, prepare to begin drawing the */
- /* window. */
- od_set_cursor(nTop,nLeft);
- od_set_attrib(btBorderCol);
-
- /* Display corner character. */
- od_putch(od_control.od_box_chars[BOX_UPPERLEFT]);
-
- /* If there is no title, display top line all in one piece. */
- if(btTitleSize == 0)
- {
- /* Display top line. */
- od_repeat(od_control.od_box_chars[BOX_TOP],btBetweenSize);
- }
- else
- {
- /* If there is a title, display the top line with a title centered in */
- /* it. */
- od_repeat(od_control.od_box_chars[BOX_TOP],btRemaining =
- ((btBetweenSize - btTitleSize - 2) / 2));
- od_set_attrib(btTitleCol);
- od_putch(' ');
- od_disp(pszTitle,btTitleSize,TRUE);
- od_putch(' ');
- od_set_attrib(btBorderCol);
- od_repeat(od_control.od_box_chars[BOX_TOP],
- (BYTE)(btBetweenSize - btRemaining - btTitleSize - 2));
- }
-
- /* Display top right corner character. */
- od_putch(od_control.od_box_chars[BOX_UPPERRIGHT]);
-
- /* If AVATAR mode is available. */
- if(od_control.user_avatar)
- {
- /* Display first left verticle line. */
- od_set_cursor(nTop + 1, nLeft);
- od_putch(od_control.od_box_chars[BOX_LEFT]);
-
- /* Fill in center of window with AVATAR clear area control sequence. */
- od_emulate(22);
- od_emulate(12);
- od_emulate(btInsideCol);
- od_emulate((BYTE)((nBottom - nTop) - 1));
- od_emulate(btBetweenSize);
-
- od_set_attrib(btBorderCol);
- od_set_cursor(nTop + 1 , nRight);
-
- /* Display first right verticle line. */
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
-
- /* Display remaining verticle lines. */
- for(btLine=nTop+2;btLine<nBottom;++btLine)
- {
- /* Move to line start and display left line character. */
- od_set_cursor(btLine,nLeft);
- od_putch(od_control.od_box_chars[BOX_LEFT]);
-
- /* Move to line start and display right line character. */
- od_set_cursor(btLine,nRight);
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
- }
- }
-
- /* If AVATAR mode is not available. */
- else
- {
- /* Loop through middle lines of window. */
- for(btLine=nTop+1;btLine<nBottom;++btLine)
- {
- /* Move to line start and display left line character. */
- od_set_cursor(btLine,nLeft);
- od_putch(od_control.od_box_chars[BOX_LEFT]);
-
- /* Set window colour. */
- od_set_attrib(btInsideCol);
-
- /* display blank area between left and right vertical lines. */
- od_repeat(' ',btBetweenSize);
-
- /* Set border colour. */
- od_set_attrib(btBorderCol);
-
- /* Display right line. */
- od_putch(od_control.od_box_chars[BOX_RIGHT]);
- }
- }
-
- /* Display bottom border of window */
- od_set_cursor(nBottom,nLeft);
- od_putch(od_control.od_box_chars[BOX_LOWERLEFT]);
- od_repeat(od_control.od_box_chars[BOX_BOTTOM],btBetweenSize);
- od_putch(od_control.od_box_chars[BOX_LOWERRIGHT]);
-
- /* Return a pointer to the window information buffer. */
- OD_API_EXIT();
- return(pBuffer);
-}
-
-
-/* ----------------------------------------------------------------------------
- * od_window_remove()
- *
- * Removes window from the screen, restoring the screen contents that where
- * in the window area when the window was first created.
- *
- * Parameters: pWinInfo - Pointer to buffer returned by od_window_create().
- * This buffer is deallocated before od_window_remove()
- * returns.
- *
- * Return: TRUE on success, or FALSE on failure.
- */
-ODAPIDEF BOOL ODCALL od_window_remove(void *pWinInfo)
-{
- /* Log function entry if running in trace mode */
- TRACE(TRACE_API, "od_window_remove()");
-
- /* Ensure that OpenDoors has been initialized */
- if(!bODInitialized) od_init();
-
- OD_API_ENTRY();
-
- if(pWinInfo == NULL)
- {
- /* Set error code and return with failure. */
- od_control.od_error = ERR_PARAMETER;
- OD_API_EXIT();
- return(FALSE);
- }
-
- if(!od_puttext(((char *)pWinInfo)[0], ((char *)pWinInfo)[1], ((char *)pWinInfo)[2], ((char *)pWinInfo)[3], (char *)pWinInfo + 4))
- {
- /* Deallocate memory assigned to window information structure. */
- free(pWinInfo);
-
- /* Note: od_control.od_error code has been set by od_puttext(). */
-
- /* Return with failure. */
- OD_API_EXIT();
- return(FALSE);
- }
-
- /* Deallocate memory assigned to window information structure. */
- free(pWinInfo);
-
- /* Return with success. */
- OD_API_EXIT();
- return(TRUE);
-}
diff --git a/src/odoors/ODoorW.lib b/src/odoors/ODoorW.lib
deleted file mode 100644
index 94b24dab090bf43ca92f9af389beeec0c2a1147c..0000000000000000000000000000000000000000
Binary files a/src/odoors/ODoorW.lib and /dev/null differ
diff --git a/src/odoors/ODoors62.dll b/src/odoors/ODoors62.dll
deleted file mode 100644
index a5d4150aef3550b59573350eaa325a1e117395f0..0000000000000000000000000000000000000000
Binary files a/src/odoors/ODoors62.dll and /dev/null differ
diff --git a/src/odoors/OPENDOOR.TXT b/src/odoors/OPENDOOR.TXT
deleted file mode 100644
index 3779bf67d942f5e37876629ed5575798f5a2f964..0000000000000000000000000000000000000000
--- a/src/odoors/OPENDOOR.TXT
+++ /dev/null
@@ -1,14805 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
- ���������� ��������
- ���������� ���������
- ��� ��� ������� ������� ������� ��� ��� ������� ������� ������ �������
- ��� ��� ������� ������� ������� ��� ��� ������� ������� ������ �������
- ���������� ��� ��� ������� ��� ��� ��������� ��� ��� ��� ��� ��� �������
- ���������� ������� ������� ��� ��� �������� ������� ������� ��� �������
- ���
- ���
- ��� Online Software Programming Toolkit
- ���������������������������������������������������������������������������
-
- Programmer's Manual
-
-
- Version 6.00
-
-
- DOS and Win32 Editions
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- NOTE: Since you will likely want to refer to this manual while
- working with OpenDoors, it is highly recommended that you take
- the time to print it out. Simply type COPY OPENDOOR.TXT PRN
- from your DOS prompt. With the exception of this title page,
- this document contains only 7-bit ASCII characters.
-
-
-
-
- (C) Copyright 1991 - 1996 by Brian Pirie. All Rights Reserved.
-
- TABLE OF CONTENTS
-
-
-CHAPTER 1 - INTRODUCTION TO OPENDOORS.......................................5
- WELCOME! ...............................................................5
- FEATURES OF THE OPENDOORS TOOLKIT ......................................6
-
-CHAPTER 2 - ABOUT THIS EVALUATION COPY AND ORDERING.........................9
- THE EVALUATION COPY & BENEFITS OF REGISTERING ..........................9
- HOW TO ORDER ...........................................................10
- HOW TO ORDER BY MAIL ...................................................11
- SENDING YOUR ORDER FEE IN THE MAIL .....................................12
- ORDERING BY CREDIT CARD ................................................14
- HOW YOU CAN RECEIVE YOUR ORDER .........................................15
- ORDERING THE SOURCE CODE ...............................................17
- OPENDOORS 6.00 ORDER FORM ..............................................18
- OPENDOORS 6.00 FEEDBACK FORM ...........................................19
- TERMS OF REGISTRATION AND SOURCE CODE USE ..............................20
-
-CHAPTER 3 - OPENDOORS TUTORIAL..............................................21
- ABOUT THIS MANUAL ......................................................21
- COMPILING A PROGRAM WITH OPENDOORS .....................................22
- LINKING WITH OPENDOORS USING A DOS COMPILER ............................23
- LINKING WITH OPENDOORS USING A WINDOWS COMPILER ........................24
- RUNNING A DOOR PROGRAM WRITTEN WITH OPENDOORS ..........................26
- RUNNING DOS-BASED DOOR PROGRAMS ........................................26
- RUNNING WINDOWS 95/NT DOOR PROGRAMS ....................................26
- BASICS OF DOOR PROGRAMMING WITH OPENDOORS ..............................29
- TOUR OF A SAMPLE DOOR PROGRAM: "EX_VOTE" ...............................33
- OTHER EXAMPLE PROGRAMS INCLUDED WITH OPENDOORS .........................38
-
-CHAPTER 4 - THE OPENDOORS API FUNCTIONS.....................................40
- OVERVIEW ...............................................................40
- TABLE OF MOST COMMONLY USED FUNCTIONS ..................................41
- TABLE OF ALL FUNCTIONS .................................................42
- OD_ADD_PERSONALITY() ...................................................47
- OD_AUTODETECT() ........................................................48
- OD_CHAT() ..............................................................50
- OD_CARRIER() ...........................................................51
- OD_CLEAR_KEYBUFFER() ...................................................53
- OD_CLR_LINE() ..........................................................55
- OD_CLR_SCR() ...........................................................57
- OD_COLOR_CONFIG() ......................................................59
- OD_DISP() ..............................................................60
- OD_DISP_EMU() ..........................................................62
- OD_DISP_STR() ..........................................................63
- OD_DRAW_BOX() ..........................................................65
- OD_EDIT_STR() ..........................................................68
- OD_EXIT() ..............................................................79
- OD_GET_ANSWER() ........................................................81
- OD_GET_INPUT() .........................................................82
- OD_GET_KEY() ...........................................................85
-===============================================================================
-OpenDoors 6.00 Manual End of Page 2
-
- OD_GETTEXT() ...........................................................89
- OD_HOTKEY_MENU() .......................................................90
- OD_INIT() ..............................................................92
- OD_INPUT_STR() .........................................................95
- OD_KERNEL() ............................................................97
- OD_LIST_FILES() ........................................................98
- OD_LOG_WRITE() .........................................................100
- OD_MULTILINE_EDIT() ....................................................101
- OD_PAGE() ..............................................................104
- OD_PARSE_CMD_LINE() ....................................................105
- OD_POPUP_MENU() ........................................................107
- OD_PRINTF() ............................................................110
- OD_PUTCH() .............................................................115
- OD_PUTTEXT() ...........................................................116
- OD_REPEAT() ............................................................118
- OD_RESTORE_SCREEN() ....................................................120
- OD_SAVE_SCREEN() .......................................................121
- OD_SCROLL() ............................................................123
- OD_SEND_FILE() .........................................................124
- OD_SET_ATTRIB() ........................................................128
- OD_SET_COLOR() .........................................................131
- OD_SET_CURSOR() ........................................................134
- OD_SET_DTR() ...........................................................135
- OD_SET_PERSONALITY() ...................................................136
- OD_SET_STATUSLINE() ....................................................137
- OD_SLEEP() .............................................................139
- OD_SPAWN() .............................................................141
- OD_SPAWNVPE() ..........................................................143
- OD_WINDOW_CREATE() .....................................................145
- OD_WINDOW_REMOVE() .....................................................147
-
-CHAPTER 5 - THE OPENDOORS CONTROL STRUCTURE.................................148
- INTRODUCTION TO THE CONTROL STRUCTURE ..................................148
- CONTROL STRUCTURE - DOOR INFO FILE STATS ...............................150
- CONTROL STRUCTURE - SERIAL PORT SETTINGS ...............................153
- CONTROL STRUCTURE - BBS AND CALLER INFORMATION .........................158
- CONTROL STRUCTURE - DOOR SETTINGS ......................................182
- CONTROL STRUCTURE - DIAGNOSTICS ........................................185
- CONTROL STRUCTURE - OPENDOORS CUSTOMIZATION ............................187
- CONTROL STRUCTURE - FUNCTION KEYS ......................................212
- CONTROL STRUCTURE - COLOR CUSTOMIZATION ................................216
- CONTROL STRUCTURE - TEXT CUSTOMIZATION .................................217
-
-CHAPTER 6 - SPECIAL TOPICS..................................................220
- ADDITIONAL INFORMATION ON THE WIN32 VERSION ............................220
- CONFIGURATION FILE SYSTEM ..............................................225
- DEFINING CUSTOM DOOR INFORMATION FILE FORMATS ..........................230
- MULTIPLE PERSONALITY SYSTEM ............................................233
- LOG FILE SYSTEM ........................................................235
- MAKING DOORS MULTI-NODE-AWARE ..........................................237
-
-CHAPTER 7 - TROUBLESHOOTING AND GETTING ASSISTANCE WITH OPENDOORS...........242
-===============================================================================
-OpenDoors 6.00 Manual End of Page 3
-
- ABOUT THIS CHAPTER .....................................................242
- TROUBLESHOOTING PROBLEMS ...............................................242
- SOLUTIONS TO COMMON PROBLEMS ...........................................244
- OPENDOORS SUPPORT ......................................................245
- THE OPENDOORS SUPPORT BBS ..............................................245
- THE OPENDOORS WORD WIDE WEB SITE .......................................246
- THE OPENDOORS CONFERENCE ...............................................246
- GETTING IN TOUCH WITH ME ...............................................247
-
-APPENDIX A - CONTENTS OF PACKAGE............................................249
-
-APPENDIX B - CHANGES FOR THIS VERSION.......................................250
-
-APPENDIX C - FUTURE VERSIONS................................................254
-
-APPENDIX D - SPECIAL THANKS.................................................255
-
-GLOSSARY....................................................................256
-
-INDEX.......................................................................267
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 4
-
- 11
- 111
- 11
- 11
- 11
- 11
- 1111
--------------------------------------------------------------------------------
-CHAPTER 1 - INTRODUCTION TO OPENDOORS
-
-
-
-
-WELCOME!
--------------------------------------------------------------------------------
-
- Welcome to OpenDoors! OpenDoors is a POWERFUL and EASY TO USE
- online software programming toolkit for C and C++. While
- OpenDoors is most often used to create add-on "door" programs
- that run under BBS systems, it can also be used for many other
- online software applications. By using OpenDoors, you are
- joining over 500 other programmers from around the world who
- have used it since it was first released to the public in 1991.
- Over the years, OpenDoors has grown from a simple BBS door
- programming library to what is perhaps the most sophisticated,
- widely used and supported package of its type.
-
- What exactly is OpenDoors? OpenDoors provides a complete system
- that allows you to quickly and easily write spectacular,
- professional quality interactive online software. With
- OpenDoors, you can write software such as BBS door programs just
- as you would write any other program - without having to worry
- about the many of the internal details of door programming.
- OpenDoors looks after communicating through the modem, providing
- ANSI/AVATAR/RIP terminal support and interfacing with a wide
- variety of BBS packages through door information files (such as
- DOOR.SYS, DORINFO1.DEF, etc.). OpenDoors also looks after status
- lines and sysop function keys for DOS shells, chatting, hanging
- up, and so on. In addition, OpenDoors carries out all the work
- involved in keeping track of carrier detection, user timeouts
- and much, much more. OpenDoors is also highly flexible, allowing
- you to take as little or as much control of your program's
- behavior as you wish.
-
- This package includes both DOS and Win32 versions of OpenDoors.
- This allows you to build a plain-DOS version of your program to
- run under a variety of platforms (DOS, DesqView, Windows 3.x,
- NT, 95 and OS/2), to build a Win32 version that takes special
- advantage of Windows 95 / NT, or build both versions of your
- program - the choice is yours. The DOS version of OpenDoors
- performs its serial I/O using either a FOSSIL driver, or built-
- in serial I/O capabilities, making the use of a FOSSIL driver
-===============================================================================
-OpenDoors 6.00 Manual End of Page 5
-
- optional. The Win32 version takes special advantage of 32-bit
- programming, multithreading and the Windows GUI, and allows you
- to access many services that are provided by Windows, such as
- ODBC (for database access) and MAPI (for email and messaging).
- Both the DOS and Win32 versions of OpenDoors can be run under
- both DOS and Windows-based BBS packages. The DOS version of
- OpenDoors can also be run under OS/2-based BBS packages.
-
- The following section provides more detailed information on the
- features and capabilities that OpenDoors provides.
-
-
-
-
-FEATURES OF THE OPENDOORS TOOLKIT
--------------------------------------------------------------------------------
-
- You will find that OpenDoors provides a solid platform to build
- BBS door programs and other online software on top of. You may
- want to write simple utility door programs, on-line games or
- sophisticated applications. Perhaps you are interested in
- getting into the market of selling online software, or perhaps
- you just wish to write some custom door programs for a
- particular BBS system. With OpenDoors, you can accomplish all of
- these things - and do it much more easily than ever before. Some
- of the features that OpenDoors provides to :
-
- - OpenDoors handles all the "dirty" work involved in writing
- BBS door programs. Since OpenDoors looks after all the door-
- related operations for you, you need do next to nothing
- different when writing door programs than you would when
- writing any other program. You simply call OpenDoor's simple
- functions to input, output and control door operation. In
- fact, many people have converted non-door programs to door
- programs in only a matter of minutes using OpenDoors. One of
- the most common comments I receive about OpenDoors is how
- easy it is to use.
-
- - OpenDoors allows you to write software that DIRECTLY support
- a wide variety of BBS systems, including RemoteAccess,
- QuickBBS, PC-Board, Maximus, Opus, Wildcat!, WWIV, Spitfire,
- SuperBBS, Telegard, TriBBS, GAP, and others.
-
- - As you would expect, OpenDoors flawlessly monitors the
- modem's carrier detect signal, to automatically recover when
- a user hangs up - without your having to do anything extra in
- your program. OpenDoors also monitors how much time the user
- has left in the door, and provides a fully adjustable
- inactivity timeout monitor.
-
- - OpenDoors takes care of all the work involved in reading and
- writing BBS door information files, such as DORINFO1.DEF,
-===============================================================================
-OpenDoors 6.00 Manual End of Page 6
-
- EXITINFO.BBS, CHAIN.TXT, DOOR.SYS, etc. If the particular
- information is available to OpenDoors, it will provide you
- with just about everything you could ever want to know about
- the user on-line, the system your door is running under, and
- so on. In addition to the many door information file formats
- supported by OpenDoors, you are also able to define your own
- custom formats.
-
- - OpenDoors also does all the work involved in displaying and
- automatically updating the door's status line, with
- information available to the sysop such as user name,
- location, baud rate, time left, function keys,
- ANSI/AVATAR/RIP settings, and so on. Using OpenDoors, you can
- choose from a number of different "personalities". These
- personalities allows OpenDoors to mimic the status lines and
- sysop function keys used in various BBS packages. OpenDoors
- includes personalities that mimic RemoteAccess, PC-Board and
- Wildcat! OpenDoors also allows you to create your own
- personalities to mimic any other BBS system.
-
- - OpenDoors automatically provides the sysop with all the
- standard function keys for adjusting user time, hanging up on
- or even locking out the user, and so on. OpenDoors also
- provides you with a chat mode, which is available to the
- sysop by pressing Alt-C. In addition, OpenDoors has full
- support for sysop shell to DOS, activated by the Alt-J key.
-
- - What's more, OpenDoors is designed to be very easy to use.
- Even the most novice 'C' programmers are able to write
- professional-quality doors with OpenDoors. It takes care of
- just about every detail for you, yet still gives you the
- ability to completely control and customize every detail of
- your door's behavior. There are even people who begin door
- programming with OpenDoors, having never programmed in C in
- the past.
-
- - OpenDoors supports both FOSSIL-based and built-in serial I/O
- capabilities. FOSSIL-based serial I/O can be used for maximum
- compatibility with various systems and serial ports,
- including multiple-port serial cards such as DigiBoard.
- OpenDoors can also operate without a FOSSIL driver, using
- it's own serial I/O capabilities. OpenDoor's built-in
- asynchronous communications supports baud rates of up to
- 115,200 and non-standard serial port configurations.
- OpenDoors also has the ability to automatically detect which
- of the two serial I/O methods should be used on a particular
- system.
-
- - OpenDoors also automatically detects when the BBS system is
- operating in local mode, and supports full local mode
- operations itself.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 7
-
- - Other OpenDoors functions include a built in sysop-page
- function that will ask the user why they wish to chat, and
- then proceed to page the sysop, just as any BBS package
- would. OpenDoors also provides screen clearing functions
- (which will detect whether the user has screen clearing
- turned on), and various ANSI/AVATAR/RIP control functions
- (which again detect if the user has graphics mode turned on).
-
- - In addition to the basic display features of OpenDoors there
- are also a number of advanced screen control functions. These
- include functions to save and restore the entire screen,
- along with functions to save, restore or scroll portions of
- the screen. Other functions allow you to provide overlapping
- windows and pop-up menus with highlighted selection bars.
-
- - OpenDoors provides a multi-line text editor that you can use
- to allow the user to enter or edit text files, email
- messages, or any other text that spans multiple lines. You
- can customize many of the editor's settings to suit your
- needs.
-
- - OpenDoors has a number of special sub-systems that you may
- elect to include in your doors. Among these, is a log-file
- system that allows you to add log file support to your doors
- with only a single line of programming.
-
- - Another valuable OpenDoors sub-system is the configuration
- file system. Again using only a single line of code, you can
- add configuration file support to your doors. OpenDoors
- configuration files permit the sysop using the door to
- customize the door's behavior to their own preferences.
-
- - OpenDoors can also be fully customized in order that you may
- write door programs that use languages other than English.
-
- - Among the ANSI/AVATAR/RIP features found in OpenDoors is the
- ability to send ANSI/AVATAR/RIP files from disk. This allows
- you to easily design program screens, and incorporate them
- into your doors.
-
- - OpenDoors also comes with the source code for a number of
- example doors, which you can modify, or simply extract bits
- and pieces for use in your own doors. Plus, this manual
- contains many examples of C source code, to help you in
- writing nearly any door program you might wish to build.
-
- - You may also elect to purchase the source code for OpenDoors,
- which will permit you to make modifications to any portion of
- OpenDoors, use any portions of the OpenDoors source code in
- other programs you write, or merely learn how communications-
- type programs are written.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 8
-
- 2222
- 22 22
- 22
- 22
- 22
- 22
- 222222
--------------------------------------------------------------------------------
-CHAPTER 2 - ABOUT THIS EVALUATION COPY AND ORDERING
-
-
-
-
-THE EVALUATION COPY & BENEFITS OF REGISTERING
--------------------------------------------------------------------------------
-
- OpenDoors is distributed and sold using the conventional
- "shareware" approach. This complete package can be freely
- distributed, both online (through BBS systems and the Internet)
- and on CD-ROMs or other media. This gives you the chance to try
- OpenDoors before you buy it. Unlike traditional commercial
- software, you have the opportunity to see OpenDoors first-hand,
- and determine whether it meets your needs without first paying
- for it. However, before registering you are only permitted to
- use it under the following conditions:
-
- 1.)You may only use this package for a one month period, and
- for evaluation purposes only.
-
- 2.) Programs written with this package may not be distributed.
-
- Also, before registering, any program written with OpenDoors
- will display a message to the user indicating that OpenDoors is
- not registered. Of course, this message is removed once you have
- registered.
-
- If you decided to register OpenDoors, you will become the
- licensed owner of a powerful tool for creating BBS door programs
- and other online software. Registered (licensed) owners of
- OpenDoors are entitled to:
-
- 1.)Virtually unlimited use of OpenDoors. You may write as many
- programs as you wish using OpenDoors, and do what you please
- with these programs. They may be freely distributed, or even
- sold. What's more, there are no additional royalty fees.
- Your one time purchase of OpenDoors entitles you to use it
- as you please.
-
- 2.)Your registration entitles you to use both the DOS and Win32
- versions of OpenDoors.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 9
-
- 3.)You will also be entitled to free upgrades to newer versions
- of OpenDoors. In addition to the great many features and the
- quality that this version of OpenDoors has to offer, I am
- currently working on a great many additions and enhancements
- for the next version. (See the end of this document for an
- outline of features currently "in the works".) Any programs
- you write using this version will also automatically take on
- many of these new features when you upgrade to the new
- version.
-
-
- Perhaps the best news of all is the price of OpenDoors. Similar
- packages sell for $50, $75, or even more. However, this version
- of OpenDoors will only cost you $28 US Dollars, $34 Canadian
- Dollars, or the equivalent in your country's currency! (Note
- that this price will increase in future versions. By registering
- now, you will save by being able to upgrade to all future
- versions at no additional charge.)
-
- Also, the source code for OpenDoors is now available to licensed
- users for an additional $28US / $34CDN / equivalent. Ordering a
- copy of the source code will allow you to customize OpenDoors
- for your own use, making any changes or additions that you wish.
- It also gives you the opportunity to see how OpenDoors works,
- and to use any portions of the OpenDoors code in any other
- programs you wish to write. If you think you might be interested
- in ordering the OpenDoors source code, please be sure to read
- the section entitled "Ordering The Source Code", located on page
- 20.
-
-
-
-HOW TO ORDER
--------------------------------------------------------------------------------
-
- There are to ways of ordering and OpenDoors license
- (registration):
-
- -The most common way to order is by mailing the OpenDoors order
- form along with a cheque, money order or cash to the address
- on this order form.
-
- - You may order using a major credit card. OpenDoors credit card
- orders are handled by a third-party credit card order service,
- named PsL.
-
- The following sections provide more information on how to order
- using each of these options.
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 10
-
-HOW TO ORDER BY MAIL
--------------------------------------------------------------------------------
-
- To order OpenDoors by mailing a cheque, money order or cash,
- simply follow these three steps:
-
- 1.) Fill out the registration form. Information on filling out
- the form is located on page 15.
-
- 2.) Send the appropriate payment, $28US/$34CDN/equivalent for
- the registration or $56US/$68CDN/equivalent for both the
- registration and source code. If you wish more detailed
- instructions on sending the registration fee, see the
- section that begins page on 12. Included in that section is
- a list of equivalent prices for a number of other
- countries.
-
- 3.) Send the above two items to me at:
-
- Brian Pirie
- 117 Cedarock Drive
- Kanata ON K2M 2H5
- Canada
-
-
- Many people who register OpenDoors also order the source code
- package. You may wish to consider the benefits of having the
- OpenDoors source code - it allows you to learn how OpenDoors and
- communications software is written, it allows you to modify and
- customize OpenDoors to suit your own preferences, and it also
- allows you to use portions of OpenDoors for other non-door
- programming projects. If you think you might also be interested
- in the OpenDoors source code, be sure to read the section on the
- source code, which begins on page 20.
-
- Also, you may wish to send the OpenDoors feedback form (located
- on page 19), along with your registration. The feedback form
- gives you a chance to tell me what you think of OpenDoors, and
- what changes you would like to see in future versions. In fact,
- the majority of suggestions made on these forms in the past have
- already been implemented in the current version of OpenDoors.
-
- If you have printed the OpenDoors manual, you can simply remove
- and mail the forms on pages 18 and 19. If you have not already
- printed a copy of the manual, and you have a printer, you can
- quickly print these forms by printing the ORDER.FRM file
- included in the OpenDoors distribution archive. (Type COPY
- ORDER.FRM PRN from your DOS prompt.)
-
-NO PRINTER? Alternatively, if you do not have a printer, simply send a hand-
- written version of the order form.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 11
-
- If you have any special instructions for me, or anything that
- you would like to say when you register, feel free to write this
- on the back of the registration form, or on a separate piece of
- paper.
-
- When filling out the OpenDoors registration form, be sure to
- indicate how you would prefer to receive your OpenDoors
- registration key and/or source code. The following options are
- available:
-
- - Having me send the registration and/or source code
- by conventional mail
- - Internet E-Mail (the fastest option)
- - By Fax
- - Having me call to your BBS
- - You calling the OpenDoors support BBS
- - FidoNet "CrashMail"
-
- Once you have decided which means you would prefer to receive
- your order by, please read the detailed instructions on your
- order method, below. Also, if you are ordering the source code,
- please be sure to read the section on ordering the source code,
- which begins on page 20.
-
-
-
-
-SENDING YOUR ORDER FEE IN THE MAIL
--------------------------------------------------------------------------------
-
- The price of OpenDoors is 34 Canadian Dollars, 28 U.S. Dollars,
- or equivalent for the registration. The source code costs an
- additional 34 Canadian Dollars, 28 U.S. Dollars, or equivalent.
- For your convenience, the equivalent value in a number of other
- country's currencies, at the time of this writing, is as
- follows:
-
- -----------------------------------------------
- REGISTRATION
- REGISTRATION ONLY AND SOURCE CODE
- -----------------------------------------------
- 34 Canadian Dollars 68 Canadian Dollars
- 28 US Dollars 56 US Dollars
- 18 British Pounds 36 British Pounds
- 150 French Francs 300 French Francs
- 44 German Marks 88 German Marks
- 50 Netherland Gilders 100 Netherland Gilders
- 39 Australian Dollars 78 Australian Dollars
- -----------------------------------------------
-
- If you are ordering by mail, this order fee may be paid using
- any of the following methods:
-===============================================================================
-OpenDoors 6.00 Manual End of Page 12
-
-
- -Cheque or Money Order in Canadian currency, drawn upon a
- Canadian bank. In this case, your order fee will be either
- $34CDN for just the registration, or $68CDN for both the
- registration and source code.
-
- -Cheque or Money Order in U.S. currency, drawn upon a U.S. bank.
- In this case, your order fee will be either $28US for just the
- registration, or $56US for both the registration and source
- code.
-
- -An International Money Order or International Bank Draft
- (available from your bank, post office or companies such as
- American Express), in Canadian currency. Depending on the
- particular case, your order fee MAY be sent to me by the postal
- service, and you will mail your order form by itself. You
- should have the money order drawn in either $34CDN for just the
- registration, or $68CDN for both the registration and source
- code.
-
- -A cheque drawn on any bank in the world, IN THAT COUNTRY'S
- CURRENCY, equivalent to 34 Canadian dollars. For instance, a
- cheque for the appropriate number of British Pounds, drawn on a
- British bank, is perfectly acceptable. However, I am unable to
- accept a cheque for $34 Canadian dollars, drawn on a British
- Bank. UNFORTUNATELY, THE BANKS IN CANADA ARE CURRENTLY
- UNWILLING TO ACCEPT EUROCHEQUES.
-
- -Cash. Please note that it is not usually recommended that cash
- be sent in the mail, and that I cannot be responsible for any
- cash lost in the mail. Simply put, if you wish to order by
- cash, it is your responsibility to get the cash to me. However,
- if I do receive your order in the form of cash, it will be
- perfectly acceptable to me. I would like to mention that many
- people have already ordered OpenDoors by sending cash, and I
- have yet to run across any case of cash being lost in the mail.
- Nonetheless, if you wish to send cash, you may wish to consider
- doing so by registered mail, for your added security.
-
-
- If you are ordering OpenDoors from within Canada, you will most
- likely choose the first option (a Canadian cheque or money
- order). If you are ordering OpenDoors from within the United
- States, you will most likely choose the second option (an
- American cheque or money order). If you are ordering from
- outside Canada and the U.S., it would be ideal if you could send
- your fee by an international money order. However, it should be
- noted that any of the above order methods will be acceptable
- from any location. Also, it is quite possible that I may be able
- to accept other means of sending your order fee. If you are
- unsure about sending your order fee, please feel free to get in
- touch with me by any of the means listed on page 247.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 13
-
-ORDERING BY CREDIT CARD
--------------------------------------------------------------------------------
-
- This information applies to CREDIT CARD ORDERS ONLY. Please read
- this entire section before ordering OpenDoors by credit card.
-
- In order to cover the additional costs of processing credit card
- orders, an $8 shipping and handling fee applies to all OpenDoors
- orders made through PsL. As such, the total prices you will pay
- are:
-
- - Just registration ($28 + $8 Handling) = $36 U.S.
- - Registration and Source Code ($56 + $8 Handling) = $64 U.S.
- (All prices will be charged to your credit card in U.S.
- Dollars.)
-
- You can order OpenDoors with MC, Visa, Amex, or Discover from
- Public (software) Library by calling 800-2424-PsL or 713-524-6394
- or by FAX to 713-524-6398 or by CIS Email to 71355,470. You can
- also order online through the World Wide Web. For more
- information on how to do this, visit the OpenDoors Web site.
- (Information on the OpenDoors web site is provided on page 246.)
- You can also mail credit card orders to PsL at P.O.Box 35705,
- Houston, TX 77235-5705. When ordering by phone, you must call
- between 6:00am and 6:00pm CST on Monday to Thursday, or between
- 6:00am and 12:30pm on Fridays.
-
- THE ABOVE NUMBERS ARE FOR CREDIT CARD ORDERS ONLY.
- THE AUTHOR OF THIS PROGRAM CANNOT BE REACHED AT THESE NUMBERS.
-
- Any questions about the status of the shipment of the order,
- refunds, registration options, product details, technical
- support, volume discounts, dealer pricing, site licenses, non-
- credit card orders, etc., must be directed to:
-
- Brian Pirie
- 117 Cedarock Drive
- Kanata ON K2M 2H5
- Canada
-
- To insure that you get the latest version, PsL will notify me the
- day of your order and I will ship OpenDoors directly to you. I
- will send OpenDoors by conventional mail unless I have previously
- heard from you, asking me to send your order by some other means.
-
- When ordering by credit card through PsL, please be sure to
- indicate whether you wish to order just the OpenDoors
- registration, or both the registration and source code. Also,
- please be sure to include your credit card billing address.
- Without this information, PsL will be unable to process your
- order.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 14
-
-HOW YOU CAN RECEIVE YOUR ORDER
--------------------------------------------------------------------------------
-
- For your convenience, I can send your OpenDoors registration key
- and/or source code by any of the following methods. If you are
- ordering OpenDoors by mail, simply check one of these options on
- your order form. If you are ordering through the third-party
- credit card service, I will automatically send your order by
- Internet email or conventional mail unless I receive a message
- from you before you order, asking me to send it by some other
- means.
-
-
--------------------------------------------------------------------------------
-RECEIVING If you wish to receive your OpenDoors registration key by
-ORDER BY Internet E-Mail (including Internet E-Mail to a CompuServe
-INTERNET account), fill out the order form and mail it along with your
-E-MAIL payment as described below. Be sure to include your e-mail
- address on your order form. Note that the source code cannot be
- sent via Internet e-mail.
-
-
--------------------------------------------------------------------------------
-RECEIVING In order to receive your OpenDoors registration key and/or
-ORDER source code by conventional mail, simply fill out the order
-BY MAIL form and mail it along with your payment as described below. I
- will cover the cost of postage. If your address contains non-
- Roman characters, also enclose a self-addressed envelope or
- mailing label.
-
-
--------------------------------------------------------------------------------
-RECEIVING If you wish to receive your OpenDoors registration key by
-ORDER BY FAX, fill out the order form and mail it along with your payment
-FAX as described below. Be sure to include your fax number on your
- order form. Do to choose this method if you are ordering the
- source code.
-
-
--------------------------------------------------------------------------------
-RECEIVING You may choose to receive your OpenDoors registration and/or
-ORDER BY source code by calling the OpenDoors BBS after your registration
-CALLING form and order fee have been received here. If you are unable to
-OPENDOORS receive your order by any other electronic means (such as a call
-BBS to your BBS, or by electronic mail), this may be the quickest
- way for you to receive your registration information and/or
- source code. The obvious disadvantage with to option is the fact
- that you will have to estimate when your order will arrive here
- in order to receive it as quickly as possible. You may end up
- calling the OpenDoors BBS more than once before your order has
- arrived. After your order form has arrived, your registration
- key and/or source code will be placed on hold for you, and you
-===============================================================================
-OpenDoors 6.00 Manual End of Page 15
-
- will be able to receive it on your first call to the BBS. The
- phone number of the BBS is:
-
- +1 (613) 599-5554
-
-
--------------------------------------------------------------------------------
-RECEIVING In order to receive your OpenDoors registration key and/or
-ORDER BY source code by a message and/or upload to your BBS, fill out
-CALL TO the order form and mail it along with your payment as described
-YOUR BBS below. Be sure to include the phone number, baud rate, and my
- login and password for the BBS to which you would like me to
- call. As always, I will cover any long distance costs. If, for
- some reason, I am unable to connect to your BBS (not because it
- is busy, but, for example, if your BBS is no longer online), I
- will send your order by conventional mail instead.
-
-
--------------------------------------------------------------------------------
-RECEIVING In order to receive your OpenDoors registration key and/or
-ORDER BY source code by FidoNet CrashMail, simply fill out the order
-FIDONET form and mail it along with your payment as described below.
-CRASHMAIL Be sure to include the FidoNet node address to which you wish to
- have your registration key and/or source code sent to (via
- CrashMail). Again I will cover any long distance costs. If, for
- some reason, I am unable to connect to your FidoNet system, I
- will send your order by conventional mail instead.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 16
-
-ORDERING THE SOURCE CODE
------------------------------------------------------------------------------
-
- Many people also choose to order the source code along with
- their OpenDoors registration. Ordering the source code will
- allow you to customize OpenDoors for your own use, use parts of
- the OpenDoors source code in other programs, and learn more
- about how OpenDoors works. If you have any ideas for changes
- that you would like to see in OpenDoors, either large or small,
- ordering the source code will allow you to makes these changes
- yourself, creating your own customized version of OpenDoors. You
- will be able to remove copyright notices, change the way certain
- OpenDoors functions work, or add new capabilities to OpenDoors
- in surprisingly little time. You will also be able to use any of
- the OpenDoors source code, be it the DesqView-aware code,
- EMS/disk swapping routines, configuration file system,
- communications routines, or anything else, in any other programs
- that you write. Also, ordering the OpenDoors source code will
- allow you to learn more about how OpenDoors works, and how to
- program communications software and BBS door programs.
-
- When you order the OpenDoors source code, you will receive the
- source code package. The source code package also includes a
- short "Source Code Manual", with a description of how the
- OpenDoors source code is organized, instructions on how to
- recompile the source code, and more. If you choose to receive
- the source code package electronically, you will receive it in
- the form of a single .ZIP file. If you choose to receive the
- source code package by mail, you will receive it on a 3-1/2"
- diskette.
-
-REQUIREMENTS Due to the wide variety of compilers that are available, and the
- differences between them, I have been unable to test the
- OpenDoors source code with every compiler. This means that you
- may need to make some changes to the source code in order to
- compile it with certain compilers.
-
- In order to compile the DOS version of OpenDoors, you must be
- using a compiler that supports inline assembly language
- keywords. This includes all Borland compilers released since
- 1991, and many other compilers. The one notable exception is
- Watcom's compiler, which does not support inline assembly
- language at the time of this writing.
-
- For your information, the DOS OpenDoors libraries included with
- this package were compiled using Turbo C++ 1.0 Professional. The
- Win32 libraries included with this package were compiled using
- Microsoft Visual C++ 2.0. This means that you can be reasonably
- certain that OpenDoors will compile with these compilers and any
- more recent compilers by these companies without any changes.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 17
-
---------------------------------------------------------------------------
- OPENDOORS 6.00 ORDER FORM
---------------------------------------------------------------------------
-
- REGISTRATION NAME : _______________________________ (AS SHOULD APPEAR IN
- REGISTRATION)
- YOUR NAME : _______________________________ (IF DIFFERENT)
-
- POSTAL ADDRESS : ______________________________________________________
-
- ______________________________________________________
-
- ______________________________________________________
-
- E-MAIL ADDRESSES : ____________________________________ (IF APPLICABLE)
-
- ADDITIONAL INFO : ______________________________________________________
- (EG FAX/BBS PHONE NUMBER & BRIAN'S PASSWORD, IF NEEDED)
-
-I WISH TO RECEIVE MY ORDER BY:
- ___ ___
- | | - INTERNET E-MAIL (FASTEST) | | - I WILL CALL BRIAN'S BBS
- |___| |___|
- ___ ___
- | | - CONVENTIONAL MAIL | | - CALL TO MY BBS
- |___| |___| (INCLUDE LOGIN INFO)
- ___ ___
- | | - FAX (INCLUDE FAX #) | | - FIDONET "CRASHMAIL"
- |___| |___|
-
- ___
-I WOULD LIKE TO ORDER: | | - BOTH REGISTRATION KEY AND SOURCE CODE
- |___| ($56 US, $68 CANADIAN, OR EQUIVALENT FUNDS)
- ___
- | | - JUST MY REGISTRATION KEY
- |___| ($28 US, $34 CANADIAN, OR EQUIVALENT FUNDS)
- ___
- | | - UPGRADE TO SOURCE CODE (ONLY IF ALREADY
- |___| REGISTERED) ($28 US, $34 CANADIAN OR EQUIV.)
-
-
-I AGREE TO THE REGISTRATION TERMS, ____________________________
-SET FORTH ON PAGE 20 OF THE MANUAL (SIGNATURE)
-
-MAKE CHEQUES PAYABLE TO: BRIAN PIRIE
- 117 CEDAROCK DRIVE
- KANATA ON K2M 2H5
- CANADA
-+-- OFFICIAL USE ONLY ----------------------------------------------------+
-| |
-| S.N. : _____________ SENT : _________________________________________ |
-+-------------------------------------------------------------------------+
-===============================================================================
-OpenDoors 6.00 Manual End of Page 18
-
---------------------------------------------------------------------------
- OPENDOORS 6.00 FEEDBACK FORM
---------------------------------------------------------------------------
-
-YOUR NAME : _______________________________
-
-
-WHICH OPENDOORS LIBRARY(S) DO YOU EXPECT TO USE:
- ___
- | | - DOS VERSION, MEMORY MODELS: _________________________
- |___|
- ___
- | | - WINDOWS (WIN32) VERSION
- |___|
-
-
-HOW DID YOU FIRST LEARN OF OPENDOORS?
-
- ____________________________________________________________
-
-
-WHICH COMPILER(S) AND VERSION(S) ARE YOU USING?
-
- ____________________________________________________________
-
-
-WHAT DO YOU LIKE MOST ABOUT OPENDOORS?
-
- ____________________________________________________________
-
- ____________________________________________________________
-
-
-WHAT CHANGES OR ADDITIONS WOULD YOU LIKE TO SEE IN FUTURE VERSIONS?
-
- ____________________________________________________________
-
- ____________________________________________________________
-
-
-DO YOU HAVE ANY ADDITIONAL COMMENTS?
-
- ____________________________________________________________
-
- ____________________________________________________________
-
- ____________________________________________________________
-
-
------------------------------------------------------------------------------
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 19
-
-TERMS OF REGISTRATION AND SOURCE CODE USE
------------------------------------------------------------------------------
-
- When you purchase an OpenDoors registration and/or source code
- license, you are entitled to almost unlimited use of all
- versions of OpenDoors. However, in order to protect my
- investment of time and effort in developing OpenDoors, you must
- also agree to the terms outlined below when licensing OpenDoors
- and/or the source code. These terms are intended to be very
- reasonable, and are in no way intended to limit your use of
- OpenDoors. The primary intent of these terms is that you are not
- permitted to disclose your OpenDoors registration information,
- or the OpenDoors source code, to other individuals. The terms of
- registration and source code use are as follows:
-
- For the purpose of these terms, "OpenDoors" is defined to be the
- library files, header files, example programs and programmer's
- manual of all versions, past and present, for all languages and
- platforms of the OpenDoors online software programming toolkit.
- In the case of a source code license, OpenDoors also refers to
- the source code that is used to build OpenDoors. Upon licensing
- OpenDoors, the individual or organization named on the order
- form (the licensee) is entitled to use of all versions of
- OpenDoors, within the terms set forth below. Violation of these
- terms will be considered copyright infringement, and grounds for
- the termination of the registration agreement. The licensee is
- entitled, at no additional cost, to use, distribute or sell the
- executable (.EXE or .COM) files that are built from OpenDoors.
- The licensee is also entitled to use, distribute or sell the
- example programs, example configuration files and portions of
- the manual. If licensing the source code, the licensee is also
- entitled to distribute or sell any executable files that result
- from using altered versions of the source code, or portions
- thereof, provided that it is not possible for other programmers
- to access the OpenDoors API functions through this executable
- file. The licensee is NOT entitled to distribute the
- registration key number that is provided by Brian Pirie, nor any
- portions of the OpenDoors source code. For the purposes of these
- terms, an organization is considered to be a company or non-
- profit organization. If the licensee is an organization, the
- registration key and source code may be shared among members of
- the organization, under the condition that these individuals are
- using the registration and/or source code only for official
- activities of that organization. These terms in no way suggest
- an agreement on the part of Brian Pirie to develop any future
- versions of OpenDoors, or fix any bugs in current versions of
- OpenDoors. OpenDoors is offered "as is", and no warrantees are
- expressed or implied. In no event shall Brian Pirie be liable
- for any loss of profit or any other damage, including but not
- limited to special, incidental, consequential or other damages.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 20
-
- 3333
- 33 33
- 33
- 333
- 33
- 33 33
- 3333
--------------------------------------------------------------------------------
-CHAPTER 3 - OPENDOORS TUTORIAL
-
-
-
-
-ABOUT THIS MANUAL
--------------------------------------------------------------------------------
-
- The OpenDoors programmer's manual is intended to serve as a
- complete tutorial, guide and reference to writing programs with
- OpenDoors. Chapter 1 of this manual, beginning on page 5,
- provides an introduction and overview of the features of
- OpenDoors. If you are unsure of what OpenDoors will do for you,
- begin with Chapter 1. Chapter 2, beginning on page 9, provides
- important information related to this evaluation copy of
- OpenDoors, and how to register your copy. Chapter 3 serves as a
- tutorial on OpenDoors and BBS door programming in general.
- Chapter 4 provides a reference to the OpenDoors API functions
- which you can use in your programs. Chapter 5 provides a
- reference to the "OpenDoors control structure", which gives you
- access to a wide array of information, and allows you to
- customize OpenDoor's appearance and behavior. Chapter 6 provides
- information on special OpenDoors features and advanced door
- programming topics. Among the subjects discussed in chapter 6
- are the Win32 version of OpenDoors, configuration files, multi-
- node operation, RIP graphics, logfile support, defining custom
- door information file formats, and more.
-
- Chapter 7 (which begins on page 242) gives instructions on
- troubleshooting programs written with OpenDoors, lists solutions
- to common difficulties, and has information about the many
- sources for OpenDoors support. If at any time you are having
- difficulty with OpenDoors, be sure to refer to this chapter for
- complete step-by-step instruction on tracing the source of your
- problem, and for solutions to common difficulties with
- OpenDoors. This chapter also directs you to some of the major
- sources of support, including information on the OpenDoors email
- conference, the OpenDoors support BBS, and how to get in touch
- with me.
-
- You will also find many useful tools in this manual, which will
- no doubt come in useful while working with OpenDoors. Beginning
- on page 2 is a basic table of contents, showing you how the
- manual is organized, and helping you to locate general topics.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 21
-
- At the end of the manual, beginning on page 267, is an index to
- help you locate more information on specific topics. The manual
- also includes a glossary, on page 256, which will help you in
- understanding new terms that you may come across while reading
- the manual. At the end of the manual, you will also find several
- useful sections, such as information on what is new in this
- version, information on how to contact me, and information about
- new OpenDoors features currently in the works.
-
- You will likely want to print this manual, to make reading and
- reference while programming easier. To print this manual, simply
- type the following line from your DOS prompt. If you are worried
- about the size of this manual, you might consider using a
- utility that can print multiple pages of a text file on a single
- sheet of paper. Printing two manual pages per side of paper
- should certainly be legible, and even four-up would give you
- text about the size of average newspaper text. Printing on both
- sides, you should be able to fit the manual on about 34 sheets
- of paper (269/8 < 34).
-
-
-
-
-COMPILING A PROGRAM WITH OPENDOORS
--------------------------------------------------------------------------------
-
- The process of compiling a program written with OpenDoors is
- very similar to that of compiling any other program. However,
- there are two additional steps which you must be sure to
- remember:
-
- 1.) You must include the OPENDOOR.H header file.
-
- 2.) You must link your program with the appropriate OpenDoors
- library file.
-
-
- All programs written with OpenDoors, must "include" the
- OPENDOOR.H header file. If you have placed the OPENDOOR.H header
- file in the same directory as your program's source code, place
- the following line at the beginning of your .C or .CPP file(s):
-
- #include "opendoor.h"
-
- If you have placed the OPENDOOR.H header file in the same
- directory as other standard header files (such as stdio.h),
- place the following line at the beginning of your .C or .CPP
- file(s):
-
- #include <opendoor.h>
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 22
-
- In addition to including the OpenDoors header file in your
- source code modules, you must also "link" the appropriate
- OpenDoors library file with your program. The procedure for
- doing this depends upon which compiler you are using. The
- following sections describe how to link with the OpenDoors
- libraries using various compilers.
-
-
-
-LINKING WITH OPENDOORS USING A DOS COMPILER
--------------------------------------------------------------------------------
-
- This section describes how to link with the provided OpenDoors
- library files under a variety of DOS compilers. If you are using
- a compiler other than those described here, refer to your
- compiler's manual for information on how to link with third-
- party libraries.
-
- If you are using Borland Turbo C 2.00 or earlier, you can cause
- your compiler to link your program with the OpenDoors library by
- creating a text file with a .PRJ extension. In this text file,
- you should list the names of your program's .C modules, along
- with the name of the appropriate OpenDoors library file, as
- listed in the table at the end of this section. You should then
- select this Project file from within the Turbo C IDE prior to
- compiling your program.
-
- If you are using Turbo C++ or Borland C++, you can set your
- compiler to link your program with the OpenDoors library by
- creating a project file from within the IDE. To do this, choose
- the Open Project command from the Project menu, and enter the
- name for your new project file in the Load Project dialog box.
- Then add the names of your program's .C/.CPP modules, along with
- the name of the appropriate OpenDoors library file, by pressing
- [Insert] in the project window. When you return to Turbo C++ or
- Borland C++ again, you can work with the same project file by
- using the Open command from the Project menu.
-
- If you are using any Microsoft C compiler, such as Quick C,
- Microsoft C or Visual C++, you can set your compiler to link
- your program with the OpenDoors library by creating a makefile.
- You can create a new project file from within Quick C by using
- the Set Program List option from the Make menu. You can do this
- from within Visual C++ by using the New command from the Project
- menu. You should add the names of your program's .C/.CPP source
- files, along with the name of the appropriate OpenDoors library
- file, to the newly create makefile.
-
- There are several different DOS library files included with
- OpenDoors, each one for use with a different memory model. The
- following chart lists the library file names, along with their
- corresponding memory model. It is important that you use the
-===============================================================================
-OpenDoors 6.00 Manual End of Page 23
-
- library file which corresponds to the memory model you are
- using. Whenever you change your compiler to use a different
- memory model, it is important to rebuild all of your source
- files (using the "Build All" or "Rebuild All" command) in
- addition to changing the library that your program is being
- linked with. If you are unfamiliar with the concept of memory
- models, you should refer to your compiler's manuals. If you are
- unsure as to what memory model your compiler is currently using,
- check this setting in the compile options dialog box or command
- line reference information.
-
- +------------------------------------------------+
- | Library | Memory |
- | Filename | Model |
- |-------------|----------------------------------|
- | ODOORS.LIB | DOS small memory model library |
- | | |
- | ODOORM.LIB | DOS medium memory model library |
- | | (Available separately) |
- | | |
- | ODOORC.LIB | DOS compact memory model library |
- | | (Available separately) |
- | | |
- | ODOORL.LIB | DOS large memory model library |
- | | |
- | ODOORH.LIB | DOS huge memory model library |
- +------------------------------------------------+
-
- To understand how to compile a program written with OpenDoors,
- it is a good idea to try compiling one of the example programs,
- such as ex_hello.c, that are included in the OpenDoors package.
-
-
-
-
-LINKING WITH OPENDOORS USING A WINDOWS COMPILER
--------------------------------------------------------------------------------
-
- The Win32 version of OpenDoors resides in a DLL, ODOORS60.DLL.
- In order to use OpenDoors from a Win32 program, you will
- typically link to an import library (although it is also
- possible to use load-time dynamic linking through the use of
- LoadLibrary() and GetProcAddress()). The OpenDoors package
- includes a COFF-format import library for use Microsoft
- compilers, named ODOORW.LIB. If you are using a compiler that
- uses OMF-format object files, such as a Borland compiler, you
- will need to create your own version of the odoorw.lib import
- library, by using the implib utility provided with your
- compiler.
-
- When compiling an OpenDoors program with a Windows compiler, be
- sure that either the WIN32 or __WIN32__ constant is defined.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 24
-
- Microsoft and Borland compilers define one of these constants by
- default. However, if you are using a compiler from another
- company, you may need to explicitly configure your compiler to
- define one of these preprocessor constants.
-
- If you are using Microsoft Visual C++ 2.0 or later, you can
- setup your compiler to link with the OpenDoors import library by
- creating a makefile (choose File|New|Project) and adding both
- your program's .C/.CPP source file(s) and the odoorw.lib import
- library to the project. When prompted for the Project type,
- choose "Application", not a "MFC AppWizard". If you are using
- Visual C++ 2.0, then you must manually edit the .mak file using
- a text editor. In this file, replace all occurrences of
- "/SUBSYSTEM:windows" with "/SUBSYSTEM:windows,4.0". This
- instructs the linker to create an executable file that is
- targeted for Windows 95. If you do not do this, some of the
- OpenDoors visual elements will not appear correctly. Later
- versions of Microsoft's compiler default to using
- "/SUBSYSTEM:windows,4.0", and so this step is no longer
- necessary with those compilers.
-
- If you are using Borland C++ 4.50 or later, you must create an
- OpenDoors import library for ODOORS60.DLL before you can compile
- your first OpenDoors program. To do this, go to the directory
- where ODOORS60.DLL is located, move the original odoorw.lib to a
- backup location, and issue the command:
-
- IMPLIB ODOORW.LIB ODOORS60.DLL
-
- This will create a new import library (ODOORW.LIB) which you can
- then use with your compiler. To compile an OpenDoors program
- from the command line, issue the command:
-
- BCC32 -tW your_program.c ODOORW.LIB
-
- To compile an OpenDoors program from within the IDE, create a
- new project file, and add both your program's source file(s) and
- the OpenDoors import library to that project. If you are
- compiling from within the IDE, check the TargetExpert and be
- sure that you are using the multithreaded version of the the
- runtime libraries. By default, the Borland IDE compiles single-
- threaded, which will not work with OpenDoors.
-
- Additional information on the Win32 version of OpenDoors is
- provided in chapter 6.
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 25
-
-RUNNING A DOOR PROGRAM WRITTEN WITH OPENDOORS
--------------------------------------------------------------------------------
-
- This section provides information on how to run a BBS door
- program that has been written with OpenDoors. If you are using
- OpenDoors to write some other form of online software, the
- information provided here will apply to different degrees,
- depending on the nature of your program.
-
- OpenDoors supports both local and remote modes. In the normal
- mode of operation, remote mode, your program's output will be
- displayed to both the local screen and the remote user's screen.
- To run your program in remote mode, you will usually set it up
- to run under some BBS package. However, for testing purposes, it
- is often convenient to run your program in local mode.
-
- There are several ways to start your program in local mode. The
- first method is to place the example DORINFO1.DEF file in the
- same directory as your program. If your program uses the
- OpenDoors command line processing function, od_parse_cmd_line(),
- then you can start your program in local mode by simply
- specifying -local on your program's command line. For example,
- you can try the example program include with OpenDoors by
- issuing the command VOTEDOS -LOCAL (for the DOS version) or
- VOTEWIN -LOCAL (for the Windows 95/NT version). OpenDoors will
- also run in local mode if you set it up to run under a BBS
- package, and log into the BBS in local mode. When the BBS runs
- your door program, OpenDoors will automatically run in local
- mode.
-
- To run your program in remote mode, you will probably want to
- run it under a BBS system. If you don't have a BBS package for
- testing purposes, you might want to obtain a popular BBS package
- such as Wildcat!, Maximus (which is free) or RemoteAccess.
-
-
-
-RUNNING DOS-BASED DOOR PROGRAMS
--------------------------------------------------------------------------------
-
- DOS BBS packages typically run door programs using one of two
- methods. Either the BBS package directly loads and executes the
- program, or it exits to a DOS batch file, which in turn executes
- the door program. In either case, the BBS package produces a
- door information file, common called a "drop file", which
- provides information to the door program such as the name of the
- current user. OpenDoors automatically supports the common drop
- file formats, including DORINFOx.DEF and DOOR.SYS.
-
-
-
-RUNNING WINDOWS 95/NT DOOR PROGRAMS
-===============================================================================
-OpenDoors 6.00 Manual End of Page 26
-
--------------------------------------------------------------------------------
-
- This section provides information specific to running door
- programs that are compiled with the Win32 version of OpenDoors.
- Please feel free to include this information in your program's
- manual.
-
- Since the Win32 version of OpenDoors resides in a DLL,
- ODOORS60.DLL, this file must be present on any system where your
- program will be run. Although Windows 95/NT will find this file
- if it is located in the same directory as your program's
- executable file, it is a good idea to install this DLL into the
- Windows system directory. This way, all programs using the Win32
- version of OpenDoors can share the same copy of the DLL,
- reducing the amount of disk space that is used.
-
- The required setup for a Windows 95/NT door will depend upon
- what BBS system it is being run under. If you the program is
- being run under a native Windows 95/NT BBS system, then ideally
- that BBS system will provide the ability to pass a live serial
- port handle to the door program, on the program's command line.
- Otherwise, you should run the door from a batch file, following
- the instructions provided below for running the program under a
- DOS-based BBS system. If the BBS system is able to pass a live
- Window communications handle on the door's command line, and you
- are using the OpenDoors standard command-line processing
- function (od_parse_cmd_line()), then you can just setup the BBS
- to run the program directly, using the command line:
-
- YourProgramName.exe -handle xxxxxxxxxx
-
- where xxxxxxxxx is the serial port handle, in decimal format.
- You do not need to use the start command, nor the DTRON utility,
- and you do not have to change the COM<n>AutoAssign setting in
- the system.ini file.
-
- If you are running the Win32 door program under a DOS-based BBS
- system, or a Windows-based BBS system that is unable to pass a
- live serial port handle to the door program, then follow these
- steps:
-
- 1.Add a line of the form "COM<n>AutoAssign=<x>" to the [386Enh]
- section of your system.ini file. Here, <n> specifies the
- serial port number that the BBS's modem is connected to, and
- <x> will usually be 0. For example, if your modem is
- connected to COM1, you would add a line such as
- "COM1AutoAssign=0" (sans quotes). You will then have to re-
- start your computer for this change to take effect. If you do
- not do this, the Windows-based door program will not be able
- to access the modem.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 27
-
- 2.Setup the BBS software to run the Windows-based door program
- just as you would any other door program. You will probably
- want to do this from a batch file. The command line that runs
- the Windows program should be of the form:
-
- start /w /m YourProgramName.exe [any command line
- parameters]
-
- This will cause the Windows-based door program to start in
- minimized mode, and cause the calling MS-DOS session to wait
- until the Windows program exits before continuing. If you do
- not wish the program to be started in minimized mode, remove
- the /m from the command line. If you attempt to start the
- door program by calling it directly, rather than using the
- "start /w" command, the BBS software will immediately start
- again, cause it to attempt to run simultaneously with the
- door program.
-
- 3.After running the start command, use DTRON.EXE or a similar
- utility to re-enable DTR detection by the modem. Normally,
- this command line will be of the form:
-
- dtron /port x /bps y
-
- Where x is the serial port number (0 for COM1, 1 for COM2,
- etc.) and y is the locked bps rate. For example, if your
- serial port is locked at 38400 bps and is connected to COM2,
- you would use:
-
- dtron /port 1 /bps 38400
-
- For full information on the DTRON utility, simply type the
- command line:
-
- dtron /help
-
- You may freely redistribute the DTRON utility that is
- included in this package with your program.
-
- Additional information on the Win32 version of OpenDoors, and
- further explanation of some of these steps, is provided in
- chapter 6.
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 28
-
-BASICS OF DOOR PROGRAMMING WITH OPENDOORS
--------------------------------------------------------------------------------
-
- This section provides a complete tutorial to the basics of
- writing BBS door programs using OpenDoors. If you are using
- OpenDoors to write other online software, much of this
- information will still be relevant.
-
- In addition to reading this section, I would encourage you to
- look at the example programs included int the OpenDoors
- packages. These programs, which are described beginning on page
- 38, will give you a much better idea of what an OpenDoors
- program will look like. These programs can also serve as a great
- starting point for writing your own programs using OpenDoors.
-
- Probably the best means of introduction to door programming with
- OpenDoors is by doing it yourself. As such, I strongly encourage
- you to try compiling and running the simple introduction program
- below. For instructions on compiling programs written with
- OpenDoors, see page 22.
-
- DOS version:
-
- #include "opendoor.h"
-
- main()
- {
- od_printf("Welcome to my first door program!\n\r");
- od_printf("Press a key to return to BBS!\n\r");
- od_get_key(TRUE);
- od_exit(0, FALSE);
- }
-
- Win32 version:
-
- #include "opendoor.h"
-
- int WINAPI WinMain(HINSTANCE hInstance,
- HINSTANCE hPrevInstance,LPSTR lpszCmdLine,int nCmdShow)
- {
- od_printf("Welcome to my first door program!\n\r");
- od_printf("Press a key to return to BBS!\n\r");
- od_get_key(TRUE);
- od_exit(0, FALSE);
- }
-
- Keep in mind that even this simple program will automatically
- have all of the door capabilities we have already mentioned.
- Notice the line that reads #include "opendoor.h". All programs
- written with OpenDoors must include the OPENDOOR.H header file
- in order to compile correctly. The first two lines in the
- main/WinMain function simply call the OpenDoors od_printf()
-===============================================================================
-OpenDoors 6.00 Manual End of Page 29
-
- function. od_printf() is similar to the printf() function that C
- programmers will already be familiar with. However, unlike
- printf(), the od_printf() function sends the output to both the
- modem and the local screen. Notice that the lines of text
- displayed by the od_printf() function end with a "\n\r"
- sequence, instead of the normal "\n". This is because the
- terminal emulation software that is running on the remote user's
- system usually requires both a carriage return and a line feed
- to correctly begin a new line. The next line in our example
- program is the OpenDoors single-key input function,
- od_get_key(). The TRUE value causes OpenDoors to wait for a key
- to be pressed (again, either from remote or local keyboard)
- before returning. The last line of the main/WinMain function is
- a call to od_exit(). Any program using OpenDoors should call
- this function. For the time being, you can always use the (0,
- FALSE) parameters.
-
- Once again, you are encouraged to try compiling and running this
- program, as described above. Congratulations, you have written
- your first door program! Feel free to make any changes to this
- program, and see what effects your changes have.
-
- To simplify this example, separate versions of this program are
- shown for the DOS and Win32 versions of OpenDoors. However, you
- would typically write your program so that it could be compiled
- using either the DOS or Win32 versions of OpenDoors, by
- beginning the mainline function as follows:
-
- #ifdef ODPLAT_WIN32
- int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE
- hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
- #else
- int main(int argc, char *argv[])
- #endif
-
- In case you are not entirely familiar with the operation of door
- programs, we will now provide an introduction to the internals
- of a door's operation. Keep in mind that OpenDoors automatically
- carries out most of these tasks for you. When any door program
- starts up, one of the first things it must do is to read the
- door information file(s) (sometimes called a "drop file") passed
- to it by the BBS. When a user is on-line, and wishes to run a
- door, they will most likely select a command from a menu. At
- this point, the BBS system (such as RemoteAccess, Maximus, PC-
- Board or whatever), will create a file of information about the
- system, who is currently on-line, and so on. Various BBS
- packages produce various styles of door information files.
- OpenDoors automatically recognizes and reads a wide variety of
- door information file formats. As a result, your doors will be
- able to run on a almost any BBS system.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 30
-
- Fortunately, OpenDoors takes care of all the work involved in
- detecting and reading the door information file, and then
- initializing and communicating with the serial port for you. In
- order to carry out these tasks, along with setting up the status
- line, and so on, OpenDoors provides a function called od_init().
- If you do not explicitly call this function, the first call to
- any other OpenDoors function (such as the first time your door
- program outputs anything) will automatically cause the od_init()
- function to be called. As a result, upon the first call to an
- OpenDoors function, all of the initialization tasks for the door
- will automatically be carried out. However, there may be times
- when you will want your program to have access information about
- the user who is on-line, or carry out other actions which
- require od_init() to have been executed - prior to the point
- where you call any other OpenDoors functions. In this case, you
- will have to call od_init() yourself before you do any of these
- things.
-
- OpenDoors provides you with a C/C++ structure, by the name of
- od_control, which allows you to access all the available
- information about the user who is on-line, the system your door
- is running on, and also allows you to adjust various OpenDoors
- parameters. Depending on what BBS system your door is running
- under, the actual information available from the od_control
- structure will vary. For more information on the od_control
- structure, see the section on the control structure, beginning
- on page 148.
-
- Once the door has initialized itself, it will then begin
- communications with the user who is online. OpenDoors takes care
- of all communications, through its various input and display
- functions. When the door has finished, it will then write any
- information that has changed back to the door information file
- (if applicable), finish communicating with the modem, and return
- to the BBS. In OpenDoors, these shut-down operations are
- automatically performed you call the od_exit() function. This
- function will terminate the door's activity, OPTIONALLY hang up
- on the user (allowing you to provide either return to BBS or
- logoff options for exiting), and then exit with the specified
- errorlevel.
-
- One other important OpenDoors function that you should be aware
- of is the od_kernel() function. od_kernel() is the central
- OpenDoors control function, and is responsible for much of
- OpenDoor's updating of the status line, monitoring the carrier
- detect and user timeout status, responding to sysop function
- keys, and so on. The od_kernel() function is called
- automatically by OpenDoors, within the other OpenDoors
- functions. As a result, since most door programs will call some
- OpenDoors function on a regular basis, you will most often have
- no need to call the od_kernel() function yourself. However, if
- your door is going to perform some action, such as updating data
-===============================================================================
-OpenDoors 6.00 Manual End of Page 31
-
- files, during which it will not call any OpenDoors function for
- more than a few seconds, you should then call the od_kernel()
- function yourself. For more information on the od_kernel()
- function, see page 97.
-
- For more information on the functions available from OpenDoors,
- or the control structure, see the corresponding sections in this
- manual.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 32
-
-TOUR OF A SAMPLE DOOR PROGRAM: "EX_VOTE"
-------------------------------------------------------------------------------
-
- One of the best ways to see how OpenDoors works, and the
- potential that it has, is to look at the example programs
- included in the OpenDoors package. A brief description of each
- of these programs can be found on page 38. This section takes a
- closer look at one of the example programs, EX_VOTE.C. Unlike
- our simple example in the previous section, EX_VOTE.C is a much
- more complicated program, taking advantage of many of the
- advanced features of OpenDoors. Even if you do not understand
- everything that EX_VOTE.C does, you should be able to make use
- of various elements demonstrated here, in your own programs.
-
- The OpenDoors package includes a two compiled versions of
- EX_VOTE. VOTEDOS.EXE is a plain-DOS program which can run under
- DOS, Windows or OS/2. VOTEWIN.EXE was compiled using the Win32
- version of OpenDoors, and so it runs only on Windows 95/NT. The
- OpenDoors package also contains a sample door information file,
- DORINFO1.DEF. You can use this file to test any doors in local
- mode. If you wish to manually create your own DORINFO1.DEF file,
- you can do so very easily. The DORINFO1.DEF door information
- file is a simple text file which lists a different piece of
- information on each line, in the following format:
-
- +----------------------------------------------------------+
- | LINE NUMBER | DESCRIPTION | EXAMPLE |
- +-------------+------------------------+-------------------|
- | 1 | Name of the BBS | MY OWN BBS |
- | 2 | Sysop's first name | BRIAN |
- | 3 | Sysop's last name | PIRIE |
- | 4 | Com Port modem is on | COM0 |
- | 5 | Baud rate, etc. | 0 BAUD,N,8,1 |
- | 6 | Unused | 0 |
- | 7 | User's first name | JOHN |
- | 8 | User's last name | PUBLIC |
- | 9 | Caller's location | OTTAWA, ON |
- | 10 | ANSI mode (0=off, 1=on)| 1 |
- | 11 | User's security level | 32000 |
- | 12 | User's time left | 60 |
- +----------------------------------------------------------+
-
-
- Feel free to make any changes you wish to EX_VOTE.C, and
- recompile it. One of the most effective and enjoyable ways to
- learn OpenDoors is by experimenting. If you are a registered
- owner of OpenDoors, you may even distribute your own versions of
- this door. Also, you may find that EX_VOTE.C serves as a good
- framework for building your own door programs.
-
- The EX_VOTE.C door behaves similarly to most other door
- programs, and will have a fair bit in common with any other door
-===============================================================================
-OpenDoors 6.00 Manual End of Page 33
-
- you write in OpenDoors. What you see in the output window is
- identical to what a remote user will be seeing. If the user has
- ANSI, AVATAR or RIP mode turned on, you will see the same colors
- as they do, and if they have screen clearing turned on, your
- screen will be cleared when theirs is. The status line at the
- bottom of the window will list the name of the user currently
- on-line (if you are using the sample DORINFO1.DEF file, the
- user's name will be "The Sysop"), the user's location, and the
- user's baud rate (0 if the door is operating in local mode). The
- local display also shows how much time the user has left,
- whether the user has paged the system operator for a chat, and
- other information.
-
- There are a number of special commands that are only available
- to the system operator on the local keyboard. These commands
- allow the system operator to hang up on the user, adjust the
- amount of time the user may remain online, enter chat mode with
- the user, enter a DOS shell (in the DOS version), and so on. In
- the DOS version, help on these commands is available on the
- status line by pressing the [F9] key. In the Windows version,
- these commands are listed on the menu that appears at the top of
- the window.
-
- Now, let us take a closer look at the actual source code for the
- EX_VOTE.C door. If you have not already printed out a copy of
- this manual, and possibly the EX_VOTE.C file as well, it would
- probably be a good idea to do so now.
-
- Notice that near the top of the program, along with all the
- standard header files, the OPENDOOR.H file is included. This
- file must be included in all programs written under OpenDoors.
- If you are placing the OPENDOOR.H file in the same directory as
- the door you are compiling, simply include the line:
-
- #include "opendoor.h"
-
- in your program.
-
- The main()/WinMain() function of the EX_VOTE.C program has a
- for(;;) loop that repeatedly displays the main menu, obtains a
- choice from the user and responds to the command, until the user
- chooses to exit the program. Before the main menu is displayed,
- the screen is cleared by calling od_clr_scr(). The od_clr_scr()
- function will clear both the local and remote screens, but only
- if the user has screen clearing enabled. Refer to page 57 for
- information on how to force the screen to be cleared, regardless
- of the user's screen clearing setting. The main menu is
- displayed using the od_printf() function, one of the most common
- OpenDoors functions you will use. Next, od_get_answer() is used
- to obtain a menu choice from the user from the specified set of
- keys. Next, a switch() statement is used to respond to the
- user's command appropriately. If the user presses the P key to
-===============================================================================
-OpenDoors 6.00 Manual End of Page 34
-
- page the system operator, od_page() is called. If the user
- chooses to return to the BBS, od_exit() is called to terminate
- OpenDoor's activities and return control to the BBS. The FALSE
- parameter passed to od_exit() indicates that OpenDoors should
- not disconnect (hangup) before exiting. If the user chooses to
- log off, EX_VOTE.C first confirms this action with the user, and
- then calls od_exit() with the TRUE parameter. The numerical
- parameter passed to od_exit() sets the errorlevel that OpenDoors
- will exit with.
-
- In its ChooseQuestion() function, EX_VOTE.C uses the OpenDoors
- function od_get_key(). This function is similar to the
- od_get_answer() function that we have already seen. However,
- unlike od_get_answer() which will wait until the user presses
- some key from the list of possibilities you provide,
- od_get_key() will allow the user to press any key. od_get_key()
- accepts a single parameter. If this parameter is TRUE,
- od_get_key() will wait for the user to press a key before
- returning. If this parameter is FALSE, od_get_key() will return
- immediately with a value of 0 if there are no keys waiting in
- the inbound buffer, and returning the next key if there are
- characters waiting.
-
- In a number of places, EX_VOTE.C also uses the od_input_str()
- function. Unlike od_get_key() and od_get_answer() which return a
- single character, od_input_str() allows the user to input and
- edit a string of many characters. You will only receive the
- string entered by the user after they press the enter key.
- od_input_str() accepts four parameters: the string where the
- user's input should be stored, the maximum number of characters
- to input, the minimum character value to accept and the maximum
- character value to accept.
-
- Another new feature of OpenDoors that is used by EX_VOTE.C is
- the OpenDoors control structure, od_control. This global
- structure is documented in chapter 5 of this manual. The
- OpenDoors control structure allows you to access a wide variety
- of information about the user who is currently online, the BBS
- system your program is running on, and also allows you to
- control various OpenDoors settings. For example, EX_VOTE.C
- compares the current user name (od_control.od_user_name) with
- the name of the system operator (od_control.od_sysop_name) to
- determine whether it is the system operator who using the
- program.
-
- EX_VOTE.C uses two data files, the first of which contains a
- record for every user, and the second of which contains a record
- for every question. EX_VOTE.C accesses these data files in a
- controlled manner in order to permit the program to be running
- simultaneously on multiple lines on a multi-node BBS system.
- When EX_VOTE.C needs to update a data file, it opens it for
- exclusive access, so that only one node can access the file at
-===============================================================================
-OpenDoors 6.00 Manual End of Page 35
-
- any given time. Since the data file could have been changed by
- another node since the time that EX_VOTE.C last read the file,
- it always reads a record, makes changes to it and then re-writes
- the record while it has the file open for exclusive access. It
- then closes the file as soon as possible after opening the file,
- in order to permit other nodes to once again access the file.
- Because EX_VOTE.C keeps track of which questions each user has
- voted on, along with the questions and results of voting on each
- question, its data file format is more complex than many door
- programs (although not as complex as others).
-
- EX_VOTE.C also uses color. One of the easiest ways to use
- different colors in an OpenDoors program is to use the
- OpenDoor's print color-setting extensions. You can change the
- color of text display at any point in an od_printf() format
- string using by enclosing the name of new display color in back
- quote characters (`, not '). For example:
-
- od_printf("`red`This is in red `green`This is green\n\r");
-
- Would cause the words "This is in red" to be displayed in red,
- and the words "This is in green" to be displayed in green.
-
- EX_VOTE.C also takes advantage of a number of OpenDoors
- capabilities that you can optionally choose to include in your
- door programs. You will notice that there are a number of new
- lines at the beginning of the main() function, all of which
- change settings in the OpenDoors control structure. The line:
-
- od_control.od_config_file = INCLUDE_CONFIG_FILE;
-
- causes the OpenDoors configuration file system to be included in
- your program. Using this system, OpenDoors automatically reads a
- configuration file that can be used by the system operator to
- change various program settings. Refer to the included door.cfg
- file for an example OpenDoors configuration file. In addition to
- the configuration file settings automatically supported by the
- configuration file system, you can also add your own
- configuration file settings. To do this, you simply supply
- OpenDoors with a callback function that it will call whenever it
- encounters an unrecognized keyword in the configuration file.
- The line:
-
- od_control.od_config_function = CustomConfigFunction;
-
- Causes OpenDoors to call the function CustomConfigFunction() in
- EX_VOTE.C for this purpose. You will notice that the
- CustomConfigFunction() receives two parameters - the first is
- the unrecognized keyword, and the second is any parameters that
- follow the keyword in the configuration file. EX_VOTE.C checks
- for two special configuration file lines - one to set whether or
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 36
-
- not users can add questions, and one to set whether or not users
- can view the results of a question before voting on it.
-
- The next line in the main() function,
-
- od_control.od_mps = INCLUDE_MPS;
-
- causes the OpenDoors "Multiple Personality System" to be
- included in program. This allows the sysop to choose from a
- number of status line / sysop function key "personalities" that
- mimic a number of different BBS systems, using the Personality
- setting in the configuration file.
-
-
- The line:
-
- od_control.od_logfile = INCLUDE_LOGFILE;
-
- causes the OpenDoors log file system to be included in the
- program. The OpenDoors log file system automatically records the
- date and time of program startup, exit and other major actions
- in the specified file. EX_VOTE.C also writes its own log file
- entries by calling the od_log_write() function.
-
- EX_VOTE.C also provides the ability for the sysop to provide
- their own ASCII/ANSI/AVATAR/RIP files to be displayed in place
- of the normal main menu. EX_VOTE.C uses the od_hotkey_menu()
- function to display a VOTE.ASC/.ANS/.AVT/.RIP file for the main
- menu, if such a file exists. If the file is not available, the
- normal EX_VOTE.C menu is used instead. The od_hotkey_menu()
- function will automatically select the appropriate file
- (.ASC/.ANS/.AVT/.RIP) for the current display mode, and the user
- is able to make a menu choice at any time. If a menu choice is
- made before the menu is entirely displayed, the function will
- stop displaying the menu and return immediately.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 37
-
-OTHER EXAMPLE PROGRAMS INCLUDED WITH OPENDOORS
-------------------------------------------------------------------------------
-
- In addition to the EX_VOTE.C program, which is discussed in
- detail in the previous section, a number of other example
- programs are included with OpenDoors. These programs help to
- demonstrate what is possible with OpenDoors. They can also serve
- as excellent tools to help you learn OpenDoors. In addition, you
- are free to include any portions of any of these example
- programs in your own programs. Below is a summary of each of
- these example programs:
-
-
--------------------------------------------------------------------------------
-EX_HELLO.C This an example of a very simple door program that displays a
- short message and prompts for the user to press a key. After the
- user presses a key, the door exits and control is returned to
- the main BBS software. Despite the fact that it only consists of
- a few lines of code, EX_HELLO remains a fully functional door
- program. For information on compiling an OpenDoors door program,
- see the section that begins on page 22.
-
-
--------------------------------------------------------------------------------
-EX_CHAT.C This program is an example of a multi-window full-screen chat
- door written with OpenDoors. EX_CHAT demonstrates the ease of
- using sophisticated ANSI / AVATAR / RIP terminal features within
- OpenDoors programs. For instructions on how to compile this
- program, see the section that begins on page 22.
-
- This program create two windows on the screen, separated by a
- bar with user name / sysop name information. This program
- permits communication between the local sysop and remote user by
- displaying the text typed by the user in one window, and the
- text typed by the sysop in the other window. When either
- person's typing reaches the bottom of the window, the contents
- of the window is scrolled up to provide more room for typing.
- Words are also wrapped when either typist reaches the end of a
- line. The advantage of a split-screen chat program is that it
- permits both sysop and user to type at the same time without
- difficulty. The chat function automatically invokes OpenDoor's
- internal chat mode if ANSI, AVATAR or RIP modes are not
- available. The display colors, window sizes and locations, and
- distance to scroll a window's contents are configurable by
- setting the appropriate variables, below. When the Sysop invokes
- a DOS shell, a pop-up window is displayed to indicate to the
- user that the door program has been suspended.
-
- The chat feature of this program can also be easily integrated
- into other doors you write, and may be used to replace the
- existing OpenDoors line-oriented chat system.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 38
-
-
--------------------------------------------------------------------------------
-EX_MUSIC.C This example door demonstrates how to play "ANSI" music and
- sound effects in an OpenDoors door. Included in this program is
- a function to send "ANSI" music to the remote system, and a
- function to text the remote system's ability to play "ANSI"
- music. You may use both of these functions in your own doors, if
- you wish to add music or sound effect capabilities. This program
- can be compiled by following the instructions that begin on page
- 22.
-
-
--------------------------------------------------------------------------------
-EX_SKI.C This is a simple but addictive online game that is written using
- OpenDoors. In this action game, the player must control a skier
- through a downhill slalom course. The user may turn the skier
- left or right, and the game ends as soon as the player skis
- outside the marked course. The game begins at an easy level, but
- quickly becomes more and more difficult as the course to be
- navigated becomes more and more narrow. The game maintains a
- list of players with high scores, and this list may be viewed
- from the main menu.
-
-
--------------------------------------------------------------------------------
-EX_VOTE.C The EX_VOTE.C file contain the source code for the Vote example
- door, as is described beginning on page 38. The Vote example
- door allows users to vote on up to 200 different "polls", view
- the results of voting on each question, and optionally add their
- own questions for other users to answer.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 39
-
- 444
- 4444
- 44 44
- 44444444
- 44
- 44
- 44
--------------------------------------------------------------------------------
-CHAPTER 4 - THE OPENDOORS API FUNCTIONS
-
-
-
-
-OVERVIEW
-------------------------------------------------------------------------------
-
- OpenDoors provides a wide set of features that you can take
- advantage of in your program. You control these features and
- access OpenDoors from your program using two facilities - the
- OpenDoors API functions, and the OpenDoors control structure. In
- general, the API functions are used to actually accomplish a
- task, such as displaying something to the user, or retrieving
- input from the user. The OpenDoors control structure, on the
- other hand, is used to alter OpenDoors settings or retrieve
- specific information.
-
- Any program written with OpenDoors makes use of the OpenDoors
- API functions for all of its door-related input and output. In
- addition to the common input and output tasks, the OpenDoors API
- functions provide access to many special capabilities, such as
- displaying ASCII/ANSI/AVATAR/RIP files, providing pop-up windows
- and menus, and much more. Much of the information about the user
- who is online, information about the system your door is running
- on, and settings which customize OpenDoor's behavior are
- controlled through the OpenDoors control structure. The control
- structure is described in the section beginning on page 148.
-
- This chapter is divided into the following sections:
-
- i.) TABLE OF MOST COMMONLY USED FUNCTIONS (Page 41)
- ii.) TABLE OF ALL OPENDOORS FUNCTIONS (Page 42)
- iii.) DETAILED INFORMATION ON EACH FUNCTION (Pages 47 - 147)
-
- The two tables list the names of the OpenDoors functions, along
- with a brief description of the task performed by each function,
- and the page number on which the detailed description of that
- function can be found. The first table lists only the most
- commonly used OpenDoors functions, to allow you to quickly find
- the function you are most likely looking for. The second table
- lists all of the OpenDoors functions, grouped according to
- general categories of functionality.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 40
-
- The section containing detailed information lists all of the
- functions in alphabetical order, with the information about each
- function beginning on a new page. This section includes a brief
- description of each function's purpose, a detailed description
- of how to use the function, the function call format, a list of
- related functions, and in many cases example source code showing
- you a typical use of the function.
-
-
-
-
-TABLE OF MOST COMMONLY USED FUNCTIONS
-------------------------------------------------------------------------------
-
- od_printf() Displays text, with the ability to change
- display color. (page 110)
-
- od_clr_scr() Clears the screen. (Page 57)
-
- od_input_str() Inputs a string of one or more characters
- from the user. (Page 95)
-
- od_get_answer() Inputs a single key from a list of possible
- choices ignoring upper/lower case. (Page 81)
-
- od_get_key() Inputs any single key from the user.
- (Page 82)
-
- od_set_cursor() Positions the cursor in ANSI/AVATAR/RIP
- modes. (Page 134)
-
- od_hotkey_menu() Displays an ASCII/ANSI/AVATAR/RIP file, with
- the option of watching for a keypress from
- the user. (Page 90)
-
- od_popup_menu() Displays a popup menu in ANSI/AVATAR/RIP
- modes. (Page 105)
-
- od_window_create() Creates a popup window in ANSI/AVATAR/RIP
- modes. (Page 145)
-
- od_window_remove() Removes a popup window in, restoring screen
- contents "underneath" window. (Page 147)
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 41
-
-TABLE OF ALL FUNCTIONS
--------------------------------------------------------------------------------
-OUTPUT TEXT DISPLAY FUNCTIONS
-FUNCTIONS ----------------------
- od_disp_str() Displays a normal, NULL-terminated
- string. (page 63)
-
- od_disp() Sends the specified number of
- characters to the modem, with or
- without local echo. (page 60)
-
- od_printf() Performs formatted output, as the
- printf() function does. Also allows
- imbedded codes to change display color.
- (page 110)
-
- od_putch() Displays a single character. (page 115)
-
- od_disp_emu() Displays a string, interpreting
- imbedded ANSI/AVATAR terminal emulation
- codes. (page 62)
-
- od_repeat() Displays the same character any number
- of times, using AVATAR optimization, if
- possible. (page 118)
-
- COLOR AND CURSOR CONTROL
- ------------------------
- od_set_color() Sets current color to specified
- foreground and background settings.
- (page 131)
-
- od_set_attrib() Sets current color to specified IBM-PC
- display attribute. (page 128)
-
- od_set_cursor() Sets the position of the cursor, if
- ANSI/AVATAR/RIP mode is enabled. (page
- 134)
-
- SCREEN MANIPULATION
- -------------------
- od_clr_scr() Clears the screen, if user has screen
- clearing enabled. (page 57)
-
- od_save_screen() Stores the current contents of the
- screen, to be later redisplayed using
- od_restore_screen(). Works in all
- display modes. (page 121)
-
- od_restore_screen() Restores the contents of the screen, as
- previously stored using
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 42
-
- od_save_screen(). Works in all display
- modes. (page 120)
-
- BLOCK MANIPULATION
- ------------------
- od_clr_line() Clears the remainder of current line.
- (page 55)
-
- od_gettext() Stores any area of the screen, to later
- be displayed by od_puttext(). Requires
- ANSI/AVATAR/RIP graphics mode. (page
- 89)
-
- od_puttext() Displays text with color information,
- as previously stored using
- od_gettext(). Requires ANSI/AVATAR/RIP
- graphics mode. (page 116)
-
- od_scroll() Scrolls a portion of the screen in
- ANSI/AVATAR/RIP graphics modes. (page
- 123)
-
- POPUP WINDOWS AND MENUS
- -----------------------
- od_draw_box() Draws a box on the screen in
- ANSI/AVATAR/RIP graphics mode. (page
- 65)
-
- od_window_create() Displays a popup window, storing the
- screen contents "under" the window.
- Requires ANSI/AVATAR/RIP graphics mode.
- (page 145)
-
- od_window_remove() Removes a popup window displayed with
- od_window_create(), restoring the
- original screen contents "under" the
- window. Requires ANSI/AVATAR/RIP
- graphics mode. (page 147)
-
- od_popup_menu() Displays a menu in a popup window,
- allowing the user to choose menu items
- either by pressing a "hot" key, or
- moving a highlighted selection bar.
- After menu selection, the menu may be
- removed, restoring the original screen
- contents "under" the window. Requires
- ANSI/AVATAR/RIP graphics mode. (page
- 105)
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 43
-
- FILE DISPLAY FUNCTIONS
- ----------------------
- od_send_file() Displays an ASCII/ANSI/AVATAR/RIP file
- (for instance, an .ANS file created by
- a program such as "TheDraw" (page 124)
-
- od_hotkey_menu() Displays an ASCII/ANSI/AVATAR/RIP menu
- file, with hotkeys active. (page 90)
-
- od_list_files() Lists the files available for download
- in an area, using a FILES.BBS file.
- (page 98)
-
-
--------------------------------------------------------------------------------
-INPUT od_get_answer() Inputs a single key from the keyboard,
-FUNCTIONS allowing only particular responses.
- (page 81)
-
- od_get_input() A more flexible version of
- od_get_key(), that also supports
- extended keys such as arrow keys,
- insert, etc. (page 82)
-
- od_get_key() Inputs a single key from the keyboard,
- optionally waiting if a key is not
- available. (page 82)
-
- od_input_str() Inputs a string of specified length,
- from the keyboard. (page 95)
-
- od_edit_str() Formatted string editing function,
- requiring ANSI/AVATAR/RIP graphics.
- (page 68)
-
- od_multiline_edit() Provides a text editor that allows the
- user to enter or edit text that spans
- multiple lines, such as email messages
- or text files. (page 101)
-
- od_clear_keybuffer() Removes any waiting keys from the
- keyboard input queue. (page 53)
-
-
--------------------------------------------------------------------------------
-COMMON od_page() Allows the user to page the sysop.
-DOOR (page 101)
-ACTIVITY
-FUNCTIONS od_spawn() OpenDoors "quick" spawn function.
- Executes an external program (eg. file
- compressor, external protocol, etc.) on
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 44
-
- a separate screen, restoring the
- OpenDoors screen afterwards. (page 139)
-
- od_spawnvpe() OpenDoors full-featured spawn function.
- Executes an external program on a
- separate screen, searching the path for
- the program, allowing you to specify an
- environment to pass to the child
- process, and returning the errorlevel
- returned by the child process. (page
- 143)
-
- od_log_write() Adds an entry to the end of the log
- file. (page 100)
-
- od_parse_cmd_line() Handle standard command line options.
- (page 105)
-
-
--------------------------------------------------------------------------------
-SPECIAL od_init() Begins door operation by setting up
-CONTROL the OpenDoors control structure,
-FUNCTIONS setting up the local screen,
- initializing the serial port (if
- applicable), and reading the door
- information file. (page 92)
-
- od_color_config() Transfers a color configuration line to
- a color attribute value. (page 59)
-
- od_add_personality() Adds a custom status line/control key
- personality to OpenDoors. (page 47)
-
- od_set_statusline() Temporarily alters the setting of the
- current OpenDoors status line. (page
- 137)
-
- od_autodetect() Automatically determines the remote
- terminal software's graphical
- capabilities. (page 48)
-
- od_kernel() The central OpenDoors control function,
- which should be executed every few
- seconds. (page 97)
-
- od_exit() Ends door operations, closing the
- serial port driver, re-writing the door
- information file, and optionally
- returning control to the BBS. (page 79)
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 45
-
- od_carrier() Allows detection of carrier signal in
- programs that have disabled OpenDoors
- internal checking. (page 51)
-
- od_set_dtr() Controls the DTR signal to the modem.
- Can be used to manually disconnect a
- remote user, in order to perform
- activities such as call back
- verification. (page 135)
-
- od_chat() Forces OpenDoors to enter chat mode,
- even if sysop did not press the "chat"
- key. (page 50)
-
- od_sleep() Suspends program execution, yielding
- control to other tasks in a
- multitasking environment. (page 139)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 46
-
-OD_ADD_PERSONALITY()
--------------------------------------------------------------------------------
-
-PURPOSE Installs a custom status line / sysop function key personality
- into OpenDoors.
-
-
-FORMAT BOOL od_add_personality(char *pszName, BYTE btOutputTop,
- BYTE btOutputBottom, OD_PERSONALITY_PROC *pfPerFunc);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION If used, this function should be called before any other
- OpenDoors API functions. This function installs a new
- personality into OpenDoors. The first parameter specifies the
- string that will be used to identify the personality. This is
- the string that the user will be able to supply in the
- configuration file to select this personality, and is also the
- string that can be passed to od_set_personality() to manually
- switch to this personality. The second and third parameters
- specify the 1-based to and bottom line numbers of the output
- window to be used with this personality. For instance, a top
- value of 1 and bottom value of 23 would cause all door output to
- be displayed on the first 23 lines of the screen, leaving the
- bottom two lines for use by the personality's status line. The
- last parameter is a pointer to the personality function, which
- OpenDoors will call to perform various operations with that
- involve the personality. For more information on personalities
- and the OpenDoors Multiple Personality System, see the section
- which begins on page 233.
-
- This function only has an effect under the DOS version of
- OpenDoors.
-
-SEE ALSO od_set_personality(), od_set_statusline()
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 47
-
-OD_AUTODETECT()
--------------------------------------------------------------------------------
-
-PURPOSE Attempts to automatically determine the terminal capabilities of
- the remote system.
-
-
-FORMAT void od_autodetect(int nFlags);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function can be used to determine whether or not the remote
- terminal supports ANSI and/or RIP (Remote Imaging Protocol)
- graphics modes. This information is usually supplied to the door
- by the BBS software, through the door information file. For this
- reason, most door programs do not need to make used of this
- function. However, if your door will be running under any BBS
- software that does not report the ANSI or RIP capabilities of
- the remote system, you may wish to use this function.
- od_autodetect() will set either of the following OpenDoors
- control structure variables to TRUE if the corresponding
- graphics mode is detected:
-
- od_control.user_ansi - TRUE if ANSI mode is available
- od_control.user_rip - TRUE if RIP mode is available
-
- However, if either of these variables have previously been set
- to TRUE (either explicitly by your program, or due to the
- corresponding modes being enabled in the door information file),
- and od_autodetect() does not detect the corresponding graphics
- mode, they will not be set to FALSE. Not all terminal software
- that supports ANSI or RIP graphics mode will necessarily have
- the ability to report their graphics mode capabilities to the
- door. For this reason, failure to detect either of these modes
- does not necessarily indicate that they are not available.
- However, if these modes are detected by od_autodetect(), it is
- safe to assume that the remote system does support the detected
- mode.
-
- The nFlags parameter is reserved for future use, and should
- always be set to DETECT_NORMAL.
-
- This function cannot auto-detect AVATAR mode, because there is
- no standard means of determining whether a remote system
- supports AVATAR mode.
-
-
-EXAMPLE Below is an example of using od_autodetect() in determining the
- remote terminal's graphics capabilities. Since not all terminal
- software supports auto-detection, this example will also prompt
-===============================================================================
-OpenDoors 6.00 Manual End of Page 48
-
- the user to determine their software's capabilities if
- od_autodetect() fails to detect ANSI mode. This code assumes
- that if the terminal software supports the autodetection of ANSI
- mode, that it will also support the autodetection of RIP mode.
- OpenDoors assumes that ANSI mode is always available in
- conjunction with RIP mode.
-
- /* Call the automatic terminal detection function */
- od_autodetect();
-
- /* If ANSI mode was not detected, ask the user about
- if(!od_control.user_ansi)
- {
- /* Prompt the user for ANSI capabilities */
- od_clr_scr();
- od_printf("Does your system support ANSI graphics?");
- od_printf(" (Y/N)");
-
- /* If the user chooses [Y]es */
- if(od_get_answer("YN") == 'Y')
- {
- /* Turn on ANSI mode */
- od_control.user_ansi = TRUE;
-
- /* Since ANSI mode is present, RIP mode may also */
- /* be available. Prompt the user for RIP. */
- od_printf("\r\n\n");
- od_printf("Does your system support RIP graphics?");
- od_printf(" (Y/N)");
-
- /* If the user chooses [Y]es */
- if(od_get_answer("YN") == 'Y')
- /* Turn on RIP mode */
- od_control.user_rip = TRUE;
-
- /* Since ANSI mode is present, AVATAR mode may */
- /* also be available. Prompt the user for AVATAR. */
- od_printf("\r\n\n");
- od_printf("Does your system support AVATAR ");
- od_printf("graphics? (Y/N)");
-
- /* If the user chooses [Y]es */
- if(od_get_answer("YN") == 'Y')
- /* Turn on AVATAR mode */
- od_control.user_avatar = TRUE;
- }
-
- od_printf("\r\n\n");
- }
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 49
-
-OD_CHAT()
--------------------------------------------------------------------------------
-
-PURPOSE Manually invokes sysop chat mode.
-
-
-FORMAT void od_chat(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION Normally, the OpenDoors sysop chat mode will only be invoked
- when the sysop explicitly requests it using the sysop chat key.
- However, there may be some cases where you wish to manually
- invoke the sysop chat mode. One example is when you are
- replacing the OpenDoors built-in chat mode with your own, but
- still wish to use the OpenDoors chat mode under some
- circumstances. For instance, you may wish to use your own split-
- screen chat routine if ANSI, AVATAR or RIP graphics mode is
- available, and use the OpenDoors line-oriented chat mode if only
- ASCII mode is available.
-
-
-SEE ALSO od_page()
-
-
-EXAMPLE For an example of using the od_chat() function, see the
- ex_chat.c example door, which is described on page 38.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 50
-
-OD_CARRIER()
--------------------------------------------------------------------------------
-
-PURPOSE To determine the status of the carrier detect signal, in
- programs where OpenDoors' internal carrier detection has been
- disabled.
-
-
-FORMAT BOOL od_carrier(void);
-
-
-RETURNS TRUE if a carrier is present, or
- FALSE if no carrier is present, or in local mode.
-
-
-DESCRIPTION Usually, you will not have any use for the od_carrier()
- function, as OpenDoors automatically monitor's the carrier
- detect signal, and will correctly recover if the carrier detect
- signal is lost while the door is operating in remote mode.
- However, in some programs, you may wish to disable OpenDoors'
- internal carrier detection routines, using the
- od_control.od_disable variable. Two such cases in which you
- might want to do this, are a call-back verification door, which
- disconnects the user and attempts to call them back, or in a
- terminal program, which is in fact not a door at all (and as
- such you would not want to have OpenDoors exit when the carrier
- detect signal is lost). In cases like these, you will then be
- able to use the od_carrier() function in order to determine the
- state of the carrier detect signal.
-
- This function will return a Boolean value (for more information
- on Boolean values, see the Glossary which begins on page 256),
- of either TRUE or FALSE. If a carrier detect signal is present
- when the function is called, it will return TRUE, and if no
- carrier detect signal is detected, it will return FALSE. Since
- there is no remote connection, and thus no carrier when
- OpenDoors is operating in local mode, this function will always
- return a value of FALSE in local mode.
-
-
-SEE ALSO od_set_dtr()
-
-
-EXAMPLE As an example of the use of this function, let us consider a
- call back verification door, which hangs up on the user, and
- then calls the user back at their entered phone number, in order
- to verify the correctness of that number. This program would
- probably contain a function that is responsible for
- disconnecting the user, waiting for the connection to be broken,
- and then phoning the user. At some point in this function,
- likely just prior to the point where the function hangs up on
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 51
-
- the user, you would disable OpenDoors' internal carrier
- detection, using the line:
-
- od_control.od_disable |= DIS_CARRIERDETECT;
-
- You would then want to have a piece of code which would simply
- wait up to a given amount of time for the carrier signal to
- drop. If this occurs, you would continue to place the call, and
- if it does not occur, you would probably try your hangup
- procedure one or two more times. In this example, the function
- will return with a value of FALSE if the carrier signal does not
- drop, and will return a value of TRUE if it does.
-
- char hangup(void)
- {
- clock_t timer;
- char to_return = FALSE;
-
- od_set_dtr(FALSE); /* Hangup modem */
-
- /* Wait up to 30secs */
- timer = clock() + CLOCKS_PER_SEC * 30;
- while(timer >= clock())
- { /* If carrier has been lost, return with success */
- if(!od_carrier())
- {
- to_return = TRUE;
- break;
- }
- }
-
- od_set_dtr(TRUE); /* Re-enable DTR signal */
- return(to_return);
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 52
-
-OD_CLEAR_KEYBUFFER()
--------------------------------------------------------------------------------
-
-PURPOSE Function to clear the input keyboard buffer
-
-
-FORMAT void od_clear_keybuffer(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION OpenDoors maintains its own keyboard input buffer, in order to
- permit the user to "type ahead" - to send input to the door
- prior to the time when it is ready to process those key presses.
- For example, the user could begin to type a command while a menu
- is still being displayed, and when your door reaches the point
- of inputting the menu command, the characters already typed by
- the user will already be waiting for the OpenDoors input
- functions. Note that the keyboard input buffer will include both
- the keys hit by the user on-line, and the non-function keys (ie,
- Alt-C will not appear in the OpenDoors keyboard buffer), hit by
- the sysop. This allows both the user on-line and the sysop to
- control the door at any time. If the sysop wishes to temporarily
- prevent the user from having any control over the door, the
- sysop may use the Alt-K (user-keyboard off) key. The key strokes
- placed in the OpenDoors type-ahead buffer will be retrieved by
- the od_get_key() and od_input_str() functions. The keyboard
- buffer can contain a maximum of 64 user keystrokes in this
- version of OpenDoors, after which any additional keystrokes will
- simply be discarded by OpenDoors.
-
- There are times, however, when you will want to erase any keys
- that have been hit by the user, to prevent them from typing
- ahead. For example, if your door has been busy doing some
- processing for a few moments, they user may have been pressing
- keys on their keyboard - perhaps in the hope that doing so will
- speed things up. These keys will be waiting in the type-ahead
- buffer, and if one of the keys the user entered was a valid
- response to the next prompt in your door, the user may find that
- they have accidentally made a choice they did not wish to. A
- well designed door will simply erase the contents of the type-
- ahead buffer after any long period of internal processing, etc.
- Keep in mind that too much use of the od_clear_keybuffer()
- function can be just as undesirable as not using it all, as
- there are times when the presence of the keyboard buffer can
- prove to be very useful for the user of a door.
-
- To erase the contents of the type-ahead buffer, you simply call
- the od_clear_keybuffer() function. This function takes no
- parameters, and does not return any value.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 53
-
-
-
-SEE ALSO od_get_key(), od_input_str(), od_edit_str()
-
-
-EXAMPLE For one example of the use of the od_clear_keybuffer() function,
- see the example program EX_VOTE.C, which is described beginning
- on page 38. Below is another example of using this function. In
- this case, we present a simple function, wait_for_return(),
- which simply pauses for the user to press their [Enter]/[Return]
- key. The function begins by displaying a prompt asking for the
- [Enter] or [Return] key to be pressed. The function then clears
- the keyboard input buffer, and waits until the user presses the
- carriage return key, using the od_get_key() function. Note also
- that this function will only continue if the user has pressed
- the correct key. This is a good idea in all door programs, as it
- allows your door to distinguish between a character pressed by
- the user, and a "line noise" character.
-
- void wait_for_return(void)
- { /* Display prompt */
- od_disp_str("Please Press [Enter] to continue...\n\r");
- od_clear_keybuffer(); /* Clear keyboard buffer */
- while(od_get_key(TRUE) != 13); /* Wait for Enter key */
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 54
-
-OD_CLR_LINE()
--------------------------------------------------------------------------------
-
-PURPOSE Clears the rest of the current display line
-
-
-FORMAT void od_clr_line(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function clears the line that the cursor is on, from the
- cursor position to the end of the line. After the rest of the
- line is cleared, the cursor is automatically returned to the
- position it was at prior to issuing the command. Hence, if the
- display line the cursor was located on looked as follows, with
- the underscore (_) character representing the cursor position:
-
- This is a_line of text!
-
- With the cursor between the words "a" and "line", after the
- od_clr_line command is issued, the line would appear as follows:
-
- This is a_
-
- With the cursor directly following the word "a". Note that this
- function places a space character at the cursor location, and
- every location up to the end of the line.
-
- When the door is running in plain ASCII mode, this command will
- simply clear the rest of the line by manually sending a series
- of space and backspace characters. When ANSI, AVATAR or RIP
- modes are active, the corresponding ANSI/AVATAR control sequence
- will be sent in order to accomplish the line clear. Since the
- graphics mode sequences are much shorter than the sequence that
- would be required to clear the line manually, the use of this
- function will cause your door's graphics to display much more
- quickly when ANSI, AVATAR or RIP modes are active. Also note
- that in ANSI, AVATAR or RIP graphics modes, the line will be
- cleared with the currently selected color attribute. Thus, if
- you wanted to place a blue background on a particular line, you
- would use the od_set_color() (or od_set_attrib()) function, then
- use the od_set_cursor() function to locate the cursor at the
- beginning of the desired line, followed by the od_clr_line()
- function. Just such a procedure is demonstrated in the example,
- below.
-
-
-SEE ALSO od_clr_scr(), od_set_cursor()
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 55
-
-EXAMPLE Below, is an example of a function that clears an entire line
- with a specified color. Since this function performs operations
- that require ANSI, AVATAR or RIP graphics mode, it should only
- be used in a case where these modes are known to be available.
- For example, this function would be useful in a full-screen
- editor or viewer, or when performing ANSI animations. The
- function accepts three parameters: the line to be cleared (where
- 1 is the first line, 2 the second, and so on), the foreground
- color of this line, and the background color of this line.
-
- This function differs from the od_clr_line() function itself in
- several important manners. First of all, this function clears
- the entire line, whereas the od_clr_line() function can be used
- to clear only the remaining characters of the line, after any
- particular location. Also, as mentioned before, this function
- selects a color to clear the line to, and moves the cursor to
- the line which is to be cleared - neither of which is done by
- the od_clr_line() function.
-
-
- void clear_line(char line_number,char foreground,char
- background)
- {
- od_set_cursor(line_number,1); /* move to correct line */
- od_set_color(foreground,background); /* set color */
- od_clr_line(); /* clear entire line */
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 56
-
-OD_CLR_SCR()
-------------------------------------------------------------------------------
-
-PURPOSE The OpenDoors clear screen function
-
-
-FORMAT void od_clr_scr(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION The od_clr_scr() function can be used to clear the output
- screen. (ie, the user's screen and local screen with the
- exception of the status line are cleared.) This function will
- only clear the screen if screen clearing is enabled. If your
- program will be running under BBS systems that do not pass the
- user's screen clearing setting to the door, you may wish to
- determine yourself whether or not the user's system supports
- screen clearing codes, during the first time the user uses the
- door. You will then be able to store this setting in a data
- file. The example below demonstrates how to detect whether or
- not the user's system supports screen clearing.
-
- You should note that the ability for the user's terminal to
- support screen clearing codes is independent of the user's ANSI
- / AVATAR / RIP graphics mode settings.
-
- For more information on the user's screen clearing setting,
- please refer to the user_attrib variable in the OpenDoors
- Control Structure chapter of this manual. If you wish to force a
- screen clear, regardless of the user's screen clearing setting,
- simply use the function call:
-
- od_disp_emu("\xc", TRUE);
-
-
-SEE ALSO od_clr_line()
-
-
-EXAMPLE Below is an example of a function which determines whether or
- not the user's system supports screen clearing. This function
- will return a value of TRUE if screen clearing is supported, and
- will return a value of FALSE if screen clearing is not
- supported:
-
- int user_supports_screen_clearing(void)
- {
- char answer;
- /* display instructions to user */
- od_disp_str("In order for this door to function\n\r");
- od_disp_str("correctly, we must know whether or not\n\r");
-===============================================================================
-OpenDoors 6.00 Manual End of Page 57
-
- od_disp_str("your system supports screen clearing.\n\r");
- od_disp_str("In a moment, we will attempt to clear\n\r");
- od_disp_str(
- "your screen in order to test your system's\n\r");
- od_disp_str("capabilities.\n\r\n\r");
-
- od_disp_str("Please press [Enter]/[Return] when you\n\r");
- od_disp_str("are ready to perform this test.\n\r");
- while(od_get_key(TRUE)!=13); /* wait for [Return] key */
-
- od_clr_scr(); /* attempt to clear screen */
- /* ask user if their screen cleared */
- od_disp_str("Did your screen just clear? (Y/N)\n\r");
- for(;;) /* loop until user chooses [Y]es or [N]o */
- {
- answer=od_get_key(TRUE); /* Get user's answer */
- if(answer=='y' || answer=='Y') return(TRUE);
- if(answer=='n' || answer=='N') return(FALSE);
- }
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 58
-
-OD_COLOR_CONFIG()
--------------------------------------------------------------------------------
-
-PURPOSE Parses a color configuration line from the configuration file,
- generating a color attribute value.
-
-
-FORMAT BYTE od_color_config(char *pszColorDesc);
-
-
-RETURNS Color attribute value
-
-
-DESCRIPTION This function will be of use if you are using the configuration
- file system of OpenDoors, and wish to allow the sysop to specify
- text colors to be used in your door. While OpenDoors
- automatically recognizes color configuration settings for things
- such as sysop chat mode and FILES.BBS listings, you may wish to
- add additional color configuration options. In this case, you
- could call the od_color_config() function from your custom line
- function. For more information on the custom line function, see
- the section on the OpenDoors configuration file system, which
- begins on page 224.
-
- To use this function, simply pass the configuration file line
- you wish to have parsed to the function in it's single
- parameter. The function will then return a color attribute value
- in the same format that is used but the od_set_attrib()
- function. Colors are specified using a string of the format:
-
- {Flashing} {Bright} [foreground] on [background]
-
- Where "Flashing" is an optional keyword indicating that the text
- should be flashing. "Bright" is an optional keyword indicating
- that the foreground color should be bright. Foreground is the
- name of a foreground color, and background is the name of a
- background color. Case (upper or lower) is not significant.
-
- The color keywords are language configurable, using the array
- od_control.od_color_names.
-
-
-EXAMPLE See the example accompanying in the section on the OpenDoors
- configuration file system, which begins on page 224.
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 59
-
-OD_DISP()
-------------------------------------------------------------------------------
-
-PURPOSE Sends a buffer of text with optional local echo
-
-
-FORMAT void od_disp(char *pachBuffer, INT nSize, BOOL bLocalEcho);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function allows you to send a buffer of text of any
- specified length, with the option of enabling or disabling local
- echo. You will probably have little use for this function -
- instead you will most likely display strings using either the
- od_disp_str() or od_printf() functions, depending on whether or
- not you wish to use printf()'s formatting options. For a
- breakdown of the uses of the various OpenDoors display
- functions, see the description of the od_disp_str() function, on
- page 63.
-
- There are two cases when this function will come in useful:
-
- 1.)If you wish to display a buffer of characters of known
- length, which may contain null (ASCII 0) characters.
- Since this character is used by the C language to
- indicate the end of a string, the other two string
- display functions (od_disp_str() and od_printf()) will
- not send this character to the remote system.
-
- 2.)If you wish to send text to the remote system without
- having it displayed on the local screen, or if you wish
- to send strings to the modem when it is in command
- mode, without having these characters displayed on the
- local screen.
-
- The od_disp() function is called with three parameters. The
- first parameter, pachBuffer, is a pointer to a buffer of
- characters you wish to have displayed. The second parameter,
- nSize, is simply the number of characters in the buffer to be
- displayed. If the third parameter, bLocalEcho, is set to TRUE,
- then all characters sent to the modem will also be displayed on
- the local screen. If the third parameter is set to FALSE, then
- the buffer will be sent to the modem without being echoed to the
- sysop's screen.
-
-
-SEE ALSO od_disp_str(), od_printf(), od_putch(), od_repeat(),
- od_disp_emu()
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 60
-
-EXAMPLES The following are a few examples of the use of the od_disp()
- function:
-
- In order to display a single character, contained in the
- variable "character", without echo to the local screen:
-
- od_disp(&character,1,FALSE);
-
-
- In order to send a command to the modem (only if you know that
- the modem is in command mode), with the command contained in the
- null-terminated string "string":
-
- od_disp(string,strlen(string),FALSE);
-
-
- In order to send exactly 5 characters from the buffer "buffer",
- WITH echo to the local screen:
-
- od_disp(buffer,5,TRUE);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 61
-
-OD_DISP_EMU()
--------------------------------------------------------------------------------
-
-PURPOSE Displays a string with ANSI/AVATAR terminal emulation
-
-
-FORMAT void od_disp_emu(char *pszToDisplay, BOOL bRemoteEcho);
-
-
-RETURNS N/A
-
-
-DESCRIPTION The od_disp_emu() function allows you to display your own ANSI /
- AVATAR graphics sequences. This function passes the characters
- you wish to display to the OpenDoors terminal emulator, which is
- fully documented in the description of the od_send_file()
- function, on page 124. This function can be used to send these
- control sequences to the user's terminal, and also have them
- displayed on the local screen as they will appear to the user.
-
- The string passed to od_disp_emu() contains any stream of text
- to display, and may include both normal text and terminal
- emulation control sequences. If the bRemoteEcho parameter is set
- to TRUE, the string passed to od_disp_emu() will be sent to the
- remote terminal in addition to being displayed locally. If this
- parameter is set to FALSE, the string will only be displayed
- locally.
-
- Note that if you wish to display an entire file containing
- ANSI/AVATAR/RIP graphics sequences (perhaps as your program's
- menu or title screen), you can use the od_send_file() function.
-
-
-SEE ALSO od_send_file(), od_disp(), od_disp_str() od_printf().
-
- For a breakdown of the uses of the various OpenDoors display
- functions, see the od_disp_str() function, on page 63.
-
-
-EXAMPLE For an example of the use of the od_disp_emu() function, see the
- SpaceRight() and MoveLeft() functions included in the example
- program ex_ski.c.
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 62
-
-OD_DISP_STR()
--------------------------------------------------------------------------------
-
-PURPOSE Displays a string to the screen (remote and local)
-
-
-FORMAT od_disp_str(char *pszToDisplay);
-
-
-RETURNS N/A
-
-
-DESCRIPTION The two functions most often used for displaying strings within
- a door are the od_disp_str() and od_printf() functions. The
- od_printf() function allows for formatted output, whereas the
- od_disp_str function simply displays the actual contents of the
- string passed to it. If you wish to display a single character,
- use the od_putch() function. If you wish to send a string or
- buffer to the modem without local echo, use the od_disp()
- function. If you wish to send a sequence of the same character
- to the modem, the od_repeat() function will use graphics control
- codes, if available to display the sequence much faster than
- simply sending the same character in repetition. Also, if you
- wish to send ANSI, AVATAR or RIP graphics control codes, and
- have them emulated on the local screen, use the od_disp_emu()
- function.
-
- The od_disp_str() function displays the contents of the null-
- terminated string pointed to by *string. Display is sent to both
- the local screen and modem (presuming the door is not running in
- local mode).
-
- An important thing to keep in mind when using the od_disp_str()
- function, is that you should use "/n/r" instead of simply "/n"
- for a new line. This is due to the fact that terminal programs
- usually require a carriage-return line-feed sequence (/n/r),
- instead of just a line-feed (/n). For example, instead of using:
-
- od_disp_str("Hello world!\n");
-
- You should use:
-
- od_disp_str("Hello world!\n\r");
-
- To change the cursor color or location of output with the
- od_disp_str() function, refer to the od_set_cursor() and the
- od_set_attrib() functions.
-
-
-SEE ALSO od_disp(), od_printf(), od_putch(), od_repeat(), od_disp_emu()
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 63
-
-EXAMPLES Below are a few examples of various uses of the od_disp_str()
- function:
-
- Displaying three string constants on separate lines:
-
- od_disp_str("This is an example\n\r");
- od_disp_str("of the OpenDoors\n\r");
- od_disp_str("od_disp_str() function\n\r");
-
-
- Displaying three string constants on the same line:
-
- od_disp_str("Another ");
- od_disp_str("od_disp_str() ");
- od_disp_str("example\n\r");
-
-
- Displaying a string variable:
-
- char string[80];
-
- strcpy(string,"This is a string!\n\r");
- od_disp_str(string);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 64
-
-OD_DRAW_BOX()
--------------------------------------------------------------------------------
-
-PURPOSE Draws a box on the screen in ANSI, AVATAR or RIP graphics modes.
-
-
-FORMAT BOOL od_draw_box(BYTE btLeft, BYTE btTop, BYTE btRight, BYTE
- btBottom);
-
-
-RETURNS TRUE on success, FALSE on failure
-
-
-DESCRIPTION This function is for use in ANSI, AVATAR or RIP graphics modes.
- This function will draw a box in the current display attribute,
- at the specified location on the screen. The boarder of the box
- is made up of the characters specified in the od_control.
- od_box_chars[] array. If AVATAR graphics mode is available, this
- function uses AVATAR control codes to display the box in less
- than 1/10 the length of time required to display the box in ANSI
- mode.
-
- The first two parameters of this function, btLeft and btTop,
- specify the coordinates of the top, left-hand corner of the box
- to be draw. The third and fourth parameters, btRight and
- btBottom, specify the coordinates of the bottom, left-hand
- corner of the box. Like the values passed to the od_set_cursor()
- function, these coordinates are relative to the upper left-hand
- corner of the screen, with the position (1,1) being this corner.
-
- As mentioned above, this function will display the window in the
- current text color. Thus, before calling this function, you
- should use either the od_set_color() or the od_set_attrib()
- function to specify the color in which you would like to have
- the window displayed.
-
- Normally, the boarder of the window will be displayed using the
- IBM extended ASCII characters which produce a single line
- boarder. However, you may wish to have the boarder displayed
- using different characters. In this case, the characters used to
- display the boarder can be specified by the od_control.
- od_box_chars variable, described in the OpenDoors control
- structure section of this manual.
-
-SEE ALSO od_set_color(), od_set_attrib(), od_clr_scr(), od_edit_str(),
- od_set_cursor()
-
-
-EXAMPLE As an example of the use of the od_draw_box() function in
- conjunction with the od_edit_str() function, we show a portion
- of a program which displays a window, and allows the user to
- input the name of a file they would like to upload, a
-===============================================================================
-OpenDoors 6.00 Manual End of Page 65
-
- description of the file, and whether they want it to be a
- private upload. The user is able to move among fields using the
- tab key, and select a "continue" button when they are finished.
- The function returns TRUE if the user selects continue, and
- FALSE if the user presses [ESCape].
-
- // Main "dialog box" function
- int get_information(char *filename, char *description,
- char *private)
- {
- char current_field=1; // Currently selected field
- int choice; // User's choice
-
- od_set_color(L_WHITE,D_BLUE); // Display window
- od_draw_box(10,5,70,13);
-
- od_set_cursor(5,25); // Display window title
- od_set_color(L_GREEN,D_BLUE);
- od_disp_str(" ENTER FILENAME INFORMATION ");
-
- od_set_color(L_CYAN,D_BLUE); // Display fields and titles
- od_set_cursor(6,15);
- od_disp_str("FILENAME : ");
- od_repeat(176,13);
- od_set_cursor(7,12);
- od_disp_str("DESCRIPTION : ");
- od_repeat(176,43);
- od_set_cursor(8,16);
- od_disp_str("PRIVATE : ");
- od_repeat(176,2);
- draw_button();
-
- filename[0]='\0'; // Blank out contents of input variables
- description[0]='\0';
- private[0]='\0';
-
- for(;;) // Main dialog box loop
- {
- if(current_field==4) // If field is the button
- {
- od_set_color(L_GREEN,D_BLUE); // Highlight button
- draw_button();
-
- do // Loop until user presses [TAB], [ENTER], or [ESC]
- {
- choice=od_get_key(TRUE);
- } while(choice!=9 && choice!=13 && choice!=27);
-
- od_set_color(L_CYAN,D_BLUE); // Un-highlight button
- draw_button();
-
- if(choice==13) return(TRUE); // If [ENTER] was pressed
-===============================================================================
-OpenDoors 6.00 Manual End of Page 66
-
- if(choice==27) return(FALSE); // If [ESC] was pressed
- current_field=1; // Otherwise, [TAB] was pressed
- }
-
- switch(current_field) // According to selected field
- { // Input from the appropriate line
- case 1:
- choice=od_edit_str(filename,"FFFFFFFFFFFF",6,26,
- 0x1b,0x1a,176,
- EDIT_FLAG_EDIT_STRING|
- EDIT_FLAG_ALLOW_CANCEL|
- EDIT_FLAG_FIELD_MODE|
- EDIT_FLAG_KEEP_BLANK);
- break;
- case 2:
- choice=od_edit_str(description,
- "*******************",
- 7,26,0x1b,0x1a,176,
- EDIT_FLAG_EDIT_STRING|
- EDIT_FLAG_ALLOW_CANCEL|
- EDIT_FLAG_FIELD_MODE|
- EDIT_FLAG_KEEP_BLANK);
-
- break;
- case 3:
- choice=od_edit_str(private,"Y",8,26,
- 0x1b,0x1a,176,
- EDIT_FLAG_EDIT_STRING|
- EDIT_FLAG_ALLOW_CANCEL|
- EDIT_FLAG_FIELD_MODE);
- }
- // If user pressed [ESCape]
- if(choice==EDIT_RETURN_CANCEL) return(FALSE);
- // If user choice to go to previous field
- if(choice==EDIT_RETURN_PREVIOUS)
- {
- if(current_field==1) // If at first field
- current_field=4; // Go to last field
- else // If not at first field
- --current_field; // Go to previous field
- }
- else // If user chose next field
- ++current_field; // Go to next field
- }
- }
-
- void draw_button(void) // Function to display the button
- {
- od_draw_box(12,10,23,12); // Draw box for button
- od_set_cursor(11,14);
- od_disp_str("Continue"); // Display text in button
- }
-===============================================================================
-OpenDoors 6.00 Manual End of Page 67
-
-OD_EDIT_STR()
--------------------------------------------------------------------------------
-
-PURPOSE Allows you to perform formatted input with full line editing
- features, etc., in ANSI/AVATAR/RIP graphics mode.
-
-
-FORMAT WORD od_edit_str(char *pszInput, char *pszFormat, INT nRow,
- INT nColumn, BYTE btNormalColor, BYTE btHighlightColor,
- char chBlank, WORD nFlags);
-
-
-RETURNS This function will return one of the following values:
-
- EDIT_RETURN_ERROR Indicates that an error has occurred,
- and the edit function was unable to
- run. This will occur if there is an
- error in one of the parameters, or if
- ANSI/AVATAR/RIP graphics is not
- available
-
- EDIT_RETURN_CANCEL Indicates that the user pressed the
- cancel key [ESC], and that the string
- was left unaltered.
-
- EDIT_RETURN_ACCEPT Indicates that the user pressed the
- accept key [Enter], or that the auto-
- enter feature was activated.
-
- EDIT_RETURN_PREVIOUS Indicates that the user wishes to move
- to the previous field, by pressing [UP
- ARROW], [SHIFT]-[TAB], etc.
-
- EDIT_RETURN_NEXT Indicates that the user wishes to move
- to the next field, by pressing [DOWN
- ARROW], [TAB], etc.
-
-
-DESCRIPTION To perform string input within OpenDoors, one of two functions
- can be used, od_input_str() and od_edit_str(). The first
- function, od_input_str(), allows simple line input and editing,
- and can be used in ASCII, ANSI, AVATAR and RIP modes. The second
- function, od_edit_str(), allows many formatted input options,
- advanced line editing, and other features, but requires the use
- of ANSI, AVATAR or RIP terminal modes.
-
- As mentioned above, the od_edit_str() function allows for
- advanced line editing, such as inputting and deleting text from
- the middle of the string (whereas the od_input_str() function
- only allows editing from the end of the string, such as
- backspacing to erase a mistake). The edit functions available
- from the od_edit_str() are listed below. Note that some of these
-===============================================================================
-OpenDoors 6.00 Manual End of Page 68
-
- functions may or may not be available, depending upon the
- capabilities of the user's terminal program. While there is no
- single standard used for the transmission of special edit keys
- such as the arrow keys, the od_edit_str() function makes as much
- effort as possible to make all of the edit features available to
- most terminal programs. Many of the edit functions can be
- accesses using either [CONTROL]-key combinations or special keys
- such as the arrow keys, delete key, and so on. OpenDoors will
- recognize most of these special control keys when sent as either
- an ANSI control sequence (which is sent by most terminal
- programs), or as a DoorWay style scan code / ASCII code sequence
- (which is also available from many terminal programs, but is not
- usually required). The od_edit_str() edit functions are as
- follows. Note that all edit functions are always available from
- the local keyboard.
-
- HOME - Moves the cursor to the beginning of the line being
- edited. Press the [HOME] key, either in DoorWay mode
- or from the local keyboard.
-
- END - Moves the cursor to the end of the line being edited.
- Press the [END] key, either in DoorWay mode or from
- the local keyboard.
-
- DELETE CHARACTER - Deletes the character under the cursor. Press
- [DELete] on the local keyboard, in DoorWay mode, and
- under many terminal programs without DoorWay mode.
- Alternatively, press [CONTROL]-[G].
-
- BACKSPACE - Deletes the character left of the cursor. Press
- [BACKSPACE] or [CONTROL]-[H].
-
- TOGGLE INSERT MODE - Switches the od_edit_str() function between
- insert mode and overwrite mode. Press [INSert], either
- in DoorWay mode, or from the local keyboard.
- Alternatively, press [CONTROL]-[V].
-
- CURSOR LEFT - Moves the cursor left one character. Press [LEFT
- ARROW] on the local keyboard, in DoorWay mode, and
- under many terminal programs without DoorWay mode.
- Alternatively, press [CONTROL]-[S].
-
- CURSOR RIGHT - Moves the cursor right one character. Press
- [RIGHT ARROW] on the local keyboard, in DoorWay mode,
- and under many terminal programs without DoorWay mode.
- Alternatively, press [CONTROL]-[D].
-
- ERASE ENTIRE LINE - Press [CONTROL]-[Y].
-
- ACCEPT INPUT - Press the [ENTER] / [RETURN] line to accept the
- input. Alternatively, press [CONTROL]-[Z]. Note that
- this key will only work when the current input is
-===============================================================================
-OpenDoors 6.00 Manual End of Page 69
-
- "valid" (ie, it conforms to the format string, which
- is described below)
-
- CANCEL INPUT - Only available if specifically enabled on the
- od_edit_str() command line. Press [ESCape].
-
- NEXT FIELD - If enabled, allows the user to move to the next
- field in a dialog box / form. Press [DOWN ARROW] in
- DoorWay mode and under many terminal programs without
- DoorWay mode. Alternatively, press [TAB]. Note that
- the [DOWN ARROW] key is NOT usually available from the
- local keyboard, as it is usually used to adjust the
- user's remaining time.
-
- PREVIOUS FIELD - If enabled, allows the user to move to the
- previous field in a dialog box / form. Press [UP
- ARROW] in DoorWay mode and under many terminal
- programs without DoorWay mode. Alternatively, press
- [SHIFT]-[TAB] on the local keyboard or in DoorWay
- mode. Again, note that the [UP ARROW] key is NOT
- usually available from the local keyboard, as it is
- usually used to adjust the user's remaining time.
-
-
- Let us now look at the parameters which the od_edit_str()
- function accepts. The first parameter, pszInput, is a pointer to
- the string where the user's input should be stored. It is
- important that this string be long enough to accommodate the
- longest input your format string will permit, including the '\0'
- C string terminator (ie, the string should be one character
- greater than the length of the format string, not including the
- format string's ' and " characters).
-
- The second parameter, pszFormat, is a pointer to a string which
- specifies the format and maximum length of the input the
- od_edit_str() function should accept. Using the format string,
- not only do you specify the length of the input field, but you
- can also force the user's input into certain formats. For
- example, if you wished to input a North American style phone
- number, you could use a format string of "###-###-####". Then
- regardless of whether the user typed any dash character or not,
- their input would be converted, as they type, to the format of
- the phone number 613-599-5554. You could also specify a format
- string such of "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM", which would
- permit the user to enter a name of up to 30 characters. Note
- that since the cursor can be moved to the position immediately
- following the last character, a the input field for a 30
- character string will occupy 31 columns on the screen. The
- od_edit_str() function would then automatically capitalize the
- name, so that the first character of each word is capitalized,
- and the remain characters of the word is in lower case. Even if
- the user were to move the cursor to the middle of the string
-===============================================================================
-OpenDoors 6.00 Manual End of Page 70
-
- they had entered, and add or delete a space (and thus either
- make one work two or two words one), od_edit_str() would re-
- format the string to reflect the change. The valid characters
- for the format sting, along with their meanings, are listed
- below. Note that the format string is NOT case sensitive (except
- for literal strings delimited by the '' or "" characters), and
- space characters can be added at any point to increase
- legibility.
-
- # Indicates that numeric characters from '0' to '9' are valid
- for this position
-
- % Indicates that numeric characters from '0' to '9', and the
- space character (' ') are valid for this position.
-
- 9 Indicates that numeric characters from '0' to '9', along
- with '.', '-' and '+' are valid for this position. This
- format style is intended for floating-point numeric input.
-
- ? Indicates that any character is valid for this position.
-
- * Indicates that any printable character, from ASCII 32 to
- ASCII 127, is valid for this position.
-
- A Indicates that alphabetical characters 'A' to 'Z', 'a' to
- 'z' and space (' ') are valid for this position.
-
- C Indicates that city name characters are valid for this
- position. As with the 'M' format character, words are
- automatically capitalized so that the first letter is in
- upper case, and all subsequent letters are in lower case.
- In addition to permitting alphabetical characters and the
- space (' ') character, the ',' and '.' characters are also
- accepted in this position.
-
- D Indicates that date characters '0' to '9', '-' and '/' are
- valid for this position.
-
- F Indicates that MS-DOS filename characters are valid for
- this position.
-
- H Indicates that hexidecimal character '0' to '9', 'A' to 'F'
- and 'a' to 'f' are valid for this position.
-
- L Indicates that only lower case alphabetical characters 'a'
- to 'z', and the space (' ') character is valid for this
- position. However, if the user attempts to enter an upper
- case alphabetical character in this position, it will
- automatically be converted to the lower case equivalent.
-
- M Indicates that name characters are valid for this position.
- These characters are the alphabetical characters 'A' to
-===============================================================================
-OpenDoors 6.00 Manual End of Page 71
-
- 'Z', 'a' to 'z', and the space character (' '). A
- character's case is converted such that the first character
- of a word is in upper case, and all other letters are in
- lower case.
-
- T Indicates that telephone number character '0' to '9', '(',
- ')', '-' and ' ' are valid for this position.
-
- U Indicates that only upper case alphabetical characters 'A'
- to 'Z', and the space (' ') character is valid for this
- position. However, if the user attempts to enter a lower
- case alphabetical character in this position, it will
- automatically be converted to the upper case equivalent.
-
- W Indicates that MS-DOS filename characters are permitted in
- this position, including the '*' and '?' wildcard
- characters.
-
- X Indicates that alphanumeric characters 'A' to 'Z', 'a' to
- 'z', '0' to '9' and ' ' are valid for this position.
-
- Y Indicates that yes/no characters 'Y', 'N', 'y', 'n' are
- valid for this position. The characters are automatically
- converted to upper case.
-
- '/" Single or double quotes can be used to specify sequences of
- characters that should appear at the same location in the
- input string (referred to elsewhere as "literal strings").
- When the user is entering the string, these characters are
- automatically supplied, and the user is not required to
- type them. Literal strings must begin and end with the same
- quote character. Remember that the double quote (")
- character must be imbedded in C strings by preceding the
- quote character with a \ (backslash) character.
-
- The third and fourth parameters, nRow and nColumn specify the
- location on the screen where the first (left most) character of
- the input field should be located. These parameters are
- identical to the nRow and nColumn parameters passed to the
- od_set_cursor() function. In other words, nRow specifies the
- line number on the screen, where 1 is the first line, and
- nColumn specifies the column across the screen, where 1 is the
- first column.
-
- The fifth and sixth parameters, btNormalColor and
- btHighlightColor, allow you to specify the color of the input
- field. The fifth parameter, btNormalColor, specifies the color
- of the input field when input is not taking place and the sixth
- parameter, btHighlightColor, specifies the color of the field
- while input is taking place. Thus, if you had several input
- fields on the screen at one time, you would be able to make is
- easier for the user to identify the currently active field by
-===============================================================================
-OpenDoors 6.00 Manual End of Page 72
-
- having the field currently accepting input highlighted in a
- color distinct from the other fields. When the od_edit_str()
- function begins, it will change the current color of the field
- from the normal color to the highlighted color. Then, when the
- od_edit_str() function exits, it will change the current color
- of the field back to its normal color. If you do not wish to
- have the field highlighted, you can set both of these parameters
- to the same value, and disable field re-drawing by using the
- eighth parameter, flags.
-
- The seventh parameter accepted by the od_edit_str() function,
- chBlank, will serve one of two purposes. Normally, this
- parameter will specify a background character to display in the
- unfilled portion at the end of the input field. This can be set
- to a character, such as the ASCII 177 grey block character, to
- produce a visual background to the field. Doing this will show
- the user visually how long the field is, and how many character
- they will be permitted to type into the field. Normally, this
- field will be displayed during input, and removed when the
- od_edit_str() function exits. However, you may cause the
- background to remain in place using the eighth parameter, flags.
- If you do not wish to have this "background" visual field
- effect, simply set the character parameter to a space (ASCII
- 32). In password input mode, this parameter will instead specify
- the character to display in place of characters typed by the
- user. In this case, the background display character defaults to
- the space (ASCII 32) character.
-
- The eighth, and last, parameter accepted by the od_edit_str()
- function is the nFlags parameter. This parameter is a bit-mapped
- flags variable which allows you to control special features of
- the od_edit_str() function. More than one of these settings may
- be specified by listing a chain of the values, separated by the
- bitwise-or (|) operator. If you do not wish to turn on any of
- these modes, simply pass the EDIT_FLAG_NORMAL value as the flags
- parameter.
-
- EDIT_FLAG_NORMAL - Default setting, use this value of none of
- the other flags below are active.
-
- EDIT_FLAG_NO_REDRAW - When set, prevents the od_edit_str()
- function from re-drawing the input string and field
- when it starts up and exits. If you set this flag, the
- normal color and highlight color should contain the
- same value. If background character (the character
- parameter) is not a space (ASCII 32) character, you
- must draw the field background prior to calling
- od_edit_str(). Also, if you are calling od_edit_str()
- with the EDIT_FLAG_EDIT_STRING flag set, you must
- display the existing string in the field prior to
- calling od_edit_str().
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 73
-
- EDIT_FLAG_FIELD_MODE - Setting this flag specifies that
- od_edit_str() should operate in field input mode. In
- field input mode, the user may finish entering their
- input by pressing the previous field or next field
- button (arrow keys, tab keys, etc.), as described
- above. If the user chooses to finish and accept their
- input by pressing one of these keys, the od_edit_str()
- return value will reflect which choice they made. This
- will allow you to make it possible for the user to
- move between a number of input fields in a form /
- dialog box, as demonstrated in the example
- accompanying the od_draw_box() function.
-
- EDIT_FLAG_EDIT_STRING - Setting this flag specifies that
- od_edit_str() should edit a pre-existing string,
- instead of starting with a blank string. In this case,
- the input_string parameter MUST point to an
- initialized string. This string may either contain
- some text, or be empty, but od_edit_str() will expect
- to find a string terminator ('\0') character, and will
- begin editing the contents of the string prior to that
- character. If you do not set the EDIT_FLAG_EDIT_STRING
- flag, the previous contents of the input_string
- parameter is not significant, as od_edit_str() will
- automatically start with a blank string.
-
- EDIT_FLAG_STRICT_INPUT - Setting this flag causes the
- od_edit_str() function to operate in "strict" input
- mode, which may be desirable if your input format
- contains more than one type of input. Normally, if you
- were inputting such a string, the user would be able
- to move to the middle of the string, and insert any
- text. Doing so would cause the rest of the input line
- to shift right. However, in cases where your format
- string specifies different types of character to be
- permitted in different positions, this can cause the
- input to be changed so that it no longer conforms to
- the format string. In this case, the user's input will
- no longer be valid, and the user will not be able to
- exit the function by pressing [ENTER] (although
- [ESCAPE] will still be available, if you activated it)
- until they change their input. However, when strict
- input mode is turned on, od_edit_str() will restrict
- the ways in which the user is permitted to edit the
- string, to prevent just such a case from occurring.
-
- EDIT_FLAG_PASSWORD_MODE - Setting this flag causes the
- od_edit_str() function to operate in "password" mode.
- In password mode, the characters typed by the user
- will be hidden, displayed instead as the blank
- character specified in the "character" parameter.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 74
-
- EDIT_FLAG_ALLOW_CANCEL - When this flag is set, the user will be
- able to cancel their current input and abort the
- editing process by pressing their [ESCAPE] key. When
- they do so, any changes they have made to the input
- field will be canceled, and replaced by the original
- contents of the string. The od_edit_str() function
- will then exit, indicating that the user has canceled
- their input.
-
- EDIT_FLAG_FILL_STRING - When set, this flag will force the user
- to enter a string that fills the entire length of the
- format string. Normally, the user will be able to
- enter a string of any length up to the maximum length
- specified by the format string. However in some cases,
- such as when inputting a date, you will want to have
- the input field filled. (Otherwise, the user would be
- able to enter only the first part of the date.)
-
- EDIT_FLAG_AUTO_ENTER - When set, this flag will cause the
- od_edit_str() function to automatically simulate
- pressing of the [ENTER] key when the string is filled.
- This can be used to cause the od_edit_str() function
- to finish inputting as soon as a valid string is
- entered, instead of having to wait for the user to
- press [ENTER] / [RETURN].
-
- EDIT_FLAG_AUTO_DELETE - When set, along with the
- EDIT_FLAG_EDIT_STRING flag, this flag will activate
- the auto-delete feature of the od_edit_str() function.
- When auto-delete is active, if the first key pressed
- by the user is not an edit control key, the existing
- text will automatically be deleted, and a totally new
- string accepted from the user. This could be useful
- when you are allowing the user to go back to edit a
- previous input. If the user wishes to only change part
- of the old string, they can move the cursor to the
- location where they wish to make the change, and
- perform their editing. However, if the user wishes to
- completely replace the old string with a new one, they
- can simply begin to type, and the old string will
- automatically be deleted, and the new string accepted.
-
- EDIT_FLAG_KEEP_BLANK - Normally, OpenDoors will only display the
- input field background (as passed in the "character"
- parameter) while the user is editing the string, and
- will remove it when the od_edit_str() function exits.
- However, you may wish to continue having this field
- displayed after input has taken place, and the
- od_edit_str() function has exited. In this case,
- setting this flag will cause the background characters
- to remain visible after input has finished.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 75
-
- EDIT_FLAG_PERMALITERAL - When the format string contains literal
- characters (such as forcing a ':' character to be
- added to a time input by using the format string
- "##':'##':'##"), the od_edit_str() function can
- operate in one of two modes. In the default mode, the
- literal characters will only be displayed when they
- have been automatically added to the string. For
- instance, if you were inputting the current time using
- the above format string, this mode would result in the
- input field initially being blank. When the user types
- the first digit of the time, that number would appear.
- When the user types the second digit of the time, that
- number will appear, and then the colon character will
- automatically be added by OpenDoors. However, you can
- also set the od_edit_str() function to operate in
- "PermaLiteral" mode, by setting this flag. When the
- EDIT_FLAG_PERMALITERAL flag is set, the input field
- will initially contain the literal characters (ie, the
- colons in our example), with the cursor still located
- at the leftmost position in the input field. In this
- mode, the literal character become a permanent part of
- the input field, and can not be moved or deleted by
- the user - instead the cursor simply skips over the
- literal character's position.
-
- EDIT_FLAG_LEAVE_BLANK - This flag applies to the special case
- where the first character or characters of the format
- string are literals. By default, the od_edit_str()
- function will always return a string containing at
- least these first literal characters. However, you can
- alter this behaviors by setting this flag. When set,
- if no non-literal characters have been entered in the
- string, od_edit_str() will return an empty string.
-
- EDIT_FLAG_SHOW_SIZE - Normally, od_edit() adds an extra blank to
- the end of the input field, to give the cursor a space
- to move into when the field is full. However, you may
- prefer to have the input field be shown as exactly the
- maximum size of input that is permitted. Setting
- EDIT_FLAG_SHOW_SIZE does just this. In this case, the
- cursor will be positioned immediately past the end of
- the input field when the maximum number of characters
- have been entered.
-
-
-SEE ALSO od_input_str(), od_get_char(), od_clear_keybuffer()
-
-
-EXAMPLE Below are several examples of typical uses of the od_edit_str()
- function. For the sake of simplicity, all of these examples
- perform their input beginning at the top, left hand corner of
- the screen, and store the user's input in the string variable
-===============================================================================
-OpenDoors 6.00 Manual End of Page 76
-
- named "string". For an example of the user of the od_edit_str()
- function in a dialog-box / form entry application, see the
- example accompanying the od_draw_box() function.
-
- To input a name with a maximum of 25 characters, having the
- first letter of each word automatically capitalized:
-
- od_edit_str(string, "MMMMMMMMMMMMMMMMMMMMMMMMM", 1, 1,
- 0x03, 0x21, 176, EDIT_FLAG_NORMAL);
-
- To input a North American style phone number, requiring that all
- digits be filled, and running in "strict input" mode:
-
- od_edit_str(string, "###'-'###'-'####",
- 1, 1, 0x03, 0x21, 176,
- EDIT_FLAG_FILL_STRING|
- EDIT_FLAG_STRICT_INPUT);
-
- To allow the user to edit a previously entered 20 character
- string, with auto-delete mode on. Any characters will be
- permitted in the string. Remember that when the
- EDIT_FLAG_EDIT_STRING flag is set, the string must be
- initialized prior to calling the od_edit_str() function.
-
- od_edit_str(string, "????????????????????",
- 1, 1, 0x03, 0x21, 176,
- EDIT_FLAG_EDIT_STRING|
- EDIT_FLAG_AUTO_DELETE);
-
-
- To input a password of up to 16 characters from the user. Here,
- the password will only be permitted to contain upper case
- characters, and the od_edit_str() password mode is used, with a
- small block displayed in place of any characters typed:
-
- od_edit_str(string, "UUUUUUUUUUUUUUUU",
- 1, 1, 0x03, 0x21, 254,
- EDIT_FLAG_PASSWORD_MODE);
-
- To input a two-digit number from the user, requiring that both
- digits be filled, and automatically accepting the input after
- the two digits have been entered (not requiring the user to
- press [ENTER]):
-
- od_edit_str(string, "##", 1, 1, 0x03, 0x21, 176,
- EDIT_FLAG_FILL_STRING|
- EDIT_FLAG_AUTO_ENTER);
-
- To input a filename to download, as a field in a dialog box.
- Here, the filename will be permitted to contain valid filename
- characters, and the od_input_str() function will operate in
- field mode, with the cancel [ESCape] key enabled. Also, string
-===============================================================================
-OpenDoors 6.00 Manual End of Page 77
-
- edit mode will be enabled, allowing the user to edit a
- previously entered line, and the EDIT_FLAG_KEEP_BLANK flag will
- be set, causing the field background to remain displayed after
- the user exits. This time, however, auto-delete mode will not be
- used. Note that this combination of parameters expects that the
- field and it's contents will have already been displayed, prior
- to calling the od_edit_str() function.
-
- od_edit_str(string, "WWWWWWWWWWWW",
- 1, 1, 0x03, 0x21, 176,
- EDIT_FLAG_EDIT_STRING|
- EDIT_FLAG_FIELD_MODE|
- EDIT_FLAG_ALLOW_CANCEL|
- EDIT_FLAG_KEEP_BLANK);
-
- To input a string without the field background and line
- redrawing before and after input takes place:
-
- od_edit_str(string, "******************************",
- 1, 1, 0x07, 0x07, ' ',
- EDIT_FLAG_NO_REDRAW);
-
- To input a date, using PermaLiteral mode. Here, the month is
- entered by a three digit short form ("JAN", "FEB", etc.), and
- the literal characters such as the '-' and the "19" are a
- permanent part of the input field:
-
- od_edit_str(string,"UUU'-'##'-19'##",
- 1, 1, 0x03, 0x21, 176,
- EDIT_FLAG_PERMALITERAL|
- EDIT_FLAG_FILL_STRING);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 78
-
-OD_EXIT()
--------------------------------------------------------------------------------
-
-PURPOSE The OpenDoors program termination function
-
-
-FORMAT void od_exit(INT nErrorLevel, BOOL bTermCall);
-
-
-RETURNS N/A
-
-
-DESCRIPTION You MUST USE THIS FUNCTION when you want your program to exit.
- This function will close the serial port, re-write changed
- information to the door information (drop), call your end-of-
- program function (if any), and then exit with the errorlevel
- specified in the first parameter.
-
- Also, if the second parameter, bTermCall, is set to TRUE,
- od_exit() will also log the user off (for options such as
- logging off within the door - as shown in the example below).
- This is accomplished by lowering the DTR line to the modem,
- causing the modem to hangup. When control is returned to the
- BBS, it will then detect that the user is no longer online, and
- will carry out its own logoff processing.
-
- If you wish for your program to always perform any activities
- prior to exiting, such as updating or closing data files, you
- should set a function to be executed from within the od_exit()
- function. This is accomplished by using the od_control.
- od_before_exit variable, as described in the section on the
- OpenDoors control structure in chapter 5. Use of this variable
- will allow your program to always carry out these activates,
- even if OpenDoors decides to call the od_exit() function itself,
- such as when a user hangs up on the door.
-
- Note that in special cases, you may use the
- od_control.od_disable variable to prevent the od_exit() function
- from re-writing the door information file. Also, you may use the
- od_control.od_noexit variable to shutdown door operations
- without actually exiting your program. Both of these variables
- are described in chapter 5.
-
-
-SEE ALSO od_init()
-
-
-EXAMPLE The example below demonstrates a function which a door could
- execute when the user chooses to exit the door. This function
- will ask the user whether they wish to exit the door and return
- to the BBS, simply logoff of the BBS, or continue using the
- door. The example function will then call od_exit() if the user
-===============================================================================
-OpenDoors 6.00 Manual End of Page 79
-
- wishes to exit the door, or return control to the function which
- called it, if the user does not wish to exit:
-
- void goodbye(void)
- {
- char pressed;
- /* Display choices to user */
- od_disp_str("You have chosen to exit this door.\n\r");
- od_disp_str("Do you wish to:\n\r");
- od_disp_str(" [R]eturn to the BBS\n\r");
- od_disp_str(" [L]ogoff of the BBS\n\r");
- od_disp_str(" [C]ontinue using the door\n\r");
-
- for(;;) /* loop until user makes valid choice */
- {
- pressed=od_get_key(TRUE); /* Get key from user */
-
- /* If user selects R, exit without hanging up */
- if(pressed=='R' || pressed=='r') od_exit(40,FALSE);
-
- /* If user selects L, hangup and then exit */
- if(pressed=='L' || pressed=='l') od_exit(41,TRUE);
-
- /* If user selects C, return and allow door to continue */
- if(pressed=='C' || pressed=='c') return;
- }
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 80
-
-OD_GET_ANSWER()
--------------------------------------------------------------------------------
-
-PURPOSE Function to allow the user to respond to a prompt using only
- certain keys.
-
-
-FORMAT char od_get_answer(char *pszOptions);
-
-
-RETURNS Character that user entered
-
-
-DESCRIPTION This function can be used to get a response from the user, when
- only particular responses should be accepted. The parameter to
- the od_get_answer() function is simply a string listing the
- valid responses. The function will wait until the user selects
- one of the valid responses, and then return that response. The
- function is case insensitive, and will return the character in
- the same case that was supplied to it in the string.
-
-
-SEE ALSO od_get_key(), od_hotkey_menu()
-
-
-EXAMPLES od_get_answer("YN");
- - If the user presses 'y', will return 'Y'.
-
- od_get_answer("yn");
- - If the user presses 'y', will return 'y'.
-
- od_get_answer("ABC 123\n\rZ");
- - Valid responses will be: [A], [B], [C], [SPACE],
- [1], [2], [3], [ENTER], [Z]
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 81
-
-OD_GET_INPUT()
--------------------------------------------------------------------------------
-
-PURPOSE This function allows a single input event (e.g. keystroke) to be
- retrieved, optionally translating extended key sequences such as
- arrow keys and the insert key.
-
-
-FORMAT BOOL od_get_input(tODInputEvent *pInputEvent,
- tODMilliSec TimeToWait, WORD wFlags);
-
-
-RETURNS TRUE on success, FALSE if no input event was retrieved.
-
-
-DESCRIPTION Like od_get_key(), od_get_input() can be used to retrieve a
- single key of input from the user. However, od_get_input() has
- been designed to be easily extended in future versions of
- OpenDoors. The information retrieved by this new function is
- placed in a structure, which contains information on whether the
- input event was generated by the remote user or the local
- console, and what type of input event it was. This function also
- has built-in the ability to recognize and translate the multiple-
- character sequences that are generated when the user presses
- extended keys such as arrow keys, insert, delete, etc.
-
- The first parameter points to a tODInputEvent structure, which is
- defined as follows:
-
- typedef struct
- {
- tODInputEventType EventType;
- BOOL bFromRemote;
- char chKeyPress;
- } tODInputEvent;
-
- When od_get_input() successfully retrieves an input event, this
- structure is filled with information about the input. The
- EventType member can be either EVENT_CHARACTER (indicating a
- single character keystroke) or EVENT_EXTENDED_KEY (indicating an
- extended key, such as an arrow key). In the case of
- EVENT_CHARACTER, chKeyPress is set to the character that was
- received. In the case of EVENT_EXTENDED_KEY, chKeyPress is set to
- one of the following values:
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 82
-
- +------------------+---------------+-------------------------+
- | chKeyPress Value | Meaning | Control Key Alternative |
- +------------------+---------------+-------------------------+
- | OD_KEY_F1 | [F1] | None |
- | OD_KEY_F2 | [F2] | None |
- | OD_KEY_F3 | [F3] | None |
- | OD_KEY_F4 | [F4] | None |
- | OD_KEY_F5 | [F5] | None |
- | OD_KEY_F6 | [F6] | None |
- | OD_KEY_F7 | [F7] | None |
- | OD_KEY_F8 | [F8] | None |
- | OD_KEY_F9 | [F9] | None |
- | OD_KEY_F10 | [F10] | None |
- | OD_KEY_UP | [UP ARROW] | [CTRL]-[E] |
- | OD_KEY_DOWN | [DOWN ARROW] | [CTRL]-[X] |
- | OD_KEY_LEFT | [LEFT ARROW] | [CTRL]-[S] |
- | OD_KEY_RIGHT | [RIGHT ARROW] | [CTRL]-[D] |
- | OD_KEY_INSERT | [INSERT] | [CTRL]-[V] |
- | OD_KEY_DELETE | [DELETE] | [CTRL]-[G] |
- | OD_KEY_HOME | [HOME] | None |
- | OD_KEY_END | [END] | None |
- | OD_KEY_PGUP | [PAGE UP] | None |
- | OD_KEY_PGDN | [PAGE DOWN] | None |
- | OD_KEY_SHIFTTAB | [SHIFT]-[TAB] | None |
- +------------------+---------------+-------------------------+
-
- The bFromRemote member of the tODInputEvent structure will be set
- to TRUE if the input event originated from the remote system, or
- FALSE if the event originated from the local system.
-
- The second parameter, TimeToWait specifies how long the function
- should wait for input before returning, in milliseconds. A value
- of 0 causes the function to return immediately if no input is
- waiting in OpenDoor's internal input buffer. The is equivalent to
- a value of FALSE being passed to the od_get_key() function. A
- value of OD_NO_TIMEOUT causes this function to wait and only
- return after the next input event has been received. This is
- equivalent to a value of TRUE being passed to the od_get_key()
- function. An other value specifies the maximum number of
- milliseconds that od_get_input() should wait for input. If input
- is received before this time elapses, od_get_key() will return
- immediately with a value of TRUE, and the tODInputEvent structure
- will be fill accordingly. If no input is received before this
- time elapses, od_get_key() will return FALSE. The number of
- milliseconds to wait is rounded to the nearest 55 milliseconds in
- the DOS version of OpenDoors.
-
- The third parameter allows you to specify flags to further
- control the behavior of od_get_input(). Normally, this parameter
- will be set to GETIN_NORMAL. However, you can disable all
- translation of extended keystrokes by setting this value to
- GETIN_RAW. In this mode, od_get_input() works just like
-===============================================================================
-OpenDoors 6.00 Manual End of Page 83
-
- od_get_key(), returning every individual character received from
- the remote system.
-
- Since extended keys are not directly supported by all terminal
- programs, od_get_input() provides alternatives for some of the
- extended keys, in the form of control-key combinations. The
- control key combinations recognized by od_get_input() are listed
- in the table above. However, these control key alternatives can
- be ignored by setting the GETIN_RAWCTRL flag.
-
- The od_get_input() function is used internally by
- od_popup_menu(), od_edit_str() and od_multiline_edit().
-
-
-SEE ALSO od_get_key(), od_clear_keybuffer()
-
-
-EXAMPLE The following example shows the structure of how od_get_input()
- might be used in your program:
-
- tODInputEvent InputEvent;
- od_get_input(&InputEvent, OD_NO_TIMEOUT, GETIN_NORMAL);
- if(InputEvent.EventType == EVENT_EXTENDED_KEY)
- {
- switch(InputEvent.chKeyPress)
- {
- case OD_KEY_UP:
- /* The up arrow key has been pressed. */
- break;
- case OD_KEY_DOWN:
- /* The down arrow key has been pressed. */
- break;
- }
- }
- else if(InputEvent.EventType == EVENT_CHARACTER)
- {
- /* A single character key has been pressed, and is */
- /* stored in InputEvent.chKeyPress. */
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 84
-
-OD_GET_KEY()
--------------------------------------------------------------------------------
-
-PURPOSE Function to input a key from the user
-
-
-FORMAT char od_get_key(BOOL bWait);
-
-
-RETURNS The next key waiting from the keyboard, or 0 if none.
-
-
-DESCRIPTION This function retrieves the next key waiting in the OpenDoors
- keyboard buffer (see the description of the od_clear_keybuffer()
- function, on page 53, for more information on the OpenDoors
- keyboard buffer). The od_get_key() function allows your door to
- retrieve both those keystrokes pressed by the user, and the
- keystrokes pressed on the sysop keyboard (other than the sysop
- function keys), in the sequence they were pressed. Since input
- is accepted from both sources, it is possible for the sysop, as
- well as the remote user, to make selections and control the
- door.
-
- Door input with OpenDoors can be accomplished with this
- function, with the od_input_str() function or with the
- od_edit_str() function. The od_input_str() and od_edit_str()
- functions is used to input an entire sequence of characters from
- the user (a string), and requires the user to press the [Enter]
- key when they are finished typing their input. On the other
- hand, the od_get_key() function is used to input a single
- keystroke (one character) from the user, and allows the user to
- make choices without having to press the enter key.
-
- The od_get_key() function accepts a single parameter, which
- determines whether or not it should wait for the user to press a
- key, if they have not already done so. If you pass a FALSE value
- to od_get_key(), then the function will not wait for a key to be
- pressed at the keyboard, but instead return a 0 if there are no
- keys waiting in the buffer. If you pass a TRUE value to
- od_get_key(), then this function will instead wait for a key to
- be pressed. Also, while waiting for the user to press a key, the
- od_get_key() function will give up the processor to other
- waiting programs, if you door is running under DesqView.
-
- If you are waiting for the user to make a choice from a menu or
- list of options, you will most likely pass a TRUE to the
- od_get_key() function, indicating that you wish for it to wait
- until a key is pressed. However, if you wish to continue other
- processing if no key is yet available from the keyboard, you
- should pass a FALSE to the od_get_key() function. For example,
- if you are displaying a screen of text, and wish to allow the
- user to pause or abort the display, you would simply call the
-===============================================================================
-OpenDoors 6.00 Manual End of Page 85
-
- od_get_key() function every few moments, passing it a value of
- FALSE. You would then be able to check if any control keys have
- been pressed, and if not, continue displaying text.
-
- The od_get_key() function returns the ASCII value representing
- the keystroke that was made. If you are waiting for the user to
- make a particular choice, perhaps from a menu, you will most
- likely store the value returned by od_get_key() in a variable of
- type char. For example:
-
- char key;
- ...
- key=od_get_key(TRUE);
-
- You would then be able to determine which key the user pressed
- by testing the value of key, either by comparing it's numerical
- ASCII value, or by comparing it to a character constant. If you
- are testing for a non-character key, such as [ESCape], [Tab] or
- [Return], you may wish to use the ASCII value of that key. For
- example, if you wished to take some action in the case that the
- user presses the [Enter]/[Return] key, who's ASCII value is 13,
- you could do:
-
- key=od_get_key(TRUE); /* Get keypress from user */
- if(key==13) /* If key was [Enter]/[Return] */
- {
- ... /* Whatever you want to do */
- }
-
- If you wish, instead, to respond to the user pressing a
- character key (perhaps as a choice from a menu), you can do so
- by using character constants, such as 'c', '6', or 'F'. Also,
- when testing for an alphabetical character, you will probably
- want to check for the user pressing either the upper or lower-
- case version of the letter. For example, if you wished to have
- the user press the [Y] key to continue, you could test for
- either an upper or lower-case Y as follows:
-
- key=od_get_key(TRUE); /* Get keypress from user */
- if(key=='y' || key=='Y') /* If key was [y]/[Y] */
- {
- ... /* Whatever you want to do */
- }
-
-
-
-
-
-The charts on the following page lists the decimal value and corresponding
-keystroke(s) of each of the ASCII values from 0 to 127.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 86
-
-ASCII KEYSTROKE | ASCII KEYSTROKE
------ ------------------------------ | ----- ----------------------
- 0 [Control]-[@] | 15 [Control]-[O]
- 1 [Control]-[A] | 16 [Control]-[P]
- 2 [Control]-[B] | 17 [Control]-[Q]
- 3 [Control]-[C] | 18 [Control]-[R]
- 4 [Control]-[D] | 19 [Control]-[S]
- 5 [Control]-[E] | 20 [Control]-[T]
- 6 [Control]-[F] | 21 [Control]-[U]
- 7 [Control]-[G] | 22 [Control]-[V]
- 8 [Control]-[H]/[Backspace] | 23 [Control]-[W]
- 9 [Control]-[I]/[Tab] | 24 [Control]-[X]
- 10 [Control]-[J] | 25 [Control]-[Y]
- 11 [Control]-[K] | 26 [Control]-[Z]
- 12 [Control]-[L] | 27 [ESCape]
- 13 [Control]-[M]/[Enter]/[Return] | 32 [SpaceBar]
- 14 [Control]-[N] |
-
-
-
-ASCII KEYSTROKE | ASCII KEYSTROKE | ASCII KEYSTROKE | ASCII KEYSTROKE
------ --------- | ----- --------- | ----- --------- | ----- ---------
- 33 '!' | 57 '9' | 80 'P' | 104 'h'
- 34 '"' | 58 ':' | 81 'Q' | 105 'i'
- 35 '#' | 59 ';' | 82 'R' | 106 'j'
- 36 '$' | 60 '<' | 83 'S' | 107 'k'
- 37 '%' | 61 '=' | 84 'T' | 108 'l'
- 38 '&' | 62 '>' | 85 'U' | 109 'm'
- 39 '\'' (') | 63 '?' | 86 'V' | 110 'n'
- 40 '(' | 64 '@' | 87 'W' | 111 'o'
- 41 ')' | 65 'A' | 88 'X' | 112 'p'
- 42 '*' | 66 'B' | 89 'Y' | 113 'q'
- 43 '+' | 67 'C' | 90 'Z' | 114 'r'
- 44 ',' | 68 'D' | 91 '[' | 115 's'
- 45 '-' | 69 'E' | 92 '\\' (\) | 116 't'
- 46 '.' | 70 'F' | 93 ']' | 117 'u'
- 47 '/' | 71 'G' | 94 '^' | 118 'v'
- 48 '0' | 72 'H' | 95 '_' | 119 'w'
- 49 '1' | 73 'I' | 96 '`' | 120 'x'
- 50 '2' | 74 'J' | 98 'b' | 121 'y'
- 51 '3' | 75 'K' | 99 'c' | 122 'z'
- 52 '4' | 76 'L' | 100 'd' | 123 '{'
- 53 '5' | 77 'M' | 101 'e' | 124 '|'
- 54 '6' | 78 'N' | 102 'f' | 125 '}'
- 55 '7' | 79 'O' | 103 'g' | 126 '~'
- 56 '8' | | | 127 [DELete]
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 87
-
-
-
-
-
-SEE ALSO od_get_input(), od_input_str(), od_edit_str(),
- od_clear_keybuffer()
-
-
-EXAMPLE For examples of the use of the od_get_key() function, see the
- examples in the description portion, above, and the examples for
- the od_exit() and od_clear_keybuffer() functions. For further
- examples of this function, see the example program EX_VOTE.C,
- described in the section beginning on page 38.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 88
-
-OD_GETTEXT()
--------------------------------------------------------------------------------
-
-PURPOSE Stores a rectangular region of the screen in an array, to later
- be redrawn using od_puttext(). Requires ANSI, AVATAR or RIP
- modes.
-
-
-FORMAT BOOL od_gettext(INT nLeft, INT nTop, INT nRight, INT nBottom,
- void *pBlock);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION This function stores the contents (both text and color
- information) of the rectangular portion of the screen denoted by
- the variables nLeft, nTop, nRight and nBottom into the buffer
- pointed to by pBlock. The saved portion of the screen may then
- be restored using od_puttext(). The buffer must be large enough
- to store two bytes for every character in the specified
- rectangle. In other words, the required size of the buffer, in
- bytes, is:
-
- length * width * 2
-
- The parameters nLeft and nRight are column numbers from 1 to 80,
- and the parameters nTop and nBottom are row numbers between 1
- and 23.
-
- This function has no effect on the current text color or cursor
- position. ANSI, AVATAR or RIP mode is required for this
- function. If you wish to save and restore the entire screen, you
- may use the od_save_screen() and od_restore_screen() functions,
- which can be used in all display modes.
-
- If this function fails for any reason, a value of FALSE is
- returned, and the od_control.od_error variable is set to
- indicate the reason for the failure. For more information on the
- od_control.od_error variable, see page 185.
-
-
-SEE ALSO od_puttext(), od_save_screen(), od_restore_screen(),
- od_scroll(), od_window_create(), od_window_remove()
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 89
-
-OD_HOTKEY_MENU()
--------------------------------------------------------------------------------
-
-PURPOSE Function to display a menu file with hotkeys
-
-
-FORMAT char od_hotkey_menu(char *pszFileName, char *pszHotKeys, BOOL
- bWait);
-
-
-RETURNS Key pressed in response to menu, or '\0' if none.
-
-
-DESCRIPTION This function can be used to display a menu from an ASCII, ANSI,
- AVATAR or RIP file, allowing the user to select an option at any
- time while the menu is being displayed. The od_hotkey_menu()
- function is quite similar to the od_send_file() function, and
- you should probably familiarize yourself with that function if
- you are going to use od_hotkey_menu(). Like od_send_file(),
- od_hotkey_menu() will display the file specified by pszFileName,
- using the appropriate terminal emulation. If no extension is
- provided for the filename, OpenDoors will automatically search
- for matching files ending in .ASC, .ANS and .AVT extensions.
- OpenDoors will the select the appropriate file to display, based
- on the available files and available terminal emulation.
-
- The second parameter, pszHotKeys, is a string specifying the
- valid responses to the menu, in the same format as the string
- passed to the od_get_answer() function. If any of the characters
- listed in this string are pressed, either uppercase or lowercase
- versions, OpenDoors will immediately stop displaying the menu,
- and return with the value of the key pressed. The case (upper or
- lower) returned will always be identical to the case used in the
- hotkeys string. You can include the [ENTER] key as a valid hot
- key by including the \n character in the hotkey string.
-
- The third parameter passed to od_hotkey_menu(), bWait, specifies
- whether OpenDoors should wait after displaying the menu for the
- user to make a valid selection from the menu (TRUE), or if it
- should exit immediately (FALSE). Normally, you will want to use
- the TRUE value when calling this function. This will allow you
- to use a single function call that will display the menu and
- always return the user's selection. If you wish to gain control
- as soon as OpenDoors has displayed the menu, you may specify
- FALSE for this parameter. In this case, if the user does not
- press any of the valid hot keys while the menu is being sent,
- the function will return the character '\0'.
-
-
-SEE ALSO od_send_file(), od_get_answer()
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 90
-
-EXAMPLE As an example of the use of the od_hotkey_menu() function,
- consider the following code fragment:
-
-
- for(;;) /* Main program loop */
- { /* Display menu and get user's choice */
- char choice=od_hotkey_menu("MAINMENU","123Q",TRUE");
-
- switch(choice) /* Perform the appropriate action */
- {
- case '1':
- od_printf("You selected one.\n\r");
- break;
-
- case '2':
- od_printf("You selected two.\n\r");
- break;
-
- case '3':
- od_printf("You selected three.\n\r");
- break;
-
- case 'Q':
- od_exit(FALSE,10);
- }
- }
-
- This is an example of the main menu loop of a simple door that
- uses the od_hotkey_menu() function. The program will continue
- executing the for(;;) loop until the user chooses to exit the
- door. On each iteration of the loop, the od_hotkey_menu()
- function is called, to display the door's menu from the file
- MAINMENU.A??. The appropriate .ASC/.ANS/.AVT file will be chosen
- and displayed as the menu. The possible choices that may be made
- from the menu are specified by the string "123Q". Thus, whenever
- the user presses one of the keys [1], [2], [3] or [Q], the
- od_hotkey_menu() function will return immediately with the value
- of the key pressed. If the menu is still being displayed at the
- time when the key was pressed, menu display will cease at that
- moment. The program then executes a case statement, to respond
- to the user's key appropriately. If the user presses [1], [2] or
- [3] this door will output a simple message to the screen. If the
- user presses the [Q] key, the door will pass control back to the
- BBS.
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 91
-
-OD_INIT()
--------------------------------------------------------------------------------
-
-PURPOSE To initialize OpenDoors activities
-
-
-FORMAT void od_init(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function initializes OpenDoors. This function must be
- called manually if you wish to access data about the user, etc.,
- before you call any other OpenDoors functions. However, if you
- do not explicitly call the od_init() function, it will be called
- automatically on the first call to most other OpenDoors
- functions. The only functions that should be called before
- od_init() are od_add_personality() and od_parse_cmd_line(). The
- od_init() function reads information from the door information
- file, initializes communications with the modem, displays the
- status line, and sets up OpenDoors' internal data structures.
- For more information on what data is and is not available before
- od_init() has been called, please refer to the chapter on the
- OpenDoors control structure, which begins on page 148.
-
- The od_init() function will read the door information file which
- is located in the directory specified by the variable
- od_control.info_path. If this variable has not been set prior to
- calling the od_init() function, OpenDoors will expect to find
- the door information file in the current directory. Thus, if you
- wish your door to be able to be run in a directory other than
- the BBS system directory, it would be a good idea to allow the
- sysop using your door to specify the location of the door
- information file. For an example of setting the
- od_control.info_path variable, please see the example program
- located on page 150.
-
- Also note that you can prevent the od_init() function from
- carrying out some of it's normal activities, such as attempting
- to read a door information file, by the use of the
- od_control.od_disable variable, as described in the section on
- the OpenDoors control structure, which begins on page 148.
-
-
-SEE ALSO od_exit()
-
-
-EXAMPLE At times, you may wish to write a door program which will
- require a maintenance utility to be run on a regular basis. For
- example, a game door may have to have its system files updated
- on a daily basis, by having a utility program run in a system
-===============================================================================
-OpenDoors 6.00 Manual End of Page 92
-
- event each day at midnight. One way of accomplishing this would
- be to have your door package include two .EXE files, one being
- the actual door program, and the other being a utility program.
- However, another option would be to have both the door and
- maintenance functions to be accessible from a single .EXE file,
- in order to simplify use of the door for the sysop. In this
- case, you would want to test the command line to determine
- whether your program should run in door mode or maintenance
- mode. You would then only execute the od_init() function, along
- with the rest of your door code, if you program were running in
- "door mode".
-
- The program below demonstrates one method of doing just this. In
- this case, the program would include two functions, door(),
- which would carry out all of the door-related activities, and
- maint(), which would carry out all of the maintenance-related
- activities. In this simple example, if the command line includes
- a "-M" or "/M", the program will run in maintenance mode,
- otherwise it will run in door mode. Also, if it is running in
- door mode, the program will take the first command-line
- parameter, if any, as a path to the location of the door
- information file.
-
-
- #include "opendoor.h"
-
- void door(void);
- void maint(void);
-
-
- int main(int argc, char *argv[])
- {
- int counter;
-
- /* Check any command line parameters for /M or -M */
- for(counter=1;counter<argc;++counter)
- {
- if((argv[counter])[1]=='m' || (argv[counter])[1]=='M')
- {
- maint(); /* Then carry out maintenance */
- exit(20); /* And exit */
- }
- }
- /* If there was no -M or /M, then run in door mode */
-
- /* If there are any command-line parameters take the first */
- /* as the path to the door information file */
- if(argc>1) strncpy(od_control.info_path,argv[1],59);
-
- od_init(); /* call the od_init() function */
- door(); /* Run the door portion of the program */
- od_exit(30,FALSE); /* Shutdown the door */
-===============================================================================
-OpenDoors 6.00 Manual End of Page 93
-
- }
-
-
- void maint(void)
- {
- ... /* Carry out maintenance activities here */
- }
-
-
- void door(void)
- {
- ... /* Carry out door activities here */
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 94
-
-OD_INPUT_STR()
--------------------------------------------------------------------------------
-
-PURPOSE Inputs a string from the user
-
-
-FORMAT void od_input_str(char *pszInput, INT nMaxLength,
- unsigned char chMin, unsigned char chMax);
-
-
-RETURNS N/A
-
-
-DESCRIPTION To perform string input within OpenDoors, one of two functions
- can be used, od_input_str() and od_edit_str(). The first
- function, od_input_str(), allows simple line input and editing,
- and can be used in ASCII, ANSI, AVATAR and RIP modes. The second
- function, od_edit_str(), allows many formatted input options,
- advanced line editing, and other features, but requires the use
- of ANSI, AVATAR or RIP graphics modes.
-
- The od_input_str() function allows you to input a string from
- the user. The string will be permitted to have up to the number
- of characters specified by the max_len parameter, and all
- characters must be between the values of the min_char and
- max_char parameters. This function will wait until the user
- presses the [Enter] key to finish inputting the string.
-
- The first parameter passed to this function should be a pointer
- to the string where the user's input should be stored. So, if
- you wanted to store a string of up to 30 characters inputted by
- the user, you might define this string as follows:
-
- char input_string[31];
-
- Notice here than the string must be long enough to hold the
- thirty characters which can be entered by the user, along with
- the additional "null" character which is used to indicate the
- end of a string in C. Hence, the length of the string should
- always be at least one greater than the total number of
- characters the user is permitted to enter, passed in the
- nMaxLength parameter.
-
- The second parameter passed to the od_input_str() function
- should be an integer value indicating the maximum number of
- characters which can be input by the user. For example, if this
- parameter had a value of 10, the user would be able to enter a
- string containing any number of characters up to and including
- 10 characters. If this parameter had a value of 1, the user
- would only be able to enter a single character. However, the
- user would be able to backspace, change the character, and press
- [Enter] when they were satisfied with their entry. Note that
-===============================================================================
-OpenDoors 6.00 Manual End of Page 95
-
- even if you only ask the od_input_str() function to input a
- single character, it will still expect a STRING to be passed to
- it, and will return a string with either zero or one character,
- followed by a null (string terminator) character.
-
- The third and fourth parameters passed to this function allow
- you to control what characters the user will be permitted to
- enter as part of the string. For example, you could set the
- minimum character to the '0' character and the maximum character
- to the '9' character, permitting the user to only enter numeric
- characters. On the other hand, you could permit the user to
- enter all ASCII characters in the range from 32 to 127. The
- od_input_str() function will permit characters in the range
- beginning with the character passed as minchar, up to and
- including the character passed as maxchar.
-
-
-SEE ALSO od_edit_str(), od_get_key(), od_clear_keybuffer()
-
-
-EXAMPLE Below are a number of examples of the use of the od_input_str()
- function in various applications:
-
- - To input a two character number (only digits from 0-9):
-
- od_input_str(string, 2, '0', '9');
-
- - To input a 35 character name (characters from Space to
- ASCII 127):
-
- od_input_str(string, 35, 32, 127);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 96
-
-OD_KERNEL()
--------------------------------------------------------------------------------
-
-PURPOSE The OpenDoors Central Control function.
-
-
-FORMAT void od_kernel(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION In the DOS version of OpenDoors, the od_kernel() function is
- responsible for many vital OpenDoors tasks, such as monitoring
- the carrier detect signal, monitoring the amount of time that
- the user has remaining, updating the status line, responding to
- sysop hotkeys, and reading characters which are received from
- the modem. The od_kernel() function is automatically called on a
- frequent basis by the other OpenDoors functions, so most often
- you will not need to be concerned with this function. However,
- in order that OpenDoors can carry out the activities mentioned
- above with a quick response, it is important that od_kernel(),
- or some other OpenDoors function be called at least once every
- second. Thus, if your program will be carrying out some
- processing, in which it will not be calling any OpenDoors
- functions for more than a second or so, you should call the
- od_kernel() function yourself. The example below demonstrates
- one method of doing just this.
-
- Note that if for some reason or other, it is not possible for
- your program to call the od_kernel() function, or any other
- OpenDoors functions for a period of several seconds, this will
- not cause your door to crash or fail in any way. The only
- problem will be that OpenDoors will not be able to respond to
- any action, such as the sysop pressing a function key, or the
- user dropping carrier, until such time as you next call
- od_kernel(), or some OpenDoors function. Hence, use of the
- od_kernel() function will improve the quality and response time
- of your program, but calling it or some OpenDoors function on a
- regular basis is not absolutely vital.
-
- This function has no effect in the Win32 version of OpenDoors.
-
-
-SEE ALSO od_sleep()
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 97
-
-OD_LIST_FILES()
--------------------------------------------------------------------------------
-
-PURPOSE Lists files in a particular file area (using FILES.BBS)
-
-
-FORMAT BOOL od_list_files(char *pszFileSpec);
-
-
-RETURNS TRUE if successful, FALSE if unsuccessful
-
-
-DESCRIPTION This function allows you to display a list of files available
- for download from a particular file area, as any BBS system
- would. The file names and descriptions are taken from the
- FILES.BBS located in the directory pointed to by pszFileSpec.
- Thus, to list the files available for download in
- C:\BBS\FILES\UPLOADS, simply:
-
- od_list_files("C:\\BBS\\FILES\\UPLOADS");
-
- OpenDoors uses a third-generation FILES.BBS format, that is
- compatible with other FILES.BBS formats, but adds some
- additional features. Each line in the FILES.BBS file lists a
- filename, along with it's description. Thus, a typical FILES.BBS
- file might look as follows:
-
- PKZ110.EXE PKZip file compressor, version 1.10
- ODOORS60.ZIP The newest version of OpenDoors
- REC*.ZIP A Record file
- C:\BBS\*.* All BBS files.
-
- When displayed, OpenDoors will list the size of each file found
- in the FILES.BBS file beside it's name, if the file is found. If
- the file does not exist, then a "[OFFLINE]" string is displayed
- in the file size column. Title lines may also be added to the
- FILES.BBS, by indenting them one or more columns. Thus, you
- could have something like:
-
- NEWEST UPLOADS
- ~~~~~~~~~~~~~~
- PKZ110.EXE PKZip file compressor, version 1.10
- ODOORS60.ZIP The newest version of OpenDoors
- REC*.ZIP A Record file
- C:\BBS\*.* All BBS files.
-
- In addition to this standard FILES.BBS format, OpenDoors will
- also permit wildcards to be used in FILES.BBS filenames (ie
- FNEWS???.*), or full directory paths to allow files from several
- different directories to be included in the same files area.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 98
-
- You may alter the colors used to display the various portions of
- the files list using the od_control variables:
- od_control.od_list_title_col
- od_control.od_list_name_col
- od_control.od_list_size_col
- od_control.od_list_comment_col
- od_control.od_list_offline_col
-
- which are documented in the OpenDoors control structure section
- on this manual, which begins on page 148.
-
-
-SEE ALSO od_send_file()
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 99
-
-OD_LOG_WRITE()
--------------------------------------------------------------------------------
-
-PURPOSE Function to write an entry to the log file
-
-
-FORMAT BOOL od_log_write(char *pszMessage);
-
-
-RETURNS TRUE on success, or FALSE on failure
-
-
-DESCRIPTION This function can be used to write entries to the log file. If
- the logfile has not already been opened when you call this
- function for the first time, OpenDoors will automatically open
- the log file at that time.
-
- To create an entry in the log file, simply call the
- od_log_write() function, passing to it the string of the text
- you wish to write. You should not include any control characters
- in this string, simply the text that should appear on the line.
- OpenDoors will automatically format the log file, adding the
- time information and other control characters. It is recommended
- that the length of the string passed to od_log_write() not
- exceed 67 characters, in order that logfile lines will all be
- less than 80 characters in length.
-
- Log file entries do not usually contain periods or other
- punctuation at the end of the line. Also, log file entries are
- usually written in the present tense. The first character of the
- entry is usually upper-case, with all other entries in lower
- case. Also, since excessive numbers or lengths of log file
- entries can quickly use a lot of disk space, it is best to think
- carefully about what events should be recorded in the log file.
- It is also a good idea to minimize the number of words used in
- the entry, without being too cryptic. As an example, "User
- entering options menu" should be used instead of "user entered
- the options menu."
-
-
-SEE ALSO Page 224.
-
-
-EXAMPLE Calling the od_log_write() function is as simple as follows:
-
- od_log_write("Awarding user with 5 minutes more time");
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 100
-
-OD_MULTILINE_EDIT()
--------------------------------------------------------------------------------
-
-PURPOSE Provides a multiple line text editor which can be used for
- entering editing any text that spans more than one line, such as
- messages or text files.
-
-
-FORMAT INT od_multiline_edit(char *pszBufferToEdit, UINT unBufferSize,
- tODEditOptions *pEditOptions);
-
-
-RETURNS OD_MULTIEDIT_SUCCESS on success, or OD_MULTIEDIT_ERROR on
- failure
-
-
-DESCRIPTION This function provides a text editor with optional word wrap
- capabilities. This editor can be used for entering or editing
- text files, messages or other information that spans multiple
- lines. The editor can be configured to operate in full-screen
- mode, or to occupy any smaller area of the screen that you
- specify. It provides the navigation (home / end / page up / arrow
- keys) features and editing features (insert / overwrite mode,
- Ctrl-Y to delete a line, etc.) that you would expect.
-
- The od_multiline_edit() function is designed to be both easy to
- use and very flexible. To that end, the function only takes three
- parameters. The first two parameters are required, and the third
- parameter is an optional options structure. The first parameter,
- pszBufferToEdit, is a pointer to the buffer of text to edit. This
- buffer must always be a '\0'-terminated string. This buffer must
- be initialized before calling od_multiline_edit(). The second
- parameter, unBufferSize, indicates the size of the buffer that is
- passed in pszBufferToEdit. Note that this should be the total
- amount of space that is available in the buffer for text entered
- by the user, not the length of data that is actually initially in
- the buffer. If you do not wish to customize any of the
- od_multiline_edit() options, then you may simply set the third
- parameter to 0. Hence, a simple example of how to use
- od_multiline_edit() is:
-
- char szMyEditBuffer[4000] = "";
- od_multiline_edit(szMyEditBuffer, sizeof(szMyEditBuffer),
- NULL);
-
- If you wish to customize od_multiline_edit(), you should pass a
- pointer to a tODEditOptions structure as the third parameter. You
- should initialize this entire structure to zeros before
- attempting to use it. You can then set any values of this
- structure which you wish to change from their default. Any values
- that are left at 0 will automatically revert to their defaults.
- For example, if you wanted to specify a text format other than
-===============================================================================
-OpenDoors 6.00 Manual End of Page 101
-
- the default, you could create, initialize and pass in a
- tODEditOptions structure as follows:
-
- char szMyEditBuffer[4000] = "";
- tODEditOptions MyEditOptions;
- memset(&MyEditOptions, 0, sizeof(MyEditOptions));
- MyEditOptions.TextFormat = FORMAT_LINE_BREAKS;
- od_multiline_edit(szMyEditBuffer, sizeof(szMyEditBuffer),
- &MyEditOptions);
-
- The definition of the tODEditOptions structure is as follows:
-
- typedef struct
- {
- INT nAreaLeft;
- INT nAreaTop;
- INT nAreaRight;
- INT nAreaBottom;
- tODEditTextFormat TextFormat;
- tODEditMenuResult (*pfMenuCallback)(void *pUnused);
- void * (*pfBufferRealloc)(void *pOriginalBuffer,
- UINT unNewSize);
- DWORD dwEditFlags;
- char *pszFinalBuffer;
- UINT unFinalBufferSize;
- } tODEditOptions;
-
- nAreaLeft, nAreaTop, nAreaRight, nAreaBottom allows you to
- specify the portion of the screen that the text editor should
- use. This defaults to 1, 1 - 80, 23.
-
- TextFormat allows you to specify what format the text should be
- stored in the buffer using. The default is
- FORMAT_PARAGRAPH_BREAKS, which specifies that a line break only
- appears at the end of each paragraph, and that the contents of a
- paragraph are word wrapped. FORMAT_LINE_BREAKS specifies that a
- line break appears at the end of each line of text on the screen,
- and that newly entered text is word wrapped. FORMAT_NO_WORDWRAP
- is equivalent to FORMAT_LINE_BREAKS, except that newly entered
- text is not word wrapped. Instead, lines may be arbitrarily long.
- For each of these text formats, od_multiline_edit() automatically
- decides whether line breaks should take the form of a carriage
- return ('\r'), line feed ('\n'), or some combination of these,
- based on what it sees in the buffer that you supply. If no line
- breaks are found in the buffer, then the default is to use just a
- line feed ('\n') character. FORMAT_FTSC_MESSAGE specifies a FTSC-
- compliant message, such as is used in a *.MSG message file. Among
- other things, this specifies that carriage returns ('\r') end
- paragraphs, and that line feeds ('\n') should be ignored.
-
- pfMenuCallback allows you to provide a callback function that
- will be called when the user presses the escape (or control-Z)
-===============================================================================
-OpenDoors 6.00 Manual End of Page 102
-
- key. This allows you to provide a menu that can be accessed from
- within the text editor. This function should return
- EDIT_MENU_DO_NOTHING if the editor should continue normally, or
- EDIT_MENU_EXIT_EDITOR if the od_multiline_edit() should return.
- If no menu callback function is provided, then
- od_multiline_edit() always returns when the escape or control-z
- key is pressed.
-
- pfBufferRealloc allows you to provide a function which will
- attempt to reallocate a larger buffer if the user enters more
- text than will fit in the originally supplied buffer. You should
- only do this if you have dynamically allocated the buffer that
- you initially passed into od_multiline_edit(). If you allocated
- the buffer using malloc() or calloc(), then pfBufferRealloc can
- be set to point to the realloc() function. If you allocated the
- buffer using the C++ new operator, then you must write a your own
- reallocation function which obeys the same semantics as the C
- realloc() function. If no buffer reallocation function is
- provided, then od_multiline_edit() will never allow the user to
- enter more text than will fit in the buffer that you initially
- supply. If you are using the buffer reallocation option, you can
- obtain a pointer to the final buffer, and the size of the final
- buffer, from the pszFinalBuffer and unFinalBufferSize members.
-
-
-SEE ALSO od_input_str(), od_edit_str(), od_get_input()
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 103
-
-OD_PAGE()
--------------------------------------------------------------------------------
-
-PURPOSE Function to allow user to page the sysop
-
-
-FORMAT void od_page(void);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function can be called to allow the user to page the sysop.
- This function will ask the user why they wish to chat with the
- sysop, and then page the sysop. The sysop will then be free to
- break into chat at any time. Sysop paging will also be aborted
- by the user, simply by pressing [Enter] when asked for a reason
- for chat. When the user pages the sysop, the [Wants-Chat]
- indicator will begin to flash on the main status line, and the
- status line will switch to show the user's reason for wanting to
- chat. Also, the user's total number of pages will be
- incremented.
-
- Depending upon the setting of the od_control.od_okaytopage
- variable, this function will also optionally check sysop paging
- hours, and only allow the user to page the sysop during valid
- paging hours. For information on the variables containing the
- user's total number of pages, the user's want-chat status, valid
- sysop paging hours, and the od_control.od_okaytopage variable,
- see the section on the OpenDoors control structure, which begins
- on page 148.
-
-
-EXAMPLE For an example of the use of the od_page() function, see the
- EX_VOTE.C example program, which is described beginning on page
- 38.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 104
-
-OD_PARSE_CMD_LINE()
--------------------------------------------------------------------------------
-
-PURPOSE Handles standard command line options.
-
-
-FORMAT Under DOS Version:
- void od_parse_cmd_line(INT nArgCount, char *papszArguments[]);
-
- Under Win32 Version:
- void od_parse_cmd_line(LPSTR pszCmdLine);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This is the only OpenDoors function that uses a different
- calling format in the DOS and Win32 versions of OpenDoors. The
- reason for this is that od_parse_cmd_line() always allows you to
- pass command line parameters in the same format that the
- operating system passes them to you. Under the DOS version of
- OpenDoors, you should pass the argc and argv values that were
- passed to your main function as the two parameters to
- od_parse_cmd_line(). Under the Win32 version of OpenDoors, you
- should pass the pszCmdLine values that were passed to your
- WinMain() function as the one parameter to od_parse_cmd_line().
-
- The od_parse_cmd_line() function should be called before your
- first call to any other OpenDoors function, with the possible
- exception of the od_add_personality() function.
-
- It is recommended that any program which uses OpenDoors call
- od_parse_cmd_line() as part of its startup procedure. This
- allows your program to automatically handle many common command
- line options that will make it easier to setup and run your
- program. Among the helpful command line options processed by
- od_parse_cmd_line() are options to set serial port information
- (including information on non-standard serial port setups),
- specify the location of configuration and drop files, force the
- program to run in silent mode (without no local display), pass
- in user information, and the ability to start the program in
- local mode without a drop file. For a complete list of the
- options supported by od_parse_cmd_line(), run the example Vote
- door that is included in the OpenDoors packages, specifying -
- help on the command line.
-
- If you wish to process your own command line parameters in
- addition to those supported by OpenDoors, simply check the
- command-line for your own parameters after calling
- od_parse_cmd_line(). You can do this in the same way that you
- would handle command line options if you weren't using
- od_parse_cmd_line(). The od_parse_cmd_line() function does not
-===============================================================================
-OpenDoors 6.00 Manual End of Page 105
-
- generate an error message if it encounters unrecognized command
- line options. You can supply your own text to display when the
- user chooses the /Help option by setting
- od_control.od_cmd_line_help to point to your own string. Separate
- lines in your string with the \n character, and align text using
- the \t character.
-
-
-SEE ALSO od_init()
-
-
-EXAMPLE The following example shows how a program that uses
- od_parse_cmd_line() should be structured in order to compile
- under either DOS or Win32 versions of OpenDoors:
-
- #include "opendoor.h"
-
- /* main() or WinMain() function - Program begins here. */
- #ifdef ODPLAT_WIN32
- int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
- #else
- int main(int argc, char *argv[])
- #endif
- {
- #ifdef ODPLAT_WIN32
- #endif
-
- /* Set program's name for use by OpenDoors. */
- #ifdef ODPLAT_WIN32
- /* In Windows, pass in nCmdShow value to OpenDoors. */
- od_control.od_cmd_show = nCmdShow;
-
- /* Call od_parse_cmd_line. */
- od_parse_cmd_line(lpszCmdLine);
- #else
- od_parse_cmd_line(argc, argv);
- #endif
-
-
- /* Start the rest of your program here. */
-
-
- }
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 106
-
-OD_POPUP_MENU()
--------------------------------------------------------------------------------
-
-PURPOSE Creates a popup menu which allows the user to make a selection
- by pressing a single key, or selecting the item with a highlight
- bar. After the user has made a selection, the menu may be
- removed from the screen, restoring the original screen contents
- "beneath" the window.
-
-
-FORMAT INT od_popup_menu(char *pszTitle, char *pszText, INT nLeft,
- INT nTop, INT nLevel, WORD uFlags);
-
-
-RETURNS POPUP_ERROR On error (od_control.od_error is set to
- indicate type of error).
- POPUP_ESCAPE If user exited menu by pressing [ESCape].
- POPUP_LEFT If user exited menu by pressing the left arrow
- key.
- POPUP_RIGHT If user exited menu by pressing the right arrow
- key.
-
- Or, a postive integer indicating the menu item that was chosen
- if a selection was made.
-
-
-DESCRIPTION od_popup_menu() creates a popup window with a menu of choices,
- for use in ANSI/AVATAR/RIP modes. The user is able to choose an
- item from the menu by moving the highlighted selection bar with
- the arrow keys, or by pressing a key associated with a
- particular menu item. The contents of the menu are defined by
- the string pointed to by the pszText parameter. This menu
- definition string contains each menu option, separated by a '|'
- (pipe) character. Keys associated with each menu entry can be
- defined by proceeding the letter with a '^' (carat) character.
- For example, the string:
-
- "^Save|^Load|E^xit"
-
- would produce a menu with three options: Save, Load and Exit.
- The user would be able to select the Save option by pressing the
- [S] key, the Load option by pressing the [L] key, and the Exit
- option by pressing the [X] key. Furthermore, the characters
- corresponding to each menu item would be displayed in a
- highlighted color.
-
- Menus displayed with od_popup_menu() may optionally have a
- title, as specified by the pszTitle parameter. If this parameter
- is set to NULL, no title will be displayed. If this parameter is
- not NULL, the specified string will be displayed as a title on
- the window.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 107
-
- The nLeft and nTop parameters specify the left and top locations
- of the menu window, were 1, 1 is the upper right corner of the
- screen. The bottom and right corners of the menu are
- automatically determined by the size and number of menu entries
- in the menu definition string.
-
- The nLevel parameter specifies the menu level, an integer from 0
- to 10. Unless you are using the MENU_KEEP flag, this parameter
- can always be 0.
-
- The uFlags parameter specifies one or more of the following
- options, joined by the bitwise-OR operator (|).
-
- MENU_NORMAL Has no effect.
- MENU_ALLOW_CANCEL Allow user to exit menu with [ESCape].
- MENU_PULLDOWN Allow exit with arrow keys.
- MENU_KEEP Leave menu active on selection.
- MENU_DESTROY Remove a currently active menu.
-
- If you are not using any of the other flags, you can use
- MENU_NORMAL as a place-holder for this parameter. If you specify
- MENU_ALLOW_CANCEL, the user will be able to exit the menu
- without making a selection by pressing the [ESCape] key. If the
- user presses [ESCape], od_popup_menu() returns POPUP_ESCAPE.
-
- You can use the MENU_PULLDOWN option with od_popup_menu() to
- implement a set of pulldown menus. In this case, if the user
- presses the left arrow key or right arrow key while the menu is
- being displayed, od_popup_menu() returns with POPUP_LEFT or
- POPUP_RIGHT, allowing you to display a different menu.
-
- Normally, od_popup_menu() will remove the menu from the screen
- as soon as the user makes a selection. However, there may be
- some cases when you want the menu to continue to be visible
- after the user makes a selection. For example, you may want some
- menu options to lead to further sub-menus, or you may wish to
- display a popup window, and return to this menu after the user
- has exited from the popup window. If the MENU_KEEP flag is
- specified, the menu will remain active (on-screen) after the
- user makes a selection. However, the menu will still be
- destroyed if the user cancels out of the menu (this will only
- happen if you have specified MENU_ALLOW_CANCEL), or if the user
- moves to another menu by pressing the left or right arrow keys
- (this will only happen if you have specified MENU_PULLDOWN). If
- MENU_KEEP has been specified, and the user makes a selection,
- you must eventually either return to the menu, or destroy it by
- calling MENU_DESTROY. If you want to return to the menu, simply
- call od_popup_menu() again with the same level value that was
- used to originally create the menu. The user will now be able to
- make another selection from the menu, and od_popup_menu() will
- once again return that selection to you. If you want to destroy
- the menu, simply call od_popup_menu() with the MENU_DESTROY flag
-===============================================================================
-OpenDoors 6.00 Manual End of Page 108
-
- set, and the same level value that was used to create the
- original menu. If you wish to create another popup menu while
- the first one is still active, simply call od_popup_menu()
- again, this time with a different level value. The colors used
- by the od_popup_menu() function are set by the following
- OpenDoors control structure settings:
-
- char od_control.od_menu_title_col;
- char od_control.od_menu_border_col;
- char od_control.od_menu_text_col;
- char od_control.od_menu_key_col;
- char od_control.od_menu_highlight_col;
- char od_control.od_menu_highkey_col;
-
-
-SEE ALSO od_window_create(), od_window_remove(), od_draw_box(),
- od_hotkey_menu()
-
-
-EXAMPLE The following example shows the use of multiple-level menus:
-
- #include <stdlib.h>
- #include "opendoor.h"
- main()
- {
- for(;;)
- {
- switch(od_popup_menu("Main Menu",
- "^Files|^Electronic Mail|^News|E^xit",
- 20, 5, 0, MENU_NORMAL | MENU_KEEP))
- {
- case 1:
- od_popup_menu("Files Menu",
- "^Search For Files|^Download|^Upload",
- 30, 7, 2, MENU_NORMAL | MENU_ALLOW_CANCEL);
- break;
- case 2:
- od_popup_menu("EMail Menu",
- "Get ^New Mail|^Send Mail|Send ^Fax",
- 30, 8, 1, MENU_NORMAL | MENU_ALLOW_CANCEL);
- break;
- case 3:
- od_popup_menu("News Menu",
- "Choose News^Group|^Read News|^Post News",
- 30, 9, 1, MENU_NORMAL | MENU_ALLOW_CANCEL);
- break;
- case 4:
- od_popup_menu(NULL, NULL, 0, 0, 0, MENU_DESTROY);
- return(0);
- }
- }
- }
-===============================================================================
-OpenDoors 6.00 Manual End of Page 109
-
-OD_PRINTF()
--------------------------------------------------------------------------------
-
-PURPOSE Performs formatted output (remote & local), with the ability to
- change display colors.
-
-
-FORMAT void od_printf(char * pszFormat,...);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This is one of two OpenDoors function which allows you to
- display a string of characters, the other being the
- od_disp_str() function. For a complete comparison of the various
- OpenDoors display function, see the description of the
- od_disp_str() function, on page 63. Like the od_disp_str()
- function, the od_printf() function will display its output both
- on the local screen, and on the remote user's screen (if the
- door is not operating in local mode). However, the od_printf()
- function also allows for formatted output, just as the printf()
- function does. In addition to providing all of the features of
- the normal C printf() function, the od_printf() function allows
- you to include codes to change the color of the display of text.
- This unique feature allows you to display multi-colored text,
- without having to use chains of alternating od_disp_str() and
- od_set_color() calls.
-
- As with the printf() function, the od_printf() function accepts
- one or more parameters, the first parameter being the format
- string to be displayed, and the additional parameters being data
- to be displayed within the string. The OpenDoors od_printf()
- function recognizes all of the control characters and options
- recognized by the normal printf() function. For example, to
- display the amount of time that a user has left online, the
- following line would be a valid use of the od_printf() function:
-
- od_printf("Time Left:%d\n\r", od_control.user_timelimit);
-
- Note that a full discussion of the printf() function is beyond
- the scope of this manual. For more information on using
- printf(), please see your Turbo C(++) / Borland C++ manuals.
-
- In addition to the normal control sequences, such as "%s", "%d",
- or "%12.12s", the od_printf() function also allows you to
- include special color-setting codes within the format string.
- These color code sequences BEGIN and END with a delimiter
- character, which is used to indicate that the sequence is a
- color setting. Consider, for example, the following line of
- code, which displays text in various colors:
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 110
-
- od_printf("`blue`Blue `green`Green `red`Red \n\r");
-
- In this case (assuming of course that a color monitor is being
- used) the word "Blue" will be displayed in the color blue, the
- word "Green" will be displayed in the color green, and the word
- "Red" will be displayed in the color red. In this case, the
- sequence `blue` sets the display color to dark blue on black.
- Here, the back-quote (`) is the delimiter character which
- indicates the beginning and end of the color sequence. Be sure
- not to confuse the back-quote character (`) with the normal
- forward quote ('). THIS IS THE MOST COMMON DIFFICULTY
- EXPERIENCED WITH THE OD_PRINTF() FUNCTION. The text between the
- back-quote characters indicates the color that should be set.
- This text can include the name of the foreground color, the name
- of the background color, the "bright" keyword and the "flashing"
- keyword. The first color mentioned is taken to be the foreground
- color, and the second the background color. Case is not
- sensitive, additional words can be included for legibility.
- Thus:
-
- `bright white cyan`
-
- is equivalent to:
-
- `Bright white on a cyan background`.
-
- The "bright" keyword indicates that the foreground color should
- be displayed in high intensity, and the "flashing" keyword
- indicates that the text should be flashing. If no background is
- specified, the background color defaults to black. If no
- foreground or background colors are specified, the color
- defaults to white on black.
-
- The od_printf() function will automatically determine whether
- the user has ANSI, AVATAR or RIP graphics enabled, and will send
- the appropriate color codes to change the color of displayed
- text. If the user does not have either ANSI or AVATAR graphics
- modes turned on, then the od_printf() function will not send any
- color codes. Thus, a door program using color codes would work
- just as well when ANSI/AVATAR/RIP graphics are not available,
- except that all text will appear in the same color.
-
- You may prefer to set colors by using the od_set_color() or
- od_set_attrib() functions, instead of using these cryptic color
- codes imbedded in od_printf() functions. In some cases, however,
- it will be much more advantageous to place the color codes
- within your od_printf() strings. As a case in point, consider
- the single od_printf() statement in the example, above. To
- accomplish the same result using the od_disp_str() and
- od_set_color() functions, you would have to use the following
- SIX function calls:
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 111
-
- od_set_color(D_BLUE,D_BLACK);
- od_disp_str("Blue ");
- od_set_color(D_GREEN,D_BLACK);
- od_disp_str("Green ");
- od_set_color(D_RED,D_BLACK);
- od_disp_str("Red \n\r");
-
- While this method MAY be easier understand, it certainly
- requires many more line of code to accomplish. However, either
- method will work, and the choice is up to you as to which method
- you prefer. Keep in mind, however, that if the color to be set
- is stored in a variable, instead of always being the same color,
- you must use either the od_set_color() or od_set_attrib()
- function to set the display color.
-
- While the back-quote (`) character is normally used to delimit a
- color sequence in the od_printf() function, you may wish to be
- able to print a back-quote character using the od_printf()
- function. In this case, you may configure OpenDoors to use a
- different character to represent color code sequences. To do
- this, simply use the od_control.od_color_delimiter variable,
- which is described in the OpenDoors control structure section,
- beginning on page 148. For example, if you wished to use the
- tilde (~) character instead of the back-quote character to
- change colors, simply place the following line within your
- program, at some point after having called od_init() or some
- OpenDoors function:
-
- od_control.od_color_delimiter='~';
-
- Also, you may disable the color code interpretation within the
- od_printf() function altogether, by setting the
- od_control.od_color_delimiter variable to 0.
-
- Note that the od_printf() function interprets the color codes
- AFTER parsing the other control sequences, such as "%d" or "%s".
- Thus, if you used the command:
-
- od_printf("%s",string);
-
- Any color codes contained in the string "string" would also be
- interpreted. If you did not wish to have any color code
- characters which might be contained in the string "string"
- treated as such, you could again disable od_printf()'s color
- code interpretation, by setting the od_control.od_color_char
- variable to 0.
-
- Note that the string to be displayed by od_printf() should not
- exceed 511 characters in size, including the size of color
- sequences and expanded % fields.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 112
-
-SEE ALSO od_disp_str(), od_disp(), od_putch(), od_repeat(), od_disp_emu()
-
-
-EXAMPLE Below is a simple example of a user statistics door program,
- which displays various pieces of information to the user, by
- using the od_printf() function. Notice the use of color code
- sequences in order to display the titles in a different color
- from the information fields. Note that since the information
- available to this door will depend on the BBS system under which
- it is running, not all of the information displayed by this door
- will be available under all BBS systems. For a description of
- what information is available under what BBS systems, see the
- OpenDoors control structure portion of this manual, which begins
- on page 148.
-
-
-#include "opendoor.h"
-
-int main(int argc,char *argv[])
- {
- od_init(); /* Begin OpenDoors program */
-
- od_printf("`bright white` YOUR STATISTICS\n\r"); /* Display title */
- od_printf("---------------\n\r\n\r");
-
- /* Display statistics */
- od_printf("`red`NAME : `blue`%s\n\r",od_control.user_logintime);
- od_printf("`red`LOCATION : `blue`%s\n\r",od_control.user_location);
- od_printf("`red`PHONE NUMBER : `blue`%s\n\r",od_control.user_homephone);
- od_printf("`red`LAST CALL : `blue`%s\n\r",od_control.user_lastdate);
- od_printf("`red`NUMBER OF CALLS : `blue`%u\n\r",od_control.user_numcalls);
- od_printf("`red`NUMBER OF PAGES : `blue`%u\n\r",od_control.user_numpages);
- od_printf("`red`REMAINING TIME : `blue`%d\n\r",od_control.user_timelimit);
- od_printf("`red`# OF DOWNLOADS : `blue`%u\n\r",od_control.user_downloads);
- od_printf("`red`# OF UPLOADS : `blue`%u\n\r",od_control.user_uploads);
- od_printf("`red`KBYTES DL TODAY : `blue`%u\n\r",od_control.user_todayk);
-
- /* Ask user to press [Enter] */
- od_printf("`bright green on green`Press [Enter] to return to BBS...\n\r");
-
- while(od_get_key(TRUE)!=13); /* Wait for user to press [Enter] */
-
- od_exit(20,FALSE); /* Return to BBS */
- }
-
-
-HELPFUL This section demonstrates use of the od_printf() color
-HINT sequences imbedded directly in the printf() format string, such
- as:
-
- od_printf("Hello `bright green` there!");
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 113
-
- However, there are also other ways that you can take advantage
- of this feature. For example, the C programming language
- concatenates string constants that are separated only by white
- space or carriage returns. For instance,
-
- "Hello " "`bright green`" " there!"
-
- is equivalent to:
-
- "Hello `bright green` there!"
-
- For this reason, you can create macros for common color
- sequences in your program, such as:
-
- #define HIGHLIGHT "`bright green`"
-
- You can then use such constants when calling the od_printf()
- function, as follows:
-
- od_printf("Hello " HIGHLIGHT " there!");
-
- You may find this method of setting the display color to be
- easier to read, and more easily configurable than including the
- color sequence directly in the format string. Below another use
- of the color sequences is describe, which allows the colors used
- by od_printf() not be "hard-wired".
-
-
- Since color control sequences are evaluated by od_printf() after
- it evaluates all format sequences (such as "%d"). For this
- reason, it is possible to change the display color using a
- string variable, instead of using a fixed color in the string.
- For example, if you program had the variable:
-
- char highlight[40];
-
- which was set at some point to be equal to:
-
- "`bright green`"
-
- you would be able to use od_printf() as follows:
-
- od_printf("Hello %s there!", highlight);
-
- The display color would then be changed at the location where
- the "%s" appears in the od_printf() format string. The advantage
- of using this method to change display colors is that unlike
- other methods, the value of the highlight variable can be
- changed. This could be used, for example, to allow the sysop to
- configure the colors they wish your door to use. You would only
- need to change the value of the highlight variable in order to
- change the color set by od_printf().
-===============================================================================
-OpenDoors 6.00 Manual End of Page 114
-
-OD_PUTCH()
--------------------------------------------------------------------------------
-
-PURPOSE Function to display a single character.
-
-
-FORMAT void od_putch(int chToDisplay);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function performs a similar function to the other OpenDoors
- display functions. For information on the uses of the various
- OpenDoors display functions, see the description of the
- od_disp_str() function, on page 63. This function is most
- similar to the od_disp() and od_disp_str() functions, except
- that it only displays a single character at a time.
-
- This function will display the character passed to it at the
- cursor position in the output window, and then advance the
- cursor to the next display position. If OpenDoors is not
- operating in local mode, the character will also be sent to the
- modem, and thus displayed on the user's screen in the same
- manner that it is displayed on the local screen. If ANSI, AVATAR
- or RIP graphics mode is activated the character will be
- displayed in the current color.
-
-
-SEE ALSO od_disp_str(), od_disp(), od_printf(), od_repeat(),
- od_disp_emu()
-
-
-EXAMPLE Below is an example of the use of the od_putch() function. This
- example is a function which you could use in place of the
- od_get_key() function. This function inputs a single character
- from the keyboard, just as the od_get_key() function does.
- However, if the character entered is a printable character, the
- function will also echo the character to the local screen, using
- the od_putch() function.
-
- char get_key_with_echo(int wait)
- {
- char pressed=od_get_key(wait); /* Get key from user */
-
- if(pressed>=32 && pressed<=126) /* If key is printable */
- {
- od_putch(pressed); /* Display the character */
- }
-
- return(pressed); /* Return key pressed by user */
- }
-===============================================================================
-OpenDoors 6.00 Manual End of Page 115
-
-OD_PUTTEXT()
--------------------------------------------------------------------------------
-
-PURPOSE Displays a rectangular region of text and color information, as
- previously stored using od_gettext()
-
-
-FORMAT BOOL od_puttext(INT nLeft, INT nTop, INT nRight, INT nBottom,
- void *pBlock);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION This function "pastes" a rectangular block of text and color
- information that has been previously retrieved using
- od_gettext(). The block is placed at the screen location
- indicated by the variables nLeft, nTop, nRight and nBottom,
- where nLeft and nRight are column numbers from 1 - 80, and nTop
- and nBottom are row numbers from 1 - 23. The length and width of
- the rectangle specified by nLeft, nTop, nRight and nBottom must
- be the same as the length and width of the rectangle passed to
- od_gettext() when storing the block of text.
-
- This function attempts to display the pasted block as quickly as
- possible, only transmitting information on portions of the block
- that are different than the original screen contents. When this
- function returns, it leaves the cursor at its original position,
- and the display color at its original setting. This function
- requires ANSI or AVATAR mode.
-
- The control structure variable od_control.od_full_put may be set
- to TRUE to force od_puttext() to always send all characters in
- the block to be displayed, instead of only displaying the
- portions of the block that differ from the original screen
- contents. If you wish to save and restore the entire screen, you
- can use od_save_screen() and od_restore_screen(), which work in
- all display modes.
-
- You may also use the od_puttext() to display a rectangular block
- of text that you generate manually, instead of retrieving using
- od_gettext(). To do this, you pass an array which contains the
- text and color information for the rectangular area to be
- painted, in the pBlock parameter. The array passed to
- od_puttext() contains a two-byte sequence of information for
- each character in the rectangle. The first byte contains the
- ASCII code of the character to be displayed. The second byte
- contains the color attribute value of the character, in the same
- format as used by the od_set_attrib() function (described on
- page 128). These two byte sequences are stored in the order in
- which English is written; the array begins with the two byte
-===============================================================================
-OpenDoors 6.00 Manual End of Page 116
-
- sequences for all of the characters on the first line, from left
- to right, followed by the characters for the second line, and so
- on. The length of each line must be exactly equal to the width
- of the rectangular region to be painted.
-
-
-SEE ALSO od_gettext(), od_save_screen(), od_restore_screen(),
- od_scroll(), od_window_create(), od_window_remove()
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 117
-
-OD_REPEAT()
--------------------------------------------------------------------------------
-
-PURPOSE Repeatedly display the specified character any number of times,
- using special graphics codes for greater speed, if possible.
-
-
-FORMAT void od_repeat(char chValue, BYTE btTimes);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This display function will repeatedly display the character
- chValue, btTimes times. For a complete breakdown of the various
- OpenDoors display functions, see the description of the
- od_disp_str() function, located on page 63.
-
- The advantage of using this function to display a series of
- identical characters is that this function will use special
- graphics-mode control sequences to display the repeated
- character very efficiently, if the required graphics mode is
- available. For example, in AVATAR mode, this function can
- display an entire line of one character, by sending a control
- sequence to the modem that is only three characters long. If
- graphics mode is not turned on, then the od_disp_str() function
- will simply send the specified character the appropriate number
- of times. As with the other display functions, the output of
- this function is sent to both the local and remote screens.
-
-
-SEE ALSO od_putch(), od_disp_str(), od_disp(), od_printf(), od_disp_emu()
-
-
-EXAMPLE The example function below demonstrates the use of the
- od_repeat() function in drawing a window (a square box) on the
- screen. This function is essentially a simplified version of the
- od_draw_box() function, which is described on page 65. Unlike
- this function, the od_draw_box() function allows the
- customization of the characters used to draw the box's boarder,
- and if possible uses additional AVATAR graphics codes to display
- the window even faster than this function does. Thus, the
- function below is really provided for demonstration purposes
- only.
-
- This function accepts four parameters, which indicate the
- location of the upper left and lower right corners of the window
- to be displayed. The function then displays the window with the
- current color attribute settings. Since this function uses the
- od_repeat() function, if AVATAR graphics are available, it can
- display the entire window in a fraction of a second, even if it
- is displaying a window the size of the entire screen at slow
-===============================================================================
-OpenDoors 6.00 Manual End of Page 118
-
- baud rates. Note that this window display function requires that
- the user has ANSI, AVATAR or RIP graphics mode enabled.
-
- void draw_window(char left, char top, char right, char bottom)
- {
- char line_counter; /* Number of current line being drawn */
- char between_size=(right-left)-1; /* X size of window */
-
- od_set_cursor(top,left); /* move to top corner */
- od_putch(218); /* display corner character */
- od_repeat(196,between_size); /* display top line */
- od_putch(191); /* display corner character */
- /* loop through middle lines of window */
- for(line_counter=top+1;line_counter<bottom;++line_counter)
- {
- od_set_cursor(line_counter,left); /* move to line start */
- od_putch(179); /* display left line char */
- od_repeat(' ',between_size); /* display blank area */
- od_putch(179); /* display right line char */
- }
-
- od_set_cursor(bottom,left); /* move to bottom corner */
- od_putch(192); /* display corner character */
- od_repeat(196,between_size); /* display bottom line */
- od_putch(217); /* display corner character */
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 119
-
-OD_RESTORE_SCREEN()
--------------------------------------------------------------------------------
-
-PURPOSE Restores the screen contents as previous saved using the
- od_save_screen() function. This function can be used in any
- display mode.
-
-
-FORMAT BOOL od_restore_screen(void *pBuffer);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION This function restores the entire contents of the screen, along
- with the current cursor position and display color, which was
- previously stored using the od_save_screen() function. Unlike
- the od_get_text() and od_put_text() functions, the
- od_save_screen() and od_restore_screen() functions will work in
- all display modes (ASCII, ANSI, AVATAR and RIP).
-
- The pBuffer parameter must point to the buffer previously passed
- to od_save_screen(). Note that the od_save_screen() and
- od_restore_screen() functions save the stored information in
- different formats than the od_getttext() and od_puttext()
- functions. For this reason, you cannot save the screen contents
- with od_gettext() and restore them with od_restore_screen(), or
- visa-versa.
-
- If this function fails for any reason, a value of FALSE is
- returned, and the od_control.od_error variable is set to
- indicate the reason for the failure. For more information on the
- od_control.od_error variable, see page 185.
-
-
-SEE ALSO od_save_screen(), od_gettext(), od_puttext(), od_clr_scr()
-
-
-EXAMPLE For an example of how to use the od_restore_screen() function,
- see the example which accompanies the od_save_screen() function,
- on page 121.
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 120
-
-OD_SAVE_SCREEN()
--------------------------------------------------------------------------------
-
-PURPOSE Saves the contents of the screen, to later be restored using
- od_restore_screen(). Can be used in any display mode.
-
-
-FORMAT BOOL od_save_screen(void *pBuffer);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION This function saves the entire contents of the screen, along
- with the current cursor position and display color, to be later
- restored using the od_restore_screen() function. Unlike the
- od_get_text() and od_put_text() functions, the od_save_screen()
- and od_restore_screen() functions will work in all display modes
- (ASCII, ANSI, AVATAR and RIP).
-
- The pBuffer parameter should point to a buffer where the current
- screen information is to be stored. This buffer must be at least
- 4004 bytes in size.
-
- Note that the od_save_screen() and od_restore_screen() functions
- save the stored screen information in different formats than the
- od_getttext() and od_puttext() functions. For this reason, you
- cannot save the screen contents with od_save_screen() and
- restore them with od_puttext(), or visa-versa.
-
- Also, note that when used in RIP graphics mode, this function
- only saves and restores textual information, and not bit-mapped
- graphical information.
-
- If this function fails for any reason, a value of FALSE is
- returned, and the od_control.od_error variable is set to
- indicate the reason for the failure. For more information on the
- od_control.od_error variable, see page 185.
-
-
-SEE ALSO od_restore_screen(), od_gettext(), od_puttext(), od_clr_scr()
-
-
-EXAMPLE One case where you might wish to save and restore the contents
- of the screen is when sysop chat mode is activated. This can be
- accomplished by using the od_control.od_cbefore_chat and
- od_control.od_cafter_chat variables. The following example
- causes the screen contents to be saved and the entire screen
- cleared, prior to entering sysop chat mode when the sysop
- presses the "chat key". When the sysop ends chat mode, the
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 121
-
- user's original screen is restored, and the user will be able to
- continue working in the door as though nothing had happened.
-
- Code to perform screen saving and restoring:
-
- /* Function prototypes */
- void before_chat_function(void);
- void after_chat_function(void);
-
- /* Buffer to hold contents of screen prior to chat */
- char before_chat_buffer[4004];
- /* Variable to store whether screen save was successful */
- char before_chat_saved = FALSE;
-
- /* Function which is called prior to entering chat mode */
- void before_chat_function(void)
- {
- /* Store current screen contents */
- before_chat_saved = od_save_screen(before_chat_buffer);
-
- /* Present a blank screen for chat mode */
- od_clr_scr();
- }
-
- /* Function which is called after exiting chat mode */
- void after_chat_function(void)
- {
- /* If screen was successfully saved prior to chat */
- if(before_chat_saved)
- {
- /* Restore original screen contents */
- od_restore_screen(before_chat_buffer);
- }
- }
-
- Code included in main() function to enable screen saving and
- restoring code:
-
- od_control.od_cbefore_chat = before_chat_function;
- od_control.od_cafter_chat = after_chat_function;
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 122
-
-OD_SCROLL()
--------------------------------------------------------------------------------
-
-PURPOSE Scrolls any rectangular area of the screen a specified number of
- lines upwards or downwards. Requires ANSI/AVATAR/RIP graphics
- mode to be active.
-
-
-FORMAT BOOL od_scroll(INT nLeft, INT nTop, INT nRight, INT nBottom,
- INT nDistance, WORD nFlags);
-
-
-RETURNS TRUE on success
- FALSE on FAILURE
-
-
-DESCRIPTION This function scrolls a rectangular area of the screen described
- by the parameters nLeft, nTop, nRight and nBottom. The
- parameters nLeft and nRight are column numbers from 1 - 80, and
- the parameters nTop and nBottom are row numbers from 1 - 23.
-
- The parameter nDistance indicates the direction and number of
- lines to scroll the text in the specified area. Positive values
- denote moving the text upwards, and negative values denote
- moving the text downwards.
-
- The new lines created by scrolling text will appear in the
- current color. When this function returns, it leaves the cursor
- at its original position, and the display color at its original
- setting. This function requires ANSI or AVATAR modes. If ANSI
- mode is active, this function is equivalent to calling
- od_gettext(), od_puttext(), and then sending addition codes to
- the modem clear the newly created lines. In ANSI mode, scrolling
- can be accomplished more quickly if the area to be scrolled is
- equal in width to the entire screen. This is because the
- clearing of newly created lines is done by sending a simple
- control sequence, instead of a line of space characters. If
- AVATAR mode is active, scrolling of the window is accomplished
- by sending a single 6-byte control sequence.
-
- The last parameter to od_scroll(), nFlags, should normally be
- set to SCROLL_NORMAL. However, if you set nFlags to
- SCROLL_NO_CLEAR, the newly created lines at the top or bottom of
- the screen are not cleared if it would take longer to do so.
-
-
-SEE ALSO od_gettext(), od_puttext(), od_window_create(),
- od_window_remove()
-
-
-EXAMPLE For an example of a program which uses the od_scroll() function,
- see the ex_chat.c example program, described on page 38.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 123
-
-OD_SEND_FILE()
--------------------------------------------------------------------------------
-
-PURPOSE Sends an ASCII/ANSI/AVATAR/RIP file from disk, using terminal
- emulation.
-
-
-FORMAT BOOL od_send_file(char *pszFileName);
-
-
-RETURNS TRUE if the file was successfully sent
- FALSE if OpenDoors was unable to send the file
-
-
-DESCRIPTION: This powerful function will display any ASCII, ANSI, AVATAR or
- RIP file. The od_send_file() function can be used to display
- existing BBS text files, such as a "logoff screen", before your
- door hangs up on the user. You can also make use of the
- od_send_file() function to build many of your door screens as
- external files. This will allow you to easily create these
- screens in an ANSI editor program, such as "TheDraw". It will
- could also optionally allow sysops to customize your door for
- use on their own BBS.
-
- The od_send_file() function is called with the full path and
- filename of the file you wish to have displayed. Thus, if you
- wished to send the ANSI file MAINMENU.SCR, you would simply
- call:
-
- od_send_file("MAINMENU.SCR");
-
- In many cases, instead of having just one file that you want
- displayed in particular, you will have several different files,
- and will want a different one displayed according to the user's
- graphics mode. For example, you might have the four files,
- MAINMENU.ASC, MAINMENU.ANS, MAINMENU.AVT and MAINMENU.RIP; the
- .ASC file containing no special control codes, the .ANS file
- containing ANSI control codes, the .AVT file containing AVATAR
- control codes, and the .RIP file containing RIP graphics control
- codes. In this case, you can have the od_send_file() function
- automatically select the appropriate file according to the
- user's current display mode, by omitting the extension
- altogether. Thus, a call to:
-
- od_send_file("MAINMENU");
-
- would cause OpenDoors to automatically send the appropriate
- file, according to the user's graphics mode settings. When the
- od_send_file() function is used in this "automatic mode" (where
- you do not specify a filename extension), it will look for one
- of the four filename extensions listed below.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 124
-
- +----------------------------------------------------------+
- | Extension| File type |
- +----------+-----------------------------------------------|
- | .ASC | Does not require any graphics mode to display |
- | .ANS | Requires ANSI graphics mode to display |
- | .AVT | Requires AVATAR graphics mode to display |
- | .RIP | Requires RIP graphics mode to be displayed |
- +----------------------------------------------------------+
-
-
- If the user has RIP graphics enabled, od_send_file() will first
- search for the .RIP file. If no file exists with the specified
- filename and a .RIP extension, od_send_file() will then search
- for .AVT, then .ANS, and if not found .ASC. If the user has only
- ANSI graphics enabled, od_send_file() will attempt first to
- display the .ANS file, and if not found will search for .ASC. In
- the case that the user is using plain-ASCII mode, this function
- will attempt only to display the .ASC file.
-
- When displaying a .RIP file to the remote system, OpenDoors will
- attempt to locate and display a corresponding .AVT/.ANS/.ASC
- file on the local system. If no such file can be found, a window
- will be displayed, indicating the name of the .RIP file that is
- being sent to the remote system. When a .RIP file is being
- displayed, page pausing is disabled.
-
- When displaying .AVT/.ANS/.ASC files, od_send_file() will send
- any ANSI or AVATAR codes in the file directly to the remote
- terminal, and interpret them to display on the local screen
- (regardless of the actual filename extension). This
- interpretation is accomplished by OpenDoor's built in terminal
- emulator. The terminal emulator fully supports all ANSI and
- AVATAR level 0 and level 0+ control codes. The terminal emulator
- will also translate Remote Access/QuickBBS style control codes,
- if enabled by setting od_control.od_no_ra_codes to FALSE. The
- control codes supported by OpenDoors are listed in the chart on
- the following pages. When these control codes are inserted into
- the file, OpenDoors will replace them with various pieces of
- user or system information.
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 125
-
- +-----------------------------------------------------+
- | CONTROL | ASCII | |
- | CODE | VALUE | DESCRIPTION |
- +---------+-------+-----------------------------------|
- | ^FA | 06,65 | Displays the user's full name |
- | ^FB | 06,66 | Location the user is calling from |
- | ^FC | 06,67 | Displays the user's password |
- | ^FD | 06,68 | Business/data phone number |
- | ^FE | 06,69 | Home/voice phone number |
- | ^FF | 06,70 | Date of the user's last call |
- | ^FG | 06,71 | Time of day of the last call |
- | ^FH | 06,72 | The user's `A' flags settings |
- | ^FI | 06,73 | The user's `B' flags settings |
- | ^FJ | 06,74 | The user's `C' flags settings |
- | ^FK | 06,75 | The user's `D' flags settings |
- | ^FL | 06,76 | User's remaining netmail credit |
- | ^FM | 06,77 | Number of messages posted by user |
- | ^FN | 06,78 | Last read message number by user |
- | ^FO | 06,79 | Displays security level of user |
- | ^FP | 06,80 | Number of times user has called |
- | ^FQ | 06,81 | Total # of uploads by user |
- | ^FR | 06,82 | Total KBytes uploaded by user |
- | ^FS | 06,83 | Total # of downloads by user |
- | ^FT | 06,84 | Total Kbytes downloaded by user |
- | ^FU | 06,85 | # of minute user has used today |
- | ^FV | 06,86 | User's screen length setting |
- | ^FW | 06,87 | User's first name only |
- | ^FX | 06,88 | User's ANSI setting |
- | ^FY | 06,89 | User's "continue?" prompt setting |
- | ^FZ | 06,90 | Does user have screen clearing on |
- | ^F0 | 06,48 | User's Full-screen editor setting |
- | ^F1 | 06,49 | User's Quiet mode setting |
- | ^F2 | 06,50 | User's hot-keys setting |
- | ^F3 | 06,51 | Displays the user's alias |
- | ^F4 | 06,52 | The date of the User's first call |
- | ^F5 | 06,53 | The user's date of birth |
- | ^F6 | 06,54 | User's subscription expiry date |
- | ^F7 | 06,55 | Number of days until expiry |
- | ^F8 | 06,56 | User's AVATAR setting |
- | ^F9 | 06,57 | The user's upload:download ratio |
- | ^F: | 06,58 | User's Upload K:download K ratio |
- +-----------------------------------------------------+
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 126
-
- +-----------------------------------------------------+
- | CONTROL | ASCII | |
- | CODE | VALUE | DESCRIPTION |
- +---------+-------+-----------------------------------|
- | ^F; | 06,59 | Full-screen message reader |
- | ^KA | 11,65 | Total # of calls BBS has received |
- | ^KB | 11,66 | Name of the last caller to BBS |
- | ^KC | 11,67 | Total # of active messages on BBS |
- | ^KD | 11,68 | Displays # of the first message |
- | ^KE | 11,69 | Displays # of the last message |
- | ^KF | 11,70 | # of times user has paged sysop |
- | ^KG | 11,71 | Full name of the current weekday |
- | ^KH | 11,72 | Displays total number of users |
- | ^KI | 11,73 | Displays the current time |
- | ^KJ | 11,74 | Displays the current date |
- | ^KK | 11,75 | Minutes the user has been online |
- | ^KL | 11,76 | Seconds the user has been online |
- | ^KM | 11,77 | Minutes the user has used today |
- | ^KN | 11,78 | Seconds the user has used today |
- | ^KO | 11,79 | Minutes remaining for user today |
- | ^KP | 11,80 | Seconds remaining for user today |
- | ^KQ | 11,81 | The user's daily time limit |
- | ^KR | 11,82 | Displays the current baud rate |
- | ^KS | 11,83 | The current weekday in short-form |
- | ^KT | 11,84 | The user's daily download limit |
- | ^KU | 11,85 | # of minutes until the next event |
- | ^KV | 11,86 | Time of the next system event |
- | ^KW | 11,87 | # of node user is currently on |
- | ^KX | 11,88 | Disconnects the user |
- +-----------------------------------------------------+
-
-
-SEE ALSO od_disp_emu(), od_list_files(), od_hotkey_menu()
-
-
-EXAMPLE For an example of the use of the od_send_file() function in
- displaying a custom door menu, see the EX_VOTE.C example
- program, which is described beginning on page 38.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 127
-
-OD_SET_ATTRIB()
--------------------------------------------------------------------------------
-
-PURPOSE Function to change the text color in ANSI or AVATAR mode, using
- a single IBM-PC color attribute value.
-
-
-FORMAT void od_set_attrib(INT nColor);
-
-
-RETURNS N/A
-
-
-DESCRIPTION od_set_attrib() is one of two functions which change the color
- of the currently displayed text. This function allows you to set
- the text color using a single IBM-PC style color attribute. On
- the other hand, the od_set_color() function allows you to set
- the display color by specifying a foreground and background text
- color. Generally speaking, which of these two functions you use
- will be only a matter of personal preference. You will, however,
- most likely find it more convenient to use the od_set_color()
- function for changing display color. However the od_set_attrib()
- offers the advantage of allowing you to manipulate the color to
- be displayed as a single value, instead of two separate values.
- This could be convenient, for example, when displaying text in a
- user configured color. Using a single byte to represent the
- color will likely be easier than using two. An alternative
- method of setting the color of displayed text is to include the
- color codes within a string displayed by the od_printf()
- function. The benefits of doing this, along with instructions on
- how to do this, are described in the section on the od_printf()
- function, which begins on page 110.
-
- This function will only have an effect if the user has ANSI,
- AVATAR or RIP modes enabled. As a result, you can use this
- function within your door program, and have your text
- automatically displayed in multiple colors if graphics mode is
- available, and displayed without colors if graphics mode is not
- available.
-
- Note that the color to be set is passed to this function as an
- IBM-style screen attribute. Hence, you can set the color of text
- to be displayed by a single hexidecimal value, encoded as
- follows:
-
- +------------- Background color
- |
- 0x7f
- |
- +------------ Foreground color
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 128
-
- Where the left digit (most significant nibble) of the
- hexidecimal number represents the background color, and the
- right digit (least significant nibble) represents the foreground
- color. Each of the possible colors, along with their
- corresponding hexidecimal values, are listed in the charts,
- below.
-
- +-----------------------+ +--------------------------+
- | Foreground colors | | Background | Flashing |
- +-----------------------| +---------------+----------|
- | 0 | Black | | 0 | Black | Off |
- | 1 | Blue | | 1 | Blue | Off |
- | 2 | Green | | 2 | Green | Off |
- | 3 | Cyan | | 3 | Cyan | Off |
- | 4 | Red | | 4 | Red | Off |
- | 5 | Magenta | | 5 | Magenta | Off |
- | 6 | Brown | | 6 | Brown | Off |
- | 7 | White (grey) | | 7 | White | Off |
- | 8 | Bright Black | | 8 | Black | On |
- | 9 | Bright Blue | | 9 | Blue | On |
- | a | Bright Green | | a | Green | On |
- | b | Bright Cyan | | b | Cyan | On |
- | c | Bright Red | | c | Red | On |
- | d | Bright Magenta | | d | Magenta | On |
- | e | Yellow | | e | Brown | On |
- | f | White (bright) | | f | White | On |
- +-----------------------+ +--------------------------+
-
-
-SEE ALSO od_set_color(), od_disp_emu(), od_clr_scr(), od_clr_line(),
- od_set_cursor()
-
-
-EXAMPLE At times, you may wish to allow the user to select the color of
- text they wish to have displayed, perhaps to configure your door
- for the ideal colors to be displayed on their system. To
- demonstrate the use of the od_set_attrib() function, we show
- another function, which shows the user all 256 possible colors
- that can be displayed, and allows the user to choose which color
- they prefer. The function will then return the color attribute
- value of the user's chosen color.
-
- unsigned char choose_color(void)
- {
- register unsigned char counter; /* for displaying colors */
- char string[4]; /* string input by user */
-
- od_set_attrib(0x07); /* display title */
- od_disp_str("Available colors:\n\r\n\r");
-
- for(counter=0;counter<=255;) /* loop through all colors */
- {
-===============================================================================
-OpenDoors 6.00 Manual End of Page 129
-
- od_set_attrib(counter); /* set appropriate color */
- od_printf("%03.3u",counter); /* display color's number */
- if(((++counter)%16)==0) /* after every 16 colors ... */
- {
- od_set_attrib(0x07); /* ... reset display color ... */
- od_disp_str("\n\r"); /* ... and start a new line */
- }
- }
-
- od_set_attrib(0x07); /* Allow user to choose color */
- od_disp_str("Which color do you prefer : ");
- od_input_str(string,3,'0','9');
- return(atoi(string)); /* Return chosen color */
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 130
-
-OD_SET_COLOR()
--------------------------------------------------------------------------------
-
-PURPOSE Function to change the current display color in ANSI, AVATAR or
- RIP modes, using foreground and background color values.
-
-
-FORMAT void od_set_color(INT nForeground, INT nBackground);
-
-
-RETURNS N/A
-
-
-DESCRIPTION od_set_color() is one of two functions which change the color of
- the currently displayed text. This function allows you to set
- the text color using separate foreground an background text
- colors, whereas od_set_attrib() allows you to set the text color
- using a single IBM-PC style color attribute. Generally speaking,
- which of these two functions you use is only a matter of
- personal preference. An alternative method of setting the color
- of displayed text is to include the color codes within a string
- displayed by the od_printf() function. The benefits of doing
- this, along with instructions on how to do this, are described
- in the section on the od_printf() function, which begins on page
- 110.
-
- This function will only have an effect if the user has ANSI,
- AVATAR or RIP mode turned on. As a result, you can use this
- function within your door program, and have your text
- automatically displayed in multiple colors if graphics mode is
- available, and displayed without colors if graphics mode is not
- available.
-
- The od_set_color() function accepts two parameters, the first
- parameter being the foreground color to be used in displaying
- text, and the second parameter being the background color to be
- used in displaying text. For example,
-
- od_set_color(L_WHITE,D_BLACK);
-
- would set the current color to Light White on Dark Black. The
- foreground and background text colors can be any one of the
- color values listed on the following page.
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 131
-
-
-
- +-------------------+-----------+
- | Foreground Color | Value |
- +-------------------+-----------+
- | Dark Black | D_BLACK |
- | Dark Blue | D_BLUE |
- | Dark Green | D_GREEN |
- | Dark Cyan | D_CYAN |
- | Dark Red | D_RED |
- | Dark Magenta | D_MAGENTA |
- | Dark Brown | D_BROWN |
- | Grey (Dark White) | D_GREY |
- | Light Black (Grey)| L_BLACK |
- | Light Blue | L_BLUE |
- | Light Green | L_GREEN |
- | Light Cyan | L_CYAN |
- | Light Red | L_RED |
- | Light Magenta | L_MAGENTA |
- | Yellow | L_YELLOW |
- | White | L_WHITE |
- +-------------------+-----------+
-
-
- +-------------------+-----------+
- | Background Color | Value |
- +-------------------+-----------+
- | Black | D_BLACK |
- | Blue | D_BLUE |
- | Green | D_GREEN |
- | Cyan | D_CYAN |
- | Red | D_RED |
- | Magenta | D_MAGENTA |
- | Brown | D_BROWN |
- | Grey | D_GREY |
- | Blinking Black | B_BLACK |
- | Blinking Blue | B_BLUE |
- | Blinking Green | B_GREEN |
- | Blinking Cyan | B_CYAN |
- | Blinking Red | B_RED |
- | Blinking Magenta | B_MAGENTA |
- | Blinking Brown | B_BROWN |
- | Blinking Grey | B_WHITE |
- +-------------------+-----------+
-
-
-SEE ALSO od_set_attrib(), od_disp_emu(), od_clr_scr(), od_clr_line(),
- od_set_cursor()
-
-EXAMPLE As an example of using the od_set_color() function to set the
- color of displayed text, we show a pair of two functions. These
- functions will allow a program to set the foreground OR
-===============================================================================
-OpenDoors 6.00 Manual End of Page 132
-
- background color of text, without setting the other. In
- contrast, the od_set_color() function sets both the foreground
- and background color at the same time. These function presume
- that they are the only functions used within the door to set the
- color of displayed text, and that the original text color prior
- to calling either of these functions is dark white on black.
- These function must also have access to the two global variables
- "current_foreground" and "current_background", as defined below.
-
-
- void set_foreground(char foreground);
- void set_background(char background);
- unsigned char current_foreground=D_BLACK;
- unsigned char current_background=D_GREY;
-
- void set_foreground(char foreground)
- { /* set new text color */
- od_set_color(foreground, current_background);
- current_foreground=foreground; /* save new foreground */
- }
-
- void set_background(char background)
- { /* set new text color */
- od_set_color(current_foreground, background);
- current_background=background; /* save new background */
- }
-
-
- Using these functions, you would then be able to set just the
- foreground text color by a function call like:
-
- set_foreground(L_YELLOW);
-
- Or set just the background text color by a function call like:
-
- set_background(D_GREY);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 133
-
-OD_SET_CURSOR()
--------------------------------------------------------------------------------
-
-PURPOSE Function to reposition the text cursor in ANSI, AVATAR or RIP
- mode
-
-
-FORMAT void od_set_cursor(INT nRow, INT nColumn);
-
-
-RETURNS N/A
-
-
-DESCRIPTION This function repositions the cursor to the specified row and
- column on the screen. nRow can have a value of 1 to 23, and
- nColumn can have a value of 1 to 80. ANSI, AVATAR or RIP mode
- must be active.
-
-
-SEE ALSO od_disp_emu(), od_clr_scr(), od_clr_line(), od_set_color(),
- od_set_attrib()
-
-
-EXAMPLE Below is a simple example that demonstrates the use of the
- od_set_cursor() function. Note that this example detects whether
- or not graphics mode is available, and if it is not, will carry
- out the same task without the use of od_set_cursor().
-
- od_init(); /* Initialize door operations */
- od_clr_scr(); /* Clear the screen */
- if(od_control.user_ansi || od_control.user_avatar)
- { /* If graphics mode is available */
- od_set_cursor(1,1); /* Display demo */
- od_disp_str("Top, Left Corner");
-
- od_set_cursor(1,70);
- od_disp_str("Top, Right Corner");
-
- od_set_cursor(15,1);
- od_disp_str("Fifteenth line\n\r");
- }
- else /* If graphics mode is not available */
- { /* Display demo */
- od_disp_str("Top, Left Corner");
- od_repeat(' ', 54);
- od_disp_str("Top, Right Corner\n\r");
- od_disp_str("\n\n\n\n\n\n\n\n\n\n\n\n\n");
- od_disp_str("Fifteenth line\n\r");
- }
- od_get_key(TRUE); /* Wait for user to press key */
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 134
-
-OD_SET_DTR()
--------------------------------------------------------------------------------
-
-PURPOSE Controls the DTR (Data Terminal Ready) signal to the modem. Used
- primarily to cause the modem to "hang up".
-
-
-FORMAT void od_set_dtr(BOOL bHigh);
-
-
-RETURNS N/A
-
-
-DESCRIPTION In certain circumstances (such as call back verification doors),
- you may wish to "hang up" the modem without exiting your door
- program. This can be accomplished with most modems by
- controlling the DTR (Data Terminal Ready) signal to the modem.
- Passing a FALSE value to od_set_dtr() causes the DTR signal to
- be set low, and passing a TRUE value causes the DTR signal to be
- set high. Normally, OpenDoors maintains the DTR signal in its
- high state. Since most (but not all) modems are configured to
- disconnect from the remote modem when the DTR signal is set low,
- calling od_set_dtr(FALSE) can be used to hangup the modem. When
- hanging up by this method, you should be sure to set the DTR
- signal high again, after the carrier detect signal has
- disappeared. For more information on determining the state of
- the carrier detect signal, see the od_carrier() function, which
- is described on page 51. Note that not all modems will
- disconnect from the remote user in response to your lowering the
- DTR signal. If your software may be used with such modems, you
- may wish to also provide the option of disconnecting the modem
- by sending a "hang up" command sequence to the modem.
-
- Since OpenDoors normally monitors the carrier detect signal, and
- exits when this signal disappears, you will have to disable
- OpenDoor's carrier detection if you wish your program to
- continue executing after hanging up the modem. OpenDoor's
- automatic carrier detection can be disabled using the
- od_control.od_disable OpenDoors control structure variable, as
- follows:
-
- od_control.od_disable |= DIS_CARRIERDETECT;
-
-SEE ALSO od_carrier(), od_exit()
-
-
-EXAMPLE For an example of using the od_set_dtr() function to "hang up"
- the modem, see the example that accompanies the od_carrier()
- function, which is described on page 52.
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 135
-
-OD_SET_PERSONALITY()
--------------------------------------------------------------------------------
-
-PURPOSE Sets the current status line / sysop function key personality to
- be used.
-
-
-FORMAT BOOL od_set_personality(char *pszName);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION This function changes the current status line / sysop function
- key personality. The pszName parameter should contain the string
- which uniquely identifies the personality to be set. This
- function may only be used by OpenDoors programs which include
- the OpenDoors "Multiple Personality System". To enable use of
- the MPS, include the following line before your first call to
- any OpenDoors function:
-
- od_control.od_mps=INCLUDE_MPS;
-
- OpenDoors includes a number of built-in personalities.
- Additional personalities may be added using the
- od_add_personality() function, which is described on page 47.
- The following personalities are included with this version of
- OpenDoors:
-
- Name Description
- -----------------------------------------------------------
- Standard OpenDoors style, similar to RA 1.11
- PCBoard Similar to PC-Board
- RemoteAccess Similar to RemoteAccess 2.x
- Wildcat Similar to Wildcat!
-
- Personality names are not case sensitive. For more information
- on the OpenDoors Multiple Personality System, see the section
- which begins on page 233.
-
- This function returns TRUE on success, or FALSE on failure. In
- the case of a failure, the od_control.od_error variable is set
- to indicate the nature of the failure. For more information on
- the od_control.od_error variables, see page 185.
-
-
-SEE ALSO od_add_personality(), od_set_statusline()
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 136
-
-OD_SET_STATUSLINE()
--------------------------------------------------------------------------------
-
-PURPOSE To set the currently displayed status line.
-
-
-FORMAT void od_set_statusline(INT nSetting);
-
-
-RETURNS N/A
-
-
-DESCRIPTION If you have the OpenDoors status line enabled within your door
- program (as is the default), the sysop will be able to control
- the setting of the status line using the F1 - F10 keys on the
- keyboard. These function keys are as follows:
-
- [F1] - Display basic door and user information
- [F2] - Display phone numbers and important dates
- [F3] - Display security flags and up/download info
- [F4] - Display system information and current time
- [F5] - Display message info and user's settings
- [F6] - Display chat reason and sysop's comment
- [F9] - Display help information for sysop
- [F10] - Turn off the status line
-
- Using the od_set_statusline() function, you can manually set
- which of these status line settings is currently selected. The
- od_set_statusline() accepts a single parameter, which should be
- one of the values listed below, which indicates which status
- line you would like to have selected:
-
- +---------------+---------------+------------------------------+
- | | Corresponding | |
- | Value | Function Key | Meaning |
- +---------------+---------------+------------------------------+
- | STATUS_NORMAL | [F1] | Basic door and user info |
- | STATUS_NONE | [F10] | Turn off status line |
- | STATUS_HELP | [F9] | Displays help for the sysop |
- | STATUS_USER1 | [F2] | Phone Numbers and dates |
- | STATUS_USER2 | [F3] | Security flags & up/downloads|
- | STATUS_USER3 | [F5] | Message info & user settings |
- | STATUS_USER4 | [F6] | Chat reason and sysop comment|
- | STATUS_SYSTEM | [F4] | System info & current time |
- +---------------+---------------+------------------------------+
- (Note that these keys may be customized using variables in the
- OpenDoors control structure.)
-
- Keep in mind that the od_set_statusline() function only
- temporarily changes the current status line setting, and that
- the sysop will still be able to change the status line to any of
- the other settings using the function keys. For instance, if you
-===============================================================================
-OpenDoors 6.00 Manual End of Page 137
-
- wished to allow the sysop to normally see all 25 lines of text
- displayed by your door, but at the same time to still allow the
- sysop to turn on the status line at any time, you could place
- the line
-
- od_set_statusline(STATUS_NONE);
-
- at the beginning of your program. Similarly, when the user pages
- the sysop, OpenDoors itself calls
-
- od_set_statusline(STATUS_USER4);
-
- in order to display the status line which shows the user's
- reason for chat, while still allowing the sysop to switch back
- to any of the other status lines.
-
- If you wish to permanently turn off the OpenDoor's status line,
- without allowing the sysop to be able to turn it back on using
- the sysop function keys, simply set the
- "od_control.od_status_on" variable to FALSE. This variable is
- described in the OpenDoors control structure section of this
- manual, which begins on page 148.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 138
-
-OD_SLEEP()
--------------------------------------------------------------------------------
-
-PURPOSE Suspends program execution, yielding control to other tasks in a
- multitasking environment.
-
-
-FORMAT void od_sleep(tODMilliSec Milliseconds);
-
-
-RETURNS N/A
-
-
-DESCRIPTION od_sleep() suspends execution of your program for the specified
- number of milliseconds. Note that under the DOS version of
- OpenDoors, this value is rounded to the nearest 55 milliseconds.
- While the program's execution is suspended, od_sleep() yields
- control of the processor to other tasks in a multitasking
- environment.
-
- Calling od_sleep() with a sleep time of 0 causes control to be
- yielded to other waiting processes without imposing a minimum
- sleep time. If no other processes are waiting to execute, the
- function returns immediately. OpenDoors automatically calls
- od_sleep(0) itself in most of the situations where there is a
- need to do so. However, there may be circumstances under which
- od_sleep(0) can be used to improve performance. In particular,
- od_sleep(0) can be used to improve the performance of other
- applications that are also running at the same time as yours. By
- calling od_sleep(0), you are essentially telling the operating
- system that your program doesn't currently need all of the
- processing time that has been allocated to it. While appropriate
- use of od_sleep(0) can improve overall system performance,
- overusing od_sleep(0) can dramatically degrade the performance
- of your own program. The only way to determine the optimal use
- of od_sleep(0) is by trial and error.
-
- The most common situation where you might want to use
- od_sleep(0) is when your program cannot do anything useful until
- you receive input from the user, but for some reason you cannot
- call od_get_key(TRUE). Rather than sitting in a tight loop,
- repeatedly checking where the user has pressed a key yet, it is
- better to call od_sleep(0) to let other tasks run for a while
- before checking again. OpenDoors calls od_sleep(0) itself under
- any of the following circumstances:
-
- - When transmitting characters, if the outbound serial
- buffer is full, OpenDoors yields while waiting for some
- of the characters in the buffer to be sent.
- - During od_get_key(), if called with the wait parameter
- set to TRUE.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 139
-
- - While waiting for input, during the execution of any of
- the following input functions: od_get_answer(),
- od_hotkey_menu() (after menu has been displayed),
- od_popup_menu(), od_edit_str(), od_input_str().
- - While pausing at the end of a screen during
- od_send_file(), od_list_files(), od_hotkey_menu().
- - During chat mode.
-
-
-SEE ALSO od_kernel()
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 140
-
-OD_SPAWN()
--------------------------------------------------------------------------------
-
-PURPOSE To facilitate easy execution of child tasks from doors.
-
-
-FORMAT BOOL od_spawn(char *pszCommandLine);
-
-
-RETURNS TRUE on success,
- FALSE on failure
-
-
-DESCRIPTION This function allows you to easily run other programs from
- within your door programs, such as external file transfer
- utilities, compression utilities, and so on.
-
- This function will attempt to swap OpenDoors and your entire
- door to expanded memory or disk. OpenDoors swapping can be
- controlled by the OpenDoors control structure variables,
- od_swapping_disable, od_swapping_ems and od_swap_path. The
- od_spawn...() functions first attempt to swap OpenDoors to EMS
- memory. If enough EMS 3.2 or later memory is available, it will
- be used. If not, OpenDoors will swap to a disk file in the
- directory specified by the od_control.od_swap_path variable.
-
- Unlike the other Turbo C(++) / Borland C++ library functions
- such as system() or spawnf(), this function will automatically
- store the door screen prior to executing the sub-program, and
- will restore the screen upon return. This function will also
- store the current drive and directory settings prior to
- executing the program, and restore them after the program has
- returned.
-
- Normally, the user's time will continue to be decreased during
- the execution of the od_spawn() function. However, you can
- freeze the user's time during the spawn process by using the
- OpenDoors control structure variable od_spawn_freeze_time.
-
-
-SEE ALSO od_spawnvpe()
-
-
-EXAMPLE Below are a few examples of various uses of the od_spawn()
- function:
-
- To run the command processor from within your door program, to
- allow the sysop access to the DOS shell, simply use the
- following line of code:
-
- od_spawn(getenv("COMSPEC"));
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 141
-
- The following function is an example of using the od_spawn()
- function to call DSZ, allowing the user to download a file. You
- pass the name of the file that you wish to send to the user.
- This function will then ask the user what transfer protocol they
- would like to use, generate the appropriate DSZ command line,
- and then transmit the file to the user. Note that in order to
- use a door which implements this function, the external file
- transfer program "DSZ" must be available in the current search
- path. As an alternative, you may want to allow the sysop to
- specify the location of the DSZ file from within a configuration
- program. If you wish to receive a file (allow the user to
- upload), instead of sending one, simply change the "s" in the
- command line to a "r".
-
- char download(char *filename)
- {
- char commandline[80];/* string containing DSZ command line */
- char protocol; /* character representing chosen protocol */
-
- /* display protocol menu */
- od_printf("Select File Transfer Protocol:\n\r");
- od_printf(" [X] XModem\n\r");
- od_printf(" [Y] YModem\n\r");
- od_printf(" [Z] ZModem\n\r");
- od_printf("or press [A] to abort transfer\n\r");
-
- do /* loop until valid protocol has been chosen */
- {
- protocol=od_get_key(); /* get key */
- /* abort if [A] key is pressed */
- if(protocol=='a' || protocol=='A') return(FALSE);
- } while(protocol!='x' && protocol!='y' && protocol!='z' &&
- protocol!='X' && protocol!='Y' && protocol!='Z');
-
- od_printf("Begin receiving file now or press [CTRL]-[X] to
- abort\n\r");
- /* generate DSZ command line */
- sprintf(commandline,"dsz port %d s%c %s",
- od_control.port+1,
- protocol,
- filename);
-
- return(od_spawn(commandline)); /* spawn to DSZ */
- }
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 142
-
-
-OD_SPAWNVPE()
--------------------------------------------------------------------------------
-
-PURPOSE To facilitate easy execution of child tasks from doors. Allows
- specification of child's environment, returns errorlevel
- returned by child task, and searches path for the executable
- file.
-
-
-FORMAT INT16 od_spawnvpe(INT16 nModeFlag, char *pszPath,
- char *papszArg[], char *papszEnv[]);
-
-
-RETURNS -1 on failure
- errorlevel returned by child process on success
-
-
-DESCRIPTION This function behaves very similarly to the od_spawn() function.
- Thus, to save space in the manual, I will not recapitulate what
- is already said in the description of the od_spawn() function.
- Instead, this description concentrates on the additional
- features available through the od_spawnvpe() function. If you
- are not already familiar with the od_spawn() function, take a
- moment now to review the description of that function.
-
- The od_spawn() function (the OpenDoors "quick-spawn" function)
- is designed to be quick and easy to use, but does not have all
- of the features available in the od_spawnvpe() function. In
- addition to the features of the od_spawn() function, the
- od_spawnvpe() function also provides the following features:
-
- - od_spawnvpe() will search the "path" for the file
- to be executed.
-
- - od_spawnvpe() allows you to pass an altered
- environment to the child process.
-
- - od_spawnvpe() returns the errorlevel returned by
- the child process.
-
- The parameters passed to the od_spawnvpe() function are
- identical to those passed to the C spawnvpe() function. The
- first parameter should usually the be P_WAIT flag. The second
- parameter is the name of the child program to execute. If a full
- path to the child program is not specified, and the child
- program does not exist in the current directory, OpenDoors will
- search the directories listed by the PATH environment variable.
- Also, if the .EXE or .COM extension is not provide, OpenDoors
- will look first for a .COM file, and if not found, for a .EXE
- file. The third parameter is an array of arguments to pass to
- the child process, or NULL if no arguments are to be passed. The
-===============================================================================
-OpenDoors 6.00 Manual End of Page 143
-
- fourth parameter is the environment to be passed to the child
- process, or NULL if the a copy of the current environment should
- be used.
-
-
-SEE ALSO od_spawn()
-
-
-EXAMPLE For an example of the use of the od_spawn...() functions, see
- the example accompanying the od_spawn() function. As a specific
- example of the od_spawnvpe function, consider the following code
- which executes the "TEST.EXE" program.
-
- od_spawnvpe(P_WAIT,"TEST.EXE",NULL,NULL);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 144
-
-OD_WINDOW_CREATE()
--------------------------------------------------------------------------------
-
-PURPOSE Creates a popup window of the specified size and color, storing
- the contents of the screen "under" the window. The window can
- later be removed from the screen, restoring the original
- contents of the screen "under" the window, using the
- od_window_remove() function. Requires ANSI, AVATAR or RIP mode.
-
-
-FORMAT void *od_window_create(INT nLeft, INT nTop, INT nRight, INT
- nBottom,
- char *pszTitle, BYTE btBorderCol, BYTE btTitleCol,
- BYTE btInsideCol, INT nReserved);
-
-
-RETURNS Pointer to newly allocated window structure on success
- NULL on failure
-
-
-DESCRIPTION This function creates a pop-up window on the remote and local
- screens. The contents of the screen beneath the window are
- stored, to allow the window to later be removed from the screen
- using the od_window_remove() function. The window is drawn using
- the boarder characters defined in the already existing
- od_control.od_box_chars[] array. The boarder is displayed using
- the color attribute specified in btBorderCol. The working area
- of the window is created in the color specified in btInsideCol.
- A title may optionally be displayed on the window by specifying
- a string in pszTitle. This title will be displayed in the color
- specified by btTitleCol. If you do not wish a title to be
- displayed, pass an empty string or NULL pointer in pszTitle. On
- success, od_window_create() will return a pointer to a buffer
- which was allocated to store information on the window and the
- contents of the screen "under" the window. This pointer should
- at some point be passed in a call to od_window_remove().
-
- This function requires ANSI, AVATAR or RIP graphics mode. If
- AVATAR mode is active, this function will take advantage of
- special AVATAR control sequences to display the window much
- faster than is possible in ANSI mode. In ANSI mode, window
- display will be slightly faster if btBorderCol and btTitleCol
- are equal. Note that the nReserved parameter of this function is
- not currently used. To preserve compatibility with future
- versions of OpenDoors, this parameter should always be set to 0.
- Currently, the size of the buffer allocated to store the window
- information will be (length*width*2) + 4 bytes in size.
-
- If od_window_create() fails for any reason, a value of NULL is
- returned, and the od_control.od_error variable is set to
- indicate the reason for the failure. For more information on the
- od_control.od_error variable, see page 185.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 145
-
-
-
-SEE ALSO od_window_remove(), od_draw_box(), od_gettext(), od_puttext(),
- od_save_screen(), od_restore_screen(), od_scroll()
-
-
-EXAMPLE For an example of the use of the od_window_create() function,
- see the included ex_chat.c example program.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 146
-
-OD_WINDOW_REMOVE()
--------------------------------------------------------------------------------
-
-PURPOSE Removes a window previously created using od_window_create(),
- restoring the original screen background.
-
-
-FORMAT BOOL od_window_remove(void *pWinInfo);
-
-
-RETURNS TRUE on success
- FALSE on failure
-
-
-DESCRIPTION The od_window_remove() function removes a window from the screen
- which was previously created by od_window_create(), and
- deallocates the memory which was allocated to store the window
- information. The contents of the screen beneath the window is
- restored to appear as it did prior to the call to
- od_window_create(). pWinInfo must point to the value returned by
- od_window_create().
-
- Note that overlapping windows must be removed in the reverse
- order from which they were created for proper display results.
- The last window to be created must be the first window to be
- removed.
-
- If od_window_remove() fails for any reason, a value of FALSE is
- returned, and the od_control.od_error variable is set to
- indicate the reason for the failure. For more information on the
- od_control.od_error variable, see page 185.
-
-
-SEE ALSO od_window_create(), od_draw_box(), od_gettext(), od_puttext(),
- od_save_screen(), od_restore_screen(), od_scroll()
-
-
-EXAMPLE For an example of the use of the od_window_remove() function,
- see the included ex_chat.c example program.
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 147
-
- 555555
- 55
- 55
- 55555
- 55
- 55
- 55555
--------------------------------------------------------------------------------
-CHAPTER 5 - THE OPENDOORS CONTROL STRUCTURE
-
-
-
-
-INTRODUCTION TO THE CONTROL STRUCTURE
--------------------------------------------------------------------------------
-
- The OpenDoors "Control Structure" is used by OpenDoors in order
- to provide you with a wide range of information about the system
- on which you door is running, and the user who is currently
- using the door, along with providing you a means by which to
- customize much of OpenDoor's behavior. Using the OpenDoors
- control structure, you can access or alter information about the
- user who is online, information about the system on which your
- door is running, and information about OpenDoors itself. You can
- also use the control structure to customize all of the text
- displayed by OpenDoors, the function keys to which it responds,
- and many other aspects of OpenDoor's behavior.
-
- The OpenDoors control structure is quite simply a normal C
- "struct", named od_control, and is defined in the OPENDOOR.H
- file. This "struct" contains many different variables, which
- provide you access to the information provided by the control
- structure. Hence, to access the contents of a control structure
- variable, for example the variable "system_name" which contains
- the name of the BBS the door is running under, you would use:
-
- od_control.system_name
-
- The following section of this chapter contains a complete
- reference to all of the variables which make up the OpenDoors
- control structure. This reference includes the name, type and
- complete description of the use of each variable. The reference
- is divided into the following categories of variables, with the
- reference to the variables in each section beginning on the
- listed page.
-
- Door Information File Statistics..................150
- Modem Settings....................................153
- BBS and Caller Information........................158
- Door Settings.....................................182
- OpenDoors Behavior Customization..................187
- Function Keys Customization.......................212
-===============================================================================
-OpenDoors 6.00 Manual End of Page 148
-
- Color Customization...............................237
- Text Customization................................217
-
- Within each section, variables are listed alphabetically by
- name.
-
- Also, in order to make use of some of the variables in the
- OpenDoors control structure, it is important to understand the
- concepts of Boolean (TRUE/FALSE), and bit-mapped flag variables.
- If you are not familiar with these two terms, they are described
- in detail in the glossary, located towards the end of this
- manual.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 149
-
-CONTROL STRUCTURE - DOOR INFO FILE STATS
--------------------------------------------------------------------------------
-
- The following OpenDoors control structure variables provide your
- program with information concerning the door information file
- from which OpenDoors obtained the BBS and caller information
- that is found elsewhere in the control structure. The following
- control structure items are listed in this section:
-
- info_path Sets the location and, optionally, the
- name of the door information file
-
- od_info_type Type of door information file that was
- found
-
- od_node Node number the door is running under
-
- user_timeofcreation The time at which the door information
- file was created
-
-
-
-
--------------------------------------------------------------------------------
-info_path char od_control.info_path[60];
-
- If used, this variable should be set prior to calling od_init()
- or any other OpenDoors function. This variable allows you to
- control where OpenDoors will look for the door information (drop
- file). By default, OpenDoors searches for the door information
- file in the current directory. If this variable is set to the
- name of some other directory, OpenDoors will first search for
- any door information files in that directory. If you only wish
- OpenDoors to look for a particular type of door information file
- (for instance, you want OpenDoors to only read a DORINFO1.DEF,
- and ignore any DOOR.SYS file), you can specify the full path and
- filename of the file you wish OpenDoors to use.
-
- It is usually a good idea to design your door to allow the
- system operator to set the location of the door information
- file. This will allow the sysop to place your door in its own
- directory, and will facilitate the use of your door on multi-
- line BBS systems. If you are using the OpenDoors configuration
- file system, then the system operator can set the door
- information file location and/or name using the BBSDir keyword.
- However, you may also wish to allow the location of the door
- information file to be set on the command line. The following
- example illustrates a method of reading and setting the location
- of the door information file from the door's command line:
-
- #include "opendoor.h"
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 150
-
- main(int argc, char *argv[])
- {
- if(argc>1) strncpy(od_control.info_path,argv[1],59);
-
- od_disp_str("This is a sample OpenDoors door.\n\r");
- od_disp_str("Press any key to continue...\n\r");
- od_get_key(TRUE);
- od_exit(20);
- }
-
-
-
--------------------------------------------------------------------------------
-od_info_type char od_control.od_info_type;
-
- This variable indicates the type of information file from which
- OpenDoors has obtained the BBS and caller information that is
- found elsewhere in the OpenDoors control structure. This
- variable will have one of the following values, indicating that
- the door information file was of the corresponding type:
-
- +----------------+----------------------------+
- | od_info_type | Door Information File Type |
- | Value | |
- +----------------+----------------------------+
- | DORINFO1 | DORINFO?.DEF |
- | EXITINFO | EXITINFO.BBS (Normal) |
- | RA1EXITINFO | EXITINFO.BBS (Extended) |
- | RA2EXITINFO | EXITINFO.BBS (RA 2.x) |
- | QBBS275EXITINFO| EXITINFO.BBS (QuickBBS) |
- | CHAINTXT | CHAIN.TXT |
- | SFDOORSDAT | SFDOORS.DAT |
- | CALLINFO | CALLINFO.BBS |
- | DOORSYS_GAP | DOOR.SYS (GAP/PC-Board) |
- | DOORSYS_DRWY | DOOR.SYS (Doorway style) |
- | DOORSYS_WILDCAT| DOOR.SYS (WildCat standard)|
- | CUSTOM | Custom door information |
- | | file, defined in config |
- | | file. |
- | NO_DOOR_FILE | No drop file was found. |
- +----------------+----------------------------+
-
- The value of this variable is only valid AFTER od_init() or some
- OpenDoors function has been called.
-
- Note that this variable should be treated as a read-only
- variable, and should not normally be altered by your program.
- Altering this variable may cause OpenDoors to re-write a
- different type of door information file upon exiting, than was
- read upon startup.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 151
-
-
--------------------------------------------------------------------------------
-od_node char od_control.od_node;
-
- This variable indicates the node number that the door is running
- under. If this information is supplied by the BBS in the door
- information file, the node number will be automatically by
- OpenDoors. Specifically, the node number can be determined
- automatically from systems that produce an SFDOORS.DAT, PC-
- Board/GAP style DOOR.SYS or Wildcat style DOOR.SYS door
- information file. If this information is not supplied in the
- door information file, but is provided by the sysop in the
- door's configuration file, OpenDoors will use the value found
- there. Alternatively, you can set this variable manually.
-
- On systems that produce a DORINFO?.DEF file, OpenDoors will use
- this variable to determine which DORINFO?.DEF file to search
- for. For instance, if od_control.od_node is set to 3, OpenDoors
- will first search for a DORINFO3.DEF file. If this file is not
- found, OpenDoors will then default to the DORINFO1.DEF filename.
-
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_timeofcreation[6];
-_timeof
-creation This variable contains the time of day at which the door
- information file was created. This variable is available only
- when the door is running under a system that produces an
- EXITINFO.BBS file. To determine what type of door information
- file your door is running under, see the od_control.od_info_type
- variable, below.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 152
-
-CONTROL STRUCTURE - SERIAL PORT SETTINGS
--------------------------------------------------------------------------------
-
- The following OpenDoors control structure items store the
- communications settings that OpenDoors uses to communicate with
- the modem. These values are normally set upon the first call to
- an OpenDoors function, during the od_init() procedure. However,
- you may need to manual set this variables if:
-
- - you wish to allow greater configurability of your door
- - you are reading the door information file yourself
- - you are using the OpenDoors to write a non-door
- program
-
- Some of these variables are always used by OpenDoors, while
- others are only relevant if OpenDoor's built-in serial
- communications code is being used instead of a FOSSIL driver.
- Those that are only used when no FOSSIL driver is present are
- denoted by an [*] in the list below.
-
- The control structure variables controlling OpenDoor's serial
- port settings are as follows:
-
- od_control.baud Serial Port BPS rate
-
- od_control.od_connect_sppedThe modem connection BPS rate
-
- od_control.od_com_address Serial Port address [*]
-
- " " .od_com_fifo_trigger 16550A FIFO trigger size
-
- " " .od_com_flow_control Type of flow control to use.
-
- od_control.od_com_irq Serial Port IRQ number [*}
-
- od_control.od_com_method Is FOSSIL or built-in serial I/O
- being used
-
- od_control.od_com_no_fifo Disables use of 16550A FIFOs [*]
-
- od_control.od_com_rx_buf Size of receive buffer [*]
-
- od_control.od_com_tx_buf Size of transmit buffer [*]
-
- od_control.od_no_fossil Prevents OpenDoors from using a
- FOSSIL driver, even if one is
- available.
-
- od_control.od_open_handle Allows a live serial port handle to
- be passed to OpenDoors.
-
- od_control.port Serial port number, 0 based.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 153
-
-
-
-
--------------------------------------------------------------------------------
-baud unsigned long od_control.baud;
-
- This variable contains the BPS rate at which the computer is
- communicating with the modem, not to be confused with the BPS
- rate at which the local modem is communicating with the remote
- modem.
-
- A value of 0 indicates that the program is operating in local
- mode.
-
- If a FOSSIL driver is being used for serial I/O, this value is
- ignored if it does not correspond to one of the baud rates that
- an application can directly set a FOSSIL driver to. The BPS
- rates recognized by FOSSIL drivers are: 300, 600, 1200, 2400,
- 4800, 9600, 19200, 38400. If any other BPS rate is to be used,
- the FOSSIL driver must be locked at that BPS from the FOSSIL
- driver command-line. When locked, FOSSIL drivers ignore any
- attempt by an application to change the BPS rate of the locked
- port. For this reason, the od_control.baud setting has no effect
- on the FOSSIL driver if it is locked.
-
-
-
--------------------------------------------------------------------------------
-od_com_ int od_control.od_com_address;
-address
- This variable is only used when OpenDoors is NOT performing
- serial I/O using a FOSSIL driver. (When a FOSSIL driver is being
- used, the serial port address can be set from the FOSSIL driver
- command line).
-
- This variable may optionally be set to specify the base address
- of the serial port to be used. For ports COM1: through COM4:,
- OpenDoors can normally determine the serial port address
- automatically. However, for other serial ports, the port address
- must be specified using this variable. If you are not specifying
- a serial port address with this variable, do not change it's
- default value of 0.
-
-
-
--------------------------------------------------------------------------------
-od_com_ char od_control.od_com_fifo_trigger;
-fifo_trigger
- This variable is only used when OpenDoors is NOT performing
- serial I/O using a FOSSIL driver. (When a FOSSIL driver is being
- used, the IRQ line can be set from the FOSSIL driver command
- line).
-===============================================================================
-OpenDoors 6.00 Manual End of Page 154
-
-
- This variable sets the number of bytes that will be placed in
- the 16550A UART FIFO buffers before an interrupt is triggered,
- if the 16550A UART FIFOs are used. Valid values are 1, 4, 8 and
- 14.
-
-
-
--------------------------------------------------------------------------------
-od_com_ unsigned char od_control.od_com_flow_control;
-flow_control
- This variable sets the type of serial I/O flow control to use.
- By default, this variable is set to COM_DEFAULT_FLOW, which
- specifies the default mode of flow control. Most often, this
- will be RTS/CTS flow control. A value of COM_RTSCTS_FLOW
- explicitly enables RTS/CTS flow control. A value of COM_NO_FLOW
- disables all flow control. If you are going to change the value
- of this variable, it should be set prior to your first call to
- any OpenDoors function.
-
-
-
--------------------------------------------------------------------------------
-od_com_ unsigned char od_control.od_com_irq;
-irq
- This variable is only used when OpenDoors is NOT performing
- serial I/O using a FOSSIL driver. (When a FOSSIL driver is being
- used, the IRQ line can be set from the FOSSIL driver command
- line).
-
- This variable may optionally be set to specify the IRQ line to
- be used for the serial port. By default, OpenDoors uses the
- normal IRQ 4 line for ports COM1: and COM3:, and IRQ 3 for ports
- COM2: and COM4:. To override this default, the IRQ line can be
- set using this variable. If you are not specifying an IRQ line
- with this variable, do not change it's default value of 0.
-
-
-
--------------------------------------------------------------------------------
-od_com_ char od_control.od_com_method;
-method
- This read-only variable reports the method that OpenDoors is
- using for serial I/O. This variable is set during od_init() or
- the first call to an OpenDoors function. This variable can be
- one of the following values:
-
- COM_FOSSIL - Indicates that a FOSSIL driver is being
- used
- COM_INTERNAL - Indicates that OpenDoor's internal serial I/O
- code is being used.
- COM_WIN32 - Indicates that the Win32 communication system
-===============================================================================
-OpenDoors 6.00 Manual End of Page 155
-
- is being used.
-
-
-
--------------------------------------------------------------------------------
-od_com_ char od_control.od_com_no_fifo;
-no_fifo
- This variable is only used when OpenDoors is NOT performing
- serial I/O using a FOSSIL driver. (When a FOSSIL driver is being
- used, the receive buffer size can be set from the FOSSIL driver
- command line).
-
- Normally, OpenDoors will use a 16550A FIFO buffer if a 16550A
- UART is installed. You can disable the use of the 16550A FIFO
- buffer by setting this variable to TRUE.
-
-
-
--------------------------------------------------------------------------------
-od_com_ unsigned int od_control.od_com_rx_buf;
-rx_buf
- This variable is only used when OpenDoors is NOT performing
- serial I/O using a FOSSIL driver. (When a FOSSIL driver is being
- used, the receive buffer size can be set from the FOSSIL driver
- command line).
-
- This variable allows you to set the size of OpenDoor's serial
- I/O receive buffer. If you do not set this buffer size, a
- default value of 256 characters is used. Normally, this buffer
- size is more than large enough for door programs. However, if
- you find that inbound characters are lost before they can be
- processed by your program, you may wish to increase the size of
- this buffer.
-
- This variable should only be changed before your first call to
- od_init() or any other OpenDoors function.
-
-
-
--------------------------------------------------------------------------------
-od_com_ unsigned int od_control.od_com_tx_buf;
-tx_buf
- This variable is only used when OpenDoors is NOT performing
- serial I/O using a FOSSIL driver. (When a FOSSIL driver is being
- used, the receive buffer size can be set from the FOSSIL driver
- command line).
-
- This variable allows you to set the size of OpenDoor's serial
- I/O transmit buffer. If you do not set this buffer size, a
- default value of 1024 characters is used.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 156
-
- This variable should only be changed before your first call to
- od_init() or any other OpenDoors function.
-
-
-
--------------------------------------------------------------------------------
-od_connect_ DWORD od_control.od_connect_speed;
-speed
- This variable contains the best guess at the current modem
- connection speed. This information is currently only accurate if
- a DOOR.SYS file is being used. In other situations, it will
- always be set to be equal to od_control.baud.
-
-
-
--------------------------------------------------------------------------------
-od_open_ DWORD od_control.od_open_handle;
-handle
- Under platforms where this is supported (currently only the
- Win32 version of OpenDoors), this variable can be used to pass a
- live serial port handle to OpenDoors, which OpenDoors will use.
- OpenDoors will not close this handle when it exits. If this
- value is set to 0, OpenDoors will open and close the serial port
- itself.
-
-
-
--------------------------------------------------------------------------------
-port char od_control.port;
-
- This variable contains the serial port number that the modem is
- connected. This number is 0 based, so that a value of 0
- corresponds to COM1:, a value of 1 corresponds to COM2:, and so
- on. This value will normally be set by the od_init() function,
- when the door information file is read, and should not be
- changed after modem initialization has been carried out by the
- od_init() function.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 157
-
-CONTROL STRUCTURE - BBS AND CALLER INFORMATION
--------------------------------------------------------------------------------
-
- As we have already described, there are two types of variables
- in the OpenDoors control structure. Some of the variables are
- simply used to allow you to customize OpenDoor's various
- features, such as altering colors, prompts, timeouts, etc. Other
- variables in the OpenDoors control structure serve to provide
- you with information about the user who is online and the BBS
- system your door is running under. This section deals with those
- variables that provide you with information about the BBS and
- the user.
-
- The information in these variables is read from the door
- information file, a small file created by the BBS specifically
- for the purpose of communicating with door programs. Depending
- on what BBS system your door is running under, the type of door
- information file will vary. Since different door information
- files do not all provide the same pieces of information, some
- variables in this section will only be available when your door
- is running under particular BBS systems. Other variables will
- be available with many or all BBS systems. In the description of
- each variable in this section, we indicate under which door
- information files the particular variable will be . So, if you
- wish to access a variable that is only under certain door
- information files, your program should test whether or not the
- required information is available under the particular door
- information file that was found. In order to determine which
- door information file your door is running under, you should use
- the od_control.od_info_type variable. This variable is described
- in the section which begins on page 150. If you test the value
- of the od_control.od_info_type variable, and find that the
- required information is not available, you may wish to simply
- use some sort of default value for the variable, or
- alternatively, not allow your door to run under certain BBS
- systems. Another possibility, if the required information is not
- available, is imply to obtain this information from the user
- yourself. For example, if you wished to know the length of the
- user's screen, when this information is not available from the
- door information file, you could simply prompt the user for
- their screen length the first time they use your door. This
- information could then be stored in your door's data files for
- future reference.
-
- As an example of testing what door information file your door is
- running under, consider the case where you wanted to display the
- user's birthday. The example below will display the user's
- birthday if it is known, and otherwise, print the string
- "unknown".
-
- if(od_control.od_info_type == RA1EXITINFO
- od_control.od_info_type == RA2EXITINFO)
-===============================================================================
-OpenDoors 6.00 Manual End of Page 158
-
- {
- od_disp_str(od_control.user_birthday);
- }
- else
- {
- od_disp_str("Unknown");
- }
-
- The chart below lists the door information file formats that
- OpenDoors recognizes, along with example BBS systems that
- produce these files and a reference letter for each type. Thus,
- an OpenDoors door can run DIRECTLY under ANY BBS SYSTEM that
- produces one of these files formats, and under ANY OTHER BBS
- system when used in conjunction with a door information file
- conversion utility.
-
-+--------------------------+----------------------------------------+
-| FILE FORMAT | EXAMPLE BBS SYSTEMS |
-+--------------------------+----------------------------------------+
-| CHAIN.TXT | WWIV |
-+--------------------------+----------------------------------------+
-| DORINFO1.DEF | RBBS-PC |
-+--------------------------+----------------------------------------+
-| DORINFO1.DEF | QuickBBS |
-| & | Remote Access (versions 0.01-0.04) |
-| EXITINFO.BBS (Std. Ver.) | |
-+--------------------------+----------------------------------------+
-| DOOR.SYS (DoorWay Style) | Remote Access |
-+--------------------------+----------------------------------------+
-| DOOR.SYS (PCB/GAP Style) | PC-Board |
-| | GAP |
-+--------------------------+----------------------------------------+
-| DOOR.SYS (WildCat Style) | Wildcat 3.00 and above |
-| | Telegard |
-+--------------------------+----------------------------------------+
-| SFDOORS.DAT | Spitfire |
-| | TriBBS |
-+--------------------------+----------------------------------------+
-| CALLINFO.BBS | WildCat 2.xx |
-+--------------------------+----------------------------------------+
-| DORINFO1.DEF | Remote Access (versions 1.00 and later)|
-| & | |
-| EXITINFO.BBS (Ext. Ver.) | |
-+--------------------------+----------------------------------------+
-
-
-
- The chart on the following page lists all of the OpenDoors
- control structure variables in this section, along with a brief
- description of their use. The variables are then described in
- detail, below.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 159
-
-+-----------------------+-----------------------------------------------+
-| VARIABLE NAME | VARIABLE CONTENTS |
-+-----------------------+-----------------------------------------------+
-| EMSI INFORMATION | Information on current IEMSI session |
-| event_status | The status of the next system event |
-| event_starttime | The start time of the next system event |
-| event_errorlevel | The errorlevel of the next system event |
-| event_days | The days of the week to execute the event |
-| event_force | Whether the next system event is forced |
-| event_last_run | When the next system event was last run |
-| sysop_name | The name of the BBS's sysop |
-| system_calls | Total number of calls BBS has received |
-| system_last_caller | The name of the last caller to the BBS |
-| system_last_handle | The handle (alias) of the last caller |
-| system_name | The name of the BBS |
-| TIMELOG VARIABLES | The times at which the BBS has been most busy |
-| user_ansi | Whether the user has ANSI graphics mode on |
-| user_attribute | User attribute bit-mapped flags |
-| user_attrib2 | Second set of user attribute bit-mapped flags |
-| user_attrib3 | Third set of user attribute flags |
-| user_avatar | Whether the user has AVATAR graphics mode on |
-| user_birthday | The date the user was born |
-| user_callsign | The user's amateur radio call sign |
-| user_combinedrecord | The user's combined message areas settings |
-| user_comment | Sysop's comment about the user |
-| user_credit | Amount of NetMail credit the user has |
-| user_dataphone | The user's data phone number |
-| user_date_format | Format user wishes to have dates displayed in |
-| user_deducted_time | Total time that has been subtracted from user |
-| user_downk | Total Kilobytes downloaded by the user |
-| user_downlimit | User's daily download limit |
-| user_downloads | Total number of files downloaded by the user |
-| user_echomailentered | Whether or not the user has entered EchoMail |
-| user_error_free | Whether or not connection is error-free |
-| user_file_area | The user's current file area |
-| user_firstcall | Date of the user's first call to the BBS |
-| user_flags | User's sysop-defined flag settings |
-| user_forward_to | Name to forward user's mail to |
-| user_group | User's group number |
-| user_handle | User's alias |
-| user_homephone | User's home telephone number |
-| user_language | User's language setting |
-| user_last_pwdchange | Total calls since last password change |
-| user_lastdate | Date of the user's last call |
-| user_lastread | Highest message number read by user |
-| user_lasttime | Time of the user's last call |
-| user_location | Name of the city where the user lives |
-| user_logindate | Date on which the current call began |
-+-----------------------+-----------------------------------------------+
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 160
-
-
-
-
-+-----------------------+-----------------------------------------------+
-| VARIABLE NAME | VARIABLE CONTENTS |
-+-----------------------+-----------------------------------------------+
-| user_loginsec | User's security at the beginning of this call |
-| user_logintime | Time at which the current call began |
-| user_logonpassword | User's password at the beginning of this call |
-| user_menustack | Contents of the user's current menu stack |
-| user_menustackpointer | Pointer to the top of the menu stack |
-| user_messages | Total number of messages written by the user |
-| user_msg_area | The user's current message area |
-| user_name | The user's name |
-| user_net_credit | The user's remaining netmail credit |
-| user_netmailentered | Whether or not the user has entered NetMail |
-| user_num | The user's record number in the user file |
-| user_numcalls | Number of calls the user has made to the BBS |
-| user_numpages | Number of times the user has paged the sysop |
-| user_password | The user's current password |
-| user_pending | The value of unsent NetMail written by user |
-| user_reasonforchat | The reason the user wishes to chat with sysop |
-| user_rip_ver | RIP protocol version being used |
-| user_screen_length | The length of the user's screen |
-| user_screenwidth | The width of the user's screen |
-| user_security | The user's security access level |
-| user_sex | The user's gender |
-| user_subdate | The date the user's subscription expires |
-| user_timelimit | The user's daily time limit |
-| user_todayk | Kilobytes downloaded by the user today |
-| user_upk | Total Kilobytes uploaded by the user |
-| user_uploads | Total number of files uploaded by the user |
-| user_wantchat | Whether or not the user wishes to chat |
-| user_xi_record | The user's record in the USERSXI.BBS file |
-+-----------------------+-----------------------------------------------+
-
-
-
-
--------------------------------------------------------------------------------
-EMSI char od_control.ra_emsi_session;
-INFORMATION char od_control.ra_emsi_crtdef[41];
- char od_control.ra_emsi_protocols[41];
- char od_control.ra_emsi_capabilities[41];
- char od_control.ra_emsi_requests[41];
- char od_control.ra_emsi_software[41];
- char od_control.ra_hold_attr1;
- char od_control.ra_hold_attr2;
- char od_control.ra_hold_len;
-
- These variables provide your door with information pertaining to
- an interactive EMSI session that has been established. Note that
-===============================================================================
-OpenDoors 6.00 Manual End of Page 161
-
- these variables are only available under systems that produce an
- RA 1.00 and later style extended EXITINFO.BBS door information
- file.
-
- If an IEMSI session has been established, the Boolean variable
- od_control.ra_emsi_session will be TRUE, and if no session has
- not been established, this variable will be FALSE.
-
- A full discussion of the IEMSI protocol is beyond the scope of
- this manual. Specifications for the IEMSI protocol are available
- from the OpenDoors support BBS.
-
-
-
--------------------------------------------------------------------------------
-event_days unsigned char od_control.event_days;
-
- This variable is a bit-mapped flag of the days of the week on
- which the next system event is run. The bit-map bits are as
- follows:
-
- +-----+------+-----------+
- | BIT | MASK | MEANING |
- +-----+------+-----------+
- | 0 | 0x01 | Sunday |
- | 1 | 0x02 | Monday |
- | 2 | 0x04 | Tuesday |
- | 3 | 0x08 | Wednesday |
- | 4 | 0x10 | Thursday |
- | 5 | 0x20 | Friday |
- | 6 | 0x40 | Saturday |
- | 7 | 0x80 | All Days |
- +-----+------+-----------+
-
- For more information on bit-mapped flags, see the glossary item
- entitled "BIT-MAPPED FLAGS".
-
- This variable is only available under systems that produce an
- EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-event_ unsigned char od_control.event_errorlevel;
-errorlevel
- This variable contains the ErrorLevel associated with the next
- system event. This variable is only available under systems that
- produce an EXITINFO.BBS door information file.
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 162
-
--------------------------------------------------------------------------------
-event char od_control.event_force;
-_force
- This variable indicates whether the next system event should be
- forced to run at a particular time. If this variable contains a
- value of TRUE, then the user should be forced off-line in order
- to accommodate the event, and if this variable is false, then
- the event can wait until after the user logs off normally. This
- variable is only available under systems that produce an
- EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-event char od_control.event_last_run[9];
-_last_run
- This variable contains a string representing the date on which
- the next system event was last run, and is in the same format as
- the user_lastdate variable. This variable is only available
- under systems that produce an EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-event char od_control.event_starttime[6];
-_starttime
- This variable contains a string representing the time at which
- the next system event is scheduled to start, in the same format
- as the user_lasttime variable. This variable is only available
- under systems that produce an EXITINFO.BBS or Wildcat style
- DOOR.SYS door information file.
-
-
-
--------------------------------------------------------------------------------
-event unsigned char od_control.event_status;
-_status
- This variable represents the status of the next system event,
- and will be equal to the value
-
- ES_ENABLED
-
- if and only if the other event information contained in the
- control structure is valid. This variable is only available
- under systems that produce an EXITINFO.BBS file.
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 163
-
--------------------------------------------------------------------------------
-sysop_name char od_control.sysop_name[40];
-
- The od_control.sysop_name variable contains the name of the
- sysop of the BBS under which your door is running. This variable
- is available under any BBS system that produces a DORINFO?.DEF
- (including RA & QBBS which process both DORINFO1.DEF and
- EXITINFO.BBS files), or Wildcat style DOOR.SYS file.
-
-
-
--------------------------------------------------------------------------------
-system_calls long od_control.system_calls;
-
- This variable contains the total number of calls that have been
- placed to the BBS, and is available under any BBS which produces
- an EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-system_last char od_control.system_last_caller[36];
-_caller
- This string contains the name of the previous caller to the BBS,
- on any line, and is available under EXITINFO.BBS.
-
-
-
--------------------------------------------------------------------------------
-system_last char od_control.system_last_handle[36];
-_handle
- This string contains the handle (alias) of the previous caller
- to the BBS, on any line, and is available under EXITINFO.BBS.
-
-
-
--------------------------------------------------------------------------------
-system_name char od_control.system_name[40];
-
- The od_control.system_name variable contains the name of the BBS
- under which your door is running. This variable is available
- under any BBS system that produces a DORINFO?.DEF (including RA
- & QBBS which process both DORINFO1.DEF and EXITINFO.BBS files).
-
-
-
--------------------------------------------------------------------------------
-TIMELOG char od_control.timelog_start_date[9];
-VARIABLES
- This string contains the date of the beginning of the time
- period for which the time log is recorded. This variable is
- available under any system that produces an EXITINFO.BBS file.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 164
-
-
-
- int od_control.timelog_busyperhour[24];
-
- This variable is an array of 24 elements, with each element
- indicating the total number of times the BBS was in use during
- each of the 24 hours of the day. Element 0 corresponds to the
- time period of 0:00-1:00, element 1 corresponds to the time
- period of 1:00-2:00, and so on. In order to determine the
- frequency of system use during any hour as a percentage, simply
- calculate the total of all 24 entries in the array, and divide
- any given entry by the total, in order to come up with an
- average. This variable is available under any system that
- produces an EXITINFO.BBS file.
-
-
- int od_control.timelog_busyperday[7];
-
- This variable is an array of 7 elements, with each element
- indicating the total number of times the BBS was in use during
- each of the 7 days of the week. Here, elements 0 corresponds to
- Sunday, element 1 to Monday, and so on. In order to calculate
- the frequency of system use during any day of the week, use the
- same method as for calculating the frequency of calls during
- each hour, as described above. This is only available under
- systems that produces an EXITINFO.BBS file. Note that at least
- some, if not all, versions of RemoteAccess do not maintain this
- variable correctly, and thus even with the presence of an
- EXITINFO.BBS file, this array may contain all zero entries.
-
-
-
--------------------------------------------------------------------------------
-user_ansi char od_control.user_ansi;
-
- This variable contains a Boolean value, indicating whether or
- not the user has ANSI mode turned on. If ANSI graphics mode is
- enabled, this variable will contain a value of TRUE, and if ANSI
- graphics mode is disabled, this variable will contain a value of
- FALSE. Many of the OpenDoors functions test the setting of this
- variable in order to determine whether or not they should send
- ANSI-graphics control characters. Also, if this variable
- contains a TRUE value, OpenDoors will display an "[ANSI]"
- indicator on the status line.
-
- You may change the value of this variable at any time after the
- first call to od_init() or any other OpenDoors functions.
- Depending upon what BBS system your door is running under,
- changes to this variable may or may not result in changes to the
- user's ANSI setting upon return to the BBS.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 165
-
- This variable is available under all door information file
- formats.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned char od_control.user_attribute;
-attribute
- This variable is a bitmap of eight flags, each of which
- represent individual pieces of information pertaining to the
- user that is currently online. These flags are as follows:
-
- +-----+------+-----------------------+
- | BIT | MASK | DESCRIPTION |
- +-----+------+-----------------------+
- | 0 | 0x01 | Is the user deleted |
- | 1 | 0x02 | Is screen clearing on |
- | 2 | 0x04 | Is "more" prompt on |
- | 3 | 0x08 | Is ANSI mode on |
- | 4 | 0x10 | User no-kill setting |
- | 5 | 0x20 | Transfer-priority |
- | 6 | 0x40 | Full screen editor |
- | 7 | 0x80 | Quiet mode |
- +-----+------+-----------------------+
-
- For more information on using and setting bit-mapped flags,
- please see the entry entitled "BITMAPED FLAGS" in the glossary
- of this manual.
-
- Note that this variable is only available under systems that
- produce and EXITINFO.BBS format door information file.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned char od_control.user_attrib2;
-attrib2
- See the user_attrib variable for more information. This variable
- is like the user_attrib variable, except that it contains
- different information. The bit-mapped flags for the
- od_control.user_attrib2 variable are as follows:
-
- +-----+------+-----------------------+
- | BIT | MASK | DESCRIPTION |
- +-----+------+-----------------------+
- | 0 | 0x01 | User hot-keys setting |
- | 1 | 0x02 | Is AVATAR graphics on |
- | 2 | 0x04 | Full screen reader |
- | 3 | 0x08 | Hidden from userlist |
- +-----+------+-----------------------+
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 166
-
- Note that this variable is only available under systems that
- produce an EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned char od_control.user_attrib3;
-attrib3
- This variable contains user attribute flags when a RA 2.50 or
- later EXITINFO.BBS file is used.
-
-
-
--------------------------------------------------------------------------------
-user_avatar char od_control.user_avatar;
-
- This variable is a Boolean value indicating whether or not
- AVATAR graphics mode is on. If AVATAR graphics is available,
- then many of the OpenDoors functions will make use of AVATAR
- graphics codes for greater display speed. If AVATAR graphics
- mode is on, a [AVT] indicator will appear on the status line. If
- your door is running under a system which produces an RA 1.00+
- style extended EXITINFO.BBS door information file, the
- user_avatar variable is set automatically. If the extended
- EXITINFO.BBS file is not available, this value will default to
- FALSE. In this case, you may wish to ask the user whether or not
- they wish to use AVATAR graphics, and thus set this variable
- yourself.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_birthday[9];
-_birthday
- This variable is a string, in the same format as the
- od_control.user_lastcall variable, which stores the date of the
- user's birthday, if it is available. This variable is only
- available under systems that produce an RA 1.00 and later style
- extended EXITINFO.BBS or Wildcat style DOOR.SYS file.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_callsign[12];
-_callsign
- This variable is a string which contains the user's amateur
- radio call sign, if any. This variable is only available under
- systems that produce a CHAIN.TXT file.
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 167
-
--------------------------------------------------------------------------------
-user_combined unsigned char od_control.user_combinedrecord[25];
-record
- This variable is an array of bit-mapped flags, with each flag
- corresponding to an individual message area. In this case, the
- first bit of od_control.ra_combinedrecord[0] corresponds to the
- first message area, the second bit to the second message area,
- and so on. If any given bit-flag is turned on, then the user has
- corresponding message area enabled for combined access, and if
- the bit is turned off, the user does not have the area enabled
- for combined access. A detailed description of the combined
- message access is beyond the scope of this manual. This variable
- is only available under systems that produce an RA 1.00 or later
- style extended EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_comment char od_control.user_comment[81];
-
- This variable is a string which contains the sysop's comment
- about the user that is currently online. This comment may be
- displayed on the OpenDoors status line, if this variable is
- available. This variable is available under systems that produce
- an RA 1.00 and later style extended EXITINFO.BBS or Wildcat
- style DOOR.SYS file.
-
-
-
--------------------------------------------------------------------------------
-user_credit unsigned int od_control.user_credit;
-
- This variable contains the total amount of NetMail credit that
- the caller has left. Changes to this variable will be by the BBS
- when your door exits and control is returned to the BBS. This
- variable is only available under systems that produce an
- EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_ char od_control.user_dataphone[13];
-dataphone
- This string contains the user's data or business phone number,
- if available. This value is only available under system that
- produce EXITINFO.BBS, PC-Board/GAP style DOOR.SYS and WildCat
- DOOR.SYS format door information files.
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 168
-
--------------------------------------------------------------------------------
-user int od_control.user_deducted_time;
-_deducted
-_time This variable contains a signed integer value, which indicates
- the total amount of time that has been deducted from the user
- during this call. This variable is only available under systems
- that produce an RA 1.00 and later style extended EXITINFO.BBS
- door information file.
-
-
-
--------------------------------------------------------------------------------
-user_downk unsigned int od_control.user_downk;
-
- This variable contains the total kilobytes of files that the
- current user has downloaded from the BBS, and is available under
- systems that produce EXITINFO.BBS, Wildcat style DOOR.SYS or
- SFDOORS.DAT format door information files.
-
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_downlimit;
-_downlimit
- This variable contains the total number of kilobytes that the
- caller is permitted to download during this call. If your door
- allows files do be downloaded, you will probably want to compare
- the value of this variable to the size of any file to be
- transferred and the total kilobytes already downloaded, as
- stored in the od_control.user_todayk variable. This variable is
- only available under systems that produce an EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_downloads;
-_downloads
- This variable contains the total number of files that the
- current user has downloaded from the BBS, and is available under
- systems that produce EXITINFO.BBS, PC-Board/GAP style DOOR.SYS,
- WildCat style DOOR.SYS or SFDOORS.DAT format door information
- files.
-
-
-
--------------------------------------------------------------------------------
-user_echo char od_control.user_echomailentered;
-mailentered
- This variable is a Boolean value, indicating whether or not the
- user has entered new EchoMail during this call. If this variable
- has a value of TRUE, then EchoMail has been entered, and if it
- has a value of FALSE, then EchoMail has not been entered. This
-===============================================================================
-OpenDoors 6.00 Manual End of Page 169
-
- variable will contain a valid value only after od_init() or some
- OpenDoors function has been called. Any changes made to this
- variable will be reflected within the BBS software when control
- is returned to the BBS. This variable is accessible only under
- systems which produce an EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_error char od_control.user_error_free;
-_free
- This variable contains a Boolean value indicating whether or not
- the user is connected to the BBS via an error free connection
- (eg. a V.42/MNP or similar modem protocol). This variable is
- only available under systems that produce an SFDOORS.DAT,
- Wildcat style DOOR.SYS or RA 1.00 or later style extended
- EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_first char od_control.user_firstcall[9];
-call
- This variable is a string which contains the date of the user's
- first call, in the same format as the od_control. user_lastcall
- variable. This variable is only available under systems which
- produce an RA 1.00 and later style extended EXITINFO.BBS door
- information file.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned char od_control.user_flags[4];
-flags
- The od_control.user_flags variable is an array of four sysop
- defined bit-mapped flags, which represent some sort of
- information about the user. od_control.user_flags[0] stores
- flags A1 - A8 in bits 0 through 7, respectively. Likewise,
- od_control.user_flags[1] stores flags B1 - B8, and so on. This
- variable is only available under systems that produce
- EXITINFO.BBS format door information files.
-
-
-
--------------------------------------------------------------------------------
-user_handle char od_control.user_handle[36];
-
- This variable contains the user's alias or handle name, if any.
- If the user does not have and alias or handle, this variable
- will be blank. This variable is only available under systems
- that produce a CHAIN.TXT, RA 1.00 and later extended
- EXITINFO.BBS or Wildcat style DOOR.SYS door information file.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 170
-
-
-
-
--------------------------------------------------------------------------------
-user_ char od_control.user_homephone[13];
-homephone
- This string contains the user's home or data phone number, if
- available. This value is only available under system that
- produce one of the following door information files:
- EXITINFO.BBS, PC-Board/GAP style DOOR.SYS, WildCat style
- DOOR.SYS or SFDOORS.DAT.
-
-
-
--------------------------------------------------------------------------------
-user unsigned char od_control.user_last_pwdchange;
-_last
-_pwdchange This variable contains the number of calls that the user has
- made since they last changed their password. This variable is
- only available under EXITINFO.BBS files.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_lastdate[9];
-_lastdate
- This variable is a string containing the date of the user's last
- call to the BBS, and should always be of the format:
-
- "MM-DD-YY"
-
- Where MM is two digits representing the number of the month of
- the user's call, with 1 being January, 2 being February, and so
- on. DD should be two digits representing the day of the month of
- the user's last call, beginning with 1, and MM should be the
- last two digits of the year of the user's last call.
-
- This variable is only available under systems that produce one
- of the following door information files: CHAIN.TXT,
- EXITINFO.BBS, PC-Board/GAP style DOOR.SYS or WildCat style
- DOOR.SYS files.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned int od_control.user_lastread;
-lastread
- This variable contains the number of the highest message number
- that the user has read, and is only available under EXITINFO.BBS
- format door information files.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 171
-
-
--------------------------------------------------------------------------------
-user char od_control.user_lasttime[6];
-_lasttime
- This variable contains a string representing the time of the
- user's last call to the BBS, and should always be of the format:
-
- "HH:MM"
-
- Where HH is two digits representing the 24-hour format hour of
- the user's last call, and MM is two digits representing the
- minute of the user's last call. Thus, the following strings
- would be valid entries for this string:
-
- "00:01" (12:01 am)
- "03:47" (3:47 am)
- "18:20" (6:20 pm)
-
- This variable is only available under systems that produce an
- EXITINFO.BBS or Wildcat style DOOR.SYS format door information
- file.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_location[26];
-_location
- This string contains the name of the location from which the
- current user is calling from. This will usually be the name of
- the city, region (province, state, etc.) and sometimes country
- where the user lives. The contents of this variable are
- displayed on the OpenDoors status line. The value of this
- variable is valid after od_init() or any other OpenDoors
- function has been called. Also, you may change the value of this
- variable if you wish. However, not that these changes may not
- immediately be reflected in the status line, and may or may not
- cause the setting to be changed after the user returns to the
- BBS. This variable is available under systems that produce one
- of the following door information files: DORINFO?.DEF,
- EXITINFO.BBS, PC-Board/GAP style DOOR.SYS, WildCat style
- DOOR.SYS SFDOORS.DAT and CALLINFO.BBS, but is not available
- under CHAIN.TXT or DoorWay style DOOR.SYS files.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.caller_logindate[9];
-_logindate
- This variable contains a string representing the date on which
- the current call to the BBS began. This variable is in the same
- format as the od_control.user_lastdate variable, described
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 172
-
- below. This variable is only available under systems which
- produce an EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-user long od_control.user_loginsec;
-_loginsec
- This variable contains the user's security at login, and can be
- used to detect changes by the sysop or other programs during the
- course of the call, by comparing it's value with the
- od_control.user_security variable. This variable is only
- available under systems which produce an EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_logintime[6];
-_logintime
- This variable contains a string representing the time of day at
- which the current call to the BBS began. This variable is in the
- same format as the od_control.user_lasttime variable, which is
- also described below. This variable is available under systems
- which produce an EXITINFO.BBS, a Wildcat style DOOR.SYS, or an
- SFDOORS.DAT file.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_logonpassword[16];
-_logon
-password This variable is a string which contains the user's password
- at the time at which the current call to the BBS began. This
- variable can be used to detect changes by the sysop or other
- programs to the user's password, which have taken place during
- the course of the call. In order to detect such changes, simply
- compare the contents of this string with the contents of the
- od_control.user_password variable. This variable is only
- available under systems which produce an EXITINFO.BBS format
- door information file.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_menustack[50][9];
-_menustack
- This variable is an array of 50 strings, containing the stack of
- BBS menus that have been executed, and is used to record the
- current position of the user within the BBS's menu system. Each
- string contains just the base portion of the filename of the
- menu, without the extension. The od_control.ra_menustackpointer
- variable points to the top of the menu stack. However, a
-===============================================================================
-OpenDoors 6.00 Manual End of Page 173
-
- complete discussion of the menu stack is beyond the scope of
- this manual. This variable is only available under systems that
- produce an RA 1.00 and later style extended EXITINFO.BBS door
- information file.
-
-
-
--------------------------------------------------------------------------------
-user unsigned char od_control.user_menustackpointer;
-_menustack
-pointer This variable points to the top of the current menu stack. For
- more information on the menu stack, please refer to the
- od_control.ra_menustack variable, above. This variable is only
- available under systems that produce an RA 1.00 and later style
- extended EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_messages;
-_messages
- This variable contains a value representing the total number of
- messages that have been written by the user, and is available
- under EXITINFO.BBS or Wildcat style DOOR.SYS format door
- information files.
-
-
-
--------------------------------------------------------------------------------
-user_name char od_control.user_name[36];
-
- This string contains the name of the user that is currently on-
- line, and is used by OpenDoors to display the current user name
- on the status line, and will most likely be used by your door
- for differentiating among different users. In most cases, you
- should probably not change the value of this variable, as a
- user's name does not usually change, and doing so could results
- in problems when returning to some BBS systems. For an example
- of using this variable, see the EX_VOTE.C example program. This
- variable is available under all BBS systems.
-
-
-
--------------------------------------------------------------------------------
-user_net_ unsigned int od_control.user_net_credit;
-credit
- This variable contains the amount of NetMail credit that the
- current user has to his or her name. This variable is only
- available under systems that produce an EXITINFO.BBS file.
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 174
-
- Note that if you wish to change the value of the user's
- remaining NetMail credit, you should use the od_control.
- user_credit variable, instead of this variable.
-
-
-
--------------------------------------------------------------------------------
-user_net char od_control.user_netmailentered;
-mailentered
- This variable is a Boolean value, indicating whether or not the
- user has entered new NetMail or GroupMail during this call. If
- this variable has a value of TRUE, then NetMail/GroupMail has
- been entered, and if it has a value of FALSE, then
- NetMail/GroupMail has not been entered. This variable will
- contain a valid value only after od_init() or some OpenDoors
- function has been called. Any changes made to this variable will
- be reflected within the BBS software when control is returned to
- the BBS. This variable is accessible only under systems which
- produce an EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_num unsigned int od_control.user_num;
-
- This variable contains the number of the user's record in the
- user database file, where 0 is the first record. This can be
- useful for changing user settings that are not re-read by the
- BBS, such as the user's phone number or security level which
- might be altered by a call back verification door. However, the
- value of this variable itself should not be altered.
-
- This variable is available under systems which produce any of
- the following door information file formats: CHAIN.TXT, PC-
- Board/GAP style DOOR.SYS, Wildcat style DOOR.SYS SFDOORS.DAT and
- EXITINFO.BBS.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned int od_control.user_numcalls;
-numcalls
- This variable contains the total number of calls that the
- current user has placed to the BBS, and is available under
- systems that produce EXITINFO.BBS or PC-Board/GAP and Wildcat
- style DOOR.SYS door information files.
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 175
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_numpages;
-_numpages
- The value of this variable contains the total number of times
- that the user has paged the sysop, and can be used to limit the
- number of times that the user is permitted to page the sysop.
- OpenDoors increments this variable every time that the user
- pages the sysop, via the od_page() function. This variable is
- used with all types of door information files. However, this
- variable will only reflect the value within the BBS if an
- EXITINFO.BBS file is produced. Otherwise, the variable will only
- contain the number of times that the user has paged within the
- door, but not the total number of times the user has paged.
- Under EXITINFO.BBS systems, changes to the value of this
- variable will be reflected within the BBS upon return by the
- DOOR.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_password[16];
-_password
- This variable contains the user's password for accessing the
- BBS. OpenDoors does not use this value itself. This variable
- will contain a valid value only after od_init() or some
- OpenDoors function has been called. You may change the value of
- this variable. Note, however, that changes in this variable may
- or may not cause the setting to be changed when control returns
- to the BBS - this will depend upon the particular BBS system
- your door is running under. This variable is only available
- under systems that produce one of the following door information
- files: EXITINFO.BBS, PC-Board/GAP and Wildcat style DOOR.SYS,
- SFDOORS.DAT, and CALLINFO.BBS.
-
-
-
--------------------------------------------------------------------------------
-user_pending unsigned int od_control.user_pending;
-
- This variable represents the total value of NetMail that has
- been written by the current user, but not yet exported from the
- message base. This variable is only available under systems that
- produce an EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user_reason char od_control.user_reasonforchat[78];
-forchat
- This variable is a string, containing the reason for which the
- user wishes to chat with the sysop, as they entered at the time
- of paging the sysop. This variable will contain an empty string
-===============================================================================
-OpenDoors 6.00 Manual End of Page 176
-
- if the user has not paged the sysop, or if the reason the user
- wishes to chat is unknown. See also the od_control.user_wantchat
- variable. This variable is available under all BBS systems,
- regardless of what style of door information file they produce.
- However, this variable will not be passed between the door and
- BBS, and thus the user's reason for chat within the door will
- not necessarily correspond to their reason for chat outside the
- door.
-
-
-
--------------------------------------------------------------------------------
-user_rip char user_rip;
-
- This variable is set to TRUE if the user has RIP (Remote Imaging
- Protocol) graphics enabled, and FALSE if they do not. This
- setting can be determined from the door information (drop) file
- in many cases. In other cases, you can automatically determine
- whether or not the user's system supports RIP graphics using the
- od_autodetect() function (see page 48).
-
-
-
--------------------------------------------------------------------------------
-user_rip_ver BYTE user_rip_ver;
-
- This variable contains the version of the RIP protocol that is
- in use. This variable is only available under a RemoteAccess
- 2.50 EXITINFO.BBS file.
-
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_screen_length;
-_screen
-_length This value of this variable represents the total number of
- lines that can be displayed on the user's screen at once, and is
- usually either 24 or 25. You may wish to make use of this
- variable to allow your door to pause the display of long pieces
- of text after every screen length, in order to allow the user to
- read this information before it passes off of their screen. In
- this case, you would simply maintain a counter of the total
- number of lines displayed, and when this value reaches one less
- than the length of the user screen, display a prompt asking the
- user to whether or not they wish to continue.
-
- This variable is set to the user's setting within the BBS under
- systems that produce any of the following door information file
- formats: CHAIN.TXT, EXITINFO.BBS, PC-Board/GAP and Wildcat style
- DOOR.SYS and CALLINFO.BBS files.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 177
-
- This variable is used by the OpenDoors function,
- od_list_files(). If this variable contains a valid value,
- OpenDoors will pause the listing of files after every screen,
- and give the user the option of continuing, aborting, or
- disabling the "Continue?" prompt for the rest of the file
- listing. Thus, if you are using the od_list_files() under a
- system that does not produce one of the door information files
- listed above, you may wish to obtain the user's screen length
- from the user themselves. If the screen length is not available
- from the particular type of door information file that is found,
- and you do not set this value yourself, this variable will
- default to 23. If you are going to set the value of this
- variable yourself, you should do so after having called
- od_init() or some OpenDoors function.
-
-
-
--------------------------------------------------------------------------------
-user_ unsigned char od_control.user_screenwidth;
-screenwidth
- This variable contains a value representing the width of the
- user's screen, and will most often be equal to 80. This variable
- is only available under systems that produce a CHAIN.TXT or RA
- 1.00 and later style extended EXITINFO.BBS door information
- file.
-
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_security;
-_security
- This variable contains a numerical value representing the user's
- security access level on the BBS. You may wish to use this value
- to determine whether or not the current user of your door should
- have access to certain sysop-only functions. In this case, you
- may wish to have a configuration file used by your door, in
- which the sysop may define the minimum security level for sysop
- access. You would then be able to compare this configuration
- setting to the security level stored in this variable, in order
- to determine whether or not sysop function should be available.
- An alternative method, used by the EX_VOTE.C sample door, of
- determining whether or not the current user is the sysop is to
- compare the user's name with the value of the
- od_control.sysop_name variable. This method has the advantage of
- not requiring a configuration program, but the disadvantage that
- the door will not function correctly under all BBS systems, as
- the od_control.sysop_name variable is not available under all
- BBS systems.
-
- The od_control.user_security variable is available under BBS
- systems that produce any of the following door information file
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 178
-
- formats: CHAIN.TXT, EXITINFO.BBS, PC-Board/GAP and Wildcat style
- DOOR.SYS, SFDOORS.DAT or CALLINFO.BBS.
-
-
-
--------------------------------------------------------------------------------
-user_sex char od_control.user_sex;
-
- This variable contains a single character representing the
- gender of the user that is currently online. This variable will
- contain an upper-case 'F' if the user is female, and an upper-
- case 'M' if the user is male. This variable is available under
- systems that produce a CHAIN.TXT or RA 2.x style EXITINFO.BBS
- file.
-
-
-
--------------------------------------------------------------------------------
-user_subdate char od_control.user_subdate[9];
-
- This variable is a string, in the same format as the
- od_control.user_lastdate variable, which stores the date of
- expiry of the user's subscription to the BBS. This variable is
- only available under systems which produce a PC-Board/GAP and
- Wildcat style DOOR.SYS or RA 1.00 and later style extended
- EXITINFO.BBS door information file.
-
-
-
--------------------------------------------------------------------------------
-user int od_control.user_timelimit;
-_timelimit
- This variable contains the amount of time, in minutes, that the
- user has left in the door. Note that this value may or may not
- be equal to the total amount of time that the user has left on
- the BBS, depending upon whether the BBS or a third-party door
- manager program only allows a limited amount of time in this
- door. This variable contains a valid value after od_init() or
- some OpenDoors function has been called. OpenDoors uses this
- variable to keep track of how much time the user has left in the
- door, and will automatically warn the user when nearly all of
- his or her time has been used up. OpenDoors will also force the
- user out of the door when their time in the door has expired.
- OpenDoors automatically subtracts one minute from this variable
- every minute that OpenDoors is active, unless chat mode has been
- activated (in which case the user's time will freeze), and also
- adjusts the value of this variable when the sysop uses the time
- adjustment function keys. Hence, you will not normally have any
- need to alter the value of this variable yourself. However,
- there may be some cases in which you wish to subtract a penalty
- or add a bonus to the user's time, such as in a "timebank" door
- or a door game that permits the user to "gamble time".
-===============================================================================
-OpenDoors 6.00 Manual End of Page 179
-
-
- Depending on which BBS system your door is running under, the
- value of this variable may or may not effect the user's time
- left upon return to the BBS. The BBS system will either reset
- the user's time to the value re-written to the door information
- file (this variable), or will always subtract the amount of time
- spent in the door from the user's remaining time.
-
- This variable is available under all door information file
- formats.
-
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_todayk;
-_todayk
- This variable contains the total kilobytes of files that the
- current user has downloaded from the BBS during the current day,
- and is available under systems that produce EXITINFO.BBS, PC-
- Board/GAP and Wildcat style DOOR.SYS, or SFDOORS.DAT format door
- information files.
-
-
-
--------------------------------------------------------------------------------
-user_upk unsigned int od_control.user_upk;
-
- This variable contains the total kilobytes of files that the
- current user has uploaded to the BBS, and is available under
- systems that produce EXITINFO.BBS, Wildcat style DOOR.SYS or
- SFDOORS.DAT files.
-
-
-
--------------------------------------------------------------------------------
-user_uploads unsigned int od_control.user_uploads;
-
- This variable contains the total number of files that the
- current user has uploaded to the BBS, and is available under
- systems that produce EXITINFO.BBS, PC-Board/GAP and Wildcat
- style DOOR.SYS, or SFDOORS.DAT format door information files.
-
-
-
--------------------------------------------------------------------------------
-user char od_control.user_wantchat;
-_wantchat
- This variable is a Boolean value which indicates whether or not
- the user wishes to chat with the sysop (ie, the user has paged
- the sysop, but has yet to receive a chat with the sysop). This
- variable is used under all door information file formats.
- However, changes to this variable are only reflected on the BBS
-===============================================================================
-OpenDoors 6.00 Manual End of Page 180
-
- when the door is running under a system that produces an
- EXITINFO.BBS door information file.
-
- This variable is automatically turned on (ie., set to TRUE),
- when the user begins to page the sysop for chat, within the
- od_page() function, and is automatically turned off (ie., set to
- FALSE), when the sysop breaks in for chat via the chat function
- key. Also, setting this variable to TRUE will turn on the
- flashing want-chat indicator on the OpenDoors status line.
-
-
--------------------------------------------------------------------------------
-user unsigned int od_control.user_xi_record;
-_xi_record
- This variable contains the number of the user's record in the
- USERXI.BBS file, if any. This variable is only available under
- system that produce a Remote Access 1.00 and later style
- extended door information file.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 181
-
-CONTROL STRUCTURE - DOOR SETTINGS
--------------------------------------------------------------------------------
-
- This section deals with those variables in the OpenDoors control
- structure which reflect the current door settings. These
- variables are as follows:
-
- od_cur_attrib The current display attribute, or -1 if
- unknown.
-
- od_okaytopage Controls whether the user is currently
- permitted to page the sysop.
-
- od_pageendmin End of valid paging hours.
-
- od_pagestartmin Start of valid paging hours.
-
- od_silent_mode Turns off local user interface.
-
- od_user_keyboard_on Controls whether OpenDoors will
- currently accept input from the remote
- user's keyboard.
-
- od_update_status_now Forces immediate update of the status
- line.
-
- sysop_next Indicates whether or not the sysop has
- reserved use of the system after the
- current calls.
-
-
-
--------------------------------------------------------------------------------
-od_cur int od_control.od_cur_attrib;
-_attrib
- This read-only values stores the current display color
- attribute, or the value -1 if the current display color is
- unknown (such as when the door first begins execution).
-
-
-
--------------------------------------------------------------------------------
-od char od_control.od_okaytopage;
-_okaytopage
- This variable allows you to control whether or not the user is
- currently permitted to page the sysop via the od_page()
- function. A value of PAGE_ENABLE indicates that paging is
- currently permitted, regardless of the sysop page hours setting.
- A value of PAGE_DISABLE indicates that paging is not current
- permitted. A value of PAGE_USE_HOURS indicates that the
- od_page() function should check the values of the
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 182
-
- od_pagestartmin and od_pageendmin variables in order to
- determine whether or not paging should be permitted.
- The od_okaytopage variable should only be set after you call
- od_init() or some other OpenDoors function. The default value is
- PAGE_USE_HOURS. For more information on the od_page() function
- itself, see page 101.
-
-
-
--------------------------------------------------------------------------------
-od unsigned int od_control.od_pageendmin;
-_pageendmin
- This variable can be used to set the beginning of valid sysop
- paging hours within the od_page() function. If the
- od_control.od_okaytopage variable (which is described above) is
- set to MAYBE, then OpenDoors will check the value of this
- variable prior to paging the sysop via the od_page() function.
- This variable should contain the time at which the valid sysop
- paging hours end, represented as the a number of minutes since
- midnight. For more information on the od_page() function itself,
- see page 101.
-
-
-
--------------------------------------------------------------------------------
-od unsigned int od_control.od_pagestartmin;
-_pagestartmin
- This variable can be used to set the beginning of valid sysop
- paging hours within the od_page() function. If the
- od_control.od_okaytopage variable (which is described above) is
- set to MAYBE, then OpenDoors will check the value of this
- variable prior to paging the sysop via the od_page() function.
- This variable should contain the time at which the valid sysop
- paging hours begin, represented as the a number of minutes since
- midnight. For more information on the od_page() function itself,
- see page 101.
-
-
-
--------------------------------------------------------------------------------
-od_silent BOOL od_control.od_silent_mode;
-_mode
- If this variable is set to TRUE prior to the first call to any
- OpenDoors function, OpenDoors will operate in silent mode, where
- the local display and sysop commands are not used. Silent mode
- is automatically disabled if the program is running in local
- mode.
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 183
-
--------------------------------------------------------------------------------
-od_update char od_control.od_update_status_now;
-_status_now
- Setting this variable to TRUE forces OpenDoors to update the
- status line during the next od_kernel() execution. When the
- status line is updated, this variable is reset to its default
- value of FALSE.
-
-
-
--------------------------------------------------------------------------------
-od_user char od_control.od_user_keyboard_on;
-_keyboard_on
- This variable is a Boolean value, indicating whether OpenDoors
- will currently accept input from a remote user. OpenDoors
- provides a function key (usually [ALT]-[K], unless you have
- changed the default), which will allow the sysop to temporarily
- prevent the user from having any control over the door. When the
- sysop activates this feature, a flashing [Keyboard-Off]
- indicator will appear on the status line, and this variable will
- be set to FALSE. When the sysop presses the [ALT]-[K]
- combination a second time, to toggle the user's keyboard back
- on, the flashing indicator will disappear, and this variable
- will be set back to TRUE.
-
-
-
--------------------------------------------------------------------------------
-sysop_next char od_control.sysop_next;
-
- This variable is a Boolean value, indicating whether or not the
- "sysop next" feature has been activated. The "sysop next"
- feature, which reserves the system for the sysop after the call
- has ended, can be toggled on and off within OpenDoors by use of
- a function key (Alt-N by default). Also, when the "sysop next"
- feature has been activated, an indicator will appear on the
- OpenDoors status line. This variable is only available under
- systems that produce an SFDOORS.DAT or RA 1.00 and later style
- extended EXITINFO.BBS door information file. For more
- information on testing the type of door information file
- available, please see page 158.
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 184
-
-CONTROL STRUCTURE - DIAGNOSTICS
--------------------------------------------------------------------------------
-
- To help in diagnosing problems in your OpenDoors programs,
- OpenDoors stores information on the most recent error which
- occurred. When any of the OpenDoors functions return an "error"
- or "failure" state, the reason for this failure is recorded.
-
- The following OpenDoors control structure variable provides
- diagnostics information:
-
- od_error Stores a "reason code" for the last
- failed OpenDoors API function call.
-
-
-
-
--------------------------------------------------------------------------------
-od_error int od_control.od_error;
-
- When any of the OpenDoors API functions return an "error" or
- "failure" state (usually denoted by either of the values FALSE
- or NULL), the reason for the failure is recorded in this
- variable. Since successful function calls do not alter the value
- of the od_control.od_error variable, you must be careful not
- only to check the value of the od_control.od_error variable, but
- also to check the OpenDoors function return codes, in order to
- determine which function failed.
-
- This variable will always store the reason for the most recent
- function call failure, or ERR_NONE if no functions have failed.
- od_error may take on any of the following values:
-
- ERR_NONE Indicates that no error has occurred
- yet.
-
- ERR_MEMORY Function was unable to allocate
- required memory. This usually indicates
- that there is not enough available
- memory. This failure may also be due to
- memory corruption caused by your
- program inadvertently overwriting heap
- structures. If your program has been
- compiled in either the small or the
- medium memory model, try recompiling it
- in the compact, large, or huge memory
- models. If your program is already
- compiled in the compact, large, or huge
- memory models, try making more system
- memory available to your program.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 185
-
- ERR_NOGRAPHICS This setting indicates that the
- function called requires ANSI, AVATAR
- or RIP graphics mode, but none of these
- modes are active.
-
- ERR_PARAMETER An invalid parameter was passed to an
- OpenDoors functions. Check the
- function's description in chapter four,
- to determine the required values for
- each function parameter.
-
- ERR_FILEOPEN OpenDoors was unable to open a file.
- This can be due to the specified
- filename not existing, due to the file
- being locked for exclusive access by
- another process, or due to a hardware
- failure.
-
- ERR_FILEREAD OpenDoors was able to open the
- specified file, but unable to read the
- required data from the file. This error
- may be due to an invalid file format,
- due to a portion of the file being
- locked by another process, or due to a
- hardware failure.
-
- ERR_LIMIT An internal function limit has been
- exceeded. Refer to the function's
- description in chapter four for
- information on the function's
- limitations.
-
- ERR_NOREMOTE Indicates that a function has been
- called which is not valid in local
- mode, such as od_carrier() or
- od_set_dtr().
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 186
-
-CONTROL STRUCTURE - OPENDOORS CUSTOMIZATION
--------------------------------------------------------------------------------
-
- The OpenDoors control structure provides many variables which
- allow you to customize OpenDoor's behavior and appearance. These
- customization variables fit into one of the following
- categories:
-
- General Behavior Customization Variables
- Sysop Function Keys Customization Variables
- Color Customization Variables
- Language-Specific Prompts Customization Variables
-
- This section deals with those variables that fit into the first
- category, "General Behavior Customization Variables". The other
- categories are dealt with in the following sections of this
- chapter.
-
- Below is a brief overview of the variables grouped into this
- section of the OpenDoors control structure. Following the
- overview is a detailed description of each of these variables.
-
-
- od_app_icon Program icon for Win32 version.
-
- od_box_chars Array of characters used by the
- od_draw_box() function.
-
- od_before_exit Function to call prior to exiting.
-
- od_cafter_chat Function to call after sysop chat.
-
- od_cafter_shell Function to call after DOS shell.
-
- od_cbefore_chat Function to call prior to sysop chat.
-
- od_cbefore_shell Function to call prior to DOS shell.
-
- od_cfg_lines Sets the configuration file's custom
- door information file line keywords.
-
- od_cfg_text Sets the built-in configuration file
- keywords that OpenDoors will recognize.
-
- od_chat_active Controls whether or not sysop chat mode
- is active.
-
- od_clear_on_exit Controls whether the screen is cleared
- upon door exit.
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 187
-
- od_color_delimiter Indicates what character should delimit
- imbedded color codes for the
- od_printf() function.
-
- od_color_names Strings which OpenDoors recognizes as
- the names of various text colors.
-
- od_config_file Used to enable or disable the OpenDoors
- configuration file system.
-
- od_config_filename Sets the filename that will be read by
- the configuration file system.
-
- od_config_function The callback function that OpenDoors
- will call to allow your program to
- process custom configuration file
- entries.
-
- od_default_personality Sets the default personality to be used
- with the OpenDoors Multiple Personality
- System, and also sets the personality
- to use when the MPS is not active.
-
- od_default_rip_win Whether OpenDoors should use the
- default 43-line RIP window for ANSI
- text (TRUE), or a 23-line window
- (FALSE).
-
- od_disable Disable OpenDoors activities such as
- reading door information file and
- monitoring carrier detect / remaining
- time.
-
- od_disable_dtr Specifies the string that will be sent
- to the modem to prevent the modem from
- hanging up when DTR is lowered.
-
- od_emu_simluate_modem Simulates modem display speed for
- emulation functions such as
- od_send_file(), od_disp_emu() and
- od_hotkey_menu().
-
- od_errorlevel Sets the errorlevel OpenDoors exits
- with under various conditions.
-
- od_force_local Forces door to operate in local mode,
- ignoring any door information file and
- using default user settings.
-
- od_help_callback Allows you to provide a help menu item
- under the Win32 version of OpenDoors
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 188
-
- od_in_buf_size Sets size of OpenDoor's internal
- local/remote inbound buffer.
-
- od_inactive_warning Number of seconds before hanging up
- that OpenDoors displays the inactivity
- timeout warning.
-
- od_inactivity Controls user inactivity timeout.
-
- od_ker_exec Is called whenever od_kernel()
- executes.
-
- od_last_input Indicates whether the last input came
- from the remote user (==0) or the local
- sysop (==1).
-
- od_list_pause Controls whether or not the user may
- pause display within the
- od_list_files() and od_send_file()
- functions by using the [P] key.
-
- od_list_stop Controls whether or not the user may
- terminate display within the
- od_list_files() and od_send_file()
- functions using [S], [CTRL]-[K], etc.
-
- od_logfile Enables or disables the OpenDoors log
- file system.
-
- od_logfile_disable Prevents the logfile from being opened,
- even if the logfile is enabled by
- od_logfile.
-
- od_logfile_messages Array of message strings that OpenDoors
- will use when writing log file entries.
-
- od_logfile_name Contains the filename and possibly path
- of the logfile.
-
- od_maxtime Indicates the maximum length of time
- any user is permitted to use the door.
-
- od_maxtime_deduction Indicates the amount of time that has
- temporarily been taken away from the
- user's remaining time, as a result of
- the maximum door time setting.
-
- od_mps Enables or disables the OpenDoors
- Multiple Personality System.
-
- od_no_file_func Called when no door information file
- can be read.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 189
-
-
- od_no_ra_codes Disables translation of RA/QBBS control
- codes.
-
- od_nocopyright Prevents OpenDoors from displaying it's
- name and version number when a door
- program begins execution.
-
- od_noexit Prevents OpenDoors from exiting when
- the od_exit() function is called.
-
- od_page_len Controls length of the sysop page beep.
-
- od_page_pausing Enables or disables page pausing in
- od_send_file(), od_hotkey_menu() and
- od_list_files() functions.
-
- od_page_startmin Indicates the time of day at which
- sysop paging is first enabled.
-
- od_page_statusline Which status line (if any) is activated
- when the user pages the sysop.
-
- od_page_endmin Indicates the time of day at which
- sysop paging is disabled.
-
- od_prog_name Stores the name of your program.
-
- od_prog_version Stores the version number of your
- program.
-
- od_prog_copyright Place your copyright information here.
-
- od_reg_key Stores the registration key that you
- receive when purchasing OpenDoors.
-
- od_reg_name Stores your name or your companies name
- when you have purchased an OpenDoors
- license (registration).
-
- od_spawn_freeze_time Indicates whether the user's time
- remaining continues to be decreased
- during the execution of the
- od_spawn...() functions (FALSE), or if
- the timer should be "frozen" (TRUE).
-
- od_swapping_disable Disables swapping during DOS shell and
- od_spawn...() functions.
-
- od_swapping_noems Prevents swapping form being done to
- EMS expanded memory.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 190
-
- od_swapping_path Location where disk swap file should be
- created.
-
- od_status_on Controls whether the status line sub-
- system is active.
-
- od_time_msg_func Called instead of displaying time limit
- warning messages.
-
-
-
-
--------------------------------------------------------------------------------
-od_app HICON od_control.od_app_icon;
-_icon
- Normally, the Win32 version of OpenDoors displays its own icon
- on the application title bar, on the Windows taskbar, and in the
- help|about dialog box. You can supply your own icon by setting
- this variable to point to the handle of the icon, as returned by
- LoadIcon();
-
-
-
--------------------------------------------------------------------------------
-od_box char od_control.od_box_chars[8];
-_chars
- This variable allows you to specify which character the
- od_draw_box() function uses in drawing the boarder of a window.
- The elements of this array are as follows:
-
- od_box_chars[BOX_UPPERLEFT] - Upper left corner of box
- od_box_chars[BOX_TOP] - Top horizontal line
- od_box_chars[BOX_UPPERRIGHT] - Upper right corner of box
- od_box_chars[BOX_LEFT] - Left Vertical line
- od_box_chars[BOX_LOWERLEFT] - Lower left corner of box
- od_box_chars[BOX_LOWERRIGHT] - Lower right corner of box
- od_box_chars[BOX_BOTTOM] - Bottom horizontal line
- od_box_chars[BOX_RIGHT] - Right horizontal line
-
-
-
--------------------------------------------------------------------------------
-od_before void (*od_control.od_before_exit)();
-_exit
- This variable contains a pointer to a function which OpenDoors
- should call prior to exiting, or NULL if you do not wish to have
- any function called at exit time. For an example of the use of
- this variable, see the description of the EX_VOTE.C example
- program, which begins on page 38.
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 191
-
--------------------------------------------------------------------------------
-od_cafter void (*od_control.od_cafter_chat)();
-_chat
- The function pointed to by this variable will be called after
- sysop chat mode has ended. This may be useful for allowing you
- to save the user's screen contents prior to chat, and restoring
- the afterwards. If this variable contains its default value of
- NULL, no function will be called. To alter the string of text
- which is displayed after sysop chat, see the
- od_control.od_after_chat variable, which is described in the
- section on the prompts customization portion of the control
- structure.
-
-
-
--------------------------------------------------------------------------------
-od_cafter void (*od_control.od_cafter_shell)();
-_shell
- The function pointed to by this variable will be called after
- the sysop has returned from a DOS shell. If this variable
- contains its default value of NULL, no function will be called.
- To alter the string of text which is displayed after a DOS
- shell, see the od_control.od_after_shell variable, which is
- described in the section on the prompts customization portion of
- the control structure.
-
-
-
--------------------------------------------------------------------------------
-od_cbefore void (*od_control.od_cbefore_chat)();
-_chat
- The function pointed to by this variable will be called prior to
- entering sysop chat mode. This may be useful for allowing you to
- save the user's screen contents prior to chat, and restoring the
- afterwards. If this variable contains its default value of NULL,
- no function will be called. To alter the string of text which is
- displayed prior to sysop chat, see the od_control.od_before_chat
- variable, which is described in the section on the prompts
- customization portion of the control structure. To replace the
- OpenDoors sysop chat facility with your own, simply activate
- your chat mode when this function is called. Your chat mode
- facility should remain active until OpenDoors sets the
- od_control.od_chat_active variable to FALSE. If you wish to
- terminate chat mode prior to this variable being set to FALSE,
- you should set this variable to FALSE yourself if you do not
- wish OpenDoors to activate its own chat mode.
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 192
-
--------------------------------------------------------------------------------
-od_cbefore void (*od_control.od_cbefore_shell)();
-_shell
- The function pointed to by this variable will be called prior to
- executing a sysop DOS shell. If this variable contains its
- default value of NULL, no function will be called. To alter the
- string of text which is displayed before a DOS shell, see the
- od_control.od_before_shell variable, which is described in the
- section on the prompts customization portion of the control
- structure.
-
-
-
--------------------------------------------------------------------------------
-od_cfg_lines char od_control.cfg_lines[25][33];
-
- This array contains the strings for the keywords that represent
- various lines in the definition of a custom door information
- file. Each keyword must be 32 character or less in length. These
- keywords are not case sensitive. See page 230 for more
- information on defining custom door information (drop) file
- formats. The default values for this array are as follows:
-
- [0] "Ignore"
- [1] "ComPort"
- [2] "FossilPort"
- [3] "ModemBPS"
- [4] "LocalMode"
- [5] "UserName"
- [6] "UserFirstName"
- [7] "UserLastName"
- [8] "Alias"
- [9] "HoursLeft"
- [10] "MinutesLeft"
- [11] "SecondsLeft"
- [12] "ANSI"
- [13] "AVATAR"
- [14] "PagePausing"
- [15] "ScreenLength"
- [16] "ScreenClearing"
- [17] "Security"
- [18] "City"
- [19] "Node"
- [20] "SysopName"
- [21] "SysopFirstName"
- [22] "SysopLastName"
- [23] "SystemName"
- [24] "RIP"
-
- If you wish to change any of these variable, you must do so
- before calling any OpenDoors functions.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 193
-
-
-
--------------------------------------------------------------------------------
-od_cfg_text char od_control.od_cfg_text[47][33];
-
- This array of strings contains the built-in configuration file
- keywords that are recognized by OpenDoors. These keywords may be
- up to 32 characters in size, and are not case sensitive. If you
- wish to change any of these settings, you must do so before
- calling any OpenDoors functions. The default values for this
- array are as follows:
-
- [0] "Node"
- [1] "BBSDir"
- [2] "DoorDir"
- [3] "LogFileName"
- [4] "DisableLogging"
- [5] "SundayPagingHours"
- [6] "MondayPagingHours"
- [7] "TuesdayPagingHours"
- [8] "WednesdayPagingHours"
- [9] "ThursdayPagingHours"
- [10] "FridayPagingHours"
- [11] "SaturdayPagingHours"
- [12] "MaximumDoorTime"
- [13] "SysopName"
- [14] "SystemName"
- [15] "SwappingDisable"
- [16] "SwappingDir"
- [17] "SwappingNoEMS"
- [18] "LockedBPS"
- [19] "SerialPort"
- [20] "CustomFileName"
- [21] "CustomFileLine"
- [22] "InactivityTimeout"
- [23] "PageDuration"
- [24] "ChatUserColor"
- [25] "ChatSysopColor"
- [26] "FileListTitleColor"
- [27] "FileListNameColor"
- [28] "FileListSizeColor"
- [29] "FileListDescriptionColor"
- [30] "FileListOfflineColor"
- [31] "Personality"
- [32] "NoFossil"
- [33] "PortAddress"
- [34] "PortIRQ"
- [35] "ReceiveBuffer"
- [36] "TransmitBuffer"
- [37] "PagePromptColor"
- [38] "LocalMode"
- [39] "PopupMenuTitleColor"
-===============================================================================
-OpenDoors 6.00 Manual End of Page 194
-
- [40] "PopupMenuBorderColor"
- [41] "PopupMenuTextColor"
- [42] "PopupMenuKeyColor"
- [43] "PopupMenuHighlightColor"
- [44] "PopupMenuHighKeyColor"
- [45] "NoFIFO"
- [46] "FIFOTriggerSize"
- [47] "DiableDTR"
- [48] "NoDTRDisable"
-
-
-
--------------------------------------------------------------------------------
-od_chat char od_control.od_chat_active;
-_active
- This variable is set to TRUE when sysop chat mode is active, and
- is set to FALSE when sysop chat mode is not active. This
- variable can be used to determine whether or not chat mode is
- active, and to force chat mode to end. When the sysop presses
- the chat mode key ([ALT]-[C] if the default personality is being
- used) while chat mode is active, this variable is set to FALSE.
-
-
-
--------------------------------------------------------------------------------
-od_clear char od_control.od_clear_on_exit;
-_on_exit
- This variable contains a Boolean value, which indicates whether
- or not you wish OpenDoors to clear the screen prior to exiting.
- This variable defaults to a value of TRUE, which causes the
- screen to be cleared when a door program exits. However, you may
- wish to set this variable to a value of FALSE, which will cause
- the contents of the screen to remain unchanged when the door
- exits. While setting this variable to FALSE will probably result
- in a messy display if the door is to return control to a batch
- file, if the door returns directly to the BBS, it will result in
- a smoother transition from the door back to the BBS (as the
- sysop is not left with a blank screen). If your door has a
- configuration file or configuration program, you may wish to
- have an option which will allow the individual sysop to
- determine whether or not the screen should be cleared when the
- door exits.
-
-
-
--------------------------------------------------------------------------------
-od_color char od_control.od_color_delimiter;
-_delimiter
- This variable sets the character that is used to delimit color
- codes in the od_printf() function, and defaults to the back-
- quote (`) character. If you wish to be able to display the back-
- quote (`) character using the od_printf() function, and thus
-===============================================================================
-OpenDoors 6.00 Manual End of Page 195
-
- wish to use a different character to delimit color codes in the
- od_printf() function, simply set this variable to the
- alternative character you wish to use. If you wish to disable
- the imbedded color codes feature of the od_printf() function,
- simply set this variable to a value of zero. For more
- information on od_printf() imbedded color codes, see the
- description of the od_printf() function, which begins on page
- 110.
-
-
-
--------------------------------------------------------------------------------
-od_color char od_control.od_color_names[12][33];
-_names
- This array sets the strings that OpenDoors will recognize as
- color description keywords. These are the keywords that can be
- imbedded in od_printf() format strings, and are also the
- keywords that can be used to change color settings in the
- OpenDoors configuration file. If you wish to change these
- keywords, you will normally do so before calling any OpenDoors
- functions. These keywords should always be supplied in upper-
- case characters. The defaults values for this array are as
- follows:
-
- [0] "BLACK"
- [1] "BLUE"
- [2] "GREEN"
- [3] "CYAN"
- [4] "RED"
- [5] "MAGENTA"
- [6] "YELLOW"
- [7] "WHITE"
- [8] "BROWN"
- [9] "GREY"
- [10] "BRIGHT"
- [11] "FLASHING"
-
-
-
--------------------------------------------------------------------------------
-od_config void (*od_control.od_config_file)(void);
-_file
- Set this variable to INCLUDE_CONFIG_FILE to enable the OpenDoors
- configuration file system, or set it to NO_CONFIG_FILE to
- disable the configuration file system. This variable should only
- be set prior to your first call to an OpenDoors function. For
- more information on the OpenDoors configuration file system, see
- page 224.
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 196
-
--------------------------------------------------------------------------------
-od_config char *od_control.od_config_filename;
-_filename
- If set, this variable should point to a string containing the
- filename that you wish the OpenDoors configuration file system
- to read. If this variable has its default value of NULL, the
- filename DOOR.CFG will be used by default.
-
-
-
--------------------------------------------------------------------------------
-od_config void (*od_control.od_config_function)(char *keyword, char
-_function *options);
-
- If set, this variable should point to the function that
- OpenDoors should call when lines with unrecognized keywords are
- encountered in the configuration file. This allows you to add
- your own configuration file keywords. The first parameter to
- this function will be a pointer to a string containing the
- unrecognized keywords, and the second parameter will be a
- pointer to a string containing any options that were specified
- after the keyword. If no options were specified after the
- keyword, this string will have a length of 0.
-
-
-
--------------------------------------------------------------------------------
-od_default void (*od_control.od_default_personality)(unsigned char
-_personality operation);
-
- This variable sets the default personality that OpenDoors will
- use if the multiple personality system is active. If the
- multiple personality system is not active, the personality set
- by this variable will be the only personality available. This
- variable should only be set prior to calling an OpenDoors
- function. This variable can be set to point to your own
- personality function, or it can be set to one of the manifest
- constants that represent one of the built-in personalities:
-
- PER_OPENDOORS
- PER_PCBOARD
- PER_RA
- PER_WILDCAT
-
- For more information on the OpenDoors Multiple Personality
- System, see page 230.
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 197
-
--------------------------------------------------------------------------------
-od_default char od_control.od_default_rip_win;
-_rip_win
- This variable defaults to FALSE. When set to FALSE, OpenDoors
- resets the RIP text window to a 23-line window that is most
- appropriate for doors that support both RIP-graphics and non-RIP
- mode. When this variable is set to TRUE, OpenDoors will use the
- default sized text output window, 43 lines in size.
-
-
-
--------------------------------------------------------------------------------
-od_disable unsigned int od_control.od_disable;
-
- This variable is a bit-mapped flag which can be used to disable
- certain OpenDoors features which are normally active, in order
- to allow for maximum customization of OpenDoors. Each bit of
- this variable represents a different feature that can be
- disabled. To DISABLE a feature, you set the bit that corresponds
- to the particular feature. To ENABLE the feature, the bit is
- reset. Each bit is represented by a keyword, as follows:
-
- DIS_INFOFILE - Setting the DIS_INFOFILE bit of the
- od_control.od_disable variable allows you to prevent
- OpenDoors from reading or re-writing a door information
- file. If you wish to disable OpenDoors' reading of the door
- information file, you must do so prior to calling
- od_init() or any other OpenDoors door-driver functions. At
- the same time, you must also manually set any required
- variables that are normally set by the information obtained
- from the door information file, such as the comm port
- number, baud rate, user name, and so on. You may wish to
- disable reading of the door information file in a number of
- cases. For example, you may wish to manually read another
- format of door information file not supported by OpenDoors,
- or to obtain the necessary door information from your
- program's command line. Also, if you are using OpenDoors to
- write a non-door communications program, such as a terminal
- program, you want to prevent OpenDoors from attempting to
- read a door information file on startup.
-
- DIS_CARRIERDETECT - Setting this bit allows you to prevent
- OpenDoors from exiting when it the carrier detect signal
- from the modem disappears. This bit may be set or rest at
- any time. If you use this bit to disable OpenDoors' carrier
- detection, you will probably want to monitor the state of
- the carrier detect signal yourself, using the od_carrier()
- function, which is described on page 51.
-
- DIS_TIMEOUT - This flag allows you to prevent OpenDoors from
- exiting when the user runs out of time. As with the
- DIS_CARRIERDETECT flag, you may set or reset this bit at
-===============================================================================
-OpenDoors 6.00 Manual End of Page 198
-
- any time. You will most often want to use this setting when
- writing a non-door program, which you would not want to
- have exit after a particular amount of time has elapsed. Be
- sure that you do not confuse this flag with the user's
- inactivity timeout. To disable the inactivity timeout, set
- the do_control.od_inactivity variable to 0.
-
- DIS_LOCAL_OVERRIDE - This setting affects OpenDoors' behavior
- when a locked BPS rate is specified in the configuration
- file, and another BPS rate is specified in the door
- information file. By default, OpenDoors will initialize the
- modem at the BPS rate specified in the configuration file,
- unless the BPS rate specified in the door information file
- is 0. In this case, the 0 BPS rate is used to indicate that
- the door is operating in local mode, and will override the
- BPS rate specified in the configuration file. Setting this
- flag disables the local mode override, causing the modem to
- always be initialized at the locked BPS rate, even when the
- door information file specifies that local mode should be
- used.
-
- DIS_BPS_SETTING - When used with a FOSSIL driver, OpenDoors
- normally changes the BPS rate to that passed from the BBS
- (if the BBS passes a valid FOSSIL BPS rate). Setting the
- DIS_BPS_SETTING flag disables this BPS rate setting.
-
- DIS_LOCAL_INPUT - The local keyboard may be disabled by setting
- this bit. This only affects the sysop's input in
- circumstances that input is also accepted from the remote
- user; this setting has no effect on the sysop function
- keys.
-
- DIS_SYSOP_KEYS - This setting also disables the local keyboard.
- However, unlike the DIS_LOCAL_INPUT, this function disables
- both sysop function keys and door input from the local
- keyboard.
-
- DIS_DTR_DISABLE - This setting prevents OpenDoors from
- disabiling DTR response from the modem. Even if not
- specified, OpenDoors only disables DTR response in the when
- exiting under the Win32 version if an open serial port
- handle was not provided to OpenDoors at startup.
-
- DIS_NAME_PROMPT - Prevents OpenDoors from prompting for a user
- name when operating in automatic local mode (by setting
- od_force_local to TRUE or specifying -local on the command
- line).
-
- Note that in order to disable the OpenDoors status line, the
- od_control.od_status_on variable is used, instead of the
- od_disable variable. You may also disable the user's inactivity
- timeout by setting the od_control.od_inactivity variable to 0.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 199
-
- The od_control.od_status_on variable is described later in this
- section.
-
-
-
--------------------------------------------------------------------------------
-od_disable_ char od_control.od_disable_dtr[40];
-dtr
- Unles the DIS_DTR_DISABLE od_disable flag is set, the Win32
- version of OpenDoors will attempt to disable DTR response by the
- modem when closing the serial port, if the serial port was
- opened by OpenDoors. This is done by sending a series of
- commands to the modem, and possibly waiting for responses to the
- command. The string format specifies each command, followed by
- the required response. The command and response is separated by
- a single space character. If no response is required between two
- commands, then those commands may be separated by two space
- characters. A '|' character is translated into a carriage
- return, and a '~' character is translated into a one second
- pause. The default value of this string is "~+++~ AT&D0 ATO".
-
-
-
--------------------------------------------------------------------------------
-od_emu_ BOOL od_control.od_emu_simulate_modem;
-simulate_modem
- When this flag is set to its default value of FALSE, the
- OpenDoors terminal emulator displays text at full speed. When
- this flag is set to TRUE, the emulation functions will display
- text at approximately the same speed as it would be displayed
- when sent over the modem, based on the current connect speed. In
- local mode, an average modem speed of 9600bps is assumed. This
- allows animations to be displayed locally at the same speed as
- they would appear on the remote system. This switch affects the
- following functions:
- od_disp_emu()
- od_send_file()
- od_hotkey_menu()
-
-
-
--------------------------------------------------------------------------------
-od unsigned char od_control.od_errorlevel[8];
-_errorlevel
- Allows you to configure the errorlevel (program exit code) which
- OpenDoors exits with under various circumstances. The elements
- of this array are as follows:
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 200
-
- [ERRORLEVEL_ENABLE] Enables or disables custom errorlevels
- [ERRORLEVEL_CRITICAL] Critical error errorlevel
- [ERRORLEVEL_NOCARRIER] Carrier lost errorlevel
- [ERRORLEVEL_HANGUP] Sysop manually terminated call
- [ERRORLEVEL_TIMEOUT] User time expired errorlevel
- [ERRORLEVEL_INACTIVITY] Keyboard inactivity timeout errorlevel
- [ERRORLEVEL_DROPTOBBS] Sysop returned user to BBS errorlevel
- [ERRORLEVEL_NORMAL] Door has exited normally
-
- If you wish to override the default errorlevels used by
- OpenDoors, you should set element [ERRORLEVEL_ENABLE] of this
- array to TRUE, and set the remaining array elements to the
- appropriate errorlevels. Note that the settings in this array
- only affect the errorlevels which OpenDoors uses when it causes
- the door to exit for one of the reasons listed above. This
- setting has no effect on the errorlevel returned when your
- program explicitly exits by calling the od_exit() function, or
- your program returns by calling exit() or returning from the
- main() function.
-
-
-
--------------------------------------------------------------------------------
-od char od_control.od_force_local;
-_force_local
- This variable defaults to FALSE, which causes OpenDoors to
- behave normally. When this variable is set to TRUE prior to
- calling od_init() or any other OpenDoors functions, OpenDoors
- will operate in local mode. In this case, no door information
- file will be read. Also, the user name will be used if
- od_control.user_name has not been set prior to calling od_init()
- or the first OpenDoors function.
-
- The default OpenDoors settings when od_control.od_force_local is
- set are as follows:
-
- - ANSI mode is on
- - Time limit is 60 minutes
- - User's location is the name of the BBS, or "Unknown Location"
- otherwise if BBS name is not known.
- - User name is set to sysop's name ("Sysop" if no sysop name is
- specified in the configuration file).
-
- You may wish to add a "-local" type parameter to your program's
- command line, which will permit the sysop to easily operate the
- door in local mode, as an interface to the
- od_control.od_force_local setting.
-
-
-
--------------------------------------------------------------------------------
-od_help void (*od_control.od_help_callback)(void);
-===============================================================================
-OpenDoors 6.00 Manual End of Page 201
-
-_callback
- If this variable is set to a non-NULL value, the Win32 version
- of OpenDoors will provide a Contents item on the help menu, and
- call the function pointed to by this variable when the user
- chooses the Contents menu item.
-
-
-
--------------------------------------------------------------------------------
-od_in_buf unsigned int od_control.od_in_buf_size;
-_size
- Specifies the size, in characters, of the OpenDoor's internal
- local/remote inbound buffer size. Two bytes of storage are
- required for each character in this buffer. This variable should
- only be changed prior to calling od_init() or the first
- OpenDoors function. If not set, this variable defaults to a
- value of 256.
-
- The buffer corresponding to this variable should not be confused
- with the FOSSIL or internal communications receive buffer (which
- is set by od_control.od_com_rx_buf). Unlike the serial I/O
- receive buffer, which is used only for characters received from
- the remote system, this buffer serves as a queue for input from
- both the remote system and the local keyboard. If you find that
- characters are lost when information is being set to your door
- from the user, you may wish to increase the size of this buffer.
-
-
-
--------------------------------------------------------------------------------
-od unsigned int od_control.od_inactivity;
-_inactivity
- OpenDoors has a built in user-inactivity timeout facility, which
- will automatically disconnect a user who appears .to be sleeping
- at the keyboard. If the user has not pressed any keys on their
- keyboard for to great a length of time, they will be warned that
- they are about to be disconnected due to inactivity. If they
- still do not respond after another few seconds, OpenDoors will
- automatically disconnect the user and return control to the BBS
- software. The od_control.od_inactivity variable allows you to
- set the maximum length of time, in seconds, after which the user
- will be disconnected for inactivity. This variable defaults to a
- value of 200 seconds. You may disable OpenDoors' inactivity
- timeout altogether, by setting the od_control.od_inactivity
- variable to a value of 0.
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 202
-
--------------------------------------------------------------------------------
-od_inactive int od_control.od_inactive_warning.
-_warning
- This variable sets the number of seconds prior to hanging up
- that OpenDoors displays the inactivity timeout warning. This
- variable should only be changed after your first call to an
- OpenDoors API function. If not explicitly set by your program,
- this setting defaults to 10 seconds.
-
-
-
--------------------------------------------------------------------------------
-od_ker_exec void (*od_control.od_ker_exec)(void);
-
- When od_control.od_ker_exec is set to point to a function,
- OpenDoors will call this function whenever od_kernel() executes.
- This provides any easy way for you to perform your own
- processing on a regular basis during door execution. The
- od_control.od_ker_exec variable defaults to NULL.
-
-
-
--------------------------------------------------------------------------------
-od_last char od_control.od_last_input;
-_input
- Indicates whether the last key retrieved using the od_get_key()
- function originated from the remote user, or the local sysop. If
- the input originated from the remote, this variable is set to 0.
- If the input originated from the local keyboard, this variables
- is set to 1.
-
-
-
--------------------------------------------------------------------------------
-od_list char od_control.od_list_pause;
-_pause
- This variable contains a Boolean value, which allows you to
- control whether or not the user may pause displaying within the
- od_list_files() and od_send_file() function. When this variable
- is set to its default value of TRUE, the user will be able to
- pause the display by pressing the [P] key, and resume display by
- pressing any other key. However, the pause feature may be
- disabled by setting this variable to FALSE.
-
-
-
--------------------------------------------------------------------------------
-od_list char od_control.od_list_stop;
-_stop
- This variable contains a Boolean value, which allows you to
- control whether or not the user may abort displaying within the
- od_list_files() and od_send_file() function. When this variable
-===============================================================================
-OpenDoors 6.00 Manual End of Page 203
-
- is set to its default value of TRUE, the user will be able to
- pause the display by pressing the [S], [CTRL]-[K] or [CTRL]-[C]
- keys. However, the stop feature may be disabled by setting this
- variable to FALSE.
-
-
-
--------------------------------------------------------------------------------
-od_local void (*od_control.od_local_input)(int);
-_input
- If set, this function is called whenever the sysop presses a
- non-sysop-function key on the local keyboard. The key pressed is
- passed to the function in the single int parameter that it
- accepts.
-
-
-
--------------------------------------------------------------------------------
-od_logfile void *(od_control.od_logfile)(void);
-
- To make the OpenDoors log file system available in your program,
- set this variable to INCLUDE_LOGFILE, prior to calling any
- OpenDoors functions. If not set, or if set to NO_LOGFILE, the
- OpenDoors log file system will not automatically be enabled.
-
-
-
--------------------------------------------------------------------------------
-od_logfile char od_control.od_logfile_disable;
-_disable
- This variable defaults to the value of FALSE, unless the
- "LogfileDisable" option is specified in the configuration file,
- in which case the variable will be set to TRUE. If this variable
- is set to TRUE, OpenDoors will not write to a logfile, even if
- the logfile system is enabled using od_control.od_logfile.
-
-
-
--------------------------------------------------------------------------------
-od_logfile char *od_control.od_logfile_messages[14];
-_messages
- This array of pointers to strings contains the messages that
- OpenDoors will automatically write to the log file, if the log
- file system is enabled. If you wish to change the settings of
- this array, you should do so before calling any OpenDoors
- functions. The default strings for this array are as follows:
-
- [0] "Carrier lost, exiting door"
- [1] "System operator terminating call, exiting door"
- [2] "User's time limit expired, exiting door"
- [3] "User keyboard inactivity time limit exceeded, exiting door"
- [4] "System operator returning user to BBS, exiting door"
-===============================================================================
-OpenDoors 6.00 Manual End of Page 204
-
- [5] "Exiting door with errorlevel %d,
- [6] "Invoking operating system shell"
- [7] "Returning from operating system shell"
- [8] "User paging system operator"
- [9] "Entering sysop chat mode"
- [10] "Terminating sysop chat mode"
- [11] "%s entering door"
- [12] "Reason for chat: %s"
- [13] "Exiting door"
-
-
-
--------------------------------------------------------------------------------
-od_logfile char od_control.od_logfile_name[80];
-_name
- This variable specifies the filename, and optionally the full
- path of the logfile where OpenDoors should perform logging. This
- variable only has an effect when set prior to calling any
- OpenDoors functions. If the log file name is specified in the
- configuration file, that name will be stored in this variable.
- If you do not set this variable, and the log file name is not
- specified in the configuration file, the default name "DOOR.LOG"
- will be used. If you wish to set this variable, you should do so
- prior to calling od_init() or any OpenDoors function.
-
-
-
--------------------------------------------------------------------------------
-od_ unsigned int od_control.od_maxtime;
-maxtime
- This variable specifies the maximum length of time that any user
- is permitted to use the door, and is normally set from a
- configuration file option. If upon entering the door, the user's
- time remaining online is greater than the od_maxtime setting,
- their time remaining is temporarily decreased to the maximum
- value. Then upon exit of the door, the number of subtracted
- minutes is added back onto the user's remaining time. If the
- user's remaining time is less than this value, then the setting
- has no effect. A value of 0 disables the maximum time setting
- altogether.
-
-
-
--------------------------------------------------------------------------------
-od_maxtime int od_control.od_maxtime_deduction;
-_deduction
- This variable store the amount of time that should be added to
- the user's time upon exit of the door, as a result of the
- maximum time deduction, described above. If the maximum time
- feature is not used, this variable will be given a value of 0.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 205
-
-
--------------------------------------------------------------------------------
-od_mps void (*od_control.od_mps)(void);
-
- To make the OpenDoors Multiple Personality system available in
- your program, set this variable to INCLUDE_MPS before calling
- any OpenDoors functions. If this variable is not set, or is set
- to NO_MPS, the Multiple Personality System will be disabled. For
- more information on the OpenDoors Multiple Personality System,
- see page 233.
-
-
-
--------------------------------------------------------------------------------
-od_no_ void (*od_control.od_no_file_func)();
-file_func
- If od_no_file_func is set to point to a function, that function
- will be called whenever a door information (drop) file cannot be
- located or read. This provides an easy mechanism to add your own
- door information file reader, or to provide a local login prompt
- when no drop file is present. If you wish the door to operate in
- local mode, you should set od_control.od_force_local to TRUE
- prior to returning from your function. If you have successfully
- read your own door information file format, you should set
- od_control.od_info_type to CUSTOM. If neither of these variables
- are set by the od_no_file_function, OpenDoors will report that
- it is unable to find or read a door information file and will
- exit immediately.
-
-
-
--------------------------------------------------------------------------------
-od_no_ra char od_control.od_no_ra_codes;
-_codes
- This variable defaults to FALSE. When set to TRUE, the
- translation of the RemoteAccess/QuickBBS control codes by the
- functions od_send_file(), od_hotkey_menu() and od_disp_emu() is
- disabled.
-
-
-
--------------------------------------------------------------------------------
-od_ char od_control.od_nocopyright;
-nocopyright
- This variable is a Boolean value that allows you to prevent
- OpenDoors from displaying its name, version number, copyright
- notice and registration information when the program begins
- execution. Set this variable to TRUE to disable the display of
- copyright and associated information. When this variable is set
- to TRUE, OpenDoors also does not change the initial display
- color on startup. For obvious reasons, this variable does not
- take effect when OpenDoors is operating in unregistered mode.
-===============================================================================
-OpenDoors 6.00 Manual End of Page 206
-
-
-
-
--------------------------------------------------------------------------------
-od_noexit char od_control.od_noexit;
-
- This variable contains a Boolean value, which allows you to
- prevent OpenDoors from exiting when shutting down. This may be
- useful when you want to have your program to do more processing
- after you have called the od_exit() function, or if you do not
- wish to have your program exit automatically when the user drops
- carrier. Normally, this variable will default to a value of
- FALSE, indicating that OpenDoors will exit normally when the
- od_exit() function is called. However, you may optionally set
- this variable to TRUE after od_init() or some OpenDoors function
- has been called. In this case, when the od_exit() function is
- called, either by your program manually, or automatically by
- OpenDoors in response to the user dropping carrier, etc.,
- OpenDoors will not exit. However, the normal operations of
- closing the serial port and re-writing the door information file
- will be carried out. If you set the od_noexit variable to TRUE,
- you will probably have to provide some mechanism to allow your
- program to detect when OpenDoors shutdowns due to the loss of
- carrier, etc. The best way of doing this is to provide a
- function which is to be called at the beginning of the od_exit()
- function, by setting the od_control.od_before_exit pointer,
- described above.
-
-
-
--------------------------------------------------------------------------------
-od_page char od_control.od_page_len;
-_len
- This variable allows you to control the length, in seconds, of
- the sysop page beep produced when the user pages the sysop via
- the od_page() function.
-
-
-
--------------------------------------------------------------------------------
-od_page char od_control.od_page_pausing;
-_pausing
- This variable contains a Boolean value that indicates whether or
- not page pausing is enabled in the od_send_file(),
- od_hotkey_menu() and od_list_files() functions. The default
- value of TRUE indicates that page pausing is enabled. A value of
- FALSE indicates that page pausing is disabled.
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 207
-
--------------------------------------------------------------------------------
-od_page int od_control.od_pagestartmin;
-startmin int od_control.od_pageendmin;
-
-od_page These variables indicate the start and end times for sysop
-endmin paging, expressed as the number of minutes past midnight.
- Sysop paging will be available through the od_page() function
- from the start time, up to but not including the end time.
-
-
-
--------------------------------------------------------------------------------
-od_page char od_control.od_page_statusline;
-_statusline
- This variable controls which status line, if any, is activated
- when the user pages the system operator (via the od_page()
- function). A value between 0 and 9 causes the corresponding
- status line to be activated. A value of -1 prevents any change
- from being made to the current status line setting. This
- variable will normally be set by personality functions (see page
- 233).
-
-
-
--------------------------------------------------------------------------------
-od_prog_ char od_control.od_prog_copyright[40];
-copyright
- This variable should contain your program's copyright notice,
- such as "(C) Copyright 1996 by Your Name". This information is
- used in the Help|about dialog box under the Win32 version of
- OpenDoors, and may be used in other places in future versions of
- OpenDoors.
-
-
-
--------------------------------------------------------------------------------
-od_prog_name char od_control.od_prog_name[40];
-
- This variable should contain the full name of your program, up
- to 39 characters. If not set, OpenDoors will use the string
- "OpenDoors" in place of this variable. If used, this variable
- should be set prior to calling any OpenDoors functions, and
- should not include your program's version number. This
- information is used to write your program's name in the log file
- and to indicate your program's name on various windows, among
- other places.
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 208
-
-
-
-
--------------------------------------------------------------------------------
-od_prog_version char od_control.od_prog_version[40];
-
- This variable should contain the version information of your
- program. If used, this variable should be set prior to calling
- any OpenDoors functions. This information is used in the
- Help|About dialog box under the Win32 version of OpenDoors,
- among other places.
-
-
-
--------------------------------------------------------------------------------
-od_reg_key unsigned log od_control.od_reg_key;
-
- When you purchase an OpenDoors licence (registration), this
- variable should be set to your registration key, prior to
- calling any OpenDoors functions.
-
-
-
--------------------------------------------------------------------------------
-od_reg_name char od_control.od_reg_name[36];
-
- When you purchase an OpenDoors licence (registration), this
- variable should be set to your name, or your company's name, as
- is listed in your OpenDoors registration record.
-
-
-
--------------------------------------------------------------------------------
-od_spawn char od_control.od_spawn_freeze_time;
-_freeze_time
- This variable is a Boolean value which indicates whether or not
- the user's time remaining is frozen during the execution of one
- of the od_spawn...() functions. If this variable is set to TRUE,
- the user's time remaining will not decrease during the time that
- the od_spawn...() function is executing. However, if this
- variable is set to FALSE, the user's time remaining will
- continue to be subtracted during the execution of the
- od_spawn...() function. The default value of this variable is
- FALSE.
-
-
-
--------------------------------------------------------------------------------
-od_swapping char od_control.od_swapping_disable;
-_disable
- This variable is a Boolean value which specifies whether or not
- OpenDoors will attempt to swap itself and your entire door upon
-===============================================================================
-OpenDoors 6.00 Manual End of Page 209
-
- DOS shell or a call to one of the od_spawn...() functions. This
- variable defaults to FALSE. If set to TRUE, OpenDoors will not
- attempt to perform swapping activities.
-
-
-
--------------------------------------------------------------------------------
-od_swapping char od_control.od_swapping_noems;
-_noems
- This variable is a Boolean value which can be used to prevent
- OpenDoors from swapping to EMS memory. This variable defaults to
- the value FALSE. If set to TRUE, OpenDoors will not attempt to
- use EMS memory for swapping, and will only swap to disk.
-
-
-
--------------------------------------------------------------------------------
-od_swapping char od_control.od_swapping_path;
-_path
- This variable specifies the drive and directory where OpenDoors
- should create its disk swapping file, if applicable. More than
- one path can be specified, by separating the paths with a semi-
- colon (;) character.
-
-
-
--------------------------------------------------------------------------------
-od_status char od_control.od_status_on;
-_on
- This variable is a Boolean value which allows your program to
- completely disable the OpenDoors status line. The variable
- defaults to a value of TRUE, which causes the OpenDoors status
- line to be controllable by function keys, displayed and updated
- as it would normally be. However, if this variable is set to
- FALSE, then OpenDoors will not update the status line, nor will
- it allow the status line to be re-displayed as a result of one
- of the status line ([F1] through [F10]) keys being pressed. When
- you change the value of this variable from FALSE to TRUE,
- OpenDoors will automatically redisplay the status line. Note,
- however, that the status line isn't automatically removed when
- the value of this variable is changed from TRUE to FALSE. In
- order to erase the status line after resetting the value of this
- variable, you should reset the output window to the full screen,
- by calling the function window(1,1,25,80). Then manually erase
- the old status line either by clearing the bottom two lines of
- the screen, or by clearing the entire screen.
-
- It is important that you do not confuse the use of this variable
- with the od_set_statusline() function, which is described on
- page 137. When the status line is enabled, the sysop can change
- which status line, if any, is being displayed, using the
- function keys [F1] through [F10]. The od_set_statusline()
-===============================================================================
-OpenDoors 6.00 Manual End of Page 210
-
- function allows your program to make the same changes to the
- status line setting which the sysop can make by pressing one of
- the function keys. The status line can be removed from the
- screen, allowing a full 25 lines of text to be displayed, by
- pressing the [F10] key, or by making the appropriate call to the
- od_set_statusline() function. Note, however, than when this is
- done, the status line is still enabled, and can be turned on by
- pressing any of the other function keys. On the other hand, if
- the status line is turned off using this variable
- (od_control.od_status_on), the status line sub-system will be
- disabled, and pressing function keys will not "bring it back".
- So, if you were writing a program where a status line would be
- undesirable - such as a non-door communications program, you
- would use the od_control.od_status_on variable. On the other
- hand, if you only wanted to temporarily remove the status line -
- say in order that all 25 lines of a door program's output could
- be viewed - while still allowing the status line to be turned on
- with the sysop function keys, you would use the
- od_set_statusline() function. For more information on the
- od_set_statusline() function, see page 137.
-
-
-
--------------------------------------------------------------------------------
-od_time void (*od_control.od_time_msg_func)(char *string)
-_msg_func
- This variable defaults to a value of NULL. If set to point to a
- function, OpenDoors will call this function INSTEAD OF
- displaying time limit warning messages to the user. The messages
- redirected to this function are:
-
- - Inactivity timeout warning
- - Inactivity timeout expired
- - Less than 4 minutes left today
- - Daily time limit expired
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 211
-
-CONTROL STRUCTURE - FUNCTION KEYS
--------------------------------------------------------------------------------
-
- Within OpenDoors, as with most BBS software and doors, the sysop
- has access to a number of function keys, which permits the sysop
- to carry out various functions such as entering chat mode,
- hanging up on the user, shelling to DOS, and so on. The
- variables in this section allow you to customize which keys
- carry out the standard sysop functions, allowing you to
- customize your door's interface to mimic any BBS package. By
- default, OpenDoors emulates the function keys used by the Remote
- Access BBS package, but you may choose, for example, to have
- your door use the key combinations used by PC-Board. In
- addition, OpenDoors provides an interface which allows you to
- add your own function keys which will be accepted by the door.
- This could allow you to add additional features, such as giving
- the sysop access to a status screen which displays information
- about your door.
-
- Many of the variables in this section are unsigned ints, which
- represent a sysop key combination such as [ALT]-[H], [F8], or
- [CTRL]-[P]. These values are in the same format as is returned
- by the Turbo C(++) / Borland C++ bioskey() function. The high-
- order byte represents the scan code of the key, and the low-
- order byte represents the ASCII value, if any, of the key
- combination. Note that a complete tutorial on these key codes is
- beyond the scope of this manual. For more information on these
- key codes, you should see the documentation on the bioskey()
- function, which accompanies your compiler. If you wish to
- determine the key code which corresponds to a particular
- keystroke, there is a simple program, listed below, which you
- can compile and use. This program will simply display the key
- code for any key pressed, until you press the [ESCape] key. So,
- in order to determine the code for [SHIFT]-[F8], you would
- simply run this program, press the [SHIFT]-[F8] key combination
- on your keyboard, and record the value displayed on your screen.
-
- #include <stdio.h>
- #include <bios.h>
- main()
- {
- int nKey;
-
- do
- {
- nKey = bioskey(0);
- printf("%d (from: %x, %x)\n",
- nKey, nKey>>8, nKey&0xff);
- } while((nKey & 0xff) != 27);
- }
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 212
-
-
--------------------------------------------------------------------------------
-BUILT IN These variable allow you to customize the sysop function keys
-FUNCTION which control functions such as hanging up on the user, shelling
-KEYS to DOS, and so on. All of these variable will be assigned
- default values, which correspond to the same function keys used
- by the RemoteAccess BBS package. However, you may change the
- values of these variables in order to customize the key
- combinations which carry out these functions in your own door
- program. Remember that if you wish to change the value of any of
- these variables, you must do so after having called od_init() or
- some OpenDoors function. Each of these variables contain a scan-
- code / ASCII-code combination representing a keystroke, as is
- described above. These variables are as follows:
-
- +---------------------+----------------------------------------+
- | VARIABLE | CORRESPONDING FUNCTION |
- +---------------------+----------------------------------------+
- | od_control. | Enter sysop chat mode |
- | key_chat | (Normally [ALT]-[C] |
- | | |
- | od_control. | Invoke sysop DOS shell |
- | key_dosshell | (Normally [ALT]-[J] |
- | | |
- | od_control. | Return to the BBS without hanging up |
- | key_drop2bbs | (Normally [ALT]-[D]) |
- | | |
- | od_control. | Hangup on the user |
- | key_hangup | (Normally [ALT]-[H]) |
- | | |
- | od_control. | Turn off the user's keyboard |
- | key_keyboardoff | (Normally [ALT]-[K]) |
- | | |
- | od_control. | Decreases the user's remaining time |
- | key_lesstime | (Normally [DOWN-ARROW]) |
- | | |
- | od_control. | Lock the user out of the BBS system |
- | key_lockout | (Normally [ALT]-[L]) |
- | | |
- | od_control. | Increases the user's remaining time |
- | key_moretime | (Normally [UP-ARROW]) |
- | | |
- | od_control. | Array of eight function keys to set the|
- | key_status[8] | current status line. |
- | | (Normally [F1], [F2], [F3], [F4], [F5],|
- | | [F6], [F9], [F10]) |
- | | |
- | od_control. | "Sysop next" toggle key |
- | key_sysopnext | (Normally [ALT]-[N]) |
- +---------------------+----------------------------------------+
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 213
-
-
--------------------------------------------------------------------------------
-CUSTOM In addition to the sysop function keys built into OpenDoors, you
-FUNCTION may wish to add your own function keys to your door. For
-KEYS example, you might wish to have the [ALT]-[Z] combination
- display a window of information about your door, or you may wish
- to add your own user editor to your door, accessible through the
- [ALT]-[E] combination. The four variables:
-
- unsigned char od_control.od_num_keys;
- unsigned int od_control.od_hot_key[16];
- unsigned int od_control.od_last_hot;
- void (*od_control.od_hot_function[16])(void);
-
- provide your program with an interface to add your own sysop
- function keys (not accessible by the remote user) to the door
- you have written.
-
- OpenDoors allows you to define up to sixteen custom sysop
- function keys. The key codes (as described at the beginning of
- this section) are stored in the od_control.od_hot_key[] array,
- and the od_control.od_num_keys variable records the number of
- keys which have been defined. The od_control.od_num_keys
- variable defaults to a value of 0. So, in order to add your own
- function keys, simply place the key codes for these keys in the
- first n elements of the od_control.od_hot_key[] array, and set
- the od_control.od_num_keys variable to the number of keys you
- have defined. OpenDoors will then watch the keyboard for any of
- your predefined sysop function keys being pressed. If one of
- these keys is pressed, OpenDoors will place the key code of the
- pressed key in the od_control.od_last_hot variable. Your program
- will then be able to respond to one of your custom function keys
- being pressed by checking the value of the
- od_control.od_last_hot variable. At any time this variable
- contains a non-zero value. If this is the case, you will then be
- able to determine which of your function keys has been pressed
- by checking the key code contained in this variable. After
- taking the appropriate action for the key pressed, you should be
- sure to reset the value of the od_control.od_last_hot variable
- back to zero, which will indicate to OpenDoors that your program
- has received and responded to the function key which was
- pressed.
-
- As an alternative to testing the contents of the
- od_control.od_last_hot variable, you can also have your program
- respond to custom sysop function keys by providing a callback
- function in the array: void
- (*od_control.od_hot_function[16])(void);
-
- The Nth element in this array corresponds to the Nth element in
- the od_control.od_hot_key array. To use this mechanism, simply
- set the appropriate element of this array to point to the
-===============================================================================
-OpenDoors 6.00 Manual End of Page 214
-
- function that you wish to have OpenDoors call when the sysop
- presses the corresponding function key. For instance, assume
- that the following function is included in your program's source
- code:
-
- void addPoints(void)
- {
- /* add ten points to the user's score */
- currentUser->points += 10;
- }
-
- If you wanted to have this function called when the sysop
- presses the [Page Up] key, you could do the following:
-
- /* get number of new sysop function key, and increment */
- /* total number of keys */
- int new_key = od_control.od_num_keys++;
-
- /* Set next sysop hotkey to Page Up */
- od_control.od_hot_key[new_key] = 0x4900;
-
- /* Set corresponding function to addPoints() */
- od_control.od_hot_function[new_key] = addPoints;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 215
-
-CONTROL STRUCTURE - COLOR CUSTOMIZATION
--------------------------------------------------------------------------------
-
- These variables allow you to customize the color of text
- displayed by OpenDoors. Each of these variables are assigned
- color attributes, in the format used by od_set_attrib()
- (described on page 128). These variables are as follows:
-
- +---------------------+----------------------------------------+
- | VARIABLE | WHERE COLOR IS USED |
- +---------------------+----------------------------------------+
- | od_control. | Text typed by the sysop and user in |
- | od_chat_color1 & 2 | chat mode. |
- | | |
- | od_control. | File description fields in FILES.BBS |
- | od_list_comment_col | listings |
- | | |
- | od_control. | Color of page pausing prompt that is |
- | od_continue_col | displayed at the end of each page |
- | | |
- | od_control. | Filename fields in FILES.BBS listings |
- | od_list_name_col | |
- | | |
- | od_control. | "Missing" string in FILES.BBS listings |
- | od_list_offline_col | |
- | | |
- | od_control. | File size fields in FILES.BBS listings |
- | od_list_size_col | |
- | | |
- | od_control. | Title fields in FILES.BBS listings |
- | od_list_title_col | |
- | | |
- | od_control. | Color of the window title as displayed |
- | od_menu_title_col | by od_popup_menu() |
- | | |
- | od_control. | Color of the window border as |
- | od_menu_border_col | displayed by od_popup_menu() |
- | | |
- | od_control. | Color of the normal text displayed |
- | od_menu_text_col | by od_popup_menu() |
- | | |
- | od_control. | Color of the shortcut keys displayed |
- | od_menu_key_col | by od_popup_menu() |
- | | |
- | od_control. | Color of the selection bar as |
- | od_menu_highlight_ | displayed by od_popup_menu() |
- | col | |
- | | |
- | od_control. | Color of the shortcut keys displayed |
- | od_menu_highkey_col | on the selected line by od_popup_menu()|
- +---------------------+----------------------------------------+
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 216
-
-CONTROL STRUCTURE - TEXT CUSTOMIZATION
--------------------------------------------------------------------------------
-
- In addition to the other aspects of OpenDoors which may be
- customized by use of the OpenDoors control structure, all of the
- text displayed by OpenDoors may also be customized. This may be
- done either to create doors with OpenDoors that use languages
- other than English, or to simply give your doors a "personal
- touch". The variables described in this section allow you to
- define what text you want to have displayed by OpenDoors at any
- time. All of these variables are pointers to strings, and are
- set to default values in the od_init() function. Thus, if you
- wish to change the string pointed to by any of these variables,
- you must do so after od_init() or some OpenDoors API function
- has been called. To set any of these variables, you can simply
- set them to point to a string-constant in your program. For
- example, to set the text displayed by OpenDoors prior to a DOS
- shell, you could:
-
- od_control.od_before_shell=(char *)"\n\rJust a moment...\n\r";
-
- The chart below lists each of the text customization variables
- (without the "od_control." prefix, for the sake of brevity),
- along with their default strings.
-
- Note that some of these strings MUST always be the same length
- as their default string. You may not display longer text within
- these strings, and if you wish to display shorter text, you must
- pad the remaining space in the string with spaces, in order to
- preserve its length. Those string which must be of fixed length
- also have their length listed in the chart below. Any strings
- which have an asterisk (*) in their length column may be any
- length.
-
- Also keep in mind that any string with "printf-style" formatting
- sequences, such as "%s", must retain the same sequences in the
- same order.
-
- In addition, four of these pointers - od_after_chat,
- od_after_shell, od_before_chat and od_before_shell - can be set
- to a value of NULL. In this case, OpenDoors will not display any
- string where this variable's string is normally displayed.
-
-+-----------------------+-----+----------------------------------------------+
-| VARIABLE NAME | LEN | DEFAULT VALUE |
-+-----------------------+-----+----------------------------------------------+
-| od_after_chat | * | "\n\rChat mode ended...\n\r\n\r" |
-| | | |
-| od_after_shell | * | "\n\r...Thanks for waiting\n\r\n\r" |
-| | | |
-| od_before_chat | * | "\n\rSysop breaking in for chat...\n\r\n\r" |
-| | | |
-===============================================================================
-OpenDoors 6.00 Manual End of Page 217
-
-| od_before_shell | * | "\n\rPlease wait a moment...\n\r" |
-| | | |
-| od_chat_reason | * | " Why would you " |
-| | | "like to chat?\n\r" |
-| | | |
-| od_continue | * | "Continue? [Y/n/=]" |
-| | | |
-| od_continue_no | char| 'N' |
-| | | |
-| od_continue_nonstop | char| '=' |
-| | | |
-| od_continue_yes | char| 'Y' |
-| | | |
-| od_day[0] | 3 | "Sun" |
-| | | |
-| od_day[1] | 3 | "Mon" |
-| | | |
-| od_day[2] | 3 | "Tue" |
-| | | |
-| od_day[3] | 3 | "Wed" |
-| | | |
-| od_day[4] | 3 | "Thu" |
-| | | |
-| od_day[5] | 3 | "Fri" |
-| | | |
-| od_day[6] | 3 | "Sat" |
-| | | |
-| od_hanging_up | * | "Terminating Call" |
-| | | |
-| od_help_text | 80 | " Alt: [C]hat [H]angup [L]ockout [J]Dos " |
-| | | "[K]eyboard-Off [D]rop to BBS " |
-| | | |
-| od_help_text2 | 79 | " OpenDoors 6.00 - (C)Copyright 1992, " |
-| | | "Brian Pirie - Registered Version " |
-| | | |
-| od_inactivity_timeout | * | "User sleeping at keyboard, inactivity " |
-| | | "timeout...\n\r\n\r" |
-| | | |
-| od_inactivity_warning | * | "Warning, only %d minute(s) remaining " |
-| | | "today...\n\r\n\r" |
-| | | |
-| od_month[0] | 3 | "Jan" |
-| | | |
-| od_month[1] | 3 | "Feb" |
-| | | |
-| od_month[2] | 3 | "Mar" |
-| | | |
-| od_month[3] | 3 | "Apr" |
-| | | |
-| od_month[4] | 3 | "May" |
-| | | |
-| od_month[5] | 3 | "Jun" |
-===============================================================================
-OpenDoors 6.00 Manual End of Page 218
-
-| | | |
-| od_month[6] | 3 | "Jul" |
-| | | |
-| od_month[7] | 3 | "Aug" |
-| | | |
-| od_month[8] | 3 | "Sep" |
-| | | |
-| od_month[9] | 3 | "Oct" |
-| | | |
-| od_month[10] | 3 | "Nov" |
-| | | |
-| od_month[11] | 3 | "Dec" |
-| | | |
-| od_no_keyboard | 10 | "[Keyboard]" |
-| | | |
-| od_no_sysop | * | "\n\rI'm afraid the sysop is not available " |
-| | | "at this time.\n\r" |
-| | | |
-| od_no_response | * | " No response.\n\r\n\r" |
-| | | |
-| od_no_time | * | "Sorry, you have used up your time for " |
-| | | "today...\n\r\n\r" |
-| | | |
-| od_offline | 10 | "[OFFLINE] " |
-| | | |
-| od_paging | * | "\n\rPaging Sysop for Chat" |
-| | | |
-| od_press_key | * | "Press [Enter] to continue..." |
-| | | |
-| od_sending_rip | * | "\xb4 Sending RIP File \xc3" |
-| | | |
-| od_status_line[0] | 80 | " " |
-| | | " [Node: " |
-| | | |
-| od_status_line[1] | * | "%s of %s at %u BPS" |
-| | | |
-| od_status_line[2] | 79 | "Security: Time: " |
-| | | " [F9]=Help " |
-| | | |
-| od_sysop_next | 5 | "[SN] " |
-| | | |
-| od_time_left | 10 | "%d mins " |
-| | | |
-| od_time_warning | * | "Warning, only %d minute(s) remaining tod" |
-| | | "ay...\n\r\n\r" |
-| | | |
-| od_want_chat | 11 | "[Want-Chat]" |
-+-----------------------+-----+----------------------------------------------+
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 219
-
- 66
- 66
- 66
- 66666
- 66 66
- 66 66
- 6666
--------------------------------------------------------------------------------
-CHAPTER 6 - SPECIAL TOPICS
-
-
-
-
-ADDITIONAL INFORMATION ON THE WIN32 VERSION
--------------------------------------------------------------------------------
-
- This section provides additional information on the Win32
- version of OpenDoors that isn't found elsewhere in this manual.
- If you are working with the Win32 version of OpenDoors, you
- should take the time to read this entire section. You should
- also read the sections in chapter 3 that describe how to compile
- and run Win32 programs that use OpenDoors.
-
- The Win32 version of OpenDoors has been designed to be as
- similar as possible to the DOS version of OpenDoors. This means
- that where possible, you can compile the same source code to
- produce both a DOS and a Windows program. However, if you are
- porting an existing DOS OpenDoors-based program to the Win32
- platform, there are some important things to keep in mind.
-
- The first thing to note is that under DOS, the program's
- execution begins in the main() function, whereas under Windows,
- it begins in the WinMain() function. To allow the same source
- file to build both DOS and Windows versions you can use
- conditional compilation. OpenDoor.h defines a constant of the
- form ODPLAT_xxx, indicating which version of OpenDoors is being
- used. Currently, this will be either ODPLAT_DOS, or
- ODPLAT_WIN32. However, if a OS/2 or Unix version of OpenDoors
- were created, they would use definitions such as ODPLAT_OS2, or
- ODPLAT_UNIX. Under the Win32 version, you should pass the
- nCmdShow parameter that is passed to WinMain into OpenDoors,
- through od_control.od_cmd_show. If you do not do this, the
- program will always start with the main window maximized,
- regardless of what the user has requested. Also, you will
- probably want to use the new od_parse_cmd_line() function in
- both DOS and Windows programs, to allow standard command-line
- options to be processed. The od_parse_cmd_line() function
- accepts command line information in the same format as it is
- passed to the main or WinMain() function. So, the general
- structure of an OpenDoors program that can be compiled under
- either DOS or Win32 now becomes:
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 220
-
- /* Add your own #includes here. */
-
- #include "opendoor.h"
-
- #ifdef ODPLAT_WIN32
- int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
- #else
- int main(int argc, char *argv[])
- #endif
- {
- /* Add local variables here. */
-
- #ifdef ODPLAT_WIN32
- od_control.od_cmd_show = nCmdShow;
-
- od_parse_cmd_line(lpszCmdLine);
- #else
- od_parse_cmd_line(argc, argv);
- #endif
-
- /* Add the rest of your program after this point. */
- }
-
- If you are porting existing OpenDoors programs over to the Win32
- version of OpenDoors, another issue that you will have to pay
- careful attention to is the fact that you are now working in the
- 32-bit world. While 32-bit programming under a flat memory model
- has many advantages (no more 64K segments and related
- limitations, for example), you must be aware that the size of
- basic data types that you are used to using may have changed.
- For example, an int is now 32-bits wide instead of 16-bits wide.
- One of the places where this difference becomes very important
- is if you are performing file-I/O by directly dumping a
- structure to or from disk using functions such as fread() and
- fwrite(). In this case, you must declare your structures using
- types that are of the same size between the 16-bit and 32-bit
- worlds, in order for your file formats to be compatible between
- the DOS and Win32 versions of your program. For example, the
- EX_VOTE.C example program declares its structure using fixed-
- sized types that are always available to any program including
- "opendoor.h". These types are the following size, regardless of
- what platform you are compiling under:
-
- INT8 - 8-bit signed integer.
- INT16 - 16-bit signed integer.
- INT32 - 32-bit signed integer.
- BYTE - 8-bit unsigned integer.
- WORD - 16-bit unsigned integer.
- DWORD - 32-bit unsigned integer.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 221
-
- (NOTE: Obviously, the many details of 32-bit programming and
- Windows programming are beyond the scope of this document. For
- more information on the issues discussed here, you will probably
- wish to consult other sources of information on Win32
- programming.)
-
- As you are probably aware, the Win32 edition of OpenDoors makes
- extensive use of multithreading. The number of threads will
- depend on what mode OpenDoors is operating in. In some
- situations, all of the following threads may exist:
-
- - The client thread(s), which executes the code that you write
- in your program, along with the OpenDoors API functions.
- - The local screen thread, which is responsible for drawing
- your program's output on the screen, and receiving input from
- the local keyboard.
- - The frame window thread, which handles the OpenDoors menus,
- toolbar, status bar and sysop function keys.
- - The remote input thread, which receives input from the serial
- port and adds it to OpenDoors common local/remote input
- queue.
- - The carrier detection thread, which blocks and only executes
- if the carrier detect signal goes low.
- - The time update thread, which updates the user's time
- remaining online, and monitors user timeouts.
-
- Since most of these threads only execute when the operating
- system determines that there is actually something for them to
- do, the Win32 version of OpenDoors provides very high
- performance and responsiveness.
-
- You may also want to make use of multithreading directly within
- your program. If you do this, please note that while you may use
- threads to perform background processing, OpenDoors requires
- that you only call OpenDoors API functions from one thread.
-
- If you wish to customize the information that is displayed in
- the Help|About dialog box (including your program's name and
- copyright information), provide your own application icon, or
- add online help to the help menu, refer to the sections in the
- manual on the following od_control variables:
-
- od_control.od_app_icon
- od_control.od_help_callback
- od_control.od_prog_name
- od_control.od_prog_version
- od_control.od_prog_copyright
-
- The section that describes how to run Windows based door
- programs under DOS-based BBS package indicates that
- COM<n>AutoAssign=0 should be set in the system.ini file. The
- explanation for this is as follows: The default value for this
-===============================================================================
-OpenDoors 6.00 Manual End of Page 222
-
- setting in Windows 95 is -1, which prevents any Windows-based
- program from accessing a serial port which has previously been
- used by a non-Windows-based program, until the window that
- program was running in is closed. By setting this value to 0,
- you are allowing the Windows-based door program to immediately
- use the modem, even while the MS-DOS session (VM) is still
- active. A value of <x> greater than 0 will allow Windows-based
- programs to access the serial port, only if the DOS-based
- program has not accessed the serial port for at least <x>
- seconds. For example, the default setting in Windows 3.1 was
- COM1AutoAssign=2, which allowed Windows-based programs to access
- the serial port if no DOS program had used it for at least 2
- seconds.
-
- The section that describes how to run Windows based door
- programs under DOS-based BBS package also indicates that the
- DTRON utility should be run after the start command returns. The
- reason for this is that when a Windows program exits and closes
- the serial port (by calling the CloseHandle() function), Windows
- 95 lowers the DTR line on the serial port. Most modems are
- configured to respond to this by hanging up on the remote user.
- From talking to other people, it seems that this "feature" (or
- fundamental design flaw, depending on how you want to look at
- it) is unique to Windows 95, and won't effect OpenDoors when
- running under Windows NT. However, the majority of people will
- undoubtedly be using the Win32 version of OpenDoors under
- Windows 95. This is unfortunate, since the Win32 communications
- facilities are otherwise _very_ well designed. There is a rumor
- that Microsoft's next upgrade to Windows 95 will fix this
- problem. However, I must stress that this is only a rumor, and
- that I haven't received any confirmation about this from
- Microsoft.
-
- OpenDoors currently provides two solutions to this problem.
-
- First of all, OpenDoors has the ability to use an already open
- serial port handle, if that information is supplied to it.
- Hopefully, all Windows 95-based BBS software will provide the
- option of running a door program with the serial port still
- open, and allow you to pass that serial port handle on the door
- program's command line. OpenDoors allows the serial port handle
- to be passed on the command line, or set directly in the
- od_control structure, as is described later in this manual. On
- BBS systems where this form of hot sharing of the serial port is
- supported, the serial port can remain open at all times, and so
- the CloseHandle() problem is avoided.
-
- This means that the only situation where the CloseHandle()
- problem still has to be dealt with is when OpenDoors is running
- on a Windows 95 system and OpenDoors has to open the serial port
- itself (and so must close the serial port before exiting). This
- would be the case for most MS-DOS based BBS systems running
-===============================================================================
-OpenDoors 6.00 Manual End of Page 223
-
- under Windows 95, unless some intermediate layer is provided. By
- default, in this situation OpenDoors will disable DTR response
- by the modem just before it closes the serial port, by sending
- the AT&D0 command to the modem. The exact sequence of commands
- used by OpenDoors to do this is specified by the
- od_control.od_disable_dtr string. This DTR response disabling
- may be turned off by setting the DIS_DTR_DISABLE
- od_control.od_disable flag. Since many programs (OpenDoors
- included) assume that they can hangup the modem by lowering the
- DTR signal, a small utility will usually be run after the door,
- which first raises the DTR signal again, and then re-enables DTR
- response by the modem. Such a utility is included in this
- package, named DTRON.EXE. I wrote the DTRON utility so that you
- can freely redistributed it with your programs.
-
- So, to summarize, the DTR disabling by OpenDoors and subsequent
- reenabling by DTRON is only required for the Win32 version of
- OpenDoors running under Windows 95 when the modem is configured
- to hangup if the DTR signal is lowered, and the BBS software
- does not have the ability to pass a live serial port handle to a
- door program. Setting COM<n>AutoAssign in system.ini is only
- required for the Win32 version of OpenDoors when it is being
- called from an MS-DOS session that has previously accessed the
- serial port.
-
- Note that the Win32 version of OpenDoors requires Windows 95 or
- Windows NT. It will not run under Windows 3.x, even with Win32s.
- This is because OpenDoors makes use of the Windows 95/NT
- multitasking and multithreading services that are not available
- under Win32s.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 224
-
-CONFIGURATION FILE SYSTEM
--------------------------------------------------------------------------------
-
- One of the most useful OpenDoors features that you can
- optionally choose to include in your programs is the OpenDoors
- configuration file system. All that is required to enable the
- configuration file system is to include the following line
- before your first call to any OpenDoors function:
-
- od_control.od_config_file = INCLUDE_CONFIG_FILE;
-
- OpenDoors will now search for and read an OpenDoors
- configuration file. If you do not specify the name of this file,
- the default name of DOOR.CFG will be used. Using this
- configuration file, the sysop can set a wide variety of options,
- such as modem and system configuration information, maximum time
- limits for the door, and even define custom door information
- (drop) file formats. The example DOOR.CFG file included in your
- OpenDoors package shows the format and all options that are
- automatically supported by the configuration file system. This
- configuration file format is designed to be easy to use, and the
- example configuration file contains comments which provide a
- complete description of each option. Feel free to redistribute
- DOOR.CFG or a modified version of this file with your door
- programs. In addition to the many configuration file settings
- already supported, you can add your own settings that are
- specific to your particular program.
-
- To specify your own filename for the configuration file, use the
- od_config_filename control structure variable. For example, the
- following line:
-
- od_control.od_config_filename = "MYDOOR.CFG"
-
- causes OpenDoors to look for the configuration file MYDOOR.CFG
- instead of the default DOOR.CFG.
-
- OpenDoors fill first search for the configuration file in the
- directory specified in the od_config_filename variable, if a
- specific directory name was supplied. If not found, it will then
- search the current directory. If the configuration file system
- is unable to locate a configuration file, or if any settings are
- omitted from the file, the default values for these settings
- will be used automatically. This means that the configuration
- file is always optional, unless your program has custom settings
- that it requires in order to run.
-
- The format for the configuration file is as follows. Blank lines
- and any text following the semi-colon (;) character are ignored.
- Configuration options are specified using a keyword, possibly
- followed by one or more options. The keywords are not case
- sensitive, but some of the options are. The order of options in
-===============================================================================
-OpenDoors 6.00 Manual End of Page 225
-
- the configuration file is not significant, with the exception of
- the "CustomFileLine" option. For more information on the
- "CustomFileLine" setting, see the section that begins on page
- 230. The built-in configuration options are as follow:
-
- BBSDir - BBS System directory. Indicates where the door
- information file (drop file) can be found.
-
- DoorDir - The door's working directory. This is where the door's
- system files are located. OpenDoors will automatically
- perform a chdir into this directory at initialization, and
- will return to the original directory on exit.
-
- LogFileName - Specifies the filename (path optional) where the
- door should record log information.
-
- DisableLogging - Prevents door from writing to a log file.
-
- Node - BBS node number that the door is running on. Only used if
- OpenDoors is unable to determine the node number by some
- other means.
-
- ???dayPagingHours - Specifies sysop paging hours. Sysop paging
- will be permitted beginning at the start time, up until,
- but not including, the end time. Times should be in the 24-
- hour format. To disable paging on a particular day, set the
- paging start and end times to the same time. ???day can be
- one of Sunday, Monday, Tuesday, Wednesday, Thursday, Friday
- or Saturday.
-
- PageDuration - Duration of sysop page. Value indicates the
- number of beeps that compose the sysop page alarm.
-
- MaximumDoorTime - Maximum length of time a user is permitted to
- access the door. If the user's total remaining time on the
- BBS is less than this value, the user will only be
- permitted to access the door for this shorter length of
- time. This option is disabled by commenting out the line.
-
- InactivityTimeout - Specifies the maximum number of seconds that
- may elapse without the user pressing a key, before the user
- will automatically be disconnected. A value of 0 disables
- inactivity timeouts.
-
- SysopName - Name of the sysop. OpenDoors can usually determine
- the sysop's name from the door information (drop) file.
- How3ever, some BBS packages do not supply this information.
- In such cases, if the sysop's name is required by the door,
- it may be supplied here.
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 226
-
- SystemName - Like the sysop's name, this option can usually be
- determined from the door information file. If it is not
- available, the sysop my supply the information here.
-
- ChatUserColor - Specifies the color of text typed by the user in
- sysop chat mode. The format of the color name is included
- in the description of the od_color_config() function.
-
- ChatSysopColor - Specifies the color of test typed by the sysop
- in chat mode.
-
- FileListTitleColor - Files.BBS listing colors.
- FileListNameColor
- FileListSizeColor
- FileListDescriptionColor
- FileListOfflineColor
-
- SwappingDir - Directory where disk swapping will be done.
-
- SwappingNoEMS - Disables swapping to EMS memory.
-
- SwappingDisable - Disables swapping entirely.
-
- LockedBPS - BPS rate at which door should communicate with the
- modem. Valid rates are 300, 600, 1200, 2400, 4800, 9600,
- 19200 and 38400. A value of 0 forces the door to always
- operate in local mode. This option is not normally needed,
- as the information is usually available from the door
- information file.
-
- FossilPort - Specifies the FOSSIL driver port number that the
- modem is connected to. FOSSIL port 0 usually corresponds to
- COM1, port 1 to COM2, and so on. This option is not
- normally needed, as the information is usually available
- from the door information file.
-
- CustomFileName - Specifies the filename used by the custom door
- information file format. Described in more detail below.
-
- CustomFileLine - Specifies the contents of a particular line in
- the custom door information file format.
-
- The last two configuration file options, "CustomFileName" and
- "CustomFileLine" allow you or the system operator using your
- program to define your own door information (drop) file formats.
- For more information on this topic, see the section which begins
- on page 230.
-
- You can also extend OpenDoor's configuration file format to add
- your own options, by supplying a callback function that will be
- called whenever OpenDoors encounters an unrecognized
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 227
-
- configuration file keyword. The prototype of this function
- should be as follows:
-
- custom_line_function(char *keyword, char *options)
-
- To cause OpenDoors to use your function, you would include the
- following line before your first call to any OpenDoors function:
-
- od_control.od_config_function = custom_line_function;
-
- (You can use a different function name if you wish.) When
- OpenDoors encounters unrecognized keyword, it will now call your
- function, passing a pointer to an upper case version the keyword
- string in the first parameter, and a pointer to any options that
- follow the keyword in the second parameter. For instance, if the
- following line were encountered in the configuration file:
-
- RegisteredTo John Smith ; Sysop's name
-
- The parameters passed to your function would be:
-
- char *keyword = "REGISTEREDTO"
- char *options = "John Smith"
-
- Your custom line function should be written in such a way that
- if OpenDoors passes a configuration option to your function that
- your function does not recognize, that option would simply be
- ignored.
-
- The example program below demonstrates how to use the custom
- line function to add your own configuration file options. This
- program looks for three custom configuration file options,
- "RegistrationKey", "DefaultColor" and "DisplayWinners". If the
- "RegistrationKey" option is present, the numerical value
- following this option is stored in the global variable "key". If
- the "DefaultColor" option is present, the color description
- (such as "Bright Red on Black") is translated to an
- od_set_attr() color code using od_color_config(). This color
- setting is stored in the global variable default_color. Since
- this variable is initialized to 0x07 (the value for dark white
- on black), if this option is omitted, that color is used by
- default. If the "DisplayWinners" option is included in the
- configuration file, the global variable display_winners is set
- to TRUE, regardless of any options that may follow this keyword.
-
-
- #include "opendoor.h" /* Include opendooor.h */
- /* Prototype for custom line function */
- void custom_line_function(char *keyword, char *options);
-
- unsigned long key=0L; /* Variables for our own config option */
- unsigned char default_color=0x07;
-===============================================================================
-OpenDoors 6.00 Manual End of Page 228
-
- char display_winners=FALSE;
-
- main() /* Program's execution begins here */
- { /* Begin door operations, reading config file */
- od_control.od_config_file = INCLUDE_CONFIG_FILE;
- /* Tell OpenDoors to use custom line function */
- od_control.od_config_function = custom_line_function;
- od_init();
- /* Main program's operations go here */
- od_exit(10, FALSE); /* Exit program */
- }
- /* Code for custom line function */
- void custom_line_function(char *keyword, char *options)
- { /* If option is registration key */
- if(stricmp(keyword,"REGISTRATIONKEY")==0)
- {
- key=atol(options); /* Store key in variable */
- } /* If option is text color */
- else if(stricmp(keyword,"DEFAULTCOLOR")==0)
- { /* Get color value using od_color_config() */
- default_color=od_color_config(options);
- } /* Example of option enabled by just the keyword */
- else if(stricmp(keyword,"DISPLAYWINNERS")==0)
- { /* If keyword is present, turn on option */
- display_winners=TRUE;
- }
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 229
-
-DEFINING CUSTOM DOOR INFORMATION FILE FORMATS
--------------------------------------------------------------------------------
-
- As is mentioned in the previous section, the OpenDoors
- configuration file system provides two settings which allow the
- sysop to define a custom door information file format. This
- permits OpenDoors doors to operate directly on any BBS system
- that produces a door information file format not directly
- supported by OpenDoors. A custom door information file format is
- defined using the "CustomFileName" option, followed by one or
- more lines beginning with the "CustomFileLine" option.
-
- The "CustomFileName" option specifies the filename used to
- distinguish this file format from other file formats. This
- filename should not include a path. To specify the path where
- the door information file is located, the sysop should use the
- BBSDir configuration file setting. If the filename of the custom
- format is the same as that of one of the built-in formats, the
- custom format will override the built-in format.
-
- The actual format of the custom file is specified using a number
- of lines that begin with the keyword "CustomFileLine". Each of
- these lines will correspond to a single line in the door
- information file, with the option following the "CustomFileLine"
- keyword specifying the information that can be found on that
- line. This can be one of the following keywords:
-
- Ignore - Causes the next line in the door information file
- to be ignored. Use on lines for which none of the
- options below apply.
-
- COMPORT - COM? port the modem is connected to (0 indicates
- local mode)
-
- FOSSILPORT - Fossil port number the modem is connected to
-
- MODEMBPS - BPS rate at which to communicate with modem (0
- or non-numerical value indicates local mode)
-
- LOCALMODE - 1, T or Y if door is operating in local mode
-
- USERNAME - Full name of the user
-
- USERFIRSTNAME - First name(s) of the user
-
- USERLASTNAME - Last name of the user
-
- ALIAS - The user's pseudonym / handle
-
- HOURSLEFT - Hours user has left online
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 230
-
- MINUTESLEFT - Minutes user has left online, or time left
- online in format hh:mm
-
- SECONDSLEFT - Seconds user has left online, or time left
- online in format hh:mm:ss or format mm:ss (If more
- than one of the above time options are used, the user
- time left is taken to be the total of all of these
- values.)
-
- ANSI - 1, T, Y or G for ANSI graphics mode
-
- AVATAR - 1, T or Y for AVATAR graphics mode
-
- PAGEPAUSING - 1, T or Y if user wishes a pause at end of
- screen
-
- SCREENLENGTH - Number of lines on user's screen
-
- SCREENCLEARING - 1, T or Y if screen clearing mode is on
-
- SECURITY - The user's security level / access level
-
- CITY - City the user is calling from
-
- NODE - Node number user is connected to
-
- SYSOPNAME - Full name of the sysop
-
- SYSOPFIRSTNAME - The sysop's first name(s)
-
- SYSOPLASTNAME - The sysop's last name
-
- SYSTEMNAME - Name of the BBS
-
- As an example of how to define custom door information file
- formats, consider the following imaginary file format, which we
- will name DROPINFO.TXT:
-
- Brian Pirie <-- User name
- 0 <-- Local mode
- COM1: <-- Serial port to use
- 9600 <-- BPS rate
- 22:30:15 05-08-95 <-- File creation time
- 35 <-- Time remaining (in minutes)
- 1 <-- ANSI mode
- Ottawa, Canada <-- Location
-
- This format would be defined in an OpenDoors configuration file
- as follows:
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 231
-
- CustomFileName DROPINFO.TXT
- CustomFileLine USERNAME
- CustomFileLine LOCALMODE
- CustomFileLine COMPORT
- CustomFileLine MODEMBPS
- CustomFileLine IGNORE
- CustomFileLine MINUTESLEFT
- CustomFileLine ANSI
- CustomFileLine CITY
-
- Notice that the first "CustomFileLine" keyword in the
- configuration file corresponds to the first line in our
- DROPINFO.TXT file, the second "CustomFileLine" to the second
- line, and so on. Also notice that the keyword "IGNORE" is used
- for the line that contains the file creation time, since there
- is no CustomFileLine keyword that allows you to read this
- information.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 232
-
-MULTIPLE PERSONALITY SYSTEM
--------------------------------------------------------------------------------
-
- The OpenDoors Multiple Personality System allows the DOS
- version of OpenDoors to support multiple sysop function key /
- status line "personalities". Most commonly, you will use this
- feature in conjunction with the "Personality" setting in the
- OpenDoors configuration file, to allow the sysop to choose one
- of the built-in personalities that most closely mimics the BBS
- software they are using. OpenDoors includes the following
- personalities:
-
- Configuration Keyword Manifest constant
- -----------------------------------------------------------
- Standard PER_OPENDOORS
- PCBoard PER_PCBOARD
- RemoteAccess PER_RA
- Wildcat PER_WILDCAT
-
- The PCBoard, RemoteAccess and Wildcat personalities mimic the
- status lines and function keys used by the BBS packages with
- those names. The Standard personality, which is the personality
- used by default, is a trimmed down version of the status lines
- provided by OpenDoors 4.10 and earlier.
-
- In addition to using the personalities supplied with OpenDoors,
- you can create your own personalities. This simply involves
- writing a function which OpenDoors will call to setup the sysop
- function keys and to display the status line.
-
- Include the following line before your first call to any
- OpenDoors function:
-
- od_control.od_mps = INCLUDE_MPS;
-
- to include the multiple personality system in your program. This
- also enables the Personality setting in the configuration file,
- if you are using the configuration file system.
-
- You can set the default personality to be used by OpenDoors by
- setting od_control.od_default_personality to one of the manifest
- constants listed in the table above. If you have included the
- multiple personality system in your program, this setting will
- determine the personality to use if the "Personality" option is
- not set in the configuration file, and your program does not
- later change the personality using the od_set_personality()
- function. If you do not include the multiple personality system
- in your program, this setting will determine the personality
- that will always be used.
-
- Creating your own personality involves writing a single
- function.. Whenever OpenDoors needs to perform an operation that
-===============================================================================
-OpenDoors 6.00 Manual End of Page 233
-
- involves the personality, it will call this function, passing
- one of the following message values:
-
- PEROP_INITIALIZE Initialize the personality, installing any
- custom function keys.
- PEROP_DEINITIALIZE Deinitialize the personality, returning any
- changed settings to their original values.
- PEROP_CUSTOMKEY Indicates that a custom function key has
- been pressed.
- PEROP_DISPLAYx Where x is a number from 1 to 10. Indicates
- that the specified status line should be
- drawn from scratch.
- PEROP_UPDATEx Where x is a number from 1 to 10. Indicates
- that the specified status line should be
- updated to reflect any changes.
-
- If you have enabled the multiple personality system by setting
- od_control.od_mps to INCLUDE_MPS, you can install your
- personality function into OpenDoors by calling
- od_add_personality(). When you call od_add_personality(), you
- supply a string containing the name of the personality, along
- with the top and bottom output line numbers to use. These line
- numbers specify the portion of the screen to use for door
- output, leaving the remainder of the screen available for
- displaying the personality's status line. Once the personality
- has been installed into OpenDoors, it can be selected by the
- sysop using the "Personality" configuration file option, or
- manually activated using the od_set_personality() function. For
- more information on the od_add_personality() function, see page
- 47.
-
- You can make your personality function the default personality
- by setting od_control.od_default_personality to point to your
- personality function. As is the case with the built-in
- personalities, this setting will be used as the default
- personality if you have enabled the multiple personality system
- by setting od_control.od_mps to INCLUDE_MPS. If you have not
- enabled the multiple personality system in this manner, your
- personality function will become the one and only personality
- used within your program. When creating your own personality,
- you can use the od_control.od_page_statusline variable to set
- which status line (if any) will be activated when the user pages
- the system operator.
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 234
-
-LOG FILE SYSTEM
--------------------------------------------------------------------------------
-
- In order for the system operator to monitor system activity and
- diagnose problems that have occurred while the system was
- unattended, it is common for BBS software and door programs to
- record major events in a log file. This log file typically
- records the date and time of evens such as a user logging on or
- off, transferring files, sending messages, paging the system
- operator, and similar activities. Sometimes the system operator
- will configure all of the pieces of software running on a
- particular node to write to a single log file. In other cases,
- the system operator will prefer to have each program write to
- its own log file. However, software serving one line of a multi-
- node BBS system should never attempt to write to the same log
- file that is used by another node.
-
- OpenDoors uses the "FrontDoor format" log file standard. This
- was chosen as it is a clearly documented format that is quickly
- becoming the standard for bulletin board software log files. A
- segment from a log file produced by OpenDoors is listed below.
-
- ---------- Thu 25 Feb 93, Vote 6.00
- > 19:42:23 Brian Pirie entering door
- > 19:50:55 User paging system operator
- > 19:51:02 Entering sysop chat mode
- > 20:05:41 Terminating sysop chat mode
- > 20:18:32 User time expired, exiting door
-
- To enable the OpenDoors log file system, simply include the
- following line before your first call to any OpenDoors function:
-
- od_control.od_logfile = INCLUDE_LOGFILE;
-
- When OpenDoors is initialized, it will open the log file and
- begin logging activities, unless logging has been disabled with
- the od_control.od_logfile_disable variable. The log file name
- will be taken from the od_control.od_logfile_name variable,
- which is usually set by the configuration file. If no logfile
- name has been set, OpenDoors will use the logfile named
- DOOR.LOG. Upon opening the log file, OpenDoors will write an
- entry indicating the time at which the use entered the door.
-
- The od_control.od_prog_name variable sets the program name that
- is written to the log file immediately after the current date
- information. If this variable is not set, OpenDoors will write
- its own name and version information in this place.
-
- When the OpenDoors log file system is enabled, OpenDoors will
- automatically produce logfile entries for the following events:
-
- - User paging sysop, beginning of chat, end of chat
-===============================================================================
-OpenDoors 6.00 Manual End of Page 235
-
- - Sysop entering or returning from DOS shell
- - User inactivity timeout or user time expired
- - Sysop dropping user back to BBS
- - Sysop hanging up on user, sysop locking out user
- - User hanging up on BBS
- - Your program calling the od_exit() function
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 236
-
-MAKING DOORS MULTI-NODE-AWARE
--------------------------------------------------------------------------------
-
- While the majority of BBS systems have only a single phone line,
- allowing only one user to access the system at a time, there are
- also many multi-node BBS systems. On such systems, it is quite
- possible that more than one user may be using your door program
- simultaneously. OpenDoors itself is designed for both single-
- node and multi-node operation. However, if you want your program
- to operate correctly on multi-node systems, there are a number
- of concurrency issues that you must keep in mind when writing
- your own code.
-
- Some door programs are designed to behave on multi-node systems
- just as they would on single-line BBSes. Others add special
- features only possible in multi-node environments. For instance,
- you may want to permit users to interact or chat with one
- another in "real time". Many simple doors may not require any
- special attention to multi-node capabilities. However, if your
- door must access any data files or other resources that are to
- be shared among nodes, it is necessary to carefully coordinate
- access to these resources.
-
- There are two primary issues that are often of concern when
- creating door programs for multi-node systems. The first issue
- discussed below is how to coordinate concurrent file access
- between multiple node. The second topic we will deal with is the
- installation of door programs on multi-node systems.
-
-
-
-CONCURRENT FILE ACCESS
--------------------------------------------------------------------------------
-
- One of the most important issues that arises when writing door
- programs for multi-node systems is how to coordinate
- simultaneous access to a single data file by multiple instances
- of your program. While it is generally safe to have multiple
- nodes reading simultaneously from a single file, having multiple
- nodes updating a file without any coordination can lead to lost
- updates and other problems. Consider, for example, the EX_VOTE.C
- example program that is included in your OpenDoors package. When
- the user votes on a poll, EX_VOTE.C must update the total number
- of votes for the user's answer. Such a program that is only
- intended for single node operation could do this by simply
- reading the current number of votes for the appropriate option,
- adding one to this total, and writing the updated total back to
- the file. However, if this approach where to be used on a multi-
- node system, it is quite possible that two users would vote on
- the same poll after both nodes have read the poll record into
- memory. In this situation, one node would add one to the total
- number of votes for the poll record that it has in memory, and
-===============================================================================
-OpenDoors 6.00 Manual End of Page 237
-
- write the updated information to the file. The second node would
- then add one to its total, without reading the updated
- information written by the first node. When the second node then
- writes this information to the file, it overwrites the first
- node's total with its own. The final effect is that the second
- user's vote overwrites the first, and so the first user's vote
- is lost.
-
- The solution to this problem is to lock a file unit for the
- entire update operation, to prevent other nodes from accessing
- the unit at the same time. This unit could be the entire file,
- or only a single record in the file. EX_VOTE.C locks its entire
- file when performing an update operation, but in other cases it
- may be more appropriate to only lock a single record in the
- file. The important thing to understand is that when one node
- locks a file unit, other nodes much wait until the first node is
- finished the update operation. This means that if one node is
- updating information that other nodes could possibly need access
- to, it should always perform the lock, read, write and unlock
- cycle as quickly as possible.
-
- Let's look again at the approach taken by EX_VOTE.C. After the
- user has indicated which option he/she wishes to vote on, Vote
- attempts to open the file for exclusive access. By doing this,
- EX_VOTE.C in effect locks the entire file for the duration that
- it has the file open. If another node attempts to open the file
- while one node has it locked, the open operation will fail, and
- the C runtime library will set the errno variable to EACCES.
- This, in effect, tells you that another node is currently
- working on the file, and that you must wait your turn. In this
- case, EX_VOTE.C continues to retry the open operation until the
- other node is finished its update, at which time the open
- operation will succeed. This approach will even work when there
- are many nodes that are attempting to update the file at the
- same time. Whichever node first attempts to open the file will
- gain exclusive access to the file, and any additional nodes are
- forced to wait for access to the file. When one node finishes
- with the file, another node will gain access to the file
- (whichever happens to be the next node to re-attempt the open
- operation). This process continues until all waiting nodes have
- had a chance to perform their update. EX_VOTE.C will repeatedly
- try to open the file for up to 20 seconds, after which time it
- will give up, reporting an error which indicate that it is
- unable to access the file. During this waiting process,
- EX_VOTE.C repeatedly calls od_kernel(), so that sysop function
- keys, carrier detection and other essential door operations can
- continue to be performed.
-
- After EX_VOTE.C has successfully secured exclusive access to the
- file, it first reads the record that it is going to update. It
- is important that this be done after the file unit is locked, in
- order to ensure that the copy of the record in memory matches
-===============================================================================
-OpenDoors 6.00 Manual End of Page 238
-
- what is stored in the file. EX_VOTE.C then updates the record
- based on the question on which the user has voted, writes this
- information back to the file. EX_VOTE.C then immediately closes
- the file, allowing other nodes to also access the file.
- EX_VOTE.C is very carefully designed so that the file update
- operation can never be interrupted (for instance, no OpenDoors
- functions are called, which could detect a time-out and
- terminate the program while a file update operation is in
- progress), or delayed until the user makes a response. As such,
- the file unit is always unlocked (in this case, closed) within a
- fraction of a second after it was locked, or order that other
- nodes will never have to wait long for access to the file.
-
- Here I have presented a detailed account of how EX_VOTE.C
- handles multi-node file access. While all of the details
- involved in coordinating multiple file access can be
- overwhelming at first, they will begin to come naturally to you,
- as you begin to always think in terms of multi-node scenarios.
- To summarize, the important elements that are typically involved
- in multi-node file access are:
-
- A. Decide on an appropriate file unit to lock for your
- application. In simple cases, this can be the entire file.
- In other cases, you may wish to lock individual file
- records, using the appropriate runtime library functions.
-
- B. Always perform update operations in lock, read, update,
- write, unlock cycles on individual file units. If there is a
- chance that other nodes will also need to access the file
- unit, ensure that the update operation cannot be interrupted
- or delayed until a user makes a response.
-
- After you have designed your program for concurrent file access,
- how can you test it? If you don't have a multi-node BBS system
- that you have access to, you can perform most of your testing
- under a multitasking environment, with multiple copies of your
- program running in different windows.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 239
-
-MULTI-NODE CONFIGURATION
--------------------------------------------------------------------------------
-
- A second issue that you may want to bear in mind is how door
- programs are typically setup on multi-node systems.
- Unfortunately, this may differ considerable depending upon which
- BBS software is being used. However, some of the issues that you
- may have to consider discussed below:
-
- A. Your program must be able to locate the correct door
- information file for the appropriate node. Most BBS systems
- make separate door information files available to each node
- by one of the following means:
-
- - By naming each node's door information file
- uniquely. (e.g. DORINFO1.DEF, DORINFO2.DEF.)
-
- - By having a separate directory for each node's door
- information file. (e.g. \NODE1\DOOR.SYS,
- \NODE2\DOOR.SYS, etc.)
-
- In the first case, OpenDoors can automatically select the
- correct door information file, assuming that it knows which
- node it is running on (see item C, below). In the later
- case, you must tell OpenDoors which directory it must look
- in to find the appropriate door information file. You may do
- this by any of the following means:
-
- - By specifying the location of the file on the
- command line, if od_parse_cmd_line() is used.
-
- - By providing a configuration file keyword to set
- the door information file location for each node.
-
- - By providing a different configuration file for
- each node (See item B, below).
-
- B. If you are using the OpenDoors configuration file system,
- node-specific options should not be used if each node is
- accessing the same configuration file. While it is possible
- to have a different configuration file for each node (the
- filename can be specified on the command line if
- od_parse_cmd_line() is used), in most cases the same
- configuration file will be used for all nodes. In this case,
- the node number, serial port information, and possible door
- information file location operations should not be used. If
- you are basing your configuration file on the example
- DOOR.CFG file that is included in the OpenDoors package, you
- may want to remove these options from the file.
-
- C. In many cases, your program must also be able to determine
- which node it is running under. If this information is
-===============================================================================
-OpenDoors 6.00 Manual End of Page 240
-
- available in the door information file, or is stored in a
- TASK environment variable, OpenDoors will automatically set
- the appropriate node number in od_control.od_node.
- Otherwise, if your program requires this information, it
- should be specified on the program's command line. The
- od_parse_cmd_line() function supports this option. Reasons
- that your program might need to know the current node number
- include:
-
- - In order for OpenDoors to display this information
- correctly on the status line.
-
- - In order to determine which configuration file to
- read or which node directory in which to look for
- the door information file.
-
- - In order for OpenDoors to know which door
- information file to read (e.g. DORINFO1.DEF,
- DORINFO2.DEF. etc.)
-
- - In order to provide any form of real-time
- interaction between nodes, such as inter-node chat.
-
- D. If your program is running under MS-DOS, and multi-node file
- access is being coordinated by locking part or all of a
- file, the SHARE.EXE utility must be installed.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 241
-
- 7777777
- 77
- 77
- 77
- 77
- 77
- 77
--------------------------------------------------------------------------------
-CHAPTER 7 - TROUBLESHOOTING AND GETTING ASSISTANCE WITH OPENDOORS
-
-
-
-
-ABOUT THIS CHAPTER
--------------------------------------------------------------------------------
-
- This chapter is perhaps the most important section of this
- entire manual. Here, we provide detailed instructions to help
- you in tracing the source of problems in programs written with
- OpenDoors. Included in this chapter is a step-by-step OpenDoors
- troubleshooting guide and a chart listing common problems and
- their solutions. Also included in this chapter is information on
- the many means available to you for getting more help with
- OpenDoors, including the OpenDoors support BBS, the OpenDoors
- EchoMail conference, and how to get in touch with me. It is
- strongly encouraged that you take the time to read through this
- chapter.
-
-
-
-TROUBLESHOOTING PROBLEMS
--------------------------------------------------------------------------------
-
- If you are experiencing difficulty with a program that you are
- writing using OpenDoors, it is suggested that you follow the
- steps listed below in order to quickly solve your problem. Also,
- be sure to check to "solutions to common problems" section of
- this manual. There are many common difficulties which people
- have with OpenDoors, that can easily be fixed using the
- instructions in the "common solutions" section. Also, if you are
- having difficulty solving a problem yourself, do not hesitate to
- get in touch with me, as I am always happy to help with any
- problems. In addition, you may find the other means of OpenDoors
- support (described latter in this chapter), invaluable in
- solving difficulties with OpenDoors.
-
- Keep in mind that most programs you write will have some "bugs"
- to begin with, and you should expect to spend at least 50% of
- any programming project tracing down and solving errors and
- bugs. While it would be nice if every program written worked
- correctly the first time, it is a fact of life that debugging is
- and always has been an important part of the software life-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 242
-
- cycle. In fact, what most often separates the good programs from
- the bad is the amount of time their programmer's spend debugging
- and improving them. Unfortunately, it is difficult, if not
- impossible, to come up with a "magic formula" for debugging
- software. Debugging software is really more of an art than a
- science. However, there are some basic guidelines, which if
- followed, can greatly ease the task of software debugging.
-
- As with all problem solving, the secret to software debugging
- lies in obtaining as much information about the problem as
- possible. While it is sometimes possible to solve a bug by
- making intuitive changes in your program, or in re-writing a
- piece of code to solve the problem by a different means,
- debugging most often requires more of a "planned attack". This
- planned attack generally involves little more than learning as
- much about what is going wrong as possible. The first step in
- solving a bug usually lies in locating the source of the
- problem. Once you have located the problem, solving it is often
- a relatively simple procedure. In locating the source of your
- bug, the use of a software debugger, such as the one built into
- the Turbo C(++) / Borland C++ integrated development
- environment, can be invaluable.
-
- When debugging programs written with OpenDoors, you should also
- follow the steps listed below, in order to obtain more
- information related to the problem you are trying to solve:
-
- 1.) Re-read the section(s) of this manual, your Turbo C(++) /
- Borland C++ manuals and your program's source code, which
- apply to the problem you are experiencing.
-
- 2.) Check the solutions to common problems section below. The
- most common problems with OpenDoors can be solved using
- this simple chart.
-
- 3.) Check the value in the od_errno variable, which will often
- provide vital clues as to the source of the problem. Use of
- the od_errno variable is described in the section below.
-
- 4.) If you are still stuck, please feel more than free to get
- in touch with me! (see the end of this chapter for
- information on reaching me) I am always more than happy to
- help with any OpenDoors or general programming problems!
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 243
-
-SOLUTIONS TO COMMON PROBLEMS
--------------------------------------------------------------------------------
-
- Below, several common difficulties with OpenDoors are listed,
- along with suggested solutions to these problems. If you are
- experiencing any difficulty with a program that you have written
- with OpenDoors, we would suggest that you read this section
- thoroughly. Here, the common problem is listed in the left
- margin, and the solutions listed on the right portion of the
- page.
-
-
--------------------------------------------------------------------------------
-PROGRAM 1.) Check that the compiler is able to locate the OpenDoors
-WON'T header file, "OPENDOOR.H". This can be accomplished either by
-COMPILE placing this header file in the same directory as your other
- header files (such as STDIO.H, etc.), or by placing the header
- file in the current directory.
-
- 2.) Be sure that you are linking your program with the correct
- library for the memory model you are using. (See the section on
- compiling with OpenDoors). Also be sure that both the source
- code file for your program (such as EX_VOTE.C) and the library
- file are listed in your project file, and that the project file
- is loaded. For more information on compiling programs written
- with OpenDoors, see page 22.
-
- 3.) If you have tried the above solutions, and your program
- still won't compile, then the problem is most likely an error in
- your source code file. If you are unable to resolve your
- problem, feel free to get in touch with me.
-
-
--------------------------------------------------------------------------------
-SCREEN If you are using the od_clr_scr() function to clear the screen,
-WILL NOT but are not getting any results, this is likely because the user
-CLEAR online has screen clearing turned off. If you wish to force
- screen clearing regardless of the user's screen clearing
- settings (this is probably not a good idea), use the function
- call od_disp_emu("\xc", TRUE);
-
-
--------------------------------------------------------------------------------
-FIXUP This problem was probably caused by a mismatch between your
-OVERFLOW memory model selection in your compiler, and the memory model
-ERROR library you are using. See the section on compiling programs
- with OpenDoors for more information on the correct library you
- should be using for your memory model selection.
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 244
-
-OPENDOORS SUPPORT
--------------------------------------------------------------------------------
-
- The powerful and easy to use door toolkit and this comprehensive
- manual are only two portions of how OpenDoors helps you to write
- BBS door and similar programs. The third element of OpenDoors is
- the extensive OpenDoors support mechanisms. The OpenDoors email
- conference and support BBS each give you a chance to share ideas
- and source code with other OpenDoors programmers. A lot of
- information concerning OpenDoors, along with the newest version
- and online registration, is available through the OpenDoors
- World Wide Web site. In addition to these sources, I am also
- more than happy to answer any of your questions, or hear any
- suggestions for future versions of OpenDoors. The remainder of
- this chapter provides more information on the various sources of
- OpenDoors support. Also keep your eyes open for the "OpenDoors
- Tech Journal", that is produced on a regular basis by the users
- of OpenDoors. Included in this newsletter is information on
- OpenDoors and future versions, questions and answers about
- OpenDoors and BBS door / utility programming in general, sample
- source code, and much more.
-
-
-
-THE OPENDOORS SUPPORT BBS
--------------------------------------------------------------------------------
-
- One means of receiving OpenDoors support is via the OpenDoors
- BBS. Below is an outline of some of what is available from the
- OpenDoors BBS:
-
- - The newest version of this package is always available
- for download.
-
- - Also available for download is example source code and
- other files which you may find helpful when writing
- programs with OpenDoors.
-
- - Access to the OpenDoors conference where OpenDoors
- programmers can share ideas, source code, and receive
- help with difficulties or with learning OpenDoors.
-
- - Get in touch with me with any questions, comments,
- suggestions or bug reports.
-
- - Other files by yours truly, which may be of use in you
- programming, such as a registration key system, and so
- on.
-
- All users receive full access upon their first call to the
- OpenDoors BBS. The North American phone number for the support
- BBS is:
-===============================================================================
-OpenDoors 6.00 Manual End of Page 245
-
-
- +1 (613) 599-5554
-
- The OpenDoors support BBS also has a FidoNet address, 1:243/8.
- If you are interested in a list of files available from the
- support BBS, simply file-request "FILES". To receive the newest
- version of OpenDoors, you can file-request "ODOORS".
-
-
-
-THE OPENDOORS WORD WIDE WEB SITE
--------------------------------------------------------------------------------
-
- The OpenDoors World Wide Web site has been setup to provide up-
- to-date information on OpenDoors. This includes news concerning
- OpenDoors, OpenDoors tips and techniques, pointers to other
- sources of OpenDoors support, online registration and access to
- the newest version of OpenDoors.
-
- The current URL (address) of the OpenDoors Web site is:
-
- http://omega.scs.carleton.ca/~ug930227/opendoor.html
-
- However, I plan on moving this to a new location some time this
- year. If you are unable to reach the OpenDoors Web site through
- the above URL, please get in touch with me, and I will be able
- to tell you where it has moved to.
-
-
-
-THE OPENDOORS CONFERENCE
--------------------------------------------------------------------------------
-
- The OpenDoors conference is devoted to OpenDoors and BBS / door
- / BBS utility programming in general. The OpenDoors conference
- serves as a place where people working with OpenDoors can share
- ideas, source code examples, and other tricks and techniques.
- Through the OpenDoors conference you can receive help with
- OpenDoors and programming in general. Also available through the
- OpenDoors conference is information on future versions of
- OpenDoors and recent developments of concern to BBS door and
- utility programmers. The OpenDoors conference is also a place
- for suggestions for future versions of OpenDoors, OpenDoors bug
- reports, a place to announce the availability of your programs,
- and much more information of interest to programmers working
- with OpenDoors.
-
- You can become involved in the OpenDoors Conference by the
- following means:
-
- - The OpenDoors conference is available as an Internet mailing
- list. to subscribe, send email to listserv@hms.com and put
-===============================================================================
-OpenDoors 6.00 Manual End of Page 246
-
- SUBSCRIBE OPENDOOR in the message body. For help on using the
- listserver you can send email to listserv@hms.com and put
- HELP in the message body.
-
- - The OpenDoors conference is available on the FidoNet North
- America echo backbone, and so is available to a large number
- of BBS systems. FidoNet capable systems may also obtain an
- OpenDoors feed directly from the moderator, Brian Pirie.
-
-
-GETTING IN TOUCH WITH ME
--------------------------------------------------------------------------------
-
- If you have any questions about OpenDoors, would like help with
- any programs that your are writing, or have any suggestions for
- future versions of OpenDoors, please feel free to get in touch
- with me. You can get in touch with me by any of the following
- means:
-
- - The best way to contact me is by Internet email. My primary
- email address is:
-
- pirie@msn.com
-
- If you have difficulty contacting me through this address, I
- may also be reached through the address:
-
- aa522@freenet.carleton.ca
-
- - By writing a message to me in the OpenDoors support
- conference. For more information on the OpenDoors conference,
- see the previous section of this chapter.
-
- - By calling the OpenDoors support BBS. Information on the
- support BBS is provided earlier on in this chapter.
-
- - By sending your question or comment by Fax. My fax number is:
-
- +1 (613) 599-5554
-
- - By FidoNet NetMail. My address is:
-
- 1:243/8
-
- While I would like to be able to reply to all NetMail
- messages by CrashMail, I am afraid I simply can not afford to
- do this. So, if you choose to send NetMail, please indicate
- whether you would like me to reply by routed NetMail (this
- may not work, if routed NetMail is not available in your
- area), or to place the message on hold for you to poll and
- pick up.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 247
-
- - By conventional mail. My postal address is:
-
- Brian Pirie
- 117 Cedarock Drive
- Kanata ON K2M 2H5
- Canada
-
-
- I try to respond to all correspondences as soon as possible.
-
- If you are having some sort of difficulty with OpenDoors, the
- more detailed information you supply (such as source code to the
- program that is causing the problem, how to duplicate the
- problem, and so on), the more quickly I will be able to
- determine the source of your problem. Also, before you write
- about a problem with OpenDoors, you may wish to be sure that you
- have read and followed the instructions in the section on
- troubleshooting, found on page 242. While I do not mind taking
- the time to answer any questions related to OpenDoors, you may
- be able to save yourself the time of writing and waiting for a
- response - simply by following the instructions in the
- troubleshooting section. More often than not, the answer to
- questions I receive is already in this manual.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 248
-
- A
- AAA
- AA AA
- AAAAAAA
- AA AA
- AA AA
- AA AA
--------------------------------------------------------------------------------
-APPENDIX A - CONTENTS OF PACKAGE
-
-
-
-
- The main OpenDoors package is distributed in the form of a
- single, compressed archive file. Thus, you should have received
- this version of OpenDoors in a file whose name began with
- ODOORS60. The files listed below should be included in your
- OpenDoors package. If any of these files are missing, you will
- probably want to look for the most recent version of OpenDoors
- from another source. Note that the medium and compact memory
- model libraries are now distributed separately from the main
- OpenDoors package.
-
- MISCALENEOUS FILES
- FILE_ID.DIZ Description of the OpenDoors package
- DORINFO1.DEF Sample door info file for testing programs
- DOOR.CFG Sample OpenDoors configuration file
-
- EXAMPLE PROGRAMS
- EX_HELLO.C A simple program using OpenDoors
- EX_CHAT.C Split-screen sysop chat program
- EX_MUSIC.C Example of ANSI music in OpenDoors
- EX_SKI.C Simple slalom skiing action game
- EX_VOTE.C Example of an online voting program
- VOTEDOS.EXE Compiled version of EX_VOTE.C - DOS version
- VOTEWIN.EXE EX_VOTE.C compiled - Windows version
- DTRON.EXE Free utility for running Win 95 doors
-
- THE LIBRARY FILES
- ODOORS.LIB DOS, Small memory model library
- ODOORL.LIB DOS, Large memory model library
- ODOORH.LIB DOS, Huge memory model library
- ODOORW.LIB Win32 import library (Microsoft version)
- ODOORS60.DLL The OpenDoors Win32 DLL
-
- THE HEADER FILE
- OPENDOOR.H OpenDoors header file
-
- OPENDOORS DOCUMENATION
- ORDER.TXT Easy-to-print order form
- OPENDOOR.TXT OpenDoors programmer's manual (this file)
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 249
-
- BBBBBB
- BB BB
- BB BB
- BBBBBB
- BB BB
- BB BB
- BBBBBB
--------------------------------------------------------------------------------
-APPENDIX B - CHANGES FOR THIS VERSION
-
-
-
-
- Since version 5.00, a lot of work has gone into OpenDoors. Many
- months were spent cleaning up and restructuring the OpenDoors
- code in a process that has touched nearly every line of the
- OpenDoors code. As well as making the OpenDoors source code
- easier to maintain, this has also involved making OpenDoors more
- easily portable to 32-bit multithreaded platforms.
-
- After this effort was completed, I began work on a Win32 port of
- OpenDoors. The OpenDoors package now includes both DOS and Win32
- versions of the library, giving you the option of developing for
- one, the other, or both platforms. The Win32 version of
- OpenDoors is highly multithreaded to give you the best possible
- performance. With some exciting new BBS packages that are
- designed specifically for Windows 95/NT in the works, the Win32
- version of OpenDoors gives you a head start on developing
- applications that will integrate smoothly with these new BBS
- packages. Even if your programs will only be used with DOS-based
- BBS packages, the Win32 version of OpenDoors allows you to take
- advantage of the Windows 95 GUI, multithreading capabilities and
- flat 32-bit memory model (no more DOS 64K limitations and
- different memory models to worry about!). It also allows you to
- access services that are only available to Windows based
- programs, such as ODBC for easy database access, and MAPI for
- email, fax and other messaging.
-
- While this internal restructuring of OpenDoors and the Win32
- port of the package would be enough alone to count as a major
- new version, version 6.00 also includes many exciting new
- features, enhancements and bug fixes:
-
- - A new option, "silent mode", has been added. When operating
- in silent mode, OpenDoor's local sysop interface is disabled,
- so that no output is displayed on the local screen, and no
- input is accepted from the local keyboard. Silent mode can be
- activated by setting od_control.od_silent_mode = TRUE prior
- to the first call to any OpenDoors function, or by specifying
- -SILENT on the command-line (if od_parse_cmd_line() is used).
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 250
-
- - OpenDoors now fully supports RTS/CTS flow control, which is
- enabled by default. To disable the use of the RTS/CTS lines
- for flow control, use od_control.od_com_flow_control.
-
- - In version 5.00, the built-in serial I/O module would be
- unable to initialize the serial port if the "Uses Serial
- Ports" option was turned off in DesqView or other
- multitasking environments. When this option is turned off,
- multitasking environments typically remove the serial port
- information from the BIOS data segment. However, it seems
- that other serial I/O software commonly uses the default
- address for each port if this information is not available
- from the BIOS data area. OpenDoors 6.00 has been changed to
- do the same thing.
-
- - OpenDoors now provides a standard command-line processing
- function, od_parse_cmd_line(). This function provides a one-
- step method of adding support for many common command-line
- options to your program. This function handles options such
- as serial port information (including non-standard serial
- port configurations), node number information, user
- information, drop file and configuration file locations,
- silent mode (turns off the local interface for efficiency and
- privacy), one step local login without a drop file, and more.
- For details, run the included example program (votedos.exe or
- votewin.exe) with the -help command line option. The
- od_parse_cmd_line() function is particularly helpful in
- several situations:
-
- - When your program is being used on a multi-node
- system.
- - Allows potential users to try your program in local
- mode by just specifying -local on the command line.
- - Allows door information to be specified on the
- command line, rather than through a drop file, as
- supported by some BBS systems
- - Allows serial port handle to be directly passed to
- the program under Windows-based BBS systems that
- support this.
- - Provides customizable command-line help (in a
- window in the Win32 version of OpenDoors).
-
- - A new function, od_sleep(), allows you to suspend program
- execution for the specified number of milliseconds, releasing
- time to other processes in a multitasking environment. A call
- of od_sleep(0) will yield control to any other processes
- without forcing program execution to be suspended if no other
- processes are waiting.
-
- - The sysop page timing mechanism has been reworked. By
- default, od_control.od_okaytopage is set to PAGE_USE_HOURS,
- only allowing the sysop to be paged during the paging hours
-===============================================================================
-OpenDoors 6.00 Manual End of Page 251
-
- set by od_pagestartmin and od_pageendmin. Rather than
- allowing the sysop to be paged at any time of the day or
- night, the default now only permits sysop paging from 8:00am
- to 10:00pm. Setting paging start and end time to the same
- value now correctly permits paging 24 hours a day.
-
- - OpenDoors now provides a multi-line editor function,
- od_multiline_edit(). This editor allows the user to enter or
- edit any information that spans multiple lines, such as email
- messages or text files. The editor can be configured to
- operate in full screen mode, or in any smaller area of the
- screen that you specify. The editor is designed to be both
- easy to use, and highly customizable.
-
- - One new feature of OpenDoors 5.00 was somehow omitted from
- the manual. Since version 5.00, it has been possible to set
- the name of the drop file to use by including both a path and
- filename in the od_control.info_path variable.
-
- - All known inaccuracies and missing information from the
- version 5.00 manual have been corrected.
-
- - The example program, ex_chat.c, has been expanded to
- demonstrate how OpenDoor's standard chat mode can be replaced
- with the split-screen chat mode within your own programs.
-
- - The multiple ex_vote?.c example files have been combined and
- simplified into a single example program, as it was prior to
- version 5.00.
-
- - A memory leak in the od_popup_menu() function has been fixed.
-
- - od_control.od_open_handle can be used to provide OpenDoors
- with an already open serial port handle on platforms that
- support it. Currently, this only applies to the Win32 version
- of OpenDoors. If this variable is not set to a non-zero value
- prior to calling the first OpenDoors function (other than
- od_parse_cmd_line()), then OpenDoors proceeds normally,
- opening the serial port itself, and closing the serial port
- before exiting.
-
- - A new switch, od_emu_simulate_modem, has been added to
- od_control. When this is set to its default value of FALSE,
- the OpenDoors terminal emulator displays at full speed, as it
- has always done. However, when this flag is set to TRUE, the
- emulation functions will display text at approximately the
- same speed as it would be displayed when sent over the modem,
- based on the current connect speed. This allows animations to
- be displayed locally at the same speed as they would appear
- on the remote system. This switch affects the following
- functions:
- od_disp_emu()
-===============================================================================
-OpenDoors 6.00 Manual End of Page 252
-
- od_send_file()
- od_hotkey_menu()
-
- - OpenDoors now distinguishes between the serial port BPS rate
- (od_control.baud) and the connection BPS (a new variable,
- od_control.od_connect_speed). In situations where a separate
- value is available for the connect speed (e.g., this caller
- has connected at 14400 bps), OpenDoors will now display that
- value on the status line. Currently, a separate connect speed
- is only obtained from the DOOR.SYS drop file format.
-
- - The latest versions of the QBBS EXITINFO.BBS drop file is now
- supported.
-
- - A new od_edit_str() flag, EDIT_FLAG_SHOW_SIZE, has been
- added. By default, the fields shown by od_edit_str() are one
- character larger than the number of characters that may be
- entered. This is for esthetic reasons, so that the cursor
- remains within the highlighted field, even after a full
- string has been entered. However, you may prefer that the
- highlighted area reflect the exact number of characters that
- are permitted. This can be accomplished by setting
- EDIT_FLAG_SHOW_SIZE.
-
- - Tab characters ('\t') are now expanded on the local display.
-
- - The new RemoteAccess 2.50 EXITINFO.BBS fields are now
- supported. This has included the addition of the following
- new od_control members: user_rip_ver, user_attrib3 and
- system_last_handle.
-
- - When operating in "forced automatic local" mode (where no
- door information file used), OpenDoors now displays a window
- in which in prompts for the user's name at startup time. This
- new feature can be disabled by specifying the DIS_NAME_PROMPT
- od_control.od_disable flag.
-
- - The latest version of the SFDOORS.DAT drop file is now
- supported. SFMAIN.DAT, SFSYSOP.DAT, SFFILE.DAT and
- SFMESS.DAT, which are in the same format as SFDOORS.DAT, are
- also now recognized.
-
- - A new function, od_get_input(), allows you to easily handle
- extended keys in your program, such as arrow keys, insert and
- function keys.
-
- - The OpenDoors configuration file system will now display an
- error and exit the program if a particular configuration file
- name has been specified, and that configuration file cannot
- be found.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 253
-
- CCCC
- CC CC
- CC
- CC
- CC
- CC CC
- CCCC
--------------------------------------------------------------------------------
- APPENDIX C - FUTURE VERSIONS
-
-
-
-
- While I cannot make any promises about what features and changes
- will be seen in future versions of OpenDoors, I would like to
- take a moment to tell you a bit about some of the features you
- can expect to see in future versions of OpenDoors
-
- As you are probably already aware, OpenDoors is a constantly
- evolving package. To help meet the needs of programmers working
- with OpenDoors, nearly every idea and change that is made to the
- package results from the suggestions and comments I receive from
- the people using OpenDoors. For this reason, I will most likely
- continue to produce new versions of OpenDoors for as long as
- there is a demand and ideas for upgrades. There certainly is no
- shortage of either of this right now.
-
- Some of the features that I am considering for upcoming versions
- of OpenDoors include:
-
- -Telnet support.
-
- - HTML support.
-
- - Direct interfacing with new Windows 95/NT BBS packages.
-
- - Further features to help writing multi-node door
- programs.
-
- -Direct interfacing with more BBS systems.
-
- -Additional RIP graphics support, including possible
- display of RIP images on local screen.
-
- -Possible support for additional programming languages and
- operating systems.
-
- - Improvements to existing OpenDoors features, such as more
- configuration file options, multiple log file formats,
- and many smaller changes.
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 254
-
- DDDDD
- DD DD
- DD DD
- DD DD
- DD DD
- DD DD
- DDDDD
--------------------------------------------------------------------------------
- APPENDIX D - SPECIAL THANKS
-
-
-
-
- There are many people who I would like to thank, for their
- suggestions, ideas and assistance in making OpenDoors what it is
- today. Among those I would like to thank are:
-
- - Everyone who has registered OpenDoors.
-
- - All those who participate in the OpenDoors conference,
- who provide many suggestions, bug reports and words of
- encouragement.
-
- - Those who on the OpenDoors beta team. Thank-you for
- putting up with the problems along the way. You have
- certainly helped to make OpenDoors a better package. The
- people who have helped to beta test OpenDoors 6.00 are:
-
- Robert Bouman
- Doug Crone
- Greg Diener
- Patrick Dixon
- Joel Downer
- Mike Fenton
- Les Howie
- Vince Jacobs
- Scott Jibben
- Dean Mills
- Jimmy Rose
- Jim Woodward
- Timothy Ward
- Mark Williams
-
- - Last but not least, I would like to thank my wife, Pearl,
- for her support during the long hours that it has taken
- to put OpenDoors together.
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 255
-
- GGGG
- GG GG
- GG
- GG GGGG
- GG GG
- GG GG
- GGGG
--------------------------------------------------------------------------------
-GLOSSARY
-
-ANSI ANSI is an acronym for "American National Standards Institute".
- One of the standards approved by ANSI is a terminal display
- protocol which allows (in this case), BBS software to perform
- certain display functions such as changing the color of
- displayed text, or moving the location of the cursor on the
- screen. The majority, though not all, BBS users use terminal
- software with ANSI capabilities. Any users that do not have
- graphics display capabilities, will be using ASCII mode,
- instead. The ANSI terminal protocol is sometimes referred to as
- "ANSI graphics". It is graphic in the sense that it provides
- more visual control than an ASCII TTY terminal does, but does
- not imply any support for bit-mapped nor vector graphics.
- Compare ASCII and AVATAR.
-
-
-API API is an acronym for "Application Program(er) Interface". An
- API is a set of well documented functions, variables and data
- types that you can use to access certain services from your
- program. When you write any C program that uses standard C
- library functions such as fopen() or strcpy(), you are using a
- sort of API. When you use OpenDoors functions such as
- od_printf() or od_get_key(), you are using functions that are
- part of the OpenDoors API. Operating systems provide their own
- APIs that allow programs to gain access to operating system
- features such as screen display, file I/O and communications.
- The API provided by Microsoft Windows 95 and Windows NT is
- called the Win32 API.
-
-
-ASCII ASCII (pronounced "ass-key") is an acronym for "American
- Standard Code for Information Interchange", and is a definition
- of a set of 128 letters, number and symbols, which can be
- displayed by computer systems. Also, when used within the domain
- of BBS software, ASCII mode is often used to refer to the lack
- of any more advanced display capabilities, such as ANSI or
- AVATAR. When ASCII mode is used, characters can only be
- displayed in standard Teletype (TTY) fashion, one after another.
- Also, color and cursor positioning functions are not available
- in ASCII mode. Compare ANSI and AVATAR.
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 256
-
-AVATAR AVATAR is an acronym for "Advanced Video Attribute Terminal
- Assembler and Recreator". AVATAR is a graphics display protocol,
- similar to ANSI. Like ANSI-graphics, AVATAR graphics allow
- functions such as cursor positioning, and color changing.
- However, AVATAR also offers many capabilities not available from
- ANSI, and performs the same functions as ANSI much more quickly.
- AVATAR graphics is less common than both ANSI or ASCII, but is
- becoming more popular as time goes by. Compare ASCII and ANSI.
-
-
-BAUD "baud" or "baud rate" are generally used as a synonym for "BPS".
-
-
-BPS BPS is an acronym for "Bits Per Second", and refers to the rate
- at which data is being sent over a communications medium. There
- are two important BPS rates which are relevant to OpenDoors. The
- serial port BPS rate (also called the DCE rate) is the speed at
- which the computer is communicating with the local modem. The
- connect speed, on the other hand, is the speed at which the
- local modem is communicating with the remote modem. The serial
- port speed must be at least as fast as the connection speed.
- Often the serial port speed will be locked at a fixed speed that
- is higher than the fastest possible connection speed of the
- modem. For example, the serial port might be locked at a speed
- of 38400 BPS, while the modem could be connected at 28,800,
- 14,400 or slower speeds. OpenDoors usually needs to know the
- serial port BPS rate in order to function correctly (as stored
- in od_control.baud). Under certain situations, OpenDoors will
- also be able to report the connection speed to you (as stored in
- od_control.od_connect_speed), although OpenDoors does never
- requires this information to operate.
-
-
-BIT-MAPPED As with Boolean values, described below, bit mapped flags
-FLAGS are used to indicate whether or not various conditions exist.
- (For example, whether or not a certain setting is enabled, or
- whether or not a particular event has occurred.) However, unlike
- Boolean variables, a single bit-mapped flag represents more than
- one of these TRUE/FALSE values. In fact, each bit (BInary
- Digit), which makes of the variable can be used to represent a
- separate TRUE/FALSE state. (ie, each bit maps to a particular
- piece of information, and hence the term "Bit Map").
-
- For an example of using bit-mapped flags, let us take a case of
- a single "unsigned char" which contains three independent
- TRUE/FALSE values. We will call this variable user_info, and it
- will indicate whether or not a user has ANSI graphics, whether
- or not the user has screen clearing turned on, and whether or
- not the user has end-of-page "more" prompts enabled. Internally,
- the bits of the user_info variable will be as follows:
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 257
-
- Bit: 7 6 5 4 3 2 1 0
- | | |
- | | +--- ANSI Graphics
- | +----- Screen Clearing
- +------- More prompts
-
- In this case, we will have three constants which we define in
- order to simplify access to these bit-mapped flags, as follows:
-
- #define ANSI_GRAPHICS 0x01
- #define SCREEN_CLEARING 0x02
- #define MORE_PROMPTS 0x04
-
- Note that normally within OpenDoors, these constants will be
- defined for you, and you will have no need to know what their
- values are, nor in which bit which piece of information is
- stored.
-
- Using bit-mapped flags, you are able to set or clear any of the
- individual flags, and check whether any of the flags are set,
- using these simple methods: (Not that a set flag is the
- equivalent of a Boolean value of "True", and a cleared flag is
- the equivalent of a Boolean value of "False".)
-
- Set Flag: variable |= FLAG_CONSTANT;
- Clear Flag: variable &=~ FLAG_CONSTANT;
- Test Flag: variable & FLAG_CONSTANT
-
- Where "variable" is the name of the bit-mapped flag variable,
- and "FLAG_CONSTANT" is the pre-defined constant for the
- individual setting. To return to our example, you could turn on
- the user's ANSI graphics setting by using the line:
-
- user_info |= ANSI_GRAPHICS;
-
- and to turn off screen clearing you would:
-
- user_info &=~ ANSI_GRAPHICS;
-
- To perform an action (such as waiting for the user to press
- [Return]/[Enter]) only if "More" prompts are enabled, you would:
-
- if(user_info & MORE_PROMPTS)
- {
- ... /* Whatever you want */
- }
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 258
-
-BOOLEAN Many of the variables used within OpenDoors contain a
-VALUES "Boolean Value". A Boolean value is a two-state variable, who's
- states are referred to as "True" and "False'. If the variable
- contains a value of "True", it indicates that a certain
- condition is so, and if it contains a value of "False", it
- indicates that the condition is not so. For example, a Boolean
- variable "wait" might be used to indicate whether or not
- OpenDoors should wait for the user to press a key, or continue
- without waiting. In this case, a value of "True" would indicate
- that OpenDoors should wait, and a value of "False" would
- indicate that it should not wait.
-
- Note that in the C programming language, there is no actual
- Boolean variable type - usually a char or an int are used to
- store Boolean values.
-
- The constants TRUE and FALSE, as defined in the OPENDOOR.H file,
- are used to represent the two states of a Boolean value. Thus,
- to set a Boolean variable "wait" to the value of "True", you
- would use this line:
-
- wait=TRUE;
-
- and to set the variable "wait" to "False", you would:
-
- wait=FALSE;
-
- However, you SHOULD NOT test whether a Boolean variable is
- "True" or "False" by using the C compare (==) operator, as the
- value "True" will not always be the same numerical value.
- (Actually, the TRUE constant represents just one of many
- possible numerical values for "True"). Instead, to perform an
- action of the "wait" Boolean variable is "True", you would:
-
- if(wait)
- {
- ... /* Whatever you want */
- }
-
- and to perform an action if the "wait" Boolean variable is
- "False', you would:
-
- if(!wait)
- {
- ... /* Whatever you want */
- }
-
- For interest sake, Boolean values are named after the 19th
- century English mathematician, who studied formal logic, and
- created Boolean algebra - an algebra which deals with TRUE and
- FALSE values.
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 259
-
-
-BPS BPS is an acronym for "Bits Per Second". For our purposes here,
- the terms BPS and BAUD refer to the same thing.
-
-
-CARRIER The term "Carrier" or "Carrier Detect" refers to a signal which
-DETECT most modems send to the computer, which indicates whether or not
- the modem is currently connected to (communicating with) another
- modem. The door driver module of OpenDoors, as with most other
- BBS software, uses the status of this carrier detect signal in
- order to know whether the user is still connected to the BBS
- computer. Thus, if the user hangs up, or if something goes wrong
- and the connection is lost, OpenDoors is able to detect this
- state, and exit to the BBS. The BBS will then also detect that
- the carrier signal has been "lost", and will reset itself, and
- then again be ready to accept calls.
-
-
-CHAT MODE The term "chat mode" refers to a means by which the sysop can
- communicate with a user of the BBS / door. During sysop chat,
- anything typed by the sysop will appear on the user's screen,
- and likewise, anything typed by the user will appear on the
- sysop's screen. Sysop chatting is available on both single and
- multi-line systems. Sysop chatting is initiated by the sysop,
- either at any time a user is online, or specifically in response
- to a sysop page.
-
-
-COMPILE "Compiling" refers to the process of converting the source code
- that you write for your program, into an executable file (such
- as a .EXE file) that an end user can use. The process of
- building an executable file is generally divided into two
- stages. In the first stage, called compiling, source files are
- converted to object files, often named .OBJ. In the second
- stage, called linking, one or more object files are combined,
- along with any library files, to produce the final executable
- file.
-
-
-DLL DLL is an acronym for "Dynamic Link Library". A dynamic link
- library is similar to a static library, in that it contains one
- or more functions that an application program can use. Unlike a
- static library, the code from a dynamic link library is not
- added to the program's executable file at link time. Instead,
- the dynamic link library exists as a separate file which must be
- loaded when the program is run. The Win32 version of OpenDoors
- resides in a DLL.
-
- See also "Library".
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 260
-
-DOOR A "door" is a program that runs as part of a BBS system, but
- which is separate from the central BBS software (RemoteAccess,
- Maximus, QuickBBS, PC-Board, etc.) itself. A door provides
- additional features not built into the BBS software, such as on-
- line games, on-line shopping services, voting booths, match
- making systems, access to special files or messages, and much
- much more. Since the user also communicates with the door
- online, as they do with the BBS, it may not necessarily be
- obvious to the user that the door is even a separate entity from
- the central BBS software itself.
-
-
-DOOR Also referred to as a "drop file", "exit file", or "chain
-INFORMATION file". The door information file is a file passed from the
-FILE central BBS software to a door program, providing it with
- information about the user who is online, the BBS the door is
- running under, and the current modem connection. The door
- information file may also be used to pass changed information
- back to the BBS, such as the amount of time that the user has
- used in the door. OpenDoors takes care of all of the work
- involved in reading and writing the door information file for
- you, as described in the "Basics of Door Programming" section,
- in chapter 4. Examples of door information files supported by
- OpenDoors include: DOOR.SYS, EXITINFO.BBS, DORINFO?.DAT,
- SFDOORS.DAT, CALLINFO.BBS and CHAIN.TXT.
-
-DTR DTR is an acronym for "Data Terminal Ready". This is a signal
- that the computer sends to the modem, indicating that the
- computer is ready to send or receive information. Most modems
- are configured to hangup if the DTR signal is lowered. This is a
- convenient means of hanging up the modem, but cases problems
- under Windows 95, where the DTR signal is always lowered when a
- program closes the serial port.
-
-
-ECHO See "Local Echo".
-
-
-FOSSIL The FOSSIL driver, or simply FOSSIL, is a TSR program or
-DRIVER device driver which OpenDoors can optionally make use of in
- order to communicate with the modem. The FOSSIL driver is loaded
- prior to starting up the BBS or your door, usually from the
- AUTOEXEC.BAT or CONFIG.SYS files. The two most commonly used
- FOSSIL drivers are X00 and BNU. (FOSSIL is an acronym for
- "Fido/Opus/SEAdog Standard Interface Layer", although it has now
- become the standard for nearly all BBS software.) FOSSIL drivers
- are also available for other specialized serial port hardware,
- such as the popular "DigiBoard" multi-port serial card.
-
-
-IMPORT LIBRARY See "Library".
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 261
-
-
-LIBRARY A "library" or "library file" is a collection of precompiled
- functions and variables that can be used by other programs. All
- of the features, capabilities and functions of OpenDoors that
- you can make use of are contained within the OpenDoors library
- files. (Likewise, the C runtime library, consisting of the
- familiar functions such as fopen(), printf() and atoi(), is also
- contained within a library file.) For more information on the
- different OpenDoors library files, see the section that begins
- on page 22.
-
- There are several different kinds of library files. A static
- library file is actually a collection of individual object
- files. When you compile a program that makes use of a static
- library file, only those portions of the library file that your
- program actually uses are linked into your program's executable
- (.EXE) file. Static library files can be identified by a .LIB
- extension. The DOS version of OpenDoors resides in a static
- library.
-
- A dynamic link library, on the other hand, is not combined with
- the program's executable file. Instead dynamic link libraries
- exist in separate .DLL files that must also be present when the
- program is executed. The Win32 version of OpenDoors resides in a
- dynamic link library.
-
- An import library is a small file that describes a dynamic link
- library. The most common way for a program to call functions in
- a dynamic link library requires that an import library be used a
- program link time.
-
- See also "DLL".
-
-
-LINK "Linking" generally refers to the process of combining several
- object files into a final executable file, during which
- references to symbol names (such as od_printf()) are resolved to
- the address of the corresponding object. See also "Compiling".
-
-
-LOCAL MODE The term "local mode" refers to a mode in which a BBS system or
- door program may operate. In local mode, the BBS/door behave as
- they would if a user were connected via modem to the BBS, except
- that all display and input is done simply on the BBS software,
- but not through the modem. Local mode allows the sysop or
- another person with direct access to the BBS computer to use the
- BBS/door software, either for their own user, or for testing
- that the software is running correctly. When programming door
- software, local mode can be very useful in testing and debugging
- the door, without requiring the door to be connected to a remote
- system. All doors written with OpenDoors automatically support
- local mode operation. Compare "Remote".
-===============================================================================
-OpenDoors 6.00 Manual End of Page 262
-
-
-
-LOCAL ECHO The term "Local Echo" refers to a door displaying the same
- characters which are sent to the modem on the local screen
- ("Output Window"). This allows the sysop to view the same
- information that is sent to the user's system, in the same
- manner that it will appear on the user's screen.
-
-
-LOCKED (eg. "Locked Baud Rate", "Locked BPS Rate", "Locked Commport
- Speed", etc.) Usually, the communication port to which a modem
- is connected is set to transfer data at the same BPS rate as the
- rate at which the modem is communicating. However, many high
- speed modems allow very high speed data transfer by using built-
- in data compression methods. In this case, the actual rate of
- data transfer can easily exceed the true BPS rate of the
- connection. As a result, the BPS rate of the port is kept a
- single speed, faster than any of the true modem connections, in
- order to increase modem speed performance. This is referred to
- as locking the commport BPS rate. OpenDoors has full support for
- the use of locked BPS rates.
-
-
-LOG FILE A log file is a normal text file in which BBS software records
- all major activities that have taken place. As such, the log
- file permits the sysop, to review what activities have taken
- place on the BBS during the time which they have been away from
- the computer. A log file can be helpful in identifying system
- errors or crashes that have occurred, in alerting the sysop in
- the case that any users have been causing problems on the BBS,
- or in simply letting the sysop know who has called recently, and
- what when they did when they called.
-
-
-MEMORY MODEL C and C++ programs can be compiled under a variety of different
- memory models. Each memory model describes how data and program
- code are addressed in memory. When writing MS-DOS programs, you
- generally have the choice of six different memory models (named
- tiny, small, compact, medium, large and huge), each of which
- provides a different combination of the maximum sizes of data
- and code that your program may have. When writing Win32
- programs, there is a single, flat 32-bit memory model that all
- programs use. This memory model allows a program to address (in
- theory) up to 4 gigabytes of data and code.
-
-
-MODEM A device connected to a computer which permits it to communicate
- with other computers, usually over standard telephone lines.
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 263
-
-OBJECT FILE An object file contains the compiled version of a source code
- file of a program. The source code file may be a .C file, .CPP
- file, .ASM file, .PAS file, .BAS file, or any number of other
- extensions associated with other programming languages. When any
- of these language's source code files are compiled, a .OBJ file
- is created containing information such as the executable code,
- and names of symbols (variables and functions) that are to be
- shared with other .OBJ files. In order to produce a .EXE file
- that may be executed, a process known as linking must be
- performed. During the link process, one or more object files
- composing your program are combined, along with the necessary
- code from any library files being used, in order to produce the
- final .EXE file.
-
-
-ONLINE In the case of BBS software and BBS door programs, the term
- online refers to the state of a user using the BBS. Usually, the
- user will be connected to the BBS from a remote location, using
- a modem. However, it is also possible that the user will be
- using the actual BBS computer, with the software operating in
- "local mode".
-
-
-OUTPUT WINDOW The local screen of the BBS on which BBS software is running is
- usually divided into two sections. At the bottom of the screen,
- there is often a one or two line status line, which displays
- information to the sysop about the BBS and the user who is
- currently online. The rest of the screen is usually an "output
- window", in which the information which is being displayed to
- the user, is also displayed on the local screen. In some cases,
- there will be no status line, in which case the entire screen
- will be the output window. Usually, the upper 23 lines of the
- screen in an OpenDoors door will be the output window, with the
- bottom two lines being the status line. However, it is possible
- to disable the OpenDoors status line, in which case the entire
- screen will be the output window. See also "Status Line"
-
-
-PAGE See "SYSOP PAGE"
-
-
-PARAMETER In the C programming language, many tasks are accomplished by
- calling functions. When a function is called, one or more pieces
- of information may be passed to a function, in the form of
- parameters. For example, a function used to set the foreground
- and background color of displayed text might accept two
- parameters, one for each of the two color settings. In this
- example, a function such as od_set_color(), would be called as
- follows:
-
- od_set_color(D_GREEN,D_RED);
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 264
-
- In this case, D_GREEN, the foreground color, is the first
- parameter, and D_RED, the background color, is the second
- parameter.
-
- In C, parameters are enclosed in parentheses, ( and ), which are
- located after the name of the function to be called. Each
- parameter is then separated by a comma character. If a function
- does not accept any parameters, the parentheses will have
- nothing between them. (ie. od_clr_scr() ).
-
-
-REGISTRATION This is a demonstration version of OpenDoors, which may only be
- used under limited circumstances, for a limited period of time.
- If you wish to continue using OpenDoors after this "evaluation
- period", you must "register" it. For more information on
- registering OpenDoors, please see chapter 2 of this manual.
-
-
-REMOTE When used in reference to BBS software or door programs, the
- term remote is used to refer to a user or computer that is
- communicating with the BBS, for a distant location, by use of a
- modem. Compare "Local Mode"
-
-
-RIP "RIP", "RIPScrip" or "Remote Imaging Protocol" is a popular
- graphical terminal standard that is used with BBS systems.
- Unlike other terminal emulation standards, such as the ANSI and
- AVATAR modes supported by OpenDoors, RIP operates in bit mapped
- graphics mode, allowing features such as lines, circles and
- icons to be drawn on the remote screen. OpenDoors provides
- support for RIP graphics, although OpenDoors operates in text
- mode itself.
-
-
-STATUS LINE Usually, the bottom two lines of the screen, as displayed by an
- OpenDoors door, is devoted to a status line (although this
- status line may be turned off). This status line will display
- information about the user who is online, along with information
- about the current state of the BBS system, and a reference to
- the sysop function keys. See also "Local Window".
-
-
-SYSOP The term sysop is a short-form for "SYStem OPerator", and refers
- to the individual who is responsible for running and maintaining
- the BBS system. The sysop is usually the only person who has
- direct access to the local keyboard and computer on which the
- BBS, BBS utilities and BBS doors are running.
-
-
-SYSOP CHAT See "CHAT MODE".
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 265
-
-SOURCE CODE The term "source code" refers to the original file or files that
- where used to produce a library or executable program. The
- source code files contain the language statements or commands
- that are directly written by the programmer. These source code
- files are then compiled to produce an executable file that may
- be "run".
-
-
-SYSOP PAGE Sysop paging refers to the process whereby a user of the BBS
- system may call or page for the sysop's attention, when they
- wish to "chat" with the sysop, and can be thought of as being
- similar to the ringing of a telephone. When a user pages the
- sysop, the BBS system will produce some sort of sound, which the
- sysop may elect to respond to if they are within hearing range
- of the computer. The most common reasons for a user to page a
- sysop include the case that they are having difficulty with some
- aspect of the BBS, that they have a question, or if they are
- simply interested in having a friendly conversation with the
- sysop. Obviously, since the sysop may not wish to be disturbed
- by users paging at certain times (such as when they are in bed),
- most BBS software provides controls to allow you to control
- paging. These features might include the ability to set hours
- for each day of the week during which paging will be permitted,
- and the ability to temporarily override the ability of some or
- all callers to page the sysop.
-
-
-USER When applied to computers in general, the term user simply
- refers to any person using the computer hardware and software.
- However, when applied particularly to BBSes, the term user
- refers specifically to a person who calls the BBS, to carry out
- activities such as communicating via messages or chatting,
- uploading and downloading files, or using doors. Often, the term
- user is used in contrast with the term sysop. In this case,
- users are all of the people who call and user the BBS, other
- than the sysop themselves.
-
-
-WIN32 Win32 is the name of the API that programs written to run under
- Microsoft Windows 95 and Microsoft Windows NT use to access
- operating system services. Win32 programs use a flat, 32-bit
- memory model and have access to advanced operating system
- services such as multithreading. Win32 programs cannot run under
- DOS nor OS/2. While some Win32 programs can run under Windows
- 3.x using the Win32s system, OpenDoors cannot since it requires
- multithreading services that are not provided by Win32s.
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 266
-
- IIIIII
- II
- II
- II
- II
- II
- IIIIII
--------------------------------------------------------------------------------
-INDEX
-
-
-
-A D
-
-About This Manual ..................21 Debugging 21, 241
-Access Level ......................178 Demo Version........................9
-Alias .............................170 Display Functions..............42, 63
-ANSI Graphics Displaying Text....30, 41, 42, 60, 62
-Archive Contents ..................248 Door Driver Functions..............40
-ASCII Chart ........................86 Door Driver Module..............6, 40
-ASCII Mode ........................255 Door Functions.....................45
-AVATAR Graphics ....118, 134, 167, 256 Door Information File30, 33, 150, 158
- Door Settings.....................182
-B DORINFOx.DEF File..................33
- DOS Shell.........................192
-Baud Rate .........................154 Download Limit....................169
-BBS Information ...................158
-BBS Name ..........................164 E
-BBS Systems ........................30
-Before Exit Function ..............191 Error Free Connection.............170
-Box Characters ...............185, 191 Example Program - Changing Only
-BPS Rate ..........................154 Foreground/Background Colour ....132
-Built-In Function Keys ............212 Example Program - Choosing Text
- Colour ..........................129
-C Example Program - Clearing A Line..56
- Example Program - Dialog Box.......66
-Caller Information ................158 Example Program - Door And Utility In
-Carrier Detect .................51, 97 One Program ......................92
-Chat ..........................38, 104 Example Program - Drawing A Window118
-Chat Mode ....................104, 259 Example Program - Exiting A Door...79
-Colour Attribute Codes ............128 Example Program - First Door.......29
-Colour Constants ..................132 Example Program - Hanging Up In CBV
-Colour Customization215, 229, 232, 236 Door .............................51
-Colour Functions ...................42 Example Program - Hotkeyed Menu....91
-Colours .................110, 128, 131 Example Program - Input Key.......115
-Common Problems ...................243 Example Program - Setting Door Info
-Compiler Errors ...................243 File Location ...................150
-Compiling With OpenDoors ...........22 Example Program - Shelling To DOS.141
-Custom Function Keys ..............213 Example Program - Terminal Emu.....62
- Example Program - Testing Available
- Door Information ................158
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 267
-
-
-
-Example Program - Testing Screen M
- Clearing Capabilities 57
-Example Program - Transferring A File Memory Models..................23, 24
- Using DSZ........................142 Memory Swapping...................209
-Example Program - User Statistics Modem Port........................157
- Door.............................113 Modem Settings....................153
-Example Program - Vote .............33
-Example Program - Waiting For CR ...54 N
-Exiting A Door Program .............79
- New Version.......................249
-F Node Number.......................152
-
-Features ............................6 O
-Feedback Form ......................19
-File Display Functions .............44 Object File.......................263
-FILES.BBS File .....................98 od_autodetect() Function...........48
-Fossil Driver .....................260 od_carrier() Function..............51
-FOSSIL port .......................157 od_chat() Function.................50
-Function Keys .................97, 211 od_clear_keybuffer() Function......53
-Future Versions ...................253 od_clr_line() Function.............55
- od_clr_scr() Function.........57, 243
-G od_colour_config() Function........59
- od_control Structure..........31, 148
-Getting In Touch With Us ..........246 od_disable Variable...............198
-Graphics Mode ...........165, 167, 255 od_disp() Function.................60
- od_disp_emu() Function.............62
-H od_disp_str() Function.............63
- od_draw_box() Function.............65
-History ...........................249 od_edit_str() Function.............68
-Hotkeys ............................90 od_exit() Function...31, 79, 191, 195
- od_get_answer() Function...........81
-I od_get_input() Function............82
- od_get_key() Function......30, 53, 85
-IBM Colour Attribute Codes ........128 od_gettext() Function..............89
-IEMSI Session Information .........161 od_hotkey_menu() Function..........90
-Inactivity Timeout ......199, 200, 202 od_init() Function.............31, 92
-Input Functions ............44, 81, 85 od_input_str() Function........53, 95
- od_kernal() Function...............31
-K od_kernel() Function...............97
- od_list_files() Function...........98
-Keyboard Buffer ...........53, 97, 115 od_log_write() Function...........100
-Keys ...............................97 od_multiline_edit() Function......101
- od_page() Function...........104, 207
-L od_parse_cmd_line() Function......105
- od_popup_menu() Function..........107
-Language Customization ............216 od_printf() Function.....29, 110, 195
-Learning OpenDoors .................29 od_putch() Function...............115
-Library ...........................261 od_puttext() Function.............116
-LIBrary Files ......................24 od_repeat() Function..............118
-Line Number .......................152 od_restore_screen() Function......120
-Linking ............................23 od_save_screen() Function.........121
-Local Mode ...............33, 200, 261 od_scroll() Function..............123
-Locked ............................262 od_send_file() Function...........124
- od_set_attrib() Function..........128
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 268
-
-
-
-od_set_color() Function ...........131 Solutions To Problems.............243
-od_set_cursor() Function ..........134 Source Code................10, 17, 20
-od_set_dtr() Function .............135 Special Thanks....................254
-od_set_personality() Function .....136 Status Line...104, 137, 209, 210, 264
-od_set_statusline() Function ......137 Stop Key..........................203
-od_sleep() Function ...............139 Support...........................244
-od_spawn Function .................208 Support BBS.............244, 245, 246
-od_spawn() Function ...............141 Swapping..........................209
-od_spawnvpe() Function ............143 Sysop Chat...............38, 104, 192
-od_window_create() Function .......145 Sysop Function Keys...............211
-od_window_remove() Function ..147, 148 Sysop Keys.........................97
-OPENDOOR.H File ............22, 29, 34 Sysop Name........................164
-OpenDoors BBS ................244, 245 Sysop Next Setting................184
-OpenDoors Customization ...........187 Sysop Page........................207
-OPENDOORS Echo ....................245 Sysop Paging.................104, 265
-OpenDoors History .................249 System Event......................162
-Our Address .......................246 System Name.......................164
-Output Functions ...................42
-Output Window .................34, 263 T
-
-P Terminal Emulator........62, 124, 125
- Terminal Emulator Control Codes...126
-Paging Hours .................182, 183 Text Customization................216
-Paging The Sysop ..................104 Thank-yous........................254
-Pause Key .........................203 Time Left.........................179
-Phone Number ......................171 Timeout............................97
-Printing ..30, 41, 60-63, 90, 110, 115 Troubleshooting....................21
-Printing Manual ....................22
-Problems ...........................21 U
-Product Support ...................244
-Project Files ......................23 User Handle (Alias)...............170
- User Information..................158
-R User Keyboard Off Key..............53
- User Keyboard Setting.............184
-Registration ..9, 10, 12, 18, 246, 264 User Name.........................174
-Registration Form ..............15, 18 User Password.....................176
-RIP ...............................264 User Timeout.......................97
-RIPScrip ..........................264
- V
-S
- Version History...................249
-Screen Functions ...................42
-Screen Length .....................177 W
-Screen Width ......................178
-Security Level ....................178 Want-Chat Setting.................180
-Setting Colours .........110, 128, 131
-
-
-
-
-
-
-
-
-
-===============================================================================
-OpenDoors 6.00 Manual End of Page 269
-
diff --git a/src/odoors/OpenDoor.def b/src/odoors/OpenDoor.def
deleted file mode 100644
index bda50ca8e218173038891440e1a47e84f5d451c8..0000000000000000000000000000000000000000
--- a/src/odoors/OpenDoor.def
+++ /dev/null
@@ -1,98 +0,0 @@
-; OpenDoors Online Software Programming Toolkit
-; (C) Copyright 1991 - 1999 by Brian Pirie.
-;
-; Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
-;
-; This library is free software; you can redistribute it and/or
-; modify it under the terms of the GNU Lesser General Public
-; License as published by the Free Software Foundation; either
-; version 2 of the License, or (at your option) any later version.
-;
-; This library is distributed in the hope that it will be useful,
-; but WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-; Lesser General Public License for more details.
-;
-; You should have received a copy of the GNU Lesser General Public
-; License along with this library; if not, write to the Free Software
-; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;
-;
-; File: OpenDoors.def
-;
-; Description: Module definition file for the OpenDoors Win32 DLL.
-;
-; Revisions: Date Ver Who Change
-; ---------------------------------------------------------------
-; Dec 12, 1995 6.00 BP Created.
-; Jan 11, 1996 6.00 BP Added exports for undecorated names.
-; Feb 19, 1996 6.00 BP Changed version number to 6.00.
-; Mar 03, 1996 6.10 BP Begin version 6.10.
-; Mar 03, 1996 6.10 BP Added od_get_cursor.
-; Mar 21, 1996 6.10 BP Added od_control_get().
-; Oct 19, 2001 6.20 RS Added door32.sys and socket support.
-LIBRARY ODOORS62
-DESCRIPTION "OpenDoors"
-VERSION 6.2
-EXPORTS
- ODConfigInit=_ODConfigInit@0
- ODLogEnable=_ODLogEnable@0
- ODMPSEnable=_ODMPSEnable@0
- od_add_personality=_od_add_personality@16
- od_autodetect=_od_autodetect@4
- od_carrier=_od_carrier@0
- od_chat=_od_chat@0
- od_clear_keybuffer=_od_clear_keybuffer@0
- od_clr_line=_od_clr_line@0
- od_clr_scr=_od_clr_scr@0
- od_color_config=_od_color_config@4
- od_control_get=_od_control_get@0
- od_disp=_od_disp@12
- od_disp_emu=_od_disp_emu@8
- od_disp_str=_od_disp_str@4
- od_draw_box=_od_draw_box@16
- od_edit_str=_od_edit_str@32
- od_emulate=_od_emulate@4
- od_exit=_od_exit@8
- od_get_answer=_od_get_answer@4
- od_get_cursor=_od_get_cursor@8
- od_get_input=_od_get_input@12
- od_get_key=_od_get_key@4
- od_gettext=_od_gettext@20
- od_hotkey_menu=_od_hotkey_menu@12
- od_init=_od_init@0
- od_input_str=_od_input_str@16
- od_kernel=_od_kernel@0
- od_list_files=_od_list_files@4
- od_log_open=_od_log_open@0
- od_log_write=_od_log_write@4
- od_multiline_edit=_od_multiline_edit@12
- od_page=_od_page@0
- od_parse_cmd_line=_od_parse_cmd_line@4
- od_popup_menu=_od_popup_menu@24
- _od_printf=od_printf
- od_printf=od_printf
- od_putch=_od_putch@4
- od_puttext=_od_puttext@20
- od_repeat=_od_repeat@8
- od_restore_screen=_od_restore_screen@4
- od_save_screen=_od_save_screen@4
- od_scroll=_od_scroll@24
- od_send_file=_od_send_file@4
- od_set_attrib=_od_set_attrib@4
- od_set_color=_od_set_color@8
- od_set_cursor=_od_set_cursor@8
- od_set_dtr=_od_set_dtr@4
- od_set_personality=_od_set_personality@4
- od_set_statusline=_od_set_statusline@4
- od_sleep=_od_sleep@4
- od_spawn=_od_spawn@4
- od_spawnvpe=_od_spawnvpe@16
- od_window_create=_od_window_create@36
- od_window_remove=_od_window_remove@4
- pdef_opendoors=_pdef_opendoors@4
- pdef_pcboard=_pdef_pcboard@4
- pdef_ra=_pdef_ra@4
- pdef_wildcat=_pdef_wildcat@4
- _od_control=od_control DATA
- od_control=od_control DATA
diff --git a/src/odoors/OpenDoor.h b/src/odoors/OpenDoor.h
deleted file mode 100644
index d122f04702546f62f5f72b6abd0fb0db83868e3c..0000000000000000000000000000000000000000
--- a/src/odoors/OpenDoor.h
+++ /dev/null
@@ -1,1111 +0,0 @@
-/* OpenDoors Online Software Programming Toolkit
- * (C) Copyright 1991 - 1999 by Brian Pirie.
- *
- * Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- *
- * File: OpenDoor.h
- *
- * Description: C/C++ definition of the OpenDoors API. Any program source file
- * that uses OpenDoors must #include this file.
- *
- * Revisions: Date Ver Who Change
- * ---------------------------------------------------------------
- * Dec 02, 1995 6.00 BP New file header format.
- * Dec 09, 1995 6.00 BP Added od_multiline_edit() prototype.
- * Dec 12, 1995 6.00 BP Cleaned up, added DLL definitions.
- * Dec 12, 1995 6.00 BP Moved ODPLAT_??? to OpenDoor.h.
- * Dec 21, 1995 6.00 BP Add ability to use already open port.
- * Dec 22, 1995 6.00 BP Added od_connect_speed.
- * Dec 23, 1995 6.00 BP Added EDIT_FLAG_SHOW_SIZE.
- * Dec 30, 1995 6.00 BP Added ODCALL for calling convention.
- * Jan 01, 1996 6.00 BP BCC32 compatibility changes.
- * Jan 01, 1996 6.00 BP Added new mulitline editor options.
- * Jan 01, 1996 6.00 BP Added od_disable_dtr, DIS_DTR_DISABLE.
- * Jan 03, 1996 6.00 BP Further BCC32 compatiblity changes.
- * Jan 04, 1996 6.00 BP Added od_get_input() and related defs.
- * Jan 07, 1996 6.00 BP Added OD_GLOBAL_CONV.
- * Jan 19, 1996 6.00 BP Removed some unused stuff.
- * Jan 19, 1996 6.00 BP Added od_internal_debug.
- * Jan 23, 1996 6.00 BP Added od_exiting and ERR_UNSUPPORTED.
- * Jan 30, 1996 6.00 BP New extern "C" decl for od_control.
- * Jan 30, 1996 6.00 BP Replaced od_yield() with od_sleep().
- * Jan 31, 1996 6.00 BP Added DIS_NAME_PROMPT.
- * Jan 31, 1996 6.00 BP Added tODMilliSec, OD_NO_TIMEOUT.
- * Jan 31, 1996 6.00 BP Added timeout for od_get_input().
- * Feb 02, 1996 6.00 BP Add RA 2.50-related od_control vars.
- * Feb 03, 1996 6.00 BP Added more editor options.
- * Feb 06, 1996 6.00 BP Added od_silent_mode.
- * Feb 08, 1996 6.00 BP Added editor buffer grow option.
- * Feb 13, 1996 6.00 BP Added od_get_input() flags parameter.
- * Feb 14, 1996 6.00 BP Recognize Borland's __WIN32__ define.
- * Feb 17, 1996 6.00 BP Added OD_KEY_F1 thru OD_KEY_F10.
- * Feb 19, 1996 6.00 BP Changed version number to 6.00.
- * Feb 27, 1996 6.00 BP Added od_max_key_latency.
- * Mar 03, 1996 6.10 BP Begin version 6.10.
- * Mar 03, 1996 6.10 BP Fixed OD_COMPONENT for medium mem mod.
- * Mar 06, 1996 6.10 BP Added TRIBBS.SYS support.
- * Mar 06, 1996 6.10 BP Added COM_DOOR32.
- * Mar 11, 1996 6.10 BP Added OD_VERSION.
- * Mar 13, 1996 6.10 BP Added od_get_cursor().
- * Mar 13, 1996 6.10 BP Added od_local_win_col.
- * Mar 14, 1996 6.10 BP Added od_config_callback.
- * Mar 21, 1996 6.10 BP Added od_control_get().
- * Apr 08, 1996 6.10 BP Added command-line parsing callbacks.
- * Oct 19, 2001 6.20 RS Added door32.sys and socket support.
- * Oct 19, 2001 6.21 RS Fixed socket disconnect bug.
- */
-
-/* Only parse OpenDoor.h once. */
-#ifndef _INC_OPENDOOR
-#define _INC_OPENDOOR
-
-
-/* ========================================================================= */
-/* Version and platform definitions. */
-/* ========================================================================= */
-
-/* OpenDoors API version number. */
-#define OD_VERSION 0x621
-
-#define DIRSEP '\\'
-#define DIRSEP_STR "\\"
-
-/* OpenDoors target platform. */
-#if defined(WIN32) || defined(__WIN32__) || defined(_WIN32)
-#define ODPLAT_WIN32
-#undef ODPLAT_DOS
-#ifdef OD_WIN32_STATIC
-#pragma message("Compiling for Win32 static version of OpenDoors")
-#else /* !OD_WIN32_STATIC */
-#pragma message("Compiling for Win32 DLL version of OpenDoors")
-#define OD_DLL
-#endif /* !OD_WIN32_STATIC */
-#else /* !WIN32 */
-#if defined(__unix__) || defined(__NetBSD__)
-#define ODPLAT_NIX
-#undef ODPLAT_DOS
-#undef DIRSEP
-#define DIRSEP '/'
-#undef DIRSEP_STR
-#define DIRSEP_STR "/"
-#else
-#define ODPLAT_DOS
-#undef ODPLAT_WIN32
-#pragma message("Compiling for DOS version of OpenDoors")
-#endif /* !NIX */
-#endif /* !WIN32 */
-
-
-/* Include any other headers required by OpenDoor.h. */
-#ifdef ODPLAT_WIN32
-#include "windows.h"
-#endif /* ODPLAT_WIN32 */
-
-/* For DLL versions, definitions of function or data that is exported from */
-/* a module or imported into a module. */
-#ifdef OD_DLL
-#ifdef _MSC_VER
-#define OD_EXPORT __declspec(dllexport)
-#else /* !_MSC_VER */
-#define OD_EXPORT _export
-#endif /* !_MSC_VER */
-#define OD_IMPORT DECLSPEC_IMPORT
-#else /* !OD_DLL */
-#define OD_EXPORT
-#define OD_IMPORT
-#endif /* !OD_DLL */
-
-/* Definition of function naming convention used by OpenDoors. */
-#ifdef __cplusplus
-#define OD_NAMING_CONVENTION extern "C"
-#else /* !__cplusplus */
-#define OD_NAMING_CONVENTION
-#endif /* !__cplusplus */
-
-/* Definition of function calling convention used by OpenDoors. */
-#ifdef ODPLAT_WIN32
-#define ODCALL WINAPI
-#define ODVCALL WINAPIV
-#define OD_GLOBAL_CONV WINAPI
-#else /* !ODPLAT_WIN32 */
-#define ODCALL
-#define ODVCALL
-#define OD_GLOBAL_CONV
-#endif /* !ODPLAT_WIN32 */
-
-/* OpenDoors API function declaration type. */
-#ifdef BUILDING_OPENDOORS
-#define ODAPIDEF OD_NAMING_CONVENTION OD_EXPORT
-#else /* !BUILDING_OPENDOORS */
-#define ODAPIDEF OD_NAMING_CONVENTION OD_IMPORT
-#endif /* !BUILDING_OPENDOORS */
-
-/* OpenDoors API global variable definition and declaration types. */
-#define OD_API_VAR_DEFN OD_NAMING_CONVENTION OD_EXPORT
-
-#ifdef BUILDING_OPENDOORS
-#define OD_API_VAR_DECL extern OD_EXPORT
-#else /* !BUILDING_OPENDOORS */
-#define OD_API_VAR_DECL extern OD_IMPORT
-#endif /* !BUILDING_OPENDOORS */
-
-/* Explicitly far pointers. */
-#ifdef ODPLAT_DOS
-#define ODFAR far
-#else /* !ODPLAT_DOS */
-#define ODFAR
-#endif /* !ODPLAT_DOS */
-
-
-/* ========================================================================= */
-/* Primitive data types. */
-/* ========================================================================= */
-
-/* Portable types that are the same size across all platforms */
-#ifndef ODPLAT_WIN32
-typedef unsigned char BYTE; /* Unsigned, 8 bits. */
-typedef unsigned short WORD; /* Unsigned, 16 bits. */
-typedef unsigned long DWORD; /* Unsigned, 32 bits. */
-typedef char CHAR; /* Native character representation. */
-#define DWORD_DEFINED
-#define WORD_DEFINED
-#endif /* !ODPLAT_WIN32 */
-
-typedef signed char INT8; /* Signed, 8 bits. */
-typedef signed short int INT16; /* Signed, 16 bits. */
-#ifndef _WIN32 /* avoid type redefinition from basetsd.h */
-typedef signed long int INT32; /* Signed, 32 bits. */
-#endif
-
-
-/* Types that vary in size depending on platform. These are guranteed to be */
-/* at least the given size, but may be larger if this platform can */
-/* represent a larger value more efficiently (or as efficiently). */
-#ifndef ODPLAT_WIN32
-typedef int INT; /* Integer, at least 16 bits. */
-typedef unsigned int UINT; /* Unsigned integer, at least 16 bits. */
-#ifndef BOOL
-typedef char BOOL; /* Boolean value, at least 1 bit. */
-#endif /* !BOOL */
-#endif /* !ODPLAT_WIN32 */
-
-/* TRUE and FALSE manifest constants, for use with BOOL data type. */
-#ifndef FALSE
-#define FALSE 0
-#endif /* !FALSE */
-#ifndef TRUE
-#define TRUE 1
-#endif /* !TRUE */
-
-
-/* ========================================================================= */
-/* OpenDoors complex data types and defines. */
-/* ========================================================================= */
-
-/* Millisecond time type. */
-typedef DWORD tODMilliSec;
-
-/* Special value tODMilliSec value for no timeouts. */
-#ifdef ODPLAT_WIN32
-#define OD_NO_TIMEOUT INFINITE
-#else /* !ODPLAT_WIN32 */
-#define OD_NO_TIMEOUT 0xffffffffL
-#endif /* !ODPLAT_WIN32 */
-
-
-/* Multi-line editor defintions. */
-
-/* Editor text formats. */
-typedef enum
-{
- FORMAT_PARAGRAPH_BREAKS,
- FORMAT_LINE_BREAKS,
- FORMAT_FTSC_MESSAGE,
- FORMAT_NO_WORDWRAP,
-} tODEditTextFormat;
-
-/* Menu callback function return values. */
-typedef enum
-{
- EDIT_MENU_DO_NOTHING,
- EDIT_MENU_EXIT_EDITOR,
-} tODEditMenuResult;
-
-/* Editor flags. */
-#define EFLAG_NORMAL 0x00000000
-
-/* Optional multi-line editor settings. */
-typedef struct
-{
- INT nAreaLeft;
- INT nAreaTop;
- INT nAreaRight;
- INT nAreaBottom;
- tODEditTextFormat TextFormat;
- tODEditMenuResult (*pfMenuCallback)(void *pUnused);
- void * (*pfBufferRealloc)(void *pOriginalBuffer, UINT unNewSize);
- DWORD dwEditFlags;
- char *pszFinalBuffer;
- UINT unFinalBufferSize;
-} tODEditOptions;
-
-/* Editor return values. */
-#define OD_MULTIEDIT_ERROR 0
-#define OD_MULTIEDIT_SUCCESS 1
-
-
-/* Input event information. */
-
-/* Input event types. */
-typedef enum
-{
- EVENT_CHARACTER,
- EVENT_EXTENDED_KEY,
-} tODInputEventType;
-
-/* Extended key codes. */
-#define OD_KEY_F1 0x3b
-#define OD_KEY_F2 0x3c
-#define OD_KEY_F3 0x3d
-#define OD_KEY_F4 0x3e
-#define OD_KEY_F5 0x3f
-#define OD_KEY_F6 0x40
-#define OD_KEY_F7 0x41
-#define OD_KEY_F8 0x42
-#define OD_KEY_F9 0x43
-#define OD_KEY_F10 0x44
-#define OD_KEY_UP 0x48
-#define OD_KEY_DOWN 0x50
-#define OD_KEY_LEFT 0x4b
-#define OD_KEY_RIGHT 0x4d
-#define OD_KEY_INSERT 0x52
-#define OD_KEY_DELETE 0x53
-#define OD_KEY_HOME 0x47
-#define OD_KEY_END 0x4f
-#define OD_KEY_PGUP 0x49
-#define OD_KEY_PGDN 0x51
-#define OD_KEY_SHIFTTAB 0x0f
-
-/* Input event structure. */
-typedef struct
-{
- tODInputEventType EventType;
- BOOL bFromRemote;
- char chKeyPress;
-} tODInputEvent;
-
-
-/* Third option (in addition to TRUE and FALSE) for tri-state options. */
-#define MAYBE 2
-
-/* od_spawnvpe() flags. */
-#define P_WAIT 0
-#define P_NOWAIT 1
-#define CURRENT 0
-#define IRET 1
-
-/* od_edit_str() flags. */
-#define EDIT_FLAG_NORMAL 0x0000
-#define EDIT_FLAG_NO_REDRAW 0x0001
-#define EDIT_FLAG_FIELD_MODE 0x0002
-#define EDIT_FLAG_EDIT_STRING 0x0004
-#define EDIT_FLAG_STRICT_INPUT 0x0008
-#define EDIT_FLAG_PASSWORD_MODE 0x0010
-#define EDIT_FLAG_ALLOW_CANCEL 0x0020
-#define EDIT_FLAG_FILL_STRING 0x0040
-#define EDIT_FLAG_AUTO_ENTER 0x0080
-#define EDIT_FLAG_AUTO_DELETE 0x0100
-#define EDIT_FLAG_KEEP_BLANK 0x0200
-#define EDIT_FLAG_PERMALITERAL 0x0400
-#define EDIT_FLAG_LEAVE_BLANK 0x0800
-#define EDIT_FLAG_SHOW_SIZE 0x1000
-
-/* od_edit_str() return values. */
-#define EDIT_RETURN_ERROR 0
-#define EDIT_RETURN_CANCEL 1
-#define EDIT_RETURN_ACCEPT 2
-#define EDIT_RETURN_PREVIOUS 3
-#define EDIT_RETURN_NEXT 4
-
-/* od_popup_menu() flag values. */
-#define MENU_NORMAL 0x0000
-#define MENU_ALLOW_CANCEL 0x0001
-#define MENU_PULLDOWN 0x0002
-#define MENU_KEEP 0x0004
-#define MENU_DESTROY 0x0008
-
-/* od_autodetect() flag values. */
-#define DETECT_NORMAL 0x0000
-
-/* od_scroll() flags. */
-#define SCROLL_NORMAL 0x0000
-#define SCROLL_NO_CLEAR 0x0001
-
-/* OpenDoors status line settings */
-#define STATUS_NORMAL 0
-#define STATUS_NONE 8
-#define STATUS_ALTERNATE_1 1
-#define STATUS_ALTERNATE_2 2
-#define STATUS_ALTERNATE_3 3
-#define STATUS_ALTERNATE_4 4
-#define STATUS_ALTERNATE_5 5
-#define STATUS_ALTERNATE_6 6
-#define STATUS_ALTERNATE_7 7
-
-/* OpenDoors color definitions. */
-#define D_BLACK 0
-#define D_BLUE 1
-#define D_GREEN 2
-#define D_CYAN 3
-#define D_RED 4
-#define D_MAGENTA 5
-#define D_BROWN 6
-#define D_GREY 7
-#define L_BLACK 8
-#define L_BLUE 9
-#define L_GREEN 10
-#define L_CYAN 11
-#define L_RED 12
-#define L_MAGENTA 13
-#define L_YELLOW 14
-#define L_WHITE 15
-#define B_BLACK L_BLACK
-#define B_BLUE L_BLUE
-#define B_GREEN L_GREEN
-#define B_CYAN L_CYAN
-#define B_RED L_RED
-#define B_MAGENTA L_MAGENTA
-#define B_BROWN L_YELLOW
-#define B_GREY L_WHITE
-
-/* Door information file formats (od_control.od_info_type). */
-#define DORINFO1 0 /* DORINFO?.DEF */
-#define EXITINFO 1 /* QBBS 2.6? EXITINFO.BBS & DORINFO?.DEF */
-#define RA1EXITINFO 2 /* RA 1.?? EXITINFO.BBS & DORINFO?.DEF */
-#define CHAINTXT 3 /* CHAIN.TXT */
-#define SFDOORSDAT 4 /* SFDOORS.DAT */
-#define CALLINFO 5 /* CALLINFO.BBS */
-#define DOORSYS_GAP 6 /* GAP/PC-Board DOOR.SYS */
-#define DOORSYS_DRWY 7 /* DoorWay DOOR.SYS */
-#define QBBS275EXITINFO 8 /* QuickBBS 2.75+ EXITINFO.BBS */
-#define CUSTOM 9 /* User-defined custom format */
-#define DOORSYS_WILDCAT 10 /* WildCat! DOOR.SYS */
-#define RA2EXITINFO 11 /* RA 2.00+ EXITINFO.BBS */
-#define TRIBBSSYS 12 /* TRIBBS.SYS */
-#define DOOR32SYS 13 /* DOOR32.SYS */
-#define NO_DOOR_FILE 100 /* No door information file was found */
-
-/* Error type (od_control.od_error). */
-#define ERR_NONE 0 /* No error yet */
-#define ERR_MEMORY 1 /* Unable to allocate enough memory */
-#define ERR_NOGRAPHICS 2 /* Function requires ANSI/AVATAR/RIP mode */
-#define ERR_PARAMETER 3 /* Invalid value was passed to a function */
-#define ERR_FILEOPEN 4 /* Unable to open file */
-#define ERR_LIMIT 5 /* An internal limit has been exceeded */
-#define ERR_FILEREAD 6 /* Unable to read from file */
-#define ERR_NOREMOTE 7 /* Function may not be called in local mode */
-#define ERR_GENERALFAILURE 8 /* Percise cause of failure is unknown */
-#define ERR_NOTHINGWAITING 9 /* A request for data when none was ready */
-#define ERR_NOMATCH 10 /* No match was found */
-#define ERR_UNSUPPORTED 11 /* Not supported in this version */
-
-/* od_control.od_errorlevel indicies. */
-#define ERRORLEVEL_ENABLE 0
-#define ERRORLEVEL_CRITICAL 1
-#define ERRORLEVEL_NOCARRIER 2
-#define ERRORLEVEL_HANGUP 3
-#define ERRORLEVEL_TIMEOUT 4
-#define ERRORLEVEL_INACTIVITY 5
-#define ERRORLEVEL_DROPTOBBS 6
-#define ERRORLEVEL_NORMAL 7
-
-/* Special od_popup_menu() return values. */
-#define POPUP_ERROR -1
-#define POPUP_ESCAPE 0
-#define POPUP_LEFT -2
-#define POPUP_RIGHT -3
-
-/* od_get_input() flags. */
-#define GETIN_NORMAL 0x0000
-#define GETIN_RAW 0x0001
-#define GETIN_RAWCTRL 0x0002
-
-/* od_control.od_box_chars array indicies. */
-#define BOX_UPPERLEFT 0
-#define BOX_TOP 1
-#define BOX_UPPERRIGHT 2
-#define BOX_LEFT 3
-#define BOX_LOWERLEFT 4
-#define BOX_LOWERRIGHT 5
-#define BOX_BOTTOM 6
-#define BOX_RIGHT 7
-
-/* od_control.od_okaytopage settings. */
-#define PAGE_DISABLE 0
-#define PAGE_ENABLE 1
-#define PAGE_USE_HOURS 2
-
-/* Method used for serial I/O (od_control.od_com_method). */
-#define COM_FOSSIL 1
-#define COM_INTERNAL 2
-#define COM_WIN32 3
-#define COM_DOOR32 4
-#define COM_SOCKET 5
-#define COM_STDIO 6
-
-/* Flow control method (od_control.od_com_flow_control). */
-#define COM_DEFAULT_FLOW 0
-#define COM_RTSCTS_FLOW 1
-#define COM_NO_FLOW 2
-
-/* Optional component initialization functions. */
-ODAPIDEF void ODCALL ODConfigInit(void);
-ODAPIDEF void ODCALL ODLogEnable(void);
-ODAPIDEF void ODCALL ODMPSEnable(void);
-
-/* Optional OpenDoors component settings. */
-typedef void ODFAR OD_COMPONENT;
-#define INCLUDE_CONFIG_FILE (OD_COMPONENT *)ODConfigInit
-#define NO_CONFIG_FILE NULL
-#define INCLUDE_LOGFILE (OD_COMPONENT *)ODLogEnable
-#define NO_LOGFILE NULL
-#define INCLUDE_MPS (OD_COMPONENT *)ODMPSEnable
-#define NO_MPS NULL
-
-/* Built-in personality defintion functions. */
-ODAPIDEF void ODCALL pdef_opendoors(BYTE btOperation);
-ODAPIDEF void ODCALL pdef_pcboard(BYTE btOperation);
-ODAPIDEF void ODCALL pdef_ra(BYTE btOperation);
-ODAPIDEF void ODCALL pdef_wildcat(BYTE btOperation);
-
-/* Personality proc type. */
-typedef void OD_PERSONALITY_PROC;
-
-/* Personality identifiers. */
-#define PER_OPENDOORS (void *)pdef_opendoors
-#define PER_PCBOARD (void *)pdef_pcboard
-#define PER_RA (void *)pdef_ra
-#define PER_WILDCAT (void *)pdef_wildcat
-
-/* od_control.od_disable flags. */
-#define DIS_INFOFILE 0x0001
-#define DIS_CARRIERDETECT 0x0002
-#define DIS_TIMEOUT 0x0004
-#define DIS_LOCAL_OVERRIDE 0x0008
-#define DIS_BPS_SETTING 0x0010
-#define DIS_LOCAL_INPUT 0x0020
-#define DIS_SYSOP_KEYS 0x0040
-#define DIS_DTR_DISABLE 0x0080
-#define DIS_NAME_PROMPT 0x0100
-
-/* Event status settings. */
-#define ES_DELETED 0
-#define ES_ENABLED 1
-#define ES_DISABLED 2
-
-/* Personality proceedure operations. */
-#define PEROP_DISPLAY1 0
-#define PEROP_DISPLAY2 1
-#define PEROP_DISPLAY3 2
-#define PEROP_DISPLAY4 3
-#define PEROP_DISPLAY5 4
-#define PEROP_DISPLAY6 5
-#define PEROP_DISPLAY7 6
-#define PEROP_DISPLAY8 7
-#define PEROP_UPDATE1 10
-#define PEROP_UPDATE2 11
-#define PEROP_UPDATE3 12
-#define PEROP_UPDATE4 13
-#define PEROP_UPDATE5 14
-#define PEROP_UPDATE6 15
-#define PEROP_UPDATE7 16
-#define PEROP_UPDATE8 17
-#define PEROP_INITIALIZE 20
-#define PEROP_CUSTOMKEY 21
-#define PEROP_DEINITIALIZE 22
-
-
-/* ========================================================================= */
-/* The OpenDoors control structure (od_control) */
-/* ========================================================================= */
-
-/* Force byte alignment, if possible */
-#ifdef __TURBOC__
-#if(__TURBOC__ >= 0x295)
-#pragma option -a-
-#endif /* __TURBOC__ >= 0x295 */
-#endif /* __TURBOC__ */
-#ifdef _MSC_VER
-#pragma pack(1)
-#endif /* _MSC_VER */
-
-typedef struct
-{
- /* Location or name of door information file (if one is to be used). */
- char info_path[60];
-
- /* Serial port settings. */
- DWORD baud;
- DWORD od_connect_speed;
- INT16 od_com_address;
- BYTE od_com_irq;
- BYTE od_com_method;
- BYTE od_com_flow_control;
- WORD od_com_rx_buf;
- WORD od_com_tx_buf;
- BYTE od_com_fifo_trigger;
- BOOL od_com_no_fifo;
- BOOL od_no_fossil;
- BOOL od_use_socket;
- INT16 port;
- DWORD od_open_handle;
-
- /* Caller and system information. */
- char system_name[40];
- char sysop_name[40];
- INT32 system_calls;
- char system_last_caller[36];
- char timelog_start_date[9];
- INT16 timelog_busyperhour[24];
- INT16 timelog_busyperday[7];
-
- char user_name[36];
- char user_location[26];
- char user_password[16];
- char user_dataphone[16];
- char user_homephone[16];
- char user_lasttime[6];
- char user_lastdate[9];
- BYTE user_attribute;
- BYTE user_flags[4];
- DWORD user_net_credit;
- DWORD user_pending;
- WORD user_messages;
- DWORD user_lastread;
- WORD user_security;
- DWORD user_numcalls;
- DWORD user_uploads;
- DWORD user_downloads;
- DWORD user_upk;
- DWORD user_downk;
- DWORD user_todayk;
- WORD user_time_used;
- WORD user_screen_length;
- BYTE user_last_pwdchange;
- BYTE user_attrib2;
- WORD user_group;
-
- BYTE event_status;
- char event_starttime[6];
- BYTE event_errorlevel;
- BYTE event_days;
- BYTE event_force;
- char event_last_run[9];
-
- BYTE user_netmailentered;
- BYTE user_echomailentered;
- char user_logintime[6];
- char user_logindate[9];
- INT16 user_timelimit;
- INT32 user_loginsec;
- INT32 user_credit;
- WORD user_num;
- INT16 user_readthru;
- INT16 user_numpages;
- INT16 user_downlimit;
- char user_timeofcreation[6];
- char user_logonpassword[16];
- BYTE user_wantchat;
- BYTE user_ansi;
- INT16 user_deducted_time;
- char user_menustack[50][9];
- BYTE user_menustackpointer;
- char user_handle[36];
- char user_comment[81];
- char user_firstcall[9];
- BYTE user_combinedrecord[200];
- char user_birthday[9];
- char user_subdate[9];
- BYTE user_screenwidth;
- BYTE user_language;
- BYTE user_date_format;
- char user_forward_to[36];
- BYTE user_error_free;
- BYTE sysop_next;
- BYTE user_emsi_session;
- char user_emsi_crtdef[41];
- char user_emsi_protocols[41];
- char user_emsi_capabilities[41];
- char user_emsi_requests[41];
- char user_emsi_software[41];
- BYTE user_hold_attr1;
- BYTE user_hold_attr2;
- BYTE user_hold_len;
- char user_reasonforchat[78];
- char user_callsign[12];
- WORD user_msg_area;
- WORD user_file_area;
- char user_protocol;
- WORD user_file_group;
- BYTE user_last_birthday_check;
- char user_sex;
- DWORD user_xi_record;
- WORD user_msg_group;
- BYTE user_avatar;
- char user_org[51];
- char user_address[3][51];
- INT32 user_pwd_crc;
- INT32 user_logon_pwd_crc;
- char user_last_cost_menu[9];
- WORD user_menu_cost;
- BYTE user_rip;
- BYTE user_rip_ver;
- BYTE user_attrib3;
- BOOL user_expert;
- char system_last_handle[36];
-
- /* Door information file statistics. */
- BYTE od_info_type;
- BYTE od_extended_info;
- WORD od_node;
- BYTE od_ra_info;
-
- /* Current program settings. */
- BOOL od_always_clear;
- BOOL od_force_local;
- BOOL od_chat_active;
- BOOL od_current_statusline;
- INT16 od_error;
- BYTE od_last_input;
- BOOL od_logfile_disable;
- char od_logfile_name[80];
- WORD od_maxtime;
- INT16 od_maxtime_deduction;
- BOOL od_okaytopage;
- INT16 od_pagestartmin;
- INT16 od_pageendmin;
- BOOL od_page_pausing;
- INT16 od_page_statusline;
- BOOL od_user_keyboard_on;
- BOOL od_update_status_now;
- INT16 od_cur_attrib;
-
- /* OpenDoors customization settings. */
- char od_box_chars[8];
- char od_cfg_text[48][33];
- char od_cfg_lines[25][33];
- OD_COMPONENT *od_config_file;
- char * od_config_filename;
- void (*od_config_function)(char *keyword, char *options);
- char od_color_char;
- char od_color_delimiter;
- char od_color_names[12][33];
- BOOL od_clear_on_exit;
- void (*od_cmd_line_handler)(char *pszKeyword, char *pszOptions);
- void (*od_cmd_line_help_func)(void);
- void (*od_default_personality)(BYTE operation);
- BOOL od_default_rip_win;
- WORD od_disable;
- char od_disable_dtr[40];
- BOOL od_disable_inactivity;
- BOOL od_emu_simulate_modem;
- BYTE od_errorlevel[8];
- BOOL od_full_color;
- BOOL od_full_put;
- WORD od_in_buf_size;
- INT16 od_inactivity;
- INT16 od_inactive_warning;
- BOOL od_internal_debug;
- tODMilliSec od_max_key_latency;
- char od_list_pause;
- char od_list_stop;
- OD_COMPONENT *od_logfile;
- char *od_logfile_messages[14];
- OD_COMPONENT *od_mps;
- BOOL od_nocopyright;
- BOOL od_noexit;
- BOOL od_no_ra_codes;
- BYTE od_page_len;
- char od_prog_copyright[40];
- char od_prog_name[40];
- char od_prog_version[40];
- DWORD od_reg_key;
- char od_reg_name[36];
- BOOL od_silent_mode;
- BOOL od_status_on;
- BOOL od_spawn_freeze_time;
- BOOL od_swapping_disable;
- BOOL od_swapping_noems;
- char od_swapping_path[80];
-
- /* Custom function hooks. */
- void (*od_no_file_func)(void);
- void (*od_before_exit)(void);
- void (*od_cbefore_chat)(void);
- void (*od_cafter_chat)(void);
- void (*od_cbefore_shell)(void);
- void (*od_cafter_shell)(void);
- void (*od_config_callback)(void);
- void (*od_help_callback)(void);
- void (*od_ker_exec)(void);
- void (*od_local_input)(INT16 key);
- void (*od_time_msg_func)(char *string);
-
- /* OpenDoors function key customizations. */
- WORD key_chat;
- WORD key_dosshell;
- WORD key_drop2bbs;
- WORD key_hangup;
- WORD key_keyboardoff;
- WORD key_lesstime;
- WORD key_lockout;
- WORD key_moretime;
- WORD key_status[9];
- WORD key_sysopnext;
-
- /* Additional function keys. */
- BYTE od_num_keys;
- INT16 od_hot_key[16];
- INT16 od_last_hot;
- void (*od_hot_function[16])(void);
-
- /* OpenDoors prompt customizations. */
- char * od_after_chat;
- char * od_after_shell;
- char * od_before_chat;
- char * od_before_shell;
- char * od_chat_reason;
- char * od_continue;
- char od_continue_yes;
- char od_continue_no;
- char od_continue_nonstop;
- char * od_day[7];
- char * od_hanging_up;
- char * od_exiting;
- char * od_help_text;
- char * od_help_text2;
- char * od_inactivity_timeout;
- char * od_inactivity_warning;
- char * od_month[12];
- char * od_no_keyboard;
- char * od_no_sysop;
- char * od_no_response;
- char * od_no_time;
- char * od_offline;
- char * od_paging;
- char * od_press_key;
- char * od_sending_rip;
- char * od_status_line[3];
- char * od_sysop_next;
- char * od_time_left;
- char * od_time_warning;
- char * od_want_chat;
- char * od_cmd_line_help;
-
- /* OpenDoors color customizations. */
- BYTE od_chat_color1;
- BYTE od_chat_color2;
- BYTE od_list_comment_col;
- BYTE od_list_name_col;
- BYTE od_list_offline_col;
- BYTE od_list_size_col;
- BYTE od_list_title_col;
- BYTE od_local_win_col;
- BYTE od_continue_col;
- BYTE od_menu_title_col;
- BYTE od_menu_border_col;
- BYTE od_menu_text_col;
- BYTE od_menu_key_col;
- BYTE od_menu_highlight_col;
- BYTE od_menu_highkey_col;
-
- /* Platform-specific settings. */
-#ifdef ODPLAT_WIN32
- HICON od_app_icon;
- int od_cmd_show;
-#endif /* ODPLAT_WIN32 */
-} tODControl;
-
-/* Restore original structure alignment, if possible. */
-#ifdef _MSC_VER
-#pragma pack()
-#endif /* _MSC_VER */
-
-
-/* The od_control external variable. */
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-OD_API_VAR_DECL tODControl
-#ifndef _WIN32 /* warning C4229: anachronism used : modifiers on data are ignored */
-OD_GLOBAL_CONV
-#endif
-od_control;
-#ifdef __cplusplus
-}
-#endif /* __cplusplus */
-
-
-/* ========================================================================= */
-/* OpenDoors API function prototypes. */
-/* ========================================================================= */
-
-/* Programs interface with OpenDoors by calling any of the OpenDoors API
- * functions. A summary of these functions appears below, followed by the
- * function definition prototypes. Full information on these functions is
- * provided by the OpenDoors manual. Functions denoted (ANS/AVT) require ANSI
- * or AVATAR display modes to be active.
- *
- * OUTPUT FUNCTIONS - TEXT DISPLAY
- * od_printf() - Performs formatted output, with color settings
- * od_disp_str() - Displays a normal, nul-terminated string.
- * od_disp() - Sends chars to modem, with/without local echo
- * od_disp_emu() - Displays a string, translating ANSI/AVT codes
- * od_repeat() - Efficiently displays a character repeatedly
- * od_putch() - Displays a single character.
- *
- * OUTPUT FUNCTIONS - COLOUR AND CURSOR CONTROL
- * od_set_color() - Sets color according to fore/background values
- * od_set_attrib() - Sets color to specified IBM-PC attribute
- * od_set_cursor() - Positions cursor on screen (ANS/AVT)
- * od_get_cursor() - Estimates the current cursor position on screen
- *
- * OUTPUT FUNCTIONS - SCREEN MANIPULATION
- * od_clr_scr() - Clears the screen
- * od_save_screen() - Saves the contents of entire screen
- * od_restore_screen() - Restores the contents of entire screen
- *
- * OUTPUT FUNCTIONS - BLOCK MANIPULATION
- * od_clr_line() - Clears the remainder of the current line
- * od_gettext() - Gets the contents a block of screen (ANS/AVT)
- * od_puttext() - Displays block stored by gettext() (ANS/AVT)
- * od_scroll() - Scrolls a portion of the screen (ANS/AVT)
- *
- * OUTPUT FUNCTIONS - WINDOWS & MENUS
- * od_draw_box() - Draws a box on the screen (ANS/AVT)
- * od_window_create() - Creates a window, storing underlying (ANS/AVT)
- * od_window_remove() - Removes window, restoring underlying (ANS/AVT)
- * od_popup_menu() - Displays popup menu with "light" bar (ANS/AVT)
- *
- * OUTPUT FUNCTIONS - FILE DISPLAY
- * od_send_file() - Displays an ASCII/ANSI/AVATAR/RIP file
- * od_hotkey_menu() - Displays ASC/ANS/AVATAR/RIP menu, with hotkeys
- * od_list_files() - Lists files avail for download using FILES.BBS
- *
- * INPUT FUNCTIONS
- * od_get_answer() - Inputs a key, allowing only specified responses
- * od_get_key() - Inputs a key, optionally waiting for next key
- * od_get_input() - Obtains next input, with translation
- * od_input_str() - Inputs string of specified length from keyboard
- * od_edit_str() - Fancy formatted string input function (ANS/AVT)
- * od_clear_keybuffer() - Removes any waiting keys in keyboard buffer
- * od_multiline_edit() - Edits text that spans multiple lines (ANS/AVT)
- *
- * COMMON DOOR ACTIVITY FUNCTIONS
- * od_page() - Allows user to page sysop
- * od_spawn() - Suspends OpenDoors & starts another program
- * od_spawnvpe() - Like od_spawn, but with more options
- * od_log_write() - Writes a logfile entry
- * od_parse_cmd_line() - Handles standard command-line parameters
- *
- * SPECIAL CONTROL FUNCTIONS
- * od_init() - Forces OpenDoors initialization
- * od_color_config() - Translates color description to color value
- * od_add_personality() - Adds another local interface personality
- * od_set_statusline() - Sets the current status line setting
- * od_autodetect() - Determines the remote system terminal type
- * od_kernel() - Call when not calling other functions
- * od_exit() - Ends OpenDoors program
- * od_carrier() - Indicates whether remote connection is present
- * od_set_dtr() - Raises / lowers the DTR signal to the modem
- * od_chat() - Manually starts chat mode
- * od_sleep() - Yield to other processes
- * od_control_get() - Returns a pointer to the od_control structure.
- */
-ODAPIDEF BOOL ODCALL od_add_personality(char *pszName, BYTE btOutputTop,
- BYTE btOutputBottom,
- OD_PERSONALITY_PROC *pfPerFunc);
-ODAPIDEF void ODCALL od_autodetect(INT nFlags);
-ODAPIDEF BOOL ODCALL od_carrier(void);
-ODAPIDEF void ODCALL od_chat(void);
-ODAPIDEF void ODCALL od_clear_keybuffer(void);
-ODAPIDEF void ODCALL od_clr_line(void);
-ODAPIDEF void ODCALL od_clr_scr(void);
-ODAPIDEF BYTE ODCALL od_color_config(char *pszColorDesc);
-ODAPIDEF tODControl * ODCALL od_control_get(void);
-ODAPIDEF void ODCALL od_disp(char *pachBuffer, INT nSize, BOOL bLocalEcho);
-ODAPIDEF void ODCALL od_disp_emu(char *pszToDisplay, BOOL bRemoteEcho);
-ODAPIDEF void ODCALL od_disp_str(char *pszToDisplay);
-ODAPIDEF BOOL ODCALL od_draw_box(BYTE btLeft, BYTE btTop, BYTE btRight,
- BYTE btBottom);
-ODAPIDEF WORD ODCALL od_edit_str(char *pszInput, char *pszFormat, INT nRow,
- INT nColumn, BYTE btNormalColour,
- BYTE btHighlightColour, char chBlank,
- WORD nFlags);
-ODAPIDEF void ODCALL od_exit(INT nErrorLevel, BOOL bTermCall);
-ODAPIDEF char ODCALL od_get_answer(char *pszOptions);
-ODAPIDEF void ODCALL od_get_cursor(INT *pnRow, INT *pnColumn);
-ODAPIDEF BOOL ODCALL od_get_input(tODInputEvent *pInputEvent,
- tODMilliSec TimeToWait, WORD wFlags);
-ODAPIDEF char ODCALL od_get_key(BOOL bWait);
-ODAPIDEF BOOL ODCALL od_gettext(INT nLeft, INT nTop, INT nRight,
- INT nBottom, void *pBlock);
-ODAPIDEF char ODCALL od_hotkey_menu(char *pszFileName, char *pszHotKeys,
- BOOL bWait);
-ODAPIDEF void ODCALL od_init(void);
-ODAPIDEF void ODCALL od_input_str(char *pszInput, INT nMaxLength,
- unsigned char chMin, unsigned char chMax);
-ODAPIDEF void ODCALL od_kernel(void);
-ODAPIDEF BOOL ODCALL od_list_files(char *pszFileSpec);
-ODAPIDEF BOOL ODCALL od_log_write(char *pszMessage);
-ODAPIDEF INT ODCALL od_multiline_edit(char *pszBufferToEdit,
- UINT unBufferSize, tODEditOptions *pEditOptions);
-ODAPIDEF void ODCALL od_page(void);
-#ifdef ODPLAT_WIN32
-ODAPIDEF void ODCALL od_parse_cmd_line(LPSTR pszCmdLine);
-#else /* !ODPLAT_WIN32 */
-ODAPIDEF void ODCALL od_parse_cmd_line(INT nArgCount,
- char *papszArguments[]);
-#endif /* !ODPLAT_WIN32 */
-ODAPIDEF INT ODCALL od_popup_menu(char *pszTitle, char *pszText,
- INT nLeft, INT nTop, INT nLevel, WORD uFlags);
-ODAPIDEF void ODVCALL od_printf(char *pszFormat, ...);
-ODAPIDEF void ODCALL od_putch(char chToDisplay);
-ODAPIDEF BOOL ODCALL od_puttext(INT nLeft, INT nTop, INT nRight,
- INT nBottom, void *pBlock);
-ODAPIDEF void ODCALL od_repeat(char chValue, BYTE btTimes);
-ODAPIDEF BOOL ODCALL od_restore_screen(void *pBuffer);
-ODAPIDEF BOOL ODCALL od_save_screen(void *pBuffer);
-ODAPIDEF BOOL ODCALL od_scroll(INT nLeft, INT nTop, INT nRight,
- INT nBottom, INT nDistance, WORD nFlags);
-ODAPIDEF BOOL ODCALL od_send_file(char *pszFileName);
-ODAPIDEF BOOL ODCALL od_send_file_section(char *pszFileName, char *pszSectionName);
-ODAPIDEF void ODCALL od_set_attrib(INT nColour);
-ODAPIDEF void ODCALL od_set_color(INT nForeground, INT nBackground);
-ODAPIDEF void ODCALL od_set_cursor(INT nRow, INT nColumn);
-ODAPIDEF void ODCALL od_set_dtr(BOOL bHigh);
-ODAPIDEF BOOL ODCALL od_set_personality(char *pszName);
-ODAPIDEF void ODCALL od_set_statusline(INT nSetting);
-ODAPIDEF void ODCALL od_sleep(tODMilliSec Milliseconds);
-ODAPIDEF BOOL ODCALL od_spawn(char *pszCommandLine);
-ODAPIDEF INT16 ODCALL od_spawnvpe(INT16 nModeFlag, char *pszPath,
- char *papszArg[], char *papszEnv[]);
-ODAPIDEF void * ODCALL od_window_create(INT nLeft, INT nTop, INT nRight,
- INT nBottom, char *pszTitle, BYTE btBorderCol,
- BYTE btTitleCol, BYTE btInsideCol, INT nReserved);
-ODAPIDEF BOOL ODCALL od_window_remove(void *pWinInfo);
-
-
-/* ========================================================================= */
-/* Definitions for compatibility with previous versions. */
-/* ========================================================================= */
-
-/* Alternative spelling for the word color (colour). */
-#define od_chat_colour1 od_chat_color1
-#define od_chat_colour2 od_chat_color2
-#define od_colour_char od_color_char
-#define od_colour_delimiter od_color_delimiter
-#define od_colour_names od_color_names
-#define od_full_colour od_full_color
-#define od_colour_config od_color_config
-#define od_set_colour od_set_color
-
-/* Definitions for renamed od_control members and manifest constants. */
-#define key_help key_status[6]
-#define key_nohelp key_status[0]
-#define user_credit user_net_credit
-#define caller_netmailentered user_netmailentered
-#define caller_echomailentered user_echomailentered
-#define caller_logintime user_logintime
-#define caller_logindate user_logindate
-#define caller_timelimit user_timelimit
-#define caller_loginsec user_loginsec
-#define caller_credit user_credit
-#define caller_userrecord user_num
-#define caller_readthru user_readthru
-#define caller_numpages user_numpages
-#define caller_downlimit user_downlimit
-#define caller_timeofcreation user_timeofcreation
-#define caller_logonpassword user_logonpassword
-#define caller_wantchat user_wantchat
-#define caller_ansi user_ansi
-#define ra_deducted_time user_deducted_time
-#define ra_menustack user_menustack
-#define ra_menustackpointer user_menustackpointer
-#define ra_userhandle user_handle
-#define ra_comment user_comment
-#define ra_firstcall user_firstcall
-#define ra_combinedrecord user_combinedrecord
-#define ra_birthday user_birthday
-#define ra_subdate user_subdate
-#define ra_screenwidth user_screenwidth
-#define ra_msg_area user_msg_area
-#define ra_file_area user_file_area
-#define ra_language user_language
-#define ra_date_format user_date_format
-#define ra_forward_to user_forward_to
-#define ra_error_free user_error_free
-#define ra_sysop_next sysop_next
-#define ra_emsi_session user_emsi_session
-#define ra_emsi_crtdef user_emsi_crtdef
-#define ra_emsi_protocols user_emsi_protocols
-#define ra_emsi_capabilities user_emsi_capabilities
-#define ra_emsi_requests user_emsi_requests
-#define ra_emsi_software user_emsi_software
-#define ra_hold_attr1 user_hold_attr1
-#define ra_hold_attr2 user_hold_attr2
-#define ra_hold_len user_hold_len
-#define caller_usernum user_num
-#define caller_callsign user_callsign
-#define caller_sex user_sex
-#define od_avatar user_avatar
-#define B_YELLOW L_YELLOW
-#define B_WHITE L_WHITE
-#define od_rbbs_node od_node
-#define STATUS_USER1 STATUS_ALTERNATE_1
-#define STATUS_USER2 STATUS_ALTERNATE_2
-#define STATUS_USER3 STATUS_ALTERNATE_3
-#define STATUS_USER4 STATUS_ALTERNATE_4
-#define STATUS_SYSTEM STATUS_ALTERNATE_5
-#define STATUS_HELP STATUS_ALTERNATE_7
-#define od_registered_to od_control.od_reg_name
-#define od_registration_key od_control.od_reg_key
-#define od_program_name od_control.od_prog_name
-#define od_log_messages od_control.od_logfile_messages
-#define od_config_text od_control.od_cfg_text
-#define od_config_lines od_control.od_cfg_lines
-#define od_config_colours od_control.od_colour_names
-#define od_config_colors od_control.od_colour_names
-#define config_file od_config_file
-#define config_filename od_config_filename
-#define config_function od_config_function
-#define default_personality od_default_personality
-#define logfile od_logfile
-#define mps od_mps
-#define od_kernal od_kernel
-
-/* Obsolete functions. */
-#define od_init_with_config(filename,function)\
- od_control.config_file=INCLUDE_CONFIG_FILE;\
- od_control.config_filename=filename;\
- od_control.config_function=function;\
- od_init()
-ODAPIDEF BOOL ODCALL od_log_open(void);
-ODAPIDEF void ODCALL od_emulate(register char in_char);
-
-#endif /* _INC_OPENDOOR */
diff --git a/src/odoors/README.NIX b/src/odoors/README.NIX
deleted file mode 100644
index e3f3e318dc9236418f9d7097a56414e8475d5b7f..0000000000000000000000000000000000000000
--- a/src/odoors/README.NIX
+++ /dev/null
@@ -1,8 +0,0 @@
-Note that OpenDoors installs signal handlers and *REQUIRES* that they be called
-for the following signals:
-
-SIGALRM - Drives the od_kernel
-SIGIO - Drives user input
-
-If you install your own handles, be absolutely sure that they call the old
-handlers as well.
diff --git a/src/odoors/Toolbar.bmp b/src/odoors/Toolbar.bmp
deleted file mode 100644
index 3c0b88c870ef66d1c21889161ec45d3e08f58960..0000000000000000000000000000000000000000
Binary files a/src/odoors/Toolbar.bmp and /dev/null differ
diff --git a/src/odoors/buildall.bat b/src/odoors/buildall.bat
deleted file mode 100755
index 7de401db33567209faa15e602578a10b38b9a8fb..0000000000000000000000000000000000000000
--- a/src/odoors/buildall.bat
+++ /dev/null
@@ -1,7 +0,0 @@
-make -fDOS.mak -DTARGET=s > out.txt
-make -fDOS.mak -DTARGET=c >> out.txt
-make -fDOS.mak -DTARGET=m >> out.txt
-make -fDOS.mak -DTARGET=l >> out.txt
-make -fDOS.mak -DTARGET=h >> out.txt
-set INCLUDE=c:\msdev\include;c:\msdev\mfc\include
-nmake -fWin32.mak >> out.txt
diff --git a/src/odoors/builddos.bat b/src/odoors/builddos.bat
deleted file mode 100755
index 15746df5da33253096d43a02aeb2b11b1e4b3d6a..0000000000000000000000000000000000000000
--- a/src/odoors/builddos.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-make -fDOS.mak -DTARGET=s > out.txt
-make -fDOS.mak -DTARGET=c >> out.txt
-make -fDOS.mak -DTARGET=m >> out.txt
-make -fDOS.mak -DTARGET=l >> out.txt
-make -fDOS.mak -DTARGET=h >> out.txt
diff --git a/src/odoors/ex_chat.c b/src/odoors/ex_chat.c
deleted file mode 100644
index 194b9396e52dd52168b40566ba68ed893c9aab31..0000000000000000000000000000000000000000
--- a/src/odoors/ex_chat.c
+++ /dev/null
@@ -1,346 +0,0 @@
-/* EX_CHAT.C - Example of a multi-window full-screen chat program written */
-/* with OpenDoors. See manual for instructions on how to compile */
-/* a program using OpenDoors. */
-/* */
-/* This program shows how to do the following: */
-/* */
-/* - Replace the standard OpenDoors chat mode with your own */
-/* chat mode implementation. See instructions below. */
-/* - How to scroll a portion of the screen, leaving the rest */
-/* of the screen unaltered. */
-/* - How to determine whether input came from the local or */
-/* remote keyboard. */
-/* - How to display a popup window with a message in it when */
-/* the sysop shells to DOS. (DOS version only.) */
-/* - How to save and restore the entire contents of the */
-/* screen. */
-/* */
-/* Conditional compilation directives allow this program to */
-/* be compiled as a stand-alone chat door, or as a */
-/* replacement chat mode to be integrated into any OpenDoors */
-/* program. If STANDALONE is #defined, ex_chat.c will be */
-/* compiled as a split-screen chat door that can be run like */
-/* any door program. If STANDALONE is not #defined, the chat */
-/* mode function will be compiled as a replacement chat mode */
-/* for the chat mode built into OpenDoors. In this case, the */
-/* demo mainline function simply displays a prompt, and will */
-/* exit the door as soon as you press the [ENTER] key. While */
-/* the program is running, if you invoke chat mode (press */
-/* [ALT]-[C]), the current screen will be saved and the */
-/* split-screen chat mode will be activated. When you press */
-/* [ESC] the split-screen chat mode will end, and the */
-/* original screen will be restored. To integrate this chat */
-/* mode into your own program, you should simply set */
-/* od_control.od_cbefore_chat to point to the */
-/* fullscreen_chat function, as shown, and remove the mainline */
-/* (main()/WinMain()) function from this file. The compile this */
-/* file into your program after removing the #define STANDALONE */
-/* line. */
-
-/* Include required header files. */
-#include "OpenDoor.h"
-#include <string.h>
-
-
-/* The following #define forces this code to compile as a stand-alone door */
-/* program. If you wish to use this code to replace the standard OpenDoors */
-/* chat mode in your own program, remove this #define. */
-#define STANDALONE
-
-
-/* Full-screen chat function prototypes. */
-void fullscreen_chat(void);
-void chat_new_line(void);
-void display_shell_window(void);
-void remove_shell_window(void);
-
-
-
-/* The main() or WinMain() function: program execution begins here. */
-#ifdef ODPLAT_WIN32
-int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
-#else
-int main(int argc, char *argv[])
-#endif
-{
- /* Handle standard command-line options and perform other needed setup. */
-#ifdef ODPLAT_WIN32
- od_control.od_cmd_show = nCmdShow;
- od_parse_cmd_line(lpszCmdLine);
-#else
- od_parse_cmd_line(argc, argv);
-#endif
-
-#ifdef STANDALONE /* If compiled as a stand-alone chat program */
- od_init(); /* Initialize OpenDoors */
-
- fullscreen_chat(); /* Invoke full-screen chat function */
-
-#else /* If compiled as replacement for OpenDoors chat mode */
- /* Setup OpenDoors to use our custom chat mode instead */
- od_control.od_cbefore_chat=fullscreen_chat;
-
- od_printf("Press [Enter] to exit door, or invoke chat mode.\n\r");
- od_get_answer("\n\r");
-#endif
-
- od_exit(0, FALSE); /* Exit program. */
- return(0);
-}
-
-
-
-
-
- /* FULL-SCREEN CHAT CUSTOMIZATION OPTIONS */
-
-char window_colour[2]={0x0b,0x0c}; /* Text colour used for each person */
-char bar_colour=0x70; /* Colour of window seperation bar */
-char top_line[2]={13,1}; /* Specifies location of each window on screen */
-char bottom_line[2]={23,11}; /* Line number of bottom of each window */
-char bar_line=12; /* Line number of window seperation bar */
-char scroll_distance=2; /* Distance to scroll window when required */
-char shell_window_title=0x1a; /* Colour of title of DOS shell notice window */
-char shell_window_boarder=0x1f; /* Colour of DOS shell window boarder */
-char shell_window_text=0x1b; /* Colour of text in DOS shell window */
-
-
-
-char cursor_window; /* FULL-SCREEN CHAT INTERNAL VARIABLES */
-char current_word[2][81];
-int word_length[2];
-int cursor_col[2];
-int cursor_line[2];
-unsigned char key;
-int old_chat_key;
-void *shell_window;
-char *before_shell_text;
-char *after_shell_text;
-#ifndef STANDALONE /* If compiled as replacement for OpenDoors chat mode */
-char screen_buffer[4004];
-#endif
-
- /* FULL-SCREEN CHAT FUNCTION */
-void fullscreen_chat(void)
-{
- cursor_window=0; /* Reset working variables */
- word_length[0]=word_length[1]=0;
- cursor_col[0]=cursor_col[1]=1;
- cursor_line[0]=top_line[0];
- cursor_line[1]=top_line[1];
-
-
- /* If ANSI or AVATAR graphics mode is not available */
- if(!od_control.user_ansi && !od_control.user_avatar)
- { /* Then use OpenDoor's line chat mode instead */
-#ifdef STANDALONE /* If compiled as a stand-alone chat program */
- od_chat();
-#endif
- return;
- }
-
- od_control.od_cbefore_shell=display_shell_window; /* Set shell settings */
- od_control.od_cafter_shell=remove_shell_window;
- before_shell_text=od_control.od_before_shell;
- after_shell_text=od_control.od_after_shell;
- od_control.od_before_shell=NULL;
- od_control.od_after_shell=NULL;
- od_control.od_chat_active=TRUE;
-
-#ifdef STANDALONE /* If compiled as a stand-alone chat program */
- old_chat_key=od_control.key_chat; /* Prevent internal chat mode from */
- od_control.key_chat=0; /* being invoked */
-
-#else /* If compiled as replacement for OpenDoors chat mode */
- od_save_screen(screen_buffer); /* Save current screen contents. */
-#endif
-
- /* DRAW THE CHAT SCREEN */
- od_set_attrib(window_colour[0]);
- od_clr_scr(); /* Clear the screen */
-
- od_set_cursor(bar_line,1); /* Draw window separation bar */
- od_set_attrib(bar_colour);
- od_clr_line();
- od_set_cursor(bar_line,67);
- od_printf("Ctrl-A: Clear");
- od_set_cursor(bar_line,1);
- od_printf(" Top : %-.28s Bottom : %-.28s ",
- od_control.sysop_name, od_control.user_name);
-
- od_set_cursor(top_line[0],1); /* Locate cursor where typing will begin */
- od_set_attrib(window_colour[0]); /* Set appropriate text colour */
-
- /* MAIN CHAT LOOP */
- for(;;) /* (Repeats for each character typed) */
- {
- do
- {
- key=(char)od_get_key(FALSE); /* Get next keystroke from keyboard */
-
- /* CHECK FOR SYSOP ABORT */
- if((key==27 && od_control.od_last_input==1) /* If sysop pressed ESC */
- || !od_control.od_chat_active)
- {
- od_set_attrib(0x07); /* Reset display colour */
- od_clr_scr(); /* Clear the screen */
-
- od_control.od_cbefore_shell=NULL; /* Restore DOS shell settings */
- od_control.od_cafter_shell=NULL;
- od_control.od_before_shell=before_shell_text;
- od_control.od_after_shell=after_shell_text;
-#ifdef STANDALONE /* If compiled as a stand-alone chat program */
- od_control.key_chat=old_chat_key;/* Re-enable internal chat mode */
-
-#else /* If compiled as replacement for OpenDoors chat mode */
- od_control.od_chat_active=FALSE; /* Turn off chat mode */
- od_restore_screen(screen_buffer); /* Restore orignal screen */
-#endif
- return; /* Exit full-screen chat */
-
- }
- } while(key==0);
-
- /* CHECK FOR NEW TYPIST */
- if(od_control.od_last_input!=cursor_window)/* If new person typing now */
- { /* Switch cursor to appropriate window */
- cursor_window=od_control.od_last_input; /* Set current typist */
-
- /* Move cursor to new window */
- od_set_cursor(cursor_line[cursor_window],cursor_col[cursor_window]);
-
- od_set_attrib(window_colour[cursor_window]); /* Change text colour */
- }
-
-
- if(key==13 || key==10) /* IF USER PRESSED [ENTER] / [RETURN] */
- {
- word_length[cursor_window]=0; /* Enter constitutes end of word */
-
- chat_new_line(); /* Move to next line */
- }
-
-
- else if(key==8) /* IF USER PRESS [BACKSPACE] */
- {
- if(cursor_col[cursor_window] > 1) /* If not at left of screen */
- {
- --cursor_col[cursor_window]; /* Move cursor back on character */
- if(word_length[cursor_window] > 0) --word_length[cursor_window];
- od_printf("\b \b"); /* Erase last character from screen */
- }
- }
-
-
- else if(key==32) /* IF USER PRESSED [SPACE] */
- {
- word_length[cursor_window]=0; /* [Space] constitutes end of word */
-
- if(cursor_col[cursor_window]==79) /* If at end of line */
- chat_new_line(); /* Move cursor to next line */
- else /* If not at end of line */
- {
- ++cursor_col[cursor_window]; /* Increment cursor position */
- od_putch(32); /* Display a space */
- }
- }
-
-
- else if(key==1) /* IF USER PRESSED CLEAR WINDOW KEY */
- { /* Clear user's window */
- od_scroll(1,top_line[cursor_window],79,bottom_line[cursor_window],
- bottom_line[cursor_window]-top_line[cursor_window]+1,0);
-
- word_length[cursor_window]=0; /* We are no longer composing a word */
-
- cursor_col[cursor_window]=1; /* Reset cursor position */
- cursor_line[cursor_window]=top_line[cursor_window];
- od_set_cursor(cursor_line[cursor_window],cursor_col[cursor_window]);
- }
-
-
- else if(key>32) /* IF USER TYPED A PRINTABLE CHARACTER */
- { /* PERFORM WORD WRAP IF NECESSARY */
- if(cursor_col[cursor_window]==79) /* If cursor is at end of line */
- {
- /* If there is a word to wrap */
- if(word_length[cursor_window]>0 && word_length[cursor_window]<78)
- {
- /* Move cursor to beginning of word */
- od_set_cursor(cursor_line[cursor_window],
- cursor_col[cursor_window]-word_length[cursor_window]);
-
- od_clr_line(); /* Erase word from current line */
-
- chat_new_line(); /* Move cursor to next line */
-
- /* Redisplay word */
- od_disp(current_word[cursor_window],word_length[cursor_window],
- TRUE);
- cursor_col[cursor_window]+=word_length[cursor_window];
- }
-
- else /* If there is no word to "wrap" */
- {
- chat_new_line(); /* Move cursor to next line */
- word_length[cursor_window]=0; /* Start a new word */
- }
- }
-
- /* ADD CHARACTER TO CURRENT WORD */
- /* If there is room for more character in word */
- if(strlen(current_word[cursor_window])<79) /* Add new character */
- current_word[cursor_window][word_length[cursor_window]++]=key;
-
- /* DISPLAY NEWLY TYPED CHARACTER */
- ++cursor_col[cursor_window];
- od_putch(key);
- }
- }
-}
-
-
-
- /* FUNCTION USED BY FULL-SCREEN CHAT TO START A NEW INPUT LINE */
-void chat_new_line(void)
-{ /* If cursor is at bottom of window */
- if(cursor_line[cursor_window]==bottom_line[cursor_window])
- { /* Scroll window up one line on screen */
- od_scroll(1,top_line[cursor_window],79, bottom_line[cursor_window],
- scroll_distance, 0);
- cursor_line[cursor_window]-=(scroll_distance - 1);
- }
-
- else /* If cursor is not at bottom of window */
- {
- ++cursor_line[cursor_window]; /* Move cursor down one line */
- }
-
- /* Move cursor's position on screen */
- od_set_cursor(cursor_line[cursor_window],cursor_col[cursor_window]=1);
-
- od_set_attrib(window_colour[cursor_window]); /* Change text colour */
-}
-
-
-void display_shell_window(void)
-{
- if((shell_window=od_window_create(17,9,63,15,"DOS Shell",
- shell_window_boarder, shell_window_title,
- shell_window_text, 0))==NULL) return;
-
- od_set_attrib(shell_window_text);
- od_set_cursor(11,26);
- od_printf("The Sysop has shelled to DOS");
- od_set_cursor(13,21);
- od_printf("He/She will return in a few moments...");
-}
-
-
-void remove_shell_window(void)
-{
- od_window_remove(shell_window);
- od_set_cursor(cursor_line[cursor_window],cursor_col[cursor_window]);
- od_set_attrib(window_colour[cursor_window]);
-}
diff --git a/src/odoors/ex_diag.c b/src/odoors/ex_diag.c
deleted file mode 100644
index 651a751d87901e26fd86733d33569a1c13d29256..0000000000000000000000000000000000000000
--- a/src/odoors/ex_diag.c
+++ /dev/null
@@ -1,569 +0,0 @@
-/* ex_diag.c - Diagnostic door program, written to test environment in which
- * an OpenDooors door will run. Reads configuration settings from
- * command line and configuration file, and displays diagnostic
- * information on the local (and when possible, remote) screens.
- */
-
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#include "OpenDoor.h"
-#include <genwrap.h>
-
-typedef enum
-{
- kParamLocal,
- kParamBPS,
- kParamPort,
- kParamNode,
- kParamHelp,
- kParamPersonality,
- kParamMaxTime,
- kParamAddress,
- kParamIRQ,
- kParamNoFOSSIL,
- kParamNoFIFO,
- kParamDropFile,
- kParamUserName,
- kParamTimeLeft,
- kParamSecurity,
- kParamLocation,
- kParamUnknown
-} tCommandLineParameter;
-
-char *BoolAsStr(int bValue);
-void ParseStandardCommandLine(int nArgCount, char *papszArguments[]);
-static void AdvanceToNextArg(int *pnCurrentArg, int nArgCount,
- char *pszOption);
-static void GetNextArgName(int *pnCurrentArg, int nArgCount,
- char *papszArguments[], char *pszString,
- int nStringSize);
-static tCommandLineParameter GetCommandLineParameter(char *pszArgument);
-
-
-int main(int argc, char *argv[])
-{
- char sz[80];
- int n;
-
- /* Parse command-line. */
- ParseStandardCommandLine(argc, argv);
-
- /* Initialize OpenDoors. */
- od_init();
-
- od_clr_scr();
-
- od_printf("OpenDoors has been initialized.\n\r");
- for(;;)
- {
- od_printf("\n\rPOST-INITIALIZATION DIAGNOSTIC INFORMATION:\n\r");
- od_printf(" Running in REMOTE mode : %s\n\r",
- BoolAsStr(od_control.baud));
- od_printf(" Port <-> Modem BPS Rate : %lu\n\r", od_control.baud);
- od_printf(" Serial Port Number : %d (COM%d:)\n\r", od_control.port,
- od_control.port + 1);
- od_printf(" Serial I/O Method : ");
- switch(od_control.od_com_method)
- {
- case COM_FOSSIL:
- od_printf("FOSSIL Driver\n\r");
- break;
- case COM_INTERNAL:
- od_printf("OpenDoors Internal I/O Module\n\r");
- break;
- case COM_SOCKET:
- od_printf("TCP Socket/Telnet\n\r");
- break;
- default:
- od_printf("Unknown\n\r");
- break;
- }
- od_printf(" Drop File Type : ");
- switch(od_control.od_info_type)
- {
- case DORINFO1:
- od_printf("DORINFO?.DEF\n\r");
- break;
- case EXITINFO:
- od_printf("Basic EXITINFO.BBS & DORINFO1.DEF\n\r");
- break;
- case RA1EXITINFO:
- od_printf("RA 1.x EXITINFO.BBS & DORINFO1.DEF\n\r");
- break;
- case CHAINTXT:
- od_printf("CHAIN.TXT\n\r");
- break;
- case SFDOORSDAT:
- od_printf("SFDOORS.DAT\n\r");
- break;
- case CALLINFO:
- od_printf("CALLINFO.BBS\n\r");
- break;
- case DOORSYS_GAP:
- od_printf("GAP style DOOR.SYS\n\r");
- break;
- case DOORSYS_DRWY:
- od_printf("DoorWay DOOR.SYS\n\r");
- break;
- case QBBS275EXITINFO:
- od_printf("QuickBBS 2.75+ EXITINFO.BBS\n\r");
- break;
- case CUSTOM:
- od_printf("User-Defined Custom Format\n\r");
- break;
- case DOORSYS_WILDCAT:
- od_printf("WildCat! DOOR.SYS\n\r");
- break;
- case RA2EXITINFO:
- od_printf("RA 2.x+ EXITINFO.BBS & DORINFO1.DEF\n\r");
- break;
- case NO_DOOR_FILE:
- od_printf("No Drop File in Use\n\r");
- break;
- case DOOR32SYS:
- od_printf("Door32.sys\n\r");
- break;
- default:
- od_printf("Unknown Type\n\r");
- break;
- }
- od_printf(" ANSI Mode Available : %s\n\r",
- BoolAsStr(od_control.user_ansi));
- od_printf(" AVATAR Mode Available : %s\n\r",
- BoolAsStr(od_control.user_avatar));
- od_printf(" RIP Graphics Available : %s\n\r",
- BoolAsStr(od_control.user_rip));
- od_printf(" User's Time Limit : %d\n\r", od_control.user_timelimit);
- od_printf(" User's Full Name : %s\n\r", od_control.user_name);
-
- od_printf("\n\rChoose Option: [E]xit, [T]yping Test,");
- if(od_control.od_com_method == COM_INTERNAL)
- {
- od_printf(" [I]nternal I/O Diags,");
- }
- od_printf("\n\r");
- od_printf(" [A]utodetect ANSI/RIP, [R]e-Display, [D]isplay Tests\n\r");
- n=od_get_answer("eitard");
- switch(n)
- {
- case 'e':
- od_clr_scr();
- od_printf("\n\rExit - Are You Sure (Y/N)? ");
- if(od_get_answer("yn") == 'y')
- {
- return(0);
- }
- break;
-
- case 'i':
- od_clr_scr();
- od_printf("INTERNAL SERIAL I/O DIAGNOSTIC INFORMATION:\n\r");
- od_printf(" Serial Port Base Address : %x\n\r",
- od_control.od_com_address);
- od_printf(" IRQ Line Number : %d\n\r",
- od_control.od_com_irq);
- od_printf(" Receive Buffer Size : %d\n\r",
- od_control.od_com_rx_buf);
- od_printf(" Transmit Buffer Size : %d\n\r",
- od_control.od_com_tx_buf);
- od_printf(" Use FIFO Buffer, if avail : %s\n\r",
- BoolAsStr(!od_control.od_com_no_fifo));
- od_printf(" FIFO Trigger Size : %d\n\r",
- od_control.od_com_fifo_trigger);
-
- od_printf("\n\rPress [ENTER] to return.\n\r");
- od_get_answer("\n\r");
- break;
-
- case 't':
- od_clr_scr();
- od_printf("\n\rTyping Test - Type any text below:\n\r");
- od_printf("[------------------------------------------------------"
- "-----------------------]\n\r");
- od_input_str(sz, 79, 0, 255);
- od_printf("\n\rEntered Text:\n\r%s\n\r", sz);
- od_printf("\n\rPress [ENTER] to return.\n\r");
- od_get_answer("\n\r");
- break;
-
- case 'a':
- od_clr_scr();
- od_printf("\n\rAutodetecting ANSI/RIP mode ...\n\r");
- od_printf("(Detected modes will be turned on.)\n\r");
- od_autodetect(0);
- od_printf("\n\rDone, press [ENTER] to return.\n\r");
- od_get_answer("\n\r");
- break;
-
- case 'd':
- od_clr_scr();
- od_printf("CLEAR SCREEN TEST\n\r");
- od_printf("About to test clear screen. The screen should\n\r");
- od_printf("be cleared before the next test if screen\n\r");
- od_printf("clearing is enabled.\n\r");
- od_printf("\n\rPress [ENTER] to perform test.\n\r");
- od_get_answer("\n\r");
- od_clr_scr();
-
- od_printf("CARRIAGE RETURN TEST:\n\r");
- od_printf("This should not be visible\r");
- od_printf("This should cover it up...\n\r\n\r");
- od_printf("The text \"This should not be visible\" will\n\r");
- od_printf("appear above if this test failed.\n\r");
- od_printf("\n\rPress [ENTER] to perform next test.\n\r");
- od_get_answer("\n\r");
-
- od_clr_scr();
- od_printf("COLOR TEST:\n\r\n\r");
- for(n = 0; n < 256; ++n)
- {
- od_set_attrib(n);
- od_printf("%x", n % 16);
- if(n % 32 == 31)
- {
- od_set_attrib(0x07);
- od_printf("\n\r");
- }
- }
- od_printf("\n\rIf ANSI or AVATAR modes are available, the\n\r");
- od_printf("above test pattern should print in color.\n\r");
- od_printf("\n\rPress [ENTER] to perform next test.\n\r");
- od_get_answer("\n\r");
-
- od_clr_scr();
- od_printf("CURSOR POSITIONING TEST:\n\r");
- for(n = 15; n > 2; --n)
- {
- od_set_cursor(n, n);
- od_printf("\\");
- }
- for(n = 15; n > 2; --n)
- {
- od_set_cursor(n, 17 - n);
- od_printf("/");
- }
-
- od_set_cursor(17, 1);
- od_printf("If ANSI or AVATAR modes are available, a large X\n\r");
- od_printf("should appear on lines 3 to 15.\n\r");
- od_printf("\n\rPress [ENTER] to return.\n\r");
- od_get_answer("\n\r");
- break;
- }
-
- od_clr_scr();
- }
-
- /* Return with success. */
- return(0);
-}
-
-
-char *BoolAsStr(int bValue)
-{
- return(bValue ? "Yes (TRUE)" : "No (FALSE)");
-}
-
-
-void ParseStandardCommandLine(int nArgCount, char *papszArguments[])
-{
- char *pszCurrentArg;
- int nCurrentArg;
-
- for(nCurrentArg = 1; nCurrentArg < nArgCount; ++nCurrentArg)
- {
- pszCurrentArg = papszArguments[nCurrentArg];
-
- switch(GetCommandLineParameter(pszCurrentArg))
- {
- case kParamLocal:
- od_control.od_force_local = TRUE;
- break;
-
- case kParamBPS:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.baud = atol(papszArguments[nCurrentArg]);
- break;
-
- case kParamPort:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.port = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamHelp:
- printf("AVALIABLE COMMAND LINE PARAMETERS:\n");
- printf(" -L or -LOCAL - Causes door to operate in local mode, without requiring a\n");
- printf(" door information (drop) file.\n");
- printf(" -DROPFILE x - Door information file directory or directory+filename.\n");
- printf(" -N x or -NODE x - Sets the node number to use.\n");
- printf(" -B x or -BPS x - Sets the serial port <---> modem bps (baud) rate to use.\n");
- printf(" -P x or -PORT x - Sets the serial port to use, were 0=COM1, 1=COM2, etc.\n");
- printf(" -ADDRESS x - Sets serial port address in decimal NOT hexidecimal\n");
- printf(" (only has effect if FOSSIL driver is not being used).\n");
- printf(" -IRQ x - Sets the serial port IRQ line (only has effect if FOSSIL\n");
- printf(" driver is not being used).\n");
- printf(" -NOFOSSIL - Disables use of FOSSIL driver, even if available.\n");
- printf(" -NOFIFO - Disables use of 16550 FIFO buffers (only if FOSSIL driver\n");
- printf(" is not being used).\n");
- printf(" -PERSONALITY x - Sets the sysop status line / function key personality to\n");
- printf(" use - one of Standard, PCBoard, RemoteAccess or Wildcat.\n");
- printf(" -MAXTIME x - Sets the maximum number of minutes that any user will be\n");
- printf(" permitted to access the door.\n");
- printf(" -USERNAME x - Name of user who is currently online.\n");
- printf(" -TIMELEFT x - User's time remaining online.\n");
- printf(" -SECURITY x - User's security level.\n");
- printf(" -LOCATION x - Location from which user is calling.\n");
- printf(" -?, -H or -HELP - Displays command-line help and exits.\n");
- exit(1);
- break;
-
- case kParamNode:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_node = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamPersonality:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- if(stricmp(papszArguments[nCurrentArg], "Standard") == 0)
- {
- od_control.od_default_personality = PER_OPENDOORS;
- }
- else if(stricmp(papszArguments[nCurrentArg], "PCBoard") == 0)
- {
- od_control.od_default_personality = PER_PCBOARD;
- }
- else if(stricmp(papszArguments[nCurrentArg], "RemoteAccess") == 0)
- {
- od_control.od_default_personality = PER_RA;
- }
- else if(stricmp(papszArguments[nCurrentArg], "Wildcat") == 0)
- {
- od_control.od_default_personality = PER_WILDCAT;
- }
- else
- {
- printf("Unknown personality: %s\n", papszArguments[nCurrentArg]);
- exit(1);
- }
- break;
-
- case kParamMaxTime:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_maxtime = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamAddress:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_com_address = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamIRQ:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.od_com_irq = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamNoFOSSIL:
- od_control.od_no_fossil = TRUE;
- break;
-
- case kParamNoFIFO:
- od_control.od_com_no_fifo = TRUE;
- break;
-
- case kParamDropFile:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- strncpy(od_control.info_path, papszArguments[nCurrentArg],
- sizeof(od_control.info_path) - 1);
- od_control.info_path[sizeof(od_control.info_path) - 1] = '\0';
- break;
-
- case kParamUserName:
- GetNextArgName(&nCurrentArg, nArgCount, papszArguments,
- od_control.user_name, sizeof(od_control.user_name));
- break;
-
- case kParamTimeLeft:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.user_timelimit = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamSecurity:
- AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
- od_control.user_security = atoi(papszArguments[nCurrentArg]);
- break;
-
- case kParamLocation:
- GetNextArgName(&nCurrentArg, nArgCount, papszArguments,
- od_control.user_location, sizeof(od_control.user_location));
- break;
-
- default:
- printf("Unrecognized command line option: %s\n", pszCurrentArg);
- exit(1);
- break;
- }
- }
-}
-
-
-static void AdvanceToNextArg(int *pnCurrentArg, int nArgCount, char *pszOption)
-{
- if(++*pnCurrentArg >= nArgCount)
- {
- printf("Missing parameter for option: %s\n", pszOption);
- exit(1);
- }
-}
-
-
-static void GetNextArgName(int *pnCurrentArg, int nArgCount,
- char *papszArguments[], char *pszString,
- int nStringSize)
-{
- int bFirst = TRUE;
-
- if((*pnCurrentArg) + 1 >= nArgCount)
- {
- printf("Missing parameter for option: %s\n",
- papszArguments[(*pnCurrentArg) - 1]);
- exit(1);
- }
-
- pszString[0] = '\0';
-
- while(++*pnCurrentArg < nArgCount)
- {
- if(GetCommandLineParameter(papszArguments[*pnCurrentArg])
- != kParamUnknown)
- {
- --*pnCurrentArg;
- break;
- }
-
- if(strlen(pszString) >= nStringSize - 1)
- {
- break;
- }
-
- if(!bFirst)
- {
- strcat(pszString, " ");
- }
-
- strncat(pszString, papszArguments[*pnCurrentArg],
- strlen(pszString) - nStringSize - 1);
- pszString[nStringSize - 1] = '\0';
-
- bFirst = FALSE;
- }
-
-}
-
-
-static tCommandLineParameter GetCommandLineParameter(char *pszArgument)
-{
- if(*pszArgument == '-' || *pszArgument == '/')
- {
- ++pszArgument;
- }
-
- if(stricmp(pszArgument, "L") == 0
- || stricmp(pszArgument, "LOCAL") == 0)
- {
- return(kParamLocal);
- }
- else if(stricmp(pszArgument, "B") == 0
- || stricmp(pszArgument, "BPS") == 0
- || stricmp(pszArgument, "BAUD") == 0)
- {
- return(kParamBPS);
- }
- else if(stricmp(pszArgument, "P") == 0
- || stricmp(pszArgument, "PORT") == 0)
- {
- return(kParamPort);
- }
- else if(stricmp(pszArgument, "N") == 0
- || stricmp(pszArgument, "NODE") == 0)
- {
- return(kParamNode);
- }
- else if(stricmp(pszArgument, "?") == 0
- || stricmp(pszArgument, "H") == 0
- || stricmp(pszArgument, "HELP") == 0)
- {
- return(kParamHelp);
- }
- else if(stricmp(pszArgument, "PERSONALITY") == 0)
- {
- return(kParamPersonality);
- }
- else if(stricmp(pszArgument, "MAXTIME") == 0)
- {
- return(kParamMaxTime);
- }
- else if(stricmp(pszArgument, "ADDRESS") == 0)
- {
- return(kParamAddress);
- }
- else if(stricmp(pszArgument, "IRQ") == 0)
- {
- return(kParamIRQ);
- }
- else if(stricmp(pszArgument, "NOFOSSIL") == 0)
- {
- return(kParamNoFOSSIL);
- }
- else if(stricmp(pszArgument, "NOFIFO") == 0)
- {
- return(kParamNoFIFO);
- }
- else if(stricmp(pszArgument, "DROPFILE") == 0)
- {
- return(kParamDropFile);
- }
- else if(stricmp(pszArgument, "USERNAME") == 0)
- {
- return(kParamUserName);
- }
- else if(stricmp(pszArgument, "TIMELEFT") == 0)
- {
- return(kParamTimeLeft);
- }
- else if(stricmp(pszArgument, "SECURITY") == 0)
- {
- return(kParamSecurity);
- }
- else if(stricmp(pszArgument, "LOCATION") == 0)
- {
- return(kParamLocation);
- }
- else
- {
- return(kParamUnknown);
- }
-}
-
-
-void NoDoorFileHandler(void)
-{
- /* Alter OpenDoors behaviour, so that we proceed with defaults if */
- /* no door information file is available, rather than exiting with */
- /* an error. Set od_no_file_func to point to this function. */
- if(strlen(od_control.user_name) == 0)
- {
- strcpy(od_control.user_name, "Unknown User");
- }
- if(strlen(od_control.user_location) == 0)
- {
- strcpy(od_control.user_location, "Unknown Location");
- }
- if(od_control.user_timelimit == 0)
- {
- od_control.user_timelimit = 30;
- }
-
- od_control.od_info_type = CUSTOM;
-}
diff --git a/src/odoors/ex_hello.c b/src/odoors/ex_hello.c
deleted file mode 100644
index 01449839b44f033c5c84fd9d15b8c1287c6603c3..0000000000000000000000000000000000000000
--- a/src/odoors/ex_hello.c
+++ /dev/null
@@ -1,42 +0,0 @@
-/* EX_HELLO.C - Example of a trivial OpenDoors program. Demonstrates */
-/* just how simple a fully functional door program can be. Also */
-/* shows all the basic elements required by any program using */
-/* OpenDoors. See manual for instructions on how to compile */
-/* this program. */
-/* */
-/* This program shows how to do the following: */
-/* */
-/* - #include the OpenDoors header file, opendoor.h. */
-/* - Create a mainline function that can be compiled under */
-/* both DOS and Windows versions of OpenDoors. */
-/* - How to display text on multiple lines. */
-/* - How to wait for a single key to be pressed. */
-/* - How to properly exit a program that uses OpenDoors. */
-
-
-/* The opendoor.h file must be included by any program using OpenDoors. */
-#include "OpenDoor.h"
-
-
-/* The main() or WinMain() function: program execution begins here. */
-#ifdef ODPLAT_WIN32
-int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
-#else
-int main(int argc, char *argv[])
-#endif
-{
-
- /* Display a message. */
- od_printf("Hello world! This is a very simple OpenDoors program.\n\r");
- od_printf("Press any key to return to the BBS!\n\r");
-
-
- /* Wait for user to press a key. */
- od_get_key(TRUE);
-
-
- /* Exit door program, returning to the BBS. */
- od_exit(0, FALSE);
- return(0);
-}
diff --git a/src/odoors/ex_music.c b/src/odoors/ex_music.c
deleted file mode 100644
index 40161818969e86ba8272e9bf34bd111439bb2ca8..0000000000000000000000000000000000000000
--- a/src/odoors/ex_music.c
+++ /dev/null
@@ -1,153 +0,0 @@
-/* EX_MUSIC.C - Example program plays "Happy Birthday" to the remote user, */
-/* if possible. See the manual for instructions on how to */
-/* compile this program. */
-/* */
-/* This program shows how to do the following: */
-/* */
-/* - Demonstrates how to play sounds effects or music on a */
-/* remote terminal program that supports the so-called */
-/* "ANSI music" standard. */
-/* - Shows how to send text to the remote system without it */
-/* being displayed on the local screen. */
-
-
-/* The opendoor.h file must be included by any program using OpenDoors. */
-#include "OpenDoor.h"
-
-#include <string.h>
-
-/* Functions for playing "ANSI music" and testing "ANSI music" capabilities. */
-void PlayANSISound(char *pszSounds);
-char TestSound(void);
-
-/* Variable indicates whether or not sound is on */
-char bSoundEnabled = TRUE;
-
-
-/* The main() or WinMain() function: program execution begins here. */
-#ifdef ODPLAT_WIN32
-int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
-#else
-int main(int argc, char *argv[])
-#endif
-{
- /* Handle standard command-line options and perform other needed setup. */
-#ifdef ODPLAT_WIN32
- od_control.od_cmd_show = nCmdShow;
- od_parse_cmd_line(lpszCmdLine);
-#else
- od_parse_cmd_line(argc, argv);
-#endif
-
- /* Display introductory message. */
- od_printf("This is a simple door program that will play the song Happy Birthday\n\r");
- od_printf("tune on the remote system, if the user's terminal program supports ANSI\n\r");
- od_printf("music. Music is not played on the local speaker, as BBS system operators\n\r");
- od_printf("do not wish to have the BBS computer making sounds at any time of the day\n\r");
- od_printf("or night. However, the program can easily be modified to also echo sound to\n\r");
- od_printf("the local speaker.\n\r\n\r");
-
-
- /* Test whether user's terminal supports "ANSI music". */
- TestSound();
-
-
- /* Send birthday greetings to the remote user. */
-
- /* Clear the screen. */
- od_clr_scr();
-
- /* Display a message. */
- od_printf("\n\rHappy Birthday!\n\r");
-
- /* If "ANSI music" is available, play "Happy Birthday". */
- PlayANSISound("MBT120L4MFMNO4C8C8DCFE2C8C8DCGF2C8C8O5CO4AFED2T90B-8B-8AFGF2");
-
- /* Reset sound after finished playing. */
- PlayANSISound("00m");
-
-
- /* Wait for user to press a key before returning to the BBS. */
- od_printf("\n\rPress any key to return to BBS...\n\r");
- od_get_key(TRUE);
- od_exit(0, FALSE);
- return(0);
-}
-
-
-/* Function to test whether the user's terminal program supports ANSI music. */
-/* You can either do this every time the user uses your program, or only the */
-/* first time they use the program, saving the result in a data file. */
-char TestSound(void)
-{
- /* Variable to store user's response to question. */
- char chResponse;
-
- /* Display description of test to user. */
- od_printf("We need to know whether or not your terminal program supports ANSI music.\n\r");
- od_printf("In order to test this, we will send a short ANSI music sequence. We will then\n\r");
- od_printf("ask whether or not you heard any sound.\n\r");
- od_printf("Press any key to begin this test... ");
-
- /* Wait for user to press a key to begin. */
- od_get_key(TRUE);
- od_printf("\n\r\n\r");
-
- /* Temporarily enable sound. */
- bSoundEnabled = TRUE;
-
- /* Send sound test sequence. */
- PlayANSISound("MBT120L4MFMNO4C8C8DC");
-
- /* Reset sound after finished test. */
- PlayANSISound("00m");
-
- /* Clear screen and ask whether user heard the sound. */
- od_clr_scr();
- od_printf("Did you just hear sound from your speaker? (Y/n)");
- chResponse = od_get_answer("YN");
-
- /* Set ANSI music on/off according to user's response. */
- bSoundEnabled = (chResponse == 'Y');
-
- return(bSoundEnabled);
-}
-
-
-/* Function to play "ANSI" music or sound effects. The play_sound() function
- * can be called with a string of 0 to 250 characters. The caracters of the
- * string define what sounds should be played on the remote speaker, as
- * follows:
- *
- * A - G Musical Notes
- * # or + Following A-G note means sharp
- * - Following A-G note means flat
- * < Move down one octave
- * > Move up one octave
- * . Period acts as dotted note (extend note duration by 3/2)
- * MF Music Foreground (pause until finished playing music)
- * MB Music Background (continue while music plays)
- * MN Music note duration Normal (7/8 of interval between notes)
- * MS Music note duration Staccato
- * ML Music note duration Legato
- * Ln Length of note (n=1-64, 1=whole note, 4=quarter note, etc)
- * Pn Pause length (same n values as Ln above)
- * Tn Tempo, n=notes/minute (n=32-255, default n=120)
- * On Octave number (n=0-6, default n=4)
- */
-
-void PlayANSISound(char *pszSounds)
-{
- /* Beginning of sound sequence. */
- char szStartSound[255] = {27, '[', '\0'};
-
- /* Abort if sound is not enabled. */
- if(!bSoundEnabled) return;
-
- /* Send sequence to start playing sound to remote system only. */
- od_disp(szStartSound, strlen(szStartSound), FALSE);
-
- /* Send the sounds codes to the remote system only. */
- od_disp(pszSounds, strlen(pszSounds), FALSE);
-}
diff --git a/src/odoors/ex_ski.c b/src/odoors/ex_ski.c
deleted file mode 100644
index 784347a63a3039d2a10622dfbd52eac0f294d8fa..0000000000000000000000000000000000000000
--- a/src/odoors/ex_ski.c
+++ /dev/null
@@ -1,601 +0,0 @@
-/* EX_SKI.C - EX_SKI is a simple but addictive door game that is written */
-/* using OpenDoors. In this action game, the player must control */
-/* a skier through a downhill slalom course. The user may turn */
-/* the skier left or right, and the game ends as soon as the */
-/* player skis outside the marked course. The game begins at */
-/* an easy level, but quickly becomes more and more difficult */
-/* as the course to be navigated becomes more and more narrow. */
-/* The game maintains a list of players with high scores, and */
-/* this list may be viewed from the main menu. */
-/* */
-/* This program shows how to do the following: */
-/* */
-/* - Maintain a high-score file in a game, in a multi-node */
-/* compatible manner. */
-/* - How to use your own terminal control sequences. */
-/* - How to perform reasonably percise timing under both DOS */
-/* and Windows. */
-
-
-/* Header file for the OpenDoors API */
-#include "OpenDoor.h"
-
-/* Other required C header files */
-#include <string.h>
-#include <stdio.h>
-#include <time.h>
-#include <errno.h>
-#include <stdlib.h>
-#include <genwrap.h>
-
-
-/* Hard-coded configurable constants - change these values to alter game */
-#define HIGH_SCORES 15 /* Number of high scores in list */
-#define INITIAL_COURSE_WIDTH 30 /* Initial width of ski course */
-#define MINIMUM_COURSE_WIDTH 4 /* Minimum width of course */
-#define DECREASE_WIDTH_AFTER 100 /* # of ticks before course narrows */
-#define CHANGE_DIRECTION 10 /* % of ticks course changes direction */
-#define MAX_NAME_SIZE 35 /* Maximum characters in player name */
-#define WAIT_FOR_FILE 10 /* Time to wait for access to file */
-#define SCORE_FILENAME "SKIGAME.DAT" /* Name of high score file */
-
-
-/* High-score file format structure */
-typedef struct
-{
- char szPlayerName[MAX_NAME_SIZE + 1];
- DWORD lnHighScore;
- time_t lnPlayDate;
-} tHighScoreRecord;
-
-typedef struct
-{
- tHighScoreRecord aRecord[HIGH_SCORES];
-} tHighScoreFile;
-
-
-/* Prototypes for functions defined and used in this file */
-FILE *OpenAndReadHighScores(tHighScoreFile *pFileContents);
-void CloseHighScores(FILE *pfHighScoreFile);
-void WriteHighScores(FILE *pfHighScoreFile, tHighScoreFile *pFileContents);
-FILE *OpenExclusiveFile(char *pszFileName, char *pszAccess, time_t Wait);
-int FileExists(char *pszFileName);
-void ShowHighScores(void);
-void PlayGame(void);
-void SpaceRight(int nColumns);
-void MoveLeft(int nColumns);
-int AddHighScore(tHighScoreFile *pHighScores, tHighScoreRecord *pScoreRecord);
-
-
-/* The main() or WinMain() function: program execution begins here. */
-#ifdef ODPLAT_WIN32
-int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
-#else
-int main(int argc, char *argv[])
-#endif
-{
- char chMenuChoice;
-
-#ifdef ODPLAT_WIN32
- /* In Windows, pass in nCmdShow value to OpenDoors. */
- od_control.od_cmd_show = nCmdShow;
-#endif
-
- /* Set program's name for use by OpenDoors. */
- strcpy(od_control.od_prog_name, "Grand Slalom");
- strcpy(od_control.od_prog_version, "Version 6.00");
- strcpy(od_control.od_prog_copyright, "Copyright 1991-1996 by Brian Pirie");
-
- /* Call the standard command-line parsing function. You will probably */
- /* want to do this in most programs that you write using OpenDoors, as it */
- /* automatically provides support for many standard command-line options */
- /* that will make the use and setup of your program easer. For details, */
- /* run the vote program with the /help command line option. */
-#ifdef ODPLAT_WIN32
- od_parse_cmd_line(lpszCmdLine);
-#else
- od_parse_cmd_line(argc, argv);
-#endif
-
- /* Loop until the user chooses to exit the door */
- do
- {
- /* Clear the screen */
- od_clr_scr();
-
- /* Display program title */
- od_printf("`bright white` ��� ��� ��� �� � ��� ��� � ��� � ��� �����\n\r");
- od_printf("`bright red`����������������`bright white`���`bright red`�`bright white`���`bright red`�`bright white`���`bright red`�`bright white`�`bright red`�`bright white`��`bright red`�`bright white`�");
- od_printf("`bright red`�`bright white`�`bright red`���`bright white`���`bright red`�`bright white`�`bright red`���`bright white`���`bright red`�`bright white`�`bright red`���`bright white`�");
- od_printf("`bright red`�`bright white`�`bright red`�`bright white`�`bright red`�`bright white`�`bright red`�`bright white`�`bright red`���������������\n\r");
- od_printf("`bright white` ��� � � � � � � �� ��� ��� � � ��� ��� � � �\n\r\n\r");
-
- /* Display instructions */
- od_printf("`dark green`Prepare yourself for the challenge of Grand Slalom downhill skiing!\n\r\n\r");
- od_printf("When `flashing dark green`playing`dark green` the game, press:\n\r");
- od_printf("`dark green` [`bright green`Q`dark green`] key to ski left\n\r");
- od_printf(" [`bright green`W`dark green`] key to ski right\n\r\n\r");
- od_printf("All that you have to do is ski within the slalom course.\n\r");
- od_printf("It may sound easy - but be warned - it gets harder as you go!\n\r");
- od_printf("(Each time you hear the beep, the course becomes a bit narrower.)\n\r\n\r");
-
- /* Get menu choice from user. */
- od_printf("`bright white`Now, press [ENTER] to begin game, [H] to view High Scores, [E] to Exit: ");
- chMenuChoice = od_get_answer("HE\n\r");
-
- /* Perform appropriate action based on user's choice */
- switch(chMenuChoice)
- {
- case '\n':
- case '\r':
- /* If user chooses to play the game */
- PlayGame();
- break;
-
- case 'H':
- /* If user chose to view high scores */
- ShowHighScores();
- break;
-
- case 'E':
- /* If user chose to return to BBS */
- od_printf("\n\rGoodbye from SKIGAME!\n\r");
- break;
- }
- } while(chMenuChoice != 'E');
-
- /* Exit door at errorlevel 10, and do not hang up */
- od_exit(10, FALSE);
- return(1);
-}
-
-
-/* OpenAndReadHighScores() - Opens high score file and reads contents. If */
-/* file does not exist, it is created. File is */
-/* locked to serialize access by other nodes on */
-/* this system. */
-FILE *OpenAndReadHighScores(tHighScoreFile *pFileContents)
-{
- FILE *pfFile;
- int iHighScore;
-
- /* If high score file does not exist */
- if(!FileExists(SCORE_FILENAME))
- {
- /* Open and create it */
- pfFile = OpenExclusiveFile(SCORE_FILENAME, "wb", WAIT_FOR_FILE);
-
- /* If open was successful */
- if(pfFile != NULL)
- {
- /* Initialize new high score list */
- for(iHighScore = 0; iHighScore < HIGH_SCORES; ++iHighScore)
- {
- pFileContents->aRecord[iHighScore].lnHighScore = 0L;
- }
-
- /* Write high score list to the file */
- WriteHighScores(pfFile, pFileContents);
- }
- }
-
- /* If high score file does exit */
- else
- {
- /* Open the existing file */
- pfFile = OpenExclusiveFile(SCORE_FILENAME, "r+b",
- WAIT_FOR_FILE);
-
- /* Read the contents of the file */
- if(fread(pFileContents, sizeof(tHighScoreFile), 1, pfFile) != 1)
- {
- /* If unable to read file, then return with an error */
- fclose(pfFile);
- pfFile = NULL;
- }
- }
-
- /* Return pointer to high score file, if avilable */
- return(pfFile);
-}
-
-
-/* FileExists() - Returns TRUE if file exists, otherwise returns FALSE */
-int FileExists(char *pszFileName)
-{
- /* Attempt to open the specified file for reading. */
- FILE *pfFile = OpenExclusiveFile(pszFileName, "rb", WAIT_FOR_FILE);
-
- if(pfFile != NULL)
- {
- /* If we are able to open the file, then close it and return */
- /* indicating that it exists. */
- fclose(pfFile);
- return(TRUE);
- }
- else
- {
- /* If we are unable to open the file, we proceed as if the file */
- /* doesn't exist (note that this may not always be a valid assumption) */
- return(FALSE);
- }
-}
-
-
-/* OpenExclusiveFile() - Opens a file for exclusive access, waiting if the */
-/* file is not currently available. */
-FILE *OpenExclusiveFile(char *pszFileName, char *pszAccess, time_t Wait)
-{
- FILE *pfFile;
- time_t StartTime = time(NULL);
-
- for(;;)
- {
- /* Attempt to open file */
- pfFile = fopen(pszFileName, pszAccess);
-
- /* If file was opened successfuly, then exit */
- if(pfFile != NULL) break;
-
- /* If open failed, but not due to access failure, then exit */
- if(errno != EACCES) break;
-
- /* If maximum time has elapsed, then exit */
- if(StartTime + Wait < time(NULL)) break;
-
- /* Give the OpenDoors kernel a chance to execute before trying again */
- od_kernel();
- }
-
- /* Return pointer to file, if opened */
- return(pfFile);
-}
-
-
-/* CloseHighScores() - Closes the high score file, allowing other nodes on */
-/* system to access it. */
-void CloseHighScores(FILE *pfHighScoreFile)
-{
- if(pfHighScoreFile != NULL)
- {
- fclose(pfHighScoreFile);
- }
-}
-
-
-/* WriteHighScores() - Writes the information from pFileContents to the */
-/* high score file. */
-void WriteHighScores(FILE *pfHighScoreFile, tHighScoreFile *pFileContents)
-{
- if(pfHighScoreFile != NULL)
- {
- fseek(pfHighScoreFile, 0L, SEEK_SET);
- fwrite(pFileContents, sizeof(tHighScoreFile), 1, pfHighScoreFile);
- }
-}
-
-
-/* ShowHighScores() - Called From DoDoor() to display list of high scores */
-void ShowHighScores(void)
-{
- FILE *pfFile;
- tHighScoreFile HighScores;
- int iHighScore;
- struct tm *pTimeBlock;
- char szTimeString[34];
-
- /* Clear the screen */
- od_clr_scr();
-
- /* Attempt to read high scores from file */
- pfFile = OpenAndReadHighScores(&HighScores);
- CloseHighScores(pfFile);
-
- if(pfFile == NULL)
- {
- /* If unable to open high score file, display an error message */
- od_printf("`bright red`Unable to access high score file!\n\r");
- }
- else
- {
- /* Display header line */
- od_printf("`bright green`Player Score "
- "Record Date`dark green`\n\r");
- od_printf("�������������������������������������������������������������������������������\n\r");
-
- /* Display high scores */
- for(iHighScore = 0; iHighScore < HIGH_SCORES; ++iHighScore)
- {
- /* Exit loop when we have reached the end of the high scores */
- if(HighScores.aRecord[iHighScore].lnHighScore == 0L) break;
-
- /* Get local time when player set the high score */
- pTimeBlock = localtime(&HighScores.aRecord[iHighScore].lnPlayDate);
- strftime(szTimeString, sizeof(szTimeString),
- "%B %d, %Y at %I:%M%p", pTimeBlock);
-
- /* Display next high score */
- od_printf("%-32.32s %-8ld %s\n\r",
- HighScores.aRecord[iHighScore].szPlayerName,
- HighScores.aRecord[iHighScore].lnHighScore,
- szTimeString);
- }
- }
-
- /* Display footer line */
- od_printf("�������������������������������������������������������������������������������\n\r\n\r");
-
- /* Wait for user to press a key */
- od_printf("`bright white`Press [ENTER]/[RETURN] to continue: ");
- od_get_answer("\n\r");
-}
-
-
-/* PlayGame() - Called from DoDoor() when user chooses to play a game. */
-void PlayGame(void)
-{
- int nLeftEdge = 1;
- int nRightEdge = nLeftEdge + 1 + INITIAL_COURSE_WIDTH;
- int nPlayerPos = nLeftEdge + 1 + (INITIAL_COURSE_WIDTH / 2);
- long lnScore = 0;
- int nDistanceSinceShrink = 0;
- int bMovingRight = TRUE;
- char cKeyPress;
- tHighScoreRecord ScoreRecord;
- FILE *pfFile;
- tHighScoreFile HighScores;
- int nBackup;
- clock_t StartClock;
-
- /* Clear the Screen */
- od_set_color(L_WHITE, B_BLACK);
- od_clr_scr();
-
- /* Set current display colour to white */
- od_set_attrib(L_WHITE);
-
- /* Re-seed random number generator */
- srand((unsigned int)time(NULL));
-
- /* Loop until game is over */
- for(;;)
- {
- StartClock = clock();
-
- /* Display current line */
- if(od_control.user_ansi || od_control.user_avatar)
- {
- SpaceRight(nLeftEdge - 1);
- od_set_color(L_WHITE, D_RED);
- od_putch((char)223);
- od_repeat((unsigned char)219,
- (unsigned char)(nPlayerPos - nLeftEdge - 1));
- od_putch((char)254);
- od_repeat((unsigned char)219,
- (unsigned char)(nRightEdge - nPlayerPos - 1));
- od_putch((char)223);
- nBackup = nRightEdge - nPlayerPos + 1;
- }
- else
- {
- /* If neither ANSI nor AVATAR modes are active, then display */
- /* course using plain-ASCII. */
- SpaceRight(nLeftEdge - 1);
- od_putch((char)(bMovingRight ? '\\' : '/'));
- SpaceRight(nPlayerPos - nLeftEdge - 1);
- od_putch('o');
- SpaceRight(nRightEdge - nPlayerPos - 1);
- od_putch((char)(bMovingRight ? '\\' : '/'));
- }
-
- /* Loop for each key pressed by user */
- while((cKeyPress = (char)od_get_key(FALSE)) != '\0')
- {
- if(cKeyPress == 'q' || cKeyPress == 'Q')
- {
- /* Move left */
- --nPlayerPos;
- }
- else if(cKeyPress == 'w' || cKeyPress == 'W')
- {
- /* Move right */
- ++nPlayerPos;
- }
- }
-
- /* Check whether course should turn */
- if((rand() % 100) < CHANGE_DIRECTION)
- {
- bMovingRight = !bMovingRight;
- }
- else
- {
- /* If no change in direction, then position moves */
- /* Adjust course position appropriately */
- if(bMovingRight)
- {
- ++nLeftEdge;
- ++nRightEdge;
- }
- else
- {
- --nLeftEdge;
- --nRightEdge;
- }
- }
-
- /* Check whether course size should shink */
- if(++nDistanceSinceShrink >= DECREASE_WIDTH_AFTER)
- {
- /* Reset distance */
- nDistanceSinceShrink = 0;
-
- /* Randomly choose a side to shrink */
- if((rand() % 100) < 50)
- {
- ++nLeftEdge;
- }
- else
- {
- --nRightEdge;
- }
-
- /* Beep when we shrink the size. */
- od_printf("\a");
- }
-
- /* Change course direction if it collides with edge of screen */
- if(nLeftEdge < 1)
- {
- bMovingRight = TRUE;
- ++nLeftEdge;
- ++nRightEdge;
- }
- else if(nRightEdge > 79)
- {
- bMovingRight = FALSE;
- --nLeftEdge;
- --nRightEdge;
- }
-
- /* Check that player is still within the course */
- if(nPlayerPos <= nLeftEdge || nPlayerPos >= nRightEdge)
- {
- /* Player has left course - game over! */
- od_set_color(D_GREY, D_BLACK);
- od_clr_scr();
- od_printf("`bright red` !!! Game Over !!!\n\r\n\r");
- od_printf("`dark green`You have veered off the course!\n\r\n\r");
- od_printf("Your Score is: %ld\n\r", lnScore);
-
- /* Create a score record */
- ScoreRecord.lnHighScore = lnScore;
- strncpy(ScoreRecord.szPlayerName, od_control.user_name, MAX_NAME_SIZE);
- ScoreRecord.szPlayerName[MAX_NAME_SIZE] = '\0';
- ScoreRecord.lnPlayDate = time(NULL);
-
- /* Attempt to read high scores from file */
- pfFile = OpenAndReadHighScores(&HighScores);
-
- if(pfFile == NULL)
- {
- /* If unable to open high score file, display an error message */
- od_printf("`bright red`Unable to access high score file!\n\r");
- }
- else
- {
- /* Check whether user made it to high score list */
- if(AddHighScore(&HighScores, &ScoreRecord))
- {
- od_printf("Congratulations! You have made it to the high score list!\n\r");
- /* If so, write the new high score list */
- WriteHighScores(pfFile, &HighScores);
- }
-
- /* Close and unlock file */
- CloseHighScores(pfFile);
- }
-
- /* Wait for user to press enter */
- od_printf("`bright white`\n\rPress [ENTER]/[RETURN] to return to menu: ");
- od_get_answer("\n\r");
-
- return;
- }
-
- /* Delay for about 1/18th of a second, to add a constant delay after */
- /* each line is displayed that does not depend on the connect speed. */
- while(clock() < StartClock + (((clock_t)CLOCKS_PER_SEC) / 18))
- od_sleep(0);
-
- /* Increase score */
- ++lnScore;
-
- /* Replace skiier character with track character */
- if(od_control.user_ansi)
- {
- MoveLeft(nBackup);
- od_set_color(L_WHITE, D_GREY);
- od_putch((char)178);
- od_set_color(L_WHITE, B_BLACK);
- }
-
- /* Move to next line */
- od_printf("\r\n");
- }
-}
-
-
-/* SpaceRight() - Moves right the specified number of columns. In ANSI mode, */
-/* uses the move cursor right control sequence. Otherwise, */
-/* uses od_repeat(), which is optimized for ASCII and AVATAR */
-/* modes. */
-void SpaceRight(int nColumns)
-{
- char szSequence[6];
-
- /* If we don't have a positive column count, then return immediately */
- if(nColumns <= 0) return;
-
- /* If operating in ANSI mode */
- if(od_control.user_ansi)
- {
- /* Move cursor right using ESC[nC control sequence */
- sprintf(szSequence, "\x1b[%02.2dC", nColumns);
- od_disp_emu(szSequence, TRUE);
- }
-
- /* If not operating in ANSI mode */
- else
- {
- od_repeat(' ', (unsigned char)nColumns);
- }
-}
-
-
-/* MoveLeft() - Moves the cursor right the specified number of columns. */
-/* Intended for use in ANSI mode only. */
-void MoveLeft(int nColumns)
-{
- /* Move cursor left using ESC[nD control sequence */
- char szSequence[6];
- sprintf(szSequence, "\x1b[%02.2dD", nColumns);
- od_disp_emu(szSequence, TRUE);
-}
-
-
-/* AddHighScore() - Adds a new score to the high score list, if it is high */
-/* enough. Returns TRUE if score is added, FALSE otherwise. */
-int AddHighScore(tHighScoreFile *pHighScores, tHighScoreRecord *pScoreRecord)
-{
- int iHighScore;
- int iExistingScore;
-
- /* Loop through each existing high score */
- for(iHighScore = 0; iHighScore < HIGH_SCORES; ++iHighScore)
- {
- /* If new score is greater than or equal to this one, then its */
- /* position has been found. */
- if(pHighScores->aRecord[iHighScore].lnHighScore <=
- pScoreRecord->lnHighScore)
- {
- /* Move remaining scores down one in list */
- for(iExistingScore = HIGH_SCORES - 1; iExistingScore >= iHighScore + 1;
- --iExistingScore)
- {
- pHighScores->aRecord[iExistingScore] =
- pHighScores->aRecord[iExistingScore - 1];
- }
-
- /* Add new score to list */
- pHighScores->aRecord[iHighScore] = *pScoreRecord;
-
- /* Return with success */
- return(TRUE);
- }
- }
-
- /* Score did not make it to list */
- return(FALSE);
-}
diff --git a/src/odoors/ex_vote.c b/src/odoors/ex_vote.c
deleted file mode 100644
index 15afb65b6e98754f4dfc65064ef3adce0c2da78f..0000000000000000000000000000000000000000
--- a/src/odoors/ex_vote.c
+++ /dev/null
@@ -1,1294 +0,0 @@
-/* EX_VOTE.C - This program demonstrates an online voting program that is */
-/* written using OpenDoors. The Vote program allows users to */
-/* create questions or surveys for other users to respond to. */
-/* Users are also able to view the results of voting on each */
-/* topic. The program supports up to 200 questions, and can be */
-/* configured to either allow or disallow viewing of results */
-/* prior to voting. */
-/* */
-/* This program shows how to do the following: */
-/* */
-/* - How to display text using od_printf(), using imbedded */
-/* strings to change the display color. */
-/* - Add support for standard command-line options. */
-/* - Use the OpenDoors configuration file system, including */
-/* adding your own configuration file options. */
-/* - Activate the OpenDoors log file system and write */
-/* information to the log file. */
-/* - Display a menu from an external ASCI/ANSI/Avatar/RIP */
-/* file. */
-/* - How to setup a user file and general data file, and how */
-/* to access it in a multi-node compatible way (if */
-/* MULTINODE_AWARE is defined). */
-/* */
-/* To recompile this program, follow the instructions in the */
-/* OpenDoors manual. For a DOS compiler, be sure to set your */
-/* compiler to use the large memory model, and add the */
-/* ODOORL.LIB file to your project/makefile. */
-
-/* Uncomment the following line for multi-node compatible file access. */
-/* #define MULTINODE_AWARE */
-
-/* Include standard C header files required by Vote. */
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <time.h>
-#include <errno.h>
-#include <ctype.h>
-
-/* Include the OpenDoors header file. This line must be done in any program */
-/* using OpenDoors. */
-#include "OpenDoor.h"
-
-#ifdef MULTINODE_AWARE
-#include <filewrap.h>
-#endif
-#include <genwrap.h>
-
-/* Manifest constants used by Vote */
-#define NO_QUESTION -1
-#define NEW_ANSWER -1
-
-#define QUESTIONS_VOTED_ON 0x0001
-#define QUESTIONS_NOT_VOTED_ON 0x0002
-
-#define MAX_QUESTIONS 200
-#define MAX_USERS 30000
-#define MAX_ANSWERS 15
-#define QUESTION_STR_SIZE 71
-#define ANSWER_STR_SIZE 31
-
-#define USER_FILENAME "VOTE.USR"
-#define QUESTION_FILENAME "VOTE.QST"
-
-#define FILE_ACCESS_MAX_WAIT 20
-
-#define QUESTION_PAGE_SIZE 17
-
-
-/* Structure of records stored in the VOTE.USR file */
-typedef struct
-{
- char szUserName[36];
- BYTE bVotedOnQuestion[MAX_QUESTIONS];
-} tUserRecord;
-
-tUserRecord CurrentUserRecord;
-int nCurrentUserNumber;
-
-
-/* Structure of records stored in the VOTE.QST file */
-typedef struct
-{
- char szQuestion[72];
- char aszAnswer[MAX_ANSWERS][32];
- INT32 nTotalAnswers;
- DWORD auVotesForAnswer[MAX_ANSWERS];
- DWORD uTotalVotes;
- DWORD bCanAddAnswers;
- char szCreatorName[36];
- time_t lCreationTime;
-} tQuestionRecord;
-
-
-/* Global variables. */
-int nViewResultsFrom = QUESTIONS_VOTED_ON;
-int nQuestionsVotedOn = 0;
-
-
-/* Prototypes for functions that form EX_VOTE */
-void CustomConfigFunction(char *pszKeyword, char *pszOptions);
-void BeforeExitFunction(void);
-void VoteOnQuestion(void);
-void ViewResults(void);
-int GetQuestion(int nQuestion, tQuestionRecord *pQuestionRecord);
-void AddQuestion(void);
-int ChooseQuestion(int nFromWhichQuestions, char *pszTitle, int *nLocation);
-void DisplayQuestionResult(tQuestionRecord *pQuestionRecord);
-int ReadOrAddCurrentUser(void);
-void WriteCurrentUser(void);
-FILE *ExclusiveFileOpen(char *pszFileName, char *pszMode, int *phHandle);
-void ExclusiveFileClose(FILE *pfFile, int hHandle);
-void WaitForEnter(void);
-
-
-/* main() or WinMain() function - Program execution begins here. */
-#ifdef ODPLAT_WIN32
-int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
- LPSTR lpszCmdLine, int nCmdShow)
-#else
-int main(int argc, char *argv[])
-#endif
-{
- /* Variable to store user's choice from the menu */
- char chMenuChoice = '\0';
- char chYesOrNo;
-
-#ifdef ODPLAT_WIN32
- /* In Windows, pass in nCmdShow value to OpenDoors. */
- od_control.od_cmd_show = nCmdShow;
-
- /* Ignore unused parameters. */
- (void)hInstance;
- (void)hPrevInstance;
-#endif
-
- /* Set program's name for use by OpenDoors. */
- strcpy(od_control.od_prog_name, "Vote");
- strcpy(od_control.od_prog_version, "Version 6.00");
- strcpy(od_control.od_prog_copyright, "Copyright 1991-1996 by Brian Pirie");
-
- /* Call the standard command-line parsing function. You will probably */
- /* want to do this in most programs that you write using OpenDoors, as it */
- /* automatically provides support for many standard command-line options */
- /* that will make the use and setup of your program easer. For details, */
- /* run the vote program with the /help command line option. */
-#ifdef ODPLAT_WIN32
- od_parse_cmd_line(lpszCmdLine);
-#else
- od_parse_cmd_line(argc, argv);
-#endif
-
- /* Enable use of OpenDoors configuration file system. */
- od_control.od_config_file = INCLUDE_CONFIG_FILE;
-
- /* Set function to process custom configuration file lines. */
- od_control.od_config_function = CustomConfigFunction;
-
- /* Include the OpenDoors multiple personality system, which allows */
- /* the system operator to set the sysop statusline / function key set */
- /* to mimic the BBS software of their choice. */
- od_control.od_mps = INCLUDE_MPS;
-
- /* Include the OpenDoors log file system, which will record when the */
- /* door runs, and major activites that the user performs. */
- od_control.od_logfile = INCLUDE_LOGFILE;
-
- /* Set filename for log file. If not set, DOOR.LOG will be used by */
- /* default. */
- strcpy(od_control.od_logfile_name, "VOTE.LOG");
-
- /* Set function to be called before program exits. */
- od_control.od_before_exit = BeforeExitFunction;
-
- /* Initialize OpenDoors. This function call is optional, and can be used */
- /* to force OpenDoors to read the door informtion file and begin door */
- /* operations. If a call to od_init() is not included in your program, */
- /* OpenDoors initialization will be performed at the time of your first */
- /* call to any OpenDoors function. */
- od_init();
-
- /* Call the Vote function ReadOrAddCurrentUser() to read the current */
- /* user's record from the Vote user file, or to add the user to the */
- /* file if this is the first time that they have used Vote. */
- if(!ReadOrAddCurrentUser())
- {
- /* If unable to obtain a user record for the current user, then exit */
- /* the door after displaying an error message. */
- od_printf("Unable to access user file. File may be locked or full.\n\r");
- WaitForEnter();
- od_exit(1, FALSE);
- }
-
- /* Loop until the user choses to exit the door. For each iteration of */
- /* this loop, we display the main menu, get the user's choice from the */
- /* menu, and perform the appropriate action for their choice. */
-
- while(chMenuChoice != 'E' && chMenuChoice != 'H')
- {
- /* Clear the screen */
- od_clr_scr();
-
- /* Display main menu. */
-
- /* First, attempt to display menu from an VOTE.ASC/ANS/AVT/RIP file. */
- if((chMenuChoice = od_hotkey_menu("VOTE", "VRADPEH", TRUE)) == 0)
- {
- /* If the VOTE file could not be displayed, display our own menu. */
- od_printf("`bright red` Vote - OpenDoors 6.00 example program\n\r");\
- od_printf("`dark red`");
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat((unsigned char)196, 79);
- }
- else
- {
- od_repeat('-', 79);
- }
- od_printf("\n\r\n\r\n\r`dark green`");
- od_printf(" [`bright green`V`dark green`] Vote on a question\n\r\n\r");
- od_printf(" [`bright green`R`dark green`] View the results of question\n\r\n\r");
- od_printf(" [`bright green`A`dark green`] Add a new question\n\r\n\r");
- od_printf(" [`bright green`P`dark green`] Page system operator for chat\n\r\n\r");
- od_printf(" [`bright green`E`dark green`] Exit door and return to the BBS\n\r\n\r");
- od_printf(" [`bright green`H`dark green`] End call (hangup)\n\r\n\r\n\r");
- od_printf("`bright white`Press the key corresponding to the option of your choice. (%d mins)\n\r`dark green`",
- od_control.user_timelimit);
- \
- /* Get the user's choice from the main menu. This choice may only be */
- /* V, R, A, D, P, E or H. */
- chMenuChoice = od_get_answer("VRADPEH");
- }
-
- /* Perform the appropriate action based on the user's choice */
- switch(chMenuChoice)
- {
- case 'V':
- /* Call Vote's function to vote on question */
- VoteOnQuestion();
- break;
-
- case 'R':
- /* Call Vote's function to view the results of voting */
- ViewResults();
- break;
-
- case 'A':
- /* Call Vote's function to add a new question. */
- AddQuestion();
- break;
-
- case 'P':
- /* If the user pressed P, allow them page the system operator. */
- od_page();
- break;
-
- case 'H':
- /* If the user pressed H, ask whether they wish to hangup. */
- od_printf("\n\rAre you sure you wish to hangup? (Y/N) ");
-
- /* Get user's response */
- chYesOrNo = od_get_answer("YN");
-
- if(chYesOrNo == 'N')
- {
- /* If user answered no, then reset menu choice, so that */
- /* program will not exit. */
- chMenuChoice = '\0';
- }
- break;
- }
- }
-
- if(chMenuChoice == 'H')
- {
- /* If the user chooses to hangup, then hangup when exiting. */
- od_exit(0, TRUE);
- }
- else
- {
- /* Otherwise, exit normally (without hanging up). */
- od_printf("Returning to BBS, please wait...\n\r");
- od_exit(0, FALSE);
- }
-
- return(0);
-}
-
-
-/* CustomConfigFunction() is called by OpenDoors to process custom */
-/* configuration file keywords that Vote uses. */
-void CustomConfigFunction(char *pszKeyword, char *pszOptions)
-{
- if(stricmp(pszKeyword, "ViewUnanswered") == 0)
- {
- /* If keyword is ViewUnanswered, set local variable based on contents */
- /* of options string. */
- if(stricmp(pszOptions, "Yes") == 0)
- {
- nViewResultsFrom = QUESTIONS_VOTED_ON | QUESTIONS_NOT_VOTED_ON;
- }
- else if(stricmp(pszOptions, "No") == 0)
- {
- nViewResultsFrom = QUESTIONS_VOTED_ON;
- }
- }
-}
-
-
-/* Vote configures OpenDoors to call the BeforeExitFunction() before */
-/* the door exists for any reason. You can use this function to close any */
-/* files or perform any other operations that you wish to have peformed */
-/* before OpenDoors exists for any reason. The od_control.od_before_exit */
-/* variable sets the function to be called before program exit. */
-void BeforeExitFunction(void)
-{
- char szLogMessage[80];
-
- /* Write number of messages voted on to log file. */
- sprintf(szLogMessage, "User has voted on %d question(s)",
- nQuestionsVotedOn);
- od_log_write(szLogMessage);
-}
-
-
-/* Vote calls the VoteOnQuestion() function when the user chooses the */
-/* vote command from the main menu. This function displays a list of */
-/* available topics, asks for the user's answer to the topic they select, */
-/* and display's the results of voting on that topic. */
-void VoteOnQuestion(void)
-{
- int nQuestion;
- int nAnswer;
- tQuestionRecord QuestionRecord;
- char szNewAnswer[ANSWER_STR_SIZE];
- char szUserInput[3];
- FILE *fpFile;
- int hFile;
- int nPageLocation = 0;
-
- /* Loop until the user chooses to return to the main menu, or until */
- /* there are no more questions to vote on. */
- for(;;)
- {
- /* Allow the user to choose a question from the list of questions */
- /* that they have not voted on. */
- nQuestion = ChooseQuestion(QUESTIONS_NOT_VOTED_ON,
- " Vote On A Question\n\r",
- &nPageLocation);
-
-
- /* If the user did not choose a question, return to main menu. */
- if(nQuestion == NO_QUESTION)
- {
- return;
- }
-
- /* Read the question chosen by the user. */
- if(!GetQuestion(nQuestion, &QuestionRecord))
- {
- /* If unable to access file, return to main menu. */
- return;
- }
-
- /* Don't allow addition of new answers if maximum number of answers */
- /* have already been added. */
- if(QuestionRecord.nTotalAnswers >= MAX_ANSWERS)
- {
- QuestionRecord.bCanAddAnswers = FALSE;
- }
-
- /* Loop until user makes a valid respose. */
- for(;;)
- {
- /* Display question to user. */
-
- /* Clear the screen. */
- od_clr_scr();
-
- /* Display question itself. */
- od_printf("`bright red`%s\n\r\n\r", QuestionRecord.szQuestion);
-
- /* Loop for each answer to the question. */
- for(nAnswer = 0; nAnswer < QuestionRecord.nTotalAnswers; ++nAnswer)
- {
- /* Display answer number and answer. */
- od_printf("`bright green`%d. `dark green`%s\n\r",
- nAnswer + 1,
- QuestionRecord.aszAnswer[nAnswer]);
- }
-
- /* Display prompt to user. */
- od_printf("\n\r`bright white`Enter answer number, ");
- if(QuestionRecord.bCanAddAnswers)
- {
- od_printf("[A] to add your own response, ");
- }
- od_printf("[Q] to quit: `dark green`");
-
- /* Get response from user. */
- od_input_str(szUserInput, 2, ' ', 255);
- /* Add a blank line. */
- od_printf("\n\r");
-
- /* If user entered Q, return to main menu. */
- if(stricmp(szUserInput, "Q") == 0)
- {
- return;
- }
-
- /* If user enetered A, and adding answers is premitted ... */
- else if (stricmp(szUserInput, "A") == 0
- && QuestionRecord.bCanAddAnswers)
- {
- /* ... Prompt for answer from user. */
- od_printf("`bright green`Please enter your new answer:\n\r");
- od_printf("`dark green`[------------------------------]\n\r ");
-
- /* Get string from user. */
- od_input_str(szNewAnswer, ANSWER_STR_SIZE - 1, ' ', 255);
-
- /* Record that user entered a new answer answer. */
- nAnswer = NEW_ANSWER;
-
- /* If user entered a valid answer, then exit loop. */
- if(strlen(szNewAnswer) > 0)
- {
- break;
- }
- }
-
- /* Otherwise, attempt to get answer number from user. */
- nAnswer = atoi(szUserInput) - 1;
-
- /* If user input is not a valid answer. */
- if(nAnswer < 0 || nAnswer >= QuestionRecord.nTotalAnswers)
- {
- /* Display message. */
- od_printf("That is not a valid response.\n\r");
- WaitForEnter();
- }
- else
- {
- /* Otherwise, exit loop. */
- break;
- }
- }
-
- /* Add user's vote to question. */
-
- /* Open question file for exclusive access by this node. */
- fpFile = ExclusiveFileOpen(QUESTION_FILENAME, "r+b", &hFile);
- if(fpFile == NULL)
- {
- /* If unable to access file, display error and return. */
- od_printf("Unable to access the question file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Read the answer record from disk, because it may have been changed. */
- /* by another node. */
- fseek(fpFile, (long)nQuestion * sizeof(tQuestionRecord), SEEK_SET);
- if(fread(&QuestionRecord, sizeof(tQuestionRecord), 1, fpFile) != 1)
- {
- /* If unable to access file, display error and return. */
- ExclusiveFileClose(fpFile, hFile);
- od_printf("Unable to read from question file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* If user entered their own answer, try to add it to the question. */
- if(nAnswer == NEW_ANSWER)
- {
- /* Check that there is still room for another answer. */
- if(QuestionRecord.nTotalAnswers >= MAX_ANSWERS)
- {
- ExclusiveFileClose(fpFile, hFile);
- od_printf("Sorry, this question already has the maximum number of answers.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Set answer number to number of new answer. */
- nAnswer = QuestionRecord.nTotalAnswers;
-
- /* Add 1 to total number of answers. */
- ++QuestionRecord.nTotalAnswers;
-
- /* Initialize new answer string and count. */
- strcpy(QuestionRecord.aszAnswer[nAnswer], szNewAnswer);
- QuestionRecord.auVotesForAnswer[nAnswer] = 0;
- }
-
- /* Add user's vote to question. */
- ++QuestionRecord.auVotesForAnswer[nAnswer];
- ++QuestionRecord.uTotalVotes;
-
- /* Write the question record back to the file. */
- fseek(fpFile, (long)nQuestion * sizeof(tQuestionRecord), SEEK_SET);
- if(fwrite(&QuestionRecord, sizeof(tQuestionRecord), 1, fpFile) != 1)
- {
- /* If unable to access file, display error and return. */
- ExclusiveFileClose(fpFile, hFile);
- od_printf("Unable to write question to file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Close the question file to allow access by other nodes. */
- ExclusiveFileClose(fpFile, hFile);
-
- /* Record that user has voted on this question. */
- CurrentUserRecord.bVotedOnQuestion[nQuestion] = TRUE;
-
- /* Open user file for exclusive access by this node. */
- fpFile = ExclusiveFileOpen(USER_FILENAME, "r+b", &hFile);
- if(fpFile == NULL)
- {
- /* If unable to access file, display error and return. */
- od_printf("Unable to access the user file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Update the user's record in the user file. */
- fseek(fpFile, nCurrentUserNumber * sizeof(tUserRecord), SEEK_SET);
- if(fwrite(&CurrentUserRecord, sizeof(tUserRecord), 1, fpFile) != 1)
- {
- /* If unable to access file, display error and return. */
- ExclusiveFileClose(fpFile, hFile);
- od_printf("Unable to write to user file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Close the user file to allow access by other nodes. */
- ExclusiveFileClose(fpFile, hFile);
-
- /* Display the result of voting on this question to the user. */
- DisplayQuestionResult(&QuestionRecord);
-
- /* Add 1 to count of questions that the user has voted on. */
- nQuestionsVotedOn++;
- }
-}
-
-
-/* The ViewResults function is called when the user chooses the "view */
-/* results" command from the main menu. This function alows the user to */
-/* choose a question from the list of questions, and then displays the */
-/* results of voting on that question. */
-void ViewResults(void)
-{
- int nChoice;
- tQuestionRecord QuestionRecord;
- int nPageLocation = 0;
-
- /* Loop until user chooses to return to main menu. */
- for(;;)
- {
- /* Allow the user to choose a question from the list of questions that */
- /* they have already voted on. */
- nChoice = ChooseQuestion(nViewResultsFrom,
- " View Results\n\r", &nPageLocation);
-
- /* If the user did not choose a question, return to main menu. */
- if(nChoice == NO_QUESTION)
- {
- return;
- }
-
- /* Read the specified question number from the question file. */
- if(!GetQuestion(nChoice, &QuestionRecord))
- {
- return;
- }
-
- /* Display the results for the selected question. */
- DisplayQuestionResult(&QuestionRecord);
- }
-}
-
-
-/* The GetQuestion function read the record for the specified question */
-/* number from the question file. */
-int GetQuestion(int nQuestion, tQuestionRecord *pQuestionRecord)
-{
- FILE *fpQuestionFile;
- int hQuestionFile;
-
- /* Open the question file for exculsive access by this node. */
- fpQuestionFile = ExclusiveFileOpen(QUESTION_FILENAME, "r+b",
- &hQuestionFile);
- if(fpQuestionFile == NULL)
- {
- /* If unable to access file, display error and return. */
- od_printf("Unable to access the question file.\n\r");
- WaitForEnter();
- return(FALSE);
- }
-
- /* Move to location of question in file. */
- fseek(fpQuestionFile, (long)nQuestion * sizeof(tQuestionRecord), SEEK_SET);
-
- /* Read the question from the file. */
- if(fread(pQuestionRecord, sizeof(tQuestionRecord), 1, fpQuestionFile) != 1)
- {
- /* If unable to access file, display error and return. */
- ExclusiveFileClose(fpQuestionFile, hQuestionFile);
- od_printf("Unable to read from question file.\n\r");
- WaitForEnter();
- return(FALSE);;
- }
-
- /* Close the question file to allow access by other nodes. */
- ExclusiveFileClose(fpQuestionFile, hQuestionFile);
-
- /* Return with success. */
- return(TRUE);
-}
-
-
-/* The AddQuestion() function is called when the user chooses the "add */
-/* question" option from the main menu. This function allows the user */
-/* to enter a new question, possible responses, and save the question for */
-/* other users to vote on. */
-void AddQuestion(void)
-{
- tQuestionRecord QuestionRecord;
- FILE *fpQuestionFile;
- int hQuestionFile;
- char szLogMessage[100];
-
- /* Clear the screen. */
- od_clr_scr();
-
- /* Display screen header. */
- od_printf("`bright red` Add A Question\n\r");
- od_printf("`dark red`");
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat((unsigned char)196, 79);
- }
- else
- {
- od_repeat('-', 79);
- }
- od_printf("\n\r\n\r");
-
- /* Obtain quesiton text from the user. */
- od_printf("`bright green`Enter Your Question (blank line cancels)\n\r");
- od_printf("`dark green`[----------------------------------------------------------------------]\n\r ");
- od_input_str(QuestionRecord.szQuestion, QUESTION_STR_SIZE - 1, ' ', 255);
-
- /* If question was empty, then return to main menu. */
- if(strlen(QuestionRecord.szQuestion) == 0)
- {
- return;
- }
-
- /* Display prompt for answers. */
- od_printf("\n\r`bright green`Enter Possible Answers (blank line when done)\n\r");
- od_printf("`dark green` [------------------------------]\n\r");
-
- /* Loop, getting answers from user. */
- for(QuestionRecord.nTotalAnswers = 0;
- QuestionRecord.nTotalAnswers < MAX_ANSWERS;
- QuestionRecord.nTotalAnswers++)
- {
- /* Display prompt with answer number. */
- od_printf("`bright green`%2d: `dark green`", QuestionRecord.nTotalAnswers + 1);
-
- /* Get string from user. */
- od_input_str(QuestionRecord.aszAnswer[QuestionRecord.nTotalAnswers],
- ANSWER_STR_SIZE - 1, ' ', 255);
-
- /* If string was empty, then exit loop. */
- if(strlen(QuestionRecord.aszAnswer[QuestionRecord.nTotalAnswers]) == 0)
- {
- break;
- }
-
- /* Reset count of votes for this answer to zero. */
- QuestionRecord.auVotesForAnswer[QuestionRecord.nTotalAnswers] = 0;
- }
-
- /* If no answers were supplied, then cancel, returning to main menu. */
- if(QuestionRecord.nTotalAnswers == 0)
- {
- return;
- }
-
- /* Ask whether users should be able to add their own answers. */
- od_printf("\n\r`bright green`Should voters be able to add their own options? (Y/N) `dark green`");
-
- /* Get answer from user. */
- if(od_get_answer("YN") == 'Y')
- {
- /* If user pressed the 'Y' key. */
- od_printf("Yes\n\r\n\r");
-
- /* Record user's response. */
- QuestionRecord.bCanAddAnswers = TRUE;
- }
- else
- {
- /* If user pressed the 'N' key. */
- od_printf("No\n\r\n\r");
-
- /* Record user's response. */
- QuestionRecord.bCanAddAnswers = FALSE;
- }
-
- /* Confirm save of new question. */
- od_printf("`bright green`Do you wish to save this new question? (Y/N) `dark green`");
-
- /* If user does not want to save the question, return to main menu now. */
- if(od_get_answer("YN") == 'N')
- {
- return;
- }
-
- /* Set total number of votes for this question to 0. */
- QuestionRecord.uTotalVotes = 0;
-
- /* Set creator name and creation time for this question. */
- strcpy(QuestionRecord.szCreatorName, od_control.user_name);
- QuestionRecord.lCreationTime = time(NULL);
-
- /* Open question file for exclusive access by this node. */
- fpQuestionFile = ExclusiveFileOpen(QUESTION_FILENAME, "a+b",
- &hQuestionFile);
- if(fpQuestionFile == NULL)
- {
- od_printf("Unable to access the question file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Determine number of records in question file. */
- fseek(fpQuestionFile, 0, SEEK_END);
-
- /* If question file is full, display message and return to main menu */
- /* after closing file. */
- if(ftell(fpQuestionFile) / sizeof(tQuestionRecord) >= MAX_QUESTIONS)
- {
- ExclusiveFileClose(fpQuestionFile, hQuestionFile);
- od_printf("Cannot add another question, Vote is limited to %d questions.\n\r", MAX_QUESTIONS);
- WaitForEnter();
- return;
- }
-
- /* Add new question to file. */
- if(fwrite(&QuestionRecord, sizeof(QuestionRecord), 1, fpQuestionFile) != 1)
- {
- ExclusiveFileClose(fpQuestionFile, hQuestionFile);
- od_printf("Unable to write to question file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Close question file, allowing other nodes to access file. */
- ExclusiveFileClose(fpQuestionFile, hQuestionFile);
-
- /* Record in the logfile that user has added a new question. */
- sprintf(szLogMessage, "User adding questions: %s",
- QuestionRecord.szQuestion);
- od_log_write(szLogMessage);
-}
-
-
-/* The ChooseQuestion() function provides a list of questions and allows */
-/* the user to choose a particular question, cancel back to the main menu, */
-/* and page up and down in the list of questions. Depending upon the value */
-/* of the nFromWhichQuestions parameter, this function will present a list */
-/* of questions that the user has voted on, a list of questions that the */
-/* user has not voted on, or a list of all questions. */
-int ChooseQuestion(int nFromWhichQuestions, char *pszTitle, int *nLocation)
-{
- int nCurrent;
- int nFileQuestion = 0;
- int nPagedToQuestion = *nLocation;
- int nDisplayedQuestion = 0;
- char bVotedOnQuestion;
- char chCurrent;
- tQuestionRecord QuestionRecord;
- FILE *fpQuestionFile;
- int hQuestionFile;
- static char szQuestionName[MAX_QUESTIONS][QUESTION_STR_SIZE];
- static int nQuestionNumber[MAX_QUESTIONS];
-
- /* Attempt to open question file. */
- fpQuestionFile = ExclusiveFileOpen(QUESTION_FILENAME, "r+b",
- &hQuestionFile);
-
- /* If unable to open question file, assume that no questions have been */
- /* created. */
- if(fpQuestionFile == NULL)
- {
- /* Display "no questions yet" message. */
- od_printf("\n\rNo questions have been created so far.\n\r");
-
- /* Wait for user to press enter. */
- WaitForEnter();
-
- /* Indicate that no question has been chosen. */
- return(NO_QUESTION);
- }
-
- /* Loop for every question record in the file. */
- while(fread(&QuestionRecord, sizeof(QuestionRecord), 1, fpQuestionFile) == 1)
- {
- /* Determine whether or not the user has voted on this question. */
- bVotedOnQuestion = CurrentUserRecord.bVotedOnQuestion[nFileQuestion];
-
- /* If this is the kind of question that the user is choosing from */
- /* right now. */
- if((bVotedOnQuestion && (nFromWhichQuestions & QUESTIONS_VOTED_ON)) ||
- (!bVotedOnQuestion && (nFromWhichQuestions & QUESTIONS_NOT_VOTED_ON)))
- {
- /* Add this question to list to be displayed. */
- strcpy(szQuestionName[nDisplayedQuestion],
- QuestionRecord.szQuestion);
- nQuestionNumber[nDisplayedQuestion] = nFileQuestion;
-
- /* Add one to number of questions to be displayed in list. */
- nDisplayedQuestion++;
- }
-
- /* Move to next question in file. */
- ++nFileQuestion;
- }
-
- /* Close question file to allow other nodes to access the file. */
- ExclusiveFileClose(fpQuestionFile, hQuestionFile);
-
- /* If there are no questions for the user to choose, display an */
- /* appropriate message and return. */
- if(nDisplayedQuestion == 0)
- {
- /* If we were to list all questions. */
- if((nFromWhichQuestions & QUESTIONS_VOTED_ON)
- && (nFromWhichQuestions & QUESTIONS_NOT_VOTED_ON))
- {
- od_printf("\n\rThere are no questions.\n\r");
- }
- /* If we were to list questions that the user has voted on. */
- else if(nFromWhichQuestions & QUESTIONS_VOTED_ON)
- {
- od_printf("\n\rThere are no questions that you have voted on.\n\r");
- }
- /* Otherwise, we were to list questions that use has not voted on. */
- else
- {
- od_printf("\n\rYou have voted on all the questions.\n\r");
- }
-
- /* Wait for user to press enter key. */
- WaitForEnter();
-
- /* Return, indicating that no question was chosen. */
- return(NO_QUESTION);
- }
-
- /* Ensure that initial paged to location is within range. */
- while(nPagedToQuestion >= nDisplayedQuestion)
- {
- nPagedToQuestion -= QUESTION_PAGE_SIZE;
- }
-
- /* Loop, displaying current page of questions, until the user makes a */
- /* choice. */
- for(;;)
- {
- /* Clear the screen. */
- od_clr_scr();
-
- /* Display header. */
- od_printf("`bright red`");
- od_printf(pszTitle);
- od_printf("`dark red`");
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat((unsigned char)196, 79);
- }
- else
- {
- od_repeat('-', 79);
- }
- od_printf("\n\r");
-
- /* Display list of questions on this page. */
- for(nCurrent = 0;
- nCurrent < QUESTION_PAGE_SIZE
- && nCurrent < (nDisplayedQuestion - nPagedToQuestion);
- ++nCurrent)
- {
- /* Determine character to display for current line. */
- if(nCurrent < 9)
- {
- chCurrent = (char)('1' + nCurrent);
- }
- else
- {
- chCurrent = (char)('A' + (nCurrent - 9));
- }
-
- /* Display this question's title. */
- od_printf("`bright green`%c.`dark green`", chCurrent);
- od_printf(" %s\n\r", szQuestionName[nCurrent + nPagedToQuestion]);
- }
-
- /* Display prompt for input. */
- od_printf("\n\r`bright white`[Page %d] Choose a question or",
- (nPagedToQuestion / QUESTION_PAGE_SIZE) + 1);
- if(nPagedToQuestion < nDisplayedQuestion - QUESTION_PAGE_SIZE)
- {
- od_printf(" [N]ext page,");
- }
- if(nPagedToQuestion > 0)
- {
- od_printf(" [P]revious page,");
- }
- od_printf(" [Q]uit.\n\r");
-
- /* Loop until the user makes a valid choice. */
- for(;;)
- {
- /* Get input from user */
- chCurrent = (char)od_get_key(TRUE);
- chCurrent = (char)toupper(chCurrent);
-
- /* Respond to user's input. */
-
- /* If user pressed Q key. */
- if(chCurrent == 'Q')
- {
- /* Return without a choosing a question. */
- return(NO_QUESTION);
- }
-
- /* If user pressed P key. */
- else if(chCurrent == 'P')
- {
- /* If we are not at the first page. */
- if(nPagedToQuestion > 0)
- {
- /* Move paged to location up one page. */
- nPagedToQuestion -= QUESTION_PAGE_SIZE;
-
- /* Exit user input loop to display next page. */
- break;
- }
- }
-
- /* If user pressed N key. */
- else if(chCurrent == 'N')
- {
- /* If there is more questions after this page. */
- if(nPagedToQuestion < nDisplayedQuestion - QUESTION_PAGE_SIZE)
- {
- /* Move paged.to location down one page. */
- nPagedToQuestion += QUESTION_PAGE_SIZE;
-
- /* Exit user input loop to display next page. */
- break;
- }
- }
-
- /* Otherwise, check whether the user chose a valid question. */
- else if ((chCurrent >= '1' && chCurrent <= '9')
- || (chCurrent >= 'A' && chCurrent <= 'H'))
- {
- /* Get question number from key pressed. */
- if(chCurrent >= '1' && chCurrent <= '9')
- {
- nCurrent = chCurrent - '1';
- }
- else
- {
- nCurrent = (chCurrent - 'A') + 9;
- }
-
- /* Add current paged to position to user's choice. */
- nCurrent += nPagedToQuestion;
-
- /* If this is valid question number. */
- if(nCurrent < nDisplayedQuestion)
- {
- /* Set caller's current question number. */
- *nLocation = nPagedToQuestion;
-
- /* Return actual question number in file. */
- return(nQuestionNumber[nCurrent]);
- }
- }
- }
- }
-}
-
-
-/* The DisplayQuestionResult() function is called to display the results */
-/* of voting on a paricular question, and is passed the question record */
-/* of the question. This function is called when the user selects a */
-/* question using the "view results" option, and is also called after */
-/* the user has voted on a question, to display the results of voting on */
-/* that question. */
-void DisplayQuestionResult(tQuestionRecord *pQuestionRecord)
-{
- int nAnswer;
- int uPercent;
-
- /* Clear the screen. */
- od_clr_scr();
-
- /* Check that there have been votes on this question. */
- if(pQuestionRecord->uTotalVotes == 0)
- {
- /* If there have been no votes for this question, display a message */
- /* and return. */
- od_printf("Nobody has voted on this question yet.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Display question itself. */
- od_printf("`bright red`%s\n\r", pQuestionRecord->szQuestion);
-
- /* Display author's name. */
- od_printf("`dark red`Question created by %s on %s\n\r",
- pQuestionRecord->szCreatorName,
- ctime(&pQuestionRecord->lCreationTime));
-
- /* Display heading for responses. */
- od_printf("`bright green`Response Votes Percent Graph\n\r`dark green`");
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat((unsigned char)196, 79);
- }
- else
- {
- od_repeat('-', 79);
- }
- od_printf("\n\r");
-
- /* Loop for each answer to the question. */
- for(nAnswer = 0; nAnswer < pQuestionRecord->nTotalAnswers; ++nAnswer)
- {
- /* Determine percent of users who voted for this answer. */
- uPercent = (pQuestionRecord->auVotesForAnswer[nAnswer] * 100)
- / pQuestionRecord->uTotalVotes;
-
- /* Display answer, total votes and percentage of votes. */
- od_printf("`dark green`%-30.30s %-5u %3u%% `bright white`",
- pQuestionRecord->aszAnswer[nAnswer],
- pQuestionRecord->auVotesForAnswer[nAnswer],
- uPercent);
-
- /* Display a bar graph corresponding to percent of users who voted */
- /* for this answer. */
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat((unsigned char)220, (unsigned char)((uPercent * 31) / 100));
- }
- else
- {
- od_repeat('=', (unsigned char)((uPercent * 31) / 100));
- }
-
- /* Move to next line. */
- od_printf("\n\r");
- }
-
- /* Display footer. */
- od_printf("`dark green`");
- if(od_control.user_ansi || od_control.user_avatar)
- {
- od_repeat((unsigned char)196, 79);
- }
- else
- {
- od_repeat('-', 79);
- }
- od_printf("\n\r");
- od_printf("`dark green` TOTAL: %u\n\r\n\r",
- pQuestionRecord->uTotalVotes);
-
- /* Wait for user to press enter. */
- WaitForEnter();
-}
-
-
-/* The ReadOrAddCurrentUser() function is used by Vote to search the */
-/* Vote user file for the record containing information on the user who */
-/* is currently using the door. If this is the first time that the user */
-/* has used this door, then their record will not exist in the user file. */
-/* In this case, this function will add a new record for the current */
-/* user. This function returns TRUE on success, or FALSE on failure. */
-int ReadOrAddCurrentUser(void)
-{
- FILE *fpUserFile;
- int hUserFile;
- int bGotUser = FALSE;
- int nQuestion;
-
- /* Attempt to open the user file for exclusize access by this node. */
- /* This function will wait up to the pre-set amount of time (as defined */
- /* near the beginning of this file) for access to the user file. */
- fpUserFile = ExclusiveFileOpen(USER_FILENAME, "a+b", &hUserFile);
-
- /* If unable to open user file, return with failure. */
- if(fpUserFile == NULL)
- {
- return(FALSE);
- }
-
- /* Begin with the current user record number set to 0. */
- nCurrentUserNumber = 0;
-
- /* Loop for each record in the file */
- while(fread(&CurrentUserRecord, sizeof(tUserRecord), 1, fpUserFile) == 1)
- {
- /* If name in record matches the current user name ... */
- if(strcmp(CurrentUserRecord.szUserName, od_control.user_name) == 0)
- {
- /* ... then record that we have found the user's record, */
- bGotUser = TRUE;
-
- /* and exit the loop. */
- break;
- }
-
- /* Move user record number to next user record. */
- nCurrentUserNumber++;
- }
-
- /* If the user was not found in the file, attempt to add them as a */
- /* new user if the user file is not already full. */
- if(!bGotUser && nCurrentUserNumber < MAX_USERS)
- {
- /* Place the user's name in the current user record. */
- strcpy(CurrentUserRecord.szUserName, od_control.user_name);
-
- /* Record that user hasn't voted on any of the questions. */
- for(nQuestion = 0; nQuestion < MAX_QUESTIONS; ++nQuestion)
- {
- CurrentUserRecord.bVotedOnQuestion[nQuestion] = FALSE;
- }
-
- /* Write the new record to the file. */
- if(fwrite(&CurrentUserRecord, sizeof(tUserRecord), 1, fpUserFile) == 1)
- {
- /* If write succeeded, record that we now have a valid user record. */
- bGotUser = TRUE;
- }
- }
-
- /* Close the user file to allow other nodes to access it. */
- ExclusiveFileClose(fpUserFile, hUserFile);
-
- /* Return, indciating whether or not a valid user record now exists for */
- /* the user that is currently online. */
- return(bGotUser);
-}
-
-
-/* The WriteCurrentUser() function is called to save the information on the */
-/* user who is currently using the door, to the VOTE.USR file. */
-void WriteCurrentUser(void)
-{
- FILE *fpUserFile;
- int hUserFile;
-
- /* Attempt to open the user file for exclusize access by this node. */
- /* This function will wait up to the pre-set amount of time (as defined */
- /* near the beginning of this file) for access to the user file. */
- fpUserFile = ExclusiveFileOpen(USER_FILENAME, "r+b", &hUserFile);
-
- /* If unable to access the user file, display an error message and */
- /* return. */
- if(fpUserFile == NULL)
- {
- od_printf("Unable to access the user file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Move to appropriate location in user file for the current user's */
- /* record. */
- fseek(fpUserFile, (long)nCurrentUserNumber * sizeof(tUserRecord), SEEK_SET);
-
- /* Write the new record to the file. */
- if(fwrite(&CurrentUserRecord, sizeof(tUserRecord), 1, fpUserFile) == 1)
- {
- /* If unable to write the record, display an error message. */
- ExclusiveFileClose(fpUserFile, hUserFile);
- od_printf("Unable to update your user record file.\n\r");
- WaitForEnter();
- return;
- }
-
- /* Close the user file to allow other nodes to access it again. */
- ExclusiveFileClose(fpUserFile, hUserFile);
-}
-
-
-/* This function is used by Vote to open a file. If Vote has been compiled */
-/* with #define MULTINODE_AWARE uncommented (see the beginning of this */
-/* file), file access is performed in a multinode-aware way. This implies */
-/* that the file is opened of exclusive access, using share-aware open */
-/* functions that may not be available using all compilers. */
-FILE *ExclusiveFileOpen(char *pszFileName, char *pszMode, int *phHandle)
-{
-#ifdef MULTINODE_AWARE
- /* If Vote is being compiled for multinode-aware file access, then */
- /* attempt to use compiler-specific share-aware file open functions. */
- FILE *fpFile = NULL;
- time_t StartTime = time(NULL);
- int hFile;
-
- /* Attempt to open the file while there is still time remaining. */
- while((hFile = sopen(pszFileName, O_BINARY | O_RDWR, SH_DENYRW,
- S_IREAD | S_IWRITE)) == -1)
- {
- /* If we have been unable to open the file for more than the */
- /* maximum wait time, or if open failed for a reason other */
- /* than file access, then attempt to create a new file and */
- /* exit the loop. */
- if(errno != EACCES ||
- difftime(time(NULL), StartTime) >= FILE_ACCESS_MAX_WAIT)
- {
- hFile = sopen(pszFileName, O_BINARY | O_CREAT, SH_DENYRW,
- S_IREAD | S_IWRITE);
- break;
- }
-
- /* If we were unable to open the file, call od_kernel, so that */
- /* OpenDoors can continue to respond to sysop function keys, loss */
- /* of connection, etc. */
- od_kernel();
- }
-
- /* Attempt to obtain a FILE * corresponding to the handle. */
- if(hFile != -1)
- {
- fpFile = fdopen(hFile, pszMode);
- if(fpFile == NULL)
- {
- close(hFile);
- }
- }
-
- /* Pass file handle back to the caller. */
- *phHandle = hFile;
-
- /* Return FILE pointer for opened file, if any. */
- return(fpFile);
-#else
- /* Ignore unused parameters. */
- (void)phHandle;
-
- /* If Vote is not being compiled for multinode-aware mode, then just */
- /* use fopen to access the file. */
- return(fopen(pszFileName, pszMode));
-#endif
-}
-
-
-/* The ExclusiveFileClose() function closes a file that was opened using */
-/* ExclusiveFileOpen(). */
-void ExclusiveFileClose(FILE *pfFile, int hHandle)
-{
- fclose(pfFile);
-#ifdef MULTINODE_AWARE
- close(hHandle);
-#else
- /* Ignore unused parameters. */
- (void)hHandle;
-#endif
-}
-
-
-/* The WaitForEnter() function is used by Vote to create its custom */
-/* "Press [ENTER] to continue." prompt. */
-void WaitForEnter(void)
-{
- /* Display prompt. */
- od_printf("`bright white`Press [ENTER] to continue.\n\r");
-
- /* Wait for a Carriage Return or Line Feed character from the user. */
- od_get_answer("\n\r");
-}
diff --git a/src/odoors/hbuild.bat b/src/odoors/hbuild.bat
deleted file mode 100755
index 8d76e20e6a6d58d38c6ad5a4dc43448b297ac506..0000000000000000000000000000000000000000
--- a/src/odoors/hbuild.bat
+++ /dev/null
@@ -1 +0,0 @@
-make -fDOS.mak -DTARGET=h > out.txt
diff --git a/src/odoors/lbuild.bat b/src/odoors/lbuild.bat
deleted file mode 100755
index 7249ff858ee0c8ccbcceed28a70daf3759c61491..0000000000000000000000000000000000000000
--- a/src/odoors/lbuild.bat
+++ /dev/null
@@ -1 +0,0 @@
-make -fDOS.mak -DTARGET=l > out.txt
diff --git a/src/odoors/license.txt b/src/odoors/license.txt
deleted file mode 100644
index 5615459b64888409068550b919035cdd03eaeb12..0000000000000000000000000000000000000000
--- a/src/odoors/license.txt
+++ /dev/null
@@ -1,459 +0,0 @@
- GNU LESSER GENERAL PUBLIC LICENSE
- Version 2.1, February 1999
-
- Copyright (C) 1991, 1999 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-[This is the first released version of the Lesser GPL. It also counts
- as the successor of the GNU Library Public License, version 2, hence
- the version number 2.1.]
-
- Preamble
-
- The licenses for most software are designed to take away your
-freedom to share and change it. By contrast, the GNU General Public
-Licenses are intended to guarantee your freedom to share and change
-free software--to make sure the software is free for all its users.
-
- This license, the Lesser General Public License, applies to some
-specially designated software packages--typically libraries--of the
-Free Software Foundation and other authors who decide to use it. You
-can use it too, but we suggest you first think carefully about whether
-this license or the ordinary General Public License is the better
-strategy to use in any particular case, based on the explanations below.
-
- When we speak of free software, we are referring to freedom of use,
-not price. Our General Public Licenses are designed to make sure that
-you have the freedom to distribute copies of free software (and charge
-for this service if you wish); that you receive source code or can get
-it if you want it; that you can change the software and use pieces of
-it in new free programs; and that you are informed that you can do
-these things.
-
- To protect your rights, we need to make restrictions that forbid
-distributors to deny you these rights or to ask you to surrender these
-rights. These restrictions translate to certain responsibilities for
-you if you distribute copies of the library or if you modify it.
-
- For example, if you distribute copies of the library, whether gratis
-or for a fee, you must give the recipients all the rights that we gave
-you. You must make sure that they, too, receive or can get the source
-code. If you link other code with the library, you must provide
-complete object files to the recipients, so that they can relink them
-with the library after making changes to the library and recompiling
-it. And you must show them these terms so they know their rights.
-
- We protect your rights with a two-step method: (1) we copyright the
-library, and (2) we offer you this license, which gives you legal
-permission to copy, distribute and/or modify the library.
-
- To protect each distributor, we want to make it very clear that
-there is no warranty for the free library. Also, if the library is
-modified by someone else and passed on, the recipients should know
-that what they have is not the original version, so that the original
-author's reputation will not be affected by problems that might be
-introduced by others.
-
- Finally, software patents pose a constant threat to the existence of
-any free program. We wish to make sure that a company cannot
-effectively restrict the users of a free program by obtaining a
-restrictive license from a patent holder. Therefore, we insist that
-any patent license obtained for a version of the library must be
-consistent with the full freedom of use specified in this license.
-
- Most GNU software, including some libraries, is covered by the
-ordinary GNU General Public License. This license, the GNU Lesser
-General Public License, applies to certain designated libraries, and
-is quite different from the ordinary General Public License. We use
-this license for certain libraries in order to permit linking those
-libraries into non-free programs.
-
- When a program is linked with a library, whether statically or using
-a shared library, the combination of the two is legally speaking a
-combined work, a derivative of the original library. The ordinary
-General Public License therefore permits such linking only if the
-entire combination fits its criteria of freedom. The Lesser General
-Public License permits more lax criteria for linking other code with
-the library.
-
- We call this license the "Lesser" General Public License because it
-does Less to protect the user's freedom than the ordinary General
-Public License. It also provides other free software developers Less
-of an advantage over competing non-free programs. These disadvantages
-are the reason we use the ordinary General Public License for many
-libraries. However, the Lesser license provides advantages in certain
-special circumstances.
-
- For example, on rare occasions, there may be a special need to
-encourage the widest possible use of a certain library, so that it becomes
-a de-facto standard. To achieve this, non-free programs must be
-allowed to use the library. A more frequent case is that a free
-library does the same job as widely used non-free libraries. In this
-case, there is little to gain by limiting the free library to free
-software only, so we use the Lesser General Public License.
-
- In other cases, permission to use a particular library in non-free
-programs enables a greater number of people to use a large body of
-free software. For example, permission to use the GNU C Library in
-non-free programs enables many more people to use the whole GNU
-operating system, as well as its variant, the GNU/Linux operating
-system.
-
- Although the Lesser General Public License is Less protective of the
-users' freedom, it does ensure that the user of a program that is
-linked with the Library has the freedom and the wherewithal to run
-that program using a modified version of the Library.
-
- The precise terms and conditions for copying, distribution and
-modification follow. Pay close attention to the difference between a
-"work based on the library" and a "work that uses the library". The
-former contains code derived from the library, whereas the latter must
-be combined with the library in order to run.
-
- GNU LESSER GENERAL PUBLIC LICENSE
- TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
- 0. This License Agreement applies to any software library or other
-program which contains a notice placed by the copyright holder or
-other authorized party saying it may be distributed under the terms of
-this Lesser General Public License (also called "this License").
-Each licensee is addressed as "you".
-
- A "library" means a collection of software functions and/or data
-prepared so as to be conveniently linked with application programs
-(which use some of those functions and data) to form executables.
-
- The "Library", below, refers to any such software library or work
-which has been distributed under these terms. A "work based on the
-Library" means either the Library or any derivative work under
-copyright law: that is to say, a work containing the Library or a
-portion of it, either verbatim or with modifications and/or translated
-straightforwardly into another language. (Hereinafter, translation is
-included without limitation in the term "modification".)
-
- "Source code" for a work means the preferred form of the work for
-making modifications to it. For a library, complete source code means
-all the source code for all modules it contains, plus any associated
-interface definition files, plus the scripts used to control compilation
-and installation of the library.
-
- Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope. The act of
-running a program using the Library is not restricted, and output from
-such a program is covered only if its contents constitute a work based
-on the Library (independent of the use of the Library in a tool for
-writing it). Whether that is true depends on what the Library does
-and what the program that uses the Library does.
-
- 1. You may copy and distribute verbatim copies of the Library's
-complete source code as you receive it, in any medium, provided that
-you conspicuously and appropriately publish on each copy an
-appropriate copyright notice and disclaimer of warranty; keep intact
-all the notices that refer to this License and to the absence of any
-warranty; and distribute a copy of this License along with the
-Library.
-
- You may charge a fee for the physical act of transferring a copy,
-and you may at your option offer warranty protection in exchange for a
-fee.
-
- 2. You may modify your copy or copies of the Library or any portion
-of it, thus forming a work based on the Library, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
- a) The modified work must itself be a software library.
-
- b) You must cause the files modified to carry prominent notices
- stating that you changed the files and the date of any change.
-
- c) You must cause the whole of the work to be licensed at no
- charge to all third parties under the terms of this License.
-
- d) If a facility in the modified Library refers to a function or a
- table of data to be supplied by an application program that uses
- the facility, other than as an argument passed when the facility
- is invoked, then you must make a good faith effort to ensure that,
- in the event an application does not supply such function or
- table, the facility still operates, and performs whatever part of
- its purpose remains meaningful.
-
- (For example, a function in a library to compute square roots has
- a purpose that is entirely well-defined independent of the
- application. Therefore, Subsection 2d requires that any
- application-supplied function or table used by this function must
- be optional: if the application does not supply it, the square
- root function must still compute square roots.)
-
-These requirements apply to the modified work as a whole. If
-identifiable sections of that work are not derived from the Library,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works. But when you
-distribute the same sections as part of a whole which is a work based
-on the Library, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote
-it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Library.
-
-In addition, mere aggregation of another work not based on the Library
-with the Library (or with a work based on the Library) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
- 3. You may opt to apply the terms of the ordinary GNU General Public
-License instead of this License to a given copy of the Library. To do
-this, you must alter all the notices that refer to this License, so
-that they refer to the ordinary GNU General Public License, version 2,
-instead of to this License. (If a newer version than version 2 of the
-ordinary GNU General Public License has appeared, then you can specify
-that version instead if you wish.) Do not make any other change in
-these notices.
-
- Once this change is made in a given copy, it is irreversible for
-that copy, so the ordinary GNU General Public License applies to all
-subsequent copies and derivative works made from that copy.
-
- This option is useful when you wish to copy part of the code of
-the Library into a program that is not a library.
-
- 4. You may copy and distribute the Library (or a portion or
-derivative of it, under Section 2) in object code or executable form
-under the terms of Sections 1 and 2 above provided that you accompany
-it with the complete corresponding machine-readable source code, which
-must be distributed under the terms of Sections 1 and 2 above on a
-medium customarily used for software interchange.
-
- If distribution of object code is made by offering access to copy
-from a designated place, then offering equivalent access to copy the
-source code from the same place satisfies the requirement to
-distribute the source code, even though third parties are not
-compelled to copy the source along with the object code.
-
- 5. A program that contains no derivative of any portion of the
-Library, but is designed to work with the Library by being compiled or
-linked with it, is called a "work that uses the Library". Such a
-work, in isolation, is not a derivative work of the Library, and
-therefore falls outside the scope of this License.
-
- However, linking a "work that uses the Library" with the Library
-creates an executable that is a derivative of the Library (because it
-contains portions of the Library), rather than a "work that uses the
-library". The executable is therefore covered by this License.
-Section 6 states terms for distribution of such executables.
-
- When a "work that uses the Library" uses material from a header file
-that is part of the Library, the object code for the work may be a
-derivative work of the Library even though the source code is not.
-Whether this is true is especially significant if the work can be
-linked without the Library, or if the work is itself a library. The
-threshold for this to be true is not precisely defined by law.
-
- If such an object file uses only numerical parameters, data
-structure layouts and accessors, and small macros and small inline
-functions (ten lines or less in length), then the use of the object
-file is unrestricted, regardless of whether it is legally a derivative
-work. (Executables containing this object code plus portions of the
-Library will still fall under Section 6.)
-
- Otherwise, if the work is a derivative of the Library, you may
-distribute the object code for the work under the terms of Section 6.
-Any executables containing that work also fall under Section 6,
-whether or not they are linked directly with the Library itself.
-
- 6. As an exception to the Sections above, you may also combine or
-link a "work that uses the Library" with the Library to produce a
-work containing portions of the Library, and distribute that work
-under terms of your choice, provided that the terms permit
-modification of the work for the customer's own use and reverse
-engineering for debugging such modifications.
-
- You must give prominent notice with each copy of the work that the
-Library is used in it and that the Library and its use are covered by
-this License. You must supply a copy of this License. If the work
-during execution displays copyright notices, you must include the
-copyright notice for the Library among them, as well as a reference
-directing the user to the copy of this License. Also, you must do one
-of these things:
-
- a) Accompany the work with the complete corresponding
- machine-readable source code for the Library including whatever
- changes were used in the work (which must be distributed under
- Sections 1 and 2 above); and, if the work is an executable linked
- with the Library, with the complete machine-readable "work that
- uses the Library", as object code and/or source code, so that the
- user can modify the Library and then relink to produce a modified
- executable containing the modified Library. (It is understood
- that the user who changes the contents of definitions files in the
- Library will not necessarily be able to recompile the application
- to use the modified definitions.)
-
- b) Use a suitable shared library mechanism for linking with the
- Library. A suitable mechanism is one that (1) uses at run time a
- copy of the library already present on the user's computer system,
- rather than copying library functions into the executable, and (2)
- will operate properly with a modified version of the library, if
- the user installs one, as long as the modified version is
- interface-compatible with the version that the work was made with.
-
- c) Accompany the work with a written offer, valid for at
- least three years, to give the same user the materials
- specified in Subsection 6a, above, for a charge no more
- than the cost of performing this distribution.
-
- d) If distribution of the work is made by offering access to copy
- from a designated place, offer equivalent access to copy the above
- specified materials from the same place.
-
- e) Verify that the user has already received a copy of these
- materials or that you have already sent this user a copy.
-
- For an executable, the required form of the "work that uses the
-Library" must include any data and utility programs needed for
-reproducing the executable from it. However, as a special exception,
-the materials to be distributed need not include anything that is
-normally distributed (in either source or binary form) with the major
-components (compiler, kernel, and so on) of the operating system on
-which the executable runs, unless that component itself accompanies
-the executable.
-
- It may happen that this requirement contradicts the license
-restrictions of other proprietary libraries that do not normally
-accompany the operating system. Such a contradiction means you cannot
-use both them and the Library together in an executable that you
-distribute.
-
- 7. You may place library facilities that are a work based on the
-Library side-by-side in a single library together with other library
-facilities not covered by this License, and distribute such a combined
-library, provided that the separate distribution of the work based on
-the Library and of the other library facilities is otherwise
-permitted, and provided that you do these two things:
-
- a) Accompany the combined library with a copy of the same work
- based on the Library, uncombined with any other library
- facilities. This must be distributed under the terms of the
- Sections above.
-
- b) Give prominent notice with the combined library of the fact
- that part of it is a work based on the Library, and explaining
- where to find the accompanying uncombined form of the same work.
-
- 8. You may not copy, modify, sublicense, link with, or distribute
-the Library except as expressly provided under this License. Any
-attempt otherwise to copy, modify, sublicense, link with, or
-distribute the Library is void, and will automatically terminate your
-rights under this License. However, parties who have received copies,
-or rights, from you under this License will not have their licenses
-terminated so long as such parties remain in full compliance.
-
- 9. You are not required to accept this License, since you have not
-signed it. However, nothing else grants you permission to modify or
-distribute the Library or its derivative works. These actions are
-prohibited by law if you do not accept this License. Therefore, by
-modifying or distributing the Library (or any work based on the
-Library), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Library or works based on it.
-
- 10. Each time you redistribute the Library (or any work based on the
-Library), the recipient automatically receives a license from the
-original licensor to copy, distribute, link with or modify the Library
-subject to these terms and conditions. You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties with
-this License.
-
- 11. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Library at all. For example, if a patent
-license would not permit royalty-free redistribution of the Library by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Library.
-
-If any portion of this section is held invalid or unenforceable under any
-particular circumstance, the balance of the section is intended to apply,
-and the section as a whole is intended to apply in other circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system which is
-implemented by public license practices. Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-
- 12. If the distribution and/or use of the Library is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Library under this License may add
-an explicit geographical distribution limitation excluding those countries,
-so that distribution is permitted only in or among countries not thus
-excluded. In such case, this License incorporates the limitation as if
-written in the body of this License.
-
- 13. The Free Software Foundation may publish revised and/or new
-versions of the Lesser General Public License from time to time.
-Such new versions will be similar in spirit to the present version,
-but may differ in detail to address new problems or concerns.
-
-Each version is given a distinguishing version number. If the Library
-specifies a version number of this License which applies to it and
-"any later version", you have the option of following the terms and
-conditions either of that version or of any later version published by
-the Free Software Foundation. If the Library does not specify a
-license version number, you may choose any version ever published by
-the Free Software Foundation.
-
- 14. If you wish to incorporate parts of the Library into other free
-programs whose distribution conditions are incompatible with these,
-write to the author to ask for permission. For software which is
-copyrighted by the Free Software Foundation, write to the Free
-Software Foundation; we sometimes make exceptions for this. Our
-decision will be guided by the two goals of preserving the free status
-of all derivatives of our free software and of promoting the sharing
-and reuse of software generally.
-
- NO WARRANTY
-
- 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
-WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
-EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
-OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
-KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
-LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
-THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
- 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
-WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
-AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
-FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
-CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
-LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
-RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
-FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
-SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
-DAMAGES.
-
- END OF TERMS AND CONDITIONS
-
diff --git a/src/odoors/sbuild.bat b/src/odoors/sbuild.bat
deleted file mode 100755
index da4e6d91602ab7e25d1cd10c522e5c91fbcd4894..0000000000000000000000000000000000000000
--- a/src/odoors/sbuild.bat
+++ /dev/null
@@ -1 +0,0 @@
-make -fDOS.mak -DTARGET=s > out.txt
diff --git a/src/odoors/wbuild.bat b/src/odoors/wbuild.bat
deleted file mode 100755
index 63c7d6d5f9f05f56323608979d8515b47e8aeec8..0000000000000000000000000000000000000000
--- a/src/odoors/wbuild.bat
+++ /dev/null
@@ -1 +0,0 @@
-nmake -fWin32.mak > out.txt
diff --git a/src/odoors/win32.mak b/src/odoors/win32.mak
deleted file mode 100644
index 9b5563fa5021c8703bbbf1171a346acc1673f8c4..0000000000000000000000000000000000000000
--- a/src/odoors/win32.mak
+++ /dev/null
@@ -1,372 +0,0 @@
-# OpenDoors 6.20
-# (C) Copyright 1991 - 1997 by Brian Pirie. All Rights Reserved.
-#
-# Oct-2001 door32.sys/socket modifications by Rob Swindell (www.synchro.net)
-#
-#
-# File: Win32.mak
-#
-# Description: Makefile used to build the Win32 OpenDoors libraries from
-# the sources. Usage is described below.
-#
-# Revisions: Date Ver Who Change
-# ---------------------------------------------------------------
-# Oct 13, 1994 6.00 BP New file header format.
-# Oct 13, 1994 6.00 BP Made directories configurable.
-# Oct 13, 1994 6.00 BP Erase tlib-created backup file.
-# Oct 14, 1994 6.00 BP Added ODGen.h dependencies.
-# Oct 14, 1994 6.00 BP Added ODPlat.c module.
-# Oct 31, 1994 6.00 BP Added headers dependency constant.
-# Nov 01, 1994 6.00 BP Added ODUtil.c module.
-# Dec 31, 1994 6.00 BP Added -B option for Borland Cs.
-# Jan 01, 1995 6.00 BP Added ODKrnl.c, ODKrnl.h.
-# Jan 29, 1995 6.00 BP Added ODCmdLn.c.
-# Nov 16, 1995 6.00 BP Added ODInQue.c, and new headers.
-# Nov 21, 1995 6.00 BP Created ODInit1.c, ODInit2.c.
-# Dec 02, 1995 6.00 BP Added ODRes.h
-# Dec 02, 1995 6.00 BP Added ODFrame.c, ODFrame.h.
-# Dec 02, 1995 6.00 BP Added ODStat.h, ODSwap.h.
-# Dec 04, 1995 6.00 BP Changes for building Win32 version.
-# Dec 05, 1995 6.00 BP Split into makefiles for each platform
-# Dec 07, 1995 6.00 BP Added ODEdit.c.
-# Dec 21, 1995 6.00 BP Changes for building as DLL.
-# Jan 04, 1996 6.00 BP Added ODGetIn.c.
-# Feb 09, 1996 6.00 BP Renamed ODInit?.* to ODInEx?.*
-# Feb 19, 1996 6.00 BP Turned off OD_DEBUG
-# Feb 19, 1996 6.00 BP Changed version number to 6.00.
-# Mar 03, 1996 6.10 BP Begin version 6.10.
-# Oct 19, 2001 6.20 RS Added door32.sys and socket support.
-#
-###############################################################################
-#
-# USAGE INFORMATION
-#
-###############################################################################
-#
-# Command Line: make -fWin32.mak
-# or
-# nmake /f Win32.mak
-#
-###############################################################################
-#
-# CONFIGURATION
-#
-# Customize this section of the makefile to provide the relevant information
-# for your compiler, assembler (if any) and build environment.
-#
-###############################################################################
-# Compiler executable file name. Use:
-#
-# tcc - For Borland Turbo C and Turbo C++
-# bcc - For Borland C++
-# cl - For Microsoft compilers
-#
-CC=cl
-#
-#------------------------------------------------------------------------------
-#
-# Linker executable file name. Use:
-#
-# tlink - For Borland compilers
-# link - For Microsoft compilers
-#
-LINK=link
-#
-#------------------------------------------------------------------------------
-#
-# Resource compiler exectuable file name.
-#
-RC=rc
-#
-#------------------------------------------------------------------------------
-#
-# Win32 compiler command-line flags. Use:
-#
-# /c /W3 /D "WIN32" /D "_WINDOWS" - For Microsoft compilers
-#
-CFLAGS=/nologo /MT /W3 /GX /O2 /D "WIN32" /D "_WINDOWS" /c
-# /MTd /Zi - for debug
-#
-#------------------------------------------------------------------------------
-#
-# Link flags.
-#
-LINKFLAGS=kernel32.lib user32.lib gdi32.lib advapi32.lib shell32.lib wsock32.lib\
- uuid.lib comctl32.lib /NOLOGO /DLL /INCREMENTAL:no\
- /MAP\
-# /DEBUG\
- /MACHINE:I386\
- /DEF:$(SOURCEDIR)"OpenDoor.def" /OUT:$(LIBDIR)"ODoors62.dll"\
- /IMPLIB:$(LIBDIR)"ODoorW.lib" /SUBSYSTEM:windows,4.0
-#
-#------------------------------------------------------------------------------
-#
-# Output directories. customize for your own preferences. Note that trailing
-# backslash (\) characters are required.
-#
-SOURCEDIR=.\ # Comments required
-ODHEADERDIR=.\ # in order to
-OBJDIR=.\ # was ..\obj # avoid line
-LIBDIR=.\ # was ..\lib # concatentation
-#
-###############################################################################
-#
-# DEPENDENCIES
-#
-# You won't normally have to change anything after this point in this makefile.
-#
-###############################################################################
-#
-# Define primary target.
-#
-TARGET=w
-all: $(LIBDIR)ODoors62.dll
-#
-#------------------------------------------------------------------------------
-#
-# Name of all headers.
-#
-HEADERS= $(HEADERDIR)ODCom.h\
- $(HEADERDIR)ODCore.h\
- $(HEADERDIR)ODFrame.h\
- $(HEADERDIR)ODGen.h\
- $(HEADERDIR)ODInEx.h\
- $(HEADERDIR)ODInQue.h\
- $(HEADERDIR)ODKrnl.h\
- $(HEADERDIR)ODPlat.h\
- $(HEADERDIR)ODRes.h\
- $(HEADERDIR)ODScrn.h\
- $(HEADERDIR)ODStat.h\
- $(HEADERDIR)ODSwap.h\
- $(HEADERDIR)ODTypes.h\
- $(HEADERDIR)ODUtil.h\
- $(HEADERDIR)OpenDoor.h
-#
-#------------------------------------------------------------------------------
-#
-#
-DEF_FILE=$(SOURCEDIR)OpenDoor.def
-#
-#------------------------------------------------------------------------------
-#
-# Build from C sources.
-#
-$(OBJDIR)odauto$(TARGET).obj : $(SOURCEDIR)odauto.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odauto.c
- command /c erase $(OBJDIR)odauto$(TARGET).obj
- move odauto.obj $(OBJDIR)odauto$(TARGET).obj
-
-$(OBJDIR)odblock$(TARGET).obj : $(SOURCEDIR)odblock.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odblock.c
- command /c erase $(OBJDIR)odblock$(TARGET).obj
- move odblock.obj $(OBJDIR)odblock$(TARGET).obj
-
-$(OBJDIR)odcfile$(TARGET).obj : $(SOURCEDIR)odcfile.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcfile.c
- command /c erase $(OBJDIR)odcfile$(TARGET).obj
- move odcfile.obj $(OBJDIR)odcfile$(TARGET).obj
-
-$(OBJDIR)odcmdln$(TARGET).obj : $(SOURCEDIR)odcmdln.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcmdln.c
- command /c erase $(OBJDIR)odcmdln$(TARGET).obj
- move odcmdln.obj $(OBJDIR)odcmdln$(TARGET).obj
-
-$(OBJDIR)odcom$(TARGET).obj : $(SOURCEDIR)odcom.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcom.c
- command /c erase $(OBJDIR)odcom$(TARGET).obj
- move odcom.obj $(OBJDIR)odcom$(TARGET).obj
-
-$(OBJDIR)odcore$(TARGET).obj : $(SOURCEDIR)odcore.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odcore.c
- command /c erase $(OBJDIR)odcore$(TARGET).obj
- move odcore.obj $(OBJDIR)odcore$(TARGET).obj
-
-$(OBJDIR)oddrbox$(TARGET).obj : $(SOURCEDIR)oddrbox.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)oddrbox.c
- command /c erase $(OBJDIR)oddrbox$(TARGET).obj
- move oddrbox.obj $(OBJDIR)oddrbox$(TARGET).obj
-
-$(OBJDIR)odedit$(TARGET).obj : $(SOURCEDIR)odedit.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odedit.c
- command /c erase $(OBJDIR)odedit$(TARGET).obj
- move odedit.obj $(OBJDIR)odedit$(TARGET).obj
-
-$(OBJDIR)odedstr$(TARGET).obj : $(SOURCEDIR)odedstr.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odedstr.c
- command /c erase $(OBJDIR)odedstr$(TARGET).obj
- move odedstr.obj $(OBJDIR)odedstr$(TARGET).obj
-
-$(OBJDIR)odemu$(TARGET).obj : $(SOURCEDIR)odemu.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odemu.c
- command /c erase $(OBJDIR)odemu$(TARGET).obj
- move odemu.obj $(OBJDIR)odemu$(TARGET).obj
-
-$(OBJDIR)odframe$(TARGET).obj : $(SOURCEDIR)odframe.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odframe.c
- command /c erase $(OBJDIR)odframe$(TARGET).obj
- move odframe.obj $(OBJDIR)odframe$(TARGET).obj
-
-$(OBJDIR)odgetin$(TARGET).obj : $(SOURCEDIR)odgetin.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odgetin.c
- command /c erase $(OBJDIR)odgetin$(TARGET).obj
- move odgetin.obj $(OBJDIR)odgetin$(TARGET).obj
-
-$(OBJDIR)odgraph$(TARGET).obj : $(SOURCEDIR)odgraph.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odgraph.c
- command /c erase $(OBJDIR)odgraph$(TARGET).obj
- move odgraph.obj $(OBJDIR)odgraph$(TARGET).obj
-
-$(OBJDIR)odinex1$(TARGET).obj : $(SOURCEDIR)odinex1.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odinex1.c
- command /c erase $(OBJDIR)odinex1$(TARGET).obj
- move odinex1.obj $(OBJDIR)odinex1$(TARGET).obj
-
-$(OBJDIR)odinex2$(TARGET).obj : $(SOURCEDIR)odinex2.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odinex2.c
- command /c erase $(OBJDIR)odinex2$(TARGET).obj
- move odinex2.obj $(OBJDIR)odinex2$(TARGET).obj
-
-$(OBJDIR)odinque$(TARGET).obj : $(SOURCEDIR)odinque.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odinque.c
- command /c erase $(OBJDIR)odinque$(TARGET).obj
- move odinque.obj $(OBJDIR)odinque$(TARGET).obj
-
-$(OBJDIR)odkrnl$(TARGET).obj : $(SOURCEDIR)odkrnl.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odkrnl.c
- command /c erase $(OBJDIR)odkrnl$(TARGET).obj
- move odkrnl.obj $(OBJDIR)odkrnl$(TARGET).obj
-
-$(OBJDIR)odlist$(TARGET).obj : $(SOURCEDIR)odlist.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odlist.c
- command /c erase $(OBJDIR)odlist$(TARGET).obj
- move odlist.obj $(OBJDIR)odlist$(TARGET).obj
-
-$(OBJDIR)odlog$(TARGET).obj : $(SOURCEDIR)odlog.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odlog.c
- command /c erase $(OBJDIR)odlog$(TARGET).obj
- move odlog.obj $(OBJDIR)odlog$(TARGET).obj
-
-$(OBJDIR)odmulti$(TARGET).obj : $(SOURCEDIR)odmulti.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odmulti.c
- command /c erase $(OBJDIR)odmulti$(TARGET).obj
- move odmulti.obj $(OBJDIR)odmulti$(TARGET).obj
-
-$(OBJDIR)odplat$(TARGET).obj : $(SOURCEDIR)odplat.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odplat.c
- command /c erase $(OBJDIR)odplat$(TARGET).obj
- move odplat.obj $(OBJDIR)odplat$(TARGET).obj
-
-$(OBJDIR)odpcb$(TARGET).obj : $(SOURCEDIR)odpcb.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odpcb.c
- command /c erase $(OBJDIR)odpcb$(TARGET).obj
- move odpcb.obj $(OBJDIR)odpcb$(TARGET).obj
-
-$(OBJDIR)odpopup$(TARGET).obj : $(SOURCEDIR)odpopup.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odpopup.c
- command /c erase $(OBJDIR)odpopup$(TARGET).obj
- move odpopup.obj $(OBJDIR)odpopup$(TARGET).obj
-
-$(OBJDIR)odprntf$(TARGET).obj : $(SOURCEDIR)odprntf.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odprntf.c
- command /c erase $(OBJDIR)odprntf$(TARGET).obj
- move odprntf.obj $(OBJDIR)odprntf$(TARGET).obj
-
-$(OBJDIR)odra$(TARGET).obj : $(SOURCEDIR)odra.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odra.c
- command /c erase $(OBJDIR)odra$(TARGET).obj
- move odra.obj $(OBJDIR)odra$(TARGET).obj
-
-$(OBJDIR)odscrn$(TARGET).obj : $(SOURCEDIR)odscrn.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odscrn.c
- command /c erase $(OBJDIR)odscrn$(TARGET).obj
- move odscrn.obj $(OBJDIR)odscrn$(TARGET).obj
-
-$(OBJDIR)odspawn$(TARGET).obj : $(SOURCEDIR)odspawn.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odspawn.c
- command /c erase $(OBJDIR)odspawn$(TARGET).obj
- move odspawn.obj $(OBJDIR)odspawn$(TARGET).obj
-
-$(OBJDIR)odstand$(TARGET).obj : $(SOURCEDIR)odstand.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odstand.c
- command /c erase $(OBJDIR)odstand$(TARGET).obj
- move odstand.obj $(OBJDIR)odstand$(TARGET).obj
-
-$(OBJDIR)odstat$(TARGET).obj : $(SOURCEDIR)odstat.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odstat.c
- command /c erase $(OBJDIR)odstat$(TARGET).obj
- move odstat.obj $(OBJDIR)odstat$(TARGET).obj
-
-# This file (odsys.c) wasn't included in 6.1.1 source <shrug>
-#$(OBJDIR)odsys$(TARGET).obj : $(SOURCEDIR)odsys.c $(HEADERS)
-# $(CC) $(CFLAGS) $(SOURCEDIR)odsys.c
-# command /c erase $(OBJDIR)odsys$(TARGET).obj
-# move odsys.obj $(OBJDIR)odsys$(TARGET).obj
-
-$(OBJDIR)odutil$(TARGET).obj : $(SOURCEDIR)odutil.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odutil.c
- command /c erase $(OBJDIR)odutil$(TARGET).obj
- move odutil.obj $(OBJDIR)odutil$(TARGET).obj
-
-$(OBJDIR)odwcat$(TARGET).obj : $(SOURCEDIR)odwcat.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odwcat.c
- command /c erase $(OBJDIR)odwcat$(TARGET).obj
- move odwcat.obj $(OBJDIR)odwcat$(TARGET).obj
-
-$(OBJDIR)odwin$(TARGET).obj : $(SOURCEDIR)odwin.c $(HEADERS)
- $(CC) $(CFLAGS) $(SOURCEDIR)odwin.c
- command /c erase $(OBJDIR)odwin$(TARGET).obj
- move odwin.obj $(OBJDIR)odwin$(TARGET).obj
-#
-#------------------------------------------------------------------------------
-#
-# Build from resource script.
-#
-$(OBJDIR)ODoor$(TARGET).res: $(SOURCEDIR)ODRes.rc
- $(RC) $(SOURCEDIR)ODRes.rc
- command /c erase $(LIBDIR)ODoor$(TARGET).res
- move $(SOURCEDIR)ODRes.res $(OBJDIR)ODoor$(TARGET).res
-#
-#------------------------------------------------------------------------------
-#
-# Build DLL from objects.
-#
-OBJECTS= $(OBJDIR)odauto$(TARGET).obj\
- $(OBJDIR)odblock$(TARGET).obj\
- $(OBJDIR)odcfile$(TARGET).obj\
- $(OBJDIR)odcmdln$(TARGET).obj\
- $(OBJDIR)odcom$(TARGET).obj\
- $(OBJDIR)odcore$(TARGET).obj\
- $(OBJDIR)oddrbox$(TARGET).obj\
- $(OBJDIR)odedit$(TARGET).obj\
- $(OBJDIR)odedstr$(TARGET).obj\
- $(OBJDIR)odemu$(TARGET).obj\
- $(OBJDIR)odframe$(TARGET).obj\
- $(OBJDIR)odgetin$(TARGET).obj\
- $(OBJDIR)odgraph$(TARGET).obj\
- $(OBJDIR)odinex1$(TARGET).obj\
- $(OBJDIR)odinex2$(TARGET).obj\
- $(OBJDIR)odinque$(TARGET).obj\
- $(OBJDIR)odkrnl$(TARGET).obj\
- $(OBJDIR)odlist$(TARGET).obj\
- $(OBJDIR)odlog$(TARGET).obj\
- $(OBJDIR)odmulti$(TARGET).obj\
- $(OBJDIR)odplat$(TARGET).obj\
- $(OBJDIR)odpcb$(TARGET).obj\
- $(OBJDIR)odpopup$(TARGET).obj\
- $(OBJDIR)odprntf$(TARGET).obj\
- $(OBJDIR)odra$(TARGET).obj\
- $(OBJDIR)odscrn$(TARGET).obj\
- $(OBJDIR)odspawn$(TARGET).obj\
- $(OBJDIR)odstand$(TARGET).obj\
- $(OBJDIR)odstat$(TARGET).obj\
-# $(OBJDIR)odsys$(TARGET).obj\ this file is missing
- $(OBJDIR)odutil$(TARGET).obj\
- $(OBJDIR)odwcat$(TARGET).obj\
- $(OBJDIR)odwin$(TARGET).obj\
- $(OBJDIR)ODoor$(TARGET).res
-$(LIBDIR)ODoors62.dll : $(DEF_FILE) $(OBJECTS)
- $(LINK) @<<
- $(LINKFLAGS) $(OBJECTS)
-<<
-#
-#------------------------------------------------------------------------------
diff --git a/src/sbbs2/addfiles/addfiles.c b/src/sbbs2/addfiles/addfiles.c
deleted file mode 100644
index 3a878b34617b05909230bd08ffbc901c16960c1a..0000000000000000000000000000000000000000
--- a/src/sbbs2/addfiles/addfiles.c
+++ /dev/null
@@ -1,1668 +0,0 @@
-/* ADDFILES.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Program to add files to a Synchronet file database */
-
-#include "sbbs.h"
-
-#define ADDFILES_VER "2.24"
-
-char tmp[256];
-char *crlf="\r\n";
-
-#ifdef __TURBOC__
-unsigned _stklen=16000;
-#else
-unsigned _stacksize=16000;
-#endif
-
-int cur_altpath=0;
-
-long files=0,removed=0,mode=0;
-
-#define DEL_LIST (1L<<0)
-#define NO_EXTEND (1L<<1)
-#define FILE_DATE (1L<<2)
-#define TODAYS_DATE (1L<<3)
-#define FILE_ID (1L<<4)
-#define NO_UPDATE (1L<<5)
-#define NO_NEWDATE (1L<<6)
-#define ASCII_ONLY (1L<<7)
-#define UL_STATS (1L<<8)
-#define ULDATE_ONLY (1L<<9)
-#define KEEP_DESC (1L<<10)
-#define AUTO_ADD (1L<<11)
-#define SEARCH_DIR (1L<<12)
-#define SYNC_LIST (1L<<13)
-#define KEEP_SPACE (1L<<14)
-
-#ifndef __FLAT__
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char HUGE16 *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-
-/****************************************************************************/
-/* This function writes files that are potentially larger than 32767 bytes */
-/* Up to one megabytes of data can be written with each call. */
-/****************************************************************************/
-long lwrite(int file, char HUGE16 *buf, long bytes)
-{
-
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(write(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(write(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-#endif
-
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stdout));
-}
-
-/****************************************************************************/
-/* Returns string for 2 digit hex+ numbers up to 575 */
-/****************************************************************************/
-char *hexplus(uint num, char *str)
-{
-sprintf(str,"%03x",num);
-str[0]=num/0x100 ? 'f'+(num/0x10)-0xf : str[1];
-str[1]=str[2];
-str[2]=0;
-return(str);
-}
-
-
-/****************************************************************************/
-/* Places into 'strout', 'strin' starting at 'start' and ending at */
-/* 'start'+'length' */
-/****************************************************************************/
-void putrec(char *strout,int start,int length,char *strin)
-{
- int i=0,j;
-
-j=strlen(strin);
-while(i<j && i<length)
- strout[start++]=strin[i++];
-while(i++<length)
- strout[start++]=ETX;
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- int c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,_A_NORMAL,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the time/date of the file in 'filespec' in time_t (unix) format */
-/****************************************************************************/
-long fdate(char *filespec)
-{
- int file;
- ushort fd,ft;
- struct tm t;
-
-if((file=nopen(filespec,O_RDONLY))==-1)
- return(0);
-_dos_getftime(file,&fd,&ft);
-close(file);
-memset(&t,0,sizeof(t));
-t.tm_year=((fd&0xfe00)>>9)+80;
-t.tm_mon=((fd&0x01e0)>>5)-1;
-t.tm_mday=fd&0x1f;
-t.tm_hour=(ft&0xf800)>>11;
-t.tm_min=(ft&0x07e0)>>5;
-t.tm_sec=(ft&0x001f)<<1;
-return(mktime(&t));
-}
-
-/*****************************************************************************/
-/* Returns command line generated from instr with %c replacments */
-/*****************************************************************************/
-char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr)
-{
- static char cmd[128];
- char str[256];
- int i,j,len;
-
-len=strlen(instr);
-for(i=j=0;i<len && j<128;i++) {
- if(instr[i]=='%') {
- i++;
- cmd[j]=0;
- switch(toupper(instr[i])) {
- case 'F': /* File path */
- strcat(cmd,fpath);
- break;
- case 'G': /* Temp directory */
- if(temp_dir[0]!='\\' && temp_dir[1]!=':')
- strcat(cmd,node_dir);
- strcat(cmd,temp_dir);
- break;
- case 'N': /* Node Directory (same as SBBSNODE environment var) */
- strcat(cmd,node_dir);
- break;
- case 'S': /* File Spec */
- strcat(cmd,fspec);
- break;
- case '!': /* EXEC Directory */
- if(exec_dir[0]!='\\' && exec_dir[1]!=':')
- strcat(cmd,node_dir);
- strcat(cmd,exec_dir);
- break;
- case '#': /* Node number (same as SBBSNNUM environment var) */
- sprintf(str,"%d",node_num);
- strcat(cmd,str);
- break;
- case '%': /* %% for percent sign */
- strcat(cmd,"%");
- break;
- default: /* unknown specification */
- break; }
- j=strlen(cmd); }
- else
- cmd[j++]=instr[i]; }
-cmd[j]=0;
-
-return(cmd);
-}
-
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct tm *t;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- t=gmtime(&unix);
- sprintf(str,"%02u/%02u/%02u",t->tm_mon+1,t->tm_mday
- ,TM_YEAR(t->tm_year)); }
-return(str);
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(access&O_WRONLY) access|=O_RDWR; /* fdopen can't open WRONLY */
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&(O_RDONLY|O_RDWR))
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&(O_WRONLY|O_RDWR))
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-void allocfail(uint size)
-{
-lprintf("\7Error allocating %u bytes of memory.\r\n",size);
-bail(1);
-}
-
-void bail(int code)
-{
-exit(code);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,_A_NORMAL,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(f.size);
-return(-1L);
-}
-
-/****************************************************************************/
-/* Turns FILE.EXT into FILE .EXT */
-/* Called from upload */
-/****************************************************************************/
-char *padfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0;c<8;c++)
- if(filename[c]=='.' || !filename[c]) break;
- else str[c]=filename[c];
-d=c;
-if(filename[c]=='.') c++;
-while(d<8)
- str[d++]=SP;
-str[d++]='.';
-while(d<12)
- if(!filename[c]) break;
- else str[d++]=filename[c++];
-while(d<12)
- str[d++]=SP;
-str[d]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Turns FILE .EXT into FILE.EXT */
-/****************************************************************************/
-char *unpadfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0,d=0;c<strlen(filename);c++)
- if(filename[c]!=SP) str[d++]=filename[c];
-str[d]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Checks directory data file for 'filename' (must be padded). If found, */
-/* it returns the 1, else returns 0. */
-/* Called from upload and bulkupload */
-/****************************************************************************/
-char findfile(uint dirnum, char *filename)
-{
- char str[256],c,fname[128],HUGE16 *ixbbuf;
- int file;
- ulong length,l;
-
-strcpy(fname,filename);
-for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[c]=fname[c+1];
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1) return(0);
-length=filelength(file);
-if(!length) {
- close(file);
- return(0); }
-if((ixbbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- printf("ERR_ALLOC %s %lu\n",str,length);
- return(0); }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- FREE((char *)ixbbuf);
- return(0); }
-close(file);
-for(l=0;l<length;l+=F_IXBSIZE) {
- for(c=0;c<11;c++)
- if(fname[c]!=ixbbuf[l+c]) break;
- if(c==11) break; }
-FREE((char *)ixbbuf);
-if(l<length)
- return(1);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Adds the data for struct filedat to the directory's data base. */
-/* changes the .datoffset field only */
-/****************************************************************************/
-char addfiledat(file_t *f)
-{
- char str[256],fdat[F_LEN+1],fname[128],idx[128],c,HUGE16 *ixbbuf;
- int i,file;
- ulong length,l,uldate;
-
-/************************/
-/* Add data to DAT File */
-/************************/
-sprintf(str,"%s%s.DAT",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- printf("ERROR opening %s\n",str);
- return(0); }
-length=filelength(file);
-if(length==0L)
- l=0L;
-else {
- if(length%F_LEN) {
- close(file);
- printf("ERR_LEN %s %lu\n",str,length);
- return(0); }
- for(l=0;l<length;l+=F_LEN) { /* Find empty slot */
- lseek(file,l,SEEK_SET);
- read(file,&c,1);
- if(c==ETX) break; } }
-putrec(fdat,F_CDT,7,ultoa(f->cdt,tmp,10));
-putrec(fdat,F_CDT+7,2,crlf);
-putrec(fdat,F_DESC,LEN_FDESC,f->desc);
-putrec(fdat,F_DESC+LEN_FDESC,2,crlf);
-putrec(fdat,F_ULER,LEN_ALIAS+5,f->uler);
-putrec(fdat,F_ULER+LEN_ALIAS+5,2,crlf);
-putrec(fdat,F_TIMESDLED,5,ultoa(f->timesdled,tmp,10));
-putrec(fdat,F_TIMESDLED+5,2,crlf);
-putrec(fdat,F_OPENCOUNT,3,itoa(f->opencount,tmp,10));
-putrec(fdat,F_OPENCOUNT+3,2,crlf);
-fdat[F_MISC]=f->misc+SP;
-putrec(fdat,F_ALTPATH,2,hexplus(f->altpath,tmp));
-putrec(fdat,F_ALTPATH+2,2,crlf);
-f->datoffset=l;
-idx[0]=l&0xff; /* Get offset within DAT file for IXB file */
-idx[1]=(l>>8)&0xff;
-idx[2]=(l>>16)&0xff;
-lseek(file,l,SEEK_SET);
-if(write(file,fdat,F_LEN)!=F_LEN) {
- close(file);
- return(0); }
-length=filelength(file);
-close(file);
-if(length%F_LEN)
- printf("ERR_LEN %s %lu\n",str,length);
-
-/*******************************************/
-/* Update last upload date/time stamp file */
-/*******************************************/
-sprintf(str,"%s%s.DAB",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- printf("ERR_OPEN %s\r\n",str);
-else {
- uldate=time(NULL);
- write(file,&uldate,4);
- close(file); }
-
-/************************/
-/* Add data to IXB File */
-/************************/
-strcpy(fname,f->name);
-for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[i]=fname[i+1];
-sprintf(str,"%s%s.IXB",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- printf("ERR_OPEN %s\n",str);
- return(0); }
-length=filelength(file);
-if(length) { /* IXB file isn't empty */
- if(length%F_IXBSIZE) {
- close(file);
- printf("ERR_LEN %s %lu\n",str,length);
- return(0); }
- if((ixbbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- printf("ERR_ALLOC %s %lu\n",str,length);
- return(0); }
- if(lread(file,ixbbuf,length)!=length) {
- close(file);
- printf("ERR_READ %s %lu\n",str,length);
- FREE((char *)ixbbuf);
- return(0); }
-/************************************************/
-/* Sort by Name or Date, Assending or Decending */
-/************************************************/
- if(dir[f->dir]->sort==SORT_NAME_A || dir[f->dir]->sort==SORT_NAME_D) {
- for(l=0;l<length;l+=F_IXBSIZE) {
- for(i=0;i<12 && fname[i]==ixbbuf[l+i];i++);
- if(i==12) { /* file already in directory index */
- close(file);
- printf("ERR_CHK %s\n",fname);
- FREE((char *)ixbbuf);
- return(0); }
- if(dir[f->dir]->sort==SORT_NAME_A && fname[i]<ixbbuf[l+i])
- break;
- if(dir[f->dir]->sort==SORT_NAME_D && fname[i]>ixbbuf[l+i])
- break; } }
- else { /* sort by date */
- for(l=0;l<length;l+=F_IXBSIZE) {
- uldate=(ixbbuf[l+15]|((long)ixbbuf[l+16]<<8)
- |((long)ixbbuf[l+17]<<16)|((long)ixbbuf[l+18]<<24));
- if(dir[f->dir]->sort==SORT_DATE_A && f->dateuled>uldate)
- break;
- if(dir[f->dir]->sort==SORT_DATE_D && f->dateuled<uldate)
- break; } }
- lseek(file,l,SEEK_SET);
- if(write(file,fname,11)!=11) { /* Write filename to IXB file */
- close(file);
- FREE((char *)ixbbuf);
- return(0); }
- if(write(file,idx,3)!=3) { /* Write DAT offset into IXB file */
- close(file);
- FREE((char *)ixbbuf);
- return(0); }
- write(file,&f->dateuled,sizeof(time_t));
- write(file,&f->datedled,4); /* Write 0 for datedled */
- if(lwrite(file,&ixbbuf[l],length-l)!=length-l) { /* Write rest of IXB */
- close(file);
- FREE((char *)ixbbuf);
- return(0); }
- FREE((char *)ixbbuf); }
-else { /* IXB file is empty... No files */
- if(write(file,fname,11)!=11) { /* Write filename it IXB file */
- close(file);
- return(0); }
- if(write(file,idx,3)!=3) { /* Write DAT offset into IXB file */
- close(file);
- return(0); }
- write(file,&f->dateuled,sizeof(time_t));
- write(file,&f->datedled,4); }
-length=filelength(file);
-close(file);
-if(length%F_IXBSIZE)
- printf("ERR_LEN %s %lu\n",str,length);
-return(1);
-}
-
-void putextdesc(uint dirnum, ulong datoffset, char *ext)
-{
- char str[256],nulbuf[512];
- int file;
-
-sprintf(str,"%s%s.EXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- return;
-lseek(file,0L,SEEK_END);
-while(filelength(file)<(datoffset/F_LEN)*512L)
- write(file,nulbuf,512);
-lseek(file,(datoffset/F_LEN)*512L,SEEK_SET);
-write(file,ext,512);
-close(file);
-}
-
-/****************************************************************************/
-/* Gets file data from dircode.IXB file */
-/* Need fields .name and .dir filled. */
-/* only fills .offset, .dateuled, and .datedled */
-/****************************************************************************/
-void getfileixb(file_t *f)
-{
- uchar HUGE16 *ixbbuf,str[256],fname[128];
- int file;
- ulong l,length;
-
-sprintf(str,"%s%s.IXB",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if(length%F_IXBSIZE) {
- close(file);
- printf("ERR_LEN %s\n");
- return; }
-if((ixbbuf=(uchar HUGE16 *)MALLOC(length))==NULL) {
- close(file);
- printf("ERR_ALLOC %s\n",str);
- return; }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- FREE((char *)ixbbuf);
- printf("ERR_READ %s\n",str);
- return; }
-close(file);
-strcpy(fname,f->name);
-for(l=8;l<12;l++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[l]=fname[l+1];
-for(l=0;l<length;l+=F_IXBSIZE) {
- sprintf(str,"%11.11s",ixbbuf+l);
- if(!strcmp(str,fname))
- break; }
-if(l>=length) {
- printf("getfileixb: ERR_CHK %s\n",fname);
- FREE((char *)ixbbuf);
- return; }
-l+=11;
-f->datoffset=ixbbuf[l]|((long)ixbbuf[l+1]<<8)|((long)ixbbuf[l+2]<<16);
-f->dateuled=ixbbuf[l+3]|((long)ixbbuf[l+4]<<8)
- |((long)ixbbuf[l+5]<<16)|((long)ixbbuf[l+6]<<24);
-f->datedled=ixbbuf[l+7]|((long)ixbbuf[l+8]<<8)
- |((long)ixbbuf[l+9]<<16)|((long)ixbbuf[l+10]<<24);
-FREE((char *)ixbbuf);
-}
-
-/****************************************************************************/
-/* Puts filedata into DIR_code.DAT file */
-/* Called from removefiles */
-/****************************************************************************/
-void putfiledat(file_t f)
-{
- char buf[F_LEN+1],str[256];
- int file;
- long length;
-
-putrec(buf,F_CDT,7,ultoa(f.cdt,tmp,10));
-putrec(buf,F_CDT+7,2,crlf);
-putrec(buf,F_DESC,LEN_FDESC,f.desc);
-putrec(buf,F_DESC+LEN_FDESC,2,crlf);
-putrec(buf,F_ULER,LEN_ALIAS+5,f.uler);
-putrec(buf,F_ULER+LEN_ALIAS+5,2,crlf);
-putrec(buf,F_TIMESDLED,5,itoa(f.timesdled,tmp,10));
-putrec(buf,F_TIMESDLED+5,2,crlf);
-putrec(buf,F_OPENCOUNT,3,itoa(f.opencount,tmp,10));
-putrec(buf,F_OPENCOUNT+3,2,crlf);
-buf[F_MISC]=f.misc+SP;
-putrec(buf,F_ALTPATH,2,hexplus(f.altpath,tmp));
-putrec(buf,F_ALTPATH+2,2,crlf);
-sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if(length%F_LEN) {
- close(file);
- printf("ERR_LEN %s\n",str);
- return; }
-if(f.datoffset>length) {
- close(file);
- printf("ERR_LEN %s\n",str);
- return; }
-lseek(file,f.datoffset,SEEK_SET);
-if(write(file,buf,F_LEN)!=F_LEN) {
- close(file);
- printf("ERR_WRITE %s\n",str);
- return; }
-length=filelength(file);
-close(file);
-if(length%F_LEN)
- printf("ERR_LEN %s\n",str);
-}
-
-/****************************************************************************/
-/* Update the upload date for the file 'f' */
-/****************************************************************************/
-void update_uldate(file_t f)
-{
- char str[256],fname[128];
- int i,file;
- long l,length;
-
-/*******************/
-/* Update IXB File */
-/*******************/
-sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_RDWR))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if(length%F_IXBSIZE) {
- close(file);
- printf("ERR_LEN %s\n",str);
- return; }
-strcpy(fname,f.name);
-for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[i]=fname[i+1];
-for(l=0;l<length;l+=F_IXBSIZE) {
- read(file,str,F_IXBSIZE); /* Look for the filename in the IXB file */
- str[11]=0;
- if(!strcmp(fname,str)) break; }
-if(l>=length) {
- close(file);
- printf("ERR_CHK %s\n",f.name);
- return; }
-lseek(file,l+14,SEEK_SET);
-write(file,&f.dateuled,4); /* Write the current time stamp for datedled */
-close(file);
-
-/*******************************************/
-/* Update last upload date/time stamp file */
-/*******************************************/
-sprintf(str,"%s%s.DAB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- printf("ERR_OPEN %s\r\n",str);
-else {
- write(file,&f.dateuled,4);
- close(file); }
-
-}
-
-
-void strip_ctrl(char *str)
-{
- char tmp[1024];
- int i,j,k;
-
-k=strlen(str);
-for(i=j=0;i<k;i++)
- if(j && str[i]==SP && tmp[j-1]==SP && (mode&KEEP_SPACE))
- tmp[j++]=str[i];
- else if(j && str[i]<=SP && tmp[j-1]==SP)
- continue;
- else if(i && !isalnum(str[i]) && str[i]==str[i-1])
- continue;
- else if((uchar)str[i]>=SP)
- tmp[j++]=str[i];
- else if(str[i]==TAB || (str[i]==CR && str[i+1]==LF))
- tmp[j++]=SP;
-tmp[j]=0;
-strcpy(str,tmp);
-}
-
-
-void strip_exascii(char *str)
-{
- char tmp[1024];
- int i,j,k;
-
-k=strlen(str);
-for(i=j=0;i<k;i++)
- if(!(str[i]&0x80))
- tmp[j++]=str[i];
-tmp[j]=0;
-strcpy(str,tmp);
-}
-
-/****************************************************************************/
-/* Updates dstst.dab file */
-/****************************************************************************/
-void updatestats(ulong size)
-{
- char str[256];
- int i,file;
- ulong l;
-
-sprintf(str,"%sDSTS.DAB",ctrl_dir);
-if((file=nopen(str,O_RDWR))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-lseek(file,20L,SEEK_SET); /* Skip timestamp, logons and logons today */
-read(file,&l,4); /* Uploads today */
-l++;
-lseek(file,-4L,SEEK_CUR);
-write(file,&l,4);
-read(file,&l,4); /* Upload bytes today */
-l+=size;
-lseek(file,-4L,SEEK_CUR);
-write(file,&l,4);
-close(file);
-}
-
-void addlist(char *inpath, file_t f, char dskip, char sskip)
-{
- uchar str[256],fname[256],listpath[256],filepath[256]
- ,curline[256],nextline[256],*p,exist,ext[1024],tmpext[513];
- int i,file;
- long l;
- FILE *stream;
- struct find_t ff;
-
-if(mode&SEARCH_DIR) {
- strcpy(str,cur_altpath ? altpath[cur_altpath-1] : dir[f.dir]->path);
- if(str[0]=='.') {
- sprintf(tmp,"%s%s",node_dir,str);
- strcpy(str,tmp); }
- strcat(str,"*.*");
- printf("Searching %s\n\n",str);
- for(i=_dos_findfirst(str,0,&ff);!i;i=_dos_findnext(&ff)) {
- strupr(ff.name);
- sprintf(filepath,"%s%s",cur_altpath ? altpath[cur_altpath-1]
- : dir[f.dir]->path,ff.name);
- if(filepath[0]=='.') { /* relative path */
- sprintf(tmp,"%s%s",node_dir,filepath);
- strcpy(filepath,tmp); }
- f.misc=0;
- f.desc[0]=0;
- f.cdt=flength(filepath);
- padfname(ff.name,f.name);
- printf("%s %10lu %s\n"
- ,f.name,f.cdt,unixtodstr(fdate(filepath),str));
- exist=findfile(f.dir,f.name);
- if(exist) {
- if(mode&NO_UPDATE)
- continue;
- getfileixb(&f);
- if(mode&ULDATE_ONLY) {
- f.dateuled=time(NULL);
- update_uldate(f);
- continue; } }
-
- if(mode&FILE_DATE) { /* get the file date and put into desc */
- unixtodstr(fdate(filepath),f.desc);
- strcat(f.desc," "); }
-
- if(mode&TODAYS_DATE) { /* put today's date in desc */
- unixtodstr(time(NULL),f.desc);
- strcat(f.desc," "); }
-
- if(mode&FILE_ID) {
- for(i=0;i<total_fextrs;i++)
- if(!stricmp(fextr[i]->ext,f.name+9))
- break;
- if(i<total_fextrs) {
- sprintf(tmp,"%sFILE_ID.DIZ",temp_dir);
- remove(tmp);
- system(cmdstr(fextr[i]->cmd,filepath,"FILE_ID.DIZ",NULL));
- if(!fexist(tmp)) {
- sprintf(tmp,"%sDESC.SDI",temp_dir);
- remove(tmp);
- system(cmdstr(fextr[i]->cmd,filepath,"DESC.SDI",NULL)); }
- if((file=nopen(tmp,O_RDONLY))!=-1) {
- memset(ext,0,513);
- read(file,ext,512);
- for(i=512;i;i--)
- if(ext[i-1]>SP)
- break;
- ext[i]=0;
- if(mode&ASCII_ONLY)
- strip_exascii(ext);
- if(!(mode&KEEP_DESC)) {
- sprintf(tmpext,"%.256s",ext);
- strip_ctrl(tmpext);
- for(i=0;tmpext[i];i++)
- if(isalpha(tmpext[i]))
- break;
- sprintf(f.desc,"%.*s",LEN_FDESC,tmpext+i);
- for(i=0;f.desc[i]>=SP && i<LEN_FDESC;i++)
- ;
- f.desc[i]=0; }
- close(file);
- f.misc|=FM_EXTDESC; } } }
-
- f.dateuled=time(NULL);
- f.altpath=cur_altpath;
- strip_ctrl(f.desc);
- if(mode&ASCII_ONLY)
- strip_exascii(f.desc);
- if(exist) {
- putfiledat(f);
- if(!(mode&NO_NEWDATE))
- update_uldate(f); }
- else
- addfiledat(&f);
- if(f.misc&FM_EXTDESC) {
- truncsp(ext);
- putextdesc(f.dir,f.datoffset,ext); }
-
- if(mode&UL_STATS)
- updatestats(f.cdt);
- files++; }
-#ifdef __WATCOMC__
- _dos_findclose(&ff);
-#endif
- return; }
-
-
-strcpy(listpath,inpath);
-if((stream=fnopen(&file,listpath,O_RDONLY))==NULL) {
- sprintf(listpath,"%s%s",cur_altpath ? altpath[cur_altpath-1]
- : dir[f.dir]->path,inpath);
- if(listpath[0]=='.') { /* relative path */
- sprintf(str,"%s%s",node_dir,listpath);
- strcpy(listpath,str); }
- if((stream=fnopen(&file,listpath,O_RDONLY))==NULL) {
- printf("Can't open: %s\n"
- " or: %s\n",inpath,listpath);
- return; } }
-
-printf("Adding %s to %s %s\n\n"
- ,listpath,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
-
-fgets(nextline,255,stream);
-while(!feof(stream) && !ferror(stream)) {
- f.misc=0;
- f.desc[0]=0;
- strcpy(curline,nextline);
- nextline[0]=0;
- fgets(nextline,255,stream);
- truncsp(curline);
- if(curline[0]<=SP || (uchar)curline[0]>=0x7e)
- continue;
- printf("%s\n",curline);
- strcpy(fname,curline);
-
- p=strchr(fname,'.');
- if(!p || p==fname || p>fname+8) /* no dot or invalid dot location */
- continue;
- p=strchr(p,SP);
- if(p) *p=0;
- else /* no space after filename? */
- continue;
- strupr(fname);
- strcpy(fname,unpadfname(fname,tmp));
-
- padfname(fname,f.name);
- if(strcspn(f.name,"\\/|<>+[]:=\";,")!=strlen(f.name))
- continue;
-
- for(i=0;i<12;i++)
- if(f.name[i]<SP || (uchar)f.name[i]>0x7e)
- break;
-
- if(i<12) /* Ctrl chars or EX-ASCII in filename? */
- continue;
- exist=findfile(f.dir,f.name);
- if(exist) {
- if(mode&NO_UPDATE)
- continue;
- getfileixb(&f);
- if(mode&ULDATE_ONLY) {
- f.dateuled=time(NULL);
- update_uldate(f);
- continue; } }
-
- sprintf(filepath,"%s%s",cur_altpath ? altpath[cur_altpath-1]
- : dir[f.dir]->path,fname);
- if(filepath[0]=='.') { /* relative path */
- sprintf(tmp,"%s%s",node_dir,filepath);
- strcpy(filepath,tmp); }
-
- if(mode&FILE_DATE) { /* get the file date and put into desc */
- l=fdate(filepath);
- unixtodstr(l,f.desc);
- strcat(f.desc," "); }
-
- if(mode&TODAYS_DATE) { /* put today's date in desc */
- l=time(NULL);
- unixtodstr(l,f.desc);
- strcat(f.desc," "); }
-
- if(dskip && strlen(curline)>=dskip) p=curline+dskip;
- else {
- p++;
- while(*p==SP) p++; }
- sprintf(tmp,"%.*s",LEN_FDESC-strlen(f.desc),p);
- strcat(f.desc,tmp);
-
- if(nextline[0]==SP || strlen(p)>LEN_FDESC) { /* ext desc */
- if(!(mode&NO_EXTEND)) {
- memset(ext,0,513);
- f.misc|=FM_EXTDESC;
- sprintf(ext,"%s\r\n",p); }
-
- if(nextline[0]==SP) {
- strcpy(str,nextline); /* tack on to end of desc */
- p=str+dskip;
- i=LEN_FDESC-strlen(f.desc);
- if(i>1) {
- p[i-1]=0;
- truncsp(p);
- if(p[0]) {
- strcat(f.desc," ");
- strcat(f.desc,p); } } }
-
- while(!feof(stream) && !ferror(stream) && strlen(ext)<512) {
- if(nextline[0]!=SP)
- break;
- truncsp(nextline);
- printf("%s\n",nextline);
- if(!(mode&NO_EXTEND)) {
- f.misc|=FM_EXTDESC;
- p=nextline+dskip;
- while(*p==SP) p++;
- strcat(ext,p);
- strcat(ext,"\r\n"); }
- nextline[0]=0;
- fgets(nextline,255,stream); } }
-
-
- if(sskip) l=atol(fname+sskip);
- else {
- l=flength(filepath);
- if(l<1L) {
- printf("%s not found.\n",filepath);
- continue; } }
-
- if(mode&FILE_ID) {
- for(i=0;i<total_fextrs;i++)
- if(!stricmp(fextr[i]->ext,f.name+9))
- break;
- if(i<total_fextrs) {
- sprintf(tmp,"%sFILE_ID.DIZ",temp_dir);
- remove(tmp);
- system(cmdstr(fextr[i]->cmd,filepath,"FILE_ID.DIZ",NULL));
- if(!fexist(tmp)) {
- sprintf(tmp,"%sDESC.SDI",temp_dir);
- remove(tmp);
- system(cmdstr(fextr[i]->cmd,filepath,"DESC.SDI",NULL)); }
- if((file=nopen(tmp,O_RDONLY))!=-1) {
- memset(ext,0,513);
- read(file,ext,512);
- for(i=512;i;i--)
- if(ext[i-1]>SP)
- break;
- ext[i]=0;
- if(mode&ASCII_ONLY)
- strip_exascii(ext);
- if(!(mode&KEEP_DESC)) {
- sprintf(tmpext,"%.256s",ext);
- strip_ctrl(tmpext);
- for(i=0;tmpext[i];i++)
- if(isalpha(tmpext[i]))
- break;
- sprintf(f.desc,"%.*s",LEN_FDESC,tmpext+i);
- for(i=0;f.desc[i]>=SP && i<LEN_FDESC;i++)
- ;
- f.desc[i]=0; }
- close(file);
- f.misc|=FM_EXTDESC; } } }
-
- f.cdt=l;
- f.dateuled=time(NULL);
- f.altpath=cur_altpath;
- strip_ctrl(f.desc);
- if(mode&ASCII_ONLY)
- strip_exascii(f.desc);
- if(exist) {
- putfiledat(f);
- if(!(mode&NO_NEWDATE))
- update_uldate(f); }
- else
- addfiledat(&f);
- if(f.misc&FM_EXTDESC) {
- truncsp(ext);
- putextdesc(f.dir,f.datoffset,ext); }
-
- if(mode&UL_STATS)
- updatestats(l);
- files++; }
-fclose(stream);
-if(mode&DEL_LIST && !(mode&SYNC_LIST)) {
- printf("\nDeleting %s\n",listpath);
- remove(listpath); }
-
-}
-
-/***********************/
-/* Hex-plus to integer */
-/***********************/
-uint hptoi(char *str)
-{
- char tmp[128];
- uint i;
-
-if(!str[1] || toupper(str[0])<='F')
- return(strtol(str,0,16));
-strcpy(tmp,str);
-tmp[0]='F';
-i=strtol(tmp,0,16)+((toupper(str[0])-'F')*0x10);
-return(i);
-}
-
-/****************************************************************************/
-/* Places into 'strout' CR or ETX terminated string starting at */
-/* 'start' and ending at 'start'+'length' or terminator from 'strin' */
-/****************************************************************************/
-void getrec(char *strin,int start,int length,char *strout)
-{
- int i=0,stop;
-
-stop=start+length;
-while(start<stop) {
- if(strin[start]==ETX)
- break;
- strout[i++]=strin[start++]; }
-strout[i]=0;
-}
-
-
-/****************************************************************************/
-/* Gets filedata from dircode.DAT file */
-/* Need fields .name ,.dir and .offset to get other info */
-/* Does not fill .dateuled or .datedled fields. */
-/****************************************************************************/
-void getfiledat(file_t *f)
-{
- char buf[F_LEN+1],str[256];
- int file;
- long length;
-
-sprintf(str,"%s%s.DAT",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if(f->datoffset>length) {
- close(file);
- printf("ERR_LEN %s %lu\n",str,length);
- return; }
-if(length%F_LEN) {
- close(file);
- printf("ERR_LEN %s %lu\n",str,length);
- return; }
-lseek(file,f->datoffset,SEEK_SET);
-if(read(file,buf,F_LEN)!=F_LEN) {
- close(file);
- printf("ERR_READ %s %lu\n",str,F_LEN);
- return; }
-close(file);
-getrec(buf,F_ALTPATH,2,str);
-f->altpath=hptoi(str);
-getrec(buf,F_CDT,7,str);
-f->cdt=atol(str);
-f->timetodl=0;
-
-getrec(buf,F_DESC,LEN_FDESC,f->desc);
-getrec(buf,F_ULER,LEN_ALIAS,f->uler);
-getrec(buf,F_TIMESDLED,5,str);
-f->timesdled=atoi(str);
-getrec(buf,F_OPENCOUNT,3,str);
-f->opencount=atoi(str);
-if(buf[F_MISC]!=ETX)
- f->misc=buf[F_MISC]-SP;
-else
- f->misc=0;
-}
-
-/****************************************************************************/
-/* Removes any files in the user transfer index (XFER.IXT) that match the */
-/* specifications of dest, or source user, or filename or any combination. */
-/****************************************************************************/
-void rmuserxfers(int fromuser, int destuser, char *fname)
-{
- char str[256],*ixtbuf;
- int file;
- long l,length;
-
-sprintf(str,"%sXFER.IXT",data_dir);
-if(!fexist(str))
- return;
-if(!flength(str)) {
- remove(str);
- return; }
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if((ixtbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- printf("ERR_ALLOC %s\n",str,length);
- return; }
-if(read(file,ixtbuf,length)!=length) {
- close(file);
- FREE(ixtbuf);
- printf("ERR_READ %s %lu\n",str,length);
- return; }
-close(file);
-if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) {
- FREE(ixtbuf);
- printf("ERR_OPEN %s\n",str);
- return; }
-for(l=0;l<length;l+=24) {
- if(fname!=NULL && fname[0]) { /* fname specified */
- if(!strncmp(ixtbuf+l+5,fname,12)) { /* this is the file */
- if(destuser && fromuser) { /* both dest and from user */
- if(atoi(ixtbuf+l)==destuser && atoi(ixtbuf+l+18)==fromuser)
- continue; } /* both match */
- else if(fromuser) { /* from user */
- if(atoi(ixtbuf+l+18)==fromuser) /* matches */
- continue; }
- else if(destuser) { /* dest user */
- if(atoi(ixtbuf+l)==destuser) /* matches */
- continue; }
- else continue; } } /* no users, so match */
- else if(destuser && fromuser) {
- if(atoi(ixtbuf+l+18)==fromuser && atoi(ixtbuf+l)==destuser)
- continue; }
- else if(destuser && atoi(ixtbuf+l)==destuser)
- continue;
- else if(fromuser && atoi(ixtbuf+l+18)==fromuser)
- continue;
- write(file,ixtbuf+l,24); }
-close(file);
-FREE(ixtbuf);
-}
-
-
-
-/****************************************************************************/
-/* Removes DAT and IXB entries for the file in the struct 'f' */
-/****************************************************************************/
-void removefiledat(file_t f)
-{
- char c,str[256],ixbname[12],HUGE16 *ixbbuf,fname[13];
- int file;
- ulong l,length;
-
-strcpy(fname,f.name);
-for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[c]=fname[c+1];
-sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if(!length) {
- close(file);
- return; }
-if((ixbbuf=(char *)MALLOC(length))==0) {
- close(file);
- printf("ERR_ALLOC %s %lu\n",str,length);
- return; }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- printf("ERR_READ %s %lu\n",str,length);
- FREE((char *)ixbbuf);
- return; }
-close(file);
-if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-for(l=0;l<length;l+=F_IXBSIZE) {
- for(c=0;c<11;c++)
- ixbname[c]=ixbbuf[l+c];
- ixbname[c]=0;
- if(strcmp(ixbname,fname))
- if(lwrite(file,&ixbbuf[l],F_IXBSIZE)!=F_IXBSIZE) {
- close(file);
- printf("ERR_WRITE %s %lu\n",str,F_IXBSIZE);
- FREE((char *)ixbbuf);
- return; } }
-FREE((char *)ixbbuf);
-close(file);
-sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-lseek(file,f.datoffset,SEEK_SET);
-c=ETX; /* If first char of record is ETX, record is unused */
-if(write(file,&c,1)!=1) { /* So write a D_T on the first byte of the record */
- close(file);
- printf("ERR_WRITE %s 1",str);
- return; }
-close(file);
-if(f.dir==user_dir) /* remove file from index */
- rmuserxfers(0,0,f.name);
-
-}
-
-
-void synclist(char *inpath, int dirnum)
-{
- uchar str[1024],fname[256],listpath[256], HUGE16 *ixbbuf,*p;
- int i,file,found;
- long l,m,length;
- FILE *stream;
- file_t f;
-
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERR_OPEN %s\n",str);
- return; }
-length=filelength(file);
-if(length%F_IXBSIZE) {
- close(file);
- printf("ERR_LEN %s\n");
- return; }
-if((ixbbuf=(uchar HUGE16 *)MALLOC(length))==NULL) {
- close(file);
- printf("ERR_ALLOC %s\n",str);
- return; }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- FREE((char *)ixbbuf);
- printf("ERR_READ %s\n",str);
- return; }
-close(file);
-
-strcpy(listpath,inpath);
-if((stream=fnopen(&file,listpath,O_RDONLY))==NULL) {
- sprintf(listpath,"%s%s",cur_altpath ? altpath[cur_altpath-1]
- : dir[dirnum]->path,inpath);
- if(listpath[0]=='.') { /* relative path */
- sprintf(str,"%s%s",node_dir,listpath);
- strcpy(listpath,str); }
- if((stream=fnopen(&file,listpath,O_RDONLY))==NULL) {
- printf("Can't open: %s\n"
- " or: %s\n",inpath,listpath);
- return; } }
-
-printf("\nSynchronizing %s with %s %s\n\n"
- ,listpath,lib[dir[dirnum]->lib]->sname,dir[dirnum]->sname);
-
-for(l=0;l<length;l+=F_IXBSIZE) {
- m=l;
- for(i=0;i<12 && l<length;i++)
- if(i==8)
- str[i]='.';
- else
- str[i]=ixbbuf[m++]; /* Turns FILENAMEEXT into FILENAME.EXT */
- str[i]=0;
- unpadfname(str,fname);
- rewind(stream);
- found=0;
- while(!found) {
- if(!fgets(str,1000,stream))
- break;
- truncsp(str);
- p=strchr(str,SP);
- if(p) *p=0;
- if(!stricmp(str,fname))
- found=1; }
- if(found)
- continue;
- padfname(fname,f.name);
- printf("%s not found in list - ",f.name);
- f.dir=dirnum;
- f.datoffset=ixbbuf[m]|((long)ixbbuf[m+1]<<8)|((long)ixbbuf[m+2]<<16);
- getfiledat(&f);
- if(f.opencount) {
- printf("currently OPEN by %u users\n",f.opencount);
- continue; }
- removefiledat(f);
- sprintf(str,"%s%s"
- ,f.altpath>0 && f.altpath<=altpaths ? altpath[f.altpath-1]
- : dir[f.dir]->path,fname);
- if(str[0]=='.') {
- sprintf(tmp,"%s%s",node_dir,str);
- strcpy(str,tmp); }
- if(remove(str))
- printf("Error removing %s\n",str);
- removed++;
- printf("Removed from database\n"); }
-
-if(mode&DEL_LIST) {
- printf("\nDeleting %s\n",listpath);
- remove(listpath); }
-}
-
-char *usage="\nusage: addfiles code [.alt_path] [/opts] [\"*user\"] +list "
- "[desc_off] [size_off]"
- "\n or: addfiles code [.alt_path] [/opts] [\"*user\"] file "
- "\"description\"\n"
- "\navailable opts:"
- "\n a import ASCII only (no extended ASCII)"
- "\n b synchronize database with file list (use with caution)"
- "\n c do not remove extra spaces from file description"
- "\n d delete list after import"
- "\n e do not import extended descriptions"
- "\n f include file date in descriptions"
- "\n t include today's date in descriptions"
- "\n i include added files in upload statistics"
- "\n n do not update information for existing files"
- "\n o update upload date only for existing files"
- "\n u do not update upload date for existing files"
- "\n z check for and import FILE_ID.DIZ and DESC.SDI"
- "\n k keep original short description (not DIZ)"
- "\n s search directory for files (no file list)"
- "\n"
- "\nAuto-ADD: use * in place of code for Auto-ADD of FILES.BBS"
- "\n use *filename to Auto-ADD a different filename"
- "\n"
- ;
-
-/*********************/
-/* Entry point (duh) */
-/*********************/
-int main(int argc, char **argv)
-{
- uchar str[256],str2[256],*p,exist,listgiven=0,namegiven=0,ext[513]
- ,auto_name[13]="FILES.BBS";
- int i,j,k,file;
- long l;
- read_cfg_text_t txt;
- file_t f;
-
-putenv("TZ=UCT0");
-_fmode=O_BINARY;
-setvbuf(stdout,NULL,_IONBF,0);
-
-fprintf(stderr,"\nADDFILES Version %s (%s) - Adds files to Synchronet "
- "Filebase\n"
- ,ADDFILES_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- );
-
-if(argc<2) {
- printf(usage);
- return(1); }
-
-p=getenv("SBBSNODE");
-if(p==NULL) {
- printf("\nSBBSNODE environment variable not set.\n");
- printf("\nExample: SET SBBSNODE=C:\\SBBS\\NODE1\n");
- exit(1); }
-
-putenv("TZ=UCT0");
-
-strcpy(node_dir,p);
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-txt.openerr="\7\nError opening %s for read.\n";
-txt.reading="\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\nError allocating %u bytes of memory\n";
-txt.error="\7\nERROR: Offset %lu in %s\r\n\n";
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str); }
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str); }
-if(temp_dir[1]!=':' && temp_dir[0]!='\\') {
- strcpy(str,temp_dir);
- sprintf(temp_dir,"%s%s",node_dir,str); }
-read_file_cfg(txt);
-printf("\n\n");
-
-if(argv[1][0]=='*') {
- if(argv[1][1])
- sprintf(auto_name,"%.12s",argv[1]+1);
- mode|=AUTO_ADD;
- i=0; }
-else {
- for(i=0;i<total_dirs;i++)
- if(!stricmp(dir[i]->code,argv[1]))
- break;
-
- if(i>=total_dirs) {
- printf("Directory code '%s' not found.\n",argv[1]);
- exit(1); } }
-
-memset(&f,0,sizeof(file_t));
-f.dir=i;
-strcpy(f.uler,"-> ADDFILES <-");
-
-for(j=2;j<argc;j++) {
- if(argv[j][0]=='*') /* set the uploader name */
- sprintf(f.uler,"%.25s",argv[j]+1);
- else if(argv[j][0]=='/') { /* options */
- for(i=1;i<strlen(argv[j]);i++)
- switch(toupper(argv[j][i])) {
- case 'A':
- mode|=ASCII_ONLY;
- break;
- case 'B':
- mode|=(SYNC_LIST|NO_UPDATE);
- break;
- case 'C':
- mode|=KEEP_SPACE;
- break;
- case 'D':
- mode|=DEL_LIST;
- break;
- case 'E':
- mode|=NO_EXTEND;
- break;
- case 'I':
- mode|=UL_STATS;
- break;
- case 'Z':
- mode|=FILE_ID;
- break;
- case 'K':
- mode|=KEEP_DESC; /* Don't use DIZ for short desc */
- break;
- case 'N':
- mode|=NO_UPDATE;
- break;
- case 'O':
- mode|=ULDATE_ONLY;
- break;
- case 'U':
- mode|=NO_NEWDATE;
- break;
- case 'F':
- mode|=FILE_DATE;
- break;
- case 'T':
- mode|=TODAYS_DATE;
- break;
- case 'S':
- mode|=SEARCH_DIR;
- break;
- default:
- printf(usage);
- return(1); } }
- else if(argv[j][0]=='+') { /* filelist - FILES.BBS */
- listgiven=1;
- if(isdigit(argv[j+1][0])) { /* skip x characters before description */
- if(isdigit(argv[j+2][0])) { /* skip x characters before size */
- addlist(argv[j]+1,f,atoi(argv[j+1]),atoi(argv[j+2]));
- j+=2; }
- else {
- addlist(argv[j]+1,f,atoi(argv[j+1]),0);
- j++; } }
- else
- addlist(argv[j]+1,f,0,0);
- if(mode&SYNC_LIST)
- synclist(argv[j]+1,f.dir); }
- else if(argv[j][0]=='.') { /* alternate file path */
- cur_altpath=atoi(argv[j]+1);
- if(cur_altpath>altpaths) {
- printf("Invalid alternate path.\n");
- exit(1); } }
- else {
- namegiven=1;
- padfname(argv[j],f.name);
- f.desc[0]=0;
- strupr(f.name);
- if(j+1==argc) {
- printf("%s no description given.\n",f.name);
- continue; }
- sprintf(str,"%s%s",cur_altpath ? altpath[cur_altpath-1]
- : dir[f.dir]->path,argv[j]);
- if(str[0]=='.') {
- sprintf(tmp,"%s%s",node_dir,str);
- strcpy(str,tmp); }
- if(mode&FILE_DATE)
- sprintf(f.desc,"%s ",unixtodstr(fdate(str),tmp));
- if(mode&TODAYS_DATE)
- sprintf(f.desc,"%s ",unixtodstr(time(NULL),tmp));
- sprintf(tmp,"%.*s",LEN_FDESC-strlen(f.desc),argv[++j]);
- strcpy(f.desc,tmp);
- l=flength(str);
- if(l==-1) {
- printf("%s not found.\n",str);
- continue; }
- exist=findfile(f.dir,f.name);
- if(exist) {
- if(mode&NO_UPDATE)
- continue;
- getfileixb(&f);
- if(mode&ULDATE_ONLY) {
- f.dateuled=time(NULL);
- update_uldate(f);
- continue; } }
- f.cdt=l;
- f.dateuled=time(NULL);
- f.altpath=cur_altpath;
- strip_ctrl(f.desc);
- if(mode&ASCII_ONLY)
- strip_exascii(f.desc);
- printf("%s %7lu %s\n",f.name,f.cdt,f.desc);
- if(mode&FILE_ID) {
- for(i=0;i<total_fextrs;i++)
- if(!stricmp(fextr[i]->ext,f.name+9))
- break;
- if(i<total_fextrs) {
- sprintf(tmp,"%sFILE_ID.DIZ",temp_dir);
- remove(tmp);
- system(cmdstr(fextr[i]->cmd,str,"FILE_ID.DIZ",NULL));
- if(!fexist(tmp)) {
- sprintf(tmp,"%sDESC.SDI",temp_dir);
- remove(tmp);
- system(cmdstr(fextr[i]->cmd,str,"DESC.SDI",NULL)); }
- if((file=nopen(tmp,O_RDONLY))!=-1) {
- memset(ext,0,513);
- read(file,ext,512);
- if(!(mode&KEEP_DESC)) {
- sprintf(f.desc,"%.*s",LEN_FDESC,ext);
- for(i=0;f.desc[i]>=SP && i<LEN_FDESC;i++)
- ;
- f.desc[i]=0; }
- close(file);
- f.misc|=FM_EXTDESC; } } }
- if(exist) {
- putfiledat(f);
- if(!(mode&NO_NEWDATE))
- update_uldate(f); }
- else
- addfiledat(&f);
-
- if(f.misc&FM_EXTDESC)
- putextdesc(f.dir,f.datoffset,ext);
-
- if(mode&UL_STATS)
- updatestats(l);
- files++; } }
-
-if(mode&AUTO_ADD) {
- for(i=0;i<total_dirs;i++) {
- if(dir[i]->misc&DIR_NOAUTO)
- continue;
- f.dir=i;
- if(mode&SEARCH_DIR) {
- addlist("",f,0,0);
- continue; }
- sprintf(str,"%s.LST",dir[f.dir]->code);
- if(flength(str)>0L) {
- printf("Auto-adding %s\n",str);
- addlist(str,f,0,0);
- if(mode&SYNC_LIST)
- synclist(str,i);
- continue; }
- sprintf(str,"%s%s",dir[f.dir]->path,auto_name);
- if(str[0]=='.') {
- sprintf(tmp,"%s%s",node_dir,str);
- strcpy(str,tmp); }
- if(flength(str)>0L) {
- printf("Auto-adding %s\n",str);
- addlist(str,f,0,0);
- if(mode&SYNC_LIST)
- synclist(str,i);
- continue; } } }
-
-else {
- if(!listgiven && !namegiven) {
- sprintf(str,"%s.LST",dir[f.dir]->code);
- if(flength(str)<=0L)
- strcpy(str,"FILES.BBS");
- addlist(str,f,0,0);
- if(mode&SYNC_LIST)
- synclist(str,f.dir); } }
-
-printf("\n%lu file(s) added.",files);
-if(removed)
- printf("\n%lu files(s) removed.",removed);
-printf("\n");
-return(0);
-}
-
diff --git a/src/sbbs2/addfiles/makeall.bat b/src/sbbs2/addfiles/makeall.bat
deleted file mode 100755
index d68900c3d3397527fe45f8723f77457287880eda..0000000000000000000000000000000000000000
--- a/src/sbbs2/addfiles/makeall.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-@echo off
-wmake OS=DOS %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=DOSX %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=OS2 %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=NT %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-:end
-
diff --git a/src/sbbs2/addfiles/makefile b/src/sbbs2/addfiles/makefile
deleted file mode 100644
index f83c75e37a9b9608ae8bb2b51efb0dfc74cdfd1e..0000000000000000000000000000000000000000
--- a/src/sbbs2/addfiles/makefile
+++ /dev/null
@@ -1,89 +0,0 @@
-############################################
-# Makefile for Synchronet ADDFILES Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;\watcom\h\os2;..;..\smb;..\rio
-
-
-!ifeq OS DOS
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -ml
-!else
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\
-!endif
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-!ifeq OS NT
-SYSTEM = NT
-!endif
-
-LFLAGS = option stack=16k system $(SYSTEM)
-
-MAIN = $(OS)\addfiles.exe
-OBJS = $(OS)\addfiles.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\ars.obj $(OS)\scfglib2.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\scfglib2.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
diff --git a/src/sbbs2/addfiles/makefile.bc b/src/sbbs2/addfiles/makefile.bc
deleted file mode 100644
index 892ff8a1962f2353480ee023c07a15fe72ad5b7c..0000000000000000000000000000000000000000
--- a/src/sbbs2/addfiles/makefile.bc
+++ /dev/null
@@ -1,76 +0,0 @@
-############################################
-# Makefile for Synchronet ADDFILES Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -N -d -C -I$(INCLUDE)
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -N -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-!endif
-MAIN = $(OS)\addfiles.exe
-OBJS = $(OS)\addfiles.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj \
- $(OS)\scfglib2.obj $(OS)\ars.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL).obj $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_TEXT_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib2.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_TEXT_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
diff --git a/src/sbbs2/allusers/allusers.c b/src/sbbs2/allusers/allusers.c
deleted file mode 100644
index f64638bb2321d65f079190384ac520a4ac64f081..0000000000000000000000000000000000000000
--- a/src/sbbs2/allusers/allusers.c
+++ /dev/null
@@ -1,367 +0,0 @@
-/* ALLUSERS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************************************************/
-/* Makes global changes to Synchronet user database (USER.DAT) */
-/* Compatible with Version 2.1 of Synchronet BBS Software */
-/****************************************************************************/
-
-#include <io.h>
-#include <share.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <errno.h>
-#include <stdlib.h>
-#include <sys/stat.h>
-
-#include "sbbsdefs.h"
-
-int min=0,max=99;
-long reqflags[4]={0},reqrest=0,reqexempt=0;
-
-char *usage=
-"\nusage: allusers [data\\user path] [[-require] [...]] "
- "/modify [[/modify] [...]]\n"
-"\nwhere require is one of:\n"
-" L# set minimum level to # (default=0)\n"
-" M# set maximum level to # (default=99)\n"
-" F#<flags> set required flags from flag set #\n"
-" E<flags> set required exemptions\n"
-" R<flags> set required restrictions\n"
-"\nwhere modify is one of:\n"
-" L# change security level to #\n"
-" F#[+|-]<flags> add or remove flags from flag set #\n"
-" E[+|-]<flags> add or remove exemption flags\n"
-" R[+|-]<flags> add or remove restriction flags\n"
-"\nExamples:\n"
-" ALLUSERS -L30 /FA add 'A' to flag set #1 for all level 30+ users\n"
-" ALLUSERS /F3-G remove 'G' from flag set #3 for all users\n"
-" ALLUSERS -F2B /E-P remove 'P' exemption for all users with FLAG '2B'\n"
-" ALLUSERS /R+W add 'W' restriction for all users\n"
-;
-
-/****************************************************************************/
-/* Attempts to lock a user record, retries for up to 10 seconds */
-/* Returns 0 on success, -1 on failure */
-/****************************************************************************/
-int lockuser(FILE *stream, ulong offset)
-{
- time_t start;
-
-if(lock(fileno(stream),offset,U_LEN)==0)
- return(0);
-start=time(NULL);
-while(1) {
- if(lock(fileno(stream),offset,U_LEN)==0)
- return(0);
- if(time(NULL)-start>=10L)
- break; }
-return(-1);
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Returns bytes offset into user record for flag set # 'set' */
-/****************************************************************************/
-long getflagoff(int set)
-{
-switch(set) {
- default:
- return(U_FLAGS1);
- case 2:
- return(U_FLAGS2);
- case 3:
- return(U_FLAGS3);
- case 4:
- return(U_FLAGS4); }
-}
-
-/****************************************************************************/
-/* Checks a user record against the requirements set on the command line */
-/* Returns 1 if the user meets the requirements (or no requirements were */
-/* specified) or 0 if the user does not meet any of the requirements. */
-/****************************************************************************/
-int chkuser(FILE *stream, long offset)
-{
- char str[128];
- int i;
-
-if(min || max!=99) { /* Check security level */
- fseek(stream,offset+U_LEVEL,SEEK_SET);
- if(!fread(str,2,1,stream))
- return(0);
- str[2]=0;
- i=atoi(str);
- if(i<min || i>max) /* not within range */
- return(0); } /* so skip this user */
-
-for(i=0;i<4;i++)
- if(reqflags[i]) {
- fseek(stream,offset+getflagoff(i+1),SEEK_SET);
- if(!fread(str,8,1,stream))
- return(0);
- str[8]=0;
- truncsp(str);
- if((ahtoul(str)&reqflags[i])!=reqflags[i])
- return(0); } /* doesn't have 'em all */
-
-if(reqrest) {
- fseek(stream,offset+U_REST,SEEK_SET);
- if(!fread(str,8,1,stream))
- return(0);
- str[8]=0;
- truncsp(str);
- if((ahtoul(str)&reqrest)!=reqrest)
- return(0); }
-
-if(reqexempt) {
- fseek(stream,offset+U_REST,SEEK_SET);
- if(!fread(str,8,1,stream))
- return(0);
- str[8]=0;
- truncsp(str);
- if((ahtoul(str)&reqexempt)!=reqexempt)
- return(0); }
-
-return(1);
-}
-
-int main(int argc, char **argv)
-{
- char dir[128],str[128];
- int i,j,k,file,set,sub,mod;
- long l,f,flags,flagoff,length,offset;
- FILE *stream;
-
-printf("\nALLUSERS v2.10 - Bulk User Editor for Synchronet User Database\n");
-
-if(argc<2) {
- printf(usage);
- exit(1); }
-dir[0]=0;
-for(i=1;i<argc;i++) {
- flags=flagoff=sub=mod=0;
- if(argv[i][0]=='-')
- switch(toupper(argv[i][1])) {
- case 'L': /* Set minimum sec level */
- min=atoi(argv[i]+2);
- break;
- case 'M': /* Set maximum sec level */
- max=atoi(argv[i]+2);
- break;
- case 'F': /* Set required flags */
- j=3;
- set=1;
- if(isdigit(argv[i][2]))
- set=argv[i][2]&0xf;
- else
- j=2;
- for(;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- reqflags[set-1]|=FLAG(toupper(argv[i][j]));
- break;
- case 'R': /* Set required restrictions */
- for(j=2;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- reqrest|=FLAG(toupper(argv[i][j]));
- break;
- case 'E': /* Set required exemptions */
- for(j=2;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- reqexempt|=FLAG(toupper(argv[i][j]));
- break;
- default: /* Unrecognized include */
- printf(usage);
- exit(1); }
-
- else if(argv[i][0]=='/')
- switch(toupper(argv[i][1])) {
- case 'F': /* flags */
- j=3;
- set=1;
- if(isdigit(argv[i][2]))
- set=argv[i][2]&0xf;
- else
- j=2;
- if(argv[i][j]=='+')
- j++;
- else if(argv[i][j]=='-') {
- j++;
- sub=1; }
- for(;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- flags|=FLAG(toupper(argv[i][j]));
- sprintf(str,"%sUSER.DAT",dir);
- if((file=sopen(str,O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- printf("Error opening %s\n",str);
- exit(1); }
- if((stream=fdopen(file,"w+b"))==NULL) {
- printf("Error opening %s\n",str);
- exit(1); }
- setvbuf(stream,NULL,_IOFBF,2048);
- length=filelength(file);
- printf("\n%s Flags %s Set #%d\n",sub ? "Removing":"Adding"
- ,sub ? "from":"to",set);
- for(offset=0;offset<length;offset+=U_LEN) {
- printf("%lu of %lu (%u modified)\r"
- ,(offset/U_LEN)+1,length/U_LEN,mod);
- if(lockuser(stream,offset)) {
- printf("Error locking offset %lu\n",offset);
- continue; }
- if(!chkuser(stream,offset)) {
- unlock(fileno(stream),offset,U_LEN);
- continue; }
- flagoff=getflagoff(set);
- fseek(stream,offset+flagoff,SEEK_SET);
- fread(str,8,1,stream);
- str[8]=0;
- truncsp(str);
- l=f=ahtoul(str);
- if(sub)
- l&=~flags;
- else
- l|=flags;
- if(l==f) { /* no change */
- unlock(fileno(stream),offset,U_LEN);
- continue; }
- mod++;
- sprintf(str,"%lx",l);
- while(strlen(str)<8)
- strcat(str,"\3");
- fseek(stream,offset+flagoff,SEEK_SET);
- fwrite(str,8,1,stream);
- unlock(fileno(stream),offset,U_LEN); }
- fclose(stream);
- printf("\n");
- break;
- case 'E': /* Exemptions */
- flagoff=U_EXEMPT;
- case 'R': /* Restrictions */
- if(!flagoff)
- flagoff=U_REST;
- j=2;
- if(argv[i][j]=='+')
- j++;
- else if(argv[i][j]=='-') {
- j++;
- sub=1; }
- for(;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- flags|=FLAG(toupper(argv[i][j]));
- sprintf(str,"%sUSER.DAT",dir);
- if((file=sopen(str,O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- printf("Error opening %s\n",str);
- exit(1); }
- if((stream=fdopen(file,"w+b"))==NULL) {
- printf("Error opening %s\n",str);
- exit(1); }
- setvbuf(stream,NULL,_IOFBF,2048);
- length=filelength(file);
- printf("\n%s %s\n"
- ,sub ? "Removing":"Adding"
- ,flagoff==U_REST ? "Restrictions":"Exemptions");
- for(offset=0;offset<length;offset+=U_LEN) {
- printf("%lu of %lu (%u modified)\r"
- ,(offset/U_LEN)+1,length/U_LEN,mod);
- if(lockuser(stream,offset)) {
- printf("Error locking offset %lu\n",offset);
- continue; }
- if(!chkuser(stream,offset)) {
- unlock(fileno(stream),offset,U_LEN);
- continue; }
- fseek(stream,offset+flagoff,SEEK_SET);
- fread(str,8,1,stream);
- str[8]=0;
- truncsp(str);
- l=f=ahtoul(str);
- if(sub)
- l&=~flags;
- else
- l|=flags;
- if(l==f) { /* no change */
- unlock(fileno(stream),offset,U_LEN);
- continue; }
- mod++;
- sprintf(str,"%lx",l);
- while(strlen(str)<8)
- strcat(str,"\3");
- fseek(stream,offset+flagoff,SEEK_SET);
- fwrite(str,8,1,stream);
- unlock(fileno(stream),offset,U_LEN); }
- fclose(stream);
- printf("\n");
- break;
- case 'L': /* Level */
- j=atoi(argv[i]+2);
- if(j>99)
- j=99;
- if(j<0)
- j=0;
- sprintf(str,"%sUSER.DAT",dir);
- if((file=sopen(str,O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- printf("Error opening %s\n",str);
- exit(1); }
- if((stream=fdopen(file,"w+b"))==NULL) {
- printf("Error opening %s\n",str);
- exit(1); }
- setvbuf(stream,NULL,_IOFBF,2048);
- length=filelength(file);
- printf("\nChanging Levels\n");
- for(offset=0;offset<length;offset+=U_LEN) {
- printf("%lu of %lu (%u modified)\r"
- ,(offset/U_LEN)+1,length/U_LEN,mod);
- if(lockuser(stream,offset)) {
- printf("Error locking offset %lu\n",offset);
- continue; }
- if(!chkuser(stream,offset)) {
- unlock(fileno(stream),offset,U_LEN);
- continue; }
- fseek(stream,offset+U_LEVEL,SEEK_SET);
- fread(str,2,1,stream);
- str[2]=0;
- truncsp(str);
- if(atoi(str)==j) { /* no change */
- unlock(fileno(stream),offset,U_LEN);
- continue; }
- sprintf(str,"%02u",j);
- fseek(stream,offset+U_LEVEL,SEEK_SET);
- fwrite(str,2,1,stream);
- unlock(fileno(stream),offset,U_LEN);
- mod++; }
- fclose(stream);
- printf("\n");
- break;
- default:
- printf(usage);
- exit(1); }
- else {
- strcpy(dir,argv[i]);
- if(dir[strlen(dir)-1]!='\\' && dir[strlen(dir)-1]!=':')
- strcat(dir,"\\"); } }
-return(0);
-}
diff --git a/src/sbbs2/allusers/make.bat b/src/sbbs2/allusers/make.bat
deleted file mode 100755
index 402dbfbb19d26a93f701c9ade8491dcfb98bd56b..0000000000000000000000000000000000000000
--- a/src/sbbs2/allusers/make.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -I.. -w-pro allusers.c
diff --git a/src/sbbs2/ans2msg/ans2msg.c b/src/sbbs2/ans2msg/ans2msg.c
deleted file mode 100644
index 7ef485826b16616c2e17987f4ddb75002c079165..0000000000000000000000000000000000000000
--- a/src/sbbs2/ans2msg/ans2msg.c
+++ /dev/null
@@ -1,155 +0,0 @@
-/* ANS2MSG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Convert ANSI messages to Synchronet .MSG (Ctrl-A code) format */
-
-#include <stdio.h>
-#include <conio.h>
-
-int main(int argc, char **argv)
-{
- char esc,n[25],ni;
- int i,ch;
- FILE *in,*out;
-
-if(argc<3) {
- printf("\nANS2MSG v1.06\n");
- printf("\nusage: ans2msg infile.ans outfile.msg\n");
- exit(0); }
-
-if((in=fopen(argv[1],"rb"))==NULL) {
- printf("\nerror opening %s\n",argv[1]);
- exit(1); }
-
-if((out=fopen(argv[2],"wb"))==NULL) {
- printf("\nerror opening %s\n",argv[2]);
- exit(1); }
-
-esc=0;
-while((ch=fgetc(in))!=EOF) {
- if(ch=='[' && esc) { /* ANSI escape sequence */
- ni=0; /* zero number index */
- while((ch=fgetc(in))!=EOF) {
- if(isdigit(ch)) { /* 1 digit */
- n[ni]=ch&0xf;
- ch=fgetc(in);
- if(ch==EOF)
- break;
- if(isdigit(ch)) { /* 2 digits */
- n[ni]*=10;
- n[ni]+=ch&0xf;
- ch=fgetc(in);
- if(ch==EOF)
- break;
- if(isdigit(ch)) { /* 3 digits */
- n[ni]*=10;
- n[ni]+=ch&0xf;
- ch=fgetc(in); } }
- ni++; }
- if(ch==';')
- continue;
- switch(ch) {
- case '=':
- case '?':
- ch=fgetc(in); /* First digit */
- if(isdigit(ch)) ch=fgetc(in); /* l or h ? */
- if(isdigit(ch)) ch=fgetc(in);
- if(isdigit(ch)) fgetc(in);
- break;
- case 'J':
- if(n[0]==2) /* clear screen */
- fputs("\1l",out); /* ctrl-al */
- break;
- case 'K':
- fputs("\1>",out); /* clear to eol */
- break;
- case 'm':
- for(i=0;i<ni;i++) {
- fputc(1,out); /* ctrl-ax */
- switch(n[i]) {
- default:
- case 0:
- case 2: /* no attribute */
- fputc('n',out);
- break;
- case 1: /* high intensity */
- fputc('h',out);
- break;
- case 3:
- case 4:
- case 5: /* blink */
- case 6:
- case 7:
- fputc('i',out);
- break;
- case 8: /* concealed */
- fputc('e',out);
- break;
- case 30:
- fputc('k',out);
- break;
- case 31:
- fputc('r',out);
- break;
- case 32:
- fputc('g',out);
- break;
- case 33:
- fputc('y',out);
- break;
- case 34:
- fputc('b',out);
- break;
- case 35:
- fputc('m',out);
- break;
- case 36:
- fputc('c',out);
- break;
- case 37:
- fputc('w',out);
- break;
- case 40:
- fputc('0',out);
- break;
- case 41:
- fputc('1',out);
- break;
- case 42:
- fputc('2',out);
- break;
- case 43:
- fputc('3',out);
- break;
- case 44:
- fputc('4',out);
- break;
- case 45:
- fputc('5',out);
- break;
- case 46:
- fputc('6',out);
- break;
- case 47:
- fputc('7',out);
- break; } }
- break;
- case 'C':
- fprintf(out,"\1%c",0x7f+n[0]);
- break;
- default:
- printf("Unsupported ANSI code '%c'\r\n",ch);
- break; }
- break; } /* end of while */
- esc=0;
- continue; } /* end of ANSI expansion */
- if(ch=='\x1b')
- esc=1;
- else {
- esc=0;
- fputc(ch,out); } }
-fcloseall();
-return(0);
-}
-
diff --git a/src/sbbs2/ars.c b/src/sbbs2/ars.c
deleted file mode 100644
index f9dff33a27664c9b64c3811659ced620e690206b..0000000000000000000000000000000000000000
--- a/src/sbbs2/ars.c
+++ /dev/null
@@ -1,502 +0,0 @@
-/* ARS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifdef __WATCOMC__
- #include <malloc.h>
-#else
- #include <alloc.h>
-#endif
-#include "ars_defs.h"
-
-#ifdef SBBS
-#include "sbbs.h"
-#endif
-
-char *arstr(ushort *count, char *str)
-{
- static char *nular="";
- char ar[256],*p;
- uint i,j,n,artype=AR_LEVEL,not=0,equal=0,x;
-
-for(i=j=0;str[i];i++) {
- if(str[i]==SP)
- continue;
-
- if(str[i]=='(') {
- if(not)
- ar[j++]=AR_NOT;
- not=equal=0;
- ar[j++]=AR_BEGNEST;
- continue; }
-
- if(str[i]==')') {
- ar[j++]=AR_ENDNEST;
- continue; }
-
- if(str[i]=='|') {
- ar[j++]=AR_OR;
- continue; }
-
- if(str[i]=='!') {
- not=1;
- continue; }
-
- if(str[i]=='=') {
- equal=1;
- continue; }
-
- if(str[i]=='&')
- continue;
-
- if(isalpha(str[i])) {
- if(!strncmp(str+i,"OR",2)) {
- ar[j++]=AR_OR;
- i++;
- continue; }
-
- if(!strncmp(str+i,"AND",3)) { /* AND is ignored */
- i+=2;
- continue; }
-
- if(!strncmp(str+i,"NOT",3)) {
- not=1;
- i+=2;
- continue; }
-
- if(!strncmp(str+i,"EQUAL TO",8)) {
- equal=1;
- i+=7;
- continue; }
-
- if(!strncmp(str+i,"EQUAL",5)) {
- equal=1;
- i+=4;
- continue; }
-
- if(!strncmp(str+i,"EQUALS",6)) {
- equal=1;
- i+=5;
- continue; } }
-
- if(str[i]=='$') {
- switch(str[i+1]) {
- case 'A':
- artype=AR_AGE;
- break;
- case 'B':
- artype=AR_BPS;
- break;
- case 'C':
- artype=AR_CREDIT;
- break;
- case 'D':
- artype=AR_UDFR;
- break;
- case 'E':
- artype=AR_EXPIRE;
- break;
- case 'F':
- artype=AR_FLAG1;
- break;
- case 'G':
- artype=AR_LOCAL;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- break;
- case 'H':
- artype=AR_SUB;
- break;
- case 'I':
- artype=AR_LIB;
- break;
- case 'J':
- artype=AR_DIR;
- break;
- case 'K':
- artype=AR_UDR;
- break;
- case 'L':
- artype=AR_LEVEL;
- break;
- case 'M':
- artype=AR_GROUP;
- break;
- case 'N':
- artype=AR_NODE;
- break;
- case 'O':
- artype=AR_TUSED;
- break;
- case 'P':
- artype=AR_PCR;
- break;
- case 'Q':
- artype=AR_RANDOM;
- break;
- case 'R':
- artype=AR_TLEFT;
- break;
- case 'S':
- artype=AR_SEX;
- break;
- case 'T':
- artype=AR_TIME;
- break;
- case 'U':
- artype=AR_USER;
- break;
- case 'V':
- artype=AR_LOGONS;
- break;
- case 'W':
- artype=AR_DAY;
- break;
- case 'X':
- artype=AR_EXEMPT;
- break;
- case 'Y': /* Days since last on */
- artype=AR_LASTON;
- break;
- case 'Z':
- artype=AR_REST;
- break;
- case '[':
- artype=AR_ANSI;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- break;
- case '0':
- artype=AR_NULL;
- break;
- case '*':
- artype=AR_RIP;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- break;
-
- }
- i++;
- continue; }
-
- if(isalpha(str[i])) {
- n=i;
- if(!strncmp(str+i,"AGE",3)) {
- artype=AR_AGE;
- i+=2; }
- else if(!strncmp(str+i,"BPS",3)) {
- artype=AR_BPS;
- i+=2; }
- else if(!strncmp(str+i,"PCR",3)) {
- artype=AR_PCR;
- i+=2; }
- else if(!strncmp(str+i,"SEX",3)) {
- artype=AR_SEX;
- i+=2; }
- else if(!strncmp(str+i,"UDR",3)) {
- artype=AR_UDR;
- i+=2; }
- else if(!strncmp(str+i,"DAY",3)) {
- artype=AR_DAY;
- i+=2; }
- else if(!strncmp(str+i,"RIP",3)) {
- artype=AR_RIP;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=2; }
- else if(!strncmp(str+i,"WIP",3)) {
- artype=AR_WIP;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=2; }
- else if(!strncmp(str+i,"OS2",3)) {
- artype=AR_OS2;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=2; }
- else if(!strncmp(str+i,"DOS",3)) {
- artype=AR_DOS;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=2; }
- else if(!strncmp(str+i,"SUBCODE",7)) {
- artype=AR_SUBCODE;
- i+=6; }
- else if(!strncmp(str+i,"SUB",3)) {
- artype=AR_SUB;
- i+=2; }
- else if(!strncmp(str+i,"LIB",3)) {
- artype=AR_LIB;
- i+=2; }
- else if(!strncmp(str+i,"DIRCODE",7)) {
- artype=AR_DIRCODE;
- i+=6; }
- else if(!strncmp(str+i,"DIR",3)) {
- artype=AR_DIR;
- i+=2; }
- else if(!strncmp(str+i,"ANSI",4)) {
- artype=AR_ANSI;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=3; }
- else if(!strncmp(str+i,"UDFR",4)) {
- artype=AR_UDFR;
- i+=3; }
- else if(!strncmp(str+i,"FLAG",4)) {
- artype=AR_FLAG1;
- i+=3; }
- else if(!strncmp(str+i,"NODE",4)) {
- artype=AR_NODE;
- i+=3; }
- else if(!strncmp(str+i,"NULL",4)) {
- artype=AR_NULL;
- i+=3; }
- else if(!strncmp(str+i,"USER",4)) {
- artype=AR_USER;
- i+=3; }
- else if(!strncmp(str+i,"TIME",4)) {
- artype=AR_TIME;
- i+=3; }
- else if(!strncmp(str+i,"REST",4)) {
- artype=AR_REST;
- i+=3; }
- else if(!strncmp(str+i,"LEVEL",5)) {
- artype=AR_LEVEL;
- i+=4; }
- else if(!strncmp(str+i,"TLEFT",5)) {
- artype=AR_TLEFT;
- i+=4; }
- else if(!strncmp(str+i,"TUSED",5)) {
- artype=AR_TUSED;
- i+=4; }
- else if(!strncmp(str+i,"LOCAL",5)) {
- artype=AR_LOCAL;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=4; }
- else if(!strncmp(str+i,"GROUP",5)) {
- artype=AR_GROUP;
- i+=4; }
- else if(!strncmp(str+i,"EXPIRE",6)) {
- artype=AR_EXPIRE;
- i+=5; }
- else if(!strncmp(str+i,"EXPERT",6)) {
- artype=AR_EXPERT;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=5; }
- else if(!strncmp(str+i,"SYSOP",5)) {
- artype=AR_SYSOP;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=4; }
- else if(!strncmp(str+i,"QUIET",5)) {
- artype=AR_QUIET;
- if(not)
- ar[j++]=AR_NOT;
- not=0;
- ar[j++]=artype;
- i+=4; }
- else if(!strncmp(str+i,"EXEMPT",6)) {
- artype=AR_EXEMPT;
- i+=5; }
- else if(!strncmp(str+i,"RANDOM",6)) {
- artype=AR_RANDOM;
- i+=5; }
- else if(!strncmp(str+i,"LASTON",6)) {
- artype=AR_LASTON;
- i+=5; }
- else if(!strncmp(str+i,"LOGONS",6)) {
- artype=AR_LOGONS;
- i+=5; }
- else if(!strncmp(str+i,"CREDIT",6)) {
- artype=AR_CREDIT;
- i+=5; }
- else if(!strncmp(str+i,"MAIN_CMDS",9)) {
- artype=AR_MAIN_CMDS;
- i+=8; }
- else if(!strncmp(str+i,"FILE_CMDS",9)) {
- artype=AR_FILE_CMDS;
- i+=8; }
- if(n!=i) /* one of the above */
- continue; }
-
- if(not)
- ar[j++]=AR_NOT;
- if(equal)
- ar[j++]=AR_EQUAL;
- not=equal=0;
-
- if(artype==AR_FLAG1 && isdigit(str[i])) { /* flag set specified */
- switch(str[i]) {
- case '2':
- artype=AR_FLAG2;
- break;
- case '3':
- artype=AR_FLAG3;
- break;
- case '4':
- artype=AR_FLAG4;
- break; }
- continue; }
-
- if(artype==AR_SUB && !isdigit(str[i]))
- artype=AR_SUBCODE;
- if(artype==AR_DIR && !isdigit(str[i]))
- artype=AR_DIRCODE;
-
- ar[j++]=artype;
- if(isdigit(str[i])) {
- if(artype==AR_TIME) {
- n=atoi(str+i)*60;
- p=strchr(str+i,':');
- if(p)
- n+=atoi(p+1);
- *((short *)(ar+j))=n;
- j+=2;
- while(isdigit(str[i+1]) || str[i+1]==':') i++;
- continue; }
- n=atoi(str+i);
- switch(artype) {
- case AR_DAY:
- if(n>6) /* not past saturday */
- n=6;
- case AR_AGE: /* byte operands */
- case AR_PCR:
- case AR_UDR:
- case AR_UDFR:
- case AR_NODE:
- case AR_LEVEL:
- case AR_TLEFT:
- case AR_TUSED:
- ar[j++]=n;
- break;
- case AR_BPS: /* int operands */
- if(n<300)
- n*=100;
- case AR_MAIN_CMDS:
- case AR_FILE_CMDS:
- case AR_EXPIRE:
- case AR_CREDIT:
- case AR_USER:
- case AR_RANDOM:
- case AR_LASTON:
- case AR_LOGONS:
- *((short *)(ar+j))=n;
- j+=2;
- break;
- case AR_GROUP:
- case AR_LIB:
- case AR_DIR:
- case AR_SUB:
- if(n) n--; /* convert to 0 base */
- *((short *)(ar+j))=n;
- j+=2;
- break;
- default: /* invalid numeric AR type */
- j--;
- break; }
- while(isdigit(str[i+1])) i++;
- continue; }
- if(artype==AR_SUBCODE || artype==AR_DIRCODE) {
- for(n=0;n<8
- && str[i]
- && str[i]!=SP
- && str[i]!='('
- && str[i]!=')'
- && str[i]!='='
- && str[i]!='|'
- ;n++)
- ar[j++]=str[i++];
- ar[j++]=0;
- continue; }
- switch(artype) {
- case AR_FLAG1:
- case AR_FLAG2:
- case AR_FLAG3:
- case AR_FLAG4:
- case AR_EXEMPT:
- case AR_SEX:
- case AR_REST:
- ar[j++]=str[i];
- break;
-#ifdef SBBS
- case AR_SUB:
- for(n=0;n<total_subs;n++)
- if(!strnicmp(str+i,sub[n]->code,strlen(sub[n]->code)))
- break;
- if(n<total_subs) {
- *((short *)(ar+j))=n;
- j+=2; }
- else /* Unknown sub-board */
- j--;
- while(isalpha(str[i+1])) i++;
- break;
- case AR_DIR:
- for(n=0;n<total_dirs;n++)
- if(!strnicmp(str+i,dir[n]->code,strlen(dir[n]->code)))
- break;
- if(n<total_dirs) {
- *((short *)(ar+j))=n;
- j+=2; }
- else /* Unknown directory */
- j--;
- while(isalpha(str[i+1])) i++;
- break;
-#endif
- case AR_DAY:
- if(str[i]=='S' && str[i+1]=='U') /* Sunday */
- ar[j++]=0;
- else if(str[i]=='M') /* Monday */
- ar[j++]=1;
- else if(str[i]=='T' && str[i+1]=='U') /* Tuesday */
- ar[j++]=2;
- else if(str[i]=='W') /* Wednesday */
- ar[j++]=3;
- else if(str[i]=='T' && str[i+1]=='H') /* Thursday */
- ar[j++]=4;
- else if(str[i]=='F') /* Friday */
- ar[j++]=5;
- else ar[j++]=6; /* Saturday */
- while(isalpha(str[i+1])) i++;
- break;
- } }
-if(!j)
- return(nular); /* Save memory */
-
-ar[j++]=AR_NULL;
-/** DEBUG stuff
-for(i=0;i<j;i++)
- lprintf("%02X ",(uint)ar[i]);
-lputs("\r\n");
-***/
-if((p=(char *)MALLOC(j))==NULL)
- return(NULL);
-memcpy(p,ar,j);
-if(count)
- (*count)=j;
-return(p);
-}
-
diff --git a/src/sbbs2/ars_defs.h b/src/sbbs2/ars_defs.h
deleted file mode 100644
index 2782811b8298884b2ccc1276127f20363ac4c946..0000000000000000000000000000000000000000
--- a/src/sbbs2/ars_defs.h
+++ /dev/null
@@ -1,72 +0,0 @@
-/* ARS_DEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _ARS_DEFS_H
-#define _ARS_DEFS_H
-
-/************************************************************************/
-/* Synchronet Access Requirement Strings fucntion prototypes and type */
-/* definitions */
-/************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-
-#include "gen_defs.h"
-
-char *arstr(ushort *count, char *str);
-
-enum { /* Access requirement binaries */
- AR_NULL
- ,AR_OR
- ,AR_NOT
- ,AR_EQUAL
- ,AR_BEGNEST
- ,AR_ENDNEST
- ,AR_LEVEL
- ,AR_AGE
- ,AR_BPS
- ,AR_NODE
- ,AR_TLEFT
- ,AR_TUSED
- ,AR_USER
- ,AR_TIME
- ,AR_PCR
- ,AR_FLAG1
- ,AR_FLAG2
- ,AR_FLAG3
- ,AR_FLAG4
- ,AR_EXEMPT
- ,AR_REST
- ,AR_SEX
- ,AR_UDR
- ,AR_UDFR
- ,AR_EXPIRE
- ,AR_CREDIT
- ,AR_DAY
- ,AR_ANSI
- ,AR_RIP
- ,AR_LOCAL
- ,AR_GROUP
- ,AR_SUB
- ,AR_LIB
- ,AR_DIR
- ,AR_EXPERT
- ,AR_SYSOP
- ,AR_QUIET
- ,AR_MAIN_CMDS
- ,AR_FILE_CMDS
- ,AR_RANDOM
- ,AR_LASTON
- ,AR_LOGONS
- ,AR_WIP
- ,AR_SUBCODE
- ,AR_DIRCODE
- ,AR_OS2
- ,AR_DOS
- };
-
-#endif /* Don't add anything after this line */
diff --git a/src/sbbs2/atcodes.c b/src/sbbs2/atcodes.c
deleted file mode 100644
index cd1ff9425827339c0728700099b5b6d999dd1b54..0000000000000000000000000000000000000000
--- a/src/sbbs2/atcodes.c
+++ /dev/null
@@ -1,514 +0,0 @@
-#line 1 "ATCODES.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-extern char *wday[]; /* 3 char days of week */
-char question[128];
-
-int syncatcodes(char *sp, int len)
-{
- char str2[128],*tp;
-
-/* Synchronet Specific */
-
-if(!strncmp(sp,"SETSTR:",7))
- strcpy(main_csi.str,sp+7);
-
-else if(!strncmp(sp,"EXEC:",5))
- exec_bin(sp+5,&main_csi);
-
-else if(!strncmp(sp,"MENU:",5))
- menu(sp+5);
-
-else if(!strncmp(sp,"TYPE:",5))
- printfile(cmdstr(sp+5,nulstr,nulstr,str2),0);
-
-else if(!strcmp(sp,"QUESTION"))
- bputs(question);
-
-else if(!strncmp(sp,"NAME-L",6))
- bprintf("%-*.*s",len,len,useron.alias);
-
-else if(!strncmp(sp,"NAME-R",6))
- bprintf("%*.*s",len,len,useron.alias);
-
-else if(!strcmp(sp,"HANDLE"))
- bputs(useron.handle);
-
-else if(!strcmp(sp,"CID") || !strcmp(sp,"IP"))
- bputs(cid);
-
-else if(!strcmp(sp,"GRP"))
- bputs(usrgrps ? grp[usrgrp[curgrp]]->sname : nulstr);
-
-else if(!strncmp(sp,"GRP-L",5))
- bprintf("%-*.*s",len,len,usrgrps ? grp[usrgrp[curgrp]]->sname : nulstr);
-
-else if(!strncmp(sp,"GRP-R",5))
- bprintf("%*.*s",len,len,usrgrps ? grp[usrgrp[curgrp]]->sname : nulstr);
-
-else if(!strcmp(sp,"GRPL"))
- bputs(usrgrps ? grp[usrgrp[curgrp]]->lname : nulstr);
-
-else if(!strncmp(sp,"GRPL-L",6))
- bprintf("%-*.*s",len,len,usrgrps ? grp[usrgrp[curgrp]]->lname : nulstr);
-
-else if(!strncmp(sp,"GRPL-R",6))
- bprintf("%*.*s",len,len,usrgrps ? grp[usrgrp[curgrp]]->lname : nulstr);
-
-else if(!strcmp(sp,"GN"))
- bprintf("%u",usrgrps ? curgrp+1 : 0);
-
-else if(!strcmp(sp,"GL"))
- bprintf("%-4u",usrgrps ? curgrp+1 : 0);
-
-else if(!strcmp(sp,"GR"))
- bprintf("%4u",usrgrps ? curgrp+1 : 0);
-
-else if(!strcmp(sp,"SUB"))
- bputs(usrgrps ? sub[usrsub[curgrp][cursub[curgrp]]]->sname : nulstr);
-
-else if(!strncmp(sp,"SUB-L",5))
- bprintf("%-*.*s",len,len,usrgrps
- ? sub[usrsub[curgrp][cursub[curgrp]]]->sname : nulstr);
-
-else if(!strncmp(sp,"SUB-R",5))
- bprintf("%*.*s",len,len,usrgrps
- ? sub[usrsub[curgrp][cursub[curgrp]]]->sname : nulstr);
-
-else if(!strcmp(sp,"SUBL"))
- bputs(usrgrps ? sub[usrsub[curgrp][cursub[curgrp]]]->lname : nulstr);
-
-else if(!strncmp(sp,"SUBL-L",6))
- bprintf("%-*.*s",len,len,usrgrps
- ? sub[usrsub[curgrp][cursub[curgrp]]]->lname : nulstr);
-
-else if(!strncmp(sp,"SUBL-R",6))
- bprintf("%*.*s",len,len,usrgrps
- ? sub[usrsub[curgrp][cursub[curgrp]]]->lname : nulstr);
-
-else if(!strcmp(sp,"SN"))
- bprintf("%u",usrgrps ? cursub[curgrp]+1 : 0);
-
-else if(!strcmp(sp,"SL"))
- bprintf("%-4u",usrgrps ? cursub[curgrp]+1 : 0);
-
-else if(!strcmp(sp,"SR"))
- bprintf("%4u",usrgrps ? cursub[curgrp]+1 : 0);
-
-else if(!strcmp(sp,"LIB"))
- bputs(usrlibs ? lib[usrlib[curlib]]->sname : nulstr);
-
-else if(!strncmp(sp,"LIB-L",5))
- bprintf("%-*.*s",len,len,usrlibs ? lib[usrlib[curlib]]->sname : nulstr);
-
-else if(!strncmp(sp,"LIB-R",5))
- bprintf("%*.*s",len,len,usrlibs ? lib[usrlib[curlib]]->sname : nulstr);
-
-else if(!strcmp(sp,"LIBL"))
- bputs(usrlibs ? lib[usrlib[curlib]]->lname : nulstr);
-
-else if(!strncmp(sp,"LIBL-L",6))
- bprintf("%-*.*s",len,len,usrlibs ? lib[usrlib[curlib]]->lname : nulstr);
-
-else if(!strncmp(sp,"LIBL-R",6))
- bprintf("%*.*s",len,len,usrlibs ? lib[usrlib[curlib]]->lname : nulstr);
-
-else if(!strcmp(sp,"LN"))
- bprintf("%u",usrlibs ? curlib+1 : 0);
-
-else if(!strcmp(sp,"LL"))
- bprintf("%-4u",usrlibs ? curlib+1 : 0);
-
-else if(!strcmp(sp,"LR"))
- bprintf("%4u",usrlibs ? curlib+1 : 0);
-
-else if(!strcmp(sp,"DIR"))
- bputs(usrlibs ? dir[usrdir[curlib][curdir[curlib]]]->sname :nulstr);
-
-else if(!strncmp(sp,"DIR-L",5))
- bprintf("%-*.*s",len,len,usrlibs
- ? dir[usrdir[curlib][curdir[curlib]]]->sname : nulstr);
-
-else if(!strncmp(sp,"DIR-R",5))
- bprintf("%*.*s",len,len,usrlibs
- ? dir[usrdir[curlib][curdir[curlib]]]->sname : nulstr);
-
-else if(!strcmp(sp,"DIRL"))
- bputs(usrlibs ? dir[usrdir[curlib][curdir[curlib]]]->lname : nulstr);
-
-else if(!strncmp(sp,"DIRL-L",6))
- bprintf("%-*.*s",len,len,usrlibs
- ? dir[usrdir[curlib][curdir[curlib]]]->lname : nulstr);
-
-else if(!strncmp(sp,"DIRL-R",6))
- bprintf("%*.*s",len,len,usrlibs
- ? dir[usrdir[curlib][curdir[curlib]]]->lname : nulstr);
-
-else if(!strcmp(sp,"DN"))
- bprintf("%u",usrlibs ? curdir[curlib]+1 : 0);
-
-else if(!strcmp(sp,"DL"))
- bprintf("%-4u",usrlibs ? curdir[curlib]+1 : 0);
-
-else if(!strcmp(sp,"DR"))
- bprintf("%4u",usrlibs ? curdir[curlib]+1 : 0);
-
-else if(!strcmp(sp,"NOACCESS")) {
- if(noaccess_str==text[NoAccessTime])
- bprintf(noaccess_str,noaccess_val/60,noaccess_val%60);
- else if(noaccess_str==text[NoAccessDay])
- bprintf(noaccess_str,wday[noaccess_val]);
- else
- bprintf(noaccess_str,noaccess_val); }
-
-else if(!strcmp(sp,"LAST")) {
- tp=strrchr(useron.alias,SP);
- if(tp) tp++;
- else tp=useron.alias;
- bputs(tp); }
-
-else if(!strcmp(sp,"REAL")) {
- strcpy(str2,useron.name);
- tp=strchr(str2,SP);
- if(tp) *tp=0;
- bputs(str2); }
-
-else if(!strcmp(sp,"FIRSTREAL")) {
- strcpy(str2,useron.name);
- tp=strchr(str2,SP);
- if(tp) *tp=0;
- bputs(str2); }
-
-else if(!strcmp(sp,"LASTREAL")) {
- tp=strrchr(useron.name,SP);
- if(tp) tp++;
- else tp=useron.name;
- bputs(tp); }
-
-else if(!strcmp(sp,"MAILW"))
- bprintf("%u",getmail(useron.number,0));
-
-else if(!strcmp(sp,"MAILP"))
- bprintf("%u",getmail(useron.number,1));
-
-else if(!strncmp(sp,"MAILW:",6))
- bprintf("%u",getmail(atoi(sp+6),0));
-
-else if(!strncmp(sp,"MAILP:",6))
- bprintf("%u",getmail(atoi(sp+6),1));
-
-else return(0);
-
-return(len);
-}
-
-/****************************************************************************/
-/* Returns 0 if invalid @ code. Returns length of @ code if valid. */
-/****************************************************************************/
-int atcodes(char *instr)
-{
- char str[64],str2[64],*p,*tp,*sp;
- int i,len;
- long l;
- stats_t stats;
- node_t node;
- struct dfree d;
-
-sprintf(str,"%.40s",instr);
-tp=strchr(str+1,'@');
-if(!tp) /* no terminating @ */
- return(0);
-sp=strchr(str+1,SP);
-if(sp && sp<tp) /* space before terminating @ */
- return(0);
-len=(tp-str)+1;
-(*tp)=0;
-sp=(str+1);
-
-if(!strcmp(sp,"VER"))
- bputs(VERSION);
-
-else if(!strcmp(sp,"REV"))
- bprintf("%c",REVISION);
-
-else if(!strcmp(sp,"BBS") || !strcmp(sp,"BOARDNAME"))
- bputs(sys_name);
-
-else if(!strcmp(sp,"BAUD") || !strcmp(sp,"BPS"))
- bprintf("%lu",cur_rate);
-
-else if(!strcmp(sp,"CONN"))
- bputs(connection);
-
-else if(!strcmp(sp,"SYSOP"))
- bputs(sys_op);
-
-else if(!strcmp(sp,"LOCATION"))
- bputs(sys_location);
-
-else if(!strcmp(sp,"NODE"))
- bprintf("%u",node_num);
-
-else if(!strcmp(sp,"TNODE"))
- bprintf("%u",sys_nodes);
-
-else if(!strcmp(sp,"TIME") || !strcmp(sp,"SYSTIME")) {
- now=time(NULL);
- unixtodos(now,&date,&curtime);
- bprintf("%02d:%02d %s"
- ,curtime.ti_hour==0 ? 12
- : curtime.ti_hour>12 ? curtime.ti_hour-12
- : curtime.ti_hour, curtime.ti_min, curtime.ti_hour>11 ? "pm":"am"); }
-
-else if(!strcmp(sp,"DATE") || !strcmp(sp,"SYSDATE")) {
- now=time(NULL);
- bputs(unixtodstr(now,str2)); }
-
-else if(!strcmp(sp,"TMSG")) {
- l=0;
- for(i=0;i<total_subs;i++)
- l+=getposts(i); /* l=total posts */
- bprintf("%lu",l); }
-
-else if(!strcmp(sp,"TUSER"))
- bprintf("%u",lastuser());
-
-else if(!strcmp(sp,"TFILE")) {
- l=0;
- for(i=0;i<total_dirs;i++)
- l+=getfiles(i);
- bprintf("%lu",l); }
-
-else if(!strcmp(sp,"TCALLS") || !strcmp(sp,"NUMCALLS")) {
- getstats(0,&stats);
- bprintf("%lu",stats.logons); }
-
-else if(!strcmp(sp,"PREVON") || !strcmp(sp,"LASTCALLERNODE")
- || !strcmp(sp,"LASTCALLERSYSTEM"))
- bputs(lastuseron);
-
-else if(!strcmp(sp,"CLS"))
- CLS;
-
-else if(!strcmp(sp,"PAUSE") || !strcmp(sp,"MORE"))
- pause();
-
-else if(!strcmp(sp,"NOPAUSE") || !strcmp(sp,"POFF"))
- sys_status^=SS_PAUSEOFF;
-
-else if(!strcmp(sp,"PON") || !strcmp(sp,"AUTOMORE"))
- sys_status^=SS_PAUSEON;
-
-/* NOSTOP */
-
-/* STOP */
-
-else if(!strcmp(sp,"BELL") || !strcmp(sp,"BEEP"))
- outchar(7);
-
-// else if(!strcmp(sp,"EVENT"))
-// bputs(sectostr(sys_eventtime,str2));
-
-/* LASTCALL */
-
-else if(!strncmp(sp,"NODE",4)) {
- i=atoi(sp+4);
- if(i && i<=sys_nodes) {
- getnodedat(i,&node,0);
- printnodedat(i,node); } }
-
-else if(!strcmp(sp,"WHO"))
- whos_online(1);
-
-/* User Codes */
-
-else if(!strcmp(sp,"USER") || !strcmp(sp,"ALIAS") || !strcmp(sp,"NAME"))
- bputs(useron.alias);
-
-else if(!strcmp(sp,"FIRST")) {
- strcpy(str2,useron.alias);
- tp=strchr(str2,SP);
- if(tp) *tp=0;
- bputs(str2); }
-
-else if(!strcmp(sp,"PHONE") || !strcmp(sp,"HOMEPHONE")
- || !strcmp(sp,"DATAPHONE") || !strcmp(sp,"DATA"))
- bputs(useron.phone);
-
-else if(!strcmp(sp,"ADDR1"))
- bputs(useron.address);
-
-else if(!strcmp(sp,"FROM"))
- bputs(useron.location);
-
-else if(!strcmp(sp,"CITY")) {
- strcpy(str2,useron.location);
- p=strchr(str2,',');
- if(p) {
- *p=0;
- bputs(str2); } }
-
-else if(!strcmp(sp,"STATE")) {
- p=strchr(useron.location,',');
- if(p) {
- p++;
- if(*p==SP)
- p++;
- bputs(p); } }
-
-else if(!strcmp(sp,"CPU") || !strcmp(sp,"HOST"))
- bputs(useron.comp);
-
-else if(!strcmp(sp,"BDATE"))
- bputs(useron.birth);
-
-else if(!strcmp(sp,"CALLS") || !strcmp(sp,"NUMTIMESON"))
- bprintf("%u",useron.logons);
-
-else if(!strcmp(sp,"MEMO"))
- bputs(unixtodstr(useron.pwmod,str2));
-
-else if(!strcmp(sp,"SEC") || !strcmp(sp,"SECURITY"))
- bprintf("%u",useron.level);
-
-else if(!strcmp(sp,"SINCE"))
- bputs(unixtodstr(useron.firston,str2));
-
-else if(!strcmp(sp,"TIMEON") || !strcmp(sp,"TIMEUSED")) {
- now=time(NULL);
- bprintf("%u",(now-logontime)/60); }
-
-else if(!strcmp(sp,"TUSED")) { /* Synchronet only */
- now=time(NULL);
- bputs(sectostr(now-logontime,str2)+1); }
-
-else if(!strcmp(sp,"TLEFT")) { /* Synchronet only */
- gettimeleft();
- bputs(sectostr(timeleft,str2)+1); }
-
-else if(!strcmp(sp,"TPERD")) /* Synchronet only */
- bputs(sectostr(level_timeperday[useron.level],str)+1);
-
-else if(!strcmp(sp,"TPERC")) /* Synchronet only */
- bputs(sectostr(level_timepercall[useron.level],str)+1);
-
-else if(!strcmp(sp,"TIMELIMIT"))
- bprintf("%u",level_timepercall[useron.level]);
-
-else if(!strcmp(sp,"MINLEFT") || !strcmp(sp,"LEFT") || !strcmp(sp,"TIMELEFT")) {
- gettimeleft();
- bprintf("%u",timeleft/60); }
-
-else if(!strcmp(sp,"LASTON"))
- bputs(timestr(&useron.laston));
-
-else if(!strcmp(sp,"LASTDATEON"))
- bputs(unixtodstr(useron.laston,str2));
-
-else if(!strcmp(sp,"LASTTIMEON")) {
- unixtodos(useron.laston,&date,&curtime);
- bprintf("%02d:%02d %s"
- ,curtime.ti_hour==0 ? 12
- : curtime.ti_hour>12 ? curtime.ti_hour-12
- : curtime.ti_hour, curtime.ti_min, curtime.ti_hour>11 ? "pm":"am"); }
-
-else if(!strcmp(sp,"MSGLEFT") || !strcmp(sp,"MSGSLEFT"))
- bprintf("%u",useron.posts);
-
-else if(!strcmp(sp,"MSGREAD"))
- bprintf("%u",posts_read);
-
-else if(!strcmp(sp,"FREESPACE")) {
- if(temp_dir[1]==':')
- i=temp_dir[0]-'A'+1;
- else i=0;
- getdfree(i,&d);
- if(d.df_sclus!=0xffff)
- bprintf("%lu",(ulong)d.df_bsec*(ulong)d.df_sclus*(ulong)d.df_avail); }
-
-else if(!strcmp(sp,"UPBYTES"))
- bprintf("%lu",useron.ulb);
-
-else if(!strcmp(sp,"UPK"))
- bprintf("%lu",useron.ulb/1024L);
-
-else if(!strcmp(sp,"UPS") || !strcmp(sp,"UPFILES"))
- bprintf("%u",useron.uls);
-
-else if(!strcmp(sp,"DLBYTES"))
- bprintf("%lu",useron.dlb);
-
-else if(!strcmp(sp,"DOWNK"))
- bprintf("%lu",useron.dlb/1024L);
-
-else if(!strcmp(sp,"DOWNS") || !strcmp(sp,"DLFILES"))
- bprintf("%u",useron.dls);
-
-else if(!strcmp(sp,"LASTNEW"))
- bputs(unixtodstr(ns_time,str2));
-
-else if(!strcmp(sp,"NEWFILETIME"))
- bputs(timestr(&ns_time));
-
-/* MAXDL */
-
-else if(!strcmp(sp,"MAXDK") || !strcmp(sp,"DLKLIMIT") || !strcmp(sp,"KBLIMIT"))
- bprintf("%lu",level_freecdtperday[useron.level]/1024L);
-
-else if(!strcmp(sp,"DAYBYTES")) /* amt of free cdts used today */
- bprintf("%lu",level_freecdtperday[useron.level]-useron.freecdt);
-
-else if(!strcmp(sp,"BYTELIMIT"))
- bprintf("%lu",level_freecdtperday[useron.level]);
-
-else if(!strcmp(sp,"KBLEFT"))
- bprintf("%lu",(useron.cdt+useron.freecdt)/1024L);
-
-else if(!strcmp(sp,"BYTESLEFT"))
- bprintf("%lu",useron.cdt+useron.freecdt);
-
-else if(!strcmp(sp,"CONF"))
- bprintf("%s %s"
- ,usrgrps ? grp[usrgrp[curgrp]]->sname :nulstr
- ,usrgrps ? sub[usrsub[curgrp][cursub[curgrp]]]->sname : nulstr);
-
-else if(!strcmp(sp,"CONFNUM"))
- bprintf("%u %u",curgrp+1,cursub[curgrp]+1);
-
-else if(!strcmp(sp,"NUMDIR"))
- bprintf("%u %u",usrlibs ? curlib+1 : 0,usrlibs ? curdir[curlib]+1 : 0);
-
-else if(!strcmp(sp,"EXDATE") || !strcmp(sp,"EXPDATE"))
- bputs(unixtodstr(useron.expire,str2));
-
-else if(!strcmp(sp,"EXPDAYS")) {
- now=time(NULL);
- l=useron.expire-now;
- if(l<0)
- l=0;
- bprintf("%u",l/(1440L*60L)); }
-
-else if(!strcmp(sp,"MEMO1"))
- bputs(useron.note);
-
-else if(!strcmp(sp,"MEMO2") || !strcmp(sp,"COMPANY"))
- bputs(useron.name);
-
-else if(!strcmp(sp,"ZIP"))
- bputs(useron.zipcode);
-
-else if(!strcmp(sp,"HANGUP"))
- hangup();
-
-else
- return(syncatcodes(sp,len));
-
-return(len);
-}
-
-
-
diff --git a/src/sbbs2/autonode/autonode.c b/src/sbbs2/autonode/autonode.c
deleted file mode 100644
index f8bdde37e4023d55b9bd359af954bf099dfa753f..0000000000000000000000000000000000000000
--- a/src/sbbs2/autonode/autonode.c
+++ /dev/null
@@ -1,193 +0,0 @@
-/* AUTONODE.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <io.h>
-#include <dir.h>
-#include <fcntl.h>
-#include <errno.h>
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <process.h>
-#include <sys\stat.h>
-
-#define uchar unsigned char
-#define uint unsigned int
-#define ulong unsigned long
-#define LOOP_NODEDAB 100 /* Retries on NODE.DAB locking/unlocking */
-
-typedef struct { /* Node information kept in NODE.DAB */
- uchar status, /* Current Status of Node */
- errors, /* Number of Critical Errors */
- action; /* Action User is doing on Node */
- uint useron, /* User on Node */
- connection, /* Connection rate of Node */
- misc, /* Miscellaneous bits for node */
- aux; /* Auxillary word for node */
- ulong extaux; /* Extended aux dword for node */
- } node_t;
-
-enum { /* Node Status */
- NODE_WFC /* Waiting for Call */
- ,NODE_LOGON /* at logon prompt */
- ,NODE_NEWUSER /* New user applying */
- ,NODE_INUSE /* In Use */
- ,NODE_QUIET /* In Use - quiet mode */
- ,NODE_OFFLINE /* Offline */
- ,NODE_NETTING /* Networking */
- ,NODE_EVENT_WAITING /* Waiting for all nodes to be inactive */
- ,NODE_EVENT_RUNNING /* Running an external event */
- ,NODE_EVENT_LIMBO /* Allowing another node to run an event */
- };
-
-int nodefile;
-
-void main();
-void getnodedat(uchar number, node_t *node, char lockit);
-void putnodedat(uchar number, node_t node);
-void truncsp(char *str);
-
-void main(int argc,char *argv[])
-{
- FILE *fp;
- char str[256],nodepath[256],*p
- ,sbbs_ctrl[256],sbbs_node[256],path[MAXPATH]
- ,*arg[10]={NULL};
- int file,num_nodes,autonode,disk,x,y;
- node_t node;
-
-printf("\nSynchronet AUTONODE v2.00\n");
-
- if(!strcmp(argv[1],"/?")) {
- printf("\nUsage: AUTONODE [file] [args,...]");
- printf("\n\nWhere [file] is the name of the file to run and");
- printf("\n [args,...] are the command line arguments to use");
- printf("\n\nNOTE: The default command line is 'SBBS l q'\n");
- return; }
- p=getenv("SBBSCTRL");
- if(!p) {
- printf("\n\7You must set the SBBSCTRL environment variable first.");
- printf("\n\nExample: SET SBBSCTRL=C:\\SBBS\\CTRL\n");
- return; }
- sprintf(sbbs_ctrl,"%.40s",p);
- strupr(sbbs_ctrl);
- if(sbbs_ctrl[strlen(sbbs_ctrl)-1]!='\\')
- strcat(sbbs_ctrl,"\\");
- p=getenv("SBBSNODE");
- if(!p) {
- printf("\n\7You must set the SBBSNODE environment variable first.");
- printf("\n\nExample: SET SBBSNODE=C:\\SBBS\\NODE1\n");
- return; }
- sprintf(sbbs_node,"%.40s",p);
- strupr(sbbs_node);
- if(sbbs_node[strlen(sbbs_node)-1]!='\\')
- strcat(sbbs_node,"\\");
-
- sprintf(str,"%sNODE.DAB",sbbs_ctrl);
- if((nodefile=open(str,O_RDWR|O_BINARY|O_DENYNONE))==-1) {
- printf("Error opening %s",str); exit(1); }
-
- sprintf(str,"%sMAIN.CNF",sbbs_ctrl);
- if((file=open(str,O_RDONLY|O_DENYNONE|O_BINARY))==-1) {
- printf("Error opening %s",str);
- exit(1); }
- lseek(file,227L,SEEK_SET);
- read(file,&num_nodes,2);
- printf("\nNumber of Available Nodes = %d",num_nodes);
- lseek(file,64L*(long)num_nodes,SEEK_CUR);
- lseek(file,328L,SEEK_CUR);
- read(file,&autonode,2);
- printf("\nNumber of First Autonode = %d",autonode);
- for(x=autonode;x<=num_nodes;x++) {
- printf("\nChecking Node #%d",x);
- getnodedat(x,&node,1);
- if(node.status==NODE_OFFLINE) {
- printf("\nFOUND! Node #%d is OFFLINE\n",x);
- node.status=NODE_WFC;
- putnodedat(x,node);
- lseek(file,(229L+((long)(x-1)*64L)),SEEK_SET);
- read(file,nodepath,128);
- truncsp(nodepath);
- if(nodepath[strlen(nodepath)-1]=='\\')
- nodepath[strlen(nodepath)-1]=0; /* remove '\' */
- if(nodepath[0]=='.')
- sprintf(path,"%s%s",sbbs_node,nodepath);
- else strcpy(path,nodepath);
- if(path[1]==':')
- setdisk(path[0]-'A');
- if(chdir(path)) {
- printf("\nError changing into '%s'",path);
- getnodedat(x,&node,1);
- node.status=NODE_OFFLINE;
- putnodedat(x,node);
- exit(1); }
- if(argc==1) {
- execl(getenv("COMSPEC"),getenv("COMSPEC"),"/c","SBBS","l","q",
- NULL); }
- else {
- arg[0]=argv[0];
- strcpy(str,"/c"); arg[1]=str;
- for(x=1;x<argc;x++) arg[1+x]=argv[x];
- execv(getenv("COMSPEC"),arg); }
- getnodedat(x,&node,1);
- node.status=NODE_OFFLINE;
- putnodedat(x,node);
- return; } }
- printf("\n\n\7All local nodes are in use!\n");
-}
-
-/****************************************************************************/
-/* Reads the data for node number 'number' into the structure 'node' */
-/* from NODE.DAB */
-/* if lockit is non-zero, locks this node's record. putnodedat() unlocks it */
-/****************************************************************************/
-void getnodedat(uchar number, node_t *node, char lockit)
-{
- char str[256];
- int count=0;
-
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(lockit
- && lock(nodefile,(long)number*sizeof(node_t),sizeof(node_t))==-1) {
- count++;
- continue; }
- if(read(nodefile,node,sizeof(node_t))==sizeof(node_t))
- break;
- count++; }
-if(count==LOOP_NODEDAB)
- printf("\7Error unlocking and reading NODE.DAB\n");
-}
-
-/****************************************************************************/
-/* Write the data from the structure 'node' into NODE.DAB */
-/* getnodedat(num,&node,1); must have been called before calling this func */
-/* NOTE: ------^ the indicates the node record has been locked */
-/****************************************************************************/
-void putnodedat(uchar number, node_t node)
-{
- char str[256];
- int count;
-
-number--; /* make zero based */
-lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
-if(write(nodefile,&node,sizeof(node_t))!=sizeof(node_t)) {
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
- printf("\7Error writing NODE.DAB for node %u\n",number+1);
- return; }
-unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
-}
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && str[c-1]<=32) c--;
-str[c]=0;
-}
diff --git a/src/sbbs2/baja/baja.c b/src/sbbs2/baja/baja.c
deleted file mode 100644
index 32fee550115ce43bc3acb3133f8cb3447ed31855..0000000000000000000000000000000000000000
--- a/src/sbbs2/baja/baja.c
+++ /dev/null
@@ -1,3115 +0,0 @@
-/* BAJA.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <io.h>
-#include <stdio.h>
-#include <string.h>
-#include <ctype.h>
-#include <fcntl.h>
-#include <share.h>
-#include <alloc.h>
-#include "cmdshell.h"
-#include "ars_defs.h"
-#include "crc32.h"
-
-unsigned _stklen=20000; /* Set stack size in code, not header */
-
-char **label_name=NULL
- ,**goto_file=NULL
- ,**goto_label=NULL
- ,**call_file=NULL
- ,**call_label=NULL;
-
-ulong *var_name=NULL,vars=0;
-
-char **define_str=NULL
- ,**define_val=NULL;
-
-char *linestr="%s %d: %s\n";
-char tmp[256];
-
-uint *label_indx=NULL
- ,*goto_indx=NULL
- ,*goto_line=NULL
- ,*call_indx=NULL
- ,*call_line=NULL;
-
-uint display=0,line=0,labels=0,gotos=0,calls=0,defines=0,case_sens=0;
-
-FILE *out=NULL;
-
-void bail(void)
-{
-if(out)
- chsize(fileno(out),0);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- int c;
-
-c=strlen(str);
-while(c && str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/* C Escape char */
-
-uchar cesc(char ch)
-{
-switch(ch) {
- case 'r':
- return(CR);
- case 'n':
- return(LF);
- case 't':
- return(TAB);
- case 'b':
- return(BS);
- case 'a':
- return(7);
- case 'f':
- return(FF);
- case 'v':
- return(11);
- default:
- return(ch); }
-}
-
-long val(char *src, char *p)
-{
- static int inside;
- long l;
-
-if(isdigit(*p) || *p=='-') /* Dec, Hex, or Oct */
- l=strtol(p,&p,0);
-else if(*p=='\'') { /* Char */
- p++;
- if(*p=='\\') {
- p++;
- l=cesc(*p); }
- else
- l=*p;
- p++; }
-else if(*p=='.') /* Bit */
- l=1L<<strtol(p+1,&p,0);
-else {
- printf("SYNTAX ERROR (expecting integer constant):\n");
- printf(linestr,src,line,*p ? p : "<end of line>");
- exit(1);
- return(0); }
-if(inside) {
- return(l); }
-inside=1;
-while(*p)
- switch(*(p++)) {
- case '+':
- l+=val(src,p);
- break;
- case '-':
- l-=val(src,p);
- break;
- case '*':
- l*=val(src,p);
- break;
- case '/':
- l/=val(src,p);
- break;
- case '%':
- l%=val(src,p);
- break;
- case '&':
- l&=val(src,p);
- break;
- case '|':
- l|=val(src,p);
- break;
- case '~':
- l&=~val(src,p);
- break;
- case '^':
- l^=val(src,p);
- break;
- case '>':
- if(*p=='>') {
- p++;
- l>>=val(src,p); }
- break;
- case '<':
- if(*p=='<') {
- p++;
- l<<=val(src,p); }
- break;
- case SP:
- case '#':
- inside=0;
- return(l); }
-inside=0;
-return(l);
-}
-
-
-void writecstr(uchar *p)
-{
- char str[1024];
- int j=0,inquotes=0;
-
-while(*p) {
- if(*p=='"') { /* ignore quotes */
- if(inquotes)
- break;
- inquotes=1;
- p++;
- continue; }
- if(*p=='\\') { /* escape */
- p++;
- if(isdigit(*p)) {
- str[j]=atoi(p); /* decimal, NOT octal */
- if(isdigit(*(++p))) /* skip up to 3 digits */
- if(isdigit(*(++p)))
- p++;
- j++;
- continue; }
- switch(*(p++)) {
- case 'x':
- tmp[0]=*(p++);
- tmp[1]=0;
- if(isxdigit(*p)) { /* if another hex digit, skip too */
- tmp[1]=*(p++);
- tmp[2]=0; }
- str[j]=(char)ahtoul(tmp);
- break;
- case 'r':
- str[j]=CR;
- break;
- case 'n':
- str[j]=LF;
- break;
- case 't':
- str[j]=TAB;
- break;
- case 'b':
- str[j]=BS;
- break;
- case 'a':
- str[j]=7; /* BEL */
- break;
- case 'f':
- str[j]=FF;
- break;
- case 'v':
- str[j]=11; /* VT */
- break;
- default:
- str[j]=*(p-1);
- break; }
- j++;
- continue; }
- str[j++]=*(p++); }
-str[j]=0;
-fwrite(str,1,j+1,out);
-}
-
-void writestr(uchar *p)
-{
- char str[1024];
- int j=0;
-
-while(*p) {
- if(*p=='"') { /* ignore quotes */
- p++;
- continue; }
- if(*p=='\\' && *(p+1)=='"' && *(p+2))
- p++;
- str[j++]=*(p++); }
-str[j]=0;
-fwrite(str,1,j+1,out);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-void cvttab(char *str)
-{
- int i;
-
-for(i=0;str[i];i++)
- if(str[i]==TAB)
- str[i]=SP;
-}
-
-void newvar(uchar *in)
-{
- uchar name[128];
- long i,l;
-
-sprintf(name,"%.80s",in);
-if(!case_sens)
- strupr(name);
-l=crc32(name);
-for(i=0;i<vars;i++)
- if(var_name[i]==l)
- break;
-if(i<vars)
- return;
-if((var_name=(ulong *)REALLOC(var_name,sizeof(long)*(vars+1)))==NULL) {
- printf("Too many (%lu) variables!\r\n",vars);
- exit(1); }
-var_name[vars]=l;
-if(display)
- printf("newvar(%08lX)=%s\n",l,in);
-vars++;
-}
-
-void writecrc(uchar *src, uchar *in)
-{
- uchar name[128];
- long i,l;
-
-sprintf(name,"%.80s",in);
-if(!case_sens)
- strupr(name);
-if(!stricmp(name,"STR") || !name[0])
- l=0;
-else {
- l=crc32(name);
-
- for(i=0;i<vars;i++)
- if(var_name[i]==l)
- break;
- if(i==vars) {
- printf("SYNTAX ERROR (expecting variable name):\n");
- printf(linestr,src,line,*in ? in : "<end of line>");
- exit(1); }
-
- }
-fwrite(&l,4,1,out);
-}
-
-long isvar(uchar *arg)
-{
- uchar name[128],*p;
- long i,l;
-
-if(!arg || !*arg)
- return(0);
-
-sprintf(name,"%.80s",arg);
-if((p=strchr(name,SP))!=NULL) // Truncate at first space
- *p=0;
-if(!case_sens)
- strupr(name);
-l=crc32(name);
-
-for(i=0;i<vars;i++)
- if(var_name[i]==l)
- break;
-if(i==vars)
- return(0);
-return(l);
-}
-
-int str_cmp(char *s1, char *s2)
-{
-if(case_sens)
- return(strcmp(s1,s2));
-return(stricmp(s1,s2));
-}
-
-void expdefs(uchar *line)
-{
- uchar str[512],*p,*sp,sav[2]={0};
- int i;
-
-str[0]=0;
-for(p=line;*p;p++) {
- if(*p==SP) {
- strcat(str," ");
- continue; }
-
- if(*p=='"') { /* Skip quoted text */
- sp=strchr(p+1,'"');
- if(sp) *sp=0;
- strcat(str,p);
- if(!sp)
- break;
- strcat(str,"\"");
- p+=strlen(p);
- continue; }
-
- for(sp=p;*sp;sp++)
- if(!isalnum(*sp) && *sp!='_')
- break;
- sav[0]=*sp; /* Save delimiter */
- sav[1]=0;
- *sp=0;
- for(i=0;i<defines;i++)
- if(!str_cmp(define_str[i],p))
- break;
- if(i<defines)
- strcat(str,define_val[i]);
- else
- strcat(str,p);
- if(!sav[0]) /* Last argument */
- break;
- p+=strlen(p);
- strcat(str,sav); /* Restore delimiter */
- }
-strcpy(line,str);
-}
-
-
-
-void compile(char *src)
-{
- uchar str[1024],save[1024],*p,*sp,*tp,*arg,*arg2,*arg3,*ar,ch;
- ushort i,j;
- long l,v,savline;
- FILE *in;
-
-strupr(src);
-if((in=fopen(src,"rb"))==NULL) {
- printf("error opening %s for read\n",src);
- exit(1); }
-line=0;
-
-while(!feof(in) && !ferror(in)) {
- if(!fgets(str,1000,in))
- break;
- truncsp(str);
- cvttab(str);
- line++;
- strcpy(save,str);
- p=str;
- while(*p && *p<=SP) /* look for beginning of command */
- p++;
- if(!*p)
- continue;
- if(*p=='#') /* remarks start with # */
- continue;
- expdefs(p); /* expand defines */
- if(display)
- printf("%s\n",p);
- sp=strchr(p,SP);
- arg=arg2=arg3="";
- if(sp) {
- *sp=0;
- arg=sp+1;
- while(*arg && *arg<=SP) arg++;
- sp=strchr(arg,SP);
- if(sp) {
- arg2=sp+1;
- while(*arg2 && *arg2<=SP) arg2++;
- sp=strchr(arg2,SP);
- if(sp) {
- arg3=sp+1;
- while(*arg3 && *arg3<=SP) arg3++; } } }
-
- if(!stricmp(p,"!INCLUDE")) {
- savline=line;
- sp=strchr(arg,SP);
- if(sp) *sp=0;
- compile(arg);
- line=savline;
- continue; }
-
- if(!stricmp(p,"!DEFINE")) { /* define */
- sp=strchr(arg,SP);
- if(sp)
- *sp=0;
- else
- break;
- tp=strrchr(arg2,'\"');
- if(!tp)
- tp=arg2;
- sp=strchr(tp,'#');
- if(sp)
- *sp=0;
- truncsp(arg2);
- if((define_str=(char **)REALLOC(define_str,sizeof(char *)*defines+1))
- ==NULL) {
- printf("Too many defines.\r\n");
- exit(1); }
- if((define_str[defines]=(char *)MALLOC(strlen(arg)+1))==NULL) {
- printf("Too many defines.\r\n");
- exit(1); }
- if((define_val=(char **)REALLOC(define_val,sizeof(char *)*defines+1))
- ==NULL) {
- printf("Too many defines.\r\n");
- exit(1); }
- if((define_val[defines]=(char *)MALLOC(strlen(arg2)+1))==NULL) {
- printf("Too many defines.\r\n");
- exit(1); }
- strcpy(define_str[defines],arg);
- strcpy(define_val[defines],arg2);
- defines++;
- continue; }
-
- if(!stricmp(p,"!GLOBAL")) { /* declare global variables */
- if(!*arg) break;
- for(p=arg;*p && *p!='#';) {
- sp=strchr(p,SP);
- if(sp) *sp=0;
- newvar(p);
- if(!sp)
- break;
- p=sp+1;
- while(*p && *p<=SP)
- p++; }
- continue; }
-
- if(!stricmp(p,"PATCH")) {
- if(!*arg) break;
- p=arg;
- while(*p) {
- while(*p && *p<=SP) p++;
- tmp[0]=*p++;
- tmp[1]=*p++;
- tmp[2]=0;
- if(!tmp[0])
- break;
- ch=ahtoul(tmp);
- fputc(ch,out); }
- continue; }
-
- if(!stricmp(p,"SHOW_VARS")) {
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SHOW_VARS,out);
- continue; }
-
- if(!stricmp(p,"COMPARE_ARS")) {
- if(!*arg) break;
- strupr(arg);
- ar=arstr(&i,arg);
- fprintf(out,"%c%c",CS_COMPARE_ARS,(uchar)i);
- fwrite(ar,i,1,out);
- FREE(ar);
- continue; }
-
- if(!stricmp(p,"CHKSYSPASS")) {
- fprintf(out,"%c",CS_CHKSYSPASS);
- continue; }
- if(!stricmp(p,"INFO_SYSTEM")) {
- fprintf(out,"%c",CS_INFO_SYSTEM);
- continue; }
- if(!stricmp(p,"INFO_SUBBOARD")) {
- fprintf(out,"%c",CS_INFO_SUBBOARD);
- continue; }
- if(!stricmp(p,"INFO_DIRECTORY")) {
- fprintf(out,"%c",CS_INFO_DIRECTORY);
- continue; }
- if(!stricmp(p,"INFO_VERSION")) {
- fprintf(out,"%c",CS_INFO_VERSION);
- continue; }
- if(!stricmp(p,"INFO_USER")) {
- fprintf(out,"%c",CS_INFO_USER);
- continue; }
- if(!stricmp(p,"INFO_XFER_POLICY")) {
- fprintf(out,"%c",CS_INFO_XFER_POLICY);
- continue; }
- if(!stricmp(p,"LOGKEY")) {
- fprintf(out,"%c",CS_LOGKEY);
- continue; }
- if(!stricmp(p,"LOGKEY_COMMA")) {
- fprintf(out,"%c",CS_LOGKEY_COMMA);
- continue; }
- if(!stricmp(p,"LOGSTR")) {
- fprintf(out,"%c",CS_LOGSTR);
- continue; }
-
- if(!stricmp(p,"ONLINE")) {
- fprintf(out,"%c%c",CS_ONE_MORE_BYTE,CS_ONLINE);
- continue; }
- if(!stricmp(p,"OFFLINE")) {
- fprintf(out,"%c%c",CS_ONE_MORE_BYTE,CS_OFFLINE);
- continue; }
- if(!stricmp(p,"NEWUSER")) {
- fprintf(out,"%c%c",CS_ONE_MORE_BYTE,CS_NEWUSER);
- continue; }
- if(!stricmp(p,"LOGON")) {
- fprintf(out,"%c%c",CS_ONE_MORE_BYTE,CS_LOGON);
- continue; }
- if(!stricmp(p,"LOGOUT")) {
- fprintf(out,"%c%c",CS_ONE_MORE_BYTE,CS_LOGOUT);
- continue; }
- if(!stricmp(p,"EXIT")) {
- fprintf(out,"%c%c",CS_ONE_MORE_BYTE,CS_EXIT);
- continue; }
-
- if(!stricmp(p,"USER_EVENT")) {
- if(!*arg)
- break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(2,out); // int offset
- fputc(1,out); // int length
- ch=0; } // place holder
- else
- ch=val(src,arg);
- fprintf(out,"%c%c",CS_TWO_MORE_BYTES,CS_USER_EVENT);
- fwrite(&ch,1,1,out);
- continue; }
-
- if(!stricmp(p,"PUT_NODE")) {
- fprintf(out,"%c",CS_PUT_NODE);
- continue; }
- if(!stricmp(p,"SYNC")) {
- fprintf(out,"%c",CS_SYNC);
- continue; }
- if(!stricmp(p,"ASYNC")) {
- fprintf(out,"%c",CS_ASYNC);
- continue; }
- if(!stricmp(p,"RIOSYNC")) {
- fprintf(out,"%c",CS_RIOSYNC);
- continue; }
- if(!stricmp(p,"GETTIMELEFT")) {
- fprintf(out,"%c",CS_GETTIMELEFT);
- continue; }
- if(!stricmp(p,"SAVELINE")) {
- fprintf(out,"%c",CS_SAVELINE);
- continue; }
- if(!stricmp(p,"RESTORELINE")) {
- fprintf(out,"%c",CS_RESTORELINE);
- continue; }
- if(!stricmp(p,"IF_TRUE") || !stricmp(p,"IF_EQUAL")) {
- fprintf(out,"%c",CS_IF_TRUE);
- continue; }
- if(!stricmp(p,"IF_FALSE") || !stricmp(p,"IF_NOT_EQUAL")) {
- fprintf(out,"%c",CS_IF_FALSE);
- continue; }
- if(!stricmp(p,"IF_GREATER")) {
- fprintf(out,"%c",CS_IF_GREATER);
- continue; }
- if(!stricmp(p,"IF_GREATER_OR_EQUAL")
- || !stricmp(p,"IF_EQUAL_OR_GREATER")) {
- fprintf(out,"%c",CS_IF_GREATER_OR_EQUAL);
- continue; }
- if(!stricmp(p,"IF_LESS")) {
- fprintf(out,"%c",CS_IF_LESS);
- continue; }
- if(!stricmp(p,"IF_LESS_OR_EQUAL")
- || !stricmp(p,"IF_EQUAL_OR_LESS")) {
- fprintf(out,"%c",CS_IF_LESS_OR_EQUAL);
- continue; }
- if(!stricmp(p,"ENDIF") || !stricmp(p,"END_IF")) {
- fprintf(out,"%c",CS_ENDIF);
- continue; }
- if(!stricmp(p,"ELSE")) {
- fprintf(out,"%c",CS_ELSE);
- continue; }
- if(p[0]==':') { /* :label */
- p++;
- sp=strchr(p,SP);
- if(sp)
- *sp=0;
- for(i=0;i<labels;i++)
- if(!stricmp(label_name[i],p))
- break;
- if(i<labels) {
- printf("SYNTAX ERROR (duplicate label name):\n");
- printf(linestr,src,line,p);
- exit(1); }
- if((label_name=(char **)REALLOC(label_name,sizeof(char *)*labels+1))
- ==NULL) {
- printf("Too many labels.\n");
- exit(1); }
- if((label_indx=(uint *)REALLOC(label_indx,sizeof(int)*labels+1))
- ==NULL) {
- printf("Too many labels.\n");
- exit(1); }
- if((label_name[labels]=(char *)MALLOC(strlen(p)+1))==NULL) {
- printf("Too many labels.\r\n");
- exit(1); }
- strcpy(label_name[labels],p);
- label_indx[labels]=ftell(out);
- labels++;
- continue; }
- if(!stricmp(p,"GOTO")) { /* goto */
- if(!*arg) break;
- sp=strchr(arg,SP);
- if(sp)
- *sp=0;
- if((goto_label=(char **)REALLOC(goto_label,sizeof(char *)*gotos+1))
- ==NULL) {
- printf("Too many gotos.\r\n");
- exit(1); }
- if((goto_file=(char **)REALLOC(goto_file,sizeof(char *)*gotos+1))
- ==NULL) {
- printf("Too many gotos.\r\n");
- exit(1); }
- if((goto_indx=(uint *)REALLOC(goto_indx,sizeof(int)*gotos+1))
- ==NULL) {
- printf("Too many gotos.\r\n");
- exit(1); }
- if((goto_line=(uint *)REALLOC(goto_line,sizeof(int)*gotos+1))
- ==NULL) {
- printf("Too many gotos.\r\n");
- exit(1); }
- if((goto_label[gotos]=(char *)MALLOC(strlen(arg)+1))==NULL) {
- printf("Too many gotos.\r\n");
- exit(1); }
- if((goto_file[gotos]=(char *)MALLOC(strlen(str)+1))==NULL) {
- printf("Too many gotos.\r\n");
- exit(1); }
- strcpy(goto_label[gotos],arg);
- strcpy(goto_file[gotos],str);
- goto_indx[gotos]=ftell(out);
- goto_line[gotos]=line;
- gotos++;
- fprintf(out,"%c%c%c",CS_GOTO,0xff,0xff);
- continue; }
- if(!stricmp(p,"CALL")) { /* call */
- if(!*arg) break;
- sp=strchr(arg,SP);
- if(sp)
- *sp=0;
- if((call_label=(char **)REALLOC(call_label,sizeof(char *)*(calls+1)))
- ==NULL) {
- printf("Too many calls.\r\n");
- exit(1); }
- if((call_file=(char **)REALLOC(call_file,sizeof(char *)*(calls+1)))
- ==NULL) {
- printf("Too many calls.\r\n");
- exit(1); }
- if((call_indx=(uint *)REALLOC(call_indx,sizeof(int)*(calls+1)))
- ==NULL) {
- printf("Too many calls.\r\n");
- exit(1); }
- if((call_line=(uint *)REALLOC(call_line,sizeof(int)*(calls+1)))
- ==NULL) {
- printf("Too many calls.\r\n");
- exit(1); }
- if((call_label[calls]=(char *)MALLOC(strlen(arg)+1))==NULL) {
- printf("Too many calls.\r\n");
- exit(1); }
- if((call_file[calls]=(char *)MALLOC(strlen(src)+1))==NULL) {
- printf("Too many calls.\r\n");
- exit(1); }
-
- strcpy(call_label[calls],arg);
- strcpy(call_file[calls],src);
- call_indx[calls]=ftell(out);
- call_line[calls]=line;
- calls++;
- fprintf(out,"%c%c%c",CS_CALL,0xff,0xff);
- continue; }
-
- if(!stricmp(p,"RETURN")) {
- fprintf(out,"%c",CS_RETURN);
- continue; }
- if(!stricmp(p,"CMD_HOME")) {
- fprintf(out,"%c",CS_CMD_HOME);
- continue; }
- if(!stricmp(p,"CMDKEY")) {
- if(!*arg) break;
- if(!stricmp(arg,"DIGIT"))
- ch=CS_DIGIT;
- else if(!stricmp(arg,"EDIGIT"))
- ch=CS_EDIGIT;
- else
- ch=toupper(*arg);
- if(ch=='/')
- ch=*(arg+1)|0x80; /* high bit indicates slash required */
- else if(ch=='^' && *(arg+1)>=0x40)
- ch=*(arg+1)-0x40; /* ctrl char */
- else if(ch=='\\')
- ch=cesc(*(arg+1));
- else if(ch=='\'')
- ch=*(arg+1);
- fprintf(out,"%c%c",CS_CMDKEY,ch);
- continue; }
- if(!stricmp(p,"SETLOGIC") || !stricmp(p,"SET_LOGIC")) {
- if(!*arg) break;
- if(!stricmp(arg,"TRUE") || !stricmp(arg,"EQUAL"))
- ch=LOGIC_TRUE;
- else if(!stricmp(arg,"GREATER"))
- ch=LOGIC_GREATER;
- else if(!stricmp(arg,"LESS"))
- ch=LOGIC_LESS;
- else
- ch=LOGIC_FALSE;
- fprintf(out,"%c%c",CS_SETLOGIC,ch);
- continue; }
-
- if(!stricmp(p,"DEFINE_STR_VAR") || !stricmp(p,"STR")) {
- if(!*arg) break;
- for(p=arg;*p && *p!='#';) {
- sp=strchr(p,SP);
- if(sp) *sp=0;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DEFINE_STR_VAR,out);
- newvar(p);
- writecrc(src,p);
- if(!sp)
- break;
- p=sp+1;
- while(*p && *p<=SP)
- p++; }
- continue; }
- if(!stricmp(p,"DEFINE_INT_VAR") || !stricmp(p,"INT")) {
- if(!*arg) break;
- for(p=arg;*p && *p!='#';) {
- sp=strchr(p,SP);
- if(sp) *sp=0;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DEFINE_INT_VAR,out);
- newvar(p);
- writecrc(src,p);
- if(!sp)
- break;
- p=sp+1;
- while(*p && *p<=SP)
- p++; }
- continue; }
- if(!stricmp(p,"DEFINE_GLOBAL_STR_VAR") || !stricmp(p,"GLOBAL_STR")) {
- if(!*arg) break;
- for(p=arg;*p && *p!='#';) {
- sp=strchr(p,SP);
- if(sp) *sp=0;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DEFINE_GLOBAL_STR_VAR,out);
- newvar(p);
- writecrc(src,p);
- if(!sp)
- break;
- p=sp+1;
- while(*p && *p<=SP)
- p++; }
- continue; }
- if(!stricmp(p,"DEFINE_GLOBAL_INT_VAR") || !stricmp(p,"GLOBAL_INT")) {
- if(!*arg) break;
- for(p=arg;*p && *p!='#';) {
- sp=strchr(p,SP);
- if(sp) *sp=0;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DEFINE_GLOBAL_INT_VAR,out);
- newvar(p);
- writecrc(src,p);
- if(!sp)
- break;
- p=sp+1;
- while(*p && *p<=SP)
- p++; }
- continue; }
-
- if(!stricmp(p,"LOGIN")) {
- if(!*arg) break;
- fputc(CS_STR_FUNCTION,out);
- fputc(CS_LOGIN,out);
- writecstr(arg);
- continue; }
-
- if(!stricmp(p,"LOAD_TEXT")) {
- if(!*arg) break;
- fputc(CS_STR_FUNCTION,out);
- fputc(CS_LOAD_TEXT,out);
- writestr(arg);
- continue; }
-
- if(!stricmp(p,"SET_STR_VAR")
- || (!stricmp(p,"SET") && strchr(arg,'"'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SET_STR_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecstr(arg2);
- continue; }
- if(!stricmp(p,"CAT_STR_VAR")
- || (!stricmp(p,"STRCAT") && strchr(arg,'"'))) {
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(CAT_STR_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecstr(arg2);
- continue; }
- if((!stricmp(p,"STRSTR") || !stricmp(p,"COMPARE_SUBSTR"))
- && strchr(arg,'"')) {
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(STRSTR_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecstr(arg2);
- continue; }
- if(!stricmp(p,"STRSTR") || !stricmp(p,"COMPARE_SUBSTR")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(STRSTR_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"CAT_STR_VARS") || !stricmp(p,"STRCAT")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(CAT_STR_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"FORMAT") || !stricmp(p,"SPRINTF")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(FORMAT_STR_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* Write destination variable */
- p++;
- while(*p && *p<=SP) p++;
- arg=p;
- p=strrchr(arg,'"');
- if(!p)
- break;
- *p=0;
- p++;
- while(*p && *p<=SP) p++;
- writecstr(arg); /* Write string */
- l=ftell(out);
- fputc(0,out); /* Write total number of args */
- i=0;
- while(p && *p) {
- arg=p;
- p=strchr(arg,SP);
- if(p) {
- *p=0;
- p++; }
- writecrc(src,arg);
- i++; }
- fseek(out,l,SEEK_SET);
- fputc((char)i,out);
- fseek(out,i*4,SEEK_CUR);
- continue; }
-
- if(!stricmp(p,"STRFTIME") || !stricmp(p,"FTIME_STR")) {
- if(!*arg || !*arg2 || !*arg3) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(FORMAT_TIME_STR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* Write destination variable */
- p++;
- while(*p && *p<=SP) p++;
- arg=p;
- p=strrchr(arg,'"');
- if(!p)
- break;
- *p=0;
- writecstr(arg); /* Write string */
- p++;
- while(*p && *p<=SP) p++;
- writecrc(src,p);
- continue; }
-
- if(!stricmp(p,"TIME_STR")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(TIME_STR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"DATE_STR")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DATE_STR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"SECOND_STR")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SECOND_STR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
-
- if(!stricmp(p,"SET_INT_VAR")
- || (!stricmp(p,"SET") && *arg2!='"')) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SET_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- fwrite(&l,4,1,out);
- continue; }
-
- if(!stricmp(p,"COMPARE_STR_VAR") ||
- (!stricmp(p,"COMPARE") && *arg2=='"')) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(COMPARE_STR_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecstr(arg2);
- continue; }
-
- if(!stricmp(p,"COMPARE_STRN_VAR") ||
- ((!stricmp(p,"STRNCMP") || !stricmp(p,"COMPARE_STRN"))
- && *arg3 && strchr(arg3,'"'))) {
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(2,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(STRNCMP_VAR,out);
- fwrite(&i,1,1,out); /* Length */
- p=strchr(arg2,SP);
- if(!p)
- break;
- *p=0;
- p++;
- while(*p && *p<=SP) p++;
- writecrc(src,arg2);
- writecstr(p);
- continue; }
-
- if(!stricmp(p,"COMPARE_STRN_VARS") || !stricmp(p,"STRNCMP")
- || !stricmp(p,"COMPARE_STRN")) {
- if(!*arg || !*arg2 || !*arg3)
- break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(2,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(STRNCMP_VARS,out);
-
- fwrite(&i,1,1,out); /* Length */
- p=strchr(arg2,SP);
- if(!p)
- break;
- *p=0;
- p++;
- while(*p && *p<=SP) p++;
- writecrc(src,arg2);
- writecrc(src,p);
- continue; }
-
- if(!stricmp(p,"COMPARE_INT_VAR") ||
- (!stricmp(p,"COMPARE")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
-
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(COMPARE_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- fwrite(&l,4,1,out);
- continue; }
-
- if(!stricmp(p,"COMPARE")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(COMPARE_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"COPY")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(COPY_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"SWAP")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SWAP_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"TIME")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(TIME_INT_VAR,out);
- writecrc(src,arg);
- continue; }
-
- if(!stricmp(p,"DATE_INT")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DATE_STR_TO_INT,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"CRC16")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(CRC16_TO_INT,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"CRC32")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(CRC32_TO_INT,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"CHKSUM")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(CHKSUM_TO_INT,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"ADD_INT_VAR")
- || (!stricmp(p,"ADD")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(ADD_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"ADD_INT_VARS") || !stricmp(p,"ADD")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(ADD_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"SUB_INT_VAR")
- || (!stricmp(p,"SUB")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SUB_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"SUB_INT_VARS") || !stricmp(p,"SUB")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(SUB_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"MUL_INT_VAR")
- || (!stricmp(p,"MUL")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(MUL_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"MUL_INT_VARS") || !stricmp(p,"MUL")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(MUL_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"DIV_INT_VAR")
- || (!stricmp(p,"DIV")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DIV_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"DIV_INT_VARS") || !stricmp(p,"DIV")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(DIV_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"MOD_INT_VAR")
- || (!stricmp(p,"MOD")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(MOD_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"MOD_INT_VARS") || !stricmp(p,"MOD")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(MOD_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"AND_INT_VAR")
- || (!stricmp(p,"AND")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(AND_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"AND_INT_VARS") || !stricmp(p,"AND")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(AND_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"OR_INT_VAR")
- || (!stricmp(p,"OR")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(OR_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"OR_INT_VARS") || !stricmp(p,"OR")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(OR_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"NOT_INT_VAR")
- || (!stricmp(p,"NOT")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(NOT_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"NOT_INT_VARS") || !stricmp(p,"NOT")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(NOT_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"XOR_INT_VAR")
- || (!stricmp(p,"XOR")
- && (isdigit(*arg2) || atol(arg2) || *arg2=='\'' || *arg2=='.'))) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(XOR_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- l=val(src,arg2);
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"XOR_INT_VARS") || !stricmp(p,"XOR")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(XOR_INT_VARS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
-
- if(!stricmp(p,"RANDOM_INT_VAR") || !stricmp(p,"RANDOM")) {
- if(!*arg) break;
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(4,out); // int length
- l=0; } // place holder
- else
- l=val(src,arg2);
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(RANDOM_INT_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- fwrite(&l,4,1,out);
- continue; }
-
- if(!stricmp(p,"SWITCH")) {
- if(!*arg) break;
- fputc(CS_SWITCH,out);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"END_SWITCH")) {
- fputc(CS_END_SWITCH,out);
- continue; }
- if(!stricmp(p,"CASE")) {
- if(!*arg) break;
- fputc(CS_CASE,out);
- l=val(src,arg);
- fwrite(&l,4,1,out);
- continue; }
- if(!stricmp(p,"DEFAULT")) {
- fputc(CS_DEFAULT,out);
- continue; }
- if(!stricmp(p,"END_CASE")) {
- fputc(CS_END_CASE,out);
- continue; }
-
- if(!stricmp(p,"PRINT") && !strchr(arg,'"') && !strchr(arg,'\\')
- && !strchr(arg,SP)) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(PRINT_VAR,out);
- writecrc(src,arg);
- continue; }
-
- if(!stricmp(p,"PRINTF")) {
- if(!*arg) break;
- fputc(CS_VAR_INSTRUCTION,out);
- fputc(VAR_PRINTF,out);
- p=strrchr(arg,'"');
- if(!p)
- break;
- *p=0;
- p++;
- while(*p && *p<=SP) p++;
- writecstr(arg); /* Write string */
- l=ftell(out);
- fputc(0,out); /* Write total number of args */
- i=0;
- while(p && *p) {
- arg=p;
- p=strchr(arg,SP);
- if(p) {
- *p=0;
- p++; }
- writecrc(src,arg);
- i++; }
- fseek(out,l,SEEK_SET);
- fputc((char)i,out);
- fseek(out,i*4,SEEK_CUR);
- continue; }
-
- if(!stricmp(p,"FOPEN")) {
- if(!*arg || !*arg2 || !*arg3) break;
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg2);
-
- fputc(CS_FIO_FUNCTION,out);
- if(*arg3=='"')
- fputc(FIO_OPEN,out);
- else
- fputc(FIO_OPEN_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- p=strchr(arg2,SP);
- if(!p)
- break;
- *p=0;
- p++;
- fwrite(&i,2,1,out);
- while(*p && *p<=SP) p++;
- if(*p=='"')
- writestr(p);
- else
- writecrc(src,p);
- continue; }
- if(!stricmp(p,"FCLOSE")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_CLOSE,out);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"FFLUSH")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_FLUSH,out);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"FREAD")) {
- if(!*arg) break;
-
- fputc(CS_FIO_FUNCTION,out);
- if(!*arg3 || isdigit(*arg3) || atoi(arg3))
- fputc(FIO_READ,out);
- else
- fputc(FIO_READ_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- p=strchr(arg2,SP);
- if(p)
- *p=0;
- writecrc(src,arg2); /* Variable */
- if(isdigit(*arg3))
- i=val(src,arg3); /* Length */
- else
- i=0;
- if(i || !*arg3)
- fwrite(&i,2,1,out);
- else
- writecrc(src,arg3);
- continue; }
- if(!stricmp(p,"FWRITE")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- if(!*arg3 || isdigit(*arg3) || atoi(arg3))
- fputc(FIO_WRITE,out);
- else
- fputc(FIO_WRITE_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- p=strchr(arg2,SP);
- if(p)
- *p=0;
- writecrc(src,arg2); /* Variable */
- if(isdigit(*arg3))
- i=val(src,arg3); /* Length */
- else
- i=0;
- if(i || !*arg3)
- fwrite(&i,2,1,out);
- else
- writecrc(src,arg3);
- continue; }
- if(!stricmp(p,"FGET_LENGTH")
- || !stricmp(p,"FGETLENGTH")
- || !stricmp(p,"GETFLENGTH")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_GET_LENGTH,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- writecrc(src,arg2); /* Variable */
- continue; }
- if(!stricmp(p,"FREAD_LINE")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_READ_LINE,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- writecrc(src,arg2); /* Variable */
- continue; }
- if(!stricmp(p,"FEOF")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_EOF,out);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"FGET_POS")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_GET_POS,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- writecrc(src,arg2); /* Variable */
- continue; }
- if(!stricmp(p,"FSET_POS") || !stricmp(p,"FSEEK")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- if(isdigit(*arg2) || atol(arg2))
- fputc(FIO_SEEK,out);
- else
- fputc(FIO_SEEK_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- p=strchr(arg2,SP);
- if(p)
- *p=0;
- if(atol(arg2) || isdigit(*arg2)) {
- l=val(src,arg2);
- fwrite(&l,4,1,out); }
- else
- writecrc(src,arg2); /* Offset variable */
- i=0;
- if(p) {
- p++;
- while(*p && *p<=SP) p++;
- i=atoi(p);
- if(!stricmp(p,"CUR"))
- i=SEEK_CUR;
- else if(!stricmp(p,"END"))
- i=SEEK_END; }
- fwrite(&i,2,1,out);
- continue; }
- if(!stricmp(p,"FLOCK")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- if(isdigit(*arg2) || atol(arg2))
- fputc(FIO_LOCK,out);
- else
- fputc(FIO_LOCK_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- if(atol(arg2) || isdigit(*arg2)) {
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out); }
- else
- writecrc(src,arg2); /* Length variable */
- continue; }
- if(!stricmp(p,"FUNLOCK")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- if(isdigit(*arg2) || atol(arg2))
- fputc(FIO_UNLOCK,out);
- else
- fputc(FIO_UNLOCK_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- if(atol(arg2) || isdigit(*arg2)) {
- l=val(src,arg2);
- if(!l)
- break;
- fwrite(&l,4,1,out); }
- else
- writecrc(src,arg2); /* Length variable */
- continue; }
- if(!stricmp(p,"FSET_LENGTH")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- if(isdigit(*arg2) || atol(arg2))
- fputc(FIO_SET_LENGTH,out);
- else
- fputc(FIO_SET_LENGTH_VAR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- if(atol(arg2) || isdigit(*arg2)) {
- l=val(src,arg2);
- fwrite(&l,4,1,out); }
- else
- writecrc(src,arg2); /* Length variable */
- continue; }
- if(!stricmp(p,"FPRINTF")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_PRINTF,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* Write destination variable */
- p++;
- while(*p && *p<=SP) p++;
- arg=p;
- p=strrchr(arg,'"');
- if(!p)
- break;
- *p=0;
- p++;
- while(*p && *p<=SP) p++;
- writecstr(arg); /* Write string */
- l=ftell(out);
- fputc(0,out); /* Write total number of args */
- i=0;
- while(p && *p) {
- arg=p;
- p=strchr(arg,SP);
- if(p) {
- *p=0;
- p++; }
- writecrc(src,arg);
- i++; }
- fseek(out,l,SEEK_SET);
- fputc((char)i,out);
- fseek(out,i*4,SEEK_CUR);
- continue; }
- if(!stricmp(p,"FSET_ETX")) {
- if(!*arg) break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(2,out); // int offset
- fputc(1,out); // int length
- ch=0; } // place holder
- else
- ch=val(src,arg);
-
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_SET_ETX,out);
- fwrite(&ch,1,1,out);
- continue; }
- if(!stricmp(p,"FGET_TIME")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_GET_TIME,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- writecrc(src,arg2); /* Variable */
- continue; }
- if(!stricmp(p,"FSET_TIME")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(FIO_SET_TIME,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* File handle */
- writecrc(src,arg2); /* Variable */
- continue; }
- if(!stricmp(p,"REMOVE_FILE")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(REMOVE_FILE,out);
- writecrc(src,arg); /* Str var */
- continue; }
- if(!stricmp(p,"RENAME_FILE")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(RENAME_FILE,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* str var */
- writecrc(src,arg2); /* str var */
- continue; }
- if(!stricmp(p,"COPY_FILE")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(COPY_FILE,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* str var */
- writecrc(src,arg2); /* str var */
- continue; }
- if(!stricmp(p,"MOVE_FILE")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(MOVE_FILE,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* str var */
- writecrc(src,arg2); /* str var */
- continue; }
- if(!stricmp(p,"GET_FILE_ATTRIB")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(GET_FILE_ATTRIB,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* str var */
- writecrc(src,arg2); /* int var */
- continue; }
- if(!stricmp(p,"SET_FILE_ATTRIB")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(SET_FILE_ATTRIB,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* str var */
- writecrc(src,arg2); /* int var */
- continue; }
- if(!stricmp(p,"RMDIR") || !stricmp(p,"REMOVE_DIR")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(REMOVE_DIR,out);
- writecrc(src,arg); /* Str var */
- continue; }
- if(!stricmp(p,"MKDIR") || !stricmp(p,"MAKE_DIR")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(MAKE_DIR,out);
- writecrc(src,arg); /* Str var */
- continue; }
- if(!stricmp(p,"CHDIR") || !stricmp(p,"CHANGE_DIR")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(CHANGE_DIR,out);
- writecrc(src,arg); /* Str var */
- continue; }
- if(!stricmp(p,"OPEN_DIR")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(OPEN_DIR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* int var */
- writecrc(src,arg2); /* str var */
- continue; }
- if(!stricmp(p,"READ_DIR")) {
- if(!*arg || !*arg2) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(READ_DIR,out);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg); /* int var */
- writecrc(src,arg2); /* str var */
- continue; }
- if(!stricmp(p,"REWIND_DIR")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(REWIND_DIR,out);
- writecrc(src,arg); /* int var */
- continue; }
- if(!stricmp(p,"CLOSE_DIR")) {
- if(!*arg) break;
- fputc(CS_FIO_FUNCTION,out);
- fputc(CLOSE_DIR,out);
- writecrc(src,arg); /* int var */
- continue; }
-
- if(!stricmp(p,"NODE_ACTION")) {
- if(!*arg) break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(1,out); // int length
- ch=0; } // place holder
- else
- ch=val(src,arg);
-
- fprintf(out,"%c%c",CS_NODE_ACTION,ch);
- continue; }
- if(!stricmp(p,"NODE_STATUS")) {
- if(!*arg) break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(1,out); // int length
- ch=0; } // place holder
- else
- ch=val(src,arg);
-
- fprintf(out,"%c%c",CS_NODE_STATUS,ch);
- continue; }
- if(!stricmp(p,"END_CMD") || !stricmp(p,"ENDCMD")) {
- fprintf(out,"%c",CS_END_CMD);
- continue; }
- if(!stricmp(p,"CMD_POP") || !stricmp(p,"CMDPOP")) {
- fprintf(out,"%c",CS_CMD_POP);
- continue; }
- if(!stricmp(p,"CLS")) {
- fprintf(out,"%c",CS_CLS);
- continue; }
- if(!stricmp(p,"CRLF")) {
- fprintf(out,"%c",CS_CRLF);
- continue; }
- if(!stricmp(p,"PAUSE")) {
- fprintf(out,"%c",CS_PAUSE);
- continue; }
- if(!stricmp(p,"PAUSE_RESET")) {
- fprintf(out,"%c",CS_PAUSE_RESET);
- continue; }
- if(!stricmp(p,"CLEAR_ABORT")) {
- fprintf(out,"%c",CS_CLEAR_ABORT);
- continue; }
- if(!stricmp(p,"GETLINES")) {
- fprintf(out,"%c",CS_GETLINES);
- continue; }
- if(!stricmp(p,"GETFILESPEC")) {
- fprintf(out,"%c",CS_GETFILESPEC);
- continue; }
- if(!stricmp(p,"FINDUSER")) {
- fprintf(out,"%c",CS_FINDUSER);
- continue; }
-
- if(!stricmp(p,"LOG")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_LOG);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"MNEMONICS")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_MNEMONICS);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"PRINT")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_PRINT);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"PRINT_LOCAL")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_PRINT_LOCAL);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"PRINT_REMOTE")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_PRINT_REMOTE);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"PRINTFILE")) {
- if(!*arg) break;
- if(*arg=='"') {
- fprintf(out,"%c",CS_PRINTFILE);
- writestr(arg); }
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg2);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,PRINTFILE_VAR_MODE);
- p=strchr(arg,SP);
- if(p) *p=0;
- writecrc(src,arg);
- fwrite(&i,2,1,out); }
- continue; }
- if(!stricmp(p,"PRINTTAIL")) {
- if(!*arg || !*arg2)
- break;
- if((l=isvar(arg3))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(8,out); // int offset
- fputc(1,out); // int length
- j=0; } // place holder
- else
- j=val(src,arg3);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,PRINTTAIL_VAR_MODE);
- p=strchr(arg,SP);
- if(p) *p=0;
- writecrc(src,arg);
- i=val(src,arg2);
- fwrite(&i,2,1,out);
- fwrite(&j,1,1,out);
- continue; }
-
- if(!stricmp(p,"PRINTFILE_STR")) {
- fprintf(out,"%c",CS_PRINTFILE_STR);
- continue; }
- if(!stricmp(p,"PRINTFILE_LOCAL")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_PRINTFILE_LOCAL);
- writestr(arg);
- continue; }
- if(!stricmp(p,"PRINTFILE_REMOTE")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_PRINTFILE_REMOTE);
- writestr(arg);
- continue; }
- if(!stricmp(p,"EXEC")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_EXEC);
- writestr(arg);
- continue; }
- if(!stricmp(p,"EXEC_INT")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_EXEC_INT);
- writestr(arg);
- continue; }
- if(!stricmp(p,"EXEC_BIN")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_EXEC_BIN);
- writestr(arg);
- continue; }
- if(!stricmp(p,"EXEC_XTRN")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_EXEC_XTRN);
- writestr(arg);
- continue; }
-
- if(!stricmp(p,"SELECT_SHELL")) {
- fprintf(out,"%c",CS_SELECT_SHELL);
- continue; }
- if(!stricmp(p,"SET_SHELL")) {
- fprintf(out,"%c",CS_SET_SHELL);
- continue; }
- if(!stricmp(p,"SELECT_EDITOR")) {
- fprintf(out,"%c",CS_SELECT_EDITOR);
- continue; }
- if(!stricmp(p,"SET_EDITOR")) {
- fprintf(out,"%c",CS_SET_EDITOR);
- continue; }
-
- if(!stricmp(p,"YES_NO")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_YES_NO);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"NO_YES")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_NO_YES);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"MENU")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_MENU);
- writestr(arg);
- continue; }
- if(!stricmp(p,"SET_MENU_DIR")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_SET_MENU_DIR);
- writestr(arg);
- continue; }
- if(!stricmp(p,"SET_MENU_FILE")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_SET_MENU_FILE);
- writestr(arg);
- continue; }
- if(!stricmp(p,"SEND_FILE_VIA")) {
- if(!*arg || !*arg2) break;
- if(*arg2=='"') {
- fprintf(out,"%c%c%c",CS_VAR_INSTRUCTION,SEND_FILE_VIA,*arg);
- writestr(arg2); }
- else {
- fprintf(out,"%c%c%c",CS_VAR_INSTRUCTION,SEND_FILE_VIA_VAR,*arg);
- writecrc(src,arg2); }
- continue; }
- if(!stricmp(p,"RECEIVE_FILE_VIA")) {
- if(!*arg || !*arg2) break;
- if(*arg2=='"') {
- fprintf(out,"%c%c%c",CS_VAR_INSTRUCTION,RECEIVE_FILE_VIA,*arg);
- writestr(arg2); }
- else {
- fprintf(out,"%c%c%c",CS_VAR_INSTRUCTION,RECEIVE_FILE_VIA_VAR,*arg);
- writecrc(src,arg2); }
- continue; }
- if(!stricmp(p,"CHKFILE")) {
- if(!*arg) break;
- if(*arg=='"') {
- fprintf(out,"%c",CS_CHKFILE);
- writestr(arg); }
- else {
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,CHKFILE_VAR);
- writecrc(src,arg); }
- continue; }
- if(!stricmp(p,"GET_FILE_LENGTH")) {
- if(!*arg || !*arg2)
- break;
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,FLENGTH_TO_INT);
- p=strchr(arg,SP);
- if(p) *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"GET_FILE_TIME")) {
- if(!*arg || !*arg2)
- break;
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,FTIME_TO_INT);
- p=strchr(arg,SP);
- if(p) *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"CHARVAL")) {
- if(!*arg || !*arg2)
- break;
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,CHARVAL_TO_INT);
- p=strchr(arg,SP);
- if(p) *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"SETSTR")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_SETSTR);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"COMPARE_STR")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_COMPARE_STR);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"GET_TEMPLATE")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_GET_TEMPLATE);
- writestr(arg);
- continue; }
- if(!stricmp(p,"READ_SIF")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_READ_SIF);
- writestr(arg);
- continue; }
- if(!stricmp(p,"CREATE_SIF")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_CREATE_SIF);
- writestr(arg);
- continue; }
- if(!stricmp(p,"TRASHCAN")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_TRASHCAN);
- writestr(arg);
- continue; }
- if(!stricmp(p,"CMDSTR")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_CMDSTR);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"CMDKEYS")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_CMDKEYS);
- for(p=arg;*p && *p!='#';p++) {
- ch=*p;
- if(ch=='"')
- continue;
- if(ch=='/') {
- p++;
- ch=*p|0x80; } /* high bit indicates slash required */
- else if(ch=='^' && *(p+1)>=0x40) {
- p++;
- ch=*p;
- ch-=0x40; }
- else if(ch=='\\') {
- p++;
- ch=cesc(*p); }
- fputc(ch,out); }
- fputc(0,out);
- continue; }
- if(!stricmp(p,"COMPARE_WORD")) {
- if(!*arg) break;
- fprintf(out,"%c",CS_COMPARE_WORD);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"GETSTR")) {
- p=strchr(arg,SP);
- if(p) *p=0;
- if((!*arg || isdigit(*arg) || !stricmp(arg,"STR")) && !*arg3)
- fprintf(out,"%c%c",CS_GETSTR,atoi(arg) ? atoi(arg)
- : *arg2 ? atoi(arg2) : 128);
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else if(*arg2)
- i=val(src,arg2);
- else
- i=0;
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION
- ,*arg3 ? GETSTR_MODE : GETSTR_VAR);
- writecrc(src,arg);
-
- if(!i) i=128;
- fwrite(&i,1,1,out);
- if(*arg3) {
- l=val(src,arg3);
- fwrite(&l,4,1,out); } }
- continue; }
- if(!stricmp(p,"GETNUM")) {
- if(!*arg) break;
- p=strchr(arg,SP);
- if(p) *p=0;
- if(isdigit(*arg)) {
- i=val(src,arg);
- fprintf(out,"%c",CS_GETNUM);
- fwrite(&i,2,1,out); }
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg2);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,GETNUM_VAR);
- writecrc(src,arg);
- fwrite(&i,2,1,out); }
- continue; }
- if(!stricmp(p,"MSWAIT")) {
- if(!*arg) break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
-
- fprintf(out,"%c",CS_MSWAIT);
- fwrite(&i,2,1,out);
- continue; }
- if(!stricmp(p,"GETLINE")) {
- p=strchr(arg,SP);
- if(p) *p=0;
- if(!*arg || isdigit(*arg))
- fprintf(out,"%c%c",CS_GETLINE,*arg ? atoi(arg) :128);
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg2);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,GETLINE_VAR);
- writecrc(src,arg);
- if(!i) i=128;
- fwrite(&i,1,1,out); }
- continue; }
- if(!stricmp(p,"GETSTRUPR")) {
- p=strchr(arg,SP);
- if(p) *p=0;
- if(!*arg || isdigit(*arg))
- fprintf(out,"%c%c",CS_GETSTRUPR,*arg ? atoi(arg) :128);
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg2);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,GETSTRUPR_VAR);
- writecrc(src,arg);
- if(!i) i=128;
- fwrite(&i,1,1,out); }
- continue; }
- if(!stricmp(p,"GETNAME")) {
- p=strchr(arg,SP);
- if(p) *p=0;
- if(!*arg || isdigit(*arg))
- fprintf(out,"%c%c",CS_GETNAME,*arg ? atoi(arg) :25);
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else
- i=atoi(arg2);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,GETNAME_VAR);
- writecrc(src,arg);
- if(!i) i=128;
- fwrite(&i,1,1,out); }
- continue; }
- if(!stricmp(p,"SHIFT_STR")) {
- if(!*arg) break;
- p=strchr(arg,SP);
- if(p) *p=0;
- if(!*arg || isdigit(*arg))
- fprintf(out,"%c%c",CS_SHIFT_STR,atoi(arg));
- else {
- if((l=isvar(arg2))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(6,out); // int offset
- fputc(1,out); // int length
- i=0; } // place holder
- else
- i=atoi(arg2);
-
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,SHIFT_STR_VAR);
- writecrc(src,arg);
- if(!i) i=128;
- fwrite(&i,1,1,out); }
- continue; }
- if(!stricmp(p,"TRUNCSP")) {
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,TRUNCSP_STR_VAR);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"STRIP_CTRL")) {
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,STRIP_CTRL_STR_VAR);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"STRUPR")) {
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,STRUPR_VAR);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"STRLWR")) {
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,STRLWR_VAR);
- writecrc(src,arg);
- continue; }
- if(!stricmp(p,"STRLEN")) {
- if(!*arg) break;
- fprintf(out,"%c%c",CS_VAR_INSTRUCTION,STRLEN_INT_VAR);
- p=strchr(arg,SP);
- if(!p)
- break;
- *p=0;
- writecrc(src,arg);
- writecrc(src,arg2);
- continue; }
- if(!stricmp(p,"REPLACE_TEXT")) {
- if(!*arg || !*arg2) break;
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
-
- fprintf(out,"%c",CS_REPLACE_TEXT);
- fwrite(&i,2,1,out);
- writecstr(arg2);
- continue; }
- if(!stricmp(p,"REVERT_TEXT")) {
- if(!*arg) break;
- if(!stricmp(arg,"ALL"))
- i=0xffff;
- else {
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg); }
-
- fprintf(out,"%c",CS_REVERT_TEXT);
- fwrite(&i,2,1,out);
- continue; }
- if(!stricmp(p,"TOGGLE_USER_MISC")
- || !stricmp(p,"COMPARE_USER_MISC")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(4,out); // int length
- l=0; } // place holder
- else
- l=val(src,arg);
-
- if(!stricmp(p,"TOGGLE_USER_MISC"))
- fprintf(out,"%c",CS_TOGGLE_USER_MISC);
- else
- fprintf(out,"%c",CS_COMPARE_USER_MISC);
- fwrite(&l,4,1,out);
- continue; }
-
- if(!stricmp(p,"TOGGLE_USER_CHAT")
- || !stricmp(p,"COMPARE_USER_CHAT")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(4,out); // int length
- l=0; } // place holder
- else
- l=val(src,arg);
-
- if(!stricmp(p,"TOGGLE_USER_CHAT"))
- fprintf(out,"%c",CS_TOGGLE_USER_CHAT);
- else
- fprintf(out,"%c",CS_COMPARE_USER_CHAT);
- fwrite(&l,4,1,out);
- continue; }
-
- if(!stricmp(p,"TOGGLE_USER_QWK")
- || !stricmp(p,"COMPARE_USER_QWK")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(4,out); // int length
- l=0; } // place holder
- else
- l=val(src,arg);
-
- if(!stricmp(p,"TOGGLE_USER_QWK"))
- fprintf(out,"%c",CS_TOGGLE_USER_QWK);
- else
- fprintf(out,"%c",CS_COMPARE_USER_QWK);
- fwrite(&l,4,1,out);
- continue; }
-
- if(!stricmp(p,"TOGGLE_NODE_MISC")
- || !stricmp(p,"COMPARE_NODE_MISC")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
-
- if(!stricmp(p,"TOGGLE_NODE_MISC"))
- fprintf(out,"%c",CS_TOGGLE_NODE_MISC);
- else
- fprintf(out,"%c",CS_COMPARE_NODE_MISC);
- fwrite(&i,2,1,out);
- continue; }
-
- if(!stricmp(p,"TOGGLE_USER_FLAG")) {
- if(!*arg) break;
- p=arg;
- fprintf(out,"%c%c",CS_TOGGLE_USER_FLAG,toupper(*p++));
- while(*p && *p<=SP) p++;
- fprintf(out,"%c",toupper(*p));
- continue; }
-
- if(!stricmp(p,"SET_USER_LEVEL")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(1,out); // int length
- ch=0; } // place holder
- else
- ch=val(src,arg);
-
- fprintf(out,"%c%c",CS_SET_USER_LEVEL,ch);
- continue; }
-
- if(!stricmp(p,"SET_USER_STRING")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(1,out); // int length
- ch=0; } // place holder
- else
- ch=val(src,arg);
-
- fprintf(out,"%c%c",CS_SET_USER_STRING,ch);
- continue; }
-
-
- if(!stricmp(p,"ADJUST_USER_CREDITS")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
-
- fprintf(out,"%c",CS_ADJUST_USER_CREDITS);
- fwrite(&i,2,1,out);
- continue; }
-
- if(!stricmp(p,"ADJUST_USER_MINUTES")) {
- if(!*arg) break;
-
- if((l=isvar(arg))!=0) {
- fputc(CS_USE_INT_VAR,out);
- fwrite(&l,4,1,out); // variable
- fputc(1,out); // int offset
- fputc(2,out); // int length
- i=0; } // place holder
- else
- i=val(src,arg);
-
- fprintf(out,"%c",CS_ADJUST_USER_MINUTES);
- fwrite(&i,2,1,out);
- continue; }
-
- if(!stricmp(p,"SHOW_MEM")) {
- fprintf(out,"%c",CS_SHOW_MEM);
- continue; }
- if(!stricmp(p,"GURU_LOG")) {
- fprintf(out,"%c",CS_GURU_LOG);
- continue; }
- if(!stricmp(p,"ERROR_LOG")) {
- fprintf(out,"%c",CS_ERROR_LOG);
- continue; }
- if(!stricmp(p,"SYSTEM_LOG")) {
- fprintf(out,"%c",CS_SYSTEM_LOG);
- continue; }
- if(!stricmp(p,"SYSTEM_YLOG")) {
- fprintf(out,"%c",CS_SYSTEM_YLOG);
- continue; }
- if(!stricmp(p,"SYSTEM_STATS")) {
- fprintf(out,"%c",CS_SYSTEM_STATS);
- continue; }
- if(!stricmp(p,"NODE_STATS")) {
- fprintf(out,"%c",CS_NODE_STATS);
- continue; }
- if(!stricmp(p,"CHANGE_USER")) {
- fprintf(out,"%c",CS_CHANGE_USER);
- continue; }
- if(!stricmp(p,"ANSI_CAPTURE")) {
- fprintf(out,"%c",CS_ANSI_CAPTURE);
- continue; }
- if(!stricmp(p,"LIST_TEXT_FILE")) {
- fprintf(out,"%c",CS_LIST_TEXT_FILE);
- continue; }
- if(!stricmp(p,"EDIT_TEXT_FILE")) {
- fprintf(out,"%c",CS_EDIT_TEXT_FILE);
- continue; }
-
-
- if(!stricmp(p,"COMPARE_KEY")) {
- if(!stricmp(arg,"DIGIT"))
- ch=CS_DIGIT;
- else if(!stricmp(arg,"EDIGIT"))
- ch=CS_EDIGIT;
- else
- ch=toupper(*arg);
- if(ch=='/')
- ch=(*arg)|0x80; /* high bit indicates slash required */
- else if(ch=='^' && (*(arg+1))>=0x40)
- ch=(*(arg+1))-0x40; /* ctrl char */
- else if(ch=='\\')
- ch=cesc(*(arg+1));
- else if(ch=='\'')
- ch=*(arg+1);
- fprintf(out,"%c%c",CS_COMPARE_KEY,ch);
- continue; }
- if(!stricmp(p,"COMPARE_KEYS")) {
- fputc(CS_COMPARE_KEYS,out);
- for(p=arg;*p && *p!='#';p++) {
- ch=*p;
- if(ch=='"')
- continue;
- if(ch=='/') {
- p++;
- ch=*p|0x80; } /* high bit indicates slash required */
- else if(ch=='^' && *(p+1)>=0x40) {
- p++;
- ch=*p;
- ch-=0x40; }
- else if(ch=='\\') {
- p++;
- ch=cesc(*p); }
- fputc(ch,out); }
- fputc(0,out);
- continue; }
- if(!stricmp(p,"GETCMD")) {
- fprintf(out,"%c",CS_GETCMD);
- writecstr(arg);
- continue; }
- if(!stricmp(p,"INKEY")) {
- fprintf(out,"%c",CS_INKEY);
- continue; }
- if(!stricmp(p,"GETKEY")) {
- fprintf(out,"%c",CS_GETKEY);
- continue; }
- if(!stricmp(p,"GETKEYE")) {
- fprintf(out,"%c",CS_GETKEYE);
- continue; }
- if(!stricmp(p,"UNGETKEY")) {
- fprintf(out,"%c",CS_UNGETKEY);
- continue; }
- if(!stricmp(p,"UNGETSTR")) {
- fprintf(out,"%c",CS_UNGETSTR);
- continue; }
- if(!stricmp(p,"PRINTKEY")) {
- fprintf(out,"%c",CS_PRINTKEY);
- continue; }
- if(!stricmp(p,"PRINTSTR")) {
- fprintf(out,"%c",CS_PRINTSTR);
- continue; }
-
- /* FUNCTIONS */
-
- if(!stricmp(p,"NODELIST_ALL")) {
- fprintf(out,"%c",CS_NODELIST_ALL);
- continue; }
- if(!stricmp(p,"NODELIST_USERS")) {
- fprintf(out,"%c",CS_NODELIST_USERS);
- continue; }
-
- if(!stricmp(p,"USERLIST_ALL")) {
- fprintf(out,"%c",CS_USERLIST_ALL);
- continue; }
- if(!stricmp(p,"USERLIST_SUB")) {
- fprintf(out,"%c",CS_USERLIST_SUB);
- continue; }
- if(!stricmp(p,"USERLIST_DIR")) {
- fprintf(out,"%c",CS_USERLIST_DIR);
- continue; }
- if(!stricmp(p,"USERLIST_LOGONS")) {
- fprintf(out,"%c",CS_USERLIST_LOGONS);
- continue; }
-
- if(!stricmp(p,"HANGUP")) {
- fprintf(out,"%c",CS_HANGUP);
- continue; }
-
- if(!stricmp(p,"LOGOFF")) {
- fprintf(out,"%c",CS_LOGOFF);
- continue; }
-
- if(!stricmp(p,"LOGOFF_FAST")) {
- fprintf(out,"%c",CS_LOGOFF_FAST);
- continue; }
-
- if(!stricmp(p,"AUTO_MESSAGE")) {
- fprintf(out,"%c",CS_AUTO_MESSAGE);
- continue; }
-
- if(!stricmp(p,"MINUTE_BANK")) {
- fprintf(out,"%c",CS_MINUTE_BANK);
- continue; }
-
- if(!stricmp(p,"USER_EDIT")) {
- fprintf(out,"%c",CS_USER_EDIT);
- continue; }
-
- if(!stricmp(p,"USER_DEFAULTS")) {
- fprintf(out,"%c",CS_USER_DEFAULTS);
- continue; }
-
- if(!stricmp(p,"PAGE_SYSOP")) {
- fprintf(out,"%c",CS_PAGE_SYSOP);
- continue; }
- if(!stricmp(p,"PAGE_GURU")) {
- fprintf(out,"%c",CS_PAGE_GURU);
- continue; }
-
- if(!stricmp(p,"PRIVATE_CHAT")) {
- fprintf(out,"%c",CS_PRIVATE_CHAT);
- continue; }
-
- if(!stricmp(p,"PRIVATE_MESSAGE")) {
- fprintf(out,"%c",CS_PRIVATE_MESSAGE);
- continue; }
-
- if(!stricmp(p,"MAIL_READ")) {
- fprintf(out,"%c",CS_MAIL_READ);
- continue; }
- if(!stricmp(p,"MAIL_READ_SENT")) { /* Kill/read sent mail */
- fprintf(out,"%c",CS_MAIL_READ_SENT);
- continue; }
- if(!stricmp(p,"MAIL_READ_ALL")) {
- fprintf(out,"%c",CS_MAIL_READ_ALL);
- continue; }
- if(!stricmp(p,"MAIL_SEND")) { /* Send E-mail */
- fprintf(out,"%c",CS_MAIL_SEND);
- continue; }
- if(!stricmp(p,"MAIL_SEND_FEEDBACK")) { /* Feedback */
- fprintf(out,"%c",CS_MAIL_SEND_FEEDBACK);
- continue; }
- if(!stricmp(p,"MAIL_SEND_NETMAIL")) {
- fprintf(out,"%c",CS_MAIL_SEND_NETMAIL);
- continue; }
- if(!stricmp(p,"MAIL_SEND_NETFILE")) {
- fprintf(out,"%c",CS_MAIL_SEND_NETFILE);
- continue; }
- if(!stricmp(p,"MAIL_SEND_FILE")) { /* Upload Attached File to E-mail */
- fprintf(out,"%c",CS_MAIL_SEND_FILE);
- continue; }
- if(!stricmp(p,"MAIL_SEND_BULK")) {
- fprintf(out,"%c",CS_MAIL_SEND_BULK);
- continue; }
-
-
- if(!stricmp(p,"MSG_SET_AREA")) {
- fprintf(out,"%c",CS_MSG_SET_AREA);
- continue; }
- if(!stricmp(p,"MSG_SET_GROUP")) {
- fprintf(out,"%c",CS_MSG_SET_GROUP);
- continue; }
- if(!stricmp(p,"MSG_SELECT_AREA")) {
- fprintf(out,"%c",CS_MSG_SELECT_AREA);
- continue; }
- if(!stricmp(p,"MSG_SHOW_GROUPS")) {
- fprintf(out,"%c",CS_MSG_SHOW_GROUPS);
- continue; }
- if(!stricmp(p,"MSG_SHOW_SUBBOARDS")) {
- fprintf(out,"%c",CS_MSG_SHOW_SUBBOARDS);
- continue; }
- if(!stricmp(p,"MSG_GROUP_UP")) {
- fprintf(out,"%c",CS_MSG_GROUP_UP);
- continue; }
- if(!stricmp(p,"MSG_GROUP_DOWN")) {
- fprintf(out,"%c",CS_MSG_GROUP_DOWN);
- continue; }
- if(!stricmp(p,"MSG_SUBBOARD_UP")) {
- fprintf(out,"%c",CS_MSG_SUBBOARD_UP);
- continue; }
- if(!stricmp(p,"MSG_SUBBOARD_DOWN")) {
- fprintf(out,"%c",CS_MSG_SUBBOARD_DOWN);
- continue; }
- if(!stricmp(p,"MSG_GET_SUB_NUM")) {
- fprintf(out,"%c",CS_MSG_GET_SUB_NUM);
- continue; }
- if(!stricmp(p,"MSG_GET_GRP_NUM")) {
- fprintf(out,"%c",CS_MSG_GET_GRP_NUM);
- continue; }
- if(!stricmp(p,"MSG_READ")) {
- fprintf(out,"%c",CS_MSG_READ);
- continue; }
- if(!stricmp(p,"MSG_POST")) {
- fprintf(out,"%c",CS_MSG_POST);
- continue; }
- if(!stricmp(p,"MSG_QWK")) {
- fprintf(out,"%c",CS_MSG_QWK);
- continue; }
- if(!stricmp(p,"MSG_PTRS_CFG")) {
- fprintf(out,"%c",CS_MSG_PTRS_CFG);
- continue; }
- if(!stricmp(p,"MSG_PTRS_REINIT")) {
- fprintf(out,"%c",CS_MSG_PTRS_REINIT);
- continue; }
- if(!stricmp(p,"MSG_NEW_SCAN_CFG")) {
- fprintf(out,"%c",CS_MSG_NEW_SCAN_CFG);
- continue; }
- if(!stricmp(p,"MSG_NEW_SCAN")) {
- fprintf(out,"%c",CS_MSG_NEW_SCAN);
- continue; }
- if(!stricmp(p,"MSG_NEW_SCAN_SUB")) {
- fprintf(out,"%c",CS_MSG_NEW_SCAN_SUB);
- continue; }
- if(!stricmp(p,"MSG_NEW_SCAN_ALL")) {
- fprintf(out,"%c",CS_MSG_NEW_SCAN_ALL);
- continue; }
- if(!stricmp(p,"MSG_CONT_SCAN")) {
- fprintf(out,"%c",CS_MSG_CONT_SCAN);
- continue; }
- if(!stricmp(p,"MSG_CONT_SCAN_ALL")) {
- fprintf(out,"%c",CS_MSG_CONT_SCAN_ALL);
- continue; }
- if(!stricmp(p,"MSG_BROWSE_SCAN")) {
- fprintf(out,"%c",CS_MSG_BROWSE_SCAN);
- continue; }
- if(!stricmp(p,"MSG_BROWSE_SCAN_ALL")) {
- fprintf(out,"%c",CS_MSG_BROWSE_SCAN_ALL);
- continue; }
- if(!stricmp(p,"MSG_FIND_TEXT")) {
- fprintf(out,"%c",CS_MSG_FIND_TEXT);
- continue; }
- if(!stricmp(p,"MSG_FIND_TEXT_ALL")) {
- fprintf(out,"%c",CS_MSG_FIND_TEXT_ALL);
- continue; }
- if(!stricmp(p,"MSG_YOUR_SCAN_CFG")) {
- fprintf(out,"%c",CS_MSG_YOUR_SCAN_CFG);
- continue; }
- if(!stricmp(p,"MSG_YOUR_SCAN")) {
- fprintf(out,"%c",CS_MSG_YOUR_SCAN);
- continue; }
- if(!stricmp(p,"MSG_YOUR_SCAN_ALL")) {
- fprintf(out,"%c",CS_MSG_YOUR_SCAN_ALL);
- continue; }
- if(!stricmp(p,"CHAT_SECTION")) {
- fprintf(out,"%c",CS_CHAT_SECTION);
- continue; }
- if(!stricmp(p,"TEXT_FILE_SECTION")) {
- fprintf(out,"%c",CS_TEXT_FILE_SECTION);
- continue; }
- if(!stricmp(p,"XTRN_EXEC")) {
- fprintf(out,"%c",CS_XTRN_EXEC);
- continue; }
- if(!stricmp(p,"XTRN_SECTION")) {
- fprintf(out,"%c",CS_XTRN_SECTION);
- continue; }
-
- if(!stricmp(p,"FILE_SET_AREA")) {
- fprintf(out,"%c",CS_FILE_SET_AREA);
- continue; }
- if(!stricmp(p,"FILE_SET_LIBRARY")) {
- fprintf(out,"%c",CS_FILE_SET_LIBRARY);
- continue; }
- if(!stricmp(p,"FILE_SELECT_AREA")) {
- fprintf(out,"%c",CS_FILE_SELECT_AREA);
- continue; }
- if(!stricmp(p,"FILE_SHOW_LIBRARIES")) {
- fprintf(out,"%c",CS_FILE_SHOW_LIBRARIES);
- continue; }
- if(!stricmp(p,"FILE_SHOW_DIRECTORIES")) {
- fprintf(out,"%c",CS_FILE_SHOW_DIRECTORIES);
- continue; }
- if(!stricmp(p,"FILE_LIBRARY_UP")) {
- fprintf(out,"%c",CS_FILE_LIBRARY_UP);
- continue; }
- if(!stricmp(p,"FILE_LIBRARY_DOWN")) {
- fprintf(out,"%c",CS_FILE_LIBRARY_DOWN);
- continue; }
- if(!stricmp(p,"FILE_DIRECTORY_UP")) {
- fprintf(out,"%c",CS_FILE_DIRECTORY_UP);
- continue; }
- if(!stricmp(p,"FILE_DIRECTORY_DOWN")) {
- fprintf(out,"%c",CS_FILE_DIRECTORY_DOWN);
- continue; }
- if(!stricmp(p,"FILE_GET_DIR_NUM")) {
- fprintf(out,"%c",CS_FILE_GET_DIR_NUM);
- continue; }
- if(!stricmp(p,"FILE_GET_LIB_NUM")) {
- fprintf(out,"%c",CS_FILE_GET_LIB_NUM);
- continue; }
- if(!stricmp(p,"FILE_UPLOAD")) {
- fprintf(out,"%c",CS_FILE_UPLOAD);
- continue; }
- if(!stricmp(p,"FILE_UPLOAD_USER")) {
- fprintf(out,"%c",CS_FILE_UPLOAD_USER);
- continue; }
- if(!stricmp(p,"FILE_UPLOAD_BULK")) {
- fprintf(out,"%c",CS_FILE_UPLOAD_BULK);
- continue; }
- if(!stricmp(p,"FILE_UPLOAD_SYSOP")) {
- fprintf(out,"%c",CS_FILE_UPLOAD_SYSOP);
- continue; }
- if(!stricmp(p,"FILE_RESORT_DIRECTORY")) {
- fprintf(out,"%c",CS_FILE_RESORT_DIRECTORY);
- continue; }
- if(!stricmp(p,"FILE_SET_ALT_PATH")) {
- fprintf(out,"%c",CS_FILE_SET_ALT_PATH);
- continue; }
- if(!stricmp(p,"FILE_GET")) {
- fprintf(out,"%c",CS_FILE_GET);
- continue; }
- if(!stricmp(p,"FILE_SEND")) {
- fprintf(out,"%c",CS_FILE_SEND);
- continue; }
- if(!stricmp(p,"FILE_PUT")) {
- fprintf(out,"%c",CS_FILE_PUT);
- continue; }
- if(!stricmp(p,"FILE_FIND_OLD")) {
- fprintf(out,"%c",CS_FILE_FIND_OLD);
- continue; }
- if(!stricmp(p,"FILE_FIND_OPEN")) {
- fprintf(out,"%c",CS_FILE_FIND_OPEN);
- continue; }
- if(!stricmp(p,"FILE_FIND_OFFLINE")) {
- fprintf(out,"%c",CS_FILE_FIND_OFFLINE);
- continue; }
- if(!stricmp(p,"FILE_FIND_OLD_UPLOADS")) {
- fprintf(out,"%c",CS_FILE_FIND_OLD_UPLOADS);
- continue; }
- if(!stricmp(p,"FILE_DOWNLOAD")) {
- fprintf(out,"%c",CS_FILE_DOWNLOAD);
- continue; }
- if(!stricmp(p,"FILE_DOWNLOAD_USER")) {
- fprintf(out,"%c",CS_FILE_DOWNLOAD_USER);
- continue; }
- if(!stricmp(p,"FILE_DOWNLOAD_BATCH")) {
- fprintf(out,"%c",CS_FILE_DOWNLOAD_BATCH);
- continue; }
- if(!stricmp(p,"FILE_REMOVE")) {
- fprintf(out,"%c",CS_FILE_REMOVE);
- continue; }
- if(!stricmp(p,"FILE_LIST")) {
- fprintf(out,"%c",CS_FILE_LIST);
- continue; }
- if(!stricmp(p,"FILE_LIST_EXTENDED")) {
- fprintf(out,"%c",CS_FILE_LIST_EXTENDED);
- continue; }
- if(!stricmp(p,"FILE_VIEW")) {
- fprintf(out,"%c",CS_FILE_VIEW);
- continue; }
- if(!stricmp(p,"FILE_FIND_TEXT")) {
- fprintf(out,"%c",CS_FILE_FIND_TEXT);
- continue; }
- if(!stricmp(p,"FILE_FIND_TEXT_ALL")) {
- fprintf(out,"%c",CS_FILE_FIND_TEXT_ALL);
- continue; }
- if(!stricmp(p,"FILE_FIND_NAME")) {
- fprintf(out,"%c",CS_FILE_FIND_NAME);
- continue; }
- if(!stricmp(p,"FILE_FIND_NAME_ALL")) {
- fprintf(out,"%c",CS_FILE_FIND_NAME_ALL);
- continue; }
- if(!stricmp(p,"FILE_BATCH_SECTION")) {
- fprintf(out,"%c",CS_FILE_BATCH_SECTION);
- continue; }
- if(!stricmp(p,"FILE_TEMP_SECTION")) {
- fprintf(out,"%c",CS_FILE_TEMP_SECTION);
- continue; }
- if(!stricmp(p,"FILE_NEW_SCAN")) {
- fprintf(out,"%c",CS_FILE_NEW_SCAN);
- continue; }
- if(!stricmp(p,"FILE_NEW_SCAN_ALL")) {
- fprintf(out,"%c",CS_FILE_NEW_SCAN_ALL);
- continue; }
- if(!stricmp(p,"FILE_NEW_SCAN_CFG")) {
- fprintf(out,"%c",CS_FILE_NEW_SCAN_CFG);
- continue; }
- if(!stricmp(p,"FILE_PTRS_CFG")) {
- fprintf(out,"%c",CS_FILE_PTRS_CFG);
- continue; }
- if(!stricmp(p,"FILE_BATCH_ADD")) {
- fprintf(out,"%c",CS_FILE_BATCH_ADD);
- continue; }
- if(!stricmp(p,"FILE_BATCH_ADD_LIST")) {
- fprintf(out,"%c",CS_FILE_BATCH_ADD_LIST);
- continue; }
- if(!stricmp(p,"FILE_BATCH_CLEAR")) {
- fprintf(out,"%c",CS_FILE_BATCH_CLEAR);
- continue; }
-
- if(!stricmp(p,"INC_MAIN_CMDS")) {
- fprintf(out,"%c",CS_INC_MAIN_CMDS);
- continue; }
- if(!stricmp(p,"INC_FILE_CMDS")) {
- fprintf(out,"%c",CS_INC_FILE_CMDS);
- continue; }
-
- break; }
-
-
-if(!feof(in)) {
- printf("SYNTAX ERROR:\n");
- printf(linestr,src,line,save);
- exit(1); }
-fclose(in);
-}
-
-char *usage="\n"
- "usage: baja [/opts] file[.src]\n"
- "\n"
- " opts: /d display debug during compile\n"
- " /c case sensitive variables, labels, and macros\n"
- " /o set output directory (e.g. /o\\sbbs\\exec)\n"
- ;
-int main(int argc, char **argv)
-{
- uchar str[128],src[128]="",*p,outdir[128]="",outfname[128]="";
- int i,j;
-
-printf("\nBAJA v2.10 � Synchronet Shell/Module Compiler � "
- "Developed 1995-97 Rob Swindell\n");
-
-for(i=1;i<argc;i++)
- if(argv[i][0]=='/')
- switch(toupper(argv[i][1])) {
- case 'D':
- display=1;
- break;
- case 'C':
- case_sens=1;
- break;
- case 'O':
- strcpy(outdir,argv[i]+2);
- break;
- default:
- printf(usage);
- exit(1); }
- else
- strcpy(src,argv[i]);
-
-if(!src[0]) {
- printf(usage);
- exit(1); }
-
-strupr(src);
-strcpy(str,src);
-if(!strchr(str,'.'))
- sprintf(src,"%s.SRC",str);
-
-strcpy(str,src);
-p=strrchr(str,'.');
-if(p)
- *p=0;
-strcat(str,".BIN");
-
-if(outdir[0]) {
- p=strrchr(str,'\\');
- if(!p)
- p=strrchr(str,':');
- if(p)
- strcpy(outfname,p+1);
- else
- strcpy(outfname,str);
- if(outdir[strlen(outdir)-1]!='\\'
- && outdir[strlen(outdir)-1]!=':')
- strcat(outdir,"\\");
- sprintf(str,"%s%s",outdir,outfname); }
-
-if((out=fopen(str,"wb"))==NULL) {
- printf("error opening %s for write\n",str);
- exit(1); }
-
-atexit(bail);
-
-printf("\nCompiling %s...\n",src);
-
-compile(src);
-
-/****************************/
-/* Resolve GOTOS and CALLS */
-/****************************/
-
-printf("Resolving labels...\n");
-
-for(i=0;i<gotos;i++) {
- for(j=0;j<labels;j++)
- if(!stricmp(goto_label[i],label_name[j]))
- break;
- if(j>=labels) {
- printf("%s line %d: label (%s) not found.\n"
- ,goto_file[i],goto_line[i],goto_label[i]);
- exit(1); }
- fseek(out,(long)(goto_indx[i]+1),SEEK_SET);
- fwrite(&label_indx[j],2,1,out); }
-
-for(i=0;i<calls;i++) {
- for(j=0;j<labels;j++)
- if((!case_sens
- && !strnicmp(call_label[i],label_name[j],strlen(call_label[i])))
- || (case_sens
- && !strncmp(call_label[i],label_name[j],strlen(call_label[i]))))
- break;
- if(j>=labels) {
- printf("%s line %d: label (%s) not found.\n"
- ,call_file[i],call_line[i],call_label[i]);
- exit(1); }
- fseek(out,(long)(call_indx[i]+1),SEEK_SET);
- fwrite(&label_indx[j],2,1,out); }
-
-fclose(out);
-out=NULL; /* so bail() won't truncate */
-
-printf("\nDone.\n");
-return(0);
-}
-
-
-
diff --git a/src/sbbs2/baja/make.bat b/src/sbbs2/baja/make.bat
deleted file mode 100755
index 8f77b60e3d5c9a23af1411f0ce3c6b3bb7e82958..0000000000000000000000000000000000000000
--- a/src/sbbs2/baja/make.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-@echo off
-bcc -ml -N -lm -I..;..\smb baja.c ..\ars.c
-if errorlevel 1 goto end
-bcc32 -WX -N -lm -I..;..\smb -ebaja32.exe baja.c ..\ars.c
-:end
diff --git a/src/sbbs2/baja/make.cmd b/src/sbbs2/baja/make.cmd
deleted file mode 100755
index 34625ae386d53908f2a95458cd52d54786c263ca..0000000000000000000000000000000000000000
--- a/src/sbbs2/baja/make.cmd
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -N -I..;..\smb -eBAJA4OS2.EXE baja.c ..\ars.c
diff --git a/src/sbbs2/bulkmail.c b/src/sbbs2/bulkmail.c
deleted file mode 100644
index 0d6bd83a100ba0873163380927c9f3b99994b155..0000000000000000000000000000000000000000
--- a/src/sbbs2/bulkmail.c
+++ /dev/null
@@ -1,219 +0,0 @@
-#line 1 "BULKMAIL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-int bulkmailhdr(int usernum, smbmsg_t *msg, ushort msgattr, ulong offset
- , ulong length, char *title)
-{
- char str[256];
- int i,j;
- node_t node;
-
-memset(msg,0,sizeof(smbmsg_t));
-memcpy(msg->hdr.id,"SHD\x1a",4);
-msg->hdr.version=smb_ver();
-msg->hdr.attr=msg->idx.attr=msgattr;
-msg->hdr.when_written.time=msg->hdr.when_imported.time=time(NULL);
-msg->hdr.when_written.zone=msg->hdr.when_imported.zone=sys_timezone;
-msg->hdr.offset=msg->idx.offset=offset;
-
-username(usernum,str);
-smb_hfield(msg,RECIPIENT,strlen(str),str);
-strlwr(str);
-
-sprintf(str,"%u",usernum);
-smb_hfield(msg,RECIPIENTEXT,strlen(str),str);
-msg->idx.to=usernum;
-
-strcpy(str,useron.alias);
-smb_hfield(msg,SENDER,strlen(str),str);
-strlwr(str);
-
-sprintf(str,"%u",useron.number);
-smb_hfield(msg,SENDEREXT,strlen(str),str);
-msg->idx.from=useron.number;
-
-strcpy(str,title);
-smb_hfield(msg,SUBJECT,strlen(str),str);
-strlwr(str);
-msg->idx.subj=crc16(str);
-
-smb_dfield(msg,TEXT_BODY,length);
-
-j=smb_addmsghdr(&smb,msg,SMB_SELFPACK);
-if(j)
- return(j);
-
-// smb_incdat(&smb,offset,length,1); Remove 04/15/96
-lncntr=0;
-bprintf("Bulk Mailed %s #%d\r\n",username(usernum,tmp),usernum);
-sprintf(str,"Bulk Mailed %s #%d",username(usernum,tmp),usernum);
-logline("E+",str);
-useron.emails++;
-logon_emails++;
-useron.etoday++;
-for(i=1;i<=sys_nodes;i++) { /* Tell user, if online */
- getnodedat(i,&node,0);
- if(node.useron==usernum && !(node.misc&NODE_POFF)
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)) {
- sprintf(str,text[EmailNodeMsg],node_num,useron.alias);
- putnmsg(i,str);
- break; } }
-if(i>sys_nodes) { /* User wasn't online, so leave short msg */
- sprintf(str,text[UserSentYouMail],useron.alias);
- putsmsg(usernum,str); }
-return(0);
-}
-
-void bulkmail(uchar *ar)
-{
- char str[256],str2[256],msgpath[256],title[LEN_TITLE+1],ch
- ,buf[SDT_BLOCK_LEN],found=0;
- ushort xlat=XLAT_NONE,msgattr=0;
- int i,j,k,x,file;
- long l,msgs=0;
- ulong length,offset;
- FILE *instream;
- user_t user;
- smbmsg_t msg;
-
-memset(&msg,0,sizeof(smbmsg_t));
-
-title[0]=0;
-action=NODE_SMAL;
-nodesync();
-
-if(sys_misc&SM_ANON_EM && (SYSOP || useron.exempt&FLAG('A'))
- && !noyes(text[AnonymousQ]))
- msgattr|=MSG_ANONYMOUS;
-
-sprintf(msgpath,"%sINPUT.MSG",node_dir);
-sprintf(str2,"Bulk Mailing");
-if(!writemsg(msgpath,nulstr,title,WM_EMAIL,0,str2)) {
- bputs(text[Aborted]);
- return; }
-
-bputs(text[WritingIndx]);
-CRLF;
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- return; }
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_age=mail_maxage;
- smb.status.attr=SMB_EMAIL;
- if((i=smb_create(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- return; } }
-
-length=flength(msgpath)+2; /* +2 for translation string */
-
-if(length&0xfff00000UL) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LEN,smb.file,length);
- return; }
-
-if((i=smb_open_da(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-if(sys_misc&SM_FASTMAIL)
- offset=smb_fallocdat(&smb,length,1);
-else
- offset=smb_allocdat(&smb,length,1);
-smb_close_da(&smb);
-
-if((file=open(msgpath,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,msgpath,O_RDONLY|O_BINARY);
- return; }
-
-setvbuf(instream,NULL,_IOFBF,2*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-x=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
-while(!feof(instream)) {
- memset(buf,0,x);
- j=fread(buf,1,x,instream);
- if((j!=x || feof(instream)) && buf[j-1]==LF && buf[j-2]==CR)
- buf[j-1]=buf[j-2]=0;
- fwrite(buf,j,1,smb.sdt_fp);
- x=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-
-j=lastuser();
-x=0;
-
-if(*ar)
- for(i=1;i<=j;i++) {
- user.number=i;
- getuserdat(&user);
- if(user.misc&(DELETED|INACTIVE))
- continue;
- if(chk_ar(ar,user)) {
- if(found)
- smb_freemsgmem(&msg);
- x=bulkmailhdr(i,&msg,msgattr,offset,length,title);
- if(x)
- break;
- msgs++;
- found=1; } }
-else
- while(1) {
- bputs(text[EnterAfterLastDestUser]);
- if(!getstr(str,LEN_ALIAS,K_UPRLWR))
- break;
- if((i=finduser(str))!=0) {
- if(found)
- smb_freemsgmem(&msg);
- x=bulkmailhdr(i,&msg,msgattr,offset,length,title);
- if(x)
- break;
- msgs++; }
- found=1; }
-
-if((i=smb_open_da(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-if(!msgs)
- smb_freemsgdat(&smb,offset,length,1);
-else if(msgs>1)
- smb_incdat(&smb,offset,length,msgs-1);
-smb_close_da(&smb);
-
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-
-smb_freemsgmem(&msg);
-if(x) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,x);
- return; }
-
-putuserrec(useron.number,U_EMAILS,5,itoa(useron.emails,tmp,10));
-putuserrec(useron.number,U_ETODAY,5,itoa(useron.etoday,tmp,10));
-}
-
-
diff --git a/src/sbbs2/chat.c b/src/sbbs2/chat.c
deleted file mode 100644
index 1621dd79550f4c3e35c6f611a19da0dc4feb0b8f..0000000000000000000000000000000000000000
--- a/src/sbbs2/chat.c
+++ /dev/null
@@ -1,1715 +0,0 @@
-#line 1 "CHAT.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************/
-/* Local and Node-to-Node Chat routines */
-/****************************************/
-
-#include "sbbs.h"
-
-#define PCHAT_LEN 1000 /* Size of Private chat file */
-
-int getnodetopage(int all, int telegram);
-
-
-char *weekday[]={"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday"
- ,"Saturday"};
-char *month[]={"January","February","March","April","May","June"
- ,"July","August","September","October","November","December"};
-
-
-/****************************************************************************/
-/* Chat between local keyboard and remote user on current node. */
-/* Called from inkey (inkey is then re-entrant) */
-/****************************************************************************/
-void localchat()
-{
- uchar str[256],act;
- int con=console; /* save console state */
- time_t beg=time(NULL);
-
-console&=~(CON_L_ECHOX|CON_R_ECHOX); /* turn off X's */
-console|=(CON_L_ECHO|CON_R_ECHO); /* make sure echo is enabled */
-nosound();
-sys_status&=~SS_SYSPAGE;
-act=action; /* save the user's current action */
-action=NODE_LCHT;
-bprintf(text[SysopIsHere],sys_op);
-while(sys_status&SS_LCHAT && online) {
- SYNC;
- getstr(str,78,K_WRAP|K_MSG); }
-bputs(text[EndOfChat]);
-now=time(NULL);
-if(!(sys_status&SS_USERON))
- answertime=now;
-starttime+=now-beg; /* credit user for time in chat */
-RESTORELINE;
-action=act;
-console=con; /* restore console */
-}
-
-void sysop_page(void)
-{
- int i;
-
-for(i=0;i<total_pages;i++)
- if(chk_ar(page[i]->ar,useron))
- break;
-if(i<total_pages) {
- bprintf(text[PagingGuru],sys_op);
- external(cmdstr(page[i]->cmd,nulstr,nulstr,NULL)
- ,page[i]->misc&IO_INTS ? EX_OUTL|EX_OUTR|EX_INR
- : EX_OUTL); }
-else if(sys_misc&SM_SHRTPAGE) {
- bprintf(text[PagingGuru],sys_op);
- for(i=0;i<10 && !lkbrd(1);i++) {
- beep(1000,200);
- mswait(200);
- outchar('.'); }
- CRLF; }
-else {
- sys_status^=SS_SYSPAGE;
- bprintf(text[SysopPageIsNow]
- ,sys_status&SS_SYSPAGE ? text[ON] : text[OFF]);
- nosound(); }
-}
-
-/****************************************************************************/
-/* Returns 1 if user online has access to channel "channum" */
-/****************************************************************************/
-char chan_access(uint cnum)
-{
-
-if(!total_chans || cnum>=total_chans || !chk_ar(chan[cnum]->ar,useron)) {
- bputs(text[CantAccessThatChannel]);
- return(0); }
-if(!(useron.exempt&FLAG('J')) && chan[cnum]->cost>useron.cdt+useron.freecdt) {
- bputs(text[NotEnoughCredits]);
- return(0); }
-return(1);
-}
-
-void privchat(void)
-{
- uchar str[128],ch,c,*p,localbuf[5][81],remotebuf[5][81]
- ,localline=0,remoteline=0,localchar=0,remotechar=0
- ,*sep="\1w\1h�����[\1i\1r%c\1n\1h]���Ĵ "
- "\1yPrivate Chat - \1rCtrl-C to Quit \1y- "
- "Time Left: \1g%-8s\1w"
- " �����[\1i\1b%c\1n\1h]�����";
- int in,out,i,j,n,done,echo=1,x,y,activity;
- node_t node;
-
-n=getnodetopage(0,0);
-if(!n)
- return;
-if(n==node_num) {
- bputs(text[NoNeedToPageSelf]);
- return; }
-getnodedat(n,&node,0);
-if(node.action==NODE_PCHT && node.aux!=node_num) {
- bprintf(text[NodeNAlreadyInPChat],n);
- return; }
-if((node.action!=NODE_PAGE || node.aux!=node_num)
- && node.misc&NODE_POFF && !SYSOP) {
- bprintf(text[CantPageNode],node.misc&NODE_ANON
- ? text[UNKNOWN_USER] : username(node.useron,tmp));
- return; }
-if(node.action!=NODE_PAGE) {
- bprintf("\r\n\1n\1mPaging \1h%s #%u\1n\1m for private chat\r\n"
- ,node.misc&NODE_ANON ? text[UNKNOWN_USER] : username(node.useron,tmp)
- ,node.useron);
- sprintf(str,text[NodePChatPageMsg]
- ,node_num,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias);
- putnmsg(n,str);
- sprintf(str,"Paged %s on node %d to private chat"
- ,username(node.useron,tmp),n);
- logline("C",str); }
-
-getnodedat(node_num,&thisnode,1);
-thisnode.action=action=NODE_PAGE;
-thisnode.aux=n;
-putnodedat(node_num,thisnode);
-
-if(node.action!=NODE_PAGE || node.aux!=node_num) {
- bprintf(text[WaitingForNodeInPChat],n);
- while(online && !(sys_status&SS_ABORT)) {
- getnodedat(n,&node,0);
- if((node.action==NODE_PAGE || node.action==NODE_PCHT)
- && node.aux==node_num) {
- bprintf(text[NodeJoinedPrivateChat]
- ,n,node.misc&NODE_ANON ? text[UNKNOWN_USER]
- : username(node.useron,tmp));
- break; }
- if(!inkey(0))
- mswait(1);
- action=NODE_PAGE;
- checkline();
- gettimeleft();
- SYNC; } }
-
-getnodedat(node_num,&thisnode,1);
-thisnode.action=action=NODE_PCHT;
-putnodedat(node_num,thisnode);
-
-if(!online || sys_status&SS_ABORT)
- return;
-
-if(useron.chat&CHAT_SPLITP && useron.misc&ANSI && rows>=24)
- sys_status|=SS_SPLITP;
-/*
-if(!(useron.misc&EXPERT))
- menu("PRIVCHAT");
-*/
-
-if(!(sys_status&SS_SPLITP))
- bputs(text[WelcomeToPrivateChat]);
-
-sprintf(str,"%sCHAT.DAB",node_dir);
-if((out=open(str,O_RDWR|O_DENYNONE|O_CREAT|O_BINARY
- ,S_IREAD|S_IWRITE))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_DENYNONE|O_CREAT);
- return; }
-
-sprintf(str,"%sCHAT.DAB",node_path[n-1]);
-if(!fexist(str)) /* Wait while it's created for the first time */
- mswait(2000);
-if((in=open(str,O_RDWR|O_DENYNONE|O_CREAT|O_BINARY
- ,S_IREAD|S_IWRITE))==-1) {
- close(out);
- errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_DENYNONE|O_CREAT);
- return; }
-
-if((p=(char *)MALLOC(PCHAT_LEN))==NULL) {
- close(in);
- close(out);
- errormsg(WHERE,ERR_ALLOC,str,PCHAT_LEN);
- return; }
-memset(p,0,PCHAT_LEN);
-write(in,p,PCHAT_LEN);
-write(out,p,PCHAT_LEN);
-FREE(p);
-lseek(in,0L,SEEK_SET);
-lseek(out,0L,SEEK_SET);
-
-getnodedat(node_num,&thisnode,1);
-thisnode.misc&=~NODE_RPCHT; /* Clear "reset pchat flag" */
-putnodedat(node_num,thisnode);
-
-getnodedat(n,&node,1);
-node.misc|=NODE_RPCHT; /* Set "reset pchat flag" */
-putnodedat(n,node); /* on other node */
-
- /* Wait for other node */
- /* to acknowledge and reset */
-while(online && !(sys_status&SS_ABORT)) {
- getnodedat(n,&node,0);
- if(!(node.misc&NODE_RPCHT))
- break;
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&NODE_RPCHT)
- break;
- checkline();
- gettimeleft();
- SYNC;
- inkey(0);
- mswait(1); }
-
-
-action=NODE_PCHT;
-SYNC;
-
-if(sys_status&SS_SPLITP) {
- lncntr=0;
- CLS;
- ANSI_SAVE();
- GOTOXY(1,13);
- bprintf(sep
- ,thisnode.misc&NODE_MSGW ? 'T':SP
- ,sectostr(timeleft,tmp)
- ,thisnode.misc&NODE_NMSG ? 'M':SP);
- CRLF; }
-
-done=0;
-
-while(online && !(sys_status&SS_ABORT) && !done) {
- RIOSYNC(0);
- lncntr=0;
- if(sys_status&SS_SPLITP)
- lbuflen=0;
- action=NODE_PCHT;
- if(!localchar) {
- if(sys_status&SS_SPLITP) {
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&NODE_INTR)
- break;
- if(thisnode.misc&NODE_UDAT && !(useron.rest&FLAG('G'))) {
- getuserdat(&useron);
- getnodedat(node_num,&thisnode,1);
- thisnode.misc&=~NODE_UDAT;
- putnodedat(node_num,thisnode); } }
- else
- nodesync(); }
- activity=0;
- if((ch=inkey(K_GETSTR))!=0) {
- activity=1;
- if(echo)
- attr(color[clr_chatlocal]);
- else
- lclatr(color[clr_chatlocal]);
- if(ch==BS) {
- if(localchar) {
- if(echo)
- bputs("\b \b");
- else
- lputs("\b \b");
- localchar--;
- localbuf[localline][localchar]=0; } }
- else if(ch==TAB) {
- if(echo)
- outchar(SP);
- else
- lputc(SP);
- localbuf[localline][localchar]=SP;
- localchar++;
- while(localchar<78 && localchar%8) {
- if(echo)
- outchar(SP);
- else
- lputc(SP);
- localbuf[localline][localchar++]=SP; } }
- else if(ch>=SP || ch==CR) {
- if(ch!=CR) {
- if(echo)
- outchar(ch);
- else
- lputc(ch);
- localbuf[localline][localchar]=ch; }
-
- if(ch==CR || (localchar>68 && ch==SP) || ++localchar>78) {
-
- localbuf[localline][localchar]=0;
- localchar=0;
-
- if(sys_status&SS_SPLITP && lclwy()==24) {
- GOTOXY(1,13);
- bprintf(sep
- ,thisnode.misc&NODE_MSGW ? 'T':SP
- ,sectostr(timeleft,tmp)
- ,thisnode.misc&NODE_NMSG ? 'M':SP);
- attr(color[clr_chatlocal]);
- for(x=13,y=0;x<rows;x++,y++) {
- bprintf("\x1b[%d;1H\x1b[K",x+1);
- if(y<=localline)
- bprintf("%s\r\n",localbuf[y]); }
- GOTOXY(1,15+localline);
- localline=0; }
- else {
- if(localline>=4)
- for(i=0;i<4;i++)
- memcpy(localbuf[i],localbuf[i+1],81);
- else
- localline++;
- if(echo) {
- CRLF;
- if(sys_status&SS_SPLITP)
- bputs("\x1b[K"); }
- else
- lputs(crlf); }
- // SYNC;
- } }
-
- read(out,&c,1);
- lseek(out,-1L,SEEK_CUR);
- if(!c) /* hasn't wrapped */
- write(out,&ch,1);
- else {
- if(!tell(out))
- lseek(out,0L,SEEK_END);
- lseek(out,-1L,SEEK_CUR);
- ch=0;
- write(out,&ch,1);
- lseek(out,-1L,SEEK_CUR); }
- if(tell(out)>=PCHAT_LEN)
- lseek(out,0L,SEEK_SET);
- }
- else while(online) {
- if(!(sys_status&SS_SPLITP))
- remotechar=localchar;
- if(tell(in)>=PCHAT_LEN)
- lseek(in,0L,SEEK_SET);
- ch=0;
- read(in,&ch,1);
- lseek(in,-1L,SEEK_CUR);
- if(!ch) break; /* char from other node */
- activity=1;
- x=lclwx();
- y=lclwy();
- if(sys_status&SS_SPLITP)
- ANSI_RESTORE();
- attr(color[clr_chatremote]);
- if(sys_status&SS_SPLITP)
- bputs("\b \b"); /* Delete fake cursor */
- if(ch==BS) {
- if(remotechar) {
- bputs("\b \b");
- remotechar--;
- remotebuf[remoteline][remotechar]=0; } }
- else if(ch==TAB) {
- outchar(SP);
- remotebuf[remoteline][remotechar]=SP;
- remotechar++;
- while(remotechar<78 && remotechar%8) {
- outchar(SP);
- remotebuf[remoteline][remotechar++]=SP; } }
- else if(ch>=SP || ch==CR) {
- if(ch!=CR) {
- outchar(ch);
- remotebuf[remoteline][remotechar]=ch; }
-
- if(ch==CR || (remotechar>68 && ch==SP) || ++remotechar>78) {
-
- remotebuf[remoteline][remotechar]=0;
- remotechar=0;
-
- if(sys_status&SS_SPLITP && lclwy()==12) {
- CRLF;
- bprintf(sep
- ,thisnode.misc&NODE_MSGW ? 'T':SP
- ,sectostr(timeleft,tmp)
- ,thisnode.misc&NODE_NMSG ? 'M':SP);
- attr(color[clr_chatremote]);
- for(i=0;i<12;i++) {
- bprintf("\x1b[%d;1H\x1b[K",i+1);
- if(i<=remoteline)
- bprintf("%s\r\n",remotebuf[i]); }
- remoteline=0;
- GOTOXY(1,6); }
- else {
- if(remoteline>=4)
- for(i=0;i<4;i++)
- memcpy(remotebuf[i],remotebuf[i+1],81);
- else
- remoteline++;
- if(echo) {
- CRLF;
- if(sys_status&SS_SPLITP)
- bputs("\x1b[K"); }
- else
- lputs(crlf); } } }
- if(sys_status&SS_SPLITP) {
- bputs("\1i_\1n"); /* Fake cursor */
- ANSI_SAVE();
- GOTOXY(x,y); }
- ch=0;
- write(in,&ch,1);
-
- if(!(sys_status&SS_SPLITP))
- localchar=remotechar;
- }
- if(!activity) { /* no activity so chk node.dab */
- getnodedat(n,&node,0);
- if((node.action!=NODE_PCHT && node.action!=NODE_PAGE)
- || node.aux!=node_num) {
- bprintf(text[NodeLeftPrivateChat]
- ,n,node.misc&NODE_ANON ? text[UNKNOWN_USER]
- : username(node.useron,tmp));
- break; }
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&NODE_RPCHT) { /* pchat has been reset */
- lseek(in,0L,SEEK_SET); /* so seek to beginning */
- lseek(out,0L,SEEK_SET);
- getnodedat(node_num,&thisnode,1);
- thisnode.misc&=~NODE_RPCHT;
- putnodedat(node_num,thisnode); }
- mswait(0); }
- checkline();
- gettimeleft(); }
-if(sys_status&SS_SPLITP)
- CLS;
-sys_status&=~SS_SPLITP;
-close(in);
-close(out);
-}
-
-/****************************************************************************/
-/* The chat section */
-/****************************************************************************/
-void chatsection()
-{
- uchar line[256],str[256],ch,c,done,no_rip_menu
- ,usrs,preusrs,qusrs,*gurubuf=NULL,channel,savch,*p
- ,pgraph[400],buf[400]
- ,usr[MAX_NODES],preusr[MAX_NODES],qusr[MAX_NODES];
- int file,in,out;
- long i,j,k,n;
- node_t node;
-
-action=NODE_CHAT;
-if(useron.misc&(RIP|WIP) || !(useron.misc&EXPERT))
- menu("CHAT");
-ASYNC;
-bputs(text[ChatPrompt]);
-while(online) {
- no_rip_menu=0;
- ch=getkeys("ACDJPQST?\r",0);
- if(ch>SP)
- logch(ch,0);
- switch(ch) {
- case 'S':
- useron.chat^=CHAT_SPLITP;
- putuserrec(useron.number,U_CHAT,8
- ,ltoa(useron.chat,str,16));
- bprintf("\r\nPrivate split-screen chat is now: %s\r\n"
- ,useron.chat&CHAT_SPLITP ? text[ON]:text[OFF]);
- break;
- case 'A':
- CRLF;
- useron.chat^=CHAT_NOACT;
- putuserrec(useron.number,U_CHAT,8
- ,ltoa(useron.chat,str,16));
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=NODE_AOFF;
- printnodedat(node_num,thisnode);
- putnodedat(node_num,thisnode);
- no_rip_menu=1;
- break;
- case 'D':
- CRLF;
- useron.chat^=CHAT_NOPAGE;
- putuserrec(useron.number,U_CHAT,8
- ,ltoa(useron.chat,str,16));
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=NODE_POFF;
- printnodedat(node_num,thisnode);
- putnodedat(node_num,thisnode);
- no_rip_menu=1;
- break;
- case 'J':
- if(!chan_access(0))
- break;
- if(useron.misc&(RIP|WIP) ||!(useron.misc&EXPERT))
- menu("MULTCHAT");
- getnodedat(node_num,&thisnode,1);
- bputs(text[WelcomeToMultiChat]);
- channel=thisnode.aux=1; /* default channel 1 */
- putnodedat(node_num,thisnode);
- bprintf(text[WelcomeToChannelN],channel,chan[0]->name);
- if(gurubuf) {
- FREE(gurubuf);
- gurubuf=NULL; }
- if(chan[0]->misc&CHAN_GURU && chan[0]->guru<total_gurus
- && chk_ar(guru[chan[0]->guru]->ar,useron)) {
- sprintf(str,"%s%s.DAT",ctrl_dir,guru[chan[0]->guru]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- break; }
- if((gurubuf=MALLOC(filelength(file)+1))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,filelength(file)+1);
- break; }
- read(file,gurubuf,filelength(file));
- gurubuf[filelength(file)]=0;
- close(file); }
- usrs=0;
- for(i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.action!=NODE_MCHT || node.status!=NODE_INUSE)
- continue;
- if(node.aux && (node.aux&0xff)!=channel)
- continue;
- printnodedat(i,node);
- preusr[usrs]=usr[usrs++]=i; }
- preusrs=usrs;
- if(gurubuf)
- bprintf(text[NodeInMultiChatLocally]
- ,sys_nodes+1,guru[chan[channel-1]->guru]->name,channel);
- bputs(text[YoureOnTheAir]);
- done=0;
- while(online && !done) {
- checkline();
- gettimeleft();
- action=NODE_MCHT;
- qusrs=usrs=0;
- for(i=1;i<=sys_nodes;i++) {
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.action!=NODE_MCHT
- || (node.aux && channel && (node.aux&0xff)!=channel))
- continue;
- if(node.status==NODE_QUIET)
- qusr[qusrs++]=i;
- else if(node.status==NODE_INUSE)
- usr[usrs++]=i; }
- if(preusrs>usrs) {
- if(!usrs && channel && chan[channel-1]->misc&CHAN_GURU
- && chan[channel-1]->guru<total_gurus)
- bprintf(text[NodeJoinedMultiChat]
- ,sys_nodes+1,guru[chan[channel-1]->guru]->name
- ,channel);
- outchar(7);
- for(i=0;i<preusrs;i++) {
- for(j=0;j<usrs;j++)
- if(preusr[i]==usr[j])
- break;
- if(j==usrs) {
- getnodedat(preusr[i],&node,0);
- if(node.misc&NODE_ANON)
- sprintf(str,"%.80s",text[UNKNOWN_USER]);
- else
- username(node.useron,str);
- bprintf(text[NodeLeftMultiChat]
- ,preusr[i],str,channel); } } }
- else if(preusrs<usrs) {
- if(!preusrs && channel && chan[channel-1]->misc&CHAN_GURU
- && chan[channel-1]->guru<total_gurus)
- bprintf(text[NodeLeftMultiChat]
- ,sys_nodes+1,guru[chan[channel-1]->guru]->name
- ,channel);
- outchar(7);
- for(i=0;i<usrs;i++) {
- for(j=0;j<preusrs;j++)
- if(usr[i]==preusr[j])
- break;
- if(j==preusrs) {
- getnodedat(usr[i],&node,0);
- if(node.misc&NODE_ANON)
- sprintf(str,"%.80s",text[UNKNOWN_USER]);
- else
- username(node.useron,str);
- bprintf(text[NodeJoinedMultiChat]
- ,usr[i],str,channel); } } }
- preusrs=usrs;
- for(i=0;i<usrs;i++)
- preusr[i]=usr[i];
- attr(color[clr_multichat]);
- SYNC;
- sys_status&=~SS_ABORT;
- if((ch=inkey(0))!=0 || wordwrap[0]) {
- if(ch=='/') {
- bputs(text[MultiChatCommandPrompt]);
- strcpy(str,"ACELWQ?*");
- if(SYSOP)
- strcat(str,"0");
- i=getkeys(str,total_chans);
- if(i&0x80000000L) { /* change channel */
- savch=i&~0x80000000L;
- if(savch==channel)
- continue;
- if(!chan_access(savch-1))
- continue;
- bprintf(text[WelcomeToChannelN]
- ,savch,chan[savch-1]->name);
-
- usrs=0;
- for(i=1;i<=sys_nodes;i++) {
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.action!=NODE_MCHT
- || node.status!=NODE_INUSE)
- continue;
- if(node.aux && (node.aux&0xff)!=savch)
- continue;
- printnodedat(i,node);
- if(node.aux&0x1f00) { /* password */
- bprintf(text[PasswordProtected]
- ,node.misc&NODE_ANON
- ? text[UNKNOWN_USER]
- : username(node.useron,tmp));
- if(!getstr(str,8,K_UPPER|K_ALPHA|K_LINE))
- break;
- if(strcmp(str,unpackchatpass(tmp,node)))
- break;
- bputs(text[CorrectPassword]); }
- preusr[usrs]=usr[usrs++]=i; }
- if(i<=sys_nodes) { /* failed password */
- bputs(text[WrongPassword]);
- continue; }
- if(gurubuf) {
- FREE(gurubuf);
- gurubuf=NULL; }
- if(chan[savch-1]->misc&CHAN_GURU
- && chan[savch-1]->guru<total_gurus
- && chk_ar(guru[chan[savch-1]->guru]->ar,useron
- )) {
- sprintf(str,"%s%s.DAT",ctrl_dir
- ,guru[chan[savch-1]->guru]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- break; }
- if((gurubuf=MALLOC(filelength(file)+1))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str
- ,filelength(file)+1);
- break; }
- read(file,gurubuf,filelength(file));
- gurubuf[filelength(file)]=0;
- close(file); }
- preusrs=usrs;
- if(gurubuf)
- bprintf(text[NodeInMultiChatLocally]
- ,sys_nodes+1
- ,guru[chan[savch-1]->guru]->name
- ,savch);
- channel=savch;
- if(!usrs && chan[savch-1]->misc&CHAN_PW
- && !noyes(text[PasswordProtectChanQ])) {
- bputs(text[PasswordPrompt]);
- if(getstr(str,8,K_UPPER|K_ALPHA|K_LINE)) {
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=channel;
- packchatpass(str,&thisnode); }
- else {
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=channel; } }
- else {
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=channel; }
- putnodedat(node_num,thisnode);
- bputs(text[YoureOnTheAir]);
- if(chan[channel-1]->cost
- && !(useron.exempt&FLAG('J')))
- subtract_cdt(chan[channel-1]->cost); }
- else switch(i) { /* other command */
- case '0': /* Global channel */
- if(!SYSOP)
- break;
- usrs=0;
- for(i=1;i<=sys_nodes;i++) {
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.action!=NODE_MCHT
- || node.status!=NODE_INUSE)
- continue;
- printnodedat(i,node);
- preusr[usrs]=usr[usrs++]=i; }
- preusrs=usrs;
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=channel=0;
- putnodedat(node_num,thisnode);
- break;
- case 'A': /* Action commands */
- useron.chat^=CHAT_ACTION;
- bprintf("\r\nAction commands are now %s\r\n"
- ,useron.chat&CHAT_ACTION
- ? text[ON]:text[OFF]);
- putuserrec(useron.number,U_CHAT,8
- ,ltoa(useron.chat,str,16));
- break;
- case 'C': /* List of action commands */
- CRLF;
- for(i=0;i<total_chatacts;i++) {
- if(chatact[i]->actset
- !=chan[channel-1]->actset)
- continue;
- bprintf("%-*.*s",LEN_CHATACTCMD
- ,LEN_CHATACTCMD,chatact[i]->cmd);
- if(!((i+1)%8)) {
- CRLF; }
- else
- bputs(" "); }
- CRLF;
- break;
- case 'E': /* Toggle echo */
- useron.chat^=CHAT_ECHO;
- bprintf(text[EchoIsNow]
- ,useron.chat&CHAT_ECHO
- ? text[ON]:text[OFF]);
- putuserrec(useron.number,U_CHAT,8
- ,ltoa(useron.chat,str,16));
- break;
- case 'L': /* list nodes */
- CRLF;
- for(i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
- getnodedat(i,&node,0);
- printnodedat(i,node); }
- CRLF;
- break;
- case 'W': /* page node(s) */
- j=getnodetopage(0,0);
- if(!j)
- break;
- for(i=0;i<usrs;i++)
- if(usr[i]==j)
- break;
- if(i>=usrs) {
- bputs(text[UserNotFound]);
- break; }
-
- bputs(text[NodeMsgPrompt]);
- if(!getstr(line,66,K_LINE|K_MSG))
- break;
-
- sprintf(buf,text[ChatLineFmt]
- ,thisnode.misc&NODE_ANON
- ? text[AnonUserChatHandle]
- : useron.handle
- ,node_num,'*',line);
- strcat(buf,crlf);
- if(useron.chat&CHAT_ECHO)
- bputs(buf);
- putnmsg(j,buf);
- break;
- case 'Q': /* quit */
- done=1;
- break;
- case '*':
- sprintf(str,"%sMENU\\CHAN.*",text_dir);
- if(fexist(str))
- menu("CHAN");
- else {
- bputs(text[ChatChanLstHdr]);
- bputs(text[ChatChanLstTitles]);
- if(total_chans>=10) {
- bputs(" ");
- bputs(text[ChatChanLstTitles]); }
- CRLF;
- bputs(text[ChatChanLstUnderline]);
- if(total_chans>=10) {
- bputs(" ");
- bputs(text[ChatChanLstUnderline]); }
- CRLF;
- if(total_chans>=10)
- j=(total_chans/2)+(total_chans&1);
- else
- j=total_chans;
- for(i=0;i<j && !msgabort();i++) {
- bprintf(text[ChatChanLstFmt],i+1
- ,chan[i]->name
- ,chan[i]->cost);
- if(total_chans>=10) {
- k=(total_chans/2)
- +i+(total_chans&1);
- if(k<total_chans) {
- bputs(" ");
- bprintf(text[ChatChanLstFmt]
- ,k+1
- ,chan[k]->name
- ,chan[k]->cost); } }
- CRLF; }
- CRLF; }
- break;
- case '?': /* menu */
- menu("MULTCHAT");
- break; } }
- else {
- ungetkey(ch);
- j=0;
- pgraph[0]=0;
- while(j<5) {
- if(!getstr(line,66,K_WRAP|K_MSG|K_CHAT))
- break;
- if(j) {
- sprintf(str,text[ChatLineFmt]
- ,thisnode.misc&NODE_ANON
- ? text[AnonUserChatHandle]
- : useron.handle
- ,node_num,':',nulstr);
- sprintf(tmp,"%*s",bstrlen(str),nulstr);
- strcat(pgraph,tmp); }
- strcat(pgraph,line);
- strcat(pgraph,crlf);
- if(!wordwrap[0])
- break;
- j++; }
- if(pgraph[0]) {
- if(useron.chat&CHAT_ACTION) {
- for(i=0;i<total_chatacts;i++) {
- if(chatact[i]->actset
- !=chan[channel-1]->actset)
- continue;
- sprintf(str,"%s ",chatact[i]->cmd);
- if(!strnicmp(str,pgraph,strlen(str)))
- break;
- sprintf(str,"%.*s"
- ,LEN_CHATACTCMD+2,pgraph);
- str[strlen(str)-2]=0;
- if(!stricmp(chatact[i]->cmd,str))
- break; }
-
- if(i<total_chatacts) {
- p=pgraph+strlen(str);
- n=atoi(p);
- for(j=0;j<usrs;j++) {
- getnodedat(usr[j],&node,0);
- if(usrs==1) /* no need to search */
- break;
- if(n) {
- if(usr[j]==n)
- break;
- continue; }
- username(node.useron,str);
- if(!strnicmp(str,p,strlen(str)))
- break;
- getuserrec(node.useron,U_HANDLE
- ,LEN_HANDLE,str);
- if(!strnicmp(str,p,strlen(str)))
- break; }
- if(!usrs
- && chan[channel-1]->guru<total_gurus)
- strcpy(str
- ,guru[chan[channel-1]->guru]->name);
- else if(j>=usrs)
- strcpy(str,"everyone");
- else if(node.misc&NODE_ANON)
- strcpy(str,text[UNKNOWN_USER]);
- else
- username(node.useron,str);
-
- /* Display on same node */
- bprintf(chatact[i]->out
- ,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias
- ,str);
- CRLF;
-
- if(usrs && j<usrs) {
- /* Display to dest user */
- sprintf(buf,chatact[i]->out
- ,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias
- ,"you");
- strcat(buf,crlf);
- putnmsg(usr[j],buf); }
-
-
- /* Display to all other users */
- sprintf(buf,chatact[i]->out
- ,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias
- ,str);
- strcat(buf,crlf);
-
- for(i=0;i<usrs;i++) {
- if(i==j)
- continue;
- getnodedat(usr[i],&node,0);
- putnmsg(usr[i],buf); }
- for(i=0;i<qusrs;i++) {
- getnodedat(qusr[i],&node,0);
- putnmsg(qusr[i],buf); }
- continue; } }
-
- sprintf(buf,text[ChatLineFmt]
- ,thisnode.misc&NODE_ANON
- ? text[AnonUserChatHandle]
- : useron.handle
- ,node_num,':',pgraph);
- if(useron.chat&CHAT_ECHO)
- bputs(buf);
- for(i=0;i<usrs;i++) {
- getnodedat(usr[i],&node,0);
- putnmsg(usr[i],buf); }
- for(i=0;i<qusrs;i++) {
- getnodedat(qusr[i],&node,0);
- putnmsg(qusr[i],buf); }
- if(!usrs && channel && gurubuf
- && chan[channel-1]->misc&CHAN_GURU)
- guruchat(pgraph,gurubuf,chan[channel-1]->guru);
- } } }
- else
- mswait(1);
- if(sys_status&SS_ABORT)
- break; }
- lncntr=0;
- break;
- case 'P': /* private node-to-node chat */
- privchat();
- break;
- case 'C':
- no_rip_menu=1;
- ch=kbd_state(); /* Check scroll lock */
- if(ch&16 || (sys_chat_ar[0] && chk_ar(sys_chat_ar,useron))
- || useron.exempt&FLAG('C')) {
- sysop_page();
- break; }
- bprintf(text[SysopIsNotAvailable],sys_op);
- if(total_gurus && chk_ar(guru[0]->ar,useron)) {
- sprintf(str,text[ChatWithGuruInsteadQ],guru[0]->name);
- if(!yesno(str))
- break; }
- else
- break;
- case 'T':
- if(!total_gurus) {
- bprintf(text[SysopIsNotAvailable],"The Guru");
- break; }
- if(total_gurus==1 && chk_ar(guru[0]->ar,useron))
- i=0;
- else {
- for(i=0;i<total_gurus;i++)
- uselect(1,i,nulstr,guru[i]->name,guru[i]->ar);
- i=uselect(0,0,0,0,0);
- if(i<0)
- break; }
- if(gurubuf)
- FREE(gurubuf);
- sprintf(str,"%s%s.DAT",ctrl_dir,guru[i]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
- if((gurubuf=MALLOC(filelength(file)+1))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,filelength(file)+1);
- return; }
- read(file,gurubuf,filelength(file));
- gurubuf[filelength(file)]=0;
- close(file);
- localguru(gurubuf,i);
- no_rip_menu=1;
- FREE(gurubuf);
- gurubuf=NULL;
- break;
- case '?':
- if(useron.misc&EXPERT)
- menu("CHAT");
- break;
- default: /* 'Q' or <CR> */
- lncntr=0;
- if(gurubuf)
- FREE(gurubuf);
- return; }
- action=NODE_CHAT;
- if(!(useron.misc&EXPERT) || useron.misc&WIP
- || (useron.misc&RIP && !no_rip_menu)) {
-#if 0
- sys_status&=~SS_ABORT;
- if(lncntr) {
- SYNC;
- CRLF;
- if(lncntr) /* CRLF or SYNC can cause pause */
- pause(); }
-#endif
- menu("CHAT"); }
- ASYNC;
- bputs(text[ChatPrompt]); }
-if(gurubuf)
- FREE(gurubuf);
-}
-
-int getnodetopage(int all, int telegram)
-{
- static uchar last[26];
- char str[128];
- int i,j;
- ulong l;
- node_t node;
-
-if(!lastnodemsg)
- last[0]=0;
-if(lastnodemsg) {
- getnodedat(lastnodemsg,&node,0);
- if(node.status!=NODE_INUSE && !SYSOP)
- lastnodemsg=1; }
-for(j=0,i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
- getnodedat(i,&node,0);
- if(i==node_num)
- continue;
- if(node.status==NODE_INUSE || (SYSOP && node.status==NODE_QUIET)) {
- if(!lastnodemsg)
- lastnodemsg=i;
- j++; } }
-
-if(!last[0])
- sprintf(last,"%u",lastnodemsg);
-
-if(!j && !telegram) {
- bputs(text[NoOtherActiveNodes]);
- return(0); }
-
-if(all)
- sprintf(str,text[NodeToSendMsgTo],lastnodemsg);
-else
- sprintf(str,text[NodeToPrivateChat],lastnodemsg);
-mnemonics(str);
-
-strcpy(str,last);
-getstr(str,25,K_UPRLWR|K_LINE|K_EDIT|K_AUTODEL);
-if(sys_status&SS_ABORT)
- return(0);
-if(!str[0])
- return(0);
-
-j=atoi(str);
-if(j && j<=sys_lastnode && j<=sys_nodes) {
- getnodedat(j,&node,0);
- if(node.status!=NODE_INUSE && !SYSOP) {
- bprintf(text[NodeNIsNotInUse],j);
- return(0); }
- if(telegram && node.misc&(NODE_POFF|NODE_ANON) && !SYSOP) {
- bprintf(text[CantPageNode],node.misc&NODE_ANON
- ? text[UNKNOWN_USER] : username(node.useron,tmp));
- return(0); }
- strcpy(last,str);
- if(telegram)
- return(node.useron);
- return(j); }
-if(all && !stricmp(str,"ALL"))
- return(-1);
-
-if(str[0]=='\'') {
- j=userdatdupe(0,U_HANDLE,LEN_HANDLE,str+1,0);
- if(!j) {
- bputs(text[UnknownUser]);
- return(0); } }
-else if(str[0]=='#')
- j=atoi(str+1);
-else
- j=finduser(str);
-if(!j)
- return(0);
-if(j>lastuser())
- return(0);
-getuserrec(j,U_MISC,8,tmp);
-l=ahtoul(tmp);
-if(l&(DELETED|INACTIVE)) { /* Deleted or Inactive User */
- bputs(text[UnknownUser]);
- return(0); }
-
-for(i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
- getnodedat(i,&node,0);
- if((node.status==NODE_INUSE || (SYSOP && node.status==NODE_QUIET))
- && node.useron==j) {
- if(telegram && node.misc&NODE_POFF && !SYSOP) {
- bprintf(text[CantPageNode],node.misc&NODE_ANON
- ? text[UNKNOWN_USER] : username(node.useron,tmp));
- return(0); }
- if(telegram)
- return(j);
- strcpy(last,str);
- return(i); } }
-if(telegram) {
- strcpy(last,str);
- return(j); }
-bputs(text[UserNotFound]);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Sending single line messages between nodes */
-/****************************************************************************/
-void nodemsg()
-{
- static inside;
- char str[256],line[256],buf[512],logbuf[512],ch;
- int i,j,usernumber,done=0;
- node_t node,savenode;
-
-if(inside>1) /* nested once only */
- return;
-sys_status|=SS_IN_CTRLP;
-getnodedat(node_num,&savenode,0);
-inside++;
-wordwrap[0]=0;
-while(online && !done) {
- if(useron.rest&FLAG('C')) {
- bputs(text[R_SendMessages]);
- break; }
- SYNC;
- mnemonics(text[PrivateMsgPrompt]);
- sys_status&=~SS_ABORT;
- while(online) { /* Watch for incoming messages */
- ch=toupper(inkey(0));
- if(ch && strchr("TMCQ\r",ch))
- break;
- if(sys_status&SS_ABORT)
- break;
- if(online==ON_REMOTE && rioctl(IOSTATE)&ABORT) {
- sys_status|=SS_ABORT;
- break; }
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&(NODE_MSGW|NODE_NMSG)) {
- SAVELINE;
- CRLF;
- if(thisnode.misc&NODE_NMSG)
- getnmsg();
- if(thisnode.misc&NODE_MSGW)
- getsmsg(useron.number);
- CRLF;
- RESTORELINE; }
- else
- nodesync();
- gettimeleft();
- checkline(); }
-
- if(!online || sys_status&SS_ABORT) {
- sys_status&=~SS_ABORT;
- CRLF;
- break; }
-
- switch(toupper(ch)) {
- case 'T': /* Telegram */
- bputs("Telegram\r\n");
- usernumber=getnodetopage(0,1);
- if(!usernumber)
- break;
-
- if(usernumber==1 && useron.rest&FLAG('S')) { /* ! val fback */
- bprintf(text[R_Feedback],sys_op);
- break; }
- if(usernumber!=1 && useron.rest&FLAG('E')) {
- bputs(text[R_Email]);
- break; }
- now=time(NULL);
- bprintf("\1n\r\n\1mSending telegram to \1h%s #%u\1n\1m (Max 5 "
- "lines, Blank line ends):\r\n\r\n\1g\1h"
- ,username(usernumber,tmp),usernumber);
- sprintf(buf,"\1n\1g\7Telegram from \1n\1h%s\1n\1g on %s:\r\n\1h"
- ,thisnode.misc&NODE_ANON ? text[UNKNOWN_USER] : useron.alias
- ,timestr(&now));
- i=0;
- logbuf[0]=0;
- while(online && i<5) {
- bprintf("%4s",nulstr);
- if(!getstr(line,70,K_WRAP|K_MSG))
- break;
- sprintf(str,"%4s%s\r\n",nulstr,line);
- strcat(buf,str);
- if(line[0])
- strcat(logbuf,line);
- i++; }
- if(!i)
- break;
- if(sys_status&SS_ABORT) {
- CRLF;
- break; }
- putsmsg(usernumber,buf);
- sprintf(str,"Sent telegram to %s #%u"
- ,username(usernumber,tmp),usernumber);
- logline("C",str);
- logline(nulstr,logbuf);
- bprintf("\1n\1mTelegram sent to \1h%s\r\n"
- ,username(usernumber,tmp));
- break;
- case 'M': /* Message */
- bputs("Message\r\n");
- i=getnodetopage(1,0);
- if(!i)
- break;
- if(i!=-1) {
- getnodedat(i,&node,0);
- usernumber=node.useron;
- if(node.misc&NODE_POFF && !SYSOP)
- bprintf(text[CantPageNode],node.misc&NODE_ANON
- ? text[UNKNOWN_USER] : username(node.useron,tmp));
- else {
- bprintf("\r\n\1n\1mSending message to \1h%s\r\n"
- ,node.misc&NODE_ANON ? text[UNKNOWN_USER]
- : username(node.useron,tmp));
- bputs(text[NodeMsgPrompt]);
- if(!getstr(line,69,K_LINE))
- break;
- sprintf(buf,text[NodeMsgFmt],node_num
- ,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias,line);
- putnmsg(i,buf);
- if(!(node.misc&NODE_ANON))
- bprintf("\r\n\1n\1mMessage sent to \1h%s #%u\r\n"
- ,username(usernumber,tmp),usernumber);
- sprintf(str,"Sent message to %s on node %d:"
- ,username(usernumber,tmp),i);
- logline("C",str);
- logline(nulstr,line); } }
- else { /* ALL */
- bputs(text[NodeMsgPrompt]);
- if(!getstr(line,70,K_LINE))
- break;
- sprintf(buf,text[AllNodeMsgFmt],node_num
- ,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias,line);
- for(i=1;i<=sys_nodes;i++) {
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if((node.status==NODE_INUSE
- || (SYSOP && node.status==NODE_QUIET))
- && (SYSOP || !(node.misc&NODE_POFF)))
- putnmsg(i,buf); }
- logline("C","Sent message to all nodes");
- logline(nulstr,line); }
- break;
- case 'C': /* Chat */
- bputs("Chat\r\n");
- if(action==NODE_PCHT) { /* already in pchat */
- done=1;
- break; }
- privchat();
- action=savenode.action;
- break;
- default:
- bputs("Quit\r\n");
- done=1;
- break; } }
-inside--;
-if(!inside)
- sys_status&=~SS_IN_CTRLP;
-getnodedat(node_num,&thisnode,1);
-thisnode.action=action=savenode.action;
-thisnode.aux=savenode.aux;
-thisnode.extaux=savenode.extaux;
-putnodedat(node_num,thisnode);
-}
-
-/****************************************************************************/
-/* The guru will respond from the 'guru' buffer to 'line' */
-/****************************************************************************/
-void guruchat(char *line, char *gurubuf, int gurunum)
-{
- char str[256],cstr[256],*ptr,c,*answer[100],answers,theanswer[769]
- ,mistakes=1,hu=0;
- int i,j,k,file;
- long len;
- struct tm *tm;
-
-now=time(NULL);
-tm=localtime(&now);
-
-for(i=0;i<100;i++) {
- if((answer[i]=MALLOC(513))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,513);
- while(i) {
- i--;
- FREE(answer[i]); }
- sys_status&=~SS_GURUCHAT;
- return; } }
-ptr=gurubuf;
-len=strlen(gurubuf);
-strupr(line);
-j=strlen(line);
-k=0;
-for(i=0;i<j;i++) {
- if(!isalnum(line[i]) && !k) /* beginning non-alphanumeric */
- continue;
- if(!isalnum(line[i]) && line[i]==line[i+1]) /* redundant non-alnum */
- continue;
- if(!isalnum(line[i]) && line[i+1]=='?') /* fix "WHAT ?" */
- continue;
- cstr[k++]=line[i]; }
-cstr[k]=0;
-while(--k) {
- if(!isalnum(cstr[k]))
- continue;
- break; }
-if(k<1) {
- for(i=0;i<100;i++)
- FREE(answer[i]);
- return; }
-if(cstr[k+1]=='?')
- k++;
-cstr[k+1]=0;
-while(*ptr && ptr<gurubuf+len) {
- if(*ptr=='(') {
- ptr++;
- if(!guruexp(&ptr,cstr)) {
- while(*ptr && *ptr!='(' && ptr<gurubuf+len)
- ptr++;
- continue; } }
- else {
- while(*ptr && *ptr!=LF && ptr<gurubuf+len) /* skip LF after ')' */
- ptr++;
- ptr++;
- answers=0;
- while(*ptr && answers<100 && ptr<gurubuf+len) {
- i=0;
- while(*ptr && *ptr!=CR && i<512 && ptr<gurubuf+len) {
- answer[answers][i]=*ptr;
- ptr++;
- i++;
- if(*ptr=='\\' && *(ptr+1)==CR) { /* multi-line answer */
- ptr+=3; /* skip \CRLF */
- answer[answers][i++]=CR;
- answer[answers][i++]=LF; } }
- answer[answers][i]=0;
- if(!strlen(answer[answers]) || answer[answers][0]=='(') {
- ptr-=strlen(answer[answers]);
- break; }
- ptr+=2; /* skip CRLF */
- answers++; }
- if(answers==100)
- while(*ptr && *ptr!='(' && ptr<gurubuf+len)
- ptr++;
- i=random(answers);
- for(j=0,k=0;j<strlen(answer[i]);j++) {
- if(answer[i][j]=='`') {
- j++;
- theanswer[k]=0;
- switch(toupper(answer[i][j])) {
- case 'A':
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.alias);
- else
- strcat(theanswer,text[UNKNOWN_USER]);
- break;
- case 'B':
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.birth);
- else
- strcat(theanswer,"00/00/00");
- break;
- case 'C':
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.comp);
- else
- strcat(theanswer,"PC Jr.");
- break;
- case 'D':
- if(sys_status&SS_USERON)
- strcat(theanswer,ultoac(useron.dlb,tmp));
- else
- strcat(theanswer,"0");
- break;
- case 'G':
- strcat(theanswer,guru[gurunum]->name);
- break;
- case 'H':
- hu=1;
- break;
- case 'I':
- strcat(theanswer,sys_id);
- break;
- case 'J':
- sprintf(tmp,"%u",tm->tm_mday);
- break;
- case 'L':
- if(sys_status&SS_USERON)
- strcat(theanswer,itoa(useron.level,tmp,10));
- else
- strcat(theanswer,"0");
- break;
- case 'M':
- strcat(theanswer,month[tm->tm_mon]);
- break;
- case 'N': /* Note */
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.note);
- else
- strcat(theanswer,text[UNKNOWN_USER]);
- break;
- case 'O':
- strcat(theanswer,sys_op);
- break;
- case 'P':
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.phone);
- else
- strcat(theanswer,"000-000-0000");
- break;
- case 'Q':
- sys_status&=~SS_GURUCHAT;
- break;
- case 'R':
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.name);
- else
- strcat(theanswer,text[UNKNOWN_USER]);
- break;
- case 'S':
- strcat(theanswer,sys_name);
- break;
- case 'T':
- sprintf(tmp,"%u:%02u",tm->tm_hour>12 ? tm->tm_hour-12
- : tm->tm_hour,tm->tm_min);
- strcat(theanswer,tmp);
- break;
- case 'U':
- if(sys_status&SS_USERON)
- strcat(theanswer,ultoac(useron.ulb,tmp));
- else
- strcat(theanswer,"0");
- break;
- case 'W':
- strcat(theanswer,weekday[tm->tm_wday]);
- break;
- case 'Y': /* Current year */
- sprintf(tmp,"%u",1900+tm->tm_year);
- strcat(theanswer,tmp);
- break;
- case 'Z':
- if(sys_status&SS_USERON)
- strcat(theanswer,useron.zipcode);
- else
- strcat(theanswer,"90210");
- break;
- case '$': /* Credits */
- if(sys_status&SS_USERON)
- strcat(theanswer,ultoac(useron.cdt,tmp));
- else
- strcat(theanswer,"0");
- break;
- case '#':
- if(sys_status&SS_USERON)
- strcat(theanswer,itoa(getage(useron.birth)
- ,tmp,10));
- else
- strcat(theanswer,"0");
- break;
- case '!':
- mistakes=!mistakes;
- break;
- case '_':
- mswait(500);
- break; }
- k=strlen(theanswer); }
- else
- theanswer[k++]=answer[i][j]; }
- theanswer[k]=0;
- mswait(500+random(1000)); /* thinking time */
- if(action!=NODE_MCHT) {
- for(i=0;i<k;i++) {
- if(mistakes && theanswer[i]!=theanswer[i-1] &&
- ((!isalnum(theanswer[i]) && !random(100))
- || (isalnum(theanswer[i]) && !random(30)))) {
- c=j=random(3)+1; /* 1 to 3 chars */
- if(c<strcspn(theanswer+(i+1),"\0., "))
- c=j=1;
- while(j) {
- outchar(97+random(26));
- mswait(25+random(150));
- j--; }
- if(random(100)) {
- mswait(100+random(300));
- while(c) {
- bputs("\b \b");
- mswait(50+random(50));
- c--; } } }
- outchar(theanswer[i]);
- if(theanswer[i]==theanswer[i+1])
- mswait(25+random(50));
- else
- mswait(25+random(150));
- if(theanswer[i]==SP)
- mswait(random(50)); } }
- else {
- mswait(strlen(theanswer)*100);
- bprintf(text[ChatLineFmt],guru[gurunum]->name
- ,sys_nodes+1,':',theanswer); }
- CRLF;
- sprintf(str,"%sGURU.LOG",data_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1)
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- else {
- if(action==NODE_MCHT) {
- sprintf(str,"[Multi] ");
- write(file,str,strlen(str)); }
- sprintf(str,"%s:\r\n",sys_status&SS_USERON
- ? useron.alias : "UNKNOWN");
- write(file,str,strlen(str));
- write(file,line,strlen(line));
- if(action!=NODE_MCHT)
- write(file,crlf,2);
- sprintf(str,"%s:\r\n",guru[gurunum]->name);
- write(file,str,strlen(str));
- write(file,theanswer,strlen(theanswer));
- write(file,crlf,2);
- close(file); }
- if(hu)
- hangup();
- break; } }
-for(i=0;i<100;i++)
- FREE(answer[i]);
-}
-
-/****************************************************************************/
-/* An expression from the guru's buffer 'ptrptr' is evaluated and true or */
-/* false is returned. */
-/****************************************************************************/
-char guruexp(char **ptrptr, char *line)
-{
- char c,*cp,str[256],true=0,and=0,or=0,nest,*ar;
-
-if((**ptrptr)==')') { /* expressions of () are always true */
- (*ptrptr)++;
- return(1); }
-while((**ptrptr)!=')' && (**ptrptr)) {
- if((**ptrptr)=='[') {
- (*ptrptr)++;
- sprintf(str,"%.128s",*ptrptr);
- while(**ptrptr && (**ptrptr)!=']')
- (*ptrptr)++;
- (*ptrptr)++;
- cp=strchr(str,']');
- if(cp) *cp=0;
- ar=arstr(NULL,str);
- c=chk_ar(ar,useron);
- if(ar[0]!=AR_NULL)
- FREE(ar);
- if(!c && and) {
- true=0;
- break; }
- if(c && or) {
- true=1;
- break; }
- if(c)
- true=1;
- continue; }
- if((**ptrptr)=='(') {
- (*ptrptr)++;
- c=guruexp(&(*ptrptr),line);
- if(!c && and) {
- true=0;
- break; }
- if(c && or) {
- true=1;
- break; }
- if(c)
- true=1; }
- if((**ptrptr)==')')
- break;
- c=0;
- while((**ptrptr) && isspace(**ptrptr))
- (*ptrptr)++;
- while((**ptrptr)!='|' && (**ptrptr)!='&' && (**ptrptr)!=')' &&(**ptrptr)) {
- str[c++]=(**ptrptr);
- (*ptrptr)++; }
- str[c]=0;
- if((**ptrptr)=='|') {
- if(!c && true)
- break;
- and=0;
- or=1; }
- else if((**ptrptr)=='&') {
- if(!c && !true)
- break;
- and=1;
- or=0; }
- if(!c) { /* support ((exp)op(exp)) */
- (*ptrptr)++;
- continue; }
- if((**ptrptr)!=')')
- (*ptrptr)++;
- c=0; /* c now used for start line flag */
- if(str[strlen(str)-1]=='^') { /* ^signifies start of line only */
- str[strlen(str)-1]=0;
- c=1; }
- if(str[strlen(str)-1]=='~') { /* ~signifies non-isolated word */
- str[strlen(str)-1]=0;
- cp=strstr(line,str);
- if(c && cp!=line)
- cp=0; }
- else {
- cp=strstr(line,str);
- if(cp && c) {
- if(cp!=line || isalnum(*(cp+strlen(str))))
- cp=0; }
- else { /* must be isolated word */
- while(cp)
- if((cp!=line && isalnum(*(cp-1)))
- || isalnum(*(cp+strlen(str))))
- cp=strstr(cp+strlen(str),str);
- else
- break; } }
- if(!cp && and) {
- true=0;
- break; }
- if(cp && or) {
- true=1;
- break; }
- if(cp)
- true=1; }
-nest=0;
-while((**ptrptr)!=')' && (**ptrptr)) { /* handle nested exp */
- if((**ptrptr)=='(') /* (TRUE|(IGNORE)) */
- nest++;
- (*ptrptr)++;
- while((**ptrptr)==')' && nest && (**ptrptr)) {
- nest--;
- (*ptrptr)++; } }
-(*ptrptr)++; /* skip over ')' */
-return(true);
-}
-
-/****************************************************************************/
-/* Guru chat with the appearance of Local chat with sysop. */
-/****************************************************************************/
-void localguru(char *gurubuf, int gurunum)
-{
- char ch,str[256];
- int con=console; /* save console state */
-
-if(sys_status&SS_GURUCHAT || !total_gurus)
- return;
-sys_status|=SS_GURUCHAT;
-console&=~(CON_L_ECHOX|CON_R_ECHOX); /* turn off X's */
-console|=(CON_L_ECHO|CON_R_ECHO); /* make sure echo is on */
-if(action==NODE_CHAT) { /* only page if from chat section */
- bprintf(text[PagingGuru],guru[gurunum]->name);
- ch=random(25)+25;
- while(ch--) {
- mswait(200);
- outchar('.'); } }
-bprintf(text[SysopIsHere],guru[gurunum]->name);
-getnodedat(node_num,&thisnode,1);
-thisnode.aux=gurunum;
-putnodedat(node_num,thisnode);
-attr(color[clr_chatlocal]);
-guruchat("HELLO",gurubuf,gurunum);
-while(online && (sys_status&SS_GURUCHAT)) {
- checkline();
- action=NODE_GCHT;
- SYNC;
- if((ch=inkey(0))!=0) {
- ungetkey(ch);
- attr(color[clr_chatremote]);
- if(getstr(str,78,K_WRAP|K_CHAT)) {
- attr(color[clr_chatlocal]);
- guruchat(str,gurubuf,gurunum); } }
- else
- mswait(1); }
-bputs(text[EndOfChat]);
-sys_status&=~SS_GURUCHAT;
-console=con; /* restore console state */
-}
-
-/****************************************************************************/
-/* Packs the password 'pass' into 5bit ASCII inside node_t. 32bits in */
-/* node.extaux, and the other 8bits in the upper byte of node.aux */
-/****************************************************************************/
-void packchatpass(char *pass, node_t *node)
-{
- char bits;
- int i,j;
-
-node->aux&=~0xff00; /* clear the password */
-node->extaux=0L;
-if((j=strlen(pass))==0) /* there isn't a password */
- return;
-node->aux|=(int)((pass[0]-64)<<8); /* 1st char goes in low 5bits of aux */
-if(j==1) /* password is only one char, we're done */
- return;
-node->aux|=(int)((pass[1]-64)<<13); /* low 3bits of 2nd char go in aux */
-node->extaux|=(long)((pass[1]-64)>>3); /* high 2bits of 2nd char go extaux */
-bits=2;
-for(i=2;i<j;i++) { /* now process the 3rd char through the last */
- node->extaux|=(long)((long)(pass[i]-64)<<bits);
- bits+=5; }
-}
-
-/****************************************************************************/
-/* Unpacks the password 'pass' from the 5bit ASCII inside node_t. 32bits in */
-/* node.extaux, and the other 8bits in the upper byte of node.aux */
-/****************************************************************************/
-char *unpackchatpass(char *pass, node_t node)
-{
- char bits;
- int i;
-
-pass[0]=(node.aux&0x1f00)>>8;
-pass[1]=((node.aux&0xe000)>>13)|((node.extaux&0x3)<<3);
-bits=2;
-for(i=2;i<8;i++) {
- pass[i]=(node.extaux>>bits)&0x1f;
- bits+=5; }
-pass[8]=0;
-for(i=0;i<8;i++)
- if(pass[i])
- pass[i]+=64;
-return(pass);
-}
diff --git a/src/sbbs2/chk_ar.c b/src/sbbs2/chk_ar.c
deleted file mode 100644
index ee82da2a0146d1bb94fe265b240d36cf305e7e2f..0000000000000000000000000000000000000000
--- a/src/sbbs2/chk_ar.c
+++ /dev/null
@@ -1,509 +0,0 @@
-#line 1 "CHK_AR.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-int ar_exp(char **ptrptr, user_t user)
-{
- uint len,true=1,not,or,equal,artype=AR_LEVEL,n,i,age;
- ulong l;
- struct tm *gm;
-
-for(;(**ptrptr);(*ptrptr)++) {
-
- if((**ptrptr)==AR_ENDNEST)
- break;
-
- not=or=equal=0;
-
- if((**ptrptr)==AR_OR) {
- or=1;
- (*ptrptr)++; }
-
- if((**ptrptr)==AR_NOT) {
- not=1;
- (*ptrptr)++; }
-
- if((**ptrptr)==AR_EQUAL) {
- equal=1;
- (*ptrptr)++; }
-
- if((true && or) || (!true && !or))
- break;
-
- if((**ptrptr)==AR_BEGNEST) {
- (*ptrptr)++;
- if(ar_exp(ptrptr,user))
- true=!not;
- else
- true=not;
- while((**ptrptr)!=AR_ENDNEST && (**ptrptr)) /* in case of early exit */
- (*ptrptr)++;
- if(!(**ptrptr))
- break;
- continue; }
-
- artype=(**ptrptr);
- switch(artype) {
- case AR_ANSI: /* No arguments */
- case AR_RIP:
- case AR_WIP:
- case AR_LOCAL:
- case AR_EXPERT:
- case AR_SYSOP:
- case AR_QUIET:
- case AR_OS2:
- case AR_DOS:
- break;
- default:
- (*ptrptr)++;
- break; }
-
- n=(**ptrptr);
- i=(*(short *)*ptrptr);
- switch(artype) {
- case AR_LEVEL:
- if((equal && user.level!=n) || (!equal && user.level<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessLevel];
- noaccess_val=n; }
- break;
- case AR_AGE:
- age=getage(user.birth);
- if((equal && age!=n) || (!equal && age<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessAge];
- noaccess_val=n; }
- break;
- case AR_BPS:
- if((equal && cur_rate!=i) || (!equal && cur_rate<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessBPS];
- noaccess_val=i; }
- break;
- case AR_ANSI:
- if(!(user.misc&ANSI))
- true=not;
- else true=!not;
- break;
- case AR_RIP:
- if(!(user.misc&RIP))
- true=not;
- else true=!not;
- break;
- case AR_WIP:
- if(!(user.misc&WIP))
- true=not;
- else true=!not;
- break;
- case AR_OS2:
- #ifndef __OS2__
- true=not;
- #else
- true=!not;
- #endif
- break;
- case AR_DOS:
- #ifdef __FLAT__
- true=not;
- #else
- true=!not;
- #endif
- break;
- case AR_EXPERT:
- if(!(user.misc&EXPERT))
- true=not;
- else true=!not;
- break;
- case AR_SYSOP:
- if(!SYSOP)
- true=not;
- else true=!not;
- break;
- case AR_QUIET:
- if(thisnode.status!=NODE_QUIET)
- true=not;
- else true=!not;
- break;
- case AR_LOCAL:
- if(online!=ON_LOCAL)
- true=not;
- else true=!not;
- break;
- case AR_DAY:
- now=time(NULL);
- gm=localtime(&now); /* Qnet call out based on time */
- if((equal && gm->tm_wday!=n) || (!equal && gm->tm_wday<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessDay];
- noaccess_val=n; }
- break;
- case AR_CREDIT:
- l=(ulong)i*1024UL;
- if((equal && user.cdt+user.freecdt!=l)
- || (!equal && user.cdt+user.freecdt<l))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessCredit];
- noaccess_val=l; }
- break;
- case AR_NODE:
- if((equal && node_num!=n) || (!equal && node_num<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessNode];
- noaccess_val=n; }
- break;
- case AR_USER:
- if((equal && user.number!=i) || (!equal && user.number<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessUser];
- noaccess_val=i; }
- break;
- case AR_GROUP:
- if((equal
- && (cursubnum<0 || cursubnum>=total_subs
- || sub[cursubnum]->grp!=i))
- || (!equal && cursubnum>=0 && cursubnum<total_subs
- && sub[cursubnum]->grp<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessGroup];
- noaccess_val=i+1; }
- break;
- case AR_SUB:
- if((equal && cursubnum!=i) || (!equal && cursubnum<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessSub];
- noaccess_val=i+1; }
- break;
- case AR_SUBCODE:
- if(cursubnum<0 || cursubnum>=total_subs
- || strcmp(sub[cursubnum]->code,*ptrptr))
- true=not;
- else
- true=!not;
- while(*(*ptrptr))
- (*ptrptr)++;
- if(!true)
- noaccess_str=text[NoAccessSub];
- break;
- case AR_LIB:
- if((equal
- && (curdirnum<0 || curdirnum>=total_dirs
- || dir[curdirnum]->lib!=i))
- || (!equal && curdirnum>=0 && curdirnum<total_dirs
- && dir[curdirnum]->lib<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessLib];
- noaccess_val=i+1; }
- break;
- case AR_DIR:
- if((equal && curdirnum!=i) || (!equal && curdirnum<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessDir];
- noaccess_val=i+1; }
- break;
- case AR_DIRCODE:
- if(curdirnum<0 || curdirnum>=total_dirs
- || strcmp(dir[curdirnum]->code,*ptrptr))
- true=not;
- else
- true=!not;
- while(*(*ptrptr))
- (*ptrptr)++;
- if(!true)
- noaccess_str=text[NoAccessSub];
- break;
- case AR_EXPIRE:
- now=time(NULL);
- if(!user.expire || now+((long)i*24L*60L*60L)>user.expire)
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessExpire];
- noaccess_val=i; }
- break;
- case AR_RANDOM:
- n=random(i+1);
- if((equal && n!=i) || (!equal && n<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- break;
- case AR_LASTON:
- now=time(NULL);
- if((now-user.laston)/(24L*60L*60L)<i)
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- break;
- case AR_LOGONS:
- if((equal && user.logons!=i) || (!equal && user.logons<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- break;
- case AR_MAIN_CMDS:
- if((equal && main_cmds!=i) || (!equal && main_cmds<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- break;
- case AR_FILE_CMDS:
- if((equal && xfer_cmds!=i) || (!equal && xfer_cmds<i))
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- break;
- case AR_TLEFT:
- if(timeleft/60<n)
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessTimeLeft];
- noaccess_val=n; }
- break;
- case AR_TUSED:
- if((time(NULL)-logontime)/60<n)
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessTimeUsed];
- noaccess_val=n; }
- break;
- case AR_TIME:
- now=time(NULL);
- unixtodos(now,&date,&curtime);
- if((curtime.ti_hour*60)+curtime.ti_min<i)
- true=not;
- else
- true=!not;
- (*ptrptr)++;
- if(!true) {
- noaccess_str=text[NoAccessTime];
- noaccess_val=i; }
- break;
- case AR_PCR:
- if(user.logons>user.posts
- && (!user.posts || 100/(user.logons/user.posts)<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessPCR];
- noaccess_val=n; }
- break;
- case AR_UDR: /* up/download byte ratio */
- l=user.dlb;
- if(!l) l=1;
- if(user.dlb>user.ulb
- && (!user.ulb || 100/(l/user.ulb)<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessUDR];
- noaccess_val=n; }
- break;
- case AR_UDFR: /* up/download file ratio */
- i=user.dls;
- if(!i) i=1;
- if(user.dls>user.uls
- && (!user.uls || 100/(i/user.uls)<n))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessUDFR];
- noaccess_val=n; }
- break;
- case AR_FLAG1:
- if((!equal && !(user.flags1&FLAG(n)))
- || (equal && user.flags1!=FLAG(n)))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessFlag1];
- noaccess_val=n; }
- break;
- case AR_FLAG2:
- if((!equal && !(user.flags2&FLAG(n)))
- || (equal && user.flags2!=FLAG(n)))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessFlag2];
- noaccess_val=n; }
- break;
- case AR_FLAG3:
- if((!equal && !(user.flags3&FLAG(n)))
- || (equal && user.flags3!=FLAG(n)))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessFlag3];
- noaccess_val=n; }
- break;
- case AR_FLAG4:
- if((!equal && !(user.flags4&FLAG(n)))
- || (equal && user.flags4!=FLAG(n)))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessFlag4];
- noaccess_val=n; }
- break;
- case AR_REST:
- if((!equal && !(user.rest&FLAG(n)))
- || (equal && user.rest!=FLAG(n)))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessRest];
- noaccess_val=n; }
- break;
- case AR_EXEMPT:
- if((!equal && !(user.exempt&FLAG(n)))
- || (equal && user.exempt!=FLAG(n)))
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessExempt];
- noaccess_val=n; }
- break;
- case AR_SEX:
- if(user.sex!=n)
- true=not;
- else
- true=!not;
- if(!true) {
- noaccess_str=text[NoAccessSex];
- noaccess_val=n; }
- break; } }
-return(true);
-}
-
-int chk_ar(char *str, user_t user)
-{
- char *p;
-
-if(str==NULL)
- return(1);
-p=str;
-return(ar_exp(&p,user));
-}
-
-
-/****************************************************************************/
-/* This function fills the usrsub, usrsubs, usrgrps, curgrp, and cursub */
-/* variables based on the security clearance of the current user (useron) */
-/****************************************************************************/
-void getusrsubs()
-{
- uint i,j,k,l;
-
-for(j=0,i=0;i<total_grps;i++) {
- if(!chk_ar(grp[i]->ar,useron))
- continue;
- for(k=0,l=0;l<total_subs;l++) {
- if(sub[l]->grp!=i) continue;
- if(!chk_ar(sub[l]->ar,useron))
- continue;
- usrsub[j][k++]=l; }
- usrsubs[j]=k;
- if(!k) /* No subs accessible in group */
- continue;
- usrgrp[j++]=i; }
-usrgrps=j;
-while((curgrp>=usrgrps || !usrsubs[curgrp]) && curgrp) curgrp--;
-while(cursub[curgrp]>=usrsubs[curgrp] && cursub[curgrp]) cursub[curgrp]--;
-}
-
-/****************************************************************************/
-/* This function fills the usrdir, usrdirs, usrlibs, curlib, and curdir */
-/* variables based on the security clearance of the current user (useron) */
-/****************************************************************************/
-void getusrdirs()
-{
- uint i,j,k,l;
-
-if(useron.rest&FLAG('T')) {
- usrlibs=0;
- return; }
-for(j=0,i=0;i<total_libs;i++) {
- if(!chk_ar(lib[i]->ar,useron))
- continue;
- for(k=0,l=0;l<total_dirs;l++) {
- if(dir[l]->lib!=i) continue;
- if(!chk_ar(dir[l]->ar,useron))
- continue;
- usrdir[j][k++]=l; }
- usrdirs[j]=k;
- if(!k) /* No dirs accessible in lib */
- continue;
- usrlib[j++]=i; }
-usrlibs=j;
-while((curlib>=usrlibs || !usrdirs[curlib]) && curlib) curlib--;
-while(curdir[curlib]>=usrdirs[curlib] && curdir[curlib]) curdir[curlib]--;
-}
-
-int dir_op(uint dirnum)
-{
-return(SYSOP || (dir[dirnum]->op_ar[0] && chk_ar(dir[dirnum]->op_ar,useron)));
-}
-
-
diff --git a/src/sbbs2/cmdshell.h b/src/sbbs2/cmdshell.h
deleted file mode 100644
index 8ec3c4e29973b4a8a3596a2ac2316b88b09590f7..0000000000000000000000000000000000000000
--- a/src/sbbs2/cmdshell.h
+++ /dev/null
@@ -1,586 +0,0 @@
-/* CMDSHELL.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "gen_defs.h"
-
-/******************************/
-/* Instructions and Functions */
-/******************************/
-enum {
-
-/* Single byte instructions */
-
- CS_IF_TRUE=0 // Same as IF_EQUAL
- ,CS_IF_FALSE // Same as IF_NOT_EQUAL
- ,CS_ELSE
- ,CS_ENDIF
- ,CS_CMD_HOME
- ,CS_CMD_POP
- ,CS_END_CMD
- ,CS_RETURN
- ,CS_GETKEY
- ,CS_GETKEYE
- ,CS_UNGETKEY
- ,CS_UNGETSTR
- ,CS_PRINTKEY
- ,CS_PRINTSTR
- ,CS_HANGUP
- ,CS_SYNC
- ,CS_ASYNC
- ,CS_CHKSYSPASS
- ,CS_LOGKEY
- ,CS_LOGKEY_COMMA
- ,CS_LOGSTR
- ,CS_CLS
- ,CS_CRLF
- ,CS_PAUSE
- ,CS_PAUSE_RESET
- ,CS_GETLINES
- ,CS_GETFILESPEC
- ,CS_FINDUSER
- ,CS_CLEAR_ABORT
- ,CS_SELECT_SHELL
- ,CS_SET_SHELL
- ,CS_SELECT_EDITOR
- ,CS_SET_EDITOR // 0x20
- ,CS_INKEY
- ,CS_RIOSYNC
- ,CS_GETTIMELEFT
- ,CS_SAVELINE
- ,CS_RESTORELINE
- ,CS_IF_GREATER
- ,CS_IF_GREATER_OR_EQUAL
- ,CS_IF_LESS
- ,CS_IF_LESS_OR_EQUAL
- ,CS_DEFAULT // 0x2a
- ,CS_END_SWITCH
- ,CS_END_CASE
- ,CS_PUT_NODE
- ,CS_ONE_MORE_BYTE=0x2f
-
-/* Two byte instructions */
-
- ,CS_CMDKEY=0x30
- ,CS_NODE_ACTION
- ,CS_GETSTR
- ,CS_GETNAME
- ,CS_GETSTRUPR
- ,CS_SHIFT_STR
- ,CS_COMPARE_KEY
- ,CS_SETLOGIC
- ,CS_SET_USER_LEVEL
- ,CS_SET_USER_STRING
- ,CS_GETLINE // 0x3a
- ,CS_NODE_STATUS
- ,CS_TWO_MORE_BYTES=0x3f
-
-/* Three byte instructions */
-
- ,CS_GOTO=0x40
- ,CS_CALL
- ,CS_TOGGLE_NODE_MISC
- ,CS_ADJUST_USER_CREDITS
- ,CS_TOGGLE_USER_FLAG
- ,CS_GETNUM
- ,CS_COMPARE_NODE_MISC
- ,CS_MSWAIT
- ,CS_ADJUST_USER_MINUTES
- ,CS_REVERT_TEXT
- ,CS_THREE_MORE_BYTES=0x4f
-
-/* String arg instructions */
-
- ,CS_MENU=0x50
- ,CS_PRINT
- ,CS_PRINT_LOCAL
- ,CS_PRINT_REMOTE
- ,CS_PRINTFILE
- ,CS_PRINTFILE_LOCAL
- ,CS_PRINTFILE_REMOTE
- ,CS_YES_NO
- ,CS_NO_YES
- ,CS_COMPARE_STR
- ,CS_COMPARE_WORD // 0x5a
- ,CS_EXEC
- ,CS_EXEC_INT
- ,CS_EXEC_BIN
- ,CS_EXEC_XTRN
- ,CS_GETCMD
- ,CS_LOG // 0x60
- ,CS_MNEMONICS
- ,CS_SETSTR
- ,CS_SET_MENU_DIR
- ,CS_SET_MENU_FILE
- ,CS_CMDSTR
- ,CS_CHKFILE
- ,CS_GET_TEMPLATE
- ,CS_TRASHCAN
- ,CS_CREATE_SIF
- ,CS_READ_SIF // 0x6a
- ,CS_CMDKEYS
- ,CS_COMPARE_KEYS
- ,CS_STR_FUNCTION=0x6f
-
-/* Var length instructions */
-
- ,CS_COMPARE_ARS=0x70
- ,CS_TOGGLE_USER_MISC
- ,CS_COMPARE_USER_MISC
- ,CS_REPLACE_TEXT
- ,CS_TOGGLE_USER_CHAT
- ,CS_COMPARE_USER_CHAT
- ,CS_TOGGLE_USER_QWK
- ,CS_COMPARE_USER_QWK
- ,CS_SWITCH
- ,CS_CASE
- ,CS_USE_INT_VAR // 0x7a
-
-/* File I/O Functions */
-
- ,CS_FIO_FUNCTION=0x7e
-
-/* Variable instruction sub-ops */
-
- ,CS_VAR_INSTRUCTION=0x7f
-
-/* Functions */
-
- ,CS_MAIL_READ=0x80
- ,CS_MAIL_READ_SENT
- ,CS_MAIL_READ_ALL
- ,CS_MAIL_SEND
- ,CS_MAIL_SEND_BULK
- ,CS_MAIL_SEND_FILE
- ,CS_MAIL_SEND_FEEDBACK
- ,CS_MAIL_SEND_NETMAIL
- ,CS_MAIL_SEND_NETFILE
- ,CS_LOGOFF
- ,CS_LOGOFF_FAST
- ,CS_AUTO_MESSAGE
- ,CS_MSG_SET_AREA
- ,CS_MSG_SELECT_AREA
- ,CS_MSG_SHOW_GROUPS
- ,CS_MSG_SHOW_SUBBOARDS
- ,CS_MSG_GROUP_UP // 0x90
- ,CS_MSG_GROUP_DOWN
- ,CS_MSG_SUBBOARD_UP
- ,CS_MSG_SUBBOARD_DOWN
- ,CS_MSG_GET_SUB_NUM
- ,CS_MSG_GET_GRP_NUM
- ,CS_MSG_READ
- ,CS_MSG_POST
- ,CS_MSG_QWK
- ,CS_MSG_PTRS_CFG
- ,CS_MSG_PTRS_REINIT
- ,CS_MSG_NEW_SCAN_CFG
- ,CS_MSG_NEW_SCAN
- ,CS_MSG_NEW_SCAN_ALL
- ,CS_MSG_CONT_SCAN
- ,CS_MSG_CONT_SCAN_ALL
- ,CS_MSG_BROWSE_SCAN // 0xA0
- ,CS_MSG_BROWSE_SCAN_ALL
- ,CS_MSG_FIND_TEXT
- ,CS_MSG_FIND_TEXT_ALL
- ,CS_MSG_YOUR_SCAN_CFG
- ,CS_MSG_YOUR_SCAN
- ,CS_MSG_YOUR_SCAN_ALL
- ,CS_MSG_NEW_SCAN_SUB
- ,CS_MSG_SET_GROUP
- ,CS_MSG_UNUSED4
- ,CS_MSG_UNUSED3
- ,CS_MSG_UNUSED2
- ,CS_MSG_UNUSED1
- ,CS_FILE_SET_AREA
- ,CS_FILE_SELECT_AREA
- ,CS_FILE_SHOW_LIBRARIES
- ,CS_FILE_SHOW_DIRECTORIES // 0xB0
- ,CS_FILE_LIBRARY_UP
- ,CS_FILE_LIBRARY_DOWN
- ,CS_FILE_DIRECTORY_UP
- ,CS_FILE_DIRECTORY_DOWN
- ,CS_FILE_GET_DIR_NUM
- ,CS_FILE_GET_LIB_NUM
- ,CS_FILE_LIST
- ,CS_FILE_LIST_EXTENDED
- ,CS_FILE_VIEW
- ,CS_FILE_UPLOAD
- ,CS_FILE_UPLOAD_USER
- ,CS_FILE_UPLOAD_SYSOP
- ,CS_FILE_DOWNLOAD
- ,CS_FILE_DOWNLOAD_USER
- ,CS_FILE_DOWNLOAD_BATCH
- ,CS_FILE_REMOVE //0xC0
- ,CS_FILE_BATCH_SECTION
- ,CS_FILE_TEMP_SECTION
- ,CS_FILE_NEW_SCAN_CFG
- ,CS_FILE_NEW_SCAN
- ,CS_FILE_NEW_SCAN_ALL
- ,CS_FILE_FIND_TEXT
- ,CS_FILE_FIND_TEXT_ALL
- ,CS_FILE_FIND_NAME
- ,CS_FILE_FIND_NAME_ALL
- ,CS_FILE_PTRS_CFG
- ,CS_FILE_BATCH_ADD
- ,CS_FILE_BATCH_CLEAR
- ,CS_FILE_SET_LIBRARY
- ,CS_FILE_SEND //Like file_get, but no password needed
- ,CS_FILE_BATCH_ADD_LIST
- ,CS_FILE_UNUSED1 //0xD0
- ,CS_NODELIST_ALL
- ,CS_NODELIST_USERS
- ,CS_CHAT_SECTION
- ,CS_USER_DEFAULTS
- ,CS_USER_EDIT
- ,CS_TEXT_FILE_SECTION
- ,CS_INFO_SYSTEM
- ,CS_INFO_SUBBOARD
- ,CS_INFO_DIRECTORY
- ,CS_INFO_USER
- ,CS_INFO_VERSION
- ,CS_INFO_XFER_POLICY
- ,CS_XTRN_EXEC
- ,CS_XTRN_SECTION
- ,CS_USERLIST_SUB
- ,CS_USERLIST_DIR //0xE0
- ,CS_USERLIST_ALL
- ,CS_USERLIST_LOGONS
- ,CS_PAGE_SYSOP
- ,CS_PRIVATE_CHAT
- ,CS_PRIVATE_MESSAGE
- ,CS_MINUTE_BANK
- ,CS_GURU_LOG
- ,CS_ERROR_LOG
- ,CS_SYSTEM_LOG
- ,CS_SYSTEM_YLOG
- ,CS_SYSTEM_STATS
- ,CS_NODE_STATS
- ,CS_SHOW_MEM
- ,CS_CHANGE_USER
- ,CS_ANSI_CAPTURE
- ,CS_LIST_TEXT_FILE //0xF0
- ,CS_EDIT_TEXT_FILE
- ,CS_FILE_SET_ALT_PATH
- ,CS_FILE_RESORT_DIRECTORY
- ,CS_FILE_GET
- ,CS_FILE_PUT
- ,CS_FILE_UPLOAD_BULK
- ,CS_FILE_FIND_OLD
- ,CS_FILE_FIND_OPEN
- ,CS_FILE_FIND_OFFLINE
- ,CS_FILE_FIND_OLD_UPLOADS
- ,CS_INC_MAIN_CMDS
- ,CS_INC_FILE_CMDS
- ,CS_PRINTFILE_STR
- ,CS_PAGE_GURU //0xFE
-
- };
-
- /* Variable instructions (sub-op-code) */
-
-enum {
-
- SHOW_VARS // Show all variables
- ,PRINT_VAR // Print a single variable
- ,VAR_PRINTF // Print a formated line of text
- ,VAR_RESERVED_4
- ,VAR_RESERVED_3
- ,VAR_RESERVED_2
- ,VAR_RESERVED_1
- ,DEFINE_STR_VAR // Define Local Variable
- ,DEFINE_INT_VAR
- ,VAR_RESERVED_A4
- ,VAR_RESERVED_A3
- ,VAR_RESERVED_A2
- ,VAR_RESERVED_A1
- ,DEFINE_GLOBAL_STR_VAR // Define Global Variable
- ,DEFINE_GLOBAL_INT_VAR
- ,VAR_RESERVED_B4
- ,VAR_RESERVED_B3 // 0x10
- ,VAR_RESERVED_B2
- ,VAR_RESERVED_B1
- ,SET_STR_VAR // Set string variable
- ,SET_INT_VAR // Set integer variable
- ,VAR_RESERVED_C4
- ,VAR_RESERVED_C3
- ,VAR_RESERVED_C2
- ,VAR_RESERVED_C1
- ,COMPARE_STR_VAR // Compare string variable (static)
- ,COMPARE_INT_VAR // Compare integer variable (static)
- ,STRNCMP_VAR // Compare n chars of str var (static)
- ,STRSTR_VAR // Sub-string compare of str var (static)
- ,VAR_RESERVED_D2
- ,VAR_RESERVED_D1
- ,COMPARE_VARS // Compare two variables
- ,STRNCMP_VARS // 0x20 // Compare n chars of str vars (dynamic)
- ,STRSTR_VARS // Sub-string compare between two str vars
- ,VAR_RESERVED_E2
- ,VAR_RESERVED_E1
- ,COPY_VAR // Copy from one variable to another
- ,VAR_RESERVED_F4
- ,VAR_RESERVED_F3
- ,VAR_RESERVED_F2
- ,VAR_RESERVED_F1
- ,SWAP_VARS // Swap two variables
- ,VAR_RESERVED_G4
- ,VAR_RESERVED_G3
- ,VAR_RESERVED_G2
- ,VAR_RESERVED_G1
- ,CAT_STR_VAR // Concatenate string variable (static)
- ,CAT_STR_VARS // Concatenate strint variable (dynamic)
- ,FORMAT_STR_VAR // 0x30 // Format string variable
- ,TIME_STR // Write formated date/time to string
- ,DATE_STR // Write MM/DD/YY to string
- ,FORMAT_TIME_STR // Create custom date/time string
- ,SECOND_STR // Create a string in format hh:mm:ss
- ,STRUPR_VAR // Convert string to upper case
- ,STRLWR_VAR // Convert string to lower case
- ,ADD_INT_VAR // Add to int variable (static)
- ,ADD_INT_VARS // Add to int variable (dynamic)
- ,VAR_RESERVED_I4
- ,VAR_RESERVED_I3
- ,VAR_RESERVED_I2
- ,VAR_RESERVED_I1
- ,SUB_INT_VAR // Subtract from int variable (static)
- ,SUB_INT_VARS // Subtract from int variable (dynamic)
- ,VAR_RESERVED_J4
- ,VAR_RESERVED_J3 // 0x40
- ,VAR_RESERVED_J2
- ,VAR_RESERVED_J1
- ,MUL_INT_VAR // Multiply int variable (static)
- ,MUL_INT_VARS // Multiply int variable (dynamic)
- ,VAR_RESERVED_K4
- ,VAR_RESERVED_K3
- ,VAR_RESERVED_K2
- ,VAR_RESERVED_K1
- ,DIV_INT_VAR // Divide int variable (static)
- ,DIV_INT_VARS // Divide int variable (dynamic)
- ,MOD_INT_VAR
- ,MOD_INT_VARS
- ,VAR_RESERVED_L2
- ,VAR_RESERVED_L1
- ,AND_INT_VAR // Bit-wise AND int variable (static)
- ,AND_INT_VARS // 0x50 // Bit-wise AND int variable (dynamic)
- ,VAR_RESERVED_M4
- ,VAR_RESERVED_M3
- ,VAR_RESERVED_M2
- ,VAR_RESERVED_M1
- ,OR_INT_VAR // Bit-wise OR int variable (static)
- ,OR_INT_VARS // Bit-wise OR int variable (dynamic)
- ,VAR_RESERVED_N4
- ,VAR_RESERVED_N3
- ,VAR_RESERVED_N2
- ,VAR_RESERVED_N1
- ,NOT_INT_VAR // Bit-wise NOT int variable (static)
- ,NOT_INT_VARS // Bit-wise NOT int variable (dynamic)
- ,VAR_RESERVED_O4
- ,VAR_RESERVED_O3
- ,VAR_RESERVED_O2
- ,VAR_RESERVED_O1 // 0x60
- ,XOR_INT_VAR // XOR int variable (static)
- ,XOR_INT_VARS // XOR int variable (dynamic)
- ,VAR_RESERVED_P4
- ,VAR_RESERVED_P3
- ,VAR_RESERVED_P2
- ,VAR_RESERVED_P1
- ,RANDOM_INT_VAR // Set integer to random number
- ,TIME_INT_VAR // Set integer to current time/date
- ,DATE_STR_TO_INT // Convert a date string to integer
- ,STRLEN_INT_VAR // Set integer to length of str
- ,CRC16_TO_INT // Get CRC-16 of str var
- ,CRC32_TO_INT // Get CRC-32 of str var
- ,FLENGTH_TO_INT // Put length of str var file into int
- ,CHARVAL_TO_INT // Put character val of str var into int
- ,GETNUM_VAR // Get number
- ,GETSTR_VAR // 0x70 // Get string
- ,GETNAME_VAR // Get string (upper/lower)
- ,GETSTRUPR_VAR // Get string (upper)
- ,GETLINE_VAR // Get string (input bar/line)
- ,SHIFT_STR_VAR // Shift str in variable
- ,GETSTR_MODE // Get string with various modes
- ,TRUNCSP_STR_VAR // Truncate space off end of str var
- ,CHKFILE_VAR
- ,PRINTFILE_VAR_MODE // Printfile str var with mode
- ,PRINTTAIL_VAR_MODE // Print tail-end of str var with mode
- ,CHKSUM_TO_INT // Get CHKSUM of str var
- ,STRIP_CTRL_STR_VAR // Strip ctrl chars from str var
- ,SEND_FILE_VIA // Send file (static) via protocol
- ,SEND_FILE_VIA_VAR // Send file (dynamic) via protocol
- ,FTIME_TO_INT // Put time of str var file into int
- ,RECEIVE_FILE_VIA // Receive file (static) via protocol
- ,RECEIVE_FILE_VIA_VAR // Receive file (dynamic) via protocol
- };
-
- // More string arg functions
-enum {
- CS_LOGIN // Login/password prompt
- ,CS_LOAD_TEXT // Load alternative TEXT.DAT
- };
-
-enum { // More single byte instructions
- CS_ONLINE // Online execution only
- ,CS_OFFLINE // Offline execution allowed
- ,CS_NEWUSER // New user procedure
- ,CS_LOGON // Logon procedure
- ,CS_LOGOUT // Logout procedure
- ,CS_EXIT // Exit current module immediately
- };
-
-enum { // More two byte instructions
- CS_USER_EVENT // External user event
- };
-
-enum {
- FIO_OPEN // Open file (static filename)
- ,FIO_CLOSE // Close file
- ,FIO_READ // Read from file
- ,FIO_READ_VAR // Read from file, variable # of bytes
- ,FIO_WRITE // Write to file
- ,FIO_WRITE_VAR // Write to file, variable # of bytes
- ,FIO_GET_LENGTH // Get length
- ,FIO_EOF // Set logic to TRUE if eof
- ,FIO_GET_POS // Get current file position
- ,FIO_SEEK // Seek within file
- ,FIO_SEEK_VAR // Seek within file, variable offset
- ,FIO_LOCK // Lock a region
- ,FIO_LOCK_VAR // Lock a region, variable length
- ,FIO_UNLOCK // Unlock a region
- ,FIO_UNLOCK_VAR // Unlock a region, variable length
- ,FIO_SET_LENGTH // Change size
- ,FIO_SET_LENGTH_VAR // Change size, variable length
- ,FIO_PRINTF // Write formated string to file
- ,FIO_SET_ETX // Set end-of-text character
- ,FIO_GET_TIME // Gets the current date/time of file
- ,FIO_SET_TIME // Sets the current date/time of file
- ,FIO_OPEN_VAR // Open a file (dynamic filename)
- ,FIO_READ_LINE // Read a single line from file
- ,FIO_FLUSH // Flush buffered output to disk
- ,FIO_UNUSED8
- ,FIO_UNUSED7
- ,FIO_UNUSED6
- ,FIO_UNUSED5
- ,FIO_UNUSED4
- ,FIO_UNUSED3
- ,FIO_UNUSED2
- ,FIO_UNUSED1
- ,REMOVE_FILE // Remove a file
- ,RENAME_FILE // Rename a file
- ,COPY_FILE // Copy a file to another file
- ,MOVE_FILE // Move a file to another file
- ,GET_FILE_ATTRIB // Get file attributes
- ,SET_FILE_ATTRIB // Set file attributes
- ,MAKE_DIR // Make directory
- ,CHANGE_DIR // Change current directory
- ,REMOVE_DIR // Remove directory
- ,OPEN_DIR // Open a directory
- ,READ_DIR // Read a directory entry
- ,REWIND_DIR // Rewind an open directory
- ,CLOSE_DIR // Close an open directory
- };
-
-enum {
- USER_STRING_ALIAS
- ,USER_STRING_REALNAME
- ,USER_STRING_HANDLE
- ,USER_STRING_COMPUTER
- ,USER_STRING_NOTE
- ,USER_STRING_ADDRESS
- ,USER_STRING_LOCATION
- ,USER_STRING_ZIPCODE
- ,USER_STRING_PASSWORD
- ,USER_STRING_BIRTHDAY
- ,USER_STRING_PHONE
- ,USER_STRING_MODEM
- ,USER_STRING_COMMENT
-
- };
-
-#define CS_ONE_BYTE CS_IF_TRUE
-#define CS_TWO_BYTE CS_CMDKEY
-#define CS_THREE_BYTE CS_GOTO
-#define CS_ASCIIZ CS_MENU
-#define CS_MISC CS_COMPARE_ARS
-#define CS_FUNCTIONS CS_MAIL_READ
-#define CS_ELSEORENDIF 0xff
-#define CS_NEXTCASE 0xfe
-
-#define CS_DIGIT 0xff
-#define CS_EDIGIT 0xfe
-
- /* Bits for csi_t.misc */
-#define CS_IN_SWITCH (1L<<0) /* Inside active switch statement */
-#define CS_OFFLINE_EXEC (1L<<1) /* Offline execution */
-
-#define MAX_RETS 50 /* maximum nested call depth */
-#define MAX_CMDRETS 50 /* maximum nested cmd depth */
-#define MAX_STRVARS 26
-#define MAX_INTVARS 26
-#define MAX_STRLEN 81
-#define MAX_FOPENS 10 /* maximum open files */
-#define MAX_SYSVARS 16 /* maximum system variable saves */
-
-#define LOGIC_LESS -1
-#define LOGIC_EQUAL 0
-#define LOGIC_GREATER 1
-#define LOGIC_TRUE LOGIC_EQUAL
-#define LOGIC_FALSE LOGIC_LESS
-
-typedef struct { /* Command shell image */
-
- uchar *cs, /* Command shell image */
- *ip, /* Instruction pointer */
- cmd, /* Current command key */
- etx, /* End-of-text character */
- *str, /* Current string */
- *ret[MAX_RETS], /* Return address stack */
- rets, /* Returns on stack */
- *cmdret[MAX_CMDRETS], /* Command return address stack */
- cmdrets, /* Command returns on stack */
- **str_var; /* String variables */
-
-
- int logic, /* Current logic */
- files; /* Open files */
-
- FILE *file[MAX_FOPENS]; /* Each file ptr */
-
- uint str_vars, /* Total number of string variables */
- int_vars; /* Total number of integer variables */
-
- long retval, /* Return value */
- misc, /* Misc bits */
- switch_val, /* Current switch value */
- *int_var, /* Integer variables */
- *str_var_name, /* String variable names (CRC-32) */
- *int_var_name; /* Integer variable names (CRC-32) */
-
- ulong length; /* Length of image */
-
- } csi_t;
-
-extern uint global_str_vars;
-extern char **global_str_var;
-extern long *global_str_var_name;
-extern uint global_int_vars;
-extern long *global_int_var;
-extern long *global_int_var_name;
-extern csi_t main_csi;
-extern char *sysvar_p[MAX_SYSVARS];
-extern int sysvar_pi;
-extern long sysvar_l[MAX_SYSVARS];
-extern int sysvar_li;
-
-int exec(csi_t *csi);
-int exec_function(csi_t *csi);
-int exec_misc(csi_t *csi, uchar *path);
-int execmsg(csi_t *csi);
-int execfile(csi_t *csi);
-long exec_bin(uchar *mod, csi_t *csi);
-void clearvars(csi_t *bin);
-void freevars(csi_t *bin);
-char **getstrvar(csi_t *bin, long name);
-long *getintvar(csi_t *bin, long name);
-char *copystrvar(csi_t *csi, char *p, char *str);
-void skipto(csi_t *csi, uchar inst);
-
-/* End of CMDSHELL.H */
diff --git a/src/sbbs2/comio.c b/src/sbbs2/comio.c
deleted file mode 100644
index 510a415ddffdb680b8c9588e1083483a4f9cc83f..0000000000000000000000000000000000000000
--- a/src/sbbs2/comio.c
+++ /dev/null
@@ -1,354 +0,0 @@
-#line 1 "COMIO.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/***********************************/
-/* COM port and modem i/o routines */
-/***********************************/
-
-#include "sbbs.h"
-
-#ifndef __FLAT__
-extern mswtyp;
-#endif
-
-extern char term_ret;
-extern uint addrio;
-
-/****************************************************************************/
-/* Outputs a NULL terminated string to the COM port verbatim */
-/* Called from functions putmsg, getstr and color */
-/****************************************************************************/
-void putcom(char *str)
-{
- ulong l=0;
-
-while(str[l])
- putcomch(str[l++]);
-}
-
-/****************************************************************************/
-/* Outputs a single character to the COM port */
-/****************************************************************************/
-void putcomch(char ch)
-{
- char lch;
- int i=0;
-
-if(!com_port)
- return;
-while(outcom(ch)&TXBOF && i<1440) { /* 3 minute pause delay */
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==3) {
- lputs("local abort (putcomch)\r\n");
- i=1440;
- break; }
- ungetkey(lch); }
- if(!DCDHIGH)
- break;
- i++;
- if(sys_status&SS_SYSPAGE)
- beep(i,80);
- else
- mswait(80); }
-if(i==1440) { /* timeout - beep flush outbuf */
- i=rioctl(TXBC);
- lprintf("timeout(putcomch) %04X %04X\r\n",i,rioctl(IOFO));
- outcom(7);
- lputc(7);
- rioctl(IOCS|PAUSE); }
-}
-
-/****************************************************************************/
-/* Sends string of characters to COM port. Interprets ^M and ~ (pause) */
-/* Called from functions waitforcall and offhook */
-/****************************************************************************/
-void mdmcmd(char *str)
-{
- int i=0;
- uint lch;
-
-if(mdm_misc&MDM_DUMB)
- return;
-if(sys_status&SS_MDMDEBUG)
- lputs("\r\nModem command : ");
-while(str[i]) {
- if(str[i]=='~')
- mswait(DELAY_MDMTLD);
- else {
- if(i && str[i-1]=='^' && str[i]!='^') /* control character */
- putcomch(toupper(str[i])-64);
- else if(str[i]!='^' || (i && str[i-1]=='^'))
- putcomch(str[i]);
- if(sys_status&SS_MDMDEBUG)
- lputc(str[i]); }
- i++; }
-putcomch(CR);
-i=0;
-while(rioctl(TXSYNC|(1<<8)) && i<10) { /* wait for modem to receive all chars */
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==0x2e03) {
- lputs("local abort (mdmcmd)\r\n");
- break; }
- if(lch==0xff00)
- bail(1);
- ungetkey(lch); }
- i++; }
-if(i==10) {
- i=rioctl(TXBC);
- lprintf("\r\ntimeout(mdmcmd) %04X %04X\r\n",i,rioctl(IOFO)); }
-if(sys_status&SS_MDMDEBUG)
- lputs(crlf);
-}
-
-/****************************************************************************/
-/* Returns CR terminated string from the COM port. */
-/* Called from function waitforcall */
-/****************************************************************************/
-char getmdmstr(char *str, int sec)
-{
- uchar j=0,ch;
- uint lch;
- time_t start;
-
-if(sys_status&SS_MDMDEBUG)
- lputs("Modem response : ");
-start=time(NULL);
-while(time(NULL)-start<sec && j<81) {
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==0x2e03 || lch==3) {
- lputs("local abort (getmdmstr)\r\n");
- break; }
- if(lch==0xff00)
- bail(1);
- ungetkey(lch); }
- if((ch=incom())==CR && j) {
- if(mdm_misc&MDM_VERBAL)
- incom(); /* LF */
- break; }
- if(ch && (ch<0x20 || ch>0x7f)) { /* ignore ctrl characters and ex-ascii */
- if(sys_status&SS_MDMDEBUG)
- lprintf("[%02X]",ch);
- continue; }
- if(ch) {
- str[j++]=ch;
- if(sys_status&SS_MDMDEBUG)
- lputc(ch); }
- else mswait(0); }
-mswait(500);
-str[j]=0;
-if(sys_status&SS_MDMDEBUG)
- lputs(crlf);
-return(j);
-}
-
-/****************************************************************************/
-/* Drops DTR (if COM port used), clears KEY and COM Buffers and other vars */
-/* Called from functions checkline, getkey, inkey, main, waitforcall, */
-/* main_sec, xfer_sec, gettimeleft and newuser */
-/****************************************************************************/
-void hangup()
-{
- char str1[256],str2[256],c;
- uint i;
-
-rioctl(MSR);
-if(!term_ret && com_port && (rioctl(IOSTATE)&DCD)) { /* if carrier detect */
- riosync(0);
- mswait(DELAY_HANGUP); /* wait for modem buffer to clear */
- if(mdm_misc&MDM_NODTR)
- mdmcmd(mdm_hang);
- else {
- lputs("\r\nDropping DTR...");
- if(dtr(15)) { /* drop dtr, wait 15 seconds for dcd to drop */
- lputs("\rDropping DTR Failed");
- logline("@!","Dropping DTR Failed");
- mdmcmd(mdm_hang); } }
- mswait(110);
- rioctl(MSR);
- if(rioctl(IOSTATE)&DCD) {
- mswait(5000);
- rioctl(MSR);
- if(rioctl(IOSTATE)&DCD) {
- lputs("\r\nDCD high after hang up");
- logline("@!","DCD high after hang up");
- mswait(5000); } } }
-if(sys_status&SS_CAP) { /* Close capture if open */
- fclose(capfile);
-#ifdef __MSDOS__
- freedosmem=farcoreleft(); /* fnopen allocates memory and fclose frees */
-#endif
- sys_status^=SS_CAP; }
-if(sys_status&SS_FINPUT) { /* Close file input if open */
- close(inputfile);
- sys_status^=SS_FINPUT; }
-
-keybufbot=keybuftop=online=console=0;
-sys_status&=~(SS_TMPSYSOP|SS_LCHAT|SS_SYSPAGE|SS_ABORT);
-nosound();
-if(com_port)
- dtr(1);
-}
-
-/****************************************************************************/
-/* Sends 'off-hook' string to modem to pick up phone (if COM port used) */
-/* Called from function waitforcall */
-/****************************************************************************/
-void offhook()
-{
-if(com_port && !(mdm_misc&MDM_DUMB)) {
- mdmcmd(mdm_offh);
- rioctl(TXSYNC|(2<<8)); /* wait up 2 seconds for modem to receive */
- }
-}
-
-/****************************************************************************/
-/* Checks to see if remote user has hung up. */
-/* Called from function getkey */
-/****************************************************************************/
-void checkline()
-{
-if(online!=ON_REMOTE) return;
-if(!DCDHIGH) {
- lprintf("\r\nHung up");
- logline(nulstr,"Hung up");
- hangup(); }
-}
-
-/****************************************************************************/
-/* Syncronizes the remote and local machines before command prompts */
-/****************************************************************************/
-void riosync(char abortable)
-{
- int i=0;
-
-if(useron.misc&(RIP|WIP)) /* don't allow abort with RIP or WIP */
- abortable=0; /* mainly because of ANSI cursor posistion response */
-if(sys_status&SS_ABORT) /* no need to sync if already aborting */
- return;
-if(online==ON_REMOTE && console&CON_R_ECHO) {
- while(rioctl(TXSYNC|(1<<8)) && i<180) { /* three minutes till tx buf empty */
- if(sys_status&SS_SYSPAGE)
- beep(i,10);
- if(lkbrd(1))
- break;
- if(abortable && rioctl(RXBC)) { /* incoming characer */
- rioctl(IOFO); /* flush output */
- sys_status|=SS_ABORT; /* set abort flag so no pause */
- break; } /* abort sync */
- if(!DCDHIGH)
- break;
- mswait(0);
- i++; }
- if(i==180) {
- i=rioctl(TXBC);
- lprintf("timeout(sync) %04X %04X\r\n",i,rioctl(IOFO));
- outcom(7);
- lputc(7);
- rioctl(IOCS|PAUSE); }
- if(rioctl(IOSTATE)&ABORT)
- sys_status|=SS_ABORT;
- rioctl(IOCS|ABORT); }
-}
-
-/*****************************************************************************/
-/* Initializes com i/o routines and sets baud rate */
-/*****************************************************************************/
-void comini()
-{
- int i;
-#ifndef __FLAT__
- uint base=0xffff;
-#endif
-
-if(sys_status&SS_COMISR) /* Already installed */
- return;
-lprintf("\r\nInitializing COM port %u: ",com_port);
-#ifndef __FLAT__
-switch(com_base) {
- case 0xb:
- lputs("PC BIOS");
- break;
- case 0xd:
- lputs("DigiBoard");
- break;
- case 0xe:
- lputs("PS/2 BIOS");
- break;
- case 0xf:
- lputs("FOSSIL");
- break;
- case 0:
- base=com_port;
- lputs("UART I/O (BIOS), ");
- if(com_irq)
- lprintf("IRQ %d",com_irq);
- else lputs("default IRQ");
- break;
- default:
- base=com_base;
- lprintf("UART I/O %Xh, ",com_base);
- if(com_irq)
- lprintf("IRQ %d",com_irq);
- else lputs("default IRQ");
- break; }
-
-if(base==0xffff)
- lprintf(" channel %u",com_irq);
-i=rioini(base,com_irq);
-#else
-#ifdef __OS2__
-if(rio_handle!=-1) // Already opened, prolly passed to SBBS4OS2 via cmd line
- lprintf("handle %d",rio_handle);
-#endif
-i=rioini(com_port,0);
-#endif
-if(i) {
- lprintf(" - Failed! (%d)\r\n",i);
- bail(1); }
-i=0;
-if(mdm_misc&MDM_CTS)
- i=CTSCK;
-if(mdm_misc&MDM_RTS)
- i|=RTSCK;
-if(i)
- rioctl(IOSM|i); /* set cts checking if hardware flow control */
-
-#ifndef __FLAT__
-rioctl(TSTYPE|mswtyp); /* set time-slice API type */
-#endif
-
-rioctl(CPTON); /* ctrl-p translation */
-
-if(addrio) {
- lprintf("\r\nAdditional rioctl: %04Xh",addrio);
- rioctl(addrio); }
-
-sys_status|=SS_COMISR;
-}
-
-/****************************************************************************/
-/* Sets the current baud rate to either the current connect rate or the */
-/* DTE rate */
-/****************************************************************************/
-void setrate()
-{
- int i;
-
-if(online==ON_REMOTE && !(mdm_misc&MDM_STAYHIGH))
- dte_rate=cur_rate;
-else
- dte_rate=com_rate;
-lprintf("\r\nSetting DTE rate: %lu baud",dte_rate);
-#ifdef __FLAT__
-if((i=setbaud(dte_rate))!=0) {
-#else
-if((i=setbaud((uint)(dte_rate&0xffffL)))!=0) {
-#endif
- lprintf(" - Failed! (%d)\r\n",i);
- bail(1); }
-lputs(crlf);
-}
diff --git a/src/sbbs2/con_hi.c b/src/sbbs2/con_hi.c
deleted file mode 100644
index be01d3b7f33941dbf49985a9a4d8c9898595ae32..0000000000000000000000000000000000000000
--- a/src/sbbs2/con_hi.c
+++ /dev/null
@@ -1,796 +0,0 @@
-#line 1 "CON_HI.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-extern char question[128];
-
-char *mnestr;
-
-/****************************************************************************/
-/* Waits for remote or local user to input a CR terminated string. 'length' */
-/* is the maximum number of characters that getstr will allow the user to */
-/* input into the string. 'mode' specifies upper case characters are echoed */
-/* or wordwrap or if in message input (^A sequences allowed). ^W backspaces */
-/* a word, ^X backspaces a line, ^Gs, BSs, TABs are processed, LFs ignored. */
-/* ^N non-destructive BS, ^V center line. Valid keys are echoed. */
-/****************************************************************************/
-int getstr(char *strout, int maxlen, long mode)
-{
- int i,l,x,z; /* i=current position, l=length, j=printed chars */
- /* x&z=misc */
- uchar ch,str1[256],str2[256],ins=0,atr;
-
-console&=~CON_UPARROW;
-sys_status&=~SS_ABORT;
-if(mode&K_LINE && useron.misc&ANSI && !(mode&K_NOECHO)) {
- attr(color[clr_inputline]);
- for(i=0;i<maxlen;i++)
- outchar(SP);
- bprintf("\x1b[%dD",maxlen); }
-if(wordwrap[0]) {
- strcpy(str1,wordwrap);
- wordwrap[0]=0; }
-else str1[0]=0;
-if(mode&K_EDIT)
- strcat(str1,strout);
-if(strlen(str1)>maxlen)
- str1[maxlen]=0;
-atr=curatr;
-if(!(mode&K_NOECHO)) {
- if(mode&K_AUTODEL && str1[0]) {
- i=(color[clr_inputline]&0x77)<<4;
- i|=(color[clr_inputline]&0x77)>>4;
- attr(i); }
- rputs(str1);
- if(mode&K_EDIT && !(mode&(K_LINE|K_AUTODEL)) && useron.misc&ANSI)
- bputs("\x1b[K"); /* destroy to eol */ }
-
-i=l=strlen(str1);
-if(mode&K_AUTODEL && str1[0] && !(mode&K_NOECHO)) {
- ch=getkey(mode|K_GETSTR);
- attr(atr);
- if(isprint(ch) || ch==0x7f) {
- for(i=0;i<l;i++)
- bputs("\b \b");
- i=l=0; }
- else {
- for(i=0;i<l;i++)
- outchar(BS);
- rputs(str1);
- i=l; }
- if(ch!=SP && ch!=TAB)
- ungetkey(ch); }
-
-while(!(sys_status&SS_ABORT) && (ch=getkey(mode|K_GETSTR))!=CR && online) {
- if(sys_status&SS_ABORT)
- break;
- if(ch==LF) /* Ctrl-J same as CR */
- break;
- if(ch==TAB && !(mode&K_WRAP)) /* TAB same as CR */
- break;
- if(!i && mode&K_UPRLWR && (ch==SP || ch==TAB))
- continue; /* ignore beginning white space if upper/lower */
- if(mode&K_E71DETECT && ch==(CR|0x80) && l>1) {
- if(strstr(str1,"��")) {
- bputs("\r\n\r\nYou must set your terminal to NO PARITY, "
- "8 DATA BITS, and 1 STOP BIT (N-8-1).\7\r\n");
- return(0); } }
- switch(ch) {
- case 1: /* Ctrl-A for ANSI */
- if(!(mode&K_MSG) || useron.rest&FLAG('A') || i>maxlen-3)
- break;
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- rprintf("%.*s",l-i,str1+i);
- rprintf("\x1b[%dD",l-i);
- if(i==maxlen-1)
- ins=0; }
- outchar(str1[i++]=1);
- break;
- case 2: /* Ctrl-B Beginning of Line */
- if(useron.misc&ANSI && i && !(mode&K_NOECHO)) {
- bprintf("\x1b[%dD",i);
- i=0; }
- break;
- case 4: /* Ctrl-D Delete word right */
- if(i<l) {
- x=i;
- while(x<l && str1[x]!=SP) {
- outchar(SP);
- x++; }
- while(x<l && str1[x]==SP) {
- outchar(SP);
- x++; }
- bprintf("\x1b[%dD",x-i); /* move cursor back */
- z=i;
- while(z<l-(x-i)) { /* move chars in string */
- outchar(str1[z]=str1[z+(x-i)]);
- z++; }
- while(z<l) { /* write over extra chars */
- outchar(SP);
- z++; }
- bprintf("\x1b[%dD",z-i);
- l-=x-i; } /* l=new length */
- break;
- case 5: /* Ctrl-E End of line */
- if(useron.misc&ANSI && i<l) {
- bprintf("\x1b[%dC",l-i); /* move cursor to eol */
- i=l; }
- break;
- case 6: /* Ctrl-F move cursor forewards */
- if(i<l && (useron.misc&ANSI)) {
- bputs("\x1b[C"); /* move cursor right one */
- i++; }
- break;
- case 7:
- if(!(mode&K_MSG))
- break;
- if(useron.rest&FLAG('B')) {
- if (i+6<maxlen) {
- if(ins) {
- for(x=l+6;x>i;x--)
- str1[x]=str1[x-6];
- if(l+5<maxlen)
- l+=6;
- if(i==maxlen-1)
- ins=0; }
- str1[i++]='(';
- str1[i++]='b';
- str1[i++]='e';
- str1[i++]='e';
- str1[i++]='p';
- str1[i++]=')';
- if(!(mode&K_NOECHO))
- bputs("(beep)"); }
- if(ins)
- redrwstr(str1,i,l,0);
- break; }
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- if(i==maxlen-1)
- ins=0; }
- if(i<maxlen) {
- str1[i++]=7;
- if(!(mode&K_NOECHO))
- outchar(7); }
- break;
- case 14: /* Ctrl-N Next word */
- if(i<l && (useron.misc&ANSI)) {
- x=i;
- while(str1[i]!=SP && i<l)
- i++;
- while(str1[i]==SP && i<l)
- i++;
- bprintf("\x1b[%dC",i-x); }
- break;
- case 0x1c: /* Ctrl-\ Previous word */
- if(i && (useron.misc&ANSI) && !(mode&K_NOECHO)) {
- x=i;
- while(str1[i-1]==SP && i)
- i--;
- while(str1[i-1]!=SP && i)
- i--;
- bprintf("\x1b[%dD",x-i); }
- break;
- case 18: /* Ctrl-R Redraw Line */
- if(!(mode&K_NOECHO))
- redrwstr(str1,i,l,0);
- break;
- case TAB:
- if(!(i%TABSIZE)) {
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- if(i==maxlen-1)
- ins=0; }
- str1[i++]=SP;
- if(!(mode&K_NOECHO))
- outchar(SP); }
- while(i<maxlen && i%TABSIZE) {
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- if(i==maxlen-1)
- ins=0; }
- str1[i++]=SP;
- if(!(mode&K_NOECHO))
- outchar(SP); }
- if(ins && !(mode&K_NOECHO))
- redrwstr(str1,i,l,0);
- break;
- case BS:
- if(!i)
- break;
- i--;
- l--;
- if(i!=l) { /* Deleting char in middle of line */
- outchar(BS);
- z=i;
- while(z<l) { /* move the characters in the line */
- outchar(str1[z]=str1[z+1]);
- z++; }
- outchar(SP); /* write over the last char */
- bprintf("\x1b[%dD",(l-i)+1); }
- else if(!(mode&K_NOECHO))
- bputs("\b \b");
- break;
- case 22: /* Ctrl-V Center line */
- str1[l]=0;
- l=bstrlen(str1);
- if(!l) break;
- for(x=0;x<(maxlen-l)/2;x++)
- str2[x]=SP;
- str2[x]=0;
- strcat(str2,str1);
- strcpy(strout,str2);
- l=strlen(strout);
- if(mode&K_NOECHO)
- return(l);
- if(mode&K_MSG)
- redrwstr(strout,i,l,K_MSG);
- else {
- while(i--)
- bputs("\b");
- bputs(strout);
- if(mode&K_LINE)
- attr(LIGHTGRAY); }
- CRLF;
- return(l);
- case 23: /* Ctrl-W Delete word left */
- if(i<l) {
- x=i; /* x=original offset */
- while(i && str1[i-1]==SP) {
- outchar(BS);
- i--; }
- while(i && str1[i-1]!=SP) {
- outchar(BS);
- i--; }
- z=i; /* i=z=new offset */
- while(z<l-(x-i)) { /* move chars in string */
- outchar(str1[z]=str1[z+(x-i)]);
- z++; }
- while(z<l) { /* write over extra chars */
- outchar(SP);
- z++; }
- bprintf("\x1b[%dD",z-i); /* back to new x corridnant */
- l-=x-i; } /* l=new length */
- else {
- while(i && str1[i-1]==SP) {
- i--;
- l--;
- if(!(mode&K_NOECHO))
- bputs("\b \b"); }
- while(i && str1[i-1]!=SP) {
- i--;
- l--;
- if(!(mode&K_NOECHO))
- bputs("\b \b"); } }
- break;
- case 24: /* Ctrl-X Delete entire line */
- if(mode&K_NOECHO)
- l=0;
- else {
- while(i<l) {
- outchar(SP);
- i++; }
- while(l) {
- l--;
- bputs("\b \b"); } }
- i=0;
- break;
- case 25: /* Ctrl-Y Delete to end of line */
- if(useron.misc&ANSI && !(mode&K_NOECHO)) {
- bputs("\x1b[K");
- l=i; }
- break;
- case 31: /* Ctrl-Minus Toggles Insert/Overwrite */
- if(!(useron.misc&ANSI) || mode&K_NOECHO)
- break;
- if(ins) {
- ins=0;
- redrwstr(str1,i,l,0); }
- else if(i<l) {
- ins=1;
- bprintf("\x1b[s\x1b[%dC",79-lclwx()); /* save pos */
- z=curatr; /* and got to EOL */
- attr(z|BLINK|HIGH);
- outchar('�');
- attr(z);
- bputs("\x1b[u"); } /* restore pos */
- break;
- case 0x1e: /* Ctrl-^ */
- if(!(mode&K_EDIT))
- break;
- if(i>l)
- l=i;
- str1[l]=0;
- strcpy(strout,str1);
- if((stripattr(strout) || ins) && !(mode&K_NOECHO))
- redrwstr(strout,i,l,K_MSG);
- if(mode&K_LINE && !(mode&K_NOECHO))
- attr(LIGHTGRAY);
- console|=CON_UPARROW;
- return(l);
- case 0x1d: /* Ctrl-] Reverse Cursor Movement */
- if(i && (useron.misc&ANSI) && !(mode&K_NOECHO)) {
- bputs("\x1b[D"); /* move cursor left one */
- i--; }
- break;
- case 0x7f: /* Ctrl-BkSpc (DEL) Delete current char */
- if(i==l)
- break;
- l--;
- z=i;
- while(z<l) { /* move the characters in the line */
- outchar(str1[z]=str1[z+1]);
- z++; }
- outchar(SP); /* write over the last char */
- bprintf("\x1b[%dD",(l-i)+1);
- break;
- default:
- if(mode&K_WRAP && i==maxlen && ch>=SP && !ins) {
- str1[i]=0;
- if(ch==SP && !(mode&K_CHAT)) { /* don't wrap a space */
- strcpy(strout,str1); /* as last char */
- if(stripattr(strout) && !(mode&K_NOECHO))
- redrwstr(strout,i,l,K_MSG);
- if(!(mode&K_NOECHO))
- CRLF;
- return(i); }
- x=i-1;
- z=1;
- wordwrap[0]=ch;
- while(str1[x]!=SP && x)
- wordwrap[z++]=str1[x--];
- if(x<(maxlen/2)) {
- wordwrap[1]=0; /* only wrap one character */
- strcpy(strout,str1);
- if(stripattr(strout) && !(mode&K_NOECHO))
- redrwstr(strout,i,l,K_MSG);
- if(!(mode&K_NOECHO))
- CRLF;
- return(i); }
- wordwrap[z]=0;
- if(!(mode&K_NOECHO))
- while(z--) {
- bputs("\b \b");
- i--; }
- strrev(wordwrap);
- str1[x]=0;
- strcpy(strout,str1);
- if(stripattr(strout) && !(mode&K_NOECHO))
- redrwstr(strout,i,x,mode);
- if(!(mode&K_NOECHO))
- CRLF;
- return(x); }
- if(i<maxlen && ch>=SP) {
- if(mode&K_UPRLWR)
- if(!i || (i && (str1[i-1]==SP || str1[i-1]=='-'
- || str1[i-1]=='.' || str1[i-1]=='_')))
- ch=toupper(ch);
- else
- ch=tolower(ch);
- if(ins) {
- if(l<maxlen) /* l<maxlen */
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- rprintf("%.*s",l-i,str1+i);
- rprintf("\x1b[%dD",l-i);
- if(i==maxlen-1) {
- bputs(" \b\b");
- ins=0; } }
- str1[i++]=ch;
- if(!(mode&K_NOECHO))
- outchar(ch); } }
- if(i>l)
- l=i;
- if(mode&K_CHAT && !l)
- return(0); }
-if(!online)
- return(0);
-if(i>l)
- l=i;
-str1[l]=0;
-if(!(sys_status&SS_ABORT)) {
- strcpy(strout,str1);
- if((stripattr(strout) || ins) && !(mode&K_NOECHO))
- redrwstr(strout,i,l,K_MSG); }
-else
- l=0;
-if(mode&K_LINE && !(mode&K_NOECHO)) attr(LIGHTGRAY);
-if(!(mode&(K_NOCRLF|K_NOECHO))) {
- outchar(CR);
- if(!(mode&K_MSG && sys_status&SS_ABORT))
- outchar(LF);
- lncntr=0; }
-return(l);
-}
-
-/****************************************************************************/
-/* Hot keyed number input routine. */
-/* Returns a valid number between 1 and max, 0 if no number entered, or -1 */
-/* if the user hit 'Q' or ctrl-c */
-/****************************************************************************/
-long getnum(ulong max)
-{
- uchar ch,n=0;
- long i=0;
-
-while(online) {
- ch=getkey(K_UPPER);
- if(ch>0x7f)
- continue;
- if(ch=='Q') {
- outchar('Q');
- if(useron.misc&COLDKEYS)
- ch=getkey(K_UPPER);
- if(ch==BS) {
- bputs("\b \b");
- continue; }
- CRLF;
- lncntr=0;
- return(-1); }
- else if(sys_status&SS_ABORT) {
- CRLF;
- lncntr=0;
- return(-1); }
- else if(ch==CR) {
- CRLF;
- lncntr=0;
- return(i); }
- else if(ch==BS && n) {
- bputs("\b \b");
- i/=10;
- n--; }
- else if(isdigit(ch) && (i*10L)+(ch&0xf)<=max && (ch!='0' || n)) {
- i*=10L;
- n++;
- i+=ch&0xf;
- outchar(ch);
- if(i*10L>max && !(useron.misc&COLDKEYS)) {
- CRLF;
- lncntr=0;
- return(i); } } }
-return(0);
-}
-
-/*****************************************************************************/
-/* Displays or erases [WAIT] message */
-/*****************************************************************************/
-void waitforsysop(char on)
-{
- static saveatr;
- int i,j;
-
-if(on) {
- saveatr=curatr;
- bputs(text[Wait]);
- lclatr(LIGHTGRAY);
- return; }
-j=bstrlen(text[Wait]);
-attr(saveatr);
-for(i=0;i<j;i++)
- bputs("\b \b");
-}
-
-/****************************************************************************/
-/* Returns 1 if a is a valid ctrl-a code, 0 if it isn't. */
-/****************************************************************************/
-char validattr(char a)
-{
-
-switch(toupper(a)) {
- case '-': /* clear */
- case '_': /* clear */
- case 'B': /* blue fg */
- case 'C': /* cyan fg */
- case 'G': /* green fg */
- case 'H': /* high fg */
- case 'I': /* blink */
- case 'K': /* black fg */
- case 'L': /* cls */
- case 'M': /* magenta fg */
- case 'N': /* normal */
- case 'P': /* pause */
- case 'R': /* red fg */
- case 'W': /* white fg */
- case 'Y': /* yellow fg */
- case '0': /* black bg */
- case '1': /* red bg */
- case '2': /* green bg */
- case '3': /* brown bg */
- case '4': /* blue bg */
- case '5': /* magenta bg */
- case '6': /* cyan bg */
- case '7': /* white bg */
- return(1); }
-return(0);
-}
-
-/****************************************************************************/
-/* Strips invalid Ctrl-Ax sequences from str */
-/* Returns number of ^A's in line */
-/****************************************************************************/
-char stripattr(char *strin)
-{
- uchar str[256];
- uchar a,c,d,e;
-
-e=strlen(strin);
-for(a=c=d=0;c<e;c++) {
- if(strin[c]==1) {
- a++;
- if(!validattr(strin[c+1])) {
- c++;
- continue; } }
- str[d++]=strin[c]; }
-str[d]=0;
-strcpy(strin,str);
-return(a);
-}
-
-/****************************************************************************/
-/* Redraws str using i as current cursor position and l as length */
-/****************************************************************************/
-void redrwstr(char *strin, int i, int l, char mode)
-{
- char str[256],c;
-
-sprintf(str,"%-*.*s",l,l,strin);
-c=i;
-while(c--)
- outchar(BS);
-if(mode&K_MSG)
- bputs(str);
-else
- rputs(str);
-if(useron.misc&ANSI) {
- bputs("\x1b[K");
- if(i<l)
- bprintf("\x1b[%dD",l-i); }
-else {
- while(c<79) { /* clear to end of line */
- outchar(SP);
- c++; }
- while(c>l) { /* back space to end of string */
- outchar(BS);
- c--; } }
-}
-
-/****************************************************************************/
-/* Outputs a string highlighting characters preceeded by a tilde */
-/****************************************************************************/
-void mnemonics(char *str)
-{
- char *ctrl_a_codes;
- long l;
-
-if(!strchr(str,'~')) {
- mnestr=str;
- bputs(str);
- return; }
-ctrl_a_codes=strchr(str,1);
-if(!ctrl_a_codes) {
- if(str[0]=='@' && str[strlen(str)-1]=='@' && !strchr(str,SP)) {
- mnestr=str;
- bputs(str);
- return; }
- attr(color[clr_mnelow]); }
-l=0L;
-while(str[l]) {
- if(str[l]=='~' && str[l+1]) {
- if(!(useron.misc&ANSI))
- outchar('(');
- l++;
- if(!ctrl_a_codes)
- attr(color[clr_mnehigh]);
- outchar(str[l]);
- l++;
- if(!(useron.misc&ANSI))
- outchar(')');
- if(!ctrl_a_codes)
- attr(color[clr_mnelow]); }
- else {
- if(str[l]==1) { /* ctrl-a */
- ctrl_a(str[++l]); /* skip the ctrl-a */
- l++; } /* skip the attribute code */
- else
- outchar(str[l++]); } }
-if(!ctrl_a_codes)
- attr(color[clr_mnecmd]);
-}
-
-/****************************************************************************/
-/* Prompts user for Y or N (yes or no) and CR is interpreted as a Y */
-/* Returns 1 for Y or 0 for N */
-/* Called from quite a few places */
-/****************************************************************************/
-char yesno(char *str)
-{
- char ch;
-
-strcpy(question,str);
-SYNC;
-if(useron.misc&WIP) {
- strip_ctrl(question);
- menu("YESNO"); }
-else
- bprintf(text[YesNoQuestion],str);
-while(online) {
- if(sys_status&SS_ABORT)
- ch=text[YN][1];
- else
- ch=getkey(K_UPPER|K_COLD);
- if(ch==text[YN][0] || ch==CR) {
- if(bputs(text[Yes]))
- CRLF;
- lncntr=0;
- return(1); }
- if(ch==text[YN][1]) {
- if(bputs(text[No]))
- CRLF;
- lncntr=0;
- return(0); } }
-return(1);
-}
-
-/****************************************************************************/
-/* Prompts user for N or Y (no or yes) and CR is interpreted as a N */
-/* Returns 1 for N or 0 for Y */
-/* Called from quite a few places */
-/****************************************************************************/
-char noyes(char *str)
-{
- char ch;
-
-strcpy(question,str);
-SYNC;
-if(useron.misc&WIP) {
- strip_ctrl(question);
- menu("NOYES"); }
-else
- bprintf(text[NoYesQuestion],str);
-while(online) {
- if(sys_status&SS_ABORT)
- ch=text[YN][1];
- else
- ch=getkey(K_UPPER|K_COLD);
- if(ch==text[YN][1] || ch==CR) {
- if(bputs(text[No]))
- CRLF;
- lncntr=0;
- return(1); }
- if(ch==text[YN][0]) {
- if(bputs(text[Yes]))
- CRLF;
- lncntr=0;
- return(0); } }
-return(1);
-}
-
-/****************************************************************************/
-/* Waits for remote or local user to hit a key that is contained inside str.*/
-/* 'str' should contain uppercase characters only. When a valid key is hit, */
-/* it is echoed (upper case) and is the return value. */
-/* Called from quite a few functions */
-/****************************************************************************/
-long getkeys(char *str, ulong max)
-{
- uchar ch,n=0,c;
- ulong i=0;
-
-strupr(str);
-while(online) {
- ch=getkey(K_UPPER);
- if(max && ch>0x7f) /* extended ascii chars are digits to isdigit() */
- continue;
- if(sys_status&SS_ABORT) { /* return -1 if Ctrl-C hit */
- attr(LIGHTGRAY);
- CRLF;
- lncntr=0;
- return(-1); }
- if(ch && !n && (strchr(str,ch))) { /* return character if in string */
- outchar(ch);
- if(useron.misc&COLDKEYS && ch>SP) {
- while(online && !(sys_status&SS_ABORT)) {
- c=getkey(0);
- if(c==CR || c==BS)
- break; }
- if(sys_status&SS_ABORT) {
- CRLF;
- return(-1); }
- if(c==BS) {
- bputs("\b \b");
- continue; } }
- attr(LIGHTGRAY);
- CRLF;
- lncntr=0;
- return(ch); }
- if(ch==CR && max) { /* return 0 if no number */
- attr(LIGHTGRAY);
- CRLF;
- lncntr=0;
- if(n)
- return(i|0x80000000L); /* return number plus high bit */
- return(0); }
- if(ch==BS && n) {
- bputs("\b \b");
- i/=10;
- n--; }
- else if(max && isdigit(ch) && (i*10)+(ch&0xf)<=max && (ch!='0' || n)) {
- i*=10;
- n++;
- i+=ch&0xf;
- outchar(ch);
- if(i*10>max && !(useron.misc&COLDKEYS)) {
- attr(LIGHTGRAY);
- CRLF;
- lncntr=0;
- return(i|0x80000000L); } } }
-return(-1);
-}
-
-void center(char *str)
-{
- int i,j;
-
-j=bstrlen(str);
-for(i=0;i<(80-j)/2;i++)
- outchar(SP);
-bputs(str);
-CRLF;
-}
-
-
-int uselect(int add, int n, char *title, char *item, char *ar)
-{
- static uint total,num[500];
- char str[128];
- int i,t;
-
-if(add) {
- if(ar && !chk_ar(ar,useron))
- return(0);
- if(!total)
- bprintf(text[SelectItemHdr],title);
- num[total++]=n;
- bprintf(text[SelectItemFmt],total,item);
- return(0); }
-
-if(!total)
- return(-1);
-
-for(i=0;i<total;i++)
- if(num[i]==n)
- break;
-if(i==total)
- i=0;
-sprintf(str,text[SelectItemWhich],i+1);
-mnemonics(str);
-i=getnum(total);
-t=total;
-total=0;
-if(i<0)
- return(-1);
-if(!i) { /* User hit ENTER, use default */
- for(i=0;i<t;i++)
- if(num[i]==n)
- return(num[i]);
- if(n<t)
- return(num[n]);
- return(-1); }
-return(num[i-1]);
-}
diff --git a/src/sbbs2/con_in.c b/src/sbbs2/con_in.c
deleted file mode 100644
index 8458335ccdd0f522764bf493cd40cc2bdc110b37..0000000000000000000000000000000000000000
--- a/src/sbbs2/con_in.c
+++ /dev/null
@@ -1,663 +0,0 @@
-#line 1 "CON_IN.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-#define LAST_STAT_LINE 16
-
-#ifdef __WIN32__
-
-#include <windows.h>
-
-uint lkbrd(int mode)
-{
- uint c;
-
-if(mode)
- return(kbhit());
-c=getch();
-if(!c)
- c=(getch()<<8);
-return(c);
-}
-
-int lclaes(void)
-{
-return(0);
-}
-
-#elif defined(__OS2__)
-
-void fixkbdmode(void)
-{
- KBDINFO kbd;
-
-/* Disable Ctrl-C/Ctrl-P processing by OS/2 */
-KbdGetStatus(&kbd,0);
-if(kbd.fsMask&KEYBOARD_ASCII_MODE) {
- kbd.fsMask|=KEYBOARD_BINARY_MODE;
- kbd.fsMask&=~KEYBOARD_ASCII_MODE;
- KbdSetStatus(&kbd,0); }
-}
-
-uint lkbrd(int leave)
-{
- KBDKEYINFO key;
-
-if(leave)
- KbdPeek(&key,0);
-else
- KbdCharIn(&key,IO_NOWAIT,0);
-if(!(key.fbStatus&KBDTRF_FINAL_CHAR_IN))
- return(0);
-if(!(key.fbStatus&0x02) || key.chScan==0xE0)
- return(key.chChar);
-return(key.chScan<<8);
-}
-
-#endif
-
-/****************************************************************************/
-/* Returns character if a key has been hit locally or remotely and responds */
-/* to local ctrl/function keys. Does not print character. */
-/* Called from functions getkey, msgabort and main_sec */
-/****************************************************************************/
-char inkey(int mode)
-{
- static inside;
- uchar str[512],*scrnbuf,x,y,c,atr,*gurubuf,ch=0,*helpbuf;
- int file,con=console;
- uint i,j;
- long l,length;
-
-if(!(node_misc&NM_NO_LKBRD) && (lkbrd(1) || sys_status&SS_FINPUT)) {
- if(sys_status&SS_FINPUT) {
- if(lkbrd(1)==0xff00) {
- close(inputfile);
- sys_status^=SS_FINPUT;
- return(0); }
- if(read(inputfile,&c,1)!=1) {
- close(inputfile);
- sys_status^=SS_FINPUT;
- return(0); }
- if(c) /* Regular character */
- i=c;
- else { /* Scan code */
- if(read(inputfile,&c,1)!=1) {
- close(inputfile);
- sys_status^=SS_FINPUT;
- return(0); }
- i=c<<8; } }
- else
- i=lkbrd(0);
- if(sys_status&SS_LCHAT && curatr!=color[clr_chatlocal])
- attr(color[clr_chatlocal]);
- if(i&0xff)
- ch=i&0xff;
- else { /* Alt or Function key hit */
- i>>=8;
- /* F1 - F10 Shift-F1 - Alt-F10 F11 - Alt-F12 */
- if((i>=0x3b &&i<=0x44) || (i>=0x54 &&i<=0x71) || (i>=0x85 &&i<=0x8c)) {
- if(sys_status&SS_FINPUT)
- return(0); /* MACROS */
- sprintf(str,"%s%sF%d.MAC",text_dir
- ,i<0x45 || (i>=0x85 && i<=0x86) ? nulstr
- :i<0x5e || (i>=0x87 && i<=0x88) ? "SHFT-"
- :i<0x68 || (i>=0x89 && i<=0x8a) ? "CTRL-" : "ALT-"
- ,i<0x45 ? i-0x3a : i<0x5e ? i-0x53 : i<0x68 ? i-0x5d
- :i<0x72 ? i-0x67 : i<0x87 ? i-0x7a : i<0x89 ? i-0x7c
- :i<0x8b ? i-0x7e : i-0x80);
- if((inputfile=nopen(str,O_RDONLY))!=-1)
- sys_status|=SS_FINPUT;
- return(0); }
- if(i>=0x78 && i<=0x81) { /* Alt-# Quick Validation */
- if(!(sys_status&SS_USERON) /* can't quick-validate if not */
- || !useron.number
- || !(sys_misc&SM_QVALKEYS)) { /* or not valid user number */
- beep(100,500); /* online yet */
- nosound();
- return(0); }
- if((node_misc&NM_SYSPW || SYSOP) && !chksyspass(1))
- return(0);
- beep(1000,100);
- beep(1500,100);
- nosound();
- if(i==0x81)
- i=0;
- else
- i-=0x77;
- useron.level=val_level[i];
- useron.flags1=val_flags1[i];
- useron.flags2=val_flags2[i];
- useron.flags3=val_flags3[i];
- useron.flags4=val_flags4[i];
- useron.exempt=val_exempt[i];
- useron.rest=val_rest[i];
- now=time(NULL);
- if(useron.expire<now && val_expire[i])
- useron.expire=now+((long)val_expire[i]*24L*60L*60L);
- else
- useron.expire+=((long)val_expire[i]*24L*60L*60L);
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,str,10));
- putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,str,16));
- putuserrec(useron.number,U_FLAGS2,8,ultoa(useron.flags2,str,16));
- putuserrec(useron.number,U_FLAGS3,8,ultoa(useron.flags3,str,16));
- putuserrec(useron.number,U_FLAGS4,8,ultoa(useron.flags4,str,16));
- putuserrec(useron.number,U_EXEMPT,8
- ,ultoa(useron.exempt,str,16));
- putuserrec(useron.number,U_REST,8
- ,ultoa(useron.rest,str,16));
- putuserrec(useron.number,U_EXPIRE,8
- ,ultoa(useron.expire,str,16));
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,val_cdt[i]);
- statusline();
- return(0); }
- switch(i) {
- case 0x16: /* Alt-U - Runs Uedit local only with user online */
- sprintf(str,"%.*s",lbuflen,lbuf);
- waitforsysop(1);
- if((scrnbuf=MALLOC((node_scrnlen*80L)*2L))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,(node_scrnlen*80L)*2L);
- return(CR); }
- gettext(1,1,80,node_scrnlen-1,scrnbuf);
- x=lclwx();
- y=lclwy();
- console&=~(CON_R_ECHO|CON_R_INPUT);
- i=(sys_status&SS_TMPSYSOP);
- if(!SYSOP) sys_status|=SS_TMPSYSOP;
- useredit(0,1);
- if(!i) sys_status&=~SS_TMPSYSOP;
- lputc(FF);
- puttext(1,1,80,node_scrnlen-1,scrnbuf);
- FREE(scrnbuf);
- lclxy(x,y);
- statusline();
- if(online==ON_REMOTE)
- rioctl(IOFI); /* flush input buffer */
- console=con;
- waitforsysop(0);
- strcpy(lbuf,str);
- lbuflen=strlen(lbuf);
- return(0);
- case 0x1f: /* Alt-S - Toggles Spinning Cursor */
- useron.misc^=SPIN;
- return(0);
- case 0x12: /* Alt-E - Toggle Remote echo and input */
- if(online!=ON_REMOTE) return(0);
- if(console&CON_R_ECHO) {
- beep(500,50);
- beep(1000,50);
- nosound();
- waitforsysop(1);
- console&=~(CON_R_ECHO|CON_R_INPUT);
- j=bstrlen(text[Wait]);
- for(i=0;i<j;i++)
- bputs("\b \b"); }
- else {
- beep(1000,50);
- beep(500,50);
- nosound();
- j=bstrlen(text[Wait]);
- for(i=0;i<j;i++)
- outchar(SP);
- console|=(CON_R_ECHO|CON_R_INPUT);
- rioctl(IOFI); /* flush input buffer */
- waitforsysop(0); }
- return(0);
- case 0x10: /* Alt-Q - Toggles remote input */
- if(online!=ON_REMOTE)
- return(0);
- console^=CON_R_INPUT;
- if(console&CON_R_INPUT) {
- beep(1000,50);
- beep(500,50);
- nosound();
- rioctl(IOSM|PAUSE|ABORT); }
- else {
- beep(500,50);
- beep(1000,50);
- nosound();
- rioctl(IOCM|PAUSE|ABORT); }
- rioctl(IOFI); /* flush input buffer */
- return(0);
- case 0x19: /* Alt-P - Turns off sysop page */
- nosound();
- sys_status&=~SS_SYSPAGE;
- return(0);
- case 0x23: /* Alt-H - Hangs up on user */
- hangup();
- return(0);
- case 0x1e: /* Alt-A - Alert Sysop when User's done */
- sys_status^=SS_SYSALERT;
- statusline();
- return(0);
- case 0x82: /* Alt-- - Sub Time (5 min) */
- starttime-=300;
- return(0);
- case 0x83: /* Alt-+ - Add time (5 min)*/
- starttime+=300;
- return(0);
- case 0x14: /* Alt-T - Temp SysOp */
- if(!(sys_status&SS_TMPSYSOP) && node_misc&NM_SYSPW
- && !chksyspass(1))
- return(0);
- if(sys_misc&SM_L_SYSOP)
- sys_status^=SS_TMPSYSOP;
- statusline();
- return(0);
- case 0x2c: /* Alt-Z - Menu of local keys */
- if((scrnbuf=MALLOC((node_scrnlen*80L)*2L))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,(node_scrnlen*80L)*2L);
- return(CR); }
- gettext(1,1,80,node_scrnlen,scrnbuf);
- sprintf(str,"%sSBBSHELP.DAB",exec_dir);
- if((file=nopen(str,O_RDONLY))==-1)
- lputs("\7Can't open SBBSHELP");
- else {
- length=filelength(file);
- if((helpbuf=MALLOC(length))==NULL)
- lputs("\7Can't allocate for SBBSHELP");
- else {
- read(file,helpbuf,length);
- close(file);
- puttext(13,1,66,24,helpbuf);
- FREE(helpbuf); } }
- while(!lkbrd(1)) mswait(1);
- if(lkbrd(1)==0x2c00) /* suck up the alt-z */
- lkbrd(0);
- puttext(1,1,80,node_scrnlen,scrnbuf);
- FREE(scrnbuf);
- return(0);
- case 0x2e: /* Alt-C - Sysop Chat */
- if(sys_status&SS_LCHAT) {
- sys_status^=SS_LCHAT;
- return(CR); }
- else {
- sys_status|=SS_LCHAT;
- SAVELINE;
- localchat();
- return(0); }
- case 0x2d: /* Alt-X exit after logoff */
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=NODE_DOWN;
- putnodedat(node_num,thisnode);
- statusline();
- return(0);
- case 0x47: /* Home - Same as Ctrl-B */
- return(2); /* ctrl-b beginning of line */
- case 0x8d: /* Ctrl-Up Arrow - decrement statusline */
- if(statline) {
- statline--;
- statusline(); }
- return(0);
- case 0x77: /* Ctrl-Home up - top of status line info */
- statline=1;
- statusline();
- return(0);
- case 0x4b: /* Left Arrow - same as ctrl-] */
- return(0x1d);
- case 0x4d: /* Right Arrow - same as ctrl-f */
- return(6);
- case 0x48: /* Up arrow - same as ctrl-^ */
- return(0x1e);
- case 0x50: /* Down arrow - same as Ctrl-J */
- return(LF);
- case 0x4f: /* End - same as Ctrl-E */
- return(5); /* ctrl-e - end of line */
- case 0x91: /* Ctrl-Dn Arrow - increment statusline */
- if(statline<LAST_STAT_LINE) {
- statline++;
- statusline(); }
- return(0);
- case 0x75: /* Ctrl-End - end of status line info */
- statline=LAST_STAT_LINE;
- statusline();
- return(0);
- case 0x52: /* Insert */
- return(0x1f); /* ctrl-minus - insert mode */
- case 0x53: /* Delete */
- return(0x7f); /* ctrl-bkspc - del cur char */
- case 0x26: /* Alt-L - Capture to cap_fname */
- if(lclaes())
- return(0);
- if(sys_status&SS_CAP) {
- sys_status^=SS_CAP;
- fclose(capfile);
-#ifdef __MSDOS__
- freedosmem=farcoreleft(); /* fclose frees memory */
-#endif
- statusline();
- return(0); }
- x=lclwx();
- y=lclwy();
- atr=lclatr(LIGHTGRAY<<4);
- STATUSLINE;
- lclxy(1,node_scrnlen);
- lputs(" Filename: ");
- lputc(CLREOL);
- console&=~(CON_R_INPUT|CON_R_ECHO);
- getstr(cap_fname,40,K_UPPER|K_EDIT);
- TEXTWINDOW;
- lclxy(x,y);
- lclatr(atr);
- console=con;
- if(cap_fname[0] &&
- (capfile=fopen(cap_fname,"a"))==NULL)
- bprintf("Couldn't open %s.\r\n",cap_fname);
- else if(cap_fname[0]) {
-#ifdef __MSDOS__
- freedosmem=farcoreleft(); /* fnopen allocates memory */
-#endif
- sys_status|=SS_CAP; }
- statusline();
- return(0);
- case 0x17: /* Alt-I - Interrupt node now */
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=NODE_INTR;
- putnodedat(node_num,thisnode);
- return(0);
- case 0x13: /* Alt-R - Rerun node when caller hangs up */
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=NODE_RRUN;
- putnodedat(node_num,thisnode);
- statusline();
- return(0);
- case 0x31: /* Alt-N - Lock this node */
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=NODE_LOCK;
- putnodedat(node_num,thisnode);
- statusline();
- return(0);
- case 0x22: /* Alt-G - Guru Chat */
- if(sys_status&SS_GURUCHAT) {
- sys_status&=~SS_GURUCHAT;
- return(CR); }
- if(!total_gurus)
- break;
- for(i=0;i<total_gurus;i++)
- if(chk_ar(guru[i]->ar,useron))
- break;
- if(i>=total_gurus)
- i=0;
- sprintf(str,"%s%s.DAT",ctrl_dir,guru[i]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
- if((gurubuf=MALLOC(filelength(file)+1L))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,filelength(file)+1L);
- return(0); }
- read(file,gurubuf,filelength(file));
- gurubuf[filelength(file)]=0;
- close(file);
- localguru(gurubuf,i);
- FREE(gurubuf);
- return(CR);
- case 0x20: /* Alt-D - Shell to DOS */
- sprintf(str,"%.*s",lbuflen,lbuf);
- waitforsysop(1);
- if((scrnbuf=MALLOC((node_scrnlen*80L)*2L))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,(node_scrnlen*80L)*2L);
- return(CR); }
- gettext(1,1,80,node_scrnlen,scrnbuf);
- lclatr(LIGHTGRAY);
- x=lclwx();
- y=lclwy();
- lclini(node_scrnlen);
- lputc(FF);
- if(!(node_misc&NM_SYSPW) || chksyspass(1))
- external(comspec,0);
- lclini(node_scrnlen-1);
- puttext(1,1,80,node_scrnlen,scrnbuf);
- FREE(scrnbuf);
- lclxy(x,y);
- if(online==ON_REMOTE)
- rioctl(IOFI); /* flush input buffer */
- waitforsysop(0);
- strcpy(lbuf,str);
- lbuflen=strlen(lbuf);
- timeout=time(NULL);
- return(0);
- case 0x49: /* PgUp - local ASCII upload */
- if(sys_status&SS_FINPUT || lclaes() || inside)
- return(0);
- inside=1;
- x=lclwx();
- y=lclwy();
- atr=lclatr(LIGHTGRAY<<4);
- STATUSLINE;
- lclxy(1,node_scrnlen);
- lputs(" Filename: ");
- lputc(CLREOL);
- console&=~(CON_R_INPUT|CON_R_ECHO);
- getstr(str,60,K_UPPER);
- if(str[0] && (inputfile=nopen(str,O_RDONLY))!=-1)
- sys_status|=SS_FINPUT;
- statusline();
- lclxy(x,y);
- lclatr(atr);
- console=con;
- inside=0;
- return(0);
- case 0xff: /* ctrl-break - bail immediately */
- lputs("\r\nTerminate BBS (y/N) ? ");
- while((i=lkbrd(0))==0);
- if(toupper(i&0xff)=='Y') { /* Ctrl-brk yes/no */
- lputs("Yes\r\n");
- bail(0); }
- lputs("No\r\n");
- sys_status|=SS_ABORT;
- return(0); }
- return(0); } }
-
-if(!ch && console&CON_R_INPUT && rioctl(RXBC)) {
- if(sys_status&SS_LCHAT && curatr!=color[clr_chatremote])
- attr(color[clr_chatremote]);
- ch=incom();
- if(node_misc&NM_7BITONLY
- && (!(sys_status&SS_USERON) || useron.misc&NO_EXASCII))
- ch&=0x7f; }
-if(ch)
- timeout=time(NULL);
-if(ch==3) { /* Ctrl-C Abort */
- sys_status|=SS_ABORT;
- if(mode&K_SPIN) /* back space once if on spinning cursor */
- bputs("\b \b");
- return(0); }
-if(ch==26 && action!=NODE_PCHT) { /* Ctrl-Z toggle raw input mode */
- if(mode&K_SPIN)
- bputs("\b ");
- SAVELINE;
- attr(LIGHTGRAY);
- CRLF;
- bputs(text[RawMsgInputModeIsNow]);
- if(console&CON_RAW_IN)
- bputs(text[OFF]);
- else
- bputs(text[ON]);
- console^=CON_RAW_IN;
- CRLF;
- CRLF;
- RESTORELINE;
- lncntr=0;
- if(action!=NODE_MAIN && action!=NODE_XFER)
- return(26);
- return(0); }
-if(console&CON_RAW_IN) { /* ignore ctrl-key commands if in raw mode */
- if(!ch && (!(mode&K_GETSTR) || mode&K_LOWPRIO || node_misc&NM_LOWPRIO))
- mswait(0);
- return(ch);
-}
-if(ch<SP) { /* Control chars */
- if(ch==LF) /* ignore LF's in not in raw mode */
- return(0);
- if(ch==15) { /* Ctrl-O toggles pause temporarily */
- useron.misc^=UPAUSE;
- return(0); }
- if(ch==0x10) { /* Ctrl-P Private node-node comm */
- if(!(sys_status&SS_USERON))
- return(0); /* keep from being recursive */
- if(mode&K_SPIN)
- bputs("\b ");
- if(sys_status&SS_SPLITP) {
- if((scrnbuf=MALLOC((24L*80L)*2L))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,(24L*80L)*2L);
- return(CR); }
- gettext(1,1,80,24,scrnbuf);
- x=lclwx();
- y=lclwy();
- CLS; }
- else {
- SAVELINE;
- attr(LIGHTGRAY);
- CRLF; }
- nodesync(); /* read any waiting messages */
- nodemsg(); /* send a message */
- SYNC;
- if(sys_status&SS_SPLITP) {
- lncntr=0;
- CLS;
- for(i=0;i<((24*80)-1)*2;i+=2) {
- if(scrnbuf[i+1]!=curatr)
- attr(scrnbuf[i+1]);
- outchar(scrnbuf[i]); }
- FREE(scrnbuf);
- GOTOXY(x,y); }
- else {
- CRLF;
- RESTORELINE; }
- lncntr=0;
- return(0); }
-
- if(ch==21) { /* Ctrl-U Users online */
- if(!(sys_status&SS_USERON))
- return(0);
- if(mode&K_SPIN)
- bputs("\b ");
- if(sys_status&SS_SPLITP) {
- if((scrnbuf=MALLOC((24L*80L)*2L))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,(24L*80L)*2L);
- return(CR); }
- gettext(1,1,80,24,scrnbuf);
- x=lclwx();
- y=lclwy();
- CLS; }
- else {
- SAVELINE;
- attr(LIGHTGRAY);
- CRLF; }
- whos_online(1); /* list users */
- ASYNC;
- if(sys_status&SS_SPLITP) {
- CRLF;
- nodesync();
- pause();
- CLS;
- for(i=0;i<((24*80)-1)*2;i+=2) {
- if(scrnbuf[i+1]!=curatr)
- attr(scrnbuf[i+1]);
- outchar(scrnbuf[i]); }
- FREE(scrnbuf);
- GOTOXY(x,y); }
- else {
- CRLF;
- RESTORELINE; }
- lncntr=0;
- return(0); }
- if(ch==20 && !(sys_status&SS_SPLITP)) { /* Ctrl-T Time information */
- if(!(sys_status&SS_USERON))
- return(0);
- if(mode&K_SPIN)
- bputs("\b ");
- SAVELINE;
- attr(LIGHTGRAY);
- now=time(NULL);
- bprintf(text[TiLogon],timestr(&logontime));
- bprintf(text[TiNow],timestr(&now));
- bprintf(text[TiTimeon]
- ,sectostr(now-logontime,tmp));
- bprintf(text[TiTimeLeft]
- ,sectostr(timeleft,tmp));
- SYNC;
- RESTORELINE;
- lncntr=0;
- return(0); }
- if(ch==11 && !(sys_status&SS_SPLITP)) { /* Ctrl-k Control key menu */
- if(!(sys_status&SS_USERON))
- return(0);
- if(mode&K_SPIN)
- bputs("\b ");
- SAVELINE;
- attr(LIGHTGRAY);
- lncntr=0;
- bputs(text[ControlKeyMenu]);
- ASYNC;
- RESTORELINE;
- lncntr=0;
- return(0); }
-
- if(ch==ESC && console&CON_R_INPUT) {
- for(i=0;i<20 && !rioctl(RXBC);i++)
- mswait(1);
- if(i==20)
- return(ESC);
- ch=incom();
- if(ch!='[') {
- ungetkey(ESC);
- ungetkey(ch);
- return(0); }
- i=j=0;
- autoterm|=ANSI; /* <ESC>[x means they have ANSI */
- if(!(useron.misc&ANSI) && useron.misc&AUTOTERM && sys_status&SS_USERON
- && useron.number) {
- useron.misc|=ANSI;
- putuserrec(useron.number,U_MISC,8,ultoa(useron.misc,str,16)); }
- while(i<10 && j<30) { /* up to 3 seconds */
- if(rioctl(RXBC)) {
- ch=incom();
- if(ch!=';' && !isdigit(ch) && ch!='R') { /* other ANSI */
- switch(ch) {
- case 'A':
- return(0x1e); /* ctrl-^ (up arrow) */
- case 'B':
- return(LF); /* ctrl-j (dn arrow) */
- case 'C':
- return(0x6); /* ctrl-f (rt arrow) */
- case 'D':
- return(0x1d); /* ctrl-] (lf arrow) */
- case 'H':
- return(0x2); /* ctrl-b (beg line) */
- case 'K':
- return(0x5); /* ctrl-e (end line) */
- }
- ungetkey(ESC);
- ungetkey('[');
- for(j=0;j<i;j++)
- ungetkey(str[j]);
- ungetkey(ch);
- return(0); }
- if(ch=='R') { /* cursor position report */
- if(i && !(useron.rows)) { /* auto-detect rows */
- str[i]=0;
- rows=atoi(str);
- if(rows<5 || rows>99) rows=24; }
- return(0); }
- str[i++]=ch; }
- else {
- mswait(100);
- j++; } }
-
- ungetkey(ESC); /* should only get here if time-out */
- ungetkey('[');
- for(j=0;j<i;j++)
- ungetkey(str[j]);
- return(0); }
-
- } /* end of control chars */
-
-if(!ch && (!(mode&K_GETSTR) || mode&K_LOWPRIO || node_misc&NM_LOWPRIO))
- mswait(0);
-return(ch);
-}
-
diff --git a/src/sbbs2/con_mid.c b/src/sbbs2/con_mid.c
deleted file mode 100644
index 1925c4d173685f6db3e8d6b59783d61d3e0d9aa6..0000000000000000000000000000000000000000
--- a/src/sbbs2/con_mid.c
+++ /dev/null
@@ -1,813 +0,0 @@
-#line 1 "CON_MID.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-extern char *wday[]; /* 3 char days of week */
-
-/****************************************************************************/
-/* Waits for remote or local user to hit a key. Inactivity timer is checked */
-/* and hangs up if inactive for 4 minutes. Returns key hit, or uppercase of */
-/* key hit if mode&K_UPPER or key out of KEY BUFFER. Does not print key. */
-/* Called from functions all over the place. */
-/****************************************************************************/
-char getkey(long mode)
-{
- char ch,coldkey,c=0,spin=random(5);
-
-if(!online)
- return(0);
-sys_status&=~SS_ABORT;
-if((sys_status&SS_USERON || action==NODE_DFLT) && !(mode&K_GETSTR))
- mode|=(useron.misc&SPIN);
-lncntr=0;
-timeout=time(NULL);
-if(mode&K_SPIN)
- outchar(' ');
-do {
- checkline(); /* check to make sure remote user is still online */
- if(online==ON_REMOTE && console&CON_R_INPUT && rioctl(IOSTATE)&ABORT) {
- rioctl(IOCS|ABORT);
- sys_status|=SS_ABORT;
- if(mode&K_SPIN) /* back space once if on spinning cursor */
- bputs("\b \b");
- return(0); }
- if(sys_status&SS_SYSPAGE)
- beep(random(800),100);
- if(mode&K_SPIN)
- switch(spin) {
- case 0:
- switch(c++) {
- case 0:
- outchar(BS);
- outchar('�');
- break;
- case 10:
- outchar(BS);
- outchar('/');
- break;
- case 20:
- outchar(BS);
- outchar('�');
- break;
- case 30:
- outchar(BS);
- outchar('\\');
- break;
- case 40:
- c=0;
- break;
- default:
- if(!inDV && !(node_misc&NM_WINOS2))
- mswait(DELAY_SPIN);
- break; }
- break;
- case 1:
- switch(c++) {
- case 0:
- outchar(BS);
- outchar('�');
- break;
- case 10:
- outchar(BS);
- outchar('�');
- break;
- case 20:
- outchar(BS);
- outchar('�');
- break;
- case 30:
- outchar(BS);
- outchar('�');
- break;
- case 40:
- outchar(BS);
- outchar('�');
- break;
- case 50:
- outchar(BS);
- outchar('�');
- break;
- case 60:
- c=0;
- break;
- default:
- if(!inDV && !(node_misc&NM_WINOS2))
- mswait(DELAY_SPIN);
- break; }
- break;
- case 2:
- switch(c++) {
- case 0:
- outchar(BS);
- outchar('-');
- break;
- case 10:
- outchar(BS);
- outchar('=');
- break;
- case 20:
- outchar(BS);
- outchar('�');
- break;
- case 30:
- outchar(BS);
- outchar('=');
- break;
- case 40:
- c=0;
- break;
- default:
- if(!inDV && !(node_misc&NM_WINOS2))
- mswait(DELAY_SPIN);
- break; }
- break;
- case 3:
- switch(c++) {
- case 0:
- outchar(BS);
- outchar('�');
- break;
- case 10:
- outchar(BS);
- outchar('�');
- break;
- case 20:
- outchar(BS);
- outchar('�');
- break;
- case 30:
- outchar(BS);
- outchar('�');
- break;
- case 40:
- c=0;
- break;
- default:
- if(!inDV && !(node_misc&NM_WINOS2))
- mswait(DELAY_SPIN);
- break; }
- break;
- case 4:
- switch(c++) {
- case 0:
- outchar(BS);
- outchar('�');
- break;
- case 10:
- outchar(BS);
- outchar('�');
- break;
- case 20:
- outchar(BS);
- outchar('�');
- break;
- case 30:
- outchar(BS);
- outchar('�');
- break;
- case 40:
- c=0;
- break;
- default:
- if(!inDV && !(node_misc&NM_WINOS2))
- mswait(DELAY_SPIN);
- break; }
- break; }
- if(keybuftop!=keybufbot) {
- ch=keybuf[keybufbot++];
- if(keybufbot==KEY_BUFSIZE)
- keybufbot=0; }
- else
- ch=inkey(mode);
- if(sys_status&SS_ABORT)
- return(0);
- now=time(NULL);
- if(ch) {
- if(mode&K_NUMBER && isprint(ch) && !isdigit(ch))
- continue;
- if(mode&K_ALPHA && isprint(ch) && !isalpha(ch))
- continue;
- if(mode&K_NOEXASC && ch&0x80)
- continue;
- if(mode&K_SPIN)
- bputs("\b \b");
- if(mode&K_COLD && ch>SP && useron.misc&COLDKEYS) {
- if(mode&K_UPPER)
- outchar(toupper(ch));
- else
- outchar(ch);
- while((coldkey=inkey(mode))==0 && online && !(sys_status&SS_ABORT))
- checkline();
- bputs("\b \b");
- if(coldkey==BS)
- continue;
- if(coldkey>SP)
- ungetkey(coldkey); }
- if(mode&K_UPPER)
- return(toupper(ch));
- return(ch); }
- if(sys_status&SS_USERON && !(sys_status&SS_LCHAT)) gettimeleft();
- else if(online &&
- ((node_dollars_per_call && now-answertime>SEC_BILLING)
- || (now-answertime>SEC_LOGON && !(sys_status&SS_LCHAT)))) {
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- console|=(CON_R_ECHO|CON_L_ECHO);
- bputs(text[TakenTooLongToLogon]);
- hangup(); }
- if(sys_status&SS_USERON && online && (timeleft/60)<(5-timeleft_warn)
- && !SYSOP && !(sys_status&SS_LCHAT)) {
- timeleft_warn=5-(timeleft/60);
- SAVELINE;
- attr(LIGHTGRAY);
- bprintf(text[OnlyXminutesLeft]
- ,((ushort)timeleft/60)+1,(timeleft/60) ? "s" : nulstr);
- RESTORELINE; }
-
- if(online==ON_LOCAL && node_misc&NM_NO_INACT)
- timeout=now;
- if(now-timeout>=sec_warn) { /* warning */
- if(sys_status&SS_USERON) {
- SAVELINE;
- bputs(text[AreYouThere]); }
- else
- bputs("\7\7");
- while(!inkey(0) && online && now-timeout>=sec_warn) {
- now=time(NULL);
- if(now-timeout>=sec_hangup) {
- if(online==ON_REMOTE) {
- console|=CON_R_ECHO;
- console&=~CON_R_ECHOX; }
- bputs(text[CallBackWhenYoureThere]);
- logline(nulstr,"Inactive");
- hangup();
- return(0); }
- mswait(100); }
- if(sys_status&SS_USERON) {
- bputs("\r\1n\1>");
- RESTORELINE; }
- timeout=now; }
-
- } while(online);
-return(0);
-}
-
-/****************************************************************************/
-/* This function lists users that are online. */
-/* If listself is true, it will list the current node. */
-/* Returns number of active nodes (not including current node). */
-/****************************************************************************/
-int whos_online(char listself)
-{
- int i,j;
- node_t node;
-
-CRLF;
-bputs(text[NodeLstHdr]);
-for(j=0,i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
- getnodedat(i,&node,0);
- if(i==node_num) {
- if(listself)
- printnodedat(i,node);
- continue; }
- if(node.status==NODE_INUSE || (SYSOP && node.status==NODE_QUIET)) {
- printnodedat(i,node);
- if(!lastnodemsg)
- lastnodemsg=i;
- j++; } }
-if(!j)
- bputs(text[NoOtherActiveNodes]);
-return(j);
-}
-
-/****************************************************************************/
-/* Displays the information for node number 'number' contained in 'node' */
-/****************************************************************************/
-void printnodedat(uint number, node_t node)
-{
- uint i;
- char hour,mer[3];
-
-attr(color[clr_nodenum]);
-bprintf("%3d ",number);
-attr(color[clr_nodestatus]);
-switch(node.status) {
- case NODE_WFC:
- bputs("Waiting for call");
- break;
- case NODE_OFFLINE:
- bputs("Offline");
- break;
- case NODE_NETTING:
- bputs("Networking");
- break;
- case NODE_LOGON:
- bputs("At logon prompt");
- break;
- case NODE_EVENT_WAITING:
- bputs("Waiting for all nodes to become inactive");
- break;
- case NODE_EVENT_LIMBO:
- bprintf("Waiting for node %d to finish external event",node.aux);
- break;
- case NODE_EVENT_RUNNING:
- bputs("Running external event");
- break;
- case NODE_NEWUSER:
- attr(color[clr_nodeuser]);
- bputs("New user");
- attr(color[clr_nodestatus]);
- bputs(" applying for access ");
- if(!node.connection)
- bputs("Locally");
- else
- bprintf("at %ubps",node.connection);
- break;
- case NODE_QUIET:
- if(!SYSOP) {
- bputs("Waiting for call");
- break; }
- case NODE_INUSE:
- if(node.misc&NODE_EXT) {
- getnodeext(number,tmp);
- bputs(tmp);
- break; }
- attr(color[clr_nodeuser]);
- if(node.misc&NODE_ANON && !SYSOP)
- bputs("UNKNOWN USER");
- else
- bputs(username(node.useron,tmp));
- attr(color[clr_nodestatus]);
- bputs(" ");
- switch(node.action) {
- case NODE_MAIN:
- bputs("at main menu");
- break;
- case NODE_RMSG:
- bputs("reading messages");
- break;
- case NODE_RMAL:
- bputs("reading mail");
- break;
- case NODE_RSML:
- bputs("reading sent mail");
- break;
- case NODE_RTXT:
- bputs("reading text files");
- break;
- case NODE_PMSG:
- bputs("posting message");
- break;
- case NODE_SMAL:
- bputs("sending mail");
- break;
- case NODE_AMSG:
- bputs("posting auto-message");
- break;
- case NODE_XTRN:
- if(!node.aux)
- bputs("at external program menu");
- else {
- bputs("running ");
- i=node.aux-1;
- if(SYSOP || chk_ar(xtrn[i]->ar,useron))
- bputs(xtrn[node.aux-1]->name);
- else
- bputs("external program"); }
- break;
- case NODE_DFLT:
- bputs("changing defaults");
- break;
- case NODE_XFER:
- bputs("at transfer menu");
- break;
- case NODE_RFSD:
- bprintf("retrieving from device #%d",node.aux);
- break;
- case NODE_DLNG:
- bprintf("downloading");
- break;
- case NODE_ULNG:
- bputs("uploading");
- break;
- case NODE_BXFR:
- bputs("transferring bidirectional");
- break;
- case NODE_LFIL:
- bputs("listing files");
- break;
- case NODE_LOGN:
- bputs("logging on");
- break;
- case NODE_LCHT:
- bprintf("in local chat with %s",sys_op);
- break;
- case NODE_MCHT:
- if(node.aux) {
- bprintf("in multinode chat channel %d",node.aux&0xff);
- if(node.aux&0x1f00) { /* password */
- outchar('*');
- if(SYSOP)
- bprintf(" %s",unpackchatpass(tmp,node)); } }
- else
- bputs("in multinode global chat channel");
- break;
- case NODE_PAGE:
- bprintf("paging node %u for private chat",node.aux);
- break;
- case NODE_PCHT:
- bprintf("in private chat with node %u",node.aux);
- break;
- case NODE_GCHT:
- i=node.aux;
- if(i>=total_gurus)
- i=0;
- bprintf("chatting with %s",guru[i]->name);
- break;
- case NODE_CHAT:
- bputs("in chat section");
- break;
- case NODE_TQWK:
- bputs("transferring QWK packet");
- break;
- case NODE_SYSP:
- bputs("performing sysop activities");
- break;
- default:
- bputs(itoa(node.action,tmp,10));
- break; }
- if(!node.connection)
- bputs(" locally");
- else
- bprintf(" at %ubps",node.connection);
- if(node.action==NODE_DLNG) {
- if(sys_misc&SM_MILITARY) {
- hour=node.aux/60;
- mer[0]=0; }
- else if((node.aux/60)>=12) {
- if(node.aux/60==12)
- hour=12;
- else
- hour=(node.aux/60)-12;
- strcpy(mer,"pm"); }
- else {
- if((node.aux/60)==0) /* 12 midnite */
- hour=12;
- else hour=node.aux/60;
- strcpy(mer,"am"); }
- bprintf(" ETA %02d:%02d %s"
- ,hour,node.aux%60,mer); }
- break; }
-i=NODE_LOCK;
-if(node.status==NODE_INUSE || SYSOP)
- i|=NODE_POFF|NODE_AOFF|NODE_MSGW|NODE_NMSG;
-if(node.misc&i) {
- bputs(" (");
- if(node.misc&(i&NODE_AOFF))
- outchar('A');
- if(node.misc&NODE_LOCK)
- outchar('L');
- if(node.misc&(i&(NODE_MSGW|NODE_NMSG)))
- outchar('M');
- if(node.misc&(i&NODE_POFF))
- outchar('P');
- outchar(')'); }
-if(SYSOP && ((node.misc
- &(NODE_ANON|NODE_UDAT|NODE_INTR|NODE_RRUN|NODE_EVENT|NODE_DOWN))
- || node.status==NODE_QUIET)) {
- bputs(" [");
- if(node.misc&NODE_ANON)
- outchar('A');
- if(node.misc&NODE_INTR)
- outchar('I');
- if(node.misc&NODE_RRUN)
- outchar('R');
- if(node.misc&NODE_UDAT)
- outchar('U');
- if(node.status==NODE_QUIET)
- outchar('Q');
- if(node.misc&NODE_EVENT)
- outchar('E');
- if(node.misc&NODE_DOWN)
- outchar('D');
- outchar(']'); }
-if(node.errors && SYSOP) {
- attr(color[clr_err]);
- bprintf(" %d error%c",node.errors, node.errors>1 ? 's' : '\0' ); }
-attr(LIGHTGRAY);
-CRLF;
-}
-
-/****************************************************************************/
-/* Prints/updates the local status line (line #25) with the user/system */
-/* information. Which info depends on value of statline. */
-/* Called from several functions */
-/****************************************************************************/
-void statusline()
-{
- int row,col,atr;
- char tmp1[128],tmp2[256],tmp3[256],age;
-
-#ifndef __OS2__
-if(lclaes())
- return;
-#endif
-col=lclwx();
-row=lclwy();
-STATUSLINE;
-lclxy(1,node_scrnlen);
-age=getage(useron.birth);
-if(sys_status&(SS_CAP|SS_TMPSYSOP)) {
- atr=lclatr((LIGHTGRAY<<4)|BLINK);
- sys_status&SS_CAP ? lputc('C') : lputc(SP);
- sys_status&SS_TMPSYSOP ? lputc('*') : lputc(SP);
- lclatr(LIGHTGRAY<<4); }
-else {
- atr=lclatr(LIGHTGRAY<<4);
- lputs(" "); }
-switch(statline) {
- case -1:
- lputs("Terminal: Alt-X Exit Alt-D DOS Alt-H Hangup "
- "Alt-L Logon Alt-U User Edit");
- break;
- case 0: /* Alias ML Password Modem Birthday Age Sex Phone */
- lprintf("%-24.24s %02d %-8.8s %-8.8s %-8.8s %02d %c %s"
- ,useron.alias,useron.level,sys_misc&SM_ECHO_PW ? useron.pass:"XXXX"
- ,useron.modem,useron.birth,age,useron.sex,useron.phone);
- break;
- case 1: /* Alias ML RealName Alt-Z for Help */
- lprintf("%-24.24s %02d %-25.25s "
- ,useron.alias,useron.level,useron.name);
- lputs("Alt-Z for Help");
- break;
- case 2: /* Alias ML RealName Age Sex Phone */
- lprintf("%-24.24s %02d %-25.25s %02d %c %s"
- ,useron.alias,useron.level,useron.name,age,useron.sex,useron.phone);
- break;
- case 3: /* Alias ML Location Phone */
- lprintf("%-24.24s %02d %-30.30s %s"
- ,useron.alias,useron.level,useron.location,useron.phone);
- break;
- case 4: /* Alias ML Note Phone */
- lprintf("%-24.24s %02d %-30.30s %s"
- ,useron.alias,useron.level,useron.note,useron.phone);
- break;
- case 5: /* Alias ML MF Age Sex Phone */
- lprintf("%-24.24s %02d %-26.26s %02d %c %s"
- ,useron.alias,useron.level,ltoaf(useron.flags1,tmp1)
- ,age,useron.sex,useron.phone);
- break;
- case 6: /* Alias ML MF Expiration */
- lprintf("%-24.24s %02d %-26.26s Exp: %s"
- ,useron.alias,useron.level,ltoaf(useron.flags1,tmp1)
- ,unixtodstr(useron.expire,tmp2));
- break;
- case 7: /* Alias ML Firston Laston Expire */
- lprintf("%-24.24s %02d First: %s Last: %s Exp: %s"
- ,useron.alias,useron.level,unixtodstr(useron.firston,tmp1)
- ,unixtodstr(useron.laston,tmp2),unixtodstr(useron.expire,tmp3));
- break;
- case 8: /* Alias Credits Minutes Expire */
- lprintf("%-24.24s Cdt: %-13.13s Min: %-10luExp: %s"
- ,useron.alias,ultoac(useron.cdt,tmp1),useron.min
- ,unixtodstr(useron.expire,tmp2));
- break;
- case 9: /* Exemptions Restrictions */
- lprintf(" Exempt:%-26.26s Restrict:%s"
- ,ltoaf(useron.exempt,tmp1),ltoaf(useron.rest,tmp2));
- break;
- case 10: /* Computer Modem Handle*/
- lprintf("Comp: %-30.30s Modem: %-8.8s Handle: %s"
- ,useron.comp,connection,useron.handle);
- break;
- case 11: /* StreetAddress Location Zip */
- lprintf("%-30.30s %-30.30s %s"
- ,useron.address,useron.location,useron.zipcode);
- break;
- case 12: /* UploadBytes Uploads DownloadBytes Downloads Leeches */
- lprintf("Uloads: %-13.13s / %-5u Dloads: %-13.13s / %-5u Leech: %u"
- ,ultoac(useron.ulb,tmp1),useron.uls
- ,ultoac(useron.dlb,tmp2),useron.dls,useron.leech);
- break;
- case 13: /* Posts Emails Fbacks Waiting Logons Timeon */
- lprintf("P: %-5u E: %-5u F: %-5u W: %-5u L: %-5u T: %-5u"
- ,useron.posts,useron.emails,useron.fbacks,getmail(useron.number,0)
- ,useron.logons,useron.timeon);
- break;
- case 14: /* NetMail forwarding address */
- lprintf("NetMail: %s",useron.netmail);
- break;
- case 15: /* Comment */
- lprintf("Comment: %s",useron.comment);
- break;
- }
-lputc(CLREOL);
-lclxy(75,lclwy());
-getnodedat(node_num,&thisnode,0);
-if(sys_status&SS_SYSALERT
- || thisnode.misc&(NODE_RRUN|NODE_DOWN|NODE_LOCK|NODE_EVENT)) {
- lclatr((LIGHTGRAY<<4)|BLINK);
- sys_status&SS_SYSALERT ? lputc('A'):lputc(SP);
- thisnode.misc&NODE_RRUN ? lputc('R'):lputc(SP);
- thisnode.misc&NODE_DOWN ? lputc('D'):lputc(SP);
- thisnode.misc&NODE_LOCK ? lputc('L'):lputc(SP);
- thisnode.misc&NODE_EVENT ? lputc('E'):lputc(SP); }
-TEXTWINDOW;
-lclxy(col,row);
-lclatr(atr);
-}
-
-/****************************************************************************/
-/* Prints PAUSE message and waits for a key stoke */
-/****************************************************************************/
-void pause()
-{
- char ch;
- uchar tempattrs=curatr; /* was lclatr(-1) */
- int i,j;
- long l=K_UPPER;
-
-RIOSYNC(0);
-if(sys_status&SS_ABORT)
- return;
-lncntr=0;
-if(online==ON_REMOTE)
- rioctl(IOFI);
-bputs(text[Pause]);
-j=bstrlen(text[Pause]);
-if(sys_status&SS_USERON && !(useron.misc&NO_EXASCII) && !(useron.misc&WIP))
- l|=K_SPIN;
-
-ch=getkey(l);
-if(ch==text[YN][1] || ch=='Q')
- sys_status|=SS_ABORT;
-else if(ch==LF)
- lncntr=rows-2; /* down arrow == display one more line */
-if(text[Pause][0]!='@')
- for(i=0;i<j;i++)
- bputs("\b \b");
-getnodedat(node_num,&thisnode,0);
-nodesync();
-attr(tempattrs);
-}
-
-void getlines()
-{
-if(useron.misc&ANSI && !useron.rows /* Auto-detect rows */
- && online==ON_REMOTE) { /* Remote */
- SYNC;
- putcom("\x1b[s\x1b[99B\x1b[6n\x1b[u");
- while(online && !rioctl(RXBC) && !lkbrd(1))
- checkline();
- inkey(0); }
-
-}
-
-
-/****************************************************************************/
-/* Prints a file remotely and locally, interpreting ^A sequences, checks */
-/* for pauses, aborts and ANSI. 'str' is the path of the file to print */
-/* Called from functions menu and text_sec */
-/****************************************************************************/
-void printfile(char *str, int mode)
-{
- char HUGE16 *buf;
- int file,wip=0,rip=0;
- long length,savcon=console;
- FILE *stream;
-
-if(strstr(str,".WIP"))
- wip=1;
-if(strstr(str,".RIP"))
- rip=1;
-
-if(mode&P_NOABORT || wip || rip) {
- if(online==ON_REMOTE && console&CON_R_ECHO) {
- rioctl(IOCM|ABORT);
- rioctl(IOCS|ABORT); }
- sys_status&=~SS_ABORT; }
-
-if(!tos && !wip && !rip)
- CRLF;
-
-if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- bputs(text[FileNotFound]);
- if(SYSOP) bputs(str);
- CRLF;
- return; }
-
-if(wip || rip || !(console&CON_L_ECHO)) {
- if(online!=ON_REMOTE || !(console&CON_R_ECHO)) {
- fclose(stream);
- return; }
- console&=~CON_L_ECHO;
- lprintf("PRINTFILE (Remote Only): %s\r\n",str); }
-if(mode&P_OPENCLOSE) {
- length=filelength(file);
- if((buf=MALLOC(length+1L))==NULL) {
- close(file);
- console=savcon;
- errormsg(WHERE,ERR_ALLOC,str,length+1L);
- return; }
- buf[lread(file,buf,length)]=0;
- fclose(stream);
- putmsg(buf,mode);
- FREE((char *)buf); }
-else {
- putmsg_fp(stream,filelength(file),mode);
- fclose(stream); }
-if((mode&P_NOABORT || wip || rip) && online==ON_REMOTE) {
- SYNC;
- rioctl(IOSM|ABORT); }
-if(rip)
- getlines();
-console=savcon;
-}
-
-void printtail(char *str, int lines, int mode)
-{
- char HUGE16 *buf,HUGE16 *p;
- int file,cur=0;
- ulong length,l;
-
-if(mode&P_NOABORT) {
- if(online==ON_REMOTE) {
- rioctl(IOCM|ABORT);
- rioctl(IOCS|ABORT); }
- sys_status&=~SS_ABORT; }
-strupr(str);
-if(!tos) {
- CRLF; }
-if((file=nopen(str,O_RDONLY))==-1) {
- bputs(text[FileNotFound]);
- if(SYSOP) bputs(str);
- CRLF;
- return; }
-length=filelength(file);
-if((buf=MALLOC(length+1L))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length+1L);
- return; }
-l=lread(file,buf,length);
-buf[l]=0;
-close(file);
-p=(buf+l)-1;
-if(*p==LF) p--;
-while(*p && p>buf) {
- if(*p==LF)
- cur++;
- if(cur>=lines) {
- p++;
- break; }
- p--; }
-putmsg(p,mode);
-if(mode&P_NOABORT && online==ON_REMOTE) {
- SYNC;
- rioctl(IOSM|ABORT); }
-FREE((char *)buf);
-}
-
-/****************************************************************************/
-/* Prints the menu number 'menunum' from the text directory. Checks for ^A */
-/* ,ANSI sequences, pauses and aborts. Usually accessed by user inputing '?'*/
-/* Called from every function that has an available menu. */
-/* The code definitions are as follows: */
-/****************************************************************************/
-void menu(char *code)
-{
- char str[256],path[256];
- int c,i,l;
-
-sys_status&=~SS_ABORT;
-if(menu_file[0])
- strcpy(path,menu_file);
-else {
- sprintf(str,"%sMENU\\",text_dir);
- if(menu_dir[0]) {
- strcat(str,menu_dir);
- strcat(str,"\\"); }
- strcat(str,code);
- strcat(str,".");
- sprintf(path,"%s%s",str,useron.misc&WIP ? "WIP":"RIP");
- if(!(useron.misc&(RIP|WIP)) || !fexist(path)) {
- sprintf(path,"%sMON",str);
- if((useron.misc&(COLOR|ANSI))!=ANSI || !fexist(path)) {
- sprintf(path,"%sANS",str);
- if(!(useron.misc&ANSI) || !fexist(path))
- sprintf(path,"%sASC",str); } } }
-
-printfile(path,P_OPENCLOSE);
-}
-
-/****************************************************************************/
-/* Puts a character into the input buffer */
-/****************************************************************************/
-void ungetkey(char ch)
-{
-
-keybuf[keybuftop++]=ch;
-if(keybuftop==KEY_BUFSIZE)
- keybuftop=0;
-}
-
diff --git a/src/sbbs2/con_out.c b/src/sbbs2/con_out.c
deleted file mode 100644
index 6384088dd9635331b83e15178a9efd491ff76aab..0000000000000000000000000000000000000000
--- a/src/sbbs2/con_out.c
+++ /dev/null
@@ -1,1043 +0,0 @@
-#line 1 "CON_OUT.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/**********************************************************************/
-/* Functions that pertain to console i/o - color, strings, chars etc. */
-/* Called from functions everywhere */
-/**********************************************************************/
-
-#include "sbbs.h"
-
-extern char *mnestr;
-
-/***************************************************/
-/* Seven bit table for EXASCII to ASCII conversion */
-/***************************************************/
-char *sbtbl="CUeaaaaceeeiiiAAEaAooouuyOUcLYRfaiounNao?--24!<>"
- "###||||++||++++++--|-+||++--|-+----++++++++##[]#"
- "abrpEout*ono%0ENE+><rj%=o..+n2* ";
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-
-uchar outchar_esc=0;
-
-#ifdef __WIN32__
-
-int lclatr(int atr)
-{
-
-textattr(atr);
-return(curatr);
-}
-
-void lputc(ch)
-{
-switch(ch) {
- case CLREOL:
- clreol();
- break;
- case FF:
- clrscr();
- break;
- case TAB:
- if(!(wherex()%8))
- putchar(SP);
- while(wherex()%8)
- putchar(SP);
- break;
- default:
- putchar(ch);
- break; }
-}
-
-#endif
-
-#ifdef __OS2__
-
-HEV con_out_sem; /* Console command semaphore */
-
-#define CON_OUT_BUFLEN 8192 /* Console output (ANSI) buffer */
-#define CON_BLK_BUFLEN 4096 /* Console block (all same atr) buffer */
-
-uchar conoutbuf[CON_OUT_BUFLEN];
-uchar conblkbuf[CON_BLK_BUFLEN];
-volatile uint conblkcnt=0;
-volatile uint conoutbot=0;
-volatile uint conouttop=0;
-
-uchar lcl_curatr=LIGHTGRAY;
-
-/****************************************************************************/
-/* Prints one block of text (all same attribute) at current cursor position */
-/****************************************************************************/
-void print_conblkbuf()
-{
-conblkbuf[conblkcnt]=0;
-cputs(conblkbuf);
-conblkcnt=0;
-}
-
-void con_outch(int ch)
-{
- static uchar ansi_esc;
- static uchar ansi_curval;
- static uchar ansi_val[3];
- static uchar ansi_x;
- static uchar ansi_y;
- int x,y;
-
-if(ch==ESC) {
- ansi_esc=1;
- ansi_val[0]=ansi_val[1]=ansi_val[2]=ansi_curval=0;
- return; }
-
-if(ansi_esc==1) { /* Received ESC already */
- if(ch=='[') {
- ansi_esc++;
- return; }
- ansi_esc=ansi_val[0]=ansi_val[1]=ansi_val[2]=ansi_curval=0; }
-
-if(ansi_esc==2) { /* Received ESC[ already */
-
- if(isdigit(ch)) {
- if(ansi_curval>2) ansi_curval=0;
- ansi_val[ansi_curval]*=10;
- ansi_val[ansi_curval]+=ch&0xf;
- return; }
-
- if(ch==';') {
- ansi_curval++;
- return; }
-
- /* looks like valid ANSI, so purge the output block */
- if(conblkcnt)
- print_conblkbuf();
- switch(ch) {
- case 'A': // Move cursor up
- y=wherey();
- if(ansi_val[0])
- y-=ansi_val[0];
- else
- y--;
- if(y<1) y=1;
- gotoxy(wherex(),y);
- break;
- case 'B': // Move cursor down
- y=wherey();
- if(ansi_val[0])
- y+=ansi_val[0];
- else
- y++;
- if(y>node_scrnlen) y=node_scrnlen;
- gotoxy(wherex(),y);
- break;
- case 'C': // Move cursor right
- x=wherex();
- if(ansi_val[0])
- x+=ansi_val[0];
- else
- x++;
- if(x>80) x=80;
- gotoxy(x,wherey());
- break;
- case 'D': // Move cursor left
- x=wherex();
- if(ansi_val[0])
- x-=ansi_val[0];
- else
- x--;
- if(x<1) x=1;
- gotoxy(x,wherey());
- break;
- case 'J': // clear screen
- if(ansi_val[0]==2)
- clrscr();
- break;
- case 'K': // clearn from cursor to end of line
- clreol();
- break;
- case 'H': // Position cursor
- case 'f':
- y=ansi_val[0];
- x=ansi_val[1];
- if(x<1) x=1;
- if(x>80) x=80;
- if(y<1) y=1;
- if(y>node_scrnlen) y=node_scrnlen;
- gotoxy(x,y);
- break;
- case 's': // Save cursor position
- ansi_x=wherex();
- ansi_y=wherey();
- break;
- case 'u': // Restore cursor position
- if(ansi_x)
- gotoxy(ansi_x,ansi_y);
- break;
- case 'm': // Select character attributes
- for(x=0;x<=ansi_curval;x++)
- switch(ansi_val[x]) {
- case 0: // no special attributes
- case 8: // concealed text (no display)
- lcl_curatr=LIGHTGRAY;
- break;
- case 1: // high intensity
- case 3: // italic
- case 4: // underline
- lcl_curatr|=HIGH;
- break;
- case 2: // low intensity
- lcl_curatr&=~HIGH;
- break;
- case 5: // blink
- case 6: // rapid blink
- case 7: // reverse video
- lcl_curatr|=BLINK;
- break;
- case 30: // foreground black
- lcl_curatr&=0xf8;
- lcl_curatr|=BLACK;
- break;
- case 31: // foreground red
- lcl_curatr&=0xf8;
- lcl_curatr|=RED;
- break;
- case 32: // foreground green
- lcl_curatr&=0xf8;
- lcl_curatr|=GREEN;
- break;
- case 33: // foreground yellow
- lcl_curatr&=0xf8;
- lcl_curatr|=BROWN;
- break;
- case 34: // foreground blue
- lcl_curatr&=0xf8;
- lcl_curatr|=BLUE;
- break;
- case 35: // foreground magenta
- lcl_curatr&=0xf8;
- lcl_curatr|=MAGENTA;
- break;
- case 36: // foreground cyan
- lcl_curatr&=0xf8;
- lcl_curatr|=CYAN;
- break;
- case 37: // foreground white
- lcl_curatr&=0xf8;
- lcl_curatr|=LIGHTGRAY;
- break;
- case 40: // background black
- lcl_curatr&=0x8f;
- lcl_curatr|=(BLACK<<4);
- break;
- case 41: // background red
- lcl_curatr&=0x8f;
- lcl_curatr|=(RED<<4);
- break;
- case 42: // background green
- lcl_curatr&=0x8f;
- lcl_curatr|=(GREEN<<4);
- break;
- case 43: // background yellow
- lcl_curatr&=0x8f;
- lcl_curatr|=(BROWN<<4);
- break;
- case 44: // background blue
- lcl_curatr&=0x8f;
- lcl_curatr|=(BLUE<<4);
- break;
- case 45: // background magenta
- lcl_curatr&=0x8f;
- lcl_curatr|=(MAGENTA<<4);
- break;
- case 46: // background cyan
- lcl_curatr&=0x8f;
- lcl_curatr|=(CYAN<<4);
- break;
- case 47: // background white
- lcl_curatr&=0x8f;
- lcl_curatr|=(LIGHTGRAY<<4);
- break; }
- textattr(lcl_curatr);
- break; }
-
- ansi_esc=ansi_val[0]=ansi_val[1]=ansi_val[2]=ansi_curval=0;
- return; }
-
-if(conblkcnt+1>=CON_BLK_BUFLEN)
- print_conblkbuf();
-switch(ch) {
- case CLREOL:
- if(conblkcnt) print_conblkbuf();
- clreol();
- break;
- case FF:
- if(conblkcnt) print_conblkbuf();
- clrscr();
- break;
- case TAB:
- if(conblkcnt) print_conblkbuf();
- if(!(wherex()%8))
- putch(SP);
- while(wherex()%8)
- putch(SP);
- break;
- default:
- conblkbuf[conblkcnt++]=ch;
- break; }
-}
-
-
-/****************************************************************************/
-/* Thread that services the console output buffer (conoutbuf) which */
-/* contains ANSI escape sequences */
-/* All output is for the text window (mirroring the remote console) */
-/****************************************************************************/
-void con_out_thread(void *unused)
-{
- int i,top,cnt;
- ulong l;
-
-while(1) {
- /* mswait(1); Removed 12/99 via Enigma */
- if(conoutbot==conouttop) {
- DosWaitEventSem(con_out_sem,10000); /* every 10 seconds */
- DosResetEventSem(con_out_sem,&l);
- continue; }
- top=conouttop;
- if(top<conoutbot)
- cnt=CON_OUT_BUFLEN-conoutbot;
- else
- cnt=top-conoutbot;
- for(i=conoutbot;i<conoutbot+cnt;i++)
- con_outch(conoutbuf[i]);
- conoutbot=i;
- if(conblkcnt)
- print_conblkbuf();
- if(conoutbot==CON_OUT_BUFLEN)
- conoutbot=0; }
-}
-
-
-
-void outcon(char ch)
-{
- int i=conouttop+1;
-
-if(i==CON_OUT_BUFLEN)
- i=0;
-while(conoutbot==i) // Wait for thread to service queue
- mswait(1);
-conoutbuf[conouttop++]=ch;
-if(conouttop==CON_OUT_BUFLEN)
- conouttop=0;
-DosPostEventSem(con_out_sem); // Enable output
-}
-
-int outcon_pending()
-{
-if(conoutbot!=conouttop)
- return(1);
-if(conblkcnt) {
- print_conblkbuf();
- return(1); }
-return(0);
-}
-
-int conaes()
-{
-return(outchar_esc==2);
-}
-
-void lputc(int ch)
-{
-
-while(outcon_pending())
- mswait(1);
-switch(ch) {
- case CLREOL:
- clreol();
- break;
- case FF:
- clrscr();
- break;
- case TAB:
- if(!(wherex()%8))
- putch(SP);
- while(wherex()%8)
- putch(SP);
- break;
- default:
- putch(ch);
- break; }
-}
-
-long lputs(char *str)
-{
-while(outcon_pending())
- mswait(1);
-return(cputs(str));
-}
-
-int lclwx(void)
-{
-while(outcon_pending())
- mswait(1);
-return(wherex());
-}
-
-int lclwy(void)
-{
-while(outcon_pending())
- mswait(1);
-return(wherey());
-}
-
-void lclxy(int x, int y)
-{
-while(outcon_pending())
- mswait(1);
-gotoxy(x,y);
-}
-
-int lclatr(int x)
-{
- int i;
-
-while(conoutbot!=conouttop) /* wait for output buf to empty */
- mswait(1);
-if(x==-1)
- return(lcl_curatr);
-
-textattr(x);
-i=lcl_curatr;
-lcl_curatr=x;
-return(i); /* Return previous attribute */
-}
-
-#endif
-
-/****************************************************************************/
-/* Outputs a NULL terminated string locally and remotely (if applicable) */
-/* Handles ctrl-a characters */
-/****************************************************************************/
-int bputs(char *str)
-{
- int i;
- ulong l=0;
-
-while(str[l]) {
- if(str[l]==1) { /* ctrl-a */
- ctrl_a(str[++l]); /* skip the ctrl-a */
- l++; /* skip the attribute code */
- continue; }
- if(str[l]=='@') { /* '@' */
- if(str==mnestr /* Mnemonic string or */
- || (str>=text[0] /* Straight out of TEXT.DAT */
- && str<=text[TOTAL_TEXT-1])) {
- i=atcodes(str+l); /* return 0 if not valid @ code */
- l+=i; /* i is length of code string */
- if(i) /* if valid string, go to top */
- continue; }
- for(i=0;i<TOTAL_TEXT;i++)
- if(str==text[i])
- break;
- if(i<TOTAL_TEXT) { /* Replacement text */
- //lputc(7);
- i=atcodes(str+l);
- l+=i;
- if(i)
- continue; } }
- outchar(str[l++]); }
-return(l);
-}
-
-/****************************************************************************/
-/* Outputs a NULL terminated string locally and remotely (if applicable) */
-/* Does not expand ctrl-a characters (raw) */
-/* Max length of str is 64 kbytes */
-/****************************************************************************/
-int rputs(char *str)
-{
- ulong l=0;
-
-while(str[l])
- outchar(str[l++]);
-return(l);
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* Performs printf() using bbs bputs function */
-/****************************************************************************/
-int bprintf(char *fmt, ...)
-{
- va_list argptr;
- char sbuf[1024];
-
-if(!strchr(fmt,'%'))
- return(bputs(fmt));
-va_start(argptr,fmt);
-vsprintf(sbuf,fmt,argptr);
-va_end(argptr);
-return(bputs(sbuf));
-}
-
-/****************************************************************************/
-/* Performs printf() using bbs rputs function */
-/****************************************************************************/
-int rprintf(char *fmt, ...)
-{
- va_list argptr;
- char sbuf[1024];
-
-va_start(argptr,fmt);
-vsprintf(sbuf,fmt,argptr);
-va_end(argptr);
-return(rputs(sbuf));
-}
-
-/****************************************************************************/
-/* Outputs character locally and remotely (if applicable), preforming echo */
-/* translations (X's and r0dent emulation) if applicable. */
-/****************************************************************************/
-void outchar(char ch)
-{
- char lch;
- int i;
-
-if(console&CON_ECHO_OFF)
- return;
-if(ch==ESC)
- outchar_esc=1;
-else if(outchar_esc==1) {
- if(ch=='[')
- outchar_esc++;
- else
- outchar_esc=0; }
-else
- outchar_esc=0;
-if(useron.misc&NO_EXASCII && ch&0x80)
- ch=sbtbl[(uchar)ch^0x80]; /* seven bit table */
-if(ch==FF && lncntr>1 && !tos) {
- lncntr=0;
- CRLF;
- pause();
- while(lncntr && online && !(sys_status&SS_ABORT))
- pause(); }
-if(sys_status&SS_CAP /* Writes to Capture File */
- && (sys_status&SS_ANSCAP || (ch!=ESC && !lclaes())))
- fwrite(&ch,1,1,capfile);
-if(console&CON_L_ECHO) {
- if(console&CON_L_ECHOX && (uchar)ch>=SP)
- outcon('X');
- else if(node_misc&NM_NOBEEP && ch==7); /* Do nothing if beep */
- else if(ch==7) {
- beep(2000,110);
- nosound(); }
- else outcon(ch); }
-if(online==ON_REMOTE && console&CON_R_ECHO) {
- if(console&CON_R_ECHOX && (uchar)ch>=SP)
- ch='X';
- i=0;
- while(outcom(ch)&TXBOF && i<1440) { /* 3 minute pause delay */
-
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==3) {
- lputs("local abort (outchar)\r\n");
- i=1440;
- break; }
- ungetkey(lch); }
- if(!DCDHIGH)
- break;
- i++;
- if(sys_status&SS_SYSPAGE)
- beep(i,80);
- else
- mswait(80); }
- if(i==1440) { /* timeout - beep flush outbuf */
- i=rioctl(TXBC);
- lprintf("timeout(outchar) %04X %04X\r\n",i,rioctl(IOFO));
- outcom(7);
- lputc(7);
- rioctl(IOCS|PAUSE); } }
-if(ch==LF) {
- lncntr++;
- lbuflen=0;
- tos=0; }
-else if(ch==FF) {
- lncntr=0;
- lbuflen=0;
- tos=1; }
-
-else {
- if(!lbuflen)
- latr=curatr;
- if(lbuflen<LINE_BUFSIZE)
- lbuf[lbuflen++]=ch; }
-
-if(lncntr==rows-1 && ((useron.misc&UPAUSE && !(sys_status&SS_PAUSEOFF))
- || sys_status&SS_PAUSEON)) {
- lncntr=0;
- pause(); }
-
-}
-
-
-/****************************************************************************/
-/* performs the correct attribute modifications for the Ctrl-A code */
-/****************************************************************************/
-void ctrl_a(char x)
-{
- int i,j;
- char tmp1[128],atr=curatr;
-
-if(x && (uchar)x<ESC) { /* Ctrl-A through Ctrl-Z for users with MF only */
- if(!(useron.flags1&FLAG(x+64)))
- console^=(CON_ECHO_OFF);
- return; }
-if((uchar)x>=0x7f) {
- if(useron.misc&ANSI)
- bprintf("\x1b[%uC",(uchar)x-0x7f);
- else
- for(i=0;i<(uchar)x-0x7f;i++)
- outchar(SP);
- return; }
-switch(toupper(x)) {
- case '!': /* level 10 or higher */
- if(useron.level<10)
- console^=CON_ECHO_OFF;
- break;
- case '@': /* level 20 or higher */
- if(useron.level<20)
- console^=CON_ECHO_OFF;
- break;
- case '#': /* level 30 or higher */
- if(useron.level<30)
- console^=CON_ECHO_OFF;
- break;
- case '$': /* level 40 or higher */
- if(useron.level<40)
- console^=CON_ECHO_OFF;
- break;
- case '%': /* level 50 or higher */
- if(useron.level<50)
- console^=CON_ECHO_OFF;
- break;
- case '^': /* level 60 or higher */
- if(useron.level<60)
- console^=CON_ECHO_OFF;
- break;
- case '&': /* level 70 or higher */
- if(useron.level<70)
- console^=CON_ECHO_OFF;
- break;
- case '*': /* level 80 or higher */
- if(useron.level<80)
- console^=CON_ECHO_OFF;
- break;
- case '(': /* level 90 or higher */
- if(useron.level<90)
- console^=CON_ECHO_OFF;
- break;
- case ')': /* turn echo back on */
- console&=~CON_ECHO_OFF;
- break;
- case '-': /* turn off all attributes if */
- if(atr&(HIGH|BLINK|(LIGHTGRAY<<4))) /* high intensity, blink or */
- attr(LIGHTGRAY); /* background bits are set */
- break;
- case '_': /* turn off all attributes if */
- if(atr&(BLINK|(LIGHTGRAY<<4))) /* blink or background is set */
- attr(LIGHTGRAY);
- break;
- case 'P': /* Pause */
- pause();
- break;
- case 'Q': /* Pause reset */
- lncntr=0;
- break;
- case 'T': /* Time */
- now=time(NULL);
- unixtodos(now,&date,&curtime);
- bprintf("%02d:%02d %s"
- ,curtime.ti_hour==0 ? 12
- : curtime.ti_hour>12 ? curtime.ti_hour-12
- : curtime.ti_hour, curtime.ti_min, curtime.ti_hour>11 ? "pm":"am");
- break;
- case 'D': /* Date */
- now=time(NULL);
- bputs(unixtodstr(now,tmp1));
- break;
- case ',': /* Delay 1/10 sec */
- mswait(100);
- break;
- case ';': /* Delay 1/2 sec */
- mswait(500);
- break;
- case '.': /* Delay 2 secs */
- mswait(2000);
- break;
- case 'S': /* Synchronize */
- ASYNC;
- break;
- case 'L': /* CLS (form feed) */
- CLS;
- break;
- case '>': /* CLREOL */
- if(useron.misc&ANSI)
- bputs("\x1b[K");
- else {
- i=j=lclwx();
- while(i++<79)
- outchar(SP);
- while(j++<79)
- outchar(BS); }
- break;
- case '<': /* Non-destructive backspace */
- outchar(BS);
- break;
- case '[': /* Carriage return */
- outchar(CR);
- break;
- case ']': /* Line feed */
- outchar(LF);
- break;
- case 'A': /* Ctrl-A */
- outchar(1);
- break;
- case 'H': /* High intensity */
- atr|=HIGH;
- attr(atr);
- break;
- case 'I': /* Blink */
- atr|=BLINK;
- attr(atr);
- break;
- case 'N': /* Normal */
- attr(LIGHTGRAY);
- break;
- case 'R':
- atr=(atr&0xf8)|RED;
- attr(atr);
- break;
- case 'G':
- atr=(atr&0xf8)|GREEN;
- attr(atr);
- break;
- case 'B':
- atr=(atr&0xf8)|BLUE;
- attr(atr);
- break;
- case 'W': /* White */
- atr=(atr&0xf8)|LIGHTGRAY;
- attr(atr);
- break;
- case 'C':
- atr=(atr&0xf8)|CYAN;
- attr(atr);
- break;
- case 'M':
- atr=(atr&0xf8)|MAGENTA;
- attr(atr);
- break;
- case 'Y': /* Yellow */
- atr=(atr&0xf8)|BROWN;
- attr(atr);
- break;
- case 'K': /* Black */
- atr=(atr&0xf8)|BLACK;
- attr(atr);
- break;
- case '0': /* Black Background */
- atr=(atr&0x8f)|(BLACK<<4);
- attr(atr);
- break;
- case '1': /* Red Background */
- atr=(atr&0x8f)|(RED<<4);
- attr(atr);
- break;
- case '2': /* Green Background */
- atr=(atr&0x8f)|(GREEN<<4);
- attr(atr);
- break;
- case '3': /* Yellow Background */
- atr=(atr&0x8f)|(BROWN<<4);
- attr(atr);
- break;
- case '4': /* Blue Background */
- atr=(atr&0x8f)|(BLUE<<4);
- attr(atr);
- break;
- case '5': /* Magenta Background */
- atr=(atr&0x8f)|(MAGENTA<<4);
- attr(atr);
- break;
- case '6': /* Cyan Background */
- atr=(atr&0x8f)|(CYAN<<4);
- attr(atr);
- break;
- case '7': /* White Background */
- atr=(atr&0x8f)|(LIGHTGRAY<<4);
- attr(atr);
- break; }
-}
-
-/***************************************************************************/
-/* Changes local and remote text attributes accounting for monochrome */
-/***************************************************************************/
-/****************************************************************************/
-/* Sends ansi codes to change remote ansi terminal's colors */
-/* Only sends necessary codes - tracks remote terminal's current attributes */
-/* through the 'curatr' variable */
-/****************************************************************************/
-void attr(int atr)
-{
-
-if(!(useron.misc&ANSI))
- return;
-if(!(useron.misc&COLOR)) { /* eliminate colors if user doesn't have them */
- if(atr&LIGHTGRAY) /* if any foreground bits set, set all */
- atr|=LIGHTGRAY;
- if(atr&(LIGHTGRAY<<4)) /* if any background bits set, set all */
- atr|=(LIGHTGRAY<<4);
- if(atr&LIGHTGRAY && atr&(LIGHTGRAY<<4))
- atr&=~LIGHTGRAY; /* if background is solid, foreground is black */
- if(!atr)
- atr|=LIGHTGRAY; } /* don't allow black on black */
-if(curatr==atr) /* text hasn't changed. don't send codes */
- return;
-
-if((!(atr&HIGH) && curatr&HIGH) || (!(atr&BLINK) && curatr&BLINK)
- || atr==LIGHTGRAY) {
- bputs("\x1b[0m");
- curatr=LIGHTGRAY; }
-
-if(atr==LIGHTGRAY) /* no attributes */
- return;
-
-if(atr&BLINK) { /* special attributes */
- if(!(curatr&BLINK))
- bputs(ansi(BLINK)); }
-if(atr&HIGH) {
- if(!(curatr&HIGH))
- bputs(ansi(HIGH)); }
-
-if((atr&0x7)==BLACK) { /* foreground colors */
- if((curatr&0x7)!=BLACK)
- bputs(ansi(BLACK)); }
-else if((atr&0x7)==RED) {
- if((curatr&0x7)!=RED)
- bputs(ansi(RED)); }
-else if((atr&0x7)==GREEN) {
- if((curatr&0x7)!=GREEN)
- bputs(ansi(GREEN)); }
-else if((atr&0x7)==BROWN) {
- if((curatr&0x7)!=BROWN)
- bputs(ansi(BROWN)); }
-else if((atr&0x7)==BLUE) {
- if((curatr&0x7)!=BLUE)
- bputs(ansi(BLUE)); }
-else if((atr&0x7)==MAGENTA) {
- if((curatr&0x7)!=MAGENTA)
- bputs(ansi(MAGENTA)); }
-else if((atr&0x7)==CYAN) {
- if((curatr&0x7)!=CYAN)
- bputs(ansi(CYAN)); }
-else if((atr&0x7)==LIGHTGRAY) {
- if((curatr&0x7)!=LIGHTGRAY)
- bputs(ansi(LIGHTGRAY)); }
-
-if((atr&0x70)==(BLACK<<4)) { /* background colors */
- if((curatr&0x70)!=(BLACK<<4))
- bputs("\x1b[40m"); }
-else if((atr&0x70)==(RED<<4)) {
- if((curatr&0x70)!=(RED<<4))
- bputs(ansi(RED<<4)); }
-else if((atr&0x70)==(GREEN<<4)) {
- if((curatr&0x70)!=(GREEN<<4))
- bputs(ansi(GREEN<<4)); }
-else if((atr&0x70)==(BROWN<<4)) {
- if((curatr&0x70)!=(BROWN<<4))
- bputs(ansi(BROWN<<4)); }
-else if((atr&0x70)==(BLUE<<4)) {
- if((curatr&0x70)!=(BLUE<<4))
- bputs(ansi(BLUE<<4)); }
-else if((atr&0x70)==(MAGENTA<<4)) {
- if((curatr&0x70)!=(MAGENTA<<4))
- bputs(ansi(MAGENTA<<4)); }
-else if((atr&0x70)==(CYAN<<4)) {
- if((curatr&0x70)!=(CYAN<<4))
- bputs(ansi(CYAN<<4)); }
-else if((atr&0x70)==(LIGHTGRAY<<4)) {
- if((curatr&0x70)!=(LIGHTGRAY<<4))
- bputs(ansi(LIGHTGRAY<<4)); }
-
-curatr=atr;
-}
-
-/****************************************************************************/
-/* Returns the ANSI code to obtain the value of atr. Mixed attributes */
-/* high intensity colors, or background/forground cobinations don't work. */
-/* A call to attr is more appropriate, being it is intelligent */
-/****************************************************************************/
-char *ansi(char atr)
-{
-
-switch(atr) {
- case (char)BLINK:
- return("\x1b[5m");
- case HIGH:
- return("\x1b[1m");
- case BLACK:
- return("\x1b[30m");
- case RED:
- return("\x1b[31m");
- case GREEN:
- return("\x1b[32m");
- case BROWN:
- return("\x1b[33m");
- case BLUE:
- return("\x1b[34m");
- case MAGENTA:
- return("\x1b[35m");
- case CYAN:
- return("\x1b[36m");
- case LIGHTGRAY:
- return("\x1b[37m");
- case (RED<<4):
- return("\x1b[41m");
- case (GREEN<<4):
- return("\x1b[42m");
- case (BROWN<<4):
- return("\x1b[43m");
- case (BLUE<<4):
- return("\x1b[44m");
- case (MAGENTA<<4):
- return("\x1b[45m");
- case (CYAN<<4):
- return("\x1b[46m");
- case (LIGHTGRAY<<4):
- return("\x1b[47m"); }
-
-return("-Invalid use of ansi()-");
-}
-
-
-/****************************************************************************/
-/* Checks to see if user has hit Pause or Abort. Returns 1 if user aborted. */
-/* If the user hit Pause, waits for a key to be hit. */
-/* Emulates remote XON/XOFF flow control on local console */
-/* Preserves SS_ABORT flag state, if already set. */
-/* Called from various listing procedures that wish to check for abort */
-/****************************************************************************/
-char msgabort()
-{
- char ch;
-
-if(sys_status&SS_SYSPAGE)
- beep(random(800),1);
-if(lkbrd(1)) {
- ch=inkey(0);
- if(sys_status&SS_ABORT) { /* ^c */
- keybufbot=keybuftop=0;
- return(1); }
- else if(ch==17 && online==ON_REMOTE) /* ^q */
- rioctl(IOCS|PAUSE);
- else if(ch==19) /* ^s */
- while(online) {
- if((ch=inkey(0))!=0) {
- if(ch==17) /* ^q */
- return(0);
- ungetkey(ch); }
- if(sys_status&SS_ABORT) { /* ^c */
- keybufbot=keybuftop=0;
- return(1); }
- checkline(); }
- else if(ch)
- ungetkey(ch); }
-checkline();
-if(sys_status&SS_ABORT)
- return(1);
-if(online==ON_REMOTE && rioctl(IOSTATE)&ABORT) {
- rioctl(IOCS|ABORT);
- sys_status|=SS_ABORT;
- return(1); }
-if(!online)
- return(1);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Takes the value 'sec' and makes a string the format HH:MM:SS */
-/****************************************************************************/
-char *sectostr(uint sec,char *str)
-{
- uchar hour,min,sec2;
-
-hour=(sec/60)/60;
-min=(sec/60)-(hour*60);
-sec2=sec-((min+(hour*60))*60);
-sprintf(str,"%2.2d:%2.2d:%2.2d",hour,min,sec2);
-return(str);
-}
-
-
-/****************************************************************************/
-/* Generates a 24 character ASCII string that represents the time_t pointer */
-/* Used as a replacement for ctime() */
-/****************************************************************************/
-char *timestr(time_t *intime)
-{
- static char str[256];
- char mer[3],hour;
- struct tm *gm;
-
-gm=localtime(intime);
-if(gm==NULL) {
- strcpy(str,"Invalid Time");
- return(str); }
-if(sys_misc&SM_MILITARY) {
- sprintf(str,"%s %s %02d %4d %02d:%02d:%02d"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
- ,gm->tm_hour,gm->tm_min,gm->tm_sec);
- return(str); }
-if(gm->tm_hour>=12) {
- if(gm->tm_hour==12)
- hour=12;
- else
- hour=gm->tm_hour-12;
- strcpy(mer,"pm"); }
-else {
- if(gm->tm_hour==0)
- hour=12;
- else
- hour=gm->tm_hour;
- strcpy(mer,"am"); }
-sprintf(str,"%s %s %02d %4d %02d:%02d %s"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
- ,hour,gm->tm_min,mer);
-return(str);
-}
-
diff --git a/src/sbbs2/data.c b/src/sbbs2/data.c
deleted file mode 100644
index 537358a8bf04d98cb76284c4e155e054f39de433..0000000000000000000000000000000000000000
--- a/src/sbbs2/data.c
+++ /dev/null
@@ -1,177 +0,0 @@
-#line 1 "DATA.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/**************************************************************/
-/* Functions that store and retrieve data from disk or memory */
-/**************************************************************/
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Looks for a perfect match amoung all usernames (not deleted users) */
-/* Returns the number of the perfect matched username or 0 if no match */
-/* Called from functions waitforcall and newuser */
-/****************************************************************************/
-uint matchuser(char *str)
-{
- int file;
- char str2[256],c;
- ulong l,length;
- FILE *stream;
-
-sprintf(str2,"%sUSER\\NAME.DAT",data_dir);
-if((stream=fnopen(&file,str2,O_RDONLY))==NULL)
- return(0);
-length=filelength(file);
-for(l=0;l<length;l+=LEN_ALIAS+2) {
- fread(str2,LEN_ALIAS+2,1,stream);
- for(c=0;c<LEN_ALIAS;c++)
- if(str2[c]==ETX) break;
- str2[c]=0;
- if(!stricmp(str,str2)) {
- fclose(stream);
- return((l/(LEN_ALIAS+2))+1); } }
-fclose(stream);
-return(0);
-}
-
-/****************************************************************************/
-/* Looks for close or perfect matches between str and valid usernames and */
-/* numbers and prompts user for near perfect matches in names. */
-/* Returns the number of the matched user or 0 if unsuccessful */
-/* Called from functions main_sec, useredit and readmailw */
-/****************************************************************************/
-uint finduser(char *instr)
-{
- int file,i;
- char str[128],str2[256],str3[256],ynq[25],c,pass=1;
- ulong l,length;
- FILE *stream;
-
-i=atoi(instr);
-if(i>0) {
- username(i,str2);
- if(str2[0] && strcmp(str2,"DELETED USER"))
- return(i); }
-strcpy(str,instr);
-strupr(str);
-sprintf(str3,"%sUSER\\NAME.DAT",data_dir);
-if(flength(str3)<1L)
- return(0);
-if((stream=fnopen(&file,str3,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str3,O_RDONLY);
- return(0); }
-sprintf(ynq,"%.2s",text[YN]);
-ynq[2]='Q';
-ynq[3]=0;
-length=filelength(file);
-while(pass<3) {
- fseek(stream,0L,SEEK_SET); /* seek to beginning for each pass */
- for(l=0;l<length;l+=LEN_ALIAS+2) {
- if(!online) break;
- fread(str2,LEN_ALIAS+2,1,stream);
- for(c=0;c<LEN_ALIAS;c++)
- if(str2[c]==ETX) break;
- str2[c]=0;
- if(!c) /* deleted user */
- continue;
- strcpy(str3,str2);
- strupr(str2);
- if(pass==1 && !strcmp(str,str2)) {
- fclose(stream);
- return((l/(LEN_ALIAS+2))+1); }
- if(pass==2 && strstr(str2,str)) {
- bprintf(text[DoYouMeanThisUserQ],str3
- ,(uint)(l/(LEN_ALIAS+2))+1);
- c=getkeys(ynq,0);
- if(sys_status&SS_ABORT) {
- fclose(stream);
- return(0); }
- if(c==text[YN][0]) {
- fclose(stream);
- return((l/(LEN_ALIAS+2))+1); }
- if(c=='Q') {
- fclose(stream);
- return(0); } } }
- pass++; }
-bputs(text[UnknownUser]);
-fclose(stream);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the number of files in the directory 'dirnum' */
-/****************************************************************************/
-int getfiles(uint dirnum)
-{
- char str[256];
- long l;
-
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-l=flength(str);
-if(l>0L)
- return(l/F_IXBSIZE);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the number of user transfers in XFER.IXT for either a dest user */
-/* source user, or filename. */
-/****************************************************************************/
-int getuserxfers(int fromuser, int destuser, char *fname)
-{
- char str[256];
- int file,found=0;
- FILE *stream;
-
-sprintf(str,"%sXFER.IXT",data_dir);
-if(!fexist(str))
- return(0);
-if(!flength(str)) {
- remove(str);
- return(0); }
-if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
-while(!ferror(stream)) {
- if(!fgets(str,81,stream))
- break;
- str[22]=0;
- if(fname!=NULL && fname[0] && !strncmp(str+5,fname,12))
- found++;
- else if(fromuser && atoi(str+18)==fromuser)
- found++;
- else if(destuser && atoi(str)==destuser)
- found++; }
-fclose(stream);
-return(found);
-}
-
-/****************************************************************************/
-/* Returns the number of the last user in USER.DAT (deleted ones too) */
-/* Called from function useredit */
-/****************************************************************************/
-uint lastuser()
-{
- char str[256];
- long length;
-
-sprintf(str,"%sUSER\\USER.DAT",data_dir);
-if((length=flength(str))>0)
- return((uint)(length/U_LEN));
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the number of files in the database for 'dir' */
-/****************************************************************************/
-uint gettotalfiles(uint dirnum)
-{
- char str[81];
-
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-return((uint)(flength(str)/F_IXBSIZE));
-}
-
-
diff --git a/src/sbbs2/data_ovl.c b/src/sbbs2/data_ovl.c
deleted file mode 100644
index 95f81f1d470aa9d43ba939119fd84f0e9b725c65..0000000000000000000000000000000000000000
--- a/src/sbbs2/data_ovl.c
+++ /dev/null
@@ -1,439 +0,0 @@
-#line 1 "DATA_OVL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Writes into user.number's slot in USER.DAT data in structure 'user' */
-/* Called from functions newuser, useredit and main */
-/****************************************************************************/
-void putuserdat(user_t user)
-{
- int i,file;
- char userdat[U_LEN+1],str[U_LEN+1];
- node_t node;
-
-if(!user.number) {
- errormsg(WHERE,ERR_CHK,"user number",0);
- return; }
-memset(userdat,ETX,U_LEN);
-putrec(userdat,U_ALIAS,LEN_ALIAS+5,user.alias);
-putrec(userdat,U_NAME,LEN_NAME,user.name);
-putrec(userdat,U_HANDLE,LEN_HANDLE,user.handle);
-putrec(userdat,U_HANDLE+LEN_HANDLE,2,crlf);
-
-putrec(userdat,U_NOTE,LEN_NOTE,user.note);
-putrec(userdat,U_COMP,LEN_COMP,user.comp);
-putrec(userdat,U_COMP+LEN_COMP,2,crlf);
-
-putrec(userdat,U_COMMENT,LEN_COMMENT,user.comment);
-putrec(userdat,U_COMMENT+LEN_COMMENT,2,crlf);
-
-putrec(userdat,U_NETMAIL,LEN_NETMAIL,user.netmail);
-putrec(userdat,U_NETMAIL+LEN_NETMAIL,2,crlf);
-
-putrec(userdat,U_ADDRESS,LEN_ADDRESS,user.address);
-putrec(userdat,U_LOCATION,LEN_LOCATION,user.location);
-putrec(userdat,U_ZIPCODE,LEN_ZIPCODE,user.zipcode);
-putrec(userdat,U_ZIPCODE+LEN_ZIPCODE,2,crlf);
-
-putrec(userdat,U_PASS,LEN_PASS,user.pass);
-putrec(userdat,U_PHONE,LEN_PHONE,user.phone);
-putrec(userdat,U_BIRTH,LEN_BIRTH,user.birth);
-putrec(userdat,U_MODEM,LEN_MODEM,user.modem);
-putrec(userdat,U_LASTON,8,ultoa(user.laston,str,16));
-putrec(userdat,U_FIRSTON,8,ultoa(user.firston,str,16));
-putrec(userdat,U_EXPIRE,8,ultoa(user.expire,str,16));
-putrec(userdat,U_PWMOD,8,ultoa(user.pwmod,str,16));
-putrec(userdat,U_PWMOD+8,2,crlf);
-
-putrec(userdat,U_LOGONS,5,itoa(user.logons,str,10));
-putrec(userdat,U_LTODAY,5,itoa(user.ltoday,str,10));
-putrec(userdat,U_TIMEON,5,itoa(user.timeon,str,10));
-putrec(userdat,U_TEXTRA,5,itoa(user.textra,str,10));
-putrec(userdat,U_TTODAY,5,itoa(user.ttoday,str,10));
-putrec(userdat,U_TLAST,5,itoa(user.tlast,str,10));
-putrec(userdat,U_POSTS,5,itoa(user.posts,str,10));
-putrec(userdat,U_EMAILS,5,itoa(user.emails,str,10));
-putrec(userdat,U_FBACKS,5,itoa(user.fbacks,str,10));
-putrec(userdat,U_ETODAY,5,itoa(user.etoday,str,10));
-putrec(userdat,U_PTODAY,5,itoa(user.ptoday,str,10));
-putrec(userdat,U_PTODAY+5,2,crlf);
-
-putrec(userdat,U_ULB,10,ultoa(user.ulb,str,10));
-putrec(userdat,U_ULS,5,itoa(user.uls,str,10));
-putrec(userdat,U_DLB,10,ultoa(user.dlb,str,10));
-putrec(userdat,U_DLS,5,itoa(user.dls,str,10));
-putrec(userdat,U_CDT,10,ultoa(user.cdt,str,10));
-putrec(userdat,U_MIN,10,ultoa(user.min,str,10));
-putrec(userdat,U_MIN+10,2,crlf);
-
-putrec(userdat,U_LEVEL,2,itoa(user.level,str,10));
-putrec(userdat,U_FLAGS1,8,ultoa(user.flags1,str,16));
-putrec(userdat,U_TL,2,nulstr); /* unused */
-putrec(userdat,U_FLAGS2,8,ultoa(user.flags2,str,16));
-putrec(userdat,U_EXEMPT,8,ultoa(user.exempt,str,16));
-putrec(userdat,U_REST,8,ultoa(user.rest,str,16));
-putrec(userdat,U_REST+8,2,crlf);
-
-putrec(userdat,U_ROWS,2,itoa(user.rows,str,10));
-userdat[U_SEX]=user.sex;
-userdat[U_PROT]=user.prot;
-putrec(userdat,U_MISC,8,ultoa(user.misc,str,16));
-putrec(userdat,U_LEECH,2,itoa(user.leech,str,16));
-
-putrec(userdat,U_CURSUB,8,user.cursub);
-putrec(userdat,U_CURDIR,8,user.curdir);
-
-// putrec(userdat,U_CMDSET,2,itoa(user.cmdset,str,16)); /* Unused */
-putrec(userdat,U_CMDSET+2,2,crlf);
-
-putrec(userdat,U_XFER_CMD+LEN_XFER_CMD,2,crlf);
-
-putrec(userdat,U_MAIL_CMD+LEN_MAIL_CMD,2,crlf);
-
-putrec(userdat,U_FREECDT,10,ultoa(user.freecdt,str,10));
-
-putrec(userdat,U_FLAGS3,8,ultoa(user.flags3,str,16));
-putrec(userdat,U_FLAGS4,8,ultoa(user.flags4,str,16));
-
-if(user.xedit)
- putrec(userdat,U_XEDIT,8,xedit[user.xedit-1]->code);
-else
- putrec(userdat,U_XEDIT,8,nulstr);
-
-putrec(userdat,U_SHELL,8,shell[user.shell]->code);
-
-putrec(userdat,U_QWK,8,ultoa(user.qwk,str,16));
-putrec(userdat,U_TMPEXT,3,user.tmpext);
-putrec(userdat,U_CHAT,8,ultoa(user.chat,str,16));
-putrec(userdat,U_NS_TIME,8,ultoa(user.ns_time,str,16));
-
-putrec(userdat,U_UNUSED,29,crlf);
-putrec(userdat,U_UNUSED+29,2,crlf);
-
-sprintf(str,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_DENYNONE))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_DENYNONE);
- return; }
-
-/*** This shouldn't be necessary
-if(filelength(file)<(long)((long)user.number*U_LEN))
- lseek(file,0L,SEEK_END);
-else
-***/
-
-lseek(file,(long)((long)((long)user.number-1)*U_LEN),SEEK_SET);
-
-i=0;
-while(i<LOOP_NODEDAB
- && lock(file,(long)((long)(user.number-1)*U_LEN),U_LEN)==-1) {
- if(i>10)
- mswait(55);
- i++; }
-
-if(i>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",user.number);
- return; }
-
-if(write(file,userdat,U_LEN)!=U_LEN) {
- unlock(file,(long)((long)(user.number-1)*U_LEN),U_LEN);
- close(file);
- errormsg(WHERE,ERR_WRITE,str,U_LEN);
- return; }
-unlock(file,(long)((long)(user.number-1)*U_LEN),U_LEN);
-close(file);
-for(i=1;i<=sys_nodes;i++) { /* instant user data update */
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.useron==user.number && (node.status==NODE_INUSE
- || node.status==NODE_QUIET)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_UDAT;
- putnodedat(i,node);
- break; } }
-}
-
-
-/****************************************************************************/
-/* Puts 'name' into slot 'number' in USER\\NAME.DAT */
-/****************************************************************************/
-void putusername(int number, char *name)
-{
- char str[256];
- int file;
- long length,l;
-
-sprintf(str,"%sUSER\\NAME.DAT",data_dir);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_CREAT);
- return; }
-length=filelength(file);
-if(length && length%(LEN_ALIAS+2)) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-if(length<(((long)number-1)*(LEN_ALIAS+2))) {
- sprintf(str,"%*s",LEN_ALIAS,nulstr);
- strset(str,ETX);
- strcat(str,crlf);
- lseek(file,0L,SEEK_END);
- while(filelength(file)<((long)number*(LEN_ALIAS+2)))
- write(file,str,(LEN_ALIAS+2)); }
-lseek(file,(long)(((long)number-1)*(LEN_ALIAS+2)),SEEK_SET);
-putrec(str,0,LEN_ALIAS,name);
-putrec(str,LEN_ALIAS,2,crlf);
-write(file,str,LEN_ALIAS+2);
-close(file);
-}
-
-/****************************************************************************/
-/* Fills the 'ptr' element of the each element of the sub[] array of sub_t */
-/* and the sub_misc and sub_ptr global variables */
-/* Called from function main */
-/****************************************************************************/
-void getmsgptrs()
-{
- char str[256];
- ushort ch;
- uint i;
- int file;
- long length;
- FILE *stream;
-
-now=time(NULL);
-if(!useron.number)
- return;
-bputs(text[LoadingMsgPtrs]);
-sprintf(str,"%sUSER\\PTRS\\%4.4u.IXB",data_dir,useron.number);
-if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- for(i=0;i<total_subs;i++) {
- sub_ptr[i]=sub[i]->ptr=sub_last[i]=sub[i]->last=0;
- if(sub[i]->misc&SUB_NSDEF)
- sub[i]->misc|=SUB_NSCAN;
- else
- sub[i]->misc&=~SUB_NSCAN;
- if(sub[i]->misc&SUB_SSDEF)
- sub[i]->misc|=SUB_SSCAN;
- else
- sub[i]->misc&=~SUB_SSCAN;
- sub_misc[i]=sub[i]->misc; }
- bputs(text[LoadedMsgPtrs]);
- return; }
-length=filelength(file);
-for(i=0;i<total_subs;i++) {
- if(length<(sub[i]->ptridx+1)*10L) {
- sub[i]->ptr=sub[i]->last=0L;
- if(sub[i]->misc&SUB_NSDEF)
- sub[i]->misc|=SUB_NSCAN;
- else
- sub[i]->misc&=~SUB_NSCAN;
- if(sub[i]->misc&SUB_SSDEF)
- sub[i]->misc|=SUB_SSCAN;
- else
- sub[i]->misc&=~SUB_SSCAN; }
- else {
- fseek(stream,(long)sub[i]->ptridx*10L,SEEK_SET);
- fread(&sub[i]->ptr,4,1,stream);
- fread(&sub[i]->last,4,1,stream);
- fread(&ch,2,1,stream);
- if(ch&5) /* Either bit 0 or 2 */
- sub[i]->misc|=SUB_NSCAN;
- else
- sub[i]->misc&=~SUB_NSCAN;
- if(ch&2)
- sub[i]->misc|=SUB_SSCAN;
- else
- sub[i]->misc&=~SUB_SSCAN;
- if(ch&0x100)
- sub[i]->misc|=SUB_YSCAN;
- else
- sub[i]->misc&=~SUB_YSCAN; }
- sub_ptr[i]=sub[i]->ptr;
- sub_last[i]=sub[i]->last;
- sub_misc[i]=sub[i]->misc; }
-fclose(stream);
-bputs(text[LoadedMsgPtrs]);
-}
-
-/****************************************************************************/
-/* Writes to DATA\USER\PTRS\xxxx.DAB the msgptr array for the current user */
-/* Called from functions main and newuser */
-/****************************************************************************/
-void putmsgptrs()
-{
- char str[256];
- ushort idx,ch;
- uint i,j;
- int file;
- ulong l=0L,length;
-
-if(!useron.number)
- return;
-sprintf(str,"%sUSER\\PTRS\\%4.4u.IXB",data_dir,useron.number);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT);
- return; }
-length=filelength(file);
-for(i=0;i<total_subs;i++) {
- if(sub[i]->ptr==sub_ptr[i] && sub[i]->last==sub_last[i]
- && length>=((long)(sub[i]->ptridx+1)*10)
- && ((sub[i]->misc&(SUB_NSCAN|SUB_SSCAN|SUB_YSCAN))
- ==(sub_misc[i]&(SUB_NSCAN|SUB_SSCAN|SUB_YSCAN))))
- continue;
- while(filelength(file)<(long)(sub[i]->ptridx)*10) {
- lseek(file,0L,SEEK_END);
- idx=tell(file)/10;
- for(j=0;j<total_subs;j++)
- if(sub[j]->ptridx==idx)
- break;
- write(file,&l,4);
- write(file,&l,4);
- ch=0xff; /* default to scan ON for new sub */
- if(j<total_subs) {
- if(!(sub[j]->misc&SUB_NSCAN))
- ch&=~5;
- if(!(sub[j]->misc&SUB_SSCAN))
- ch&=~2;
- if(sub[j]->misc&SUB_YSCAN)
- ch|=0x100; }
- write(file,&ch,2); }
- lseek(file,(long)((long)(sub[i]->ptridx)*10),SEEK_SET);
- write(file,&(sub[i]->ptr),4);
- write(file,&(sub[i]->last),4);
- ch=0xff;
- if(!(sub[i]->misc&SUB_NSCAN))
- ch&=~5;
- if(!(sub[i]->misc&SUB_SSCAN))
- ch&=~2;
- if(sub[i]->misc&SUB_YSCAN)
- ch|=0x100;
- write(file,&ch,2); }
-close(file);
-if(!flength(str)) /* Don't leave 0 byte files */
- remove(str);
-}
-
-/****************************************************************************/
-/* Checks for a duplicate user filed starting at user record offset */
-/* 'offset', reading in 'datlen' chars, comparing to 'str' for each user */
-/* except 'usernumber' if it is non-zero. Comparison is NOT case sensitive. */
-/* del is 1 if the search is to included deleted/inactive users 0 otherwise */
-/* Returns the usernumber of the dupe if found, 0 if not */
-/****************************************************************************/
-uint userdatdupe(uint usernumber, uint offset, uint datlen, char *dat
- , char del)
-{
- char str[256];
- int i,file;
- long l,length;
-
-truncsp(dat);
-sprintf(str,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(str,O_RDONLY|O_DENYNONE))==-1)
- return(0);
-length=filelength(file);
-bputs(text[SearchingForDupes]);
-for(l=0;l<length && online;l+=U_LEN) {
- checkline();
- if(usernumber && l/U_LEN==usernumber-1)
- continue;
- lseek(file,l+offset,SEEK_SET);
- i=0;
- while(i<LOOP_NODEDAB && lock(file,l,U_LEN)==-1) {
- if(i>10)
- mswait(55);
- i++; }
-
- if(i>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",l);
- return(0); }
-
- read(file,str,datlen);
- for(i=0;i<datlen;i++)
- if(str[i]==ETX) break;
- str[i]=0;
- truncsp(str);
- if(!stricmp(str,dat)) {
- if(!del) { /* Don't include deleted users in search */
- lseek(file,l+U_MISC,SEEK_SET);
- read(file,str,8);
- getrec(str,0,8,str);
- if(ahtoul(str)&(DELETED|INACTIVE)) {
- unlock(file,l,U_LEN);
- continue; } }
- unlock(file,l,U_LEN);
- close(file);
- bputs(text[SearchedForDupes]);
- return((l/U_LEN)+1); }
- else
- unlock(file,l,U_LEN); }
-close(file);
-bputs(text[SearchedForDupes]);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Removes any files in the user transfer index (XFER.IXT) that match the */
-/* specifications of dest, or source user, or filename or any combination. */
-/****************************************************************************/
-void rmuserxfers(int fromuser, int destuser, char *fname)
-{
- char str[256],*ixtbuf;
- int file;
- long l,length;
-
-sprintf(str,"%sXFER.IXT",data_dir);
-if(!fexist(str))
- return;
-if(!flength(str)) {
- remove(str);
- return; }
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if((ixtbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
-if(read(file,ixtbuf,length)!=length) {
- close(file);
- FREE(ixtbuf);
- errormsg(WHERE,ERR_READ,str,length);
- return; }
-close(file);
-if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) {
- FREE(ixtbuf);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_TRUNC);
- return; }
-for(l=0;l<length;l+=24) {
- if(fname!=NULL && fname[0]) { /* fname specified */
- if(!strncmp(ixtbuf+l+5,fname,12)) { /* this is the file */
- if(destuser && fromuser) { /* both dest and from user */
- if(atoi(ixtbuf+l)==destuser && atoi(ixtbuf+l+18)==fromuser)
- continue; } /* both match */
- else if(fromuser) { /* from user */
- if(atoi(ixtbuf+l+18)==fromuser) /* matches */
- continue; }
- else if(destuser) { /* dest user */
- if(atoi(ixtbuf+l)==destuser) /* matches */
- continue; }
- else continue; } } /* no users, so match */
- else if(destuser && fromuser) {
- if(atoi(ixtbuf+l+18)==fromuser && atoi(ixtbuf+l)==destuser)
- continue; }
- else if(destuser && atoi(ixtbuf+l)==destuser)
- continue;
- else if(fromuser && atoi(ixtbuf+l+18)==fromuser)
- continue;
- write(file,ixtbuf+l,24); }
-close(file);
-FREE(ixtbuf);
-}
-
diff --git a/src/sbbs2/dcdwatch/dcdwatch.c b/src/sbbs2/dcdwatch/dcdwatch.c
deleted file mode 100644
index 6ee6a3fa42000d720896e4f9168af1644cb3d412..0000000000000000000000000000000000000000
--- a/src/sbbs2/dcdwatch/dcdwatch.c
+++ /dev/null
@@ -1,102 +0,0 @@
-/* DCDWATCH.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Program to execute another program, but terminate if carrier detect is */
-/* lost */
-
-/* Compile small memory model */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <process.h>
-#include <dos.h>
-#include <io.h>
-#include <alloc.h>
-
-extern unsigned _heaplen=2048;
-
-#define uint unsigned int
-
-#pragma warn -par
-
-char hungup=0;
-uint far *msr;
-
-void interrupt (*old_int21)(void);
-
-struct REGPACK r;
-
-void interrupt new_int21(uint bp, uint di, uint si, uint ds, uint es,
- uint dx, uint cx, uint bx, uint ax, uint ip, uint cs, uint flags)
-{
-
-r.r_ax=ax;
-r.r_bx=bx;
-r.r_cx=cx;
-r.r_dx=dx;
-r.r_bp=bp;
-r.r_si=si;
-r.r_di=di;
-r.r_flags=flags;
-r.r_ds=ds;
-r.r_es=es;
-
-intr(0xaa,&r);
-
-ax=r.r_ax;
-bx=r.r_bx;
-cx=r.r_cx;
-dx=r.r_dx;
-bp=r.r_bp;
-si=r.r_si;
-di=r.r_di;
-flags=r.r_flags;
-ds=r.r_ds;
-es=r.r_es;
-
-if(!(*(msr)&0x8000) && !hungup) {
- hungup=1;
- r.r_ax=0x4c00;
- intr(0xaa,&r); } /* so exit */
-}
-
-#pragma warn +par
-
-
-int main(int argc, char **argv)
-{
- char str[256],*arg[30],*comspec;
- int i;
- FILE *stream;
-
-if(argc<3) {
- printf("usage: %%!dcdwatch %%& <program> <arguments>\n");
- exit(1) ;}
-
-msr=(uint far *)atol(argv[1]);
-
-if((stream=fopen("INTRSBBS.DAT","r"))!=NULL) {
- fgets(str,81,stream);
- msr=(uint far *)atol(str);
- fclose(stream);
- remove("INTRSBBS.DAT"); }
-
-if(msr) {
- old_int21=getvect(0x21);
- setvect(0xAA,old_int21);
- setvect(0x21,new_int21); }
-
-comspec=getenv("COMSPEC");
-
-arg[0]=comspec;
-arg[1]="/c";
-for(i=2;i<30;i++)
- arg[i]=argv[i];
-
-i=spawnvp(P_WAIT,arg[0],arg);
-
-if(msr)
- setvect(0x21,old_int21);
-return(i);
-}
diff --git a/src/sbbs2/delfiles/delfiles.c b/src/sbbs2/delfiles/delfiles.c
deleted file mode 100644
index e4f45ffe7d6daab33fe635811b1fa34caf5f0a8f..0000000000000000000000000000000000000000
--- a/src/sbbs2/delfiles/delfiles.c
+++ /dev/null
@@ -1,763 +0,0 @@
-#line 1 "DELFILES.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-#define DELFILES_VER "1.01"
-
-char tmp[256];
-
-#define MAX_NOTS 25
-
-#define ALL (1L<<0)
-#define OFFLINE (1L<<1)
-#define NO_LINK (1L<<2)
-#define REPORT (1L<<3)
-
-void bail(int code)
-{
-exit(code);
-}
-
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stdout));
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- int c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is aREADy open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(((*file)=nopen(str,access))==-1) {
- printf("nopen -1\n");
- return(NULL); }
-
-if(access&O_APPEND) {
- if(access&O_RDONLY)
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&O_WRONLY)
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- printf("fdopen NULL mode='%s'\n",mode);
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,_A_NORMAL,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,_A_NORMAL,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(f.size);
-return(-1L);
-}
-
-#ifndef __FLAT__
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char HUGE16 *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-
-/****************************************************************************/
-/* This function writes files that are potentially larger than 32767 bytes */
-/* Up to one megabytes of data can be written with each call. */
-/****************************************************************************/
-long lwrite(int file, char HUGE16 *buf, long bytes)
-{
-
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(write(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(write(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-#endif
-
-/****************************************************************************/
-/* Removes any files in the user transfer index (XFER.IXT) that match the */
-/* specifications of dest, or source user, or filename or any combination. */
-/****************************************************************************/
-void rmuserxfers(int fromuser, int destuser, char *fname)
-{
- char str[256],*ixtbuf;
- int file;
- long l,length;
-
-sprintf(str,"%sXFER.IXT",data_dir);
-if(!fexist(str))
- return;
-if(!flength(str)) {
- remove(str);
- return; }
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERROR opening %s\r\n",str);
- return; }
-length=filelength(file);
-if((ixtbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- printf("ERROR allocating %lu bytes for %s\r\n",length,str);
- return; }
-if(read(file,ixtbuf,length)!=length) {
- close(file);
- FREE(ixtbuf);
- printf("ERROR reading %lu bytes from %s\r\n",length,str);
- return; }
-close(file);
-if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) {
- FREE(ixtbuf);
- printf("ERROR opening %s\r\n",str);
- return; }
-for(l=0;l<length;l+=24) {
- if(fname!=NULL && fname[0]) { /* fname specified */
- if(!strncmp(ixtbuf+l+5,fname,12)) { /* this is the file */
- if(destuser && fromuser) { /* both dest and from user */
- if(atoi(ixtbuf+l)==destuser && atoi(ixtbuf+l+18)==fromuser)
- continue; } /* both match */
- else if(fromuser) { /* from user */
- if(atoi(ixtbuf+l+18)==fromuser) /* matches */
- continue; }
- else if(destuser) { /* dest user */
- if(atoi(ixtbuf+l)==destuser) /* matches */
- continue; }
- else continue; } } /* no users, so match */
- else if(destuser && fromuser) {
- if(atoi(ixtbuf+l+18)==fromuser && atoi(ixtbuf+l)==destuser)
- continue; }
- else if(destuser && atoi(ixtbuf+l)==destuser)
- continue;
- else if(fromuser && atoi(ixtbuf+l+18)==fromuser)
- continue;
- write(file,ixtbuf+l,24); }
-close(file);
-FREE(ixtbuf);
-}
-
-/****************************************************************************/
-/* Removes DAT and IXB entries for the file in the struct 'f' */
-/****************************************************************************/
-void removefiledat(file_t f)
-{
- char c,str[256],ixbname[12],HUGE16 *ixbbuf,fname[13];
- int file;
- ulong l,length;
-
-strcpy(fname,f.name);
-for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[c]=fname[c+1];
-sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERROR opening %s\r\n",str);
- return; }
-length=filelength(file);
-if(!length) {
- close(file);
- return; }
-if((ixbbuf=(char *)MALLOC(length))==0) {
- close(file);
- printf("ERROR allocating %lu bytes for %s\r\n",length,str);
- return; }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- printf("ERROR reading %lu bytes from %s\r\n",length,str);
- FREE((char *)ixbbuf);
- return; }
-close(file);
-if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) {
- printf("ERROR opening %s\r\n",str);
- return; }
-for(l=0;l<length;l+=F_IXBSIZE) {
- for(c=0;c<11;c++)
- ixbname[c]=ixbbuf[l+c];
- ixbname[c]=0;
- if(strcmp(ixbname,fname))
- if(lwrite(file,&ixbbuf[l],F_IXBSIZE)!=F_IXBSIZE) {
- close(file);
- printf("ERROR writing %lu bytes to %s\r\n",F_IXBSIZE,str);
- FREE((char *)ixbbuf);
- return; } }
-FREE((char *)ixbbuf);
-close(file);
-sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY))==-1) {
- printf("ERROR opening %s\r\n",str);
- return; }
-lseek(file,f.datoffset,SEEK_SET);
-c=ETX; /* If first char of record is ETX, record is unused */
-if(write(file,&c,1)!=1) { /* So write a D_T on the first byte of the record */
- close(file);
- printf("ERROR writing to %s\r\n",str);
- return; }
-close(file);
-if(f.dir==user_dir) /* remove file from index */
- rmuserxfers(0,0,f.name);
-}
-
-/****************************************************************************/
-/* Places into 'strout' CR or ETX terminated string starting at */
-/* 'start' and ending at 'start'+'length' or terminator from 'strin' */
-/****************************************************************************/
-void getrec(char *strin,int start,int length,char *strout)
-{
- int i=0,stop;
-
-stop=start+length;
-while(start<stop) {
- if(strin[start]==ETX)
- break;
- strout[i++]=strin[start++]; }
-strout[i]=0;
-}
-
-/****************************************************************************/
-/* Turns FILE .EXT into FILE.EXT */
-/****************************************************************************/
-char *unpadfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0,d=0;c<strlen(filename);c++)
- if(filename[c]!=SP) str[d++]=filename[c];
-str[d]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Returns the time/date of the file in 'filespec' in time_t (unix) format */
-/****************************************************************************/
-long fdate(char *filespec)
-{
- int file;
-#ifdef __WATCOMC__
- unsigned short ft,fd;
-#else
- unsigned ft,fd;
-#endif
- struct tm t;
-
-if((file=nopen(filespec,O_RDONLY))==-1)
- return(0);
-_dos_getftime(file,&fd,&ft);
-close(file);
-memset(&t,0,sizeof(t));
-t.tm_year=((fd&0xfe00)>>9)+80;
-t.tm_mon=((fd&0x01e0)>>5)-1;
-t.tm_mday=fd&0x1f;
-t.tm_hour=(ft&0xf800)>>11;
-t.tm_min=(ft&0x07e0)>>5;
-t.tm_sec=(ft&0x001f)<<1;
-return(mktime(&t));
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-uint hptoi(char *str)
-{
- char tmp[128];
- uint i;
-
-if(!str[1] || toupper(str[0])<='F')
- return(ahtoul(str));
-strcpy(tmp,str);
-tmp[0]='F';
-i=ahtoul(tmp)+((toupper(str[0])-'F')*0x10);
-return(i);
-}
-
-/****************************************************************************/
-/* Gets filedata from dircode.DAT file */
-/* Need fields .name ,.dir and .offset to get other info */
-/* Does not fill .dateuled or .datedled fields. */
-/****************************************************************************/
-void getfiledat(file_t *f)
-{
- char buf[F_LEN+1],str[256],tmp[256];
- int file;
- long length;
-
-sprintf(str,"%s%s.DAT",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("ERROR opening %s\r\n",str);
- return; }
-length=filelength(file);
-if(f->datoffset>length) {
- close(file);
- printf("ERROR %s filelength %ld is less than offset\r\n",str,length);
- return; }
-if(length%F_LEN) {
- close(file);
- printf("ERROR %s filelength %ld is not evenly divisible\r\n",str,length);
- return; }
-lseek(file,f->datoffset,SEEK_SET);
-if(read(file,buf,F_LEN)!=F_LEN) {
- close(file);
- printf("ERROR reading %ld bytes from %s\r\n",F_LEN,str);
- return; }
-close(file);
-getrec(buf,F_ALTPATH,2,str);
-f->altpath=hptoi(str);
-getrec(buf,F_CDT,7,str);
-f->cdt=atol(str);
-
-if(!f->size) { /* only read disk if this is null */
- if(dir[f->dir]->misc&DIR_FCHK) {
- sprintf(str,"%s%s"
- ,f->altpath>0 && f->altpath<=altpaths ? altpath[f->altpath-1]
- : dir[f->dir]->path,unpadfname(f->name,tmp));
- f->size=flength(str);
- f->date=fdate(str); }
- else {
- f->size=f->cdt;
- f->date=0; } }
-//if((f->size>0L) && cur_cps)
-// f->timetodl=(f->size/(ulong)cur_cps);
-//else
- f->timetodl=0;
-
-getrec(buf,F_DESC,LEN_FDESC,f->desc);
-getrec(buf,F_ULER,LEN_ALIAS,f->uler);
-getrec(buf,F_TIMESDLED,5,str);
-f->timesdled=atoi(str);
-getrec(buf,F_OPENCOUNT,3,str);
-f->opencount=atoi(str);
-if(buf[F_MISC]!=ETX)
- f->misc=buf[F_MISC]-SP;
-else
- f->misc=0;
-}
-
-/****************************************************************************/
-/* Checks directory data file for 'filename' (must be padded). If found, */
-/* it returns the 1, else returns 0. */
-/* Called from upload and bulkupload */
-/****************************************************************************/
-char findfile(uint dirnum, char *filename)
-{
- char str[256],c,fname[128],HUGE16 *ixbbuf;
- int file;
- ulong length,l;
-
-strcpy(fname,filename);
-for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[c]=fname[c+1];
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1) return(0);
-length=filelength(file);
-if(!length) {
- close(file);
- return(0); }
-if((ixbbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- printf("ERR_ALLOC %s %lu\n",str,length);
- return(0); }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- FREE((char *)ixbbuf);
- return(0); }
-close(file);
-for(l=0;l<length;l+=F_IXBSIZE) {
- for(c=0;c<11;c++)
- if(fname[c]!=ixbbuf[l+c]) break;
- if(c==11) break; }
-FREE((char *)ixbbuf);
-if(l<length)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Turns FILE.EXT into FILE .EXT */
-/* Called from upload */
-/****************************************************************************/
-char *padfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0;c<8;c++)
- if(filename[c]=='.' || !filename[c]) break;
- else str[c]=filename[c];
-d=c;
-if(filename[c]=='.') c++;
-while(d<8)
- str[d++]=SP;
-str[d++]='.';
-while(d<12)
- if(!filename[c]) break;
- else str[d++]=filename[c++];
-while(d<12)
- str[d++]=SP;
-str[d]=0;
-return(str);
-}
-
-void main(int argc, char **argv)
-{
- char str[256],fname[256],not[MAX_NOTS][9],nots=0,*p;
- uchar HUGE16 *ixbbuf;
- int i,j,dirnum,libnum,file;
- ulong l,m,n,length;
- long misc=0;
- time_t now;
- read_cfg_text_t txt;
- file_t workfile;
- struct find_t ff;
-
-putenv("TZ=UCT0");
-_fmode=O_BINARY;
-setvbuf(stdout,NULL,_IONBF,0);
-
-fprintf(stderr,"\nDELFILES Version %s (%s) - Removes files from Synchronet "
- "Filebase\n"
- ,DELFILES_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- );
-
-if(argc<2) {
- printf("\n usage: DELFILES <dir_code or * for ALL> [switches]\n");
- printf("\nswitches: /LIB name All directories of specified library\n");
- printf(" /NOT code Exclude specific directory\n");
- printf(" /OFF Remove files that are offline "
- "(don't exist on disk)\n");
- printf(" /NOL Remove files with no link "
- "(don't exist in database)\n");
- printf(" /RPT Report findings only "
- "(don't delete any files)\n");
- exit(0); }
-
-p=getenv("SBBSNODE");
-if(p==NULL) {
- printf("\nSBBSNODE environment variable not set.\n");
- printf("\nExample: SET SBBSNODE=C:\\SBBS\\NODE1\n");
- exit(1); }
-
-putenv("TZ=UCT0");
-
-strcpy(node_dir,p);
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-txt.openerr="\7\nError opening %s for read.\n";
-txt.reading="\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\nError allocating %u bytes of memory\n";
-txt.error="\7\nERROR: Offset %lu in %s\r\n\n";
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str); }
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str); }
-if(temp_dir[1]!=':' && temp_dir[0]!='\\') {
- strcpy(str,temp_dir);
- sprintf(temp_dir,"%s%s",node_dir,str); }
-read_file_cfg(txt);
-printf("\n\n");
-
-dirnum=libnum=-1;
-if(argv[1][0]=='*')
- misc|=ALL;
-else if(argv[1][0]!='/') {
- strupr(argv[1]);
- for(i=0;i<total_dirs;i++)
- if(!stricmp(argv[1],dir[i]->code))
- break;
- if(i>=total_dirs) {
- printf("\nDirectory code '%s' not found.\n",argv[1]);
- exit(1); }
- dirnum=i; }
-for(i=1;i<argc;i++) {
- if(!stricmp(argv[i],"/LIB")) {
- if(dirnum!=-1) {
- printf("\nBoth directory code and /LIB parameters were used.\n");
- exit(1); }
- i++;
- if(i>=argc) {
- printf("\nLibrary short name must follow /LIB parameter.\n");
- exit(1); }
- strupr(argv[i]);
- for(j=0;j<total_libs;j++)
- if(!stricmp(lib[j]->sname,argv[i]))
- break;
- if(j>=total_libs) {
- printf("\nLibrary short name '%s' not found.\n",argv[i]);
- exit(1); }
- libnum=j; }
- else if(!stricmp(argv[i],"/NOT")) {
- if(nots>=MAX_NOTS) {
- printf("\nMaximum number of /NOT options (%u) exceeded.\n"
- ,MAX_NOTS);
- exit(1); }
- i++;
- if(i>=argc) {
- printf("\nDirectory internal code must follow /NOT parameter.\n");
- exit(1); }
- sprintf(not[nots++],"%.8s",argv[i]); }
- else if(!stricmp(argv[i],"/OFF"))
- misc|=OFFLINE;
- else if(!stricmp(argv[i],"/NOL"))
- misc|=NO_LINK;
- else if(!stricmp(argv[i],"/RPT"))
- misc|=REPORT;
- else if(!stricmp(argv[i],"/ALL")) {
- if(dirnum!=-1) {
- printf("\nBoth directory code and /ALL parameters were used.\n");
- exit(1); }
- if(libnum!=-1) {
- printf("\nBoth library name and /ALL parameters were used.\n");
- exit(1); }
- misc|=ALL; } }
-
-for(i=0;i<total_dirs;i++) {
- if(!(misc&ALL) && i!=dirnum && dir[i]->lib!=libnum)
- continue;
- for(j=0;j<nots;j++)
- if(!stricmp(not[j],dir[i]->code))
- break;
- if(j<nots)
- continue;
-
- if(misc&NO_LINK && dir[i]->misc&DIR_FCHK) {
- strcpy(tmp,dir[i]->path);
- if(tmp[0]=='.') {
- sprintf(str,"%s%s",node_dir,tmp);
- strcpy(tmp,str); }
- sprintf(str,"%s*.*",tmp);
- printf("\nSearching %s for unlinked files\n",str);
- for(j=_dos_findfirst(str,_A_NORMAL,&ff);!j
- ;j=_dos_findnext(&ff)) {
- strupr(ff.name);
- padfname(ff.name,str);
- if(!findfile(i,str)) {
- sprintf(str,"%s%s",tmp,ff.name);
- printf("Removing %s (not in database)\n",ff.name);
- if(!(misc&REPORT) && remove(str))
- printf("Error removing %s\n",str); } }
-#ifdef __WATCOMC__
- _dos_findclose(&ff);
-#endif
- }
-
- if(!dir[i]->maxage && !(misc&OFFLINE))
- continue;
-
- printf("\nScanning %s %s\n",lib[dir[i]->lib]->sname,dir[i]->lname);
-
- sprintf(str,"%s%s.IXB",dir[i]->data_dir,dir[i]->code);
- if((file=nopen(str,O_RDONLY))==-1)
- continue;
- l=filelength(file);
- if(!l) {
- close(file);
- continue; }
- if((ixbbuf=(char *)MALLOC(l))==NULL) {
- close(file);
- printf("\7ERR_ALLOC %s %lu\n",str,l);
- continue; }
- if(read(file,ixbbuf,l)!=l) {
- close(file);
- printf("\7ERR_READ %s %lu\n",str,l);
- FREE((char *)ixbbuf);
- continue; }
- close(file);
-
- m=0L;
- now=time(NULL);
- while(m<l) {
- memset(&workfile,0,sizeof(file_t));
- for(j=0;j<12 && m<l;j++)
- if(j==8)
- fname[j]='.';
- else
- fname[j]=ixbbuf[m++];
- fname[j]=0;
- strcpy(workfile.name,fname);
- unpadfname(workfile.name,fname);
- workfile.dir=i;
- sprintf(str,"%s%s"
- ,workfile.altpath>0 && workfile.altpath<=altpaths
- ? altpath[workfile.altpath-1]
- : dir[workfile.dir]->path,fname);
- if(str[0]=='.') {
- sprintf(tmp,"%s%s",node_dir,str);
- strcpy(str,tmp); }
- workfile.datoffset=ixbbuf[m]|((long)ixbbuf[m+1]<<8)
- |((long)ixbbuf[m+2]<<16);
- workfile.dateuled=(ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
- |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24));
- workfile.datedled=(ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
- |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24));
- m+=11;
- if(dir[i]->maxage && dir[i]->misc&DIR_SINCEDL && workfile.datedled
- && (now-workfile.datedled)/86400L>dir[i]->maxage) {
- printf("Deleting %s (%ld days since last download)\n",fname
- ,(now-workfile.datedled)/86400L);
- getfiledat(&workfile);
- if(!(misc&REPORT)) {
- removefiledat(workfile);
- if(remove(str))
- printf("Error removing %s\n",str); } }
- else if(dir[i]->maxage
- && !(workfile.datedled && dir[i]->misc&DIR_SINCEDL)
- && (now-workfile.dateuled)/86400L>dir[i]->maxage) {
- printf("Deleting %s (uploaded %ld days ago)\n",fname
- ,(now-workfile.dateuled)/86400L);
- getfiledat(&workfile);
- if(!(misc&REPORT)) {
- removefiledat(workfile);
- if(remove(str))
- printf("Error removing %s\n",str); } }
- else if(misc&OFFLINE && dir[i]->misc&DIR_FCHK && !fexist(str)) {
- printf("Removing %s (doesn't exist)\n",fname);
- getfiledat(&workfile);
- if(!(misc&REPORT))
- removefiledat(workfile); } }
-
- FREE((char *)ixbbuf); }
-}
diff --git a/src/sbbs2/delfiles/makeall.bat b/src/sbbs2/delfiles/makeall.bat
deleted file mode 100755
index d68900c3d3397527fe45f8723f77457287880eda..0000000000000000000000000000000000000000
--- a/src/sbbs2/delfiles/makeall.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-@echo off
-wmake OS=DOS %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=DOSX %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=OS2 %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=NT %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-:end
-
diff --git a/src/sbbs2/delfiles/makefile b/src/sbbs2/delfiles/makefile
deleted file mode 100644
index 4b9781ebdaf74d7954f67967754057ef997bad55..0000000000000000000000000000000000000000
--- a/src/sbbs2/delfiles/makefile
+++ /dev/null
@@ -1,89 +0,0 @@
-############################################
-# Makefile for Synchronet DELFILES Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;\watcom\h\os2;..;..\smb;..\rio
-
-
-!ifeq OS DOS
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -ml
-!else
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\
-!endif
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-!ifeq OS NT
-SYSTEM = NT
-!endif
-
-LFLAGS = option stack=16k system $(SYSTEM)
-
-MAIN = $(OS)\delfiles.exe
-OBJS = $(OS)\delfiles.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\ars.obj $(OS)\scfglib2.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\scfglib2.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
diff --git a/src/sbbs2/delfiles/makefile.bc b/src/sbbs2/delfiles/makefile.bc
deleted file mode 100644
index 2350abeb74336fdc904075cc99654114fe9f2084..0000000000000000000000000000000000000000
--- a/src/sbbs2/delfiles/makefile.bc
+++ /dev/null
@@ -1,77 +0,0 @@
-############################################
-# Makefile for Synchronet ADDFILES Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -N -d -C -I$(INCLUDE)
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -N -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-!endif
-MAIN = $(OS)\delfiles.exe
-OBJS = $(OS)\delfiles.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj \
- $(OS)\ars.obj $(OS)\scfglib2.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL).obj $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_TEXT_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib2.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_TEXT_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
diff --git a/src/sbbs2/dos/rciol.obj b/src/sbbs2/dos/rciol.obj
deleted file mode 100644
index 9d4feb5ec5850d5991c8a550c0527ceac20db4a6..0000000000000000000000000000000000000000
Binary files a/src/sbbs2/dos/rciol.obj and /dev/null differ
diff --git a/src/sbbs2/dstsedit/dstsedit.c b/src/sbbs2/dstsedit/dstsedit.c
deleted file mode 100644
index 87cf898f7e09aa98caa968f62c63b90d2cac350a..0000000000000000000000000000000000000000
--- a/src/sbbs2/dstsedit/dstsedit.c
+++ /dev/null
@@ -1,227 +0,0 @@
-/* DSTSEDIT.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <dos.h>
-#include <dir.h>
-#include <stdio.h>
-#include <io.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <errno.h>
-#include <stdlib.h>
-
-#include "..\sbbsdefs.h"
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=O_DENYWRITE;
- else share=O_DENYALL;
-while(((file=open(str,O_BINARY|share|access,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN)
-#ifndef __OS2__
- if(count>10)
- delay(50);
-#else
- ;
-#endif
-if(file==-1 && errno==EACCES)
- puts("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
- struct time curtime;
- struct date date;
-
-if(!strcmp(str,"00/00/00"))
- return(0);
-curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
-if(str[6]<'7')
- date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
-else
- date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
-date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
-date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
-return(dostounix(&date,&curtime));
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct time curtime;
- struct date date;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-
-int main(int argc, char **argv)
-{
- char ch, str[512], path[256]
- ,*lst="%c) %-25s: %13lu\n"
- ,*nv="\nNew value: ";
- int file;
- stats_t stats;
- time_t t;
-
-if(argc>1)
- strcpy(path,argv[1]);
-else
- getcwd(path,MAXDIR);
-if(path[strlen(path)-1]!='\\')
- strcat(path,"\\");
-
-sprintf(str,"%sDSTS.DAB",path);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("Can't open %s\r\n",str);
- exit(1); }
-read(file,&t,4L);
-if(read(file,&stats,sizeof(stats_t))!=sizeof(stats_t)) {
- close(file);
- printf("Error reading %u bytes from %s\r\n",sizeof(stats_t),str);
- exit(1); }
-close(file);
-while(1) {
- clrscr();
- printf("Synchronet Daily Statistics Editor v1.01\r\n\r\n");
- printf("S) %-25s: %13s\n","Date Stamp",unixtodstr(t,str));
- printf(lst,'L',"Total Logons",stats.logons);
- printf(lst,'O',"Logons Today",stats.ltoday);
- printf(lst,'T',"Total Time on",stats.timeon);
- printf(lst,'I',"Time on Today",stats.ttoday);
- printf(lst,'U',"Uploaded Files Today",stats.uls);
- printf(lst,'B',"Uploaded Bytes Today",stats.ulb);
- printf(lst,'D',"Downloaded Files Today",stats.dls);
- printf(lst,'W',"Downloaded Bytes Today",stats.dlb);
- printf(lst,'P',"Posts Today",stats.ptoday);
- printf(lst,'E',"E-Mails Today",stats.etoday);
- printf(lst,'F',"Feedback Today",stats.ftoday);
- printf("%c) %-25s: %13u\r\n",'N',"New Users Today",stats.nusers);
-
- printf("Q) Quit and save changes\r\n");
- printf("X) Quit and don't save changes\r\n");
-
- printf("\r\nWhich: ");
-
- ch=toupper(getch());
- printf("%c\r\n",ch);
-
- switch(ch) {
- case 'S':
- printf("Date stamp (MM/DD/YY): ");
- gets(str);
- if(str[0])
- t=dstrtounix(str);
- break;
- case 'L':
- printf(nv);
- gets(str);
- if(str[0])
- stats.logons=atol(str);
- break;
- case 'O':
- printf(nv);
- gets(str);
- if(str[0])
- stats.ltoday=atol(str);
- break;
- case 'T':
- printf(nv);
- gets(str);
- if(str[0])
- stats.timeon=atol(str);
- break;
- case 'I':
- printf(nv);
- gets(str);
- if(str[0])
- stats.ttoday=atol(str);
- break;
- case 'U':
- printf(nv);
- gets(str);
- if(str[0])
- stats.uls=atol(str);
- break;
- case 'B':
- printf(nv);
- gets(str);
- if(str[0])
- stats.ulb=atol(str);
- break;
- case 'D':
- printf(nv);
- gets(str);
- if(str[0])
- stats.dls=atol(str);
- break;
- case 'W':
- printf(nv);
- gets(str);
- if(str[0])
- stats.dlb=atol(str);
- break;
- case 'P':
- printf(nv);
- gets(str);
- if(str[0])
- stats.ptoday=atol(str);
- break;
- case 'E':
- printf(nv);
- gets(str);
- if(str[0])
- stats.etoday=atol(str);
- break;
- case 'F':
- printf(nv);
- gets(str);
- if(str[0])
- stats.ftoday=atol(str);
- break;
- case 'N':
- printf(nv);
- gets(str);
- if(str[0])
- stats.nusers=atoi(str);
- break;
- case 'Q':
- sprintf(str,"%sDSTS.DAB",path);
- if((file=nopen(str,O_WRONLY))==-1) {
- printf("Error opening %s\r\n",str);
- exit(1); }
- write(file,&t,4L);
- write(file,&stats,sizeof(stats_t));
- close(file);
- case 'X':
- exit(0);
- default:
- putchar(7);
- break; } }
-}
diff --git a/src/sbbs2/dstsedit/make.bat b/src/sbbs2/dstsedit/make.bat
deleted file mode 100755
index b2a462a0295bfcd8834a3eeb9c0d4ace913e2a97..0000000000000000000000000000000000000000
--- a/src/sbbs2/dstsedit/make.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -I.. -w-pro dstsedit.c
diff --git a/src/sbbs2/dupefind/dupefind.c b/src/sbbs2/dupefind/dupefind.c
deleted file mode 100644
index 4d868182183e5d8308e3cfa1ed21af5acd59103c..0000000000000000000000000000000000000000
--- a/src/sbbs2/dupefind/dupefind.c
+++ /dev/null
@@ -1,311 +0,0 @@
-/* DUPEFIND.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "crc32.h"
-
-#define DUPEFIND_VER "1.01"
-
-void bail(int code)
-{
-exit(code);
-}
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stderr));
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(access&O_WRONLY) access|=O_RDWR; /* fdopen can't open WRONLY */
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&(O_RDONLY|O_RDWR))
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&(O_WRONLY|O_RDWR))
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- int c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-char *display_filename(ushort dir_num,ushort fil_off)
-{
- static char str[256];
- char fname[13];
- int file;
-
- sprintf(str,"%s%s.IXB",dir[dir_num]->data_dir,dir[dir_num]->code);
- if((file=nopen(str,O_RDONLY))==-1)
- return("UNKNOWN");
- lseek(file,(long)(22*(fil_off-1)),SEEK_SET);
- read(file,fname,11);
- close(file);
-
- sprintf(str,"%-8.8s.%c%c%c",fname,fname[8],fname[9],fname[10]);
- return(str);
-}
-
-void main(int argc,char **argv)
-{
- char str[256],*ixbbuf,*p;
- ulong **fcrc,*foundcrc,total_found=0L;
- ushort i,j,k,h,g,start_lib=0,end_lib=0,found=-1;
- int file;
- long l,m;
- read_cfg_text_t txt;
-
-putenv("TZ=UCT0");
-_fmode=O_BINARY;
-setvbuf(stdout,NULL,_IONBF,0);
-
-fprintf(stderr,"\nDUPEFIND Version %s (%s) - Synchronet Duplicate File "
- "Finder\n"
- ,DUPEFIND_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- );
-
- p=getenv("SBBSNODE");
- if(p==NULL) {
- fprintf(stderr,"\nSBBSNODE environment variable must be set.\n");
- fprintf(stderr,"\nExample: SET SBBSNODE=C:\\SBBS\\NODE1\n");
- exit(1); }
-
- if(!stricmp(argv[1],"/?") || !stricmp(argv[1],"?")) {
- fprintf(stderr,"\n");
- fprintf(stderr,"usage: DUPEFIND [start] [end]\n");
- fprintf(stderr,"where: [start] is the starting library number to check\n");
- fprintf(stderr," [end] is the final library number to check\n");
- return; }
-
-
- strcpy(node_dir,p);
- if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
- txt.openerr="\7\nError opening %s for read.\n";
- txt.reading="\nReading %s...";
- txt.readit="\rRead %s ";
- txt.allocerr="\7\nError allocating %u bytes of memory\n";
- txt.error="\7\nERROR: Offset %lu in %s\r\n\n";
-
- read_node_cfg(txt);
- if(ctrl_dir[0]=='.') {
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str);
- if(_fullpath(str,ctrl_dir,40))
- strcpy(ctrl_dir,str); }
- backslash(ctrl_dir);
- read_main_cfg(txt);
- if(data_dir[0]=='.') {
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str);
- if(_fullpath(str,data_dir,40))
- strcpy(data_dir,str); }
- backslash(data_dir);
- read_file_cfg(txt);
- lputs("\n");
-
- start_lib=0;
- end_lib=total_libs-1;
- if(argc>1)
- start_lib=end_lib=atoi(argv[1])-1;
- if(argc>2)
- end_lib=atoi(argv[2])-1;
-
- if((fcrc=(ulong **)MALLOC(total_dirs*sizeof(ulong *)))==NULL) {
- printf("Not enough memory for CRCs.\r\n");
- exit(1); }
-
- for(i=0;i<total_dirs;i++) {
- fprintf(stderr,"Reading directory index %u of %u\r",i+1,total_dirs);
- sprintf(str,"%s%s.IXB",dir[i]->data_dir,dir[i]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- fcrc[i]=(ulong *)MALLOC(1*sizeof(ulong));
- fcrc[i][0]=0;
- continue; }
- l=filelength(file);
- if(!l || (dir[i]->lib<start_lib || dir[i]->lib>end_lib)) {
- close(file);
- fcrc[i]=(ulong *)MALLOC(1*sizeof(ulong));
- fcrc[i][0]=0;
- continue; }
- if((fcrc[i]=(ulong *)MALLOC((l/22+2)*sizeof(ulong)))==NULL) {
- printf("Not enough memory for CRCs.\r\n");
- exit(1); }
- fcrc[i][0]=(ulong)(l/22);
- if((ixbbuf=(char *)MALLOC(l))==NULL) {
- close(file);
- printf("\7Error allocating memory for index %s.\r\n",str);
- continue; }
- if(read(file,ixbbuf,l)!=l) {
- close(file);
- printf("\7Error reading %s.\r\n",str);
- FREE(ixbbuf);
- continue; }
- close(file);
- j=1;
- m=0L;
- while(m<l) {
- sprintf(str,"%-11.11s",(ixbbuf+m));
- strupr(str);
- fcrc[i][j++]=crc32(str);
- m+=22; }
- FREE(ixbbuf); }
- lputs("\n");
-
- foundcrc=0L;
- for(i=0;i<total_dirs;i++) {
- if(dir[i]->lib<start_lib || dir[i]->lib>end_lib)
- continue;
- lprintf("Scanning %s %s\n",lib[dir[i]->lib]->sname,dir[i]->sname);
- for(k=1;k<fcrc[i][0];k++) {
- for(j=i+1;j<total_dirs;j++) {
- if(dir[j]->lib<start_lib || dir[j]->lib>end_lib)
- continue;
- for(h=1;h<fcrc[j][0];h++) {
- if(fcrc[i][k]==fcrc[j][h]) {
- if(found!=k) {
- found=k;
- for(g=0;g<total_found;g++) {
- if(foundcrc[g]==fcrc[i][k])
- g=total_found+1; }
- if(g==total_found) {
- ++total_found;
- if((foundcrc=(ulong *)REALLOC(foundcrc
- ,total_found*sizeof(ulong)))==NULL) {
- printf("Out of memory reallocating\r\n");
- exit(1); } }
- else
- found=0;
- printf("\n%-12s is located in : %-*s %s\n"
- "%-12s and : %-*s %s\n"
- ,display_filename(i,k)
- ,LEN_GSNAME
- ,lib[dir[i]->lib]->sname
- ,dir[i]->sname
- ,""
- ,LEN_GSNAME
- ,lib[dir[j]->lib]->sname
- ,dir[j]->sname
- ); }
- else
- printf("%-12s and : %-*s %s\n"
- ,""
- ,LEN_GSNAME
- ,lib[dir[j]->lib]->sname
- ,dir[j]->sname
- ); } } } } }
-}
-
diff --git a/src/sbbs2/dupefind/makeall.bat b/src/sbbs2/dupefind/makeall.bat
deleted file mode 100755
index d68900c3d3397527fe45f8723f77457287880eda..0000000000000000000000000000000000000000
--- a/src/sbbs2/dupefind/makeall.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-@echo off
-wmake OS=DOS %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=DOSX %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=OS2 %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=NT %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-:end
-
diff --git a/src/sbbs2/dupefind/makefile b/src/sbbs2/dupefind/makefile
deleted file mode 100644
index 9af7a2f85ff375e04410028f3813f3a9c129e78c..0000000000000000000000000000000000000000
--- a/src/sbbs2/dupefind/makefile
+++ /dev/null
@@ -1,89 +0,0 @@
-############################################
-# Makefile for Synchronet DUPEFIND Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;\watcom\h\os2;..;..\smb;..\rio
-
-
-!ifeq OS DOS
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -ml
-!else
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\
-!endif
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-!ifeq OS NT
-SYSTEM = NT
-!endif
-
-LFLAGS = option stack=16k system $(SYSTEM)
-
-MAIN = $(OS)\dupefind.exe
-OBJS = $(OS)\dupefind.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\ars.obj $(OS)\scfglib2.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\scfglib2.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
diff --git a/src/sbbs2/dupefind/makefile.bc b/src/sbbs2/dupefind/makefile.bc
deleted file mode 100644
index 22b00d8a8e687772c9f8254b3db29bd3a60860b8..0000000000000000000000000000000000000000
--- a/src/sbbs2/dupefind/makefile.bc
+++ /dev/null
@@ -1,74 +0,0 @@
-############################################
-# Makefile for Synchronet FILELIST Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE)
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -N -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-!endif
-MAIN = $(OS)\dupefind.exe
-OBJS = $(OS)\dupefind.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj \
- $(OS)\scfglib2.obj $(OS)\ars.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL).obj $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Global Variables
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_XTRN_CFG
--DNO_TEXT_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib2.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_XTRN_CFG
--DNO_TEXT_CFG
--DNO_CHAT_CFG
-! ..\$&.c
diff --git a/src/sbbs2/echo/docs/fidostep.doc b/src/sbbs2/echo/docs/fidostep.doc
deleted file mode 100644
index c6bf69e6dfda09cd92d4eaaa15cc37f201c9feed..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/docs/fidostep.doc
+++ /dev/null
@@ -1,321 +0,0 @@
-Step-by-Step instructions for setting up FidoNet using SBBSecho and InterMail
-=============================================================================
-
-One of the most difficult tasks that the novice sysop will encounter is the
-setting up of FidoNet. These instructions will take you step by step through
-the process of setting up FidoNet on your BBS. Be warned that these steps are
-very basic, just enough to get FidoNet up and running on your system, but it
-may still be necessary for you to refer to the documentation which accompanies
-the programs referred to in these steps. For any advanced operations you will
-definitely need to refer to the documentation of programs referred to in these
-steps. If you know of anyone who is already on FidoNet that is willing to help
-you out, by all means ask them for their help!
-
-NOTE that while it doesn't cost anything to have a node number (for sending
-and receiving netmail) or to receive local conferences, there is usually a
-nominal fee (called "cost recovery") to receive conferences from the FidoNet
-backbone or files from the FidoNet filebone.
-
- 1) First of all you will need to obtain a copy of FidoNet's Policy 4 document
- (the filename is usually POLICY4.ZIP or POLICY4.TXT), a recent nodelist
- (usually named NODELIST.???), AND a front-end mailer program. All three of
- these can normally be downloaded from any local BBS which carries FidoNet
- (if not, an e-mail to the sysop of a FidoNet BBS can usually point you in
- the right direction). There are several front-end mailers available such
- as FrontDoor, InterMail, D'Bridge, SEAdog, Dutchie, BinkleyTerm, and Portal
- of Power to name a few (the latter two are referred to as "FLO-Style"
- mailers and the others are referred to as "Attach-Style" mailers). Most
- front-end mailers offer a limited evaluation version which you can try out
- before you decide to purchase the program.
-
- 2) Read the Policy 4 document, it will give you information about FidoNet as
- well as some specifics on how to obtain a node number for your system.
-
- 3) If you do not plan to run InterMail (or FrontDoor which is very similar)
- you must set up the front-end mailer you plan to use by following the
- directions which accompany the program and then skip to step number 9.
- The documentation will also tell you how to "compile" the nodelist file
- you've downloaded so that your front-end mailer can use it. Use the
- temporary address specified in Policy 4 when specifying your node address
- in the front-end mailer.
-
-Setting up InterMail v2.xx or FrontDoor v2.xx
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 4) Install InterMail per IM.DOC (included with InterMail).
-
- a) If using FrontDoor, follow the FD.DOC file and substitute the letters FD
- where ever you see an IM in this section.
-
- 5) Copy the MAILER.BAT included with SBBSecho and the EXEBBS.BAT from the
- Synchronet DOCS directory into the InterMail directory (C:\IM).
-
- 6) Change into the InterMail directory, run IMSETUP, and perform the
- following:
-
- a) Under Global->Address->Main, enter your FidoNet address (or the
- temporary address specified in Policy 4 until such time as you have
- received your own address).
-
- b) Under Global->Filenames, verify that the paths are set similar to the
- following:
-
- ������������������������������������������������������� Filenames and paths �
- � �
- � System C:\IM\SYSTEM\ (or C:\FD\ for FrontDoor) �
- � Netmail C:\IM\MAIL\ �
- � Files C:\IM\INBOUND\ �
- � Sec Files C:\IM\INBOUND\ �
- �*Packets C:\IM\PACKETS\ �
- �*Log file C:\IM\IM.LOG �
- � Banner �
- � Nodelist C:\IM\NODELIST\ �
- � In-event �
- � Hudsonfmt �
- � Wildcat! �
- � Swapping C:\IM\ �
- � Semaphore C:\IM\ �
- � �
- � * = Must be unique for each Mail Server �
- ���������������������������������������������������������������������������ͼ
-
- c) Under Modem->Advanced Setup->Connect Strings set ALL "BBSexit" levels
- to 100. (For FrontDoor under Mailer->Errorlevels set all baud rates to
- 100, Received Mail to 50, and Create .BAT file to Yes).
-
- d) Under Manager->Events, make sure all your events are set to exit when
- mail is received (under Event Behavior). This allows for the immediate
- importation of new messages into the BBS.
-
- e) Under Manager->Events, add the following event:
-
- ���������������������������������������������������������������������� Edit �
- � Tag X �
- � Days -------A �
- � Modifier Ignore eventbase (*) �
- � Start time 04:30 �
- � Length 00:01 �
- � Errorlevel 75 �
- � Not used �
- � Behavior �
- � Use alias 1:103/705 �
- � Retry delay 0 �
- � Comment Synchronet exclusive event �
- ���������������������������������������������������������������������������ĺ
- � Event tag A..YZ - eXternal event, errorlevel is required �
- ���������������������������������������������������������������������������ͼ
-
- f) Under Mailer->Misc, set "Trigger exit upon receipt of netmail" and
- "Upon receipt of ANY file" to Yes. This will allow for the immediate
- importation of NetMail and any File Distribution Echoes you may carry.
-
- g) Under Modem->Hardware, set "Lower DTR when busy" to "No".
-
- h) Under Modem->Command strings, set the "Down" string to "ATM0H1|".
-
- i) Exit IMSETUP.
-
- 7) Unarc the nodelist file (NODELIST.???) that you downloaded previously
- into your nodelist directory.
-
- 8) Now run IMNC to compile the nodelist.
-
-Settup up FidoNet in SCFG
-~~~~~~~~~~~~~~~~~~~~~~~~~
- 9) Run SCFG from one of your node directories, or hit 'C' from the waiting for
- caller screen. Then select Networks->FidoNet EchoMail and NetMail.
- You'll then be brought to a menu that should be set up similar to this:
-
- �[�][?]���������������������������������������������������ͻ
- � FidoNet EchoMail and NetMail �
- ����������������������������������������������������������
- � �System Addresses 1:103/705 �
- � �Default Outbound Address No �
- � �Default Origin Line �
- � �NetMail Semaphore C:\IM\IMRESCAN.NOW �
- � �EchoMail Semaphore C:\IM\IMEXIT.025 �
- � �Inbound File Directory C:\IM\INBOUND\ �
- � �EchoMail Base Directory �
- � �NetMail Directory C:\IM\MAIL\ �
- � �Allow Sending of NetMail Yes �
- � �Allow File Attachments Yes �
- � �Send NetMail Using Alias No �
- � �NetMail Defaults to Crash No �
- � �NetMail Defaults to Direct No �
- � �NetMail Defaults to Hold No �
- � �Kill NetMail After Sent Yes �
- � �Cost to Send NetMail 102400 �
- ����������������������������������������������������������ͼ
-
- a) For FrontDoor the NetMail Semaphore file should be set to
- C:\FD\FDRESCAN.NOW and the EchoMail Semaphore file should be set
- to C:\FD\FDEXIT.025.
-
- b) For FrontDoor version 2.11, the EchoMail Semaphore file should be
- set to C:\FD\FDXIT.025.
-
- c) For FrontDoor version 2.20 (commercial, multinode), the EchoMail
- Semaphore file should be set to C:\FD\FDXIT#.025, where # is the
- node number (0 based).
-
-10) Set your address to your system's FidoNet address (or the temporary address
- specified in Policy 4 until such time as you have received your own
- address). This is the address used for sending and receiving NetMail. It
- will also be used as the default address for message sub-boards.
-
-11) Create an origin line for your system that most likely contains your BBS
- name and phone number.
-
-12) Following is an overview of the remaining options available on this menu:
-
- a) System Addresses:
- This option will bring you to a sub-menu to allow you to configure
- different addresses (AKAs) for your system. Following is an example
- for a BBS configured for two fido type networks.
-
- �[�][?]���������������������ͻ
- � System Addresses �
- ����������������������������
- � �Main 1:103/705 �
- � �AKA 1 1:103/706 �
- � �AKA 2 85:805/205 �
- � � �
- ����������������������������ͼ
-
- b) Default Outbound Address:
- When a user sends netmail, this is the 'send to' address that is used
- as a default (useful for FidoNet<->Internet gateways).
-
- c) NetMail Semaphore:
- This is the name of the trigger file which will cause your front-end
- mailer to exit and scan for outgoing netmail.
-
- d) EchoMail Semaphore:
- This is the name of the trigger file which will cause your front-end
- mailer to exit and scan for outgoing echomail.
-
- e) Inbound File Directory:
- This is the name of the directory where your front-end mailer stores
- incoming files.
-
- f) EchoMail Base Directory:
- This is the base directory for your echomail subdirectories
-
- g) NetMail Directory:
- This is the name of the directory where your front-end mailer looks for
- and places netmail.
-
- h) Allow Sending of NetMail:
- When set to 'Yes' users can send netmail from your system.
-
- i) Allow File Attachments:
- When set to 'Yes' users can send netmail file attachments from your
- system.
-
- j) Send NetMail Using Alias:
- When set to 'Yes' the user alias will be used (rather than their
- real name) on outgoing netmail.
-
- k) NetMail Defaults to Crash:
- If set to 'Yes' netmail sent from your system will default to crash
- status (send immediately and directly).
-
- l) NetMail Defaults to Direct:
- If set to 'Yes' netmail sent from your system will default to direct
- status (send directly).
-
- m) NetMail Defaults to Hold:
- If set to 'Yes', netmail sent from your system will default to hold
- status.
-
- n) Kill NetMail After Sent:
- Setting this to 'Yes' will delete outgoing netmail after it has been
- sent.
-
- o) Cost to Send NetMail:
- This is the cost (in credits) that a user will be charged when sending
- netmail.
-
-13) Setup SBBSecho by running the ECHOCFG program and reading the documentation
- for information on the available options.
-
- a) Under Paths...->Outbound Directory be sure to enter the path where
- outgoing mail packets and bundles should be placed (ie: C:\IM\OUTBOUND).
-
- b) Select the appropriate Mailer Type.
-
- c) Enter your registration number (if you are a registered owner of the
- SBBSecho program).
-
-14) Once you have done this you must now run the file MAILER.BAT (if using an
- Attach-Style mailer) to use Synchronet with your front-end mailer.
- MAILER.BAT must be run from your front-end mailer's directory (e.g. C:\IM).
- You will no longer run the file SBBS.BAT to start this node (if you run a
- multi-node system, you will still use SBBS.BAT to start those nodes which
- are not using a front-end mailer).
-
- a) If you are NOT using InterMail as your front-end mailer, be sure to
- modify your MAILER.BAT file to reflect the front-end mailer that you
- are using.
-
-15) Follow the instructions given in the Policy 4 document to determine who
- you should send netmail to in order to obtain your own node number.
-
-16) Now, from your front end mailer, send a netmail to this person following
- the instructions contained in the Policy 4 document. Once you have done
- this and the netmail has been sent, you should patiently await a netmail
- reply containing your node number and the node number of your hub (where
- you will send/receive your echomail and netmail to/from).
-
-17) Once you have received your node number, you'll want to replace the
- temporary node number you used in your front-end mailer as well as in
- SCFG->Networks->FidoNet Echomail and Netmail->System Addresses to it.
-
-18) Send your hub a message with the Area Manager (for the backbone <echomail>)
- and Areafix (for the filebone <files>) passwords you wish to use on their
- systems. You will need to remember these passwords as you will be using
- them to do remote maintenance (such as adding and removing conferences and
- file areas that you wish to receive).
-
-19) Your hub should respond with Area Manager instructions and a list of areas
- available for you to connect to. If not, contact your hub for more
- information.
-
-20) Look through the list of areas available to you and determine which
- conferences you'd like to carry. In SCFG->Message Areas create a
- message group(s) for the conferences you'd like to carry. When setting
- up a sub-board for a conference, be sure to use the "Area Tag" name
- given in the area list as the sub-board Short Name.
-
- a) Under Network Options... for each sub-board toggle the FidoNet
- Echomail option toggled to YES.
-
- b) If the conference requires a different address, configure the address
- under Network Options...
-
- c) If you allow aliases on your system, under Toggle Options... set Use
- Real Names to YES.
-
- d) If you are unfamiliar with adding message groups and/or sub-boards,
- consult that section of the Synchronet System Operator's Manual.
-
- e) For a more complete list of conferences available on the FidoNet
- backbone you may wish to download the file FIDONET.NA from either your
- hub or a local FidoNet BBS. This file contains a list of ALL
- conferences carried on the backbone.
-
-21) Once you have set up all of the conferences you'd like to carry, you'll
- need to go to SCFG->Message Areas-><group>->Export Areas...->AREAS.BBS
- (SBBSecho) to create an AREAS.BBS file for SBBSecho to use.
-
-22) Now following the Area Manager instructions, send a message to your hub's
- Area Manager and turn on all of the conferences you wish to carry. Note
- that there are some administrative conferences for FidoNet that your
- users shouldn't be able to read or post on, and some that even you
- shouldn't post on, there is also usually a "test" conference which you may
- want to set up to post messages on and insure that echomail is being sent
- and received properly.
-
-23) That's about all there is to it. You are now set up on FidoNet and should
- be able to send and receive FidoNet echomail and netmail.
-
-
diff --git a/src/sbbs2/echo/docs/man.c b/src/sbbs2/echo/docs/man.c
deleted file mode 100644
index f87fa9b3c9e0c49f4bb456cb0661bca56464faa9..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/docs/man.c
+++ /dev/null
@@ -1,189 +0,0 @@
-/* MAN.C */
-
-/* Synchronet docs convert to paged format for printing */
-
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <dos.h>
-#include <io.h>
-#include <alloc.h>
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (unsigned char)str[c-1]<=32) c--;
-str[c]=0;
-}
-
-int main(int argc, char **argv)
-{
- char str[256],str2[256],infile[128],outfile[128],idxfile[128]
- ,*invbuf,*outvbuf,*idxvbuf,*tempvbuf,*p,*p2
- ,chap[128]="SBBSecho"
- ,pagetag[250][9]
- ,idxtag[512][9];
- int i,j,page=1,line=0,pagetags=0,idxtags=0;
- long pageidx[250],idx[512],l;
- FILE *in, *out, *index, *tempfile;
-
-if(argc<3) {
- printf("usage: man infile outfile indexfile\r\n");
- exit(1); }
-
-strcpy(infile,argv[1]);
-strcpy(outfile,argv[2]);
-strcpy(idxfile,argv[3]);
-
-if((in=fopen(infile,"rb"))==NULL) {
- printf("error opening %s\r\n",infile);
- exit(1); }
-
-if((out=fopen(outfile,"wb"))==NULL) {
- printf("error opening %s\r\n",outfile);
- exit(1); }
-
-//if((index=fopen(idxfile,"rb"))==NULL) {
-// printf("error opening %s\r\n",idxfile);
-// exit(1); }
-
-//if((tempfile=fopen("TEMPFILE","w+b"))==NULL) {
-// printf("error opening TEMPFILE\r\n");
-// exit(1); }
-
-if((invbuf=(char *)malloc(8*1024))==NULL) {
- printf("error allocating input buffer\n");
- exit(1); }
-
-if((outvbuf=(char *)malloc(8*1024))==NULL) {
- printf("error allocating output buffer\n");
- exit(1); }
-
-//if((idxvbuf=(char *)malloc(8*1024))==NULL) {
-// printf("error allocating index buffer\n");
-// exit(1); }
-
-//if((tempvbuf=(char *)malloc(8*1024))==NULL) {
-// printf("error allocating temp buffer\n");
-// exit(1); }
-
-setvbuf(in,invbuf,_IOFBF,8*1024);
-setvbuf(out,outvbuf,_IOFBF,8*1024);
-//setvbuf(index,idxvbuf,_IOFBF,8*1024);
-//setvbuf(tempfile,tempvbuf,_IOFBF,8*1024);
-
-//while(!ferror(index) && !feof(index)) {
-// p=fgets(str,128,index);
-// fputs(str,tempfile);
-// while((p2=strstr(str,"@@"))!=NULL) {
-// p2[0]=32;
-// p2[1]=32;
-// sprintf(idxtag[idxtags],"%-.8s",p2+2);
-// idx[idxtags++]=ftell(index)-strlen(p2); } }
-
-while(!ferror(in) && !feof(in)) {
- p=fgets(str,128,in);
- if(str[0]=='&' && str[1]=='&') {
- truncsp(str+2);
- strcpy(chap,str+2);
- continue; }
- if(str[0]=='$' && str[1]=='$') {
- truncsp(str+2);
-
-// for(i=0;i<idxtags;i++) {
-// if(!stricmp(str+2,idxtag[i])) {
-// fseek(tempfile,idx[i],SEEK_SET);
-// sprintf(str2,"%-10d",page);
-// fprintf(tempfile,"%s",str2); } }
-
- for(i=0;i<pagetags;i++)
- if(!stricmp(str+2,pagetag[i]))
- break;
- if(i<pagetags) {
- l=ftell(out);
- fseek(out,pageidx[i]-1,SEEK_SET);
- sprintf(str,"%10d",page);
- for(i=0;i<10;i++)
- if(str[i]==0x20)
- str[i]='.';
- fprintf(out,"%s",str);
- fseek(out,l,SEEK_SET); }
- continue; }
-
- line++;
- if(!p)
- break;
- if(!p || str[0]==0xc || line==55) {
- while(line<55) {
- fprintf(out,"\r\n");
- line++; }
- line=1;
- if(page!=1) /* no tag on page 1 */
- fprintf(out,"\r\n___________________________________________"
- "____________________________________\r\n"
- "%-35s %3u %39s"
- ,"SBBSecho",page,chap);
- fprintf(out,"\r\n\xc\r\n\r\n");
- page++; }
-
- if((p2=strstr(str,"@@"))!=NULL) {
- sprintf(pagetag[pagetags],"%-.8s",p2+2);
- pageidx[pagetags++]=ftell(out)+(p2-str)+1; }
-
- if(!p)
- break;
- if(str[0]!=0xc)
- fprintf(out,"%s",str);
- else
- line=0;
- }
-
-//fseek(tempfile,0L,SEEK_SET);
-//while(!ferror(tempfile) && !feof(tempfile)) {
-// j=0;
-// p=fgets(str2,128,tempfile);
-// for(i=0;i<strlen(str2);i++) {
-// str[j++]=str2[i];
-// if(str2[i]==',') {
-// i++;
-// str[j++]=str2[i++];
-// while(1) {
-// if(str2[i]>32 && isdigit(str2[i]))
-// str[j++]=str2[i++];
-// else
-// break; }
-// while(str2[i++]==32);
-// i-=2; } }
-// str[j]=0;
-
-// line++;
-// if(!p || str[0]==0xc || line==55) {
-// while(line<55) {
-// fprintf(out,"\r\n");
-// line++; }
-// line=1;
-// if(page!=1) /* no tag on page 1 */
-// fprintf(out,"\r\n\t___________________________________________"
-// "____________________________________\r\n"
-// "\t%-35s %3u %39s"
-// ,"Synchronet",page,"Index");
-// fprintf(out,"\r\n\xc\r\n\r\n");
-// page++; }
-
-// if(!p)
-// break;
-// if(str[0]!=0xc)
-// fprintf(out,"\t%s",str);
-// else
-// line=0;
-// }
-return(0);
-}
-
-
diff --git a/src/sbbs2/echo/docs/sbbsecho.src b/src/sbbs2/echo/docs/sbbsecho.src
deleted file mode 100644
index 61366df30d078ba12ab1eeebf20bed1fb7259d52..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/docs/sbbsecho.src
+++ /dev/null
@@ -1,838 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- SBBSecho
- Version 1.22
- Updated 02/15/96
-
- FidoNet Packet Tosser for Synchronet BBS Version 2
-
- Copyright 1995 Digital Dynamics
-
- PO Box 501
- Yorba Linda, CA 92686
-
- Voice: 714-529-6328 BBS: 714-529-9525 V.32/V.32bis
- FAX: 714-529-9721 714-529-9547 V.FC
- Fido: 1:103/705 ftp: netcom.com /pub/sb/sbbs
-
-
-Table of Contents
-=================
-&&Contents
-
-Introduction....................................................@@INTRO___
-Terminology.....................................................@@TERMS___
-Installation....................................................@@INSTALL_
-AREAS.BBS Format................................................@@AREASBBS
-Configuration...................................................@@CONFIG__
-Running SBBSecho................................................@@EXECUTE_
-Command Line Switches...........................................@@SWITCHES
-Area Manager Remote Commands....................................@@AREAFIX_
-
-Introduction
-============
-&&Introduction
-$$INTRO___
-
-SBBSecho is a full-blown FTN echomail program (tosser/scanner) for Synchronet
-BBS version 2. SBBSecho is level III implementation of the SMB v2.00
-specification including support for HyperAllocated and LZH compressed message
-bases.
-
-It is intended to replace FTSC-1 (*.MSG) compatible echomail programs (GEcho,
-Squish, FastEcho, Alexi/Mail, etc.) and SBBSFIDO with a single program
-incorporating the standard features of echomail programs without the .MSG
-phase (consuming disk space and time).
-
-You will not need to use SBBSFIDO (*.MSG import/export utility for Synchronet)
-or any echomail programs after you have installed SBBSecho.
-
-Terminology
-============
-&&Terminology
-$$TERMS___
-
-FTN
-~~~
-FidoNet Technology Network: Any network using FidoNet standards for addressing,
-mail packets, mail sessions, node lists, etc.
-
-Zones, Nets, Nodes, and Points?
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-FTN node addresses are like phone numbers, they are made up of multiple
-components (four to be exact). The components are: zone, net, node, and point.
-Each component is specified by a decimal (base-10) number, separated by symbols
-(no spaces):
-
- Zone:Net/Node.Point
-
-The zone represents the continent (if FidoNet) or the network number (if other
-FTN network). All FidoNet nodes in North America have a zone 1 address. When
-the zone is specified in an address, it is the first component and must be
-followed by a colon. If the zone is not present in an address, the local
-system's zone is assumed.
-
-The net represents the network number of the FTN node. Duplicate net numbers
-may exist between zones. If the net number is not present, the local system's
-net is assumed.
-
-The node number specifies an exact FTN node within a network. The node number
-is the only required element of an FTN node address.
-
-The point is an optional component which specifies a sub-node that does not
-directly receive mail and is also not listed in the main FTN node list, but
-instead gets all its mail from its boss-node (zone:net/node.0). When the point
-is not specified, 0 (zero) is assumed (i.e. 1:2/3 and 1:2/3.0 are identical)
-which indicates the system is not a point node address.
-
-A 2D (2 dimensional) address refers to an FTN address containing just the
-net and node numbers (i.e. 103/705).
-
-A 3D (3 dimensional) address refers to an FTN address containing the zone,
-net, and node numbers (i.e. 1:103/705), specifically excluding the point number
-if it exists.
-
-A 4D (4 dimensional) address refers to an FTN address containing the zone,
-net, node, and optional point numbers (i.e. 1:103/705.1).
-
-A 5D (5 dimensional) address refers to an FTN address consisting of a standard
-3D or 4D address with an appended "@domain" (i.e. 1:103/705@fidonet.org).
-
-Attach or FLO Mailer?
-~~~~~~~~~~~~~~~~~~~~~
-If you are using FrontDoor, InterMail, D'bridge, SEAdog, Dutchie, or any other
-ArcMail *.MSG attach-style mailer, you are using what we will refer to as an
-"Attach Mailer".
-
-If you are using BinkleyTerm, Portal of Power, or any other FLO/CLO/HLO/DLO
-style mailer, you are using what we will refer to as a "FLO Mailer".
-
-Both types are supported equally by SBBSecho.
-
-NetMail
-~~~~~~~
-Point-to-point (usually person-to-person) direct or routed messages.
-
-EchoMail
-~~~~~~~~
-Group or conference messages of a particular subject matter. Usually
-distributed on a regional or continental (e.g. FidoNet Zone 1 backbone) scale.
-FTN style echomail areas have a unique area tag (name) associated with them to
-distinguish each area from the others.
-
-Packet
-~~~~~~
-An FTN packet is a group of one or more messages contained in a single
-uncompressed file. Packets may contain echomail and/or netmail messages.
-Packets usually have a .PKT extension, although outbound NetMail packets for
-FLO Mailers will have .?UT extensions (where ? is either O, C, D, or H). The
-first eight characters of the filename may be anything, but are usually decimal
-digits representing the date and time the packet was created. SBBSecho creates
-temporary outbound packet files with a .PK_ extension and then renames them to
-.PKT when they're completed. If you find any .PK_ files in your outbound
-directory, don't worry. SBBSecho will find them the next time it is run and
-continue packing them and sending them on their way.
-
-Bundle
-~~~~~~
-An FTN bundle is a single file archive of one or more (usually compressed)
-packets. Bundles will have file extensions where the first two characters
-represent the day of the week the bundle was created (MO, TU, WE, TH, FR, SA,
-and SU) and the third character of the extension is a number or letter. The
-first eight characters of the filename may be anything, but are usually
-hexadecimal digits representing the FTN node address (or relative address) of
-the system that created the bundle. SBBSecho changes the file extension of bad
-inbound bundles to .MO_, .MO-, or .MO.
-
-Areafix/Area Manager
-~~~~~~~~~~~~~~~~~~~~
-Areafix is a synonym for area manager (the very first FTN area manager
-program was called AreaFix). Area manager capabilities (remote adding/removing
-of areas, changing compression type, etc) are built into SBBSecho, so therefore
-no external area manager program is required. If you are not an FTN hub, then
-the area manager portion of SBBSecho will probably not get any use on your
-system.
-
-Installation
-============
-&&Installing SBBSecho
-$$INSTALL_
-
-To begin, copy the SBBSECHO.EXE, ECHOCFG.EXE, and AREAMGR.HLP files into your
-Synchronet EXEC directory (usually C:\SBBS\EXEC), copy the SBBSECHO.CFG file
-into your Synchronet CTRL directory (usually C:\SBBS\CTRL), and copy the
-SBBSECHO.DOC file into your Synchronet DOCS directory (usually C:\SBBS\DOCS).
-
-If you plan on using the 32-bit DOS, OS/2, or Windows 95/NT version of
-SBBSecho, you will need to put the appropriate SBBSECHO.EXE file into your
-Synchronet EXEC directory (unzip OS2.ZIP for the OS/2 version, DOS4G.ZIP for
-the 32-bit DOS version, or WIN32.ZIP for the Windows 95/NT version). If
-you get memory allocation errors running the 16-bit DOS version or desire
-improved performance, you will want to run one of the 32-bit versions.
-
-Add the SBBSCTRL and SBBSNODE environment variables to your AUTOEXEC.BAT.
-Example:
-
-SET SBBSCTRL=C:\SBBS\CTRL
-SET SBBSNODE=C:\SBBS\NODE1
-
-Note: The node number used for the SBBSNODE environment variable is not
- important, use your NODE1 directory.
-
-These environment variables must be present for SBBSECHO and ECHOCFG to
-function correctly. Type "SET" at the DOS prompt to be sure they are listed
-correctly.
-
-You will also need to modify your existing MAILER.BAT (or FDRUN.BAT, IMRUN.BAT,
-etc) file to accomodate the use of SBBSecho, or replace it with the MAILER.BAT
-included with SBBSecho. If this is your first time setting up FidoNet, you will
-not currently have a MAILER.BAT file set up, so use the one that is included
-and modify it so that it reflects the proper drive letters and directories.
-
-Next, SBBSecho expects to find the file AREAS.BBS in your Synchronet DATA
-directory (usually C:\SBBS\DATA) unless you have overridden the default name
-and/or location using the ECHOCFG program. The format of this file is very
-similar to the standard AREAS.BBS (which many echomail programs use, or can
-at least export their native area file to this format - i.e. GEcho's GSETUP).
-
-SCFG can also export your sub-boards to AREAS.BBS, but you're probably better
-off modifying the AREAS.BBS file you're already using (if you are) or
-converting your current echomail program's area file to AREAS.BBS. This is
-because SCFG assumes the sub-board short name will be the same as the area's
-tag (as shown in your echo list), but this may not always be the case - unless
-you imported an AREAS.BBS or FIDONET.NA file into SCFG to begin with).
-
-AREAS.BBS Format
-================
-&&AREAS.BBS Format
-$$AREASBBS
-
-Lines beginning with a semicolon (;) are considered comments, and are ignored.
-
-Each line is in the following format:
-
-CODE TAG UPLINKS
-
-Where:
- CODE is the internal code of the sub-board. Any unrecognized internal
- codes are considered "Passthru" (not imported to your BBS).
-
- TAG is the FidoNet tag as shown in your echo list (i.e. FIDONET.NA).
- If this is '*', then it will be considered a "badecho" area
- and will receive all messages for areas not otherwise specified
- in this file.
-
- UPLINKS is a list of FidoNet addresses which you wish to export mail
- to. At the very least, your hub's address should be listed
- here. Your address should NOT be listed here. If multiple
- addresses are specified, you should specify the full 3D address
- for each.
-
-AREAS.BBS Example:
-
-SBBS SYNCHRONET 1:3615/50
-SYNCDATA SYNCDATA 1:3615/50
-SYNC_SYS SYNC_SYSOPS 1:3615/50
-
-The amount of spacing between each element in the line is not important. Each
-line can be up to 1000 characters in length.
-
-So if your OLD AREAS.BBS file is in .MSG format (for example):
-
-C:\FD\ECHO\SBBS SYNCHRONET 1:3615/50
-
-It must be changed to match the example given above!
-
-Configuration
-=============
-&&Configuring SBBSecho
-$$CONFIG__
-
-In order to set up SBBSecho for your system you must run the included ECHOCFG
-program. It should already be located in your EXEC directory. You may want to
-put your EXEC directory in your DOS search path so you can execute SBBSECHO and
-ECHOCFG from any drive and directory on your system.
-
-Multiple configuration files can be used (but isn't usually required) for
-multi-mailer systems. The default configuration filename is SBBSECHO.CFG
-located in your Synchronet CTRL directory. You can override this by specifying
-the name and location of the configuration file on the SBBSECHO and ECHOCFG
-command lines. Example:
-
-ECHOCFG D:\ECHO1.CFG
-SBBSECHO D:\ECHO1.CFG
-
-If you do not specify a configuration file, ECHOCFG and SBBSECHO will use
-SBBSECHO.CFG located in your Synchronet CTRL directory.
-
-Upon running ECHOCFG you will be brought to the main menu of the configuration
-program. The path and filename of the configuration file being modified will
-appear at the top of the menu. Following are screen captures of available menus
-within the configuration program and an explanation of the options contained on
-each of them.
-
- �[�][?]�������������������������������������������ͻ
- � C:\SBBS\CTRL\SBBSECHO.CFG �
- ��������������������������������������������������
- � �Mailer Type FrontDoor/Attach �
- � �Maximum Packet Size 250K �
- � �Maximum Bundle Size 250K �
- � �Areafix Failure Notification User #1 �
- � �Registration Number UNREGISTERED �
- � �Nodes... �
- � �Paths... �
- � �Log Options... �
- � �Toggle Options... �
- � �Archive Programs... �
- � �Additional Echo Lists... �
- ��������������������������������������������������ͼ
-
-Mailer Type:
- Selecting this option will toggle between the mailer types supported
- by SBBSecho, either FrontDoor (message attach) type mailers or Binkley
- (FLO file) type mailers. Choose the one that matches your front-end
- mailer type.
-
-Maximum Packet Size:
- This option allows you to set the maximum size of each outgoing
- echomail packet.
-
-Maximum Bundle Size:
- Mail packets are normally packed into what are called "bundles" (unless
- a node is set up to receive uncompressed mail packets). This option
- allows you to specify the maximum size of each outgoing mail bundle.
-
-Areafix Failure Notification:
- This is the user number of the person where notification of Areafix
- failures should be sent. Such failures include nodes which are not
- configured for areafix, nodes using incorrect areafix passwords, and
- the like. Setting this to 0 will disable this option.
-
-Registration Number:
- Upon registering SBBSecho with Digital Dynamics, you will be given a
- registration number. You should select this option and enter the
- registration number you are given here. If you have not yet registered
- the program, this should say "Unregistered".
-
-Nodes...
- This option allows you to add, remove, and configure nodes that you
- will be sending mail to. Selecting this option will bring you to
- a sub-menu which will look similar to the following:
-
- �[�][?]�����ͻ
- � Nodes �
- ������������
- � �ALL �
- � �1:100/ALL �
- � �1:200/300 �
- � �2:ALL �
- � � �
- ������������ͼ
-
- At the Nodes... sub-menu, pressing the INSert key will allow you to
- add a new node, pressing the DELete key will remove the currently
- highlighted node number, and pressing ENTER on the currently
- highlighted node will allow you to edit the options for that particular
- node from a menu like the following (note that the node number you are
- editing appears at the top of the window):
-
- �[�][?]�������������������������������ͻ
- � 1:200/300 �
- ��������������������������������������
- � �Address 1:200/300 �
- � �Archive Type ZIP �
- � �Packet Type 2+ �
- � �Packet Password �
- � �Areafix Password �
- � �Areafix Flags �
- � �Status None �
- � �Direct No �
- � �Passive No �
- � �Send Notify List No �
- ��������������������������������������ͼ
-
- Address:
- This is the address of the node you are editing, selecting it
- will allow you to change this to a different address. Using
- the "ALL" wildcard in place of one of the address components
- will allow you to configure settings for all nodes that meet
- that specication (e.g. all nodes in zone 1 can be specified
- as 1:ALL or all nodes in zone 1, net 103 can be specified
- as 1:103/ALL).
-
- Archive Type:
- This is the compression type to be used when packing mail
- bundles for this node. Selecting this option will allow you
- to choose from a menu of currently configured archive types,
- like the following:
-
- �[�][?]���������ͻ
- � Archive Type �
- ����������������
- � �ZIP �
- � �ARC �
- � �LZH �
- � �ARJ �
- � �PAK �
- � �SQZ �
- � �ZOO �
- � �None �
- ����������������ͼ
-
- Selecting "None" will specify that this node is to receive
- uncompressed packets (no bundles).
-
- Packet Type:
- This is the packet type that will be used when creating mail
- packets for this node. The default packet type used by SBBSecho
- is 2+. If you are a "point" address (e.g. 1:100/100.1) you
- should use either a type 2+ or 2.2 packet since type 2 packets
- do not support point numbers. Selecting this option will allow
- you to choose from a menu of currently supported packet types:
-
- �[�][?]��������ͻ
- � Packet Type �
- ���������������
- � �2+ �
- � �2.2 �
- � �2 �
- ���������������ͼ
-
- Packet Password:
- This is a password that will be placed into each outgoing mail
- packet for this node. Passwords are normally used for extra
- security when sending and receiving mail packets. This node
- must also have the same packet password defined for your
- address and SBBSecho must be set up for secure operation (set
- in the 'Toggle Options' sub-menu) in order for this feature to
- function properly.
-
- Areafix Password:
- This is the password that will be required by this node (in
- the subject field) when it sends messages to the area manager
- (AreaFix).
-
- Areafix Flags:
- When additional echo lists have been defined (from the
- 'Additional Echo Lists...' sub-menu) these flags determine
- which echo lists can be used by this node when processing area
- manager add requests.
-
- Status:
- This option determines the netmail status that will be set
- when SBBSecho sends out an areafix message or a file attach.
- Selecting this option toggles between None, Crash, and Hold
- status.
-
- Direct:
- When set to 'Yes' this option will add a Direct kludge line
- to messages that SBBSecho sends out (or create DLO/DUT files
- for FLO mailers).
-
- Passive:
- Setting this option to 'Yes' will prevent messages from being
- sent to this node without the need for altering the AREAS.BBS
- file. This is useful for temporarily shutting off the messages
- to this node. This option can be toggled on and off remotely
- via an area manager request.
-
- Send Notify List:
- This determines whether or not this node is sent a Notify List
- when using that command line option in SBBSecho.
- A Notify List is a netmail sent to the system operator of the
- node showing options set for the node as well as connected
- areas.
-
-Paths...
- This option allows you to configure the paths and filenames which are
- used by SBBSecho. Selecting this option will bring you to the
- following sub-menu:
-
- �[�][?]���������������������������������������������������ͻ
- � Paths and Filenames �
- ����������������������������������������������������������
- � �Inbound Directory <Specified in SCFG> �
- � �Secure Inbound (optional) None Specified �
- � �Outbound Directory C:\IM\OUTBOUND\ �
- � �Area File SCFG->DATA\AREAS.BBS �
- � �Log File SCFG->DATA\SBBSECHO.LOG �
- ����������������������������������������������������������ͼ
-
- Inbound Directory:
- This is the directory where SBBSecho should look for inbound
- mail packets. This is normally taken from whatever has been
- set in the SCFG program.
-
- Secure Inbound (optional):
- This is an optional directory where SBBSecho should look for
- secure inbound mail packets.
-
- Outbound Directory:
- This is the directory where SBBSecho will place outgoing mail
- packets and bundles.
-
- Area File:
- This is the path and filename of the file that SBBSecho will
- use as it's AREAS.BBS file. By default SBBSecho looks for
- the file AREAS.BBS in the data directory defined in SCFG.
-
- Log File:
- This is the path and filename of the file that SBBSecho will
- use when logging events. By default SBBSecho uses the file
- SBBSECHO.LOG in the data directory defined in SCFG.
-
-Log Options...
- This list allows you to toggle what events SBBSecho should place into
- the logfile. Selecting this option will bring you to the following
- sub-menu:
-
- �[�][?]����������������������������������ͻ
- � Log Options �
- �����������������������������������������
- � �ALL �
- � �NONE �
- � �DEFAULT �
- � �Ignored NetMail Messages No �
- � �NetMail for Unknown Users No �
- � �Areafix NetMail Messages Yes �
- � �Imported NetMail Messages Yes �
- � �Packing Out-bound NetMail Yes �
- � �Routing Out-bound NetMail Yes �
- � �In-bound Packet Information Yes �
- � �In-bound Security Violations Yes �
- � �In-bound Grunged Messages Yes �
- � �Disallowed Private EchoMail Yes �
- � �Circular EchoMail Messages No �
- � �Duplicate EchoMail Messages No �
- � �Area Totals Yes �
- � �Over-All Totals Yes �
- �����������������������������������������ͼ
-
- Selecting ALL, NONE, or DEFAULT will toggle all of the options to
- 'Yes', 'No', or to their default states, respectively.
-
-
-Toggle Options...
- These options allow you to toggle various features in SBBSecho.
- Selecting this option will bring you to the following sub-menu:
-
- �[�][?]�������������������������������������������������ͻ
- � Toggle Options �
- ��������������������������������������������������������
- � �Secure Operation Yes �
- � �Swap for Executables Yes �
- � �Fuzzy Zone Operation No �
- � �Store PATH Lines in Message Base Yes �
- � �Store SEEN-BY Lines in Message Base Yes �
- � �Store Unknown Kludge Lines in Message Base Yes �
- � �Allow Nodes to Add Areas in the AREAS.BBS List Yes �
- ��������������������������������������������������������ͼ
-
- Secure Operation:
- When set to 'Yes', SBBSecho will compare the origin of any
- incoming mail packets to the nodes in the AREAS.BBS file
- as messages are imported. If a packet password has been
- defined for that node, it will also be compared to the
- password contained in the mail packet. Packets and messages
- failing this security will not be imported.
-
- Swap for Executables:
- SBBSecho relies on external executable programs for extracting
- and compressing mail bundles. This option tells SBBSecho to
- swap out of memory when running any of these executables,
- giving the executable programs more free memory to run in.
- This option is only used in the 16-bit DOS flavor of SBBSecho.
-
- Fuzzy Zone Operation:
- Some mail programs do not create netmail messages with zone
- information (INTL kludge line) or may only do so when sending
- between zones. This is a problem for systems that receive
- netmail for multiple addresses with different zones (AKAs with
- different zone numbers). Setting this option to "Yes" allows
- SBBSecho to guess what the correct originating and destination
- zone is based on the net and node portions of the destination
- address in netmail message.
-
- Store PATH Lines in Message Base:
- When set to 'Yes', SBBSecho will store the PATH lines from
- incoming echomail in the Synchronet message base headers (not
- the body text). This option is useful for troubleshooting
- routing/duplicate message problems.
-
- Store SEEN-BY Lines in Message Base:
- When set to 'Yes', SBBSecho will store the SEEN-BY lines from
- incoming echomail in the Synchronet message base headers (not
- the body text). This option is useful for troubleshooting
- routing/duplicate message problems.
-
- Store Unknown Kludge Lines in Message Base:
- When set to 'Yes', SBBSecho will store any unknown kludge lines
- from incoming echomail in the Synchronet message base headers.
- This option is useful for troubleshooting problems.
-
- Allow Nodes to Add Areas in the AREAS.BBS List:
- When set to 'Yes', SBBSecho will allow nodes to add areas
- (via area manager) which are listed in the AREAS.BBS list.
- When set to 'No', SBBSecho will only allow nodes to add areas
- from any additionally configured echo lists which they have
- access to.
-
-Archive Programs...
- This option allows you to add or remove archive programs from SBBSecho.
- Selecting this option will bring you to the following menu:
-
- �[�][?]�������������ͻ
- � Archive Programs �
- ��������������������
- � �ZIP �
- � �ARC �
- � �LZH �
- � �ARJ �
- � �PAK �
- � �SQZ �
- � �ZOO �
- � � �
- ��������������������ͼ
-
- At the Archive Programs... sub-menu, pressing the INSert key will allow
- you to add a new archive program. Pressing the DELete key will remove
- the currently highlighted archive program. And pressing ENTER on the
- currently highlighted archive program will allow you to edit the
- options for that particular prgram from a menu like the following (note
- that the name of the archive program you are editing appears at the top
- of the window):
-
- �[�][?]���������������������������������������������������ͻ
- � ZIP �
- ����������������������������������������������������������
- � �Packer Name ZIP �
- � �Hexadecimal ID 504B �
- � �Offset to Hex ID 0 �
- � �Pack Command Line PKZIP %f %s �
- � �Unpack Command Line PKUNZIP %f %s �
- ����������������������������������������������������������ͼ
-
- Packer Name:
- This is the name that will be used to reference this particular
- archiving program. This is also the name that should be used
- by nodes using areamanger to change their compression type
- remotely.
-
- Hexadecimal ID:
- This is a hexadecimal identifier that SBBSecho should look for
- when determining the compression type used on incoming bundles.
- In this example we are looking for the ID 'PK', '50' is the
- hexadecimal value for the letter 'P' and '4B' is the
- hexadecimal value for the letter 'K'.
-
- Offset to Hex ID:
- This is the byte offset (from the beginning of the file) where
- the hexadecimal ID for this archive program can be located.
- In this example we are looking at an offset of 0 bytes from the
- beginning of the file.
-
- Pack Command Line:
- This is the command line used by this archiving program for
- compressing files. The '%f' command line specifier will expand
- to the name of the compressed file, the '%s' command line
- specifier will expand to the name of the file being compressed.
-
- Unpack Command Line:
- This is the command line used by the archiving program for
- UNcompressing files. The '%f' command line specifier will
- expand to the name of the compressed file, the '%s' command
- line specifier will expand to the path where the file is
- being extracted to.
-
-Additional Echo Lists...
- This option allows you to add and remove additional echo lists which
- can be used by SBBSecho for area manager add requests. Normally these
- will be used in addition to your AREAS.BBS file. If you have the
- toggle option 'Allow Nodes to Add Areas in the AREAS.BBS List' set to
- 'No', you MUST create at least one additional echo list if you wish
- to allow other nodes to add areas via area manager requests.
-
- Selecting this option will bring you to a sub-menu listing any
- additional echo lists you currently have defined:
-
- �[�][?]������������������ͻ
- � Additional Echo Lists �
- �������������������������
- � �C:\BACKBONE\FIDONET.NA �
- � � �
- �������������������������ͼ
-
- Pressing the INSert key will allow you to add a new echo list, pressing
- the DELete key will remove the currently highlighted echo list, and
- pressing ENTER on the currently highlighted echo list will allow you to
- edit information about that list:
-
- �[�][?]���������������������������������������������������ͻ
- � Echo List �
- ����������������������������������������������������������
- � �Echo List Path/Name C:\BACKBONE\FIDONET.NA �
- � �Hub Address None �
- � �Forward Password None �
- � �Forward Requests No �
- � �Echo List Flags BACK �
- ����������������������������������������������������������ͼ
-
- Echo List Path/Name:
- This is the full path and filename of the echo list you are
- defining. This list should contain the areatag names of areas,
- one per line, with any comments seperated from the areatag by
- at least one space.
-
- Hub Address:
- This is the address of the hub of the conferences contained
- in this list. If an area is remotely added from this list
- (using Areafix) this address is automatically added to the
- AREAS.BBS file.
-
- Forward Password:
- This is the area manager password to use when forwarding
- requests.
-
- Forward Requests:
- Setting this option to 'Yes' will cause SBBSecho to send a
- request to the Hub Address specified to turn on an area from
- this list. This happens when users remotely add areas using
- Areafix and is not necessary if you are already receiving the
- conferences in this list (ie: from Planet Connect).
-
-
- Echo List Flags:
- These are the flags required for a node to be able to gain
- access to this particular echo list. These flags are defined
- for each node from the 'Nodes...' sub-menu.
-
- Selecting this option will bring you to a sub-menu where you
- may add and remove flags for this echo list.
-
- �[�][?]������������ͻ
- � Echo List Flags �
- �������������������
- � �BACK �
- � � �
- �������������������ͼ
-
-Running SBBSecho
-================
-&&Running SBBSecho
-$$EXECUTE_
-
-The command line for executing SBBSECHO is very similar to SBBSFIDO, although
-some command line switches have been eliminated.
-
-We suggest you use the following command lines:
-
-For importing:
-
- C:\SBBS\EXEC\SBBSECHO /LES!
-
-For exporting (Attach Mailer):
-
- C:\SBBS\EXEC\SBBSECHO /LIN
-
-For exporting (FLO Mailer):
-
- C:\SBBS\EXEC\SBBSECHO /LINF
-
-Remove all references to SBBSFIDO from your batch files (if you have any).
-See the included MAILER.BAT as an example.
-
-Command Lines Switches
-======================
-&&Command Lines Switches
-$$SWITCHES
-
-usage: sbbsecho [cfg_file] [/switches] [sub_code]
-
-where: cfg_file is the filename of config file (default is ctrl\sbbsecho.cfg)
- sub_code is the internal code for a sub-board (default is ALL subs)
-
-SBBSecho will execute normally (for Attach Mailer operation) with NO command
-line switches required. Command lines switches are used to cause SBBSecho to
-_do_ or _not_ do specific operations. When used, command line switches
-are prepended by a slash (/) character. Multiple switches can be specified
-in one grouping (multiple /switch sets are supported, but not required).
-Switch letters are not case sensitive. The available switch letters and their
-descriptions are:
-
-P: Do not import inbound packets or extract inbound bundles
-X: Do not delete inbound packets (*.PKT) after they're imported
-N: Do not import inbound netmail (packetized netmail and *.MSG)
-D: Do not delete inbound netmail (*.MSG) after they're imported
-I: Do not import inbound echomail
-E: Do not export outbound echomail
-M: Ignore echomail pointers (export all locally created echomail messages)
-U: Update echomail pointers only (export no echomail messages)
-T: Do not update echomail pointers (test export)
-H: Export all echomail messages (including messages imported from FidoNet)
-J: Ignore recieved bit on netmail (import even though flagged as received)
-L: Create log file (data\sbbsecho.log)
-R: Create report of import totals (text\sbbsecho.msg)
-B: Import locally created netmail too (ignore the local flag)
-A: Export ASCII characters only (override individual sub-board ex-ASCII strip)
-F: Create packets for outbound netmail (necessary for FLO Mailer operation)
-G: Generate notify lists
-Y: Import netmail for unknown users to sysop (user #1)
-O: Import all netmail regardless of destination address (unless flagged local)
-S: Import private echomail override (strip private flag)
-=: Change existing tear lines to === when exporting
-!: Notify users via telegram of received echomail messages
-
-AREAFIX Commands
-================
-&&Areafix Commands
-$$AREAFIX_
-
-Remote area manager, or areafix, commands are used by uplinks to be able to
-turn echo areas off and on, list currently connected areas, and more.
-
-The following text is from the file AREAMGR.HLP which, after installation of
-SBBSecho, should be located in your Synchronet EXEC directory. It lists the
-area manager commands available to the nodes which have been configured using
-the ECHOCFG program:
-
-Address all requests to 'SBBSecho' or 'AreaFix' (without quotes).
-Your Area Manager password goes on the subject line.
-
-In the body of the message to Area Manager:
-
-[+]<areaname> Connect an area
--<areaname> Disconnect an area
-%HELP Request this message
-%LIST Request a list of areas available to you
-%QUERY Request a list of areas to which you are connected
-%UNLINKED Request a list of areas to which you are not connected
-%COMPRESSION <type> Change the compression type (ARC/ARJ/LZH/PAK/SQZ/ZIP/ZOO)
-%PASSWORD <password> Change your AreaMgr password
-%RESCAN Request a rescan of newly added areas
-%ACTIVE Reconnect all temporarily disconnected areas
-%PASSIVE Temporarily disconnect all connected areas
-%FROM <address> Remote maintenance, must be the first command
-%+ALL Connect all available areas
-%-ALL Disconnect all areas
-[---] Everything below the tear line is ignored
-
-NOTE: A compression type of NONE is also supported for uncompressed packets.
-
-
diff --git a/src/sbbs2/echo/echocfg.c b/src/sbbs2/echo/echocfg.c
deleted file mode 100644
index e7f1b3eb31a6d8ea704a2c569a418aa9d857ca68..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/echocfg.c
+++ /dev/null
@@ -1,1127 +0,0 @@
-/* ECHOCFG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Portions written by Allen Christiansen 1994-1996 */
-
-#include <uifc.h>
-#include <sys\stat.h>
-#include "gen_defs.h"
-#include "sbbsdefs.h"
-#include "sbbsecho.h"
-
-char **opt;
-
-void bail(int code);
-void main();
-char fexist(char *filespec);
-char *faddrtoa(faddr_t addr);
-
-uchar node_swap=1;
-long misc=0;
-config_t cfg;
-
-unsigned _stklen=16000;
-
-void bail(int code)
-{
-
-if(code)
- getch();
-uifcbail();
-exit(code);
-}
-
-#define lprintf cprintf
-
-void main(int argc, char **argv)
-{
- char str[256],*p;
- int i,j,k,x,file,dflt,nodeop=0;
- FILE *stream;
- echolist_t savlistcfg;
- nodecfg_t savnodecfg;
- arcdef_t savarcdef;
-
-fprintf(stderr,"\nSBBSecho Configuration Version %s Developed 1995-1997 "
- "Rob Swindell\n\n",SBBSECHO_VER);
-
-memset(&cfg,0,sizeof(config_t));
-if(argc>1)
- strcpy(str,argv[1]);
-else {
- p=getenv("SBBSCTRL");
- if(!p) {
- p=getenv("SBBSNODE");
- if(!p) {
- printf("usage: echocfg [cfg_file]\n");
- exit(1); }
- strcpy(str,p);
- if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
- strcat(str,"..\\CTRL\\SBBSECHO.CFG"); }
- else {
- strcpy(str,p);
- if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
- strcat(str,"SBBSECHO.CFG"); } }
-strcpy(cfg.cfgfile,str);
-strupr(cfg.cfgfile);
-
-read_cfg();
-
-savnum=0;
-if((opt=(char **)MALLOC(sizeof(char *)*300))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-for(i=0;i<300;i++)
- if((opt[i]=(char *)MALLOC(MAX_OPLN))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-uifcini();
-sprintf(str,"SBBSecho Configuration v%s",SBBSECHO_VER);
-uscrn(str);
-
-dflt=0;
-while(1) {
- helpbuf=
-" SBBSecho Configuration \r\n\r\n"
-"Move through the various options using the arrow keys. Select the\r\n"
-"highlighted options by pressing ENTER.\r\n\r\n";
- i=0;
- sprintf(opt[i++],"%-30.30s %s","Mailer Type"
- ,misc&FLO_MAILER ? "Binkley/FLO":"FrontDoor/Attach");
- sprintf(opt[i++],"%-30.30s %luK","Maximum Packet Size"
- ,cfg.maxpktsize/1024UL);
- sprintf(opt[i++],"%-30.30s %luK","Maximum Bundle Size"
- ,cfg.maxbdlsize/1024UL);
- if(cfg.notify)
- sprintf(str,"User #%u",cfg.notify);
- else
- strcpy(str,"Disabled");
- sprintf(opt[i++],"%-30.30s %s","Areafix Failure Notification",str);
- sprintf(opt[i++],"Nodes...");
- sprintf(opt[i++],"Paths...");
- sprintf(opt[i++],"Log Options...");
- sprintf(opt[i++],"Toggle Options...");
- sprintf(opt[i++],"Archive Programs...");
- sprintf(opt[i++],"Additional Echo Lists...");
- opt[i][0]=NULL;
- switch(ulist(WIN_ORG|WIN_MID|WIN_ACT|WIN_ESC,0,0,52,&dflt,0
- ,cfg.cfgfile,opt)) {
-
- case 0:
- misc^=FLO_MAILER;
- break;
-
- case 1:
-helpbuf=
-" Maximum Packet Size \r\n\r\n"
-"This is the maximum file size that SBBSecho will create when placing\r\n"
-"outgoing messages into packets. The default size is 250k.\r\n";
- sprintf(str,"%lu",cfg.maxpktsize);
- uinput(WIN_MID|WIN_BOT,0,0,"Maximum Packet Size",str
- ,9,K_EDIT|K_NUMBER);
- cfg.maxpktsize=atol(str);
- break;
-
- case 2:
-helpbuf=
-" Maximum Bundle Size \r\n\r\n"
-"This is the maximum file size that SBBSecho will create when placing\r\n"
-"outgoing packets into bundles. The default size is 250k.\r\n";
- sprintf(str,"%lu",cfg.maxbdlsize);
- uinput(WIN_MID|WIN_BOT,0,0,"Maximum Bundle Size",str
- ,9,K_EDIT|K_NUMBER);
- cfg.maxbdlsize=atol(str);
- break;
-
- case 3:
-helpbuf=
-" Areafix Failure Notification \r\n\r\n"
-"Setting this option to a user number (usually #1), enables the\r\n"
-"automatic notification of that user, via e-mail, of failed areafix\r\n"
-"attempts. Setting this option to 0, disables this feature.\r\n";
- sprintf(str,"%u",cfg.notify);
- uinput(WIN_MID|WIN_BOT,0,0,"Areafix Notification User Number",str
- ,5,K_EDIT|K_NUMBER);
- cfg.notify=atoi(str);
- break;
-
- case 4:
-helpbuf=
-" Nodes... \r\n\r\n"
-"From this menu you can configure the area manager options for your\r\n"
-"uplink nodes.\r\n";
- i=0;
- while(1) {
- for(j=0;j<cfg.nodecfgs;j++)
- strcpy(opt[j],faddrtoa(cfg.nodecfg[j].faddr));
- opt[j][0]=0;
- i=ulist(WIN_ORG|WIN_INS|WIN_DEL|WIN_ACT|WIN_GET|WIN_PUT
- |WIN_INSACT|WIN_DELACT|WIN_XTR
- ,0,0,0,&i,0,"Nodes",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- str[0]=0;
-helpbuf=
-" Address \r\n\r\n"
-"This is the FidoNet style address of the node you wish to add\r\n";
- if(uinput(WIN_MID,0,0
- ,"Node Address (ALL wildcard allowed)",str
- ,25,K_EDIT)<1)
- continue;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(cfg.nodecfgs+1)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- for(j=cfg.nodecfgs;j>i;j--)
- memcpy(&cfg.nodecfg[j],&cfg.nodecfg[j-1]
- ,sizeof(nodecfg_t));
- cfg.nodecfgs++;
- memset(&cfg.nodecfg[i],0,sizeof(nodecfg_t));
- cfg.nodecfg[i].faddr=atofaddr(str);
- continue; }
-
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- cfg.nodecfgs--;
- if(cfg.nodecfgs<=0) {
- cfg.nodecfgs=0;
- continue; }
- for(j=i;j<cfg.nodecfgs;j++)
- memcpy(&cfg.nodecfg[j],&cfg.nodecfg[j+1]
- ,sizeof(nodecfg_t));
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(cfg.nodecfgs)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- memcpy(&savnodecfg,&cfg.nodecfg[i],sizeof(nodecfg_t));
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- memcpy(&cfg.nodecfg[i],&savnodecfg,sizeof(nodecfg_t));
- continue; }
- while(1) {
-helpbuf=
-" Node Options \r\n\r\n"
-"These are the configurable options available for this node.\r\n";
- j=0;
- sprintf(opt[j++],"%-20.20s %s","Address"
- ,faddrtoa(cfg.nodecfg[i].faddr));
- sprintf(opt[j++],"%-20.20s %s","Archive Type"
- ,cfg.nodecfg[i].arctype>cfg.arcdefs ?
- "None":cfg.arcdef[cfg.nodecfg[i].arctype].name);
- sprintf(opt[j++],"%-20.20s %s","Packet Type"
- ,cfg.nodecfg[i].pkt_type==PKT_TWO ? "2"
- :cfg.nodecfg[i].pkt_type==PKT_TWO_TWO ? "2.2":"2+");
- sprintf(opt[j++],"%-20.20s %s","Packet Password"
- ,cfg.nodecfg[i].pktpwd);
- sprintf(opt[j++],"%-20.20s %s","Areafix Password"
- ,cfg.nodecfg[i].password);
- str[0]=0;
- for(k=0;k<cfg.nodecfg[i].numflags;k++) {
- strcat(str,cfg.nodecfg[i].flag[k].flag);
- strcat(str," "); }
- sprintf(opt[j++],"%-20.20s %s","Areafix Flags",str);
- sprintf(opt[j++],"%-20.20s %s","Status"
- ,cfg.nodecfg[i].attr&ATTR_CRASH ? "Crash"
- :cfg.nodecfg[i].attr&ATTR_HOLD ? "Hold" : "None");
- sprintf(opt[j++],"%-20.20s %s","Direct"
- ,cfg.nodecfg[i].attr&ATTR_DIRECT ? "Yes":"No");
- sprintf(opt[j++],"%-20.20s %s","Passive"
- ,cfg.nodecfg[i].attr&ATTR_PASSIVE ? "Yes":"No");
- sprintf(opt[j++],"%-20.20s %s","Send Notify List"
- ,cfg.nodecfg[i].attr&SEND_NOTIFY ? "Yes" : "No");
- if(misc&FLO_MAILER)
- sprintf(opt[j++],"%-20.20s %s","Route To"
- ,cfg.nodecfg[i].route.zone
- ? faddrtoa(cfg.nodecfg[i].route) : "Disabled");
- opt[j][0]=0;
- k=ulist(WIN_MID|WIN_ACT,0,0,40,&nodeop,0
- ,faddrtoa(cfg.nodecfg[i].faddr),opt);
- if(k==-1)
- break;
- switch(k) {
- case 0:
-helpbuf=
-" Address \r\n\r\n"
-"This is the FidoNet style address of this node.\r\n";
- strcpy(str,faddrtoa(cfg.nodecfg[i].faddr));
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Node Address (ALL wildcard allowed)",str
- ,25,K_EDIT|K_UPPER);
- cfg.nodecfg[i].faddr=atofaddr(str);
- break;
- case 1:
-helpbuf=
-" Archive Type \r\n\r\n"
-"This is the compression type that will be used for compressing packets\r\n"
-"to and decompressing packets from this node.\r\n";
- for(j=0;j<cfg.arcdefs;j++)
- strcpy(opt[j],cfg.arcdef[j].name);
- strcpy(opt[j++],"None");
- opt[j][0]=0;
- if(cfg.nodecfg[i].arctype<j)
- j=cfg.nodecfg[i].arctype;
- k=ulist(WIN_RHT|WIN_SAV,0,0,0,&j,0
- ,"Archive Type",opt);
- if(k==-1)
- break;
- if(k>=cfg.arcdefs)
- cfg.nodecfg[i].arctype=0xffff;
- else
- cfg.nodecfg[i].arctype=k;
- break;
- case 2:
-helpbuf=
-" Packet Type \r\n\r\n"
-"This is the packet header type that will be used in mail packets to\r\n"
-"this node. SBBSecho defaults to using type 2.2.\r\n";
- j=0;
- strcpy(opt[j++],"2+");
- strcpy(opt[j++],"2.2");
- strcpy(opt[j++],"2");
- opt[j][0]=0;
- j=cfg.nodecfg[i].pkt_type;
- k=ulist(WIN_RHT|WIN_SAV,0,0,0,&j,0,"Packet Type"
- ,opt);
- if(k==-1)
- break;
- cfg.nodecfg[i].pkt_type=k;
- break;
- case 3:
-helpbuf=
-" Packet Password \r\n\r\n"
-"This is an optional password that SBBSecho will place into packets\r\n"
-"destined for this node.\r\n";
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Packet Password (optional)"
- ,cfg.nodecfg[i].pktpwd,8,K_EDIT|K_UPPER);
- break;
- case 4:
-helpbuf=
-" Areafix Password \r\n\r\n"
-"This is the password that will be used by this node when doing remote\r\n"
-"areamanager functions.\r\n";
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Areafix Password"
- ,cfg.nodecfg[i].password,8,K_EDIT|K_UPPER);
- break;
- case 5:
-helpbuf=
-" Areafix Flag \r\n\r\n"
-"This is a flag to to be given to this node allowing access to one or\r\n"
-"more of the configured echo lists\r\n";
- while(1) {
- for(j=0;j<cfg.nodecfg[i].numflags;j++)
- strcpy(opt[j],cfg.nodecfg[i].flag[j].flag);
- opt[j][0]=0;
- k=ulist(WIN_SAV|WIN_INS|WIN_DEL|WIN_ACT|
- WIN_XTR|WIN_INSACT|WIN_DELACT|WIN_RHT
- ,0,0,0,&k,0,"Areafix Flags",opt);
- if(k==-1)
- break;
- if((k&MSK_ON)==MSK_INS) {
- k&=MSK_OFF;
- str[0]=0;
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Areafix Flag",str,4
- ,K_EDIT|K_UPPER)<1)
- continue;
- if((cfg.nodecfg[i].flag=(flag_t *)
- REALLOC(cfg.nodecfg[i].flag
- ,sizeof(flag_t)*
- (cfg.nodecfg[i].numflags+1)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- for(j=cfg.nodecfg[i].numflags;j>i;j--)
- memcpy(&cfg.nodecfg[i].flag[j]
- ,&cfg.nodecfg[i].flag[j-1]
- ,sizeof(flag_t));
- cfg.nodecfg[i].numflags++;
- memset(&cfg.nodecfg[i].flag[k].flag
- ,0,sizeof(flag_t));
- strcpy(cfg.nodecfg[i].flag[k].flag,str);
- continue; }
-
- if((k&MSK_ON)==MSK_DEL) {
- k&=MSK_OFF;
- cfg.nodecfg[i].numflags--;
- if(cfg.nodecfg[i].numflags<=0) {
- cfg.nodecfg[i].numflags=0;
- continue; }
- for(j=k;j<cfg.nodecfg[i].numflags;j++)
- strcpy(cfg.nodecfg[i].flag[j].flag
- ,cfg.nodecfg[i].flag[j+1].flag);
- if((cfg.nodecfg[i].flag=(flag_t *)
- REALLOC(cfg.nodecfg[i].flag
- ,sizeof(flag_t)*
- (cfg.nodecfg[i].numflags)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- continue; }
- strcpy(str,cfg.nodecfg[i].flag[k].flag);
- uinput(WIN_MID|WIN_SAV,0,0,"Areafix Flag"
- ,str,4,K_EDIT|K_UPPER);
- strcpy(cfg.nodecfg[i].flag[k].flag,str);
- continue; }
- break;
- case 6:
- if(cfg.nodecfg[i].attr&ATTR_CRASH) {
- cfg.nodecfg[i].attr^=ATTR_CRASH;
- cfg.nodecfg[i].attr|=ATTR_HOLD;
- break; }
- if(cfg.nodecfg[i].attr&ATTR_HOLD) {
- cfg.nodecfg[i].attr^=ATTR_HOLD;
- break; }
- cfg.nodecfg[i].attr|=ATTR_CRASH;
- break;
- case 7:
- cfg.nodecfg[i].attr^=ATTR_DIRECT;
- break;
- case 8:
- cfg.nodecfg[i].attr^=ATTR_PASSIVE;
- break;
- case 9:
- cfg.nodecfg[i].attr^=SEND_NOTIFY;
- break;
- case 10:
-helpbuf=
-" Route To \r\n\r\n"
-"When using a FLO type mailer, this is the node number of an address\r\n"
-"to route mail to for this node.\r\n";
- strcpy(str,faddrtoa(cfg.nodecfg[i].route));
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Node Address to Route To",str
- ,25,K_EDIT);
- if(str[0])
- cfg.nodecfg[i].route=atofaddr(str);
- break;
- } } }
- break;
-
- case 5:
-helpbuf=
-" Paths... \r\n\r\n"
-"From this menu you can configure the paths that SBBSecho will use\r\n"
-"when importing and exporting.\r\n";
- j=0;
- while(1) {
- i=0;
- sprintf(opt[i++],"%-30.30s %s","Inbound Directory"
- ,cfg.inbound[0] ? cfg.inbound : "<Specified in SCFG>");
- sprintf(opt[i++],"%-30.30s %s","Secure Inbound (optional)"
- ,cfg.secure[0] ? cfg.secure : "None Specified");
- sprintf(opt[i++],"%-30.30s %s","Outbound Directory"
- ,cfg.outbound);
- sprintf(opt[i++],"%-30.30s %s","Area File"
- ,cfg.areafile[0] ? cfg.areafile
- : "SCFG->DATA\\AREAS.BBS");
- sprintf(opt[i++],"%-30.30s %s","Log File"
- ,cfg.logfile[0] ? cfg.logfile
- : "SCFG->DATA\\SBBSECHO.LOG");
- opt[i][0]=NULL;
- j=ulist(WIN_MID|WIN_ACT,0,0,60,&j,0
- ,"Paths and Filenames",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
-helpbuf=
-" Inbound Directory \r\n\r\n"
-"This is the complete path (drive and directory) where your front\r\n"
-"end mailer stores, and where SBBSecho will look for, incoming message\r\n"
-"bundles and packets.";
- uinput(WIN_MID|WIN_SAV,0,0,"Inbound",cfg.inbound
- ,50,K_EDIT|K_UPPER);
- break;
-
- case 1:
-helpbuf=
-" Secure Inbound Directory \r\n\r\n"
-"This is the complete path (drive and directory) where your front\r\n"
-"end mailer stores, and where SBBSecho will look for, incoming message\r\n"
-"bundles and packets for SECURE sessions.";
- uinput(WIN_MID|WIN_SAV,0,0,"Secure Inbound",cfg.secure
- ,50,K_EDIT|K_UPPER);
- break;
-
- case 2:
-helpbuf=
-" Outbound Directory \r\n\r\n"
-"This is the complete path (drive and directory) where your front\r\n"
-"end mailer will look for, and where SBBSecho will place, outgoing\r\n"
-"message bundles and packets.";
- uinput(WIN_MID|WIN_SAV,0,0,"Outbound",cfg.outbound
- ,50,K_EDIT|K_UPPER);
- break;
-
- case 3:
-helpbuf=
-" Area File \r\n\r\n"
-"This is the complete path (drive, directory, and filename) of the\r\n"
-"file SBBSecho will use as your AREAS.BBS file.";
- uinput(WIN_MID|WIN_SAV,0,0,"Areafile",cfg.areafile
- ,50,K_EDIT|K_UPPER);
- break;
-
- case 4:
-helpbuf=
-" Log File \r\n\r\n"
-"This is the complete path (drive, directory, and filename) of the\r\n"
-"file SBBSecho will use to log information each time it is run.";
- uinput(WIN_MID|WIN_SAV,0,0,"Logfile",cfg.logfile
- ,50,K_EDIT|K_UPPER);
- break; } }
- break;
- case 6:
-helpbuf=
-" Log Options \r\n"
-"\r\n"
-"Each loggable item can be toggled off or on from this menu. You must run\r\n"
-"SBBSecho with the /L command line option for any of these items to be\r\n"
-"logged.";
- j=0;
- while(1) {
- i=0;
- strcpy(opt[i++],"ALL");
- strcpy(opt[i++],"NONE");
- strcpy(opt[i++],"DEFAULT");
- sprintf(opt[i++],"%-35.35s%-3.3s","Ignored NetMail Messages"
- ,cfg.log&LOG_IGNORED ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","NetMail for Unknown Users"
- ,cfg.log&LOG_UNKNOWN ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Areafix NetMail Messages"
- ,cfg.log&LOG_AREAFIX ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Imported NetMail Messages"
- ,cfg.log&LOG_IMPORTED ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Packing Out-bound NetMail"
- ,cfg.log&LOG_PACKING ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Routing Out-bound NetMail"
- ,cfg.log&LOG_ROUTING ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","In-bound Packet Information"
- ,cfg.log&LOG_PACKETS ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","In-bound Security Violations"
- ,cfg.log&LOG_SECURITY ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","In-bound Grunged Messages"
- ,cfg.log&LOG_GRUNGED ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Disallowed Private EchoMail"
- ,cfg.log&LOG_PRIVATE ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Circular EchoMail Messages"
- ,cfg.log&LOG_CIRCULAR ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Duplicate EchoMail Messages"
- ,cfg.log&LOG_DUPES ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Area Totals"
- ,cfg.log&LOG_AREA_TOTALS ? "Yes":"No");
- sprintf(opt[i++],"%-35.35s%-3.3s","Over-All Totals"
- ,cfg.log&LOG_TOTALS ? "Yes":"No");
- opt[i][0]=NULL;
- j=ulist(0,0,0,43,&j,0,"Log Options",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- cfg.log=~0L;
- break;
- case 1:
- cfg.log=0;
- break;
- case 2:
- cfg.log=LOG_DEFAULTS;
- break;
- case 3:
- cfg.log^=LOG_IGNORED;
- break;
- case 4:
- cfg.log^=LOG_UNKNOWN;
- break;
- case 5:
- cfg.log^=LOG_AREAFIX;
- break;
- case 6:
- cfg.log^=LOG_IMPORTED;
- break;
- case 7:
- cfg.log^=LOG_PACKING;
- break;
- case 8:
- cfg.log^=LOG_ROUTING;
- break;
- case 9:
- cfg.log^=LOG_PACKETS;
- break;
- case 10:
- cfg.log^=LOG_SECURITY;
- break;
- case 11:
- cfg.log^=LOG_GRUNGED;
- break;
- case 12:
- cfg.log^=LOG_PRIVATE;
- break;
- case 13:
- cfg.log^=LOG_CIRCULAR;
- break;
- case 14:
- cfg.log^=LOG_DUPES;
- break;
- case 15:
- cfg.log^=LOG_AREA_TOTALS;
- break;
- case 16:
- cfg.log^=LOG_TOTALS;
- break; } }
- break;
-
-
- case 7:
-helpbuf=
-"Secure Operation tells SBBSecho to check the AREAS.BBS file to insure\r\n"
-" that the packet origin exists there as well as check the password of\r\n"
-" that node (if configured).\r\n\r\n"
-"Swap for Executables tells SBBSecho whether or not it should swap\r\n"
-" out of memory when executing external executables.\r\n\r\n"
-"Fuzzy Zone Operation when set to yes if SBBSecho receives an inbound\r\n"
-" netmail with no international zone information, it will compare the\r\n"
-" net/node of the destination to the net/node information in your AKAs\r\n"
-" and assume the zone of a matching AKA.\r\n\r\n"
-"Store PATH/SEEN-BY/Unkown Kludge Lines in Message Base allows you to\r\n"
-" determine whether or not SBBSecho will store this information from\r\n"
-" incoming messages in the Synchronet message base.\r\n\r\n"
-"Allow Nodes to Add Areas in the AREAS.BBS List when set to YES allows\r\n"
-" uplinks to add areas listed in the AREAS.BBS file\r\n";
- j=0;
- while(1) {
- i=0;
- sprintf(opt[i++],"%-50.50s%-3.3s","Secure Operation"
- ,misc&SECURE ? "Yes":"No");
- sprintf(opt[i++],"%-50.50s%-3.3s","Swap for Executables"
- ,node_swap ? "Yes":"No");
- sprintf(opt[i++],"%-50.50s%-3.3s","Fuzzy Zone Operation"
- ,misc&FUZZY_ZONE ? "Yes":"No");
- sprintf(opt[i++],"%-50.50s%-3.3s","Store PATH Lines in "
- "Message Base",misc&STORE_SEENBY ? "Yes":"No");
- sprintf(opt[i++],"%-50.50s%-3.3s","Store SEEN-BY Lines in "
- "Message Base",misc&STORE_PATH ? "Yes":"No");
- sprintf(opt[i++],"%-50.50s%-3.3s","Store Unknown Kludge Lines "
- "in Message Base",misc&STORE_KLUDGE ? "Yes":"No");
- sprintf(opt[i++],"%-50.50s%-3.3s","Allow Nodes to Add Areas "
- "in the AREAS.BBS List",misc&ELIST_ONLY?"No":"Yes");
- sprintf(opt[i++],"%-50.50s%-3.3s","Kill/Ignore Empty NetMail "
- "Messages",misc&KILL_EMPTY_MAIL ? "Yes":"No");
- opt[i][0]=NULL;
- j=ulist(0,0,0,60,&j,0,"Toggle Options",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- misc^=SECURE;
- break;
- case 1:
- if(node_swap)
- node_swap=0;
- else
- node_swap=1;
- break;
- case 2:
- misc^=FUZZY_ZONE;
- break;
- case 3:
- misc^=STORE_SEENBY;
- break;
- case 4:
- misc^=STORE_PATH;
- break;
- case 5:
- misc^=STORE_KLUDGE;
- break;
- case 6:
- misc^=ELIST_ONLY;
- break;
- case 7:
- misc^=KILL_EMPTY_MAIL;
- } }
- break;
- case 8:
-helpbuf=
-" Archive Programs \r\n\r\n"
-"These are the archiving programs (types) which are available for\r\n"
-"compressing outgoing packets.\r\n";
- i=0;
- while(1) {
- for(j=0;j<cfg.arcdefs;j++)
- sprintf(opt[j],"%-30.30s",cfg.arcdef[j].name);
- opt[j][0]=0;
- i=ulist(WIN_ORG|WIN_INS|WIN_DEL|WIN_ACT|WIN_GET|WIN_PUT
- |WIN_INSACT|WIN_DELACT|WIN_XTR
- ,0,0,0,&i,0,"Archive Programs",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- str[0]=0;
-helpbuf=
-" Packer Name \r\n\r\n"
-"This is the identifying name of the archiving program\r\n";
- if(uinput(WIN_MID,0,0
- ,"Packer Name",str,25,K_EDIT|K_UPPER)<1)
- continue;
- if((cfg.arcdef=(arcdef_t *)REALLOC(cfg.arcdef
- ,sizeof(arcdef_t)*(cfg.arcdefs+1)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- for(j=cfg.arcdefs;j>i;j--)
- memcpy(&cfg.arcdef[j],&cfg.arcdef[j-1]
- ,sizeof(arcdef_t));
- strcpy(cfg.arcdef[j].name
- ,cfg.arcdef[j-1].name);
- cfg.arcdefs++;
- memset(&cfg.arcdef[i],0,sizeof(arcdef_t));
- strcpy(cfg.arcdef[i].name,str);
- continue; }
-
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- cfg.arcdefs--;
- if(cfg.arcdefs<=0) {
- cfg.arcdefs=0;
- continue; }
- for(j=i;j<cfg.arcdefs;j++)
- memcpy(&cfg.arcdef[j],&cfg.arcdef[j+1]
- ,sizeof(arcdef_t));
- if((cfg.arcdef=(arcdef_t *)REALLOC(cfg.arcdef
- ,sizeof(arcdef_t)*(cfg.arcdefs)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- memcpy(&savarcdef,&cfg.arcdef[i],sizeof(arcdef_t));
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- memcpy(&cfg.arcdef[i],&savarcdef,sizeof(arcdef_t));
- continue; }
- while(1) {
- j=0;
- sprintf(opt[j++],"%-20.20s %s","Packer Name"
- ,cfg.arcdef[i].name);
- sprintf(opt[j++],"%-20.20s %s","Hexadecimal ID"
- ,cfg.arcdef[i].hexid);
- sprintf(opt[j++],"%-20.20s %u","Offset to Hex ID"
- ,cfg.arcdef[i].byteloc);
- sprintf(opt[j++],"%-20.20s %s","Pack Command Line"
- ,cfg.arcdef[i].pack);
- sprintf(opt[j++],"%-20.20s %s","Unpack Command Line"
- ,cfg.arcdef[i].unpack);
- opt[j][0]=0;
- sprintf(str,"%.30s",cfg.arcdef[i].name);
- k=ulist(WIN_MID|WIN_ACT,0,0,60,&nodeop,0,str,opt);
- if(k==-1)
- break;
- switch(k) {
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Packer Name",cfg.arcdef[i].name,25
- ,K_EDIT|K_UPPER);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Hexadecimal ID",cfg.arcdef[i].hexid,25
- ,K_EDIT|K_UPPER);
- break;
- case 2:
- sprintf(str,"%u",cfg.arcdef[i].byteloc);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Offset to Hex ID",str,5
- ,K_NUMBER|K_EDIT);
- cfg.arcdef[i].byteloc=atoi(str);
- break;
- case 3:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Pack Command Line",cfg.arcdef[i].pack,50
- ,K_EDIT);
- break;
- case 4:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Unpack Command Line",cfg.arcdef[i].unpack,50
- ,K_EDIT);
- break;
- } } }
- break;
- case 9:
-helpbuf=
-" Additional Echo Lists \r\n\r\n"
-"This feature allows you to specify echo lists (in addition to your\r\n"
-"AREAS.BBS file) for SBBSecho to search for area add requests.\r\n";
- i=0;
- while(1) {
- for(j=0;j<cfg.listcfgs;j++)
- sprintf(opt[j],"%-50.50s",cfg.listcfg[j].listpath);
- opt[j][0]=0;
- i=ulist(WIN_ORG|WIN_INS|WIN_DEL|WIN_ACT|WIN_GET|WIN_PUT
- |WIN_INSACT|WIN_DELACT|WIN_XTR
- ,0,0,0,&i,0,"Additional Echo Lists",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- str[0]=0;
-helpbuf=
-" Echo List \r\n\r\n"
-"This is the path and filename of the echo list file you wish\r\n"
-"to add.\r\n";
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Echo List Path/Name",str,50,K_EDIT|K_UPPER)<1)
- continue;
- if((cfg.listcfg=(echolist_t *)REALLOC(cfg.listcfg
- ,sizeof(echolist_t)*(cfg.listcfgs+1)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- for(j=cfg.listcfgs;j>i;j--)
- memcpy(&cfg.listcfg[j],&cfg.listcfg[j-1]
- ,sizeof(echolist_t));
- cfg.listcfgs++;
- memset(&cfg.listcfg[i],0,sizeof(echolist_t));
- strcpy(cfg.listcfg[i].listpath,str);
- continue; }
-
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- cfg.listcfgs--;
- if(cfg.listcfgs<=0) {
- cfg.listcfgs=0;
- continue; }
- for(j=i;j<cfg.listcfgs;j++)
- memcpy(&cfg.listcfg[j],&cfg.listcfg[j+1]
- ,sizeof(echolist_t));
- if((cfg.listcfg=(echolist_t *)REALLOC(cfg.listcfg
- ,sizeof(echolist_t)*(cfg.listcfgs)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- memcpy(&savlistcfg,&cfg.listcfg[i],sizeof(echolist_t));
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- memcpy(&cfg.listcfg[i],&savlistcfg,sizeof(echolist_t));
- continue; }
- while(1) {
- j=0;
- sprintf(opt[j++],"%-20.20s %.19s","Echo List Path/Name"
- ,cfg.listcfg[i].listpath);
- sprintf(opt[j++],"%-20.20s %s","Hub Address"
- ,(cfg.listcfg[i].forward.zone) ?
- faddrtoa(cfg.listcfg[i].forward) : "None");
- sprintf(opt[j++],"%-20.20s %s","Forward Password"
- ,(cfg.listcfg[i].password[0]) ?
- cfg.listcfg[i].password : "None");
- sprintf(opt[j++],"%-20.20s %s","Forward Requests"
- ,(cfg.listcfg[i].misc&NOFWD) ? "No" : "Yes");
- str[0]=0;
- for(k=0;k<cfg.listcfg[i].numflags;k++) {
- strcat(str,cfg.listcfg[i].flag[k].flag);
- strcat(str," "); }
- sprintf(opt[j++],"%-20.20s %s","Echo List Flags",str);
- opt[j][0]=0;
- k=ulist(WIN_MID|WIN_ACT,0,0,60,&nodeop,0,"Echo List",opt);
- if(k==-1)
- break;
- switch(k) {
- case 0:
- strcpy(str,cfg.listcfg[i].listpath);
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Echo List Path/Name",str,50
- ,K_EDIT|K_UPPER)<1)
- continue;
- strcpy(cfg.listcfg[i].listpath,str);
- break;
- case 1:
- if(cfg.listcfg[i].forward.zone)
- strcpy(str,faddrtoa(cfg.listcfg[i].forward));
- else
- str[0]=0;
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Hub Address",str
- ,25,K_EDIT);
- if(str[0])
- cfg.listcfg[i].forward=atofaddr(str);
- else
- memset(&cfg.listcfg[i].forward,0
- ,sizeof(faddr_t));
- break;
- case 2:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Password to use when forwarding requests"
- ,cfg.listcfg[i].password,25,K_EDIT|K_UPPER);
- break;
- case 3:
- cfg.listcfg[i].misc^=NOFWD;
- if(cfg.listcfg[i].misc&NOFWD)
- cfg.listcfg[i].password[0]=0;
- break;
- case 4:
- while(1) {
- for(j=0;j<cfg.listcfg[i].numflags;j++)
- strcpy(opt[j],cfg.listcfg[i].flag[j].flag);
- opt[j][0]=0;
- x=ulist(WIN_SAV|WIN_INS|WIN_DEL|WIN_ACT|
- WIN_XTR|WIN_INSACT|WIN_DELACT|WIN_RHT
- ,0,0,0,&x,0,"Echo List Flags",opt);
- if(x==-1)
- break;
- if((x&MSK_ON)==MSK_INS) {
- x&=MSK_OFF;
- str[0]=0;
-helpbuf=
-" Echo List Flag \r\n\r\n"
-"These flags determine which nodes have access to the current\r\n"
-"echolist file\r\n";
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Echo List Flag",str,4
- ,K_EDIT|K_UPPER)<1)
- continue;
- if((cfg.listcfg[i].flag=(flag_t *)
- REALLOC(cfg.listcfg[i].flag
- ,sizeof(flag_t)*
- (cfg.listcfg[i].numflags+1)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- for(j=cfg.listcfg[i].numflags;j>x;j--)
- memcpy(&cfg.listcfg[i].flag[j]
- ,&cfg.listcfg[i].flag[j-1]
- ,sizeof(flag_t));
- cfg.listcfg[i].numflags++;
- memset(&cfg.listcfg[i].flag[x].flag
- ,0,sizeof(flag_t));
- strcpy(cfg.listcfg[i].flag[x].flag,str);
- continue; }
-
- if((x&MSK_ON)==MSK_DEL) {
- x&=MSK_OFF;
- cfg.listcfg[i].numflags--;
- if(cfg.listcfg[i].numflags<=0) {
- cfg.listcfg[i].numflags=0;
- continue; }
- for(j=x;j<cfg.listcfg[i].numflags;j++)
- strcpy(cfg.listcfg[i].flag[j].flag
- ,cfg.listcfg[i].flag[j+1].flag);
- if((cfg.listcfg[i].flag=(flag_t *)
- REALLOC(cfg.listcfg[i].flag
- ,sizeof(flag_t)*
- (cfg.listcfg[i].numflags)))==NULL) {
- printf("\nMemory Allocation Error\n");
- exit(1); }
- continue; }
- strcpy(str,cfg.listcfg[i].flag[x].flag);
-helpbuf=
-" Echo List Flag \r\n\r\n"
-"These flags determine which nodes have access to the current\r\n"
-"echolist file\r\n";
- uinput(WIN_MID|WIN_SAV,0,0,"Echo List Flag"
- ,str,4,K_EDIT|K_UPPER);
- strcpy(cfg.listcfg[i].flag[x].flag,str);
- continue; }
- break;
- } } }
- break;
-
- case -1:
-helpbuf=
-" Save Configuration File \r\n\r\n"
-"Select Yes to save the config file, No to quit without saving,\r\n"
-"or hit ESC to go back to the menu.\r\n\r\n";
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=ulist(WIN_MID,0,0,0,&i,0,"Save Config File",opt);
- if(i==-1) break;
- if(i) bail(0);
- if((file=open(cfg.cfgfile
- ,O_WRONLY|O_BINARY|O_CREAT|O_DENYALL|O_TRUNC,S_IWRITE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening %s\r\n",cfg.cfgfile);
- bail(1); }
- if((stream=fdopen(file,"wb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen %s\r\n",cfg.cfgfile);
- bail(1); }
- if(!node_swap)
- fprintf(stream,"NOSWAP\r\n");
- if(cfg.notify)
- fprintf(stream,"NOTIFY %u\r\n",cfg.notify);
- if(misc&SECURE)
- fprintf(stream,"SECURE_ECHOMAIL\r\n");
- if(misc&KILL_EMPTY_MAIL)
- fprintf(stream,"KILL_EMPTY\r\n");
- if(misc&STORE_SEENBY)
- fprintf(stream,"STORE_SEENBY\r\n");
- if(misc&STORE_PATH)
- fprintf(stream,"STORE_PATH\r\n");
- if(misc&STORE_KLUDGE)
- fprintf(stream,"STORE_KLUDGE\r\n");
- if(misc&FUZZY_ZONE)
- fprintf(stream,"FUZZY_ZONE\r\n");
- if(misc&FLO_MAILER)
- fprintf(stream,"FLO_MAILER\r\n");
- if(misc&ELIST_ONLY)
- fprintf(stream,"ELIST_ONLY\r\n");
- if(cfg.areafile[0])
- fprintf(stream,"AREAFILE %s\r\n",cfg.areafile);
- if(cfg.logfile[0])
- fprintf(stream,"LOGFILE %s\r\n",cfg.logfile);
- if(cfg.log!=LOG_DEFAULTS) {
- if(cfg.log==0xffffffffUL)
- fprintf(stream,"LOG ALL\r\n");
- else if(cfg.log==0L)
- fprintf(stream,"LOG NONE\r\n");
- else
- fprintf(stream,"LOG %08lX\r\n",cfg.log); }
- if(cfg.inbound[0])
- fprintf(stream,"INBOUND %s\r\n",cfg.inbound);
- if(cfg.secure[0])
- fprintf(stream,"SECURE_INBOUND %s\r\n",cfg.secure);
- if(cfg.outbound[0])
- fprintf(stream,"OUTBOUND %s\r\n",cfg.outbound);
- if(cfg.maxbdlsize!=DFLT_BDL_SIZE)
- fprintf(stream,"ARCSIZE %lu\r\n",cfg.maxbdlsize);
- if(cfg.maxpktsize!=DFLT_PKT_SIZE)
- fprintf(stream,"PKTSIZE %lu\r\n",cfg.maxpktsize);
- for(i=j=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].attr&SEND_NOTIFY) {
- if(!j) fprintf(stream,"SEND_NOTIFY");
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[i].faddr));
- j++; }
- if(j) fprintf(stream,"\r\n");
- for(i=j=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].attr&ATTR_HOLD) {
- if(!j) fprintf(stream,"HOLD");
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[i].faddr));
- j++; }
- if(j) fprintf(stream,"\r\n");
- for(i=j=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].attr&ATTR_DIRECT) {
- if(!j) fprintf(stream,"DIRECT");
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[i].faddr));
- j++; }
- if(j) fprintf(stream,"\r\n");
- for(i=j=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].attr&ATTR_CRASH) {
- if(!j) fprintf(stream,"CRASH");
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[i].faddr));
- j++; }
- if(j) fprintf(stream,"\r\n");
- for(i=j=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].attr&ATTR_PASSIVE) {
- if(!j) fprintf(stream,"PASSIVE");
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[i].faddr));
- j++; }
- if(j) fprintf(stream,"\r\n");
-
- for(i=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].pktpwd[0])
- fprintf(stream,"PKTPWD %s %s\r\n"
- ,faddrtoa(cfg.nodecfg[i].faddr),cfg.nodecfg[i].pktpwd);
-
- for(i=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].pkt_type)
- fprintf(stream,"PKTTYPE %s %s\r\n"
- ,cfg.nodecfg[i].pkt_type==PKT_TWO_TWO ? "2.2":"2"
- ,faddrtoa(cfg.nodecfg[i].faddr));
-
- for(i=0;i<cfg.arcdefs;i++)
- fprintf(stream,"PACKER %s %u %s\r\n PACK %s\r\n"
- " UNPACK %s\r\nEND\r\n"
- ,cfg.arcdef[i].name
- ,cfg.arcdef[i].byteloc
- ,cfg.arcdef[i].hexid
- ,cfg.arcdef[i].pack
- ,cfg.arcdef[i].unpack
- );
- for(i=0;i<cfg.arcdefs;i++) {
- for(j=k=0;j<cfg.nodecfgs;j++)
- if(cfg.nodecfg[j].arctype==i) {
- if(!k)
- fprintf(stream,"%-10s %s","USEPACKER"
- ,cfg.arcdef[i].name);
- k++;
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[j].faddr)); }
- if(k)
- fprintf(stream,"\r\n"); }
-
- for(i=j=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].arctype==0xffff) {
- if(!j)
- fprintf(stream,"%-10s %s","USEPACKER","NONE");
- j++;
- fprintf(stream," %s",faddrtoa(cfg.nodecfg[i].faddr)); }
- if(j)
- fprintf(stream,"\r\n");
-
- for(i=0;i<cfg.listcfgs;i++) {
- fprintf(stream,"%-10s","ECHOLIST");
- if(cfg.listcfg[i].password[0])
- fprintf(stream," FORWARD %s %s"
- ,faddrtoa(cfg.listcfg[i].forward)
- ,cfg.listcfg[i].password);
- else if(cfg.listcfg[i].misc&NOFWD &&
- cfg.listcfg[i].forward.zone)
- fprintf(stream," HUB %s"
- ,faddrtoa(cfg.listcfg[i].forward));
- fprintf(stream," %s",cfg.listcfg[i].listpath);
- for(j=0;j<cfg.listcfg[i].numflags;j++)
- fprintf(stream," %s",cfg.listcfg[i].flag[j].flag);
- fprintf(stream,"\r\n"); }
-
- for(i=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].password[0]) {
- fprintf(stream,"%-10s %s %s","AREAFIX"
- ,faddrtoa(cfg.nodecfg[i].faddr)
- ,cfg.nodecfg[i].password);
- for(j=0;j<cfg.nodecfg[i].numflags;j++)
- fprintf(stream," %s",cfg.nodecfg[i].flag[j].flag);
- fprintf(stream,"\r\n"); }
-
- for(i=0;i<cfg.nodecfgs;i++)
- if(cfg.nodecfg[i].route.zone) {
- fprintf(stream,"%-10s %s","ROUTE_TO"
- ,faddrtoa(cfg.nodecfg[i].route));
- fprintf(stream," %s"
- ,faddrtoa(cfg.nodecfg[i].faddr));
- for(j=i+1;j<cfg.nodecfgs;j++)
- if(!memcmp(&cfg.nodecfg[j].route,&cfg.nodecfg[i].route
- ,sizeof(faddr_t))) {
- fprintf(stream," %s"
- ,faddrtoa(cfg.nodecfg[j].faddr));
- cfg.nodecfg[j].route.zone=0; }
- fprintf(stream,"\r\n"); }
-
- fclose(stream);
- bail(0);
- }
-}
-}
-/****************************************************************************/
-/* Checks the disk drive for the existance of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==NULL)
- return(1);
-return(0);
-}
diff --git a/src/sbbs2/echo/echocfg.mak b/src/sbbs2/echo/echocfg.mak
deleted file mode 100644
index 6af1ffce79c091f4cc799555716c321e1811ef34..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/echocfg.mak
+++ /dev/null
@@ -1,34 +0,0 @@
-
-# Macros
-CC = bcc
-LD = tlink
-UIFC = ..\..\uifc
-MSWAIT = ..\..\mswait
-INCLUDE = \bc45\include;$(UIFC);..;..\smb
-LIB = \bc45\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LDFLAGS = /n /c
-OBJS = $(MSWAIT)\dos\mswait$(MODEL).obj uifc.obj read_cfg.obj
-HEADERS = $(UIFC)\uifc.h sbbsecho.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling $*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $*.c
-
-# Main EXE Link Rule
-echocfg.exe: $(OBJS) echocfg.obj
- @echo Linking $< ...
- $(LD) $(LDFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) echocfg.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-
-# All .obj modules
-echocfg.obj: $(HEADERS)
-
-uifc.obj: $(UIFC)\uifc.h $(UIFC)\uifc.c
- @echo Compiling $(UIFC)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $(UIFC)\$*.c
-
diff --git a/src/sbbs2/echo/makeall.bat b/src/sbbs2/echo/makeall.bat
deleted file mode 100755
index d6b6d6ff757cec74de667dd842bdb8047fbb72d4..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/makeall.bat
+++ /dev/null
@@ -1,9 +0,0 @@
-@echo off
-make
-if errorlevel 1 goto end
-wmake -f sbbsecho.wat OS=OS2
-if errorlevel 1 goto end
-wmake -f sbbsecho.wat OS=DOS4G
-if errorlevel 1 goto end
-wmake -f sbbsecho.wat OS=NT
-:end
\ No newline at end of file
diff --git a/src/sbbs2/echo/makecfg.bat b/src/sbbs2/echo/makecfg.bat
deleted file mode 100755
index 5f6ed1e474943bdd178bb1e9e8b3d038fd630c7f..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/makecfg.bat
+++ /dev/null
@@ -1 +0,0 @@
-@make -fechocfg %1 %2 %3 %4
diff --git a/src/sbbs2/echo/makefile b/src/sbbs2/echo/makefile
deleted file mode 100644
index 82f3398b8721e3c011fead53f868415f0feb4598..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/makefile
+++ /dev/null
@@ -1,94 +0,0 @@
-############################################
-# Makefile for Synchronet SBBSecho Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-
-!ifdef __OS2__
-OS = OS2
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE) -w-prot
-LFLAGS = -c
-
-!elif $d(DOSX)
-OS = DOSX
-CC = \bc4\bin\bcc32
-LD = \bc4\bin\tlink32
-INCLUDE = \bc4\include;..;..\smb;..\rio
-LIB = \bc4\lib
-CFLAGS = -w-pro -d -C -WX -I$(INCLUDE) -w-prot
-LFLAGS = -Tpe -ax -n -c -L$(LIB)
-
-!else
-OS = DOS
-CC = \bc45\bin\bcc
-LD = \bc45\bin\tlink
-INCLUDE = \bc45\include;..\smb;..\rio;..
-LIB = \bc45\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -DLZH_DYNAMIC_BUF -DSMB_GETMSGTXT -w-pro
-
-LFLAGS = -c -L$(LIB)
-!endif
-MAIN = $(OS)\sbbsecho.exe
-OBJS = $(OS)\sbbsecho.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj \
- $(OS)\smblib.obj $(OS)\ars.obj $(OS)\lzh.obj \
- $(OS)\read_cfg.obj
-HEADERS = ..\sbbsdefs.h ..\scfgvars.c ..\smb\smbdefs.h ..\smb\smblib.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS) $(HEADERS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-c02.obj $(OBJS)
-+, $*, $*, os2.lib c2.lib
-!elif $d(DOSX)
- $(LD) $(LFLAGS) @&&+
-c0X32.obj $(OBJS)
-+, $*, $*, DPMI32 CW32
-!else
- $(LD) $(LFLAGS) @&&+
-c0$(MODEL) $(OBJS)
-+, $*, $*, ..\..\spawno\spawnl.lib mathl emu cl
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_FILE_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling SMBLIB ...
- $(CC) -DSMB_GETMSGTXT $(CFLAGS) -n$(OS) -c ..\smb\smblib.c
-
-$(OS)\lzh.obj: ..\smb\lzh.c ..\smb\lzh.h
- @echo Compiling LZH ...
- $(CC) $(CFLAGS) -n$(OS) -c ..\smb\lzh.c
-
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -n$(OS) -c ..\ars.c
-
-$(OS)\sbbsecho.obj: sbbsecho.c sbbsecho.h
- @echo Compiling $&.c to $< ...
- $(CC) $(CFLAGS) -n$(OS) -c sbbsecho.c
diff --git a/src/sbbs2/echo/read_cfg.c b/src/sbbs2/echo/read_cfg.c
deleted file mode 100644
index 0db669b236e37eb1f9f4a523e67c34e796b6beb3..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/read_cfg.c
+++ /dev/null
@@ -1,681 +0,0 @@
-/* READ_CFG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Portions written by Allen Christiansen 1994-1996 */
-
-#include <dos.h>
-#include <mem.h>
-#include <time.h>
-#include <errno.h>
-#include <stdio.h>
-#include <conio.h>
-#include <ctype.h>
-#include <fcntl.h>
-#include <share.h>
-#include <malloc.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <process.h>
-#include <sys\stat.h>
-
-#include "crc32.h"
-#include "sbbsdefs.h"
-#include "sbbsecho.h"
-
-#ifdef __WATCOMC__
- #define O_DENYNONE SH_DENYNO
-#endif
-
-extern uchar node_swap;
-extern long misc;
-extern config_t cfg;
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access&O_DENYNONE) {
- access&=~O_DENYNONE;
- share=SH_DENYNO; }
-else if(access==O_RDONLY) share=SH_DENYWR;
-else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- printf("\7\nNOPEN: ACCESS DENIED\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(access&O_WRONLY) {
- access&=~O_WRONLY;
- access|=O_RDWR; } /* fdopen can't open WRONLY */
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&(O_RDONLY|O_RDWR))
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&(O_WRONLY|O_RDWR))
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- printf("\7\nFDOPEN(%s) FAILED\n",mode);
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-/******************************************************************************
- Here we take a string and put a terminator in place of the first TAB or SPACE
-******************************************************************************/
-char *cleanstr(char *instr)
-{
- int i;
-
-for(i=0;instr[i];i++)
- if((uchar)instr[i]<=SP)
- break;
-instr[i]=0;
-return(instr);
-}
-/****************************************************************************/
-/* Returns the FidoNet address kept in str as ASCII. */
-/****************************************************************************/
-faddr_t atofaddr(char *instr)
-{
- char *p,str[51];
- faddr_t addr;
-
-sprintf(str,"%.50s",instr);
-cleanstr(str);
-if(!stricmp(str,"ALL")) {
- addr.zone=addr.net=addr.node=addr.point=0xffff;
- return(addr); }
-addr.zone=addr.net=addr.node=addr.point=0;
-if((p=strchr(str,':'))!=NULL) {
- if(!strnicmp(str,"ALL:",4))
- addr.zone=0xffff;
- else
- addr.zone=atoi(str);
- p++;
- if(!strnicmp(p,"ALL",3))
- addr.net=0xffff;
- else
- addr.net=atoi(p); }
-else {
-#ifdef SCFG
- if(total_faddrs)
- addr.zone=faddr[0].zone;
- else
-#endif
- addr.zone=1;
- addr.net=atoi(str); }
-if(!addr.zone) /* no such thing as zone 0 */
- addr.zone=1;
-if((p=strchr(str,'/'))!=NULL) {
- p++;
- if(!strnicmp(p,"ALL",3))
- addr.node=0xffff;
- else
- addr.node=atoi(p); }
-else {
- if(!addr.net) {
-#ifdef SCFG
- if(total_faddrs)
- addr.net=faddr[0].net;
- else
-#endif
- addr.net=1; }
- addr.node=atoi(str); }
-if((p=strchr(str,'.'))!=NULL) {
- p++;
- if(!strnicmp(p,"ALL",3))
- addr.point=0xffff;
- else
- addr.point=atoi(p); }
-return(addr);
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(faddr_t addr)
-{
- static char str[25];
- char tmp[25];
-
-if(addr.zone==0xffff)
- strcpy(str,"ALL");
-else {
- sprintf(str,"%u:",addr.zone);
- if(addr.net==0xffff)
- strcat(str,"ALL");
- else {
- sprintf(tmp,"%u/",addr.net);
- strcat(str,tmp);
- if(addr.node==0xffff)
- strcat(str,"ALL");
- else {
- sprintf(tmp,"%u",addr.node);
- strcat(str,tmp);
- if(addr.point==0xffff)
- strcat(str,".ALL");
- else if(addr.point) {
- sprintf(tmp,".%u",addr.point);
- strcat(str,tmp); } } } }
-return(str);
-}
-/******************************************************************************
- This function returns the number of the node in the SBBSECHO.CFG file which
- matches the address passed to it (or cfg.nodecfgs if no match).
- ******************************************************************************/
-int matchnode(faddr_t addr, int exact)
-{
- int i;
-
-if(exact!=2) {
- for(i=0;i<cfg.nodecfgs;i++) /* Look for exact match */
- if(!memcmp(&cfg.nodecfg[i].faddr,&addr,sizeof(faddr_t)))
- break;
- if(exact || i<cfg.nodecfgs)
- return(i); }
-
-for(i=0;i<cfg.nodecfgs;i++) /* Look for point match */
- if(cfg.nodecfg[i].faddr.point==0xffff
- && addr.zone==cfg.nodecfg[i].faddr.zone
- && addr.net==cfg.nodecfg[i].faddr.net
- && addr.node==cfg.nodecfg[i].faddr.node)
- break;
-if(i<cfg.nodecfgs)
- return(i);
-
-for(i=0;i<cfg.nodecfgs;i++) /* Look for node match */
- if(cfg.nodecfg[i].faddr.node==0xffff
- && addr.zone==cfg.nodecfg[i].faddr.zone
- && addr.net==cfg.nodecfg[i].faddr.net)
- break;
-if(i<cfg.nodecfgs)
- return(i);
-
-for(i=0;i<cfg.nodecfgs;i++) /* Look for net match */
- if(cfg.nodecfg[i].faddr.net==0xffff
- && addr.zone==cfg.nodecfg[i].faddr.zone)
- break;
-if(i<cfg.nodecfgs)
- return(i);
-
-for(i=0;i<cfg.nodecfgs;i++) /* Look for total wild */
- if(cfg.nodecfg[i].faddr.zone==0xffff)
- break;
-return(i);
-}
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-void read_cfg()
-{
- uchar str[1025],tmp[512],*p,*tp;
- short attr;
- int i,j,file;
- FILE *stream;
- faddr_t addr,route_addr;
-
-
-/****** READ IN SBBSECHO.CFG FILE *******/
-
-printf("\n\nReading %s\n",cfg.cfgfile);
-if((stream=fnopen(&file,cfg.cfgfile,O_RDONLY))==NULL) {
- printf("Unable to open %s for read.\n",cfg.cfgfile);
- exit(1); }
-
-cfg.maxpktsize=DFLT_PKT_SIZE;
-cfg.maxbdlsize=DFLT_BDL_SIZE;
-cfg.badecho=-1;
-cfg.log=LOG_DEFAULTS;
-
-while(1) {
- if(!fgets(str,256,stream))
- break;
- truncsp(str);
- p=str;
- while(*p && *p<=SP) p++;
- if(*p==';')
- continue;
- sprintf(tmp,"%-.25s",p);
- tp=strchr(tmp,SP);
- if(tp)
- *tp=0; /* Chop off at space */
- strupr(tmp); /* Convert code to uppercase */
- while(*p>SP) p++; /* Skip code */
- while(*p && *p<=SP) p++; /* Skip white space */
-
- if(!strcmp(tmp,"PACKER")) { /* Archive Definition */
- if((cfg.arcdef=(arcdef_t *)REALLOC(cfg.arcdef
- ,sizeof(arcdef_t)*(cfg.arcdefs+1)))==NULL) {
- printf("\nError allocating %u bytes of memory for arcdef #%u.\n"
- ,sizeof(arcdef_t)*(cfg.arcdefs+1),cfg.arcdefs+1);
- exit(1); }
- sprintf(cfg.arcdef[cfg.arcdefs].name,"%-.25s",p);
- tp=cfg.arcdef[cfg.arcdefs].name;
- while(*tp && *tp>SP) tp++;
- *tp=0;
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- cfg.arcdef[cfg.arcdefs].byteloc=atoi(p);
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- sprintf(cfg.arcdef[cfg.arcdefs].hexid,"%-.25s",p);
- tp=cfg.arcdef[cfg.arcdefs].hexid;
- while(*tp && *tp>SP) tp++;
- *tp=0;
- while(fgets(str,256,stream) && strnicmp(str,"END",3)) {
- p=str;
- while(*p && *p<=SP) p++;
- if(!strnicmp(p,"PACK ",5)) {
- p+=5;
- while(*p && *p<=SP) p++;
- sprintf(cfg.arcdef[cfg.arcdefs].pack,"%-.80s",p);
- truncsp(cfg.arcdef[cfg.arcdefs].pack);
- continue; }
- if(!strnicmp(p,"UNPACK ",7)) {
- p+=7;
- while(*p && *p<=SP) p++;
- sprintf(cfg.arcdef[cfg.arcdefs].unpack,"%-.80s",p);
- truncsp(cfg.arcdef[cfg.arcdefs].unpack); } }
- ++cfg.arcdefs;
- continue; }
-
- if(!strcmp(tmp,"REGNUM"))
- continue;
-
- if(!strcmp(tmp,"NOTIFY")) {
- cfg.notify=atoi(cleanstr(p));
- continue; }
-
- if(!strcmp(tmp,"LOG")) {
- cleanstr(p);
- if(!stricmp(p,"ALL"))
- cfg.log=0xffffffffUL;
- else if(!stricmp(p,"DEFAULT"))
- cfg.log=LOG_DEFAULTS;
- else if(!stricmp(p,"NONE"))
- cfg.log=0L;
- else
- cfg.log=strtol(cleanstr(p),0,16);
- continue; }
-
- if(!strcmp(tmp,"NOSWAP")) {
- node_swap=0;
- continue; }
-
- if(!strcmp(tmp,"SECURE_ECHOMAIL")) {
- misc|=SECURE;
- continue; }
-
- if(!strcmp(tmp,"CHECKMEM")) {
- misc|=CHECKMEM;
- continue; }
-
- if(!strcmp(tmp,"STORE_SEENBY")) {
- misc|=STORE_SEENBY;
- continue; }
-
- if(!strcmp(tmp,"STORE_PATH")) {
- misc|=STORE_PATH;
- continue; }
-
- if(!strcmp(tmp,"STORE_KLUDGE")) {
- misc|=STORE_KLUDGE;
- continue; }
-
- if(!strcmp(tmp,"FUZZY_ZONE")) {
- misc|=FUZZY_ZONE;
- continue; }
-
- if(!strcmp(tmp,"FAST_OPEN")) {
- continue; }
-
- if(!strcmp(tmp,"FLO_MAILER")) {
- misc|=FLO_MAILER;
- continue; }
-
- if(!strcmp(tmp,"ELIST_ONLY")) {
- misc|=ELIST_ONLY;
- continue; }
-
- if(!strcmp(tmp,"KILL_EMPTY")) {
- misc|=KILL_EMPTY_MAIL;
- continue; }
-
- if(!strcmp(tmp,"AREAFILE")) {
- sprintf(cfg.areafile,"%-.80s",cleanstr(p));
- continue; }
-
- if(!strcmp(tmp,"LOGFILE")) {
- sprintf(cfg.logfile,"%-.80s",cleanstr(p));
- continue; }
-
- if(!strcmp(tmp,"INBOUND")) { /* Inbound directory */
- sprintf(cfg.inbound,"%-.80s",cleanstr(p));
- if(cfg.inbound[strlen(cfg.inbound)-1]!='\\')
- strcat(cfg.inbound,"\\");
- continue; }
-
- if(!strcmp(tmp,"SECURE_INBOUND")) { /* Secure Inbound directory */
- sprintf(cfg.secure,"%-.80s",cleanstr(p));
- if(cfg.secure[strlen(cfg.secure)-1]!='\\')
- strcat(cfg.secure,"\\");
- continue; }
-
- if(!strcmp(tmp,"OUTBOUND")) { /* Outbound directory */
- sprintf(cfg.outbound,"%-.80s",cleanstr(p));
- if(cfg.outbound[strlen(cfg.outbound)-1]!='\\')
- strcat(cfg.outbound,"\\");
- continue; }
-
- if(!strcmp(tmp,"ARCSIZE")) { /* Maximum bundle size */
- cfg.maxbdlsize=atol(p);
- continue; }
-
- if(!strcmp(tmp,"PKTSIZE")) { /* Maximum packet size */
- cfg.maxpktsize=atol(p);
- continue; }
-
- if(!strcmp(tmp,"USEPACKER")) { /* Which packer to use */
- if(!*p)
- continue;
- strcpy(str,p);
- p=str;
- while(*p && *p>SP) p++;
- if(!*p)
- continue;
- *p=0;
- p++;
- for(i=0;i<cfg.arcdefs;i++)
- if(!strnicmp(cfg.arcdef[i].name,str
- ,strlen(cfg.arcdef[i].name)))
- break;
- if(i==cfg.arcdefs) /* i = number of arcdef til done */
- i=0xffff; /* Uncompressed type if not found */
- while(*p) {
- while(*p && *p<=SP) p++;
- if(!*p)
- break;
- addr=atofaddr(p);
- while(*p && *p>SP) p++;
- j=matchnode(addr,1);
- if(j==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,j+1);
- exit(1); }
- memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
- cfg.nodecfg[j].faddr=addr; }
- cfg.nodecfg[j].arctype=i; } }
-
- if(!strcmp(tmp,"PKTPWD")) { /* Packet Password */
- if(!*p)
- continue;
- addr=atofaddr(p);
- while(*p && *p>SP) p++; /* Skip address */
- while(*p && *p<=SP) p++; /* Find beginning of password */
- j=matchnode(addr,1);
- if(j==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,j+1);
- exit(1); }
- memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
- cfg.nodecfg[j].faddr=addr; }
- sprintf(cfg.nodecfg[j].pktpwd,"%.8s",p); }
-
- if(!strcmp(tmp,"PKTTYPE")) { /* Packet Type to Use */
- if(!*p)
- continue;
- strcpy(str,p);
- p=str;
- while(*p && *p>SP) p++;
- *p=0;
- p++;
- while(*p) {
- while(*p && *p<=SP) p++;
- if(!*p)
- break;
- addr=atofaddr(p);
- while(*p && *p>SP) p++;
- j=matchnode(addr,1);
- if(j==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,j+1);
- exit(1); }
- memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
- cfg.nodecfg[j].faddr=addr; }
- if(!strcmp(str,"2+"))
- cfg.nodecfg[j].pkt_type=PKT_TWO_PLUS;
- else if(!strcmp(str,"2.2"))
- cfg.nodecfg[j].pkt_type=PKT_TWO_TWO;
- else if(!strcmp(str,"2"))
- cfg.nodecfg[j].pkt_type=PKT_TWO; } }
-
- if(!strcmp(tmp,"SEND_NOTIFY")) { /* Nodes to send notify lists to */
- while(*p) {
- while(*p && *p<=SP) p++;
- if(!*p)
- break;
- addr=atofaddr(p);
- while(*p && *p>SP) p++;
- j=matchnode(addr,1);
- if(j==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,j+1);
- exit(1); }
- memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
- cfg.nodecfg[j].faddr=addr; }
- cfg.nodecfg[j].attr|=SEND_NOTIFY; } }
-
- if(!strcmp(tmp,"PASSIVE")
- || !strcmp(tmp,"HOLD")
- || !strcmp(tmp,"CRASH")
- || !strcmp(tmp,"DIRECT")) { /* Set node attributes */
- if(!strcmp(tmp,"PASSIVE"))
- attr=ATTR_PASSIVE;
- else if(!strcmp(tmp,"CRASH"))
- attr=ATTR_CRASH;
- else if(!strcmp(tmp,"HOLD"))
- attr=ATTR_HOLD;
- else if(!strcmp(tmp,"DIRECT"))
- attr=ATTR_DIRECT;
- while(*p) {
- while(*p && *p<=SP) p++;
- if(!*p)
- break;
- addr=atofaddr(p);
- while(*p && *p>SP) p++;
- j=matchnode(addr,1);
- if(j==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,j+1);
- exit(1); }
- memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
- cfg.nodecfg[j].faddr=addr; }
- cfg.nodecfg[j].attr|=attr; } }
-
- if(!strcmp(tmp,"ROUTE_TO")) {
- while(*p && *p<=SP) p++;
- if(*p) {
- route_addr=atofaddr(p);
- while(*p && *p>SP) p++; }
- while(*p) {
- while(*p && *p<=SP) p++;
- if(!*p)
- break;
- addr=atofaddr(p);
- while(*p && *p>SP) p++;
- j=matchnode(addr,1);
- if(j==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,j+1);
- exit(1); }
- memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
- cfg.nodecfg[j].faddr=addr; }
- cfg.nodecfg[j].route=route_addr; } }
-
- if(!strcmp(tmp,"AREAFIX")) { /* Areafix stuff here */
- if(!*p)
- continue;
- addr=atofaddr(p);
- i=matchnode(addr,1);
- if(i==cfg.nodecfgs) {
- cfg.nodecfgs++;
- if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
- ,sizeof(nodecfg_t)*(i+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u.\n"
- ,i+1);
- exit(1); }
- memset(&cfg.nodecfg[i],0,sizeof(nodecfg_t));
- cfg.nodecfg[i].faddr=addr; }
- cfg.nodecfg[i].flag=NULL;
- while(*p && *p>SP) p++; /* Get to the end of the address */
- while(*p && *p<=SP) p++; /* Skip over whitespace chars */
- tp=p;
- while(*p && *p>SP) p++; /* Find end of password */
- *p=0; /* and terminate the string */
- ++p;
- sprintf(cfg.nodecfg[i].password,"%-.25s",tp);
- while(*p && *p<=SP) p++; /* Search for more chars */
- if(!*p) /* Nothing else there */
- continue;
- while(*p) {
- tp=p;
- while(*p && *p>SP) p++; /* Find end of this flag */
- *p=0; /* and terminate it */
- ++p;
- for(j=0;j<cfg.nodecfg[i].numflags;j++)
- if(!strnicmp(cfg.nodecfg[i].flag[j].flag,tp
- ,strlen(cfg.nodecfg[i].flag[j].flag)))
- break;
- if(j==cfg.nodecfg[i].numflags) {
- if((cfg.nodecfg[i].flag=
- (flag_t *)REALLOC(cfg.nodecfg[i].flag
- ,sizeof(flag_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for nodecfg #%u "
- "flag #%u.\n",cfg.nodecfgs,j+1);
- exit(1); }
- cfg.nodecfg[i].numflags++;
- sprintf(cfg.nodecfg[i].flag[j].flag,"%.4s",tp); }
- while(*p && *p<=SP) p++; } }
-
- if(!strcmp(tmp,"ECHOLIST")) { /* Echolists go here */
- if((cfg.listcfg=(echolist_t *)REALLOC(cfg.listcfg
- ,sizeof(echolist_t)*(cfg.listcfgs+1)))==NULL) {
- printf("\nError allocating memory for echolist cfg #%u.\n"
- ,cfg.listcfgs+1);
- exit(1); }
- memset(&cfg.listcfg[cfg.listcfgs],0,sizeof(echolist_t));
- ++cfg.listcfgs;
- /* Need to forward requests? */
- if(!strnicmp(p,"FORWARD ",8) || !strnicmp(p,"HUB ",4)) {
- if(!strnicmp(p,"HUB ",4))
- cfg.listcfg[cfg.listcfgs-1].misc|=NOFWD;
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- if(*p)
- cfg.listcfg[cfg.listcfgs-1].forward=atofaddr(p);
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- if(*p && !(cfg.listcfg[cfg.listcfgs-1].misc&NOFWD)) {
- tp=p;
- while(*p && *p>SP) p++;
- *p=0;
- ++p;
- while(*p && *p<=SP) p++;
- sprintf(cfg.listcfg[cfg.listcfgs-1].password,"%.71s",tp); } }
- else
- cfg.listcfg[cfg.listcfgs-1].misc|=NOFWD;
- if(!*p)
- continue;
- tp=p;
- while(*p && *p>SP) p++;
- *p=0;
- p++;
-
- sprintf(cfg.listcfg[cfg.listcfgs-1].listpath,"%-.128s",tp);
- cfg.listcfg[cfg.listcfgs-1].numflags=0;
- cfg.listcfg[cfg.listcfgs-1].flag=NULL;
- while(*p && *p<=SP) p++; /* Skip over whitespace chars */
- while(*p) {
- tp=p;
- while(*p && *p>SP) p++; /* Find end of this flag */
- *p=0; /* and terminate it */
- ++p;
- for(j=0;j<cfg.listcfg[cfg.listcfgs-1].numflags;j++)
- if(!strnicmp(cfg.listcfg[cfg.listcfgs-1].flag[j].flag,tp
- ,strlen(cfg.listcfg[cfg.listcfgs-1].flag[j].flag)))
- break;
- if(j==cfg.listcfg[cfg.listcfgs-1].numflags) {
- if((cfg.listcfg[cfg.listcfgs-1].flag=
- (flag_t *)REALLOC(cfg.listcfg[cfg.listcfgs-1].flag
- ,sizeof(flag_t)*(j+1)))==NULL) {
- printf("\nError allocating memory for listcfg #%u "
- "flag #%u.\n",cfg.listcfgs,j+1);
- exit(1); }
- cfg.listcfg[cfg.listcfgs-1].numflags++;
- sprintf(cfg.listcfg[cfg.listcfgs-1].flag[j].flag,"%.4s",tp); }
- while(*p && *p<=SP) p++; } }
-
-// printf("Unrecognized line in SBBSECHO.CFG file.\n");
-}
-fclose(stream);
-printf("\n");
-}
-
diff --git a/src/sbbs2/echo/sbbsecho.c b/src/sbbs2/echo/sbbsecho.c
deleted file mode 100644
index dad5ece1105a258f3cec2d26fff35434e425026c..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/sbbsecho.c
+++ /dev/null
@@ -1,5060 +0,0 @@
-/* SBBSECHO.C */
-
-/* Developed 1990-2000 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Portions written by Allen Christiansen 1994-1996 */
-
-/* Synchronet FidoNet EchoMail Scanning/Tossing and NetMail Tossing Utility */
-
-#include <dos.h>
-#include <mem.h>
-#include <time.h>
-#include <errno.h>
-#include <stdio.h>
-#include <conio.h>
-#include <ctype.h>
-#include <fcntl.h>
-#include <share.h>
-#include <malloc.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <process.h>
-#include <sys\stat.h>
-
-#include "sbbsdefs.h"
-#include "smblib.h"
-#include "scfglib.h"
-#define GLOBAL extern /* turn vars.c and scfgvars.c files into headers */
-#include "scfgvars.c"
-#include "post.h"
-#include "lzh.h"
-#include "sbbsecho.h"
-
-extern long crc32tbl[];
-ulong crc32(char *str);
-
-#ifndef __FLAT__
- #include "..\..\spawno\spawno.h"
-#endif
-
-#ifdef __TURBOC__
- unsigned _stklen=20000;
-#endif
-
-#ifdef __WATCOMC__
- #define O_DENYNONE SH_DENYNO
-#endif
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-
-smb_t *smb,*email;
-long misc=(IMPORT_PACKETS|IMPORT_NETMAIL|IMPORT_ECHOMAIL|EXPORT_ECHOMAIL
- |DELETE_NETMAIL|DELETE_PACKETS);
-ulong netmail=0;
-char tmp[256],pkt_type=0;
-faddr_t sys_faddr;
-config_t cfg;
-int nodefile,secure,cur_smb=0;
-FILE *fidologfile=NULL;
-two_two_t two_two;
-two_plus_t two_plus;
-
-#ifdef __WATCOMC__
-/******************************************************************************
- A DOS to Unix function - because WATCOM doesn't have one
-******************************************************************************/
-time_t dostounix(struct date *d,struct time *t)
-{
- struct tm tm;
-
-tm.tm_sec=t->ti_sec;
-tm.tm_min=t->ti_min;
-tm.tm_hour=t->ti_hour;
-tm.tm_mday=d->da_day;
-tm.tm_mon=(d->da_mon-1);
-tm.tm_year=d->da_year-1900;
-tm.tm_isdst=0;
-
-return(mktime(&tm));
-}
-#endif
-
-#ifndef __NT__
-#define delfile(x) remove(x)
-#else
-int delfile(char *filename)
-{
- int i=0;
-
-while(remove(filename) && i++<120) /* Wait up to 60 seconds to delete file */
- delay(500); /* for Win95 bug fix */
-return(i);
-}
-#endif
-
-/******************************************************************************
- This turns the DOS file date garbage into a long
-******************************************************************************/
-long ddtol(ushort ftim, ushort fdat)
-{
- struct date date;
- struct time time;
-
- date.da_year=((fdat&0xfe00)>>9)+1980;
- date.da_mon=((fdat&0x01e0)>>5);
- date.da_day=(fdat&0x001f);
- time.ti_hour=((ftim&0xf800)>>11);
- time.ti_min=((ftim&0x07e0)>>5);
- time.ti_sec=((ftim&0x001f)<<1);
- time.ti_hund=0;
- return(dostounix(&date,&time));
-}
-void checkmem(void)
-{
-#ifdef __WATCOMC__
- char *p=NULL;
- long size=640L*1024L,over;
-
- while(size>0) {
- p=(char *)LMALLOC(size);
- if(p)
- break;
- size-=1024L; }
-
- printf("\nAvailable Memory = %ld bytes",size);
- if(p)
- LFREE(p);
-#elif !defined(__OS2__)
- printf("\nAvailable Memory = %ld bytes",farcoreleft());
-#endif
-}
-
-/**********************/
-/* Log print function */
-/**********************/
-void logprintf(char *str, ...)
-{
- va_list argptr;
- char buf[256];
- time_t now;
- struct tm *gm;
-
-if(!(misc&LOGFILE) || fidologfile==NULL)
- return;
-va_start(argptr,str);
-vsprintf(buf,str,argptr);
-va_end(argptr);
-now=time(NULL);
-gm=localtime(&now);
-fseek(fidologfile,0L,SEEK_END);
-fprintf(fidologfile,"%02u/%02u/%02u %02u:%02u:%02u %s\r\n"
- ,gm->tm_mon+1,gm->tm_mday,TM_YEAR(gm->tm_year),gm->tm_hour,gm->tm_min,gm->tm_sec
- ,buf);
-fflush(fidologfile);
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-/*****************************************************************************/
-/* Returns command line generated from instr with %c replacments */
-/*****************************************************************************/
-char *cmdstr(char *instr, char *fpath, char *fspec)
-{
- static char cmd[128];
- char str[256],str2[128];
- int i,j,len;
-
-len=strlen(instr);
-for(i=j=0;i<len && j<128;i++) {
- if(instr[i]=='%') {
- i++;
- cmd[j]=0;
- switch(toupper(instr[i])) {
- case 'F': /* File path */
- strcat(cmd,fpath);
- break;
- case 'G': /* Temp directory */
- if(temp_dir[0]!='\\' && temp_dir[1]!=':') {
- strcpy(str,node_dir);
- strcat(str,temp_dir);
- if(_fullpath(str2,str,40))
- strcpy(str,str2);
- backslash(str);
- strcat(cmd,str);}
- else
- strcat(cmd,temp_dir);
- break;
- case 'J':
- if(data_dir[0]!='\\' && data_dir[1]!=':') {
- strcpy(str,node_dir);
- strcat(str,data_dir);
- if(_fullpath(str2,str,40))
- strcpy(str,str2);
- backslash(str);
- strcat(cmd,str); }
- else
- strcat(cmd,data_dir);
- break;
- case 'K':
- if(ctrl_dir[0]!='\\' && ctrl_dir[1]!=':') {
- strcpy(str,node_dir);
- strcat(str,ctrl_dir);
- if(_fullpath(str2,str,40))
- strcpy(str,str2);
- backslash(str);
- strcat(cmd,str); }
- else
- strcat(cmd,ctrl_dir);
- break;
- case 'N': /* Node Directory (same as SBBSNODE environment var) */
- strcat(cmd,node_dir);
- break;
- case 'O': /* SysOp */
- strcat(cmd,sys_op);
- break;
- case 'Q': /* QWK ID */
- strcat(cmd,sys_id);
- break;
- case 'S': /* File Spec */
- strcat(cmd,fspec);
- break;
- case '!': /* EXEC Directory */
- if(exec_dir[0]!='\\' && exec_dir[1]!=':') {
- strcpy(str,node_dir);
- strcat(str,exec_dir);
- if(_fullpath(str2,str,40))
- strcpy(str,str2);
- backslash(str);
- strcat(cmd,str); }
- else
- strcat(cmd,exec_dir);
- break;
- case '#': /* Node number (same as SBBSNNUM environment var) */
- sprintf(str,"%d",node_num);
- strcat(cmd,str);
- break;
- case '*':
- sprintf(str,"%03d",node_num);
- strcat(cmd,str);
- break;
- case '%': /* %% for percent sign */
- strcat(cmd,"%");
- break;
- default: /* unknown specification */
- printf("ERROR Checking Command Line '%s'\n",instr);
- logprintf("ERROR line %d Checking Command Line '%s'",__LINE__
- ,instr);
- exit(1);
- break; }
- j=strlen(cmd); }
- else
- cmd[j++]=instr[i]; }
-cmd[j]=0;
-
-return(cmd);
-}
-
-/****************************************************************************/
-/* Runs an external program directly using spawnvp */
-/****************************************************************************/
-int execute(char *cmdline)
-{
- char c,d,e,cmdlen,*arg[30],str[256];
- int i;
-
-strcpy(str,cmdline);
-arg[0]=str; /* point to the beginning of the string */
-cmdlen=strlen(str);
-for(c=0,d=1,e=0;c<cmdlen;c++,e++) /* Break up command line */
- if(str[c]==SP) {
- str[c]=0; /* insert nulls */
- arg[d++]=str+c+1; /* point to the beginning of the next arg */
- e=0; }
-arg[d]=0;
-#ifndef __FLAT__
-if(node_swap) {
- printf("Swapping...\n");
- i=spawnvpo(".\\",(const char *)arg[0],(const char **)arg); }
-else
-#endif
- i=spawnvp(P_WAIT,arg[0],arg);
-return(i);
-}
-/******************************************************************************
- Returns the system address with the same zone as the address passed
-******************************************************************************/
-faddr_t getsysfaddr(short zone)
-{
- int i;
- faddr_t sysfaddr;
-
-sysfaddr.zone=sysfaddr.net=sysfaddr.node=1;
-sysfaddr.point=0;
-if(!total_faddrs)
- return(sys_faddr);
-sysfaddr=faddr[0];
-if(total_faddrs==1)
- return(sysfaddr);
-for(i=0;i<total_faddrs;i++)
- if(faddr[i].zone==zone)
- return(faddr[i]);
-return(sysfaddr);
-}
-/******************************************************************************
- This function creates or appends on existing Binkley compatible .?LO file
- attach file.
- Returns 0 on success.
-******************************************************************************/
-int write_flofile(char *attachment, faddr_t dest)
-{
- char fname[256],outbound[128],str[128],ch;
- ushort attr=0;
- int i,file;
- FILE *stream;
-
-i=matchnode(dest,0);
-if(i<cfg.nodecfgs)
- attr=cfg.nodecfg[i].attr;
-
-if(attr&ATTR_CRASH) ch='C';
-else if(attr&ATTR_HOLD) ch='H';
-else if(attr&ATTR_DIRECT) ch='D';
-else ch='F';
-if(dest.zone==faddr[0].zone) /* Default zone, use default outbound */
- strcpy(outbound,cfg.outbound);
-else /* Inter-zone outbound is OUTBOUND.XXX */
- sprintf(outbound,"%.*s.%03X\\"
- ,strlen(cfg.outbound)-1,cfg.outbound,dest.zone);
-if(dest.point) { /* Point destination is OUTBOUND\*.PNT */
- sprintf(str,"%04X%04X.PNT"
- ,dest.net,dest.node);
- strcat(outbound,str); }
-if(outbound[strlen(outbound)-1]=='\\')
- outbound[strlen(outbound)-1]=0;
-mkdir(outbound);
-strcat(outbound,"\\");
-if(dest.point)
- sprintf(fname,"%s%08X.%cLO",outbound,dest.point,ch);
-else
- sprintf(fname,"%s%04X%04X.%cLO",outbound,dest.net,dest.node,ch);
-if((stream=fnopen(&file,fname,O_WRONLY|O_CREAT))==NULL) {
- printf("\7ERROR opening %s %s\n",fname,sys_errlist[errno]);
- logprintf("ERROR line %d opening %s %s",__LINE__,fname,sys_errlist[errno]);
- return(-1); }
-
-fseek(stream,0L,SEEK_END);
-fprintf(stream,"^%s\r\n",attachment);
-fclose(stream);
-return(0);
-}
-
-/******************************************************************************
- This function will create a netmail message (.MSG format).
- If file is non-zero, will set file attachment bit (for bundles).
- Returns 0 on success.
-******************************************************************************/
-int create_netmail(char *to,char *subject,char *body,faddr_t dest,int file)
-{
- FILE *fstream;
- char str[256],fname[256];
- ushort attr=0;
- int fmsg;
- uint i;
- static uint startmsg;
- time_t t;
- faddr_t faddr;
- fmsghdr_t hdr;
- struct tm *tm;
-
-if(!startmsg) startmsg=1;
-i=matchnode(dest,0);
-if(i<cfg.nodecfgs) {
- attr=cfg.nodecfg[i].attr;
- if(!attr) {
- i=matchnode(dest,2);
- if(i<cfg.nodecfgs)
- attr=cfg.nodecfg[i].attr; } }
-
-do {
- for(i=startmsg;i;i++) {
- sprintf(fname,"%s%u.MSG",netmail_dir,i);
- if(!fexist(fname))
- break; }
- if(!i) {
- printf("\7%s directory full!\n",netmail_dir);
- logprintf("Directory full: %s",netmail_dir);
- return(-1); }
- startmsg=i+1;
- strupr(fname);
- if((fstream=fnopen(&fmsg,fname,O_RDWR|O_CREAT))==NULL) {
- printf("\7ERROR opening %s %s\n",fname,sys_errlist[errno]);
- logprintf("ERROR line %d opening %s %s",__LINE__,fname,sys_errlist[errno]);
- return(-1); }
-
- faddr=getsysfaddr(dest.zone);
- memset(&hdr,0,sizeof(fmsghdr_t));
- hdr.origzone=faddr.zone;
- hdr.orignet=faddr.net;
- hdr.orignode=faddr.node;
- hdr.origpoint=faddr.point;
- hdr.destzone=dest.zone;
- hdr.destnet=dest.net;
- hdr.destnode=dest.node;
- hdr.destpoint=dest.point;
-
- hdr.attr=(FIDO_PRIVATE|FIDO_KILLSENT|FIDO_LOCAL);
- if(file)
- hdr.attr|=FIDO_FILE;
-
- if(attr&ATTR_HOLD)
- hdr.attr|=FIDO_HOLD;
- if(attr&ATTR_CRASH)
- hdr.attr|=FIDO_CRASH;
-
- sprintf(hdr.from,"SBBSecho");
-
- t=time(NULL);
- tm=gmtime(&t);
- sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u"
- ,tm->tm_mday,mon[tm->tm_mon],TM_YEAR(tm->tm_year)
- ,tm->tm_hour,tm->tm_min,tm->tm_sec);
-
- if(to)
- sprintf(hdr.to,"%s",to);
- else
- sprintf(hdr.to,"SYSOP");
-
- sprintf(hdr.subj,"%.71s",subject);
-
- fwrite(&hdr,sizeof(fmsghdr_t),1,fstream);
- sprintf(str,"\1INTL %u:%u/%u %u:%u/%u\r"
- ,hdr.destzone,hdr.destnet,hdr.destnode
- ,hdr.origzone,hdr.orignet,hdr.orignode);
- fwrite(str,strlen(str),1,fstream);
- if(attr&ATTR_DIRECT) {
- fwrite("\1FLAGS DIR",10,1,fstream);
- if(file)
- fwrite(" KFS\r",5,1,fstream);
- else
- fwrite("\r",1,1,fstream); }
- if(hdr.destpoint) {
- sprintf(str,"\1TOPT %u\r",hdr.destpoint);
- fwrite(str,strlen(str),1,fstream); }
- if(hdr.origpoint) {
- sprintf(str,"\1FMPT %u\r",hdr.origpoint);
- fwrite(str,strlen(str),1,fstream); }
- if(!file || (!(attr&ATTR_DIRECT) && file))
- fwrite(body,strlen(body)+1,1,fstream); /* Write additional NULL */
- else
- fwrite("\0",1,1,fstream); /* Write NULL */
- fclose(fstream);
-} while(!fexist(fname));
-return(0);
-}
-
-/******************************************************************************
- This function takes the contents of 'infile' and puts it into a netmail
- message bound for addr.
-******************************************************************************/
-void file_to_netmail(FILE *infile,char *title,faddr_t addr,char *to)
-{
- char *buf,*p;
- long l,m,len;
-
-l=len=ftell(infile);
-if(len>8192L)
- len=8192L;
-rewind(infile);
-if((buf=(char *)MALLOC(len+1))==NULL) {
- printf("ERROR allocating %lu bytes for file to netmail buffer.\n",len);
- logprintf("ERROR line %d allocating %lu for file to netmail buf",__LINE__
- ,len);
- return; }
-while((m=fread(buf,1,(len>8064L) ? 8064L:len,infile))>0) {
- buf[m]=0;
- if(l>8064L && (p=strrchr(buf,'\n'))!=NULL) {
- p++;
- if(*p) {
- *p=0;
- p++;
- fseek(infile,-1L,SEEK_CUR);
- while(*p) { /* Seek back to end of last line */
- p++;
- fseek(infile,-1L,SEEK_CUR); } } }
- if(ftell(infile)<l)
- strcat(buf,"\r\nContinued in next message...\r\n");
- create_netmail(to,title,buf,addr,0); }
-FREE(buf);
-}
-/******************************************************************************
- This function sends a notify list to applicable nodes, this list includes the
- settings configured for the node, as well as a list of areas the node is
- connected to.
-******************************************************************************/
-void notify_list(void)
-{
- FILE *tmpf;
- char str[256];
- int i,j,k;
-
-for(k=0;k<cfg.nodecfgs;k++) {
-
- if(!(cfg.nodecfg[k].attr&SEND_NOTIFY))
- continue;
-
- if((tmpf=tmpfile())==NULL) {
- printf("\7ERROR couldn't open tmpfile.\n");
- logprintf("ERROR line %d couldn't open tmpfile",__LINE__);
- return; }
-
- fprintf(tmpf,"Following are the options set for your system and a list "
- "of areas\r\nyou are connected to. Please make sure everything "
- "is correct.\r\n\r\n");
- fprintf(tmpf,"Packet Type %s\r\n"
- ,cfg.nodecfg[k].pkt_type==PKT_TWO ? "2"
- :cfg.nodecfg[k].pkt_type==PKT_TWO_TWO ? "2.2":"2+");
- fprintf(tmpf,"Archive Type %s\r\n"
- ,(cfg.nodecfg[k].arctype>cfg.arcdefs) ?
- "None":cfg.arcdef[cfg.nodecfg[k].arctype].name);
- fprintf(tmpf,"Mail Status %s\r\n"
- ,cfg.nodecfg[k].attr&ATTR_CRASH ? "Crash"
- :cfg.nodecfg[k].attr&ATTR_HOLD ? "Hold" : "None");
- fprintf(tmpf,"Direct %s\r\n"
- ,cfg.nodecfg[k].attr&ATTR_DIRECT ? "Yes":"No");
- fprintf(tmpf,"Passive %s\r\n"
- ,cfg.nodecfg[k].attr&ATTR_PASSIVE ? "Yes":"No");
- fprintf(tmpf,"Remote AreaMgr %s\r\n\r\n"
- ,cfg.nodecfg[k].password[0] ? "Yes" : "No");
-
- fprintf(tmpf,"Connected Areas\r\n---------------\r\n");
- for(i=0;i<cfg.areas;i++) {
- sprintf(str,"%s\r\n",cfg.area[i].name);
- if(str[0]=='*')
- continue;
- for(j=0;j<cfg.area[i].uplinks;j++)
- if(!memcmp(&cfg.nodecfg[k].faddr,&cfg.area[i].uplink[j]
- ,sizeof(faddr_t)))
- break;
- if(j<cfg.area[i].uplinks)
- fprintf(tmpf,"%s",str); }
-
- if(ftell(tmpf))
- file_to_netmail(tmpf,"SBBSecho Notify List",cfg.nodecfg[k].faddr,0);
- fclose(tmpf); }
-}
-/******************************************************************************
- This function creates a netmail to addr showing a list of available areas (0),
- a list of connected areas (1), or a list of removed areas (2).
-******************************************************************************/
-void netmail_arealist(char type,faddr_t addr)
-{
- FILE *stream,*tmpf;
- char str[256],temp[256],title[81],match,*p;
- int file,i,j,k,x,y;
-
-if(!type)
- strcpy(title,"List of Available Areas");
-else if(type==1)
- strcpy(title,"List of Connected Areas");
-else
- strcpy(title,"List of Unlinked Areas");
-
-if((tmpf=tmpfile())==NULL) {
- printf("\7ERROR couldn't open tmpfile.\n");
- logprintf("ERROR line %d couldn't open tmpfile",__LINE__);
- return; }
-
-if(type==1 || (type!=1 && !(misc&ELIST_ONLY))) {
- for(i=0;i<cfg.areas;i++) {
- sprintf(str,"%s\r\n",cfg.area[i].name);
- if(type) {
- for(j=0;j<cfg.area[i].uplinks;j++)
- if(!memcmp(&addr,&cfg.area[i].uplink[j],sizeof(faddr_t)))
- break;
- if((type==1 && j<cfg.area[i].uplinks) ||
- (type==2 && j==cfg.area[i].uplinks))
- fprintf(tmpf,"%s",str); }
- else
- fprintf(tmpf,"%s",str); } }
-
-if(!type) {
- i=matchnode(addr,0);
- if(i<cfg.nodecfgs) {
- for(j=0;j<cfg.listcfgs;j++) {
- match=0;
- for(k=0;k<cfg.listcfg[j].numflags;k++) {
- if(match) break;
- for(x=0;x<cfg.nodecfg[i].numflags;x++)
- if(!stricmp(cfg.listcfg[j].flag[k].flag
- ,cfg.nodecfg[i].flag[x].flag)) {
- if((stream=fnopen(&file
- ,cfg.listcfg[j].listpath,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n"
- ,cfg.listcfg[j].listpath);
- logprintf("ERROR line %d couldn't open %s %s"
- ,__LINE__,cfg.listcfg[j].listpath
- ,sys_errlist[errno]);
- match=1;
- break; }
- while(!feof(stream)) {
- if(!fgets(str,255,stream))
- break;
- truncsp(str);
- strcat(str,"\r\n");
- p=str;
- while(*p && *p<=SP) p++;
- if(*p==';') /* Ignore Comment Lines */
- continue;
- strcpy(temp,p);
- p=temp;
- while(*p && *p>SP) p++;
- *p=0;
- if(!(misc&ELIST_ONLY)) {
- for(y=0;y<cfg.areas;y++)
- if(!stricmp(cfg.area[y].name,temp))
- break;
- if(y==cfg.areas)
- fprintf(tmpf,"%s",str); }
- else
- fprintf(tmpf,"%s",str); }
- fclose(stream);
- match=1;
- break; } } } } }
-
-if(!ftell(tmpf))
- create_netmail(0,title,"None.",addr,0);
-else
- file_to_netmail(tmpf,title,addr,0);
-fclose(tmpf);
-}
-/******************************************************************************
- Imitation of Borland's tempnam function because Watcom doesn't have it
-******************************************************************************/
-//#ifdef __WATCOMC__
-char *tempname(char *dir, char *prefix)
-{
- char str[256],*p;
- int i;
-
-for(i=0;i<1000;i++) {
- sprintf(str,"%s%s%03u.$$$",dir,prefix,i);
- if(!fexist(str))
- break; }
-if(i>=1000) {
- logprintf("tempnam: too many files");
- return(NULL); }
-p=malloc(strlen(str)+1);
-if(!p) {
- logprintf("tempnam: couldn't malloc %u",strlen(str)+1);
- return(NULL); }
-strcpy(p,str);
-return(p);
-}
-//#endif
-
-char check_elists(char *areatag,faddr_t addr)
-{
- FILE *stream;
- char str[1025],quit=0,match=0,*p;
- int i,j,k,x,file;
-
-i=matchnode(addr,0);
-if(i<cfg.nodecfgs) {
- for(j=0;j<cfg.listcfgs;j++) {
- quit=0;
- for(k=0;k<cfg.listcfg[j].numflags;k++) {
- if(quit) break;
- for(x=0;x<cfg.nodecfg[i].numflags;x++)
- if(!stricmp(cfg.listcfg[j].flag[k].flag
- ,cfg.nodecfg[i].flag[x].flag)) {
- if((stream=fnopen(&file
- ,cfg.listcfg[j].listpath,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n"
- ,cfg.listcfg[j].listpath);
- logprintf("ERROR line %d opening %s"
- ,__LINE__,cfg.listcfg[j].listpath);
- quit=1;
- break; }
- while(!feof(stream)) {
- if(!fgets(str,255,stream))
- break;
- truncsp(str);
- strcat(str,"\r\n");
- p=str;
- while(*p && *p<=SP) p++;
- if(*p==';') /* Ignore Comment Lines */
- continue;
- strcpy(str,p);
- p=str;
- while(*p && *p>SP) p++;
- *p=0;
- if(!stricmp(areatag,str)) {
- match=1;
- break; } }
- fclose(stream);
- quit=1;
- if(match)
- return(match);
- break; } } } }
-return(match);
-}
-/******************************************************************************
- Used by AREAFIX to add/remove/change areas in the areas file
-******************************************************************************/
-void alter_areas(area_t add_area,area_t del_area,faddr_t addr)
-{
- FILE *nmfile,*afilein,*afileout,*reqfile,*fwdfile;
- char str[1025],fields[1025],field1[81],field2[81],field3[81]
- ,drive[3],dir[66],name[9],ext[5],outpath[128]
- ,*outname,*p,*tp,nomatch=0,match=0;
- int i,j,k,x,y,file;
- ulong tagcrc;
-
-_splitpath(cfg.areafile,drive,dir,name,ext);
-sprintf(outpath,"%s%s",drive,dir);
-if((outname=tempname(outpath,"AREAS"))==NULL) {
- printf("\7ERROR creating temp file name for %s.\n",outpath);
- logprintf("ERROR tempnam(%s,AREAS)",outpath);
- return; }
-if((nmfile=tmpfile())==NULL) {
- printf("\7ERROR couldn't open NetMail temp file.\n");
- logprintf("ERROR in tmpfile()");
- free(outname);
- return; }
-if((afileout=fopen(outname,"w+b"))==NULL) {
- printf("\7ERROR couldn't open %s.\n",outname);
- logprintf("ERROR line %d opening %s %s",__LINE__,outname
- ,sys_errlist[errno]);
- fclose(nmfile);
- free(outname);
- return; }
-if((afilein=fnopen(&file,cfg.areafile,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n",cfg.areafile);
- logprintf("ERROR line %d opening %s %s",__LINE__,cfg.areafile
- ,sys_errlist[errno]);
- fclose(afileout);
- fclose(nmfile);
- free(outname);
- return; }
-while(!feof(afilein)) {
- if(!fgets(fields,1024,afilein))
- break;
- truncsp(fields);
- strcat(fields,"\r\n");
- p=fields;
- while(*p && *p<=SP) p++;
- if(*p==';') { /* Skip Comment Lines */
- fprintf(afileout,"%s",fields);
- continue; }
- sprintf(field1,"%-.81s",p); /* Internal Code Field */
- tp=field1;
- while(*tp && *tp>SP) tp++;
- *tp=0;
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- sprintf(field2,"%-.81s",p); /* Areatag Field */
- tp=field2;
- while(*tp && *tp>SP) tp++;
- *tp=0;
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- if((tp=strchr(p,';'))!=NULL) {
- sprintf(field3,"%-.81s",p); /* Comment Field (if any) */
- while(*tp && *tp>SP) tp++;
- *tp=0; }
- else
- field3[0]=0;
- if(del_area.tags) { /* Check for areas to remove */
- for(i=0;i<del_area.tags;i++) {
- if(!stricmp(del_area.tag[i],field2) ||
- !stricmp(del_area.tag[0],"-ALL")) /* Match Found */
- break; }
- if(i<del_area.tags) {
- for(i=0;i<cfg.areas;i++) {
- if(!stricmp(field2,cfg.area[i].name)) {
- for(j=0;j<cfg.area[i].uplinks;j++)
- if(!memcmp(&cfg.area[i].uplink[j],&addr
- ,sizeof(faddr_t)))
- break;
- if(j==cfg.area[i].uplinks &&
- stricmp(del_area.tag[0],"-ALL")) {
- fprintf(afileout,"%s",fields);
- fprintf(nmfile,"%s not connected.\r\n",field2);
- break; }
-
- /* Added 12/4/95 to remove uplink from connected uplinks */
-
- for(k=j;k<cfg.area[i].uplinks-1;k++)
- memcpy(&cfg.area[i].uplink[k],&cfg.area[i].uplink[k+1]
- ,sizeof(faddr_t));
- --cfg.area[i].uplinks;
- if((cfg.area[i].uplink=(faddr_t *)
- REALLOC(cfg.area[i].uplink,sizeof(faddr_t)
- *(cfg.area[i].uplinks)))==NULL) {
- printf("ERROR allocating memory for area #%u "
- "uplinks.\n",i+1);
- logprintf("ERROR line %d allocating memory for area "
- "#%u uplinks.\n",__LINE__,i+1);
- exit(1); }
-
- fprintf(afileout,"%-16s%-23s ",field1,field2);
- for(j=0;j<cfg.area[i].uplinks;j++) {
- if(!memcmp(&cfg.area[i].uplink[j],&addr
- ,sizeof(faddr_t)))
- continue;
- fprintf(afileout,"%s "
- ,faddrtoa(cfg.area[i].uplink[j])); }
- if(field3[0])
- fprintf(afileout,"%s",field3);
- fprintf(afileout,"\r\n");
- fprintf(nmfile,"%s removed.\r\n",field2);
- break; } }
- if(i==cfg.areas) /* Something screwy going on */
- fprintf(afileout,"%s",fields);
- continue; } } /* Area match so continue on */
- if(add_area.tags) { /* Check for areas to add */
- for(i=0;i<add_area.tags;i++)
- if(!stricmp(add_area.tag[i],field2) ||
- !stricmp(add_area.tag[0],"+ALL")) /* Match Found */
- break;
- if(i<add_area.tags) {
- if(stricmp(add_area.tag[i],"+ALL"))
- add_area.tag[i][0]=0; /* So we can check other lists */
- for(i=0;i<cfg.areas;i++) {
- if(!stricmp(field2,cfg.area[i].name)) {
- for(j=0;j<cfg.area[i].uplinks;j++)
- if(!memcmp(&cfg.area[i].uplink[j],&addr
- ,sizeof(faddr_t)))
- break;
- if(j<cfg.area[i].uplinks) {
- fprintf(afileout,"%s",fields);
- fprintf(nmfile,"%s already connected.\r\n",field2);
- break; }
- if(misc&ELIST_ONLY && !check_elists(field2,addr)) {
- fprintf(afileout,"%s",fields);
- break; }
-
- /* Added 12/4/95 to add uplink to connected uplinks */
-
- ++cfg.area[i].uplinks;
- if((cfg.area[i].uplink=(faddr_t *)
- REALLOC(cfg.area[i].uplink,sizeof(faddr_t)
- *(cfg.area[i].uplinks)))==NULL) {
- printf("ERROR allocating memory for area #%u "
- "uplinks.\n",i+1);
- logprintf("ERROR line %d allocating memory for area "
- "#%u uplinks.\n",__LINE__,i+1);
- exit(1); }
- memcpy(&cfg.area[i].uplink[j],&addr,sizeof(faddr_t));
-
- fprintf(afileout,"%-16s%-23s ",field1,field2);
- for(j=0;j<cfg.area[i].uplinks;j++)
- fprintf(afileout,"%s "
- ,faddrtoa(cfg.area[i].uplink[j]));
-#if 0 // Removed (02/26/96) rrs
- fprintf(afileout,"%s ",faddrtoa(addr));
-#endif
- if(field3[0])
- fprintf(afileout,"%s",field3);
- fprintf(afileout,"\r\n");
- fprintf(nmfile,"%s added.\r\n",field2);
- break; } }
- if(i==cfg.areas) /* Something screwy going on */
- fprintf(afileout,"%s",fields);
- continue; } /* Area match so continue on */
- nomatch=1; } /* This area wasn't in there */
- fprintf(afileout,"%s",fields); } /* No match so write back line */
-fclose(afilein);
-if(nomatch || (add_area.tags && !stricmp(add_area.tag[0],"+ALL"))) {
- i=matchnode(addr,0);
- if(i<cfg.nodecfgs) {
- for(j=0;j<cfg.listcfgs;j++) {
- match=0;
- for(k=0;k<cfg.listcfg[j].numflags;k++) {
- if(match) break;
- for(x=0;x<cfg.nodecfg[i].numflags;x++)
- if(!stricmp(cfg.listcfg[j].flag[k].flag
- ,cfg.nodecfg[i].flag[x].flag)) {
- if((fwdfile=tmpfile())==NULL) {
- printf("\7ERROR couldn't open forwarding temp "
- "file.\n");
- logprintf("ERROR line %d opening forward temp "
- "file",__LINE__);
- match=1;
- break; }
- if((afilein=fnopen(&file
- ,cfg.listcfg[j].listpath,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n"
- ,cfg.listcfg[j].listpath);
- logprintf("ERROR line %d opening %s"
- ,__LINE__,cfg.listcfg[j].listpath);
- fclose(fwdfile);
- match=1;
- break; }
- while(!feof(afilein)) {
- if(!fgets(str,255,afilein))
- break;
- truncsp(str);
- strcat(str,"\r\n");
- p=str;
- while(*p && *p<=SP) p++;
- if(*p==';') /* Ignore Comment Lines */
- continue;
- strcpy(str,p);
- p=str;
- while(*p && *p>SP) p++;
- *p=0;
- if(!stricmp(add_area.tag[0],"+ALL")) {
- sprintf(fields,"%.1024s",str);
- tagcrc=crc32(strupr(fields));
- for(y=0;y<cfg.areas;y++)
- if(tagcrc==cfg.area[y].tag)
- break;
- if(y<cfg.areas)
- continue; }
- for(y=0;y<add_area.tags;y++)
- if((!stricmp(add_area.tag[y],str) &&
- add_area.tag[y][0]) ||
- !stricmp(add_area.tag[0],"+ALL"))
- break;
- if(y<add_area.tags) {
- fprintf(afileout,"%-16s%-23s","P",str);
- if(cfg.listcfg[j].forward.zone)
- fprintf(afileout," %s"
- ,faddrtoa(cfg.listcfg[j].forward));
- fprintf(afileout," %s\r\n",faddrtoa(addr));
- fprintf(nmfile,"%s added.\r\n",str);
- if(stricmp(add_area.tag[0],"+ALL"))
- add_area.tag[y][0]=0;
- if(!(cfg.listcfg[j].misc&NOFWD)
- && cfg.listcfg[j].forward.zone)
- fprintf(fwdfile,"%s\r\n",str); } }
- fclose(afilein);
- if(!(cfg.listcfg[j].misc&NOFWD) && ftell(fwdfile)>0)
- file_to_netmail(fwdfile,cfg.listcfg[j].password
- ,cfg.listcfg[j].forward,"Areafix");
- fclose(fwdfile);
- match=1;
- break; } } } } }
-if(add_area.tags && stricmp(add_area.tag[0],"+ALL")) {
- for(i=0;i<add_area.tags;i++)
- if(add_area.tag[i][0])
- fprintf(nmfile,"%s not found.\r\n",add_area.tag[i]); }
-if(!ftell(nmfile))
- create_netmail(0,"Area Change Request","No changes made.",addr,0);
-else
- file_to_netmail(nmfile,"Area Change Request",addr,0);
-fclose(nmfile);
-fclose(afileout);
-if(delfile(cfg.areafile)) /* Delete AREAS.BBS */
- logprintf("ERROR line %d removing %s %s",__LINE__,cfg.areafile
- ,sys_errlist[errno]);
-if(rename(outname,cfg.areafile)) /* Rename new AREAS.BBS file */
- logprintf("ERROR line %d renaming %s to %s",__LINE__,outname,cfg.areafile);
-free(outname);
-}
-/******************************************************************************
- Used by AREAFIX to add/remove/change uplink info in the configuration file
- old = the old setting for this option, new = what the setting is changing to
- option = 0 for compression type change
- 1 for areafix password change
- 2 to set this node to passive
- 3 to set this node to active (remove passive)
-******************************************************************************/
-void alter_config(faddr_t addr,char *old,char *new,char option)
-{
- FILE *outfile,*cfgfile;
- char str[257],outpath[128],tmp[257],tmp2[257],*outname,*p,*tp
- ,drive[3],dir[66],name[9],ext[5],match=0;
- int i,j,k,file;
- faddr_t taddr;
-
-i=matchnode(addr,0); /* i = config number from here on */
-_splitpath(cfg.cfgfile,drive,dir,name,ext);
-sprintf(outpath,"%s%s",drive,dir);
-if((outname=tempname(outpath,"CFG"))==NULL) {
- printf("\7ERROR creating temporary file name for %s.\n",outpath);
- logprintf("ERROR tempnam(%s,CFG)",outpath);
- return; }
-if((outfile=fopen(outname,"w+b"))==NULL) {
- printf("\7ERROR couldn't open %s.\n",outname);
- logprintf("ERROR line %d opening %s %s",__LINE__,outname
- ,sys_errlist[errno]);
- free(outname);
- return; }
-if((cfgfile=fnopen(&file,cfg.cfgfile,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n",cfg.cfgfile);
- logprintf("ERROR line %d opening %s",__LINE__,cfg.cfgfile
- ,sys_errlist[errno]);
- fclose(outfile);
- free(outname);
- return; }
-
-while(!feof(cfgfile)) {
- if(!fgets(str,256,cfgfile))
- break;
- truncsp(str);
- p=str;
- while(*p && *p<=SP) p++;
- if(*p==';') {
- fprintf(outfile,"%s\r\n",str);
- continue; }
- sprintf(tmp,"%-.25s",p);
- tp=strchr(tmp,SP);
- if(tp)
- *tp=0; /* Chop off at space */
- strupr(tmp); /* Convert code to uppercase */
- while(*p>SP) p++; /* Skip code */
- while(*p && *p<=SP) p++; /* Skip white space */
-
- if(option==0 && !strcmp(tmp,"USEPACKER")) { /* Change Compression */
- if(!*p)
- continue;
- strcpy(tmp2,p);
- p=tmp2;
- while(*p && *p>SP) p++;
- *p=0;
- p++;
- if(!stricmp(new,tmp2)) { /* Add to new definition */
- fprintf(outfile,"%-10s %s %s %s\r\n",tmp,tmp2
- ,faddrtoa(cfg.nodecfg[i].faddr)
- ,(*p) ? p : "");
- match=1;
- continue; }
- else if(!stricmp(old,tmp2)) { /* Remove from old def */
- for(j=k=0;j<cfg.nodecfgs;j++) {
- if(j==i)
- continue;
- if(!stricmp(cfg.arcdef[cfg.nodecfg[j].arctype].name,tmp2)) {
- if(!k) {
- fprintf(outfile,"%-10s %s",tmp,tmp2);
- k++; }
- fprintf(outfile," %s"
- ,faddrtoa(cfg.nodecfg[j].faddr)); } }
- fprintf(outfile,"\r\n");
- continue; } }
-
- if(option==1 && !strcmp(tmp,"AREAFIX")) { /* Change Password */
- if(!*p)
- continue;
- taddr=atofaddr(p);
- if(!memcmp(&cfg.nodecfg[i].faddr,&taddr,sizeof(faddr_t))) {
- while(*p && *p>SP) p++; /* Skip over address */
- while(*p && *p<=SP) p++; /* Skip over whitespace */
- while(*p && *p>SP) p++; /* Skip over password */
- while(*p && *p<=SP) p++; /* Skip over whitespace */
- fprintf(outfile,"%-10s %s %s %s\r\n",tmp
- ,faddrtoa(cfg.nodecfg[i].faddr),new,p);
- continue; } }
-
- if(option>1 && !strcmp(tmp,"PASSIVE")) { /* Toggle Passive Areas */
- match=1;
- for(j=k=0;j<cfg.nodecfgs;j++) {
- if(option==2 && j==i) {
- if(!k) fprintf(outfile,"%-10s",tmp);
- fprintf(outfile," %s",faddrtoa(cfg.nodecfg[j].faddr));
- k++;
- continue; }
- if(option==3 && j==i)
- continue;
- if(cfg.nodecfg[j].attr&ATTR_PASSIVE) {
- if(!k) fprintf(outfile,"%-10s",tmp);
- fprintf(outfile," %s",faddrtoa(cfg.nodecfg[j].faddr));
- k++; } }
- if(k) fprintf(outfile,"\r\n");
- continue; }
- fprintf(outfile,"%s\r\n",str); }
-
-if(!match) {
- if(option==0)
- fprintf(outfile,"%-10s %s %s\r\n","USEPACKER",new
- ,faddrtoa(cfg.nodecfg[i].faddr));
- if(option==2)
- fprintf(outfile,"%-10s %s\r\n","PASSIVE"
- ,faddrtoa(cfg.nodecfg[i].faddr)); }
-
-fclose(cfgfile);
-fclose(outfile);
-if(delfile(cfg.cfgfile))
- logprintf("ERROR line %d removing %s %s",__LINE__,cfg.cfgfile
- ,sys_errlist[errno]);
-if(rename(outname,cfg.cfgfile))
- logprintf("ERROR line %d renaming %s to %s",__LINE__,outname,cfg.cfgfile);
-free(outname);
-}
-/******************************************************************************
- Used by AREAFIX to process any '%' commands that come in via netmail
-******************************************************************************/
-void command(char *instr,faddr_t addr)
-{
- FILE *stream,*tmpf;
- char str[256],temp[256],match,*buf,*p;
- int file,i,j,node;
- long l;
- area_t add_area,del_area;
-
-node=matchnode(addr,0);
-if(node>=cfg.nodecfgs)
- return;
-memset(&add_area,0,sizeof(area_t));
-memset(&del_area,0,sizeof(area_t));
-strupr(instr);
-if((p=strstr(instr,"HELP"))!=NULL) {
- sprintf(str,"%s%sAREAMGR.HLP",(exec_dir[0]=='.') ? node_dir:"",exec_dir);
- if(!fexist(str))
- return;
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n",str);
- logprintf("ERROR line %d opening %s %s",__LINE__,str
- ,sys_errlist[errno]);
- return; }
- l=filelength(file);
- if((buf=(char *)LMALLOC(l+1L))==NULL) {
- printf("ERROR line %d allocating %lu bytes for %s\n",__LINE__,l,str);
- return; }
- fread(buf,l,1,stream);
- fclose(stream);
- buf[l]=0;
- create_netmail(0,"Area Manager Help",buf,addr,0);
- LFREE(buf);
- return; }
-
-if((p=strstr(instr,"LIST"))!=NULL) {
- netmail_arealist(0,addr);
- return; }
-
-if((p=strstr(instr,"QUERY"))!=NULL) {
- netmail_arealist(1,addr);
- return; }
-
-if((p=strstr(instr,"UNLINKED"))!=NULL) {
- netmail_arealist(2,addr);
- return; }
-
-if((p=strstr(instr,"COMPRESSION"))!=NULL) {
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- for(i=0;i<cfg.arcdefs;i++)
- if(!stricmp(p,cfg.arcdef[i].name))
- break;
- if(!stricmp(p,"NONE"))
- i=0xffff;
- if(i==cfg.arcdefs) {
- if((tmpf=tmpfile())==NULL) {
- printf("\7ERROR couldn't open tmpfile.\n");
- logprintf("ERROR line %d opening tmpfile()",__LINE__);
- return; }
- fprintf(tmpf,"Compression type unavailable.\r\n\r\n"
- "Available types are:\r\n");
- for(i=0;i<cfg.arcdefs;i++)
- fprintf(tmpf," %s\r\n",cfg.arcdef[i].name);
- file_to_netmail(tmpf,"Compression Type Change",addr,0);
- fclose(tmpf);
- LFREE(buf);
- return; }
- alter_config(addr,cfg.arcdef[cfg.nodecfg[node].arctype].name
- ,cfg.arcdef[i].name,0);
- cfg.nodecfg[node].arctype=i;
- sprintf(str,"Compression type changed to %s.",cfg.arcdef[i].name);
- create_netmail(0,"Compression Type Change",str,addr,0);
- return; }
-
-if((p=strstr(instr,"PASSWORD"))!=NULL) {
- while(*p && *p>SP) p++;
- while(*p && *p<=SP) p++;
- sprintf(temp,"%-.25s",p);
- p=temp;
- while(*p && *p>SP) p++;
- *p=0;
- if(node==cfg.nodecfgs) /* Should never happen */
- return;
- if(!stricmp(temp,cfg.nodecfg[node].password)) {
- sprintf(str,"Your password was already set to %s."
- ,cfg.nodecfg[node].password);
- create_netmail(0,"Password Change Request",str,addr,0);
- return; }
- alter_config(addr,cfg.nodecfg[node].password,temp,1);
- sprintf(str,"Your password has been changed from %s to %.25s."
- ,cfg.nodecfg[node].password,temp);
- sprintf(cfg.nodecfg[node].password,"%.25s",temp);
- create_netmail(0,"Password Change Request",str,addr,0);
- return; }
-
-if((p=strstr(instr,"RESCAN"))!=NULL) {
- export_echomail("",addr);
- create_netmail(0,"Rescan Areas"
- ,"All connected areas carried by your hub have been rescanned."
- ,addr,0);
- return; }
-
-if((p=strstr(instr,"ACTIVE"))!=NULL) {
- if(!(cfg.nodecfg[node].attr&ATTR_PASSIVE)) {
- create_netmail(0,"Reconnect Disconnected Areas"
- ,"Your areas are already connected.",addr,0);
- return; }
- alter_config(addr,0,0,3);
- create_netmail(0,"Reconnect Disconnected Areas"
- ,"Temporarily disconnected areas have been reconnected.",addr,0);
- return; }
-
-if((p=strstr(instr,"PASSIVE"))!=NULL) {
- if(cfg.nodecfg[node].attr&ATTR_PASSIVE) {
- create_netmail(0,"Temporarily Disconnect Areas"
- ,"Your areas are already temporarily disconnected.",addr,0);
- return; }
- alter_config(addr,0,0,2);
- create_netmail(0,"Temporarily Disconnect Areas"
- ,"Your areas have been temporarily disconnected.",addr,0);
- return; }
-
-if((p=strstr(instr,"FROM"))!=NULL);
-
-if((p=strstr(instr,"+ALL"))!=NULL) {
- if((add_area.tag=(char **)REALLOC(add_area.tag
- ,sizeof(char *)*add_area.tags+1))==NULL) {
- printf("ERROR allocating memory for add area tag #%u.\n"
- ,add_area.tags+1);
- logprintf("ERROR line %d allocating memory for add area tag #%u"
- ,__LINE__,add_area.tags+1);
- exit(1); }
- if((add_area.tag[add_area.tags]=(char *)LMALLOC(strlen(instr)+1))==NULL) {
- printf("ERROR allocating memory for add area tag #%u.\n"
- ,add_area.tags+1);
- logprintf("ERROR line %d allocating memory for add area tag #%u"
- ,__LINE__,add_area.tags+1);
- exit(1); }
- strcpy(add_area.tag[add_area.tags],instr);
- add_area.tags++;
- alter_areas(add_area,del_area,addr);
- for(i=0;i<add_area.tags;i++)
- LFREE(add_area.tag[i]);
- FREE(add_area.tag);
- return; }
-
-if((p=strstr(instr,"-ALL"))!=NULL) {
- if((del_area.tag=(char **)REALLOC(del_area.tag
- ,sizeof(char *)*del_area.tags+1))==NULL) {
- printf("ERROR allocating memory for del area tag #%u.\n"
- ,del_area.tags+1);
- logprintf("ERROR line %d allocating memory for del area tag #%u"
- ,__LINE__,del_area.tags+1);
- exit(1); }
- if((del_area.tag[del_area.tags]=(char *)LMALLOC(strlen(instr)+1))==NULL) {
- printf("ERROR allocating memory for del area tag #%u.\n"
- ,del_area.tags+1);
- logprintf("ERROR line %d allocating memory for del area tag #%u"
- ,__LINE__,del_area.tags+1);
- exit(1); }
- strcpy(del_area.tag[del_area.tags],instr);
- del_area.tags++;
- alter_areas(add_area,del_area,addr);
- for(i=0;i<del_area.tags;i++)
- LFREE(del_area.tag[i]);
- FREE(del_area.tag);
- return; }
-}
-/******************************************************************************
- This is where we're gonna process any netmail that comes in for areafix.
- Returns text for message body for the local sysop if necessary.
-******************************************************************************/
-char *process_areafix(faddr_t addr,char HUGE16 *inbuf,char *password)
-{
- static char body[512],str[81];
- char *p,*tp,action,percent=0;
- int i;
- ulong l,m;
- area_t add_area,del_area;
-
-p=(char *)inbuf;
-
-while(*p==1) { /* Skip kludge lines 11/05/95 */
- while(*p && *p!=CR)
- p++; /* Skip meat */
- if(*p)
- p++; } /* Skip CR */
-
-#if 0 // Removed 11/05/95
-while(*p && (tp=strchr(p,'\1'))!=NULL) { /* Remove ^A kludge lines */
- p=tp;
- while(*p && *p!=CR) p++; }
-if(*p==CR)
- p++;
-#endif
-
-if(((tp=strstr(p,"---\r"))!=NULL || (tp=strstr(p,"--- "))!=NULL) &&
- (*(tp-1)==10 || *(tp-1)==13))
- *tp=0;
-
-if(!strnicmp(p,"%FROM",5)) { /* Remote Remote Maintenance (must be first) */
- sprintf(str,"%.80s",p+6);
- if((tp=strchr(str,CR))!=NULL)
- *tp=0;
- logprintf("Remote maintenance for %s requested via %s",str,faddrtoa(addr));
- addr=atofaddr(str); }
-
-i=matchnode(addr,0);
-if(i==cfg.nodecfgs) {
- sprintf(body,"Your node is not configured for Areafix, please "
- "contact your hub.\r\n");
- create_netmail(0,"Areafix Request",body,addr,0);
- sprintf(body,"An areafix request was made by node %s.\r\nThis node "
- "is not currently configured for areafix.\r\n",faddrtoa(addr));
- return(body); }
-
-if(stricmp(cfg.nodecfg[i].password,password)) {
- create_netmail(0,"Areafix Request","Invalid Password.",addr,0);
- sprintf(body,"Node %s attempted an areafix request using an invalid "
- "password.\r\nThe password attempted was %s.\r\nThe correct password "
- "for this node is %s.\r\n",faddrtoa(addr),password
- ,(cfg.nodecfg[i].password[0]) ? cfg.nodecfg[i].password
- : "[None Defined]");
- return(body); }
-
-m=strlen(p);
-add_area.tags=0;
-add_area.tag=NULL;
-del_area.tags=0;
-del_area.tag=NULL;
-for(l=0;l<m;l++) {
- while(*(p+l) && *(p+l)<=SP) l++;
- if(!(*(p+l))) break;
- if(*(p+l)=='+' || *(p+l)=='-' || *(p+l)=='%') {
- action=*(p+l);
- l++; }
- else
- action='+';
- sprintf(str,"%.80s",p+l);
- if((tp=strchr(str,CR))!=NULL)
- *tp=0;
- switch(action) {
- case '+': /* Add Area */
- if((add_area.tag=(char **)REALLOC(add_area.tag
- ,sizeof(char *)*add_area.tags+1))==NULL) {
- printf("ERROR allocating memory for add area tag #%u.\n"
- ,add_area.tags+1);
- logprintf("ERROR line %d allocating memory for add area "
- "tag #%u",__LINE__,add_area.tags+1);
- exit(1); }
- if((add_area.tag[add_area.tags]=(char *)LMALLOC(strlen(str)+1))
- ==NULL) {
- printf("ERROR allocating memory for add area tag #%u.\n"
- ,add_area.tags+1);
- logprintf("ERROR line %d allocating memory for add area "
- "tag #%u",__LINE__,add_area.tags+1);
- exit(1); }
- strcpy(add_area.tag[add_area.tags],str);
- add_area.tags++;
- break;
- case '-': /* Remove Area */
- if((del_area.tag=(char **)REALLOC(del_area.tag
- ,sizeof(char *)*del_area.tags+1))==NULL) {
- printf("ERROR allocating memory for del area tag #%u.\n"
- ,del_area.tags+1);
- logprintf("ERROR line %d allocating memory for del area "
- "tag #%u",__LINE__,del_area.tags+1);
- exit(1); }
- if((del_area.tag[del_area.tags]=(char *)LMALLOC(strlen(str)+1))
- ==NULL) {
- printf("ERROR allocating memory for del area tag #%u.\n"
- ,del_area.tags+1);
- logprintf("ERROR line %d allocating memory for del area "
- "tag #%u",__LINE__,del_area.tags+1);
- exit(1); }
- strcpy(del_area.tag[del_area.tags],str);
- del_area.tags++;
- break;
- case '%': /* Process Command */
- command(str,addr);
- percent++;
- break; }
-
- while(*(p+l) && *(p+l)!=CR) l++; }
-
-if(!percent && !add_area.tags && !del_area.tags) {
- create_netmail(0,"Areafix Request","No commands to process.",addr,0);
- sprintf(body,"Node %s attempted an areafix request with an empty message "
- "body or with no valid commands.\r\n",faddrtoa(addr));
- return(body); }
-if(add_area.tags || del_area.tags)
- alter_areas(add_area,del_area,addr);
-if(add_area.tags) {
- for(i=0;i<add_area.tags;i++)
- LFREE(add_area.tag[i]);
- FREE(add_area.tag); }
-if(del_area.tags) {
- for(i=0;i<del_area.tags;i++)
- LFREE(del_area.tag[i]);
- FREE(del_area.tag); }
-return(0);
-}
-/******************************************************************************
- This function will compare the archive signatures defined in the CFG file and
- extract 'infile' using the appropriate de-archiver.
-******************************************************************************/
-int unpack(char *infile)
-{
- FILE *stream;
- char str[256],tmp[3];
- int i,j,k,ch,file;
-
-if((stream=fnopen(&file,infile,O_RDONLY))==NULL) {
- printf("\7ERROR couldn't open %s.\n",infile);
- logprintf("ERROR line %d opening %s %s",__LINE__,infile
- ,sys_errlist[errno]);
- exit(1); }
-for(i=0;i<cfg.arcdefs;i++) {
- str[0]=0;
- fseek(stream,cfg.arcdef[i].byteloc,SEEK_SET);
- for(j=0;j<strlen(cfg.arcdef[i].hexid)/2;j++) {
- ch=fgetc(stream);
- if(ch==EOF) {
- i=cfg.arcdefs;
- break; }
- sprintf(tmp,"%02X",ch);
- strcat(str,tmp); }
- if(!stricmp(str,cfg.arcdef[i].hexid))
- break; }
-fclose(stream);
-
-if(i==cfg.arcdefs) {
- printf("\7ERROR couldn't determine filetype of %s.\n",infile);
- logprintf("ERROR line %d determining filetype of %s",__LINE__,infile);
- return(1); }
-
-j=execute(cmdstr(cfg.arcdef[i].unpack,infile
- ,secure ? cfg.secure : cfg.inbound));
-if(j) {
- printf("\7ERROR %d (%d) executing %s\n"
- ,j,errno,cmdstr(cfg.arcdef[i].unpack,infile
- ,secure ? cfg.secure : cfg.inbound));
- logprintf("ERROR %d (%d) line %d executing %s"
- ,j,errno,__LINE__,cmdstr(cfg.arcdef[i].unpack,infile
- ,secure ? cfg.secure : cfg.inbound));
- return(j); }
-return(0);
-}
-/******************************************************************************
- This function will check the 'dest' for the type of archiver to use (as
- defined in the CFG file) and compress 'srcfile' into 'destfile' using the
- appropriate archive program.
-******************************************************************************/
-void pack(char *srcfile,char *destfile,faddr_t dest)
-{
- int i,j;
- uint use=0;
-
-i=matchnode(dest,0);
-if(i<cfg.nodecfgs)
- use=cfg.nodecfg[i].arctype;
-
-j=execute(cmdstr(cfg.arcdef[use].pack,destfile,srcfile));
-if(j) {
- printf("\7ERROR %d (%d) executing %s\n"
- ,j,errno,cmdstr(cfg.arcdef[use].pack,destfile,srcfile));
- logprintf("ERROR %d (%d) line %d executing %s"
- ,j,errno,__LINE__,cmdstr(cfg.arcdef[use].pack,destfile,srcfile)); }
-}
-
-char attachment(char *bundlename,faddr_t dest,char cleanup)
-{
- FILE *fidomsg,*stream;
- char str[1025],path[512],fname[129],*p;
- int last,fmsg,file,error=0L;
- long fncrc,*mfncrc=0L,num_mfncrc=0L;
- struct find_t ff;
- attach_t attach;
- fmsghdr_t hdr;
-
-sprintf(fname,"%sBUNDLES.SBE",cfg.outbound);
-if((stream=fnopen(&file,fname,O_RDWR|O_CREAT))==NULL) {
- printf("\7ERROR opening %s %s\n",fname,sys_errlist[errno]);
- logprintf("ERROR line %d opening %s %s",__LINE__,fname,sys_errlist[errno]);
- return(1); }
-
-if(cleanup==2) { /* Check for existance in BUNDLES.SBE */
- while(!feof(stream)) {
- if(!fread(&attach,1,sizeof(attach_t),stream))
- break;
- if(!stricmp(attach.fname,bundlename)) {
- fclose(stream);
- return(1); } }
- fclose(stream);
- return(0); }
-
-if(cleanup==1) { /* Create netmail attaches */
-
-if(!filelength(file)) {
- fclose(stream);
- return(0); }
- /* Get attach names from existing MSGs */
-sprintf(str,"%s*.MSG",netmail_dir);
-for(last=_dos_findfirst(str,0,&ff);!last;last=_dos_findnext(&ff)) {
- sprintf(path,"%s%s",netmail_dir,ff.name);
- strupr(path);
- if((fidomsg=fnopen(&fmsg,path,O_RDWR))==NULL) {
- printf("\7ERROR opening %s\n",path);
- logprintf("ERROR line %d opening %s %s",__LINE__,path
- ,sys_errlist[errno]);
- continue; }
- if(filelength(fmsg)<sizeof(fmsghdr_t)) {
- printf("\7ERROR %s has invalid length of %u bytes\n",path
- ,filelength(fmsg));
- logprintf("ERROR line %d %s has invalid length of %u bytes"
- ,__LINE__,path,filelength(fmsg));
- fclose(fidomsg);
- continue; }
- if(fread(&hdr,sizeof(fmsghdr_t),1,fidomsg)!=1) {
- fclose(fidomsg);
- printf("\7ERROR reading %u bytes from %s"
- ,sizeof(fmsghdr_t),path);
- logprintf("ERROR line %d reading %u bytes from %s"
- ,__LINE__,sizeof(fmsghdr_t),path);
- continue; }
- fclose(fidomsg);
- if(!(hdr.attr&FIDO_FILE)) /* Not a file attach */
- continue;
- num_mfncrc++;
- if((p=strrchr(hdr.subj,'\\'))!=NULL)
- p++;
- else
- p=hdr.subj;
- if((mfncrc=(long *)REALLOC(mfncrc,num_mfncrc*sizeof(long)))==NULL) {
- printf("ERROR allocating %lu bytes for bundle name crc.\n"
- ,num_mfncrc*sizeof(long));
- logprintf("ERROR line %d allocating %lu for bundle name crc"
- ,__LINE__,num_mfncrc*sizeof(long));
- continue; }
- mfncrc[num_mfncrc-1]=crc32(strupr(p)); }
-
- while(!feof(stream)) {
- if(!fread(&attach,1,sizeof(attach_t),stream))
- break;
- sprintf(str,"%s%s",cfg.outbound,attach.fname);
- if(!fexist(str))
- continue;
- fncrc=crc32(strupr(attach.fname));
- for(last=0;last<num_mfncrc;last++)
- if(mfncrc[last]==fncrc)
- break;
- if(last==num_mfncrc)
- if(create_netmail(0,str,"\1FLAGS KFS\r",attach.dest,1))
- error=1; }
- if(!error) /* don't truncate if an error occured */
- chsize(file,0L);
- fclose(stream);
- if(num_mfncrc)
- FREE(mfncrc);
-#ifdef __WATCOMC__
- _dos_findclose(&ff);
-#endif
- return(0); }
-
-while(!feof(stream)) {
- if(!fread(&attach,1,sizeof(attach_t),stream))
- break;
- if(!stricmp(attach.fname,bundlename)) {
- fclose(stream);
- return(0); } }
-
-memcpy(&attach.dest,&dest,sizeof(faddr_t));
-strcpy(attach.fname,bundlename);
-fwrite(&attach,sizeof(attach_t),1,stream);
-fclose(stream);
-return(0);
-}
-
-/******************************************************************************
- This function is called when a message packet has reached it's maximum size.
- It places packets into a bundle until that bundle is full, at which time the
- last character of the extension increments (1 thru 0 and then A thru Z). If
- all bundles have reached their maximum size remaining packets are placed into
- the Z bundle.
-******************************************************************************/
-void pack_bundle(char *infile,faddr_t dest)
-{
- char str[256],fname[256],outbound[128],day[3],ch,*p;
- int i,j,file,node;
- time_t now;
-
-node=matchnode(dest,0);
-strcpy(str,infile);
-str[strlen(str)-1]='T';
-if(rename(infile,str)) /* Change .PK_ file to .PKT file */
- logprintf("ERROR line %d renaming %s to %s",__LINE__,infile,str);
-infile[strlen(infile)-1]='T';
-time(&now);
-sprintf(day,"%-.2s",ctime(&now));
-strupr(day);
-if(misc&FLO_MAILER) {
- if(node<cfg.nodecfgs && cfg.nodecfg[node].route.zone)
- dest=cfg.nodecfg[node].route;
- if(dest.zone==faddr[0].zone) /* Default zone, use default outbound */
- strcpy(outbound,cfg.outbound);
- else /* Inter-zone outbound is OUTBOUND.XXX */
- sprintf(outbound,"%.*s.%03X\\"
- ,strlen(cfg.outbound)-1,cfg.outbound,dest.zone);
- if(dest.point) { /* Point destination is OUTBOUND\*.PNT */
- sprintf(str,"%04X%04X.PNT"
- ,dest.net,dest.node);
- strcat(outbound,str); }
- }
-else
- strcpy(outbound,cfg.outbound);
-if(outbound[strlen(outbound)-1]=='\\')
- outbound[strlen(outbound)-1]=0;
-mkdir(outbound);
-strcat(outbound,"\\");
-
-if(node<cfg.nodecfgs)
- if(cfg.nodecfg[node].arctype==0xffff) { /* Uncompressed! */
- if(misc&FLO_MAILER)
- i=write_flofile(infile,dest);
- else
- i=create_netmail(0,infile,"\1FLAGS KFS\r",dest,1);
- if(i) exit(1);
- return; }
-
-sprintf(fname,"%s%04hX%04hX.%s",outbound,(short)(faddr[0].net-dest.net)
- ,(short)(faddr[0].node-dest.node),day);
-if(dest.point && !(misc&FLO_MAILER))
- sprintf(fname,"%s%04hXP%03hX.%s",outbound,0,(short)dest.point,day);
-for(i='0';i<='Z';i++) {
- if(i==':')
- i='A';
- sprintf(str,"%s%c",fname,i);
- if(flength(str)==0)
- if(delfile(str))
- logprintf("ERROR line %d removing %s %s",__LINE__,str
- ,sys_errlist[errno]);
- if(fexist(str)) {
- if((p=strrchr(str,'\\'))!=NULL)
- p++;
- else
- p=str;
- if(flength(str)>=cfg.maxbdlsize)
- continue;
- file=sopen(str,O_WRONLY,SH_DENYRW);
- if(file==-1) /* Can't open?!? Probably being sent */
- continue;
- close(file);
- if(!attachment(p,dest,2))
- attachment(p,dest,0);
- pack(infile,str,dest);
- if(delfile(infile))
- logprintf("ERROR line %d removing %s %s",__LINE__,infile
- ,sys_errlist[errno]);
- return; }
- else {
- if(misc&FLO_MAILER)
- j=write_flofile(str,dest);
- else {
- if((p=strrchr(str,'\\'))!=NULL)
- p++;
- else
- p=str;
- j=attachment(p,dest,0); }
- if(j)
- exit(1);
- pack(infile,str,dest);
- if(delfile(infile))
- logprintf("ERROR line %d removing %s %s",__LINE__,infile
- ,sys_errlist[errno]);
- return; } }
-
-pack(infile,str,dest); /* Won't get here unless all bundles are full */
-}
-
-/******************************************************************************
- This function checks the inbound directory for the first bundle it finds, it
- will then unpack and delete the bundle. If no bundles exist this function
- returns a 0, otherwise a 1 is returned.
-******************************************************************************/
-int unpack_bundle(void)
-{
- char str[256];
- static char fname[256];
- int i,j;
- static struct find_t ff;
-
-for(i=0;i<7;i++) {
- sprintf(str,"%s*.%s?",secure ? cfg.secure : cfg.inbound
- ,(i==0) ? "SU" : (i==1) ? "MO" : (i==2) ? "TU" : (i==3) ? "WE" : (i==4)
- ? "TH" : (i==5) ? "FR" : "SA");
- if(!ff.name[0])
- j=_dos_findfirst(str,0,&ff);
- else {
- j=_dos_findnext(&ff);
- if(j) {
-#ifdef __WATCOMC__
- _dos_findclose(&ff);
-#endif
- j=_dos_findfirst(str,0,&ff); } }
- if(!j) {
- sprintf(fname,"%s%s",secure ? cfg.secure : cfg.inbound,ff.name);
- if(unpack(fname)) {
- if((ddtol(ff.wr_time,ff.wr_date)+(48L*60L*60L))>time(NULL)) {
- strcpy(str,fname);
- str[strlen(str)-2]='_';
- if(fexist(str))
- str[strlen(str)-2]='-';
- if(fexist(str))
- delfile(str);
- if(rename(fname,str))
- logprintf("ERROR line %d renaming %s to %s"
- ,__LINE__,fname,str); } }
- else if(delfile(fname))
- logprintf("ERROR line %d removing %s %s",__LINE__,fname
- ,sys_errlist[errno]);
- return(1); } }
-
-#ifdef __WATCOMC__
-_dos_findclose(&ff);
-#endif
-return(0);
-}
-
-
-/******************************************************************************
- Displays characters locally
-******************************************************************************/
-long lputs(char *str)
-{
- char tmp[256];
- int i,j,k;
-
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stdout));
-}
-
-/******************************************/
-/* CRC-16 routines required for SMB index */
-/******************************************/
-
-/***********************************************)**********************)*****/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* Reads the data for node number 'number' into the structure 'node' */
-/* from NODE.DAB */
-/* if lockit is non-zero, locks this node's record. putnodedat() unlocks it */
-/****************************************************************************/
-void getnodedat(uint number, node_t *node, char lockit)
-{
- char str[256];
- int count=0;
-
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(lockit
- && lock(nodefile,(long)number*sizeof(node_t),sizeof(node_t))==-1) {
- count++;
- continue; }
- if(read(nodefile,node,sizeof(node_t))==sizeof(node_t))
- break;
- count++; }
-if(count==LOOP_NODEDAB) {
- printf("\7ERROR unlocking and reading NODE.DAB\n");
- logprintf("ERROR line %d unlocking and reading NODE.DAB",__LINE__); }
-}
-
-/****************************************************************************/
-/* Write the data from the structure 'node' into NODE.DAB */
-/* getnodedat(num,&node,1); must have been called before calling this func */
-/* NOTE: ------^ the indicates the node record has been locked */
-/****************************************************************************/
-void putnodedat(uint number, node_t node)
-{
- char str[256];
- int count;
-
-number--; /* make zero based */
-lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
-if(write(nodefile,&node,sizeof(node_t))!=sizeof(node_t)) {
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
- printf("\7ERROR writing NODE.DAB for node %u\n",number+1);
- logprintf("ERROR line %d writing NODE.DAB for node %u",__LINE__,number+1);
- return; }
-unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
-}
-
-/****************************************************************************/
-/* Creates a short message for 'usernumber' than contains 'strin' */
-/****************************************************************************/
-void putsmsg(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
- node_t node;
-
-sprintf(str,"%sMSGS\\%4.4u.MSG",data_dir,usernumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- printf("\7ERROR opening/creating %s for create/append access\n",str);
- logprintf("ERROR line %d opening/creating %s",__LINE__,str);
- return; }
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- printf("\7ERROR writing %u bytes to %s\n",i,str);
- logprintf("ERROR line %d writing to %s",__LINE__,str);
- return; }
-close(file);
-for(i=1;i<=sys_nodes;i++) { /* flag node if user on that msg waiting */
- getnodedat(i,&node,0);
- if(node.useron==usernumber
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_MSGW)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_MSGW;
- putnodedat(i,node); } }
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- int c;
-
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Moves or copies a file from one dir to another */
-/* both 'src' and 'dest' must contain full path and filename */
-/* returns 0 if successful, -1 if error */
-/****************************************************************************/
-int mv(char *src, char *dest, char copy)
-{
- char buf[4096],str[256];
- int ind,outd;
- long length,chunk=4096,l;
-#ifdef __WATCOMC__
- unsigned short ftime,fdate;
-#else
- unsigned ftime,fdate;
-#endif
- FILE *inp,*outp;
-
-if(!strcmp(src,dest)) /* source and destination are the same! */
- return(0);
-if(!fexist(src)) {
- logprintf("MV ERROR: Source doesn't exist '%s",src);
- return(-1); }
-if(!copy && fexist(dest)) {
- logprintf("MV ERROR: Destination already exists '%s'",dest);
- return(-1); }
-if(!copy && ((src[1]!=':' && dest[1]!=':')
- || (src[1]==':' && dest[1]==':' && toupper(src[0])==toupper(dest[0])))) {
- if(rename(src,dest)) { /* same drive, so move */
- logprintf("MV ERROR: Error renaming %s to %s",src,dest);
- return(-1); }
- return(0); }
-if((ind=nopen(src,O_RDONLY))==-1) {
- logprintf("MV ERROR: ERR_OPEN %s",src);
- return(-1); }
-if((inp=fdopen(ind,"rb"))==NULL) {
- close(ind);
- logprintf("MV ERROR: ERR_FDOPEN %s",str);
- return(-1); }
-setvbuf(inp,NULL,_IOFBF,8*1024);
-if((outd=nopen(dest,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- fclose(inp);
- logprintf("MV ERROR: ERR_OPEN %s",dest);
- return(-1); }
-if((outp=fdopen(outd,"wb"))==NULL) {
- close(outd);
- fclose(inp);
- logprintf("MV ERROR: ERR_FDOPEN %s",str);
- return(-1); }
-setvbuf(outp,NULL,_IOFBF,8*1024);
-length=filelength(ind);
-l=0L;
-while(l<length) {
- if(l+chunk>length)
- chunk=length-l;
- fread(buf,chunk,1,inp);
- fwrite(buf,chunk,1,outp);
- l+=chunk; }
-_dos_getftime(ind,&fdate,&ftime);
-_dos_setftime(outd,fdate,ftime);
-fclose(inp);
-fclose(outp);
-if(!copy && delfile(src)) {
- logprintf("ERROR line %d removing %s %s",__LINE__,src,sys_errlist[errno]);
- return(-1); }
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the total number of msgs in the sub-board and sets 'ptr' to the */
-/* date of the last message in the sub (0) if no messages. */
-/****************************************************************************/
-ulong getlastmsg(uint subnum, ulong *ptr, time_t *t)
-{
- char str[256];
- int i;
- smb_t smbfile;
-
-if(subnum>=total_subs) {
- printf("\nERROR getlastmsg, subnum=%d\n",subnum);
- logprintf("ERROR line %d getlastmsg %d",__LINE__,subnum);
- exit(1); }
-sprintf(smbfile.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smbfile.retry_time=smb_retry_time;
-if((i=smb_open(&smbfile))!=0) {
- printf("ERROR %d opening %s\n",i,smbfile.file);
- logprintf("ERROR %d line %d opening %s",i,__LINE__,smbfile.file);
- return(0); }
-
-if(!filelength(fileno(smbfile.shd_fp))) { /* Empty base */
- if(ptr) (*ptr)=0;
- smb_close(&smbfile);
- return(0); }
-#if 0 // Not necessary with SMBLIB v2.0
-if((i=smb_locksmbhdr(&smbfile))!=0) {
- smb_close(&smbfile);
- printf("ERROR %d locking %s\n",i,smbfile.file);
- logprintf("ERROR %d line %d locking %s smbhdr",i,__LINE__
- ,smbfile.file);
- return(0); }
-if((i=smb_getstatus(&smbfile))!=0) {
- smb_unlocksmbhdr(&smbfile);
- smb_close(&smbfile);
- printf("ERROR %d reading %s\n",i,smbfile.file);
- logprintf("ERROR %d line %d reading %s",i,__LINE__,smbfile.file);
- return(0); }
-smb_unlocksmbhdr(&smbfile);
-#endif
-smb_close(&smbfile);
-if(ptr) (*ptr)=smbfile.status.last_msg;
-return(smbfile.status.total_msgs);
-}
-
-
-ulong loadmsgs(post_t HUGE16 **post, ulong ptr)
-{
- int i;
- long l=0,total;
- idxrec_t idx;
-
-
-if((i=smb_locksmbhdr(&smb[cur_smb]))!=0) {
- printf("ERROR %d locking %s\n",i,smb[cur_smb].file);
- logprintf("ERROR %d line %d locking %s",i,__LINE__,smb[cur_smb].file);
- return(0L); }
-
-/* total msgs in sub */
-total=filelength(fileno(smb[cur_smb].sid_fp))/sizeof(idxrec_t);
-
-if(!total) { /* empty */
- smb_unlocksmbhdr(&smb[cur_smb]);
- return(0); }
-
-if(((*post)=(post_t HUGE16 *)LMALLOC(sizeof(post_t)*total)) /* alloc for max */
- ==NULL) {
- smb_unlocksmbhdr(&smb[cur_smb]);
- printf("ERROR allocating %lu bytes for %s\n",sizeof(post_t *)*total
- ,smb[cur_smb].file);
- logprintf("ERROR line %d allocating %lu bytes for %s",__LINE__
- ,sizeof(post_t *)*total,smb[cur_smb].file);
- return(0); }
-
-fseek(smb[cur_smb].sid_fp,0L,SEEK_SET);
-while(!feof(smb[cur_smb].sid_fp)) {
- if(!fread(&idx,sizeof(idxrec_t),1,smb[cur_smb].sid_fp))
- break;
-
- if(idx.number<=ptr || idx.attr&MSG_DELETE)
- continue;
-
- if(idx.attr&MSG_MODERATED && !(idx.attr&MSG_VALIDATED))
- break;
-
- (*post)[l].offset=idx.offset;
- (*post)[l].number=idx.number;
- (*post)[l].to=idx.to;
- (*post)[l].from=idx.from;
- (*post)[l].subj=idx.subj;
- l++; }
-smb_unlocksmbhdr(&smb[cur_smb]);
-if(!l)
- LFREE(*post);
-return(l);
-}
-
-void allocfail(uint size)
-{
-printf("\7ERROR allocating %u bytes of memory.\n",size);
-bail(1);
-}
-
-void bail(int code)
-{
-exit(code);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,0,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(f.size);
-return(-1L);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,0,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(1);
-return(0);
-}
-
-typedef struct {
- ulong alias,
- real;
- } username_t;
-
-/****************************************************************************/
-/* Note: Wrote another version of this function that read all userdata into */
-/****************************************************************************/
-/* Looks for a perfect match amoung all usernames (not deleted users) */
-/* Returns the number of the perfect matched username or 0 if no match */
-/* Called from functions waitforcall and newuser */
-/* memory then scanned it from memory... took longer - always. */
-/****************************************************************************/
-ulong matchname(char *inname)
-{
- static ulong total_users;
- static username_t *username;
- ulong last_user;
- int userdat,i;
- char str[256],name[LEN_NAME+1],alias[LEN_ALIAS+1],c;
- ulong l,crc;
-
-if(!total_users) { /* Load CRCs */
- fprintf(stderr,"\n%-25s","Loading user names...");
- sprintf(str,"%sUSER\\USER.DAT",data_dir);
- if((userdat=nopen(str,O_RDONLY|O_DENYNONE))==-1)
- return(0);
- last_user=filelength(userdat)/U_LEN;
- for(total_users=0;total_users<last_user;total_users++) {
- printf("%5ld\b\b\b\b\b",total_users);
- if((username=(username_t *)REALLOC(username
- ,(total_users+1L)*sizeof(username_t)))==NULL)
- break;
- username[total_users].alias=0;
- username[total_users].real=0;
- i=0;
- while(i<LOOP_NODEDAB
- && lock(userdat,(long)((long)(total_users)*U_LEN)+U_ALIAS
- ,LEN_ALIAS+LEN_NAME)==-1)
- i++;
- if(i>=LOOP_NODEDAB) { /* Couldn't lock USER.DAT record */
- logprintf("ERROR locking USER.DAT record #%ld",total_users);
- continue; }
- lseek(userdat,(long)((long)(total_users)*U_LEN)+U_ALIAS,SEEK_SET);
- read(userdat,alias,LEN_ALIAS);
- read(userdat,name,LEN_NAME);
- lseek(userdat,(long)(((long)total_users)*U_LEN)+U_MISC,SEEK_SET);
- read(userdat,tmp,8);
- for(c=0;c<8;c++)
- if(tmp[c]==ETX || tmp[c]==CR) break;
- tmp[c]=0;
- unlock(userdat,(long)((long)(total_users)*U_LEN)+U_ALIAS
- ,LEN_ALIAS+LEN_NAME);
- if(ahtoul(tmp)&DELETED)
- continue;
- for(c=0;c<LEN_ALIAS;c++)
- if(alias[c]==ETX || alias[c]==CR) break;
- alias[c]=0;
- strupr(alias);
- for(c=0;c<LEN_NAME;c++)
- if(name[c]==ETX || name[c]==CR) break;
- name[c]=0;
- strupr(name);
- username[total_users].alias=crc32(alias);
- username[total_users].real=crc32(name); }
- close(userdat);
- fprintf(stderr," \b\b\b\b\b"); // Clear counter
- fprintf(stderr,
- "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"
- "%25s"
- "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"
- ,""); }
-
-strcpy(str,inname);
-strupr(str);
-crc=crc32(str);
-for(l=0;l<total_users;l++)
- if((crc==username[l].alias || crc==username[l].real))
- return(l+1);
-return(0);
-}
-
-/****************************************************************************/
-/* Converts goofy FidoNet time format into Unix format */
-/****************************************************************************/
-time_t fmsgtime(char *str)
-{
- char month[4];
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-if(isdigit(str[1])) { /* Regular format: "01 Jan 86 02:34:56" */
- tm.tm_mday=atoi(str);
- sprintf(month,"%3.3s",str+3);
- if(!stricmp(month,"jan"))
- tm.tm_mon=0;
- else if(!stricmp(month,"feb"))
- tm.tm_mon=1;
- else if(!stricmp(month,"mar"))
- tm.tm_mon=2;
- else if(!stricmp(month,"apr"))
- tm.tm_mon=3;
- else if(!stricmp(month,"may"))
- tm.tm_mon=4;
- else if(!stricmp(month,"jun"))
- tm.tm_mon=5;
- else if(!stricmp(month,"jul"))
- tm.tm_mon=6;
- else if(!stricmp(month,"aug"))
- tm.tm_mon=7;
- else if(!stricmp(month,"sep"))
- tm.tm_mon=8;
- else if(!stricmp(month,"oct"))
- tm.tm_mon=9;
- else if(!stricmp(month,"nov"))
- tm.tm_mon=10;
- else
- tm.tm_mon=11;
- tm.tm_year=atoi(str+7);
- if(tm.tm_year<Y2K_2DIGIT_WINDOW)
- tm.tm_year+=100;
- tm.tm_hour=atoi(str+11);
- tm.tm_min=atoi(str+14);
- tm.tm_sec=atoi(str+17); }
-
-else { /* SEAdog format: "Mon 1 Jan 86 02:34" */
- tm.tm_mday=atoi(str+4);
- sprintf(month,"%3.3s",str+7);
- if(!stricmp(month,"jan"))
- tm.tm_mon=0;
- else if(!stricmp(month,"feb"))
- tm.tm_mon=1;
- else if(!stricmp(month,"mar"))
- tm.tm_mon=2;
- else if(!stricmp(month,"apr"))
- tm.tm_mon=3;
- else if(!stricmp(month,"may"))
- tm.tm_mon=4;
- else if(!stricmp(month,"jun"))
- tm.tm_mon=5;
- else if(!stricmp(month,"jul"))
- tm.tm_mon=6;
- else if(!stricmp(month,"aug"))
- tm.tm_mon=7;
- else if(!stricmp(month,"sep"))
- tm.tm_mon=8;
- else if(!stricmp(month,"oct"))
- tm.tm_mon=9;
- else if(!stricmp(month,"nov"))
- tm.tm_mon=10;
- else
- tm.tm_mon=11;
- tm.tm_year=atoi(str+11);
- if(tm.tm_year<Y2K_2DIGIT_WINDOW)
- tm.tm_year+=100;
- tm.tm_hour=atoi(str+14);
- tm.tm_min=atoi(str+17);
- tm.tm_sec=0; }
-return(mktime(&tm));
-}
-
-#if 1 /* Old way */
-
-char HUGE16 *getfmsg(FILE *stream, ulong *outlen)
-{
- uchar HUGE16 *fbuf;
- int ch;
- ulong l,length,start;
-
-length=0L;
-start=ftell(stream); /* Beginning of Message */
-while(1) {
- ch=fgetc(stream); /* Look for Terminating NULL */
- if(!ch || ch==EOF) /* Found end of message */
- break;
- length++; } /* Increment the Length */
-
-if((fbuf=(char *)LMALLOC(length+1))==NULL) {
- printf("Unable to allocate %lu bytes for message.\n",length+1);
- logprintf("ERROR line %d allocating %lu bytes of memory",__LINE__,length+1);
- exit(0); }
-
-fseek(stream,start,SEEK_SET);
-for(l=0;l<length;l++)
- fbuf[l]=fgetc(stream);
-fbuf[length]=0;
-if(!ch)
- fgetc(stream); /* Read NULL */
-if(outlen)
- *outlen=length;
-return(fbuf);
-}
-
-#else
-
-#define FBUF_BLOCK 4096
-
-char *getfmsg(FILE *stream)
-{
- uchar *fbuf,*p;
- ulong l,n,length,start;
-
-length=0L;
-start=ftell(stream); /* Beginning of Message */
-if((fbuf=LMALLOC(FBUF_BLOCK))==NULL)
- return(fbuf);
-while(!feof(stream)) {
- l=fread(fbuf+length,1,FBUF_BLOCK,stream);
- if(l<1)
- break;
- *(fbuf+length+l)=0;
- n=strlen(fbuf+length);
- if(n<l) {
- length+=(n+1);
- break; }
- printf(",");
- length+=l;
- if(l<FBUF_BLOCK)
- break;
- printf("<");
- if((p=REALLOC(fbuf,length+FBUF_BLOCK+1))==NULL) {
- LFREE(fbuf);
- printf("!");
- fseek(stream,-l,SEEK_CUR);
- return(NULL); }
- fbuf=p;
- printf(">");
- }
-printf(".");
-
-fseek(stream,start+length,SEEK_SET);
-return(fbuf);
-}
-
-#endif
-
-#define MAX_TAILLEN 1024
-
-/****************************************************************************/
-/* Coverts a FidoNet message into a Synchronet message */
-/* Returns 1 on success, 0 on failure, -1 on dupe. */
-/****************************************************************************/
-int fmsgtosmsg(uchar HUGE16 *fbuf, fmsghdr_t fmsghdr, uint user, uint subnum)
-{
- uchar ch,HUGE16 *sbody,HUGE16 *stail,HUGE16 *outbuf
- ,done,col,esc,cr,*p,str[128];
- int i,chunk,lzh=0,storage;
- ushort xlat,net;
- ulong l,m,length,lzhlen,bodylen,taillen,crc;
- faddr_t faddr,origaddr,destaddr;
- smbmsg_t msg;
- smb_t *smbfile;
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-if(fmsghdr.attr&FIDO_PRIVATE)
- msg.idx.attr|=MSG_PRIVATE;
-msg.hdr.attr=msg.idx.attr;
-
-if(fmsghdr.attr&FIDO_FILE)
- msg.hdr.auxattr|=MSG_FILEATTACH;
-
-msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_imported.zone=sys_timezone;
-msg.hdr.when_written.time=fmsgtime(fmsghdr.time);
-
-origaddr.zone=fmsghdr.origzone; /* only valid if NetMail */
-origaddr.net=fmsghdr.orignet;
-origaddr.node=fmsghdr.orignode;
-origaddr.point=fmsghdr.origpoint;
-
-destaddr.zone=fmsghdr.destzone; /* only valid if NetMail */
-destaddr.net=fmsghdr.destnet;
-destaddr.node=fmsghdr.destnode;
-destaddr.point=fmsghdr.destpoint;
-
-smb_hfield(&msg,SENDER,strlen(fmsghdr.from),fmsghdr.from);
-strlwr(fmsghdr.from);
-if(subnum==INVALID_SUB)
- msg.idx.from=0;
-else
- msg.idx.from=crc16(fmsghdr.from);
-
-smb_hfield(&msg,RECIPIENT,strlen(fmsghdr.to),fmsghdr.to);
-strlwr(fmsghdr.to);
-msg.idx.to=crc16(fmsghdr.to);
-
-if(user) {
- sprintf(str,"%u",user);
- smb_hfield(&msg,RECIPIENTEXT,strlen(str),str);
- msg.idx.to=user; }
-
-smb_hfield(&msg,SUBJECT,strlen(fmsghdr.subj),fmsghdr.subj);
-remove_re(fmsghdr.subj);
-strlwr(fmsghdr.subj);
-msg.idx.subj=crc16(fmsghdr.subj);
-if(fbuf==NULL) {
- printf("ERROR allocating fbuf\n");
- logprintf("ERROR line %d allocating fbuf",__LINE__);
- smb_freemsgmem(&msg);
- return(0); }
-length=strlen((char *)fbuf);
-if((sbody=(char HUGE16 *)LMALLOC((length+1)*2))==NULL) {
- printf("ERROR allocating %lu bytes for body",(length+1)*2L);
- logprintf("ERROR line %d allocating %lu bytes for body",__LINE__
- ,(length+1)*2L);
- smb_freemsgmem(&msg);
- return(0); }
-if((stail=(char HUGE16 *)LMALLOC(MAX_TAILLEN))==NULL) {
- printf("ERROR allocating %lu bytes\n",MAX_TAILLEN);
- logprintf("ERROR line %d allocating %lu bytes for tail",__LINE__
- ,MAX_TAILLEN);
- LFREE(sbody);
- smb_freemsgmem(&msg);
- return(0); }
-
-for(col=l=esc=done=bodylen=taillen=0,cr=1;l<length;l++) {
-
- if(!l && !strncmp((char *)fbuf,"AREA:",5)) {
- l+=5;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOAREA,m-l,fbuf+l);
- while(l<length && fbuf[l]!=CR) l++;
- continue; }
-
- ch=fbuf[l];
- if(ch==1 && cr) { /* kludge line */
-
- if(!strncmp((char *)fbuf+l+1,"TOPT ",5))
- destaddr.point=atoi((char *)fbuf+l+6);
-
- else if(!strncmp((char *)fbuf+l+1,"FMPT ",5))
- origaddr.point=atoi((char *)fbuf+l+6);
-
- else if(!strncmp((char *)fbuf+l+1,"INTL ",5)) {
- faddr=atofaddr((char *)fbuf+l+6);
- destaddr.zone=faddr.zone;
- destaddr.net=faddr.net;
- destaddr.node=faddr.node;
- l+=6;
- while(l<length && fbuf[l]!=SP) l++;
- faddr=atofaddr((char *)fbuf+l+1);
- origaddr.zone=faddr.zone;
- origaddr.net=faddr.net;
- origaddr.node=faddr.node; }
-
- else if(!strncmp((char *)fbuf+l+1,"MSGID:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOMSGID,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"REPLY:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOREPLYID,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"FLAGS:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOFLAGS,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"PATH:",5)) {
- l+=6;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l && misc&STORE_PATH)
- smb_hfield(&msg,FIDOPATH,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"PID:",4)) {
- l+=5;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOPID,m-l,fbuf+l); }
-
- else { /* Unknown kludge line */
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l && misc&STORE_KLUDGE)
- smb_hfield(&msg,FIDOCTRL,m-l,fbuf+l); }
-
- while(l<length && fbuf[l]!=CR) l++;
- continue; }
-
- if(ch!=LF && ch!=0x8d) { /* ignore LF and soft CRs */
- if(cr && (!strncmp((char *)fbuf+l,"--- ",4)
- || !strncmp((char *)fbuf+l,"---\r",4)))
- done=1; /* tear line and down go into tail */
- if(done && cr && !strncmp((char *)fbuf+l,"SEEN-BY:",8)) {
- l+=8;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l && misc&STORE_SEENBY)
- smb_hfield(&msg,FIDOSEENBY,m-l,fbuf+l);
- while(l<length && fbuf[l]!=CR) l++;
- continue; }
- if(done) {
- if(taillen<MAX_TAILLEN)
- stail[taillen++]=ch; }
- else
- sbody[bodylen++]=ch;
- col++;
- if(ch==CR) {
- cr=1;
- col=0;
- if(done) {
- if(taillen<MAX_TAILLEN)
- stail[taillen++]=LF; }
- else
- sbody[bodylen++]=LF; }
- else {
- cr=0;
- if(col==1 && !strncmp((char *)fbuf+l," * Origin: ",11)) {
- p=(char *)fbuf+l+11;
- while(*p && *p!=CR) p++; /* Find CR */
- while(p && *p!='(') p--; /* rewind to '(' */
- if(p)
- origaddr=atofaddr(p+1); /* get orig address */
- done=1; }
- if(done)
- continue;
-
- if(ch==ESC) esc=1; /* ANSI codes */
- if(ch==SP && col>40 && !esc) { /* word wrap */
- for(m=l+1;m<length;m++) /* find next space */
- if(fbuf[m]<=SP)
- break;
- if(m<length && m-l>80-col) { /* if it's beyond the eol */
- sbody[bodylen++]=CR;
- sbody[bodylen++]=LF;
- col=0; } }
- } } }
-
-if(bodylen>=2 && sbody[bodylen-2]==CR && sbody[bodylen-1]==LF)
- bodylen-=2; /* remove last CRLF if present */
-
-if(smb[cur_smb].status.max_crcs) {
- for(l=0,crc=0xffffffff;l<bodylen;l++)
- crc=ucrc32(sbody[l],crc);
- crc=~crc;
- i=smb_addcrc(&smb[cur_smb],crc);
- if(i) {
- if(i==1)
- printf("Duplicate ");
- else
- printf("smb_addcrc returned %d ",i);
- smb_freemsgmem(&msg);
- LFREE(sbody);
- LFREE(stail);
- if(i==1)
- return(-1);
- return(0); } }
-
-while(taillen && stail[taillen-1]<=SP) /* trim all garbage off the tail */
- taillen--;
-
-if(!origaddr.zone && subnum==INVALID_SUB)
- net=NET_NONE; /* Message from SBBSecho */
-else
- net=NET_FIDO; /* Record origin address */
-
-if(net) {
- smb_hfield(&msg,SENDERNETTYPE,sizeof(ushort),&net);
- smb_hfield(&msg,SENDERNETADDR,sizeof(fidoaddr_t),&origaddr); }
-
-if(subnum==INVALID_SUB) {
- smbfile=email;
- if(net) {
- smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(ushort),&net);
- smb_hfield(&msg,RECIPIENTNETADDR,sizeof(fidoaddr_t),&destaddr); } }
-else
- smbfile=&smb[cur_smb];
-
-if(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_LZH
- && bodylen+2L+taillen+2L>=SDT_BLOCK_LEN && bodylen) {
- if((outbuf=(char *)LMALLOC(bodylen*2L))==NULL) {
- printf("ERROR allocating %lu bytes for lzh\n",bodylen*2);
- logprintf("ERROR line %d allocating %lu bytes for lzh",__LINE__
- ,bodylen*2);
- smb_freemsgmem(&msg);
- LFREE(sbody);
- LFREE(stail);
- return(0); }
- lzhlen=lzh_encode((uchar *)sbody,bodylen,(uchar *)outbuf);
- if(lzhlen>1 &&
- smb_datblocks(lzhlen+4L+taillen+2L)<
- smb_datblocks(bodylen+2L+taillen+2L)) {
- bodylen=lzhlen; /* Compressable */
- l=bodylen+4;
- LFREE(sbody);
- lzh=1;
- sbody=outbuf; }
- else { /* Uncompressable */
- l=bodylen+2;
- LFREE(outbuf); } }
-else
- l=bodylen+2;
-
-if(taillen)
- l+=(taillen+2);
-
-if(l&0xfff00000) {
- printf("ERROR checking msg len %lu\n",l);
- logprintf("ERROR line %d checking msg len %lu",__LINE__,l);
- smb_freemsgmem(&msg);
- LFREE(sbody);
- LFREE(stail);
- return(0); }
-
-if(smbfile->status.attr&SMB_HYPERALLOC) {
- if((i=smb_locksmbhdr(smbfile))!=0) {
- printf("ERROR %d locking %s\n",i,smbfile->file);
- logprintf("ERROR %d line %d locking %s",i,__LINE__,smbfile->file);
- smb_freemsgmem(&msg);
- LFREE(sbody);
- LFREE(stail);
- return(0); }
- msg.hdr.offset=smb_hallocdat(smbfile);
- storage=SMB_HYPERALLOC; }
-else {
- if((i=smb_open_da(smbfile))!=0) {
- smb_freemsgmem(&msg);
- printf("ERROR %d opening %s.SDA\n",i,smbfile->file);
- logprintf("ERROR %d line %d opening %s.SDA",i,__LINE__
- ,smbfile->file);
- LFREE(sbody);
- LFREE(stail);
- return(0); }
- if(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_FAST) {
- msg.hdr.offset=smb_fallocdat(smbfile,l,1);
- storage=SMB_FASTALLOC; }
- else {
- msg.hdr.offset=smb_allocdat(smbfile,l,1);
- storage=SMB_SELFPACK; }
- smb_close_da(smbfile); }
-
-if(msg.hdr.offset && msg.hdr.offset<1L) {
- if(smbfile->status.attr&SMB_HYPERALLOC)
- smb_unlocksmbhdr(smbfile);
- smb_freemsgmem(&msg);
- LFREE(sbody);
- LFREE(stail);
- printf("ERROR %ld allocating records\n",msg.hdr.offset);
- logprintf("ERROR line %d %ld allocating records",__LINE__,msg.hdr.offset);
- return(0); }
-fseek(smbfile->sdt_fp,msg.hdr.offset,SEEK_SET);
-if(lzh) {
- xlat=XLAT_LZH;
- fwrite(&xlat,2,1,smbfile->sdt_fp); }
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smbfile->sdt_fp);
-chunk=30000;
-for(l=0;l<bodylen;l+=chunk) {
- if(l+chunk>bodylen)
- chunk=bodylen-l;
- fwrite(sbody+l,1,chunk,smbfile->sdt_fp); }
-if(taillen) {
- fwrite(&xlat,2,1,smbfile->sdt_fp);
- fwrite(stail,1,taillen,smbfile->sdt_fp); }
-LFREE(sbody);
-LFREE(stail);
-fflush(smbfile->sdt_fp);
-if(smbfile->status.attr&SMB_HYPERALLOC)
- smb_unlocksmbhdr(smbfile);
-
-if(lzh)
- bodylen+=2;
-bodylen+=2;
-smb_dfield(&msg,TEXT_BODY,bodylen);
-if(taillen)
- smb_dfield(&msg,TEXT_TAIL,taillen+2);
-
-i=smb_addmsghdr(smbfile,&msg,storage);
-smb_freemsgmem(&msg);
-if(i) {
- printf("ERROR smb_addmsghdr returned %d\n",i);
- logprintf("ERROR line %d smb_addmsghdr returned %d"
- ,__LINE__,i);
- return(0); }
-return(1);
-}
-
-/***********************************************************************/
-/* Get zone and point from kludge lines from the stream if they exist */
-/***********************************************************************/
-void getzpt(FILE *stream, fmsghdr_t *hdr)
-{
- char buf[0x1000];
- int i,len,cr=0;
- long pos;
- faddr_t faddr;
-
-pos=ftell(stream);
-len=fread(buf,1,0x1000,stream);
-for(i=0;i<len;i++) {
- if((!i || cr) && buf[i]==1) { /* kludge */
- if(!strncmp(buf+i+1,"TOPT ",5))
- hdr->destpoint=atoi(buf+i+6);
- else if(!strncmp(buf+i+1,"FMPT ",5))
- hdr->origpoint=atoi(buf+i+6);
- else if(!strncmp(buf+i+1,"INTL ",5)) {
- faddr=atofaddr(buf+i+6);
- hdr->destzone=faddr.zone;
- hdr->destnet=faddr.net;
- hdr->destnode=faddr.node;
- i+=6;
- while(buf[i] && buf[i]!=SP) i++;
- faddr=atofaddr(buf+i+1);
- hdr->origzone=faddr.zone;
- hdr->orignet=faddr.net;
- hdr->orignode=faddr.node; }
- while(i<len && buf[i]!=CR) i++;
- cr=1;
- continue; }
- if(buf[i]==CR)
- cr=1;
- else
- cr=0; }
-fseek(stream,pos,SEEK_SET);
-}
-/******************************************************************************
- This function will seek to the next NULL found in stream
-******************************************************************************/
-void seektonull(FILE *stream)
-{
- char ch;
-
-while(!feof(stream)) {
- if(!fread(&ch,1,1,stream))
- break;
- if(!ch)
- break; }
-
-}
-
-/******************************************************************************
- This function returns a packet name - used for outgoing packets
-******************************************************************************/
-char *pktname(void)
-{
- static char str[128];
- int i;
- time_t now;
- struct tm *tm;
-
-now=time(NULL);
-for(i=0;i<MAX_TOTAL_PKTS*2;i++) {
- now+=i;
- tm=gmtime(&now);
- sprintf(str,"%s%02u%02u%02u%02u.PK_",cfg.outbound,tm->tm_mday,tm->tm_hour
- ,tm->tm_min,tm->tm_sec);
- if(!fexist(str)) /* Add 1 second if name exists */
- break; }
-return(str);
-}
-/******************************************************************************
- This function puts a message into a Fido packet, writing both the header
- information and the message body
-******************************************************************************/
-void putfmsg(FILE *stream,uchar HUGE16 *fbuf,fmsghdr_t fmsghdr,areasbbs_t area
- ,addrlist_t seenbys,addrlist_t paths)
-{
- char str[256],seenby[256],*p;
- short i,j,lastlen=0,net_exists=0;
- faddr_t addr,sysaddr;
-
-addr=getsysfaddr(fmsghdr.destzone);
-
-i=0x0002;
-fwrite(&i,2,1,stream);
-fwrite(&addr.node,2,1,stream);
-fwrite(&fmsghdr.destnode,2,1,stream);
-fwrite(&addr.net,2,1,stream);
-fwrite(&fmsghdr.destnet,2,1,stream);
-fwrite(&fmsghdr.attr,2,1,stream);
-fwrite(&fmsghdr.cost,2,1,stream);
-fwrite(fmsghdr.time,strlen(fmsghdr.time)+1,1,stream);
-fwrite(fmsghdr.to,strlen(fmsghdr.to)+1,1,stream);
-fwrite(fmsghdr.from,strlen(fmsghdr.from)+1,1,stream);
-fwrite(fmsghdr.subj,strlen(fmsghdr.subj)+1,1,stream);
-if(area.name)
- if(strncmp((char *)fbuf,"AREA:",5)) /* No AREA: Line */
- fprintf(stream,"AREA:%s\r",area.name); /* So add one */
-fwrite(fbuf,strlen((char *)fbuf),1,stream);
-lastlen=9;
-if(fbuf[strlen((char *)fbuf)-1]!=CR)
- fputc(CR,stream);
-
-if(area.name && addr.zone!=fmsghdr.destzone) /* Zone Gate */
- fprintf(stream,"SEEN-BY: %d/%d\r",fmsghdr.destnet,fmsghdr.destnode);
-
-if(area.name && addr.zone==fmsghdr.destzone) { /* Not NetMail */
- fprintf(stream,"SEEN-BY:");
- for(i=0;i<seenbys.addrs;i++) { /* Put back original SEEN-BYs */
- strcpy(seenby," ");
- if(seenbys.addr[i].zone!=addr.zone)
- continue;
- if(seenbys.addr[i].net!=addr.net || !net_exists) {
- net_exists=1;
- addr.net=seenbys.addr[i].net;
- sprintf(str,"%d/",addr.net);
- strcat(seenby,str); }
- sprintf(str,"%d",seenbys.addr[i].node);
- strcat(seenby,str);
- if(lastlen+strlen(seenby)<80) {
- fwrite(seenby,strlen(seenby),1,stream);
- lastlen+=strlen(seenby); }
- else {
- --i;
- lastlen=9; /* +strlen(seenby); */
- net_exists=0;
- fprintf(stream,"\rSEEN-BY:"); } }
-
- for(i=0;i<area.uplinks;i++) { /* Add all uplinks to SEEN-BYs */
- strcpy(seenby," ");
- if(area.uplink[i].zone!=addr.zone || area.uplink[i].point)
- continue;
- for(j=0;j<seenbys.addrs;j++)
- if(!memcmp(&area.uplink[i],&seenbys.addr[j],sizeof(faddr_t)))
- break;
- if(j==seenbys.addrs) {
- if(area.uplink[i].net!=addr.net || !net_exists) {
- net_exists=1;
- addr.net=area.uplink[i].net;
- sprintf(str,"%d/",addr.net);
- strcat(seenby,str); }
- sprintf(str,"%d",area.uplink[i].node);
- strcat(seenby,str);
- if(lastlen+strlen(seenby)<80) {
- fwrite(seenby,strlen(seenby),1,stream);
- lastlen+=strlen(seenby); }
- else {
- --i;
- lastlen=9; /* +strlen(seenby); */
- net_exists=0;
- fprintf(stream,"\rSEEN-BY:"); } } }
-
- for(i=0;i<total_faddrs;i++) { /* Add AKAs to SEEN-BYs */
- strcpy(seenby," ");
- if(faddr[i].zone!=addr.zone || faddr[i].point)
- continue;
- for(j=0;j<seenbys.addrs;j++)
- if(!memcmp(&faddr[i],&seenbys.addr[j],sizeof(faddr_t)))
- break;
- if(j==seenbys.addrs) {
- if(faddr[i].net!=addr.net || !net_exists) {
- net_exists=1;
- addr.net=faddr[i].net;
- sprintf(str,"%d/",addr.net);
- strcat(seenby,str); }
- sprintf(str,"%d",faddr[i].node);
- strcat(seenby,str);
- if(lastlen+strlen(seenby)<80) {
- fwrite(seenby,strlen(seenby),1,stream);
- lastlen+=strlen(seenby); }
- else {
- --i;
- lastlen=9; /* +strlen(seenby); */
- net_exists=0;
- fprintf(stream,"\rSEEN-BY:"); } } }
-
- lastlen=7;
- net_exists=0;
- fprintf(stream,"\r\1PATH:");
- addr=getsysfaddr(fmsghdr.destzone);
- for(i=0;i<paths.addrs;i++) { /* Put back the original PATH */
- strcpy(seenby," ");
- if(paths.addr[i].zone!=addr.zone || paths.addr[i].point)
- continue;
- if(paths.addr[i].net!=addr.net || !net_exists) {
- net_exists=1;
- addr.net=paths.addr[i].net;
- sprintf(str,"%d/",addr.net);
- strcat(seenby,str); }
- sprintf(str,"%d",paths.addr[i].node);
- strcat(seenby,str);
- if(lastlen+strlen(seenby)<80) {
- fwrite(seenby,strlen(seenby),1,stream);
- lastlen+=strlen(seenby); }
- else {
- --i;
- lastlen=7; /* +strlen(seenby); */
- net_exists=0;
- fprintf(stream,"\r\1PATH:"); } }
-
- strcpy(seenby," "); /* Add first address with same zone to PATH */
- sysaddr=getsysfaddr(fmsghdr.destzone);
- if(!sysaddr.point) {
- if(sysaddr.net!=addr.net || !net_exists) {
- net_exists=1;
- addr.net=sysaddr.net;
- sprintf(str,"%d/",addr.net);
- strcat(seenby,str); }
- sprintf(str,"%d",sysaddr.node);
- strcat(seenby,str);
- if(lastlen+strlen(seenby)<80)
- fwrite(seenby,strlen(seenby),1,stream);
- else {
- fprintf(stream,"\r\1PATH:");
- fwrite(seenby,strlen(seenby),1,stream); } }
-
- fputc(CR,stream); }
-
-fputc(0,stream);
-}
-
-/******************************************************************************
- This function creates a binary list of the message seen-bys and path from
- inbuf.
-******************************************************************************/
-void gen_psb(addrlist_t *seenbys,addrlist_t *paths,char HUGE16 *inbuf
- ,ushort zone)
-{
- char str[128],seenby[256],*p,*p1,*p2,HUGE16 *fbuf;
- int i,j,len;
- faddr_t addr;
-
-if(!inbuf)
- return;
-fbuf=strstr((char *)inbuf,"\r * Origin: ");
-if(!fbuf)
-fbuf=strstr((char *)inbuf,"\n * Origin: ");
-if(!fbuf)
- fbuf=inbuf;
-if(seenbys->addr) {
- FREE(seenbys->addr);
- seenbys->addr=0;
- seenbys->addrs=0; }
-addr.zone=addr.net=addr.node=addr.point=seenbys->addrs=0;
-p=strstr((char *)fbuf,"\rSEEN-BY:");
-if(!p) p=strstr((char *)fbuf,"\nSEEN-BY:");
-if(p) {
- while(1) {
- sprintf(str,"%-.100s",p+10);
- if((p1=strchr(str,CR))!=NULL)
- *p1=0;
- p1=str;
- i=j=0;
- len=strlen(str);
- while(i<len) {
- j=i;
- while(i<len && *(p1+i)!=SP)
- ++i;
- if(j>len)
- break;
- sprintf(seenby,"%-.*s",(i-j),p1+j);
- if((p2=strchr(seenby,':'))!=NULL) {
- addr.zone=atoi(seenby);
- addr.net=atoi(p2+1); }
- else if((p2=strchr(seenby,'/'))!=NULL)
- addr.net=atoi(seenby);
- if((p2=strchr(seenby,'/'))!=NULL)
- addr.node=atoi(p2+1);
- else
- addr.node=atoi(seenby);
- if((p2=strchr(seenby,'.'))!=NULL)
- addr.point=atoi(p2+1);
- if(!addr.zone)
- addr.zone=zone; /* Was 1 */
- if((seenbys->addr=(faddr_t *)REALLOC(seenbys->addr
- ,sizeof(faddr_t)*(seenbys->addrs+1)))==NULL) {
- printf("ERROR allocating memory for seenbys\n");
- logprintf("ERROR line %d allocating memory for message "
- "seenbys.",__LINE__);
- exit(1); }
- memcpy(&seenbys->addr[seenbys->addrs],&addr,sizeof(faddr_t));
- seenbys->addrs++;
- ++i; }
- p1=strstr(p+10,"\rSEEN-BY:");
- if(!p1)
- p1=strstr(p+10,"\nSEEN-BY:");
- if(!p1)
- break;
- p=p1; } }
-else {
- if((seenbys->addr=(faddr_t *)REALLOC(seenbys->addr
- ,sizeof(faddr_t)))==NULL) {
- printf("ERROR allocating memory for seenbys\n");
- logprintf("ERROR line %d allocating memory for message seenbys."
- ,__LINE__);
- exit(1); }
- memset(&seenbys->addr[0],0,sizeof(faddr_t)); }
-
-if(paths->addr) {
- FREE(paths->addr);
- paths->addr=0;
- paths->addrs=0; }
-addr.zone=addr.net=addr.node=addr.point=paths->addrs=0;
-if((p=strstr((char *)fbuf,"\1PATH:"))!=NULL) {
- while(1) {
- sprintf(str,"%-.100s",p+7);
- if((p1=strchr(str,CR))!=NULL)
- *p1=0;
- p1=str;
- i=j=0;
- len=strlen(str);
- while(i<len) {
- j=i;
- while(i<len && *(p1+i)!=SP)
- ++i;
- if(j>len)
- break;
- sprintf(seenby,"%-.*s",(i-j),p1+j);
- if((p2=strchr(seenby,':'))!=NULL) {
- addr.zone=atoi(seenby);
- addr.net=atoi(p2+1); }
- else if((p2=strchr(seenby,'/'))!=NULL)
- addr.net=atoi(seenby);
- if((p2=strchr(seenby,'/'))!=NULL)
- addr.node=atoi(p2+1);
- else
- addr.node=atoi(seenby);
- if((p2=strchr(seenby,'.'))!=NULL)
- addr.point=atoi(p2+1);
- if(!addr.zone)
- addr.zone=zone; /* Was 1 */
- if((paths->addr=(faddr_t *)REALLOC(paths->addr
- ,sizeof(faddr_t)*(paths->addrs+1)))==NULL) {
- printf("ERROR allocating memory for paths\n");
- logprintf("ERROR line %d allocating memory for message "
- "paths.",__LINE__);
- exit(1); }
- memcpy(&paths->addr[paths->addrs],&addr,sizeof(faddr_t));
- paths->addrs++;
- ++i; }
- if((p1=strstr(p+7,"\1PATH:"))==NULL)
- break;
- p=p1; } }
-else {
- if((paths->addr=(faddr_t *)REALLOC(paths->addr
- ,sizeof(faddr_t)))==NULL) {
- printf("ERROR allocating memory for paths\n");
- logprintf("ERROR line %d allocating memory for message paths."
- ,__LINE__);
- exit(1); }
- memset(&paths->addr[0],0,sizeof(faddr_t)); }
-}
-
-/******************************************************************************
- This function takes the addrs passed to it and compares them to the address
- passed in inaddr. 1 is returned if inaddr matches any of the addrs
- otherwise a 0 is returned.
-******************************************************************************/
-char check_psb(addrlist_t addrlist,faddr_t inaddr)
-{
- int i;
-
-for(i=0;i<addrlist.addrs;i++) {
- if(!memcmp(&addrlist.addr[i],&inaddr,sizeof(faddr_t)))
- return(1); }
-return(0);
-}
-/******************************************************************************
- This function strips the message seen-bys and path from inbuf.
-******************************************************************************/
-void strip_psb(char HUGE16 *inbuf)
-{
- char *p,HUGE16 *fbuf;
-
-if(!inbuf)
- return;
-fbuf=strstr((char *)inbuf,"\r * Origin: ");
-if(!fbuf)
- fbuf=inbuf;
-if((p=strstr((char *)fbuf,"\rSEEN-BY:"))!=NULL)
- *(p)=0;
-if((p=strstr((char *)fbuf,"\r\1PATH:"))!=NULL)
- *(p)=0;
-}
-void attach_bundles()
-{
- FILE *fidomsg;
- char str[1025],path[512],packet[128];
- int fmsg;
- ulong l;
- faddr_t pkt_faddr;
- pkthdr_t pkthdr;
- struct find_t ff;
-
-sprintf(path,"%s*.PK_",cfg.outbound);
-for(l=_dos_findfirst(path,0,&ff);!l && !kbhit();l=_dos_findnext(&ff)) {
- sprintf(packet,"%s%s",cfg.outbound,ff.name);
- printf("%21s: %s ","Outbound Packet",packet);
- if((fmsg=sopen(packet,O_RDWR,SH_DENYRW))==-1) {
- printf("ERROR opening.\n");
- logprintf("ERROR line %d opening %s",__LINE__,packet);
- continue; }
- if((fidomsg=fdopen(fmsg,"r+b"))==NULL) {
- close(fmsg);
- printf("\7ERROR fdopening.\n");
- logprintf("ERROR line %d fdopening %s",__LINE__,packet);
- continue; }
- if(filelength(fmsg)<sizeof(pkthdr_t)) {
- printf("ERROR invalid length of %u bytes for %s\n",filelength(fmsg)
- ,packet);
- logprintf("ERROR line %d invalid length of %u bytes for %s"
- ,__LINE__,filelength(fmsg),packet);
- fclose(fidomsg);
- if(delfile(packet))
- logprintf("ERROR line %d removing %s %s",__LINE__,packet
- ,sys_errlist[errno]);
- continue; }
- if(fread(&pkthdr,sizeof(pkthdr_t),1,fidomsg)!=1) {
- fclose(fidomsg);
- printf("\7ERROR reading %u bytes from %s\n",sizeof(pkthdr_t),packet);
- logprintf("ERROR line %d reading %u bytes from %s",__LINE__
- ,sizeof(pkthdr_t),packet);
- continue; }
- fseek(fidomsg,-2L,SEEK_END);
- fread(str,2,1,fidomsg);
- fclose(fidomsg);
- if(!str[0] && !str[1]) { /* Check for two nulls at end of packet */
- pkt_faddr.zone=pkthdr.destzone;
- pkt_faddr.net=pkthdr.destnet;
- pkt_faddr.node=pkthdr.destnode;
- pkt_faddr.point=0; /* No point info in the 2.0 hdr! */
- memcpy(&two_plus,&pkthdr.empty,20);
- if(two_plus.cword==_rotr(two_plus.cwcopy,8) /* 2+ Packet Header */
- && two_plus.cword && two_plus.cword&1)
- pkt_faddr.point=two_plus.destpoint;
- else if(pkthdr.baud==2) { /* Type 2.2 Packet Header */
- memcpy(&two_two,&pkthdr.empty,20);
- pkt_faddr.point=pkthdr.month; }
- printf("Sending to %s\n",faddrtoa(pkt_faddr));
- pack_bundle(packet,pkt_faddr); }
- else {
- fclose(fidomsg);
- printf("Possibly still in use\n"); } }
-#ifdef __WATCOMC__
-_dos_findclose(&ff);
-#endif
-}
-/******************************************************************************
- This is where we put outgoing messages into packets. Set the 'cleanup'
- parameter to 1 to force all the remaining packets closed and stuff them into
- a bundle.
-******************************************************************************/
-void pkt_to_pkt(uchar HUGE16 *fbuf,areasbbs_t area,faddr_t faddr
- ,fmsghdr_t fmsghdr,addrlist_t seenbys,addrlist_t paths,char cleanup)
-{
- int i,j,k,file;
- short node;
- time_t now;
- struct tm *tm;
- pkthdr_t pkthdr;
- static ushort openpkts,totalpkts;
- static outpkt_t outpkt[MAX_TOTAL_PKTS];
- faddr_t sysaddr;
- two_two_t two;
- two_plus_t two_p;
-
-
-if(cleanup==1) {
- for(i=0;i<totalpkts;i++) {
- if(i>=MAX_TOTAL_PKTS) {
- printf("MAX_TOTAL_PKTS (%d) REACHED!\n",MAX_TOTAL_PKTS);
- logprintf("MAX_TOTAL_PKTS (%d) REACHED!\n",MAX_TOTAL_PKTS);
- break;
- }
- if(outpkt[i].curopen) {
- fputc(0,outpkt[i].stream);
- fputc(0,outpkt[i].stream);
- fclose(outpkt[i].stream); }
- else {
- if((outpkt[i].stream=fnopen(&file,outpkt[i].filename
- ,O_WRONLY|O_APPEND))==NULL) {
- printf("ERROR opening %s for write.\n",outpkt[i].filename);
- logprintf("ERROR line %d opening %s %s",__LINE__
- ,outpkt[i].filename,sys_errlist[errno]);
- continue; }
- fputc(0,outpkt[i].stream);
- fputc(0,outpkt[i].stream);
- fclose(outpkt[i].stream); }
-// pack_bundle(outpkt[i].filename,outpkt[i].uplink);
- memset(&outpkt[i],0,sizeof(outpkt_t)); }
- totalpkts=openpkts=0;
- attach_bundles();
- attachment(0,faddr,1);
- return; }
-
-if(fbuf==NULL) {
- printf("ERROR allocating fbuf\n");
- logprintf("ERROR line %d allocating fbuf",__LINE__);
- return; }
-/* We want to see if there's already a packet open for this area. */
-/* If not, we'll open a new one. Once we have a packet, we'll add */
-/* messages to it as they come in. If necessary, we'll close an */
-/* open packet to open a new one. */
-
-for(j=0;j<area.uplinks;j++) {
- if((cleanup==2 && memcmp(&faddr,&area.uplink[j],sizeof(faddr_t))) ||
- (!cleanup && (!memcmp(&faddr,&area.uplink[j],sizeof(faddr_t)) ||
- check_psb(seenbys,area.uplink[j]))))
- continue;
- node=matchnode(area.uplink[j],0);
- if(node<cfg.nodecfgs && cfg.nodecfg[node].attr&ATTR_PASSIVE)
- continue;
- sysaddr=getsysfaddr(area.uplink[j].zone);
- printf("%s ",faddrtoa(area.uplink[j]));
- for(i=0;i<totalpkts;i++) {
- if(i>=MAX_TOTAL_PKTS) {
- printf("MAX_TOTAL_PKTS (%d) REACHED!\n",MAX_TOTAL_PKTS);
- logprintf("MAX_TOTAL_PKTS (%d) REACHED!\n",MAX_TOTAL_PKTS);
- break;
- }
- if(!memcmp(&area.uplink[j],&outpkt[i].uplink,sizeof(faddr_t))) {
- if(!outpkt[i].curopen) {
- if(openpkts==DFLT_OPEN_PKTS)
- for(k=0;k<totalpkts;k++) {
- if(outpkt[k].curopen) {
- fclose(outpkt[k].stream);
- outpkt[k].curopen=0;
- break; } }
- if((outpkt[i].stream=fnopen(&file,outpkt[i].filename
- ,O_WRONLY|O_APPEND))==NULL) {
- printf("Unable to open %s for write.\n"
- ,outpkt[i].filename);
- logprintf("ERROR line %d opening %s %s",__LINE__
- ,outpkt[i].filename,sys_errlist[errno]);
- exit(1); }
- outpkt[i].curopen=1; }
- if((strlen((char *)fbuf)+1+ftell(outpkt[i].stream))
- <=cfg.maxpktsize) {
- fmsghdr.destnode=area.uplink[j].node;
- fmsghdr.destnet=area.uplink[j].net;
- fmsghdr.destzone=area.uplink[j].zone;
- putfmsg(outpkt[i].stream,fbuf,fmsghdr,area,seenbys,paths); }
- else {
- fputc(0,outpkt[i].stream);
- fputc(0,outpkt[i].stream);
- fclose(outpkt[i].stream);
-// pack_bundle(outpkt[i].filename,outpkt[i].uplink);
- outpkt[i].stream=outpkt[totalpkts-1].stream;
- memcpy(&outpkt[i],&outpkt[totalpkts-1],sizeof(outpkt_t));
- memset(&outpkt[totalpkts-1],0,sizeof(outpkt_t));
- --totalpkts;
- --openpkts;
- i=totalpkts; }
- break; } }
- if(i==totalpkts) {
- if(openpkts==DFLT_OPEN_PKTS)
- for(k=0;k<totalpkts;k++) {
- if(outpkt[k].curopen) {
- fclose(outpkt[k].stream);
- outpkt[k].curopen=0;
- --openpkts;
- break; } }
- strcpy(outpkt[i].filename,pktname());
- now=time(NULL);
- tm=gmtime(&now);
- if((outpkt[i].stream=fnopen(&file,outpkt[i].filename
- ,O_WRONLY|O_CREAT))==NULL) {
- printf("Unable to open %s for write.\n"
- ,outpkt[i].filename);
- logprintf("ERROR line %d opening %s %s"
- ,__LINE__,outpkt[i].filename,sys_errlist[errno]);
- exit(1); }
- pkthdr.orignode=sysaddr.node;
- fmsghdr.destnode=pkthdr.destnode=area.uplink[j].node;
- if(node<cfg.nodecfgs && cfg.nodecfg[node].pkt_type==PKT_TWO_TWO) {
- pkthdr.year=sysaddr.point;
- pkthdr.month=area.uplink[j].point;
- pkthdr.day=0;
- pkthdr.hour=0;
- pkthdr.min=0;
- pkthdr.sec=0;
- pkthdr.baud=0x0002; }
- else {
- pkthdr.year=tm->tm_year+1900;
- pkthdr.month=tm->tm_mon;
- pkthdr.day=tm->tm_mday;
- pkthdr.hour=tm->tm_hour;
- pkthdr.min=tm->tm_min;
- pkthdr.sec=tm->tm_sec;
- pkthdr.baud=0;
- }
- pkthdr.pkttype=0x0002;
- pkthdr.orignet=sysaddr.net;
- fmsghdr.destnet=pkthdr.destnet=area.uplink[j].net;
- pkthdr.prodcode=0;
- pkthdr.sernum=0;
- if(node<cfg.nodecfgs)
- memcpy(pkthdr.password,cfg.nodecfg[node].pktpwd,8);
- else
- memset(pkthdr.password,0,8);
- pkthdr.origzone=sysaddr.zone;
- fmsghdr.destzone=pkthdr.destzone=area.uplink[j].zone;
- memset(pkthdr.empty,0,sizeof(two_two_t));
-
- if(node<cfg.nodecfgs) {
- if(cfg.nodecfg[node].pkt_type==PKT_TWO_TWO) {
- memset(&two,0,20);
- strcpy(two.origdomn,"fidonet");
- strcpy(two.destdomn,"fidonet");
- memcpy(&pkthdr.empty,&two,20); }
- else if(cfg.nodecfg[node].pkt_type==PKT_TWO_PLUS) {
- memset(&two_p,0,20);
- if(sysaddr.point) {
- pkthdr.orignet=-1;
- two_p.auxnet=sysaddr.net; }
- two_p.cwcopy=0x0100;
- two_p.prodcode=pkthdr.prodcode;
- two_p.revision=pkthdr.sernum;
- two_p.cword=0x0001;
- two_p.origzone=pkthdr.origzone;
- two_p.destzone=pkthdr.destzone;
- two_p.origpoint=sysaddr.point;
- two_p.destpoint=area.uplink[j].point;
- memcpy(&pkthdr.empty,&two_p,sizeof(two_plus_t));
- }
- }
-
- fwrite(&pkthdr,sizeof(pkthdr_t),1,outpkt[totalpkts].stream);
- putfmsg(outpkt[totalpkts].stream,fbuf,fmsghdr,area,seenbys,paths);
- outpkt[totalpkts].curopen=1;
- memcpy(&outpkt[totalpkts].uplink,&area.uplink[j]
- ,sizeof(faddr_t));
- ++openpkts;
- ++totalpkts;
- if(totalpkts>=MAX_TOTAL_PKTS) {
- fclose(outpkt[totalpkts-1].stream);
-// pack_bundle(outpkt[totalpkts-1].filename
-// ,outpkt[totalpkts-1].uplink);
- --totalpkts;
- --openpkts; }
- } }
-}
-
-/**************************************/
-/* Send netmail, returns 0 on success */
-/**************************************/
-int import_netmail(char *path,fmsghdr_t hdr, FILE *fidomsg)
-{
- uchar info[512],str[256],tmp[256],subj[256]
- ,HUGE16 *fmsgbuf=NULL,*p,*tp,*sp;
- int i,match,usernumber;
- ulong l;
- faddr_t addr;
-
-hdr.destzone=hdr.origzone=sys_faddr.zone;
-hdr.destpoint=hdr.origpoint=0;
-getzpt(fidomsg,&hdr); /* use kludge if found */
-for(match=0;match<total_faddrs;match++)
- if((hdr.destzone==faddr[match].zone || misc&FUZZY_ZONE)
- && hdr.destnet==faddr[match].net
- && hdr.destnode==faddr[match].node
- && hdr.destpoint==faddr[match].point)
- break;
-if(match<total_faddrs && misc&FUZZY_ZONE)
- hdr.origzone=hdr.destzone=faddr[match].zone;
-if(hdr.origpoint)
- sprintf(tmp,".%u",hdr.origpoint);
-else
- tmp[0]=0;
-if(hdr.destpoint)
- sprintf(str,".%u",hdr.destpoint);
-else
- str[0]=0;
-sprintf(info,"%s%s%s (%u:%u/%u%s) To: %s (%u:%u/%u%s)"
- ,path,path[0] ? " ":""
- ,hdr.from,hdr.origzone,hdr.orignet,hdr.orignode,tmp
- ,hdr.to,hdr.destzone,hdr.destnet,hdr.destnode,str);
-printf("%s ",info);
-
-if(!(misc&IMPORT_NETMAIL)) {
- if(!path[0]) {
- fmsgbuf=getfmsg(fidomsg,&l);
- if(!fmsgbuf) {
- printf("ERROR Netmail allocation");
- logprintf("ERROR line %d netmail allocation",__LINE__);
- return(2); }
-
- if(!l && misc&KILL_EMPTY_MAIL)
- printf("Empty NetMail - ");
- else {
- for(i=1;i;i++) {
- sprintf(str,"%s%u.MSG",netmail_dir,i);
- if(!fexist(str))
- break; }
- if(!i) {
- printf("Too many netmail messages");
- logprintf("Too many netmail messages");
- return(2); }
- if((i=nopen(str,O_WRONLY|O_CREAT))==-1) {
- printf("ERROR opening %s",str);
- logprintf("ERROR opening %s",str);
- return(2); }
- write(i,&hdr,sizeof(hdr));
- write(i,fmsgbuf,strlen((char *)fmsgbuf)+1); /* Write the NULL too */
- close(i); }
- FREE(fmsgbuf); }
- printf("Ignored");
- if(cfg.log&LOG_IGNORED)
- logprintf("%s Ignored",info);
- return(-1); }
-
-if(hdr.attr&FIDO_ORPHAN) {
- printf("Orphaned");
- return(1); }
-if(!(misc&IGNORE_ADDRESS) && match==total_faddrs && path[0]) {
- printf("Skipped");
- return(2); }
-if(!(misc&IGNORE_RECV) && hdr.attr&FIDO_RECV) {
- printf("Already received");
- return(3); }
-if(hdr.attr&FIDO_LOCAL && !(misc&LOCAL_NETMAIL)) {
- printf("Created locally");
- return(4); }
-
-if(email->shd_fp==NULL) {
- sprintf(email->file,"%sMAIL",data_dir);
- email->retry_time=smb_retry_time;
- if((i=smb_open(email))!=0) {
- printf("ERROR %d opening %s\n",i,email->file);
- logprintf("ERROR %d line %d opening %s",i,__LINE__,email->file);
- exit(1); } }
-
-if(!filelength(fileno(email->shd_fp))) {
- email->status.max_crcs=mail_maxcrcs;
- email->status.max_msgs=MAX_SYSMAIL;
- email->status.max_age=mail_maxage;
- email->status.attr=SMB_EMAIL;
- if((i=smb_create(email))!=0) {
- sprintf(str,"ERROR %d creating %s",i,email->file);
- printf("%s\n",str);
- logprintf(str);
- exit(1); } }
-
-if(!stricmp(hdr.to,"AREAFIX") || !stricmp(hdr.to,"SBBSECHO")) {
- fmsgbuf=getfmsg(fidomsg,NULL);
- if(path[0]) {
- if(misc&DELETE_NETMAIL) {
- fclose(fidomsg);
- if(delfile(path))
- logprintf("ERROR line %d removing %s %s",__LINE__,path
- ,sys_errlist[errno]); }
- else {
- hdr.attr|=FIDO_RECV;
- fseek(fidomsg,0L,SEEK_SET);
- fwrite(&hdr,sizeof(fmsghdr_t),1,fidomsg);
- fclose(fidomsg); } } /* Gotta close it here for areafix stuff */
- addr.zone=hdr.origzone;
- addr.net=hdr.orignet;
- addr.node=hdr.orignode;
- addr.point=hdr.origpoint;
- strcpy(hdr.to,sys_op);
- strcpy(hdr.from,"SBBSecho");
- strcpy(str,hdr.subj);
- strcpy(hdr.subj,"Areafix Request");
- hdr.origzone=hdr.orignet=hdr.orignode=hdr.origpoint=0;
- p=process_areafix(addr,fmsgbuf,str);
-#if 0 // Not necessary with SMBLIB v2.0
- if((i=smb_locksmbhdr(email))!=0) {
- printf("ERROR %d locking %s smbhdr",i,email->file);
- logprintf("ERROR %d line %d locking %s smbhdr",i,__LINE__,email->file);
- exit(1); }
- if((i=smb_getstatus(email))!=0) {
- printf("ERROR %d reading %s status header",i,email->file);
- logprintf("ERROR %d line %d reading %s status header",i,__LINE__
- ,email->file);
- exit(1); }
-#endif
- if(p && cfg.notify)
- if(fmsgtosmsg(p,hdr,cfg.notify,INVALID_SUB)==1) {
- sprintf(str,"\7\1n\1hSBBSecho \1n\1msent you mail\r\n");
- putsmsg(cfg.notify,str); }
-// smb_unlocksmbhdr(email);
- if(fmsgbuf)
- FREE(fmsgbuf);
- if(cfg.log&LOG_AREAFIX)
- logprintf(info);
- return(-2); }
-
-usernumber=atoi(hdr.to);
-if(!stricmp(hdr.to,"SYSOP")) /* NetMail to "sysop" goes to #1 */
- usernumber=1;
-if(!usernumber && match<total_faddrs)
- usernumber=matchname(hdr.to);
-if(!usernumber) {
- if(misc&UNKNOWN_NETMAIL && match<total_faddrs) /* receive unknown user */
- usernumber=1; /* mail to 1 */
- else {
- if(match<total_faddrs) {
- printf("Unknown user ");
- if(cfg.log&LOG_UNKNOWN)
- logprintf("%s Unknown user",info); }
-/***
- hdr.attr|=FIDO_ORPHAN;
- fseek(fidomsg,0L,SEEK_SET);
- fwrite(&hdr,sizeof(fmsghdr_t),1,fidomsg);
-***/
- if(!path[0]) {
- fmsgbuf=getfmsg(fidomsg,&l);
- if(!fmsgbuf) {
- printf("ERROR Netmail allocation");
- logprintf("ERROR line %d netmail allocation",__LINE__);
- return(2); }
- if(!l && misc&KILL_EMPTY_MAIL) {
- printf("Empty NetMail - Ignored");
- if(cfg.log&LOG_IGNORED)
- logprintf("%s Empty - Ignored",info); }
- else {
- for(i=1;i;i++) {
- sprintf(str,"%s%u.MSG",netmail_dir,i);
- if(!fexist(str))
- break; }
- if(!i) {
- printf("Too many netmail messages");
- logprintf("Too many netmail messages");
- return(2); }
- if((i=nopen(str,O_WRONLY|O_CREAT))==-1) {
- printf("ERROR opening %s",str);
- logprintf("ERROR opening %s",str);
- return(2); }
- write(i,&hdr,sizeof(hdr));
- write(i,fmsgbuf,strlen((char *)fmsgbuf)+1); /* Write the NULL too */
- close(i); }
- FREE(fmsgbuf); }
- return(2); } }
-
-/*********************/
-/* Importing NetMail */
-/*********************/
-
-fmsgbuf=getfmsg(fidomsg,&l);
-
-#if 0 // Unnecessary with SMBLIB v2.0
-if((i=smb_locksmbhdr(email))!=0) {
- printf("ERROR %d locking %s smbhdr",i,email->file);
- logprintf("ERROR %d line %d locking %s smbhdr",i,__LINE__,email->file);
- exit(1); }
-if((i=smb_getstatus(email))!=0) {
- printf("ERROR %d reading %s status header",i,email->file);
- logprintf("ERROR %d line %d reading %s status header"
- ,i,__LINE__,email->file);
- exit(1); }
-#endif
-
-if(!l && misc&KILL_EMPTY_MAIL) {
- printf("Empty NetMail - Ignored");
- if(cfg.log&LOG_IGNORED)
- logprintf("%s Empty - Ignored",info);
- if(fmsgbuf)
- FREE(fmsgbuf);
- return(0); }
-
-i=fmsgtosmsg(fmsgbuf,hdr,usernumber,INVALID_SUB);
-if(i!=1) {
- printf("ERROR (%d) Importing",i);
- logprintf("ERROR (%d) Importing %s",i,info);
- if(fmsgbuf)
- FREE(fmsgbuf);
- return(10); }
-
-addr.zone=hdr.origzone;
-addr.net=hdr.orignet;
-addr.node=hdr.orignode;
-addr.point=hdr.origpoint;
-sprintf(str,"\7\1n\1hSBBSecho: \1m%.36s \1n\1msent you NetMail from "
- "\1h%s\1n\r\n",hdr.from,faddrtoa(addr));
-putsmsg(usernumber,str);
-
-if(hdr.attr&FIDO_FILE) { /* File attachment */
- strcpy(subj,hdr.subj);
- tp=subj;
- while(1) {
- p=strchr(tp,SP);
- if(p) *p=0;
- sp=strrchr(tp,'/'); /* sp is slash pointer */
- if(!sp) sp=strrchr(tp,'\\');
- if(sp) tp=sp+1;
- sprintf(str,"%s%s",fidofile_dir,tp);
- sprintf(tmp,"%sFILE\\%04u.IN",data_dir,usernumber);
- mkdir(tmp);
- strcat(tmp,"\\");
- strcat(tmp,tp);
- mv(str,tmp,0);
- if(!p)
- break;
- tp=p+1; } }
-netmail++;
-
-if(fmsgbuf)
- FREE(fmsgbuf);
-
-/***************************/
-/* Updating message header */
-/***************************/
-/*** NOT packet compatible
-if(!(misc&DONT_SET_RECV)) {
- hdr.attr|=FIDO_RECV;
- fseek(fidomsg,0L,SEEK_SET);
- fwrite(&hdr,sizeof(fmsghdr_t),1,fidomsg); }
-***/
-if(cfg.log&LOG_IMPORTED)
- logprintf("%s Imported",info);
-return(0);
-}
-
-/******************************************************************************
- This is where we export echomail. This was separated from function main so
- it could be used for the remote rescan function. Passing anything but an
- empty address as 'addr' designates that a rescan should be done for that
- address.
-******************************************************************************/
-void export_echomail(char *sub_code,faddr_t addr)
-{
- char str[1025],tear,cr,HUGE16 *buf;
- uchar HUGE16 *fmsgbuf=NULL;
- int g,i,j,k,file;
- ulong f,l,m,exp,ptr,msgs,lastmsg,posts,exported=0;
- float export_time;
- smbmsg_t msg;
- fmsghdr_t hdr;
- struct tm *tm;
- faddr_t pkt_faddr;
- post_t HUGE16 *post;
- areasbbs_t fakearea,curarea;
- addrlist_t msg_seen,msg_path;
- clock_t start_tick=0,export_ticks=0;
-
-memset(&msg_seen,0,sizeof(addrlist_t));
-memset(&msg_path,0,sizeof(addrlist_t));
-memset(&pkt_faddr,0,sizeof(faddr_t));
-start_tick=0;
-
-printf("\nScanning for Outbound EchoMail...\n");
-
-for(g=0;g<total_grps;g++)
-for(i=0;i<total_subs;i++)
- if(sub[i]->misc&SUB_FIDO && sub[i]->grp==g) {
- for(j=0;j<cfg.areas;j++) /* Skip areas with no uplinks */
- if(cfg.area[j].sub==i)
- break;
- if(j==cfg.areas || (j<cfg.areas && !cfg.area[j].uplinks))
- continue;
- if(addr.zone) { /* Skip areas not meant for this address */
- if(j<cfg.areas)
- for(k=0;k<cfg.area[j].uplinks;k++)
- if(!memcmp(&cfg.area[j].uplink[k],&addr,sizeof(faddr_t)))
- break;
- if(k==cfg.area[j].uplinks)
- continue; }
- if(sub_code[0] && stricmp(sub_code,sub[i]->code))
- continue;
- printf("\nScanning %-15.15s %s\n"
- ,grp[sub[i]->grp]->sname,sub[i]->lname);
- ptr=0;
- if(!addr.zone && !(misc&IGNORE_MSGPTRS)) {
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_RDONLY))!=-1) {
- read(file,&ptr,sizeof(time_t));
- close(file); } }
-
- msgs=getlastmsg(i,&lastmsg,0);
- if(!msgs || (!addr.zone && !(misc&IGNORE_MSGPTRS) && ptr>=lastmsg)) {
- printf("No new messages.");
- if(ptr>lastmsg && !addr.zone && !(misc&LEAVE_MSGPTRS)) {
- printf("Fixing new-scan pointer.");
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1) {
- printf("\7ERROR opening/creating %s",str);
- logprintf("ERROR line %d opening/creating %s"
- ,__LINE__,str); }
- else {
- write(file,&lastmsg,4);
- close(file); } }
- continue; }
-
- sprintf(smb[cur_smb].file,"%s%s"
- ,sub[i]->data_dir,sub[i]->code);
- smb[cur_smb].retry_time=smb_retry_time;
- if((j=smb_open(&smb[cur_smb]))!=0) {
- printf("ERROR %d opening %s\n",j,smb[cur_smb].file);
- logprintf("ERROR %d line %d opening %s",j,__LINE__
- ,smb[cur_smb].file);
- continue; }
-
- post=NULL;
- posts=loadmsgs(&post,ptr);
-
- if(!posts) { /* no new messages */
- smb_close(&smb[cur_smb]);
- if(post)
- LFREE(post);
- continue; }
-
- if(start_tick)
- export_ticks+=clock()-start_tick;
- start_tick=clock();
-
- for(m=exp=0;m<posts;m++) {
- printf("\r%8s %5lu of %-5lu "
- ,sub[i]->code,m+1,posts);
- msg.idx.offset=post[m].offset;
- if((k=smb_lockmsghdr(&smb[cur_smb],&msg))!=0) {
- printf("ERROR %d locking %s msghdr\n",k,smb[cur_smb].file);
- logprintf("ERROR %d line %d locking %s msghdr\n"
- ,k,__LINE__,smb[cur_smb].file);
- continue; }
- k=smb_getmsghdr(&smb[cur_smb],&msg);
- if(k || msg.hdr.number!=post[m].number) {
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- smb_freemsgmem(&msg);
-
- msg.hdr.number=post[m].number;
- if((k=smb_getmsgidx(&smb[cur_smb],&msg))!=0) {
- printf("ERROR %d reading %s index\n",k,smb[cur_smb].file);
- logprintf("ERROR %d line %d reading %s index",k,__LINE__
- ,smb[cur_smb].file);
- continue; }
- if((k=smb_lockmsghdr(&smb[cur_smb],&msg))!=0) {
- printf("ERROR %d locking %s msghdr\n",k,smb[cur_smb].file);
- logprintf("ERROR %d line %d locking %s msghdr",k,__LINE__
- ,smb[cur_smb].file);
- continue; }
- if((k=smb_getmsghdr(&smb[cur_smb],&msg))!=0) {
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- printf("ERROR %d reading %s msghdr\n",k,smb[cur_smb].file);
- logprintf("ERROR %d line %d reading %s msghdr",k,__LINE__
- ,smb[cur_smb].file);
- continue; } }
-
- if((!addr.zone && !(misc&EXPORT_ALL)
- && msg.from_net.type==NET_FIDO)
- || !strnicmp(msg.subj,"NE:",3)) { /* no echo */
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- smb_freemsgmem(&msg);
- continue; } /* From a Fido node, ignore it */
-
- if(msg.from_net.type && msg.from_net.type!=NET_FIDO
- && !(sub[i]->misc&SUB_GATE)) {
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- smb_freemsgmem(&msg);
- continue; }
-
- memset(&hdr,0,sizeof(fmsghdr_t)); /* Zero the header */
- hdr.origzone=sub[i]->faddr.zone;
- hdr.orignet=sub[i]->faddr.net;
- hdr.orignode=sub[i]->faddr.node;
- hdr.origpoint=sub[i]->faddr.point;
-
- hdr.attr=FIDO_LOCAL;
- if(msg.hdr.attr&MSG_PRIVATE)
- hdr.attr|=FIDO_PRIVATE;
-
- sprintf(hdr.from,"%.35s",msg.from);
-
- tm=gmtime((time_t *)&msg.hdr.when_written.time);
- sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u"
- ,tm->tm_mday,mon[tm->tm_mon],TM_YEAR(tm->tm_year)
- ,tm->tm_hour,tm->tm_min,tm->tm_sec);
-
- sprintf(hdr.to,"%.35s",msg.to);
-
- sprintf(hdr.subj,"%.71s",msg.subj);
-
- buf=smb_getmsgtxt(&smb[cur_smb],&msg,GETMSGTXT_TAILS);
- if(!buf) {
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- smb_freemsgmem(&msg);
- continue; }
- fmsgbuf=MALLOC(strlen((char *)buf)+512);
- if(!fmsgbuf) {
- printf("ERROR allocating %lu bytes for fmsgbuf\n");
- logprintf("ERROR line %d allocating %lu bytes for fmsgbuf"
- ,__LINE__,strlen((char *)buf)+512);
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- smb_freemsgmem(&msg);
- continue; }
-
- tear=0;
- for(l=f=0,cr=1;buf[l];l++) {
- if(buf[l]==1) { /* Ctrl-A, so skip it and the next char */
- l++;
- if(!buf[l])
- break;
- continue; }
- if(buf[l]==LF) /* Ignore line feeds */
- continue;
- if(cr) {
- if(buf[l]=='-' && buf[l+1]=='-'
- && buf[l+2]=='-'
- && (buf[l+3]==SP || buf[l+3]==CR)) {
- if(misc&CONVERT_TEAR) /* Convert to === */
- buf[l]=buf[l+1]=buf[l+2]='=';
- else
- tear=1; }
- else if(!strncmp((char *)buf+l," * Origin: ",11))
- buf[l+1]='#'; } /* Convert * Origin into # Origin */
-
- if(buf[l]==CR)
- cr=1;
- else
- cr=0;
- if(sub[i]->misc&SUB_ASCII || misc&ASCII_ONLY) {
- if(buf[l]<SP && buf[l]!=CR) /* Ctrl ascii */
- buf[l]='.'; /* converted to '.' */
- if((uchar)buf[l]>0x7f) /* extended ASCII */
- buf[l]='*'; } /* converted to '*' */
-
- fmsgbuf[f++]=buf[l]; }
-
- FREE(buf);
- fmsgbuf[f]=0;
-
- if(!(sub[i]->misc&SUB_NOTAG)) {
- if(!tear) { /* No previous tear line */
- sprintf(str,"--- Synchronet+SBBSecho v%s\r",SBBSECHO_VER);
- strcat((char *)fmsgbuf,str); }
-
- sprintf(str," * Origin: %s (%s)\r"
- ,sub[i]->origline[0] ? sub[i]->origline : origline
- ,faddrtoa(sub[i]->faddr));
- strcat((char *)fmsgbuf,str); }
-
- for(k=0;k<cfg.areas;k++)
- if(cfg.area[k].sub==i) {
- cfg.area[k].exported++;
- pkt_to_pkt(fmsgbuf,cfg.area[k]
- ,(addr.zone) ? addr:pkt_faddr,hdr,msg_seen
- ,msg_path,(addr.zone) ? 2:0);
- break; }
- FREE(fmsgbuf);
- exported++;
- exp++;
- printf("Exp: %lu ",exp);
- smb_unlockmsghdr(&smb[cur_smb],&msg);
- smb_freemsgmem(&msg); }
-
- smb_close(&smb[cur_smb]);
- LFREE(post);
-
- /***********************/
- /* Update FIDO_PTR.DAB */
- /***********************/
- if(!addr.zone && !(misc&LEAVE_MSGPTRS) && lastmsg>ptr) {
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1) {
- printf("\7ERROR opening/creating %s",str);
- logprintf("ERROR line %d opening/creating %s",__LINE__,str); }
- else {
- write(file,&lastmsg,4);
- close(file); } } }
-
-printf("\n");
-if(start_tick) /* Last possible increment of export_ticks */
- export_ticks+=clock()-start_tick;
-
-pkt_to_pkt(buf,fakearea,pkt_faddr,hdr,msg_seen,msg_path,1);
-
-if(!addr.zone && cfg.log&LOG_AREA_TOTALS && exported)
- for(i=0;i<cfg.areas;i++)
- if(cfg.area[i].exported)
- logprintf("Exported: %5u msgs %8s -> %s"
- ,cfg.area[i].exported,sub[cfg.area[i].sub]->code
- ,cfg.area[i].name);
-
-export_time=((float)export_ticks)/(float)CLK_TCK;
-if(cfg.log&LOG_TOTALS && exported && export_time) {
- printf("\nExported %lu EchoMail messages in %.1f seconds "
- ,exported,export_time);
- logprintf("Exported: %5lu msgs in %.1f sec (%.1f/min %.1f/sec)"
- ,exported,export_time
- ,export_time/60.0 ? (float)exported/(export_time/60.0) :(float)exported
- ,(float)exported/export_time);
- if(export_time/60.0)
- printf("(%.1f/min) ",(float)exported/(export_time/60.0));
- printf("(%.1f/sec)\n",(float)exported/export_time); }
-
-}
-/***********************************/
-/* Synchronet/FidoNet Message util */
-/***********************************/
-int main(int argc, char **argv)
-{
- FILE *fidomsg;
- char ch,str[1025],fname[256],path[512],sub_code[9]
- ,*p,*tp,*sp,*buf,cr,tear,lzh
- ,areatagstr[129],packet[128],outbound[128]
- ,password[16];
- uchar HUGE16 *fmsgbuf=NULL;
- ushort xlat,attr;
- int i,j,k,n,x,y,z,last,file,fmsg,g,grunged;
- uint subnum[MAX_OPEN_SMBS]={INVALID_SUB};
- ulong files,msgfiles,echomail=0,crc,ptr,
- l,m,f,length,lastmsg,posts,msgs,exp,areatag;
- time_t now;
- float import_time;
- clock_t start_tick=0,import_ticks=0;
- read_cfg_text_t txt;
- struct find_t ff;
- struct tm *tm;
- fmsghdr_t hdr;
- faddr_t addr,pkt_faddr;
- post_t HUGE16 *post;
- FILE *stream,*fstream;
- smbmsg_t msg;
- pkthdr_t pkthdr;
- addrlist_t msg_seen,msg_path;
- areasbbs_t fakearea,curarea;
- char *usage="\n"
-"usage: sbbsecho [cfg_file] [/switches] [sub_code]\n"
-"\n"
-"where: cfg_file is the filename of config file (default is ctrl\\sbbsecho.cfg)\n"
-" sub_code is the internal code for a sub-board (default is ALL subs)\n"
-"\n"
-"valid switches:\n"
-"\n"
-"p: do not import packets x: do not delete packets after import\n"
-"n: do not import netmail d: do not delete netmail after import\n"
-"i: do not import echomail e: do not export echomail\n"
-"m: ignore echomail ptrs (export all) u: update echomail ptrs (export none)\n"
-"j: ignore recieved bit on netmail t: do not update echomail ptrs\n"
-"l: create log file (data\\sbbsecho.log) r: create report of import totals\n"
-"h: export all echomail (hub rescan) b: import locally created netmail too\n"
-"a: export ASCII characters only f: create packets for outbound netmail\n"
-"g: generate notify lists =: change existing tear lines to ===\n"
-"y: import netmail for unknown users to sysop\n"
-"o: import all netmail regardless of destination address\n"
-"s: import private echomail override (strip private status)\n"
-"!: notify users of received echomail\n";
-
-if((email=(smb_t *)MALLOC(sizeof(smb_t)))==NULL) {
- printf("ERROR allocating memory for email.\n");
- exit(1); }
-memset(email,0,sizeof(smb_t));
-if((smb=(smb_t *)MALLOC(MAX_OPEN_SMBS*sizeof(smb_t)))==NULL) {
- printf("ERROR allocating memory for smbs.\n");
- exit(1); }
-for(i=0;i<MAX_OPEN_SMBS;i++)
- memset(&smb[i],0,sizeof(smb_t));
-memset(&cfg,0,sizeof(config_t));
-memset(&msg_seen,0,sizeof(addrlist_t));
-memset(&msg_path,0,sizeof(addrlist_t));
-printf("\nSBBSecho Version %s (%s) SMBLIB %s � Synchronet FidoNet Packet "
- "Tosser\n"
- ,SBBSECHO_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- ,smb_lib_ver()
- );
-
-putenv("TZ=UCT0");
-putenv("TMP=");
-_fmode=O_BINARY;
-setvbuf(stdout,NULL,_IONBF,0);
-
-txt.openerr="\7\nError opening %s for read.\n";
-txt.reading="\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\nError allocating %u bytes of memory\n";
-txt.error="\7\nERROR: Offset %lu in %s\n\n";
-
-node_dir[0]=sub_code[0]=0;
-for(i=1;i<argc;i++) {
- if(argv[i][0]=='/') {
- j=1;
- while(argv[i][j]) {
- switch(toupper(argv[i][j])) {
- case 'A':
- misc|=ASCII_ONLY;
- break;
- case 'B':
- misc|=LOCAL_NETMAIL;
- break;
- case 'D':
- misc&=~DELETE_NETMAIL;
- break;
- case 'E':
- misc&=~EXPORT_ECHOMAIL;
- break;
- case 'F':
- misc|=PACK_NETMAIL;
- break;
- case 'G':
- misc|=GEN_NOTIFY_LIST;
- break;
- case 'H':
- misc|=EXPORT_ALL;
- break;
- case 'I':
- misc&=~IMPORT_ECHOMAIL;
- break;
- case 'J':
- misc|=IGNORE_RECV;
- break;
- case 'L':
- misc|=LOGFILE;
- break;
- case 'M':
- misc|=IGNORE_MSGPTRS;
- break;
- case 'N':
- misc&=~IMPORT_NETMAIL;
- break;
- case 'O':
- misc|=IGNORE_ADDRESS;
- break;
- case 'P':
- misc&=~IMPORT_PACKETS;
- break;
- case 'R':
- misc|=REPORT;
- break;
- case 'S':
- misc|=IMPORT_PRIVATE;
- break;
- case 'T':
- misc|=LEAVE_MSGPTRS;
- break;
- case 'U':
- misc|=UPDATE_MSGPTRS;
- misc&=~EXPORT_ECHOMAIL;
- break;
- case 'X':
- misc&=~DELETE_PACKETS;
- break;
- case 'Y':
- misc|=UNKNOWN_NETMAIL;
- break;
- case '=':
- misc|=CONVERT_TEAR;
- break;
- case '!':
- misc|=NOTIFY_RECEIPT;
- break;
- case 'Q':
- exit(0);
- default:
- printf(usage);
- exit(0); }
- j++; } }
- else {
- if(strchr(argv[i],'\\') || argv[i][1]==':' || strchr(argv[i],'.'))
- sprintf(cfg.cfgfile,"%.100s",argv[i]);
- else
- sprintf(sub_code,"%.8s",argv[i]); } }
-
-if(!(misc&(IMPORT_NETMAIL|IMPORT_ECHOMAIL)))
- misc&=~IMPORT_PACKETS;
-if(!node_dir[0]) {
- p=getenv("SBBSNODE");
- if(p==NULL) {
- printf("\7\nSBBSNODE environment variable not set.\n");
- exit(1); }
- strcpy(node_dir,p); }
-
-strupr(node_dir);
-
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str);
- if(_fullpath(str,ctrl_dir,40))
- strcpy(ctrl_dir,str); }
-backslash(ctrl_dir);
-
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str);
- if(_fullpath(str,data_dir,40))
- strcpy(data_dir,str); }
-backslash(data_dir);
-if(text_dir[0]=='.') { /* Relative path */
- strcpy(str,text_dir);
- sprintf(text_dir,"%s%s",node_dir,str);
- if(_fullpath(str,text_dir,40))
- strcpy(text_dir,str); }
-backslash(text_dir);
-read_msgs_cfg(txt);
-
-#ifndef __FLAT__
-
-__spawn_ext = (node_swap & SWAP_EXT) != 0 ;
-__spawn_ems = (node_swap & SWAP_EMS) != 0 ;
-__spawn_xms = (node_swap & SWAP_XMS) != 0 ;
-
-#endif
-
-if(total_faddrs<1) {
- sys_faddr.zone=sys_faddr.net=sys_faddr.node=1;
- sys_faddr.point=0; }
-else
- sys_faddr=faddr[0];
-
-sprintf(str,"%s%s",ctrl_dir,"NODE.DAB");
-if((nodefile=sopen(str,O_BINARY|O_RDWR,SH_DENYNO))==-1) {
- printf("\n\7ERROR opening %s\n",str);
- exit(1); }
-
-if(!cfg.cfgfile[0])
- sprintf(cfg.cfgfile,"%sSBBSECHO.CFG",ctrl_dir);
-strcpy(cfg.inbound,fidofile_dir);
-sprintf(cfg.areafile,"%sAREAS.BBS",data_dir);
-sprintf(cfg.logfile,"%sSBBSECHO.LOG",data_dir);
-
-read_cfg();
-
-if(misc&LOGFILE)
- if((fidologfile=_fsopen(cfg.logfile,"ab",SH_DENYNO))==NULL) {
- printf("\7ERROR opening %s\n",cfg.logfile);
- exit(1); }
-
-if(exec_dir[0]!='\\' && exec_dir[1]!=':') {
- strcpy(path,node_dir);
- strcat(path,exec_dir);
- if(_fullpath(str,path,40))
- strcpy(path,str);
- backslash(path); }
-else
- strcpy(path,exec_dir);
-
-/******* READ IN AREAS.BBS FILE *********/
-
-printf("Reading %s",cfg.areafile);
-if((stream=fnopen(&file,cfg.areafile,O_RDONLY))==NULL) {
- printf("Unable to open %s for read.\n",cfg.areafile);
- exit(1); }
-cfg.areas=0; /* Total number of areas in AREAS.BBS */
-cfg.area=NULL;
-while(1) {
- if(!fgets(str,1024,stream))
- break;
- truncsp(str);
- p=str;
- while(*p && *p<=SP) p++; /* Find first printable char */
- if(*p==';' || !*p) /* Ignore blank lines or start with ; */
- continue;
- if((cfg.area=(areasbbs_t *)REALLOC(cfg.area,sizeof(areasbbs_t)*
- (cfg.areas+1)))==NULL) {
- printf("ERROR allocating memory for area #%u.\n",cfg.areas+1);
- exit(1); }
- memset(&cfg.area[cfg.areas],0,sizeof(areasbbs_t));
-
- cfg.area[cfg.areas].sub=INVALID_SUB; /* Default to passthru */
-
- sprintf(tmp,"%-.8s",p);
- tp=tmp;
- while(*tp>SP) tp++;
- *tp=0;
- for(i=0;i<total_subs;i++)
- if(!stricmp(tmp,sub[i]->code))
- break;
- if(i<total_subs)
- cfg.area[cfg.areas].sub=i;
- else if(stricmp(tmp,"P")) {
- printf("\n%s: Unrecongized internal code, assumed passthru",tmp);
- logprintf("%s: Unrecognized internal code, assumed passthru",tmp); }
-
- while(*p>SP) p++; /* Skip code */
- while(*p && *p<=SP) p++; /* Skip white space */
- sprintf(tmp,"%-.50s",p); /* Area tag */
- if((tp=strchr(tmp,TAB))!=NULL) /* Chop off any TABs */
- *tp=0;
- if((tp=strchr(tmp,SP))!=NULL) /* Chop off any spaces */
- *tp=0;
- strupr(tmp);
- if(tmp[0]=='*') /* UNKNOWN-ECHO area */
- cfg.badecho=cfg.areas;
- if((cfg.area[cfg.areas].name=(char *)MALLOC(strlen(tmp)+1))==NULL) {
- printf("ERROR allocating memory for area #%u tag name.\n"
- ,cfg.areas+1);
- exit(1); }
- strcpy(cfg.area[cfg.areas].name,tmp);
- strupr(tmp);
- cfg.area[cfg.areas].tag=crc32(tmp);
-
- while(*p>SP) p++; /* Skip tag */
- while(*p && *p<=SP) p++; /* Skip white space */
-
- while(*p && *p!=';') {
- if((cfg.area[cfg.areas].uplink=(faddr_t *)
- REALLOC(cfg.area[cfg.areas].uplink
- ,sizeof(faddr_t)*(cfg.area[cfg.areas].uplinks+1)))==NULL) {
- printf("ERROR allocating memory for area #%u uplinks.\n"
- ,cfg.areas+1);
- exit(1); }
- cfg.area[cfg.areas].uplink[cfg.area[cfg.areas].uplinks]=atofaddr(p);
- while(*p>SP) p++; /* Skip address */
- while(*p && *p<=SP) p++; /* Skip white space */
- cfg.area[cfg.areas].uplinks++; }
-
- if(cfg.area[cfg.areas].sub!=INVALID_SUB || cfg.area[cfg.areas].uplinks)
- cfg.areas++; /* Don't allocate if no tossing */
- }
-fclose(stream);
-
-printf("\n");
-
-if(!cfg.areas) {
- printf("No areas defined!\n");
- exit(1); }
-
-#if 0
- /* AREAS.BBS DEBUG */
- for(i=0;i<cfg.areas;i++) {
- printf("%4u: %-8s"
- ,i+1
- ,cfg.area[i].sub==INVALID_SUB ? "Passthru" :
- sub[cfg.area[i].sub]->code);
- for(j=0;j<cfg.area[i].uplinks;j++)
- printf(" %s",faddrtoa(cfg.area[i].uplink[j]));
- printf("\n"); }
-#endif
-
-if(misc&GEN_NOTIFY_LIST) {
-printf("\nGenerating Notify Lists...\n");
-notify_list(); }
-
-/* Find any packets that have been left behind in the OUTBOUND directory */
-printf("\nScanning for Stray Outbound Packets...\n");
-sprintf(path,"%s*.PK_",cfg.outbound);
-for(l=_dos_findfirst(path,0,&ff);!l && !kbhit();l=_dos_findnext(&ff)) {
- sprintf(packet,"%s%s",cfg.outbound,ff.name);
- printf("%21s: %s ","Outbound Packet",packet);
- if((fmsg=sopen(packet,O_RDWR,SH_DENYRW))==-1) {
- printf("ERROR opening.\n");
- logprintf("ERROR line %d opening %s",__LINE__,packet);
- continue; }
- if((fidomsg=fdopen(fmsg,"r+b"))==NULL) {
- close(fmsg);
- printf("\7ERROR fdopening.\n");
- logprintf("ERROR line %d fdopening %s",__LINE__,packet);
- continue; }
- if(filelength(fmsg)<sizeof(pkthdr_t)) {
- printf("ERROR invalid length of %u bytes for %s\n",filelength(fmsg)
- ,packet);
- logprintf("ERROR line %d invalid length of %u bytes for %s"
- ,__LINE__,filelength(fmsg),packet);
- fclose(fidomsg);
- if(delfile(packet))
- logprintf("ERROR line %d removing %s %s",__LINE__,packet
- ,sys_errlist[errno]);
- continue; }
- if(fread(&pkthdr,sizeof(pkthdr_t),1,fidomsg)!=1) {
- fclose(fidomsg);
- printf("\7ERROR reading %u bytes from %s\n",sizeof(pkthdr_t),packet);
- logprintf("ERROR line %d reading %u bytes from %s",__LINE__
- ,sizeof(pkthdr_t),packet);
- continue; }
- if((ddtol(ff.wr_time,ff.wr_date)+(60L*60L))<=time(NULL)) {
- fseek(fidomsg,-3L,SEEK_END);
- fread(str,3,1,fidomsg);
- if(str[2]) /* No ending NULL, probably junk */
- fputc(0,fidomsg);
- if(str[1])
- fputc(0,fidomsg);
- if(str[0])
- fputc(0,fidomsg);
- fclose(fidomsg);
- pkt_faddr.zone=pkthdr.destzone;
- pkt_faddr.net=pkthdr.destnet;
- pkt_faddr.node=pkthdr.destnode;
- pkt_faddr.point=0; /* No point info in the 2.0 hdr! */
- memcpy(&two_plus,&pkthdr.empty,20);
- if(two_plus.cword==_rotr(two_plus.cwcopy,8) /* 2+ Packet Header */
- && two_plus.cword && two_plus.cword&1)
- pkt_faddr.point=two_plus.destpoint;
- else if(pkthdr.baud==2) { /* Type 2.2 Packet Header */
- memcpy(&two_two,&pkthdr.empty,20);
- pkt_faddr.point=pkthdr.month; }
- printf("Sending to %s\n",faddrtoa(pkt_faddr));
- pack_bundle(packet,pkt_faddr); }
- else {
- fclose(fidomsg);
- printf("Possibly still in use (%u minutes old)\n"
- ,(time(NULL)-ddtol(ff.wr_time,ff.wr_date))/60); } }
-#ifdef __WATCOMC__
-_dos_findclose(&ff);
-#endif
-
-if(misc&IMPORT_PACKETS) {
-
-printf("\nScanning for Inbound Packets...\n");
-
-/* We want to loop while there are bundles waiting for us, but first we want */
-/* to take care of any packets that may already be hanging around for some */
-/* reason or another (thus the do/while loop) */
-
-echomail=0;
-for(secure=0;secure<2;secure++) {
- if(secure && !cfg.secure[0])
- break;
-do {
-/****** START OF IMPORT PKT ROUTINE ******/
-
-sprintf(path,"%s*.PKT",secure ? cfg.secure : cfg.inbound);
-for(l=_dos_findfirst(path,0,&ff);!l && !kbhit();l=_dos_findnext(&ff)) {
-
- sprintf(packet,"%s%s",secure ? cfg.secure : cfg.inbound,ff.name);
-
- if((fidomsg=fnopen(&fmsg,packet,O_RDWR))==NULL) {
- printf("\7ERROR opening %s\n",packet);
- logprintf("ERROR line %d opening %s %s",__LINE__,packet
- ,sys_errlist[errno]);
- continue; }
- if(filelength(fmsg)<sizeof(pkthdr_t)) {
- printf("\7Invalid length of %u bytes\n",filelength(fmsg));
- fclose(fidomsg);
- continue; }
-
- fseek(fidomsg,-2L,SEEK_END);
- fread(str,2,1,fidomsg);
- if((str[0] || str[1]) &&
- (ddtol(ff.wr_time,ff.wr_date)+(48L*60L*60L))<=time(NULL)) {
- fclose(fidomsg);
- printf("\7ERROR packet %s not terminated correctly\n",packet);
- logprintf("ERROR line %d packet %s not terminated correctly",__LINE__
- ,packet);
- continue; }
- fseek(fidomsg,0L,SEEK_SET);
- if(fread(&pkthdr,sizeof(pkthdr_t),1,fidomsg)!=1) {
- fclose(fidomsg);
- printf("\7ERROR reading %u bytes\n",sizeof(pkthdr_t));
- logprintf("ERROR line %d reading %u bytes from %s",__LINE__
- ,sizeof(pkthdr_t),packet);
- continue; }
-
- pkt_faddr.zone=pkthdr.origzone ? pkthdr.origzone:sys_faddr.zone;
- pkt_faddr.net=pkthdr.orignet;
- pkt_faddr.node=pkthdr.orignode;
- pkt_faddr.point=0;
-
- printf("%21s: %s "
- ,secure ? "Importing Secure Pkt" : "Importing Packet",ff.name);
- memcpy(&two_plus,&pkthdr.empty,20);
- if(two_plus.cword==_rotr(two_plus.cwcopy,8) /* 2+ Packet Header */
- && two_plus.cword && two_plus.cword&1) {
- pkt_type=PKT_TWO_PLUS;
- pkt_faddr.point=two_plus.origpoint ? two_plus.origpoint:0;
- if(pkt_faddr.point && pkthdr.orignet==-1)
- pkt_faddr.net=two_plus.auxnet ? two_plus.auxnet:sys_faddr.zone;
- printf("(Type 2+)");
- if(cfg.log&LOG_PACKETS)
- logprintf("Importing %s%s (Type 2+) from %s"
- ,secure ? "(secure) ":"",ff.name,faddrtoa(pkt_faddr)); }
- else if(pkthdr.baud==2) { /* Type 2.2 Packet Header */
- pkt_type=PKT_TWO_TWO;
- memcpy(&two_two,&pkthdr.empty,20);
- pkt_faddr.point=pkthdr.year ? pkthdr.year:0;
- printf("(Type 2.2)");
- if(cfg.log&LOG_PACKETS)
- logprintf("Importing %s%s (Type 2.2) from %s"
- ,secure ? "(secure) ":"",ff.name,faddrtoa(pkt_faddr)); }
- else {
- pkt_type=PKT_TWO;
- printf("(Type 2)");
- if(cfg.log&LOG_PACKETS)
- logprintf("Importing %s%s (Type 2) from %s"
- ,secure ? "(secure) ":"",ff.name,faddrtoa(pkt_faddr)); }
-
- printf(" from %s\n",faddrtoa(pkt_faddr));
-
- if(misc&SECURE) {
- k=matchnode(pkt_faddr,1);
- sprintf(password,"%.8s",pkthdr.password);
- if(k<cfg.nodecfgs && cfg.nodecfg[k].pktpwd[0] &&
- stricmp(password,cfg.nodecfg[k].pktpwd)) {
- sprintf(str,"Packet %s from %s - "
- "Incorrect password ('%s' instead of '%s')"
- ,ff.name,faddrtoa(pkt_faddr)
- ,password,cfg.nodecfg[k].pktpwd);
- printf("Security Violation (Incorrect Password)\n");
- if(cfg.log&LOG_SECURITY)
- logprintf(str);
- fclose(fidomsg);
- continue; } }
-
- while(!feof(fidomsg)) {
-
- memset(&hdr,0,sizeof(fmsghdr_t));
-
- if(start_tick)
- import_ticks+=clock()-start_tick;
- start_tick=clock();
-
- if(fmsgbuf) {
- FREE(fmsgbuf);
- fmsgbuf=0; }
- if(misc&CHECKMEM)
- checkmem();
- if(!fread(&ch,1,1,fidomsg)) /* Message type (0200h) */
- break;
- if(ch!=02)
- continue;
- if(!fread(&ch,1,1,fidomsg))
- break;
- if(ch!=00)
- continue;
- fread(&hdr.orignode,2,1,fidomsg);
- fread(&hdr.destnode,2,1,fidomsg);
- fread(&hdr.orignet,2,1,fidomsg);
- fread(&hdr.destnet,2,1,fidomsg);
- fread(&hdr.attr,2,1,fidomsg);
- fread(&hdr.cost,2,1,fidomsg);
-
- grunged=0;
-
- for(i=0;i<sizeof(hdr.time);i++) /* Read in the Date/Time */
- if(!fread(hdr.time+i,1,1,fidomsg) || !hdr.time[i])
- break;
- if(i==sizeof(hdr.time)) grunged=1;
-
- for(i=0;!grunged && i<sizeof(hdr.to);i++) /* Read in the 'To' Field */
- if(!fread(hdr.to+i,1,1,fidomsg) || !hdr.to[i])
- break;
- if(i==sizeof(hdr.to)) grunged=1;
-
- for(i=0;!grunged && i<sizeof(hdr.from);i++) /* Read in 'From' Field */
- if(!fread(hdr.from+i,1,1,fidomsg) || !hdr.from[i])
- break;
- if(i==sizeof(hdr.from)) grunged=1;
-
- for(i=0;!grunged && i<sizeof(hdr.subj);i++) /* Read in 'Subj' Field */
- if(!fread(hdr.subj+i,1,1,fidomsg) || !hdr.subj[i])
- break;
- if(i==sizeof(hdr.subj)) grunged=1;
-
- str[0]=0;
- for(i=0;!grunged && i<sizeof(str);i++) /* Read in the 'AREA' Field */
- if(!fread(str+i,1,1,fidomsg) || str[i]==CR)
- break;
- if(i<sizeof(str))
- str[i]=0;
- else
- grunged=1;
-
- if(!str[0] || grunged) {
- start_tick=0;
- if(cfg.log&LOG_GRUNGED)
- logprintf("Grunged message");
- seektonull(fidomsg);
- printf("Grunged message!\n");
- continue; }
-
- if(i)
- fseek(fidomsg,(long)-(i+1),SEEK_CUR);
-
- truncsp(str);
- strupr(str);
- p=strstr(str,"AREA:");
- if(!p) { /* Netmail */
- start_tick=0;
- if(import_netmail("",hdr,fidomsg))
- seektonull(fidomsg);
- printf("\n");
- continue; }
-
- if(!(misc&IMPORT_ECHOMAIL)) {
- start_tick=0;
- printf("EchoMail Ignored");
- seektonull(fidomsg);
- printf("\n");
- continue; }
-
- p+=5; /* Skip "AREA:" */
- while(*p && *p<=SP) p++; /* Skip any white space */
- printf("%21s: ",p); /* Show areaname: */
- sprintf(areatagstr,"%.128s",p);
- strupr(p);
- areatag=crc32(p);
-
- for(i=0;i<cfg.areas;i++) /* Do we carry this area? */
- if(cfg.area[i].tag==areatag) {
- if(cfg.area[i].sub!=INVALID_SUB)
- printf("%s ",sub[cfg.area[i].sub]->code);
- else
- printf("(Passthru) ");
- fmsgbuf=getfmsg(fidomsg,NULL);
- gen_psb(&msg_seen,&msg_path,fmsgbuf,pkthdr.destzone);
- break; }
-
- if(i==cfg.areas) {
- printf("(Unknown) ");
- if(cfg.badecho>=0) {
- i=cfg.badecho;
- if(cfg.area[i].sub!=INVALID_SUB)
- printf("%s ",sub[cfg.area[i].sub]->code);
- else
- printf("(Passthru) ");
- fmsgbuf=getfmsg(fidomsg,NULL);
- gen_psb(&msg_seen,&msg_path,fmsgbuf,pkthdr.destzone); }
- else {
- start_tick=0;
- printf("Skipped\n");
- seektonull(fidomsg);
- continue; } }
-
- if(misc&SECURE && cfg.area[i].sub!=INVALID_SUB) {
- for(j=0;j<cfg.area[i].uplinks;j++)
- if(!memcmp(&cfg.area[i].uplink[j],&pkt_faddr,sizeof(faddr_t)))
- break;
- if(j==cfg.area[i].uplinks) {
- if(cfg.log&LOG_SECURITY)
- logprintf("%s: Security violation - %s not in AREAS.BBS"
- ,areatagstr,faddrtoa(pkt_faddr));
- printf("Security Violation (Not in AREAS.BBS)\n");
- seektonull(fidomsg);
- continue; } }
-
- /* From here on out, i = area number and area[i].sub = sub number */
-
- memcpy(&curarea,&cfg.area[i],sizeof(areasbbs_t));
- curarea.name=areatagstr;
-
- if(cfg.area[i].sub==INVALID_SUB) { /* Passthru */
- start_tick=0;
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen,msg_path,0);
- printf("\n");
- continue; } /* On to the next message */
-
-
- for(j=0;j<total_faddrs;j++)
- if(check_psb(msg_path,faddr[j]))
- break;
- if(j<total_faddrs) {
- start_tick=0;
- printf("Circular path (%s) ",faddrtoa(faddr[j]));
- cfg.area[i].circular++;
- if(cfg.log&LOG_CIRCULAR)
- logprintf("%s: Circular path detected for %s"
- ,areatagstr,faddrtoa(faddr[j]));
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen,msg_path,0);
- printf("\n");
- continue; }
-
-#if 0 // Allen's way (broken?)
- for(j=0;j<num_open;j++)
- if(openbase[j]==cfg.area[i].sub)
- break;
- if(j && j<num_open) {
- cur_smb=j;
- k=openbase[0];
- openbase[0]=openbase[j];
- openbase[j]=k; }
- else if(j && j==num_open && j<MAX_OPEN_SMBS) {
- cur_smb=j;
- openbase[j]=openbase[0];
- openbase[0]=INVALID_SUB; }
- else if(j==num_open && j>=MAX_OPEN_SMBS) {
- cur_smb=j-1;
- k=openbase[0];
- openbase[0]=openbase[j-1];
- openbase[j-1]=k; }
-
- if(openbase[0]!=cfg.area[i].sub) {
- if(openbase[0]!=INVALID_SUB) {
- smb_close(&smb[cur_smb]);
- --num_open; }
-#endif
-
- // Rob's way
- for(j=0;j<MAX_OPEN_SMBS;j++)
- if(subnum[j]==cfg.area[i].sub)
- break;
- if(j<MAX_OPEN_SMBS) /* already open */
- cur_smb=j;
- else {
- if(smb[cur_smb].shd_fp) /* If open */
- cur_smb=!cur_smb; /* toggle between 0 and 1 */
- smb_close(&smb[cur_smb]); /* close, if open */
- subnum[cur_smb]=INVALID_SUB; } /* reset subnum (just incase) */
-
- if(smb[cur_smb].shd_fp==NULL) { /* Currently closed */
- sprintf(smb[cur_smb].file,"%s%s",sub[cfg.area[i].sub]->data_dir
- ,sub[cfg.area[i].sub]->code);
- smb[cur_smb].retry_time=smb_retry_time;
- if((j=smb_open(&smb[cur_smb]))!=0) {
- sprintf(str,"ERROR %d opening %s area #%d, sub #%d)"
- ,j,smb[cur_smb].file,i+1,cfg.area[i].sub+1);
- printf(str);
- logprintf(str);
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen
- ,msg_path,0);
- printf("\n");
- continue; }
- if(!filelength(fileno(smb[cur_smb].shd_fp))) {
- smb[cur_smb].status.max_crcs=sub[cfg.area[i].sub]->maxcrcs;
- smb[cur_smb].status.max_msgs=sub[cfg.area[i].sub]->maxmsgs;
- smb[cur_smb].status.max_age=sub[cfg.area[i].sub]->maxage;
- smb[cur_smb].status.attr=sub[cfg.area[i].sub]->misc&SUB_HYPER
- ? SMB_HYPERALLOC:0;
- if((j=smb_create(&smb[cur_smb]))!=0) {
- sprintf(str,"ERROR %d creating %s",j,smb[cur_smb].file);
- printf(str);
- logprintf(str);
- smb_close(&smb[cur_smb]);
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen
- ,msg_path,0);
- printf("\n");
- continue; } }
-
-#if 0 // Unnecessary with SMBLIB v2.0
-
- if((j=smb_locksmbhdr(&smb[cur_smb]))!=0) {
- printf("ERROR %d locking %s smbhdr\n",j,smb[cur_smb].file);
- logprintf("ERROR %d line %d locking %s smbhdr",j,__LINE__
- ,smb[cur_smb].file);
- smb_close(&smb[cur_smb]);
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen
- ,msg_path,0);
- printf("\n");
- continue; }
-
- if((j=smb_getstatus(&smb[cur_smb]))!=0) {
- sprintf(str,"ERROR %d reading %s SMB header",j
- ,smb[cur_smb].file);
- printf(str);
- logprintf(str);
- smb_unlocksmbhdr(&smb[cur_smb]);
- smb_close(&smb[cur_smb]);
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen
- ,msg_path,0);
- printf("\n");
- continue; }
-
- smb_unlocksmbhdr(&smb[cur_smb]);
-#endif
- //openbase[0]=cfg.area[i].sub;
- //++num_open;
- subnum[cur_smb]=cfg.area[i].sub;
- }
-
- if(hdr.attr&FIDO_PRIVATE && !(sub[cfg.area[i].sub]->misc&SUB_PRIV)) {
- if(misc&IMPORT_PRIVATE)
- hdr.attr&=~FIDO_PRIVATE;
- else {
- start_tick=0;
- printf("Private posts disallowed.");
- if(cfg.log&LOG_PRIVATE)
- logprintf("%s: Private posts disallowed"
- ,areatagstr);
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr,hdr,msg_seen
- ,msg_path,0);
- printf("\n");
- continue; } }
-
- if(!(hdr.attr&FIDO_PRIVATE) && sub[cfg.area[i].sub]->misc&SUB_PONLY)
- hdr.attr|=MSG_PRIVATE;
-
- /**********************/
- /* Importing EchoMail */
- /**********************/
- j=fmsgtosmsg(fmsgbuf,hdr,0,cfg.area[i].sub);
-
- if(start_tick) {
- import_ticks+=clock()-start_tick;
- start_tick=0; }
-
- if(j==-1) {
- if(cfg.log&LOG_DUPES)
- logprintf("%s Duplicate message",areatagstr);
- cfg.area[i].dupes++; }
- else { /* Not a dupe */
- strip_psb(fmsgbuf);
- pkt_to_pkt(fmsgbuf,curarea,pkt_faddr
- ,hdr,msg_seen,msg_path,0); }
-
- if(j==1) { /* Successful import */
- echomail++;
- cfg.area[i].imported++;
- if(misc&NOTIFY_RECEIPT && (m=matchname(hdr.to))!=0) {
- sprintf(str
- ,"\7\1n\1hSBBSecho: \1m%.36s \1n\1msent you EchoMail on "
- "\1h%s \1n\1m%s\1n\r\n"
- ,hdr.from
- ,grp[sub[cfg.area[i].sub]->grp]->sname
- ,sub[cfg.area[i].sub]->sname);
- putsmsg(m,str); } }
- printf("\n");
- }
- fclose(fidomsg);
-
- if(misc&DELETE_PACKETS)
- if(delfile(packet))
- logprintf("ERROR line %d removing %s %s",__LINE__,packet
- ,sys_errlist[errno]); }
-#ifdef __WATCOMC__
-_dos_findclose(&ff);
-#endif
-
-if(start_tick) {
- import_ticks+=clock()-start_tick;
- start_tick=0; }
-
-} while(!kbhit() && unpack_bundle());
-
-if(kbhit()) printf("\nKey pressed - premature termination\n");
-while(kbhit()) getch();
-
-} /* End of Secure : Inbound loop */
-
-if(start_tick) /* Last possible increment of import_ticks */
- import_ticks+=clock()-start_tick;
-
-for(j=MAX_OPEN_SMBS-1;(int)j>=0;j--) /* Close open bases */
- if(smb[j].shd_fp)
- smb_close(&smb[j]);
-
-pkt_to_pkt(fmsgbuf,fakearea,pkt_faddr,hdr,msg_seen,msg_path,1);
-
-/******* END OF IMPORT PKT ROUTINE *******/
-
-if(cfg.log&LOG_AREA_TOTALS) {
- for(i=0;i<cfg.areas;i++) {
- if(cfg.area[i].imported)
- logprintf("Imported: %5u msgs %8s <- %s"
- ,cfg.area[i].imported,sub[cfg.area[i].sub]->code
- ,cfg.area[i].name); }
- for(i=0;i<cfg.areas;i++) {
- if(cfg.area[i].circular)
- logprintf("Circular: %5u detected in %s"
- ,cfg.area[i].circular,cfg.area[i].name); }
- for(i=0;i<cfg.areas;i++) {
- if(cfg.area[i].dupes)
- logprintf("Duplicate: %5u detected in %s"
- ,cfg.area[i].dupes,cfg.area[i].name); } }
-
-import_time=((float)import_ticks)/(float)CLK_TCK;
-if(cfg.log&LOG_TOTALS && import_time && echomail) {
- printf("\nImported %lu EchoMail messages in %.1f seconds "
- ,echomail,import_time);
- logprintf("Imported: %5lu msgs in %.1f sec (%.1f/min %.1f/sec)"
- ,echomail,import_time
- ,import_time/60.0 ? (float)echomail/(import_time/60.0) :(float)echomail
- ,(float)echomail/import_time);
- if(import_time/60.0)
- printf("(%.1f/min) ",(float)echomail/(import_time/60.0));
- printf("(%.1f/sec)\n",(float)echomail/import_time); }
-if(fmsgbuf) {
- FREE(fmsgbuf);
- fmsgbuf=0; }
-
-}
-
-if(misc&IMPORT_NETMAIL) {
-
-printf("\nScanning for Inbound NetMail Messages...\n");
-
-sprintf(str,"%s*.MSG",netmail_dir);
-
-for(last=_dos_findfirst(str,0,&ff);!last;last=_dos_findnext(&ff)) {
- sprintf(path,"%s%s",netmail_dir,ff.name);
- strupr(path);
- if((fidomsg=fnopen(&fmsg,path,O_RDWR))==NULL) {
- printf("\7ERROR opening %s\n",path);
- logprintf("ERROR line %d opening %s %s",__LINE__,path
- ,sys_errlist[errno]);
- continue; }
- if(filelength(fmsg)<sizeof(fmsghdr_t)) {
- printf("\7ERROR invalid length of %u bytes for %s\n",filelength(fmsg)
- ,path);
- logprintf("ERROR line %d invalid length of %u bytes for %s",__LINE__
- ,filelength(fmsg),path);
- fclose(fidomsg);
- continue; }
- if(fread(&hdr,sizeof(fmsghdr_t),1,fidomsg)!=1) {
- fclose(fidomsg);
- printf("\7ERROR reading %u bytes from %s"
- ,sizeof(fmsghdr_t),path);
- logprintf("ERROR line %d reading %u bytes from %s",__LINE__
- ,sizeof(fmsghdr_t),path);
- continue; }
- i=import_netmail(path,hdr,fidomsg);
- /**************************************/
- /* Delete source netmail if specified */
- /**************************************/
- if(i==0) {
- if(misc&DELETE_NETMAIL) {
- fclose(fidomsg);
- if(delfile(path))
- logprintf("ERROR line %d removing %s %s",__LINE__,path
- ,sys_errlist[errno]); }
- else {
- hdr.attr|=FIDO_RECV;
- fseek(fidomsg,0L,SEEK_SET);
- fwrite(&hdr,sizeof(fmsghdr_t),1,fidomsg);
- fclose(fidomsg); } }
- else if(i!=-2)
- fclose(fidomsg);
- printf("\n");
- }
-#ifdef __WATCOMC__
-_dos_findclose(&ff);
-#endif
-}
-
-
-if(misc&EXPORT_ECHOMAIL) {
- memset(&addr,0,sizeof(faddr_t));
- export_echomail(sub_code,addr);
-}
-
-
-if(misc&PACK_NETMAIL) {
-
-memset(&msg_seen,0,sizeof(addrlist_t));
-memset(&msg_path,0,sizeof(addrlist_t));
-memset(&fakearea,0,sizeof(areasbbs_t));
-
-printf("\nPacking Outbound NetMail...\n");
-
-sprintf(str,"%s*.MSG",netmail_dir);
-
-for(last=_dos_findfirst(str,0,&ff);!last;last=_dos_findnext(&ff)) {
- sprintf(path,"%s%s",netmail_dir,ff.name);
- strupr(path);
- if((fidomsg=fnopen(&fmsg,path,O_RDWR))==NULL) {
- printf("\7ERROR opening %s\n",path);
- logprintf("ERROR line %d opening %s %s",__LINE__,path
- ,sys_errlist[errno]);
- continue; }
- if(filelength(fmsg)<sizeof(fmsghdr_t)) {
- printf("\7%s Invalid length of %u bytes\n",path,filelength(fmsg));
- fclose(fidomsg);
- continue; }
- if(fread(&hdr,sizeof(fmsghdr_t),1,fidomsg)!=1) {
- fclose(fidomsg);
- printf("\7ERROR reading %u bytes from %s"
- ,sizeof(fmsghdr_t),path);
- logprintf("ERROR line %d reading %u bytes from %s",__LINE__
- ,sizeof(fmsghdr_t),path);
- continue; }
- hdr.destzone=hdr.origzone=sys_faddr.zone;
- hdr.destpoint=hdr.origpoint=0;
- getzpt(fidomsg,&hdr); /* use kludge if found */
- addr.zone=hdr.destzone;
- addr.net=hdr.destnet;
- addr.node=hdr.destnode;
- addr.point=hdr.destpoint;
- for(i=0;i<total_faddrs;i++)
- if(!memcmp(&addr,&faddr[i],sizeof(faddr_t)))
- break;
- if(i<total_faddrs) { /* In-bound, so ignore */
- fclose(fidomsg);
- continue;
- }
- printf("\n%s to %s ",path,faddrtoa(addr));
- if(cfg.log&LOG_PACKING)
- logprintf("Packing %s (%s)",path,faddrtoa(addr));
- fmsgbuf=getfmsg(fidomsg,NULL);
- if(!fmsgbuf) {
- printf("ERROR allocating memory for NetMail fmsgbuf\n");
- logprintf("ERROR line %d allocating memory for NetMail fmsgbuf"
- ,__LINE__);
- exit(1); }
- fclose(fidomsg);
-
- if(misc&FLO_MAILER) {
- attr=0;
- i=matchnode(addr,0);
- if(i<cfg.nodecfgs)
- if(cfg.nodecfg[i].route.zone
- && !(hdr.attr&(FIDO_CRASH|FIDO_HOLD))) {
- addr=cfg.nodecfg[i].route; /* Routed */
- if(cfg.log&LOG_ROUTING)
- logprintf("Routing %s to %s",path,faddrtoa(addr));
- i=matchnode(addr,0); }
- if(i<cfg.nodecfgs)
- attr=cfg.nodecfg[i].attr;
- if(hdr.attr&FIDO_CRASH)
- attr|=ATTR_CRASH;
- else if(hdr.attr&FIDO_HOLD)
- attr|=ATTR_HOLD;
- if(attr&ATTR_CRASH) ch='C';
- else if(attr&ATTR_HOLD) ch='H';
- else if(attr&ATTR_DIRECT) ch='D';
- else ch='O';
- if(addr.zone==faddr[0].zone) /* Default zone, use default outbound */
- strcpy(outbound,cfg.outbound);
- else /* Inter-zone outbound is OUTBOUND.XXX */
- sprintf(outbound,"%.*s.%03X\\"
- ,strlen(cfg.outbound)-1,cfg.outbound,addr.zone);
- if(addr.point) { /* Point destination is OUTBOUND.PNT */
- sprintf(str,"%04X%04X.PNT"
- ,addr.net,addr.node);
- strcat(outbound,str); }
- if(outbound[strlen(outbound)-1]=='\\')
- outbound[strlen(outbound)-1]=0;
- mkdir(outbound);
- strcat(outbound,"\\");
- if(addr.point)
- sprintf(packet,"%s%08X.%cUT",outbound,addr.point,ch);
- else
- sprintf(packet,"%s%04X%04X.%cUT",outbound,addr.net,addr.node,ch);
- if(hdr.attr&FIDO_FILE)
- if(write_flofile(hdr.subj,addr))
- exit(1); }
- else
- strcpy(packet,pktname());
-
- now=time(NULL);
- tm=gmtime(&now);
- if((stream=fnopen(&file,packet,O_WRONLY|O_APPEND|O_CREAT))==NULL) {
- printf("Unable to open %s for write.\n"
- ,packet);
- logprintf("ERROR line %d opening %s %s",__LINE__,packet
- ,sys_errlist[errno]);
- exit(1); }
-
- if(!filelength(file)) {
- pkthdr.orignode=hdr.orignode;
- pkthdr.destnode=hdr.destnode;
- pkthdr.year=tm->tm_year+1900;
- pkthdr.month=tm->tm_mon;
- pkthdr.day=tm->tm_mday;
- pkthdr.hour=tm->tm_hour;
- pkthdr.min=tm->tm_min;
- pkthdr.sec=tm->tm_sec;
- pkthdr.baud=0x00;
- pkthdr.pkttype=0x0002;
- pkthdr.orignet=hdr.orignet;
- pkthdr.destnet=hdr.destnet;
- pkthdr.prodcode=0x00;
- pkthdr.sernum=0;
- i=matchnode(addr,0);
- if(i<cfg.nodecfgs)
- memcpy(pkthdr.password,cfg.nodecfg[i].pktpwd,8);
- else
- memset(pkthdr.password,0,8);
- pkthdr.origzone=hdr.origzone;
- pkthdr.destzone=hdr.destzone;
- memset(pkthdr.empty,0,20);
- fwrite(&pkthdr,sizeof(pkthdr_t),1,stream); }
-
- putfmsg(stream,fmsgbuf,hdr,fakearea,msg_seen,msg_path);
-
- FREE(fmsgbuf);
- fclose(stream);
- /**************************************/
- /* Delete source netmail if specified */
- /**************************************/
- if(misc&DELETE_NETMAIL)
- if(delfile(path))
- logprintf("ERROR line %d removing %s %s",__LINE__,path
- ,sys_errlist[errno]);
- printf("\n"); }
-#ifdef __WATCOMC__
-_dos_findclose(&ff);
-#endif
-}
-
-
-if(misc&UPDATE_MSGPTRS) {
-
-printf("\nUpdating Message Pointers to Last Posted Message...\n");
-
-for(g=0;g<total_grps;g++)
-for(i=0;i<total_subs;i++)
- if(sub[i]->misc&SUB_FIDO && sub[i]->grp==g) {
- printf("\n%-15.15s %s\n"
- ,grp[sub[i]->grp]->sname,sub[i]->lname);
- getlastmsg(i,&l,0);
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1) {
- printf("\7ERROR opening/creating %s",str);
- logprintf("ERROR line %d opening/creating %s",__LINE__,str); }
- else {
- write(file,&l,sizeof(time_t));
- close(file); } }
-}
-
-if(misc&(IMPORT_NETMAIL|IMPORT_ECHOMAIL) && misc&REPORT) {
- now=time(NULL);
- sprintf(str,"%sSBBSECHO.MSG",text_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- printf("ERROR opening %s\n",str);
- logprintf("ERROR line %d opening %s",__LINE__,str);
- exit(1); }
- sprintf(fname,"\1c\1h "
- "���������������������������������������������������\r\n");
- sprintf(path,"\1c\1h "
- "���������������������������������������������������\r\n");
- write(file,fname,strlen(fname));
- sprintf(str," \1n\1k\0016"
- " Last FidoNet Transfer on %.24s \1n\r\n",ctime(&now));
- write(file,str,strlen(str));
- write(file,path,strlen(path));
- write(file,fname,strlen(fname));
- sprintf(tmp,"Imported %lu EchoMail and %lu NetMail Messages"
- ,echomail,netmail);
- sprintf(str," \1n\1k\0016 %-50.50s\1n\r\n",tmp);
- write(file,str,strlen(str));
- write(file,path,strlen(path));
- close(file); }
-
-pkt_to_pkt(buf,fakearea,pkt_faddr,hdr,msg_seen,msg_path,1);
-if(email->shd_fp)
- smb_close(email);
-
-FREE(smb);
-FREE(email);
-return(0);
-}
diff --git a/src/sbbs2/echo/sbbsecho.h b/src/sbbs2/echo/sbbsecho.h
deleted file mode 100644
index e01a0ca34ccdabd813476b62ca74b8b08dd13dd1..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/sbbsecho.h
+++ /dev/null
@@ -1,244 +0,0 @@
-/* SBBSECHO.H */
-
-/* Developed 1990-2000 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Portions written by Allen Christiansen 1994-1996 */
-
-#define SBBSECHO_VER "1.32"
-
-#define IMPORT_NETMAIL (1L<<0)
-#define IMPORT_PACKETS (1L<<1)
-#define IMPORT_ECHOMAIL (1L<<2)
-#define EXPORT_ECHOMAIL (1L<<3)
-#define DELETE_NETMAIL (1L<<4)
-#define DELETE_PACKETS (1L<<5)
-#define STORE_SEENBY (1L<<6) /* Store SEEN-BYs in SMB */
-#define STORE_PATH (1L<<7) /* Store PATHs in SMB */
-#define STORE_KLUDGE (1L<<8) /* Store unknown kludges in SMB */
-#define IGNORE_MSGPTRS (1L<<9)
-#define UPDATE_MSGPTRS (1L<<10)
-#define LEAVE_MSGPTRS (1L<<11)
-#define CHECKMEM (1L<<12) /* Display available memory */
-#define ASCII_ONLY (1L<<13)
-#define LOGFILE (1L<<14)
-#define REPORT (1L<<15)
-#define EXPORT_ALL (1L<<16)
-#define UNKNOWN_NETMAIL (1L<<17)
-#define IGNORE_ADDRESS (1L<<18)
-#define IGNORE_RECV (1L<<19)
-#define CONVERT_TEAR (1L<<20)
-#define IMPORT_PRIVATE (1L<<21)
-#define LOCAL_NETMAIL (1L<<22)
-#define NOTIFY_RECEIPT (1L<<23)
-#define FLO_MAILER (1L<<24) /* Binkley .FLO style mailer */
-#define PACK_NETMAIL (1L<<25) /* Pack *.MSG NetMail into packets */
-#define FUZZY_ZONE (1L<<26)
-#define FAST_OPEN (1L<<27)
-#define SECURE (1L<<28) /* Secure operation */
-#define ELIST_ONLY (1L<<29) /* Allow adding from AREAS.BBS */
-#define GEN_NOTIFY_LIST (1L<<30) /* Generate Notify Lists */
-#define KILL_EMPTY_MAIL (1L<<31) /* Kill empty netmail messages */
-
-#define ATTR_HOLD (1<<0) /* Hold */
-#define ATTR_CRASH (1<<1) /* Crash */
-#define ATTR_DIRECT (1<<2) /* Direct */
-#define ATTR_PASSIVE (1<<3) /* Used to temp disconnect */
-#define SEND_NOTIFY (1<<4) /* Send Notify Lists */
-
-
-#define LOG_AREAFIX (1L<<0) /* Log areafix messages */
-#define LOG_IMPORTED (1L<<1) /* Log imported netmail messages */
-#define LOG_PACKETS (1L<<2) /* Log imported packet names/types */
-#define LOG_SECURITY (1L<<3) /* Log security violations */
-#define LOG_GRUNGED (1L<<4) /* Log grunged messages */
-#define LOG_PRIVATE (1L<<5) /* Log disallowed private msgs */
-#define LOG_AREA_TOTALS (1L<<6) /* Log totals for each area */
-#define LOG_TOTALS (1L<<7) /* Log over-all totals */
-#define LOG_PACKING (1L<<8) /* Log packing of out-bound netmail */
-#define LOG_ROUTING (1L<<9) /* Log routing of out-bound netmail */
-
-#define LOG_DUPES (1L<<24) /* Log individual dupe messages */
-#define LOG_CIRCULAR (1L<<25) /* Log individual circ paths */
-#define LOG_IGNORED (1L<<26) /* Log ignored netmail */
-#define LOG_UNKNOWN (1L<<27) /* Log netmail for unknown users */
-
-#define LOG_DEFAULTS 0xffffffL /* Low 24 bits default to ON */
-
-#define PKT_TWO_PLUS 0 /* Type 2+ Packet Header */
-#define PKT_TWO_TWO 1 /* Type 2.2 Packet Header */
-#define PKT_TWO 2 /* Old Type Packet Header */
-
-#define MAX_OPEN_SMBS 2
-#define DFLT_OPEN_PKTS 4
-#define MAX_TOTAL_PKTS 100
-#define DFLT_PKT_SIZE 250*1024L
-#define DFLT_BDL_SIZE 250*1024L
-
-#define NOFWD (1<<0) /* Do not forward requests */
-
-typedef struct { /* Fidonet Packet Header */
- short orignode, /* Origination Node of Packet */
- destnode, /* Destination Node of Packet */
- year, /* Year of Packet Creation e.g. 1995 */
- month, /* Month of Packet Creation 0-11 */
- day, /* Day of Packet Creation 1-31 */
- hour, /* Hour of Packet Creation 0-23 */
- min, /* Minute of Packet Creation 0-59 */
- sec, /* Second of Packet Creation 0-59 */
- baud, /* Max Baud Rate of Orig & Dest */
- pkttype, /* Packet Type (-1 is obsolete) */
- orignet, /* Origination Net of Packet */
- destnet; /* Destination Net of Packet */
- uchar prodcode, /* Product Code (00h is Fido) */
- sernum, /* Binary Serial Number or NULL */
- password[8]; /* Session Password or NULL */
- short origzone, /* Origination Zone of Packet or NULL */
- destzone; /* Destination Zone of Packet or NULL */
- uchar empty[20]; /* Fill Characters */
- } pkthdr_t;
-
-typedef struct { /* Type 2+ Packet Header Info */
- short auxnet, /* Orig Net if Origin is a Point */
- cwcopy; /* Must be Equal to cword */
- uchar prodcode, /* Product Code */
- revision; /* Revision */
- short cword, /* Compatibility Word */
- origzone, /* Zone of Packet Sender or NULL */
- destzone, /* Zone of Packet Receiver or NULL */
- origpoint, /* Origination Point of Packet */
- destpoint; /* Destination Point of Packet */
- uchar empty[4];
- } two_plus_t;
-
-typedef struct { /* Type 2.2 Packet Header Info */
- uchar origdomn[8], /* Origination Domain */
- destdomn[8], /* Destination Domain */
- empty[4]; /* Product Specific Data */
- } two_two_t;
-
-typedef struct {
- uint sub; /* Set to INVALID_SUB if pass-thru */
- ulong tag; /* CRC-32 of tag name */
- char *name; /* Area tag name */
- uint uplinks; /* Total number of uplinks for this echo */
- uint imported; /* Total messages imported this run */
- uint exported; /* Total messages exported this run */
- uint circular; /* Total circular paths detected */
- uint dupes; /* Total duplicate messages detected */
- faddr_t *uplink; /* Each uplink */
- } areasbbs_t;
-
-typedef struct {
- char flag[5];
- } flag_t;
-
-typedef struct {
- uint tags; /* Number of area tags */
- char **tag; /* Name of each area tag */
- } area_t;
-
-typedef struct {
- FILE *stream; /* The stream associated with this packet */
- faddr_t uplink; /* The current uplink for this packet */
- uchar filename[128],curopen;/* Name of the file and if it's open or not */
- } outpkt_t;
-
-typedef struct {
- uint addrs; /* Total number of uplinks */
- faddr_t *addr; /* Each uplink */
- } addrlist_t;
-
-typedef struct {
- char name[26] /* Short name of archive type */
- ,hexid[26] /* Hexadecimal ID to search for */
- ,pack[81] /* Pack command line */
- ,unpack[81]; /* Unpack command line */
- uint byteloc; /* Offset to Hex ID */
- } arcdef_t;
-
-typedef struct {
- faddr_t faddr /* Fido address of this node */
- ,route; /* Address to route FLO stuff through */
- ushort arctype /* De/archiver to use for this node */
- ,numflags /* Number of flags defined for this node */
- ,pkt_type; /* Packet type to use for outgoing PKTs */
- ushort attr; /* Message bits to set for this node */
- char password[26]; /* Areafix password for this node */
- char pktpwd[9]; /* Packet password for this node */
- flag_t *flag; /* Areafix flags for this node */
- } nodecfg_t;
-
-typedef struct {
- char listpath[129]; /* Path to this echolist */
- uint numflags,misc; /* Number of flags for this echolist */
- flag_t *flag; /* Flags to access this echolist */
- faddr_t forward; /* Where to forward requests */
- char password[72]; /* Password to use for forwarding req's */
- } echolist_t;
-
-typedef struct {
- faddr_t dest;
- char fname[13];
- } attach_t;
-
-typedef struct {
- char inbound[82] /* Inbound directory */
- ,secure[82] /* Secure Inbound directory */
- ,outbound[82] /* Outbound directory */
- ,areafile[128] /* AREAS.BBS path/filename */
- ,logfile[128] /* LOG path/filename */
- ,cfgfile[128]; /* Configuration path/filename */
- ulong maxpktsize /* Maximum size for packets */
- ,maxbdlsize /* Maximum size for bundles */
- ,log; /* What do we log? */
- int badecho; /* Area to store bad echomail msgs */
- uint arcdefs /* Number of archive definitions */
- ,nodecfgs /* Number of nodes with configs */
- ,listcfgs /* Number of echolists defined */
- ,areas /* Number of areas defined */
- ,notify; /* User number (sysop) to notify */
- arcdef_t *arcdef; /* Each archive definition */
- nodecfg_t *nodecfg; /* Each node configuration */
- echolist_t *listcfg; /* Each echolist configuration */
- areasbbs_t *area; /* Each area configuration */
- } config_t;
-
-#ifdef __WATCOMC__
-struct time {
- unsigned char ti_min; /* Minutes */
- unsigned char ti_hour; /* Hours */
- unsigned char ti_hund; /* Hundredths of seconds */
- unsigned char ti_sec; /* Seconds */
-};
-
-struct date {
- int da_year; /* Year - 1980 */
- char da_day; /* Day of the month */
- char da_mon; /* Month (1 = Jan) */
-};
-#endif
-
-/***********************/
-/* Function prototypes */
-/***********************/
-void bail(int code);
-char *ultoac(ulong l,char *str);
-int bstrlen(char *str);
-int nopen(char *str, int access);
-FILE *fnopen(int *file, char *str,int access);
-char *sectostr(uint sec, char *str);
-void truncsp(char *str);
-ulong ahtoul(char *str);
-int mv(char *src, char *dest, char copy); /* fast file move/copy function */
-char *timestr(time_t *intime); /* ASCII representation of time_t */
-time_t dstrtounix(char *str); /* ASCII date (MM/DD/YY) to unix conversion */
-char *unixtodstr(time_t unix, char *str); /* Unix time to ASCII date */
-int chk_ar(char *str, user_t user); /* checks access requirements */
-ushort crc16(char *str);
-void ucrc16(uchar ch, ushort *rcrc);
-char fexist(char *filespec);
-long flength(char *filespec);
-long fdate(char *filespec);
-faddr_t atofaddr(char *str);
-int matchnode(faddr_t addr, int exact);
-void export_echomail(char *sub_code,faddr_t addr);
diff --git a/src/sbbs2/echo/sbbsecho.wat b/src/sbbs2/echo/sbbsecho.wat
deleted file mode 100644
index e155042c5812142bd03b52f94efb72e59feb4cee..0000000000000000000000000000000000000000
--- a/src/sbbs2/echo/sbbsecho.wat
+++ /dev/null
@@ -1,81 +0,0 @@
-############################################
-# Makefile for Synchronet SBBSECHO Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;\watcom\h\os2;..\smb;..\rio;..
-!ifeq OS DOS
-CFLAGS = -s -I$(INCLUDE) -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -ml -DLZH_DYNAMIC_BUF
-!else
-CFLAGS = -s -I$(INCLUDE) -fh=$*.pch -bt=$(OS) -fo=$(OS)\
-!endif
-
-!ifeq OS NT
-SYSTEM = NT
-!endif
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOS4G
-SYSTEM = DOS4G
-!endif
-
-LFLAGS = option stack=20k system $(SYSTEM)
-
-MAIN = $(OS)\sbbsecho.exe
-OBJS = $(OS)\sbbsecho.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\smblib.obj $(OS)\ars.obj $(OS)\lzh.obj &
- $(OS)\read_cfg.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\smb\smbdefs.h ..\smb\smblib.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $[@ ...
- $(LD) $(LFLAGS) file { $(OBJS) } option map
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) -DSMB_GETMSGTXT $(CFLAGS) $[@
-
-$(OS)\lzh.obj: ..\smb\lzh.c ..\smb\lzh.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\sbbsecho.obj: sbbsecho.c sbbsecho.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
diff --git a/src/sbbs2/email.c b/src/sbbs2/email.c
deleted file mode 100644
index 236bd0d8af4f4da10c5e40f389f4aa5ba804cd56..0000000000000000000000000000000000000000
--- a/src/sbbs2/email.c
+++ /dev/null
@@ -1,276 +0,0 @@
-#line 1 "EMAIL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-/****************************************************************************/
-/* Mails a message to usernumber. 'top' is a buffer to place at beginning */
-/* of message. */
-/* Called from functions main_sec, newuser, readmail and scanposts */
-/****************************************************************************/
-void email(int usernumber, char *top, char *subj, char mode)
-{
- char str[256],str2[256],msgpath[256],title[LEN_TITLE+1],ch
- ,buf[SDT_BLOCK_LEN];
- ushort xlat=XLAT_NONE,msgattr=0;
- int i,j,x,file;
- long l;
- ulong length,offset,crc=0xffffffffUL;
- FILE *instream;
- node_t node;
- smbmsg_t msg;
-
-sprintf(title,"%.*s",LEN_TITLE,subj);
-
-if(useron.etoday>=level_emailperday[useron.level] && !SYSOP) {
- bputs(text[TooManyEmailsToday]);
- return; }
-
-if(usernumber==1 && useron.rest&FLAG('S')
- && (node_valuser!=1 || useron.fbacks || useron.emails)) { /* ! val fback */
- bprintf(text[R_Feedback],sys_op);
- return; }
-if(usernumber!=1 && useron.rest&FLAG('E')
- && (node_valuser!=usernumber || useron.fbacks || useron.emails)) {
- bputs(text[R_Email]);
- return; }
-if(!usernumber) {
- bputs(text[UnknownUser]);
- return; }
-getuserrec(usernumber,U_MISC,8,str);
-l=ahtoul(str);
-if(l&(DELETED|INACTIVE)) { /* Deleted or Inactive User */
- bputs(text[UnknownUser]);
- return; }
-if(l&NETMAIL && sys_misc&SM_FWDTONET
- && yesno(text[ForwardMailQ])) { /* Forward to netmail address */
- getuserrec(usernumber,U_NETMAIL,LEN_NETMAIL,str);
- netmail(str,subj,mode);
- return; }
-bprintf(text[Emailing],username(usernumber,tmp),usernumber);
-action=NODE_SMAL;
-nodesync();
-
-sprintf(str,"%sFEEDBACK.BIN",exec_dir);
-if(usernumber==1 && useron.fbacks && fexist(str)) {
- exec_bin("FEEDBACK",&main_csi);
- if(main_csi.logic!=LOGIC_TRUE)
- return; }
-
-if(sys_misc&SM_ANON_EM && (SYSOP || useron.exempt&FLAG('A'))
- && !noyes(text[AnonymousQ]))
- msgattr|=MSG_ANONYMOUS;
-
-if(sys_misc&SM_DELREADM)
- msgattr|=MSG_KILLREAD;
-
-sprintf(msgpath,"%sINPUT.MSG",node_dir);
-sprintf(str2,"%s #%u",username(usernumber,tmp),usernumber);
-if(!writemsg(msgpath,top,title,mode,0,str2)) {
- bputs(text[Aborted]);
- return; }
-
-if(mode&WM_FILE) {
- sprintf(str2,"%sFILE\\%04u.IN",data_dir,usernumber);
- mkdir(str2);
- sprintf(str2,"%sFILE\\%04u.IN\\%s",data_dir,usernumber,title);
- if(fexist(str2)) {
- bputs(text[FileAlreadyThere]);
- remove(msgpath);
- return; }
- if(online==ON_LOCAL) { /* Local upload */
- bputs(text[EnterPath]);
- if(!getstr(str,60,K_LINE|K_UPPER)) {
- bputs(text[Aborted]);
- remove(msgpath);
- return; }
- backslash(str);
- strcat(str,title);
- mv(str,str2,1); }
- else { /* Remote */
- menu("ULPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(x=0;x<total_prots;x++)
- if(prot[x]->ulcmd[0] && chk_ar(prot[x]->ar,useron)) {
- sprintf(tmp,"%c",prot[x]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- bputs(text[Aborted]);
- remove(msgpath);
- return; }
- for(x=0;x<total_prots;x++)
- if(prot[x]->ulcmd[0] && prot[x]->mnemonic==ch
- && chk_ar(prot[x]->ar,useron))
- break;
- if(x<total_prots) /* This should be always */
- protocol(cmdstr(prot[x]->ulcmd,str2,nulstr,NULL),0); }
- l=flength(str2);
- if(l>0)
- bprintf(text[FileNBytesReceived],title,ultoac(l,tmp));
- else {
- bprintf(text[FileNotReceived],title);
- remove(msgpath);
- return; } }
-
-bputs(text[WritingIndx]);
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- return; }
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_age=mail_maxage;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.attr=SMB_EMAIL;
- if((i=smb_create(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- return; } }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return; }
-
-length=flength(msgpath)+2; /* +2 for translation string */
-
-if(length&0xfff00000UL) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LEN,msgpath,length);
- return; }
-
-if((i=smb_open_da(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-if(sys_misc&SM_FASTMAIL)
- offset=smb_fallocdat(&smb,length,1);
-else
- offset=smb_allocdat(&smb,length,1);
-smb_close_da(&smb);
-
-if((file=open(msgpath,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,msgpath,O_RDONLY|O_BINARY);
- return; }
-
-setvbuf(instream,NULL,_IOFBF,2*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-x=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
-while(!feof(instream)) {
- memset(buf,0,x);
- j=fread(buf,1,x,instream);
- if((j!=x || feof(instream)) && buf[j-1]==LF && buf[j-2]==CR)
- buf[j-1]=buf[j-2]=0;
- if(mail_maxcrcs) {
- for(i=0;i<j;i++)
- crc=ucrc32(buf[i],crc); }
- fwrite(buf,j,1,smb.sdt_fp);
- x=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-crc=~crc;
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-msg.hdr.attr=msg.idx.attr=msgattr;
-if(mode&WM_FILE)
- msg.hdr.auxattr|=MSG_FILEATTACH;
-msg.hdr.when_written.time=msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_written.zone=msg.hdr.when_imported.zone=sys_timezone;
-
-if(mail_maxcrcs) {
- i=smb_addcrc(&smb,crc);
- if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- bputs("\1r\1h\1iDuplicate message!\r\n");
- return; } }
-
-msg.hdr.offset=offset;
-
-username(usernumber,str);
-smb_hfield(&msg,RECIPIENT,strlen(str),str);
-
-sprintf(str,"%u",usernumber);
-smb_hfield(&msg,RECIPIENTEXT,strlen(str),str);
-msg.idx.to=usernumber;
-
-strcpy(str,useron.alias);
-smb_hfield(&msg,SENDER,strlen(str),str);
-
-sprintf(str,"%u",useron.number);
-smb_hfield(&msg,SENDEREXT,strlen(str),str);
-msg.idx.from=useron.number;
-
-smb_hfield(&msg,SUBJECT,strlen(title),title);
-strlwr(title);
-msg.idx.subj=crc16(title);
-
-smb_dfield(&msg,TEXT_BODY,length);
-
-smb_unlocksmbhdr(&smb);
-i=smb_addmsghdr(&smb,&msg,SMB_SELFPACK);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-
-smb_freemsgmem(&msg);
-if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return; }
-
-if(usernumber==1) {
- useron.fbacks++;
- logon_fbacks++;
- putuserrec(useron.number,U_FBACKS,5,itoa(useron.fbacks,tmp,10)); }
-else {
- useron.emails++;
- logon_emails++;
- putuserrec(useron.number,U_EMAILS,5,itoa(useron.emails,tmp,10)); }
-useron.etoday++;
-putuserrec(useron.number,U_ETODAY,5,itoa(useron.etoday,tmp,10));
-bprintf(text[Emailed],username(usernumber,tmp),usernumber);
-sprintf(str,"E-mailed %s #%d",username(usernumber,tmp),usernumber);
-logline("E+",str);
-if(mode&WM_FILE && online==ON_REMOTE)
- autohangup();
-if(msgattr&MSG_ANONYMOUS) /* Don't tell user if anonymous */
- return;
-for(i=1;i<=sys_nodes;i++) { /* Tell user, if online */
- getnodedat(i,&node,0);
- if(node.useron==usernumber && !(node.misc&NODE_POFF)
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)) {
- sprintf(str,text[EmailNodeMsg],node_num,useron.alias);
- putnmsg(i,str);
- break; } }
-if(i>sys_nodes) { /* User wasn't online, so leave short msg */
- sprintf(str,text[UserSentYouMail],useron.alias);
- putsmsg(usernumber,str); }
-}
diff --git a/src/sbbs2/etext.c b/src/sbbs2/etext.c
deleted file mode 100644
index 3a25776c2cdadc10f145fdb20aaea3c4eb369980..0000000000000000000000000000000000000000
--- a/src/sbbs2/etext.c
+++ /dev/null
@@ -1,12 +0,0 @@
-/* ETEXT.C */
-
-#include "etext.h"
-
-unsigned long VersionNoticeDOS[]={ 3356835823UL,3314249220UL,374396000UL,3922003403UL,2881467347UL,2486246197UL,3111832648UL,4155039507UL,42307UL };
-unsigned long VersionNoticeOS2[]={ 3356835822UL,3314249220UL,374396000UL,3922003403UL,1532953555UL,2026511120UL,3143769178UL,3289372253UL,5547459UL };
-unsigned long VersionNoticeW32[]={ 3356835809UL,3314249220UL,374396000UL,3922003403UL,1586398163UL,88738067UL,3070891308UL,395014492UL,726984154UL };
-unsigned long CopyrightNotice[]={ 2870097002UL,1320491556UL,3387089248UL,1175526980UL,47313347UL,3589138741UL,3110223426UL,207123671UL };
-unsigned long CopyrightAddress[]={ 2870096911UL,1320491556UL,3387089248UL,1175526980UL,47313347UL,3589138741UL,3110223426UL,1280865495UL,730555715UL,2860505763UL,506422981UL,3822509617UL,1593759605UL,2730878830UL,2073372242UL,94853UL };
-unsigned long Unregistered[]={ 4089925185UL,456418497UL };
-unsigned long Synchronet[]={ 3356835779UL,3314249220UL,5216UL };
-unsigned long QWKheader[]={ 3090677251UL,1335831276UL,2558259650UL,3930102115UL,921508403UL,3652942133UL,2169713010UL,4229477056UL,3478431186UL,2126281968UL,510119879UL,3510789355UL,3377605456UL,2160545622UL,2276673404UL,236723209UL,580UL };
diff --git a/src/sbbs2/etext.dat b/src/sbbs2/etext.dat
deleted file mode 100644
index 60a479552e30f841e1f0464235e5633e2bd990c1..0000000000000000000000000000000000000000
--- a/src/sbbs2/etext.dat
+++ /dev/null
@@ -1,16 +0,0 @@
-VersionNoticeDOS:
-Synchronet_BBS_for_DOS__Version_2.30__
-VersionNoticeOS2:
-Synchronet_BBS_for_OS/2__Version_2.30__
-VersionNoticeW32:
-Synchronet_BBS_for_Win32__Version_2.30__
-CopyrightNotice:
-Developed 1990-2000 by Rob Swindell
-CopyrightAddress:
-Developed 1990-2000 by Rob Swindell;_PO_Box_501,_Yorba_Linda,_CA_92885
-Unregistered:
-00000000
-Synchronet:
-Synchronet
-QWKheader:
-Produced_by_Synchronet_BBS__Version_2__Developed 1990-2000 by Rob Swindell
diff --git a/src/sbbs2/etext.h b/src/sbbs2/etext.h
deleted file mode 100644
index f08e15773dd8e59b5d328fa6bcea00c703a27506..0000000000000000000000000000000000000000
--- a/src/sbbs2/etext.h
+++ /dev/null
@@ -1,10 +0,0 @@
-/* ETEXT.H */
-
-extern unsigned long VersionNoticeDOS[];
-extern unsigned long VersionNoticeOS2[];
-extern unsigned long VersionNoticeW32[];
-extern unsigned long CopyrightNotice[];
-extern unsigned long CopyrightAddress[];
-extern unsigned long Unregistered[];
-extern unsigned long Synchronet[];
-extern unsigned long QWKheader[];
diff --git a/src/sbbs2/exec.c b/src/sbbs2/exec.c
deleted file mode 100644
index e62230eb3e147314f6192290dc71ef9889acbc99..0000000000000000000000000000000000000000
--- a/src/sbbs2/exec.c
+++ /dev/null
@@ -1,1557 +0,0 @@
-#line 1 "EXEC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-char *readtext(long *line, FILE *stream);
-
-extern csi_t main_csi;
-extern FILE *nodefile_fp,*node_ext_fp,*logfile_fp;
-
-uint global_str_vars=0;
-char **global_str_var=0;
-long *global_str_var_name=0;
-uint global_int_vars=0;
-long *global_int_var=0;
-long *global_int_var_name=0;
-
-char *sysvar_p[MAX_SYSVARS]={NULL};
-int sysvar_pi=0;
-long sysvar_l[MAX_SYSVARS]={0L};
-int sysvar_li=0;
-
-char **getstrvar(csi_t *bin, long name)
-{
- int i;
-
-if(sysvar_pi>=MAX_SYSVARS) sysvar_pi=0;
-switch(name) {
- case 0:
- return((char **)&(bin->str));
- case 0x490873f1:
- sysvar_p[sysvar_pi]=useron.alias;
- break;
- case 0x5de44e8b:
- sysvar_p[sysvar_pi]=useron.name;
- break;
- case 0x979ef1de:
- sysvar_p[sysvar_pi]=useron.handle;
- break;
- case 0xc8cd5fb7:
- sysvar_p[sysvar_pi]=useron.comp;
- break;
- case 0xcc7aca99:
- sysvar_p[sysvar_pi]=useron.note;
- break;
- case 0xa842c43b:
- sysvar_p[sysvar_pi]=useron.address;
- break;
- case 0x4ee1ff3a:
- sysvar_p[sysvar_pi]=useron.location;
- break;
- case 0xf000aa78:
- sysvar_p[sysvar_pi]=useron.zipcode;
- break;
- case 0xcdb7e4a9:
- sysvar_p[sysvar_pi]=useron.pass;
- break;
- case 0x94d59a7a:
- sysvar_p[sysvar_pi]=useron.birth;
- break;
- case 0xec2b8fb8:
- sysvar_p[sysvar_pi]=useron.phone;
- break;
- case 0x08f65a2a:
- sysvar_p[sysvar_pi]=useron.modem;
- break;
- case 0xc7e0e8ce:
- sysvar_p[sysvar_pi]=useron.netmail;
- break;
- case 0xd3606303:
- sysvar_p[sysvar_pi]=useron.tmpext;
- break;
- case 0x3178f9d6:
- sysvar_p[sysvar_pi]=useron.comment;
- break;
-
- case 0x41239e21:
- sysvar_p[sysvar_pi]=connection;
- break;
- case 0xe9f1fad0:
- sysvar_p[sysvar_pi]=cap_fname;
- break;
- case 0x90fc82b4:
- sysvar_p[sysvar_pi]=cid;
- break;
- case 0x15755030:
- return((char **)&comspec);
-
- case 0xf19cd046:
- sysvar_p[sysvar_pi]=wordwrap;
- break;
-
- default:
- if(bin->str_var && bin->str_var_name)
- for(i=0;i<bin->str_vars;i++)
- if(bin->str_var_name[i]==name)
- return((char **)&(bin->str_var[i]));
- if(global_str_var && global_str_var_name)
- for(i=0;i<global_str_vars;i++)
- if(global_str_var_name[i]==name)
- return(&(global_str_var[i]));
- return(NULL); }
-
-return((char **)&sysvar_p[sysvar_pi++]);
-}
-
-long *getintvar(csi_t *bin, long name)
-{
- int i;
-
-if(sysvar_li==MAX_SYSVARS) sysvar_li=0;
-switch(name) {
- case 0:
- sysvar_l[sysvar_li]=strtol(bin->str,0,0);
- break;
- case 0x908ece53:
- sysvar_l[sysvar_li]=useron.number;
- break;
- case 0xdcedf626:
- sysvar_l[sysvar_li]=useron.uls;
- break;
- case 0xc1093f61:
- sysvar_l[sysvar_li]=useron.dls;
- break;
- case 0x2039a29f:
- sysvar_l[sysvar_li]=useron.posts;
- break;
- case 0x4a9f3955:
- sysvar_l[sysvar_li]=useron.emails;
- break;
- case 0x0c8dcf3b:
- sysvar_l[sysvar_li]=useron.fbacks;
- break;
- case 0x9a13bf95:
- sysvar_l[sysvar_li]=useron.etoday;
- break;
- case 0xc9082cbd:
- sysvar_l[sysvar_li]=useron.ptoday;
- break;
- case 0x7c72376d:
- sysvar_l[sysvar_li]=useron.timeon;
- break;
- case 0xac72c50b:
- sysvar_l[sysvar_li]=useron.textra;
- break;
- case 0x04807a11:
- sysvar_l[sysvar_li]=useron.logons;
- break;
- case 0x52996eab:
- sysvar_l[sysvar_li]=useron.ttoday;
- break;
- case 0x098bdfcb:
- sysvar_l[sysvar_li]=useron.tlast;
- break;
- case 0xbd1cee5d:
- sysvar_l[sysvar_li]=useron.ltoday;
- break;
- case 0x07954570:
- sysvar_l[sysvar_li]=useron.xedit;
- break;
- case 0xedf6aa98:
- sysvar_l[sysvar_li]=useron.shell;
- break;
- case 0x328ed476:
- sysvar_l[sysvar_li]=useron.level;
- break;
- case 0x9e70e855:
- sysvar_l[sysvar_li]=useron.sex;
- break;
- case 0x094cc42c:
- sysvar_l[sysvar_li]=useron.rows;
- break;
- case 0xabc4317e:
- sysvar_l[sysvar_li]=useron.prot;
- break;
- case 0x7dd9aac0:
- sysvar_l[sysvar_li]=useron.leech;
- break;
- case 0x7c602a37:
- return((long *)&useron.misc);
- case 0x61be0d36:
- return((long *)&useron.qwk);
- case 0x665ac227:
- return((long *)&useron.chat);
- case 0x951341ab:
- return((long *)&useron.flags1);
- case 0x0c1a1011:
- return((long *)&useron.flags2);
- case 0x7b1d2087:
- return((long *)&useron.flags3);
- case 0xe579b524:
- return((long *)&useron.flags4);
- case 0x12e7d6d2:
- return((long *)&useron.exempt);
- case 0xfed3115d:
- return((long *)&useron.rest);
- case 0xb65dd6d4:
- return((long *)&useron.ulb);
- case 0xabb91f93:
- return((long *)&useron.dlb);
- case 0x92fb364f:
- return((long *)&useron.cdt);
- case 0xd0a99c72:
- return((long *)&useron.min);
- case 0xd7ae3022:
- return((long *)&useron.freecdt);
- case 0x1ef214ef:
- return((long *)&useron.firston);
- case 0x0ea515b1:
- return((long *)&useron.laston);
- case 0x2aaf9bd3:
- return((long *)&useron.expire);
- case 0x89c91dc8:
- return((long *)&useron.pwmod);
- case 0x5b0d0c54:
- return((long *)&useron.ns_time);
-
- case 0xae256560:
- return((long *)&cur_rate);
- case 0x2b3c257f:
- return((long *)&cur_cps);
- case 0x1c4455ee:
- return((long *)&dte_rate);
- case 0x7fbf958e:
- return((long *)&lncntr);
- case 0x5c1c1500:
- return((long *)&tos);
- case 0x613b690e:
- return((long *)&rows);
- case 0x205ace36:
- return((long *)&autoterm);
- case 0x7d0ed0d1:
- return((long *)&console);
- case 0xbf31a280:
- return((long *)&answertime);
- case 0x83aa2a6a:
- return((long *)&logontime);
- case 0xb50cb889:
- return((long *)&ns_time);
- case 0xae92d249:
- return((long *)&last_ns_time);
- case 0x97f99eef:
- return((long *)&online);
- case 0x381d3c2a:
- return((long *)&sys_status);
- case 0x7e29c819:
- return((long *)&sys_misc);
- case 0x11c83294:
- return((long *)&sys_psnum);
- case 0x02408dc5:
- sysvar_l[sysvar_li]=sys_timezone;
- break;
- case 0x78afeaf1:
- sysvar_l[sysvar_li]=sys_pwdays;
- break;
- case 0xd859385f:
- sysvar_l[sysvar_li]=sys_deldays;
- break;
- case 0x6392dc62:
- sysvar_l[sysvar_li]=sys_autodel;
- break;
- case 0x698d59b4:
- sysvar_l[sysvar_li]=sys_nodes;
- break;
- case 0x6fb1c46e:
- sysvar_l[sysvar_li]=sys_exp_warn;
- break;
- case 0xdf391ca7:
- sysvar_l[sysvar_li]=sys_lastnode;
- break;
- case 0xdd982780:
- sysvar_l[sysvar_li]=sys_autonode;
- break;
- case 0xf53db6c7:
- sysvar_l[sysvar_li]=node_scrnlen;
- break;
- case 0xa1f0fcb7:
- sysvar_l[sysvar_li]=node_scrnblank;
- break;
- case 0x709c07da:
- return((long *)&node_misc);
- case 0xb17e7914:
- sysvar_l[sysvar_li]=node_valuser;
- break;
- case 0xadae168a:
- sysvar_l[sysvar_li]=node_ivt;
- break;
- case 0x2aa89801:
- sysvar_l[sysvar_li]=node_swap;
- break;
- case 0x4f02623a:
- sysvar_l[sysvar_li]=node_minbps;
- break;
- case 0xe7a7fb07:
- sysvar_l[sysvar_li]=node_num;
- break;
- case 0x6c8e350a:
- sysvar_l[sysvar_li]=new_level;
- break;
- case 0xccfe7c5d:
- return((long *)&new_flags1);
- case 0x55f72de7:
- return((long *)&new_flags2);
- case 0x22f01d71:
- return((long *)&new_flags3);
- case 0xbc9488d2:
- return((long *)&new_flags4);
- case 0x4b0aeb24:
- return((long *)&new_exempt);
- case 0x20cb6325:
- return((long *)&new_rest);
- case 0x31178ba2:
- return((long *)&new_cdt);
- case 0x7345219f:
- return((long *)&new_min);
- case 0xb3f64be4:
- sysvar_l[sysvar_li]=new_shell;
- break;
- case 0xa278584f:
- return((long *)&new_misc);
- case 0x7342a625:
- sysvar_l[sysvar_li]=new_expire;
- break;
- case 0x75dc4306:
- sysvar_l[sysvar_li]=new_prot;
- break;
- case 0xfb394e27:
- sysvar_l[sysvar_li]=expired_level;
- break;
- case 0x89b69753:
- return((long *)&expired_flags1);
- case 0x10bfc6e9:
- return((long *)&expired_flags2);
- case 0x67b8f67f:
- return((long *)&expired_flags3);
- case 0xf9dc63dc:
- return((long *)&expired_flags4);
- case 0x0e42002a:
- return((long *)&expired_exempt);
- case 0x4569c62e:
- return((long *)&expired_rest);
- case 0xfcf3542e:
- sysvar_l[sysvar_li]=min_dspace;
- break;
- case 0xcf9ce02c:
- sysvar_l[sysvar_li]=cdt_min_value;
- break;
- case 0xfcb5b274:
- return((long *)&cdt_per_dollar);
- case 0x4db200d2:
- sysvar_l[sysvar_li]=leech_pct;
- break;
- case 0x9a7d9cca:
- sysvar_l[sysvar_li]=leech_sec;
- break;
- case 0x396b7167:
- return((long *)&netmail_cost);
- case 0x5eeaff21:
- sysvar_l[sysvar_li]=netmail_misc;
- break;
- case 0x82d9484e:
- return((long *)&inetmail_cost);
- case 0xe558c608:
- return((long *)&inetmail_misc);
-
- case 0xc6e8539d:
- return((long *)&logon_ulb);
- case 0xdb0c9ada:
- return((long *)&logon_dlb);
- case 0xac58736f:
- return((long *)&logon_uls);
- case 0xb1bcba28:
- return((long *)&logon_dls);
- case 0x9c5051c9:
- return((long *)&logon_posts);
- case 0xc82ba467:
- return((long *)&logon_emails);
- case 0x8e395209:
- return((long *)&logon_fbacks);
- case 0x8b12ba9d:
- return((long *)&posts_read);
- case 0xe51c1956:
- sysvar_l[sysvar_li]=(ulong)logfile_fp;
- break;
- case 0x5a22d4bd:
- sysvar_l[sysvar_li]=(ulong)nodefile_fp;
- break;
- case 0x3a37c26b:
- sysvar_l[sysvar_li]=(ulong)node_ext_fp;
- break;
-
- case 0xeb6c9c73:
- sysvar_l[sysvar_li]=errorlevel;
- break;
-
- case 0x5aaccfc5:
- sysvar_l[sysvar_li]=errno;
- break;
-
- case 0x057e4cd4:
- sysvar_l[sysvar_li]=timeleft;
- break;
-
- case 0x1e5052a7:
- return((long *)&max_minutes);
- case 0xedc643f1:
- return((long *)&max_qwkmsgs);
-
- case 0x430178ec:
- return((long *)&uq);
-
- default:
- if(bin->int_var && bin->int_var_name)
- for(i=0;i<bin->int_vars;i++)
- if(bin->int_var_name[i]==name)
- return(&bin->int_var[i]);
- if(global_int_var && global_int_var_name)
- for(i=0;i<global_int_vars;i++)
- if(global_int_var_name[i]==name)
- return(&global_int_var[i]);
- return(NULL); }
-
-return(&sysvar_l[sysvar_li++]);
-}
-
-void clearvars(csi_t *bin)
-{
-bin->str_vars=0;
-bin->str_var=NULL;
-bin->str_var_name=NULL;
-bin->int_vars=0;
-bin->int_var=NULL;
-bin->int_var_name=NULL;
-bin->files=0;
-bin->retval=0;
-}
-
-void freevars(csi_t *bin)
-{
- int i;
-
-if(bin->str_var) {
- for(i=0;i<bin->str_vars;i++)
- if(bin->str_var[i])
- FREE(bin->str_var[i]);
- FREE(bin->str_var); }
-if(bin->int_var)
- FREE(bin->int_var);
-if(bin->str_var_name)
- FREE(bin->str_var_name);
-if(bin->int_var_name)
- FREE(bin->int_var_name);
-for(i=0;i<bin->files;i++)
- if(bin->file[i]) {
- fclose((FILE *)bin->file[i]);
- bin->file[i]=0; }
-}
-
-/****************************************************************************/
-/* Copies a new value (str) into the string variable pointed to by p */
-/* re-allocating if necessary */
-/****************************************************************************/
-char *copystrvar(csi_t *csi, char *p, char *str)
-{
- char *np; /* New pointer after realloc */
- int i;
-
-if(p!=csi->str) {
- if(p)
- for(i=0;i<MAX_SYSVARS;i++)
- if(p==sysvar_p[i])
- break;
- if(!p || i==MAX_SYSVARS) { /* Not system variable */
- if((np=REALLOC(p,strlen(str)+1))==NULL)
- errormsg(WHERE,ERR_ALLOC,"variable",strlen(str)+1);
- else
- p=np; } }
-if(p)
- strcpy(p,str);
-return(p);
-}
-
-
-long exec_bin(uchar *mod, csi_t *csi)
-{
- char str[128];
- int i,file;
- csi_t bin;
-
-//lprintf("%s %d\r\n",__FILE__,__LINE__);
-memcpy(&bin,csi,sizeof(csi_t));
-clearvars(&bin);
-
-sprintf(str,"%s%s.BIN",exec_dir,mod);
-if((file=nopen(str,O_RDONLY|O_BINARY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY|O_BINARY);
- return(-1); }
-
-//lprintf("%s %d\r\n",__FILE__,__LINE__);
-bin.length=filelength(file);
-if((bin.cs=(uchar *)MALLOC(bin.length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,bin.length);
- return(-1); }
-if(lread(file,bin.cs,bin.length)!=bin.length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,bin.length);
- FREE(bin.cs);
- return(-1); }
-close(file);
-
-bin.ip=bin.cs;
-bin.rets=bin.cmdrets=bin.misc=0;
-//lprintf("%s %d\r\n",__FILE__,__LINE__);
-while(exec(&bin)==0)
- if(!(bin.misc&CS_OFFLINE_EXEC)) {
- checkline();
- if(!online)
- break; }
-//lprintf("%s %d logic=%d\r\n",__FILE__,__LINE__,bin.logic);
-freevars(&bin);
-FREE(bin.cs);
-csi->logic=bin.logic;
-return(bin.retval);
-}
-
-/****************************************************************************/
-/* Skcsi->ip to a specific instruction */
-/****************************************************************************/
-void skipto(csi_t *csi, uchar inst)
-{
- int i,j;
-
-while(csi->ip<csi->cs+csi->length && ((inst&0x80) || *csi->ip!=inst)) {
-
- if(*csi->ip==CS_IF_TRUE || *csi->ip==CS_IF_FALSE
- || (*csi->ip>=CS_IF_GREATER && *csi->ip<=CS_IF_LESS_OR_EQUAL)) {
- csi->ip++;
- skipto(csi,CS_ENDIF);
- csi->ip++;
- continue; }
-
- if(inst==CS_ELSEORENDIF
- && (*csi->ip==CS_ELSE || *csi->ip==CS_ENDIF))
- break;
-
- if(inst==CS_NEXTCASE
- && (*csi->ip==CS_CASE || *csi->ip==CS_DEFAULT
- || *csi->ip==CS_END_SWITCH))
- break;
-
- if(*csi->ip==CS_SWITCH) {
- csi->ip++;
- csi->ip+=4; /* Skip variable name */
- skipto(csi,CS_END_SWITCH);
- csi->ip++;
- continue; }
-
- if(*csi->ip==CS_CASE) {
- csi->ip++;
- csi->ip+=4; /* Skip value */
- skipto(csi,CS_NEXTCASE);
- continue; }
-
- if(*csi->ip==CS_CMDKEY) {
- csi->ip+=2;
- skipto(csi,CS_END_CMD);
- csi->ip++;
- continue; }
- if(*csi->ip==CS_CMDSTR || *csi->ip==CS_CMDKEYS) {
- csi->ip++; /* skip inst */
- while(*(csi->ip++)); /* skip string */
- skipto(csi,CS_END_CMD);
- csi->ip++;
- continue; }
-
- if(*csi->ip>=CS_FUNCTIONS) {
- csi->ip++;
- continue; }
-
- if(*csi->ip>=CS_MISC) {
- switch(*csi->ip) {
- case CS_VAR_INSTRUCTION:
- csi->ip++;
- switch(*(csi->ip++)) {
- case SHOW_VARS:
- continue;
- case PRINT_VAR:
- case DEFINE_STR_VAR:
- case DEFINE_INT_VAR:
- case DEFINE_GLOBAL_STR_VAR:
- case DEFINE_GLOBAL_INT_VAR:
- case TIME_INT_VAR:
- case STRUPR_VAR:
- case STRLWR_VAR:
- case TRUNCSP_STR_VAR:
- case CHKFILE_VAR:
- case STRIP_CTRL_STR_VAR:
- csi->ip+=4; /* Skip variable name */
- continue;
- case GETSTR_VAR:
- case GETNAME_VAR:
- case GETLINE_VAR:
- case GETSTRUPR_VAR:
- case SHIFT_STR_VAR:
- case SEND_FILE_VIA_VAR:
- case RECEIVE_FILE_VIA_VAR:
- csi->ip+=4; /* Skip variable name */
- csi->ip++; /* Skip char */
- continue;
- case PRINTTAIL_VAR_MODE:
- csi->ip++; /* Skip length */
- case PRINTFILE_VAR_MODE:
- case GETNUM_VAR:
- csi->ip+=4; /* Skip variable name */
- csi->ip+=2; /* Skip max num */
- continue;
- case STRNCMP_VAR:
- csi->ip++; /* Skip length */
- case SET_STR_VAR:
- case COMPARE_STR_VAR:
- case CAT_STR_VAR:
- case STRSTR_VAR:
- csi->ip+=4; /* Skip variable name */
- while(*(csi->ip++)); /* skip string */
- continue;
- case FORMAT_TIME_STR:
- csi->ip+=4; /* Skip destination variable */
- while(*(csi->ip++)); /* Skip string */
- csi->ip+=4; /* Skip int variable */
- continue;
- case FORMAT_STR_VAR: /* SPRINTF */
- csi->ip+=4; /* Skip destination variable */
- case VAR_PRINTF:
- while(*(csi->ip++)); /* Skip string */
- j=*(csi->ip++); /* Skip number of arguments */
- for(i=0;i<j;i++)
- csi->ip+=4; /* Skip arguments */
- continue;
- case SEND_FILE_VIA:
- case RECEIVE_FILE_VIA:
- csi->ip++; /* Skip prot */
- while(*(csi->ip++)); /* Skip filepath */
- continue;
- case GETSTR_MODE:
- case STRNCMP_VARS:
- csi->ip++; /* Skip length */
- default:
- csi->ip+=8; /* Skip two variable names or var & val */
- continue; }
-
- case CS_FIO_FUNCTION:
- csi->ip++;
- switch(*(csi->ip++)) {
- case FIO_OPEN:
- csi->ip+=4; /* File handle */
- csi->ip+=2; /* Access */
- while(*(csi->ip++)); /* path/filename */
- continue;
- case FIO_CLOSE:
- case FIO_FLUSH:
- case FIO_EOF:
- case REMOVE_FILE:
- case REMOVE_DIR:
- case CHANGE_DIR:
- case MAKE_DIR:
- case REWIND_DIR:
- case CLOSE_DIR:
- csi->ip+=4; /* File handle */
- continue;
- case FIO_SET_ETX:
- csi->ip++;
- continue;
- case FIO_PRINTF:
- csi->ip+=4; /* File handle */
- while(*(csi->ip++)); /* String */
- j=*(csi->ip++); /* Number of arguments */
- for(i=0;i<j;i++)
- csi->ip+=4; /* Arguments */
- continue;
- case FIO_READ:
- case FIO_WRITE:
- case FIO_SEEK:
- case FIO_SEEK_VAR:
- case FIO_OPEN_VAR:
- csi->ip+=4; /* File handle */
- csi->ip+=4; /* Variable */
- csi->ip+=2; /* Length/access */
- continue;
- case FIO_READ_VAR:
- case FIO_WRITE_VAR:
- csi->ip+=4; /* File handle */
- csi->ip+=4; /* Buf Variable */
- csi->ip+=4; /* Length Variable */
- continue;
- default:
- csi->ip+=4; /* File handle */
- csi->ip+=4; /* Variable */
- continue; }
-
- case CS_COMPARE_ARS:
- csi->ip++;
- csi->ip+=(*csi->ip);
- csi->ip++;
- break;
- case CS_TOGGLE_USER_MISC:
- case CS_COMPARE_USER_MISC:
- case CS_TOGGLE_USER_CHAT:
- case CS_COMPARE_USER_CHAT:
- case CS_TOGGLE_USER_QWK:
- case CS_COMPARE_USER_QWK:
- csi->ip+=5;
- break;
- case CS_REPLACE_TEXT:
- csi->ip+=3; /* skip inst and text # */
- while(*(csi->ip++)); /* skip string */
- break;
- case CS_USE_INT_VAR:
- csi->ip+=7; // inst, var, offset, len
- break;
- default:
- csi->ip++; }
- continue; }
-
- if(*csi->ip==CS_ONE_MORE_BYTE) {
- csi->ip++; /* skip extension */
- csi->ip++; /* skip instruction */
- continue; }
-
- if(*csi->ip==CS_TWO_MORE_BYTES) {
- csi->ip++; /* skip extension */
- csi->ip++; /* skip instruction */
- csi->ip++; /* skip argument */
- continue; }
-
- if(*csi->ip==CS_THREE_MORE_BYTES) {
- csi->ip++; /* skip extension */
- csi->ip++; /* skip instruction */
- csi->ip+=2; /* skip argument */
- continue; }
-
- if(*csi->ip==CS_STR_FUNCTION) {
- csi->ip++; /* skip extension */
- csi->ip++; /* skip instruction */
- while(*(csi->ip++)); /* skip string */
- continue; }
-
- if(*csi->ip>=CS_ASCIIZ) {
- csi->ip++; /* skip inst */
- while(*(csi->ip++)); /* skip string */
- continue; }
-
- if(*csi->ip>=CS_THREE_BYTE) {
- csi->ip+=3;
- continue; }
-
- if(*csi->ip>=CS_TWO_BYTE) {
- csi->ip+=2;
- continue; }
-
- csi->ip++; }
-}
-
-
-int exec(csi_t *csi)
-{
- uchar str[256],tmp2[128],buf[1025],*path,ch,*p,**pp,**pp1,**pp2;
- int i,j,k,s,file,x,y;
- long l,*lp,*lp1,*lp2;
- stats_t stats;
- time_t t;
- FILE *stream;
-
-//lprintf("line %d (%d %d %d)\r\n",__LINE__,curgrp,cursub[curgrp],usrsub[curgrp]);
-#if 0
-if(curgrp>=total_grps)
- curgrp=0;
-if(cursub[curgrp]>=total_subs)
- cursub[curgrp]=0;
-if(curlib>=total_libs)
- curlib=0;
-if(curdir[curlib]>=total_dirs)
- curdir[curlib]=0;
-#endif
-
-if(usrgrps)
- cursubnum=usrsub[curgrp][cursub[curgrp]]; /* Used for ARS */
-else
- cursubnum=INVALID_SUB;
-if(usrlibs) {
- curdirnum=usrdir[curlib][curdir[curlib]]; /* Used for ARS */
- path=dir[usrdir[curlib][curdir[curlib]]]->path; }
-else {
- curdirnum=INVALID_DIR;
- path=nulstr; }
-now=time(NULL);
-
-if(csi->ip>=csi->cs+csi->length)
- return(1);
-
-//lprintf("%04X: %02X ",(uint)(csi->ip-csi->cs),*csi->ip);
-
-if(*csi->ip>=CS_FUNCTIONS)
- return(exec_function(csi));
-
-/**********************************************/
-/* Miscellaneous variable length instructions */
-/**********************************************/
-
-if(*csi->ip>=CS_MISC)
- return(exec_misc(csi,path));
-
-/********************************/
-/* ASCIIZ argument instructions */
-/********************************/
-
-if(*csi->ip>=CS_ASCIIZ) {
- switch(*(csi->ip++)) {
- case CS_STR_FUNCTION:
- switch(*(csi->ip++)) {
- case CS_LOGIN:
- csi->logic=login(csi->str,csi->ip);
- break;
- case CS_LOAD_TEXT:
- csi->logic=LOGIC_FALSE;
- for(i=0;i<TOTAL_TEXT;i++)
- if(text[i]!=text_sav[i]) {
- if(text[i]!=nulstr)
- FREE(text[i]);
- text[i]=text_sav[i]; }
- sprintf(str,"%s%s.DAT"
- ,ctrl_dir,cmdstr(csi->ip,path,csi->str,buf));
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- break; }
- for(i=0;i<TOTAL_TEXT && !feof(stream);i++) {
- if((text[i]=readtext((long *)NULL,stream))==NULL) {
- i--;
- continue; }
- if(!strcmp(text[i],text_sav[i])) { /* If identical */
- FREE(text[i]); /* Don't alloc */
- text[i]=text_sav[i]; }
- else if(text[i][0]==0) {
- FREE(text[i]);
- text[i]=nulstr; } }
- if(i<TOTAL_TEXT) {
- fclose(stream);
- errormsg(WHERE,ERR_READ,str,TOTAL_TEXT);
- break; }
- fclose(stream);
- csi->logic=LOGIC_TRUE;
- break;
- default:
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- break; }
- while(*(csi->ip++)); /* Find NULL */
- return(0);
- case CS_LOG:
- log(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_GETCMD:
- csi->cmd=getkeys(csi->ip,0);
- if((char)csi->cmd==-1)
- csi->cmd=3;
- break;
- case CS_CMDSTR:
- if(stricmp(csi->str,csi->ip)) {
- while(*(csi->ip++)); /* Find NULL */
- skipto(csi,CS_END_CMD);
- csi->ip++;
- return(0); }
- break;
- case CS_CMDKEYS:
- for(i=0;csi->ip[i];i++)
- if(csi->cmd==csi->ip[i])
- break;
- if(!csi->ip[i]) {
- while(*(csi->ip++)); /* Find NULL */
- skipto(csi,CS_END_CMD);
- csi->ip++;
- return(0); }
- break;
- case CS_GET_TEMPLATE:
- gettmplt(csi->str,csi->ip,K_LINE);
- if(sys_status&SS_ABORT)
- csi->str[0]=0;
- csi->cmd=csi->str[0];
- break;
- case CS_TRASHCAN:
- csi->logic=!trashcan(csi->str,csi->ip);
- break;
- case CS_CREATE_SIF:
- create_sif_dat(csi->ip,csi->str);
- break;
- case CS_READ_SIF:
- read_sif_dat(csi->ip,csi->str);
- break;
- case CS_MNEMONICS:
- mnemonics(csi->ip);
- break;
- case CS_PRINT:
- putmsg(cmdstr(csi->ip,path,csi->str,buf),P_SAVEATR|P_NOABORT);
- break;
- case CS_PRINT_LOCAL:
- lputs(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_PRINT_REMOTE:
- putcom(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_PRINTFILE:
- printfile(cmdstr(csi->ip,path,csi->str,buf),P_SAVEATR);
- break;
- case CS_PRINTFILE_REMOTE:
- if(online!=ON_REMOTE || !(console&CON_R_ECHO))
- break;
- console&=~CON_L_ECHO;
- printfile(cmdstr(csi->ip,path,csi->str,buf),P_SAVEATR);
- console|=CON_L_ECHO;
- break;
- case CS_PRINTFILE_LOCAL:
- if(!(console&CON_L_ECHO))
- break;
- console&=~CON_R_ECHO;
- printfile(cmdstr(csi->ip,path,csi->str,buf),P_SAVEATR);
- console|=CON_R_ECHO;
- break;
- case CS_CHKFILE:
- csi->logic=!fexist(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_EXEC:
- external(cmdstr(csi->ip,path,csi->str,buf),0);
- break;
- case CS_EXEC_INT:
- external(cmdstr(csi->ip,path,csi->str,buf),EX_OUTR|EX_INR|EX_OUTL);
- break;
- case CS_EXEC_XTRN:
- for(i=0;i<total_xtrns;i++)
- if(!stricmp(xtrn[i]->code,csi->ip))
- break;
- if(i<total_xtrns)
- exec_xtrn(i);
- break;
- case CS_EXEC_BIN:
- exec_bin(cmdstr(csi->ip,path,csi->str,buf),csi);
- break;
- case CS_YES_NO:
- csi->logic=!yesno(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_NO_YES:
- csi->logic=!noyes(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_MENU:
- menu(cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_SETSTR:
- strcpy(csi->str,cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_SET_MENU_DIR:
- cmdstr(csi->ip,path,csi->str,menu_dir);
- break;
- case CS_SET_MENU_FILE:
- cmdstr(csi->ip,path,csi->str,menu_file);
- break;
- case CS_COMPARE_STR:
- csi->logic=stricmp(csi->str,cmdstr(csi->ip,path,csi->str,buf));
- break;
- case CS_COMPARE_KEYS:
- for(i=0;csi->ip[i];i++)
- if(csi->cmd==csi->ip[i])
- break;
- if(csi->ip[i])
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- break;
- case CS_COMPARE_WORD:
- csi->logic=strnicmp(csi->str,csi->ip,strlen(csi->ip));
- break;
- default:
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- break; }
- while(*(csi->ip++)); /* Find NULL */
- return(0); }
-
-if(*csi->ip>=CS_THREE_BYTE) {
- switch(*(csi->ip++)) {
- case CS_THREE_MORE_BYTES:
- switch(*(csi->ip++)) {
- }
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- return(0);
- case CS_GOTO:
- csi->ip=csi->cs+*((ushort *)(csi->ip));
- return(0);
- case CS_CALL:
- csi->ret[csi->rets++]=csi->ip+2;
- csi->ip=csi->cs+*((ushort *)(csi->ip));
- return(0);
- case CS_MSWAIT:
- mswait(*(ushort *)csi->ip);
- csi->ip+=2;
- return(0);
- case CS_TOGGLE_NODE_MISC:
- getnodedat(node_num,&thisnode,1);
- thisnode.misc^=*(ushort *)csi->ip;
- csi->ip+=2;
- putnodedat(node_num,thisnode);
- return(0);
- case CS_COMPARE_NODE_MISC:
- getnodedat(node_num,&thisnode,0);
- if((thisnode.misc&*(ushort *)csi->ip)==*(ushort *)csi->ip)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- csi->ip+=2;
- return(0);
- case CS_ADJUST_USER_CREDITS:
- i=*(short *)csi->ip;
- l=i*1024L;
- if(l<0)
- subtract_cdt(-l);
- else
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,l);
- csi->ip+=2;
- return(0);
- case CS_ADJUST_USER_MINUTES:
- i=*(short *)csi->ip;
- useron.min=adjustuserrec(useron.number,U_MIN,10,i);
- csi->ip+=2;
- return(0);
- case CS_GETNUM:
- i=*(short *)csi->ip;
- csi->ip+=2;
- l=getnum(i);
- if(l<=0) {
- csi->str[0]=0;
- csi->logic=LOGIC_FALSE; }
- else {
- sprintf(csi->str,"%lu",l);
- csi->logic=LOGIC_TRUE; }
- return(0);
-
- case CS_TOGGLE_USER_FLAG:
- i=*(csi->ip++);
- ch=*(csi->ip++);
- switch(i) {
- case '1':
- useron.flags1^=FLAG(ch);
- putuserrec(useron.number,U_FLAGS1,8
- ,ultoa(useron.flags1,tmp,16));
- break;
- case '2':
- useron.flags2^=FLAG(ch);
- putuserrec(useron.number,U_FLAGS2,8
- ,ultoa(useron.flags2,tmp,16));
- break;
- case '3':
- useron.flags3^=FLAG(ch);
- putuserrec(useron.number,U_FLAGS3,8
- ,ultoa(useron.flags3,tmp,16));
- break;
- case '4':
- useron.flags4^=FLAG(ch);
- putuserrec(useron.number,U_FLAGS4,8
- ,ultoa(useron.flags4,tmp,16));
- break;
- case 'R':
- useron.rest^=FLAG(ch);
- putuserrec(useron.number,U_REST,8
- ,ultoa(useron.rest,tmp,16));
- break;
- case 'E':
- useron.exempt^=FLAG(ch);
- putuserrec(useron.number,U_EXEMPT,8
- ,ultoa(useron.exempt,tmp,16));
- break;
- default:
- errormsg(WHERE,ERR_CHK,"user flag type",*(csi->ip-2));
- return(0); }
- statusline();
- return(0);
- case CS_REVERT_TEXT:
- i=*(ushort *)csi->ip;
- csi->ip+=2;
- if((ushort)i==0xffff) {
- for(i=0;i<TOTAL_TEXT;i++) {
- if(text[i]!=text_sav[i] && text[i]!=nulstr)
- FREE(text[i]);
- text[i]=text_sav[i]; }
- return(0); }
- i--;
- if(i>=TOTAL_TEXT) {
- errormsg(WHERE,ERR_CHK,"revert text #",i);
- return(0); }
- if(text[i]!=text_sav[i] && text[i]!=nulstr)
- FREE(text[i]);
- text[i]=text_sav[i];
- return(0);
- default:
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- return(0); } }
-
-if(*csi->ip>=CS_TWO_BYTE) {
- switch(*(csi->ip++)) {
- case CS_TWO_MORE_BYTES:
- switch(*(csi->ip++)) {
- case CS_USER_EVENT:
- user_event(*(csi->ip++));
- return(0);
- }
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- return(0);
- case CS_SETLOGIC:
- csi->logic=*csi->ip++;
- return(0);
- case CS_CMDKEY:
- if( ((*csi->ip)==CS_DIGIT && isdigit(csi->cmd))
- || ((*csi->ip)==CS_EDIGIT && csi->cmd&0x80
- && isdigit(csi->cmd&0x7f))) {
- csi->ip++;
- return(0); }
- if(csi->cmd!=*csi->ip) {
- csi->ip++;
- skipto(csi,CS_END_CMD); } /* skip code */
- csi->ip++; /* skip key */
- return(0);
- case CS_NODE_ACTION:
- action=*csi->ip++;
- return(0);
- case CS_NODE_STATUS:
- getnodedat(node_num,&thisnode,1);
- thisnode.status=*csi->ip++;
- putnodedat(node_num,thisnode);
- return(0);
- case CS_GETSTR:
- csi->logic=LOGIC_TRUE;
- getstr(csi->str,*csi->ip++,0);
- if(sys_status&SS_ABORT) {
- csi->str[0]=0;
- csi->logic=LOGIC_FALSE; }
- if(csi->str[0]=='/' && csi->str[1])
- csi->cmd=csi->str[1]|0x80;
- else
- csi->cmd=csi->str[0];
- return(0);
- case CS_GETLINE:
- getstr(csi->str,*csi->ip++,K_LINE);
- if(sys_status&SS_ABORT)
- csi->str[0]=0;
- if(csi->str[0]=='/' && csi->str[1])
- csi->cmd=csi->str[1]|0x80;
- else
- csi->cmd=csi->str[0];
- return(0);
- case CS_GETSTRUPR:
- getstr(csi->str,*csi->ip++,K_UPPER);
- if(sys_status&SS_ABORT)
- csi->str[0]=0;
- if(csi->str[0]=='/' && csi->str[1])
- csi->cmd=csi->str[1]|0x80;
- else
- csi->cmd=csi->str[0];
- return(0);
- case CS_GETNAME:
- getstr(csi->str,*csi->ip++,K_UPRLWR);
- if(sys_status&SS_ABORT)
- csi->str[0]=0;
- return(0);
- case CS_SHIFT_STR:
- if(strlen(csi->str)>=*csi->ip)
- memmove(csi->str,csi->str+(*csi->ip)
- ,strlen(csi->str)+1);
- csi->ip++;
- return(0);
- case CS_COMPARE_KEY:
- if( ((*csi->ip)==CS_DIGIT && isdigit(csi->cmd))
- || ((*csi->ip)==CS_EDIGIT && csi->cmd&0x80
- && isdigit(csi->cmd&0x7f))) {
- csi->ip++;
- csi->logic=LOGIC_TRUE; }
- else {
- if(csi->cmd==*(csi->ip++))
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE; }
- return(0);
- case CS_SET_USER_LEVEL:
- useron.level=*(csi->ip++);
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,tmp,10));
- statusline();
- return(0);
- case CS_SET_USER_STRING:
- csi->logic=LOGIC_FALSE;
- if(!csi->str[0]) {
- csi->ip++;
- return(0); }
- switch(*(csi->ip++)) {
- case USER_STRING_ALIAS:
- if(!isalpha(csi->str[0]) || trashcan(csi->str,"NAME"))
- break;
- i=matchuser(csi->str);
- if(i && i!=useron.number)
- break;
- sprintf(useron.alias,"%.*s",LEN_ALIAS,csi->str);
- putuserrec(useron.number,U_ALIAS,LEN_ALIAS,useron.alias);
- putusername(useron.number,useron.alias);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_REALNAME:
- if(trashcan(csi->str,"NAME"))
- break;
- if(uq&UQ_DUPREAL
- && userdatdupe(useron.number,U_NAME,LEN_NAME
- ,csi->str,0))
- break;
- sprintf(useron.name,"%.*s",LEN_NAME,csi->str);
- putuserrec(useron.number,U_NAME,LEN_NAME
- ,useron.name);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_HANDLE:
- if(trashcan(csi->str,"NAME"))
- break;
- if(uq&UQ_DUPHAND
- && userdatdupe(useron.number,U_HANDLE,LEN_HANDLE
- ,csi->str,0))
- break;
- sprintf(useron.handle,"%.*s",LEN_HANDLE,csi->str);
- putuserrec(useron.number,U_HANDLE,LEN_HANDLE
- ,useron.handle);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_COMPUTER:
- sprintf(useron.comp,"%.*s",LEN_COMP,csi->str);
- putuserrec(useron.number,U_COMP,LEN_COMP
- ,useron.comp);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_NOTE:
- sprintf(useron.note,"%.*s",LEN_NOTE,csi->str);
- putuserrec(useron.number,U_NOTE,LEN_NOTE
- ,useron.note);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_ADDRESS:
- sprintf(useron.address,"%.*s",LEN_ADDRESS,csi->str);
- putuserrec(useron.number,U_ADDRESS,LEN_ADDRESS
- ,useron.address);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_LOCATION:
- sprintf(useron.location,"%.*s",LEN_LOCATION,csi->str);
- putuserrec(useron.number,U_LOCATION,LEN_LOCATION
- ,useron.location);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_ZIPCODE:
- sprintf(useron.zipcode,"%.*s",LEN_ZIPCODE,csi->str);
- putuserrec(useron.number,U_ZIPCODE,LEN_ZIPCODE
- ,useron.zipcode);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_PASSWORD:
- sprintf(useron.pass,"%.*s",LEN_PASS,csi->str);
- putuserrec(useron.number,U_PASS,LEN_PASS
- ,useron.pass);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_BIRTHDAY:
- if(!getage(csi->str))
- break;
- sprintf(useron.birth,"%.*s",LEN_BIRTH,csi->str);
- putuserrec(useron.number,U_BIRTH,LEN_BIRTH
- ,useron.birth);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_PHONE:
- if(trashcan(csi->str,"PHONE"))
- break;
- sprintf(useron.phone,"%.*s",LEN_PHONE,csi->str);
- putuserrec(useron.number,U_PHONE,LEN_PHONE
- ,useron.phone);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_MODEM:
- sprintf(useron.modem,"%.*s",LEN_MODEM,csi->str);
- putuserrec(useron.number,U_MODEM,LEN_MODEM
- ,useron.phone);
- csi->logic=LOGIC_TRUE;
- break;
- case USER_STRING_COMMENT:
- sprintf(useron.comment,"%.*s",LEN_COMMENT,csi->str);
- putuserrec(useron.number,U_COMMENT,LEN_COMMENT
- ,useron.comment);
- csi->logic=LOGIC_TRUE;
- break;
- default:
- errormsg(WHERE,ERR_CHK,"user string type",*(csi->ip-1));
- return(0); }
- statusline();
- return(0);
- default:
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- return(0); } }
-
-
-/*********************************/
-/* Single Byte Instrcutions ONLY */
-/*********************************/
-
-switch(*(csi->ip++)) {
- case CS_ONE_MORE_BYTE: /* Just one MORE byte */
- switch(*(csi->ip++)) {
- case CS_OFFLINE:
- csi->misc|=CS_OFFLINE_EXEC;
- return(0);
- case CS_ONLINE:
- csi->misc&=~CS_OFFLINE_EXEC;
- return(0);
- case CS_NEWUSER:
- newuser();
- return(0);
- case CS_LOGON:
- if(logon())
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_LOGOUT:
- logout();
- return(0);
- case CS_EXIT:
- return(1);
- default:
- errormsg(WHERE,ERR_CHK,"one byte extended function"
- ,*(csi->ip-1));
- return(0); }
- case CS_CRLF:
- CRLF;
- return(0);
- case CS_CLS:
- CLS;
- return(0);
- case CS_PAUSE:
- pause();
- return(0);
- case CS_PAUSE_RESET:
- lncntr=0;
- return(0);
- case CS_GETLINES:
- getlines();
- return(0);
- case CS_HANGUP:
- hangup();
- return(0);
- case CS_LOGKEY:
- logch(csi->cmd,0);
- return(0);
- case CS_LOGKEY_COMMA:
- logch(csi->cmd,1);
- return(0);
- case CS_LOGSTR:
- log(csi->str);
- return(0);
- case CS_CHKSYSPASS:
- csi->logic=!chksyspass(0);
- return(0);
- case CS_PUT_NODE:
- getnodedat(node_num,&thisnode,1);
- putnodedat(node_num,thisnode);
- return(0);
- case CS_SYNC:
- SYNC;
- return(0);
- case CS_ASYNC:
- ASYNC;
- return(0);
- case CS_RIOSYNC:
- RIOSYNC(0);
- return(0);
- case CS_GETTIMELEFT:
- gettimeleft();
- return(0);
- case CS_RETURN:
- if(!csi->rets)
- return(1);
- csi->ip=csi->ret[--csi->rets];
- return(0);
- case CS_GETKEY:
- csi->cmd=getkey(K_UPPER);
- return(0);
- case CS_INKEY:
- csi->cmd=toupper(inkey(K_GETSTR));
- if(csi->cmd)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_GETKEYE:
- csi->cmd=getkey(K_UPPER);
- if(csi->cmd=='/') {
- outchar('/');
- csi->cmd=getkey(K_UPPER);
- csi->cmd|=0x80; }
- return(0);
- case CS_GETFILESPEC:
- if(getfilespec(csi->str))
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_SAVELINE:
- SAVELINE;
- return(0);
- case CS_RESTORELINE:
- RESTORELINE;
- return(0);
- case CS_SELECT_SHELL:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<total_shells;i++)
- uselect(1,i,"Command Shell",shell[i]->name,shell[i]->ar);
- if((i=uselect(0,useron.shell,0,0,0))>=0) {
- useron.shell=i;
- putuserrec(useron.number,U_SHELL,8,shell[i]->code); }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_SET_SHELL:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<total_shells;i++)
- if(!stricmp(csi->str,shell[i]->code)
- && chk_ar(shell[i]->ar,useron))
- break;
- if(i<total_shells) {
- useron.shell=i;
- putuserrec(useron.number,U_SHELL,8,shell[i]->code); }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
-
- case CS_SELECT_EDITOR:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<total_xedits;i++)
- uselect(1,i,"External Editor",xedit[i]->name,xedit[i]->ar);
- if(useron.xedit) useron.xedit--;
- if((i=uselect(0,useron.xedit,0,0,0))>=0) {
- useron.xedit=i+1;
- putuserrec(useron.number,U_XEDIT,8,xedit[i]->code); }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_SET_EDITOR:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<total_xedits;i++)
- if(!stricmp(csi->str,xedit[i]->code)
- && chk_ar(xedit[i]->ar,useron))
- break;
- if(i<total_xedits) {
- useron.xedit=i+1;
- putuserrec(useron.number,U_XEDIT,8,xedit[i]->code); }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
-
- case CS_CLEAR_ABORT:
- sys_status&=~SS_ABORT;
- return(0);
- case CS_FINDUSER:
- i=finduser(csi->str);
- if(i) {
- csi->logic=LOGIC_TRUE;
- username(i,csi->str); }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_UNGETKEY:
- ungetkey(csi->cmd&0x7f);
- return(0);
- case CS_UNGETSTR:
- j=strlen(csi->str);
- for(i=0;i<j;i++)
- ungetkey(csi->str[i]);
- return(0);
- case CS_PRINTKEY:
- if((csi->cmd&0x7f)>=SP)
- outchar(csi->cmd&0x7f);
- return(0);
- case CS_PRINTSTR:
- putmsg(csi->str,P_SAVEATR|P_NOABORT);
- return(0);
- case CS_CMD_HOME:
- csi->cmdret[csi->cmdrets++]=(csi->ip-1);
- return(0);
- case CS_END_CMD:
- if(csi->cmdrets)
- csi->ip=csi->cmdret[--csi->cmdrets];
-/* Removed 06/07/95
- else
- errormsg(WHERE,ERR_CHK,"misplaced end_cmd",(csi->ip-csi->cs)-1);
-*/
- return(0);
- case CS_CMD_POP:
- if(csi->cmdrets)
- csi->cmdrets--;
- return(0);
- case CS_IF_TRUE:
- if(csi->logic!=LOGIC_TRUE) {
- skipto(csi,CS_ELSEORENDIF);
- csi->ip++; }
- return(0);
- case CS_IF_GREATER:
- if(csi->logic!=LOGIC_GREATER) {
- skipto(csi,CS_ELSEORENDIF);
- csi->ip++; }
- return(0);
- case CS_IF_GREATER_OR_EQUAL:
- if(csi->logic!=LOGIC_GREATER && csi->logic!=LOGIC_EQUAL) {
- skipto(csi,CS_ELSEORENDIF);
- csi->ip++; }
- return(0);
- case CS_IF_LESS:
- if(csi->logic!=LOGIC_LESS) {
- skipto(csi,CS_ELSEORENDIF);
- csi->ip++; }
- return(0);
- case CS_IF_LESS_OR_EQUAL:
- if(csi->logic!=LOGIC_LESS && csi->logic!=LOGIC_EQUAL) {
- skipto(csi,CS_ELSEORENDIF);
- csi->ip++; }
- return(0);
- case CS_IF_FALSE:
- if(csi->logic==LOGIC_TRUE) {
- skipto(csi,CS_ELSEORENDIF);
- csi->ip++; }
- return(0);
- case CS_ELSE:
- skipto(csi,CS_ENDIF);
- csi->ip++;
- return(0);
- case CS_END_CASE:
- skipto(csi,CS_END_SWITCH);
- csi->misc&=~CS_IN_SWITCH;
- csi->ip++;
- return(0);
- case CS_DEFAULT:
- case CS_END_SWITCH:
- csi->misc&=~CS_IN_SWITCH;
- return(0);
- case CS_ENDIF:
- return(0);
- default:
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- return(0); }
-}
-
diff --git a/src/sbbs2/execdos/execdos.c b/src/sbbs2/execdos/execdos.c
deleted file mode 100644
index 30091ddcecd67da303d9ec65c375eaa3e33892e2..0000000000000000000000000000000000000000
--- a/src/sbbs2/execdos/execdos.c
+++ /dev/null
@@ -1,271 +0,0 @@
-/* EXECDOS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Execute DOS external BBS programs from OS/2 BBS */
-
-#include "sbbs.h"
-
-extern unsigned _heaplen=2048;
-
-extern uint riobp;
-
-ulong user_misc;
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- uint c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-void interrupt (*oldfunc)(void);
-
-/*****************************************************************************/
-/* Interrupt routine to expand WWIV Ctrl-C# codes into ANSI escape sequences */
-/*****************************************************************************/
-void interrupt wwiv_expand()
-{
- char str[256],al;
- static int ctrl_c;
- int i,j;
-
-al=_AL;
-if(al!=3 && !ctrl_c)
- oldfunc();
-else if(al!=3 && ctrl_c) {
- ctrl_c=0;
- if(user_misc&ANSI) {
- switch(al) {
- default:
- strcpy(str,"\x1b[0m"); /* low grey */
- break;
- case '1':
- strcpy(str,"\x1b[0;1;36m"); /* high cyan */
- break;
- case '2':
- strcpy(str,"\x1b[0;1;33m"); /* high yellow */
- break;
- case '3':
- strcpy(str,"\x1b[0;35m"); /* low magenta */
- break;
- case '4':
- strcpy(str,"\x1b[0;1;44m"); /* white on blue */
- break;
- case '5':
- strcpy(str,"\x1b[0;32m"); /* low green */
- break;
- case '6':
- strcpy(str,"\x1b[0;1;5;31m"); /* high blinking red */
- break;
- case '7':
- strcpy(str,"\x1b[0;1;34m"); /* high blue */
- break;
- case '8':
- strcpy(str,"\x1b[0;34m"); /* low blue */
- break;
- case '9':
- strcpy(str,"\x1b[0;36m"); /* low cyan */
- break; }
- j=strlen(str);
- for(i=0;i<j;i++) {
- _AL=str[i];
- oldfunc(); } } }
-else
- ctrl_c=1;
-}
-
-int main(int argc, char **argv)
-{
- char str[256],commandline[128],sbbsnode[81],sbbsnnum[81],msr[31]="0"
- ,user_name[LEN_NAME+1]
- ,user_alias[LEN_ALIAS+1]
- ,user_phone[LEN_PHONE+1]
- ,user_location[LEN_LOCATION+1]
- ,user_age
- ,user_sex
- ,user_level
- ,node_scrnlen
- ,*envvar[30],*arg[30],c,d;
- int i,file,base,com_base=0,com_irq,dte_rate,rmode,mode,node_num,col,row;
- FILE *stream;
-
-if(argc<2) {
- printf("This program is for the internal use of Synchronet.\r\n");
- return(-1); }
-
-sprintf(sbbsnode,"SBBSNODE=%s",argv[1]);
-putenv(sbbsnode);
-sprintf(str,"%sEXECDOS.DAT",argv[1]);
-if((file=open(str,O_RDONLY|O_BINARY))!=-1) {
- stream=fdopen(file,"rb");
- str[0]=0;
- fgets(str,128,stream);
- truncsp(str);
- if(strcmp(str,"V1.00")) {
- printf("\7EXECDOS: SBBS VERSION MISMATCH!\7\r\n");
- delay(5000);
- return(-1); }
- str[0]=0;
- fgets(str,128,stream);
- com_base=strtoul(str,0,16);
- str[0]=0;
- fgets(str,128,stream);
- com_irq=atoi(str);
- str[0]=0;
- fgets(str,128,stream);
- dte_rate=atoi(str);
- str[0]=0;
- fgets(str,128,stream);
- rmode=strtoul(str,0,16);
- str[0]=0;
- fgets(str,128,stream);
- mode=strtoul(str,0,16);
- str[0]=0;
- fgets(str,128,stream);
- user_misc=strtoul(str,0,16);
- str[0]=0;
- fgets(str,128,stream);
- node_num=atoi(str);
- if(node_num) {
- sprintf(sbbsnnum,"SBBSNNUM=%u",node_num);
- putenv(sbbsnnum); }
- fgets(commandline,128,stream);
- truncsp(commandline);
- str[0]=0;
- fgets(str,128,stream);
- i=atoi(str); /* total env vars */
- while(i--) {
- str[0]=0;
- fgets(str,128,stream);
- truncsp(str);
- if((envvar[i]=MALLOC(strlen(str)+1))!=NULL) {
- strcpy(envvar[i],str);
- putenv(envvar[i]); } }
- str[0]=0;
- fgets(str,128,stream);
- truncsp(str);
- sprintf(user_alias,"%.*s",LEN_ALIAS,str);
- str[0]=0;
- fgets(str,128,stream);
- truncsp(str);
- sprintf(user_name,"%.*s",LEN_NAME,str);
- str[0]=0;
- fgets(str,128,stream);
- user_level=atoi(str);
- str[0]=0;
- fgets(str,128,stream);
- user_age=atoi(str);
- str[0]=0;
- fgets(str,128,stream);
- user_sex=str[0];
- str[0]=0;
- fgets(str,128,stream);
- truncsp(str);
- sprintf(user_phone,"%.*s",LEN_PHONE,str);
- str[0]=0;
- fgets(str,128,stream);
- truncsp(str);
- sprintf(user_location,"%.*s",LEN_LOCATION,str);
- fclose(stream); }
-
-printf("\nEXECDOS: %s\n",commandline);
-
-if(rmode && com_base) { /* Capture the port and intercept I/O */
- base=0xffff;
- switch(com_base) {
- case 0xb:
- rioctl(I14PC);
- break;
- case 0xffff:
- case 0xd:
- rioctl(I14DB);
- break;
- case 0xe:
- rioctl(I14PS);
- break;
- case 0xf:
- rioctl(I14FO);
- break;
- default:
- base=com_base;
- break; }
-
- if(rioini(base,com_irq)) {
- printf("\7EXECDOS: Error initializing COM port (%x,%d)\7\r\n"
- ,base,com_irq);
- return(-1); }
- rioctl(IOSM|CTSCK|RTSCK|PAUSE|ABORT);
- rioctl(CPTON); /* Cvt ^p to ^^ */
-
- sprintf(msr,"%lu",&riobp-1);
-
- sprintf(str,"%sINTRSBBS.DAT",argv[1]);
- if((stream=fopen(str,"wb"))!=NULL) {
- fprintf(stream,"%lu\r\n",&riobp-1);
- fclose(stream); } }
-
-setbaud(dte_rate);
-
-if(rmode) {
- ivhctl(rmode);
-
- if(mode&EX_WWIV) { /* WWIV code expansion */
- rioctl(CPTOFF); /* turn off ctrl-p translation */
- oldfunc=getvect(0x29);
- setvect(0x29,wwiv_expand); } }
-
-
-if(rmode&INT29L && user_alias[0]) {
- node_scrnlen=lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
- lclini(node_scrnlen-1);
- col=lclwx();
- row=lclwy();
- lclxy(1,node_scrnlen);
- lclatr(CYAN|HIGH|(BLUE<<4));
- lputs(" ");
- sprintf(str,"%-25.25s %02d %-25.25s %02d %c %s"
- ,user_alias,user_level,user_name[0] ? user_name : user_location
- ,user_age
- ,user_sex ? user_sex : SP
- ,user_phone);
- lputs(str);
- lputc(CLREOL);
- lclatr(LIGHTGRAY);
- lclxy(col,row); }
-
-/* separate args */
-
-arg[0]=commandline; /* point to the beginning of the string */
-for(c=0,d=1;commandline[c];c++) /* Break up command line */
- if(commandline[c]==SP) {
- commandline[c]=0; /* insert nulls */
- if(!strncmp(commandline+c+1,"%& ",3))
- arg[d++]=msr;
- else /* point to the beginning of the next arg */
- arg[d++]=commandline+c+1; }
-arg[d]=0;
-
-/* spawn it */
-
-i=spawnvp(P_WAIT,arg[0],arg);
-
-if(rmode) {
- rioctl(TXSYNC|(3<<8));
- rioctl(IOFB);
- if(mode&EX_WWIV)
- setvect(0x29,oldfunc);
- ivhctl(0); /* replace DOS output interrupt vectors */
- if(com_base)
- rioini(0,0); } /* replace com port */
-
-//if(i) // debug
-// getch();
-return(i);
-}
diff --git a/src/sbbs2/execdos/make.bat b/src/sbbs2/execdos/make.bat
deleted file mode 100755
index fcacf7981669af69e33e6b7c639ee8aa5c72fa9b..0000000000000000000000000000000000000000
--- a/src/sbbs2/execdos/make.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-@echo off
-bcc -w-pro -I..;..\rio;..\smb -ml execdos.c ..\dos\rciol.obj
-if errorlevel 1 goto end
-rem exe2bin execdos.exe execdos.com
-:end
diff --git a/src/sbbs2/execfile.c b/src/sbbs2/execfile.c
deleted file mode 100644
index 966b7279a956cf5a0142446e9a48eb4b5a9a7e5e..0000000000000000000000000000000000000000
--- a/src/sbbs2/execfile.c
+++ /dev/null
@@ -1,481 +0,0 @@
-#line 1 "EXECFILE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-int execfile(csi_t *csi)
-{
- uchar str[256],tmp2[128],*path,ch,*p;
- int i,j,k,s,file,x,y;
- long l;
- stats_t stats;
- node_t node;
- file_t f;
- time_t t;
- csi_t bin;
-
-switch(*(csi->ip++)) {
-
- case CS_FILE_SELECT_AREA:
- csi->logic=LOGIC_FALSE;
- if(!usrlibs) return(0);
- while(online) {
- j=0;
- if(usrlibs>1) {
- sprintf(str,"%sMENU\\LIBS.*",text_dir);
- if(fexist(str))
- menu("LIBS");
- else {
- bputs(text[CfgLibLstHdr]);
- for(i=0;i<usrlibs && !msgabort();i++) {
- if(i==curlib)
- outchar('*');
- else outchar(SP);
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bprintf(text[CfgLibLstFmt]
- ,i+1,lib[usrlib[i]]->lname); } }
- sprintf(str,text[JoinWhichLib],curlib+1);
- mnemonics(str);
- j=getnum(usrlibs);
- if((int)j==-1)
- return(0);
- if(!j)
- j=curlib;
- else
- j--; }
- sprintf(str,"%sMENU\\DIRS%u.*",text_dir,usrlib[j]+1);
- if(fexist(str)) {
- sprintf(str,"DIRS%u",usrlib[j]+1);
- menu(str); }
- else {
- CLS;
- bprintf(text[DirLstHdr],lib[usrlib[j]]->lname);
- for(i=0;i<usrdirs[j] && !msgabort();i++) {
- if(i==curdir[j]) outchar('*');
- else outchar(SP);
- sprintf(str,text[DirLstFmt],i+1
- ,dir[usrdir[j][i]]->lname,nulstr
- ,getfiles(usrdir[j][i]));
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bputs(str); } }
- sprintf(str,text[JoinWhichDir],curdir[j]+1);
- mnemonics(str);
- i=getnum(usrdirs[j]);
- if((int)i==-1) {
- if(usrlibs==1)
- return(0);
- continue; }
- if(!i)
- i=curdir[j];
- else
- i--;
- curlib=j;
- curdir[curlib]=i;
- csi->logic=LOGIC_TRUE;
- return(0); }
- return(0);
-
- case CS_FILE_GET_DIR_NUM:
-
- if(useron.misc&COLDKEYS) {
- i=atoi(csi->str);
- if(i && i<=usrdirs[curlib] && usrlibs)
- curdir[curlib]=i-1;
- return(0); }
-
- ch=getkey(K_UPPER);
- outchar(ch);
- if((ch&0xf)*10<=usrdirs[curlib] && (ch&0xf) && usrlibs) {
- i=(ch&0xf)*10;
- ch=getkey(K_UPPER);
- if(!isdigit(ch) && ch!=CR) {
- ungetkey(ch);
- curdir[curlib]=(i/10)-1;
- return(0); }
- outchar(ch);
- if(ch==CR) {
- curdir[curlib]=(i/10)-1;
- return(0); }
- logch(ch,0);
- i+=ch&0xf;
- if(i*10<=usrdirs[curlib]) { /* 100+ dirs */
- i*=10;
- ch=getkey(K_UPPER);
- if(!isdigit(ch) && ch!=CR) {
- ungetkey(ch);
- curdir[curlib]=(i/10)-1;
- return(0); }
- outchar(ch);
- if(ch==CR) {
- curdir[curlib]=(i/10)-1;
- return(0); }
- logch(ch,0);
- i+=ch&0xf; }
- if(i<=usrdirs[curlib])
- curdir[curlib]=i-1;
- return(0); }
- if((ch&0xf)<=usrdirs[curlib] && (ch&0xf) && usrlibs)
- curdir[curlib]=(ch&0xf)-1;
- return(0);
-
- case CS_FILE_GET_LIB_NUM:
-
- if(useron.misc&COLDKEYS) {
- i=atoi(csi->str);
- if(i && i<=usrlibs)
- curlib=i-1;
- return(0); }
-
- ch=getkey(K_UPPER);
- outchar(ch);
- if((ch&0xf)*10<=usrlibs && (ch&0xf)) {
- i=(ch&0xf)*10;
- ch=getkey(K_UPPER);
- if(!isdigit(ch) && ch!=CR) {
- ungetkey(ch);
- curlib=(i/10)-1;
- return(0); }
- outchar(ch);
- if(ch==CR) {
- curlib=(i/10)-1;
- return(0); }
- logch(ch,0);
- i+=ch&0xf;
- if(i<=usrlibs)
- curlib=i-1;
- return(0); }
- if((ch&0xf)<=usrlibs && (ch&0xf))
- curlib=(ch&0xf)-1;
- return(0);
-
- case CS_FILE_SHOW_LIBRARIES:
- if(!usrlibs) return(0);
- sprintf(str,"%sMENU\\LIBS.*",text_dir);
- if(fexist(str)) {
- menu("LIBS");
- return(0); }
- bputs(text[LibLstHdr]);
- for(i=0;i<usrlibs && !msgabort();i++) {
- if(i==curlib)
- outchar('*');
- else outchar(SP);
- if(i<9) outchar(SP);
- bprintf(text[LibLstFmt],i+1
- ,lib[usrlib[i]]->lname,nulstr,usrdirs[i]); }
- return(0);
-
- case CS_FILE_SHOW_DIRECTORIES:
- if(!usrlibs) return(0);
- sprintf(str,"%sMENU\\DIRS%u.*",text_dir,usrlib[curlib]+1);
- if(fexist(str)) {
- sprintf(str,"DIRS%u",usrlib[curlib]+1);
- menu(str);
- return(0); }
- CRLF;
- bprintf(text[DirLstHdr],lib[usrlib[curlib]]->lname);
- for(i=0;i<usrdirs[curlib] && !msgabort();i++) {
- if(i==curdir[curlib]) outchar('*');
- else outchar(SP);
- sprintf(str,text[DirLstFmt],i+1
- ,dir[usrdir[curlib][i]]->lname,nulstr
- ,getfiles(usrdir[curlib][i]));
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bputs(str); }
- return(0);
-
- case CS_FILE_LIBRARY_UP:
- curlib++;
- if(curlib>=usrlibs)
- curlib=0;
- return(0);
- case CS_FILE_LIBRARY_DOWN:
- if(!curlib)
- curlib=usrlibs-1;
- else curlib--;
- return(0);
- case CS_FILE_DIRECTORY_UP:
- if(!usrlibs) return(0);
- curdir[curlib]++;
- if(curdir[curlib]>=usrdirs[curlib])
- curdir[curlib]=0;
- return(0);
- case CS_FILE_DIRECTORY_DOWN:
- if(!usrlibs) return(0);
- if(!curdir[curlib])
- curdir[curlib]=usrdirs[curlib]-1;
- else curdir[curlib]--;
- return(0);
- case CS_FILE_SET_AREA:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<usrlibs;i++)
- for(j=0;j<usrdirs[i];j++)
- if(!stricmp(csi->str,dir[usrdir[i][j]]->code)) {
- curlib=i;
- curdir[i]=j;
- return(0); }
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_FILE_SET_LIBRARY:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<usrlibs;i++)
- if(!stricmp(lib[usrlib[i]]->sname,csi->str))
- break;
- if(i<usrlibs)
- curlib=i;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
-
- case CS_FILE_UPLOAD:
- csi->logic=LOGIC_FALSE;
- if(useron.rest&FLAG('U')) {
- bputs(text[R_Upload]);
- return(0); }
- if(usrlibs) {
- i=usrdir[curlib][curdir[curlib]];
- if(upload_dir!=INVALID_DIR
- && !chk_ar(dir[i]->ul_ar,useron))
- i=upload_dir; }
- else
- i=upload_dir;
-
- if((uint)i==INVALID_DIR || !chk_ar(dir[i]->ul_ar,useron)) {
- bputs(text[CantUploadHere]);
- return(0); }
-
- if(gettotalfiles(i)>=dir[i]->maxfiles)
- bputs(text[DirFull]);
- else {
- upload(i);
- csi->logic=LOGIC_TRUE; }
- return(0);
- case CS_FILE_UPLOAD_USER:
- csi->logic=LOGIC_FALSE;
- if(user_dir==INVALID_DIR) {
- bputs(text[NoUserDir]);
- return(0); }
- if(gettotalfiles(user_dir)>=dir[user_dir]->maxfiles)
- bputs(text[UserDirFull]);
- else if(useron.rest&FLAG('U'))
- bputs(text[R_Upload]);
- else if(!chk_ar(dir[user_dir]->ul_ar,useron))
- bputs(text[CantUploadToUser]);
- else {
- upload(user_dir);
- csi->logic=LOGIC_TRUE; }
- return(0);
- case CS_FILE_UPLOAD_SYSOP:
- csi->logic=LOGIC_FALSE;
- if(sysop_dir==INVALID_DIR) {
- bputs(text[NoSysopDir]);
- return(0); }
- if(gettotalfiles(sysop_dir)>=dir[sysop_dir]->maxfiles)
- bputs(text[DirFull]);
- else if(useron.rest&FLAG('U'))
- bputs(text[R_Upload]);
- else if(!chk_ar(dir[sysop_dir]->ul_ar,useron))
- bputs(text[CantUploadToSysop]);
- else {
- upload(sysop_dir);
- csi->logic=LOGIC_TRUE; }
- return(0);
- case CS_FILE_DOWNLOAD:
- if(!usrlibs) return(0);
- if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- return(0); }
- padfname(csi->str,str);
- strupr(str);
- if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_DOWNLOAD)) {
- bputs(text[SearchingAllDirs]);
- for(i=0;i<usrdirs[curlib];i++)
- if(i!=curdir[curlib] &&
- (s=listfileinfo(usrdir[curlib][i],str,FI_DOWNLOAD))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0);
- bputs(text[SearchingAllLibs]);
- for(i=0;i<usrlibs;i++) {
- if(i==curlib) continue;
- for(j=0;j<usrdirs[i];j++)
- if((s=listfileinfo(usrdir[i][j],str,FI_DOWNLOAD))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0); } }
- return(0);
- case CS_FILE_DOWNLOAD_USER: /* Download from user dir */
- csi->logic=LOGIC_FALSE;
- if(user_dir==INVALID_DIR) {
- bputs(text[NoUserDir]);
- return(0); }
- if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- return(0); }
- CRLF;
- if(!listfileinfo(user_dir,nulstr,FI_USERXFER))
- bputs(text[NoFilesForYou]);
- else
- csi->logic=LOGIC_TRUE;
- return(0);
- case CS_FILE_DOWNLOAD_BATCH:
- if(batdn_total && yesno(text[DownloadBatchQ])) {
- start_batch_download();
- csi->logic=LOGIC_TRUE; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_FILE_BATCH_ADD_LIST:
- batch_add_list(csi->str);
- return(0);
- case CS_FILE_BATCH_ADD:
- csi->logic=LOGIC_FALSE;
- if(!csi->str[0])
- return(0);
- padfname(csi->str,f.name);
- strupr(f.name);
- for(x=0;x<usrlibs;x++) {
- for(y=0;y<usrdirs[x];y++)
- if(findfile(usrdir[x][y],f.name))
- break;
- if(y<usrdirs[x])
- break; }
- if(x>=usrlibs)
- return(0);
- f.dir=usrdir[x][y];
- getfileixb(&f);
- f.size=0;
- getfiledat(&f);
- addtobatdl(f);
- csi->logic=LOGIC_TRUE;
- return(0);
- case CS_FILE_BATCH_CLEAR:
- if(!batdn_total) {
- csi->logic=LOGIC_FALSE;
- return(0); }
- csi->logic=LOGIC_TRUE;
- for(i=0;i<batdn_total;i++) {
- f.dir=batdn_dir[i];
- f.datoffset=batdn_offset[i];
- f.size=batdn_size[i];
- strcpy(f.name,batdn_name[i]);
- closefile(f); }
- batdn_total=0;
- return(0);
-
- case CS_FILE_VIEW:
- if(!usrlibs) return(0);
- padfname(csi->str,str);
- strupr(str);
- csi->logic=LOGIC_TRUE;
- if(listfiles(usrdir[curlib][curdir[curlib]],str,0,FL_VIEW))
- return(0);
- bputs(text[SearchingAllDirs]);
- for(i=0;i<usrdirs[curlib];i++) {
- if(i==curdir[curlib]) continue;
- if(listfiles(usrdir[curlib][i],str,0,FL_VIEW))
- break; }
- if(i<usrdirs[curlib])
- return(0);
- bputs(text[SearchingAllLibs]);
- for(i=0;i<usrlibs;i++) {
- if(i==curlib) continue;
- for(j=0;j<usrdirs[i];j++)
- if(listfiles(usrdir[i][j],str,0,FL_VIEW))
- return(0); }
- csi->logic=LOGIC_FALSE;
- bputs(text[FileNotFound]);
- return(0);
- case CS_FILE_LIST: /* List files in current dir */
- if(!usrlibs) return(0);
- csi->logic=LOGIC_FALSE;
- if(!getfiles(usrdir[curlib][curdir[curlib]])) {
- bputs(text[EmptyDir]);
- return(0); }
- padfname(csi->str,str);
- strupr(str);
- s=listfiles(usrdir[curlib][curdir[curlib]],str,0,0);
- if(s>1) {
- bprintf(text[NFilesListed],s); }
- csi->logic=!s;
- return(0);
- case CS_FILE_LIST_EXTENDED: /* Extended Information on files */
- if(!usrlibs) return(0);
- padfname(csi->str,str);
- strupr(str);
- if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_INFO)) {
- bputs(text[SearchingAllDirs]);
- for(i=0;i<usrdirs[curlib];i++)
- if(i!=curdir[curlib] && (s=listfileinfo(usrdir[curlib][i]
- ,str,FI_INFO))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0);
- bputs(text[SearchingAllLibs]);
- for(i=0;i<usrlibs;i++) {
- if(i==curlib) continue;
- for(j=0;j<usrdirs[i];j++)
- if((s=listfileinfo(usrdir[i][j],str,FI_INFO))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0); } }
- return(0);
- case CS_FILE_FIND_TEXT: /* Find text in descriptions */
- scandirs(FL_FINDDESC);
- return(0);
- case CS_FILE_FIND_TEXT_ALL: /* Find text in descriptions */
- scanalldirs(FL_FINDDESC);
- return(0);
- case CS_FILE_FIND_NAME: /* Find text in descriptions */
- scandirs(FL_NO_HDR);
- return(0);
- case CS_FILE_FIND_NAME_ALL: /* Find text in descriptions */
- scanalldirs(FL_NO_HDR);
- return(0);
- case CS_FILE_BATCH_SECTION:
- batchmenu();
- return(0);
- case CS_FILE_TEMP_SECTION:
- temp_xfer();
- return(0);
- case CS_FILE_PTRS_CFG:
- csi->logic=!inputnstime(&ns_time);
- return(0);
- case CS_FILE_NEW_SCAN:
- scandirs(FL_ULTIME);
- return(0);
- case CS_FILE_NEW_SCAN_ALL:
- scanalldirs(FL_ULTIME);
- return(0);
- case CS_FILE_REMOVE:
- if(!usrlibs) return(0);
- if(useron.rest&FLAG('R')) {
- bputs(text[R_RemoveFiles]);
- return(0); }
- padfname(csi->str,str);
- strupr(str);
- if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_REMOVE)) {
- if(user_dir!=INVALID_DIR
- && user_dir!=usrdir[curlib][curdir[curlib]])
- if((s=listfileinfo(user_dir,str,FI_REMOVE))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0);
- bputs(text[SearchingAllDirs]);
- for(i=0;i<usrdirs[curlib];i++)
- if(i!=curdir[curlib] && i!=user_dir
- && (s=listfileinfo(usrdir[curlib][i],str,FI_REMOVE))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0);
- bputs(text[SearchingAllLibs]);
- for(i=0;i<usrlibs;i++) {
- if(i==curlib || i==user_dir) continue;
- for(j=0;j<usrdirs[i]; j++)
- if((s=listfileinfo(usrdir[i][j],str,FI_REMOVE))!=0)
- if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
- return(0); } }
- return(0);
- }
-
-errormsg(WHERE,ERR_CHK,"shell function",*(csi->ip-1));
-return(0);
-}
diff --git a/src/sbbs2/execfunc.c b/src/sbbs2/execfunc.c
deleted file mode 100644
index e84805da10305acbea7b915c9c24e236f9a6984e..0000000000000000000000000000000000000000
--- a/src/sbbs2/execfunc.c
+++ /dev/null
@@ -1,665 +0,0 @@
-#line 1 "EXECFUNC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-int exec_function(csi_t *csi)
-{
- uchar str[256],tmp2[128],ch,*p;
- int i,j,k,s,file;
- long l;
- stats_t stats;
- node_t node;
- file_t f;
- time_t t;
-
-switch(*(csi->ip++)) {
-
-
- case CS_PRINTFILE_STR:
- printfile(csi->str,P_NOATCODES);
- return(0);
-
-/********************************/
-/* General Main Menu Type Stuff */
-/********************************/
- case CS_AUTO_MESSAGE:
- automsg();
- return(0);
- case CS_MINUTE_BANK:
- if(sys_misc&SM_TIMEBANK) { /* Allow users to deposit free time */
- s=(level_timeperday[useron.level]-useron.ttoday)+useron.textra;
- if(s<0) s=0;
- if(s>level_timepercall[useron.level])
- s=level_timepercall[useron.level];
- s-=(now-starttime)/60;
- if(s<0) s=0;
- bprintf(text[FreeMinLeft],s);
- bprintf(text[UserMinutes],ultoac(useron.min,tmp));
- if(max_minutes && useron.min>=max_minutes) {
- bputs(text[YouHaveTooManyMinutes]);
- return(0); }
- if(max_minutes)
- while(s>0 && s+useron.min>max_minutes) s--;
- bprintf(text[FreeMinToDeposit],s);
- s=getnum(s);
- if(s>0) {
- logline(" ","Minute Bank Deposit");
- useron.min=adjustuserrec(useron.number,U_MIN,10,s);
- useron.ttoday=adjustuserrec(useron.number,U_TTODAY,10,s);
- sprintf(str,"Minute Adjustment: %u",s*cdt_min_value);
- logline("*+",str); } }
-
- if(!(sys_misc&SM_NOCDTCVT)) {
- bprintf(text[ConversionRate],cdt_min_value);
- bprintf(text[UserCredits]
- ,ultoac(useron.cdt,tmp)
- ,ultoac(useron.freecdt,tmp2)
- ,ultoac(level_freecdtperday[useron.level],str));
- bprintf(text[UserMinutes],ultoac(useron.min,tmp));
- if(useron.cdt/102400L<1L) {
- bprintf(text[YouOnlyHaveNCredits],ultoac(useron.cdt,tmp));
- return(0); }
- if(max_minutes && useron.min>=max_minutes) {
- bputs(text[YouHaveTooManyMinutes]);
- return(0); }
- s=useron.cdt/102400L;
- if(max_minutes)
- while(s>0 && (s*cdt_min_value)+useron.min>max_minutes) s--;
- bprintf(text[CreditsToMin],s);
- s=getnum(s);
- if(s>0) {
- logline(" ","Credit to Minute Conversion");
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,-(s*102400L));
- useron.min=adjustuserrec(useron.number,U_MIN,10,s*cdt_min_value);
- sprintf(str,"Credit Adjustment: %ld",-(s*102400L));
- logline("$-",str);
- sprintf(str,"Minute Adjustment: %u",s*cdt_min_value);
- logline("*+",str); } }
- return(0);
- case CS_CHAT_SECTION:
- if(useron.rest&FLAG('C'))
- bputs(text[R_Chat]);
- else
- chatsection();
- return(0);
- case CS_USER_DEFAULTS:
- maindflts(useron);
- if(!(useron.rest&FLAG('G'))) /* not guest */
- getuserdat(&useron);
- return(0);
- case CS_TEXT_FILE_SECTION:
- text_sec();
- return(0);
- case CS_INFO_SYSTEM: /* System information */
- bputs(text[SiHdr]);
- getstats(0,&stats);
- bprintf(text[SiSysName],sys_name);
- bprintf(text[SiSysID],sys_id); /* QWK ID */
- for(i=0;i<total_faddrs;i++)
- bprintf(text[SiSysFaddr],faddrtoa(faddr[i]));
- if(sys_psname[0]) /* PostLink/PCRelay */
- bprintf(text[SiSysPsite],sys_psname,sys_psnum);
- bprintf(text[SiSysLocation],sys_location);
- bprintf(text[SiSysop],sys_op);
- bprintf(text[SiSysNodes],sys_nodes);
- bprintf(text[SiNodeNumberName],node_num,node_name);
- bprintf(text[SiNodePhone],node_phone);
- bprintf(text[SiTotalLogons],ultoac(stats.logons,tmp));
- bprintf(text[SiLogonsToday],ultoac(stats.ltoday,tmp));
- bprintf(text[SiTotalTime],ultoac(stats.timeon,tmp));
- bprintf(text[SiTimeToday],ultoac(stats.ttoday,tmp));
- ver();
- if(yesno(text[ViewSysInfoFileQ])) {
- CLS;
- sprintf(str,"%sSYSTEM.MSG",text_dir);
- printfile(str,0); }
- if(yesno(text[ViewLogonMsgQ])) {
- CLS;
- menu("LOGON"); }
- return(0);
- case CS_INFO_SUBBOARD: /* Sub-board information */
- if(!usrgrps) return(0);
- subinfo(usrsub[curgrp][cursub[curgrp]]);
- return(0);
- case CS_INFO_DIRECTORY: /* Sub-board information */
- if(!usrlibs) return(0);
- dirinfo(usrdir[curlib][curdir[curlib]]);
- return(0);
- case CS_INFO_VERSION: /* Version */
- ver();
- return(0);
- case CS_INFO_USER: /* User's statistics */
- bprintf(text[UserStats],useron.alias,useron.number);
- unixtodos(useron.laston,&date,&curtime);
- bprintf(text[UserDates]
- ,unixtodstr(useron.firston,str)
- ,unixtodstr(useron.expire,tmp)
- ,unixtodstr(useron.laston,tmp2)
- ,curtime.ti_hour,curtime.ti_min);
- bprintf(text[UserTimes]
- ,useron.timeon,useron.ttoday
- ,level_timeperday[useron.level]
- ,useron.tlast
- ,level_timepercall[useron.level]
- ,useron.textra);
- bprintf(text[UserLogons]
- ,useron.logons,useron.ltoday
- ,level_callsperday[useron.level],useron.posts
- ,i ? 100/i : useron.posts>useron.logons ? 100 : 0
- ,useron.ptoday);
- bprintf(text[UserEmails]
- ,useron.emails,useron.fbacks
- ,getmail(useron.number,0),useron.etoday);
- CRLF;
- bprintf(text[UserUploads]
- ,ultoac(useron.ulb,tmp),useron.uls);
- bprintf(text[UserDownloads]
- ,ultoac(useron.dlb,tmp),useron.dls,nulstr);
- bprintf(text[UserCredits],ultoac(useron.cdt,tmp)
- ,ultoac(useron.freecdt,tmp2)
- ,ultoac(level_freecdtperday[useron.level],str));
- bprintf(text[UserMinutes],ultoac(useron.min,tmp));
- return(0);
- case CS_INFO_XFER_POLICY:
- if(!usrlibs) return(0);
- sprintf(str,"%sMENU\\TPOLICY.*",text_dir);
- if(fexist(str))
- menu("TPOLICY");
- else {
- bprintf(text[TransferPolicyHdr],sys_name);
- bprintf(text[TpUpload]
- ,dir[usrdir[curlib][curdir[curlib]]]->up_pct);
- bprintf(text[TpDownload]
- ,dir[usrdir[curlib][curdir[curlib]]]->dn_pct);
- }
- return(0);
- case CS_XTRN_EXEC:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<total_xtrns;i++)
- if(!stricmp(xtrn[i]->code,csi->str))
- break;
- if(i<total_xtrns)
- exec_xtrn(i);
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_XTRN_SECTION:
- if(useron.rest&FLAG('X'))
- bputs(text[R_ExternalPrograms]);
- else
- xtrn_sec(); /* If external available, don't pause */
- return(0);
- case CS_LOGOFF:
- if(!noyes(text[LogOffQ])) {
- if(logoff_mod[0])
- exec_bin(logoff_mod,csi);
- user_event(EVENT_LOGOFF);
- menu("LOGOFF");
- SYNC;
- hangup(); }
- return(0);
- case CS_LOGOFF_FAST:
- SYNC;
- if(online==ON_REMOTE && !(mdm_misc&MDM_NODTR))
- dtr(0);
- hangup();
- return(0);
- case CS_NODELIST_ALL:
- CRLF;
- bputs(text[NodeLstHdr]);
- for(i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
- getnodedat(i,&node,0);
- printnodedat(i,node); }
- return(0);
- case CS_NODELIST_USERS:
- whos_online(1);
- return(0);
- case CS_USERLIST_SUB:
- userlist(UL_SUB);
- return(0);
- case CS_USERLIST_DIR:
- userlist(UL_DIR);
- return(0);
- case CS_USERLIST_ALL:
- userlist(UL_ALL);
- return(0);
- case CS_USERLIST_LOGONS:
- sprintf(str,"%sLOGON.LST",data_dir);
- if(flength(str)<1) {
- bputs("\r\n\r\n");
- bputs(text[NoOneHasLoggedOnToday]); }
- else {
- bputs(text[CallersToday]);
- printfile(str,P_NOATCODES|P_OPENCLOSE);
- CRLF; }
- return(0);
- case CS_PAGE_SYSOP:
- ch=kbd_state(); /* Check scroll lock */
- if(ch&16 || (sys_chat_ar[0] && chk_ar(sys_chat_ar,useron))
- || useron.exempt&FLAG('C')) {
- sysop_page();
- return(0); }
- bprintf(text[SysopIsNotAvailable],sys_op);
- return(0);
- case CS_PAGE_GURU:
- csi->logic=LOGIC_FALSE;
- for(i=0;i<total_gurus;i++)
- if(!stricmp(csi->str,guru[i]->code)
- && chk_ar(guru[i]->ar,useron))
- break;
- if(i>=total_gurus)
- return(0);
- sprintf(str,"%s%s.DAT",ctrl_dir,guru[i]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
- if((p=MALLOC(filelength(file)+1))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,filelength(file)+1);
- return(0); }
- read(file,p,filelength(file));
- p[filelength(file)]=0;
- close(file);
- localguru(p,i);
- FREE(p);
- csi->logic=LOGIC_TRUE;
- return(0);
- case CS_PRIVATE_CHAT:
- privchat();
- return(0);
- case CS_PRIVATE_MESSAGE:
- nodemsg();
- return(0);
-
-/*******************/
-/* Sysop Functions */
-/*******************/
- case CS_USER_EDIT:
- useredit(csi->str[0] ? finduser(csi->str) : 0,0);
- return(0);
-
-
-/******************/
-/* Mail Functions */
-/******************/
-
- case CS_MAIL_READ: /* Read E-mail */
- readmail(useron.number,MAIL_YOUR);
- return(0);
- case CS_MAIL_READ_SENT: /* Kill/read sent mail */
- if(useron.rest&FLAG('K'))
- bputs(text[R_ReadSentMail]);
- else
- readmail(useron.number,MAIL_SENT);
- return(0);
- case CS_MAIL_READ_ALL:
- readmail(useron.number,MAIL_ALL);
- return(0);
- case CS_MAIL_SEND: /* Send E-mail */
- if(strchr(csi->str,'@')) {
- i=1;
- netmail(csi->str,nulstr,0); }
- else if((i=finduser(csi->str))!=0)
- email(i,nulstr,nulstr,WM_EMAIL);
- csi->logic=!i;
- return(0);
- case CS_MAIL_SEND_FEEDBACK: /* Feedback */
- if((i=finduser(csi->str))!=0)
- email(i,text[ReFeedback],nulstr,WM_EMAIL);
- csi->logic=!i;
- return(0);
- case CS_MAIL_SEND_NETMAIL:
- bputs(text[EnterNetMailAddress]);
- if(getstr(str,60,K_LINE)) {
- netmail(str,nulstr,0);
- csi->logic=LOGIC_TRUE; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
-
- case CS_MAIL_SEND_NETFILE:
- bputs(text[EnterNetMailAddress]);
- if(getstr(str,60,K_LINE)) {
- netmail(str,nulstr,WM_FILE);
- csi->logic=LOGIC_TRUE; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
-
- case CS_MAIL_SEND_FILE: /* Upload Attached File to E-mail */
- if(strchr(csi->str,'@')) {
- i=1;
- netmail(csi->str,nulstr,WM_FILE); }
- else if((i=finduser(csi->str))!=0)
- email(i,nulstr,nulstr,WM_EMAIL|WM_FILE);
- csi->logic=!i;
- return(0);
- case CS_MAIL_SEND_BULK:
- if(csi->str[0])
- p=arstr(0,csi->str);
- else
- p=nulstr;
- bulkmail(p);
- if(p && p[0])
- FREE(p);
- return(0);
-
- case CS_INC_MAIN_CMDS:
- main_cmds++;
- return(0);
-
- case CS_INC_FILE_CMDS:
- xfer_cmds++;
- return(0);
-
- case CS_SYSTEM_LOG: /* System log */
- if(!chksyspass(0))
- return(0);
- unixtodos(now,&date,&curtime);
- sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG",data_dir
- ,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900));
- printfile(str,0);
- return(0);
- case CS_SYSTEM_YLOG: /* Yesterday's log */
- if(!chksyspass(0))
- return(0);
- now-=(ulong)60L*24L*60L;
- unixtodos(now,&date,&curtime);
- sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG",data_dir
- ,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900));
- printfile(str,0);
- return(0);
- case CS_SYSTEM_STATS: /* System Statistics */
- bputs(text[SystemStatsHdr]);
- getstats(0,&stats);
- bprintf(text[StatsTotalLogons],ultoac(stats.logons,tmp));
- bprintf(text[StatsLogonsToday],ultoac(stats.ltoday,tmp));
- bprintf(text[StatsTotalTime],ultoac(stats.timeon,tmp));
- bprintf(text[StatsTimeToday],ultoac(stats.ttoday,tmp));
- bprintf(text[StatsUploadsToday],ultoac(stats.ulb,tmp)
- ,stats.uls);
- bprintf(text[StatsDownloadsToday],ultoac(stats.dlb,tmp)
- ,stats.dls);
- bprintf(text[StatsPostsToday],ultoac(stats.ptoday,tmp));
- bprintf(text[StatsEmailsToday],ultoac(stats.etoday,tmp));
- bprintf(text[StatsFeedbacksToday],ultoac(stats.ftoday,tmp));
- return(0);
- case CS_NODE_STATS: /* Node Statistics */
- i=atoi(csi->str);
- if(i>sys_nodes) {
- bputs(text[InvalidNode]);
- return(0); }
- if(!i) i=node_num;
- bprintf(text[NodeStatsHdr],i);
- getstats(i,&stats);
- bprintf(text[StatsTotalLogons],ultoac(stats.logons,tmp));
- bprintf(text[StatsLogonsToday],ultoac(stats.ltoday,tmp));
- bprintf(text[StatsTotalTime],ultoac(stats.timeon,tmp));
- bprintf(text[StatsTimeToday],ultoac(stats.ttoday,tmp));
- bprintf(text[StatsUploadsToday],ultoac(stats.ulb,tmp)
- ,stats.uls);
- bprintf(text[StatsDownloadsToday],ultoac(stats.dlb,tmp)
- ,stats.dls);
- bprintf(text[StatsPostsToday],ultoac(stats.ptoday,tmp));
- bprintf(text[StatsEmailsToday],ultoac(stats.etoday,tmp));
- bprintf(text[StatsFeedbacksToday],ultoac(stats.ftoday,tmp));
- return(0);
- case CS_CHANGE_USER: /* Change to another user */
- if(!chksyspass(0))
- return(0);
- bputs(text[ChUserPrompt]);
- if(!getstr(str,LEN_ALIAS,K_UPPER))
- return(0);
- if((i=finduser(str))==0)
- return(0);
- if(online==ON_REMOTE) {
- getuserrec(i,U_LEVEL,2,str);
- if(atoi(str)>logon_ml) {
- getuserrec(i,U_PASS,8,tmp);
- bputs(text[ChUserPwPrompt]);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- getstr(str,8,K_UPPER);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- if(strcmp(str,tmp))
- return(0); } }
- putmsgptrs();
- putuserrec(useron.number,U_CURSUB,8
- ,sub[usrsub[curgrp][cursub[curgrp]]]->code);
- putuserrec(useron.number,U_CURDIR,8
- ,dir[usrdir[curlib][curdir[curlib]]]->code);
- useron.number=i;
- getuserdat(&useron);
- getnodedat(node_num,&thisnode,1);
- thisnode.useron=useron.number;
- putnodedat(node_num,thisnode);
- getmsgptrs();
- if(REALSYSOP) sys_status&=~SS_TMPSYSOP;
- else sys_status|=SS_TMPSYSOP;
- statline=sys_def_stat;
- statusline();
- sprintf(str,"Changed into %s #%u",useron.alias,useron.number);
- logline("S+",str);
- return(0);
- case CS_SHOW_MEM:
-#ifdef __MSDOS__
- bprintf(text[NBytesFreeMemory],farcoreleft());
-#endif
- return(0);
- case CS_ERROR_LOG:
- sprintf(str,"%sERROR.LOG",data_dir);
- if(fexist(str)) {
- bputs(text[ErrorLogHdr]);
- printfile(str,0);
- if(!noyes(text[DeleteErrorLogQ]))
- remove(str); }
- else
- bputs(text[NoErrorLogExists]);
- for(i=1;i<=sys_nodes;i++) {
- getnodedat(i,&node,0);
- if(node.errors)
- break; }
- if(i<=sys_nodes || criterrs) {
- if(!noyes(text[ClearErrCounter])) {
- for(i=1;i<=sys_nodes;i++) {
- getnodedat(i,&node,1);
- node.errors=0;
- putnodedat(i,node); }
- criterrs=0; } }
- return(0);
- case CS_ANSI_CAPTURE: /* Capture ANSI codes */
- sys_status^=SS_ANSCAP;
- bprintf(text[ANSICaptureIsNow]
- ,sys_status&SS_ANSCAP ? text[ON] : text[OFF]);
- return(0);
- case CS_LIST_TEXT_FILE: /* View ASCII/ANSI/Ctrl-A file */
- if(!chksyspass(0))
- return(0);
- bputs(text[Filename]);
- if(getstr(str,60,K_UPPER))
- printfile(str,0);
- return(0);
- case CS_EDIT_TEXT_FILE: /* Edit ASCII/Ctrl-A file */
- if(!chksyspass(0))
- return(0);
- bputs(text[Filename]);
- if(getstr(str,60,K_UPPER))
- editfile(str);
- return(0);
- case CS_GURU_LOG:
- sprintf(str,"%sGURU.LOG",data_dir);
- if(fexist(str)) {
- printfile(str,0);
- CRLF;
- if(!noyes(text[DeleteGuruLogQ]))
- remove(str); }
- return(0);
- case CS_FILE_SET_ALT_PATH:
- altul=atoi(csi->str);
- if(altul>altpaths)
- altul=0;
- bprintf(text[AltULPathIsNow],altul ? altpath[altul-1] : text[OFF]);
- return(0);
- case CS_FILE_RESORT_DIRECTORY:
- for(i=1;i<=sys_nodes;i++)
- if(i!=node_num) {
- getnodedat(i,&node,0);
- if(node.status==NODE_INUSE
- || node.status==NODE_QUIET)
- break; }
-
- if(i<=sys_nodes) {
- bputs(text[ResortWarning]);
- return(0); }
-
- if(!stricmp(csi->str,"ALL")) { /* all libraries */
- for(i=0;i<usrlibs;i++)
- for(j=0;j<usrdirs[i];j++)
- resort(usrdir[i][j]);
- return(0); }
- if(!stricmp(csi->str,"LIB")) { /* current library */
- for(i=0;i<usrdirs[curlib];i++)
- resort(usrdir[curlib][i]);
- return(0); }
- resort(usrdir[curlib][curdir[curlib]]);
- return(0);
-
- case CS_FILE_GET:
-
- if(!fexist(csi->str)) {
- bputs(text[FileNotFound]);
- return(0); }
- if(!chksyspass(0))
- return(0);
-
- case CS_FILE_SEND:
-
- menu("DLPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- return(0); }
- for(i=0;i<total_prots;i++)
- if(prot[i]->mnemonic==ch && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- protocol(cmdstr(prot[i]->dlcmd,csi->str,csi->str,str),0);
- autohangup(); }
- return(0);
-
- case CS_FILE_PUT:
- if(!chksyspass(0))
- return(0);
- menu("ULPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->ulcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- lncntr=0;
- return(0); }
- for(i=0;i<total_prots;i++)
- if(prot[i]->mnemonic==ch && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- protocol(cmdstr(prot[i]->ulcmd,csi->str,csi->str,str),0);
- autohangup(); }
- return(0);
-
- case CS_FILE_UPLOAD_BULK:
-
- if(!usrlibs) return(0);
-
- if(!stricmp(csi->str,"ALL")) { /* all libraries */
- for(i=0;i<usrlibs;i++)
- for(j=0;j<usrdirs[i];j++) {
- if(lib[i]->offline_dir==usrdir[i][j])
- continue;
- if(bulkupload(usrdir[i][j])) return(0); }
- return(0); }
- if(!stricmp(csi->str,"LIB")) { /* current library */
- for(i=0;i<usrdirs[curlib];i++) {
- if(lib[usrlib[curlib]]->offline_dir
- ==usrdir[curlib][i])
- continue;
- if(bulkupload(usrdir[curlib][i])) return(0); }
- return(0); }
- bulkupload(usrdir[curlib][curdir[curlib]]); /* current dir */
- return(0);
-
- case CS_FILE_FIND_OLD:
- case CS_FILE_FIND_OPEN:
- case CS_FILE_FIND_OFFLINE:
- case CS_FILE_FIND_OLD_UPLOADS:
- if(!usrlibs) return(0);
- if(!getfilespec(tmp))
- return(0);
- padfname(tmp,str);
- k=0;
- bputs("\r\nSearching ");
- if(!stricmp(csi->str,"ALL"))
- bputs("all libraries");
- else if(!stricmp(csi->str,"LIB"))
- bputs("library");
- else
- bputs("directory");
- bputs(" for files ");
- if(*(csi->ip-1)==CS_FILE_FIND_OLD_UPLOADS) {
- l=FI_OLDUL;
- bprintf("uploaded before %s\r\n",timestr(&ns_time)); }
- else if(*(csi->ip-1)==CS_FILE_FIND_OLD) { /* go by download date */
- l=FI_OLD;
- bprintf("not downloaded since %s\r\n",timestr(&ns_time)); }
- else if(*(csi->ip-1)==CS_FILE_FIND_OFFLINE) {
- l=FI_OFFLINE;
- bputs("not online...\r\n"); }
- else {
- l=FI_CLOSE;
- bputs("currently open...\r\n"); }
- if(!stricmp(csi->str,"ALL")) {
- for(i=0;i<usrlibs;i++)
- for(j=0;j<usrdirs[i];j++) {
- if(lib[i]->offline_dir==usrdir[i][j])
- continue;
- if((s=listfileinfo(usrdir[i][j],str,l))==-1)
- return(0);
- else k+=s; } }
- else if(!stricmp(csi->str,"LIB")) {
- for(i=0;i<usrdirs[curlib];i++) {
- if(lib[usrlib[curlib]]->offline_dir==usrdir[curlib][i])
- continue;
- if((s=listfileinfo(usrdir[curlib][i],str,l))==-1)
- return(0);
- else k+=s; } }
- else {
- s=listfileinfo(usrdir[curlib][curdir[curlib]],str,l);
- if(s==-1)
- return(0);
- k=s; }
- if(k>1) {
- bprintf(text[NFilesListed],k); }
- return(0); }
-
-if(*(csi->ip-1)>=CS_MSG_SET_AREA && *(csi->ip-1)<=CS_MSG_UNUSED1) {
- csi->ip--;
- return(execmsg(csi)); }
-
-if(*(csi->ip-1)>=CS_FILE_SET_AREA && *(csi->ip-1)<=CS_FILE_UNUSED1) {
- csi->ip--;
- return(execfile(csi)); }
-
-errormsg(WHERE,ERR_CHK,"shell function",*(csi->ip-1));
-return(0);
-}
diff --git a/src/sbbs2/execmisc.c b/src/sbbs2/execmisc.c
deleted file mode 100644
index 9b0f98bf4300903ba6d0304021d91ae5dce5ee16..0000000000000000000000000000000000000000
--- a/src/sbbs2/execmisc.c
+++ /dev/null
@@ -1,1373 +0,0 @@
-#line 1 "EXECMISC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-#include <sys/locking.h>
-#include <dirent.h>
-
-
-int exec_misc(csi_t *csi, uchar *path)
-{
- uchar str[256],tmp2[128],buf[1025],ch,*p,**pp,**pp1,**pp2;
- ushort w;
- int i,j,k,s,file;
- long l,*lp,*lp1,*lp2;
- void *vp;
- va_list arglist[64];
- struct dirent *de;
- struct tm *tm_p;
- struct ftime ft;
- FILE *fp;
-
-switch(*(csi->ip++)) {
- case CS_VAR_INSTRUCTION:
- switch(*(csi->ip++)) { /* sub-op-code stored as next byte */
- case PRINT_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(!pp || !*pp) {
- lp=getintvar(csi,*(long *)csi->ip);
- if(lp)
- bprintf("%ld",*lp); }
- else
- putmsg(cmdstr(*pp,path,csi->str,buf)
- ,P_SAVEATR|P_NOABORT);
- csi->ip+=4;
- return(0);
- case VAR_PRINTF:
- strcpy(str,csi->ip);
- while(*(csi->ip++)); /* Find NULL */
- j=*(csi->ip++); /* total args */
- for(i=0;i<j;i++) {
- vp=getstrvar(csi,*(long *)csi->ip);
- if(!vp) {
- lp=getintvar(csi,*(long *)csi->ip);
- if(!lp)
- arglist[i]=0;
- else
- arglist[i]=(void *)*lp; }
- else
- arglist[i]=*(char **)vp;
- csi->ip+=4; }
- vsprintf(tmp,str,arglist);
- putmsg(cmdstr(tmp,path,csi->str,buf),P_SAVEATR|P_NOABORT);
- return(0);
- case SHOW_VARS:
- bprintf("shell str=(%08lX) %s\r\n"
- ,csi->str,csi->str);
- for(i=0;i<csi->str_vars;i++)
- bprintf("local str[%d]=(%08lX) (%08lX) %s\r\n"
- ,i,csi->str_var_name[i]
- ,csi->str_var[i]
- ,csi->str_var[i]);
- for(i=0;i<csi->int_vars;i++)
- bprintf("local int[%d]=(%08lX) (%08lX) %ld\r\n"
- ,i,csi->int_var_name[i]
- ,csi->int_var[i]
- ,csi->int_var[i]);
- for(i=0;i<global_str_vars;i++)
- bprintf("global str[%d]=(%08lX) (%08lX) %s\r\n"
- ,i,global_str_var_name[i]
- ,global_str_var[i]
- ,global_str_var[i]);
- for(i=0;i<global_int_vars;i++)
- bprintf("global int[%d]=(%08lX) (%08lX) %ld\r\n"
- ,i,global_int_var_name[i]
- ,global_int_var[i]
- ,global_int_var[i]);
- return(0);
- case DEFINE_STR_VAR:
- if(getstrvar(csi,*(long *)csi->ip)) {
- csi->ip+=4;
- return(0); }
- csi->str_vars++;
- csi->str_var=REALLOC(csi->str_var
- ,sizeof(char *)*csi->str_vars);
- csi->str_var_name=REALLOC(csi->str_var_name
- ,sizeof(long)*csi->str_vars);
- if(csi->str_var==NULL
- || csi->str_var_name==NULL) { /* REALLOC failed */
- errormsg(WHERE,ERR_ALLOC,"local str var"
- ,sizeof(char *)*csi->str_vars);
- if(csi->str_var_name) {
- FREE(csi->str_var_name);
- csi->str_var_name=0; }
- if(csi->str_var) {
- FREE(csi->str_var);
- csi->str_var=0; }
- csi->str_vars=0; }
- else {
- csi->str_var_name[csi->str_vars-1]=*(long *)csi->ip;
- csi->str_var[csi->str_vars-1]=0; }
- csi->ip+=4; /* Skip variable name */
- return(0);
- case DEFINE_INT_VAR:
- if(getintvar(csi,*(long *)csi->ip)) {
- csi->ip+=4;
- return(0); }
- csi->int_vars++;
- csi->int_var=REALLOC(csi->int_var
- ,sizeof(char *)*csi->int_vars);
- csi->int_var_name=REALLOC(csi->int_var_name
- ,sizeof(long)*csi->int_vars);
- if(csi->int_var==NULL
- || csi->int_var_name==NULL) { /* REALLOC failed */
- errormsg(WHERE,ERR_ALLOC,"local int var"
- ,sizeof(char *)*csi->int_vars);
- if(csi->int_var_name) {
- FREE(csi->int_var_name);
- csi->int_var_name=0; }
- if(csi->int_var) {
- FREE(csi->int_var);
- csi->int_var=0; }
- csi->int_vars=0; }
- else {
- csi->int_var_name[csi->int_vars-1]=*(long *)csi->ip;
- csi->int_var[csi->int_vars-1]=0; }
- csi->ip+=4; /* Skip variable name */
- return(0);
- case DEFINE_GLOBAL_STR_VAR:
- if(getstrvar(csi,*(long *)csi->ip)) {
- csi->ip+=4;
- return(0); }
- global_str_vars++;
- global_str_var=REALLOC(global_str_var
- ,sizeof(char *)*global_str_vars);
- global_str_var_name=REALLOC(global_str_var_name
- ,sizeof(long)*global_str_vars);
- if(global_str_var==NULL
- || global_str_var_name==NULL) { /* REALLOC failed */
- errormsg(WHERE,ERR_ALLOC,"global str var"
- ,sizeof(char *)*global_str_vars);
- if(global_str_var_name) {
- FREE(global_str_var_name);
- global_str_var_name=0; }
- if(global_str_var) {
- FREE(global_str_var);
- global_str_var=0; }
- global_str_vars=0; }
- else {
- global_str_var_name[global_str_vars-1]=
- *(long *)csi->ip;
- global_str_var[global_str_vars-1]=0; }
- csi->ip+=4; /* Skip variable name */
- return(0);
- case DEFINE_GLOBAL_INT_VAR:
- if(getintvar(csi,*(long *)csi->ip)) {
- csi->ip+=4;
- return(0); }
- global_int_vars++;
- global_int_var=REALLOC(global_int_var
- ,sizeof(char *)*global_int_vars);
- global_int_var_name=REALLOC(global_int_var_name
- ,sizeof(long)*global_int_vars);
- if(global_int_var==NULL
- || global_int_var_name==NULL) { /* REALLOC failed */
- errormsg(WHERE,ERR_ALLOC,"local int var"
- ,sizeof(char *)*global_int_vars);
- if(global_int_var_name) {
- FREE(global_int_var_name);
- global_int_var_name=0; }
- if(global_int_var) {
- FREE(global_int_var);
- global_int_var=0; }
- global_int_vars=0; }
- else {
- global_int_var_name[global_int_vars-1]
- =*(long *)csi->ip;
- global_int_var[global_int_vars-1]=0; }
- csi->ip+=4; /* Skip variable name */
- return(0);
-
- case SET_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- if(pp)
- *pp=copystrvar(csi,*pp
- ,cmdstr(csi->ip,path,csi->str,buf));
- while(*(csi->ip++)); /* Find NULL */
- return(0);
- case SET_INT_VAR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- if(lp)
- *lp=*(long *)csi->ip;
- csi->ip+=4; /* Skip value */
- return(0);
- case COMPARE_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- if(pp)
- csi->logic=stricmp(*pp
- ,cmdstr(csi->ip,path,csi->str,buf));
- else { /* Uninitialized str var */
- if(*(csi->ip)==0) /* Blank static str */
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE; }
- while(*(csi->ip++)); /* Find NULL */
- return(0);
- case STRSTR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- if(pp && *pp && strstr(*pp
- ,cmdstr(csi->ip,path,csi->str,buf)))
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- while(*(csi->ip++)); /* Find NULL */
- return(0);
- case STRNCMP_VAR:
- i=*csi->ip++;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- if(pp && *pp)
- csi->logic=strnicmp(*pp
- ,cmdstr(csi->ip,path,csi->str,buf),i);
- else
- csi->logic=LOGIC_FALSE;
- while(*(csi->ip++)); /* Find NULL */
- return(0);
- case STRNCMP_VARS:
- i=*csi->ip++;
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp1 && *pp1 && pp2 && *pp2)
- csi->logic=strnicmp(*pp1,*pp2,i);
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case STRSTR_VARS:
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp1 && *pp1 && pp2 && *pp2 && strstr(*pp1,*pp2))
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case COMPARE_INT_VAR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- l=*(long *)csi->ip;
- csi->ip+=4; /* Skip static value */
- if(!lp) { /* Unknown variable */
- csi->logic=LOGIC_FALSE;
- return(0); }
- if(*lp>l)
- csi->logic=LOGIC_GREATER;
- else if(*lp<l)
- csi->logic=LOGIC_LESS;
- else
- csi->logic=LOGIC_EQUAL;
- return(0);
- case COMPARE_VARS:
- lp1=lp2=0;
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- if(!pp1)
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- if(!pp2)
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
-
- if(((!pp1 || !*pp1) && !lp1)
- || ((!pp2 || !*pp2) && !lp2)) {
- if(pp1 && pp2) /* Both unitialized or blank */
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0); }
-
- if(pp1) { /* ASCII */
- if(!pp2) {
- ltoa(*lp2,tmp,10);
- csi->logic=stricmp(*pp1,tmp); }
- else
- csi->logic=stricmp(*pp1,*pp2);
- return(0); }
-
- /* Binary */
- if(!lp2) {
- l=strtol(*pp2,0,0);
- if(*lp1>l)
- csi->logic=LOGIC_GREATER;
- else if(*lp1<l)
- csi->logic=LOGIC_LESS;
- else
- csi->logic=LOGIC_EQUAL;
- return(0); }
- if(*lp1>*lp2)
- csi->logic=LOGIC_GREATER;
- else if(*lp1<*lp2)
- csi->logic=LOGIC_LESS;
- else
- csi->logic=LOGIC_EQUAL;
- return(0);
- case COPY_VAR:
- lp1=lp2=0;
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- if(!pp1)
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- if(!pp2)
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
-
- if((!pp1 && !lp1)
- || ((!pp2 || !*pp2) && !lp2)) {
- csi->logic=LOGIC_FALSE;
- return(0); }
- csi->logic=LOGIC_TRUE;
-
- if(pp1) { /* ASCII */
- if(!pp2)
- ltoa(*lp2,tmp,10);
- else
- strcpy(tmp,*pp2);
- *pp1=copystrvar(csi,*pp1,tmp);
- return(0); }
- if(!lp2)
- *lp1=strtol(*pp2,0,0);
- else
- *lp1=*lp2;
- return(0);
- case SWAP_VARS:
- lp1=lp2=0;
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- if(!pp1)
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- if(!pp2)
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
-
- if(((!pp1 || !*pp1) && !lp1)
- || ((!pp2 || !*pp2) && !lp2)) {
- csi->logic=LOGIC_FALSE;
- return(0); }
-
- csi->logic=LOGIC_TRUE;
-
- if(pp1) { /* ASCII */
- if(!pp2) {
- if(!strnicmp(*pp2,"0x",2)) {
- l=strtol((*pp1)+2,0,16);
- ltoa(*lp2,tmp,16); }
- else {
- l=atol(*pp1);
- ltoa(*lp2,tmp,10); }
- *pp1=copystrvar(csi,*pp1,tmp);
- *lp2=l; }
- else {
- p=*pp1;
- *pp1=*pp2;
- *pp2=p; }
- return(0); }
-
- /* Binary */
- if(!lp2) {
- if(!strnicmp(*pp2,"0x",2)) {
- l=strtol((*pp2)+2,0,16);
- ltoa(*lp1,tmp,16); }
- else {
- l=atol(*pp2);
- ltoa(*lp1,tmp,10); }
- *pp2=copystrvar(csi,*pp2,tmp);
- *lp1=l; }
- else {
- l=*lp1;
- *lp1=*lp2;
- *lp2=l; }
- return(0);
- case CAT_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- strcpy(tmp,csi->ip);
- while(*(csi->ip++));
- if(pp && *pp)
- for(i=0;i<MAX_SYSVARS;i++)
- if(*pp==sysvar_p[i])
- break;
- if(pp && *pp!=csi->str && i==MAX_SYSVARS) {
- if(*pp)
- *pp=REALLOC(*pp,strlen(*pp)+strlen(tmp)+1);
- else
- *pp=REALLOC(*pp,strlen(tmp)+1); }
- if(pp && *pp)
- strcat(*pp,tmp);
- return(0);
- case CAT_STR_VARS:
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip dest variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip source variable name */
- if(!pp1 || !pp2 || !*pp2) {
- csi->logic=LOGIC_FALSE;
- return(0); }
- csi->logic=LOGIC_TRUE;
- if(*pp1)
- for(i=0;i<MAX_SYSVARS;i++)
- if(*pp1==sysvar_p[i])
- break;
- if(*pp1!=csi->str && (!*pp1 || i==MAX_SYSVARS)) {
- if(*pp1)
- *pp1=REALLOC(*pp1,strlen(*pp1)+strlen(*pp2)+1);
- else
- *pp1=REALLOC(*pp1,strlen(*pp2)+1); }
- strcat(*pp1,*pp2);
- return(0);
- case FORMAT_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- strcpy(str,csi->ip);
- while(*(csi->ip++)); /* Find NULL */
- j=*(csi->ip++); /* total args */
- for(i=0;i<j;i++) {
- vp=getstrvar(csi,*(long *)csi->ip);
- if(!vp) {
- lp=getintvar(csi,*(long *)csi->ip);
- if(!lp)
- arglist[i]=0;
- else
- arglist[i]=(void *)*lp; }
- else
- arglist[i]=*(char **)vp;
- csi->ip+=4; }
- vsprintf(tmp,str,arglist);
- cmdstr(tmp,path,csi->str,str);
- if(pp)
- *pp=copystrvar(csi,*pp,str);
- return(0);
- case FORMAT_TIME_STR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- strcpy(str,csi->ip);
- while(*(csi->ip++)); /* Find NULL */
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && lp) {
- tm_p=gmtime(lp);
- strftime(buf,128,str,tm_p);
- *pp=copystrvar(csi,*pp,buf); }
- return(0);
- case TIME_STR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip str variable name */
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip int variable name */
- if(pp && lp) {
- strcpy(str,timestr(lp));
- *pp=copystrvar(csi,*pp,str); }
- return(0);
- case DATE_STR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip str variable name */
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip int variable name */
- if(pp && lp) {
- unixtodstr(*lp,str);
- *pp=copystrvar(csi,*pp,str); }
- return(0);
- case SECOND_STR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip str variable name */
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip int variable name */
- if(pp && lp) {
- sectostr(*lp,str);
- *pp=copystrvar(csi,*pp,str); }
- return(0);
- case STRUPR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp)
- strupr(*pp);
- return(0);
- case STRLWR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp)
- strlwr(*pp);
- return(0);
- case TRUNCSP_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp)
- truncsp(*pp);
- return(0);
- case STRIP_CTRL_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp)
- strip_ctrl(*pp);
- return(0);
-
- case ADD_INT_VAR:
- case SUB_INT_VAR:
- case MUL_INT_VAR:
- case DIV_INT_VAR:
- case MOD_INT_VAR:
- case AND_INT_VAR:
- case OR_INT_VAR:
- case NOT_INT_VAR:
- case XOR_INT_VAR:
- i=*(csi->ip-1);
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- l=*(long *)csi->ip;
- csi->ip+=4;
- if(!lp)
- return(0);
- switch(i) {
- case ADD_INT_VAR:
- *lp+=l;
- break;
- case SUB_INT_VAR:
- *lp-=l;
- break;
- case MUL_INT_VAR:
- *lp*=l;
- break;
- case DIV_INT_VAR:
- *lp/=l;
- break;
- case MOD_INT_VAR:
- *lp%=l;
- break;
- case AND_INT_VAR:
- *lp&=l;
- break;
- case OR_INT_VAR:
- *lp|=l;
- break;
- case NOT_INT_VAR:
- *lp&=~l;
- break;
- case XOR_INT_VAR:
- *lp^=l;
- break; }
- return(0);
- case ADD_INT_VARS:
- case SUB_INT_VARS:
- case MUL_INT_VARS:
- case DIV_INT_VARS:
- case MOD_INT_VARS:
- case AND_INT_VARS:
- case OR_INT_VARS:
- case NOT_INT_VARS:
- case XOR_INT_VARS:
- i=*(csi->ip-1);
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!lp1)
- return(0);
- if(!lp2) {
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(!pp || !*pp)
- return(0);
- l=strtol(*pp,0,0); }
- else
- l=*lp2;
- switch(i) {
- case ADD_INT_VARS:
- *lp1+=l;
- break;
- case SUB_INT_VARS:
- *lp1-=l;
- break;
- case MUL_INT_VARS:
- *lp1*=l;
- break;
- case DIV_INT_VARS:
- *lp1/=l;
- break;
- case MOD_INT_VARS:
- *lp1%=l;
- break;
- case AND_INT_VARS:
- *lp1&=l;
- break;
- case OR_INT_VARS:
- *lp1|=l;
- break;
- case NOT_INT_VARS:
- *lp1&=~l;
- break;
- case XOR_INT_VARS:
- *lp1^=l;
- break; }
- return(0);
- case RANDOM_INT_VAR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- l=*(long *)csi->ip;
- csi->ip+=4;
- if(lp)
- *lp=random(l);
- return(0);
- case TIME_INT_VAR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp)
- *lp=time(NULL);
- return(0);
- case DATE_STR_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp && pp && *pp)
- *lp=dstrtounix(*pp);
- return(0);
- case STRLEN_INT_VAR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- if(pp && *pp)
- *lp=strlen(*pp);
- else
- *lp=0; }
- return(0);
- case CRC16_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- if(pp && *pp)
- *lp=crc16(*pp);
- else
- *lp=0; }
- return(0);
- case CRC32_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- if(pp && *pp)
- *lp=crc32(*pp,strlen(*pp));
- else
- *lp=0; }
- return(0);
- case CHKSUM_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- *lp=0;
- if(pp && *pp) {
- i=0;
- while(*((*pp)+i))
- *lp+=(uchar)*((*pp)+(i++)); } }
- return(0);
- case FLENGTH_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- if(pp && *pp)
- *lp=flength(*pp);
- else
- *lp=0; }
- return(0);
- case FTIME_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- if(pp && *pp)
- *lp=fdate_dir(*pp);
- else
- *lp=0; }
- return(0);
- case CHARVAL_TO_INT:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- if(pp && *pp)
- *lp=**pp;
- else
- *lp=0; }
- return(0);
- case GETSTR_VAR:
- case GETLINE_VAR:
- case GETNAME_VAR:
- case GETSTRUPR_VAR:
- case GETSTR_MODE:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- i=*(csi->ip++);
- csi->logic=LOGIC_FALSE;
- switch(*(csi->ip-6)) {
- case GETNAME_VAR:
- getstr(buf,i,K_UPRLWR);
- break;
- case GETSTRUPR_VAR:
- getstr(buf,i,K_UPPER);
- break;
- case GETLINE_VAR:
- getstr(buf,i,K_LINE);
- break;
- case GETSTR_MODE:
- l=*(long *)csi->ip;
- csi->ip+=4;
- if(l&K_EDIT) {
- if(pp && *pp)
- strcpy(buf,*pp);
- else
- buf[0]=0; }
- getstr(buf,i,l);
- break;
- default:
- getstr(buf,i,0); }
- if(sys_status&SS_ABORT)
- return(0);
- if(pp) {
- *pp=copystrvar(csi,*pp,buf);
- csi->logic=LOGIC_TRUE; }
- return(0);
- case GETNUM_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(!pp)
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- i=*(short *)csi->ip;
- csi->ip+=2;
- csi->logic=LOGIC_FALSE;
- l=getnum(i);
- if(!pp && !lp)
- return(0);
- if(pp) {
- if(l<=0)
- str[0]=0;
- else
- ltoa(l,str,10);
- *pp=copystrvar(csi,*pp,str);
- csi->logic=LOGIC_TRUE;
- return(0); }
- if(lp) {
- *lp=l;
- csi->logic=LOGIC_TRUE; }
- return(0);
-
- case SHIFT_STR_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- i=*(csi->ip++);
- if(!pp || !*pp)
- return(0);
- if(strlen(*pp)>=i)
- memmove(*pp,*pp+i,strlen(*pp)+1);
- return(0);
-
- case CHKFILE_VAR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp && fexist(cmdstr(*pp,path,csi->str,buf)))
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case PRINTFILE_VAR_MODE:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- i=*(short *)(csi->ip);
- csi->ip+=2;
- if(pp && *pp)
- printfile(*pp,i);
- return(0);
- case PRINTTAIL_VAR_MODE:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- i=*(short *)(csi->ip);
- csi->ip+=2;
- j=*csi->ip;
- csi->ip++;
- if(pp && *pp)
- printtail(*pp,j,i);
- return(0);
- case SEND_FILE_VIA:
- case RECEIVE_FILE_VIA:
- j=*(csi->ip-1);
- ch=*(csi->ip++); /* Protocol */
- cmdstr(csi->ip,csi->str,csi->str,str);
- while(*(csi->ip++)); /* Find NULL */
- for(i=0;i<total_prots;i++)
- if(prot[i]->mnemonic==ch && chk_ar(prot[i]->ar,useron))
- break;
- csi->logic=LOGIC_FALSE;
- if(i<total_prots)
- if(external(cmdstr(j==SEND_FILE_VIA
- ? prot[i]->dlcmd : prot[i]->ulcmd,str,str,buf)
- ,EX_OUTL)==0)
- csi->logic=LOGIC_TRUE;
- return(0);
- case SEND_FILE_VIA_VAR:
- case RECEIVE_FILE_VIA_VAR:
- j=*(csi->ip-1);
- ch=*(csi->ip++); /* Protocol */
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- for(i=0;i<total_prots;i++)
- if(prot[i]->mnemonic==ch && chk_ar(prot[i]->ar,useron))
- break;
- csi->logic=LOGIC_FALSE;
- if(!pp || !(*pp))
- return(0);
- if(i<total_prots)
- if(external(cmdstr(j==SEND_FILE_VIA_VAR
- ? prot[i]->dlcmd : prot[i]->ulcmd,*pp,*pp,buf)
- ,EX_OUTL)==0)
- csi->logic=LOGIC_TRUE;
- return(0);
-
- default:
- errormsg(WHERE,ERR_CHK,"var sub-instruction",*(csi->ip-1));
- return(0); }
-
- case CS_FIO_FUNCTION:
- switch(*(csi->ip++)) { /* sub-op-code stored as next byte */
- case FIO_OPEN:
- case FIO_OPEN_VAR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- w=*(ushort *)csi->ip;
- csi->ip+=2;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-7)==FIO_OPEN) {
- cmdstr(csi->ip,path,csi->str,str);
- while(*(csi->ip++)); } /* skip filename */
- else {
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!pp || !*pp)
- return(0);
- strcpy(str,*pp); }
- if(csi->files>=MAX_FOPENS)
- return(0);
- if(lp) {
- /* Access flags are not cross-platform, so convert */
- i=0;
- if(w&1) i|=O_RDONLY;
- if(w&2) i|=O_WRONLY;
- if(w&4) i|=O_RDWR;
- if(w&0x040) i|=O_DENYNONE;
- if(w&0x100) i|=O_CREAT;
- if(w&0x200) i|=O_TRUNC;
- if(w&0x400) i|=O_EXCL;
- if(w&0x800) i|=O_APPEND;
- *lp=(long)fnopen(&j,str,i);
- if(*lp) {
- for(i=0;i<csi->files;i++)
- if(!csi->file[i])
- break;
- csi->file[i]=(FILE *)*lp;
- if(i==csi->files)
- csi->files++;
- csi->logic=LOGIC_TRUE; } }
- return(0);
- case FIO_CLOSE:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp && *lp) {
- csi->logic=fclose((FILE *)*lp);
- for(i=0;i<csi->files;i++)
- if(csi->file[i]==(FILE *)*lp)
- csi->file[i]=0; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case FIO_FLUSH:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp && *lp)
- csi->logic=fflush((FILE *)*lp);
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case FIO_READ:
- case FIO_READ_VAR:
- lp1=getintvar(csi,*(long *)csi->ip); /* Handle */
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(!pp)
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-9)==FIO_READ) {
- i=*(short *)csi->ip;
- csi->ip+=2; /* Length */ }
- else { /* FIO_READ_VAR */
- vp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!vp)
- return(0);
- i=*(short *)vp; }
- if(i>1024)
- i=1024;
- if(!lp1 || !(*lp1) || (!pp && !lp2))
- return(0);
- if(pp) {
- if(i<1) {
- if(*pp && **pp)
- i=strlen(*pp);
- else
- i=128; }
- if((j=fread(buf,1,i,(FILE *)*lp1))==i)
- csi->logic=LOGIC_TRUE;
- buf[j]=0;
- if(csi->etx) {
- p=strchr(buf,csi->etx);
- if(p) *p=0; }
- *pp=copystrvar(csi,*pp,buf); }
- else {
- *lp2=0;
- if(i>4 || i<1) i=4;
- if(fread(lp2,1,i,(FILE *)*lp1)==i)
- csi->logic=LOGIC_TRUE; }
- return(0);
- case FIO_READ_LINE:
- lp1=getintvar(csi,*(long *)csi->ip); /* Handle */
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(!pp)
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(!lp1 || !(*lp1) || feof((FILE *)*lp1) || (!pp && !lp2))
- return(0);
- csi->logic=LOGIC_TRUE;
- for(i=0;i<1024 /* && !eof(*lp1) removed 1/23/96 */;i++) {
- if(!fread(buf+i,1,1,(FILE *)*lp1))
- break;
- if(*(buf+i)==LF) {
- i++;
- break; } }
- buf[i]=0;
- if(csi->etx) {
- p=strchr(buf,csi->etx);
- if(p) *p=0; }
- if(pp)
- *pp=copystrvar(csi,*pp,buf);
- else
- *lp2=strtol(buf,0,0);
- return(0);
- case FIO_WRITE:
- case FIO_WRITE_VAR:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(!pp)
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-9)==FIO_WRITE) {
- i=*(short *)csi->ip;
- csi->ip+=2; /* Length */ }
- else { /* FIO_WRITE_VAR */
- vp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!vp)
- return(0);
- i=*(short *)vp; }
- if(i>1024)
- i=1024;
- if(!lp1 || !(*lp1) || (!pp && !lp2) || (pp && !*pp))
- return(0);
- if(pp) {
- j=strlen(*pp);
- if(i<1) i=j;
- if(j>i) j=i;
- j=fwrite(*pp,1,j,(FILE *)*lp1);
- if(j<i) {
- memset(buf,csi->etx,i-j);
- fwrite(buf,1,i-j,(FILE *)*lp1); }
- csi->logic=LOGIC_TRUE; }
- else {
- if(i<1 || i>4) i=4;
- if(fwrite(lp2,1,i,(FILE *)*lp1)==i)
- csi->logic=LOGIC_TRUE; }
- return(0);
- case FIO_GET_LENGTH:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp1 && *lp1 && lp2)
- *lp2=filelength(fileno((FILE *)*lp1));
- return(0);
- case FIO_GET_TIME:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp1 && *lp1 && lp2) {
- getftime(fileno((FILE *)*lp1),&ft);
- *lp2=ftimetounix(ft); }
- return(0);
- case FIO_SET_TIME:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp1 && *lp1 && lp2) {
- ft=unixtoftime(*lp2);
- setftime(fileno((FILE *)*lp1),&ft); }
- return(0);
- case FIO_EOF:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(lp && *lp)
- if(ftell((FILE *)*lp)>=filelength(fileno((FILE *)*lp)))
- csi->logic=LOGIC_TRUE;
- return(0);
- case FIO_GET_POS:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp1 && *lp1 && lp2)
- *lp2=ftell((FILE *)*lp1);
- return(0);
- case FIO_SEEK:
- case FIO_SEEK_VAR:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-5)==FIO_SEEK) {
- l=*(long *)csi->ip;
- csi->ip+=4; }
- else {
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!lp2) {
- csi->ip+=2;
- return(0); }
- l=*lp2; }
- i=*(short *)csi->ip;
- csi->ip+=2;
- if(lp1 && *lp1)
- if(fseek((FILE *)*lp1,l,i)!=-1)
- csi->logic=LOGIC_TRUE;
- return(0);
- case FIO_LOCK:
- case FIO_LOCK_VAR:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-5)==FIO_LOCK) {
- l=*(long *)csi->ip;
- csi->ip+=4; }
- else {
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!lp2)
- return(0);
- l=*lp2; }
- if(lp1 && *lp1) {
- fflush((FILE *)*lp1);
- lseek(fileno((FILE *)*lp1),ftell((FILE *)*lp1),SEEK_SET);
- csi->logic=locking(fileno((FILE *)*lp1),LK_LOCK,l); }
- return(0);
- case FIO_UNLOCK:
- case FIO_UNLOCK_VAR:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-5)==FIO_UNLOCK) {
- l=*(long *)csi->ip;
- csi->ip+=4; }
- else {
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!lp2)
- return(0);
- l=*lp2; }
- if(lp1 && *lp1) {
- fflush((FILE *)*lp1);
- lseek(fileno((FILE *)*lp1),ftell((FILE *)*lp1),SEEK_SET);
- csi->logic=locking(fileno((FILE *)*lp1),LK_UNLCK,l); }
- return(0);
- case FIO_SET_LENGTH:
- case FIO_SET_LENGTH_VAR:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(*(csi->ip-5)==FIO_SET_LENGTH) {
- l=*(long *)csi->ip;
- csi->ip+=4; }
- else {
- lp2=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!lp2)
- return(0);
- l=*lp2; }
- if(lp1 && *lp1)
- csi->logic=chsize(fileno((FILE *)*lp1),l);
- return(0);
- case FIO_PRINTF:
- lp1=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- strcpy(str,csi->ip);
- while(*(csi->ip++)); /* Find NULL */
- j=*(csi->ip++); /* total args */
- for(i=0;i<j;i++) {
- vp=getstrvar(csi,*(long *)csi->ip);
- if(!vp) {
- lp2=getintvar(csi,*(long *)csi->ip);
- if(!lp2)
- arglist[i]=0;
- else
- arglist[i]=(void *)*lp2; }
- else
- arglist[i]=*(char **)vp;
- csi->ip+=4; }
- vsprintf(tmp,str,arglist);
- if(lp1 && *lp1) {
- cmdstr(tmp,path,csi->str,str);
- fwrite(str,1,strlen(str),(FILE *)*lp1); }
- return(0);
- case FIO_SET_ETX:
- csi->etx=*(csi->ip++);
- return(0);
- case REMOVE_FILE:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp && remove(*pp)==0)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case RENAME_FILE:
- case COPY_FILE:
- case MOVE_FILE:
- (char **)pp1=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4; /* Skip variable name */
- (char **)pp2=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp1 && *pp1 && pp2 && *pp2)
- switch(*(csi->ip-9)) {
- case RENAME_FILE:
- csi->logic=rename(*pp1,*pp2);
- break;
- case COPY_FILE:
- csi->logic=mv(*pp1,*pp2,1);
- break;
- case MOVE_FILE:
- csi->logic=mv(*pp1,*pp2,0);
- break; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case GET_FILE_ATTRIB:
- case SET_FILE_ATTRIB:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp && lp) {
- if(*(csi->ip-9)==GET_FILE_ATTRIB)
- *lp=_chmod(*pp,0,0);
- else
- *lp=_chmod(*pp,1,(int)*lp); }
- return(0);
- case MAKE_DIR:
- case REMOVE_DIR:
- case CHANGE_DIR:
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(pp && *pp)
- switch(*(csi->ip-5)) {
- case MAKE_DIR:
- csi->logic=mkdir(*pp);
- break;
- case REMOVE_DIR:
- csi->logic=rmdir(*pp);
- break;
- case CHANGE_DIR:
- csi->logic=chdir(*pp);
- break; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case OPEN_DIR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(pp && *pp && lp) {
- *lp=(long)opendir((char *)*pp);
- if(*lp)
- csi->logic=LOGIC_TRUE; }
- return(0);
- case READ_DIR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- csi->logic=LOGIC_FALSE;
- if(pp && lp) {
- de=readdir((DIR *)(*lp));
- if(de!=NULL) {
- csi->logic=LOGIC_TRUE;
- *pp=copystrvar(csi,*pp,de->d_name); } }
- return(0);
- case REWIND_DIR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp) {
- rewinddir((DIR *)(*lp));
- csi->logic=LOGIC_TRUE; }
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- case CLOSE_DIR:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(lp && closedir((DIR *)(*lp))==0)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
- default:
- errormsg(WHERE,ERR_CHK,"fio sub-instruction",*(csi->ip-1));
- return(0); }
-
-
- case CS_SWITCH:
- lp=getintvar(csi,*(long *)csi->ip);
- csi->ip+=4;
- if(!lp) {
- skipto(csi,CS_END_SWITCH);
- csi->ip++; }
- else {
- csi->misc|=CS_IN_SWITCH;
- csi->switch_val=*lp; }
- return(0);
- case CS_CASE:
- l=*(long *)csi->ip;
- csi->ip+=4;
- if(csi->misc&CS_IN_SWITCH && csi->switch_val!=l)
- skipto(csi,CS_NEXTCASE);
- else
- csi->misc&=~CS_IN_SWITCH;
- return(0);
- case CS_COMPARE_ARS:
- i=*(csi->ip++); /* Length of ARS stored as byte before ARS */
- csi->logic=!chk_ar(csi->ip,useron);
- csi->ip+=i;
- return(0);
- case CS_TOGGLE_USER_MISC:
- useron.misc^=*(long *)csi->ip;
- putuserrec(useron.number,U_MISC,8,ultoa(useron.misc,tmp,16));
- csi->ip+=4;
- return(0);
- case CS_COMPARE_USER_MISC:
- if((useron.misc&*(long *)csi->ip)==*(long *)csi->ip)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- csi->ip+=4;
- return(0);
- case CS_TOGGLE_USER_CHAT:
- useron.chat^=*(long *)csi->ip;
- putuserrec(useron.number,U_CHAT,8,ultoa(useron.chat,tmp,16));
- csi->ip+=4;
- return(0);
- case CS_COMPARE_USER_CHAT:
- if((useron.chat&*(long *)csi->ip)==*(long *)csi->ip)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- csi->ip+=4;
- return(0);
- case CS_TOGGLE_USER_QWK:
- useron.qwk^=*(long *)csi->ip;
- putuserrec(useron.number,U_QWK,8,ultoa(useron.qwk,tmp,16));
- csi->ip+=4;
- return(0);
- case CS_COMPARE_USER_QWK:
- if((useron.qwk&*(long *)csi->ip)==*(long *)csi->ip)
- csi->logic=LOGIC_TRUE;
- else
- csi->logic=LOGIC_FALSE;
- csi->ip+=4;
- return(0);
- case CS_REPLACE_TEXT:
- i=*(ushort *)csi->ip;
- csi->ip+=2;
- i--;
- if(i>=TOTAL_TEXT) {
- errormsg(WHERE,ERR_CHK,"replace text #",i);
- while(*(csi->ip++)); /* Find NULL */
- return(0); }
- if(text[i]!=text_sav[i] && text[i]!=nulstr)
- FREE(text[i]);
- j=strlen(cmdstr(csi->ip,path,csi->str,buf));
- if(!j)
- text[i]=nulstr;
- else
- text[i]=MALLOC(j+1);
- if(!text[i]) {
- errormsg(WHERE,ERR_ALLOC,"replacement text",j);
- while(*(csi->ip++)); /* Find NULL */
- text[i]=text_sav[i];
- return(0); }
- if(j)
- strcpy(text[i],buf);
- while(*(csi->ip++)); /* Find NULL */
- return(0);
- case CS_USE_INT_VAR: // Self-modifying code!
- (char **)pp=getstrvar(csi,*(long *)csi->ip);
- if(pp && *pp)
- l=strtol(*pp,0,0);
- else {
- lp=getintvar(csi,*(long *)csi->ip);
- if(lp)
- l=*lp;
- else
- l=0; }
- csi->ip+=4; // Variable
- i=*(csi->ip++); // Offset
- if(i<1 || csi->ip+1+i>=csi->cs+csi->length) {
- errormsg(WHERE,ERR_CHK,"offset",i);
- csi->ip++;
- return(0); }
- switch(*(csi->ip++)) { // Length
- case sizeof(char):
- *(csi->ip+i)=(char)l;
- break;
- case sizeof(short):
- *((short *)(csi->ip+i))=(short)l;
- break;
- case sizeof(long):
- *((long *)(csi->ip+i))=l;
- break;
- default:
- errormsg(WHERE,ERR_CHK,"length",*(csi->ip-1));
- break; }
- return(0);
- default:
- errormsg(WHERE,ERR_CHK,"shell instruction",*(csi->ip-1));
- return(0); }
-}
diff --git a/src/sbbs2/execmsg.c b/src/sbbs2/execmsg.c
deleted file mode 100644
index 510a24ce7342f77e58d883cffbbceb57e4495f6b..0000000000000000000000000000000000000000
--- a/src/sbbs2/execmsg.c
+++ /dev/null
@@ -1,301 +0,0 @@
-#line 1 "EXECMSG.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-int execmsg(csi_t *csi)
-{
- uchar str[256],tmp2[128],*path,ch,*p;
- int s,file,x,y;
- long i,j,k; // Changes from ints - 03/25/96
- long l;
- stats_t stats;
- node_t node;
- file_t f;
- time_t t;
- csi_t bin;
-
-
-switch(*(csi->ip++)) {
-
- case CS_MSG_SELECT_AREA:
- csi->logic=LOGIC_FALSE;
- if(!usrgrps) return(0);
- while(online) {
- j=0;
- if(usrgrps>1) {
- sprintf(str,"%sMENU\\GRPS.*",text_dir);
- if(fexist(str))
- menu("GRPS");
- else {
- bputs(text[CfgGrpLstHdr]);
- for(i=0;i<usrgrps && !msgabort();i++) {
- if(i==curgrp)
- outchar('*');
- else outchar(SP);
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bprintf(text[CfgGrpLstFmt]
- ,i+1,grp[usrgrp[i]]->lname); } }
- sprintf(str,text[JoinWhichGrp],curgrp+1);
- mnemonics(str);
- j=getnum(usrgrps);
- if((int)j==-1)
- return(0);
- if(!j)
- j=curgrp;
- else
- j--; }
- sprintf(str,"%sMENU\\SUBS%u.*",text_dir,usrgrp[j]+1);
- if(fexist(str)) {
- sprintf(str,"SUBS%u",usrgrp[j]+1);
- menu(str); }
- else {
- CLS;
- bprintf(text[SubLstHdr],grp[usrgrp[j]]->lname);
- for(i=0;i<usrsubs[j] && !msgabort();i++) {
- if(i==cursub[j]) outchar('*');
- else outchar(SP);
- sprintf(str,text[SubLstFmt],i+1
- ,sub[usrsub[j][i]]->lname,nulstr
- ,getposts(usrsub[j][i]));
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bputs(str); } }
- sprintf(str,text[JoinWhichSub],cursub[j]+1);
- mnemonics(str);
- i=getnum(usrsubs[j]);
- if((int)i==-1) {
- if(usrgrps==1)
- return(0);
- continue; }
- if(!i)
- i=cursub[j];
- else
- i--;
- curgrp=j;
- cursub[curgrp]=i;
- csi->logic=LOGIC_TRUE;
- return(0); }
- return(0);
-
- case CS_MSG_GET_SUB_NUM:
-
- if(useron.misc&COLDKEYS) {
- i=atoi(csi->str);
- if(i && usrgrps && i<=usrsubs[curgrp])
- cursub[curgrp]=i-1;
- return(0); }
-
- ch=getkey(K_UPPER);
- outchar(ch);
- if(usrgrps && (ch&0xf)*10<=usrsubs[curgrp] && (ch&0xf)) {
- i=(ch&0xf)*10;
- ch=getkey(K_UPPER);
- if(!isdigit(ch) && ch!=CR) {
- ungetkey(ch);
- cursub[curgrp]=(i/10)-1;
- return(0); }
- outchar(ch);
- if(ch==CR) {
- cursub[curgrp]=(i/10)-1;
- return(0); }
- logch(ch,0);
- i+=ch&0xf;
- if(i*10<=usrsubs[curgrp]) { /* 100+ subs */
- i*=10;
- ch=getkey(K_UPPER);
- if(!isdigit(ch) && ch!=CR) {
- ungetkey(ch);
- cursub[curgrp]=(i/10)-1;
- return(0); }
- outchar(ch);
- if(ch==CR) {
- cursub[curgrp]=(i/10)-1;
- return(0); }
- logch(ch,0);
- i+=ch&0xf; }
- if(i<=usrsubs[curgrp])
- cursub[curgrp]=i-1;
- return(0); }
- if((ch&0xf)<=usrsubs[curgrp] && (ch&0xf) && usrgrps)
- cursub[curgrp]=(ch&0xf)-1;
- return(0);
-
- case CS_MSG_GET_GRP_NUM:
-
- if(useron.misc&COLDKEYS) {
- i=atoi(csi->str);
- if(i && i<=usrgrps)
- curgrp=i-1;
- return(0); }
-
- ch=getkey(K_UPPER);
- outchar(ch);
- if((ch&0xf)*10<=usrgrps && (ch&0xf)) {
- i=(ch&0xf)*10;
- ch=getkey(K_UPPER);
- if(!isdigit(ch) && ch!=CR) {
- ungetkey(ch);
- curgrp=(i/10)-1;
- return(0); }
- outchar(ch);
- if(ch==CR) {
- curgrp=(i/10)-1;
- return(0); }
- logch(ch,0);
- i+=ch&0xf;
- if(i<=usrgrps)
- curgrp=i-1;
- return(0); }
- if((ch&0xf)<=usrgrps && (ch&0xf))
- curgrp=(ch&0xf)-1;
- return(0);
-
- case CS_MSG_SET_GROUP:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<usrgrps;i++)
- if(!stricmp(grp[usrgrp[i]]->sname,csi->str))
- break;
- if(i<usrgrps)
- curgrp=i;
- else
- csi->logic=LOGIC_FALSE;
- return(0);
-
- case CS_MSG_SHOW_GROUPS:
- if(!usrgrps) return(0);
- sprintf(str,"%sMENU\\GRPS.*",text_dir);
- if(fexist(str)) {
- menu("GRPS");
- return(0); }
- bputs(text[GrpLstHdr]);
- for(i=0;i<usrgrps && !msgabort();i++) {
- if(i==curgrp)
- outchar('*');
- else outchar(SP);
- if(i<9) outchar(SP);
- bprintf(text[GrpLstFmt],i+1
- ,grp[usrgrp[i]]->lname,nulstr,usrsubs[i]); }
- return(0);
-
- case CS_MSG_SHOW_SUBBOARDS:
- if(!usrgrps) return(0);
- sprintf(str,"%sMENU\\SUBS%u.*",text_dir,usrgrp[curgrp]+1);
- if(fexist(str)) {
- sprintf(str,"SUBS%u",usrgrp[curgrp]+1);
- menu(str);
- return(0); }
- CRLF;
- bprintf(text[SubLstHdr],grp[usrgrp[curgrp]]->lname);
- for(i=0;i<usrsubs[curgrp] && !msgabort();i++) {
- if(i==cursub[curgrp]) outchar('*');
- else outchar(SP);
- sprintf(str,text[SubLstFmt],i+1
- ,sub[usrsub[curgrp][i]]->lname,nulstr
- ,getposts(usrsub[curgrp][i]));
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bputs(str); }
- return(0);
-
- case CS_MSG_GROUP_UP:
- curgrp++;
- if(curgrp>=usrgrps)
- curgrp=0;
- return(0);
- case CS_MSG_GROUP_DOWN:
- if(!curgrp)
- curgrp=usrgrps-1;
- else curgrp--;
- return(0);
- case CS_MSG_SUBBOARD_UP:
- if(!usrgrps) return(0);
- cursub[curgrp]++;
- if(cursub[curgrp]>=usrsubs[curgrp])
- cursub[curgrp]=0;
- return(0);
- case CS_MSG_SUBBOARD_DOWN:
- if(!usrgrps) return(0);
- if(!cursub[curgrp])
- cursub[curgrp]=usrsubs[curgrp]-1;
- else cursub[curgrp]--;
- return(0);
- case CS_MSG_SET_AREA:
- csi->logic=LOGIC_TRUE;
- for(i=0;i<usrgrps;i++)
- for(j=0;j<usrsubs[i];j++)
- if(!stricmp(csi->str,sub[usrsub[i][j]]->code)) {
- curgrp=i;
- cursub[i]=j;
- return(0); }
- csi->logic=LOGIC_FALSE;
- return(0);
- case CS_MSG_READ:
- if(!usrgrps) return(0);
- csi->logic=scanposts(usrsub[curgrp][cursub[curgrp]],0,nulstr);
- return(0);
- case CS_MSG_POST:
- if(!usrgrps) return(0);
- csi->logic=LOGIC_FALSE;
- if(!chk_ar(sub[usrsub[curgrp][cursub[curgrp]]]->post_ar,useron)) {
- bputs(text[CantPostOnSub]);
- return(0); }
- csi->logic=!postmsg(usrsub[curgrp][cursub[curgrp]],0,0);
- return(0);
- case CS_MSG_QWK:
- qwk_sec();
- return(0);
- case CS_MSG_PTRS_CFG:
- new_scan_ptr_cfg();
- return(0);
- case CS_MSG_PTRS_REINIT:
- for(i=0;i<total_subs;i++) {
- sub[i]->ptr=sub_ptr[i];
- sub[i]->last=sub_last[i]; }
- bputs(text[MsgPtrsInitialized]);
- return(0);
- case CS_MSG_NEW_SCAN_CFG:
- new_scan_cfg(SUB_NSCAN);
- return(0);
- case CS_MSG_NEW_SCAN:
- scansubs(SCAN_NEW);
- return(0);
- case CS_MSG_NEW_SCAN_SUB:
- csi->logic=scanposts(usrsub[curgrp][cursub[curgrp]],SCAN_NEW,nulstr);
- return(0);
- case CS_MSG_NEW_SCAN_ALL:
- scanallsubs(SCAN_NEW);
- return(0);
- case CS_MSG_CONT_SCAN:
- scansubs(SCAN_NEW|SCAN_CONST);
- return(0);
- case CS_MSG_CONT_SCAN_ALL:
- scanallsubs(SCAN_NEW|SCAN_CONST);
- return(0);
- case CS_MSG_BROWSE_SCAN:
- scansubs(SCAN_NEW|SCAN_BACK);
- return(0);
- case CS_MSG_BROWSE_SCAN_ALL:
- scanallsubs(SCAN_BACK|SCAN_NEW);
- return(0);
- case CS_MSG_FIND_TEXT:
- scansubs(SCAN_FIND);
- return(0);
- case CS_MSG_FIND_TEXT_ALL:
- scanallsubs(SCAN_FIND);
- return(0);
- case CS_MSG_YOUR_SCAN_CFG:
- new_scan_cfg(SUB_SSCAN);
- return(0);
- case CS_MSG_YOUR_SCAN:
- scansubs(SCAN_TOYOU);
- return(0);
- case CS_MSG_YOUR_SCAN_ALL:
- scanallsubs(SCAN_TOYOU);
- return(0); }
-errormsg(WHERE,ERR_CHK,"shell function",*(csi->ip-1));
-return(0);
-}
diff --git a/src/sbbs2/execsbbs/execsbbs.c b/src/sbbs2/execsbbs/execsbbs.c
deleted file mode 100644
index 7c491cb17bc21a4643fbb0dde0b6ba76d5c5ef5c..0000000000000000000000000000000000000000
--- a/src/sbbs2/execsbbs/execsbbs.c
+++ /dev/null
@@ -1,59 +0,0 @@
-/* execbbs.c */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <dos.h>
-#include <dir.h>
-#include <errno.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <process.h>
-
-extern unsigned _heaplen=2048;
-
-/* usage: execsbbs start_dir "program parms" sbbspath [r] */
-
-int main(int argc, char *argv[])
-{
- char path[129],*comspec,*p,*arg[30],c;
- int disk;
-
-if(argc<4) {
- printf("This program is for the internal use of Synchronet.\r\n");
-/*** Debug stuff
- printf("argc=%d\r\n",argc);
- for(c=0;c<argc;c++)
- printf("argv[%d]='%s'\n",c,argv[c]);
-***/
- return(0); }
-disk=getdisk();
-getcwd(path,128);
-comspec=getenv("COMSPEC");
-
-/*** /* Removed */
-strcpy(str,comspec); /* save comspec */
-strcpy(comspec,""); /* destroy comspec */
-***/
-
-if(argv[1][1]==':') /* drive letter specified */
- setdisk(toupper(argv[1][0])-'A');
-chdir(argv[1]);
-
-p=strchr(argv[2],' ');
-if(p)
- p++;
-if(spawnlpe(P_WAIT,comspec,comspec,"/c",argv[2],NULL,environ))
- printf("EXECSBBS: Error %d spawning %s\r\n",errno,argv[2]);
-/***
-strcpy(comspec,str); /* restore comspec */
-***/
-setdisk(disk);
-if(chdir(path))
- printf("\7\r\nEXECBBS: Error changing directory to %s\r\n",path);
-for(c=0;c<30;c++)
- arg[c]=argv[c+3];
-if(execve(arg[0],arg,environ))
- printf("EXECSBBS: Error %d executing %s\r\n",errno,arg[0]);
-return(1);
-}
diff --git a/src/sbbs2/execsbbs/make.bat b/src/sbbs2/execsbbs/make.bat
deleted file mode 100755
index a972501c137a79a5ec2d17e3cb12d39eca1849f5..0000000000000000000000000000000000000000
--- a/src/sbbs2/execsbbs/make.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-@echo off
-bcc -w-pro -C -mt -ndos execsbbs.c
-if errorlevel 1 goto end
-exe2bin dos\execsbbs.exe dos\execsbbs.com
-:end
diff --git a/src/sbbs2/execsbbs/make.cmd b/src/sbbs2/execsbbs/make.cmd
deleted file mode 100755
index 6791ea0b846a9001521fc8ec756736b96fe34a60..0000000000000000000000000000000000000000
--- a/src/sbbs2/execsbbs/make.cmd
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -w-pro -C -nos2 execsbbs.c
diff --git a/src/sbbs2/fido.c b/src/sbbs2/fido.c
deleted file mode 100644
index eddef53a5873419c182ea91a4604252ddb8238be..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido.c
+++ /dev/null
@@ -1,818 +0,0 @@
-#line 1 "FIDO.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*********************************************/
-/* Functions that pertain solely to FidoNet */
-/*********************************************/
-
-#include "sbbs.h"
-
-extern char *mon[];
-void inetmail(char *into, char *subj, char mode);
-void qnetmail(char *into, char *subj, char mode);
-int qwk_route(char *inaddr, char *fulladdr);
-
-void pt_zone_kludge(fmsghdr_t hdr,int fido)
-{
- char str[256];
-
-sprintf(str,"\1INTL %u:%u/%u %u:%u/%u\r"
- ,hdr.destzone,hdr.destnet,hdr.destnode
- ,hdr.origzone,hdr.orignet,hdr.orignode);
-write(fido,str,strlen(str));
-
-if(hdr.destpoint) {
- sprintf(str,"\1TOPT %u\r"
- ,hdr.destpoint);
- write(fido,str,strlen(str)); }
-
-if(hdr.origpoint) {
- sprintf(str,"\1FMPT %u\r"
- ,hdr.origpoint);
- write(fido,str,strlen(str)); }
-}
-
-int lookup_netuser(char *into)
-{
- char to[128],name[26],str[256],q[128];
- int i;
- FILE *stream;
-
-if(strchr(into,'@'))
- return(0);
-strcpy(to,into);
-strupr(to);
-sprintf(str,"%sQNET\\USERS.DAT",data_dir);
-if((stream=fnopen(&i,str,O_RDONLY))==NULL)
- return(0);
-while(!feof(stream)) {
- if(!fgets(str,250,stream))
- break;
- str[25]=0;
- truncsp(str);
- strcpy(name,str);
- strupr(name);
- str[35]=0;
- truncsp(str+27);
- sprintf(q,"Do you mean %s @%s",str,str+27);
- if(strstr(name,to) && yesno(q)) {
- fclose(stream);
- sprintf(into,"%s@%s",str,str+27);
- return(0); }
- if(sys_status&SS_ABORT)
- break; }
-fclose(stream);
-return(1);
-}
-
-/****************************************************************************/
-/* Send FidoNet NetMail from BBS */
-/****************************************************************************/
-void netmail(char *into, char *title, char mode)
-{
- char str[256],subj[128],to[256],fname[128],*buf,*p,ch;
- int file,fido,x,cc_found,cc_sent;
- uint i;
- long length,l;
- faddr_t addr;
- fmsghdr_t hdr;
-
-sprintf(subj,"%.127s",title);
-
-
-strcpy(to,into);
-
-lookup_netuser(to);
-
-p=strrchr(to,'@'); /* Find '@' in name@addr */
-if(p && !isdigit(*(p+1)) && !strchr(p,'.') && !strchr(p,':')) {
- mode&=~WM_FILE;
- qnetmail(to,title,mode|WM_NETMAIL);
- return; }
-if(p==NULL || !strchr(p+1,'/') || !total_faddrs) {
- if(!p && dflt_faddr.zone)
- addr=dflt_faddr;
- else if(inetmail_misc&NMAIL_ALLOW) {
- if(mode&WM_FILE && !SYSOP && !(inetmail_misc&NMAIL_FILE))
- mode&=~WM_FILE;
- inetmail(into,title,mode|WM_NETMAIL);
- return; }
- else if(dflt_faddr.zone)
- addr=dflt_faddr;
- else {
- bprintf("\1n\r\nInvalid NetMail address.\r\n");
- return; } }
-else {
- addr=atofaddr(p+1); /* Get fido address */
- *p=0; /* Chop off address */
- }
-
-if(mode&WM_FILE && !SYSOP && !(netmail_misc&NMAIL_FILE))
- mode&=~WM_FILE;
-
-if((!SYSOP && !(netmail_misc&NMAIL_ALLOW)) || useron.rest&FLAG('M')
- || !total_faddrs) {
- bputs(text[NoNetMailAllowed]);
- return; }
-
-truncsp(to); /* Truncate off space */
-
-memset(&hdr,0,sizeof(hdr)); /* Initialize header to null */
-strcpy(hdr.from,netmail_misc&NMAIL_ALIAS ? useron.alias : useron.name);
-sprintf(hdr.to,"%.35s",to);
-
-/* Look-up in nodelist? */
-
-if(netmail_cost && !(useron.exempt&FLAG('S'))) {
- if(useron.cdt+useron.freecdt<netmail_cost) {
- bputs(text[NotEnoughCredits]);
- return; }
- sprintf(str,text[NetMailCostContinueQ],netmail_cost);
- if(noyes(str))
- return; }
-
-
-now=time(NULL);
-unixtodos(now,&date,&curtime);
-sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u"
- ,date.da_day,mon[date.da_mon-1],TM_YEAR(date.da_year-1900)
- ,curtime.ti_hour,curtime.ti_min,curtime.ti_sec);
-
-hdr.destzone =addr.zone;
-hdr.destnet =addr.net;
-hdr.destnode =addr.node;
-hdr.destpoint =addr.point;
-
-for(i=0;i<total_faddrs;i++)
- if(addr.zone==faddr[i].zone && addr.net==faddr[i].net)
- break;
-if(i==total_faddrs) {
- for(i=0;i<total_faddrs;i++)
- if(addr.zone==faddr[i].zone)
- break; }
-if(i==total_faddrs)
- i=0;
-hdr.origzone =faddr[i].zone;
-hdr.orignet =faddr[i].net;
-hdr.orignode =faddr[i].node;
-hdr.origpoint =faddr[i].point;
-
-strcpy(str,faddrtoa(faddr[i]));
-bprintf(text[NetMailing],hdr.to,faddrtoa(addr),hdr.from,str);
-
-hdr.attr=(FIDO_LOCAL|FIDO_PRIVATE);
-
-if(netmail_misc&NMAIL_CRASH) hdr.attr|=FIDO_CRASH;
-if(netmail_misc&NMAIL_HOLD) hdr.attr|=FIDO_HOLD;
-if(netmail_misc&NMAIL_KILL) hdr.attr|=FIDO_KILLSENT;
-if(mode&WM_FILE) hdr.attr|=FIDO_FILE;
-
-sprintf(str,"%sNETMAIL.MSG",node_dir);
-remove(str); /* Just incase it's already there */
-// mode&=~WM_FILE;
-if(!writemsg(str,nulstr,subj,WM_NETMAIL|mode,INVALID_SUB,into)) {
- bputs(text[Aborted]);
- return; }
-
-if(mode&WM_FILE) {
- strcpy(fname,subj);
- sprintf(str,"%sFILE\\%04u.OUT",data_dir,useron.number);
- mkdir(str);
- strcpy(tmp,data_dir);
- if(tmp[0]=='.') /* Relative path */
- sprintf(tmp,"%s%s",node_dir,data_dir);
- sprintf(str,"%sFILE\\%04u.OUT\\%s",tmp,useron.number,fname);
- strcpy(subj,str);
- if(fexist(str)) {
- bputs(text[FileAlreadyThere]);
- return; }
- if(online==ON_LOCAL) { /* Local upload */
- bputs(text[EnterPath]);
- if(!getstr(str,60,K_LINE|K_UPPER)) {
- bputs(text[Aborted]);
- return; }
- backslash(str);
- strcat(str,fname);
- if(mv(str,subj,1))
- return; }
- else { /* Remote */
- menu("ULPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(x=0;x<total_prots;x++)
- if(prot[x]->ulcmd[0] && chk_ar(prot[x]->ar,useron)) {
- sprintf(tmp,"%c",prot[x]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- bputs(text[Aborted]);
- return; }
- for(x=0;x<total_prots;x++)
- if(prot[x]->ulcmd[0] && prot[x]->mnemonic==ch
- && chk_ar(prot[x]->ar,useron))
- break;
- if(x<total_prots) /* This should be always */
- protocol(cmdstr(prot[x]->ulcmd,subj,nulstr,NULL),0); }
- l=flength(subj);
- if(l>0)
- bprintf(text[FileNBytesReceived],fname,ultoac(l,tmp));
- else {
- bprintf(text[FileNotReceived],fname);
- return; } }
-
-p=subj;
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"CR:",3)) { /* Crash over-ride by sysop */
- p+=3; /* skip CR: */
- if(*p==SP) p++; /* skip extra space if it exists */
- hdr.attr|=FIDO_CRASH; }
-
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"FR:",3)) { /* File request */
- p+=3; /* skip FR: */
- if(*p==SP) p++;
- hdr.attr|=FIDO_FREQ; }
-
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"RR:",3)) { /* Return receipt request */
- p+=3; /* skip RR: */
- if(*p==SP) p++;
- hdr.attr|=FIDO_RRREQ; }
-
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"FA:",3)) { /* File Attachment */
- p+=3; /* skip FA: */
- if(*p==SP) p++;
- hdr.attr|=FIDO_FILE; }
-
-sprintf(hdr.subj,"%.71s",p);
-
-sprintf(str,"%sNETMAIL.MSG",node_dir);
-if((file=nopen(str,O_RDONLY))==-1) {
- close(fido);
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if((buf=(char *)MALLOC(length))==NULL) {
- close(fido);
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
-read(file,buf,length);
-close(file);
-
-cc_sent=0;
-while(1) {
- for(i=1;i;i++) {
- sprintf(str,"%s%u.MSG",netmail_dir,i);
- if(!fexist(str))
- break; }
- if(!i) {
- bputs(text[TooManyEmailsToday]);
- return; }
- if((fido=nopen(str,O_WRONLY|O_CREAT|O_EXCL))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_EXCL);
- return; }
- write(fido,&hdr,sizeof(hdr));
-
- pt_zone_kludge(hdr,fido);
-
- if(netmail_misc&NMAIL_DIRECT) {
- sprintf(str,"\1FLAGS DIR\r\n");
- write(fido,str,strlen(str)); }
- if(mode&WM_FILE) {
- sprintf(str,"\1FLAGS KFS\r\n");
- write(fido,str,strlen(str)); }
-
- if(cc_sent) {
- sprintf(str,"* Originally to: %s\r\n\r\n",into);
- write(fido,str,strlen(str)); }
-
- l=0L;
- while(l<length) {
- if(buf[l]==1) /* Ctrl-A, so skip it and the next char */
- l++;
- else if(buf[l]!=LF) {
- if((uchar)buf[l]==0x8d) /* r0dent i converted to normal i */
- buf[l]='i';
- write(fido,buf+l,1); }
- l++; }
- l=0;
- write(fido,&l,1); /* Null terminator */
- close(fido);
-
- if(!(useron.exempt&FLAG('S')))
- subtract_cdt(netmail_cost);
- if(mode&WM_FILE)
- sprintf(str,"Sent NetMail file attachment to %s (%s)"
- ,hdr.to,faddrtoa(addr));
- else
- sprintf(str,"Sent NetMail to %s (%s)"
- ,hdr.to,faddrtoa(addr));
- logline("EN",str);
-
- cc_found=0;
- for(l=0;l<length && cc_found<=cc_sent;l++)
- if(l+3<length && !strnicmp(buf+l,"CC:",3)) {
- cc_found++;
- l+=2; }
- else {
- while(l<length && *(buf+l)!=LF)
- l++; }
- if(!cc_found)
- break;
- while(l<length && *(buf+l)==SP) l++;
- for(i=0;l<length && *(buf+l)!=LF && i<128;i++,l++)
- str[i]=buf[l];
- if(!i)
- break;
- str[i]=0;
- p=strrchr(str,'@');
- if(p) {
- addr=atofaddr(p+1);
- *p=0;
- sprintf(hdr.to,"%.35s",str); }
- else {
- atofaddr(str);
- strcpy(hdr.to,"Sysop"); }
- hdr.destzone =addr.zone;
- hdr.destnet =addr.net;
- hdr.destnode =addr.node;
- hdr.destpoint =addr.point;
- cc_sent++; }
-
-if(netmail_sem[0]) /* update semaphore file */
- if((file=nopen(netmail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
-
-FREE(buf);
-}
-
-/****************************************************************************/
-/* Send FidoNet NetMail from QWK REP Packet */
-/****************************************************************************/
-void qwktonetmail(FILE *rep, char *block, char *into, uchar fromhub)
-{
- char HUGE16 *qwkbuf,to[129],name[129],sender[129],senderaddr[129]
- ,str[256],*p,*cp,*addr,fulladdr[129],ch,buf[SDT_BLOCK_LEN];
- int i,fido,inet=0,qnet=0,x;
- ushort net,xlat;
- long l,offset,length,m,n;
- faddr_t fidoaddr;
- fmsghdr_t hdr;
- smbmsg_t msg;
-
-if(useron.rest&FLAG('M')) {
- bputs(text[NoNetMailAllowed]);
- return; }
-
-sprintf(str,"%.6s",block+116);
-n=atol(str); /* i = number of 128 byte records */
-
-if(n<2L || n>999999L) {
- errormsg(WHERE,ERR_CHK,"QWK blocks",n);
- return; }
-if((qwkbuf=MALLOC(n*128L))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,n*128L);
- return; }
-memcpy((char *)qwkbuf,block,128);
-fread(qwkbuf+128,n-1,128,rep);
-
-if(into==NULL)
- sprintf(to,"%-128.128s",(char *)qwkbuf+128); /* To user on first line */
-else
- strcpy(to,into);
-
-p=strchr(to,0xe3); /* chop off at first CR */
-if(p) *p=0;
-
-strcpy(name,to);
-p=strchr(name,'@');
-if(p) *p=0;
-truncsp(name);
-
-
-p=strrchr(to,'@'); /* Find '@' in name@addr */
-if(p && !isdigit(*(p+1)) && !strchr(p,'.') && !strchr(p,':')) { /* QWKnet */
- qnet=1;
- *p=0; }
-else if(p==NULL || !isdigit(*(p+1)) || !total_faddrs) {
- if(p==NULL && dflt_faddr.zone)
- fidoaddr=dflt_faddr;
- else if(inetmail_misc&NMAIL_ALLOW) { /* Internet */
- inet=1;
-/*
- if(p)
- *p=0; /* Chop off address */
-*/
- }
- else if(dflt_faddr.zone)
- fidoaddr=dflt_faddr;
- else {
- bprintf("\1n\r\nInvalid NetMail address.\r\n");
- FREE(qwkbuf);
- return; } }
-else {
- fidoaddr=atofaddr(p+1); /* Get fido address */
- *p=0; /* Chop off address */
- }
-
-
-if(!inet && !qnet && /* FidoNet */
- ((!SYSOP && !(netmail_misc&NMAIL_ALLOW)) || !total_faddrs)) {
- bputs(text[NoNetMailAllowed]);
- FREE(qwkbuf);
- return; }
-
-truncsp(to); /* Truncate off space */
-
-if(!stricmp(to,"SBBS") && !SYSOP && qnet) {
- FREE(qwkbuf);
- return; }
-
-l=128; /* Start of message text */
-
-if(qnet || inet) {
-
- if(into==NULL) { /* If name@addr on first line, skip first line */
- while(l<(n*128L) && (uchar)qwkbuf[l]!=0xe3) l++;
- l++; }
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=smb_ver();
- msg.hdr.when_imported.time=time(NULL);
- msg.hdr.when_imported.zone=sys_timezone;
-
- if(fromhub || useron.rest&FLAG('Q')) {
- net=NET_QWK;
- smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net);
- if(!strncmp((uchar *)qwkbuf+l,"@VIA:",5)) {
- sprintf(str,"%.128s",qwkbuf+l+5);
- cp=strchr(str,0xe3);
- if(cp) *cp=0;
- l+=strlen(str)+1;
- cp=str;
- while(*cp && *cp<=SP) cp++;
- sprintf(senderaddr,"%s/%s"
- ,fromhub ? qhub[fromhub-1]->id : useron.alias,cp);
- strupr(senderaddr);
- smb_hfield(&msg,SENDERNETADDR,strlen(senderaddr),senderaddr); }
- else {
- if(fromhub)
- strcpy(senderaddr,qhub[fromhub-1]->id);
- else
- strcpy(senderaddr,useron.alias);
- strupr(senderaddr);
- smb_hfield(&msg,SENDERNETADDR,strlen(senderaddr),senderaddr); }
- sprintf(sender,"%.25s",block+46); } /* From name */
- else { /* Not Networked */
- msg.hdr.when_written.zone=sys_timezone;
- sprintf(str,"%u",useron.number);
- smb_hfield(&msg,SENDEREXT,strlen(str),str);
- strcpy(sender,(qnet || inetmail_misc&NMAIL_ALIAS)
- ? useron.alias : useron.name);
- }
- truncsp(sender);
- smb_hfield(&msg,SENDER,strlen(sender),sender);
- if(fromhub)
- msg.idx.from=0;
- else
- msg.idx.from=useron.number;
- if(!strncmp((uchar *)qwkbuf+l,"@TZ:",4)) {
- sprintf(str,"%.128s",qwkbuf+l);
- cp=strchr(str,0xe3);
- if(cp) *cp=0;
- l+=strlen(str)+1;
- cp=str+4;
- while(*cp && *cp<=SP) cp++;
- msg.hdr.when_written.zone=(short)ahtoul(cp); }
- else
- msg.hdr.when_written.zone=sys_timezone;
-
- date.da_mon=((qwkbuf[8]&0xf)*10)+(qwkbuf[9]&0xf);
- date.da_day=((qwkbuf[11]&0xf)*10)+(qwkbuf[12]&0xf);
- date.da_year=((qwkbuf[14]&0xf)*10)+(qwkbuf[15]&0xf);
- if(date.da_year<Y2K_2DIGIT_WINDOW)
- date.da_year+=100;
- date.da_year+=1900;
- curtime.ti_hour=((qwkbuf[16]&0xf)*10)+(qwkbuf[17]&0xf);
- curtime.ti_min=((qwkbuf[19]&0xf)*10)+(qwkbuf[20]&0xf); /* From QWK time */
- curtime.ti_sec=0;
-
- msg.hdr.when_written.time=dostounix(&date,&curtime);
-
- sprintf(str,"%.25s",block+71); /* Title */
- smb_hfield(&msg,SUBJECT,strlen(str),str);
- strlwr(str);
- msg.idx.subj=crc16(str); }
-
-if(qnet) {
-
- p++;
- addr=p;
- msg.idx.to=qwk_route(addr,fulladdr);
- if(!fulladdr[0]) { /* Invalid address, so BOUNCE it */
- /**
- errormsg(WHERE,ERR_CHK,addr,0);
- FREE(qwkbuf);
- smb_freemsgmem(msg);
- return;
- **/
- smb_hfield(&msg,SENDER,strlen(sys_id),sys_id);
- msg.idx.from=0;
- msg.idx.to=useron.number;
- strcpy(to,sender);
- strcpy(fulladdr,senderaddr);
- sprintf(str,"BADADDR: %s",addr);
- smb_hfield(&msg,SUBJECT,strlen(str),str);
- strlwr(str);
- msg.idx.subj=crc16(str);
- net=NET_NONE;
- smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net);
- }
-
- smb_hfield(&msg,RECIPIENT,strlen(name),name);
- net=NET_QWK;
- smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
-
- truncsp(fulladdr);
- smb_hfield(&msg,RECIPIENTNETADDR,strlen(fulladdr),fulladdr);
-
- bprintf(text[NetMailing],to,fulladdr,sender,sys_id); }
-
-if(inet) { /* Internet E-mail */
-
- if(inetmail_cost && !(useron.exempt&FLAG('S'))) {
- if(useron.cdt+useron.freecdt<inetmail_cost) {
- bputs(text[NotEnoughCredits]);
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; }
- sprintf(str,text[NetMailCostContinueQ],inetmail_cost);
- if(noyes(str)) {
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; } }
-
- net=NET_INTERNET;
- smb_hfield(&msg,RECIPIENT,strlen(name),name);
- msg.idx.to=0; /* Out-bound NetMail set to 0 */
- smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
- smb_hfield(&msg,RECIPIENTNETADDR,strlen(to),to);
-
- bprintf(text[NetMailing],name,to
- ,inetmail_misc&NMAIL_ALIAS ? useron.alias : useron.name
- ,sys_inetaddr); }
-
-if(qnet || inet) {
-
- bputs(text[WritingIndx]);
-
- if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; }
- sprintf(smb.file,"%sMAIL",data_dir);
- smb.retry_time=smb_retry_time;
- if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; }
-
- if(filelength(fileno(smb.shd_fp))<1L) { /* Create it if it doesn't exist */
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_age=mail_maxage;
- smb.status.attr=SMB_EMAIL;
- if((i=smb_create(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; } }
-
- length=n*256L; // Extra big for CRLF xlat, was (n-1L)*256L (03/16/96)
-
-
- if(length&0xfff00000UL || !length) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- sprintf(str,"REP msg (%ld)",n);
- errormsg(WHERE,ERR_LEN,str,length);
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; }
-
- if((i=smb_open_da(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- FREE(qwkbuf);
- smb_freemsgmem(&msg);
- return; }
- if(sys_misc&SM_FASTMAIL)
- offset=smb_fallocdat(&smb,length,1);
- else
- offset=smb_allocdat(&smb,length,1);
- smb_close_da(&smb);
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- m=2;
- for(;l<n*128L && m<length;l++) {
- if(qwkbuf[l]==0 || qwkbuf[l]==LF)
- continue;
- if((uchar)qwkbuf[l]==0xe3) {
- fwrite(crlf,2,1,smb.sdt_fp);
- m+=2;
- continue; }
- fputc(qwkbuf[l],smb.sdt_fp);
- m++; }
-
- for(ch=0;m<length;m++) /* Pad out with NULLs */
- fputc(ch,smb.sdt_fp);
- fflush(smb.sdt_fp);
-
- msg.hdr.offset=offset;
-
- smb_dfield(&msg,TEXT_BODY,length);
-
- i=smb_addmsghdr(&smb,&msg,SMB_SELFPACK);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
-
- smb_freemsgmem(&msg);
- if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,i); }
- else { /* Successful */
- if(inet) {
- if(inetmail_sem[0]) /* update semaphore file */
- if((fido=nopen(inetmail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(fido);
- if(!(useron.exempt&FLAG('S')))
- subtract_cdt(inetmail_cost); }
- sprintf(str,"Sent %s NetMail to %s (%s) via QWK"
- ,qnet ? "QWK":"Internet",name,qnet ? fulladdr : to);
- logline("EN",str); }
-
- FREE((char *)qwkbuf);
- return; }
-
-
-/****************************** FidoNet **********************************/
-
-if(!fidoaddr.zone || !netmail_dir[0]) { // No fido netmail allowed
- bprintf("\1n\r\nInvalid NetMail address.\r\n");
- FREE(qwkbuf);
- return; }
-
-memset(&hdr,0,sizeof(hdr)); /* Initialize header to null */
-
-if(fromhub || useron.rest&FLAG('Q')) {
- sprintf(str,"%.25s",block+46); /* From */
- truncsp(str);
- sprintf(tmp,"@%s",fromhub ? qhub[fromhub-1]->id : useron.alias);
- strupr(tmp);
- strcat(str,tmp); }
-else
- strcpy(str,netmail_misc&NMAIL_ALIAS ? useron.alias : useron.name);
-sprintf(hdr.from,"%.35s",str);
-
-sprintf(hdr.to,"%.35s",to);
-
-/* Look-up in nodelist? */
-
-if(netmail_cost && !(useron.exempt&FLAG('S'))) {
- if(useron.cdt+useron.freecdt<netmail_cost) {
- bputs(text[NotEnoughCredits]);
- FREE(qwkbuf);
- return; }
- sprintf(str,text[NetMailCostContinueQ],netmail_cost);
- if(noyes(str)) {
- FREE(qwkbuf);
- return; } }
-
-hdr.destzone =fidoaddr.zone;
-hdr.destnet =fidoaddr.net;
-hdr.destnode =fidoaddr.node;
-hdr.destpoint =fidoaddr.point;
-
-for(i=0;i<total_faddrs;i++)
- if(fidoaddr.zone==faddr[i].zone && fidoaddr.net==faddr[i].net)
- break;
-if(i==total_faddrs) {
- for(i=0;i<total_faddrs;i++)
- if(fidoaddr.zone==faddr[i].zone)
- break; }
-if(i==total_faddrs)
- i=0;
-hdr.origzone =faddr[i].zone;
-hdr.orignet =faddr[i].net;
-hdr.orignode =faddr[i].node;
-hdr.origpoint =faddr[i].point;
-
-strcpy(str,faddrtoa(faddr[i]));
-bprintf(text[NetMailing],hdr.to,faddrtoa(fidoaddr),hdr.from,str);
-
-date.da_mon=((qwkbuf[8]&0xf)*10)+(qwkbuf[9]&0xf);
-date.da_day=((qwkbuf[11]&0xf)*10)+(qwkbuf[12]&0xf);
-date.da_year=((qwkbuf[14]&0xf)*10)+(qwkbuf[15]&0xf);
-if(date.da_year<Y2K_2DIGIT_WINDOW)
- date.da_year+=100;
-date.da_year+=1900;
-curtime.ti_hour=((qwkbuf[16]&0xf)*10)+(qwkbuf[17]&0xf);
-curtime.ti_min=((qwkbuf[19]&0xf)*10)+(qwkbuf[20]&0xf); /* From QWK time */
-curtime.ti_sec=0;
-sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u" /* To FidoNet */
- ,date.da_day,mon[date.da_mon-1],TM_YEAR(date.da_year-1900)
- ,curtime.ti_hour,curtime.ti_min,curtime.ti_sec);
-
-hdr.attr=(FIDO_LOCAL|FIDO_PRIVATE);
-
-if(netmail_misc&NMAIL_CRASH) hdr.attr|=FIDO_CRASH;
-if(netmail_misc&NMAIL_HOLD) hdr.attr|=FIDO_HOLD;
-if(netmail_misc&NMAIL_KILL) hdr.attr|=FIDO_KILLSENT;
-
-sprintf(str,"%.25s",block+71); /* Title */
-truncsp(str);
-p=str;
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"CR:",3)) { /* Crash over-ride by sysop */
- p+=3; /* skip CR: */
- if(*p==SP) p++; /* skip extra space if it exists */
- hdr.attr|=FIDO_CRASH; }
-
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"FR:",3)) { /* File request */
- p+=3; /* skip FR: */
- if(*p==SP) p++;
- hdr.attr|=FIDO_FREQ; }
-
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"RR:",3)) { /* Return receipt request */
- p+=3; /* skip RR: */
- if(*p==SP) p++;
- hdr.attr|=FIDO_RRREQ; }
-
-if((SYSOP || useron.exempt&FLAG('F'))
- && !strncmpi(p,"FA:",3)) { /* File attachment */
- p+=3; /* skip FA: */
- if(*p==SP) p++;
- hdr.attr|=FIDO_FILE; }
-
-sprintf(hdr.subj,"%.71s",p);
-
-for(i=1;i;i++) {
- sprintf(str,"%s%u.MSG",netmail_dir,i);
- if(!fexist(str))
- break; }
-if(!i) {
- bputs(text[TooManyEmailsToday]);
- return; }
-if((fido=nopen(str,O_WRONLY|O_CREAT|O_EXCL))==-1) {
- FREE(qwkbuf);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_EXCL);
- return; }
-write(fido,&hdr,sizeof(hdr));
-
-pt_zone_kludge(hdr,fido);
-
-if(netmail_misc&NMAIL_DIRECT) {
- sprintf(str,"\1FLAGS DIR\r\n");
- write(fido,str,strlen(str)); }
-
-l=128L;
-
-if(into==NULL) { /* If name@addr on first line, skip first line */
- while(l<n*128L && (uchar)qwkbuf[l]!=0xe3) l++;
- l++; }
-
-while(l<n*128L) {
- if(qwkbuf[l]==1) /* Ctrl-A, so skip it and the next char */
- l++;
- else if(qwkbuf[l]!=LF) {
- if((uchar)qwkbuf[l]==0xe3) /* QWK cr/lf char converted to hard CR */
- qwkbuf[l]=CR;
- write(fido,(char *)qwkbuf+l,1); }
- l++; }
-l=0;
-write(fido,&l,1); /* Null terminator */
-close(fido);
-FREE((char *)qwkbuf);
-if(netmail_sem[0]) /* update semaphore file */
- if((fido=nopen(netmail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(fido);
-if(!(useron.exempt&FLAG('S')))
- subtract_cdt(netmail_cost);
-sprintf(str,"Sent NetMail to %s @%s via QWK",hdr.to,faddrtoa(fidoaddr));
-logline("EN",str);
-}
-
diff --git a/src/sbbs2/fido/crc16.c b/src/sbbs2/fido/crc16.c
deleted file mode 100644
index dc899629401fb12ee443dd2dd22c36c65911c731..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/crc16.c
+++ /dev/null
@@ -1,37 +0,0 @@
-/* CRC16.C */
-
-/* 16-bit CRC routines */
-
-#include "smblib.h"
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
diff --git a/src/sbbs2/fido/crc32.h b/src/sbbs2/fido/crc32.h
deleted file mode 100644
index a5d5162fb2fbae6acfb7b5a18d0502d2d1339b93..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/crc32.h
+++ /dev/null
@@ -1,40 +0,0 @@
-/* 32-bit CRC */
-
-long crc32tbl[]={ /* CRC polynomial 0xedb88320 */
-0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
-0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988, 0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
-0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
-0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
-0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172, 0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
-0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
-0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
-0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924, 0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
-0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
-0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
-0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e, 0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
-0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
-0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
-0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0, 0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
-0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
-0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
-0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a, 0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
-0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
-0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
-0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc, 0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
-0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
-0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
-0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236, 0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
-0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
-0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
-0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38, 0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
-0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
-0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
-0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2, 0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
-0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
-0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
-0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94, 0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
-};
-
-#define ucrc32(ch,crc) (crc32tbl[(crc^ch)&0xff]^(crc>>8))
-
-
diff --git a/src/sbbs2/fido/file_id.diz b/src/sbbs2/fido/file_id.diz
deleted file mode 100644
index b03fe6269fbf1cc4ec9e84a572d384b69fd2df03..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/file_id.diz
+++ /dev/null
@@ -1,3 +0,0 @@
-SBBSFIDO v2.23 - Fixes 32-bit LZH decoding
-and OS/2 NOPEN error. No change for DOS16.
-Includes DOS, OS/2, and 32-bit DOS versions.
diff --git a/src/sbbs2/fido/lzh.c b/src/sbbs2/fido/lzh.c
deleted file mode 100644
index 2d21e4d55f31cdbac167a0d9f772f5d0d7d7ddbe..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/lzh.c
+++ /dev/null
@@ -1,785 +0,0 @@
-/* LZH.C */
-
-/* Digital Dynamics conversion of 1988 LZH (LHarc) encoding functions */
-/* Based on Japanese version 29-NOV-1988 */
-/* LZSS coded by Haruhiko Okumura */
-/* Adaptive Huffman Coding coded by Haruyasu Yoshizaki */
-
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#ifndef __WATCOMC__
- #include <alloc.h>
-#endif
-
-/****************************************************************************/
-/* Memory allocation macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
- #if defined(__TURBOC__)
- #define REALLOC(x,y) farrealloc(x,y)
- #define LMALLOC(x) farmalloc(x)
- #define MALLOC(x) farmalloc(x)
- #define LFREE(x) farfree(x)
- #define FREE(x) farfree(x)
- #elif defined(__WATCOMC__)
- #define REALLOC realloc
- #define LMALLOC(x) halloc(x,1) /* far heap, but slow */
- #define MALLOC malloc /* far heap, but 64k max */
- #define LFREE hfree
- #define FREE free
- #else /* Other 16-bit Compiler */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
- #endif
-#else /* 32-bit Compiler or Small Memory Model */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
-#endif
-
-
-
-typedef unsigned char uchar;
-
-/* LZSS Parameters */
-
-#define LZH_N 4096 /* Size of string buffer */
-#define LZH_F 60 /* Size of look-ahead buffer */
-#define LZH_THRESHOLD 2
-#define LZH_NIL LZH_N /* End of tree's node */
-
-#ifdef LZH_DYNAMIC_BUF
-
-unsigned char *lzh_text_buf;
-short int lzh_match_position, lzh_match_length,
- *lzh_lson, *lzh_rson, *lzh_dad;
-
-#else
-
-unsigned char lzh_text_buf[LZH_N + LZH_F - 1];
-short int lzh_match_position, lzh_match_length,
- lzh_lson[LZH_N + 1], lzh_rson[LZH_N + 257], lzh_dad[LZH_N + 1];
-
-#endif
-
-
-void lzh_init_tree(void) /* Initializing tree */
-{
- short int i;
-
- for (i = LZH_N + 1; i <= LZH_N + 256; i++)
- lzh_rson[i] = LZH_NIL; /* root */
- for (i = 0; i < LZH_N; i++)
- lzh_dad[i] = LZH_NIL; /* node */
-}
-
-/******************************/
-/* Inserting node to the tree */
-/* Only used during encoding */
-/******************************/
-void lzh_insert_node(short int r)
-{
- short int i, p, cmp;
- unsigned char *key;
- unsigned c;
-
- cmp = 1;
- key = lzh_text_buf+r;
- p = LZH_N + 1 + key[0];
- lzh_rson[r] = lzh_lson[r] = LZH_NIL;
- lzh_match_length = 0;
- for ( ; ; ) {
- if (cmp >= 0) {
- if (lzh_rson[p] != LZH_NIL)
- p = lzh_rson[p];
- else {
- lzh_rson[p] = r;
- lzh_dad[r] = p;
- return;
- }
- } else {
- if (lzh_lson[p] != LZH_NIL)
- p = lzh_lson[p];
- else {
- lzh_lson[p] = r;
- lzh_dad[r] = p;
- return;
- }
- }
- for (i = 1; i < LZH_F; i++)
- if ((cmp = key[i] - lzh_text_buf[p + i]) != 0)
- break;
- if (i > LZH_THRESHOLD) {
- if (i > lzh_match_length) {
- lzh_match_position = ((r - p) & (LZH_N - 1)) - 1;
- if ((lzh_match_length = i) >= LZH_F)
- break;
- }
- if (i == lzh_match_length) {
- if ((c = ((r - p) & (LZH_N - 1)) - 1) < lzh_match_position) {
- lzh_match_position = c;
- }
- }
- }
- }
- lzh_dad[r] = lzh_dad[p];
- lzh_lson[r] = lzh_lson[p];
- lzh_rson[r] = lzh_rson[p];
- lzh_dad[lzh_lson[p]] = r;
- lzh_dad[lzh_rson[p]] = r;
- if (lzh_rson[lzh_dad[p]] == p)
- lzh_rson[lzh_dad[p]] = r;
- else
- lzh_lson[lzh_dad[p]] = r;
- lzh_dad[p] = LZH_NIL; /* remove p */
-}
-
-void lzh_delete_node(short int p) /* Deleting node from the tree */
-{
- short int q;
-
- if (lzh_dad[p] == LZH_NIL)
- return; /* unregistered */
- if (lzh_rson[p] == LZH_NIL)
- q = lzh_lson[p];
- else
- if (lzh_lson[p] == LZH_NIL)
- q = lzh_rson[p];
- else {
- q = lzh_lson[p];
- if (lzh_rson[q] != LZH_NIL) {
- do {
- q = lzh_rson[q];
- } while (lzh_rson[q] != LZH_NIL);
- lzh_rson[lzh_dad[q]] = lzh_lson[q];
- lzh_dad[lzh_lson[q]] = lzh_dad[q];
- lzh_lson[q] = lzh_lson[p];
- lzh_dad[lzh_lson[p]] = q;
- }
- lzh_rson[q] = lzh_rson[p];
- lzh_dad[lzh_rson[p]] = q;
- }
- lzh_dad[q] = lzh_dad[p];
- if (lzh_rson[lzh_dad[p]] == p)
- lzh_rson[lzh_dad[p]] = q;
- else
- lzh_lson[lzh_dad[p]] = q;
- lzh_dad[p] = LZH_NIL;
-}
-
-/* Huffman coding parameters */
-
-#define LZH_N_CHAR (256 - LZH_THRESHOLD + LZH_F)
- /* character code (= 0..LZH_N_CHAR-1) */
-#define LZH_T (LZH_N_CHAR * 2 - 1) /* Size of table */
-#define LZH_R (LZH_T - 1) /* root position */
-#define MAX_FREQ 0x8000
- /* update when cumulative frequency */
- /* reaches to this value */
-
-/*
- * Tables for encoding/decoding upper 6 bits of
- * sliding dictionary pointer
- */
-/* encoder table */
-uchar lzh_p_len[64] = {
- 0x03, 0x04, 0x04, 0x04, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08
-};
-
-uchar lzh_p_code[64] = {
- 0x00, 0x20, 0x30, 0x40, 0x50, 0x58, 0x60, 0x68,
- 0x70, 0x78, 0x80, 0x88, 0x90, 0x94, 0x98, 0x9C,
- 0xA0, 0xA4, 0xA8, 0xAC, 0xB0, 0xB4, 0xB8, 0xBC,
- 0xC0, 0xC2, 0xC4, 0xC6, 0xC8, 0xCA, 0xCC, 0xCE,
- 0xD0, 0xD2, 0xD4, 0xD6, 0xD8, 0xDA, 0xDC, 0xDE,
- 0xE0, 0xE2, 0xE4, 0xE6, 0xE8, 0xEA, 0xEC, 0xEE,
- 0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,
- 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF
-};
-
-/* decoder table */
-uchar lzh_d_code[256] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02,
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x09, 0x09, 0x09, 0x09, 0x09, 0x09, 0x09, 0x09,
- 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A,
- 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B,
- 0x0C, 0x0C, 0x0C, 0x0C, 0x0D, 0x0D, 0x0D, 0x0D,
- 0x0E, 0x0E, 0x0E, 0x0E, 0x0F, 0x0F, 0x0F, 0x0F,
- 0x10, 0x10, 0x10, 0x10, 0x11, 0x11, 0x11, 0x11,
- 0x12, 0x12, 0x12, 0x12, 0x13, 0x13, 0x13, 0x13,
- 0x14, 0x14, 0x14, 0x14, 0x15, 0x15, 0x15, 0x15,
- 0x16, 0x16, 0x16, 0x16, 0x17, 0x17, 0x17, 0x17,
- 0x18, 0x18, 0x19, 0x19, 0x1A, 0x1A, 0x1B, 0x1B,
- 0x1C, 0x1C, 0x1D, 0x1D, 0x1E, 0x1E, 0x1F, 0x1F,
- 0x20, 0x20, 0x21, 0x21, 0x22, 0x22, 0x23, 0x23,
- 0x24, 0x24, 0x25, 0x25, 0x26, 0x26, 0x27, 0x27,
- 0x28, 0x28, 0x29, 0x29, 0x2A, 0x2A, 0x2B, 0x2B,
- 0x2C, 0x2C, 0x2D, 0x2D, 0x2E, 0x2E, 0x2F, 0x2F,
- 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
- 0x38, 0x39, 0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F,
-};
-
-uchar lzh_d_len[256] = {
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
-};
-
-#ifdef LZH_DYNAMIC_BUF
-
-unsigned short *lzh_freq=NULL; /* cumulative freq table */
-
-/*
- * pointing parent nodes.
- * area [LZH_T..(LZH_T + LZH_N_CHAR - 1)] are pointers for leaves
- */
-short int *lzh_prnt=NULL;
-
-/* pointing children nodes (son[], son[] + 1)*/
-short int *lzh_son=NULL;
-
-#else /* STATIC */
-
-unsigned short lzh_freq[LZH_T + 1]; /* cumulative freq table */
-short int lzh_prnt[LZH_T + LZH_N_CHAR];
-short int lzh_son[LZH_T + 1]; /* bug fixed by Digital Dynamics */
-
-#endif
-
-
-unsigned short lzh_getbuf = 0; /* Was just "unsigned" fixed 04/12/95 */
-uchar lzh_getlen = 0;
-
-int lzh_getbit(uchar *inbuf, long *incnt, long inlen) /* get one bit */
-{
- short int i;
-
- while (lzh_getlen <= 8) {
- if((*incnt)>=inlen)
- i=0;
- else
- i=inbuf[(*incnt)++];
- lzh_getbuf |= i << (8 - lzh_getlen);
- lzh_getlen += 8;
- }
- i = lzh_getbuf;
- lzh_getbuf <<= 1;
- lzh_getlen--;
- return (i < 0);
-}
-
-short int lzh_getbyte(uchar *inbuf, long *incnt, long inlen) /* get a byte */
-{
- unsigned short i;
-
- while (lzh_getlen <= 8) {
- if((*incnt)>=inlen)
- i=0;
- else
- i=inbuf[(*incnt)++];
- lzh_getbuf |= i << (8 - lzh_getlen);
- lzh_getlen += 8;
- }
- i = lzh_getbuf;
- lzh_getbuf <<= 8;
- lzh_getlen -= 8;
- return i >> 8;
-}
-
-unsigned lzh_putbuf = 0;
-uchar lzh_putlen = 0;
-
-/* output c bits */
-void lzh_putcode(short int l, unsigned short c, uchar *outbuf, long *outlen)
-{
- lzh_putbuf |= c >> lzh_putlen;
- if ((lzh_putlen += l) >= 8) {
- outbuf[(*outlen)++]=(lzh_putbuf >> 8);
- if ((lzh_putlen -= 8) >= 8) {
- outbuf[(*outlen)++]=lzh_putbuf;
- lzh_putlen -= 8;
- lzh_putbuf = c << (l - lzh_putlen);
- } else {
- lzh_putbuf <<= 8;
- }
- }
-}
-
-
-/* initialize freq tree */
-
-void lzh_start_huff()
-{
- short int i, j;
-
-lzh_getbuf = 0; /* Added by Digital Dynamics for repeating operations */
-lzh_getlen = 0;
-lzh_putbuf = 0;
-lzh_putlen = 0;
-
- for (i = 0; i < LZH_N_CHAR; i++) {
- lzh_freq[i] = 1;
- lzh_son[i] = i + LZH_T;
- lzh_prnt[i + LZH_T] = i;
- }
- i = 0; j = LZH_N_CHAR;
- while (j <= LZH_R) {
- lzh_freq[j] = lzh_freq[i] + lzh_freq[i + 1];
- lzh_son[j] = i;
- lzh_prnt[i] = lzh_prnt[i + 1] = j;
- i += 2; j++;
- }
- lzh_freq[LZH_T] = 0xffff;
- lzh_prnt[LZH_R] = 0;
-}
-
-
-/* reconstruct freq tree */
-
-void lzh_reconst()
-{
- short int i, j, k;
- unsigned short f, l;
-
- /* halven cumulative freq for leaf nodes */
- j = 0;
- for (i = 0; i < LZH_T; i++) {
- if (lzh_son[i] >= LZH_T) {
- lzh_freq[j] = (lzh_freq[i] + 1) / 2;
- lzh_son[j] = lzh_son[i];
- j++;
- }
- }
- /* make a tree : first, connect children nodes */
- for (i = 0, j = LZH_N_CHAR; j < LZH_T; i += 2, j++) {
- k = i + 1;
- f = lzh_freq[j] = lzh_freq[i] + lzh_freq[k];
- for (k = j - 1; f < lzh_freq[k]; k--);
- k++;
- l = (j - k) * 2;
-
- /* movmem() is Turbo-C dependent
- rewritten to memmove() by Kenji */
-
- /* movmem(&lzh_freq[k], &lzh_freq[k + 1], l); */
- (void)memmove(lzh_freq+k+1,lzh_freq+k, l);
- lzh_freq[k] = f;
- /* movmem(&lzh_son[k], &lzh_son[k + 1], l); */
- (void)memmove(lzh_son+k+1,lzh_son+k, l);
- lzh_son[k] = i;
- }
- /* connect parent nodes */
- for (i = 0; i < LZH_T; i++) {
- if ((k = lzh_son[i]) >= LZH_T) {
- lzh_prnt[k] = i;
- } else {
- lzh_prnt[k] = lzh_prnt[k + 1] = i;
- }
- }
-}
-
-/* update freq tree */
-
-void lzh_update(short int c)
-{
- short int i, j, k, l;
-
- if (lzh_freq[LZH_R] == MAX_FREQ) {
- lzh_reconst();
- }
- c = lzh_prnt[c + LZH_T];
- do {
- k = ++lzh_freq[c];
-
- /* swap nodes to keep the tree freq-ordered */
- if (k > lzh_freq[l = c + 1]) {
- while (k > lzh_freq[++l]);
- l--;
- lzh_freq[c] = lzh_freq[l];
- lzh_freq[l] = k;
-
- i = lzh_son[c];
- lzh_prnt[i] = l;
- if (i < LZH_T) lzh_prnt[i + 1] = l;
-
- j = lzh_son[l];
- lzh_son[l] = i;
-
- lzh_prnt[j] = c;
- if (j < LZH_T) lzh_prnt[j + 1] = c;
- lzh_son[c] = j;
-
- c = l;
- }
- } while ((c = lzh_prnt[c]) != 0); /* do it until reaching the root */
-}
-
-unsigned short lzh_code, lzh_len;
-
-void lzh_encode_char(unsigned short c, uchar *outbuf, long *outlen)
-{
- unsigned short i;
- short int j, k;
-
- i = 0;
- j = 0;
- k = lzh_prnt[c + LZH_T];
-
- /* search connections from leaf node to the root */
- do {
- i >>= 1;
-
- /*
- if node's address is odd, output 1
- else output 0
- */
- if (k & 1) i += 0x8000;
-
- j++;
- } while ((k = lzh_prnt[k]) != LZH_R);
- lzh_putcode(j, i, outbuf, outlen);
- lzh_code = i;
- lzh_len = j;
- lzh_update(c);
-}
-
-void lzh_encode_position(unsigned short c, uchar *outbuf, long *outlen)
-{
- unsigned short i;
-
- /* output upper 6 bits with encoding */
- i = c >> 6;
- lzh_putcode(lzh_p_len[i], (unsigned)lzh_p_code[i] << 8, outbuf, outlen);
-
- /* output lower 6 bits directly */
- lzh_putcode(6, (c & 0x3f) << 10, outbuf, outlen);
-}
-
-void lzh_encode_end(uchar *outbuf, long *outlen)
-{
- if (lzh_putlen) {
- outbuf[(*outlen)++]=(lzh_putbuf >> 8);
- }
-}
-
-short int lzh_decode_char(uchar *inbuf, long *incnt, long inlen)
-{
- unsigned short c;
-
- c = lzh_son[LZH_R];
-
- /*
- * start searching tree from the root to leaves.
- * choose node #(lzh_son[]) if input bit == 0
- * else choose #(lzh_son[]+1) (input bit == 1)
- */
- while (c < LZH_T) {
- c += lzh_getbit(inbuf,incnt,inlen);
- c = lzh_son[c];
- }
- c -= LZH_T;
- lzh_update(c);
- return c;
-}
-
-short int lzh_decode_position(uchar *inbuf, long *incnt, long inlen)
-{
- unsigned short i, j, c;
-
- /* decode upper 6 bits from given table */
- i = lzh_getbyte(inbuf,incnt,inlen);
- c = (unsigned)lzh_d_code[i] << 6;
- j = lzh_d_len[i];
-
- /* input lower 6 bits directly */
- j -= 2;
- while (j--) {
- i = (i << 1) + lzh_getbit(inbuf,incnt,inlen);
- }
- return c | i & 0x3f;
-}
-
-/* Compression */
-
-/* Encoding/Compressing */
-/* Returns length of outbuf */
-long lzh_encode(uchar *inbuf, long inlen, uchar *outbuf)
-{
- short int i, c, len, r, s, last_match_length;
- long incnt,outlen; /* textsize=0; */
-
-#ifdef LZH_DYNAMIC_BUF
-
- if((lzh_text_buf=(uchar *)MALLOC(LZH_N + LZH_F - 1))==NULL)
- return(-1);
- if((lzh_freq=(unsigned short*)MALLOC((LZH_T + 1)*sizeof(unsigned short)))==NULL) {
- FREE(lzh_text_buf);
- return(-1); }
- if((lzh_prnt=(short *)MALLOC((LZH_T + LZH_N_CHAR)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_son=(short *)MALLOC((LZH_T + 1) * sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_lson=(short *)MALLOC((LZH_N + 1)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- return(-1); }
- if((lzh_rson=(short *)MALLOC((LZH_N + 257)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- return(-1); }
- if((lzh_dad=(short *)MALLOC((LZH_N + 1)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- return(-1); }
-#endif
-
- incnt=0;
- memcpy(outbuf,&inlen,sizeof(inlen));
- outlen=sizeof(inlen);
- if(!inlen) {
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- FREE(lzh_dad);
-#endif
- return(outlen); }
- lzh_start_huff();
- lzh_init_tree();
- s = 0;
- r = LZH_N - LZH_F;
- for (i = s; i < r; i++)
- lzh_text_buf[i] = ' ';
- for (len = 0; len < LZH_F && incnt<inlen; len++)
- lzh_text_buf[r + len] = inbuf[incnt++];
- /* textsize = len; */
- for (i = 1; i <= LZH_F; i++)
- lzh_insert_node(r - i);
- lzh_insert_node(r);
- do {
- if (lzh_match_length > len)
- lzh_match_length = len;
- if (lzh_match_length <= LZH_THRESHOLD) {
- lzh_match_length = 1;
- lzh_encode_char(lzh_text_buf[r],outbuf,&outlen);
- } else {
- lzh_encode_char(255 - LZH_THRESHOLD + lzh_match_length
- ,outbuf,&outlen);
- lzh_encode_position(lzh_match_position
- ,outbuf,&outlen);
- }
- last_match_length = lzh_match_length;
- for (i = 0; i < last_match_length && incnt<inlen; i++) {
- lzh_delete_node(s);
- c=inbuf[incnt++];
- lzh_text_buf[s] = c;
- if (s < LZH_F - 1)
- lzh_text_buf[s + LZH_N] = c;
- s = (s + 1) & (LZH_N - 1);
- r = (r + 1) & (LZH_N - 1);
- lzh_insert_node(r);
- }
-/***
- if ((textsize += i) > printcount) {
- printf("%12ld\r", textsize);
- printcount += 1024;
- }
-***/
- while (i++ < last_match_length) {
- lzh_delete_node(s);
- s = (s + 1) & (LZH_N - 1);
- r = (r + 1) & (LZH_N - 1);
- if (--len) lzh_insert_node(r);
- }
- } while (len > 0);
- lzh_encode_end(outbuf,&outlen);
-/*
- printf("input: %ld (%ld) bytes\n", inlen,textsize);
- printf("output: %ld bytes\n", outlen);
- printf("output/input: %.3f\n", (double)outlen / inlen);
-*/
-
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- FREE(lzh_dad);
-#endif
-
- return(outlen);
-}
-
-/* Decoding/Uncompressing */
-/* Returns length of outbuf */
-long lzh_decode(uchar *inbuf, long inlen, uchar *outbuf)
-{
- short int i, j, k, r, c;
- unsigned long int count;
- long incnt,textsize;
-
-#ifdef LZH_DYNAMIC_BUF
-
- if((lzh_text_buf=(uchar *)MALLOC((LZH_N + LZH_F - 1)*2))==NULL)
- return(-1);
- if((lzh_freq=(unsigned short *)MALLOC((LZH_T + 1)*sizeof(unsigned short)))
- ==NULL) {
- FREE(lzh_text_buf);
- return(-1); }
- if((lzh_prnt=(short *)MALLOC((LZH_T + LZH_N_CHAR)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_son=(short *)MALLOC((LZH_T + 1) * sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- return(-1); }
-
-#endif
-
- incnt=0;
- memcpy(&textsize,inbuf,sizeof(textsize));
- incnt+=sizeof(textsize);
- if (textsize == 0) {
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
-#endif
- return(textsize); }
- lzh_start_huff();
- for (i = 0; i < LZH_N - LZH_F; i++)
- *(lzh_text_buf+i) = ' ';
- r = LZH_N - LZH_F;
- for (count = 0; count < textsize; ) {
- c = lzh_decode_char(inbuf,&incnt,inlen);
- if (c < 256) {
- outbuf[count]=c;
-#if 0
- if(r>(LZH_N + LZH_F - 1) || r<0) {
- printf("Overflow! (%d)\n",r);
- getch();
- exit(-1); }
-#endif
- *(lzh_text_buf+r) = c;
- r++;
- r &= (LZH_N - 1);
- count++;
- } else {
- i = (r - lzh_decode_position(inbuf,&incnt,inlen) - 1)
- & (LZH_N - 1);
- j = c - 255 + LZH_THRESHOLD;
- for (k = 0; k < j && count<textsize; k++) {
- c = lzh_text_buf[(i + k) & (LZH_N - 1)];
- outbuf[count]=c;
-#if 0
- if(r>(LZH_N + LZH_F - 1) || r<0) {
- printf("Overflow! (%d)\n",r);
- exit(-1); }
-#endif
- *(lzh_text_buf+r) = c;
- r++;
- r &= (LZH_N - 1);
- count++;
- }
- }
- }
-/***
- printf("%12ld\n", count);
-***/
-
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
-#endif
-
-return(count);
-}
-
-
diff --git a/src/sbbs2/fido/lzh.h b/src/sbbs2/fido/lzh.h
deleted file mode 100644
index 68a71dd90c338ec888128735e99829fefdb02856..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/lzh.h
+++ /dev/null
@@ -1,5 +0,0 @@
-/* LZH.H */
-
-long lzh_encode(uchar *inbuf, long inlen, uchar *outbuf);
-long lzh_decode(uchar *inbuf, long inlen, uchar *outbuf);
-
diff --git a/src/sbbs2/fido/makeall.bat b/src/sbbs2/fido/makeall.bat
deleted file mode 100755
index d8896214fe42c6dd9a3c39b166e1b0aa63b5aa28..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/makeall.bat
+++ /dev/null
@@ -1,7 +0,0 @@
-@echo off
-wmake
-if errorlevel 1 goto end
-wmake OS=DOSX
-if errorlevel 1 goto end
-wmake OS=OS2
-:end
diff --git a/src/sbbs2/fido/makefile b/src/sbbs2/fido/makefile
deleted file mode 100644
index 472e9e275db50858e572e2aca57851a93fd7b1ea..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/makefile
+++ /dev/null
@@ -1,78 +0,0 @@
-############################################
-# Makefile for Synchronet SBBSFIDO Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;..;..\smb
-!ifeq OS DOS
-CFLAGS = -I$(INCLUDE) -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -s -ml
-!else
-CFLAGS = -I$(INCLUDE) -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -s
-!endif
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-
-LFLAGS = option stack=16k system $(SYSTEM)
-
-MAIN = $(OS)\sbbsfido.exe
-OBJS = $(OS)\sbbsfido.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\smblib.obj $(OS)\smbvars.obj $(OS)\ars.obj $(OS)\lzh.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\smb\smbdefs.h ..\smb\smblib.h ..\smb\smbvars.c
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $[@ ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\smbvars.obj: ..\smb\smbvars.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\lzh.obj: ..\smb\lzh.c ..\smb\lzh.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
diff --git a/src/sbbs2/fido/makefile.bc b/src/sbbs2/fido/makefile.bc
deleted file mode 100644
index 27f1c3e38755980d4b591cd192ae7b7bfbfa25e8..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/makefile.bc
+++ /dev/null
@@ -1,88 +0,0 @@
-############################################
-# Makefile for Synchronet SBBSFIDO Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE)
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -N -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-!endif
-MAIN = $(OS)\sbbsfido.exe
-OBJS = $(OS)\sbbsfido.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj\
- $(OS)\scfglib2.obj\
- $(OS)\smblib.obj $(OS)\smbvars.obj $(OS)\ars.obj $(OS)\lzh.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c \
- ..\smb\smbdefs.h ..\smb\smblib.h ..\smb\smbvars.c
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_FILE_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib2.c ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_FILE_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-#$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
-# @echo Compiling SMBLIB ...
-# $(CC) $(CFLAGS) -n$(OS) -c ..\smb\smblib.c
-
-#$(OS)\smbvars.obj: ..\smb\smbvars.c ..\smb\smblib.h ..\smb\smbdefs.h
-# @echo Compiling SMBVARS ...
-# $(CC) $(CFLAGS) -n$(OS) -c ..\smb\smbvars.c
-
-#$(OS)\lzh.obj: ..\smb\lzh.c ..\smb\lzh.h
-# @echo Compiling LZH ...
-# $(CC) $(CFLAGS) -n$(OS) -c ..\smb\lzh.c
-
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -n$(OS) -c ..\ars.c
-
diff --git a/src/sbbs2/fido/sbbsfido.c b/src/sbbs2/fido/sbbsfido.c
deleted file mode 100644
index 35ed292f76675b28ec535b04bd29480d8c292712..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/sbbsfido.c
+++ /dev/null
@@ -1,1909 +0,0 @@
-/* SBBSFIDO.C */
-
-/* Synchronet FidoNet EchoMail Scanning/Tossing and NetMail Tossing Utility */
-
-#define VER "2.24"
-
-#include "sbbs.h"
-#include "crc32.h"
-#include "lzh.h"
-#include "post.h"
-#include "scfglib.h"
-
-#define IMPORT_NETMAIL (1L<<0)
-#define IMPORT_ECHOMAIL (1L<<1)
-#define EXPORT_ECHOMAIL (1L<<2)
-#define DELETE_NETMAIL (1L<<3)
-#define DELETE_ECHOMAIL (1L<<4)
-#define IGNORE_POINT (1L<<5)
-#define IGNORE_ZONE (1L<<6)
-#define IGNORE_MSGPTRS (1L<<7)
-#define UPDATE_MSGPTRS (1L<<8)
-#define LEAVE_MSGPTRS (1L<<9)
-#define KILL_ECHOMAIL (1L<<10)
-#define ASCII_ONLY (1L<<11)
-#define LOGFILE (1L<<12)
-#define REPORT (1L<<13)
-#define EXPORT_ALL (1L<<14)
-#define PURGE_ECHOMAIL (1L<<15)
-#define UNKNOWN_NETMAIL (1L<<16)
-#define IGNORE_ADDRESS (1L<<17)
-#define IMPORT_LOCAL (1L<<18)
-#define IMPORT_NEW_ONLY (1L<<19)
-#define DONT_SET_RECV (1L<<20)
-#define IGNORE_RECV (1L<<21)
-#define CONVERT_TEAR (1L<<22)
-#define IMPORT_PRIVATE (1L<<23)
-#define LOCAL_NETMAIL (1L<<24)
-#define NOTIFY_RECEIPT (1L<<25)
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-
-long misc=(IMPORT_NETMAIL|IMPORT_ECHOMAIL|EXPORT_ECHOMAIL
- |DELETE_NETMAIL|DELETE_ECHOMAIL|KILL_ECHOMAIL);
-char tmp[256];
-
-FILE *fidologfile=NULL;
-#ifdef __TURBOC__
- unsigned _stklen=20000;
-#endif
-int startmsg=1;
-int nodefile;
-
-#ifdef __WATCOMC__
- #define O_DENYNONE SH_DENYNO
-#endif
-
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-if(misc&LOGFILE && fidologfile!=NULL)
- fputs(str,fidologfile);
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stdout));
-}
-
-/******************************************/
-/* CRC-16 routines required for SMB index */
-/******************************************/
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* Reads the data for node number 'number' into the structure 'node' */
-/* from NODE.DAB */
-/* if lockit is non-zero, locks this node's record. putnodedat() unlocks it */
-/****************************************************************************/
-void getnodedat(uint number, node_t *node, char lockit)
-{
- char str[256];
- int count=0;
-
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(lockit
- && lock(nodefile,(long)number*sizeof(node_t),sizeof(node_t))==-1) {
- count++;
- continue; }
- if(read(nodefile,node,sizeof(node_t))==sizeof(node_t))
- break;
- count++; }
-if(count==LOOP_NODEDAB)
- lprintf("\7Error unlocking and reading NODE.DAB\r\n");
-}
-
-/****************************************************************************/
-/* Write the data from the structure 'node' into NODE.DAB */
-/* getnodedat(num,&node,1); must have been called before calling this func */
-/* NOTE: ------^ the indicates the node record has been locked */
-/****************************************************************************/
-void putnodedat(uint number, node_t node)
-{
- char str[256];
- int count;
-
-number--; /* make zero based */
-lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
-if(write(nodefile,&node,sizeof(node_t))!=sizeof(node_t)) {
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
- lprintf("\7Error writing NODE.DAB for node %u\r\n",number+1);
- return; }
-unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
-}
-
-
-/****************************************************************************/
-/* Creates a short message for 'usernumber' than contains 'strin' */
-/****************************************************************************/
-void putsmsg(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
- node_t node;
-
-sprintf(str,"%sMSGS\\%4.4u.MSG",data_dir,usernumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- lprintf("\7Error opening/creating %s for creat/append access\r\n",str);
- return; }
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- lprintf("\7Error writing %u bytes to %s\r\n",i,str);
- return; }
-close(file);
-for(i=1;i<=sys_nodes;i++) { /* flag node if user on that msg waiting */
- getnodedat(i,&node,0);
- if(node.useron==usernumber
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_MSGW)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_MSGW;
- putnodedat(i,node); } }
-}
-
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access&O_DENYNONE) {
- share=SH_DENYNO;
- access&=~O_DENYNONE; }
-else if(access==O_RDONLY) share=SH_DENYWR;
-else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&O_RDONLY)
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&O_WRONLY)
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-
-/****************************************************************************/
-/* Moves or copies a file from one dir to another */
-/* both 'src' and 'dest' must contain full path and filename */
-/* returns 0 if successful, -1 if error */
-/****************************************************************************/
-int mv(char *src, char *dest, char copy)
-{
- char buf[4096],str[256];
- int ind,outd;
- long length,chunk=4096,l;
- ushort ftime,fdate;
- FILE *inp,*outp;
-
-if(!strcmp(src,dest)) /* source and destination are the same! */
- return(0);
-if(!fexist(src)) {
- lprintf("\r\nMV ERROR: Source doesn't exist\r\n'%s'\r\n"
- ,src);
- return(-1); }
-if(!copy && fexist(dest)) {
- lprintf("\r\nMV ERROR: Destination already exists\r\n'%s'\r\n"
- ,dest);
- return(-1); }
-if(!copy && ((src[1]!=':' && dest[1]!=':')
- || (src[1]==':' && dest[1]==':' && toupper(src[0])==toupper(dest[0])))) {
- if(rename(src,dest)) { /* same drive, so move */
- lprintf("\r\nMV ERROR: Error renaming '%s'"
- "\r\n to '%s'\r\n",src,dest);
- return(-1); }
- return(0); }
-if((ind=nopen(src,O_RDONLY))==-1) {
- lprintf("\r\nMV ERROR: ERR_OPEN %s\r\n",src);
- return(-1); }
-if((inp=fdopen(ind,"rb"))==NULL) {
- close(ind);
- lprintf("\r\nMV ERROR: ERR_FDOPEN %s\r\n",str);
- return(-1); }
-setvbuf(inp,NULL,_IOFBF,8*1024);
-if((outd=nopen(dest,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- fclose(inp);
- lprintf("\r\nMV ERROR: ERR_OPEN %s\r\n",dest);
- return(-1); }
-if((outp=fdopen(outd,"wb"))==NULL) {
- close(outd);
- fclose(inp);
- lprintf("\r\nMV ERROR: ERR_FDOPEN %s\r\n",str);
- return(-1); }
-setvbuf(outp,NULL,_IOFBF,8*1024);
-length=filelength(ind);
-l=0L;
-while(l<length) {
- if(l+chunk>length)
- chunk=length-l;
- fread(buf,chunk,1,inp);
- fwrite(buf,chunk,1,outp);
- l+=chunk; }
-_dos_getftime(ind,&fdate,&ftime);
-_dos_setftime(outd,fdate,ftime);
-fclose(inp);
-fclose(outp);
-if(!copy && remove(src)) {
- lprintf("MV ERROR: ERR_REMOVE %s\r\n",src);
- return(-1); }
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the total number of msgs in the sub-board and sets 'ptr' to the */
-/* date of the last message in the sub (0) if no messages. */
-/****************************************************************************/
-ulong getlastmsg(uint subnum, ulong *ptr, time_t *t)
-{
- char str[256];
- int i;
- smbstatus_t status;
-
-sprintf(smb_file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-if((i=smb_open(10))!=0) {
- lprintf("ERR_OPEN %s %d\r\n",smb_file,i);
- return(0); }
-
-if(!filelength(fileno(shd_fp))) { /* Empty base */
- if(ptr) (*ptr)=0;
- smb_close();
- return(0); }
-if((i=smb_locksmbhdr(10))!=0) {
- smb_close();
- lprintf("ERR_LOCK %s %d\r\n",smb_file,i);
- return(0); }
-if((i=smb_getstatus(&status))!=0) {
- smb_unlocksmbhdr();
- smb_close();
- lprintf("ERR_READ %s %d\r\n",smb_file,i);
- return(0); }
-smb_unlocksmbhdr();
-smb_close();
-if(ptr) (*ptr)=status.last_msg;
-return(status.total_msgs);
-}
-
-
-ulong loadmsgs(post_t HUGE16 **post, ulong ptr)
-{
- int i;
- long l=0;
- idxrec_t idx;
-
-
-if((i=smb_locksmbhdr(10))!=0) { /* Be sure noone deletes or */
- lprintf("ERR_LOCK %s %d\r\n",smb_file,i); /* adds while we're reading */
- return(0L); }
-
-fseek(sid_fp,0L,SEEK_SET);
-while(!feof(sid_fp)) {
- if(!fread(&idx,sizeof(idxrec_t),1,sid_fp))
- break;
-
- if(idx.number<=ptr || idx.attr&MSG_DELETE)
- continue;
-
- if(idx.attr&MSG_MODERATED && !(idx.attr&MSG_VALIDATED))
- break;
-
- if(((*post)=(post_t HUGE16 *)REALLOC((*post),sizeof(post_t)*(l+1)))
- ==NULL) {
- smb_unlocksmbhdr();
- lprintf("ERR_ALLOC %s %lu\r\n",smb_file,sizeof(post_t *)*(l+1));
- return(l); }
- (*post)[l].offset=idx.offset;
- (*post)[l].number=idx.number;
- l++; }
-smb_unlocksmbhdr();
-return(l);
-}
-
-
-void allocfail(uint size)
-{
-lprintf("\7Error allocating %u bytes of memory.\r\n",size);
-bail(1);
-}
-
-void bail(int code)
-{
-exit(code);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct find_t f;
-
-if(!findfirst(filespec,&f,0))
- return(f.size);
-return(-1L);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
-
-if(!findfirst(filespec,&f,0))
- return(1);
-return(0);
-}
-
-typedef struct {
- ulong alias,
- real;
- } username_t;
-
-/****************************************************************************/
-/* Note: Wrote another version of this function that read all userdata into */
-/****************************************************************************/
-/* Looks for a perfect match amoung all usernames (not deleted users) */
-/* Returns the number of the perfect matched username or 0 if no match */
-/* Called from functions waitforcall and newuser */
-/* memory then scanned it from memory... took longer - always. */
-/****************************************************************************/
-ulong matchname(char *inname)
-{
- static ulong total_users;
- static username_t *username;
- int userdat,file,i;
- char str[256],c;
- ulong l,crc;
- FILE *namedat;
-
-if(!total_users) { /* Load CRCs */
- fprintf(stderr,"%-25s","Loading user names...");
- sprintf(str,"%sUSER\\NAME.DAT",data_dir);
- if((namedat=fnopen(&file,str,O_RDONLY))==NULL)
- return(0);
- sprintf(str,"%sUSER\\USER.DAT",data_dir);
- if((userdat=nopen(str,O_RDONLY|O_DENYNONE))==-1) {
- fclose(namedat);
- return(0); }
- while(!feof(namedat) && !eof(userdat)) {
- if(!fread(str,LEN_ALIAS+2,1,namedat))
- break;
- if((username=(username_t *)REALLOC(username
- ,(total_users+1)*sizeof(username_t)))==NULL)
- break;
-
- for(c=0;c<LEN_ALIAS;c++)
- if(str[c]==ETX) break;
- str[c]=0;
- strlwr(str);
- username[total_users].alias=crc32(str);
- i=0;
- while(i<LOOP_NODEDAB
- && lock(userdat,(long)((long)(total_users)*U_LEN)+U_NAME
- ,LEN_NAME)==-1) {
- i++; }
- if(i>=LOOP_NODEDAB) /* Couldn't lock USER.DAT record */
- continue;
- lseek(userdat,(long)((long)(total_users)*U_LEN)+U_NAME,SEEK_SET);
- read(userdat,str,LEN_NAME);
- unlock(userdat,(long)((long)(total_users)*U_LEN)+U_NAME,LEN_NAME);
- for(c=0;c<LEN_NAME;c++)
- if(str[c]==ETX || str[c]==CR) break;
- str[c]=0;
- strlwr(str);
- username[total_users].real=crc32(str);
- total_users++; }
- fclose(namedat);
- close(userdat);
- fprintf(stderr,
- "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"
- "%25s"
- "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"
- ,""); }
-
-strcpy(str,inname);
-strlwr(str);
-crc=crc32(str);
-for(l=0;l<total_users;l++)
- if(crc==username[l].alias || crc==username[l].real)
- return(l+1);
-return(0);
-}
-
-/****************************************************************************/
-/* Converts goofy FidoNet time format into Unix format */
-/****************************************************************************/
-time_t fmsgtime(char *str)
-{
- char month[4];
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-if(isdigit(str[1])) { /* Regular format: "01 Jan 86 02:34:56" */
- tm.tm_mday=atoi(str);
- sprintf(month,"%3.3s",str+3);
- if(!stricmp(month,"jan"))
- tm.tm_mon=0;
- else if(!stricmp(month,"feb"))
- tm.tm_mon=1;
- else if(!stricmp(month,"mar"))
- tm.tm_mon=2;
- else if(!stricmp(month,"apr"))
- tm.tm_mon=3;
- else if(!stricmp(month,"may"))
- tm.tm_mon=4;
- else if(!stricmp(month,"jun"))
- tm.tm_mon=5;
- else if(!stricmp(month,"jul"))
- tm.tm_mon=6;
- else if(!stricmp(month,"aug"))
- tm.tm_mon=7;
- else if(!stricmp(month,"sep"))
- tm.tm_mon=8;
- else if(!stricmp(month,"oct"))
- tm.tm_mon=9;
- else if(!stricmp(month,"nov"))
- tm.tm_mon=10;
- else
- tm.tm_mon=11;
- tm.tm_year=atoi(str+7);
- tm.tm_hour=atoi(str+11);
- tm.tm_min=atoi(str+14);
- tm.tm_sec=atoi(str+17); }
-
-else { /* SEAdog format: "Mon 1 Jan 86 02:34" */
- tm.tm_mday=atoi(str+4);
- sprintf(month,"%3.3s",str+7);
- if(!stricmp(month,"jan"))
- tm.tm_mon=0;
- else if(!stricmp(month,"feb"))
- tm.tm_mon=1;
- else if(!stricmp(month,"mar"))
- tm.tm_mon=2;
- else if(!stricmp(month,"apr"))
- tm.tm_mon=3;
- else if(!stricmp(month,"may"))
- tm.tm_mon=4;
- else if(!stricmp(month,"jun"))
- tm.tm_mon=5;
- else if(!stricmp(month,"jul"))
- tm.tm_mon=6;
- else if(!stricmp(month,"aug"))
- tm.tm_mon=7;
- else if(!stricmp(month,"sep"))
- tm.tm_mon=8;
- else if(!stricmp(month,"oct"))
- tm.tm_mon=9;
- else if(!stricmp(month,"nov"))
- tm.tm_mon=10;
- else
- tm.tm_mon=11;
- tm.tm_year=atoi(str+11);
- tm.tm_hour=atoi(str+14);
- tm.tm_min=atoi(str+17);
- tm.tm_sec=0; }
-
-if(tm.tm_year<70)
- tm.tm_year+=100;
-
-return(mktime(&tm));
-}
-
-/****************************************************************************/
-/* Returns the FidoNet address kept in str as ASCII. */
-/****************************************************************************/
-faddr_t atofaddr(char *str)
-{
- char *p;
- faddr_t addr;
-
-addr.zone=addr.net=addr.node=addr.point=0;
-if((p=strchr(str,':'))!=NULL) {
- addr.zone=atoi(str);
- addr.net=atoi(p+1); }
-else {
- if(total_faddrs)
- addr.zone=faddr[0].zone;
- else
- addr.zone=1;
- addr.net=atoi(str); }
-if(!addr.zone) /* no such thing as zone 0 */
- addr.zone=1;
-if((p=strchr(str,'/'))!=NULL)
- addr.node=atoi(p+1);
-else {
- if(total_faddrs)
- addr.net=faddr[0].net;
- else
- addr.net=1;
- addr.node=atoi(str); }
-if((p=strchr(str,'.'))!=NULL)
- addr.point=atoi(p+1);
-return(addr);
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(faddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-#ifndef __OS2__
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char HUGE16 *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-#endif
-
-/****************************************************************************/
-/* Coverts a FidoNet message into a Synchronet message */
-/****************************************************************************/
-void fmsgtosmsg(int file, fmsghdr_t fmsghdr, smbstatus_t status, uint user
- ,uint subnum)
-{
- uchar ch,HUGE16 *fbuf,HUGE16 *sbody,HUGE16 *stail,HUGE16 *outbuf
- ,done,col,esc,cr,*p,str[128];
- int i,chunk,lzh=0,storage;
- ushort xlat,net;
- ulong l,m,length,lzhlen,bodylen,taillen,crc;
- faddr_t faddr,origaddr,destaddr;
- smbmsg_t msg;
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=SMB_VERSION;
-if(fmsghdr.attr&FIDO_PRIVATE)
- msg.idx.attr|=MSG_PRIVATE;
-msg.hdr.attr=msg.idx.attr;
-
-if(fmsghdr.attr&FIDO_FILE)
- msg.hdr.auxattr|=MSG_FILEATTACH;
-
-msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_imported.zone=sys_timezone;
-msg.hdr.when_written.time=fmsgtime(fmsghdr.time);
-
-origaddr.zone=fmsghdr.origzone; /* only valid if NetMail */
-origaddr.net=fmsghdr.orignet;
-origaddr.node=fmsghdr.orignode;
-origaddr.point=fmsghdr.origpoint;
-
-destaddr.zone=fmsghdr.destzone; /* only valid if NetMail */
-destaddr.net=fmsghdr.destnet;
-destaddr.node=fmsghdr.destnode;
-destaddr.point=fmsghdr.destpoint;
-
-smb_hfield(&msg,SENDER,strlen(fmsghdr.from),fmsghdr.from);
-strlwr(fmsghdr.from);
-msg.idx.from=crc16(fmsghdr.from);
-
-smb_hfield(&msg,RECIPIENT,strlen(fmsghdr.to),fmsghdr.to);
-strlwr(fmsghdr.to);
-msg.idx.to=crc16(fmsghdr.to);
-
-if(user) {
- sprintf(str,"%u",user);
- smb_hfield(&msg,RECIPIENTEXT,strlen(str),str);
- msg.idx.to=user;
- msg.idx.from=0; }
-
-smb_hfield(&msg,SUBJECT,strlen(fmsghdr.subj),fmsghdr.subj);
-remove_re(fmsghdr.subj);
-strlwr(fmsghdr.subj);
-msg.idx.subj=crc16(fmsghdr.subj);
-
-length=filelength(file)-sizeof(fmsghdr_t);
-if((fbuf=(char *)LMALLOC(length+1))==NULL) {
- printf("alloc error\r\n");
- smb_freemsgmem(msg);
- return; }
-if((sbody=(char *)LMALLOC((length+1)*2L))==NULL) {
- printf("alloc error\n");
- LFREE((char *)fbuf);
- smb_freemsgmem(msg);
- return; }
-if((stail=(char *)LMALLOC((length+1)*2L))==NULL) {
- printf("alloc error\n");
- LFREE((char *)fbuf);
- LFREE((char *)sbody);
- smb_freemsgmem(msg);
- return; }
-lread(file,fbuf,length);
-
-for(col=l=esc=done=bodylen=taillen=0,cr=1;l<length;l++) {
- ch=fbuf[l];
- if(ch==1 && cr) { /* kludge line */
-
- if(!strncmp((char *)fbuf+l+1,"TOPT ",5))
- destaddr.point=atoi((char *)fbuf+l+6);
-
- else if(!strncmp((char *)fbuf+l+1,"FMPT ",5))
- origaddr.point=atoi((char *)fbuf+l+6);
-
- else if(!strncmp((char *)fbuf+l+1,"INTL ",5)) {
- faddr=atofaddr((char *)fbuf+l+6);
- destaddr.zone=faddr.zone;
- destaddr.net=faddr.net;
- destaddr.node=faddr.node;
- l+=6;
- while(l<length && fbuf[l]!=SP) l++;
- faddr=atofaddr((char *)fbuf+l+1);
- origaddr.zone=faddr.zone;
- origaddr.net=faddr.net;
- origaddr.node=faddr.node; }
-
- else if(!strncmp((char *)fbuf+l+1,"MSGID:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOMSGID,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"REPLY:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOREPLYID,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"FLAGS:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOFLAGS,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"PATH:",5)) {
- l+=6;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOPATH,m-l,fbuf+l); }
-
- else if(!strncmp((char *)fbuf+l+1,"PID:",4)) {
- l+=5;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOPID,m-l,fbuf+l); }
-
- else { /* Unknown kludge line */
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOCTRL,m-l,fbuf+l); }
-
- while(l<length && fbuf[l]!=CR) l++;
- continue; }
-
- if(ch!=LF && ch!=0x8d) { /* ignore LF and soft CRs */
- if(cr && (!strncmp((char *)fbuf+l,"--- ",4)
- || !strncmp((char *)fbuf+l,"---\r",4)))
- done=1; /* tear line and down go into tail */
- if(done && cr && !strncmp((char *)fbuf+l,"SEEN-BY:",8)) {
- l+=8;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOSEENBY,m-l,fbuf+l);
- while(l<length && fbuf[l]!=CR) l++;
- continue; }
- if(done)
- stail[taillen++]=ch;
- else
- sbody[bodylen++]=ch;
- col++;
- if(ch==CR) {
- cr=1;
- col=0;
- if(done)
- stail[taillen++]=LF;
- else
- sbody[bodylen++]=LF; }
- else {
- cr=0;
- if(col==1 && !strncmp((char *)fbuf+l," * Origin: ",11)) {
- p=strchr((char *)fbuf+l+11,CR); /* find carriage return */
- while(p && *p!='(') p--; /* rewind to '(' */
- if(p)
- origaddr=atofaddr(p+1); /* get orig address */
- done=1; }
- if(done)
- continue;
-
- if(ch==ESC) esc=1; /* ANSI codes */
- if(ch==SP && col>40 && !esc) { /* word wrap */
- for(m=l+1;m<length;m++) /* find next space */
- if(fbuf[m]<=SP)
- break;
- if(m<length && m-l>80-col) { /* if it's beyond the eol */
- sbody[bodylen++]=CR;
- sbody[bodylen++]=LF;
- col=0; } }
- } } }
-
-LFREE(fbuf);
-
-if(bodylen>=2 && sbody[bodylen-2]==CR && sbody[bodylen-1]==LF)
- bodylen-=2; /* remove last CRLF if present */
-
-if(status.max_crcs) {
- for(l=0,crc=0xffffffff;l<bodylen;l++)
- crc=ucrc32(sbody[l],crc);
- crc=~crc;
-
- i=smb_addcrc(status.max_crcs,crc,10);
- if(i) {
- if(i==1)
- lprintf("Duplicate message\r\n");
- else
- lprintf("smb_addcrc returned %d\r\n",i);
- smb_freemsgmem(msg);
- LFREE(sbody);
- LFREE(stail);
- return; } }
-
-while(taillen && stail[taillen-1]<=SP) /* trim all garbage off the tail */
- taillen--;
-
-net=NET_FIDO; /* Record origin address */
-smb_hfield(&msg,SENDERNETTYPE,sizeof(ushort),&net);
-smb_hfield(&msg,SENDERNETADDR,sizeof(fidoaddr_t),&origaddr);
-
-if(subnum==INVALID_SUB) { /* No origin line means NetMail, so add dest addr */
- smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(ushort),&net);
- smb_hfield(&msg,RECIPIENTNETADDR,sizeof(fidoaddr_t),&destaddr); }
-
-if(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_LZH
- && bodylen+2+taillen+2>=SDT_BLOCK_LEN && bodylen) {
- if((outbuf=(char *)LMALLOC(bodylen*2))==NULL) {
- printf("alloc error for lzh: %lu\n",bodylen*2);
- smb_freemsgmem(msg);
- LFREE(sbody);
- LFREE(stail);
- return; }
- lzhlen=lzh_encode((uchar *)sbody,bodylen,(uchar *)outbuf);
- if(lzhlen>1 &&
- smb_datblocks(lzhlen+4+taillen+2)<smb_datblocks(bodylen+2+taillen+2)) {
- bodylen=lzhlen; /* Compressable */
- l=bodylen+4;
- LFREE(sbody);
- lzh=1;
- sbody=outbuf; }
- else { /* Uncompressable */
- l=bodylen+2;
- LFREE(outbuf); } }
-else
- l=bodylen+2;
-
-if(taillen)
- l+=(taillen+2);
-
-
-if(status.attr&SMB_HYPERALLOC) {
- if((i=smb_locksmbhdr(10))!=0) {
- printf("smb_locksmbhdr returned %d\n",i);
- smb_freemsgmem(msg);
- LFREE(sbody);
- LFREE(stail);
- return; }
- msg.hdr.offset=smb_hallocdat();
- storage=SMB_HYPERALLOC; }
-else {
- if(smb_open_da(10)) {
- smb_freemsgmem(msg);
- printf("error opening %s.SDA\r\n",smb_file);
- LFREE(sbody);
- LFREE(stail);
- return; }
- if(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_FAST) {
- msg.hdr.offset=smb_fallocdat(l,1);
- storage=SMB_FASTALLOC; }
- else {
- msg.hdr.offset=smb_allocdat(l,1);
- storage=SMB_SELFPACK; }
- fclose(sda_fp); }
-
-if(msg.hdr.offset && msg.hdr.offset<1L) {
- smb_unlocksmbhdr();
- smb_freemsgmem(msg);
- LFREE(sbody);
- LFREE(stail);
- printf("error %ld allocating records\r\n",msg.hdr.offset);
- return; }
-fseek(sdt_fp,msg.hdr.offset,SEEK_SET);
-if(lzh) {
- xlat=XLAT_LZH;
- fwrite(&xlat,2,1,sdt_fp); }
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,sdt_fp);
-chunk=30000;
-for(l=0;l<bodylen;l+=chunk) {
- if(l+chunk>bodylen)
- chunk=bodylen-l;
- fwrite(sbody+l,1,chunk,sdt_fp); }
-if(taillen) {
- fwrite(&xlat,2,1,sdt_fp);
- fwrite(stail,1,taillen,sdt_fp); }
-fflush(sdt_fp);
-LFREE(sbody);
-LFREE(stail);
-
-if(status.attr&SMB_HYPERALLOC)
- smb_unlocksmbhdr();
-
-if(lzh)
- bodylen+=2;
-bodylen+=2;
-smb_dfield(&msg,TEXT_BODY,bodylen);
-if(taillen)
- smb_dfield(&msg,TEXT_TAIL,taillen+2);
-
-smb_addmsghdr(&msg,&status,storage,10);
-smb_freemsgmem(msg);
-}
-
-/****************************************************************/
-/* Get zone and point from kludge lines in 'file' if they exist */
-/****************************************************************/
-void getzpt(int file, fmsghdr_t *hdr)
-{
- char buf[0x1000];
- int i,len,cr=0;
- faddr_t faddr;
-
-len=read(file,buf,0x1000);
-for(i=0;i<len;i++) {
- if((!i || cr) && buf[i]==1) { /* kludge */
- if(!strncmp(buf+i+1,"TOPT ",5))
- hdr->destpoint=atoi(buf+i+6);
- else if(!strncmp(buf+i+1,"FMPT ",5))
- hdr->origpoint=atoi(buf+i+6);
- else if(!strncmp(buf+i+1,"INTL ",5)) {
- faddr=atofaddr(buf+i+6);
- hdr->destzone=faddr.zone;
- hdr->destnet=faddr.net;
- hdr->destnode=faddr.node;
- i+=6;
- while(buf[i] && buf[i]!=SP) i++;
- faddr=atofaddr(buf+i+1);
- hdr->origzone=faddr.zone;
- hdr->orignet=faddr.net;
- hdr->orignode=faddr.node; }
- while(i<len && buf[i]!=CR) i++;
- cr=1;
- continue; }
- if(buf[i]==CR)
- cr=1;
- else
- cr=0; }
-lseek(file,sizeof(fmsghdr_t),SEEK_SET);
-}
-
-/***********************************/
-/* Synchronet/FidoNet Message util */
-/***********************************/
-int main(int argc, char **argv)
-{
- char ch,str[512],fname[256],touser[512],subj[512],path[512],sub_code[9]
- ,*p,*tp,*sp,*buf,*outbuf,cr,tear,lzh;
- ushort xlat;
- int i,j,k,n,x,last,file,fmsg,nextmsg,g;
- ulong files,msgfiles,echomail=0,netmail=0,exported=0,crc,
- l,m,length,lastmsg,posts,msgs,exp;
- time_t ptr,now,start,lastimport;
- read_cfg_text_t txt;
- struct find_t ff;
- struct tm tm,*tm_p;
- fmsghdr_t hdr;
- faddr_t addr,sys_faddr;
- post_t HUGE16 *post;
- FILE *stream,*fstream;
- smbstatus_t status;
- smbmsg_t msg;
-
-lprintf("\nSynchronet <=> FidoNet Utility Version %s "
- "Developed by Rob Swindell\n",VER);
-
-putenv("TZ=UCT0");
-_fmode=O_BINARY;
-setvbuf(stdout,NULL,_IONBF,0);
-
-txt.openerr="\7\r\nError opening %s for read.\r\n";
-txt.reading="\r\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\r\nError allocating %u bytes of memory\r\n";
-txt.error="\7\r\nERROR: Offset %lu in %s\r\n\r\n";
-
-node_dir[0]=sub_code[0]=0;
-for(i=1;i<argc;i++) {
- if(argv[i][0]=='/') {
- j=1;
- while(argv[i][j]) {
- switch(toupper(argv[i][j])) {
- case 'A':
- misc|=ASCII_ONLY;
- break;
- case 'B':
- misc|=LOCAL_NETMAIL;
- break;
- case 'C':
- misc|=PURGE_ECHOMAIL;
- break;
- case 'D':
- misc&=~DELETE_NETMAIL;
- break;
- case 'E':
- misc&=~EXPORT_ECHOMAIL;
- break;
- case 'F':
- misc|=IMPORT_LOCAL;
- break;
- case 'G':
- misc|=IMPORT_NEW_ONLY;
- break;
- case 'H':
- misc|=EXPORT_ALL;
- break;
- case 'I':
- misc&=~IMPORT_ECHOMAIL;
- break;
- case 'J':
- misc|=IGNORE_RECV;
- break;
- case 'K':
- misc&=~KILL_ECHOMAIL;
- break;
- case 'L':
- misc|=LOGFILE;
- break;
- case 'M':
- misc|=IGNORE_MSGPTRS;
- break;
- case 'N':
- misc&=~IMPORT_NETMAIL;
- break;
- case 'O':
- misc|=IGNORE_ADDRESS;
- break;
- case 'P':
- misc|=IGNORE_POINT;
- break;
- case 'Q':
- misc|=DONT_SET_RECV;
- break;
- case 'R':
- misc|=REPORT;
- break;
- case 'S':
- misc|=IMPORT_PRIVATE;
- break;
- case 'T':
- misc|=LEAVE_MSGPTRS;
- break;
- case 'U':
- misc|=UPDATE_MSGPTRS;
- misc&=~EXPORT_ECHOMAIL;
- break;
- case 'X':
- misc&=~DELETE_ECHOMAIL;
- break;
- case 'Y':
- misc|=UNKNOWN_NETMAIL;
- break;
- case 'Z':
- misc|=IGNORE_ZONE;
- break;
-
- case '=':
- misc|=CONVERT_TEAR;
- break;
- case '!':
- misc|=NOTIFY_RECEIPT;
- break;
- case '2':
- startmsg=2;
- break;
- default:
- printf("\nusage: sbbsfido [sbbsnode] [/switches] "
- "[sub_code]");
- printf("\nwhere: sbbsnode is the path for your "
- "NODE1 directory (example: c:\\sbbs\\node1)\n");
- printf(" sub_code is the internal code for a "
- "sub-board (default is ALL subs)\n");
- printf("\nvalid switches:\n\n");
- printf("n:do not import netmail "
- "i:do not import echomail\n");
- printf("p:ignore point in netmail address "
- "e:do not export echomail\n");
- printf("z:ignore zone in netmail address "
- "h:export all echomail (hub rescan)\n");
- printf("o:ignore entire netmail address "
- "m:ignore message pointers (export all)\n");
- printf("y:import netmail for unknown users "
- "u:update message pointers (export none)\n");
- printf("d:do not delete netmail after import "
- "x:do not delete echomail after import\n");
- printf("l:output to SBBSFIDO.LOG (verbose) "
- "k:do not kill echomail after export\n");
- printf("r:create report of import totals "
- "t:do not update message pointers\n");
- printf("a:export ASCII characters only "
- "c:delete all messages (echomail purge)\n");
- printf("j:ignore recieved bit on import "
- "s:import private override (strip pvt)\n");
- printf("q:do not set received bit on import "
- "g:import new echomail only\n");
- printf("b:import locally created netmail too "
- "f:import locally created echomail too\n");
- printf("=:change existing tear lines to === "
- "2:export/import/delete starting at 2.MSG\n");
- printf("!:notify users of received echomail\n");
- exit(0); }
- j++; } }
- else {
- if(strchr(argv[i],'\\') || argv[i][1]==':')
- sprintf(node_dir,"%.40s",argv[i]);
- else
- sprintf(sub_code,"%.8s",argv[i]); } }
-
-if(!node_dir[0]) {
- p=getenv("SBBSNODE");
- if(p==NULL) {
- printf("\7\nSBBSNODE environment variable not set.\n");
- exit(1); }
- strcpy(node_dir,p); }
-
-strupr(node_dir);
-
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str);
- if(_fullpath(str,ctrl_dir,40))
- strcpy(ctrl_dir,str); }
-backslash(ctrl_dir);
-
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str);
- if(_fullpath(str,data_dir,40))
- strcpy(data_dir,str); }
-backslash(data_dir);
-if(text_dir[0]=='.') { /* Relative path */
- strcpy(str,text_dir);
- sprintf(text_dir,"%s%s",node_dir,str);
- if(_fullpath(str,text_dir,40))
- strcpy(text_dir,str); }
-backslash(text_dir);
-read_msgs_cfg(txt);
-
-if(total_faddrs<1) {
- sys_faddr.zone=sys_faddr.net=sys_faddr.node=1;
- sys_faddr.point=0; }
-else
- sys_faddr=faddr[0];
-
-
-if(misc&LOGFILE)
- if((fidologfile=fnopen(&i,"SBBSFIDO.LOG"
- ,O_WRONLY|O_APPEND|O_CREAT))==NULL) {
- lprintf("\7ERROR opening SBBSFIDO.LOG\r\n");
- exit(1); }
-
-sprintf(str,"%s%s",ctrl_dir,"NODE.DAB");
-if((nodefile=sopen(str,O_BINARY|O_RDWR,SH_DENYNO))==-1) {
- lprintf("\r\n\7Error opening %s\r\n",str);
- exit(1); }
-
-if(misc&IMPORT_NETMAIL) {
-
-lputs("\r\n\r\nScanning for Inbound NetMail...\r\n");
-
-sprintf(smb_file,"%sMAIL",data_dir);
-if((i=smb_open(10))!=0) {
- lprintf("Error %d opening %s\r\n",i,smb_file);
- exit(1); }
-
-if(!filelength(fileno(shd_fp)))
- if((i=smb_create(mail_maxcrcs,MAX_SYSMAIL,mail_maxage,SMB_EMAIL,10))!=0) {
- lprintf("Error %d creating %s\r\n",i,smb_file);
- exit(1); }
-
-if((i=smb_locksmbhdr(10))!=0) {
- lprintf("Error %d locking %s\r\n",i,smb_file);
- exit(1); }
-if((i=smb_getstatus(&status))!=0) {
- lprintf("Error %d reading %s status header\r\n",i,smb_file);
- exit(1); }
-smb_unlocksmbhdr();
-
-sprintf(str,"%s*.MSG",netmail_dir);
-
-for(last=findfirst(str,&ff,0);!last;last=findnext(&ff)) {
- sprintf(path,"%s%s",netmail_dir,ff.name);
- strupr(path);
- lprintf("\r%s ",path);
- if((fmsg=nopen(path,O_RDWR))==-1) {
- lprintf("\7ERROR opening");
- continue; }
- if(filelength(fmsg)<sizeof(fmsghdr_t)) {
- lprintf("\7Invalid length of %u bytes\r\n",filelength(fmsg));
- close(fmsg);
- continue; }
- if(read(fmsg,&hdr,sizeof(fmsghdr_t))!=sizeof(fmsghdr_t)) {
- close(fmsg);
- lprintf("\7ERROR reading %u bytes"
- ,sizeof(fmsghdr_t));
- continue; }
- if(hdr.attr&FIDO_ORPHAN) {
- close(fmsg);
- lprintf("Orphan (%s).\r\n",hdr.to);
- continue; }
- if(misc&IGNORE_ZONE) /* default to system's zone */
- hdr.destzone=hdr.origzone=sys_faddr.zone;
- if(misc&IGNORE_POINT) /* default to no point */
- hdr.destpoint=hdr.origpoint=0;
- getzpt(fmsg,&hdr); /* use kludge if found */
- for(i=0;i<total_faddrs;i++)
- if(hdr.destzone==faddr[i].zone
- && hdr.destnet==faddr[i].net
- && hdr.destnode==faddr[i].node
- && hdr.destpoint==faddr[i].point)
- break;
- lprintf("%u:%u/%u.%u "
- ,hdr.destzone,hdr.destnet,hdr.destnode,hdr.destpoint);
- if(misc&IGNORE_ADDRESS || i<total_faddrs) {
- if(!(misc&IGNORE_RECV) && hdr.attr&FIDO_RECV) {
- close(fmsg);
- lputs("Already received.\r\n");
- continue; }
- if(hdr.attr&FIDO_LOCAL && !(misc&LOCAL_NETMAIL)) {
- close(fmsg);
- lputs("Created locally.\r\n");
- continue; }
- i=atoi(hdr.to);
- if(!stricmp(hdr.to,"SYSOP")) /* NetMail to "sysop" goes to #1 */
- i=1;
- if(!i)
- i=matchname(hdr.to);
- if(!i) {
- if(misc&UNKNOWN_NETMAIL) /* receive unknown user mail to 1 */
- i=1;
- else {
- lprintf("\7ERROR unknown user '%s'\r\n",hdr.to);
- hdr.attr|=FIDO_ORPHAN;
- lseek(fmsg,0L,SEEK_SET);
- write(fmsg,&hdr,sizeof(fmsghdr_t));
- close(fmsg);
- continue; } }
- lprintf("%s\r\n",hdr.to);
-
- /*********************/
- /* Importing NetMail */
- /*********************/
-
- fmsgtosmsg(fmsg,hdr,status,i,INVALID_SUB);
-
- addr.zone=hdr.origzone;
- addr.net=hdr.orignet;
- addr.node=hdr.orignode;
- addr.point=hdr.origpoint;
- sprintf(str,"\7\1n\1hSBBSFIDO: \1m%.36s \1n\1msent you NetMail from "
- "\1h%s\1n\r\n"
- ,hdr.from,faddrtoa(addr));
- putsmsg(i,str);
-
- if(hdr.attr&FIDO_FILE) { /* File attachment */
- strcpy(subj,hdr.subj);
- tp=subj;
- while(1) {
- p=strchr(tp,SP);
- if(p) *p=0;
- sp=strrchr(tp,'/'); /* sp is slash pointer */
- if(!sp) sp=strrchr(tp,'\\');
- if(sp) tp=sp+1;
- sprintf(str,"%s%s",fidofile_dir,tp);
- sprintf(tmp,"%sFILE\\%04u.IN",data_dir,i);
- mkdir(tmp);
- strcat(tmp,"\\");
- strcat(tmp,tp);
- mv(str,tmp,0);
- if(!p)
- break;
- tp=p+1; } }
- netmail++;
-
- /***************************/
- /* Updating message header */
- /***************************/
- if(!(misc&DONT_SET_RECV)) {
- hdr.attr|=FIDO_RECV;
- lseek(fmsg,0L,SEEK_SET);
- write(fmsg,&hdr,sizeof(fmsghdr_t)); }
-
- /**************************************/
- /* Delete source netmail if specified */
- /**************************************/
- close(fmsg);
- if(misc&DELETE_NETMAIL)
- remove(path); }
- else
- close(fmsg); }
-smb_close(); }
-
-
-if(misc&IMPORT_ECHOMAIL) {
-
-start=time(NULL);
-
-lputs("\r\n\r\nScanning for Inbound EchoMail...\r\n");
-
-sprintf(path,"%sSBBSFIDO.DAB",data_dir);
-if((file=nopen(path,O_RDWR|O_CREAT))==-1)
- lastimport=0L;
-else {
- read(file,&lastimport,4);
- now=time(NULL);
- lseek(file,0L,SEEK_SET);
- write(file,&now,4);
- close(file); }
-
-for(g=files=0;g<total_grps;g++)
-for(i=0;i<total_subs;i++)
- if(sub[i]->misc&SUB_FIDO && sub[i]->grp==g) {
- if(sub_code[0] && stricmp(sub_code,sub[i]->code))
- continue;
- if(!sub[i]->echopath[0])
- sprintf(sub[i]->echopath,"%s%s\\",echomail_dir,sub[i]->code);
- if(files) {
- lputs("\r\n");
- files=0; }
- lprintf("\r\n%-15.15s %s\r\n"
- ,grp[sub[i]->grp]->sname,sub[i]->lname);
-
- sprintf(path,"%s*.MSG",sub[i]->echopath);
- l=findfirst(path,&ff,0);
- if(startmsg==2 && !strcmp(ff.name,"1.MSG"))
- l=findnext(&ff);
- if(l)
- continue;
- lprintf("Counting %s",path);
- msgfiles=0;
- while(!l) {
- memset(&tm,0,sizeof(tm));
- tm.tm_mday=ff.wr_date&31;
- tm.tm_mon=(ff.wr_date>>5)&15;
- tm.tm_year=80+((ff.wr_date>>9)&127);
- tm.tm_hour=(ff.wr_time>>11)&31;
- tm.tm_min=(ff.wr_time>>5)&63;
- tm.tm_sec=(ff.wr_time&0x1f)<<1;
- if(isdigit(ff.name[0])
- && !(startmsg==2 && !strcmp(ff.name,"1.MSG"))
- && !(misc&IMPORT_NEW_ONLY && mktime(&tm)<=lastimport))
- msgfiles++; /* msgfiles= messages to import */
- l=findnext(&ff); }
-
- lprintf("\r\n%u messages.\r\n",msgfiles);
- if(!msgfiles) /* no messages, so continue. */
- continue;
-
- sprintf(smb_file,"%s%s",sub[i]->data_dir,sub[i]->code);
- if((j=smb_open(10))!=0) {
- lprintf("Error %d opening %s\r\n",j,smb_file);
- continue; }
- if(!filelength(fileno(shd_fp)))
- if((j=smb_create(sub[i]->maxcrcs,sub[i]->maxmsgs
- ,sub[i]->maxage
- ,sub[i]->misc&SUB_HYPER ? SMB_HYPERALLOC:0
- ,10))!=0) {
- lprintf("Error %d creating %s\r\n",j,smb_file);
- smb_close();
- continue; }
-
- if((j=smb_locksmbhdr(10))!=0) {
- lprintf("Error %d locking SMB header\r\n",j);
- smb_close();
- continue; }
- if((j=smb_getstatus(&status))!=0) {
- lprintf("Error %d reading SMB header\r\n",j);
- smb_close();
- continue; }
- smb_unlocksmbhdr();
-
- for(l=startmsg;l<0x8000 && msgfiles;l++) {
- sprintf(path,"%s%lu.MSG",sub[i]->echopath,l);
- if(findfirst(path,&ff,0)) /* doesn't exist */
- continue; /* was break */
- tm.tm_mday=ff.wr_date&31;
- tm.tm_mon=(ff.wr_date>>5)&15;
- tm.tm_year=80+((ff.wr_date>>9)&127);
- tm.tm_hour=(ff.wr_time>>11)&31;
- tm.tm_min=(ff.wr_time>>5)&63;
- tm.tm_sec=(ff.wr_time&0x1f)<<1;
- if(misc&IMPORT_NEW_ONLY && mktime(&tm)<=lastimport)
- continue;
- if(startmsg==2 && !strcmp(ff.name,"1.MSG"))
- continue;
- msgfiles--; /* so we only look for as many as are there */
- strupr(path);
- lprintf("\r%s ",path);
- files++;
- if((fmsg=nopen(path,O_RDWR))==-1) {
- lprintf("\7ERROR opening\r\n");
- continue; }
- if(filelength(fmsg)<sizeof(fmsghdr_t)) {
- lprintf("\7Invalid length of %u bytes\r\n",filelength(fmsg));
- close(fmsg);
- continue; }
- if(read(fmsg,&hdr,sizeof(fmsghdr_t))!=sizeof(fmsghdr_t)) {
- close(fmsg);
- lprintf("\7ERROR reading %u bytes\r\n"
- ,sizeof(fmsghdr_t));
- continue; }
- if(misc&IMPORT_LOCAL || !(hdr.attr&FIDO_LOCAL)) {
-
- if(!(misc&IGNORE_RECV) && hdr.attr&FIDO_RECV) {
- close(fmsg);
- lputs("Already received.\r\n");
- continue; }
-
- if(hdr.attr&FIDO_SENT) {
- close(fmsg);
- lputs("Sent.");
- if(hdr.attr&FIDO_KILLSENT)
- if(!remove(path))
- lputs(" Killed.");
- lputs("\r\n");
- continue; }
-
- if(hdr.attr&FIDO_PRIVATE && !(sub[i]->misc&SUB_PRIV)) {
- if(misc&IMPORT_PRIVATE)
- hdr.attr&=~FIDO_PRIVATE;
- else {
- close(fmsg);
- lputs("Private posts disallowed.\r\n");
- continue; } }
-
- if(!(hdr.attr&FIDO_PRIVATE) && sub[i]->misc&SUB_PONLY)
- hdr.attr|=MSG_PRIVATE;
-
- /**********************/
- /* Importing EchoMail */
- /**********************/
-
- fmsgtosmsg(fmsg,hdr,status,0,i);
-
- echomail++;
-
- /* Updating message header */
- if(!(misc&DONT_SET_RECV)) {
- hdr.attr|=FIDO_RECV;
- lseek(fmsg,0L,SEEK_SET);
- write(fmsg,&hdr,sizeof(fmsghdr_t)); }
-
- close(fmsg);
- if(misc&NOTIFY_RECEIPT && (m=matchname(hdr.to))!=0) {
- sprintf(str
- ,"\7\1n\1hSBBSFIDO: \1m%.36s \1n\1msent you EchoMail on "
- "\1h%s \1n\1m%s\1n\r\n"
- ,hdr.from,grp[sub[i]->grp]->sname,sub[i]->sname);
- putsmsg(m,str); }
-
- /* Delete source EchoMail if specified */
- if(misc&DELETE_ECHOMAIL)
- remove(path); }
- else
- close(fmsg); }
- smb_close();
- }
-
-now=time(NULL);
-if(now-start)
- lprintf("\r\nImported %lu EchoMail messages in %lu seconds "
- "(%lu messages/second).\r\n"
- ,echomail,now-start,echomail/(now-start));
-}
-
-if(misc&EXPORT_ECHOMAIL) {
-
-start=time(NULL);
-
-lputs("\r\n\r\nScanning for Outbound EchoMail...\r\n");
-
-for(g=files=0;g<total_grps;g++)
-for(i=0;i<total_subs;i++)
- if(sub[i]->misc&SUB_FIDO && sub[i]->grp==g) {
- if(sub_code[0] && stricmp(sub_code,sub[i]->code))
- continue;
- if(!sub[i]->echopath[0])
- sprintf(sub[i]->echopath,"%s%s\\",echomail_dir,sub[i]->code);
- if(files) {
- lputs("\r\n");
- files=0; }
- lprintf("\r\n%-15.15s %s\r\n"
- ,grp[sub[i]->grp]->sname,sub[i]->lname);
- ptr=0;
- if(!(misc&IGNORE_MSGPTRS)) {
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_RDONLY))!=-1) {
- read(file,&ptr,sizeof(time_t));
- close(file); } }
-
- msgs=getlastmsg(i,&lastmsg,0);
- if(!msgs || (!(misc&IGNORE_MSGPTRS) && ptr>=lastmsg)) {
- if(ptr>lastmsg && !(misc&LEAVE_MSGPTRS)) { /* fix ptr */
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- lprintf("\7ERROR opening/creating %s",str);
- else {
- write(file,&lastmsg,4);
- close(file); } }
- continue; }
- nextmsg=startmsg;
-
- sprintf(smb_file,"%s%s"
- ,sub[i]->data_dir,sub[i]->code);
- if((j=smb_open(10))!=0) {
- lprintf("Error %d opening %s\r\n",j,smb_file);
- continue; }
-
- post=NULL;
- posts=loadmsgs(&post,ptr);
-
- if(!posts) { /* no new messages */
- smb_close();
- if(post)
- FREE(post);
- continue; }
-
- for(m=exp=0;m<posts;m++) {
- printf("\rScanning: %lu of %lu "
- ,m+1,posts);
-
- msg.idx.offset=post[m].offset;
- if((k=smb_lockmsghdr(msg,10))!=0) {
- lprintf("ERR_LOCK %s %d\r\n",smb_file,k);
- continue; }
- k=smb_getmsghdr(&msg);
- if(k || msg.hdr.number!=post[m].number) {
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg);
-
- msg.hdr.number=post[m].number;
- if((k=smb_getmsgidx(&msg))!=0) {
- lprintf("ERR_READ %s %d\r\n",smb_file,k);
- continue; }
- if((k=smb_lockmsghdr(msg,10))!=0) {
- lprintf("ERR_LOCK %s %d\r\n",smb_file,k);
- continue; }
- if((k=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- lprintf("ERR_READ %s %d\r\n",smb_file,k);
- continue; } }
-
- if((!(misc&EXPORT_ALL) && msg.from_net.type==NET_FIDO)
- || !strnicmp(msg.subj,"NE:",3)) { /* no echo */
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg);
- continue; } /* From a Fido node, ignore it */
-
- if(msg.from_net.type && msg.from_net.type!=NET_FIDO
- && !(sub[i]->misc&SUB_GATE)) {
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg);
- continue; }
-
- for(j=nextmsg;j;j++) {
- sprintf(fname,"%s%u.MSG",sub[i]->echopath,j);
- if(!fexist(fname))
- break; }
- if(!j) {
- lputs("\7EchoMail dir full!");
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg);
- continue; }
- nextmsg=j+1;
- strupr(fname);
- if((fmsg=nopen(fname,O_WRONLY|O_CREAT))==-1) {
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg);
- lprintf("\7ERROR creating %s\r\n",fname);
- continue; }
- if((fstream=fdopen(fmsg,"wb"))==NULL) {
- close(fmsg);
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg);
- lprintf("\7ERROR fdopen %s\r\n",fname);
- continue; }
- setvbuf(fstream,NULL,_IOFBF,2048);
-
- files++;
-
- memset(&hdr,0,sizeof(fmsghdr_t)); /* Zero the header */
- hdr.origzone=sub[i]->faddr.zone;
- hdr.orignet=sub[i]->faddr.net;
- hdr.orignode=sub[i]->faddr.node;
- hdr.origpoint=sub[i]->faddr.point;
-
- hdr.attr=FIDO_LOCAL;
- if(misc&KILL_ECHOMAIL)
- hdr.attr|=FIDO_KILLSENT;
- if(msg.hdr.attr&MSG_PRIVATE)
- hdr.attr|=FIDO_PRIVATE;
-
- sprintf(hdr.from,"%.35s",msg.from);
-
- tm_p=gmtime((time_t *)&msg.hdr.when_written.time);
- sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u"
- ,tm_p->tm_mday,mon[tm_p->tm_mon],tm_p->tm_year%100
- ,tm_p->tm_hour,tm_p->tm_min,tm_p->tm_sec);
-
- sprintf(hdr.to,"%.35s",msg.to);
-
- sprintf(hdr.subj,"%.71s",msg.subj);
-
- fwrite(&hdr,sizeof(fmsghdr_t),1,fstream);
-
- for(j=0;j<msg.hdr.total_dfields;j++) {
-
- if(msg.dfield[j].type!=TEXT_BODY
- && msg.dfield[j].type!=TEXT_TAIL)
- continue; /* skip non-text data fields */
-
- if(msg.dfield[j].length<3) /* need at least 3 bytes */
- continue;
-
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[j].offset,SEEK_SET);
-
- lzh=0;
- fread(&xlat,2,1,sdt_fp);
- if(xlat==XLAT_LZH) {
- lzh=1;
- fread(&xlat,2,1,sdt_fp); }
- if(xlat!=XLAT_NONE) /* no other translations supported */
- continue;
-
- length=msg.dfield[j].length-2;
- if(lzh)
- length-=2;
-
- if((buf=LMALLOC(length))==NULL) {
- lprintf("Error allocating %lu bytes\r\n",length);
- continue; }
-
- fread(buf,length,1,sdt_fp);
-
- if(lzh) {
- l=*(long *)buf;
- if((outbuf=LMALLOC(l))==NULL) {
- lprintf("Error allocationg %lu for lzh\r\n",l);
- LFREE(buf);
- continue; }
- length=lzh_decode(buf,length,outbuf);
- LFREE(buf);
- buf=outbuf; }
-
- tear=0;
- for(l=0,cr=1;l<length;l++) {
- if(buf[l]==1) { /* Ctrl-A, so skip it and the next char */
- l++;
- continue; }
- if(buf[l]==LF || buf[l]==0) /* Ignore line feeds */
- continue;
- if(cr) {
- if(l+3<length && buf[l]=='-' && buf[l+1]=='-'
- && buf[l+2]=='-'
- && (buf[l+3]==SP || buf[l+3]==CR)) {
- if(misc&CONVERT_TEAR) /* Convert to === */
- buf[l]=buf[l+1]=buf[l+2]='=';
- else
- tear=1; }
- else if(l+10<length
- && !strncmp(buf+l," * Origin: ",11))
- buf[l+1]='#'; } /* Convert * Origin into # Origin */
-
- if(buf[l]==CR)
- cr=1;
- else
- cr=0;
- if(sub[i]->misc&SUB_ASCII || misc&ASCII_ONLY) {
- if(buf[l]<SP && buf[l]!=CR) /* Ctrl ascii */
- buf[l]='.'; /* converted to '.' */
- if((uchar)buf[l]>0x7f) /* extended ASCII */
- buf[l]='*'; } /* converted to '*' */
- fputc(buf[l],fstream); }
- fprintf(fstream,"\r\n");
- LFREE(buf); }
-
- if(!(sub[i]->misc&SUB_NOTAG)) {
- if(!tear) /* No previous tear line */
- fprintf(fstream,"--- Synchronet+SBBSfido v%s\r\n"
- ,VER); /* so add ours */
- fprintf(fstream," * Origin: %s (%s)\r\n"
- ,sub[i]->origline[0] ? sub[i]->origline : origline
- ,faddrtoa(sub[i]->faddr)); }
-
- fputc(0,fstream); /* Null terminator */
- fclose(fstream);
- exported++;
- exp++;
- printf("Exported: %lu of %lu",exp,exported);
- smb_unlockmsghdr(msg);
- smb_freemsgmem(msg); }
-
- smb_close();
- FREE(post);
-
- /***********************/
- /* Update FIDO_PTR.DAB */
- /***********************/
- if(!(misc&LEAVE_MSGPTRS) && lastmsg>ptr) {
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- lprintf("\7ERROR opening/creating %s",str);
- else {
- write(file,&lastmsg,4);
- close(file); } } }
-
-now=time(NULL);
-if(now-start)
- lprintf("\r\nExported %lu EchoMail messages in %lu seconds "
- "(%lu messages/second).\r\n"
- ,exported,now-start,exported/(now-start));
-
-}
-
-if(misc&UPDATE_MSGPTRS) {
-
-lputs("\r\n\r\nUpdating Message Pointers to Last Posted Message...\r\n");
-
-for(g=0;g<total_grps;g++)
-for(i=0;i<total_subs;i++)
- if(sub[i]->misc&SUB_FIDO && sub[i]->grp==g) {
- lprintf("\r\n%-15.15s %s\r\n"
- ,grp[sub[i]->grp]->sname,sub[i]->lname);
- getlastmsg(i,&l,0);
- sprintf(str,"%s%s.SFP",sub[i]->data_dir,sub[i]->code);
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- lprintf("\7ERROR opening/creating %s",str);
- else {
- write(file,&l,sizeof(time_t));
- close(file); } } }
-
-if(misc&PURGE_ECHOMAIL) {
-
-lputs("\r\n\r\nPurging EchoMail...\r\n");
-
-for(g=0;g<total_grps;g++)
-for(i=0;i<total_subs;i++)
- if(sub[i]->misc&SUB_FIDO && sub[i]->grp==g) {
- if(sub_code[0] && stricmp(sub_code,sub[i]->code))
- continue;
- if(!sub[i]->echopath[0])
- sprintf(sub[i]->echopath,"%s%s\\",echomail_dir,sub[i]->code);
- sprintf(str,"%s*.MSG",sub[i]->echopath);
- last=findfirst(str,&ff,0);
- while(!last) {
- sprintf(str,"%s%s",sub[i]->echopath,ff.name);
- if(startmsg!=2 || strcmp(ff.name,"1.MSG")) {
- lprintf("\r\nDeleting %s",str);
- remove(str); }
- last=findnext(&ff); } } }
-
-
-if(misc&(IMPORT_NETMAIL|IMPORT_ECHOMAIL) && misc&REPORT) {
- sprintf(str,"%sSBBSFIDO.MSG",text_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- lprintf("Error opening %s\r\n",str);
- exit(1); }
- sprintf(fname,"\1c\1h "
- "���������������������������������������������������\r\n");
- sprintf(path,"\1c\1h "
- "���������������������������������������������������\r\n");
- write(file,fname,strlen(fname));
- sprintf(str," \1n\1k\0016"
- " Last FidoNet Transfer on %.24s \1n\r\n",ctime(&start));
- write(file,str,strlen(str));
- write(file,path,strlen(path));
- write(file,fname,strlen(fname));
- sprintf(subj,"Imported %lu EchoMail and %lu NetMail Messages"
- ,echomail,netmail);
- sprintf(str," \1n\1k\0016 %-50.50s\1n\r\n",subj);
- write(file,str,strlen(str));
- write(file,path,strlen(path));
- close(file); }
-
-return(0);
-}
-
diff --git a/src/sbbs2/fido/smbdefs.h b/src/sbbs2/fido/smbdefs.h
deleted file mode 100644
index 71791e69524fa58b43bf4ecbe9f495c6d237407e..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/smbdefs.h
+++ /dev/null
@@ -1,449 +0,0 @@
-/* SMBDEFS.H */
-
-#ifndef _SMBDEFS_H
-#define _SMBDEFS_H
-
-/**********/
-/* Macros */
-/**********/
-
-#define SMB_VERSION 0x0121 /* SMB format version */
- /* High byte major, low byte minor */
-#define SMBLIB_VERSION "1.21a" /* SMB library version */
-
- /* Control characters */
-#define TAB 0x09 /* Horizontal tabulation ^I */
-#define LF 0x0a /* Line feed ^J */
-#define FF 0x0c /* Form feed ^L */
-#define CR 0x0d /* Carriage return ^M */
-#define ESC 0x1b /* Escape ^[ */
-#define SP 0x20 /* Space */
-
-#define ulong unsigned long
-#define ushort unsigned short
-#define uchar unsigned char
-#define uint unsigned int
-
-/****************************************************************************/
-/* Memory allocation macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
-# define HUGE16 huge
-# define FAR16 far
-# if defined(__TURBOC__)
-# define REALLOC(x,y) farrealloc(x,y)
-# define LMALLOC(x) farmalloc(x)
-# define MALLOC(x) farmalloc(x)
-# define LFREE(x) farfree(x)
-# define FREE(x) farfree(x)
-# elif defined(__WATCOMC__)
-# define REALLOC realloc
-# define LMALLOC(x) halloc(x,1) /* far heap, but slow */
-# define MALLOC malloc /* far heap, but 64k max */
-# define LFREE hfree
-# define FREE free
-# else /* Other 16-bit Compiler */
-# define REALLOC realloc
-# define LMALLOC malloc
-# define MALLOC malloc
-# define LFREE free
-# define FREE free
-# endif
-#else /* 32-bit Compiler or Small Memory Model */
-# define HUGE16
-# define FAR16
-# define REALLOC realloc
-# define LMALLOC malloc
-# define MALLOC malloc
-# define LFREE free
-# define FREE free
-#endif
-
-
-#define SDT_BLOCK_LEN 256 /* Size of data blocks */
-#define SHD_BLOCK_LEN 256 /* Size of header blocks */
-
-#define SMB_SELFPACK 0 /* Self-packing storage allocation */
-#define SMB_FASTALLOC 1 /* Fast allocation */
-#define SMB_HYPERALLOC 2 /* No allocation */
-
-#define SMB_EMAIL 1 /* User numbers stored in Indexes */
-
- /* Time zone macros for when_t.zone */
-#define DAYLIGHT 0x8000 /* Daylight savings is active */
-#define US_ZONE 0x4000 /* U.S. time zone */
-#define WESTERN_ZONE 0x2000 /* Non-standard zone west of UT */
-#define EASTERN_ZONE 0x1000 /* Non-standard zone east of UT */
-
- /* US Time Zones (standard) */
-#define AST 0x40F0 // Atlantic (-04:00)
-#define EST 0x412C // Eastern (-05:00)
-#define CST 0x4168 // Central (-06:00)
-#define MST 0x41A4 // Mountain (-07:00)
-#define PST 0x41E0 // Pacific (-08:00)
-#define YST 0x421C // Yukon (-09:00)
-#define HST 0x4258 // Hawaii/Alaska (-10:00)
-#define BST 0x4294 // Bering (-11:00)
-
- /* US Time Zones (daylight) */
-#define ADT 0xC0F0 // Atlantic (-03:00)
-#define EDT 0xC12C // Eastern (-04:00)
-#define CDT 0xC168 // Central (-05:00)
-#define MDT 0xC1A4 // Mountain (-06:00)
-#define PDT 0xC1E0 // Pacific (-07:00)
-#define YDT 0xC21C // Yukon (-08:00)
-#define HDT 0xC258 // Hawaii/Alaska (-09:00)
-#define BDT 0xC294 // Bering (-10:00)
-
- /* Non-standard Time Zones */
-#define MID 0x2294 // Midway (-11:00)
-#define VAN 0x21E0 // Vancouver (-08:00)
-#define EDM 0x21A4 // Edmonton (-07:00)
-#define WIN 0x2168 // Winnipeg (-06:00)
-#define BOG 0x212C // Bogota (-05:00)
-#define CAR 0x20F0 // Caracas (-04:00)
-#define RIO 0x20B4 // Rio de Janeiro (-03:00)
-#define FER 0x2078 // Fernando de Noronha (-02:00)
-#define AZO 0x203C // Azores (-01:00)
-#define LON 0x1000 // London (+00:00)
-#define BER 0x103C // Berlin (+01:00)
-#define ATH 0x1078 // Athens (+02:00)
-#define MOS 0x10B4 // Moscow (+03:00)
-#define DUB 0x10F0 // Dubai (+04:00)
-#define KAB 0x110E // Kabul (+04:30)
-#define KAR 0x112C // Karachi (+05:00)
-#define BOM 0x114A // Bombay (+05:30)
-#define KAT 0x1159 // Kathmandu (+05:45)
-#define DHA 0x1168 // Dhaka (+06:00)
-#define BAN 0x11A4 // Bangkok (+07:00)
-#define HON 0x11E0 // Hong Kong (+08:00)
-#define TOK 0x121C // Tokyo (+09:00)
-#define SYD 0x1258 // Sydney (+10:00)
-#define NOU 0x1294 // Noumea (+11:00)
-#define WEL 0x12D0 // Wellington (+12:00)
-
- /* Valid hfield_t.types */
-#define SENDER 0x00
-#define SENDERAGENT 0x01
-#define SENDERNETTYPE 0x02
-#define SENDERNETADDR 0x03
-#define SENDEREXT 0x04
-#define SENDERPOS 0x05
-#define SENDERORG 0x06
-
-#define AUTHOR 0x10
-#define AUTHORAGENT 0x11
-#define AUTHORNETTYPE 0x12
-#define AUTHORNETADDR 0x13
-#define AUTHOREXT 0x14
-#define AUTHORPOS 0x15
-#define AUTHORORG 0x16
-
-#define REPLYTO 0x20
-#define REPLYTOAGENT 0x21
-#define REPLYTONETTYPE 0x22
-#define REPLYTONETADDR 0x23
-#define REPLYTOEXT 0x24
-#define REPLYTOPOS 0x25
-#define REPLYTOORG 0x26
-
-#define RECIPIENT 0x30
-#define RECIPIENTAGENT 0x31
-#define RECIPIENTNETTYPE 0x32
-#define RECIPIENTNETADDR 0x33
-#define RECIPIENTEXT 0x34
-#define RECIPIENTPOS 0x35
-#define RECIPIENTORG 0x36
-
-#define FORWARDTO 0x40
-#define FORWARDTOAGENT 0x41
-#define FORWARDTONETTYPE 0x42
-#define FORWARDTONETADDR 0x43
-#define FORWARDTOEXT 0x44
-#define FORWARDTOPOS 0x45
-#define FORWARDTOORG 0x46
-
-#define FORWARDED 0x48
-
-#define RECEIVEDBY 0x50
-#define RECEIVEDBYAGENT 0x51
-#define RECEIVEDBYNETTYPE 0x52
-#define RECEIVEDBYNETADDR 0x53
-#define RECEIVEDBYEXT 0x54
-#define RECEIVEDBYPOS 0x55
-#define RECEIVEDBYORG 0x56
-
-#define RECEIVED 0x58
-
-#define SUBJECT 0x60
-#define SUMMARY 0x61
-#define COMMENT 0x62
-#define CARBONCOPY 0x63
-#define GROUP 0x64
-#define EXPIRATION 0x65
-#define PRIORITY 0x66
-
-#define FILEATTACH 0x70
-#define DESTFILE 0x71
-#define FILEATTACHLIST 0x72
-#define DESTFILELIST 0x73
-#define FILEREQUEST 0x74
-#define FILEPASSWORD 0x75
-#define FILEREQUESTLIST 0x76
-#define FILEPASSWORDLIST 0x77
-
-#define IMAGEATTACH 0x80
-#define ANIMATTACH 0x81
-#define FONTATTACH 0x82
-#define SOUNDATTACH 0x83
-#define PRESENTATTACH 0x84
-#define VIDEOATTACH 0x85
-#define APPDATAATTACH 0x86
-
-#define IMAGETRIGGER 0x90
-#define ANIMTRIGGER 0x91
-#define FONTTRIGGER 0x92
-#define SOUNDTRIGGER 0x93
-#define PRESENTTRIGGER 0x94
-#define VIDEOTRIGGER 0x95
-#define APPDATATRIGGER 0x96
-
-#define FIDOCTRL 0xa0
-#define FIDOAREA 0xa1
-#define FIDOSEENBY 0xa2
-#define FIDOPATH 0xa3
-#define FIDOMSGID 0xa4
-#define FIDOREPLYID 0xa5
-#define FIDOPID 0xa6
-#define FIDOFLAGS 0xa7
-
-#define RFC822HEADER 0xb0
-#define RFC822MSGID 0xb1
-#define RFC822REPLYID 0xb2
-
-#define UNKNOWN 0xf1
-#define UNKNOWNASCII 0xf2
-#define UNUSED 0xff
-
- /* Valid dfield_t.types */
-#define TEXT_BODY 0x00
-#define TEXT_SOUL 0x01
-#define TEXT_TAIL 0x02
-#define TEXT_WING 0x03
-#define IMAGEEMBED 0x20
-#define ANIMEMBED 0x21
-#define FONTEMBED 0x22
-#define SOUNDEMBED 0x23
-#define PRESENTEMBED 0x24
-#define VIDEOEMBED 0x25
-#define APPDATAEMBED 0x26
-#define UNUSED 0xff
-
-
- /* Message attributes */
-#define MSG_PRIVATE (1<<0)
-#define MSG_READ (1<<1)
-#define MSG_PERMANENT (1<<2)
-#define MSG_LOCKED (1<<3)
-#define MSG_DELETE (1<<4)
-#define MSG_ANONYMOUS (1<<5)
-#define MSG_KILLREAD (1<<6)
-#define MSG_MODERATED (1<<7)
-#define MSG_VALIDATED (1<<8)
-
- /* Auxillary header attributes */
-#define MSG_FILEREQUEST (1<<0) // File request
-#define MSG_FILEATTACH (1<<1) // File(s) attached to Msg
-#define MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
-#define MSG_KILLFILE (1<<3) // Delete file(s) when sent
-#define MSG_RECEIPTREQ (1<<4) // Return receipt requested
-#define MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
-#define MSG_NODISP (1<<6) // Msg may not be displayed to user
-
- /* Message network attributes */
-#define MSG_LOCAL (1<<0) // Msg created locally
-#define MSG_INTRANSIT (1<<1) // Msg is in-transit
-#define MSG_SENT (1<<2) // Sent to remote
-#define MSG_KILLSENT (1<<3) // Kill when sent
-#define MSG_ARCHIVESENT (1<<4) // Archive when sent
-#define MSG_HOLD (1<<5) // Hold for pick-up
-#define MSG_CRASH (1<<6) // Crash
-#define MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
-#define MSG_DIRECT (1<<8) // Send directly to destination
-#define MSG_GATE (1<<9) // Send via gateway
-#define MSG_ORPHAN (1<<10) // Unknown destination
-#define MSG_FPU (1<<11) // Force pickup
-#define MSG_TYPELOCAL (1<<12) // Msg is for local use only
-#define MSG_TYPEECHO (1<<13) // Msg is for conference distribution
-#define MSG_TYPENET (1<<14) // Msg is direct network mail
-
-
-enum {
- NET_NONE
- ,NET_UNKNOWN
- ,NET_FIDO
- ,NET_POSTLINK
- ,NET_QWK
- ,NET_INTERNET
- ,NET_WWIV
- ,NET_MHS
-
-/* Add new ones here */
-
- ,NET_TYPES
- };
-
-enum {
- AGENT_PERSON
- ,AGENT_PROCESS
-
-/* Add new ones here */
-
- ,AGENT_TYPES
- };
-
-enum {
- XLAT_NONE // No translation/End of translation list
- ,XLAT_ENCRYPT // Encrypted data
- ,XLAT_ESCAPED // 7-bit ASCII escaping for ctrl and 8-bit data
- ,XLAT_HUFFMAN // Static and adaptive Huffman coding compression
- ,XLAT_LZW // Limpel/Ziv/Welch compression
- ,XLAT_MLZ78 // Modified LZ78 compression
- ,XLAT_RLE // Run length encoding compression
- ,XLAT_IMPLODE // Implode compression (PkZIP)
- ,XLAT_SHRINK // Shrink compression (PkZIP)
- ,XLAT_LZH // LHarc (LHA) Dynamic Huffman coding
-
-/* Add new ones here */
-
- ,XLAT_TYPES
- };
-
-
-/************/
-/* Typedefs */
-/************/
-
-typedef struct {
-
- ulong time; // Local time (unix format)
- short zone; // Time zone
-
- } when_t;
-
-typedef struct {
-
- ushort to; // 16-bit CRC of recipient name (lower case)
- ushort from; // 16-bit CRC of sender name (lower case)
- ushort subj; // 16-bit CRC of subject (lower case, w/o RE:)
- ushort attr; // attributes (read, permanent, etc.)
- ulong offset; // offset into header file
- ulong number; // number of message (1 based)
- ulong time; // time/date message was imported/posted
-
- } idxrec_t;
-
-typedef struct {
-
- uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct
-
- } smbhdr_t;
-
-typedef struct {
-
- ulong last_msg; // last message number
- ulong total_msgs; // total messages
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of message to keep in sub
- ushort max_age; // Maximum age of message to keep in sub (in days)
- ushort attr; // Attributes for this message base (SMB_HYPER,etc)
-
- } smbstatus_t;
-
-typedef struct {
-
- uchar id[4]; // SHD<^Z>
- ushort type; // Message type (normally 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed record + all fields
- ushort attr; // Attributes (bit field) (duped in SID)
- ulong auxattr; // Auxillary attributes (bit field)
- ulong netattr; // Network attributes
- when_t when_written; // Time message was written (unix format)
- when_t when_imported; // Time message was imported
- ulong number; // Message number
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // First reply to this message
- uchar reserved[16]; // Reserved for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields
-
- } msghdr_t;
-
-typedef struct {
-
- ushort type; // Type of data field
- ulong offset; // Offset into buffer
- ulong length; // Length of data field
-
- } dfield_t;
-
-typedef struct {
-
- ushort type;
- ushort length; // Length of buffer
-
- } hfield_t;
-
-typedef struct {
-
- ushort zone;
- ushort net;
- ushort node;
- ushort point;
-
- } fidoaddr_t;
-
-typedef struct {
-
- ushort type;
- void *addr;
-
- } net_t;
-
-typedef struct {
-
- idxrec_t idx; // Index
- msghdr_t hdr; // Header record (fixed portion)
- uchar *to, // To name
- *to_ext, // To extension
- *from, // From name
- *from_ext, // From extension
- *replyto, // Reply-to name
- *replyto_ext, // Reply-to extension */
- *subj; // Subject
- ushort to_agent, // Type of agent message is to
- from_agent, // Type of agent message is from
- replyto_agent; // Type of agent replies should be sent to
- net_t to_net, // Destination network type and address
- from_net, // Origin network address
- replyto_net; // Network type and address for replies
- ushort total_hfields; // Total number of header fields
- hfield_t *hfield; // Header fields (fixed length portion)
- void **hfield_dat; // Header fields (variable length portion)
- dfield_t *dfield; // Data fields (fixed length portion)
- ulong offset; // Offset (number of records) into index
- uchar forwarded; // Forwarded from agent to another
-
- } smbmsg_t;
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/fido/smblib.c b/src/sbbs2/fido/smblib.c
deleted file mode 100644
index e2d8a474b875feec0a6efaa1f49a01650ab396a9..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/smblib.c
+++ /dev/null
@@ -1,1121 +0,0 @@
-/* SMBLIB.C */
-
-#include "smblib.h"
-
-/****************************************************************************/
-/* Open a message base of name 'smb_file' */
-/* If retry_time is 0, fast open method (no compatibility/validity check) */
-/* Opens files for READing messages or updating message indices only */
-/****************************************************************************/
-int smb_open(int retry_time)
-{
- int file;
- char str[128];
- smbhdr_t hdr;
-
-shd_fp=sdt_fp=sid_fp=NULL;
-sprintf(str,"%s.SHD",smb_file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (shd_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- return(2); }
-
-if(retry_time && filelength(file)>=sizeof(smbhdr_t)) {
- setvbuf(shd_fp,shd_buf,_IONBF,SHD_BLOCK_LEN);
- if(smb_locksmbhdr(retry_time)) {
- smb_close();
- return(-1); }
- memset(&hdr,0,sizeof(smbhdr_t));
- fread(&hdr,sizeof(smbhdr_t),1,shd_fp);
- if(memcmp(hdr.id,"SMB\x1a",4)) {
- smb_close();
- return(-2); }
- if(hdr.version<0x110) { /* Compatibility check */
- smb_close();
- return(-3); }
- smb_unlocksmbhdr();
- rewind(shd_fp); }
-
-setvbuf(shd_fp,shd_buf,_IOFBF,SHD_BLOCK_LEN);
-
-sprintf(str,"%s.SDT",smb_file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (sdt_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- smb_close();
- return(1); }
-setvbuf(sdt_fp,NULL,_IOFBF,2*1024);
-
-sprintf(str,"%s.SID",smb_file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (sid_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- smb_close();
- return(3); }
-setvbuf(sid_fp,NULL,_IOFBF,2*1024);
-
-return(0);
-}
-
-/****************************************************************************/
-/* Closes the currently open message base */
-/****************************************************************************/
-void smb_close(void)
-{
-if(shd_fp!=NULL) {
- smb_unlocksmbhdr(); /* In case it's been locked */
- fclose(shd_fp); }
-if(sid_fp!=NULL)
- fclose(sid_fp);
-if(sdt_fp!=NULL)
- fclose(sdt_fp);
-sid_fp=shd_fp=sdt_fp=NULL;
-}
-
-/****************************************************************************/
-/* Opens the data block allocation table message base 'smb_file' */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int smb_open_da(int retry_time)
-{
- int file;
- char str[128];
- long start;
-
-start=time(NULL);
-sprintf(str,"%s.SDA",smb_file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time)
- return(-2); }
-if((sda_fp=fdopen(file,"r+b"))==NULL)
- return(-3);
-setvbuf(sda_fp,NULL,_IOFBF,2*1024);
-return(0);
-}
-
-/****************************************************************************/
-/* Opens the header block allocation table for message base 'smb_file' */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int smb_open_ha(int retry_time)
-{
- int file;
- char str[128];
- long start;
-
-start=time(NULL);
-sprintf(str,"%s.SHA",smb_file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time)
- return(-2); }
-if((sha_fp=fdopen(file,"r+b"))==NULL)
- return(-3);
-setvbuf(sha_fp,NULL,_IOFBF,2*1024);
-return(0);
-}
-
-/****************************************************************************/
-/* If the parameter 'push' is non-zero, this function stores the currently */
-/* open message base to the "virtual" smb stack. Up to SMB_STACK_LEN */
-/* message bases may be stored (defined in SMBDEFS.H). */
-/* The parameter 'op' is the operation to perform on the stack. Either */
-/* SMB_STACK_PUSH, SMB_STACK_POP, or SMB_STACK_XCHNG */
-/* If the operation is SMB_STACK_POP, this function restores a message base */
-/* previously saved with a SMB_STACK_PUSH call to this same function. */
-/* If the operation is SMB_STACK_XCHNG, then the current message base is */
-/* exchanged with the message base on the top of the stack (most recently */
-/* pushed. */
-/* If the current message base is not open, the SMB_STACK_PUSH and */
-/* SMB_STACK_XCHNG operations do nothing */
-/* Returns 0 on success, non-zero if stack full. */
-/* If operation is SMB_STACK_POP or SMB_STACK_XCHNG, it always returns 0. */
-/****************************************************************************/
-int smb_stack(int op)
-{
- static char stack_file[SMB_STACK_LEN][128];
- static FILE *stack_sdt[SMB_STACK_LEN],
- *stack_shd[SMB_STACK_LEN],
- *stack_sid[SMB_STACK_LEN],
- *stack_sda[SMB_STACK_LEN],
- *stack_sha[SMB_STACK_LEN];
- static int stack_idx;
- char tmp_file[128];
- FILE *tmp_sdt,
- *tmp_shd,
- *tmp_sid,
- *tmp_sda,
- *tmp_sha;
-
-if(op==SMB_STACK_PUSH) {
- if(stack_idx>=SMB_STACK_LEN)
- return(1);
- if(shd_fp==NULL || sdt_fp==NULL || sid_fp==NULL) /* Msg base not open */
- return(0);
- memcpy(stack_file[stack_idx],smb_file,128);
- stack_sdt[stack_idx]=sdt_fp;
- stack_shd[stack_idx]=shd_fp;
- stack_sid[stack_idx]=sid_fp;
- stack_sda[stack_idx]=sda_fp;
- stack_sha[stack_idx]=sha_fp;
- stack_idx++;
- return(0); }
-/* pop or xchng */
-if(!stack_idx) /* Nothing on the stack, so do nothing */
- return(0);
-if(op==SMB_STACK_XCHNG) {
- if(!shd_fp)
- return(0);
- memcpy(tmp_file,smb_file,128);
- tmp_sdt=sdt_fp;
- tmp_shd=shd_fp;
- tmp_sid=sid_fp;
- tmp_sda=sda_fp;
- tmp_sha=sha_fp; }
-
-stack_idx--;
-memcpy(smb_file,stack_file[stack_idx],128);
-sdt_fp=stack_sdt[stack_idx];
-shd_fp=stack_shd[stack_idx];
-sid_fp=stack_sid[stack_idx];
-sda_fp=stack_sda[stack_idx];
-sha_fp=stack_sha[stack_idx];
-if(op==SMB_STACK_XCHNG) {
- stack_idx++;
- memcpy(stack_file[stack_idx-1],tmp_file,128);
- stack_sdt[stack_idx-1]=tmp_sdt;
- stack_shd[stack_idx-1]=tmp_shd;
- stack_sid[stack_idx-1]=tmp_sid;
- stack_sda[stack_idx-1]=tmp_sda;
- stack_sha[stack_idx-1]=tmp_sha; }
-return(0);
-}
-
-/****************************************************************************/
-/* Truncates header file */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int smb_trunchdr(int retry_time)
-{
- long start;
-
-start=time(NULL);
-rewind(shd_fp);
-while(1) {
- if(!chsize(fileno(shd_fp),0L))
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time) /* Time-out */
- return(-2); }
-return(0);
-}
-
-/*********************************/
-/* Message Base Header Functions */
-/*********************************/
-
-/****************************************************************************/
-/* Attempts for retry_time number of seconds to lock the message base hdr */
-/****************************************************************************/
-int smb_locksmbhdr(int retry_time)
-{
- ulong start;
-
-start=time(NULL);
-while(1) {
- if(!lock(fileno(shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)))
- return(0);
- if(time(NULL)-start>=retry_time)
- break; /* Incase we've already locked it */
- unlock(fileno(shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)); }
-return(-1);
-}
-
-/****************************************************************************/
-/* Read the SMB header from the header file and place into "status" */
-/****************************************************************************/
-int smb_getstatus(smbstatus_t *status)
-{
- char str[128];
- int i;
-
-setvbuf(shd_fp,shd_buf,_IONBF,SHD_BLOCK_LEN);
-clearerr(shd_fp);
-fseek(shd_fp,sizeof(smbhdr_t),SEEK_SET);
-i=fread(status,1,sizeof(smbstatus_t),shd_fp);
-setvbuf(shd_fp,shd_buf,_IOFBF,SHD_BLOCK_LEN);
-if(i==sizeof(smbstatus_t))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Writes message base header */
-/****************************************************************************/
-int smb_putstatus(smbstatus_t status)
-{
- int i;
-
-clearerr(shd_fp);
-fseek(shd_fp,sizeof(smbhdr_t),SEEK_SET);
-i=fwrite(&status,1,sizeof(smbstatus_t),shd_fp);
-fflush(shd_fp);
-if(i==sizeof(smbstatus_t))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Unlocks previously locks message base header */
-/****************************************************************************/
-int smb_unlocksmbhdr()
-{
-return(unlock(fileno(shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)));
-}
-
-/********************************/
-/* Individual Message Functions */
-/********************************/
-
-/****************************************************************************/
-/* Attempts for retry_time number of seconds to lock the header for 'msg' */
-/****************************************************************************/
-int smb_lockmsghdr(smbmsg_t msg, int retry_time)
-{
- ulong start;
-
-start=time(NULL);
-while(1) {
- if(!lock(fileno(shd_fp),msg.idx.offset,sizeof(msghdr_t)))
- return(0);
- if(time(NULL)-start>=retry_time)
- break;
- unlock(fileno(shd_fp),msg.idx.offset,sizeof(msghdr_t)); }
-return(-1);
-}
-
-/****************************************************************************/
-/* Fills msg->idx with message index based on msg->hdr.number */
-/* OR if msg->hdr.number is 0, based on msg->offset (record offset). */
-/* if msg.hdr.number does not equal 0, then msg->offset is filled too. */
-/* Either msg->hdr.number or msg->offset must be initialized before */
-/* calling this function */
-/* Returns 1 if message number wasn't found, 0 if it was */
-/****************************************************************************/
-int smb_getmsgidx(smbmsg_t *msg)
-{
- idxrec_t idx;
- ulong l,length,total,bot,top;
-
-clearerr(sid_fp);
-if(!msg->hdr.number) {
- fseek(sid_fp,msg->offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg->idx,sizeof(idxrec_t),1,sid_fp))
- return(1);
- return(0); }
-
-length=filelength(fileno(sid_fp));
-if(!length)
- return(1);
-total=length/sizeof(idxrec_t);
-if(!total)
- return(1);
-
-bot=0;
-top=total;
-l=total/2; /* Start at middle index */
-while(1) {
- fseek(sid_fp,l*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&idx,sizeof(idxrec_t),1,sid_fp))
- return(1);
- if(bot==top-1 && idx.number!=msg->hdr.number)
- return(1);
- if(idx.number>msg->hdr.number) {
- top=l;
- l=bot+((top-bot)/2);
- continue; }
- if(idx.number<msg->hdr.number) {
- bot=l;
- l=top-((top-bot)/2);
- continue; }
- break; }
-msg->idx=idx;
-msg->offset=l;
-return(0);
-}
-
-/****************************************************************************/
-/* Reads the last index record in the open message base */
-/****************************************************************************/
-int smb_getlastidx(idxrec_t *idx)
-{
- long length;
-
-clearerr(sid_fp);
-length=filelength(fileno(sid_fp));
-if(length<sizeof(idxrec_t))
- return(-1);
-fseek(sid_fp,length-sizeof(idxrec_t),SEEK_SET);
-if(!fread(idx,sizeof(idxrec_t),1,sid_fp))
- return(-2);
-return(0);
-}
-
-/****************************************************************************/
-/* Figures out the total length of the header record for 'msg' */
-/* Returns length */
-/****************************************************************************/
-uint smb_getmsghdrlen(smbmsg_t msg)
-{
- int i;
-
-/* fixed portion */
-msg.hdr.length=sizeof(msghdr_t);
-/* data fields */
-msg.hdr.length+=msg.hdr.total_dfields*sizeof(dfield_t);
-/* header fields */
-for(i=0;i<msg.total_hfields;i++) {
- msg.hdr.length+=sizeof(hfield_t);
- msg.hdr.length+=msg.hfield[i].length; }
-return(msg.hdr.length);
-}
-
-/****************************************************************************/
-/* Figures out the total length of the data buffer for 'msg' */
-/* Returns length */
-/****************************************************************************/
-ulong smb_getmsgdatlen(smbmsg_t msg)
-{
- int i;
- ulong length=0L;
-
-for(i=0;i<msg.hdr.total_dfields;i++)
- length+=msg.dfield[i].length;
-return(length);
-}
-
-/****************************************************************************/
-/* Read header information into 'msg' structure */
-/* msg->idx.offset must be set before calling this function */
-/* Must call smb_freemsgmem() to free memory allocated for var len strs */
-/* Returns 0 on success, non-zero if error */
-/****************************************************************************/
-int smb_getmsghdr(smbmsg_t *msg)
-{
- ushort i;
- ulong l,offset;
- idxrec_t idx;
-
-rewind(shd_fp);
-fseek(shd_fp,msg->idx.offset,SEEK_SET);
-idx=msg->idx;
-offset=msg->offset;
-memset(msg,0,sizeof(smbmsg_t));
-msg->idx=idx;
-msg->offset=offset;
-if(!fread(&msg->hdr,sizeof(msghdr_t),1,shd_fp))
- return(-1);
-if(memcmp(msg->hdr.id,"SHD\x1a",4))
- return(-2);
-if(msg->hdr.version<0x110)
- return(-9);
-l=sizeof(msghdr_t);
-if(msg->hdr.total_dfields && (msg->dfield
- =(dfield_t *)MALLOC(sizeof(dfield_t)*msg->hdr.total_dfields))==NULL) {
- smb_freemsgmem(*msg);
- return(-3); }
-i=0;
-while(i<msg->hdr.total_dfields && l<msg->hdr.length) {
- if(!fread(&msg->dfield[i],sizeof(dfield_t),1,shd_fp)) {
- smb_freemsgmem(*msg);
- return(-4); }
- i++;
- l+=sizeof(dfield_t); }
-if(i<msg->hdr.total_dfields) {
- smb_freemsgmem(*msg);
- return(-8); }
-
-while(l<msg->hdr.length) {
- i=msg->total_hfields;
- if((msg->hfield_dat=(void **)REALLOC(msg->hfield_dat,sizeof(void *)*(i+1)))
- ==NULL) {
- smb_freemsgmem(*msg);
- return(-3); }
- if((msg->hfield=(hfield_t *)REALLOC(msg->hfield
- ,sizeof(hfield_t)*(i+1)))==NULL) {
- smb_freemsgmem(*msg);
- return(-3); }
- msg->total_hfields++;
- if(!fread(&msg->hfield[i],sizeof(hfield_t),1,shd_fp)) {
- smb_freemsgmem(*msg);
- return(-5); }
- l+=sizeof(hfield_t);
- if((msg->hfield_dat[i]=(char *)MALLOC(msg->hfield[i].length+1))
- ==NULL) { /* Allocate 1 extra for NULL terminator */
- smb_freemsgmem(*msg); /* or 0 length field */
- return(-3); }
- memset(msg->hfield_dat[i],0,msg->hfield[i].length+1); /* init to NULL */
- if(msg->hfield[i].length
- && !fread(msg->hfield_dat[i],msg->hfield[i].length,1,shd_fp)) {
- smb_freemsgmem(*msg);
- return(-6); }
-
- switch(msg->hfield[i].type) { /* convenience variables */
- case SENDER:
- if(!msg->from) {
- msg->from=msg->hfield_dat[i];
- break; }
- case FORWARDED: /* fall through */
- msg->forwarded=1;
- break;
- case SENDERAGENT:
- if(!msg->forwarded)
- msg->from_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case SENDEREXT:
- if(!msg->forwarded)
- msg->from_ext=msg->hfield_dat[i];
- break;
- case SENDERNETTYPE:
- if(!msg->forwarded)
- msg->from_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case SENDERNETADDR:
- if(!msg->forwarded)
- msg->from_net.addr=msg->hfield_dat[i];
- break;
- case REPLYTO:
- msg->replyto=msg->hfield_dat[i];
- break;
- case REPLYTOEXT:
- msg->replyto_ext=msg->hfield_dat[i];
- break;
- case REPLYTOAGENT:
- msg->replyto_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case REPLYTONETTYPE:
- msg->replyto_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case REPLYTONETADDR:
- msg->replyto_net.addr=msg->hfield_dat[i];
- break;
- case RECIPIENT:
- msg->to=msg->hfield_dat[i];
- break;
- case RECIPIENTEXT:
- msg->to_ext=msg->hfield_dat[i];
- break;
- case RECIPIENTAGENT:
- msg->to_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case RECIPIENTNETTYPE:
- msg->to_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case RECIPIENTNETADDR:
- msg->to_net.addr=msg->hfield_dat[i];
- break;
- case SUBJECT:
- msg->subj=msg->hfield_dat[i];
- break; }
- l+=msg->hfield[i].length; }
-
-if(!msg->from || !msg->to || !msg->subj) {
- smb_freemsgmem(*msg);
- return(-7); }
-return(0);
-}
-
-/****************************************************************************/
-/* Frees memory allocated for 'msg' */
-/****************************************************************************/
-void smb_freemsgmem(smbmsg_t msg)
-{
- ushort i;
-
-if(msg.dfield)
- FREE(msg.dfield);
-for(i=0;i<msg.total_hfields;i++)
- if(msg.hfield_dat[i])
- FREE(msg.hfield_dat[i]);
-if(msg.hfield)
- FREE(msg.hfield);
-if(msg.hfield_dat)
- FREE(msg.hfield_dat);
-}
-
-/****************************************************************************/
-/* Unlocks header for 'msg' */
-/****************************************************************************/
-int smb_unlockmsghdr(smbmsg_t msg)
-{
-return(unlock(fileno(shd_fp),msg.idx.offset,sizeof(msghdr_t)));
-}
-
-
-/****************************************************************************/
-/* Adds a header field to the 'msg' structure (in memory only) */
-/****************************************************************************/
-int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)
-{
- int i;
-
-i=msg->total_hfields;
-if((msg->hfield=(hfield_t *)REALLOC(msg->hfield,sizeof(hfield_t)*(i+1)))
- ==NULL)
- return(1);
-if((msg->hfield_dat=(void **)REALLOC(msg->hfield_dat,sizeof(void *)*(i+1)))
- ==NULL)
- return(2);
-msg->total_hfields++;
-msg->hfield[i].type=type;
-msg->hfield[i].length=length;
-if(length) {
- if((msg->hfield_dat[i]=(void *)MALLOC(length))==NULL)
- return(4);
- memcpy(msg->hfield_dat[i],data,length); }
-else
- msg->hfield_dat[i]=NULL;
-return(0);
-}
-
-/****************************************************************************/
-/* Adds a data field to the 'msg' structure (in memory only) */
-/* Automatically figures out the offset into the data buffer from existing */
-/* dfield lengths */
-/****************************************************************************/
-int smb_dfield(smbmsg_t *msg, ushort type, ulong length)
-{
- int i,j;
-
-i=msg->hdr.total_dfields;
-if((msg->dfield=(dfield_t *)REALLOC(msg->dfield,sizeof(dfield_t)*(i+1)))
- ==NULL)
- return(1);
-msg->hdr.total_dfields++;
-msg->dfield[i].type=type;
-msg->dfield[i].length=length;
-for(j=msg->dfield[i].offset=0;j<i;j++)
- msg->dfield[i].offset+=msg->dfield[j].length;
-return(0);
-}
-
-/****************************************************************************/
-/* Checks CRC history file for duplicate crc. If found, returns 1. */
-/* If no dupe, adds to CRC history and returns 0, or negative if error. */
-/****************************************************************************/
-int smb_addcrc(ulong max_crcs, ulong crc, int retry_time)
-{
- char str[128];
- int file;
- long length;
- ulong l,*buf;
- time_t start;
-
-if(!max_crcs)
- return(0);
-start=time(NULL);
-sprintf(str,"%s.SCH",smb_file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time)
- return(-2); }
-length=filelength(file);
-if(length<0L) {
- close(file);
- return(-4); }
-if((buf=(ulong *)MALLOC(max_crcs*4))==NULL) {
- close(file);
- return(-3); }
-if(length>=max_crcs*4) { /* Reached or exceeds max crcs */
- read(file,buf,max_crcs*4);
- for(l=0;l<max_crcs;l++)
- if(crc==buf[l])
- break;
- if(l<max_crcs) { /* Dupe CRC found */
- close(file);
- FREE(buf);
- return(1); }
- chsize(file,0L); /* truncate it */
- lseek(file,0L,SEEK_SET);
- write(file,buf+4,(max_crcs-1)*4); }
-
-else if(length/4) { /* Less than max crcs */
- read(file,buf,length);
- for(l=0;l<length/4;l++)
- if(crc==buf[l])
- break;
- if(l<length/4) { /* Dupe CRC found */
- close(file);
- FREE(buf);
- return(1); } }
-
-lseek(file,0L,SEEK_END);
-write(file,&crc,4); /* Write to the end */
-FREE(buf);
-close(file);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Creates a new message header record in the header file. */
-/* If storage is SMB_SELFPACK, self-packing conservative allocation is used */
-/* If storage is SMB_FASTALLOC, fast allocation is used */
-/* If storage is SMB_HYPERALLOC, no allocation tables are used (fastest) */
-/****************************************************************************/
-int smb_addmsghdr(smbmsg_t *msg, smbstatus_t *status, int storage
- ,int retry_time)
-{
- int i;
- long l;
-
-if(smb_locksmbhdr(retry_time))
- return(1);
-if(smb_getstatus(status))
- return(2);
-
-if(storage!=SMB_HYPERALLOC && (i=smb_open_ha(retry_time))!=0)
- return(i);
-
-msg->hdr.length=smb_getmsghdrlen(*msg);
-if(storage==SMB_HYPERALLOC)
- l=smb_hallochdr(status->header_offset);
-else if(storage==SMB_FASTALLOC)
- l=smb_fallochdr(msg->hdr.length);
-else
- l=smb_allochdr(msg->hdr.length);
-if(l==-1L) {
- smb_unlocksmbhdr();
- fclose(sha_fp);
- return(-1); }
-
-status->last_msg++;
-msg->idx.number=msg->hdr.number=status->last_msg;
-msg->idx.offset=status->header_offset+l;
-msg->idx.time=msg->hdr.when_imported.time;
-msg->idx.attr=msg->hdr.attr;
-msg->offset=status->total_msgs;
-status->total_msgs++;
-smb_putstatus(*status);
-
-if(storage!=SMB_HYPERALLOC)
- fclose(sha_fp);
-i=smb_putmsg(*msg);
-smb_unlocksmbhdr();
-return(i);
-}
-
-/****************************************************************************/
-/* Writes both header and index information for msg 'msg' */
-/****************************************************************************/
-int smb_putmsg(smbmsg_t msg)
-{
- int i;
-
-i=smb_putmsghdr(msg);
-if(i)
- return(i);
-return(smb_putmsgidx(msg));
-}
-
-/****************************************************************************/
-/* Writes index information for 'msg' */
-/* msg.idx */
-/* and msg.offset must be set prior to calling to this function */
-/* Returns 0 if everything ok */
-/****************************************************************************/
-int smb_putmsgidx(smbmsg_t msg)
-{
-
-clearerr(sid_fp);
-fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
-if(!fwrite(&msg.idx,sizeof(idxrec_t),1,sid_fp))
- return(1);
-fflush(sid_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Writes header information for 'msg' */
-/* msg.hdr.length */
-/* msg.idx.offset */
-/* and msg.offset must be set prior to calling to this function */
-/* Returns 0 if everything ok */
-/****************************************************************************/
-int smb_putmsghdr(smbmsg_t msg)
-{
- ushort i;
- ulong l;
-
-clearerr(shd_fp);
-if(fseek(shd_fp,msg.idx.offset,SEEK_SET))
- return(-1);
-
-/************************************************/
-/* Write the fixed portion of the header record */
-/************************************************/
-if(!fwrite(&msg.hdr,sizeof(msghdr_t),1,shd_fp))
- return(-2);
-
-/************************************************/
-/* Write the data fields (each is fixed length) */
-/************************************************/
-for(i=0;i<msg.hdr.total_dfields;i++)
- if(!fwrite(&msg.dfield[i],sizeof(dfield_t),1,shd_fp))
- return(-3);
-
-/*******************************************/
-/* Write the variable length header fields */
-/*******************************************/
-for(i=0;i<msg.total_hfields;i++) {
- if(!fwrite(&msg.hfield[i],sizeof(hfield_t),1,shd_fp))
- return(-4);
- if(msg.hfield[i].length /* more then 0 bytes long */
- && !fwrite(msg.hfield_dat[i],msg.hfield[i].length,1,shd_fp))
- return(-5); }
-
-l=smb_getmsghdrlen(msg);
-while(l%SHD_BLOCK_LEN) {
- if(fputc(0,shd_fp)==EOF)
- return(-6); /* pad block with NULL */
- l++; }
-fflush(shd_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Creates a sub-board's initial header file */
-/* Truncates and deletes other associated SMB files */
-/****************************************************************************/
-int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time)
-{
- char str[128];
- smbhdr_t hdr;
- smbstatus_t status;
-
-if(filelength(fileno(shd_fp))>=sizeof(smbhdr_t)+sizeof(smbstatus_t)
- && smb_locksmbhdr(retry_time)) /* header exists, so lock it */
- return(1);
-memset(&hdr,0,sizeof(smbhdr_t));
-memset(&status,0,sizeof(smbstatus_t));
-memcpy(hdr.id,"SMB\x1a",4); /* <S> <M> <B> <^Z> */
-hdr.version=SMB_VERSION;
-hdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t);
-status.last_msg=status.total_msgs=0;
-status.header_offset=sizeof(smbhdr_t)+sizeof(smbstatus_t);
-status.max_crcs=max_crcs;
-status.max_msgs=max_msgs;
-status.max_age=max_age;
-status.attr=attr;
-rewind(shd_fp);
-fwrite(&hdr,1,sizeof(smbhdr_t),shd_fp);
-fwrite(&status,1,sizeof(smbstatus_t),shd_fp);
-rewind(shd_fp);
-chsize(fileno(shd_fp),sizeof(smbhdr_t)+sizeof(smbstatus_t));
-fflush(shd_fp);
-
-rewind(sdt_fp);
-chsize(fileno(sdt_fp),0L);
-rewind(sid_fp);
-chsize(fileno(sid_fp),0L);
-
-sprintf(str,"%s.SDA",smb_file);
-remove(str); /* if it exists, delete it */
-sprintf(str,"%s.SHA",smb_file);
-remove(str); /* if it exists, delete it */
-sprintf(str,"%s.SCH",smb_file);
-remove(str);
-smb_unlocksmbhdr();
-return(0);
-}
-
-/****************************************************************************/
-/* Returns number of data blocks required to store "length" amount of data */
-/****************************************************************************/
-ulong smb_datblocks(ulong length)
-{
- ulong blocks;
-
-blocks=length/SDT_BLOCK_LEN;
-if(length%SDT_BLOCK_LEN)
- blocks++;
-return(blocks);
-}
-
-/****************************************************************************/
-/* Returns number of header blocks required to store "length" size header */
-/****************************************************************************/
-ulong smb_hdrblocks(ulong length)
-{
- ulong blocks;
-
-blocks=length/SHD_BLOCK_LEN;
-if(length%SHD_BLOCK_LEN)
- blocks++;
-return(blocks);
-}
-
-/****************************************************************************/
-/* Finds unused space in data file based on block allocation table and */
-/* marks space as used in allocation table. */
-/* File must be opened read/write DENY ALL */
-/* Returns offset to beginning of data (in bytes, not blocks) */
-/* Assumes smb_open_da() has been called */
-/* fclose(sda_fp) should be called after */
-/* Returns negative on error */
-/****************************************************************************/
-long smb_allocdat(ulong length, ushort headers)
-{
- ushort i,j;
- ulong l,blocks,offset=0L;
-
-blocks=smb_datblocks(length);
-j=0; /* j is consecutive unused block counter */
-fflush(sda_fp);
-rewind(sda_fp);
-while(!feof(sda_fp)) {
- if(!fread(&i,2,1,sda_fp))
- break;
- offset+=SDT_BLOCK_LEN;
- if(!i) j++;
- else j=0;
- if(j==blocks) {
- offset-=(blocks*SDT_BLOCK_LEN);
- break; } }
-clearerr(sda_fp);
-fseek(sda_fp,(offset/SDT_BLOCK_LEN)*2L,SEEK_SET);
-for(l=0;l<blocks;l++)
- if(!fwrite(&headers,2,1,sda_fp))
- return(-1);
-fflush(sda_fp);
-return(offset);
-}
-
-/****************************************************************************/
-/* Allocates space for data, but doesn't search for unused blocks */
-/* Returns negative on error */
-/****************************************************************************/
-long smb_fallocdat(ulong length, ushort headers)
-{
- ulong l,blocks,offset;
-
-fflush(sda_fp);
-clearerr(sda_fp);
-blocks=smb_datblocks(length);
-fseek(sda_fp,0L,SEEK_END);
-offset=(ftell(sda_fp)/2L)*SDT_BLOCK_LEN;
-for(l=0;l<blocks;l++)
- if(!fwrite(&headers,2,1,sda_fp))
- break;
-fflush(sda_fp);
-if(l<blocks)
- return(-1L);
-return(offset);
-}
-
-/****************************************************************************/
-/* De-allocates space for data */
-/* Returns non-zero on error */
-/****************************************************************************/
-int smb_freemsgdat(ulong offset, ulong length, ushort headers)
-{
- ushort i;
- ulong l,blocks;
-
-blocks=smb_datblocks(length);
-
-clearerr(sda_fp);
-for(l=0;l<blocks;l++) {
- if(fseek(sda_fp,((offset/SDT_BLOCK_LEN)+l)*2L,SEEK_SET))
- return(1);
- if(!fread(&i,2,1,sda_fp))
- return(2);
- if(headers>i)
- i=0; /* don't want to go negative */
- else
- i-=headers;
- if(fseek(sda_fp,-2L,SEEK_CUR))
- return(3);
- if(!fwrite(&i,2,1,sda_fp))
- return(4); }
-fflush(sda_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Adds to data allocation records for blocks starting at 'offset' */
-/* Returns non-zero on error */
-/****************************************************************************/
-int smb_incdat(ulong offset, ulong length, ushort headers)
-{
- ushort i;
- ulong l,blocks;
-
-clearerr(sda_fp);
-blocks=smb_datblocks(length);
-for(l=0;l<blocks;l++) {
- fseek(sda_fp,((offset/SDT_BLOCK_LEN)+l)*2L,SEEK_SET);
- if(!fread(&i,2,1,sda_fp))
- return(1);
- i+=headers;
- fseek(sda_fp,-2L,SEEK_CUR);
- if(!fwrite(&i,2,1,sda_fp))
- return(2); }
-fflush(sda_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* De-allocates blocks for header record */
-/* Returns non-zero on error */
-/****************************************************************************/
-int smb_freemsghdr(ulong offset, ulong length)
-{
- uchar c=0;
- ulong l,blocks;
-
-clearerr(sha_fp);
-blocks=smb_hdrblocks(length);
-fseek(sha_fp,offset/SHD_BLOCK_LEN,SEEK_SET);
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,sha_fp))
- return(1);
-fflush(sha_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Frees all allocated header and data blocks for 'msg' */
-/****************************************************************************/
-int smb_freemsg(smbmsg_t msg, smbstatus_t status)
-{
- int i;
- ushort x;
-
-if(status.attr&SMB_HYPERALLOC) /* Nothing to do */
- return(0);
-
-for(x=0;x<msg.hdr.total_dfields;x++) {
- if((i=smb_freemsgdat(msg.hdr.offset+msg.dfield[x].offset
- ,msg.dfield[x].length,1))!=0)
- return(i); }
-return(smb_freemsghdr(msg.idx.offset-status.header_offset,msg.hdr.length));
-}
-
-/****************************************************************************/
-/* Finds unused space in header file based on block allocation table and */
-/* marks space as used in allocation table. */
-/* File must be opened read/write DENY ALL */
-/* Returns offset to beginning of header (in bytes, not blocks) */
-/* Assumes smb_open_ha() has been called */
-/* fclose(sha_fp) should be called after */
-/* Returns -1L on error */
-/****************************************************************************/
-long smb_allochdr(ulong length)
-{
- uchar c;
- ushort i;
- ulong l,blocks,offset=0;
-
-blocks=smb_hdrblocks(length);
-i=0; /* i is consecutive unused block counter */
-fflush(sha_fp);
-rewind(sha_fp);
-while(!feof(sha_fp)) {
- if(!fread(&c,1,1,sha_fp))
- break;
- offset+=SHD_BLOCK_LEN;
- if(!c) i++;
- else i=0;
- if(i==blocks) {
- offset-=(blocks*SHD_BLOCK_LEN);
- break; } }
-clearerr(sha_fp);
-fseek(sha_fp,offset/SHD_BLOCK_LEN,SEEK_SET);
-c=1;
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,sha_fp))
- return(-1L);
-fflush(sha_fp);
-return(offset);
-}
-
-/****************************************************************************/
-/* Allocates space for index, but doesn't search for unused blocks */
-/* Returns -1L on error */
-/****************************************************************************/
-long smb_fallochdr(ulong length)
-{
- uchar c=1;
- ulong l,blocks,offset;
-
-blocks=smb_hdrblocks(length);
-fflush(sha_fp);
-clearerr(sha_fp);
-fseek(sha_fp,0L,SEEK_END);
-offset=ftell(sha_fp)*SHD_BLOCK_LEN;
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,sha_fp))
- return(-1L);
-fflush(sha_fp);
-return(offset);
-}
-
-/************************************************************************/
-/* Allocate header blocks using Hyper Allocation */
-/* this function should be most likely not be called from anywhere but */
-/* smb_addmsghdr() */
-/************************************************************************/
-long smb_hallochdr(ulong header_offset)
-{
- long l;
-
-fflush(shd_fp);
-fseek(shd_fp,0L,SEEK_END);
-l=ftell(shd_fp);
-if(l<header_offset) /* Header file truncated?!? */
- return(header_offset);
-while((l-header_offset)%SHD_BLOCK_LEN) /* Make sure even block boundry */
- l++;
-return(l-header_offset);
-}
-
-/************************************************************************/
-/* Allocate data blocks using Hyper Allocation */
-/* smb_locksmbhdr() should be called before this function and not */
-/* unlocked until all data fields for this message have been written */
-/* to the SDT file */
-/************************************************************************/
-long smb_hallocdat()
-{
- long l;
-
-fflush(sdt_fp);
-fseek(sdt_fp,0L,SEEK_END);
-l=ftell(sdt_fp);
-if(l<=0)
- return(l);
-while(l%SDT_BLOCK_LEN) /* Make sure even block boundry */
- l++;
-return(l);
-}
-
-/* End of SMBLIB.C */
diff --git a/src/sbbs2/fido/smblib.h b/src/sbbs2/fido/smblib.h
deleted file mode 100644
index b682f74f039574009cd3ef2e0a77204231e8e5b7..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/smblib.h
+++ /dev/null
@@ -1,80 +0,0 @@
-/* SMBLIB.H */
-
-#ifndef _SMBLIB_H
-#define _SMBLIB_H
-
-#if defined(__WATCOMC__) || defined(__TURBOC__)
-# include <io.h>
-# include <mem.h>
-# include <share.h>
-#else
-# include <memory.h>
-#endif
-
-#ifdef __WATCOMC__
-# include <dos.h>
-#elif defined(__TURBOC__)
-# include <dir.h>
-#endif
-
-#include <malloc.h>
-#include <time.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#define GLOBAL extern /* turn smbvars.c files into header */
-
-#include "smbvars.c"
-
-#define SMB_STACK_LEN 4 /* Max msg bases in smb_stack() */
-#define SMB_STACK_POP 0 /* Pop a msg base off of smb_stack() */
-#define SMB_STACK_PUSH 1 /* Push a msg base onto smb_stack() */
-#define SMB_STACK_XCHNG 2 /* Exchange msg base w/last pushed */
-
-int smb_open(int retry_time);
-void smb_close(void);
-int smb_open_da(int retry_time);
-int smb_open_ha(int retry_time);
-int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time);
-int smb_stack(int op);
-int smb_trunchdr(int retry_time);
-int smb_locksmbhdr(int retry_time);
-int smb_getstatus(smbstatus_t *status);
-int smb_putstatus(smbstatus_t status);
-int smb_unlocksmbhdr(void);
-int smb_getmsgidx(smbmsg_t *msg);
-int smb_getlastidx(idxrec_t *idx);
-uint smb_getmsghdrlen(smbmsg_t msg);
-ulong smb_getmsgdatlen(smbmsg_t msg);
-int smb_lockmsghdr(smbmsg_t msg, int retry_time);
-int smb_getmsghdr(smbmsg_t *msg);
-int smb_unlockmsghdr(smbmsg_t msg);
-int smb_addcrc(ulong max_crcs, ulong crc, int retry_time);
-int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data);
-int smb_dfield(smbmsg_t *msg, ushort type, ulong length);
-int smb_addmsghdr(smbmsg_t *msg, smbstatus_t *status, int storage
- ,int retry_time);
-int smb_putmsg(smbmsg_t msg);
-int smb_putmsgidx(smbmsg_t msg);
-int smb_putmsghdr(smbmsg_t msg);
-void smb_freemsgmem(smbmsg_t msg);
-ulong smb_hdrblocks(ulong length);
-ulong smb_datblocks(ulong length);
-long smb_allochdr(ulong length);
-long smb_fallochdr(ulong length);
-long smb_hallochdr(ulong header_offset);
-long smb_allocdat(ulong length, ushort headers);
-long smb_fallocdat(ulong length, ushort headers);
-long smb_hallocdat(void);
-int smb_incdat(ulong offset, ulong length, ushort headers);
-int smb_freemsg(smbmsg_t msg, smbstatus_t status);
-int smb_freemsgdat(ulong offset, ulong length, ushort headers);
-int smb_freemsghdr(ulong offset, ulong length);
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/fido/smbvars.c b/src/sbbs2/fido/smbvars.c
deleted file mode 100644
index 9b80d699e636c3dcc01d5f15c464c5b544bcf47a..0000000000000000000000000000000000000000
--- a/src/sbbs2/fido/smbvars.c
+++ /dev/null
@@ -1,22 +0,0 @@
-/* SMBVARS.C */
-
-/*************************************************************************/
-/* Global variables for SMBLIB. Same file used for both header and code. */
-/*************************************************************************/
-
-#ifndef GLOBAL
-#define GLOBAL
-#endif
-
-#include "smbdefs.h"
-#include <stdio.h>
-
-GLOBAL char smb_file[128]; /* path and filename for SMB file (no ext) */
-GLOBAL char shd_buf[SHD_BLOCK_LEN];
-GLOBAL FILE *sdt_fp;
-GLOBAL FILE *shd_fp;
-GLOBAL FILE *sid_fp;
-GLOBAL FILE *sda_fp;
-GLOBAL FILE *sha_fp;
-GLOBAL FILE *sch_fp;
-
diff --git a/src/sbbs2/file.c b/src/sbbs2/file.c
deleted file mode 100644
index 2ae1b479dd8cae25b7822ce66aeb25c0c2733f81..0000000000000000000000000000000000000000
--- a/src/sbbs2/file.c
+++ /dev/null
@@ -1,325 +0,0 @@
-#line 1 "FILE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*************************************************************************/
-/* Add/delete/edit/view/retrieve the file information for struct file_t */
-/* Called only from functions within xfer.c */
-/*************************************************************************/
-
-#include "sbbs.h"
-
-long fdate_dir(char *filespec);
-
-void getextdesc(uint dirnum, ulong datoffset, char *ext)
-{
- char str[256];
- int file;
-
-memset(ext,0,513);
-sprintf(str,"%s%s.EXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1)
- return;
-lseek(file,(datoffset/F_LEN)*512L,SEEK_SET);
-read(file,ext,512);
-close(file);
-}
-
-void putextdesc(uint dirnum, ulong datoffset, char *ext)
-{
- char str[256],nulbuf[512];
- int file;
-
-memset(nulbuf,0,512);
-sprintf(str,"%s%s.EXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- return;
-lseek(file,0L,SEEK_END);
-while(filelength(file)<(datoffset/F_LEN)*512L)
- write(file,nulbuf,512);
-lseek(file,(datoffset/F_LEN)*512L,SEEK_SET);
-write(file,ext,512);
-close(file);
-}
-
-/****************************************************************************/
-/* Prints all information of file in file_t structure 'f' */
-/****************************************************************************/
-void fileinfo(file_t f)
-{
- char str[256],fname[13],ext[513];
- uint i,j;
- long t;
-
-for(i=0;i<usrlibs;i++)
- if(usrlib[i]==dir[f.dir]->lib)
- break;
-for(j=0;j<usrdirs[i];j++)
- if(usrdir[i][j]==f.dir)
- break;
-unpadfname(f.name,fname);
-bprintf(text[FiLib],i+1,lib[dir[f.dir]->lib]->lname);
-bprintf(text[FiDir],j+1,dir[f.dir]->lname);
-bprintf(text[FiFilename],fname);
-if(f.size!=-1L)
- bprintf(text[FiFileSize],ultoac(f.size,tmp));
-bprintf(text[FiCredits]
- ,(dir[f.dir]->misc&DIR_FREE || !f.cdt) ? "FREE" : ultoac(f.cdt,tmp));
-bprintf(text[FiDescription],f.desc);
-bprintf(text[FiUploadedBy],f.misc&FM_ANON ? text[UNKNOWN_USER] : f.uler);
-if(f.date)
- bprintf(text[FiFileDate],timestr(&f.date));
-bprintf(text[FiDateUled],timestr(&f.dateuled));
-bprintf(text[FiDateDled],f.datedled ? timestr(&f.datedled) : "Never");
-bprintf(text[FiTimesDled],f.timesdled);
-if(f.size!=-1L)
- bprintf(text[FiTransferTime],sectostr(f.timetodl,tmp));
-if(f.altpath) {
- if(f.altpath<=altpaths) {
- if(SYSOP)
- bprintf(text[FiAlternatePath],altpath[f.altpath-1]); }
- else
- bprintf(text[InvalidAlternatePathN],f.altpath); }
-CRLF;
-if(f.misc&FM_EXTDESC) {
- getextdesc(f.dir,f.datoffset,ext);
- CRLF;
- putmsg(ext,P_NOATCODES);
- CRLF; }
-if(f.size==-1L)
- bprintf(text[FileIsNotOnline],f.name);
-if(f.opencount)
- bprintf(text[FileIsOpen],f.opencount,f.opencount>1 ? "s" : nulstr);
-
-}
-
-/****************************************************************************/
-/* Gets file data from dircode.IXB file */
-/* Need fields .name and .dir filled. */
-/* only fills .offset, .dateuled, and .datedled */
-/****************************************************************************/
-void getfileixb(file_t *f)
-{
- uchar HUGE16 *ixbbuf,str[256],fname[13];
- int file;
- ulong l,length;
-
-sprintf(str,"%s%s.IXB",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if(length%F_IXBSIZE) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-if((ixbbuf=MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- FREE((char *)ixbbuf);
- errormsg(WHERE,ERR_READ,str,length);
- return; }
-close(file);
-strcpy(fname,f->name);
-for(l=8;l<12;l++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[l]=fname[l+1];
-for(l=0;l<length;l+=F_IXBSIZE) {
- sprintf(str,"%11.11s",ixbbuf+l);
- if(!strcmp(str,fname))
- break; }
-if(l>=length) {
- errormsg(WHERE,ERR_CHK,str,0);
- FREE((char *)ixbbuf);
- return; }
-l+=11;
-f->datoffset=ixbbuf[l]|((long)ixbbuf[l+1]<<8)|((long)ixbbuf[l+2]<<16);
-f->dateuled=ixbbuf[l+3]|((long)ixbbuf[l+4]<<8)
- |((long)ixbbuf[l+5]<<16)|((long)ixbbuf[l+6]<<24);
-f->datedled=ixbbuf[l+7]|((long)ixbbuf[l+8]<<8)
- |((long)ixbbuf[l+9]<<16)|((long)ixbbuf[l+10]<<24);
-FREE((char *)ixbbuf);
-}
-
-/****************************************************************************/
-/* Gets filedata from dircode.DAT file */
-/* Need fields .name ,.dir and .offset to get other info */
-/* Does not fill .dateuled or .datedled fields. */
-/****************************************************************************/
-void getfiledat(file_t *f)
-{
- char buf[F_LEN+1],str[256];
- int file;
- long length;
-
-sprintf(str,"%s%s.DAT",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if(f->datoffset>length) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-if(length%F_LEN) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-lseek(file,f->datoffset,SEEK_SET);
-if(read(file,buf,F_LEN)!=F_LEN) {
- close(file);
- errormsg(WHERE,ERR_READ,str,F_LEN);
- return; }
-close(file);
-getrec(buf,F_ALTPATH,2,str);
-f->altpath=hptoi(str);
-getrec(buf,F_CDT,LEN_FCDT,str);
-f->cdt=atol(str);
-
-if(!f->size) { /* only read disk if this is null */
-// if(dir[f->dir]->misc&DIR_FCHK) {
- sprintf(str,"%s%s"
- ,f->altpath>0 && f->altpath<=altpaths ? altpath[f->altpath-1]
- : dir[f->dir]->path,unpadfname(f->name,tmp));
- f->size=flength(str);
- f->date=fdate_dir(str);
-/*
- }
- else {
- f->size=f->cdt;
- f->date=0; }
-*/
- }
-if((f->size>0L) && cur_cps)
- f->timetodl=(f->size/(ulong)cur_cps);
-else
- f->timetodl=0;
-
-getrec(buf,F_DESC,LEN_FDESC,f->desc);
-getrec(buf,F_ULER,LEN_ALIAS,f->uler);
-getrec(buf,F_TIMESDLED,5,str);
-f->timesdled=atoi(str);
-getrec(buf,F_OPENCOUNT,3,str);
-f->opencount=atoi(str);
-if(buf[F_MISC]!=ETX)
- f->misc=buf[F_MISC]-SP;
-else
- f->misc=0;
-}
-
-/****************************************************************************/
-/* Increments the opencount on the file data 'f' and adds the transaction */
-/* to the backout.dab */
-/****************************************************************************/
-void openfile(file_t f)
-{
- char str1[256],str2[4],str3[4],ch;
- int file;
-
-/************************************/
-/* Increment open count in dat file */
-/************************************/
-sprintf(str1,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str1,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str1,O_RDWR);
- return; }
-lseek(file,f.datoffset+F_OPENCOUNT,SEEK_SET);
-if(read(file,str2,3)!=3) {
- close(file);
- errormsg(WHERE,ERR_READ,str1,3);
- return; }
-str2[3]=0;
-itoa(atoi(str2)+1,str3,10);
-putrec(str2,0,3,str3);
-lseek(file,f.datoffset+F_OPENCOUNT,SEEK_SET);
-if(write(file,str2,3)!=3) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str1,3);
- return; }
-close(file);
-/**********************************/
-/* Add transaction to BACKOUT.DAB */
-/**********************************/
-sprintf(str1,"%sBACKOUT.DAB",node_dir);
-if((file=nopen(str1,O_WRONLY|O_APPEND|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str1,O_WRONLY|O_APPEND|O_CREAT);
- return; }
-ch=BO_OPENFILE;
-write(file,&ch,1); /* backout type */
-write(file,dir[f.dir]->code,8); /* directory code */
-write(file,&f.datoffset,4); /* offset into .dat file */
-write(file,&ch,BO_LEN-(1+8+4)); /* pad it */
-close(file);
-}
-
-/****************************************************************************/
-/* Decrements the opencount on the file data 'f' and removes the backout */
-/* from the backout.dab */
-/****************************************************************************/
-void closefile(file_t f)
-{
- uchar str1[256],str2[4],str3[4],ch,*buf;
- int file;
- long length,l,offset;
-
-/************************************/
-/* Decrement open count in dat file */
-/************************************/
-sprintf(str1,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str1,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str1,O_RDWR);
- return; }
-lseek(file,f.datoffset+F_OPENCOUNT,SEEK_SET);
-if(read(file,str2,3)!=3) {
- close(file);
- errormsg(WHERE,ERR_READ,str1,3);
- return; }
-str2[3]=0;
-ch=atoi(str2);
-if(ch) ch--;
-itoa(ch,str3,10);
-putrec(str2,0,3,str3);
-lseek(file,f.datoffset+F_OPENCOUNT,SEEK_SET);
-if(write(file,str2,3)!=3) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str1,3);
- return; }
-close(file);
-/*****************************************/
-/* Removing transaction from BACKOUT.DAB */
-/*****************************************/
-sprintf(str1,"%sBACKOUT.DAB",node_dir);
-if(flength(str1)<1L) /* file is not there or empty */
- return;
-if((file=nopen(str1,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str1,O_RDONLY);
- return; }
-length=filelength(file);
-if((buf=MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str1,length);
- return; }
-if(read(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- errormsg(WHERE,ERR_READ,str1,length);
- return; }
-close(file);
-if((file=nopen(str1,O_WRONLY|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str1,O_WRONLY|O_TRUNC);
- return; }
-ch=0; /* 'ch' is a 'file already removed' flag */
-for(l=0;l<length;l+=BO_LEN) { /* in case file is in backout.dab > 1 */
- if(!ch && buf[l]==BO_OPENFILE) {
- memcpy(str1,buf+l+1,8);
- str1[8]=0;
- memcpy(&offset,buf+l+9,4);
- if(!stricmp(str1,dir[f.dir]->code) && offset==f.datoffset) {
- ch=1;
- continue; } }
- write(file,buf+l,BO_LEN); }
-FREE(buf);
-close(file);
-}
diff --git a/src/sbbs2/file_ovl.c b/src/sbbs2/file_ovl.c
deleted file mode 100644
index aa7eb5963c7c56972386bbb974572142343bcd38..0000000000000000000000000000000000000000
--- a/src/sbbs2/file_ovl.c
+++ /dev/null
@@ -1,580 +0,0 @@
-#line 1 "FILE_OVL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Adds file data in 'f' to DIR#.DAT and DIR#.IXB and updates user */
-/* info for uploader. Must have .name, .desc and .dir fields filled prior */
-/* to a call to this function. */
-/* Returns 1 if file uploaded sucessfully, 0 if not. */
-/****************************************************************************/
-char uploadfile(file_t *f)
-{
- uchar path[256],str[256],fname[25],ext[513],desc[513],tmp[128],*p;
- static uchar sbbsfilename[128],sbbsfiledesc[128];
- int file;
- uint i;
- long length;
- FILE *stream;
-
-f->misc=0;
-curdirnum=f->dir;
-if(findfile(f->dir,f->name)) {
- errormsg(WHERE,ERR_CHK,f->name,f->dir);
- return(0); }
-sprintf(path,"%s%s",f->altpath>0 && f->altpath<=altpaths
- ? altpath[f->altpath-1]
- : dir[f->dir]->path,unpadfname(f->name,fname));
-if(!fexist(path)) {
- bprintf(text[FileNotReceived],f->name);
- sprintf(str,"Attempted to upload %s to %s %s (Not received)",f->name
- ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname);
- logline("U!",str);
- return(0); }
-strcpy(tmp,f->name);
-truncsp(tmp);
-for(i=0;i<total_ftests;i++)
- if(ftest[i]->ext[0]=='*' || !strcmp(tmp+9,ftest[i]->ext)) {
- if(!chk_ar(ftest[i]->ar,useron))
- continue;
- attr(LIGHTGRAY);
- bputs(ftest[i]->workstr);
-
- sprintf(sbbsfilename,"SBBSFILENAME=%.12s",unpadfname(f->name,fname));
- putenv(sbbsfilename);
- sprintf(sbbsfiledesc,"SBBSFILEDESC=%.*s",LEN_FDESC,f->desc);
- putenv(sbbsfiledesc);
- sprintf(str,"%sSBBSFILE.NAM",node_dir);
- if((stream=fopen(str,"w"))!=NULL) {
- fwrite(fname,1,strlen(fname),stream);
- fclose(stream); }
- sprintf(str,"%sSBBSFILE.DES",node_dir);
- if((stream=fopen(str,"w"))!=NULL) {
- fwrite(f->desc,1,strlen(f->desc),stream);
- fclose(stream); }
- if(external(cmdstr(ftest[i]->cmd,path,f->desc,NULL),0)) { /* EX_OUTL */
- bprintf(text[FileHadErrors],f->name,ftest[i]->ext);
- if(SYSOP) {
- if(!yesno(text[DeleteFileQ])) return(0); }
- remove(path);
- sprintf(str,"Attempted to upload %s to %s %s (%s Errors)",f->name
- ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname,ftest[i]->ext);
- logline("U!",str);
- return(0); }
- else {
- sprintf(str,"%sSBBSFILE.NAM",node_dir);
- if((stream=fopen(str,"r"))!=NULL) {
- if(fgets(str,128,stream)) {
- truncsp(str);
- strupr(str);
- padfname(str,f->name);
- strcpy(tmp,f->name);
- truncsp(tmp);
- sprintf(path,"%s%s",f->altpath>0 && f->altpath<=altpaths
- ? altpath[f->altpath-1] : dir[f->dir]->path
- ,unpadfname(f->name,fname)); }
- fclose(stream);
- }
- sprintf(str,"%sSBBSFILE.DES",node_dir);
- if((stream=fopen(str,"r"))!=NULL) {
- if(fgets(str,128,stream)) {
- truncsp(str);
- sprintf(f->desc,"%.*s",LEN_FDESC,str); }
- fclose(stream); }
- CRLF; } }
-
-if((length=flength(path))<=0L) {
- bprintf(text[FileZeroLength],f->name);
- remove(path);
- sprintf(str,"Attempted to upload %s to %s %s (Zero length)",f->name
- ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname);
- logline("U!",str);
- return(0); }
-if(dir[f->dir]->misc&DIR_DIZ) {
- for(i=0;i<total_fextrs;i++)
- if(!stricmp(fextr[i]->ext,tmp+9) && chk_ar(fextr[i]->ar,useron))
- break;
- if(i<total_fextrs) {
- sprintf(str,"%sFILE_ID.DIZ",temp_dir);
- remove(str);
- external(cmdstr(fextr[i]->cmd,path,"FILE_ID.DIZ",NULL),EX_OUTL);
- if(!fexist(str)) {
- sprintf(str,"%sDESC.SDI",temp_dir);
- remove(str);
- external(cmdstr(fextr[i]->cmd,path,"DESC.SDI",NULL),EX_OUTL); }
- if((file=nopen(str,O_RDONLY))!=-1) {
- memset(ext,0,513);
- read(file,ext,512);
- for(i=512;i;i--)
- if(ext[i-1]>SP)
- break;
- ext[i]=0;
- if(!f->desc[0]) {
- strcpy(desc,ext);
- strip_exascii(desc);
- strip_ctrl(desc);
- for(i=0;desc[i];i++)
- if(isalnum(desc[i]))
- break;
- sprintf(f->desc,"%.*s",LEN_FDESC,desc+i); }
- close(file);
- remove(str);
- f->misc|=FM_EXTDESC; } } }
-
-logon_ulb+=length; /* Update 'this call' stats */
-logon_uls++;
-if(dir[f->dir]->misc&DIR_AONLY) /* Forced anonymous */
- f->misc|=FM_ANON;
-f->cdt=length;
-f->dateuled=time(NULL);
-f->timesdled=0;
-f->datedled=0L;
-f->opencount=0;
-strcpy(f->uler,useron.alias);
-bprintf(text[FileNBytesReceived],f->name,ultoac(length,tmp));
-if(!f->desc[0])
- sprintf(f->desc,"%.*s",LEN_FDESC,text[NoDescription]);
-if(!addfiledat(f))
- return(0);
-
-if(f->misc&FM_EXTDESC)
- putextdesc(f->dir,f->datoffset,ext);
-
-sprintf(str,"Uploaded %s to %s %s",f->name,lib[dir[f->dir]->lib]->sname
- ,dir[f->dir]->sname);
-if(dir[f->dir]->upload_sem[0])
- if((file=nopen(dir[f->dir]->upload_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
-logline("U+",str);
-/**************************/
-/* Update Uploader's Info */
-/**************************/
-useron.uls=adjustuserrec(useron.number,U_ULS,5,1);
-useron.ulb=adjustuserrec(useron.number,U_ULB,10,length);
-if(dir[f->dir]->up_pct && dir[f->dir]->misc&DIR_CDTUL) { /* credit for upload */
- if(dir[f->dir]->misc&DIR_CDTMIN && cur_cps) /* Give min instead of cdt */
- useron.min=adjustuserrec(useron.number,U_MIN,10
- ,((ulong)(length*(dir[f->dir]->up_pct/100.0))/cur_cps)/60);
- else
- useron.cdt=adjustuserrec(useron.number,U_CDT,10
- ,(ulong)(f->cdt*(dir[f->dir]->up_pct/100.0))); }
-return(1);
-}
-
-
-/****************************************************************************/
-/* Updates downloader, uploader and downloaded file data */
-/* Must have offset, dir and name fields filled prior to call. */
-/****************************************************************************/
-void downloadfile(file_t f)
-{
- char str[256],str2[256],fname[13];
- int i,file;
- long length,mod;
- ulong l;
- user_t uploader;
-
-getfiledat(&f); /* Get current data - right after download */
-if((length=f.size)<0L)
- length=0L;
-logon_dlb+=length; /* Update 'this call' stats */
-logon_dls++;
-bprintf(text[FileNBytesSent],f.name,ultoac(length,tmp));
-sprintf(str,"Downloaded %s from %s %s",f.name,lib[dir[f.dir]->lib]->sname
- ,dir[f.dir]->sname);
-logline("D-",str);
-/****************************/
-/* Update Downloader's Info */
-/****************************/
-useron.dls=adjustuserrec(useron.number,U_DLS,5,1);
-useron.dlb=adjustuserrec(useron.number,U_DLB,10,length);
-if(!(dir[f.dir]->misc&DIR_FREE) && !(useron.exempt&FLAG('D')))
- subtract_cdt(f.cdt);
-/**************************/
-/* Update Uploader's Info */
-/**************************/
-i=matchuser(f.uler);
-uploader.number=i;
-getuserdat(&uploader);
-if(i && i!=useron.number && uploader.firston<f.dateuled) {
- l=f.cdt;
- if(!(dir[f.dir]->misc&DIR_CDTDL)) /* Don't give credits on d/l */
- l=0;
- if(dir[f.dir]->misc&DIR_CDTMIN && cur_cps) { /* Give min instead of cdt */
- mod=((ulong)(l*(dir[f.dir]->dn_pct/100.0))/cur_cps)/60;
- adjustuserrec(i,U_MIN,10,mod);
- sprintf(tmp,"%lu minute",mod);
- sprintf(str,text[DownloadUserMsg]
- ,!strcmp(dir[f.dir]->code,"TEMP") ? temp_file : f.name
- ,!strcmp(dir[f.dir]->code,"TEMP") ? text[Partially] : nulstr
- ,useron.alias,tmp); }
- else {
- mod=(ulong)(l*(dir[f.dir]->dn_pct/100.0));
- adjustuserrec(i,U_CDT,10,mod);
- ultoac(mod,tmp);
- sprintf(str,text[DownloadUserMsg]
- ,!strcmp(dir[f.dir]->code,"TEMP") ? temp_file : f.name
- ,!strcmp(dir[f.dir]->code,"TEMP") ? text[Partially] : nulstr
- ,useron.alias,tmp); }
- putsmsg(i,str); }
-/*******************/
-/* Update IXB File */
-/*******************/
-f.datedled=time(NULL);
-sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return; }
-length=filelength(file);
-if(length%F_IXBSIZE) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-strcpy(fname,f.name);
-for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[i]=fname[i+1];
-for(l=0;l<length;l+=F_IXBSIZE) {
- read(file,str,F_IXBSIZE); /* Look for the filename in the IXB file */
- str[11]=0;
- if(!strcmp(fname,str)) break; }
-if(l>=length) {
- close(file);
- errormsg(WHERE,ERR_CHK,f.name,0);
- return; }
-lseek(file,l+18,SEEK_SET);
-write(file,&f.datedled,4); /* Write the current time stamp for datedled */
-close(file);
-/*******************/
-/* Update DAT File */
-/*******************/
-f.timesdled++;
-putfiledat(f);
-/******************************************/
-/* Update User to User index if necessary */
-/******************************************/
-if(f.dir==user_dir) {
- rmuserxfers(0,useron.number,f.name);
- if(!getuserxfers(0,0,f.name)) { /* check if any ixt entries left */
- sprintf(str,"%s%s",f.altpath>0 && f.altpath<=altpaths ?
- altpath[f.altpath-1] : dir[f.dir]->path,unpadfname(f.name,tmp));
- remove(str);
- removefiledat(f); } }
-}
-
-/****************************************************************************/
-/* Removes DAT and IXB entries for the file in the struct 'f' */
-/****************************************************************************/
-void removefiledat(file_t f)
-{
- char c,str[256],ixbname[12],HUGE16 *ixbbuf,fname[13];
- int file;
- ulong l,length;
-
-strcpy(fname,f.name);
-for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[c]=fname[c+1];
-sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if(!length) {
- close(file);
- return; }
-if((ixbbuf=(char *)MALLOC(length))==0) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,length);
- FREE((char *)ixbbuf);
- return; }
-close(file);
-if((file=nopen(str,O_WRONLY|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_TRUNC);
- return; }
-for(l=0;l<length;l+=F_IXBSIZE) {
- for(c=0;c<11;c++)
- ixbname[c]=ixbbuf[l+c];
- ixbname[c]=0;
- if(strcmp(ixbname,fname))
- if(lwrite(file,&ixbbuf[l],F_IXBSIZE)!=F_IXBSIZE) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,F_IXBSIZE);
- FREE((char *)ixbbuf);
- return; } }
-FREE((char *)ixbbuf);
-close(file);
-sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY);
- return; }
-lseek(file,f.datoffset,SEEK_SET);
-c=ETX; /* If first char of record is ETX, record is unused */
-if(write(file,&c,1)!=1) { /* So write a D_T on the first byte of the record */
- close(file);
- errormsg(WHERE,ERR_WRITE,str,1);
- return; }
-close(file);
-if(f.dir==user_dir) /* remove file from index */
- rmuserxfers(0,0,f.name);
-
-}
-
-/****************************************************************************/
-/* Puts filedata into DIR_code.DAT file */
-/* Called from removefiles */
-/****************************************************************************/
-void putfiledat(file_t f)
-{
- char buf[F_LEN+1],str[256];
- int file;
- long length;
-
-putrec(buf,F_CDT,LEN_FCDT,ultoa(f.cdt,tmp,10));
-putrec(buf,F_DESC,LEN_FDESC,f.desc);
-putrec(buf,F_DESC+LEN_FDESC,2,crlf);
-putrec(buf,F_ULER,LEN_ALIAS+5,f.uler);
-putrec(buf,F_ULER+LEN_ALIAS+5,2,crlf);
-putrec(buf,F_TIMESDLED,5,itoa(f.timesdled,tmp,10));
-putrec(buf,F_TIMESDLED+5,2,crlf);
-putrec(buf,F_OPENCOUNT,3,itoa(f.opencount,tmp,10));
-putrec(buf,F_OPENCOUNT+3,2,crlf);
-buf[F_MISC]=f.misc+SP;
-putrec(buf,F_ALTPATH,2,hexplus(f.altpath,tmp));
-putrec(buf,F_ALTPATH+2,2,crlf);
-sprintf(str,"%s%s.DAT",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY);
- return; }
-length=filelength(file);
-if(length%F_LEN) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-if(f.datoffset>length) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-lseek(file,f.datoffset,SEEK_SET);
-if(write(file,buf,F_LEN)!=F_LEN) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,F_LEN);
- return; }
-length=filelength(file);
-close(file);
-if(length%F_LEN)
- errormsg(WHERE,ERR_LEN,str,length);
-}
-
-/****************************************************************************/
-/* Adds the data for struct filedat to the directory's data base. */
-/* changes the .datoffset field only */
-/* returns 1 if added successfully, 0 if not. */
-/****************************************************************************/
-char addfiledat(file_t *f)
-{
- uchar str[256],fdat[F_LEN+1],fname[13],idx[3],c,HUGE16 *ixbbuf;
- int i,file;
- ulong length,l;
- time_t uldate;
-
-/************************/
-/* Add data to DAT File */
-/************************/
-sprintf(str,"%s%s.DAT",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_CREAT);
- return(0); }
-length=filelength(file);
-if(length==0L)
- l=0L;
-else {
- if(length%F_LEN) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return(0); }
- for(l=0;l<length;l+=F_LEN) { /* Find empty slot */
- lseek(file,l,SEEK_SET);
- read(file,&c,1);
- if(c==ETX) break; }
- if(l/F_LEN>=MAX_FILES || l/F_LEN>=dir[f->dir]->maxfiles) {
- bputs(text[DirFull]);
- close(file);
- sprintf(str,"Directory Full: %s %s"
- ,lib[dir[f->dir]->lib]->sname,dir[f->dir]->sname);
- logline("U!",str);
- return(0); } }
-putrec(fdat,F_CDT,LEN_FCDT,ultoa(f->cdt,tmp,10));
-putrec(fdat,F_DESC,LEN_FDESC,f->desc);
-putrec(fdat,F_DESC+LEN_FDESC,2,crlf);
-putrec(fdat,F_ULER,LEN_ALIAS+5,f->uler);
-putrec(fdat,F_ULER+LEN_ALIAS+5,2,crlf);
-putrec(fdat,F_TIMESDLED,5,ultoa(f->timesdled,tmp,10));
-putrec(fdat,F_TIMESDLED+5,2,crlf);
-putrec(fdat,F_OPENCOUNT,3,itoa(f->opencount,tmp,10));
-putrec(fdat,F_OPENCOUNT+3,2,crlf);
-fdat[F_MISC]=f->misc+SP;
-putrec(fdat,F_ALTPATH,2,hexplus(f->altpath,tmp));
-putrec(fdat,F_ALTPATH+2,2,crlf);
-f->datoffset=l;
-idx[0]=l&0xff; /* Get offset within DAT file for IXB file */
-idx[1]=(l>>8)&0xff;
-idx[2]=(l>>16)&0xff;
-lseek(file,l,SEEK_SET);
-if(write(file,fdat,F_LEN)!=F_LEN) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,F_LEN);
- return(0); }
-length=filelength(file);
-close(file);
-if(length%F_LEN)
- errormsg(WHERE,ERR_LEN,str,length);
-
-/*******************************************/
-/* Update last upload date/time stamp file */
-/*******************************************/
-sprintf(str,"%s%s.DAB",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT);
-else {
- now=time(NULL);
- write(file,&now,4);
- close(file); }
-
-/************************/
-/* Add data to IXB File */
-/************************/
-strcpy(fname,f->name);
-for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[i]=fname[i+1];
-sprintf(str,"%s%s.IXB",dir[f->dir]->data_dir,dir[f->dir]->code);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_CREAT);
- return(0); }
-length=filelength(file);
-if(length) { /* IXB file isn't empty */
- if(length%F_IXBSIZE) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return(0); }
- if((ixbbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return(0); }
- if(lread(file,ixbbuf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,length);
- FREE((char *)ixbbuf);
- return(0); }
-/************************************************/
-/* Sort by Name or Date, Assending or Decending */
-/************************************************/
- if(dir[f->dir]->sort==SORT_NAME_A || dir[f->dir]->sort==SORT_NAME_D) {
- for(l=0;l<length;l+=F_IXBSIZE) {
- for(i=0;i<12 && fname[i]==ixbbuf[l+i];i++);
- if(i==12) { /* file already in directory index */
- close(file);
- errormsg(WHERE,ERR_CHK,str,0);
- FREE((char *)ixbbuf);
- return(0); }
- if(dir[f->dir]->sort==SORT_NAME_A && fname[i]<ixbbuf[l+i])
- break;
- if(dir[f->dir]->sort==SORT_NAME_D && fname[i]>ixbbuf[l+i])
- break; } }
- else { /* sort by date */
- for(l=0;l<length;l+=F_IXBSIZE) {
- uldate=(ixbbuf[l+14]|((long)ixbbuf[l+15]<<8)
- |((long)ixbbuf[l+16]<<16)|((long)ixbbuf[l+17]<<24));
- if(dir[f->dir]->sort==SORT_DATE_A && f->dateuled<uldate)
- break;
- if(dir[f->dir]->sort==SORT_DATE_D && f->dateuled>uldate)
- break; } }
- lseek(file,l,SEEK_SET);
- if(write(file,fname,11)!=11) { /* Write filename to IXB file */
- close(file);
- errormsg(WHERE,ERR_WRITE,str,11);
- FREE((char *)ixbbuf);
- return(0); }
- if(write(file,idx,3)!=3) { /* Write DAT offset into IXB file */
- close(file);
- errormsg(WHERE,ERR_WRITE,str,3);
- FREE((char *)ixbbuf);
- return(0); }
- write(file,&f->dateuled,sizeof(time_t));
- write(file,&f->datedled,4); /* Write 0 for datedled */
- if(lwrite(file,&ixbbuf[l],length-l)!=length-l) { /* Write rest of IXB */
- close(file);
- errormsg(WHERE,ERR_WRITE,str,length-l);
- FREE((char *)ixbbuf);
- return(0); }
- FREE((char *)ixbbuf); }
-else { /* IXB file is empty... No files */
- if(write(file,fname,11)!=11) { /* Write filename it IXB file */
- close(file);
- errormsg(WHERE,ERR_WRITE,str,11);
- return(0); }
- if(write(file,idx,3)!=3) { /* Write DAT offset into IXB file */
- close(file);
- errormsg(WHERE,ERR_WRITE,str,3);
- return(0); }
- write(file,&f->dateuled,sizeof(time_t));
- write(file,&f->datedled,4); }
-length=filelength(file);
-close(file);
-if(length%F_IXBSIZE)
- errormsg(WHERE,ERR_LEN,str,length);
-return(1);
-}
-
-/****************************************************************************/
-/* Update the upload date for the file 'f' */
-/****************************************************************************/
-void update_uldate(file_t f)
-{
- char str[256],fname[13];
- int i,file;
- long l,length;
-
-/*******************/
-/* Update IXB File */
-/*******************/
-sprintf(str,"%s%s.IXB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return; }
-length=filelength(file);
-if(length%F_IXBSIZE) {
- close(file);
- errormsg(WHERE,ERR_LEN,str,length);
- return; }
-strcpy(fname,f.name);
-for(i=8;i<12;i++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[i]=fname[i+1];
-for(l=0;l<length;l+=F_IXBSIZE) {
- read(file,str,F_IXBSIZE); /* Look for the filename in the IXB file */
- str[11]=0;
- if(!strcmp(fname,str)) break; }
-if(l>=length) {
- close(file);
- errormsg(WHERE,ERR_CHK,f.name,length);
- return; }
-lseek(file,l+14,SEEK_SET);
-write(file,&f.dateuled,4);
-close(file);
-
-/*******************************************/
-/* Update last upload date/time stamp file */
-/*******************************************/
-sprintf(str,"%s%s.DAB",dir[f.dir]->data_dir,dir[f.dir]->code);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT);
-else {
- write(file,&f.dateuled,4);
- close(file); }
-
-}
-
diff --git a/src/sbbs2/filelist/filelist.c b/src/sbbs2/filelist/filelist.c
deleted file mode 100644
index 01eba9d9126840b15cb4fb91245e7c988bc639d3..0000000000000000000000000000000000000000
--- a/src/sbbs2/filelist/filelist.c
+++ /dev/null
@@ -1,657 +0,0 @@
-/* FILELIST.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Utility to create list of files from Synchronet file directories */
-/* Default list format is FILES.BBS, but file size, uploader, upload date */
-/* and other information can be included. */
-
-#include "sbbs.h"
-
-#define FILELIST_VER "2.12"
-
-#define MAX_NOTS 25
-
-#ifdef lputs
-#undef lputs
-#endif
-
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stdout));
-}
-
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/****************************************************************************/
-/* Turns FILE .EXT into FILE.EXT */
-/* Called from upload */
-/****************************************************************************/
-char *unpadfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0,d=0;c<strlen(filename);c++)
- if(filename[c]!=SP) str[d++]=filename[c];
-str[d]=0;
-return(str);
-}
-
-#ifndef __FLAT__
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char huge *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-#endif
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
- uint i;
-
-i=_dos_findfirst(filespec,_A_NORMAL,&f);
-#ifdef __WATCOMC__
-_dos_findclose(&f);
-#endif
-if(!i)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the time/date of the file in 'filespec' in time_t (unix) format */
-/****************************************************************************/
-long fdate(char *filespec)
-{
- int file;
- ushort fd,ft;
- struct tm t;
-
-if((file=nopen(filespec,O_RDONLY))==-1)
- return(0);
-_dos_getftime(file,&fd,&ft);
-close(file);
-memset(&t,0,sizeof(t));
-t.tm_year=((fd&0xfe00)>>9)+80;
-t.tm_mon=((fd&0x01e0)>>5)-1;
-t.tm_mday=fd&0x1f;
-t.tm_hour=(ft&0xf800)>>11;
-t.tm_min=(ft&0x07e0)>>5;
-t.tm_sec=(ft&0x001f)<<1;
-return(mktime(&t));
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- int c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-void stripctrlz(char *str)
-{
- char tmp[1024];
- int i,j,k;
-
-k=strlen(str);
-for(i=j=0;i<k;i++)
- if(str[i]!=0x1a)
- tmp[j++]=str[i];
-tmp[j]=0;
-strcpy(str,tmp);
-}
-
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-
-/****************************************************************************/
-/* Places into 'strout' CR or ETX terminated string starting at */
-/* 'start' and ending at 'start'+'length' or terminator from 'strin' */
-/****************************************************************************/
-void getrec(char *strin,int start,int length,char *strout)
-{
- int i=0,stop;
-
-stop=start+length;
-while(start<stop) {
- if(strin[start]==ETX)
- break;
- strout[i++]=strin[start++]; }
-strout[i]=0;
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(access&O_WRONLY) access|=O_RDWR; /* fdopen can't open WRONLY */
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&(O_RDONLY|O_RDWR))
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&(O_WRONLY|O_RDWR))
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-void allocfail(uint size)
-{
-lprintf("\7Error allocating %u bytes of memory.\r\n",size);
-bail(1);
-}
-
-void bail(int code)
-{
-exit(code);
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct tm *t;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- t=gmtime(&unix);
- sprintf(str,"%02u/%02u/%02u",t->tm_mon+1,t->tm_mday
- ,t->tm_year%100); }
-return(str);
-}
-
-#define ALL (1L<<0)
-#define PAD (1L<<1)
-#define HDR (1L<<2)
-#define CDT_ (1L<<3)
-#define EXT (1L<<4)
-#define ULN (1L<<5)
-#define ULD (1L<<6)
-#define DLS (1L<<7)
-#define DLD (1L<<8)
-#define NOD (1L<<9)
-#define PLUS (1L<<10)
-#define MINUS (1L<<11)
-#define JST (1L<<12)
-#define NOE (1L<<13)
-#define DFD (1L<<14)
-#define TOT (1L<<15)
-#define AUTO (1L<<16)
-
-/*********************/
-/* Entry point (duh) */
-/*********************/
-int main(int argc, char **argv)
-{
- char *p,str[256],fname[256],ext,not[MAX_NOTS][9],nots=0;
- uchar HUGE16 *datbuf,HUGE16 *ixbbuf;
- int i,j,file,dirnum,libnum,desc_off,lines
- ,omode=O_WRONLY|O_CREAT|O_TRUNC;
- ulong l,m,n,cdt,misc=0,total_cdt=0,total_files=0,datbuflen;
- time_t uld,dld;
- read_cfg_text_t txt;
- FILE *in,*out=NULL;
-
-putenv("TZ=UCT0");
-_fmode=O_BINARY;
-setvbuf(stdout,NULL,_IONBF,0);
-
-fprintf(stderr,"\nFILELIST Version %s (%s) - Generate Synchronet File "
- "Directory Lists\n"
- ,FILELIST_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- );
-
-if(argc<2) {
- printf("\n usage: FILELIST <dir_code or * for ALL> [switches] [outfile]\n");
- printf("\nswitches: /LIB name All directories of specified library\n");
- printf(" /NOT code Exclude specific directory\n");
- printf(" /CAT Concatenate to existing outfile\n");
- printf(" /PAD Pad filename with spaces\n");
- printf(" /HDR Include directory headers\n");
- printf(" /CDT Include credit value\n");
- printf(" /TOT Include credit totals\n");
- printf(" /ULN Include uploader's name\n");
- printf(" /ULD Include upload date\n");
- printf(" /DFD Include DOS file date\n");
- printf(" /DLD Include download date\n");
- printf(" /DLS Include total downloads\n");
- printf(" /NOD Exclude normal descriptions\n");
- printf(" /NOE Exclude normal descriptions, if extended "
- "exists\n");
- printf(" /EXT Include extended descriptions\n");
- printf(" /JST Justify extended descriptions under normal\n");
- printf(" /+ Include extended description indicator (+)\n");
- printf(" /- Include offline file indicator (-)\n");
- printf(" /* Short-hand for /PAD /HDR /CDT /+ /-\n");
- exit(0); }
-
-p=getenv("SBBSNODE");
-if(p==NULL) {
- printf("\nSBBSNODE environment variable not set.\n");
- printf("\nExample: SET SBBSNODE=C:\\SBBS\\NODE1\n");
- exit(1); }
-
-strcpy(node_dir,p);
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-txt.openerr="\7\nError opening %s for read.\n";
-txt.reading="\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\nError allocating %u bytes of memory\n";
-txt.error="\7\nERROR: Offset %lu in %s\r\n\n";
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str); }
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str); }
-read_file_cfg(txt);
-printf("\n");
-
-
-dirnum=libnum=-1;
-if(argv[1][0]=='*')
- misc|=ALL;
-else if(argv[1][0]!='/') {
- strupr(argv[1]);
- for(i=0;i<total_dirs;i++)
- if(!stricmp(argv[1],dir[i]->code))
- break;
- if(i>=total_dirs) {
- printf("\nDirectory code '%s' not found.\n",argv[1]);
- exit(1); }
- dirnum=i; }
-for(i=1;i<argc;i++) {
- if(!stricmp(argv[i],"/LIB")) {
- if(dirnum!=-1) {
- printf("\nBoth directory code and /LIB parameters were used.\n");
- exit(1); }
- i++;
- if(i>=argc) {
- printf("\nLibrary short name must follow /LIB parameter.\n");
- exit(1); }
- strupr(argv[i]);
- for(j=0;j<total_libs;j++)
- if(!stricmp(lib[j]->sname,argv[i]))
- break;
- if(j>=total_libs) {
- printf("\nLibrary short name '%s' not found.\n",argv[i]);
- exit(1); }
- libnum=j; }
- else if(!stricmp(argv[i],"/NOT")) {
- if(nots>=MAX_NOTS) {
- printf("\nMaximum number of /NOT options (%u) exceeded.\n"
- ,MAX_NOTS);
- exit(1); }
- i++;
- if(i>=argc) {
- printf("\nDirectory internal code must follow /NOT parameter.\n");
- exit(1); }
- sprintf(not[nots++],"%.8s",argv[i]); }
- else if(!stricmp(argv[i],"/ALL")) {
- if(dirnum!=-1) {
- printf("\nBoth directory code and /ALL parameters were used.\n");
- exit(1); }
- if(libnum!=-1) {
- printf("\nBoth library name and /ALL parameters were used.\n");
- exit(1); }
- misc|=ALL; }
- else if(!stricmp(argv[i],"/PAD"))
- misc|=PAD;
- else if(!stricmp(argv[i],"/CAT"))
- omode=O_WRONLY|O_CREAT|O_APPEND;
- else if(!stricmp(argv[i],"/HDR"))
- misc|=HDR;
- else if(!stricmp(argv[i],"/CDT"))
- misc|=CDT_;
- else if(!stricmp(argv[i],"/TOT"))
- misc|=TOT;
- else if(!stricmp(argv[i],"/EXT"))
- misc|=EXT;
- else if(!stricmp(argv[i],"/ULN"))
- misc|=ULN;
- else if(!stricmp(argv[i],"/ULD"))
- misc|=ULD;
- else if(!stricmp(argv[i],"/DLD"))
- misc|=DLD;
- else if(!stricmp(argv[i],"/DFD"))
- misc|=DFD;
- else if(!stricmp(argv[i],"/DLS"))
- misc|=DLS;
- else if(!stricmp(argv[i],"/NOD"))
- misc|=NOD;
- else if(!stricmp(argv[i],"/JST"))
- misc|=(EXT|JST);
- else if(!stricmp(argv[i],"/NOE"))
- misc|=(EXT|NOE);
- else if(!stricmp(argv[i],"/+"))
- misc|=PLUS;
- else if(!stricmp(argv[i],"/-"))
- misc|=MINUS;
- else if(!stricmp(argv[i],"/*"))
- misc|=(HDR|PAD|CDT_|PLUS|MINUS);
-
- else if(i!=1) {
- if(argv[i][0]=='*') {
- misc|=AUTO;
- continue; }
- if((j=nopen(argv[i],omode))==-1) {
- printf("\nError opening/creating %s for output.\n",argv[i]);
- exit(1); }
- out=fdopen(j,"wb"); } }
-
-if(!out && !(misc&AUTO)) {
- printf("\nOutput file not specified, using FILES.BBS in each "
- "directory.\n");
- misc|=AUTO; }
-
-for(i=0;i<total_dirs;i++) {
- if(!(misc&ALL) && i!=dirnum && dir[i]->lib!=libnum)
- continue;
- for(j=0;j<nots;j++)
- if(!stricmp(not[j],dir[i]->code))
- break;
- if(j<nots)
- continue;
- if(misc&AUTO && dir[i]->seqdev) /* CD-ROM */
- continue;
- printf("\n%-*s %s",LEN_GSNAME,lib[dir[i]->lib]->sname,dir[i]->lname);
- sprintf(str,"%s%s.IXB",dir[i]->data_dir,dir[i]->code);
- if((file=nopen(str,O_RDONLY))==-1)
- continue;
- l=filelength(file);
- if(misc&AUTO) {
- sprintf(str,"%sFILES.BBS",dir[i]->path);
- if((j=nopen(str,omode))==-1) {
- printf("\nError opening/creating %s for output.\n",str);
- exit(1); }
- out=fdopen(j,"wb"); }
- if(misc&HDR) {
- sprintf(fname,"%-*s %-*s Files: %4u"
- ,LEN_GSNAME,lib[dir[i]->lib]->sname
- ,LEN_SLNAME,dir[i]->lname,l/F_IXBSIZE);
- fprintf(out,"%s\r\n",fname);
- strset(fname,'-');
- fprintf(out,"%s\r\n",fname); }
- if(!l) {
- close(file);
- if(misc&AUTO) fclose(out);
- continue; }
- if((ixbbuf=(char *)MALLOC(l))==NULL) {
- close(file);
- if(misc&AUTO) fclose(out);
- printf("\7ERR_ALLOC %s %lu\n",str,l);
- continue; }
- if(read(file,ixbbuf,l)!=l) {
- close(file);
- if(misc&AUTO) fclose(out);
- printf("\7ERR_READ %s %lu\n",str,l);
- FREE((char *)ixbbuf);
- continue; }
- close(file);
- sprintf(str,"%s%s.DAT",dir[i]->data_dir,dir[i]->code);
- if((file=nopen(str,O_RDONLY))==-1) {
- printf("\7ERR_OPEN %s %lu\n",str,O_RDONLY);
- FREE((char *)ixbbuf);
- if(misc&AUTO) fclose(out);
- continue; }
- datbuflen=filelength(file);
- if((datbuf=MALLOC(datbuflen))==NULL) {
- close(file);
- printf("\7ERR_ALLOC %s %lu\n",str,datbuflen);
- FREE((char *)ixbbuf);
- if(misc&AUTO) fclose(out);
- continue; }
- if(lread(file,datbuf,datbuflen)!=datbuflen) {
- close(file);
- printf("\7ERR_READ %s %lu\n",str,datbuflen);
- FREE((char *)datbuf);
- FREE((char *)ixbbuf);
- if(misc&AUTO) fclose(out);
- continue; }
- close(file);
- m=0L;
- while(m<l && !ferror(out)) {
- for(j=0;j<12 && m<l;j++)
- if(j==8)
- str[j]='.';
- else
- str[j]=ixbbuf[m++]; /* Turns FILENAMEEXT into FILENAME.EXT */
- str[j]=0;
- unpadfname(str,fname);
- fprintf(out,"%-12.12s",misc&PAD ? str : fname);
- total_files++;
- n=ixbbuf[m]|((long)ixbbuf[m+1]<<8)|((long)ixbbuf[m+2]<<16);
- uld=(ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)|((long)ixbbuf[m+5]<<16)
- |((long)ixbbuf[m+6]<<24));
- dld=(ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)|((long)ixbbuf[m+9]<<16)
- |((long)ixbbuf[m+10]<<24));
- m+=11;
-
- if(n>=datbuflen /* index out of bounds */
- || datbuf[n+F_DESC+LEN_FDESC]!=CR) { /* corrupted data */
- fprintf(stderr,"\n\7%s%s is corrupted!\n"
- ,dir[i]->data_dir,dir[i]->code);
- exit(-1); }
-
-
- if(misc&PLUS && datbuf[n+F_MISC]!=ETX
- && (datbuf[n+F_MISC]-SP)&FM_EXTDESC)
- fputc('+',out);
- else
- fputc(SP,out);
-
- desc_off=12;
- if(misc&(CDT_|TOT)) {
- getrec((char *)&datbuf[n],F_CDT,LEN_FCDT,str);
- cdt=atol(str);
- total_cdt+=cdt;
- if(misc&CDT_) {
- fprintf(out,"%7lu",cdt);
- desc_off+=7; } }
-
- if(misc&MINUS) {
- sprintf(str,"%s%s",dir[i]->path,fname);
- if(!fexist(str))
- fputc('-',out);
- else
- fputc(SP,out); }
- else
- fputc(SP,out);
- desc_off++;
-
- if(misc&DFD) {
- sprintf(str,"%s%s",dir[i]->path,fname);
- fprintf(out,"%s ",unixtodstr(fdate(str),str));
- desc_off+=9; }
-
- if(misc&ULD) {
- fprintf(out,"%s ",unixtodstr(uld,str));
- desc_off+=9; }
-
- if(misc&ULN) {
- getrec((char *)&datbuf[n],F_ULER,25,str);
- fprintf(out,"%-25s ",str);
- desc_off+=26; }
-
- if(misc&DLD) {
- fprintf(out,"%s ",unixtodstr(dld,str));
- desc_off+=9; }
-
- if(misc&DLS) {
- getrec((char *)&datbuf[n],F_TIMESDLED,5,str);
- j=atoi(str);
- fprintf(out,"%5u ",j);
- desc_off+=6; }
-
- if(datbuf[n+F_MISC]!=ETX && (datbuf[n+F_MISC]-SP)&FM_EXTDESC)
- ext=1; /* extended description exists */
- else
- ext=0; /* it doesn't */
-
- if(!(misc&NOD) && !(misc&NOE && ext)) {
- getrec((char *)&datbuf[n],F_DESC,LEN_FDESC,str);
- fprintf(out,"%s",str); }
-
- if(misc&EXT && ext) { /* Print ext desc */
-
- sprintf(str,"%s%s.EXB",dir[i]->data_dir,dir[i]->code);
- if(!fexist(str))
- continue;
- if((j=nopen(str,O_RDONLY))==-1) {
- printf("\7ERR_OPEN %s %lu\n",str,O_RDONLY);
- continue; }
- if((in=fdopen(j,"rb"))==NULL) {
- close(j);
- continue; }
- fseek(in,(n/F_LEN)*512L,SEEK_SET);
- lines=0;
- if(!(misc&NOE)) {
- fprintf(out,"\r\n");
- lines++; }
- while(!feof(in) && !ferror(in)
- && ftell(in)<((n/F_LEN)+1)*512L) {
- if(!fgets(str,128,in) || !str[0])
- break;
- stripctrlz(str);
- if(lines) {
- if(misc&JST)
- fprintf(out,"%*s",desc_off,"");
- fputc(SP,out); /* indent one character */ }
- fprintf(out,"%s",str);
- lines++; }
- fclose(in); }
- fprintf(out,"\r\n"); }
- FREE((char *)datbuf);
- FREE((char *)ixbbuf);
- fprintf(out,"\r\n"); /* blank line at end of dir */
- if(misc&AUTO) fclose(out); }
-
-if(misc&TOT && !(misc&AUTO))
- fprintf(out,"TOTALS\n------\n%lu credits/bytes in %lu files.\r\n"
- ,total_cdt,total_files);
-printf("\nDone.\n");
-return(0);
-}
diff --git a/src/sbbs2/filelist/makeall.bat b/src/sbbs2/filelist/makeall.bat
deleted file mode 100755
index d68900c3d3397527fe45f8723f77457287880eda..0000000000000000000000000000000000000000
--- a/src/sbbs2/filelist/makeall.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-@echo off
-wmake OS=DOS %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=DOSX %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=OS2 %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=NT %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-:end
-
diff --git a/src/sbbs2/filelist/makefile b/src/sbbs2/filelist/makefile
deleted file mode 100644
index 3621cb7c947dee31cbe46a367e18ce4bd0f7a139..0000000000000000000000000000000000000000
--- a/src/sbbs2/filelist/makefile
+++ /dev/null
@@ -1,89 +0,0 @@
-############################################
-# Makefile for Synchronet FILELIST Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;\watcom\h\os2;..;..\smb;..\rio
-
-
-!ifeq OS DOS
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -ml
-!else
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\
-!endif
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-!ifeq OS NT
-SYSTEM = NT
-!endif
-
-LFLAGS = option stack=16k system $(SYSTEM)
-
-MAIN = $(OS)\filelist.exe
-OBJS = $(OS)\filelist.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\ars.obj $(OS)\scfglib2.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\scfglib2.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_MSGS_CFG &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
diff --git a/src/sbbs2/filelist/makefile.bc b/src/sbbs2/filelist/makefile.bc
deleted file mode 100644
index accee0fd8e9879c9126cfa1e37ec5c29275f6cae..0000000000000000000000000000000000000000
--- a/src/sbbs2/filelist/makefile.bc
+++ /dev/null
@@ -1,76 +0,0 @@
-############################################
-# Makefile for Synchronet FILELIST Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE)
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-!endif
-MAIN = $(OS)\filelist.exe
-OBJS = $(OS)\filelist.obj $(OS)\scfgvars.obj $(OS)\ars.obj \
- $(OS)\scfglib1.obj $(OS)\scfglib2.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL).obj $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Global Variables
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c \
- ..\scfglib.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_XTRN_CFG
--DNO_TEXT_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib2.c ..\scfgvars.c \
- ..\scfglib.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_MSGS_CFG
--DNO_XTRN_CFG
--DNO_TEXT_CFG
--DNO_CHAT_CFG
-! ..\$&.c
diff --git a/src/sbbs2/gen_defs.h b/src/sbbs2/gen_defs.h
deleted file mode 100644
index 48f343082f7b5a99b9d58bcc496605be90d1073f..0000000000000000000000000000000000000000
--- a/src/sbbs2/gen_defs.h
+++ /dev/null
@@ -1,73 +0,0 @@
-/* GEN_DEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _GEN_DEFS_H
-#define _GEN_DEFS_H
-
-/************************************************************************/
-/* General (application independant) type definitions and macros */
-/* tabstop: 4 (as usual) */
-/************************************************************************/
-
- /* Control characters */
-#define STX 0x02 /* Start of text ^B */
-#define ETX 0x03 /* End of text ^C */
-#define BS 0x08 /* Back space ^H */
-#define TAB 0x09 /* Horizontal tabulation ^I */
-#define LF 0x0a /* Line feed ^J */
-#define FF 0x0c /* Form feed ^L */
-#define CR 0x0d /* Carriage return ^M */
-#define ESC 0x1b /* Escape ^[ */
-#define SP 0x20 /* Space */
-
- /* Unsigned type short-hands */
-#define uchar unsigned char
-#define ushort unsigned short
-#define uint unsigned int
-#define ulong unsigned long
-
-/****************************************************************************/
-/* MALLOC/FREE Macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/* FAR16 is used to create a far (32-bit) pointer in 16-bit compilers */
-/* HUGE16 is used to create a huge (32-bit) pointer in 16-bit compilers */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
- #define HUGE16 huge
- #define FAR16 far
- #if defined(__TURBOC__)
- #define REALLOC(x,y) farrealloc(x,y)
- #define LMALLOC(x) farmalloc(x)
- #define MALLOC(x) farmalloc(x)
- #define LFREE(x) farfree(x)
- #define FREE(x) farfree(x)
- #elif defined(__WATCOMC__)
- #define REALLOC realloc
- #define LMALLOC(x) halloc(x,1) /* far heap, but slow */
- #define MALLOC malloc /* far heap, but 64k max */
- #define LFREE hfree
- #define FREE free
- #else /* Other 16-bit Compiler */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
- #endif
-#else /* 32-bit Compiler or Small Memory Model */
- #define HUGE16
- #define FAR16
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
-#endif
-
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/genetext.c b/src/sbbs2/genetext.c
deleted file mode 100644
index 4f2b8e928ea968f90a354bd37bac65322887e3b5..0000000000000000000000000000000000000000
--- a/src/sbbs2/genetext.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/* GENETEXT.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Creates the file ETEXT.C which has the encrypted text strings for use in */
-/* Synchronet */
-
-#include <stdio.h>
-
-void cvtusc(char *str)
-{
- int i;
-
-for(i=0;str[i];i++)
- if(str[i]=='_')
- str[i]=' ';
-}
-
-void main()
-{
- unsigned char str[129],bits,len;
- unsigned int i,j;
- unsigned long l,m;
- FILE *in,*cout,*hout;
-
-if((in=fopen("ETEXT.DAT","rb"))==NULL) {
- printf("can't open ETEXT.DAT\n");
- return; }
-
-if((cout=fopen("ETEXT.C","wb"))==NULL) {
- printf("can't create ETEXT.C\n");
- return; }
-
-if((hout=fopen("ETEXT.H","wb"))==NULL) {
- printf("can't create ETEXT.H\n");
- return; }
-
-fprintf(cout,"/* ETEXT.C */\r\n\r\n#include \"etext.h\"\r\n\r\n");
-fprintf(hout,"/* ETEXT.H */\r\n\r\n");
-while(!feof(in)) {
- if(!fgets(str,127,in))
- break;
- str[strlen(str)-3]=0; /* chop off :crlf */
- if(!str[0])
- break;
- fprintf(hout,"extern unsigned long %s[];\r\n",str);
- fprintf(cout,"unsigned long %s[]={ ",str);
- if(!fgets(str,127,in))
- break;
- str[strlen(str)-2]=0; /* chop off crlf */
- if(!str[0])
- break;
- cvtusc(str);
- len=strlen(str);
- l=len^0x49;
- bits=7;
- for(i=0,j=1;i<len;i++) {
- m=(unsigned long)(str[i]^(i^0x2c));
- l|=(m<<bits);
- bits+=7;
- if(bits>=32) {
- fprintf(cout,"%luUL,",l);
- j++;
- l=0UL;
- bits-=32;
- if(bits)
- l=(unsigned long)(str[i]^(i^0x2c))>>(7-bits); } }
- fprintf(cout,"%luUL };\r\n",l); }
-}
diff --git a/src/sbbs2/genetext.exe b/src/sbbs2/genetext.exe
deleted file mode 100755
index c32166f2a87e36f619d76773a88708fe7ab01ebc..0000000000000000000000000000000000000000
Binary files a/src/sbbs2/genetext.exe and /dev/null differ
diff --git a/src/sbbs2/getnode.c b/src/sbbs2/getnode.c
deleted file mode 100644
index fdfb3be4dc5a35a198f15cabd4b0146859adf6be..0000000000000000000000000000000000000000
--- a/src/sbbs2/getnode.c
+++ /dev/null
@@ -1,248 +0,0 @@
-#line 1 "GETNODE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-/****************************************************************************/
-/* Reads the data for node number 'number' into the structure 'node' */
-/* from NODE.DAB */
-/* if lockit is non-zero, locks this node's record. putnodedat() unlocks it */
-/****************************************************************************/
-void getnodedat(uint number, node_t *node, char lockit)
-{
- char str[256];
- int count=0;
-
-if(!(sys_status&SS_NODEDAB))
- return;
-if(!number || number>sys_nodes) {
- errormsg(WHERE,ERR_CHK,"node number",number);
- return; }
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- if(count>10)
- mswait(55);
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(lockit
- && lock(nodefile,(long)number*sizeof(node_t),sizeof(node_t))==-1) {
- count++;
- continue; }
- if(read(nodefile,node,sizeof(node_t))==sizeof(node_t))
- break;
- count++; }
-if(count>(LOOP_NODEDAB/2) && count!=LOOP_NODEDAB) {
- sprintf(str,"NODE.DAB COLLISION - Count: %d",count);
- logline("!!",str); }
-if(count==LOOP_NODEDAB) {
- errormsg(WHERE,ERR_READ,"NODE.DAB",number+1);
- return; }
-}
-
-/****************************************************************************/
-/* Synchronizes all the nodes knowledge of the other nodes' actions, mode, */
-/* status and other flags. */
-/* Assumes that getnodedat(node_num,&thisnode,0) was called right before it */
-/* is called. */
-/****************************************************************************/
-void nodesync()
-{
- static user_t user;
- static int inside;
- char str[256],today[32];
- int i,j,atr=curatr; /* was lclatr(-1) 01/29/96 */
- node_t node;
-
-if(inside) return;
-inside=1;
-
-if(thisnode.action!=action) {
- getnodedat(node_num,&thisnode,1);
- thisnode.action=action;
- putnodedat(node_num,thisnode); }
-
-criterrs=thisnode.errors;
-
-if(sys_status&SS_USERON) {
- if(!(sys_status&SS_NEWDAY)) {
- now=time(NULL);
- unixtodstr(logontime,str);
- unixtodstr(now,today);
- if(strcmp(str,today)) { /* New day, clear "today" user vars */
- sys_status|=SS_NEWDAY; // So we don't keep doing this over&over
- putuserrec(useron.number,U_ETODAY,5,"0");
- putuserrec(useron.number,U_PTODAY,5,"0");
- putuserrec(useron.number,U_TTODAY,5,"0");
- putuserrec(useron.number,U_LTODAY,5,"0");
- putuserrec(useron.number,U_TEXTRA,5,"0");
- putuserrec(useron.number,U_FREECDT,10
- ,ultoa(level_freecdtperday[useron.level],str,10));
- getuserdat(&useron); } }
- if(thisnode.misc&NODE_UDAT && !(useron.rest&FLAG('G'))) { /* not guest */
- getuserdat(&useron);
- getnodedat(node_num,&thisnode,1);
- thisnode.misc&=~NODE_UDAT;
- putnodedat(node_num,thisnode); }
- if(thisnode.misc&NODE_MSGW)
- getsmsg(useron.number); /* getsmsg clears MSGW flag */
- if(thisnode.misc&NODE_NMSG)
- getnmsg(); } /* getnmsg clears NMSG flag */
-
-if(sync_mod[0])
- exec_bin(sync_mod,&main_csi);
-
-if(thisnode.misc&NODE_INTR) {
- bputs(text[NodeLocked]);
- logline(nulstr,"Interrupted");
- hangup();
- inside=0;
- return; }
-
-if(sys_status&SS_USERON && memcmp(&user,&useron,sizeof(user_t))) {
-// lputc(7);
- getusrdirs();
- getusrsubs();
- user=useron; }
-
-if(sys_status&SS_USERON && online && (timeleft/60)<(5-timeleft_warn)
- && !SYSOP) {
- timeleft_warn=5-(timeleft/60);
- attr(LIGHTGRAY);
- bprintf(text[OnlyXminutesLeft]
- ,((ushort)timeleft/60)+1,(timeleft/60) ? "s" : nulstr); }
-
-attr(atr); /* replace original attributes */
-inside=0;
-}
-
-/****************************************************************************/
-/* Prints short messages waiting for this node, if any... */
-/****************************************************************************/
-void getnmsg()
-{
- char str[256], HUGE16 *buf;
- int file;
- long length;
-
-getnodedat(node_num,&thisnode,1);
-thisnode.misc&=~NODE_NMSG; /* clear the NMSG flag */
-putnodedat(node_num,thisnode);
-
-#if 0
-/* Only for v1b rev 2-5 and XSDK v2.1x compatibility */
-sprintf(str,"%sMSGS\\N%3.3u.IXB",data_dir,node_num);
-if((ixb=nopen(str,O_RDONLY))!=-1) {
- read(ixb,&offset,4);
- chsize(ixb,0L);
- close(ixb);
- remove(str); }
-#endif
-
-sprintf(str,"%sMSGS\\N%3.3u.MSG",data_dir,node_num);
-if(flength(str)<1L)
- return;
-if((file=nopen(str,O_RDWR))==-1) {
- /**
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- **/
- return; }
-length=filelength(file);
-if(!length) {
- close(file);
- return; }
-if((buf=LMALLOC(length+1))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length+1);
- return; }
-if(lread(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- errormsg(WHERE,ERR_READ,str,length);
- return; }
-chsize(file,0L);
-close(file);
-buf[length]=0;
-
-if(thisnode.action==NODE_MAIN || thisnode.action==NODE_XFER
- || sys_status&SS_IN_CTRLP) {
- CRLF; }
-putmsg(buf,P_NOATCODES);
-LFREE(buf);
-}
-
-/****************************************************************************/
-/* 'ext' must be at least 128 bytes! */
-/****************************************************************************/
-void getnodeext(uint number, char *ext)
-{
- char str[256];
- int count=0;
-
-if(!(sys_status&SS_NODEDAB))
- return;
-if(!number || number>sys_nodes) {
- errormsg(WHERE,ERR_CHK,"node number",number);
- return; }
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- if(count>10)
- mswait(55);
- if(lock(node_ext,(long)number*128L,128)==-1) {
- count++;
- continue; }
- lseek(node_ext,(long)number*128L,SEEK_SET);
- if(read(node_ext,ext,128)==128)
- break;
- count++; }
-unlock(node_ext,(long)number*128L,128);
-if(count>(LOOP_NODEDAB/2) && count!=LOOP_NODEDAB) {
- sprintf(str,"NODE.EXB COLLISION - Count: %d",count);
- logline("!!",str); }
-if(count==LOOP_NODEDAB) {
- errormsg(WHERE,ERR_READ,"NODE.EXB",number+1);
- return; }
-}
-
-
-/****************************************************************************/
-/* Prints short messages waiting for 'usernumber', if any... */
-/* then deletes them. */
-/****************************************************************************/
-void getsmsg(int usernumber)
-{
- char str[256], HUGE16 *buf;
- int file;
- long length;
-
-sprintf(str,"%sMSGS\\%4.4u.MSG",data_dir,usernumber);
-if(flength(str)<1L)
- return;
-if((file=nopen(str,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return; }
-length=filelength(file);
-if((buf=LMALLOC(length+1))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length+1);
- return; }
-if(lread(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- errormsg(WHERE,ERR_READ,str,length);
- return; }
-chsize(file,0L);
-close(file);
-buf[length]=0;
-getnodedat(node_num,&thisnode,0);
-if(thisnode.action==NODE_MAIN || thisnode.action==NODE_XFER
- || sys_status&SS_IN_CTRLP) {
- CRLF; }
-if(thisnode.misc&NODE_MSGW) {
- getnodedat(node_num,&thisnode,1);
- thisnode.misc&=~NODE_MSGW;
- putnodedat(node_num,thisnode); }
-putmsg(buf,P_NOATCODES);
-LFREE(buf);
-}
-
diff --git a/src/sbbs2/getuser.c b/src/sbbs2/getuser.c
deleted file mode 100644
index 313dbce0b025213694dedf3254dc7ba49b2ef5c5..0000000000000000000000000000000000000000
--- a/src/sbbs2/getuser.c
+++ /dev/null
@@ -1,429 +0,0 @@
-#line 1 "GETUSER.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-/****************************************************************************/
-/* Fills the structure 'user' with info for user.number from USER.DAT */
-/* Called from functions useredit, waitforcall and main_sec */
-/****************************************************************************/
-void getuserdat(user_t *user)
-{
- uchar userdat[U_LEN+1],str[U_LEN+1];
- int i,file;
-
-if(!user->number || user->number>lastuser()) {
- memset(user,0L,sizeof(user_t));
- user->number=0;
- return; }
-sprintf(userdat,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(userdat,O_RDONLY|O_DENYNONE))==-1) {
- close(file);
- memset(user,0L,sizeof(user_t));
- user->number=0;
- return; }
-lseek(file,(long)((long)(user->number-1)*U_LEN),SEEK_SET);
-i=0;
-while(i<LOOP_NODEDAB
- && lock(file,(long)((long)(user->number-1)*U_LEN),U_LEN)==-1) {
- if(i>10)
- mswait(55);
- i++; }
-
-if(i>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",user->number);
- memset(user,0L,sizeof(user_t));
- user->number=0;
- return; }
-
-if(read(file,userdat,U_LEN)!=U_LEN) {
- unlock(file,(long)((long)(user->number-1)*U_LEN),U_LEN);
- close(file);
- errormsg(WHERE,ERR_READ,"USER.DAT",U_LEN);
- memset(user,0L,sizeof(user_t));
- user->number=0;
- return; }
-
-unlock(file,(long)((long)(user->number-1)*U_LEN),U_LEN);
-close(file);
-getrec(userdat,U_ALIAS,LEN_ALIAS,user->alias);
-/* order of these function */
-getrec(userdat,U_NAME,LEN_NAME,user->name);
-/* calls is irrelevant */
-getrec(userdat,U_HANDLE,LEN_HANDLE,user->handle);
-getrec(userdat,U_NOTE,LEN_NOTE,user->note);
-getrec(userdat,U_COMP,LEN_COMP,user->comp);
-getrec(userdat,U_COMMENT,LEN_COMMENT,user->comment);
-getrec(userdat,U_NETMAIL,LEN_NETMAIL,user->netmail);
-getrec(userdat,U_ADDRESS,LEN_ADDRESS,user->address);
-getrec(userdat,U_LOCATION,LEN_LOCATION,user->location);
-getrec(userdat,U_ZIPCODE,LEN_ZIPCODE,user->zipcode);
-getrec(userdat,U_PASS,LEN_PASS,user->pass);
-getrec(userdat,U_PHONE,LEN_PHONE,user->phone);
-getrec(userdat,U_BIRTH,LEN_BIRTH,user->birth);
-getrec(userdat,U_MODEM,LEN_MODEM,user->modem);
-getrec(userdat,U_LASTON,8,str); user->laston=ahtoul(str);
-getrec(userdat,U_FIRSTON,8,str); user->firston=ahtoul(str);
-getrec(userdat,U_EXPIRE,8,str); user->expire=ahtoul(str);
-getrec(userdat,U_PWMOD,8,str); user->pwmod=ahtoul(str);
-getrec(userdat,U_NS_TIME,8,str);
-user->ns_time=ahtoul(str);
-if(user->ns_time<0x20000000L)
- user->ns_time=user->laston; /* Fix for v2.00->v2.10 */
-
-getrec(userdat,U_LOGONS,5,str); user->logons=atoi(str);
-getrec(userdat,U_LTODAY,5,str); user->ltoday=atoi(str);
-getrec(userdat,U_TIMEON,5,str); user->timeon=atoi(str);
-getrec(userdat,U_TEXTRA,5,str); user->textra=atoi(str);
-getrec(userdat,U_TTODAY,5,str); user->ttoday=atoi(str);
-getrec(userdat,U_TLAST,5,str); user->tlast=atoi(str);
-getrec(userdat,U_POSTS,5,str); user->posts=atoi(str);
-getrec(userdat,U_EMAILS,5,str); user->emails=atoi(str);
-getrec(userdat,U_FBACKS,5,str); user->fbacks=atoi(str);
-getrec(userdat,U_ETODAY,5,str); user->etoday=atoi(str);
-getrec(userdat,U_PTODAY,5,str); user->ptoday=atoi(str);
-getrec(userdat,U_ULB,10,str); user->ulb=atol(str);
-getrec(userdat,U_ULS,5,str); user->uls=atoi(str);
-getrec(userdat,U_DLB,10,str); user->dlb=atol(str);
-getrec(userdat,U_DLS,5,str); user->dls=atoi(str);
-getrec(userdat,U_CDT,10,str); user->cdt=atol(str);
-getrec(userdat,U_MIN,10,str); user->min=atol(str);
-getrec(userdat,U_LEVEL,2,str); user->level=atoi(str);
-getrec(userdat,U_FLAGS1,8,str); user->flags1=ahtoul(str); /***
-getrec(userdat,U_TL,2,str); user->tl=atoi(str); ***/
-getrec(userdat,U_FLAGS2,8,str); user->flags2=ahtoul(str);
-getrec(userdat,U_FLAGS3,8,str); user->flags3=ahtoul(str);
-getrec(userdat,U_FLAGS4,8,str); user->flags4=ahtoul(str);
-getrec(userdat,U_EXEMPT,8,str); user->exempt=ahtoul(str);
-getrec(userdat,U_REST,8,str); user->rest=ahtoul(str);
-getrec(userdat,U_ROWS,2,str); user->rows=atoi(str);
-if(user->rows && user->rows<10)
- user->rows=10;
-user->sex=userdat[U_SEX];
-if(!user->sex)
- user->sex=SP; /* fix for v1b04 that could save as 0 */
-user->prot=userdat[U_PROT];
-if(user->prot<SP)
- user->prot=SP;
-getrec(userdat,U_MISC,8,str); user->misc=ahtoul(str);
-if(user->rest&FLAG('Q'))
- user->misc&=~SPIN;
-
-getrec(userdat,U_LEECH,2,str);
-user->leech=(uchar)ahtoul(str);
-getrec(userdat,U_CURSUB,8,useron.cursub);
-getrec(userdat,U_CURDIR,8,useron.curdir);
-
-getrec(userdat,U_FREECDT,10,str);
-user->freecdt=atol(str);
-
-getrec(userdat,U_XEDIT,8,str);
-for(i=0;i<total_xedits;i++)
- if(!stricmp(str,xedit[i]->code) && chk_ar(xedit[i]->ar,*user))
- break;
-user->xedit=i+1;
-if(user->xedit>total_xedits)
- user->xedit=0;
-
-getrec(userdat,U_SHELL,8,str);
-for(i=0;i<total_shells;i++)
- if(!stricmp(str,shell[i]->code))
- break;
-if(i==total_shells)
- i=0;
-user->shell=i;
-
-getrec(userdat,U_QWK,8,str);
-if(str[0]<SP) { /* v1c, so set defaults */
- if(user->rest&FLAG('Q'))
- user->qwk=(QWK_RETCTLA);
- else
- user->qwk=(QWK_FILES|QWK_ATTACH|QWK_EMAIL|QWK_DELMAIL); }
-else
- user->qwk=ahtoul(str);
-
-getrec(userdat,U_TMPEXT,3,user->tmpext);
-if((!user->tmpext[0] || !strcmp(user->tmpext,"0")) && total_fcomps)
- strcpy(user->tmpext,fcomp[0]->ext); /* For v1x to v2x conversion */
-
-getrec(userdat,U_CHAT,8,str);
-user->chat=ahtoul(str);
-
-if(useron.number==user->number) {
- useron=*user;
-
- if(online) {
-
-#if 0
- getusrdirs();
- getusrsubs();
-#endif
- if(useron.misc&AUTOTERM) {
- useron.misc&=~(ANSI|RIP|WIP);
- useron.misc|=autoterm; }
- statusline(); } }
-}
-
-
-/****************************************************************************/
-/* Returns the username in 'str' that corresponds to the 'usernumber' */
-/* Called from functions everywhere */
-/****************************************************************************/
-char *username(int usernumber,char *strin)
-{
- char str[256];
- char c;
- int file;
-
-if(usernumber<1) {
- strin[0]=0;
- return(strin); }
-sprintf(str,"%sUSER\\NAME.DAT",data_dir);
-if(flength(str)<1L) {
- strin[0]=0;
- return(strin); }
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- strin[0]=0;
- return(strin); }
-if(filelength(file)<(long)((long)usernumber*(LEN_ALIAS+2))) {
- close(file);
- strin[0]=0;
- return(strin); }
-lseek(file,(long)((long)(usernumber-1)*(LEN_ALIAS+2)),SEEK_SET);
-read(file,strin,LEN_ALIAS);
-close(file);
-for(c=0;c<LEN_ALIAS;c++)
- if(strin[c]==ETX) break;
-strin[c]=0;
-if(!c)
- strcpy(strin,"DELETED USER");
-return(strin);
-}
-
-/****************************************************************************/
-/* Fills the timeleft variable with the correct value. Hangs up on the */
-/* user if their time is up. */
-/* Called from functions main_sec and xfer_sec */
-/****************************************************************************/
-void gettimeleft(void)
-{
- static inside;
- char str[128];
- int i;
- time_t eventtime=0,thisevent;
- long tleft;
- struct date lastdate;
- struct tm *gm;
-
-now=time(NULL);
-
-gm=localtime(&now);
-if(useron.exempt&FLAG('T')) { /* Time online exemption */
- timeleft=level_timepercall[useron.level]*60;
- if(timeleft<10) /* never get below 10 for exempt users */
- timeleft=10; }
-else {
- tleft=(((long)level_timeperday[useron.level]-useron.ttoday)
- +useron.textra)*60L;
- if(tleft<0) tleft=0;
- if(tleft>level_timepercall[useron.level]*60)
- tleft=level_timepercall[useron.level]*60;
- tleft+=useron.min*60L;
- tleft-=now-starttime;
- if(tleft>0x7fffL)
- timeleft=0x7fff;
- else
- timeleft=tleft; }
-
-/* Timed event time reduction handler */
-
-for(i=0;i<total_events;i++) {
- if(!event[i]->node || event[i]->node>sys_nodes)
- continue;
- if(!(event[i]->misc&EVENT_FORCE)
- || (!(event[i]->misc&EVENT_EXCL) && event[i]->node!=node_num)
- || !(event[i]->days&(1<<gm->tm_wday)))
- continue;
- unixtodos(event[i]->last,&lastdate,&curtime);
- unixtodos(now,&date,&curtime);
- curtime.ti_hour=event[i]->time/60; /* hasn't run yet today */
- curtime.ti_min=event[i]->time-(curtime.ti_hour*60);
- curtime.ti_sec=0;
- thisevent=dostounix(&date,&curtime);
- if(date.da_day==lastdate.da_day && date.da_mon==lastdate.da_mon)
- thisevent+=24L*60L*60L; /* already ran today, so add 24hrs */
- if(!eventtime || thisevent<eventtime)
- eventtime=thisevent; }
-if(eventtime && now+timeleft>eventtime) { /* less time, set flag */
- sys_status|=SS_EVENT;
- timeleft=eventtime-now; }
-
-/* Event time passed by front-end */
-if(next_event && (next_event<now || next_event-now<timeleft)) {
- timeleft=next_event-now;
- sys_status|=SS_EVENT; }
-
-if(timeleft<0) /* timeleft can't go negative */
- timeleft=0;
-if(thisnode.status==NODE_NEWUSER) {
- timeleft=level_timepercall[new_level];
- if(timeleft<10*60L)
- timeleft=10*60L; }
-
-if(inside) /* The following code is not recursive */
- return;
-inside=1;
-
-if(!timeleft && !SYSOP && !(sys_status&SS_LCHAT)) {
- logline(nulstr,"Ran out of time");
- SAVELINE;
- bputs(text[TimesUp]);
- if(!(sys_status&(SS_EVENT|SS_USERON)) && useron.cdt>=100L*1024L
- && !(sys_misc&SM_NOCDTCVT)) {
- sprintf(tmp,text[Convert100ktoNminQ],cdt_min_value);
- if(yesno(tmp)) {
- logline(" ","Credit to Minute Conversion");
- useron.min=adjustuserrec(useron.number,U_MIN,10,cdt_min_value);
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,-(102400L));
- sprintf(str,"Credit Adjustment: %ld",-(102400L));
- logline("$-",str);
- sprintf(str,"Minute Adjustment: %u",cdt_min_value);
- logline("*+",str);
- RESTORELINE;
- gettimeleft();
- inside=0;
- return; } }
- if(sys_misc&SM_TIME_EXP && !(sys_status&SS_EVENT)
- && !(useron.exempt&FLAG('E'))) {
- /* set to expired values */
- bputs(text[AccountHasExpired]);
- sprintf(str,"%s Expired",useron.alias);
- logentry("!%",str);
- if(level_misc[useron.level]&LEVEL_EXPTOVAL
- && level_expireto[useron.level]<10) {
- useron.flags1=val_flags1[level_expireto[useron.level]];
- useron.flags2=val_flags2[level_expireto[useron.level]];
- useron.flags3=val_flags3[level_expireto[useron.level]];
- useron.flags4=val_flags4[level_expireto[useron.level]];
- useron.exempt=val_exempt[level_expireto[useron.level]];
- useron.rest=val_rest[level_expireto[useron.level]];
- if(val_expire[level_expireto[useron.level]])
- useron.expire=now
- +(val_expire[level_expireto[useron.level]]*24*60*60);
- else
- useron.expire=0;
- useron.level=val_level[level_expireto[useron.level]]; }
- else {
- if(level_misc[useron.level]&LEVEL_EXPTOLVL)
- useron.level=level_expireto[useron.level];
- else
- useron.level=expired_level;
- useron.flags1&=~expired_flags1; /* expired status */
- useron.flags2&=~expired_flags2; /* expired status */
- useron.flags3&=~expired_flags3; /* expired status */
- useron.flags4&=~expired_flags4; /* expired status */
- useron.exempt&=~expired_exempt;
- useron.rest|=expired_rest;
- useron.expire=0; }
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,str,10));
- putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,str,16));
- putuserrec(useron.number,U_FLAGS2,8,ultoa(useron.flags2,str,16));
- putuserrec(useron.number,U_FLAGS3,8,ultoa(useron.flags3,str,16));
- putuserrec(useron.number,U_FLAGS4,8,ultoa(useron.flags4,str,16));
- putuserrec(useron.number,U_EXPIRE,8,ultoa(useron.expire,str,16));
- putuserrec(useron.number,U_EXEMPT,8,ultoa(useron.exempt,str,16));
- putuserrec(useron.number,U_REST,8,ultoa(useron.rest,str,16));
- if(expire_mod[0])
- exec_bin(expire_mod,&main_csi);
- RESTORELINE;
- gettimeleft();
- inside=0;
- return; }
- SYNC;
- hangup(); }
-inside=0;
-}
-
-/****************************************************************************/
-/* Places into 'strout' CR or ETX terminated string starting at */
-/* 'start' and ending at 'start'+'length' or terminator from 'strin' */
-/****************************************************************************/
-void getrec(char *strin,int start,int length,char *strout)
-{
- int i=0,stop;
-
-stop=start+length;
-while(start<stop) {
- if(strin[start]==ETX || strin[start]==CR || strin[start]==LF)
- break;
- strout[i++]=strin[start++]; }
-strout[i]=0;
-}
-
-/****************************************************************************/
-/* Places into 'strout', 'strin' starting at 'start' and ending at */
-/* 'start'+'length' */
-/****************************************************************************/
-void putrec(char *strout,int start,int length,char *strin)
-{
- int i=0,j;
-
-j=strlen(strin);
-while(i<j && i<length)
- strout[start++]=strin[i++];
-while(i++<length)
- strout[start++]=ETX;
-}
-
-
-/****************************************************************************/
-/* Returns the age derived from the string 'birth' in the format MM/DD/YY */
-/* Called from functions statusline, main_sec, xfer_sec, useredit and */
-/* text files */
-/****************************************************************************/
-char getage(char *birth)
-{
- char age;
-
-if(!atoi(birth) || !atoi(birth+3)) /* Invalid */
- return(0);
-getdate(&date);
-age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf));
-if(age>90)
- age-=90;
-if(sys_misc&SM_EURODATE) { /* DD/MM/YY format */
- if(atoi(birth)>31 || atoi(birth+3)>12)
- return(0);
- if(((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_mon ||
- (((birth[3]&0xf)*10)+(birth[4]&0xf)==date.da_mon &&
- ((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_day))
- age--; }
-else { /* MM/DD/YY format */
- if(atoi(birth)>12 || atoi(birth+3)>31)
- return(0);
- if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon ||
- (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon &&
- ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day))
- age--; }
-if(age<0)
- return(0);
-return(age);
-}
-
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
diff --git a/src/sbbs2/initdata.c b/src/sbbs2/initdata.c
deleted file mode 100644
index c02305fd6d17cf0962718dc1caefd4fc9907b712..0000000000000000000000000000000000000000
--- a/src/sbbs2/initdata.c
+++ /dev/null
@@ -1,239 +0,0 @@
-#line 1 "INITDATA.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/**************************************************************************/
-/* This file contains the function initdata() and its exclusive functions */
-/**************************************************************************/
-
-#include "sbbs.h"
-
-/****************************************************************/
-/* Prototypes of functions that are called only by initdata() */
-/****************************************************************/
-void md(char *path);
-char *readtext(long *line, FILE *stream);
-
-/****************************************************************************/
-/* Initializes system and node configuration information and data variables */
-/****************************************************************************/
-void initdata()
-{
- char str[256],str2[LEN_ALIAS+1],fname[13];
- int file;
- uint i,j;
- long l,line=0L;
- FILE *instream;
- read_cfg_text_t txt;
-
-txt.openerr="\7\r\nError opening %s for read.\r\n";
-txt.reading="\r\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\r\nError allocating %u bytes of memory\r\n";
-txt.error="\7\r\nERROR: Offset %lu in %s\r\n\r\n";
-
-read_node_cfg(txt);
-read_main_cfg(txt);
-read_msgs_cfg(txt);
-read_file_cfg(txt);
-read_xtrn_cfg(txt);
-read_chat_cfg(txt);
-read_attr_cfg(txt);
-
-strcpy(fname,"TEXT.DAT");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-lprintf(txt.reading,fname);
-for(i=0;i<TOTAL_TEXT && !feof(instream) && !ferror(instream);i++)
- if((text[i]=text_sav[i]=readtext(&line,instream))==NULL)
- i--;
-if(i<TOTAL_TEXT) {
- lprintf(txt.error,line,fname);
- lprintf("Less than TOTAL_TEXT (%u) strings defined in %s\r\n"
- ,TOTAL_TEXT,fname);
- bail(1); }
-/****************************/
-/* Read in static text data */
-/****************************/
-fclose(instream);
-lprintf(txt.readit,fname);
-
-strcpy(str,temp_dir);
-if(strcmp(str+1,":\\")) /* not root directory */
- str[strlen(str)-1]=0; /* chop off '\' */
-md(str);
-
-for(i=0;i<=sys_nodes;i++) {
- sprintf(str,"%sDSTS.DAB",i ? node_path[i-1] : ctrl_dir);
- if(flength(str)<DSTSDABLEN) {
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- lprintf("\7\r\nError creating %s\r\n",str);
- bail(1); }
- while(filelength(file)<DSTSDABLEN)
- if(write(file,"\0",1)!=1)
- break; /* Create NULL system dsts.dab */
- close(file); } }
-
-j=0;
-sprintf(str,"%sUSER\\USER.DAT",data_dir);
-if((l=flength(str))>0L) {
- if(l%U_LEN) {
- lprintf("\7\r\n%s is not evenly divisable by U_LEN (%d)\r\n"
- ,str,U_LEN);
- bail(1); }
- j=lastuser(); }
-if(node_valuser>j) /* j still equals last user */
- node_valuser=1;
-sys_status|=SS_INITIAL;
-#ifdef __MSDOS__
-freedosmem=farcoreleft();
-#endif
-}
-
-/****************************************************************************/
-/* If the directory 'path' doesn't exist, create it. */
-/****************************************************************************/
-void md(char *path)
-{
- struct ffblk ff;
-
-if(findfirst(path,&ff,FA_DIREC)) {
- lprintf("\r\nCreating Directory %s... ",path);
- if(mkdir(path)) {
- lprintf("\7failed!\r\nFix configuration or make directory by "
- "hand.\r\n");
- bail(1); }
- lputs(crlf); }
-}
-
-/****************************************************************************/
-/* Reads special TEXT.DAT printf style text lines, splicing multiple lines, */
-/* replacing escaped characters, and allocating the memory */
-/****************************************************************************/
-char *readtext(long *line,FILE *stream)
-{
- char buf[2048],str[2048],*p,*p2;
- int i,j,k;
-
-if(!fgets(buf,256,stream))
- return(NULL);
-if(line)
- (*line)++;
-if(buf[0]=='#')
- return(NULL);
-p=strrchr(buf,'"');
-if(!p) {
- if(line) {
- lprintf("\7\r\nNo quotation marks in line %d of TEXT.DAT\r\n",*line);
- bail(1); }
- return(NULL); }
-if(*(p+1)=='\\') /* merge multiple lines */
- while(strlen(buf)<2000) {
- if(!fgets(str,255,stream))
- return(NULL);
- if(line)
- (*line)++;
- p2=strchr(str,'"');
- if(!p2)
- continue;
- strcpy(p,p2+1);
- p=strrchr(p,'"');
- if(p && *(p+1)=='\\')
- continue;
- break; }
-*(p)=0;
-k=strlen(buf);
-for(i=1,j=0;i<k;j++) {
- if(buf[i]=='\\') { /* escape */
- i++;
- if(isdigit(buf[i])) {
- str[j]=atoi(buf+i); /* decimal, NOT octal */
- if(isdigit(buf[++i])) /* skip up to 3 digits */
- if(isdigit(buf[++i]))
- i++;
- continue; }
- switch(buf[i++]) {
- case '\\':
- str[j]='\\';
- break;
- case '?':
- str[j]='?';
- break;
- case 'x':
- tmp[0]=buf[i++]; /* skip next character */
- tmp[1]=0;
- if(isxdigit(buf[i])) { /* if another hex digit, skip too */
- tmp[1]=buf[i++];
- tmp[2]=0; }
- str[j]=(char)ahtoul(tmp);
- break;
- case '\'':
- str[j]='\'';
- break;
- case '"':
- str[j]='"';
- break;
- case 'r':
- str[j]=CR;
- break;
- case 'n':
- str[j]=LF;
- break;
- case 't':
- str[j]=TAB;
- break;
- case 'b':
- str[j]=BS;
- break;
- case 'a':
- str[j]=7; /* BEL */
- break;
- case 'f':
- str[j]=FF;
- break;
- case 'v':
- str[j]=11; /* VT */
- break;
- default:
- str[j]=buf[i];
- break; }
- continue; }
- str[j]=buf[i++]; }
-str[j]=0;
-if((p=(char *)MALLOC(j+1))==NULL) {
- lprintf("\7\r\nError allocating %u bytes of memory from TEXT.DAT\r\n",j);
- bail(1); }
-strcpy(p,str);
-return(p);
-}
-
-/****************************************************************************/
-/* Reads in ATTR.CFG and initializes the associated variables */
-/****************************************************************************/
-void read_attr_cfg(read_cfg_text_t txt)
-{
- char str[256],fname[13];
- int file,i;
- long offset=0;
- FILE *instream;
-
-strcpy(fname,"ATTR.CFG");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-lprintf(txt.reading,fname);
-for(i=0;i<TOTAL_COLORS && !feof(instream) && !ferror(instream);i++) {
- readline(&offset,str,4,instream);
- color[i]=attrstr(str); }
-if(i<TOTAL_COLORS) {
- lprintf(txt.error,offset,fname);
- lprintf("Less than TOTAL_COLORS (%u) defined in %s\r\n"
- ,TOTAL_COLORS,fname);
- bail(1); }
-fclose(instream);
-lprintf(txt.readit,fname);
-}
-
diff --git a/src/sbbs2/install/install.c b/src/sbbs2/install/install.c
deleted file mode 100644
index bb24972c0346ae124a915fd36b6307941c5b5388..0000000000000000000000000000000000000000
--- a/src/sbbs2/install/install.c
+++ /dev/null
@@ -1,1048 +0,0 @@
-/* install.c */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Synchronet BBS Installation program */
-
-unsigned int _stklen=0x8000;
-
-#include <io.h>
-#include <dir.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-#include <process.h>
-#include <errno.h>
-#include "uifc.h"
-
-/* OS Specific */
-#if defined(__FLAT__) // 32-bit
- #define FAR16
- #define HUGE16
- #define lread(f,b,l) read(f,b,l)
- #define lfread(b,l,f) fread(b,l,f)
- #define lwrite(f,b,l) write(f,b,l)
- #define lfwrite(b,l,f) fwrite(b,l,f)
-#else // 16-bit
- #define FAR16 far
- #define HUGE16 huge
-#endif
-
-void bail(int code);
-
-char **opt;
-
-#define EXEC (1<<1)
-#define CFGS (1<<2)
-#define TEXT (1<<3)
-#define DOCS (1<<4)
-
-#define DISK1 (EXEC|CFGS|TEXT|DOCS)
-
-#define UTIL (1<<10)
-#define XTRN (1<<11)
-#define XSDK (1<<12)
-
-#define DISK2 (UTIL|XTRN|XSDK)
-
-#define UPGRADE (1<<13)
-
-#define LOOP_NOPEN 100
-
-int mode=(DISK1|DISK2);
-
-enum { /* Upgrade FROM version */
- NONE
- ,SBBS20
- ,SBBS21
- ,SBBS22
- ,SBBS23
- };
-
-char tmp[256];
-char install_to[129],install_from[256];
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-
-/****************************************************************************/
-/* If the directory 'path' doesn't exist, create it. */
-/* returns 1 if successful, 0 otherwise */
-/****************************************************************************/
-int md(char *path)
-{
- char str[128];
- struct ffblk ff;
-
-if(strlen(path)<2) {
- umsg("Invalid path");
- return(0); }
-strcpy(str,path);
-if(strcmp(str+1,":\\") && str[strlen(str)-1]=='\\')
- str[strlen(str)-1]=0; /* Chop of \ if not root directory */
-if(findfirst(str,&ff,FA_DIREC)) {
- if(mkdir(str)) {
- sprintf(str,"Unable to Create Directory '%s'",path);
- umsg(str);
- return(0); } }
-return(1);
-}
-
-long fdate_dir(char *filespec)
-{
- struct ffblk f;
- struct date fd;
- struct time ft;
-
-if(findfirst(filespec,&f,FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC)==0) {
- fd.da_day=f.ff_fdate&0x1f;
- fd.da_mon=(f.ff_fdate>>5)&0xf;
- fd.da_year=1980+((f.ff_fdate>>9)&0x7f);
- ft.ti_hour=0;
- ft.ti_min=0;
- ft.ti_sec=0;
- return(dostounix(&fd,&ft)); }
-else return(0);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(f.ff_fsize);
-return(-1L);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC)==0)
- return(1);
-return(0);
-}
-
-#ifndef __OS2__
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char huge *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-
-/****************************************************************************/
-/* This function writes files that are potentially larger than 32767 bytes */
-/* Up to one megabytes of data can be written with each call. */
-/****************************************************************************/
-long lwrite(int file, char huge *buf, long bytes)
-{
-
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(write(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(write(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-#endif
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=O_DENYWRITE;
- else share=O_DENYALL;
-while(((file=open(str,O_BINARY|share|access,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- cputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-int copy(char *src, char *dest)
-{
- char c,HUGE16 *buf,str[256],str2[128],*scrnsave;
- int in,out;
- long length,chunk,l;
- struct ftime ftime;
-
-if(!strcmp(src,dest)) /* copy from and to are same, so return */
- return(0);
-
-if((scrnsave=MALLOC(scrn_len*80*2))==NULL)
- return(-1);
-hidemouse();
-gettext(1,1,80,scrn_len,scrnsave);
-
-#define width 72
-#define top 10
-#define left 0
-
-sprintf(str2,"Copying %s to %s...",src,dest);
-sprintf(str," %-64.64s",str2); /* Make sure it's no more than 60 */
-
-gotoxy(SCRN_LEFT+left,SCRN_TOP+top);
-textattr(hclr|(bclr<<4));
-putch('�');
-for(c=1;c<width-1;c++)
- putch('�');
-putch('�');
-gotoxy(SCRN_LEFT+left,SCRN_TOP+top+1);
-putch('�');
-textattr(lclr|(bclr<<4));
-cprintf("%-*.*s",width-2,width-2,str);
-gotoxy(SCRN_LEFT+left+(width-1),SCRN_TOP+top+1);
-textattr(hclr|(bclr<<4));
-putch('�');
-gotoxy(SCRN_LEFT+left,SCRN_TOP+top+2);
-putch('�');
-for(c=1;c<width-1;c++)
- putch('�');
-putch('�');
-gotoxy(SCRN_LEFT+left+(width-5),SCRN_TOP+top+1);
-textattr(lclr|(bclr<<4));
-
-if((in=nopen(src,O_RDONLY))==-1) {
- cprintf("\r\nERR_OPEN %s",src);
- getch();
- puttext(1,1,80,scrn_len,scrnsave);
- FREE(scrnsave);
- showmouse();
- return(-1); }
-if((out=nopen(dest,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- close(in);
- sprintf(str,"ERROR OPENING %s",dest);
- umsg(str);
- puttext(1,1,80,scrn_len,scrnsave);
- FREE(scrnsave);
- showmouse();
- return(-1); }
-length=filelength(in);
-if(!length) {
- close(in);
- close(out);
- sprintf(str,"ZERO LENGTH %s",src);
- umsg(str);
- puttext(1,1,80,scrn_len,scrnsave);
- showmouse();
- FREE(scrnsave);
- return(-1); }
-#if __OS2__
-chunk=1000000;
-#else
-chunk=0x8000; /* use 32k chunks */
-#endif
-if(chunk>length) /* leave space for stack expansion */
- chunk=length;
-if((buf=MALLOC(chunk))==NULL) {
- close(in);
- close(out);
- sprintf(str,"ERROR ALLOC %s %lu",src,chunk);
- umsg(str);
- puttext(1,1,80,scrn_len,scrnsave);
- FREE(scrnsave);
- showmouse();
- return(-1); }
-l=0L;
-while(l<length) {
- cprintf("%2lu%%",l ? (long)(100.0/((float)length/l)) : 0L);
- if(l+chunk>length)
- chunk=length-l;
- lread(in,buf,chunk);
- lwrite(out,buf,chunk);
- l+=chunk;
- cputs("\b\b\b");
- }
-// cputs(" \b\b\b"); /* erase it */
-FREE((char *)buf);
-getftime(in,&ftime);
-setftime(out,&ftime);
-close(in);
-close(out);
-puttext(1,1,80,scrn_len,scrnsave);
-FREE(scrnsave);
-showmouse();
-return(0);
-}
-
-int unarc(int timestamp, char *src, char *dir, char *arg)
-{
- int i,atr;
- char str[128],cmd[128],*scrnsave;
-
-if((scrnsave=MALLOC((scrn_len+1)*80*2))==NULL)
- return(-1);
-hidemouse();
-gettext(1,1,80,scrn_len+1,scrnsave);
-//lclini(scrn_len+1);
-textattr(LIGHTGRAY);
-clrscr();
-sprintf(cmd,"%sLHA.EXE",install_from);
-sprintf(str,"/c%d",timestamp);
-i=spawnlp(P_WAIT,cmd,cmd,"x",str,"/s","/m1",src,dir,arg,NULL);
-if(i==-1) {
- printf("\r\nCannot execute %s. Hit any key to continue.",cmd);
- getch(); }
-else if(i) {
- printf("\r\n%s returned error level %d. Hit any key to continue.",cmd,i);
- getch(); }
-clrscr();
-puttext(1,1,80,scrn_len+1,scrnsave);
-showmouse();
-FREE(scrnsave);
-//lclini(scrn_len);
-//textattr(atr);
-return(i);
-}
-
-
-void main(int argc, char **argv)
-{
- int i,j,k,ver;
- long l;
- char str[128],*p;
- char text_dir[64],docs_dir[64],exec_dir[64],ctrl_dir[64];
- struct text_info txt;
- struct ffblk ff;
-
-timezone=0;
-daylight=0;
-uifcini();
-if(argc>1) { /* user specified install path */
- sprintf(install_to,"%.20s",argv[1]);
- strupr(install_to);
- if(strlen(install_to)==1) {
- if(!isalpha(install_to[0])) {
- cprintf("\7\r\nInvalid install path - '%s'\r\n",install_to);
- bail(1); }
- strcat(install_to,":"); }
- backslash(install_to);
- if(strlen(install_to)<4) /* user says C, C:, or C:\, make C:\SBBS */
- strcat(install_to,"SBBS\\"); }
-else
- strcpy(install_to,"C:\\SBBS\\");
-
-strcpy(install_from,argv[0]);
-strupr(install_from);
-p=strrchr(install_from,'\\');
-if(p)
- *(p+1)=0;
-else { /* incase of A:INSTALL */
- p=strchr(install_from,':');
- if(p)
- *(p+1)=0; }
-
-if((opt=(char **)MALLOC(sizeof(char *)*MAX_OPTS))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-for(i=0;i<MAX_OPTS;i++)
- if((opt[i]=(char *)MALLOC(MAX_OPLN))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-
-/***
-if(findfirst("MENU.ZIP",&ff,0)) {
- cprintf("\7\r\nCan't find MENU.ZIP\r\n");
- bail(1); }
-if(findfirst("TEXT.ZIP",&ff,0)) {
- cprintf("\7\r\nCan't find TEXT.ZIP\r\n");
- bail(1); }
-if(findfirst("DOCS.ZIP",&ff,0)) {
- cprintf("\7\r\nCan't find DOCS.ZIP\r\n");
- bail(1); }
-if(findfirst("EXEC.ZIP",&ff,0)) {
- cprintf("\7\r\nCan't find EXEC.ZIP\r\n");
- bail(1); }
-if(findfirst("PKUNZIP.EXE",&ff,0)) {
- cprintf("\7\r\nCan't find PKUNZIP.EXE\r\n");
- bail(1); }
-***/
-uscrn("Synchronet Installation Utility Version 2.3");
-
-i=0;
-while(1) {
-
- helpbuf=
-" Synchronet Installation \r\n\r\n"
-"If you are installing Synchronet for evaluation or demonstration\r\n"
-"purposes, be sure to set Install Registration Key to No.\r\n\r\n"
-"If do not have the Synchronet Utilities Disk (Distribution Disk 2), be\r\n"
-"sure to set Install Distribution Disk 2 to None.\r\n\r\n"
-"When you are happy with the installation settings and the destination\r\n"
-"path, select Start Installation to continue or hit ESC to abort.";
-
- j=0;
- str[0]=0;
- if((mode&DISK1)==DISK1)
- strcpy(str,"All");
- else {
- if(!(mode&DISK1))
- strcpy(str,"None");
- else {
- strcat(str,"Selected: ");
- if(mode&EXEC)
- strcat(str,"EXEC ");
- if(mode&CFGS)
- strcat(str,"CFGS ");
- if(mode&TEXT)
- strcat(str,"TEXT ");
- if(mode&DOCS)
- strcat(str,"DOCS "); } }
- sprintf(opt[j++],"%-30.30s%s","Install Distribution Disk 1",str);
- str[0]=0;
- if((mode&DISK2)==DISK2)
- strcpy(str,"All");
- else {
- if(!(mode&DISK2))
- strcpy(str,"None");
- else {
- strcat(str,"Selected: ");
- if(mode&UTIL)
- strcat(str,"UTIL ");
- if(mode&XTRN)
- strcat(str,"XTRN ");
- if(mode&XSDK)
- strcat(str,"XSDK "); } }
- sprintf(opt[j++],"%-30.30s%s","Install Distribution Disk 2",str);
- sprintf(opt[j++],"%-30.30s%s","Source Path",install_from);
- sprintf(opt[j++],"%-30.30s%s","Target Path",install_to);
- strcpy(opt[j++],"Start Installation");
- opt[j][0]=0;
- switch(ulist(WIN_ORG|WIN_MID|WIN_ACT|WIN_ESC,0,0,60,&i,0
- ,"Synchronet Multinode BBS Installation",opt)) {
- case 0:
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"%-30.30s%3s","Main Executables"
- ,mode&EXEC ? "Yes":"No");
- sprintf(opt[k++],"%-30.30s%3s","Default Configuration"
- ,mode&CFGS ? "Yes":"No");
- sprintf(opt[k++],"%-30.30s%3s","Text and Menus"
- ,mode&TEXT ? "Yes":"No");
- sprintf(opt[k++],"%-30.30s%3s","Documentation"
- ,mode&DOCS ? "Yes":"No");
- strcpy(opt[k++],"All");
- strcpy(opt[k++],"None");
- opt[k][0]=0;
-helpbuf=
-" Distribution Disk 1 \r\n\r\n"
-"If you are a installing Synchronet for the first time, it is suggested\r\n"
-"that you install All of Disk 1.\r\n\r\n"
-"If for some reason, you wish to partially install Synchronet or update\r\n"
-"a previously installed version, you can toggle the installation of the\r\n"
-"following file sets:\r\n\r\n"
-"EXEC: Main executable files necessary for Synchronet to run\r\n\r\n"
-"CFGS: Default configuration files\r\n\r\n"
-"TEXT: Text and menu files\r\n\r\n"
-"DOCS: Online ASCII documentation for the system operator";
- j=ulist(0,0,0,0,&j,0,"Distribution Disk 1",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- mode^=EXEC;
- break;
- case 1:
- mode^=CFGS;
- break;
- case 2:
- mode^=TEXT;
- break;
- case 3:
- mode^=DOCS;
- break;
- case 4:
- mode|=DISK1;
- break;
- case 5:
- mode&=~DISK1;
- break; } }
- break;
- case 1:
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"%-30.30s%3s","Utilities"
- ,mode&UTIL ? "Yes":"No");
- sprintf(opt[k++],"%-30.30s%3s","Online External Programs"
- ,mode&XTRN ? "Yes":"No");
- sprintf(opt[k++],"%-30.30s%3s","External Program SDK"
- ,mode&XSDK ? "Yes":"No");
- strcpy(opt[k++],"All");
- strcpy(opt[k++],"None");
- opt[k][0]=0;
-helpbuf=
-" Distribution Disk 2 \r\n\r\n"
-"This disk is optional for the execution of Synchronet. This disk is\r\n"
-"also referred to as the Synchronet Utilities Disk.\r\n\r\n"
-"If for some reason, you wish to partially install Synchronet or update\r\n"
-"a previously installed version, you can toggle the installation of the\r\n"
-"following file sets:\r\n\r\n"
-"UTIL: Utilities to enhance the operation of Synchronet\r\n\r\n"
-"XTRN: Online External Program Samples\r\n\r\n"
-"XSDK: External Program Software Development Kit (for programmers)";
- j=ulist(WIN_RHT,0,0,0,&j,0,"Distribution Disk 2",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- mode^=UTIL;
- break;
- case 1:
- mode^=XTRN;
- break;
- case 2:
- mode^=XSDK;
- break;
- case 3:
- mode|=DISK2;
- break;
- case 4:
- mode&=~DISK2;
- break; } }
- break;
- case 2:
-helpbuf=
-" Source Path \r\n\r\n"
-"This is the complete path (drive and directory) to install Synchronet\r\n"
-"from. The suggested path is A:\\, but any valid DOS drive and\r\n"
-"directory may be used.";
- uinput(WIN_L2R,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from);
- break;
- case 3:
-helpbuf=
-" Target Path \r\n\r\n"
-"This is the complete path (drive and directory) to install Synchronet\r\n"
-"to. The suggested path is C:\\SBBS\\, but any valid DOS drive and\r\n"
-"directory may be used.";
- uinput(WIN_L2R|WIN_BOT,0,0,"Target Path",install_to
- ,20,K_EDIT|K_UPPER);
- backslash(install_to);
- break;
- case 4:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=1;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Are you upgrading from an older version (already installed)"
- ,opt);
- if(j==-1)
- break;
- if(j==0) {
- helpbuf=
-" Upgrade Back-up \r\n"
-"\r\n"
-"INSTALL will take care to only overwrite files that have been changed\r\n"
-"in this new version, but it is always a good idea to do a complete\r\n"
-"system back-up before upgrading, just to be safe.\r\n"
-"\r\n"
-"If you have customized (with an editor) any of the following files, you\r\n"
-"will want to back them up (copy to another disk or directory) before\r\n"
-"you begin the upgrade procedure:\r\n"
-"\r\n"
-"TEXT.DAT (CTRL\\TEXT.DAT)\r\n"
-"Command Shells and Loadable Modules (EXEC\\*.SRC)\r\n"
-"Menus (TEXT\\MENU\\*.ASC)\r\n"
-"Match Maker Questionnaires (XTRN\\SMM\\*.QUE)\r\n"
-"External Program Menus (XTRN\\SMM\\*.ASC, XTRN\\SCB\\*.ASC, etc)\r\n";
- help();
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Continue with upgrade"
- ,opt);
- if(j)
- break;
- mode|=UPGRADE;
- mode&=~CFGS; }
- else
- mode&=~UPGRADE;
- strcpy(str,install_to);
- if(str[1]==':') /* drive letter specified */
- setdisk(toupper(str[0])-'A');
- if(!md(str))
- break;
- sprintf(exec_dir,"%sEXEC\\",install_to);
- if(mode&UPGRADE)
- if(uinput(WIN_L2R|WIN_SAV,0,0,"EXEC Directory",exec_dir
- ,30,K_EDIT|K_UPPER)<1)
- break;
- backslash(exec_dir);
- if(!md(exec_dir))
- break;
- if(mode&UPGRADE) {
- sprintf(str,"%sSBBS.EXE",exec_dir);
- l=fdate_dir(str);
- ver=NONE;
- switch(l) {
- case 0x3044fb80: /* 08/31/95 v2.20a */
- ver=SBBS22;
- break;
- case 0x2f6a2280: /* 03/18/95 v2.11a */
- case 0x2f43e700: /* 02/17/95 v2.10a */
- ver=SBBS21;
- break;
- case 0x2e6fa580: /* 09/09/94 v2.00g */
- case 0x2e627680: /* 08/30/94 v2.00f */
- case 0x2e5a8d80: /* 08/24/94 v2.00e */
- case 0x2e569900: /* 08/21/94 v2.00d */
- case 0x2e554780: /* 08/20/94 v2.00c */
- case 0x2e0b7380: /* 06/25/94 v2.00b */
- case 0x2ded2100: /* 06/02/94 v2.00a */
- ver=SBBS20;
- break; }
- if(ver==NONE && flength(str)==642448UL)
- ver=SBBS22; /* v2.20b - possibly patched */
- if(ver==NONE) {
- strcpy(opt[0],"Version 1");
- strcpy(opt[1],"Version 2.0");
- strcpy(opt[2],"Version 2.1");
- strcpy(opt[3],"Version 2.2");
- strcpy(opt[4],"Version 2.3 beta");
- opt[5][0]=0;
- j=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Which version are you upgrading from?"
- ,opt);
- if(j<0)
- break;
- ver=j;
- if(ver==NONE) { // Version 1
- umsg("INSTALL can only upgrade from Version 2.0 or later");
- umsg("See the file UPGRADE.DOC for UPGRADE instructions");
- break; } } }
-
- if(mode&EXEC) {
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sEXEC.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 1",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK1;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
-
- /* If they already exist, flag as read/write */
- if(mode&DISK1) {
- sprintf(str,"%sSBBS.EXE",exec_dir);
- chmod(str,S_IREAD|S_IWRITE);
- sprintf(str,"%sSCFG.EXE",exec_dir);
- chmod(str,S_IREAD|S_IWRITE);
-
- sprintf(str,"%sEXEC.LZH",install_from);
- sprintf(tmp,"%sEXEC.LZH",exec_dir);
- if(copy(str,tmp))
- break;
- if(mode&UPGRADE) {
- sprintf(str,"@%sEXEC.UPG",install_from);
- if(fexist(str+1))
- if(unarc(1,tmp,exec_dir,str)) {
- remove(tmp);
- break; }
- if(unarc(0,tmp,exec_dir,NULL)) {
- remove(tmp);
- break; } }
- else
- if(unarc(1,tmp,exec_dir,NULL)) {
- remove(tmp);
- break; }
- remove(tmp);
-
- /* now set to READ ONLY */
- sprintf(str,"%sSBBS.EXE",exec_dir);
- if(chmod(str,S_IREAD))
- umsg("Error setting SBBS.EXE to READ ONLY");
- sprintf(str,"%sSCFG.EXE",exec_dir);
- if(chmod(str,S_IREAD))
- umsg("Error setting SCFG.EXE to READ ONLY"); } }
-
- if(mode&CFGS) {
- sprintf(str,"%sCTRL",install_to);
- if(!md(str))
- break;
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sCFGS.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 1",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK1;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
- if(mode&DISK1) { /* not skip */
- sprintf(str,"%sCFGS.LZH",install_from);
- sprintf(tmp,"%sCFGS.LZH",install_to);
- if(copy(str,tmp))
- break;
- sprintf(str,"%sCTRL",install_to);
- if(unarc(1,tmp,install_to,NULL)) {
- remove(tmp);
- break; }
- remove(tmp); } }
-
- if(mode&TEXT) {
- sprintf(ctrl_dir,"%sCTRL\\",install_to);
- if(!md(ctrl_dir))
- break;
- sprintf(text_dir,"%sTEXT\\",install_to);
- if(!md(text_dir))
- break;
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sTEXT.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 1",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK1;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
- if(mode&DISK1) {
- sprintf(str,"%sTEXT.LZH",install_from);
- sprintf(tmp,"%sTEXT.LZH",install_to);
- if(copy(str,tmp))
- break;
- if(mode&UPGRADE) {
- sprintf(str,"@%sTEXT.UPG",install_from);
- if(fexist(str+1))
- if(unarc(1,tmp,install_to,str)) {
- remove(tmp);
- break; }
- if(unarc(0,tmp,install_to,NULL)) {
- remove(tmp);
- break; } }
- else
- if(unarc(1,tmp,install_to,NULL)) {
- remove(tmp);
- break; }
- remove(tmp); } }
-
- if(mode&DOCS) {
- sprintf(docs_dir,"%sDOCS\\",install_to);
- if(mode&UPGRADE)
- if(uinput(WIN_L2R|WIN_SAV,0,0,"DOCS Directory",docs_dir
- ,30,K_EDIT|K_UPPER)<1)
- break;
- backslash(docs_dir);
- if(!md(docs_dir))
- break;
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sDOCS.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 1",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK1;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
- if(mode&DISK1) {
- sprintf(str,"%sDOCS.LZH",install_from);
- sprintf(tmp,"%sDOCS.LZH",install_to);
- if(copy(str,tmp))
- break;
- if(unarc(1,tmp,docs_dir,NULL)) {
- remove(tmp);
- break; }
- remove(tmp); } }
-
- if(mode&UTIL) {
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sUTIL.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 2 (Utilities Disk)",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK2;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
-
- if(mode&DISK2) {
- sprintf(str,"%sUTIL.LZH",install_from);
- sprintf(tmp,"%sUTIL.LZH",exec_dir);
- if(copy(str,tmp))
- break;
- if(mode&UPGRADE) {
- sprintf(str,"@%sUTIL.UPG",install_from);
- if(fexist(str+1))
- if(unarc(1,tmp,exec_dir,str)) {
- remove(tmp);
- break; }
- if(unarc(0,tmp,exec_dir,NULL)) {
- remove(tmp);
- break; } }
- else
- if(unarc(1,tmp,exec_dir,NULL)) {
- remove(tmp);
- break; }
- remove(tmp); } }
-
- if(mode&XTRN) {
- sprintf(str,"%sXTRN",install_to);
- if(!md(str))
- break;
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sXTRN.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 2 (Utilities Disk)",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK2;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
-
- if(mode&DISK2) {
- sprintf(str,"%sXTRN.LZH",install_from);
- sprintf(tmp,"%sXTRN.LZH",install_to);
- if(copy(str,tmp))
- break;
- if(mode&UPGRADE) {
- sprintf(str,"@%sXTRN.UPG",install_from);
- if(fexist(str+1))
- if(unarc(1,tmp,install_to,str)) {
- remove(tmp);
- break; }
- if(unarc(0,tmp,install_to,NULL)) {
- remove(tmp);
- break; } }
- else
- if(unarc(1,tmp,install_to,NULL)) {
- remove(tmp);
- break; }
- remove(tmp); } }
-
- if(mode&XSDK) {
- sprintf(str,"%sXTRN",install_to);
- if(!md(str))
- break;
- sprintf(str,"%sXTRN\\SDK",install_to);
- if(!md(str))
- break;
- strcpy(opt[0],"Skip This Disk");
- strcpy(opt[1],"Okay, Try Again");
- strcpy(opt[2],"Change Source Path...");
- opt[3][0]=0;
- j=1;
- while(1) {
- sprintf(str,"%sXSDK.LZH",install_from);
- if(!findfirst(str,&ff,0))
- break;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Insert Distribution Disk 2 (Utilities Disk)",opt);
- if(j==-1)
- break;
- if(j==0) {
- mode&=~DISK2;
- break; }
- if(j==2) {
- uinput(WIN_L2R|WIN_SAV,0,0,"Source Path",install_from
- ,30,K_EDIT|K_UPPER);
- backslash(install_from); } }
- if(j==-1)
- break;
-
- if(mode&DISK2) {
- sprintf(str,"%sXSDK.LZH",install_from);
- sprintf(tmp,"%sXTRN\\XSDK.LZH",install_to);
- if(copy(str,tmp))
- break;
- sprintf(str,"%sXTRN\\SDK\\",install_to);
- if(unarc(1,tmp,str,NULL)) {
- remove(tmp);
- break; }
- remove(tmp); } }
- sprintf(str,"%sNODE1",install_to);
- chdir(str);
- if(mode&UPGRADE) {
- helpbuf=
-" Additional Upgrade Instructions \r\n"
-"\r\n"
-"If you were previously running version 1.1 of SyncEdit, you'll need to\r\n"
-"change your command lines and toggle options in SCFG for this new\r\n"
-"version (2.0). See DOCS\\SYNCEDIT.DOC for details.\r\n"
-"\r\n"
-"Make sure you have SCFG->System->Loadable Modules->Login set to LOGIN\r\n"
-"and SCFG->System->Loadable Modules->Logon set to LOGON.\r\n"
-"\r\n"
-"If you want your users to be able to use WIP compatible terminals with\r\n"
-"your BBS, add WIPSHELL to SCFG->Command Shells with an Access\r\n"
-"Requirement String of \"WIP\".";
- help(); }
- uifcbail();
- if(mode&UPGRADE) {
- cprintf("Synchronet Upgrade Complete.\r\n");
- exit(0); }
- if(mode&CFGS)
- p="/F";
- else
- p=NULL;
- spawnl(P_WAIT,"..\\EXEC\\SCFG.EXE"
- ,"..\\EXEC\\SCFG","..\\CTRL",p,NULL);
- textattr(LIGHTGRAY);
- cprintf(
-"Synchronet BBS and its utilities use file and record locking to maintain\r\n"
-"data integrity in a multinode environment. File and record locking under DOS\r\n"
-"requires the use of SHARE.\r\n"
-"\r\n"
- );
- cprintf(
-"SHARE is a program that is distributed with MS-DOS and PC-DOS v3.0 and higher\r\n"
-"and must be executed prior to running SBBS. SHARE.EXE should be located in the\r\n"
-"DOS directory of your hard disk.\r\n"
-"\r\n"
- );
- cprintf(
-"If you are running Microsoft Windows, you must exit Windows and load SHARE\r\n"
-"before reloading Windows.\r\n"
-"\r\n"
- );
- cprintf(
-"It is not necessary to run SHARE if using a single node on a Novell NetWare\r\n"
-"workstation or in an OS/2 DOS window.\r\n"
-"\r\n"
- );
- cprintf(
-"SHARE.EXE can be automatically loaded in your AUTOEXEC.BAT or CONFIG.SYS.\r\n"
-"\r\n"
- );
- textattr(WHITE);
- cprintf(
-"After you have loaded SHARE, type SBBS from THIS directory.\r\n"
- );
- textattr(LIGHTGRAY);
- exit(0);
- case -1:
- j=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- if(!(ulist(WIN_MID,0,0,20,&j,0,"Abort Installation",opt)))
- bail(0);
- break; } }
-}
-
-void bail(int code)
-{
-
-if(code)
- getch();
-uifcbail();
-exit(code);
-}
diff --git a/src/sbbs2/install/makefile b/src/sbbs2/install/makefile
deleted file mode 100644
index f277d18b8b1a3dc5b888f597cf7ebe7283049405..0000000000000000000000000000000000000000
--- a/src/sbbs2/install/makefile
+++ /dev/null
@@ -1,52 +0,0 @@
-###############################################
-# Makefile for Synchronet BBS Install Program #
-# For use with Borland C++ for DOS or OS/2 #
-###############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\..\uifc
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE) -w-pro
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc45\include;..;..\..\uifc
-LIB = \bc45\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LFLAGS = -n -c
-OBJS = ..\..\mswait\$(OS)\mswait.obj
-!endif
-MAIN = $(OS)\install.exe
-OBJS = $(OBJS) $(OS)\uifc.obj $(OS)\install.obj
-HEADERS = ..\..\uifc\uifc.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL).obj $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib\
- $(LIB)\emu.lib
-!endif
-
-# Local Menu Routines
-$(OS)\uifc.obj: ..\..\uifc\uifc.c ..\..\uifc\uifc.h
- @echo Compiling ..\..\uifc\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\..\uifc\$&.c
-
-install.obj: $(HEADERS)
diff --git a/src/sbbs2/listfile.c b/src/sbbs2/listfile.c
deleted file mode 100644
index d0c4582032342bdcfaf06c2bd95ef387b0cec8eb..0000000000000000000000000000000000000000
--- a/src/sbbs2/listfile.c
+++ /dev/null
@@ -1,782 +0,0 @@
-#line 1 "LISTFILE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-int listfile(char *fname, char HUGE16 *buf, uint dirnum
- , char *search, char letter, ulong datoffset);
-
-void clearline(void)
-{
- int i;
-
-outchar(CR);
-if(useron.misc&ANSI)
- bputs("\x1b[K");
-else {
- for(i=0;i<79;i++)
- outchar(SP);
- outchar(CR); }
-}
-
-/****************************************************************************/
-/* Remove credits from uploader of file 'f' */
-/****************************************************************************/
-void removefcdt(file_t f)
-{
- char str[128];
- int u;
- long cdt;
-
-if((u=matchuser(f.uler))==0) {
- bputs(text[UnknownUser]);
- return; }
-cdt=0L;
-if(dir[f.dir]->misc&DIR_CDTMIN && cur_cps) {
- if(dir[f.dir]->misc&DIR_CDTUL)
- cdt=((ulong)(f.cdt*(dir[f.dir]->up_pct/100.0))/cur_cps)/60;
- if(dir[f.dir]->misc&DIR_CDTDL
- && f.timesdled) /* all downloads */
- cdt+=((ulong)((long)f.timesdled
- *f.cdt*(dir[f.dir]->dn_pct/100.0))/cur_cps)/60;
- adjustuserrec(u,U_MIN,10,-cdt);
- sprintf(str,"%lu minute",cdt);
- sprintf(tmp,text[FileRemovedUserMsg]
- ,f.name,cdt ? str : text[No]);
- putsmsg(u,tmp); }
-else {
- if(dir[f.dir]->misc&DIR_CDTUL)
- cdt=(ulong)(f.cdt*(dir[f.dir]->up_pct/100.0));
- if(dir[f.dir]->misc&DIR_CDTDL
- && f.timesdled) /* all downloads */
- cdt+=(ulong)((long)f.timesdled
- *f.cdt*(dir[f.dir]->dn_pct/100.0));
- adjustuserrec(u,U_CDT,10,-cdt);
- sprintf(tmp,text[FileRemovedUserMsg]
- ,f.name,cdt ? ultoac(cdt,str) : text[No]);
- putsmsg(u,tmp); }
-
-adjustuserrec(u,U_ULB,10,-f.size);
-adjustuserrec(u,U_ULS,5,-1);
-}
-
-/****************************************************************************/
-/* Move file 'f' from f.dir to newdir */
-/****************************************************************************/
-void movefile(file_t f, int newdir)
-{
- char str[256],path[256],fname[128],ext[1024];
- int olddir=f.dir;
-
-if(findfile(newdir,f.name)) {
- bprintf(text[FileAlreadyThere],f.name);
- return; }
-getextdesc(olddir,f.datoffset,ext);
-if(dir[olddir]->misc&DIR_MOVENEW)
- f.dateuled=time(NULL);
-unpadfname(f.name,fname);
-removefiledat(f);
-f.dir=newdir;
-addfiledat(&f);
-bprintf(text[MovedFile],f.name
- ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
-sprintf(str,"Moved %s to %s %s",f.name
- ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
-logline(nulstr,str);
-if(!f.altpath) { /* move actual file */
- sprintf(str,"%s%s",dir[olddir]->path,fname);
- if(fexist(str)) {
- sprintf(path,"%s%s",dir[f.dir]->path,fname);
- mv(str,path,0); } }
-if(f.misc&FM_EXTDESC)
- putextdesc(f.dir,f.datoffset,ext);
-}
-
-/****************************************************************************/
-/* Batch flagging prompt for download, extended info, and archive viewing */
-/* Returns -1 if 'Q' or Ctrl-C, 0 if skip, 1 if [Enter], 2 otherwise */
-/* or 3, backwards. */
-/****************************************************************************/
-char batchflagprompt(int dirnum, file_t bf[26], char total, long totalfiles)
-{
- char ch,c,d,str[256],fname[128],*p,remcdt,remfile;
- int i,j,u,ml,md,udir,ulib;
- long cdt;
- file_t f;
-
-for(ulib=0;ulib<usrlibs;ulib++)
- if(usrlib[ulib]==dir[dirnum]->lib)
- break;
-for(udir=0;udir<usrdirs[ulib];udir++)
- if(usrdir[ulib][udir]==dirnum)
- break;
-
-CRLF;
-while(online) {
- bprintf(text[BatchFlagPrompt]
- ,ulib+1
- ,lib[dir[dirnum]->lib]->sname
- ,udir+1
- ,dir[dirnum]->sname
- ,totalfiles);
- ch=getkey(K_UPPER);
- clearline();
- if(ch=='?') {
- menu("BATFLAG");
- if(lncntr)
- pause();
- return(2); }
- if(ch=='Q' || sys_status&SS_ABORT)
- return(-1);
- if(ch=='S')
- return(0);
- if(ch=='P')
- return(3);
- if(ch=='B') { /* Flag for batch download */
- if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- return(2); }
- if(total==1) {
- f.dir=dirnum;
- strcpy(f.name,bf[0].name);
- f.datoffset=bf[0].datoffset;
- f.size=0;
- getfiledat(&f);
- addtobatdl(f);
- CRLF;
- return(2); }
- bputs(text[BatchDlFlags]);
- d=getstr(str,26,K_UPPER|K_LOWPRIO|K_NOCRLF);
- lncntr=0;
- if(sys_status&SS_ABORT)
- return(-1);
- if(d) { /* d is string length */
- CRLF;
- lncntr=0;
- for(c=0;c<d;c++) {
- if(batdn_total>=max_batdn) {
- bprintf(text[BatchDlQueueIsFull],str+c);
- break; }
- if(strchr(str+c,'.')) { /* filename or spec given */
- f.dir=dirnum;
- p=strchr(str+c,SP);
- if(!p) p=strchr(str+c,',');
- if(p) *p=0;
- for(i=0;i<total;i++) {
- if(batdn_total>=max_batdn) {
- bprintf(text[BatchDlQueueIsFull],str+c);
- break; }
- padfname(str+c,tmp);
- if(filematch(bf[i].name,tmp)) {
- strcpy(f.name,bf[i].name);
- f.datoffset=bf[i].datoffset;
- f.size=0;
- getfiledat(&f);
- addtobatdl(f); } } }
- if(strchr(str+c,'.'))
- c+=strlen(str+c);
- else if(str[c]<'A'+total && str[c]>='A') {
- f.dir=dirnum;
- strcpy(f.name,bf[str[c]-'A'].name);
- f.datoffset=bf[str[c]-'A'].datoffset;
- f.size=0;
- getfiledat(&f);
- addtobatdl(f); } }
- CRLF;
- return(2); }
- clearline();
- continue; }
-
- if(ch=='E' || ch=='V') { /* Extended Info */
- if(total==1) {
- f.dir=dirnum;
- strcpy(f.name,bf[0].name);
- f.datoffset=bf[0].datoffset;
- f.dateuled=bf[0].dateuled;
- f.datedled=bf[0].datedled;
- f.size=0;
- getfiledat(&f);
- if(!viewfile(f,ch=='E'))
- return(-1);
- return(2); }
- bputs(text[BatchDlFlags]);
- d=getstr(str,26,K_UPPER|K_LOWPRIO|K_NOCRLF);
- lncntr=0;
- if(sys_status&SS_ABORT)
- return(-1);
- if(d) { /* d is string length */
- CRLF;
- lncntr=0;
- for(c=0;c<d;c++) {
- if(strchr(str+c,'.')) { /* filename or spec given */
- f.dir=dirnum;
- p=strchr(str+c,SP);
- if(!p) p=strchr(str+c,',');
- if(p) *p=0;
- for(i=0;i<total;i++) {
- padfname(str+c,tmp);
- if(filematch(bf[i].name,tmp)) {
- strcpy(f.name,bf[i].name);
- f.datoffset=bf[i].datoffset;
- f.dateuled=bf[i].dateuled;
- f.datedled=bf[i].datedled;
- f.size=0;
- getfiledat(&f);
- if(!viewfile(f,ch=='E'))
- return(-1); } } }
- if(strchr(str+c,'.'))
- c+=strlen(str+c);
- else if(str[c]<'A'+total && str[c]>='A') {
- f.dir=dirnum;
- strcpy(f.name,bf[str[c]-'A'].name);
- f.datoffset=bf[str[c]-'A'].datoffset;
- f.dateuled=bf[str[c]-'A'].dateuled;
- f.datedled=bf[str[c]-'A'].datedled;
- f.size=0;
- getfiledat(&f);
- if(!viewfile(f,ch=='E'))
- return(-1); } }
- return(2); }
- clearline();
- continue; }
-
- if((ch=='D' || ch=='M') /* Delete or Move */
- && !(useron.rest&FLAG('R'))
- && (dir_op(dirnum) || useron.exempt&FLAG('R'))) {
- if(total==1) {
- strcpy(str,"A");
- d=1; }
- else {
- bputs(text[BatchDlFlags]);
- d=getstr(str,26,K_UPPER|K_LOWPRIO|K_NOCRLF); }
- lncntr=0;
- if(sys_status&SS_ABORT)
- return(-1);
- if(d) { /* d is string length */
- CRLF;
- if(ch=='D') {
- if(noyes(text[AreYouSureQ]))
- return(2);
- remcdt=remfile=1;
- if(dir_op(dirnum)) {
- remcdt=!noyes(text[RemoveCreditsQ]);
- remfile=!noyes(text[DeleteFileQ]); } }
- else if(ch=='M') {
- CRLF;
- for(i=0;i<usrlibs;i++)
- bprintf(text[MoveToLibLstFmt],i+1,lib[usrlib[i]]->lname);
- SYNC;
- bprintf(text[MoveToLibPrompt],dir[dirnum]->lib+1);
- if((ml=getnum(usrlibs))==-1)
- return(2);
- if(!ml)
- ml=dir[dirnum]->lib;
- else
- ml--;
- CRLF;
- for(j=0;j<usrdirs[ml];j++)
- bprintf(text[MoveToDirLstFmt]
- ,j+1,dir[usrdir[ml][j]]->lname);
- SYNC;
- bprintf(text[MoveToDirPrompt],usrdirs[ml]);
- if((md=getnum(usrdirs[ml]))==-1)
- return(2);
- if(!md)
- md=usrdirs[ml]-1;
- else md--;
- CRLF; }
- lncntr=0;
- for(c=0;c<d;c++) {
- if(strchr(str+c,'.')) { /* filename or spec given */
- f.dir=dirnum;
- p=strchr(str+c,SP);
- if(!p) p=strchr(str+c,',');
- if(p) *p=0;
- for(i=0;i<total;i++) {
- padfname(str+c,tmp);
- if(filematch(bf[i].name,tmp)) {
- strcpy(f.name,bf[i].name);
- unpadfname(f.name,fname);
- f.datoffset=bf[i].datoffset;
- f.dateuled=bf[i].dateuled;
- f.datedled=bf[i].datedled;
- f.size=0;
- getfiledat(&f);
- if(f.opencount) {
- bprintf(text[FileIsOpen]
- ,f.opencount,f.opencount>1 ? "s":nulstr);
- continue; }
- if(ch=='D') {
- removefiledat(f);
- if(remfile) {
- sprintf(tmp,"%s%s",dir[f.dir]->path,fname);
- remove(tmp); }
- if(remcdt)
- removefcdt(f); }
- else if(ch=='M')
- movefile(f,usrdir[ml][md]); } } }
- if(strchr(str+c,'.'))
- c+=strlen(str+c);
- else if(str[c]<'A'+total && str[c]>='A') {
- f.dir=dirnum;
- strcpy(f.name,bf[str[c]-'A'].name);
- unpadfname(f.name,fname);
- f.datoffset=bf[str[c]-'A'].datoffset;
- f.dateuled=bf[str[c]-'A'].dateuled;
- f.datedled=bf[str[c]-'A'].datedled;
- f.size=0;
- getfiledat(&f);
- if(f.opencount) {
- bprintf(text[FileIsOpen]
- ,f.opencount,f.opencount>1 ? "s":nulstr);
- continue; }
- if(ch=='D') {
- removefiledat(f);
- if(remfile) {
- sprintf(tmp,"%s%s",dir[f.dir]->path,fname);
- remove(tmp); }
- if(remcdt)
- removefcdt(f); }
- else if(ch=='M')
- movefile(f,usrdir[ml][md]); } }
- return(2); }
- clearline();
- continue; }
-
- return(1); }
-
-return(-1);
-}
-
-/*****************************************************************************/
-/* List files in directory 'dir' that match 'filespec'. Filespec must be */
-/* padded. ex: FILE* .EXT, not FILE*.EXT. 'mode' determines other critiria */
-/* the files must meet before they'll be listed. 'mode' bit FL_NOHDR doesn't */
-/* list the directory header. */
-/* Returns -1 if the listing was aborted, otherwise total files listed */
-/*****************************************************************************/
-int listfiles(uint dirnum, char *filespec, int tofile, char mode)
-{
- uchar str[256],hdr[256],cmd[129],c,d,letter='A',*buf,*p,ext[513];
- uchar HUGE16 *datbuf,HUGE16 *ixbbuf,flagprompt=0;
- int i,j,file,found=0,lastbat=0,disp;
- ulong l,m=0,n,length,anchor,next,datbuflen;
- file_t f,bf[26]; /* bf is batch flagged files */
-
-if(mode&FL_ULTIME) {
- last_ns_time=now;
- sprintf(str,"%s%s.DAB",dir[dirnum]->data_dir,dir[dirnum]->code);
- if((file=nopen(str,O_RDONLY))!=-1) {
- read(file,&l,4);
- close(file);
- if(ns_time>l)
- return(0); } }
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1)
- return(0);
-l=filelength(file);
-if(!l) {
- close(file);
- return(0); }
-if((ixbbuf=(char *)MALLOC(l))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,l);
- return(0); }
-if(lread(file,ixbbuf,l)!=l) {
- close(file);
- errormsg(WHERE,ERR_READ,str,l);
- FREE((char *)ixbbuf);
- return(0); }
-close(file);
-sprintf(str,"%s%s.DAT",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- FREE((char *)ixbbuf);
- return(0); }
-datbuflen=filelength(file);
-if((datbuf=MALLOC(datbuflen))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,datbuflen);
- FREE((char *)ixbbuf);
- return(0); }
-if(lread(file,datbuf,datbuflen)!=datbuflen) {
- close(file);
- errormsg(WHERE,ERR_READ,str,datbuflen);
- FREE((char *)datbuf);
- FREE((char *)ixbbuf);
- return(0); }
-close(file);
-if(!tofile) {
- action=NODE_LFIL;
- getnodedat(node_num,&thisnode,0);
- if(thisnode.action!=NODE_LFIL) { /* was a sync */
- getnodedat(node_num,&thisnode,1);
- thisnode.action=NODE_LFIL;
- putnodedat(node_num,thisnode); } }
-while(online && found<MAX_FILES) {
- if(found<0)
- found=0;
- if(m>=l || flagprompt) { /* End of list */
- if(useron.misc&BATCHFLAG && !tofile && found && found!=lastbat
- && !(mode&(FL_EXFIND|FL_VIEW))) {
- flagprompt=0;
- lncntr=0;
- if((i=batchflagprompt(dirnum,bf,letter-'A',l/F_IXBSIZE))==2) {
- m=anchor;
- found-=letter-'A';
- letter='A'; }
- else if(i==3) {
- if((long)anchor-((letter-'A')*F_IXBSIZE)<0) {
- m=0;
- found=0; }
- else {
- m=anchor-((letter-'A')*F_IXBSIZE);
- found-=letter-'A'; }
- letter='A'; }
- else if(i==-1) {
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- return(-1); }
- else
- break;
- getnodedat(node_num,&thisnode,0);
- nodesync(); }
- else
- break; }
-
- if(letter>'Z')
- letter='A';
- if(letter=='A')
- anchor=m;
-
- if(msgabort()) { /* used to be !tofile && msgabort() */
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- return(-1); }
- for(j=0;j<12 && m<l;j++)
- if(j==8)
- str[j]='.';
- else
- str[j]=ixbbuf[m++]; /* Turns FILENAMEEXT into FILENAME.EXT */
- str[j]=0;
- if(!(mode&(FL_FINDDESC|FL_EXFIND)) && filespec[0]
- && !filematch(str,filespec)) {
- m+=11;
- continue; }
- n=ixbbuf[m]|((long)ixbbuf[m+1]<<8)|((long)ixbbuf[m+2]<<16);
- if(n>=datbuflen) { /* out of bounds */
- m+=11;
- continue; }
- if(mode&(FL_FINDDESC|FL_EXFIND)) {
- getrec((char *)&datbuf[n],F_DESC,LEN_FDESC,tmp);
- strupr(tmp);
- p=strstr(tmp,filespec);
- if(!(mode&FL_EXFIND) && p==NULL) {
- m+=11;
- continue; }
- getrec((char *)&datbuf[n],F_MISC,1,tmp);
- j=tmp[0]; /* misc bits */
- if(j) j-=SP;
- if(mode&FL_EXFIND && j&FM_EXTDESC) { /* search extended description */
- getextdesc(dirnum,n,ext);
- strupr(ext);
- if(!strstr(ext,filespec) && !p) { /* not in description or */
- m+=11; /* extended description */
- continue; } }
- else if(!p) { /* no extended description and not in desc */
- m+=11;
- continue; } }
- if(mode&FL_ULTIME) {
- if(ns_time>(ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)|((long)ixbbuf[m+5]<<16)
- |((long)ixbbuf[m+6]<<24))) {
- m+=11;
- continue; } }
- if(useron.misc&BATCHFLAG && letter=='A' && found && !tofile
- && !(mode&(FL_EXFIND|FL_VIEW))
- && (!mode || !(useron.misc&EXPERT)))
- bputs(text[FileListBatchCommands]);
- m+=11;
- if(!found && !(mode&(FL_EXFIND|FL_VIEW))) {
- for(i=0;i<usrlibs;i++)
- if(usrlib[i]==dir[dirnum]->lib)
- break;
- for(j=0;j<usrdirs[i];j++)
- if(usrdir[i][j]==dirnum)
- break; /* big header */
- if((!mode || !(useron.misc&EXPERT)) && !tofile && (!filespec[0]
- || (strchr(filespec,'*') || strchr(filespec,'?')))) {
- sprintf(hdr,"%s%s.HDR",dir[dirnum]->data_dir,dir[dirnum]->code);
- if(fexist(hdr))
- printfile(hdr,0); /* Use DATA\DIRS\<CODE>.HDR */
- else {
- if(useron.misc&BATCHFLAG)
- bputs(text[FileListBatchCommands]);
- else {
- CLS;
- d=strlen(lib[usrlib[i]]->lname)>strlen(dir[dirnum]->lname) ?
- strlen(lib[usrlib[i]]->lname)+17
- : strlen(dir[dirnum]->lname)+17;
- if(i>8 || j>8) d++;
- attr(color[clr_filelsthdrbox]);
- bputs("��"); /* use to start with \r\n */
- for(c=0;c<d;c++)
- outchar('�');
- bputs("�\r\n� ");
- sprintf(hdr,text[BoxHdrLib],i+1,lib[usrlib[i]]->lname);
- bputs(hdr);
- for(c=bstrlen(hdr);c<d;c++)
- outchar(SP);
- bputs("�\r\n� ");
- sprintf(hdr,text[BoxHdrDir],j+1,dir[dirnum]->lname);
- bputs(hdr);
- for(c=bstrlen(hdr);c<d;c++)
- outchar(SP);
- bputs("�\r\n� ");
- sprintf(hdr,text[BoxHdrFiles],l/F_IXBSIZE);
- bputs(hdr);
- for(c=bstrlen(hdr);c<d;c++)
- outchar(SP);
- bputs("�\r\n��");
- for(c=0;c<d;c++)
- outchar('�');
- bputs("�\r\n"); } } }
- else { /* short header */
- if(tofile) {
- sprintf(hdr,"(%u) %s ",i+1,lib[usrlib[i]]->sname);
- write(tofile,crlf,2);
- write(tofile,hdr,strlen(hdr)); }
- else {
- sprintf(hdr,text[ShortHdrLib],i+1,lib[usrlib[i]]->sname);
- bputs("\r\1>\r\n");
- bputs(hdr); }
- c=bstrlen(hdr);
- if(tofile) {
- sprintf(hdr,"(%u) %s",j+1,dir[dirnum]->lname);
- write(tofile,hdr,strlen(hdr)); }
- else {
- sprintf(hdr,text[ShortHdrDir],j+1,dir[dirnum]->lname);
- bputs(hdr); }
- c+=bstrlen(hdr);
- if(tofile) {
- write(tofile,crlf,2);
- sprintf(hdr,"%*s",c,nulstr);
- strset(hdr,'�');
- strcat(hdr,crlf);
- write(tofile,hdr,strlen(hdr)); }
- else {
- CRLF;
- attr(color[clr_filelstline]);
- while(c--)
- outchar('�');
- CRLF; } } }
- next=m;
- disp=1;
- if(mode&(FL_EXFIND|FL_VIEW)) {
- f.dir=dirnum;
- strcpy(f.name,str);
- m-=11;
- f.datoffset=n;
- f.dateuled=ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
- |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24);
- f.datedled=ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
- |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24);
- m+=11;
- f.size=0;
- getfiledat(&f);
- if(!found)
- bputs("\r\1>");
- if(mode&FL_EXFIND) {
- if(!viewfile(f,1)) {
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- return(-1); } }
- else {
- if(!viewfile(f,0)) {
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- return(-1); } } }
-
- else if(tofile)
- listfiletofile(str,&datbuf[n],dirnum,tofile);
- else if(mode&FL_FINDDESC)
- disp=listfile(str,&datbuf[n],dirnum,filespec,letter,n);
- else
- disp=listfile(str,&datbuf[n],dirnum,nulstr,letter,n);
- if(!disp && letter>'A') {
- next=m-F_IXBSIZE;
- letter--; }
- else {
- disp=1;
- found++; }
- if(sys_status&SS_ABORT) {
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- return(-1); }
- if(mode&(FL_EXFIND|FL_VIEW))
- continue;
- if(useron.misc&BATCHFLAG && !tofile) {
- if(disp) {
- strcpy(bf[letter-'A'].name,str);
- m-=11;
- bf[letter-'A'].datoffset=n;
- bf[letter-'A'].dateuled=ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
- |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24);
- bf[letter-'A'].datedled=ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
- |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24); }
- m+=11;
- if(flagprompt || letter=='Z' || !disp ||
- (filespec[0] && !strchr(filespec,'*') && !strchr(filespec,'?')
- && !(mode&FL_FINDDESC))
- || (useron.misc&BATCHFLAG && !tofile && lncntr>=rows-2)
- ) {
- flagprompt=0;
- lncntr=0;
- lastbat=found;
- if((i=batchflagprompt(dirnum,bf,letter-'A'+1,l/F_IXBSIZE))<1) {
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- if(i==-1)
- return(-1);
- else
- return(found); }
- if(i==2) {
- next=anchor;
- found-=(letter-'A')+1; }
- else if(i==3) {
- if((long)anchor-((letter-'A'+1)*F_IXBSIZE)<0) {
- next=0;
- found=0; }
- else {
- next=anchor-((letter-'A'+1)*F_IXBSIZE);
- found-=letter-'A'+1; } }
- getnodedat(node_num,&thisnode,0);
- nodesync();
- letter='A'; }
- else letter++; }
- if(useron.misc&BATCHFLAG && !tofile
- && lncntr>=rows-2) {
- lncntr=0; /* defeat pause() */
- flagprompt=1; }
- m=next;
- if(mode&FL_FINDDESC) continue;
- if(filespec[0] && !strchr(filespec,'*') && !strchr(filespec,'?') && m)
- break; }
-
-FREE((char *)ixbbuf);
-FREE((char *)datbuf);
-return(found);
-}
-
-int cntlines(char *str)
-{
- int i,lc,last;
-
-for(i=lc=last=0;str[i];i++)
- if(str[i]==LF || i-last>LEN_FDESC) {
- lc++;
- last=i; }
-return(lc);
-}
-
-/****************************************************************************/
-/* Prints one file's information on a single line */
-/* Return 1 if displayed, 0 otherwise */
-/****************************************************************************/
-int listfile(char *fname, char HUGE16 *buf, uint dirnum
- , char *search, char letter, ulong datoffset)
-{
- char str[256],ext[513]="",*ptr,*cr,*lf,exist=1;
- uchar alt;
- int i,j;
- ulong cdt;
-
-if(buf[F_MISC]!=ETX && (buf[F_MISC]-SP)&FM_EXTDESC && useron.misc&EXTDESC) {
- getextdesc(dirnum,datoffset,ext);
- if(useron.misc&BATCHFLAG && lncntr+cntlines(ext)>=rows-2 && letter!='A')
- return(0); }
-attr(color[clr_filename]);
-bputs(fname);
-if(buf[F_MISC]!=ETX && (buf[F_MISC]-SP)&FM_EXTDESC) {
- if(!(useron.misc&EXTDESC))
- outchar('+');
- else
- outchar(SP); }
-else
- outchar(SP);
-if(useron.misc&BATCHFLAG) {
- attr(color[clr_filedesc]);
- bprintf("%c",letter); }
-getrec((char *)buf,F_ALTPATH,2,str);
-alt=(uchar)ahtoul(str);
-sprintf(str,"%s%s",alt>0 && alt<=altpaths ? altpath[alt-1]:dir[dirnum]->path
- ,unpadfname(fname,tmp));
-if(dir[dirnum]->misc&DIR_FCHK && !fexist(str)) {
- exist=0;
- attr(color[clr_err]); }
-else
- attr(color[clr_filecdt]);
-getrec((char *)buf,F_CDT,LEN_FCDT,str);
-cdt=atol(str);
-if(useron.misc&BATCHFLAG) {
- if(!cdt) {
- attr(curatr^(HIGH|BLINK));
- bputs(" FREE"); }
- else {
- if(cdt<1024) /* 1k is smallest size */
- cdt=1024;
- bprintf("%5luk",cdt/1024L); } }
-else {
- if(!cdt) { /* FREE file */
- attr(curatr^(HIGH|BLINK));
- bputs(" FREE"); }
- else if(cdt>9999999L)
- bprintf("%6luk",cdt/1024L);
- else
- bprintf("%7lu",cdt); }
-if(exist)
- outchar(SP);
-else
- outchar('-');
-getrec((char *)buf,F_DESC,LEN_FDESC,str);
-attr(color[clr_filedesc]);
-if(!ext[0]) {
- if(search[0]) { /* high-light string in string */
- strcpy(tmp,str);
- strupr(tmp);
- ptr=strstr(tmp,search);
- i=strlen(search);
- j=ptr-tmp;
- bprintf("%.*s",j,str);
- attr(color[clr_filedesc]^HIGH);
- bprintf("%.*s",i,str+j);
- attr(color[clr_filedesc]);
- bprintf("%.*s",strlen(str)-(j+i),str+j+i); }
- else
- bputs(str);
- CRLF; }
-ptr=ext;
-while(*ptr && ptr<ext+512 && !msgabort()) {
- cr=strchr(ptr,CR);
- lf=strchr(ptr,LF);
- if(lf && (lf<cr || !cr)) cr=lf;
- if(cr>ptr+LEN_FDESC)
- cr=ptr+LEN_FDESC;
- else if(cr)
- *cr=0;
-// bprintf("%.*s\r\n",LEN_FDESC,ptr);
- sprintf(str,"%.*s\r\n",LEN_FDESC,ptr);
- putmsg(str,P_NOATCODES|P_SAVEATR);
- if(!cr) {
- if(strlen(ptr)>LEN_FDESC)
- cr=ptr+LEN_FDESC;
- else
- break; }
- if(!(*(cr+1)) || !(*(cr+2)))
- break;
- bprintf("%21s",nulstr);
- ptr=cr;
- if(!(*ptr)) ptr++;
- while(*ptr==LF || *ptr==CR) ptr++; }
-return(1);
-}
diff --git a/src/sbbs2/login.c b/src/sbbs2/login.c
deleted file mode 100644
index 7a5c2de012ea7ec3059f815c8e65cd6d5384058f..0000000000000000000000000000000000000000
--- a/src/sbbs2/login.c
+++ /dev/null
@@ -1,92 +0,0 @@
-#line 1 "LOGIN.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-extern char qwklogon;
-
-int login(char *str, char *pw)
-{
- long useron_misc=useron.misc;
-
-useron.number=0;
-if(node_dollars_per_call && noyes(text[AreYouSureQ]))
- return(LOGIC_FALSE);
-
-if(str[0]=='*') {
- memmove(str,str+1,strlen(str));
- qwklogon=1; }
-else
- qwklogon=0;
-
-if(!(node_misc&NM_NO_NUM) && isdigit(str[0])) {
- useron.number=atoi(str);
- getuserdat(&useron);
- if(useron.number && useron.misc&(DELETED|INACTIVE))
- useron.number=0; }
-
-if(!useron.number) {
- useron.number=matchuser(str);
- if(!useron.number && (uchar)str[0]<0x7f && str[1]
- && isalpha(str[0]) && strchr(str,SP) && node_misc&NM_LOGON_R)
- useron.number=userdatdupe(0,U_NAME,LEN_NAME,str,0);
- if(useron.number) {
- getuserdat(&useron);
- if(useron.number && useron.misc&(DELETED|INACTIVE))
- useron.number=0; } }
-
-if(!useron.number) {
- if(node_misc&NM_LOGON_P) {
- strcpy(useron.alias,str);
- bputs(pw);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- getstr(str,LEN_PASS,K_UPPER|K_LOWPRIO);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- bputs(text[InvalidLogon]);
- sprintf(tmp,"(%04u) %-25s Password: '%s'"
- ,0,useron.alias,str);
- logline("+!",tmp); }
- else {
- bputs(text[UnknownUser]);
- sprintf(tmp,"Unknown User '%s'",str);
- logline("+!",tmp); }
- useron.misc=useron_misc;
- return(LOGIC_FALSE); }
-
-if(!online) {
- useron.number=0;
- return(LOGIC_FALSE); }
-statline=0;
-statusline();
-if((online==ON_REMOTE || sys_misc&SM_REQ_PW || node_misc&NM_SYSPW)
- && (useron.pass[0] || REALSYSOP)
- && (!node_dollars_per_call || sys_misc&SM_REQ_PW)) {
- bputs(pw);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- getstr(str,LEN_PASS,K_UPPER|K_LOWPRIO);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- if(!online) {
- useron.number=0;
- return(LOGIC_FALSE); }
- if(stricmp(useron.pass,str)) {
- bputs(text[InvalidLogon]);
- sprintf(tmp,"(%04u) %-25s Password: '%s' Attempt: '%s'"
- ,useron.number,useron.alias,useron.pass,str);
- logline("+!",tmp);
- useron.number=0;
- useron.misc=useron_misc;
- return(LOGIC_FALSE); }
- if(REALSYSOP && !chksyspass(0)) {
- bputs(text[InvalidLogon]);
- useron.number=0;
- useron.misc=useron_misc;
- return(LOGIC_FALSE); } }
-
-return(LOGIC_TRUE);
-}
diff --git a/src/sbbs2/logio.c b/src/sbbs2/logio.c
deleted file mode 100644
index 37bb5562a4a230682b8223266af49edb15d42aeb..0000000000000000000000000000000000000000
--- a/src/sbbs2/logio.c
+++ /dev/null
@@ -1,81 +0,0 @@
-#line 1 "LOGIO.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/********************************/
-/* Log file reading and writing */
-/********************************/
-
-#include "sbbs.h"
-
-void logentry(char *code, char *entry)
-{
- char str[512];
-
-now=time(NULL);
-sprintf(str,"Node %2d %s\r\n %s",node_num,timestr(&now),entry);
-logline(code,str);
-}
-
-/****************************************************************************/
-/* Writes 'str' verbatim into node.log */
-/****************************************************************************/
-void log(char *str)
-{
-if(!(sys_status&SS_LOGOPEN) || online==ON_LOCAL) return;
-if(logcol>=78 || (78-logcol)<strlen(str)) {
- write(logfile,crlf,2);
- logcol=1; }
-if(logcol==1) {
- write(logfile," ",3);
- logcol=4; }
-write(logfile,str,strlen(str));
-if(str[strlen(str)-1]==LF)
- logcol=1;
-else
- logcol+=strlen(str);
-}
-
-/****************************************************************************/
-/* Writes 'str' on it's own line in node.log */
-/****************************************************************************/
-void logline(char *code, char *str)
-{
- char line[1024];
-
-if(!(sys_status&SS_LOGOPEN) || (online==ON_LOCAL && strcmp(code,"!!"))) return;
-if(logcol!=1)
- write(logfile,crlf,2);
-sprintf(line,"%-2.2s %s\r\n",code,str);
-write(logfile,line,strlen(line));
-logcol=1;
-}
-
-/****************************************************************************/
-/* Writes a comma then 'ch' to log, tracking column. */
-/****************************************************************************/
-void logch(char ch, char comma)
-{
- char slash='/';
-
-if(!(sys_status&SS_LOGOPEN) || (online==ON_LOCAL)) return;
-if((uchar)ch<SP) /* Don't log control chars */
- return;
-if(logcol==1) {
- logcol=4;
- write(logfile," ",3); }
-else if(logcol>=78) {
- logcol=4;
- write(logfile,"\r\n ",5); }
-if(comma && logcol!=4) {
- write(logfile,",",1);
- logcol++; }
-if(ch&0x80) {
- ch&=0x7f;
- if(ch<SP)
- return;
- write(logfile,&slash,1); }
-write(logfile,&ch,1);
-logcol++;
-}
-
diff --git a/src/sbbs2/logon.c b/src/sbbs2/logon.c
deleted file mode 100644
index 47e6d7afc43c85391d12943d51d6cf7182667750..0000000000000000000000000000000000000000
--- a/src/sbbs2/logon.c
+++ /dev/null
@@ -1,569 +0,0 @@
-#line 1 "LOGON.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************************************************/
-/* Functions pertaining to the logging on and off of a user */
-/****************************************************************************/
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-extern char qwklogon,onquiet;
-
-/****************************************************************************/
-/* Called once upon each user logging on the board */
-/* Returns 1 if user passed logon, 0 if user failed. */
-/****************************************************************************/
-char logon()
-{
- char str[256],c;
- int file;
- uint i,j,k,mailw;
- ulong totallogons;
- node_t node;
- FILE *stream;
- struct tm *gm;
-
-now=time(NULL);
-gm=localtime(&now);
-if(!useron.number)
- return(0);
-
-if(useron.rest&FLAG('Q'))
- qwklogon=1;
-if(SYSOP && ((online==ON_REMOTE && !(sys_misc&SM_R_SYSOP))
- || (online==ON_LOCAL && !(sys_misc&SM_L_SYSOP))))
- return(0);
-if(cur_rate<node_minbps && !(useron.exempt&FLAG('M'))) {
- bprintf(text[MinimumModemSpeed],node_minbps);
- sprintf(str,"%sTOOSLOW.MSG",text_dir);
- if(fexist(str))
- printfile(str,0);
- sprintf(str,"(%04u) %-25s Modem speed: %u<%u"
- ,useron.number,useron.alias,cur_rate,node_minbps);
- logline("+!",str);
- return(0); }
-
-if(useron.rest&FLAG('G')) { /* Guest account */
- useron.misc=(new_misc&(~ASK_NSCAN));
- useron.rows=0;
- useron.misc&=~(ANSI|RIP|WIP|NO_EXASCII|COLOR);
- useron.misc|=autoterm;
- if(!(useron.misc&ANSI) && yesno(text[AnsiTerminalQ]))
- useron.misc|=ANSI;
- if(useron.misc&(RIP|WIP)
- || (useron.misc&ANSI && yesno(text[ColorTerminalQ])))
- useron.misc|=COLOR;
- if(!yesno(text[ExAsciiTerminalQ]))
- useron.misc|=NO_EXASCII;
- for(i=0;i<total_xedits;i++)
- if(!stricmp(xedit[i]->code,new_xedit)
- && chk_ar(xedit[i]->ar,useron))
- break;
- if(i<total_xedits)
- useron.xedit=i+1;
- else
- useron.xedit=0;
- useron.prot=new_prot;
- useron.shell=new_shell; }
-
-if(node_dollars_per_call) {
- adjustuserrec(useron.number,U_CDT,10
- ,cdt_per_dollar*node_dollars_per_call);
- bprintf(text[CreditedAccount]
- ,cdt_per_dollar*node_dollars_per_call);
- sprintf(str,"%s #%u was billed $%d T: %u seconds"
- ,useron.alias,useron.number
- ,node_dollars_per_call,(uint)now-answertime);
- logline("$+",str);
- hangup();
- return(0); }
-
-//lclini(node_scrnlen-1);
-
-if(!chk_ar(node_ar,useron)) {
- bputs(text[NoNodeAccess]);
- sprintf(str,"(%04u) %-25s Insufficient node access"
- ,useron.number,useron.alias);
- logline("+!",str);
- return(0); }
-
-getnodedat(node_num,&thisnode,1);
-if(thisnode.misc&NODE_LOCK) {
- putnodedat(node_num,thisnode); /* must unlock! */
- if(!SYSOP && !(useron.exempt&FLAG('N'))) {
- bputs(text[NodeLocked]);
- sprintf(str,"(%04u) %-25s Locked node logon attempt"
- ,useron.number,useron.alias);
- logline("+!",str);
- return(0); }
- if(yesno(text[RemoveNodeLockQ])) {
- getnodedat(node_num,&thisnode,1);
- logline("S-","Removed Node Lock");
- thisnode.misc&=~NODE_LOCK; }
- else
- getnodedat(node_num,&thisnode,1); }
-
-if(onquiet || (useron.exempt&FLAG('Q') && useron.misc&QUIET))
- thisnode.status=NODE_QUIET;
-else
- thisnode.status=NODE_INUSE;
-onquiet=0;
-action=thisnode.action=NODE_LOGN;
-if(online==ON_LOCAL)
- thisnode.connection=0;
-else
- thisnode.connection=cur_rate;
-thisnode.misc&=~(NODE_ANON|NODE_INTR|NODE_MSGW|NODE_POFF|NODE_AOFF);
-if(useron.chat&CHAT_NOACT)
- thisnode.misc|=NODE_AOFF;
-if(useron.chat&CHAT_NOPAGE)
- thisnode.misc|=NODE_POFF;
-thisnode.useron=useron.number;
-putnodedat(node_num,thisnode);
-
-getusrsubs();
-getusrdirs();
-
-if(useron.misc&CURSUB && !(useron.rest&FLAG('G'))) {
- for(i=0;i<usrgrps;i++) {
- for(j=0;j<usrsubs[i];j++) {
- if(!strcmp(sub[usrsub[i][j]]->code,useron.cursub))
- break; }
- if(j<usrsubs[i]) {
- curgrp=i;
- cursub[i]=j;
- break; } }
- for(i=0;i<usrlibs;i++) {
- for(j=0;j<usrdirs[i];j++)
- if(!strcmp(dir[usrdir[i][j]]->code,useron.curdir))
- break;
- if(j<usrdirs[i]) {
- curlib=i;
- curdir[i]=j;
- break; } } }
-
-
-if(useron.misc&AUTOTERM) {
- useron.misc&=~(ANSI|RIP|WIP);
- useron.misc|=autoterm; }
-
-if(!chk_ar(shell[useron.shell]->ar,useron)) {
- useron.shell=new_shell;
- if(!chk_ar(shell[useron.shell]->ar,useron)) {
- for(i=0;i<total_shells;i++)
- if(chk_ar(shell[i]->ar,useron))
- break;
- if(i==total_shells)
- useron.shell=0; } }
-
-statline=sys_def_stat;
-statusline();
-logon_ml=useron.level;
-logontime=time(NULL);
-starttime=logontime;
-last_ns_time=ns_time=useron.ns_time;
-// ns_time-=(useron.tlast*60); /* file newscan time == last logon time */
-delfiles(temp_dir,"*.*");
-sprintf(str,"%sMSGS\\N%3.3u.MSG",data_dir,node_num);
-remove(str); /* remove any pending node messages */
-sprintf(str,"%sMSGS\\N%3.3u.IXB",data_dir,node_num);
-remove(str); /* remove any pending node message indices */
-
-if(!SYSOP && online==ON_REMOTE) {
- rioctl(IOCM|ABORT); /* users can't abort anything */
- rioctl(IOCS|ABORT); }
-
-CLS;
-if(useron.rows)
- rows=useron.rows;
-else if(online==ON_LOCAL)
- rows=node_scrnlen-1;
-unixtodstr(logontime,str);
-if(!strncmp(str,useron.birth,5) && !(useron.rest&FLAG('Q'))) {
- bputs(text[HappyBirthday]);
- pause();
- CLS;
- user_event(EVENT_BIRTHDAY); }
-unixtodstr(useron.laston,tmp);
-if(strcmp(str,tmp)) { /* str still equals logon time */
- useron.ltoday=1;
- useron.ttoday=useron.etoday=useron.ptoday=useron.textra=0;
- useron.freecdt=level_freecdtperday[useron.level]; }
-else
- useron.ltoday++;
-
-gettimeleft();
-sprintf(str,"%sFILE\\%04u.DWN",data_dir,useron.number);
-batch_add_list(str);
-if(!qwklogon) { /* QWK Nodes don't go through this */
-
- if(sys_pwdays
- && logontime>(useron.pwmod+((ulong)sys_pwdays*24UL*60UL*60UL))) {
- bprintf(text[TimeToChangePw],sys_pwdays);
-
- c=0;
- while(c<LEN_PASS) { /* Create random password */
- str[c]=random(43)+48;
- if(isalnum(str[c]))
- c++; }
- str[c]=0;
- bprintf(text[YourPasswordIs],str);
-
- if(sys_misc&SM_PWEDIT && yesno(text[NewPasswordQ]))
- while(online) {
- bputs(text[NewPassword]);
- getstr(str,LEN_PASS,K_UPPER|K_LINE);
- truncsp(str);
- if(chkpass(str,useron))
- break;
- CRLF; }
-
- while(online) {
- if(sys_misc&SM_PWEDIT) {
- CRLF;
- bputs(text[VerifyPassword]); }
- else
- bputs(text[NewUserPasswordVerify]);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- getstr(tmp,LEN_PASS,K_UPPER);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- if(strcmp(str,tmp)) {
- bputs(text[Wrong]);
- continue; }
- break; }
- strcpy(useron.pass,str);
- useron.pwmod=time(NULL);
- putuserrec(useron.number,U_PWMOD,8,ultoa(useron.pwmod,str,16));
- bputs(text[PasswordChanged]);
- pause(); }
- if(useron.ltoday>level_callsperday[useron.level]
- && !(useron.exempt&FLAG('L'))) {
- bputs(text[NoMoreLogons]);
- sprintf(str,"(%04u) %-25s Out of logons"
- ,useron.number,useron.alias);
- logline("+!",str);
- hangup();
- return(0); }
- if(useron.rest&FLAG('L') && useron.ltoday>1) {
- bputs(text[R_Logons]);
- sprintf(str,"(%04u) %-25s Out of logons"
- ,useron.number,useron.alias);
- logline("+!",str);
- hangup();
- return(0); }
- if(!useron.name[0] && ((uq&UQ_ALIASES && uq&UQ_REALNAME)
- || uq&UQ_COMPANY))
- while(online) {
- if(uq&UQ_ALIASES && uq&UQ_REALNAME)
- bputs(text[EnterYourRealName]);
- else
- bputs(text[EnterYourCompany]);
- getstr(useron.name,LEN_NAME,K_UPRLWR|(uq&UQ_NOEXASC));
- if(uq&UQ_ALIASES && uq&UQ_REALNAME) {
- if(trashcan(useron.name,"NAME") || !useron.name[0]
- || !strchr(useron.name,SP)
- || strchr(useron.name,0xff)
- || (uq&UQ_DUPREAL
- && userdatdupe(useron.number,U_NAME,LEN_NAME
- ,useron.name,0)))
- bputs(text[YouCantUseThatName]);
- else
- break; }
- else
- break; }
- if(uq&UQ_HANDLE && !useron.handle[0]) {
- sprintf(useron.handle,"%.*s",LEN_HANDLE,useron.alias);
- while(online) {
- bputs(text[EnterYourHandle]);
- if(!getstr(useron.handle,LEN_HANDLE
- ,K_LINE|K_EDIT|K_AUTODEL|(uq&UQ_NOEXASC))
- || strchr(useron.handle,0xff)
- || (uq&UQ_DUPHAND
- && userdatdupe(useron.number,U_HANDLE,LEN_HANDLE
- ,useron.handle,0))
- || trashcan(useron.handle,"NAME"))
- bputs(text[YouCantUseThatName]);
- else
- break; } }
- if(uq&UQ_LOCATION && !useron.location[0])
- while(online) {
- bputs(text[EnterYourCityState]);
- if(getstr(useron.location,LEN_LOCATION,K_UPRLWR|(uq&UQ_NOEXASC)))
- break; }
- if(uq&UQ_ADDRESS && !useron.address[0])
- while(online) {
- bputs(text[EnterYourAddress]);
- if(getstr(useron.address,LEN_ADDRESS,K_UPRLWR|(uq&UQ_NOEXASC)))
- break; }
- if(uq&UQ_ADDRESS && !useron.zipcode[0])
- while(online) {
- bputs(text[EnterYourZipCode]);
- if(getstr(useron.zipcode,LEN_ZIPCODE,K_UPPER|(uq&UQ_NOEXASC)))
- break; }
- if(uq&UQ_PHONE && !useron.phone[0]) {
- i=yesno(text[CallingFromNorthAmericaQ]);
- while(online) {
- bputs(text[EnterYourPhoneNumber]);
- if(i) {
- if(gettmplt(useron.phone,sys_phonefmt
- ,K_LINE|(uq&UQ_NOEXASC))<strlen(sys_phonefmt))
- continue; }
- else {
- if(getstr(useron.phone,LEN_PHONE
- ,K_UPPER|(uq&UQ_NOEXASC))<5)
- continue; }
- if(!trashcan(useron.phone,"PHONE"))
- break; } }
- if(uq&UQ_COMP && !useron.comp[0])
- getcomputer(useron.comp);
- if(new_sif[0]) {
- sprintf(str,"%sUSER\\%4.4u.DAT",data_dir,useron.number);
- if(flength(str)<1L)
- create_sif_dat(new_sif,str); } }
-if(!online) {
- sprintf(str,"(%04u) %-25s Unsuccessful logon"
- ,useron.number,useron.alias);
- logline("+!",str);
- return(0); }
-strcpy(useron.modem,connection);
-useron.logons++;
-putuserdat(useron);
-getmsgptrs();
-sys_status|=SS_USERON; /* moved from further down */
-
-if(useron.rest&FLAG('Q')) {
- sprintf(str,"(%04u) %-25s QWK Network Connection"
- ,useron.number,useron.alias);
- logline("++",str);
- return(1); }
-
-/********************/
-/* SUCCESSFUL LOGON */
-/********************/
-totallogons=logonstats();
-sprintf(str,"(%04u) %-25s Logon %lu - %u"
- ,useron.number,useron.alias,totallogons,useron.ltoday);
-logline("++",str);
-
-if(!qwklogon && logon_mod[0])
- exec_bin(logon_mod,&main_csi);
-
-if(thisnode.status!=NODE_QUIET) {
- sprintf(str,"%sLOGON.LST",data_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR|O_CREAT|O_APPEND);
- return(0); }
- sprintf(str,text[LastFewCallersFmt],node_num
- ,totallogons,useron.alias
- ,sys_misc&SM_LISTLOC ? useron.location : useron.note
- ,gm->tm_hour,gm->tm_min
- ,connection,useron.ltoday);
- write(file,str,strlen(str));
- close(file); }
-
-if(sys_logon[0]) /* execute system logon event */
- external(cmdstr(sys_logon,nulstr,nulstr,NULL),EX_OUTR|EX_OUTL); /* EX_CC */
-
-if(qwklogon)
- return(1);
-
-sys_status|=SS_PAUSEON; /* always force pause on during this section */
-main_cmds=xfer_cmds=posts_read=0;
-mailw=getmail(useron.number,0);
-bprintf(text[SiSysName],sys_name);
-bprintf(text[SiNodeNumberName],node_num,node_name);
-bprintf(text[LiUserNumberName],useron.number,useron.alias);
-bprintf(text[LiLogonsToday],useron.ltoday
- ,level_callsperday[useron.level]);
-bprintf(text[LiTimeonToday],useron.ttoday
- ,level_timeperday[useron.level]+useron.min);
-bprintf(text[LiMailWaiting],mailw);
-strcpy(str,text[LiSysopIs]);
-i=kbd_state(); /* Check scroll lock */
-if(i&16 || (sys_chat_ar[0] && chk_ar(sys_chat_ar,useron)))
- strcat(str,text[LiSysopAvailable]);
-else
- strcat(str,text[LiSysopNotAvailable]);
-bprintf("%s\r\n\r\n",str);
-if(sys_status&SS_EVENT)
- bputs(text[ReducedTime]);
-getnodedat(node_num,&thisnode,1);
-thisnode.misc&=~(NODE_AOFF|NODE_POFF);
-if(useron.chat&CHAT_NOACT)
- thisnode.misc|=NODE_AOFF;
-if(useron.chat&CHAT_NOPAGE)
- thisnode.misc|=NODE_POFF;
-putnodedat(node_num,thisnode);
-getsmsg(useron.number); /* Moved from further down */
-SYNC;
-c=0;
-for(i=1;i<=sys_nodes;i++)
- if(i!=node_num) {
- getnodedat(i,&node,0);
- if(node.status==NODE_INUSE
- || ((node.status==NODE_QUIET || node.errors) && SYSOP)) {
- if(!c)
- bputs(text[NodeLstHdr]);
- printnodedat(i,node);
- c=1; }
- if(node.status==NODE_INUSE && i!=node_num && node.useron==useron.number
- && !SYSOP && !(useron.exempt&FLAG('G'))) {
- strcpy(tmp,"On two nodes at the same time");
- sprintf(str,"(%04u) %-25s %s"
- ,useron.number,useron.alias,tmp);
- logline("+!",str);
- errorlog(tmp);
- bputs(text[UserOnTwoNodes]);
- hangup();
- return(0); }
- if(thisnode.status!=NODE_QUIET
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_AOFF) && node.useron!=useron.number) {
- sprintf(str,text[NodeLoggedOnAtNbps]
- ,node_num
- ,thisnode.misc&NODE_ANON ? text[UNKNOWN_USER] : useron.alias
- ,connection);
- putnmsg(i,str); } }
-
-if(sys_exp_warn && useron.expire && useron.expire>now /* Warn user of coming */
- && (useron.expire-now)/(1440L*60L)<=sys_exp_warn) /* expiration */
- bprintf(text[AccountWillExpireInNDays],(useron.expire-now)/(1440L*60L));
-
-if(criterrs && SYSOP)
- bprintf(text[CriticalErrors],criterrs);
-if((i=getuserxfers(0,useron.number,0))!=0) {
- bprintf(text[UserXferForYou],i,i>1 ? "s" : nulstr); }
-if((i=getuserxfers(useron.number,0,0))!=0) {
- bprintf(text[UnreceivedUserXfer],i,i>1 ? "s" : nulstr); }
-SYNC;
-sys_status&=~SS_PAUSEON; /* Turn off the pause override flag */
-if(online==ON_REMOTE)
- rioctl(IOSM|ABORT); /* Turn abort ability on */
-if(mailw) {
- if(yesno(text[ReadYourMailNowQ]))
- readmail(useron.number,MAIL_YOUR); }
-lastnodemsg=0;
-if(useron.misc&ASK_NSCAN && yesno(text[NScanAllGrpsQ]))
- scanallsubs(SCAN_NEW);
-if(useron.misc&ASK_SSCAN && yesno(text[SScanAllGrpsQ]))
- scanallsubs(SCAN_TOYOU);
-return(1);
-}
-
-/****************************************************************************/
-/* Checks the system DSTS.DAB to see if it is a new day, if it is, all the */
-/* nodes' and the system's CSTS.DAB are added to, and the DSTS.DAB's daily */
-/* stats are cleared. Also increments the logon values in DSTS.DAB if */
-/* applicable. */
-/****************************************************************************/
-ulong logonstats()
-{
- char str[256];
- int dsts,csts;
- uint i;
- struct date update;
- time_t update_t;
- stats_t stats;
- node_t node;
-
-sprintf(str,"%sDSTS.DAB",ctrl_dir);
-if((dsts=nopen(str,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return(0L); }
-read(dsts,&update_t,4); /* Last updated */
-read(dsts,&stats.logons,4); /* Total number of logons on system */
-close(dsts);
-if(update_t>now+(24L*60L*60L)) /* More than a day in the future? */
- errormsg(WHERE,ERR_CHK,"Daily stats time stamp",update_t);
-unixtodos(update_t,&update,&curtime);
-unixtodos(now,&date,&curtime);
-if((date.da_day>update.da_day && date.da_mon==update.da_mon)
- || date.da_mon>update.da_mon || date.da_year>update.da_year) {
-
- sprintf(str,"New Day - Prev: %s ",timestr(&update_t));
- logentry("!=",str);
-
- sys_status|=SS_DAILY; /* New Day !!! */
- sprintf(str,"%sLOGON.LST",data_dir); /* Truncate logon list */
- if((dsts=nopen(str,O_TRUNC|O_CREAT|O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_TRUNC|O_CREAT|O_WRONLY);
- return(0L); }
- close(dsts);
- for(i=0;i<=sys_nodes;i++) {
- if(i) { /* updating a node */
- getnodedat(i,&node,1);
- node.misc|=NODE_EVENT;
- putnodedat(i,node); }
- sprintf(str,"%sDSTS.DAB",i ? node_path[i-1] : ctrl_dir);
- if((dsts=nopen(str,O_RDWR))==-1) /* node doesn't have stats yet */
- continue;
- sprintf(str,"%sCSTS.DAB",i ? node_path[i-1] : ctrl_dir);
- if((csts=nopen(str,O_WRONLY|O_APPEND|O_CREAT))==-1) {
- close(dsts);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_APPEND|O_CREAT);
- continue; }
- lseek(dsts,8L,SEEK_SET); /* Skip time and logons */
- write(csts,&now,4);
- read(dsts,&stats.ltoday,4);
- write(csts,&stats.ltoday,4);
- lseek(dsts,4L,SEEK_CUR); /* Skip total time on */
- read(dsts,&stats.ttoday,4);
- write(csts,&stats.ttoday,4);
- read(dsts,&stats.uls,4);
- write(csts,&stats.uls,4);
- read(dsts,&stats.ulb,4);
- write(csts,&stats.ulb,4);
- read(dsts,&stats.dls,4);
- write(csts,&stats.dls,4);
- read(dsts,&stats.dlb,4);
- write(csts,&stats.dlb,4);
- read(dsts,&stats.ptoday,4);
- write(csts,&stats.ptoday,4);
- read(dsts,&stats.etoday,4);
- write(csts,&stats.etoday,4);
- read(dsts,&stats.ftoday,4);
- write(csts,&stats.ftoday,4);
- close(csts);
- lseek(dsts,0L,SEEK_SET); /* Go back to beginning */
- write(dsts,&now,4); /* Update time stamp */
- lseek(dsts,4L,SEEK_CUR); /* Skip total logons */
- stats.ltoday=0;
- write(dsts,&stats.ltoday,4); /* Logons today to 0 */
- lseek(dsts,4L,SEEK_CUR); /* Skip total time on */
- stats.ttoday=0; /* Set all other today variables to 0 */
- write(dsts,&stats.ttoday,4); /* Time on today to 0 */
- write(dsts,&stats.ttoday,4); /* Uploads today to 0 */
- write(dsts,&stats.ttoday,4); /* U/L Bytes today */
- write(dsts,&stats.ttoday,4); /* Download today */
- write(dsts,&stats.ttoday,4); /* Download bytes */
- write(dsts,&stats.ttoday,4); /* Posts today */
- write(dsts,&stats.ttoday,4); /* Emails today */
- write(dsts,&stats.ttoday,4); /* Feedback today */
- write(dsts,&stats.ttoday,2); /* New users Today */
- close(dsts); } }
-
-if(thisnode.status==NODE_QUIET) /* Quiet users aren't counted */
- return(0L);
-
-for(i=0;i<2;i++) {
- sprintf(str,"%sDSTS.DAB",i ? ctrl_dir : node_dir);
- if((dsts=nopen(str,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return(0L); }
- lseek(dsts,4L,SEEK_SET); /* Skip time stamp */
- read(dsts,&stats.logons,4);
- read(dsts,&stats.ltoday,4);
- stats.logons++;
- stats.ltoday++;
- lseek(dsts,4L,SEEK_SET); /* Rewind back and overwrite */
- write(dsts,&stats.logons,4);
- write(dsts,&stats.ltoday,4);
- close(dsts); }
-return(stats.logons);
-}
-
-
diff --git a/src/sbbs2/logout.c b/src/sbbs2/logout.c
deleted file mode 100644
index e3c2ddf10b32d66a6f09228d2df786fc2dca30be..0000000000000000000000000000000000000000
--- a/src/sbbs2/logout.c
+++ /dev/null
@@ -1,245 +0,0 @@
-#line 1 "LOGOUT.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-/****************************************************************************/
-/* Function that is called after a user hangs up or logs off */
-/****************************************************************************/
-void logout()
-{
- char str[256];
- int done,i,j;
- ushort ttoday;
- file_t f;
- node_t node;
- struct date logondate;
- struct time lt;
- FILE *stream;
-
-now=time(NULL);
-unixtodos(now,&date,&curtime);
-
-if(!useron.number) { /* Not logged in, so do nothing */
- if(!online) {
- sprintf(str,"%02d:%02d%c T:%3u sec\r\n"
- ,curtime.ti_hour>12 ? curtime.ti_hour-12
- : curtime.ti_hour==0 ? 12 : curtime.ti_hour, curtime.ti_min
- , curtime.ti_hour>=12 ? 'p' : 'a'
- ,(uint)(now-answertime));
- logline("@-",str); }
- return; }
-
-strcpy(lastuseron,useron.alias); /* for use with WFC status display */
-
-if(useron.rest&FLAG('G')) { /* Reset guest's msg scan cfg */
- putuserrec(useron.number,U_NAME,LEN_NAME,nulstr);
- for(i=0;i<total_subs;i++) {
- if(sub[i]->misc&SUB_NSDEF)
- sub[i]->misc|=SUB_NSCAN;
- else
- sub[i]->misc&=~SUB_NSCAN;
- if(sub[i]->misc&SUB_SSDEF)
- sub[i]->misc|=SUB_SSCAN;
- else
- sub[i]->misc&=~SUB_SSCAN; }
- batdn_total=0; }
-
-if(batdn_total) {
- sprintf(str,"%sFILE\\%04u.DWN",data_dir,useron.number);
- if((stream=fnopen(&i,str,O_WRONLY|O_TRUNC|O_CREAT))!=NULL) {
- for(i=0;i<batdn_total;i++)
- fprintf(stream,"%s\r\n",batdn_name[i]);
- fclose(stream); } }
-
-if(sys_status&SS_USERON && thisnode.status!=NODE_QUIET
- && !(useron.rest&FLAG('Q')))
- for(i=1;i<=sys_nodes;i++)
- if(i!=node_num) {
- getnodedat(i,&node,0);
- if((node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_AOFF) && node.useron!=useron.number) {
- sprintf(str,text[NodeLoggedOff],node_num
- ,thisnode.misc&NODE_ANON
- ? text[UNKNOWN_USER] : useron.alias);
- putnmsg(i,str); } }
-
-if(!online) { /* NOT re-login */
-
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_WFC;
- thisnode.misc&=~(NODE_INTR|NODE_MSGW|NODE_NMSG
- |NODE_UDAT|NODE_POFF|NODE_AOFF|NODE_EXT);
- putnodedat(node_num,thisnode);
-
- if(sys_status&SS_SYSALERT) {
- mswait(500);
- if(com_port)
- dtr(1);
- mswait(500);
- offhook();
- CLS;
- lputs("\r\n\r\nAlerting Sysop...");
- while(!lkbrd(1)) {
- beep(1000,200);
- nosound();
- mswait(200); }
- lkbrd(0); }
-
- sys_status&=~SS_SYSALERT;
- if(sys_logout[0]) /* execute system logoff event */
- external(cmdstr(sys_logout,nulstr,nulstr,NULL),EX_OUTL); /* EX_CC */
- }
-
-if(logout_mod[0])
- exec_bin(logout_mod,&main_csi);
-backout();
-sprintf(str,"%sMSGS\\%4.4u.MSG",data_dir,useron.number);
-if(!flength(str)) /* remove any 0 byte message files */
- remove(str);
-
-delfiles(temp_dir,"*.*");
-putmsgptrs();
-if(!REALSYSOP)
- logofflist();
-useron.laston=now;
-
-ttoday=useron.ttoday-useron.textra; /* billable time used prev calls */
-if(ttoday>=level_timeperday[useron.level])
- i=0;
-else
- i=level_timeperday[useron.level]-ttoday;
-if(i>level_timepercall[useron.level]) /* i=amount of time without min */
- i=level_timepercall[useron.level];
-j=(now-starttime)/60; /* j=billable time online in min */
-if(i<0) i=0;
-if(j<0) j=0;
-
-if(useron.min && j>i) {
- j-=i; /* j=time to deduct from min */
- sprintf(str,"Minute Adjustment: %d",-j);
- logline(">>",str);
- if(useron.min>j)
- useron.min-=j;
- else
- useron.min=0L;
- putuserrec(useron.number,U_MIN,10,ultoa(useron.min,str,10)); }
-
-useron.tlast=(now-logontime)/60;
-useron.timeon+=useron.tlast;
-useron.ttoday+=useron.tlast;
-
-if(timeleft>0 && starttime-logontime>0) /* extra time */
- useron.textra+=(starttime-logontime)/60;
-
-unixtodos(logontime,&logondate,<);
-if(logondate.da_day!=date.da_day) { /* date has changed while online */
- putuserrec(useron.number,U_LTODAY,5,"0");
- useron.ttoday=0; /* so zero logons today and time on today */
- useron.textra=0; } /* and extra time */
-
-
-
-putuserrec(useron.number,U_NS_TIME,8,ultoa(last_ns_time,str,16));
-putuserrec(useron.number,U_LASTON,8,ultoa(useron.laston,str,16));
-putuserrec(useron.number,U_TIMEON,5,itoa(useron.timeon,str,10));
-putuserrec(useron.number,U_TTODAY,5,itoa(useron.ttoday,str,10));
-putuserrec(useron.number,U_TEXTRA,5,itoa(useron.textra,str,10));
-putuserrec(useron.number,U_TLAST,5,itoa(useron.tlast,str,10));
-
-getusrsubs();
-getusrdirs();
-putuserrec(useron.number,U_CURSUB,8,sub[usrsub[curgrp][cursub[curgrp]]]->code);
-putuserrec(useron.number,U_CURDIR,8,dir[usrdir[curlib][curdir[curlib]]]->code);
-
-sprintf(str,"%02d:%02d%c ",curtime.ti_hour>12 ? curtime.ti_hour-12
- : curtime.ti_hour==0 ? 12 : curtime.ti_hour, curtime.ti_min
- , curtime.ti_hour>=12 ? 'p' : 'a');
-if(sys_status&SS_USERON)
- sprintf(tmp,"T:%3u R:%3lu P:%3lu E:%3lu F:%3lu "
- "U:%3luk %lu D:%3luk %lu"
- ,(uint)(now-logontime)/60,posts_read,logon_posts
- ,logon_emails,logon_fbacks,logon_ulb/1024UL,logon_uls
- ,logon_dlb/1024UL,logon_dls);
-else
- sprintf(tmp,"T:%3u sec",(uint)(now-answertime));
-strcat(str,tmp);
-strcat(str,"\r\n");
-logline("@-",str);
-sys_status&=~SS_USERON;
-answertime=now; // Incase we're relogging on
-}
-
-/****************************************************************************/
-/* Backout of transactions and statuses for this node */
-/****************************************************************************/
-void backout()
-{
- char str[256],code[128],*buf;
- int i,file;
- long length,l;
- file_t f;
-
-sprintf(str,"%sBACKOUT.DAB",node_dir);
-if(flength(str)<1L) {
- remove(str);
- return; }
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if((buf=MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
-if(read(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- errormsg(WHERE,ERR_READ,str,length);
- return; }
-close(file);
-for(l=0;l<length;l+=BO_LEN) {
- switch(buf[l]) {
- case BO_OPENFILE: /* file left open */
- memcpy(code,buf+l+1,8);
- code[8]=0;
- for(i=0;i<total_dirs;i++) /* search by code */
- if(!stricmp(dir[i]->code,code))
- break;
- if(i<total_dirs) { /* found internal code */
- f.dir=i;
- memcpy(&f.datoffset,buf+l+9,4);
- closefile(f); }
- break;
- default:
- errormsg(WHERE,ERR_CHK,str,buf[l]); } }
-FREE(buf);
-remove(str); /* always remove the backout file */
-}
-
-/****************************************************************************/
-/* Detailed usage stats for each logon */
-/****************************************************************************/
-void logofflist()
-{
- char str[256];
- int file;
- struct time ontime;
-
-unixtodos(logontime,&date,&ontime);
-sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOL",data_dir,date.da_mon,date.da_day
- ,TM_YEAR(date.da_year-1900));
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- return; }
-unixtodos(now,&date,&curtime);
-sprintf(str,"%-*.*s %-2d %-8.8s %2.2d:%2.2d %2.2d:%2.2d %3d%3ld%3ld%3ld%3ld"
- "%3ld%3ld\r\n",LEN_ALIAS,LEN_ALIAS,useron.alias,node_num,connection
- ,ontime.ti_hour,ontime.ti_min,curtime.ti_hour,curtime.ti_min
- ,(int)(now-logontime)/60,posts_read,logon_posts,logon_emails
- ,logon_fbacks,logon_uls,logon_dls);
-write(file,str,strlen(str));
-close(file);
-}
diff --git a/src/sbbs2/mail.c b/src/sbbs2/mail.c
deleted file mode 100644
index 4a3adcbe41038b3e0908cceefda74a2470487c78..0000000000000000000000000000000000000000
--- a/src/sbbs2/mail.c
+++ /dev/null
@@ -1,899 +0,0 @@
-#line 1 "MAIL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Returns the number of pieces of mail waiting for usernumber */
-/* If sent is non-zero, it returns the number of mail sent by usernumber */
-/* If usernumber is 0, it returns all mail on the system */
-/****************************************************************************/
-int getmail(int usernumber, char sent)
-{
- char str[128];
- int i=0;
- long l;
- idxrec_t idx;
-
-smb_stack(&smb,SMB_STACK_PUSH);
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-sprintf(str,"%s.SID",smb.file);
-l=flength(str);
-if(l<sizeof(idxrec_t))
- return(0);
-if(!usernumber) {
- smb_stack(&smb,SMB_STACK_POP);
- return(l/sizeof(idxrec_t)); } /* Total system e-mail */
-if(smb_open(&smb)) {
- smb_stack(&smb,SMB_STACK_POP);
- return(0); }
-while(!feof(smb.sid_fp)) {
- if(!fread(&idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- if(idx.attr&MSG_DELETE)
- continue;
- if((!sent && idx.to==usernumber)
- || (sent && idx.from==usernumber))
- i++; }
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-return(i);
-}
-
-/***************************/
-/* Delete file attachments */
-/***************************/
-void delfattach(uint to, char *title)
-{
- char str[128],str2[128],*tp,*sp,*p;
- uint i;
-
-strcpy(str,title);
-tp=str;
-while(1) {
- p=strchr(tp,SP);
- if(p) *p=0;
- sp=strrchr(tp,'/'); /* sp is slash pointer */
- if(!sp) sp=strrchr(tp,'\\');
- if(sp) tp=sp+1;
- sprintf(str2,"%sFILE\\%04u.IN\\%s" /* str2 is path/fname */
- ,data_dir,to,tp);
- remove(str2);
- if(!p)
- break;
- tp=p+1; }
-sprintf(str,"%sFILE\\%04u.IN",data_dir,to);
-rmdir(str); /* remove the dir if it's empty */
-}
-
-
-/****************************************************************************/
-/* Deletes all mail messages for usernumber that have been marked 'deleted' */
-/* smb_locksmbhdr() should be called prior to this function */
-/****************************************************************************/
-int delmail(uint usernumber, int which)
-{
- ulong i,l,now;
- idxrec_t HUGE16 *idxbuf;
- smbmsg_t msg;
-
-now=time(NULL);
-if((i=smb_getstatus(&smb))!=0) {
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(2); }
-if(!smb.status.total_msgs)
- return(0);
-if((idxbuf=(idxrec_t *)LMALLOC(smb.status.total_msgs*sizeof(idxrec_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,smb.file,smb.status.total_msgs*sizeof(idxrec_t));
- return(-1); }
-if((i=smb_open_da(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- LFREE(idxbuf);
- return(i); }
-if((i=smb_open_ha(&smb))!=0) {
- smb_close_da(&smb);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- LFREE(idxbuf);
- return(i); }
-rewind(smb.sid_fp);
-for(l=0;l<smb.status.total_msgs;) {
- if(!fread(&msg.idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- if(which==MAIL_ALL && !(msg.idx.attr&MSG_PERMANENT)
- && smb.status.max_age && now>msg.idx.time
- && (now-msg.idx.time)/(24L*60L*60L)>smb.status.max_age)
- msg.idx.attr|=MSG_DELETE;
- if(msg.idx.attr&MSG_DELETE && !(msg.idx.attr&MSG_PERMANENT)
- && ((which==MAIL_SENT && usernumber==msg.idx.from)
- || (which==MAIL_YOUR && usernumber==msg.idx.to)
- || (which==MAIL_ANY
- && (usernumber==msg.idx.to || usernumber==msg.idx.from))
- || which==MAIL_ALL)) {
- /* Don't need to lock message because base is locked */
- if(which==MAIL_ALL && !online)
- lprintf(" #%lu",msg.idx.number);
- if((i=smb_getmsghdr(&smb,&msg))!=0)
- errormsg(WHERE,ERR_READ,smb.file,i);
- else {
- if(msg.hdr.attr!=msg.idx.attr) {
- msg.hdr.attr=msg.idx.attr;
- if((i=smb_putmsghdr(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i); }
- if((i=smb_freemsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_REMOVE,smb.file,i);
- if(msg.hdr.auxattr&MSG_FILEATTACH)
- delfattach(msg.idx.to,msg.subj);
- smb_freemsgmem(&msg); }
- continue; }
- idxbuf[l]=msg.idx;
- l++; }
-rewind(smb.sid_fp);
-chsize(fileno(smb.sid_fp),0);
-for(i=0;i<l;i++)
- fwrite(&idxbuf[i],sizeof(idxrec_t),1,smb.sid_fp);
-LFREE(idxbuf);
-smb.status.total_msgs=l;
-smb_putstatus(&smb);
-fflush(smb.sid_fp);
-smb_close_ha(&smb);
-smb_close_da(&smb);
-return(0);
-}
-
-
-/***********************************************/
-/* Tell the user that so-and-so read your mail */
-/***********************************************/
-void telluser(smbmsg_t msg)
-{
- char str[256],*p;
- uint usernumber,n;
- node_t node;
-
-if(msg.from_net.type)
- return;
-if(msg.from_ext)
- usernumber=atoi(msg.from_ext);
-else {
- usernumber=matchuser(msg.from);
- if(!usernumber)
- return; }
-for(n=1;n<=sys_nodes;n++) { /* Tell user */
- getnodedat(n,&node,0);
- if(node.useron==usernumber
- && (node.status==NODE_INUSE
- || node.status==NODE_QUIET)) {
- sprintf(str
- ,text[UserReadYourMailNodeMsg]
- ,node_num,useron.alias);
- putnmsg(n,str);
- break; } }
-if(n>sys_nodes) {
- now=time(NULL);
- sprintf(str,text[UserReadYourMail]
- ,useron.alias,timestr(&now));
- putsmsg(usernumber,str); }
-}
-
-/****************************************************************************/
-/* Loads mail waiting for user number 'usernumber' into the mail array of */
-/* of pointers to mail_t (message numbers and attributes) */
-/* smb_open(&smb) must be called prior */
-/****************************************************************************/
-ulong loadmail(mail_t **mail, uint usernumber, int which, int mode)
-{
- int i;
- ulong l=0;
- idxrec_t idx;
-
-if((i=smb_locksmbhdr(&smb))!=0) { /* Be sure noone deletes or */
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* adds while we're reading */
- return(0); }
-(*mail)=NULL;
-rewind(smb.sid_fp);
-while(!feof(smb.sid_fp)) {
- if(!fread(&idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- if((which==MAIL_SENT && idx.from!=usernumber)
- || (which==MAIL_YOUR && idx.to!=usernumber)
- || (which==MAIL_ANY && idx.from!=usernumber && idx.to!=usernumber))
- continue;
- if(idx.attr&MSG_DELETE) {
- if(mode&LM_QWK) /* Don't included deleted msgs */
- continue; /* in QWK packet */
- if(!(sys_misc&SM_SYSVDELM)) /* Noone can view deleted msgs */
- continue;
- if(!SYSOP /* not sysop */
- && !(sys_misc&SM_USRVDELM)) /* users can't view deleted msgs */
- continue; }
- if(mode&LM_UNREAD && idx.attr&MSG_READ)
- continue;
- if(((*mail)=(mail_t *)REALLOC((*mail),sizeof(mail_t)*(l+1)))
- ==NULL) {
- smb_unlocksmbhdr(&smb);
- errormsg(WHERE,ERR_ALLOC,smb.file,sizeof(mail_t)*(l+1));
- return(0); }
- (*mail)[l].offset=idx.offset;
- (*mail)[l].number=idx.number;
- (*mail)[l].to=idx.to;
- (*mail)[l].from=idx.from;
- (*mail)[l].subj=idx.subj;
- (*mail)[l].time=idx.time;
- (*mail)[l].attr=idx.attr;
- l++; }
-smb_unlocksmbhdr(&smb);
-return(l);
-}
-
-/************************************************************************/
-/* Deletes all mail waiting for user number 'usernumber' */
-/************************************************************************/
-void delallmail(uint usernumber)
-{
- int i;
- ulong l,msgs,deleted=0;
- mail_t *mail;
- smbmsg_t msg;
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- return; }
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- smb_stack(&smb,SMB_STACK_POP);
- return; }
-
-msgs=loadmail(&mail,usernumber,MAIL_ANY,0);
-if(!msgs) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return; }
-if((i=smb_locksmbhdr(&smb))!=0) { /* Lock the base, so nobody */
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- FREE(mail);
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* messes with the index */
- return; }
-for(l=0;l<msgs;l++) {
- msg.idx.offset=0; /* search by number */
- if(loadmsg(&msg,mail[l].number)) { /* message still there */
- msg.hdr.attr|=MSG_DELETE;
- msg.hdr.attr&=~MSG_PERMANENT;
- msg.idx.attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- else
- deleted++;
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg); } }
-
-if(msgs)
- FREE(mail);
-if(deleted && sys_misc&SM_DELEMAIL)
- delmail(usernumber,MAIL_ANY);
-smb_unlocksmbhdr(&smb);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-}
-
-/****************************************************************************/
-/* Reads mail waiting for usernumber. */
-/****************************************************************************/
-void readmail(uint usernumber, int which)
-{
- char str[256],str2[256],str3[256],done=0,domsg=1
- ,*buf,*p,*tp,*sp,ch;
- int file,msgs,curmsg,i,j,k,n,m,mismatches=0,act;
- long length,l;
- ulong last;
- file_t fd;
- mail_t *mail;
- smbmsg_t msg;
-
-msg.total_hfields=0; /* init to NULL, cause not allocated yet */
-
-fd.dir=total_dirs+1; /* temp dir for file attachments */
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- return; }
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-
-msgs=loadmail(&mail,usernumber,which,0);
-if(!msgs) {
- if(which==MAIL_SENT)
- bputs(text[NoMailSent]);
- else if(which==MAIL_ALL)
- bputs(text[NoMailOnSystem]);
- else
- bputs(text[NoMailWaiting]);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return; }
-
-last=smb.status.last_msg;
-
-if(which==MAIL_SENT)
- act=NODE_RSML;
-else if(which==MAIL_ALL)
- act=NODE_SYSP;
-else
- act=NODE_RMAL;
-action=act;
-if(msgs>1 && which!=MAIL_ALL) {
- if(which==MAIL_SENT)
- bputs(text[MailSentLstHdr]);
- else
- bputs(text[MailWaitingLstHdr]);
-
- for(curmsg=0;curmsg<msgs && !msgabort();curmsg++) {
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=mail[curmsg].offset;
- if(!loadmsg(&msg,mail[curmsg].number))
- continue;
- smb_unlockmsghdr(&smb,&msg);
- bprintf(text[MailWaitingLstFmt],curmsg+1
- ,which==MAIL_SENT ? msg.to
- : (msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP ? text[Anonymous]
- : msg.from
- ,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_READ ? ' '
- : msg.from_net.type || msg.to_net.type ? 'N':'*'
- ,msg.subj);
- smb_freemsgmem(&msg);
- msg.total_hfields=0; }
-
- ASYNC;
- if(!(sys_status&SS_ABORT)) {
- bprintf(text[StartWithN],1L);
- if((curmsg=getnum(msgs))>0)
- curmsg--;
- else if(curmsg==-1) {
- FREE(mail);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return; } }
- sys_status&=~SS_ABORT; }
-else {
- curmsg=0;
- if(which==MAIL_ALL)
- domsg=0; }
-if(which==MAIL_SENT)
- logline("E","Read sent mail");
-else if(which==MAIL_ALL)
- logline("S+","Read all mail");
-else
- logline("E","Read mail");
-if(useron.misc&RIP) {
- strcpy(str,which==MAIL_YOUR ? "MAILREAD" : which==MAIL_ALL ?
- "ALLMAIL" : "SENTMAIL");
- menu(str); }
-while(online && !done) {
- action=act;
-
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
-
- msg.idx.offset=mail[curmsg].offset;
- msg.idx.number=mail[curmsg].number;
- msg.idx.to=mail[curmsg].to;
- msg.idx.from=mail[curmsg].from;
- msg.idx.subj=mail[curmsg].subj;
-
- if((i=smb_locksmbhdr(&smb))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- break; }
-
- if((i=smb_getstatus(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- break; }
- smb_unlocksmbhdr(&smb);
-
- if(smb.status.last_msg!=last) { /* New messages */
- last=smb.status.last_msg;
- FREE(mail);
- msgs=loadmail(&mail,usernumber,which,0); /* So re-load */
- if(!msgs)
- break;
- for(curmsg=0;curmsg<msgs;curmsg++)
- if(mail[curmsg].number==msg.idx.number)
- break;
- if(curmsg>=msgs)
- curmsg=(msgs-1);
- continue; }
-
- if(!loadmsg(&msg,mail[curmsg].number)) { /* Message header gone */
- if(mismatches>5) { /* We can't do this too many times in a row */
- errormsg(WHERE,ERR_CHK,"message number",mail[curmsg].number);
- break; }
- FREE(mail);
- msgs=loadmail(&mail,usernumber,which,0);
- if(!msgs)
- break;
- if(curmsg>(msgs-1))
- curmsg=(msgs-1);
- mismatches++;
- continue; }
- smb_unlockmsghdr(&smb,&msg);
- msg.idx.attr=msg.hdr.attr;
-
- mismatches=0;
-
- if(domsg && !(sys_status&SS_ABORT)) {
-
- show_msg(msg
- ,msg.from_ext && msg.idx.from==1 && !msg.from_net.type
- ? 0:P_NOATCODES);
-
- if(msg.hdr.auxattr&MSG_FILEATTACH) { /* Attached file */
- smb_getmsgidx(&smb,&msg);
- strcpy(str,msg.subj); /* filenames in title */
- strupr(str);
- tp=str;
- while(online) {
- p=strchr(tp,SP);
- if(p) *p=0;
- sp=strrchr(tp,'/'); /* sp is slash pointer */
- if(!sp) sp=strrchr(tp,'\\');
- if(sp) tp=sp+1;
- padfname(tp,fd.name);
- sprintf(str2,"%sFILE\\%04u.IN\\%s" /* str2 is path/fname */
- ,data_dir,msg.idx.to,tp);
- length=flength(str2);
- if(length<1)
- bputs(text[FileNotFound]);
- else if(!(useron.exempt&FLAG('T')) && cur_cps && !SYSOP
- && length/(ulong)cur_cps>timeleft)
- bputs(text[NotEnoughTimeToDl]);
- else {
- sprintf(str3,text[DownloadAttachedFileQ]
- ,tp,ultoac(length,tmp));
- if(length>0L && yesno(str3)) {
- if(online==ON_LOCAL) {
- bputs(text[EnterPath]);
- if(getstr(str3,60,K_LINE|K_UPPER)) {
- backslashcolon(str3);
- sprintf(tmp,"%s%s",str3,tp);
- if(!mv(str2,tmp,which!=MAIL_YOUR)) {
- logon_dlb+=length;
- logon_dls++;
- useron.dls=adjustuserrec(useron.number
- ,U_DLS,5,1);
- useron.dlb=adjustuserrec(useron.number
- ,U_DLB,10,length);
- bprintf(text[FileNBytesSent]
- ,fd.name,ultoac(length,tmp)); } } }
-
- else { /* Remote User */
- menu("DLPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str3,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0]
- && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(str3,tmp); }
- ch=getkeys(str3,0);
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && ch==prot[i]->mnemonic
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- j=protocol(cmdstr(prot[i]->dlcmd,str2,nulstr
- ,NULL),0);
- if((prot[i]->misc&PROT_DSZLOG
- && checkprotlog(fd))
- || (!(prot[i]->misc&PROT_DSZLOG) && !j)) {
- if(which==MAIL_YOUR)
- remove(str2);
- logon_dlb+=length; /* Update stats */
- logon_dls++;
- useron.dls=adjustuserrec(useron.number
- ,U_DLS,5,1);
- useron.dlb=adjustuserrec(useron.number
- ,U_DLB,10,length);
- bprintf(text[FileNBytesSent]
- ,fd.name,ultoac(length,tmp));
- sprintf(str3
- ,"Downloaded attached file: %s"
- ,fd.name);
- logline("D-",str3); }
- autohangup(); } } } }
- if(!p)
- break;
- tp=p+1;
- while(*tp==SP) tp++; }
- sprintf(str,"%sFILE\\%04u.IN",data_dir,usernumber);
- rmdir(str); }
- if(which==MAIL_YOUR && !(msg.hdr.attr&MSG_READ)) {
- mail[curmsg].attr|=MSG_READ;
- if(thisnode.status==NODE_INUSE)
- telluser(msg);
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0; /* Search by number */
- if(!smb_locksmbhdr(&smb)) { /* Lock the entire base */
- if(loadmsg(&msg,msg.idx.number)) {
- msg.hdr.attr|=MSG_READ;
- msg.idx.attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
- smb_unlocksmbhdr(&smb); }
- if(!msg.total_hfields) { /* unsuccessful reload */
- domsg=0;
- continue; } }
- }
- else domsg=1;
-
- if(useron.misc&WIP) {
- strcpy(str,which==MAIL_YOUR ? "MAILREAD" : which==MAIL_ALL ?
- "ALLMAIL" : "SENTMAIL");
- menu(str); }
-
- ASYNC;
- if(which==MAIL_SENT)
- bprintf(text[ReadingSentMail],curmsg+1,msgs);
- else if(which==MAIL_ALL)
- bprintf(text[ReadingAllMail],curmsg+1,msgs);
- else
- bprintf(text[ReadingMail],curmsg+1,msgs);
- sprintf(str,"ADFLNQRT?<>[]{}-+");
- if(SYSOP)
- strcat(str,"CUSP");
- if(which!=MAIL_YOUR)
- strcat(str,"E");
- l=getkeys(str,msgs);
- if(l&0x80000000L) {
- if(l==-1) /* ctrl-c */
- break;
- curmsg=(l&~0x80000000L)-1;
- continue; }
- switch(l) {
- case 'A': /* Auto-reply to last piece */
- if(which==MAIL_SENT)
- break;
- if((msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP) {
- bputs(text[CantReplyToAnonMsg]);
- break; }
-
- quotemsg(msg,1);
-
- if(msg.from_net.type==NET_FIDO) /* FidoNet type */
- sprintf(str,"%s @%s",msg.from
- ,faddrtoa(*(faddr_t *)msg.from_net.addr));
- else if(msg.from_net.type==NET_INTERNET)
- strcpy(str,msg.from_net.addr);
- else if(msg.from_net.type)
- sprintf(str,"%s@%s",msg.from,msg.from_net.addr);
- else /* No net */
- strcpy(str,msg.from);
-
- strcpy(str2,str);
-
- bputs(text[Email]);
- if(!getstr(str,64,K_EDIT|K_AUTODEL))
- break;
- msg.hdr.number=msg.idx.number;
- smb_getmsgidx(&smb,&msg);
-
- if(!stricmp(str2,str)) /* Reply to sender */
- sprintf(str2,text[Regarding],msg.subj);
- else /* Reply to other */
- sprintf(str2,text[RegardingBy],msg.subj,msg.from
- ,timestr((time_t *)&msg.hdr.when_written.time));
-
- p=strrchr(str,'@');
- if(p) { /* name @addr */
- netmail(str,msg.subj,WM_QUOTE);
- sprintf(str2,text[DeleteMailQ],msg.from); }
- else {
- if(!msg.from_net.type && !stricmp(str,msg.from))
- email(msg.idx.from,str2,msg.subj,WM_EMAIL|WM_QUOTE);
- else if(!stricmp(str,"SYSOP"))
- email(1,str2,msg.subj,WM_EMAIL|WM_QUOTE);
- else if((i=finduser(str))!=0)
- email(i,str2,msg.subj,WM_EMAIL|WM_QUOTE);
- sprintf(str2,text[DeleteMailQ],msg.from); }
- if(!yesno(str2)) {
- if(curmsg<msgs-1) curmsg++;
- else done=1;
- break; }
- /* Case 'D': must follow! */
- case 'D': /* Delete last piece (toggle) */
- if(msg.hdr.attr&MSG_PERMANENT) {
- bputs("\r\nPermanent message.\r\n");
- domsg=0;
- break; }
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(loadmsg(&msg,msg.idx.number)) {
- msg.hdr.attr^=MSG_DELETE;
- msg.idx.attr=msg.hdr.attr;
-// mail[curmsg].attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
- if(curmsg<msgs-1) curmsg++;
- else done=1;
- break;
- case 'F': /* Forward last piece */
- domsg=0;
- bputs(text[ForwardMailTo]);
- if(!getstr(str,LEN_ALIAS,K_UPRLWR))
- break;
- i=finduser(str);
- if(!i)
- break;
- domsg=1;
- if(curmsg<msgs-1) curmsg++;
- else done=1;
- smb_getmsgidx(&smb,&msg);
- forwardmail(&msg,i);
- if(msg.hdr.attr&MSG_PERMANENT)
- break;
- sprintf(str2,text[DeleteMailQ],msg.from);
- if(!yesno(str2))
- break;
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(loadmsg(&msg,msg.idx.number)) {
- msg.hdr.attr|=MSG_DELETE;
- msg.idx.attr=msg.hdr.attr;
-// mail[curmsg].attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
-
- break;
- case 'L': /* List mail */
- domsg=0;
- bprintf(text[StartWithN],(long)curmsg+1);
- if((i=getnum(msgs))>0)
- i--;
- else if(i==-1)
- break;
- else
- i=curmsg;
- if(which==MAIL_SENT)
- bputs(text[MailSentLstHdr]);
- else if(which==MAIL_ALL)
- bputs(text[MailOnSystemLstHdr]);
- else
- bputs(text[MailWaitingLstHdr]);
- for(;i<msgs && !msgabort();i++) {
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=mail[i].offset;
- if(!loadmsg(&msg,mail[i].number))
- continue;
- smb_unlockmsghdr(&smb,&msg);
- if(which==MAIL_ALL)
- bprintf(text[MailOnSystemLstFmt]
- ,i+1,msg.from,msg.to
- ,msg.hdr.attr&MSG_DELETE ? '-'
- : msg.hdr.attr&MSG_READ ? SP
- : msg.from_net.type || msg.to_net.type ? 'N':'*'
- ,msg.subj);
- else
- bprintf(text[MailWaitingLstFmt],i+1
- ,which==MAIL_SENT ? msg.to
- : (msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP
- ? text[Anonymous] : msg.from
- ,msg.hdr.attr&MSG_DELETE ? '-'
- : msg.hdr.attr&MSG_READ ? SP
- : msg.from_net.type || msg.to_net.type ? 'N':'*'
- ,msg.subj);
- smb_freemsgmem(&msg);
- msg.total_hfields=0; }
- break;
- case 'Q':
- done=1;
- break;
- case 'C': /* Change attributes of last piece */
- i=chmsgattr(msg.hdr.attr);
- if(msg.hdr.attr==i)
- break;
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(loadmsg(&msg,msg.idx.number)) {
- msg.hdr.attr=msg.idx.attr=i;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
- break;
- case '>':
- for(i=curmsg+1;i<msgs;i++)
- if(mail[i].subj==msg.idx.subj)
- break;
- if(i<msgs)
- curmsg=i;
- else
- domsg=0;
- break;
- case '<': /* Search Title backward */
- for(i=curmsg-1;i>-1;i--)
- if(mail[i].subj==msg.idx.subj)
- break;
- if(i>-1)
- curmsg=i;
- else
- domsg=0;
- break;
- case '}': /* Search Author forward */
- strcpy(str,msg.from);
- for(i=curmsg+1;i<msgs;i++)
- if(mail[i].from==msg.idx.from)
- break;
- if(i<msgs)
- curmsg=i;
- else
- domsg=0;
- break;
- case 'N': /* Got to next un-read message */
- for(i=curmsg+1;i<msgs;i++)
- if(!(mail[i].attr&MSG_READ))
- break;
- if(i<msgs)
- curmsg=i;
- else
- domsg=0;
- break;
- case '{': /* Search Author backward */
- strcpy(str,msg.from);
- for(i=curmsg-1;i>-1;i--)
- if(mail[i].from==msg.idx.from)
- break;
- if(i>-1)
- curmsg=i;
- else
- domsg=0;
- break;
- case ']': /* Search To User forward */
- strcpy(str,msg.to);
- for(i=curmsg+1;i<msgs;i++)
- if(mail[i].to==msg.idx.to)
- break;
- if(i<msgs)
- curmsg=i;
- else
- domsg=0;
- break;
- case '[': /* Search To User backward */
- strcpy(str,msg.to);
- for(i=curmsg-1;i>-1;i--)
- if(mail[i].to==msg.idx.to)
- break;
- if(i>-1)
- curmsg=i;
- else
- domsg=0;
- break;
- case 0:
- case '+':
- if(curmsg<msgs-1) curmsg++;
- else done=1;
- break;
- case '-':
- if(curmsg>0) curmsg--;
- break;
- case 'S':
- domsg=0;
-/*
- if(!yesno(text[SaveMsgToFile]))
- break;
-*/
- bputs(text[FileToWriteTo]);
- if(getstr(str,40,K_LINE|K_UPPER))
- msgtotxt(msg,str,1,1);
- break;
- case 'E':
- editmsg(&msg,INVALID_SUB);
- break;
- case 'T':
- domsg=0;
- i=curmsg;
- if(i) i++;
- j=i+10;
- if(j>msgs)
- j=msgs;
-
- if(which==MAIL_SENT)
- bputs(text[MailSentLstHdr]);
- else if(which==MAIL_ALL)
- bputs(text[MailOnSystemLstHdr]);
- else
- bputs(text[MailWaitingLstHdr]);
- for(;i<j;i++) {
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=mail[i].offset;
- if(!loadmsg(&msg,mail[i].number))
- continue;
- smb_unlockmsghdr(&smb,&msg);
- if(which==MAIL_ALL)
- bprintf(text[MailOnSystemLstFmt]
- ,i+1,msg.from,msg.to
- ,msg.hdr.attr&MSG_DELETE ? '-'
- : msg.hdr.attr&MSG_READ ? SP
- : msg.from_net.type || msg.to_net.type ? 'N':'*'
- ,msg.subj);
- else
- bprintf(text[MailWaitingLstFmt],i+1
- ,which==MAIL_SENT ? msg.to
- : (msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP
- ? text[Anonymous] : msg.from
- ,msg.hdr.attr&MSG_DELETE ? '-'
- : msg.hdr.attr&MSG_READ ? SP
- : msg.from_net.type || msg.to_net.type ? 'N':'*'
- ,msg.subj);
- smb_freemsgmem(&msg);
- msg.total_hfields=0; }
- curmsg=(i-1);
- break;
- case 'U': /* user edit */
- msg.hdr.number=msg.idx.number;
- smb_getmsgidx(&smb,&msg);
- useredit(which==MAIL_SENT ? msg.idx.to : msg.idx.from,0);
- break;
- case 'P': /* Purge author and all mail to/from */
- if(noyes(text[AreYouSureQ]))
- break;
- msg.hdr.number=msg.idx.number;
- smb_getmsgidx(&smb,&msg);
- purgeuser(msg.idx.from);
- if(curmsg<msgs-1) curmsg++;
- break;
- case '?':
- strcpy(str,which==MAIL_YOUR ? "MAILREAD" : which==MAIL_ALL
- ? "ALLMAIL" : "SENTMAIL");
- menu(str);
- if(SYSOP && which==MAIL_SENT)
- menu("SYSSMAIL");
- else if(SYSOP && which==MAIL_YOUR)
- menu("SYSMAILR"); /* Sysop Mail Read */
- domsg=0;
- break;
- } }
-
-if(msg.total_hfields)
- smb_freemsgmem(&msg);
-
-if(msgs)
- FREE(mail);
-
-/***************************************/
-/* Delete messages marked for deletion */
-/***************************************/
-
-if(sys_misc&SM_DELEMAIL) {
- if((i=smb_locksmbhdr(&smb))!=0) /* Lock the base, so nobody */
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* messes with the index */
- else
- delmail(usernumber,which); }
-
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-}
-
diff --git a/src/sbbs2/main.c b/src/sbbs2/main.c
deleted file mode 100644
index ce05b9bf905c89562e383d490f757fe0d4dba252..0000000000000000000000000000000000000000
--- a/src/sbbs2/main.c
+++ /dev/null
@@ -1,307 +0,0 @@
-#line 1 "MAIN.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*********************************************************/
-/* Entry point to the BBS and the waitforcall() function */
-/*********************************************************/
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-csi_t main_csi;
-uint curshell=0;
-
-char onquiet=0,qwklogon;
-char term_ret=0;
-ulong connect_rate=0; /* already connected at xbps */
-
-#if __OS2__
-void cbreakh(int sig) /* Ctrl-C */
-{
-sys_status|=SS_ABORT;
-signal(sig,cbreakh);
-}
-
-#else
-
-int cbreakh() /* ctrl-break handler */
-{
-sys_status|=SS_ABORT;
-return(1); /* 1 to continue, 0 to abort */
-}
-#endif
-
-/****************************************************************************/
-/* This is the entry point to the BBS from dos */
-/* No arguments are defined as of yet. */
-/****************************************************************************/
-main(int argc, char *argv[])
-{
- char str[256];
- int i,j,file,twenty;
- node_t node;
-
-startup(argc,argv); /* startup code overlaid */
-
-while(1) {
-
- while(1) {
- qwklogon=0;
- twenty=0;
-
- /* Reset TEXT.DAT */
-
- for(i=0;i<TOTAL_TEXT;i++)
- if(text[i]!=text_sav[i]) {
- if(text[i]!=nulstr)
- FREE(text[i]);
- text[i]=text_sav[i]; }
-
- /* Reset COMMAND SHELL */
-
- if(main_csi.cs)
- FREE(main_csi.cs);
- if(main_csi.str)
- FREE(main_csi.str);
- freevars(&main_csi);
- memset(&main_csi,0,sizeof(csi_t));
- main_csi.str=MALLOC(1024);
- if(!main_csi.str) {
- errormsg(WHERE,ERR_ALLOC,"command shell",1024);
- bail(1); }
- memset(main_csi.str,0,1024);
- menu_dir[0]=0;
- twenty+=10;
-
- /* Reset Global Variables */
-
- if(global_str_var)
- for(i=0;i<global_str_vars;i++)
- if(global_str_var[i]) {
- FREE(global_str_var[i]);
- global_str_var[i]=0; }
- if(global_str_var) {
- FREE(global_str_var);
- global_str_var=0; }
- if(global_str_var_name) {
- FREE(global_str_var_name);
- global_str_var_name=0; }
- global_str_vars=0;
- if(global_int_var) {
- FREE(global_int_var);
- global_int_var=0; }
- if(global_int_var_name) {
- FREE(global_int_var_name);
- global_int_var_name=0; }
- global_int_vars=0;
- twenty*=2;
-
- if(waitforcall()) /* Got caller/logon */
- break; }
-
- if(qwklogon) {
- getsmsg(useron.number);
- qwk_sec();
- hangup();
- logout();
- continue; }
-
- while(useron.number && (main_csi.misc&CS_OFFLINE_EXEC || online)) {
-
- if(!main_csi.cs || curshell!=useron.shell) {
- if(useron.shell>=total_shells)
- useron.shell=0;
- sprintf(str,"%s%s.BIN",exec_dir,shell[useron.shell]->code);
- if((file=nopen(str,O_RDONLY|O_BINARY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY|O_BINARY);
- hangup();
- break; }
- if(main_csi.cs)
- FREE(main_csi.cs);
- freevars(&main_csi);
- clearvars(&main_csi);
-
- main_csi.length=filelength(file);
- if((main_csi.cs=(uchar *)MALLOC(main_csi.length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,main_csi.length);
- hangup();
- break; }
-
- if(lread(file,main_csi.cs,main_csi.length)!=main_csi.length) {
- errormsg(WHERE,ERR_READ,str,main_csi.length);
- close(file);
- FREE(main_csi.cs);
- main_csi.cs=NULL;
- hangup();
- break; }
- close(file);
-
- main_csi.ip=main_csi.cs;
- curshell=useron.shell;
- menu_dir[0]=0;
- menu_file[0]=0;
- #ifdef __MSDOS__
- freedosmem=farcoreleft();
- #endif
- }
- if(exec(&main_csi))
- break;
-
- if(!(main_csi.misc&CS_OFFLINE_EXEC))
- checkline();
-
-#if 0
- if(freedosmem!=farcoreleft()) {
- if(freedosmem>farcoreleft())
- errormsg(WHERE,ERR_CHK,"memory",freedosmem-farcoreleft());
- freedosmem=farcoreleft(); }
-#endif
- }
- logout();
- catsyslog(0);
- if(!REALSYSOP || sys_misc&SM_SYSSTAT)
- logoffstats(); /* Updates both system and node dsts.dab files */
- if(qoc) {
- while(!wfc_events(time(NULL)))
- ;
- catsyslog(0);
- if(qoc==1)
- offhook();
- lclini(node_scrnlen);
- lputc(FF);
- bail(0); }
- }
-}
-
-/************************************/
-/* encrypted string output function */
-/************************************/
-char *decrypt(ulong l[], char *instr)
-{
- static char str[128];
- uchar ch,bits,len;
- ushort i,j,lc=0;
-
-len=(uchar)(l[0]&0x7f)^0x49;
-bits=7;
-for(i=0,j=0;i<len;i++) {
- ch=(char)((l[j]>>bits)&0x7fL);
- ch^=(i^0x2c);
- str[lc++]=ch;
- bits+=7;
- if(bits>=26 && i+1<len) {
- if(bits==32)
- ch=0;
- else
- ch=(char)((l[j]>>bits)&0x7fL);
- bits=(32-bits);
- j++;
- ch|=((l[j]&0x7f)<<(bits))&0x7f;
- i++;
- ch^=(i^0x2c);
- bits=7-bits;
- str[lc++]=ch; } }
-str[lc]=0;
-if(instr) {
- strcpy(instr,str);
- return(instr); }
-else
- return(str);
-}
-
-/****************************************************************************/
-/* Writes NODE.LOG at end of SYSTEM.LOG */
-/****************************************************************************/
-void catsyslog(int crash)
-{
- char str[256];
- char HUGE16 *buf;
- int i,file;
- ulong length;
-
-if(sys_status&SS_LOGOPEN) {
- if(close(logfile)) {
- errormsg(WHERE,ERR_CLOSE,"logfile",0);
- return; }
- sys_status&=~SS_LOGOPEN; }
-sprintf(str,"%sNODE.LOG",node_dir);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-length=filelength(file);
-if(length) {
- if((buf=(char HUGE16 *)LMALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
- if(lread(file,buf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,length);
- FREE((char *)buf);
- return; }
- close(file);
- now=time(NULL);
- unixtodos(now,&date,&curtime);
- sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG",data_dir,date.da_mon,date.da_day
- ,TM_YEAR(date.da_year-1900));
- if((file=nopen(str,O_WRONLY|O_APPEND|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_APPEND|O_CREAT);
- FREE((char *)buf);
- return; }
- if(lwrite(file,buf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,length);
- FREE((char *)buf);
- return; }
- close(file);
- if(crash) {
- for(i=0;i<2;i++) {
- sprintf(str,"%sCRASH.LOG",i ? data_dir : node_dir);
- if((file=nopen(str,O_WRONLY|O_APPEND|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_APPEND|O_CREAT);
- FREE((char *)buf);
- return; }
- if(lwrite(file,buf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,length);
- FREE((char *)buf);
- return; }
- close(file); } }
- FREE((char *)buf); }
-else
- close(file);
-sprintf(str,"%sNODE.LOG",node_dir);
-if((logfile=nopen(str,O_WRONLY|O_TRUNC))==-1) /* Truncate NODE.LOG */
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_TRUNC);
-else sys_status|=SS_LOGOPEN;
-}
-
-void quicklogonstuff()
-{
- int i;
- node_t node;
-
-reset_logon_vars();
-
-lclini(node_scrnlen-1);
-if(com_port && !DCDHIGH) /* don't take phone offhook if */
- offhook(); /* connected */
-useron.number=1;
-getuserdat(&useron);
-autoterm=ANSI;
-if(!useron.number)
- useron.level=99;
-console=CON_L_ECHO|CON_L_INPUT;
-online=ON_LOCAL;
-statline=sys_def_stat;
-statusline();
-answertime=logontime=time(NULL);
-sprintf(connection,"%.*s",LEN_MODEM,text[Locally]);
-cur_rate=14400;
-cur_cps=1750;
-sys_status|=SS_USERON;
-}
-
-
diff --git a/src/sbbs2/main_ovl.c b/src/sbbs2/main_ovl.c
deleted file mode 100644
index df989db688acd8ff85ba3cca968a07f136298c5b..0000000000000000000000000000000000000000
--- a/src/sbbs2/main_ovl.c
+++ /dev/null
@@ -1,839 +0,0 @@
-#line 1 "MAIN_OVL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "etext.h"
-#include <signal.h>
-
-#ifndef __FLAT__
-#include "spawno.h"
-#endif
-
-uint asmrev; // RCIOL.OBJ revision
-char llo=0 // Local logon only
- ,nmi=0; // No modem init
-char cidarg[65]; // Caller ID arguments
-uint addrio; // Additional RIOCTL call on init
-
-FILE *nodefile_fp,*node_ext_fp,*logfile_fp;
-
-char prompt[128];
-
-extern char *compile_time,*compile_date;
-
-#ifdef __FLAT__
-int mswtyp=0;
-#else
-extern mswtyp;
-extern uint riobp;
-#endif
-
-extern char onquiet;
-extern char term_ret;
-extern ulong connect_rate; /* already connected at xbps */
-extern char *wday[],*mon[];
-
-#ifdef __OS2__
-extern long _timezone=0L;
-extern int _daylight=0L;
-#else
-extern long timezone=0L;
-extern int daylight=0L;
-#endif
-
-#ifdef __OS2__
- extern HEV con_out_sem;
- void con_out_thread(void *);
-#endif
-
-
-#ifdef __OS2__
-void cbreakh(int sig);
-#else
-int cbreakh();
-#endif
-
-void reset_logon_vars(void);
-
-time_t checktime(void)
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-void console_test(void)
-{
- int i;
- time_t start=time(NULL);;
-
-lclxy(1,1);
-online=ON_LOCAL;
-console=CON_L_ECHO;
-useron.misc=ANSI|COLOR;
-for(i=0;i<500;i++)
- bprintf("\1n%05d\t\1hWhite\1rRed\1bBlue\1gGreen\001\x82"
- "\1mMagenta\t\b\b\1cCyan\1nNormal\1gGreen"
- "\1yBrown\1hYellow\1rR\1gG\1bB\1cC\1mM\1yY\1kK"
- "\1>\r\n"
- ,i);
-bprintf("\r\n%lu secs\r\n",time(NULL)-start);
-getch();
-lputc(FF);
-}
-
-
-
-
-void startup(int argc, char *argv[])
-{
- char str[256],HUGE16 *buf,c;
- void *v;
- int i,j,events_only=0;
- int file;
- ulong l;
- node_t node;
- struct ffblk ff;
- struct tm *gm;
-#ifdef __FLAT__
- uchar *cptab; /* unused */
-#else
- uchar cptab[1024];
- union REGS reg;
-#endif
-
-#ifdef __MSDOS__
-setcbrk(0);
-#endif
-
-#ifndef __FLAT__
-if((asmrev=*(&riobp-1))!=23) {
- printf("Wrong rciol.obj\n");
- exit(1); }
-#endif
-
-#ifdef __OS2__
-signal(SIGINT,cbreakh);
-signal(SIGBREAK,cbreakh);
-fixkbdmode();
-#elif defined(__MSDOS__)
-ctrlbrk(cbreakh);
-#endif
-
-#ifndef __FLAT__ /* no DESQview under OS/2 */
-inDV = 0;
-_CX = 0x4445; /* 'DE' */ /* set CX to 4445H; DX to 5351H */
-_DX = 0x5351; /* 'SQ' */ /* (an invalid date) */
-_AX = 0x2B01; /* DOS' set data function */
-geninterrupt( 0x21 ); /* call DOS */
-if ( _AL != 0xFF ) /* if DOS didn't see as invalid */
- _AX = _BX; /* AH=major ver; AL=minor ver */
-else /* DOS saw as invalid */
- _AX = 0; /* no desqview */
-inDV = _AX; /* Save version in inDV flag */
-#endif
-
-#ifdef __FLAT__
-if(putenv("TZ=UCT0"))
- printf("putenv() failed!\n");
-tzset();
-#endif
-
-if((l=checktime())!=0) { /* Check binary time */
- printf("Time problem (%08lx)\n",l);
- exit(1); }
-
-directvideo=1; /* default to direct video */
-
-_fmode=O_BINARY;
-nulstr="";
-crlf="\r\n";
-strcpy(cap_fname,"CAPTURE.TXT");
-sys_status=lncntr=tos=criterrs=keybufbot=keybuftop=lbuflen=slcnt=0L;
-debug=1;
-curatr=LIGHTGRAY;
-errorlevel=0;
-logcol=1;
-next_event=0;
-lastuseron[0]=0;
-emsver=0;
-emshandle=0xffff;
-randomize();
-srand(clock());
-
-for(i=0;i<127 && environ[i];i++) /* save original environment for execl() */
- envp[i]=environ[i];
-envp[i]=0;
-
-strcpy(str,getenv("PROMPT"));
-if(!strstr(str,"[SBBS]")) {
- sprintf(prompt,"PROMPT=[SBBS] %s",str);
- putenv(prompt); }
-
-comspec=getenv("COMSPEC");
-
-lputc(FF);
-
-#ifndef __FLAT__
-node_scrnlen=lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
-#else
-node_scrnlen=25;
-#endif
-lclini(node_scrnlen);
-lclatr(LIGHTGRAY);
-
-#ifdef __OS2__ // Test console speed
-
-if(DosCreateEventSem(NULL,&con_out_sem,0,0)) {
- printf("Can't create console output semaphore.\n");
- exit(2); }
-
-if(_beginthread(con_out_thread,1024,NULL)==-1) {
- printf("Can't start console output thread.\n");
- exit(3); }
-//console_test();
-#endif
-
-#if defined(__OS2__)
-lputs(decrypt(VersionNoticeOS2,0));
-#elif defined(__WIN32__)
-lputs(decrypt(VersionNoticeW32,0));
-#else
-lputs(decrypt(VersionNoticeDOS,0));
-#endif
-lputs(decrypt(CopyrightNotice,0)); /* display copyright notice */
-lputc(CR);
-lputc(LF);
-cidarg[0]=0;
-addrio=0;
-strcpy(orgcmd,argv[0]); /* build up original command line */
-strcat(orgcmd," ");
-for(i=1;i<argc;i++) {
- for(c=0;c<strlen(argv[i]);c++)
- switch(toupper(argv[i][c])) {
- case '/': /* ignore these characters */
- case '-':
- break;
- case 'B': /* desqview or other that needs bios video only */
- directvideo=0;
- strcat(orgcmd,"B");
- break;
- case 'C': /* connected at xbps */
- connect_rate=atol(argv[i]+c+1);
- c=strlen(argv[i]);
- break;
- case 'D': /* assume DCD is always high */
- sys_status|=SS_DCDHIGH;
- strcat(orgcmd,"D");
- break;
- case 'E':
- next_event=time(NULL)+(atol(argv[i]+c+1)*60L);
- c=strlen(argv[i]);
- break;
- case 'F':
- sys_status|=SS_DAILY;
- break;
-#ifdef __OS2__
- case 'H':
- rio_handle=atoi(argv[i]+c+1);
- c=strlen(argv[i]);
- break;
-#endif
- case 'I': /* no modem init */
- strcat(orgcmd,"I");
- nmi=1;
- break;
- case 'L': /* local logon only */
- strcat(orgcmd,"L");
- llo=1;
- break;
- case 'M': /* modem debug info */
- strcat(orgcmd,"M");
- sys_status|=SS_MDMDEBUG;
- break;
- case 'O': /* execute events only */
- events_only=1;
- break;
- case 'Q': /* quit after one caller - phone off hook */
- strcat(orgcmd,"Q");
- qoc=1;
- break;
- case 'R': /* additional rioctl call */
- addrio=ahtoul(argv[i]+c+1);
- c=strlen(argv[i]);
- break;
- case 'X': /* quit after one caller - phone on hook */
- strcat(orgcmd,"X");
- qoc=2;
- break;
- case 'Z':
- sprintf(cidarg,"%-.64s",argv[i]+c+1);
- c=strlen(argv[i]);
- break;
- case 'V':
- lputs(crlf);
- lprintf("Revision %c%s %s %.5s "
- #ifdef __FLAT__
- "RIOLIB %u.%02u"
- #else
- "RCIOL %u"
- #endif
- " SMBLIB %s BCC %X.%02X"
- ,REVISION,BETA,compile_date,compile_time
- #ifdef __FLAT__
- ,rioctl(GVERS)/100,rioctl(GVERS)%100
- #else
- ,rioctl(GVERS)
- #endif
- ,smb_lib_ver()
- ,__BORLANDC__>>8
- ,__BORLANDC__&0xff);
- lputs(crlf);
- bail(0);
- default:
- lputs("\r\nusage: sbbs [bdmoqxfliv] [c#] [e#] [zs] [r#] [h#]"
- "\r\n\r\n"
- "b = use bios for video\r\n"
- "d = assume DCD is always high\r\n"
- "m = modem debug output\r\n"
- "q = quit after one call (phone off hook)\r\n"
- "x = quit after one call\r\n"
- "o = execute events only and then quit\r\n"
- "c# = connected at # bps (ex: c2400)\r\n"
- "e# = external event in # minutes (ex: e30)\r\n"
- "f = force daily event\r\n"
- "l = local logon only\r\n"
- "i = no modem initialization\r\n"
- "zs = use s for caller-id information\r\n"
- "r# = additional rioctl call during port init\r\n"
- "h# = open port handle (SBBS4OS2 only)\r\n"
- "v = version information\r\n"
- );
- bail(0); } }
-
-
-node_disk=getdisk();
-getcwd(node_dir,MAXDIR); /* Get current Directory */
-if(strlen(node_dir)>40) {
- lputs("\r\n\7Current Directory is too long for bbs to run reliably.\r\n");
- bail(1); }
-strcat(node_dir,"\\");
-initdata(); /* auto-sense scrnlen can be overridden */
-
-mswtyp=0;
-if(node_misc&NM_INT28)
- mswtyp|=TS_INT28;
-if(node_misc&NM_WINOS2)
- mswtyp|=TS_WINOS2;
-if(node_misc&NM_NODV)
- mswtyp|=TS_NODV;
-
-#ifndef __FLAT__
-
-__spawn_ext = (node_swap & SWAP_EXT) != 0 ;
-__spawn_ems = (node_swap & SWAP_EMS) != 0 ;
-__spawn_xms = (node_swap & SWAP_XMS) != 0 ;
-
-#endif
-
-#ifndef __FLAT__ /* no EMS under OS/2 */
-if(node_misc&NM_EMSOVL) {
- lputs("\r\nEMS: ");
- if((i=open("EMMXXXX0",O_RDONLY))==-1)
- lputs("not installed.");
- else {
- close(i);
- reg.h.ah=0x46; /* Get EMS version */
- int86(0x67,®,®);
- if(reg.h.ah)
- lputs("\7error getting version.");
- else {
- lprintf("Version %u.%u ",(reg.h.al&0xf0)>>4,reg.h.al&0xf);
- emsver=reg.h.al;
- reg.h.ah=0x4b; /* get handle count */
- int86(0x67,®,®);
- if(reg.h.ah)
- lputs("\7error getting handle count.");
- else {
- if(_OvrInitEms(0,0,23)) /* use up to 360K */
- lprintf("allocation failed.");
- else
- emshandle=reg.x.bx; } } } }
-#endif
-
-sprintf(str,"%s%s",ctrl_dir,"NODE.DAB");
-if((nodefile_fp=fnopen(&nodefile,str
- ,O_DENYNONE|O_RDWR|O_CREAT))==NULL) {
- lprintf("\r\n\7Error opening/creating %s\r\n",str);
- exit(1); }
-sprintf(str,"%s%s",ctrl_dir,"NODE.EXB");
-if((node_ext_fp=fnopen(&node_ext,str,O_DENYNONE|O_RDWR|O_CREAT))==NULL) {
- lprintf("\r\n\7Error opening/creating %s\r\n",str);
- exit(1); }
-memset(&node,0,sizeof(node_t)); /* write NULL to node struct */
-node.status=NODE_OFFLINE;
-while(filelength(nodefile)<sys_nodes*sizeof(node_t)) {
- lseek(nodefile,0L,SEEK_END);
- write(nodefile,&node,sizeof(node_t)); }
-if(lock(nodefile,(node_num-1)*sizeof(node_t),sizeof(node_t))
- || unlock(nodefile,(node_num-1)*sizeof(node_t),sizeof(node_t))) {
- lprintf("\r\n\7File locking failed.\r\n");
-
-#ifndef __FLAT__ /* no SHARE under Win32 and OS/2 */
- reg.x.ax=0x1000;
- int86(0x2f,®,®);
- if(!reg.h.al) {
- lputs("SHARE is not installed. Must run SHARE before SBBS.\r\n");
- lputs("SHARE.EXE is included with DOS v3.0 and higher.\r\n"); }
- else if(reg.h.al==1)
- lputs("SHARE is not installed and NOT OKAY to install.\r\n");
- else if(reg.h.al==0xff)
- lputs("SHARE is installed.\r\n");
- else
- lprintf("INT 2F returned %xh in AL.\r\n",reg.h.al);
-#endif
-
- bail(1); }
-sys_status|=SS_NODEDAB; /* says that node.dab is okay to use */
-getnodedat(node_num,&thisnode,1);
-
-/* if not returning, clear node.dab record */
-if(!connect_rate) {
- thisnode.status=thisnode.action=thisnode.useron=0;
- thisnode.aux=0; /* use to always clear */
- thisnode.misc&=NODE_EVENT; } /* turn off all misc bits but event */
-criterrs=thisnode.errors;
-putnodedat(node_num,thisnode);
-
-if(com_base==0xb)
- rioctl(I14PC);
-else if(com_base==0xd)
- rioctl(I14DB);
-else if(com_base==0xe)
- rioctl(I14PS);
-else if(com_base==0xf)
- rioctl(I14FO);
-if(com_port) {
- comini();
- setrate(); }
-
-for(i=0;i<total_qhubs;i++) {
- if(qhub[i]->node!=node_num)
- continue;
- for(j=0;j<10;j++) {
- sprintf(str,"%s%s.QW%c",data_dir,qhub[i]->id,j ? (j-1)+'0' : 'K');
- if(fexist(str)) {
- lclini(node_scrnlen-1);
- delfiles(temp_dir,"*.*");
- unpack_qwk(str,i); } } }
-
-sprintf(str,"%sTIME.DAB",ctrl_dir);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- lprintf("Error opening/creating %s\r\n",str);
- bail(1); }
-for(i=0;i<total_events;i++) {
- event[i]->last=0;
- if(filelength(file)<sizeof(time_t)*(i+1))
- write(file,&event[i]->last,sizeof(time_t));
- else
- read(file,&event[i]->last,sizeof(time_t)); }
-
-close(file);
-
-sprintf(str,"%sQNET.DAB",ctrl_dir);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- lprintf("Error opening/creating %s\r\n",str);
- bail(1); }
-
-for(i=0;i<total_qhubs;i++) {
- qhub[i]->last=0;
- if(filelength(file)<sizeof(time_t)*(i+1))
- write(file,&qhub[i]->last,sizeof(time_t));
- else
- read(file,&qhub[i]->last,sizeof(time_t)); }
-
-close(file);
-
-sprintf(str,"%sPNET.DAB",ctrl_dir);
-if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- lprintf("Error opening/creating %s\r\n",str);
- bail(1); }
-
-for(i=0;i<total_phubs;i++) {
- phub[i]->last=0;
- if(filelength(file)<sizeof(time_t)*(i+1))
- write(file,&phub[i]->last,sizeof(time_t));
- else
- read(file,&phub[i]->last,sizeof(time_t)); }
-
-close(file);
-
-sprintf(str,"%sNODE.LOG",node_dir);
-lprintf("\r\nOpening %s...",str);
-if((logfile_fp=fnopen(&logfile,str,O_WRONLY|O_CREAT|O_APPEND|O_DENYALL))==NULL) {
- lprintf("\r\n\7Error opening %s\r\n\r\n"
- "Perhaps this node is already running.\r\n",str);
- bail(1); }
-lprintf("\r%s opened.",str);
-sys_status|=SS_LOGOPEN;
-if(filelength(logfile)) {
- log(crlf);
- now=time(NULL);
- gm=localtime(&now);
- sprintf(str,"%02d:%02d%c %s %s %02d %u "
- "End of preexisting log entry (possible crash)"
- ,gm->tm_hour>12 ? gm->tm_hour-12 : gm->tm_hour==0 ? 12 : gm->tm_hour
- ,gm->tm_min,gm->tm_hour>=12 ? 'p' : 'a',wday[gm->tm_wday]
- ,mon[gm->tm_mon],gm->tm_mday,gm->tm_year+1900);
- logline("L!",str);
- log(crlf);
- catsyslog(1); }
-lputc(CLREOL);
-sprintf(dszlog,"DSZLOG=%sPROTOCOL.LOG",node_dir);
-putenv(dszlog); /* Makes the DSZ LOG active */
-sprintf(sbbsnode,"SBBSNODE=%s",node_dir);
-putenv(sbbsnode); /* create enviornment var to contain node num */
-sprintf(sbbsnnum,"SBBSNNUM=%d",node_num);
-putenv(sbbsnnum); /* create enviornment var to contain node num */
-backout();
-if(events_only) {
- reset_logon_vars();
- while(!wfc_events(time(NULL)))
- ;
- bail(0); }
-}
-
-/****************************************************************************/
-/* Reads data from DSTS.DAB into stats structure */
-/* If node is zero, reads from ctrl\dsts.dab, otherwise from each node */
-/****************************************************************************/
-void getstats(char node,stats_t *stats)
-{
- char str[256];
- int file;
-
-sprintf(str,"%sDSTS.DAB",node ? node_path[node-1] : ctrl_dir);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-lseek(file,4L,SEEK_SET); /* Skip update time/date */
-read(file,stats,sizeof(stats_t));
-close(file);
-}
-
-
-/****************************************************************************/
-/* Updates dstst.dab file upon user logoff. */
-/* First node, then system stats. */
-/****************************************************************************/
-void logoffstats()
-{
- char str[256];
- int i,file;
- stats_t stats;
-
-for(i=0;i<2;i++) {
- sprintf(str,"%sDSTS.DAB",i ? ctrl_dir : node_dir);
- if((file=nopen(str,O_RDWR))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return; }
- lseek(file,12L,SEEK_SET); /* Skip timestamp, logons and logons today */
- read(file,&stats.timeon,4); /* Total time on system */
- stats.timeon+=(now-logontime)/60;
- read(file,&stats.ttoday,4); /* Time today on system */
- stats.ttoday+=(now-logontime)/60;
- read(file,&stats.uls,4); /* Uploads today */
- stats.uls+=logon_uls;
- read(file,&stats.ulb,4); /* Upload bytes today */
- stats.ulb+=logon_ulb;
- read(file,&stats.dls,4); /* Downloads today */
- stats.dls+=logon_dls;
- read(file,&stats.dlb,4); /* Download bytes today */
- stats.dlb+=logon_dlb;
- read(file,&stats.ptoday,4); /* Posts today */
- if(!(useron.rest&FLAG('Q')))
- stats.ptoday+=logon_posts;
- read(file,&stats.etoday,4); /* Emails today */
- stats.etoday+=logon_emails;
- read(file,&stats.ftoday,4); /* Feedback sent today */
- stats.ftoday+=logon_fbacks;
- read(file,&stats.nusers,2); /* New users today */
- if(sys_status&SS_NEWUSER)
- stats.nusers++;
- lseek(file,12L,SEEK_SET);
- write(file,&stats.timeon,4); /* Total time on system */
- write(file,&stats.ttoday,4); /* Time today on system */
- write(file,&stats.uls,4); /* Uploads today */
- write(file,&stats.ulb,4); /* Upload bytes today */
- write(file,&stats.dls,4); /* Downloads today */
- write(file,&stats.dlb,4); /* Download bytes today */
- write(file,&stats.ptoday,4); /* Posts today */
- write(file,&stats.etoday,4); /* Emails today */
- write(file,&stats.ftoday,4); /* Feedback sent today */
- write(file,&stats.nusers,2); /* New users today */
- close(file); }
-
-}
-
-/****************************************************************************/
-/* Lists system statistics for everyday the bbs has been running. */
-/* Either for the current node (node=1) or the system (node=0) */
-/****************************************************************************/
-void printstatslog(uint node)
-{
- char str[256];
- uchar *buf;
- int file;
- time_t timestamp;
- long l;
- ulong length,
- logons,
- timeon,
- posts,
- emails,
- fbacks,
- ulb,
- uls,
- dlb,
- dls;
-
-if(node)
- bprintf(text[NodeStatsLogHdr],node);
-else
- bputs(text[SysStatsLogHdr]);
-sprintf(str,"%sCSTS.DAB",node ? node_path[node-1] : ctrl_dir);
-if((file=nopen(str,O_RDONLY))==-1)
- return;
-length=filelength(file);
-if(length<40) {
- close(file);
- return; }
-if((buf=(char *)MALLOC(length))==0) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return; }
-read(file,buf,length);
-close(file);
-l=length-4;
-while(l>-1L && !msgabort()) {
- fbacks=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- emails=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- posts=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- dlb=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- dls=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- ulb=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- uls=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- timeon=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- logons=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- timestamp=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- unixtodos(timestamp-(24*60*60),&date,&curtime); /* 1 day less than stamp */
- bprintf(text[SlogFmt]
- ,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900),timeon,logons,posts,emails
- ,fbacks,ulb/1024,uls,dlb/1024,dls); }
-FREE(buf);
-}
-
-#ifdef __OS2__
-#define INPUT_LOOP 1000
-#else
-#define INPUT_LOOP 1000
-#endif
-
-/****************************************************************************/
-/* Terminal mode */
-/* Returns 1 if it is to logon locally, 0 if it is done. */
-/****************************************************************************/
-char terminal()
-{
- char str[256],c,x,y,*p;
- int file;
- uint i,l;
-
-lclini(node_scrnlen-1);
-statline=-1;
-statusline();
-if(!term_ret) {
-#ifdef __FLAT__
- setbaud(com_rate);
-#else
- setbaud((uint)(com_rate&0xffffL));
-#endif
- mdmcmd(mdm_term); }
-else
- lputs("\r\nReturned.\r\n");
-
-l=0; /* l is the ansi response code counter */
-
-while(1) {
- if(lkbrd(1)) {
- i=lkbrd(0);
- if((i&0xff)==0) {
- i>>=8;
- if(i==45) { /* Alt-X */
- rioctl(0x11);
- if(DCDHIGH) {
- lputs("\r\nHang up (Yes/No/Abort) ? ");
- c=toupper(getch());
- if(c!='Y' && c!='N') { /* Hang-up Y/N/Abort */
- lputs("Abort\r\n");
- continue; }
- if(c=='Y') { /* Yes, hang-up */
- if(mdm_misc&MDM_NODTR)
- mdmcmd(mdm_hang);
- else
- if(dtr(15))
- lputs("Dropping DTR Failed"); } }
- break; }
- else if(i==35) { /* Alt-H */
- if(mdm_misc&MDM_NODTR)
- mdmcmd(mdm_hang);
- else
- if(dtr(15))
- lputs("Dropping DTR Failed\r\n");
- dtr(1); }
- else if((i>=0x3b &&i<=0x44) || (i>=0x54 &&i<=0x71)
- || (i>=0x85 &&i<=0x8c)) {
- sprintf(str,"%s%sF%d.MAC",text_dir
- ,i<0x45 || (i>=0x85 && i<=0x86) ? nulstr
- :i<0x5e || (i>=0x87 && i<=0x88) ? "SHFT-"
- :i<0x68 || (i>=0x89 && i<=0x8a) ? "CTRL-" : "ALT-"
- ,i<0x45 ? i-0x3a : i<0x5e ? i-0x53 : i<0x68 ? i-0x5d
- :i<0x72 ? i-0x67 : i<0x87 ? i-0x7a : i<0x89 ? i-0x7c
- :i<0x8b ? i-0x7e : i-0x80);
- if((file=nopen(str,O_RDONLY))==-1)
- continue;
- i=filelength(file);
- while(i--) {
- read(file,&c,1);
- if(c!=LF)
- putcomch(c); }
- close(file); }
- else if(i==0x48) /* up arrow */
- putcom("\x1b[A");
- else if(i==0x50) /* dn arrow */
- putcom("\x1b[B");
- else if(i==0x4b) /* left */
- putcom("\x1b[D");
- else if(i==0x4d) /* right */
- putcom("\x1b[C");
- else if(i==0x16) { /* Alt-U User Edit */
- if((p=MALLOC((node_scrnlen*80)*2))==NULL) {
- lputs("Allocation error.\r\n");
- continue; }
- gettext(1,1,80,node_scrnlen,p);
- x=lclwx();
- y=lclwy();
- quicklogonstuff();
- useredit(0,1);
- puttext(1,1,80,node_scrnlen,p);
- FREE(p);
- lclxy(x,y); }
- else if(i==0x26) { /* Alt-L logon locally */
- lputc(FF);
- quicklogonstuff();
- if(!useron.number) {
- lputc(7);
- lputs("A Sysop account hasn't been created");
- continue; }
- term_ret=1;
- return(1); }
- else if(i==0x20) { /* Alt-D Shell to DOS */
- if((p=MALLOC((node_scrnlen*80)*2))==NULL) {
- lputs("Allocation error.\r\n");
- continue; }
- gettext(1,1,80,node_scrnlen,p);
- x=lclwx();
- y=lclwy();
- lclini(node_scrnlen);
- lputc(FF);
- external(comspec,0);
- puttext(1,1,80,node_scrnlen,p);
- FREE(p);
- lclxy(x,y); } }
- else {
- putcomch(i);
- continue; } }
- for(i=0;i<INPUT_LOOP;i++) {
- if((c=incom())!=0) {
- if(c==ESC)
- l=!l;
- else if(l) {
- if(c=='[') {
- if(l!=1) l=0; else l++; }
- else if(c=='6') {
- if(l!=2) l=0; else l++; }
- else if(c=='n') {
- if(l==3) {
- sprintf(str,"\x1b[%u;%uR"
- ,lclwy(),lclwx());
- putcom(str); }
- l=0; }
- else l=0; }
- outcon(c); }
- else
- break; }
- if(!c)
- mswait(0); }
-term_ret=0;
-return(0);
-}
-
-
-/****************************************************************************/
-/* Exits bbs to DOS with appropriate error code after setting COM port isr */
-/* back to normal. */
-/****************************************************************************/
-void bail(int code)
-{
-
-if(sys_status&SS_COMISR)
- rioini(0,0);
-
-lclatr(LIGHTGRAY);
-if(code) {
- getnodedat(node_num,&thisnode,1);
- criterrs=++thisnode.errors;
- putnodedat(node_num,thisnode);
- now=time(NULL);
- lprintf("\r\nExiting with errorlevel (%d) on %s\r\n",code,timestr(&now));
- if(sys_misc&SM_ERRALARM) {
- beep(500,220); beep(250,220);
- beep(500,220); beep(250,220);
- beep(500,220); beep(250,220);
- nosound(); } }
-
-if(sys_status&SS_INITIAL) {
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_OFFLINE;
- putnodedat(node_num,thisnode);
- close(nodefile);
- close(node_ext); }
-
-exit(code);
-}
-
-
diff --git a/src/sbbs2/main_sec.c b/src/sbbs2/main_sec.c
deleted file mode 100644
index deb0e7e510916292a9b49ab3ae5d33c0be3f9f75..0000000000000000000000000000000000000000
--- a/src/sbbs2/main_sec.c
+++ /dev/null
@@ -1,330 +0,0 @@
-#line 1 "MAIN_SEC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/******************************************************/
-/* This file contains the single function, main_sec() */
-/******************************************************/
-
-#include "sbbs.h"
-
-extern void logoff();
-
-void main_cfg_cmd();
-void main_ext_cmd(char ch);
-void main_str_cmd(char *str);
-void sysop_page(void);
-ulong getposts(uint subnum);
-
-char no_rip_menu=0;
-
-void new_scan_ptr_cfg()
-{
- char str[128];
- long i,j,s;
- ulong l;
- time_t t,lt;
-
-while(online) {
- bputs(text[CfgGrpLstHdr]);
- for(i=0;i<usrgrps && online;i++) {
- checkline();
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bprintf(text[CfgGrpLstFmt],i+1,grp[usrgrp[i]]->lname); }
- SYNC;
- mnemonics(text[WhichOrAll]);
- s=getkeys("AQ",i);
- if(!s || s==-1 || s=='Q')
- break;
- if(s=='A') {
- mnemonics("\r\nEnter number of messages from end, ~Date, ~Quit, or"
- " [Last Message]: ");
- s=getkeys("DLQ",9999);
- if(s==-1 || s=='Q')
- continue;
- if(s=='D') {
- t=time(NULL);
- if(inputnstime(&t) && !(sys_status&SS_ABORT)) {
- bputs(text[LoadingMsgPtrs]);
- for(i=0;i<usrgrps && online;i++)
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- sub[usrsub[i][j]]->ptr=getmsgnum(usrsub[i][j],t); } }
- continue; }
- if(s=='L')
- s=0;
- if(s)
- s&=~0x80000000L;
- bputs(text[LoadingMsgPtrs]);
- for(i=0;i<usrgrps;i++)
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- getlastmsg(usrsub[i][j],&l,0);
- if(s>l)
- sub[usrsub[i][j]]->ptr=0;
- else
- sub[usrsub[i][j]]->ptr=l-s; }
- continue; }
- i=(s&~0x80000000L)-1;
- while(online) {
- l=0;
- bprintf(text[CfgSubLstHdr],grp[usrgrp[i]]->lname);
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- if(j<9) outchar(SP);
- if(j<99) outchar(SP);
- t=getmsgtime(usrsub[i][j],sub[usrsub[i][j]]->ptr);
- if(t>l)
- l=t;
- bprintf(text[SubPtrLstFmt],j+1,sub[usrsub[i][j]]->lname
- ,timestr(&t),nulstr); }
- SYNC;
- mnemonics(text[WhichOrAll]);
- s=getkeys("AQ",j);
- if(sys_status&SS_ABORT) {
- lncntr=0;
- return; }
- if(s==-1 || !s || s=='Q')
- break;
- if(s=='A') { /* The entire group */
- mnemonics("\r\nEnter number of messages from end, ~Date, ~Quit, or"
- " [Last Message]: ");
- s=getkeys("DLQ",9999);
- if(s==-1 || s=='Q')
- continue;
- if(s=='D') {
- t=l;
- if(inputnstime(&t) && !(sys_status&SS_ABORT)) {
- bputs(text[LoadingMsgPtrs]);
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- sub[usrsub[i][j]]->ptr=getmsgnum(usrsub[i][j],t); } }
- continue; }
- if(s=='L')
- s=0;
- if(s)
- s&=~0x80000000L;
- bputs(text[LoadingMsgPtrs]);
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- getlastmsg(usrsub[i][j],&l,0);
- if(s>l)
- sub[usrsub[i][j]]->ptr=0;
- else
- sub[usrsub[i][j]]->ptr=l-s; }
- continue; }
- else {
- j=(s&~0x80000000L)-1;
- mnemonics("\r\nEnter number of messages from end, ~Date, ~Quit, or"
- " [Last Message]: ");
- s=getkeys("DLQ",9999);
- if(s==-1 || s=='Q')
- continue;
- if(s=='D') {
- t=getmsgtime(usrsub[i][j],sub[usrsub[i][j]]->ptr);
- if(inputnstime(&t) && !(sys_status&SS_ABORT)) {
- bputs(text[LoadingMsgPtrs]);
- sub[usrsub[i][j]]->ptr=getmsgnum(usrsub[i][j],t); }
- continue; }
- if(s=='L')
- s=0;
- if(s)
- s&=~0x80000000L;
- getlastmsg(usrsub[i][j],&l,0);
- if(s>l)
- sub[usrsub[i][j]]->ptr=0;
- else
- sub[usrsub[i][j]]->ptr=l-s; }
- } }
-}
-
-void new_scan_cfg(ulong misc)
-{
- long s;
- ulong i,j;
- ulong t;
-
-while(online) {
- bputs(text[CfgGrpLstHdr]);
- for(i=0;i<usrgrps && online;i++) {
- checkline();
- if(i<9) outchar(SP);
- if(i<99) outchar(SP);
- bprintf(text[CfgGrpLstFmt],i+1,grp[usrgrp[i]]->lname); }
- SYNC;
- if(misc&SUB_NSCAN)
- mnemonics(text[NScanCfgWhichGrp]);
- else
- mnemonics(text[SScanCfgWhichGrp]);
- s=getnum(i);
- if(s<1)
- break;
- i=s-1;
- while(online) {
- if(misc&SUB_NSCAN)
- misc&=~SUB_YSCAN;
- bprintf(text[CfgSubLstHdr],grp[usrgrp[i]]->lname);
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- if(j<9) outchar(SP);
- if(j<99) outchar(SP);
- bprintf(text[CfgSubLstFmt],j+1
- ,sub[usrsub[i][j]]->lname
- ,sub[usrsub[i][j]]->misc&misc ?
- (misc&SUB_NSCAN && sub[usrsub[i][j]]->misc&SUB_YSCAN) ?
- "To You Only" : text[On] : text[Off]);
- }
- SYNC;
- if(misc&SUB_NSCAN)
- mnemonics(text[NScanCfgWhichSub]);
- else
- mnemonics(text[SScanCfgWhichSub]);
- s=getkeys("AQ",j);
- if(sys_status&SS_ABORT) {
- lncntr=0;
- return; }
- if(!s || s==-1 || s=='Q')
- break;
- if(s=='A') {
- t=sub[usrsub[i][0]]->misc&misc;
- if(misc&SUB_NSCAN && !t)
- if(!noyes("Messages to you only"))
- misc|=SUB_YSCAN;
- for(j=0;j<usrsubs[i] && online;j++) {
- checkline();
- if(t) sub[usrsub[i][j]]->misc&=~misc;
- else {
- if(misc&SUB_NSCAN)
- sub[usrsub[i][j]]->misc&=~SUB_YSCAN;
- sub[usrsub[i][j]]->misc|=misc; } }
- continue; }
- j=(s&~0x80000000L)-1;
- if(misc&SUB_NSCAN && !(sub[usrsub[i][j]]->misc&misc)) {
- if(!noyes("Messages to you only"))
- sub[usrsub[i][j]]->misc|=SUB_YSCAN;
- else
- sub[usrsub[i][j]]->misc&=~SUB_YSCAN; }
- sub[usrsub[i][j]]->misc^=misc; } }
-}
-
-/****************************************************************************/
-/* Performs a new message scan all all sub-boards */
-/****************************************************************************/
-void scanallsubs(char mode)
-{
- char str[256];
- int i,j,found=0;
-
-if(/* action==NODE_MAIN && */ mode&(SCAN_FIND|SCAN_TOYOU)) {
- i=yesno(text[DisplayTitlesOnlyQ]);
- if(mode&SCAN_FIND) {
- bputs(text[SearchStringPrompt]);
- if(!getstr(str,40,K_LINE|K_UPPER))
- return;
- if(i) { /* if titles only */
- for(i=0;i<usrgrps;i++) {
- for(j=0;j<usrsubs[i] && !msgabort();j++)
- found=searchsub(usrsub[i][j],str);
- if(j<usrsubs[i])
- break; }
- if(!found)
- CRLF;
- sprintf(tmp,"Searched messages for '%s'",str);
- logline(nulstr,tmp);
- return; } }
- else if(mode&SCAN_TOYOU && i) {
- for(i=0;i<usrgrps;i++) {
- for(j=0;j<usrsubs[i] && !msgabort();j++)
- found=searchsub_toyou(usrsub[i][j]);
- if(j<usrsubs[i])
- break; }
- if(!found)
- CRLF;
- return; } }
-
-if(useron.misc&(RIP|WIP) && !(useron.misc&EXPERT)) {
- menu("MSGSCAN"); }
-for(i=0;i<usrgrps;i++) {
- for(j=0;j<usrsubs[i] && !msgabort();j++)
- if(((mode&SCAN_NEW && sub[usrsub[i][j]]->misc&(SUB_NSCAN|SUB_FORCED))
- || mode&SCAN_FIND
- || (mode&SCAN_TOYOU && sub[usrsub[i][j]]->misc&SUB_SSCAN))
- && scanposts(usrsub[i][j],mode,str)) break;
- if(j<usrsubs[i])
- break; }
-bputs(text[MessageScan]);
-if(i<usrgrps) {
- bputs(text[MessageScanAborted]);
- return; }
-bputs(text[MessageScanComplete]);
-if(mode&SCAN_NEW && !(mode&(SCAN_BACK|SCAN_TOYOU))
- && useron.misc&ANFSCAN && !(useron.rest&FLAG('T'))) {
- xfer_cmds++;
- scanalldirs(FL_ULTIME); }
-}
-
-/****************************************************************************/
-/* Used to scan single or multiple sub-boards. 'mode' is the scan type. */
-/****************************************************************************/
-void scansubs(char mode)
-{
- char ch,str[256];
- int i=0,j,found=0;
-
-mnemonics(text[SubGroupOrAll]);
-ch=getkeys("SGA\r",0);
-if(sys_status&SS_ABORT || ch==CR)
- return;
-
-if(ch!='A' && mode&(SCAN_FIND|SCAN_TOYOU)) {
- if(yesno(text[DisplayTitlesOnlyQ])) i=1;
- if(mode&SCAN_FIND) {
- bputs(text[SearchStringPrompt]);
- if(!getstr(str,40,K_LINE|K_UPPER))
- return;
- if(i) { /* if titles only */
- if(ch=='S')
- found=searchsub(usrsub[curgrp][cursub[curgrp]],str);
- else if(ch=='G')
- for(i=0;i<usrsubs[curgrp] && !msgabort();i++)
- found=searchsub(usrsub[curgrp][i],str);
- sprintf(tmp,"Searched messages for '%s'",str);
- logline(nulstr,tmp);
- if(!found)
- CRLF;
- return; } }
- else if(mode&SCAN_TOYOU && i) {
- if(ch=='S')
- found=searchsub_toyou(usrsub[curgrp][cursub[curgrp]]);
- else if(ch=='G')
- for(i=0;i<usrsubs[curgrp] && !msgabort();i++)
- found=searchsub_toyou(usrsub[curgrp][i]);
- if(!found)
- CRLF;
- return; } }
-
-if(ch=='S') {
- if(useron.misc&(RIP|WIP) && !(useron.misc&EXPERT)) {
- menu("MSGSCAN"); }
- i=scanposts(usrsub[curgrp][cursub[curgrp]],mode,str);
- bputs(text[MessageScan]);
- if(i) bputs(text[MessageScanAborted]);
- else bputs(text[MessageScanComplete]);
- return; }
-if(ch=='G') {
- if(useron.misc&(RIP|WIP) && !(useron.misc&EXPERT)) {
- menu("MSGSCAN"); }
- for(i=0;i<usrsubs[curgrp] && !msgabort();i++)
- if(((mode&SCAN_NEW &&
- sub[usrsub[curgrp][i]]->misc&(SUB_NSCAN|SUB_FORCED))
- || (mode&SCAN_TOYOU && sub[usrsub[curgrp][i]]->misc&SUB_SSCAN)
- || mode&SCAN_FIND)
- && scanposts(usrsub[curgrp][i],mode,str)) break;
- bputs(text[MessageScan]);
- if(i==usrsubs[curgrp]) bputs(text[MessageScanComplete]);
- else bputs(text[MessageScanAborted]);
- return; }
-
-scanallsubs(mode);
-}
diff --git a/src/sbbs2/main_wfc.c b/src/sbbs2/main_wfc.c
deleted file mode 100644
index 9d459961b41b3a996ba0181b352e1da3428ccbba..0000000000000000000000000000000000000000
--- a/src/sbbs2/main_wfc.c
+++ /dev/null
@@ -1,1543 +0,0 @@
-#line 1 "MAIN_WFC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "etext.h"
-#include "cmdshell.h"
-#include "qwk.h"
-
-extern char onquiet,nmi,llo,qwklogon;
-extern char term_ret;
-extern ulong connect_rate; /* already connected at xbps */
-extern char *wday[],*mon[];
-extern char *hungupstr;
-extern char cidarg[];
-
-void reset_logon_vars(void)
-{
- int i;
-
-sys_status&=~(SS_USERON|SS_TMPSYSOP|SS_LCHAT|SS_ABORT
- |SS_PAUSEON|SS_PAUSEOFF|SS_EVENT|SS_NEWUSER|SS_NEWDAY);
-keybufbot=keybuftop=lbuflen=slcnt=altul=timeleft_warn=0;
-logon_uls=logon_ulb=logon_dls=logon_dlb=0;
-logon_posts=logon_emails=logon_fbacks=0;
-posts_read=0;
-batdn_total=batup_total=0;
-usrgrps=usrlibs=0;
-curgrp=curlib=0;
-for(i=0;i<total_libs;i++)
- curdir[i]=0;
-for(i=0;i<total_grps;i++)
- cursub[i]=0;
-}
-
-void mail_maint(void)
-{
- int i;
-
-lprintf("\r\n\r\nPurging deleted/expired e-mail...");
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0)
- errormsg(WHERE,ERR_OPEN,smb.file,i);
-else {
- if((i=smb_locksmbhdr(&smb))!=0)
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- else
- delmail(0,MAIL_ALL);
- smb_close(&smb); }
-}
-
-/*************************************************************/
-/* Returns 0 to reinitialize modem and start WFC cycle again */
-/* Returns 1 to continue checking things peacefully */
-/*************************************************************/
-char wfc_events(time_t lastnodechk)
-{
- char str[256],str2[256],*buf;
- int i,j,k,file,ret=1,chunk;
- ulong l,m;
- user_t user;
- node_t node;
- struct ffblk ff;
- struct tm *gm;
- struct date lastdate;
-
-for(i=0;i<total_qhubs;i++) {
- gm=localtime(&now); /* Qnet call out based on time */
- unixtodos(qhub[i]->last,&date,&curtime);
- if(node_num==qhub[i]->node /* or frequency */
- && (qhub[i]->last==-1L
- || ((qhub[i]->freq
- && (now-qhub[i]->last)/60>qhub[i]->freq)
- || (qhub[i]->time
- && (gm->tm_hour*60)+gm->tm_min>=qhub[i]->time
- && (gm->tm_mday!=date.da_day || gm->tm_mon!=date.da_mon-1)))
- && qhub[i]->days&(1<<gm->tm_wday))) {
- offhook();
- lputc(FF);
- sprintf(str,"%sQNET\\%s.NOW"
- ,data_dir,qhub[i]->id);
- remove(str); /* Remove semaphore file */
- sprintf(str,"%sQNET\\%s.PTR"
- ,data_dir,qhub[i]->id);
- file=nopen(str,O_RDONLY);
- for(j=0;j<qhub[i]->subs;j++) {
- sub[qhub[i]->sub[j]]->ptr=0;
- lseek(file,sub[qhub[i]->sub[j]]->ptridx*4L,SEEK_SET);
- read(file,&sub[qhub[i]->sub[j]]->ptr,4); }
- if(file!=-1)
- close(file);
- if(pack_rep(i)) {
- if((file=nopen(str,O_WRONLY|O_CREAT))==-1)
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT);
- else {
- for(j=l=0;j<qhub[i]->subs;j++) {
- while(filelength(file)<sub[qhub[i]->sub[j]]->ptridx*4L)
- write(file,&l,4); /* initialize ptrs to null */
- lseek(file,sub[qhub[i]->sub[j]]->ptridx*4L,SEEK_SET);
- write(file,&sub[qhub[i]->sub[j]]->ptr,4); }
- close(file); } }
- delfiles(temp_dir,"*.*");
-
- qhub[i]->last=time(NULL);
- sprintf(str,"%sQNET.DAB",ctrl_dir);
- if((file=nopen(str,O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY);
- bail(1); }
- lseek(file,sizeof(time_t)*i,SEEK_SET);
- write(file,&qhub[i]->last,sizeof(time_t));
- close(file);
-
- if(qhub[i]->call[0]) {
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_NETTING;
- putnodedat(node_num,thisnode);
- lputc(FF);
- external(cmdstr(qhub[i]->call,nulstr,nulstr,NULL),EX_SWAP);
- ret=0; }
- for(j=0;j<10;j++) {
- sprintf(str,"%s%s.QW%c",data_dir,qhub[i]->id,j ? (j-1)+'0' : 'K');
- if(fexist(str)) {
- lclini(node_scrnlen-1);
- delfiles(temp_dir,"*.*");
- unpack_qwk(str,i); } }
- lputc(FF); } }
-
-for(i=0;i<total_phubs;i++) {
- gm=localtime(&now); /* PostLink call out based on time */
- unixtodos(phub[i]->last,&date,&curtime);
- if(node_num==phub[i]->node /* or frequency */
- && ((phub[i]->freq
- && (now-phub[i]->last)/60>phub[i]->freq)
- || (phub[i]->time
- && (gm->tm_hour*60)+gm->tm_min>=phub[i]->time
- && (gm->tm_mday!=date.da_day || gm->tm_mon!=date.da_mon-1)))
- && phub[i]->days&(1<<gm->tm_wday)) {
- offhook();
- lputc(FF);
-
- phub[i]->last=time(NULL);
- sprintf(str,"%sPNET.DAB",ctrl_dir);
- if((file=nopen(str,O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY);
- bail(1); }
- lseek(file,sizeof(time_t)*i,SEEK_SET);
- write(file,&phub[i]->last,sizeof(time_t));
- close(file);
-
- if(phub[i]->call[0]) {
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_NETTING;
- putnodedat(node_num,thisnode);
- lputc(FF);
- external(cmdstr(phub[i]->call,nulstr,nulstr,NULL),EX_SWAP);
- ret=0; } } }
-
-for(i=0;i<total_events;i++) {
- if(!event[i]->node || event[i]->node>sys_nodes)
- continue;
- gm=localtime(&now);
- unixtodos(event[i]->last,&date,&curtime);
- if(event[i]->last==-1
- || ((gm->tm_hour*60)+gm->tm_min>=event[i]->time
- && (gm->tm_mday!=date.da_day || gm->tm_mon!=date.da_mon-1)
- && event[i]->days&(1<<gm->tm_wday))) {
-
- if(event[i]->misc&EVENT_EXCL) { /* exclusive event */
- offhook();
- lputc(FF);
- if(event[i]->node!=node_num) {
- lprintf("Waiting for node %d to run timed event.\r\n\r\n"
- ,event[i]->node);
- lputs("Hit any key to abort wait...");
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_EVENT_LIMBO;
- thisnode.aux=event[i]->node;
- putnodedat(node_num,thisnode);
- lastnodechk=0; /* really last event time check */
- while(!lkbrd(0)) {
- mswait(1);
- now=time(NULL);
- if(now-lastnodechk<10)
- continue;
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&NODE_DOWN)
- return(0);
- lastnodechk=now;
- sprintf(str,"%sTIME.DAB",ctrl_dir);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- event[i]->last=now;
- return(0); }
- lseek(file,(long)i*4L,SEEK_SET);
- read(file,&event[i]->last,sizeof(time_t));
- close(file);
- if(now-event[i]->last<(60*60)) /* event is done */
- break; }
- sprintf(str,"%s%s.NOW",data_dir,event[i]->code);
- remove(str);
- event[i]->last=now;
- ret=0; }
- else {
- lputs("Waiting for all nodes to become inactive before "
- "running timed event.\r\n\r\n");
- lputs("Hit any key to abort wait and run event now...\r\n\r\n");
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_EVENT_WAITING;
- putnodedat(node_num,thisnode);
- lastnodechk=0;
- while(!lkbrd(0)) {
- mswait(1);
- now=time(NULL);
- if(now-lastnodechk<10)
- continue;
- lastnodechk=now;
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&NODE_DOWN)
- return(0);
- for(j=1;j<=sys_nodes;j++) {
- if(j==node_num)
- continue;
- getnodedat(j,&node,0);
- if(node.status!=NODE_OFFLINE
- && node.status!=NODE_EVENT_LIMBO)
- break; }
- if(j>sys_nodes) /* all nodes either offline or in limbo */
- break;
- lprintf("\rWaiting for node %d (status=%d)"
- ,j,node.status);
- lputc(CLREOL); } } }
- if(event[i]->node!=node_num)
- event[i]->last=now;
- else {
- sprintf(str,"%s%s.NOW",data_dir,event[i]->code);
- remove(str);
- offhook();
- lputc(FF);
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_EVENT_RUNNING;
- putnodedat(node_num,thisnode);
- if(event[i]->dir[0]) {
- if(event[i]->dir[1]==':') /* drive letter specified */
- setdisk(toupper(event[i]->dir[0])-'A');
- if(chdir(event[i]->dir))
- errormsg(WHERE,ERR_CHDIR,event[i]->dir,0); }
-
- external(cmdstr(event[i]->cmd,nulstr,nulstr,NULL),0); /* EX_CC */
- event[i]->last=time(NULL);
- sprintf(str,"%sTIME.DAB",ctrl_dir);
- if((file=nopen(str,O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY);
- return(ret); }
- lseek(file,(long)i*4L,SEEK_SET);
- write(file,&event[i]->last,sizeof(time_t));
- close(file);
- ret=0; } } }
-
-
-if(sys_status&SS_DAILY || thisnode.misc&NODE_EVENT) { /* daily events */
-
- offhook();
- lputc(FF);
-
- if(sys_status&SS_DAILY) {
-
- getnodedat(node_num,&thisnode,1);
- now=time(NULL);
- j=lastuser();
- thisnode.status=NODE_EVENT_RUNNING;
- putnodedat(node_num,thisnode);
-
- lprintf("Running system daily maintenance...\r\n\r\n");
- logentry("!:","Ran system daily maintenance");
- for(i=1;i<=j;i++) {
-
- lprintf("\rChecking user %5u of %-5u",i,j);
- user.number=i;
- getuserdat(&user);
-
- /***********************************************/
- /* Fix name (NAME.DAT and USER.DAT) mismatches */
- /***********************************************/
- if(user.misc&DELETED) {
- if(strcmp(username(i,str2),"DELETED USER"))
- putusername(i,nulstr);
- continue; }
-
- if(strcmp(user.alias,username(i,str2)))
- putusername(i,user.alias);
-
- if(!(user.misc&(DELETED|INACTIVE))
- && user.expire && (ulong)user.expire<=(ulong)now) {
- putsmsg(i,text[AccountHasExpired]);
- sprintf(str,"%s #%u Expired",user.alias,user.number);
- logentry("!%",str);
- if(level_misc[user.level]&LEVEL_EXPTOVAL
- && level_expireto[user.level]<10) {
- user.flags1=val_flags1[level_expireto[user.level]];
- user.flags2=val_flags2[level_expireto[user.level]];
- user.flags3=val_flags3[level_expireto[user.level]];
- user.flags4=val_flags4[level_expireto[user.level]];
- user.exempt=val_exempt[level_expireto[user.level]];
- user.rest=val_rest[level_expireto[user.level]];
- if(val_expire[level_expireto[user.level]])
- user.expire=now
- +(val_expire[level_expireto[user.level]]*24*60*60);
- else
- user.expire=0;
- user.level=val_level[level_expireto[user.level]]; }
- else {
- if(level_misc[user.level]&LEVEL_EXPTOLVL)
- user.level=level_expireto[user.level];
- else
- user.level=expired_level;
- user.flags1&=~expired_flags1; /* expired status */
- user.flags2&=~expired_flags2; /* expired status */
- user.flags3&=~expired_flags3; /* expired status */
- user.flags4&=~expired_flags4; /* expired status */
- user.exempt&=~expired_exempt;
- user.rest|=expired_rest;
- user.expire=0; }
- putuserrec(i,U_LEVEL,2,itoa(user.level,str,10));
- putuserrec(i,U_FLAGS1,8,ultoa(user.flags1,str,16));
- putuserrec(i,U_FLAGS2,8,ultoa(user.flags2,str,16));
- putuserrec(i,U_FLAGS3,8,ultoa(user.flags3,str,16));
- putuserrec(i,U_FLAGS4,8,ultoa(user.flags4,str,16));
- putuserrec(i,U_EXPIRE,8,ultoa(user.expire,str,16));
- putuserrec(i,U_EXEMPT,8,ultoa(user.exempt,str,16));
- putuserrec(i,U_REST,8,ultoa(user.rest,str,16));
- if(expire_mod[0]) {
- useron=user;
- online=ON_LOCAL;
- exec_bin(expire_mod,&main_csi);
- online=0; }
- }
-
- /***********************************************************/
- /* Auto deletion based on expiration date or days inactive */
- /***********************************************************/
- if(!(user.exempt&FLAG('P')) /* Not a permanent account */
- && !(user.misc&(DELETED|INACTIVE)) /* alive */
- && (sys_autodel && (now-user.laston)/(long)(24L*60L*60L)
- > sys_autodel)) { /* Inactive too long */
- sprintf(str,"Auto-Deleted %s #%u",user.alias,user.number);
- logentry("!*",str);
- delallmail(i);
- putusername(i,nulstr);
- putuserrec(i,U_MISC,8,ultoa(user.misc|DELETED,str,16)); }
-
- if(!(user.misc&(DELETED|INACTIVE))
- && preqwk_ar[0] && chk_ar(preqwk_ar,user)) { /* Pre-QWK */
- for(k=1;k<=sys_nodes;k++) {
- getnodedat(k,&node,0);
- if((node.status==NODE_INUSE || node.status==NODE_QUIET
- || node.status==NODE_LOGON) && node.useron==i)
- break; }
- if(k<=sys_nodes) /* Don't pre-pack with user online */
- continue;
- lclini(node_scrnlen-1);
- lclatr(LIGHTGRAY);
- lputc(FF);
- console|=CON_L_ECHO;
- lprintf("Pre-packing QWK for %s...\r\n"
- ,user.alias);
- useron=user;
- online=ON_LOCAL;
- statline=sys_def_stat;
- statusline();
- useron.qwk&=~QWK_FILES; /* turn off for pre-packing */
- useron.misc|=(ANSI|COLOR);
- delfiles(temp_dir,"*.*");
- getmsgptrs();
- getusrsubs();
- batdn_total=0;
- sprintf(str,"%sFILE\\%04u.QWK"
- ,data_dir,useron.number);
- if(pack_qwk(str,&l,1)) {
- qwk_success(l,0,1);
- putmsgptrs(); }
- delfiles(temp_dir,"*.*");
- lclatr(LIGHTGRAY);
- lclini(node_scrnlen);
- online=0;
- lputc(FF); } }
-
- mail_maint();
-
- lprintf("\r\n\r\nRunning system daily event...\r\n");
- logentry("!:","Ran system daily event");
- sys_status&=~SS_DAILY;
- if(sys_daily[0])
- external(cmdstr(sys_daily,nulstr,nulstr,NULL),0); } /* EX_CC */
-
- if(thisnode.misc&NODE_EVENT) {
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_EVENT_RUNNING;
- putnodedat(node_num,thisnode);
- if(node_daily[0])
- external(cmdstr(node_daily,nulstr,nulstr,NULL),0); /* EX_CC */
- getnodedat(node_num,&thisnode,1);
- thisnode.misc&=~NODE_EVENT;
- putnodedat(node_num,thisnode); }
- ret=0; }
-return(ret);
-}
-
-/****************************************************************************/
-/* This function waits for either a caller or a local logon. It returns 0 */
-/* if the user failed the logon procedure, a 1 if the user succeeded */
-/* Called from function main */
-/****************************************************************************/
-char waitforcall()
-{
- static uint calls;
- uchar str[256],str2[256],cname[LEN_CID+1],c,gotcaller=0,x,y,dcd,*p
- ,ans=0,hbeat=0,menuon=0,blank=0
- ,*ok=mdm_misc&MDM_VERBAL ? "OK":"0"
-
- /* IP logging vars added by enigma */
- , ipstr[256], *ips;
-
- uint i,j,k,nodes,lastnodes=0;
- long l,m;
- int file,result_code=0;
- time_t start,lastnodechk=0,laststatchk=0,laststatfdate=0;
- node_t node;
- struct tm *gm;
- struct dfree d;
- stats_t stats,node_stats;
-
-reset_logon_vars();
-ipstr[0]=cid[0]=cname[0]=0;
-online=console=0;
-start=time(NULL);
-
-getnodedat(node_num,&thisnode,1);
-thisnode.status=NODE_WFC;
-thisnode.misc&=~(NODE_INTR|NODE_MSGW|NODE_NMSG|NODE_UDAT|NODE_POFF|NODE_AOFF);
-putnodedat(node_num,thisnode);
-catsyslog(0);
-if(term_ret)
- return(terminal());
-/***
-if(com_port)
- rioctl(0x10f); /* for blanking debug line */
-***/
-
-if(qoc && calls) {
- if(qoc==1)
- offhook();
- lclini(node_scrnlen);
- lputc(FF);
- bail(0); }
-useron.misc=0;
-rows=24;
-lputc(FF);
-if(node_misc&NM_RESETVID) {
- textmode(C40);
- textmode(C80);
- _setcursortype(_NORMALCURSOR); }
-
-lclatr(curatr=LIGHTGRAY);
-lclini(node_scrnlen);
-
-
-lputc(FF);
-if(com_port && !connect_rate) { /* Initialize the modem */
- lprintf("\rSetting DTE rate: %lu baud",com_rate);
- lputc(CLREOL);
-#ifdef __OS2__
- if((i=setbaud(com_rate))!=0) {
-#else
- if((i=setbaud((uint)(com_rate&0xffffL)))!=0) {
-#endif
- lprintf(" - Failed! (%d)\r\n",i);
- bail(1); }
- c=0;
- if(!nmi && !(mdm_misc&MDM_DUMB)) /* if not dumb */
- while(c<4) {
- rioctl(IOFB);
- rioctl(IOCM|PAUSE|ABORT);
- rioctl(IOCS|PAUSE|ABORT);
-
- if(mdm_misc&MDM_CTS)
- if(!(rioctl(IOSTATE)&CTS)) {
- lputs("\rWaiting up to 30 seconds for CTS to raise ( )\b\b\b");
- for(i=0;i<30 && !lkbrd(0);i++) { /* wait upto 15 seconds */
- lprintf("%2d\b\b",i+1);
- mswait(1000);
- if(rioctl(IOSTATE)&CTS)
- break; }
- if(i==30) {
- lputs("\r\n\r\nModem configured for hardware flow "
- "control and CTS is stuck low.\r\n");
- logline("@!","CTS stuck low. Can't initialize.");
- bail(1); } }
-
- lputs("\rInitializing modem...");
- lputc(CLREOL);
-
- dtr(5); /* in case we're still connected to somebody */
- dtr(1);
- mswait(750); /* DTR is sometimes slow */
- rioctl(IOFB); /* crap comes in when dtr is raised ? */
- if(rioctl(IOSTATE)&DCD && mdm_hang[0]) {
- mdmcmd(mdm_hang);
- if(strcmp(str,"0") && strcmp(str,"OK"))
- getmdmstr(str,SEC_OK); }
-
- /******************************************/
- /* Take phone off-hook while initializing */
- /******************************************/
- offhook();
- getmdmstr(str,SEC_OK);
- if(strcmp(str,"0") && strcmp(str,"OK"))
- getmdmstr(str,SEC_OK);
-
- /*********************************************************/
- /* Send User Configured (broken?) initialization strings */
- /*********************************************************/
- mdmcmd(mdm_init);
- if(mdm_spec[0]) {
- getmdmstr(str,SEC_OK);
- if(strcmp(str,"0") && strcmp(str,"OK"))
- getmdmstr(str,SEC_OK);
- mdmcmd(mdm_spec); }
- getmdmstr(str,SEC_OK);
- if(strcmp(str,"0") && strcmp(str,"OK"))
- getmdmstr(str,SEC_OK);
-
- /*****************************/
- /* Send AT&C1 if DCD is high */
- /*****************************/
- if(rioctl(IOSTATE)&DCD) {
- lputs("\r\nDCD is high. Sending AT&C1 to modem...");
- mdmcmd("AT&C1");
- getmdmstr(str,SEC_OK);
- if(strcmp(str,ok))
- getmdmstr(str,SEC_OK); }
-
- /**********************************************/
- /* DCD still high? Pause and try dropping DTR */
- /**********************************************/
- if(rioctl(IOSTATE)&DCD) {
- lputs("\r\nDCD is high. Pausing...");
- dtr(0);
- mswait(2000);
- rioctl(MSR);
- if(rioctl(IOSTATE)&DCD) {
- lputs("\rDCD was high after modem init.\r\n");
- logentry("@!","DCD was high after modem init");
- if(mdm_misc&MDM_NODTR)
- mdmcmd(mdm_hang);
- else
- dtr(15);
- if(rioctl(IOSTATE)&DCD) {
- lputs("Hanging up failed to lower DCD.\r\n");
- logentry("@!","Hanging up failed to lower DCD");
- if(++c==4)
- break;
- continue; } }
- dtr(1); }
-
- /************************************************************/
- /* Let's repair any damage the user configured init strings */
- /* may have caused */
- /************************************************************/
- for(i=0;i<4;i++) {
- rioctl(IOFB);
- mdmcmd("AT");
- if(!getmdmstr(str,SEC_OK) || !strcmp(str,ok))
- break;
- if(!strcmp(str,"AT")) { /* Echoing commands? */
- getmdmstr(str,SEC_OK); /* Get OK */
- lputs("\r\nCommand echoed. Sending ATE0 to modem...");
- mdmcmd("ATE0"); }
- else if(mdm_misc&MDM_VERBAL && !strcmp(str,"0")) { /* numeric? */
- lputs("\r\nNumeric response. Sending ATV1 to modem...");
- mdmcmd("ATV1"); }
- else if(!(mdm_misc&MDM_VERBAL) && !strcmp(str,"OK")) {
- lputs("\r\nVerbal response. Sending ATV0 to modem...");
- mdmcmd("ATV0"); }
- else {
- lprintf("\r\nUnrecognized response '%s'. Sending AT to modem..."
- ,str);
- mdmcmd("AT"); }
- if(getmdmstr(str,SEC_OK) && !strcmp(str,ok))
- break; }
-
- /************************************************/
- /* Put phone back on-hook and check result code */
- /************************************************/
- if(!mdm_hang[0])
- mdmcmd("ATH");
- else
- mdmcmd(mdm_hang);
- if(!getmdmstr(str,SEC_OK)) {
- lputs("\r\nNo response.\r\n");
- logentry("@!","No response"); }
- else {
- if(!strcmp(str,ok))
- break;
- lprintf("\r\nInvalid result code: '%s' "
- "instead of '%s'.\r\n",str,ok);
- sprintf(tmp,"Invalid result code: '%s' instead of '%s'.",str,ok);
- logentry("@!",tmp); }
- if(++c==4)
- break;
- rioini(0,0); /* remove com routines */
- sys_status&=~SS_COMISR;
- comini();
- setrate(); }
- if(c==4) {
- lputs("\r\nModem failed initialization.\r\n");
- errorlog("Modem failed initialization.");
- offhook();
- bail(1); }
- lputc(FF); }
-
-else if(com_port && connect_rate) {
- gotcaller=1;
- console=CON_R_ECHO|CON_L_ECHO|CON_R_INPUT|CON_L_INPUT;
- online=ON_REMOTE;
- sprintf(connection,"%lu",connect_rate);
- cur_rate=connect_rate;
- cur_cps=connect_rate/10;
- connect_rate=0;
- if(cidarg[0]) { /* Caller-id passed as argument */
- mdm_misc|=MDM_CALLERID;
- p=strstr(cidarg,"NUMBER:");
- if(p) p+=8;
- else {
- p=strstr(cidarg,"NMBR");
- if(p) p+=7; }
- if(p) { /* 3 message format */
- sprintf(cid,"%.*s",LEN_CID,p);
- for(i=strlen(cid);!isdigit(cid[i]) && i;i--)
- ;
- cid[i+1]=0; /* chop off non-numbers */
- p=strstr(cidarg,"NAME:");
- if(p) p+=6;
- else {
- p=strstr(cidarg,"NAME");
- if(p) p+=7; }
- if(p)
- sprintf(cname,"%.*s",LEN_CID,p); }
- else if(strlen(cidarg)>12) /* Single message format */
- sprintf(cid,"%.*s",LEN_CID,cidarg+12);
- else
- sprintf(cid,"ERROR: '%s'",cidarg); } }
-
-
-if(!online) {
- /*******************************************************/
- /* To make sure that BBS print routines work correctly */
- /*******************************************************/
- useron.number=1;
- getuserdat(&useron);
- if(!useron.number)
- useron.misc=ANSI|COLOR; }
-
-useron.misc&=~UPAUSE; /* make sure pause is off */
-
-if(llo) {
- quicklogonstuff();
- sys_status&=~SS_USERON;
- gotcaller=1; }
-
-if(!(useron.misc&EXPERT) && !gotcaller) { /* Novice sysop */
- console=CON_L_ECHO;
- online=ON_LOCAL;
- lputc(FF);
- tos=1;
- lncntr=0;
- menu("WFC");
- menuon=1;
- online=0; }
-
-while(!gotcaller) {
- mswait(0); /* give up rest of time slice */
-
- console=CON_L_ECHO;
- now=time(NULL);
-
- if(node_scrnblank && (now-start)/60>node_scrnblank
- && !blank) { /* blank screen */
- lputc(FF);
- menuon=0;
- blank=1; }
- if(mdm_reinit && (now-start)/60>mdm_reinit) /* reinitialize modem */
- return(0);
- if(now-lastnodechk>node_sem_check) { /* check node.dab every x seconds */
-
-#if 1
- if((i=heapcheck())!=_HEAPOK) {
- lputc(FF);
- offhook();
- errormsg(WHERE,ERR_CHK,"heap",i);
- bail(1); }
-#endif
-
- for(i=0;i<total_qhubs;i++)
- if(node_num==qhub[i]->node) {
- sprintf(str,"%sQNET\\%s.NOW",data_dir,qhub[i]->id);
- if(fexist(str))
- qhub[i]->last=-1; }
-
- for(i=0;i<total_events;i++)
- if(node_num==event[i]->node || event[i]->misc&EVENT_EXCL) {
- sprintf(str,"%s%s.NOW",data_dir,event[i]->code);
- if(fexist(str))
- event[i]->last=-1; }
-
- lastnodechk=now;
- getnodedat(node_num,&thisnode,0);
- if(thisnode.misc&NODE_DOWN) {
- lputc(FF);
- offhook();
- bail(0); }
- if(thisnode.status!=NODE_WFC) {
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_WFC;
- putnodedat(node_num,thisnode); }
- if(thisnode.misc&NODE_RRUN) { /* Re-run the node */
- offhook();
- lputc(FF);
- getnodedat(node_num,&thisnode,1);
- thisnode.status=NODE_OFFLINE;
- thisnode.misc=0;
- putnodedat(node_num,thisnode);
- close(nodefile);
- close(node_ext);
- sys_status&=~SS_NODEDAB;
- if(sys_status&SS_LOGOPEN)
- close(logfile);
- if(sys_status&SS_COMISR)
- rioini(0,0);
- sys_status&=~(SS_COMISR|SS_INITIAL|SS_LOGOPEN);
- p=strchr(orgcmd,' ');
- if(p)
- p++;
- close(5);
- if(execle(orgcmd,orgcmd,p,NULL,envp)) {
- lprintf("\r\nCouldn't execute %s!\r\n",orgcmd);
- bail(1); } } }
-
- if(!wfc_events(lastnodechk))
- return(0);
-
- if(!menuon) {
- /******************/
- /* Roaming cursor */
- /******************/
- x=lclwx();
- y=lclwy();
- switch(random(5)) {
- case 0:
- if(x>1)
- x--;
- break;
- case 1:
- if(x<79)
- x++;
- break;
- case 2:
- if(y>1)
- y--;
- break;
- case 4:
- if(y<node_scrnlen-2)
- y++;
- break; } }
- else { /* across the bottom */
- y=25;
- x=lclwx();
- if(x%2) x+=2;
- else x-=2;
- if(x<1)
- x=1;
- else if(x>80)
- x=80;
-/*
- lclxy(x,y);
- gettext(x,y,x,y,&i);
- lclatr(random(0xf)+1);
- lputc(i);
- lclatr(LIGHTGRAY);
-*/
-/**
- mswait(100);
- puttext(x,y,x,y,&i);
-**/ }
-
-#ifndef __FLAT__ // Heart beat always for 32-bit OSs
- if(inDV) {
-#endif
- lclxy(80,1);
- if(hbeat) {
- lclatr(RED|HIGH);
- lputc(3); }
- else
- lputc(0);
- hbeat=!hbeat;
- lclatr(LIGHTGRAY);
-#ifndef __FLAT__
- }
-#endif
-
- lclxy(x,y);
- mswait(100);
-
- /* Wait for call screen */
- /* check every 10 seconds */
-
- if(node_misc&NM_WFCSCRN && now-laststatchk>node_stat_check
- && !menuon && !blank) {
- laststatchk=now;
- sprintf(str,"%sDSTS.DAB",ctrl_dir);
- if(fdate(str)!=laststatfdate) { /* system statistics */
- lclxy(1,1);
- lclatr(LIGHTGRAY);
- lputs("Retrieving Statistics.");
- lputc(CLREOL);
- if(!laststatfdate) /* First time this WFC */
- getstats(node_num,&node_stats);
- lputc('.');
- laststatfdate=fdate(str);
- getstats(0,&stats);
- lputc('.');
- l=m=0;
- if(node_misc&NM_WFCMSGS) {
- for(i=0;i<total_subs;i++)
- l+=getposts(i); /* l=total posts */
- lputc('.');
- for(i=0;i<total_dirs;i++)
- m+=getfiles(i); /* m=total files */
- lputc('.'); }
- i=getmail(0,0); /* i=total email */
- lputc('.');
- j=getmail(1,0); /* j=total fback */
- lclxy(1,1);
- lclatr(GREEN);
- lprintf("Node #: ");
- lclatr(GREEN|HIGH);
- gm=localtime(&now);
- lprintf("%-3u ",node_num);
- lclatr(GREEN);
- lprintf("%-3.3s %-2u Space: ",mon[gm->tm_mon],gm->tm_mday);
- if(temp_dir[1]==':')
- k=temp_dir[0]-'A'+1;
- else k=0;
- getdfree(k,&d);
- if((ulong)d.df_bsec*(ulong)d.df_sclus
- *(ulong)d.df_avail<((ulong)min_dspace*1024L)*2L)
- lclatr(RED|HIGH|BLINK);
- else
- lclatr(GREEN|HIGH);
- sprintf(str,"%sk",ultoac(((ulong)d.df_bsec
- *(ulong)d.df_sclus*(ulong)d.df_avail)/1024UL,tmp));
- lprintf("%-12.12s",str);
- if(lastuseron[0]) {
- lclatr(GREEN);
- lprintf("Laston: ");
- lclatr(GREEN|HIGH);
- lprintf(lastuseron);
- lclatr(GREEN);
- if(thisnode.connection)
- lprintf(" %u",thisnode.connection);
- else
- lprintf(" Local"); }
- lprintf("\r\n");
- lclatr(GREEN);
- lprintf("Logons: ");
- lclatr(GREEN|HIGH);
- sprintf(tmp,"%lu/%lu",node_stats.ltoday,stats.ltoday);
- lprintf("%-12.12s",tmp);
- lclatr(GREEN);
- lprintf("Total: ");
- lclatr(GREEN|HIGH);
- lprintf("%-12.12s",ultoac(stats.logons,tmp));
- lclatr(GREEN);
- lprintf("Timeon: ");
- lclatr(GREEN|HIGH);
- sprintf(tmp,"%lu/%lu",node_stats.ttoday,stats.ttoday);
- lprintf("%-12.12s",tmp);
- lclatr(GREEN);
- lprintf("Total: ");
- lclatr(GREEN|HIGH);
- lprintf("%-12.12s\r\n",ultoac(stats.timeon,tmp));
- lclatr(GREEN);
- lprintf("Emails: ");
- lclatr(GREEN|HIGH);
- sprintf(str,"%u/%u",(uint)stats.etoday,i);
- lprintf("%-12.12s",str);
- lclatr(GREEN);
- lprintf("Posts: ");
- lclatr(GREEN|HIGH);
- sprintf(str,"%u",(uint)stats.ptoday);
- if(node_misc&NM_WFCMSGS) {
- strcat(str,"/");
- strcat(str,ultoa(l,tmp,10)); }
- lprintf("%-12.12s",str);
- lclatr(GREEN);
- lprintf("Fbacks: ");
- lclatr(GREEN|HIGH);
- sprintf(str,"%u/%u",(uint)stats.ftoday,j);
- lprintf("%-12.12s",str);
- lclatr(GREEN);
- lprintf("Users: ");
- lclatr(GREEN|HIGH);
- sprintf(str,"%u/%u",stats.nusers,lastuser());
- lprintf("%-12.12s\r\n",str);
- lclatr(GREEN);
- lprintf("Uloads: ");
- lclatr(GREEN|HIGH);
- ultoac(stats.ulb/1024UL,tmp);
- strcat(tmp,"k");
- lprintf("%-12.12s",tmp);
- lclatr(GREEN);
- lprintf("Files: ");
- lclatr(GREEN|HIGH);
- sprintf(str,"%u",(uint)stats.uls);
- if(node_misc&NM_WFCMSGS) {
- strcat(str,"/");
- strcat(str,ultoa(m,tmp,10)); }
- lprintf("%-12.12s",str);
- lclatr(GREEN);
- lprintf("Dloads: ");
- lclatr(GREEN|HIGH);
- ultoac(stats.dlb/1024UL,tmp);
- strcat(tmp,"k");
- lprintf("%-12.12s",tmp);
- lclatr(GREEN);
- lprintf("Files: ");
- lclatr(GREEN|HIGH);
- lprintf("%-12.12s\r\n",ultoac(stats.dls,tmp)); }
- lclatr(curatr=LIGHTGRAY);
- lclxy(1,6);
- nodes=0;
- for(i=1;i<=sys_nodes;i++) {
- getnodedat(i,&node,0);
- if((node.status!=NODE_WFC && node.status!=NODE_OFFLINE)
- || node.errors) {
- lputc(CLREOL);
- printnodedat(i,node);
- nodes++; } }
- if(nodes<lastnodes) {
- i=j=lclwy();
- j+=(lastnodes-nodes)+1;
- for(;i<=node_scrnlen && i<j;i++) {
- lclxy(1,i);
- lputc(CLREOL); } }
- lastnodes=nodes;
- lclatr(curatr=LIGHTGRAY); }
-
-
- if(!(node_misc&NM_NO_LKBRD) && lkbrd(1)) {
- start=time(NULL);
- /* menuon=0; */
- lputc(FF);
- tos=1;
- lncntr=0;
- i=lkbrd(0);
- if(!(i&0xff) && (i>=0x3b00 && i<=0x4400)
- || i==0x8500 || i==0x8600) { /* F1-F12 */
- if(i>=0x3b00 && i<=0x4400)
- i=((i-0x3b00)>>8);
- else if(i==0x8500)
- i=10;
- else
- i=11;
- offhook();
- external(cmdstr(wfc_scmd[i],nulstr,nulstr,NULL),EX_SWAP);
- return(0); }
-
- if(isdigit(i&0xff)) {
- offhook();
- external(cmdstr(wfc_cmd[i&0xf],nulstr,nulstr,NULL),0);
- return(0); }
-
- switch(toupper(i)) {
- case 'A': /* forced answer */
- ans=1;
- break;
- case 'C': /* configure */
- if(node_misc&NM_SYSPW) {
- quicklogonstuff();
- if(!chksyspass(1))
- return(0); }
- offhook();
- if(sys_status&SS_LOGOPEN) {
- close(logfile);
- sys_status&=~SS_LOGOPEN; }
- if(sys_status&SS_COMISR) {
- rioini(0,0); /* replace COM i/o vectors */
- sys_status&=~SS_COMISR; }
- close(nodefile);
- close(node_ext);
- sys_status&=~SS_NODEDAB;
- sprintf(str,"%sEXECSBBS.%s",exec_dir,
-#ifdef __OS2__
- "EXE"
-#else
- "COM"
-#endif
- );
- sprintf(tmp,"\"%s \"",cmdstr(scfg_cmd,nulstr,nulstr,NULL));
- if(execl(str,str,".",tmp,orgcmd,NULL,envp)) {
- errormsg(WHERE,ERR_EXEC,str,0);
- bail(1); }
- case 'D': /* Dos shell */
- offhook();
- external(comspec,0);
- return(0);
- case 'F': /* Force Network Call-out */
- quicklogonstuff();
- lclatr(YELLOW);
- lputs("QWK Hub ID: ");
- lclatr(WHITE);
- if(!getstr(str,8,K_UPPER))
- return(0);
- for(i=0;i<total_qhubs;i++)
- if(!stricmp(str,qhub[i]->id)) {
- if(qhub[i]->node==node_num)
- qhub[i]->last=-1;
- else {
- sprintf(tmp,"%sQNET\\%s.NOW",data_dir,str);
- if((file=nopen(tmp,O_CREAT|O_TRUNC|O_WRONLY))
- !=-1)
- close(file); }
- break; }
- return(0);
- case 'L': /* Log */
- if(node_misc&NM_SYSPW) {
- quicklogonstuff();
- if(!chksyspass(1))
- return(0); }
- offhook();
- now=time(NULL);
- unixtodos(now,&date,&curtime);
- sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG"
- ,data_dir,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900));
- external(cmdstr(node_viewer,str,nulstr,NULL),0);
- return(0);
- case 'M': /* Read all mail */
- quicklogonstuff();
- if(node_misc&NM_SYSPW && !chksyspass(1))
- return(0);
- readmail(1,MAIL_ALL);
- online=console=0;
- return(0);
- case 'N': /* Node statistics */
- quicklogonstuff();
- if(node_misc&NM_SYSPW && !chksyspass(1))
- return(0);
- useron.misc|=UPAUSE;
- printstatslog(node_num);
- pause();
- return(0);
- case 'Q': /* Quit */
- offhook();
- bail(0);
- case 'R': /* Read feedback */
- quicklogonstuff();
- if(node_misc&NM_SYSPW && !chksyspass(1))
- return(0);
- readmail(1,MAIL_YOUR);
- return(0);
- case 'K': /* Sent mail */
- quicklogonstuff();
- if(node_misc&NM_SYSPW && !chksyspass(1))
- return(0);
- readmail(1,MAIL_SENT);
- return(0);
- case 'S': /* System Statistics */
- quicklogonstuff();
- if(node_misc&NM_SYSPW && !chksyspass(1))
- return(0);
- useron.misc|=UPAUSE;
- printstatslog(0);
- pause();
- return(0);
- case 'T': /* Terminal mode */
- if(!com_port) {
- lprintf("No COM port configured.");
- getch();
- lputc(FF);
- return(0); }
- if(node_misc&NM_SYSPW) {
- quicklogonstuff();
- if(!chksyspass(1))
- return(0); }
- return(terminal());
- case 'U': /* User edit */
- quicklogonstuff();
- useredit(0,1);
- return(0);
- case 'E':
- case 'W': /* Write e-mail */
- quicklogonstuff();
- if(node_misc&NM_SYSPW && !chksyspass(1))
- return(0);
- bputs(text[Email]);
- if(!getstr(str,50,0))
- return(0);
- if(!strchr(str,'@') && (i=finduser(str))!=0)
- email(i,nulstr,nulstr,WM_EMAIL);
- else
- netmail(str,nulstr,0);
- return(0);
- case 'X': /* Exit with phone on-hook */
- bail(0);
- case 'Y': /* Yesterday's log */
- if(node_misc&NM_SYSPW) {
- quicklogonstuff();
- if(!chksyspass(1))
- return(0); }
- offhook();
- now=time(NULL);
- now-=(ulong)60L*24L*60L;
- unixtodos(now,&date,&curtime);
- sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG"
- ,data_dir,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900));
- external(cmdstr(node_viewer,str,nulstr,NULL),0);
- return(0);
- case 'Z':
- mail_maint();
- return(0);
- case '?': /* Menu */
- if(menuon) {
- menuon=0;
- lputc(FF);
- laststatchk=0;
- laststatfdate=0; }
- else {
- online=ON_LOCAL;
- menu("WFC");
- menuon=1;
- blank=0;
- online=0; }
- continue;
- case SP: /* Log on */
- lclatr(WHITE|HIGH); lputc('Y'); lclatr(GREEN);
- lputs(" Yes\r\n");
- lclatr(WHITE|HIGH); lputc('Z'); lclatr(GREEN);
- lputs(" Yes, Quiet\r\n");
- lclatr(WHITE|HIGH); lputc('F'); lclatr(GREEN);
- lputs(" Fast User #1\r\n");
- lclatr(WHITE|HIGH); lputc('Q'); lclatr(GREEN);
- lputs(" Fast User #1, Quiet\r\n");
- lclatr(BROWN|HIGH);
- lputs("\r\nLog on? [No]: ");
- lclatr(LIGHTGRAY);
- i=getch();
- switch(toupper(i)) {
- case 'Z':
- onquiet=1;
- case 'Y': /* Yes, logon */
- lputc(FF);
- quicklogonstuff();
- sys_status&=~SS_USERON;
- useron.misc=(UPAUSE|ANSI|COLOR);
- gotcaller=1;
- continue;
- case 'Q':
- onquiet=1;
- case 'F':
- lputc(FF);
- quicklogonstuff();
- if(sys_misc&SM_REQ_PW || node_misc&NM_SYSPW) {
- useron.misc=(UPAUSE|ANSI|COLOR);
- gotcaller=1;
- continue; }
- if(!useron.number) {
- lputc(7);
- lputs("A Sysop account hasn't been created");
- getch();
- return(0); }
- return(logon());
- default:
- return(0); }
- default:
- lputs("Hit '?' for a menu.");
- continue; } }
- if(com_port) {
- if(mdm_misc&MDM_VERBAL) {
- if(rioctl(RXBC)) {
- lputc(FF);
- getmdmstr(str,SEC_RING);
- if(!strcmp(str,"RING"))
- ans=1; } }
- else { /* numeric */
- if(incom()=='2')
- ans=1; }
- if(mdm_misc&MDM_DUMB && DCDHIGH)
- ans=1; }
- if(ans && com_port) {
- lputc(FF);
- if(mdm_misc&MDM_CALLERID) {
- lputs("Obtaining Caller-ID...");
- getmdmstr(str,SEC_CID);
- lprintf("\r\nCID: %s",str);
- if(!strncmpi(str,"TIME:",5)) { /* 3 message format */
- getmdmstr(str,SEC_CID);
- lprintf("\r\nCID: %s",str);
- p=strchr(str,':');
- if(p)
- strcpy(cid,p+2); /* Phone Number */
- getmdmstr(str,SEC_CID);
- lprintf("\r\nCID: %s",str);
- p=strchr(str,':');
- if(p)
- sprintf(cname,"%.*s",LEN_CID,p+2); } /* Caller Name */
- else if(!strncmpi(str,"DATE =",6)) { /* Supra format */
- getmdmstr(str,SEC_CID);
- lprintf("\r\nCID: %s",str); /* TIME = line */
- getmdmstr(str,SEC_CID);
- lprintf("\r\nCID: %s",str); /* NMBR = line */
- p=strchr(str,'=');
- if(p)
- sprintf(strstr(str,"NAME") ? cname:cid,"%.*s",LEN_CID,p+2);
- getmdmstr(str,SEC_CID); /* NAME = line */
- lprintf("\r\nCID: %s",str);
- p=strchr(str,'=');
- if(p)
- sprintf(strstr(str,"NAME") ? cname:cid,"%.*s",LEN_CID,p+2);
- }
- else if(strlen(str)>12) /* Single message format */
- sprintf(cid,"%.*s",LEN_CID,str+12);
- else
- sprintf(cid,"ERROR: '%s'",str);
- lputs(crlf); }
- cur_rate=cur_cps=0;
- connection[0]=0;
- result_code=0;
- if(!(mdm_misc&MDM_DUMB)) {
- if(mdm_rings>1) {
- lputs("Ring\r\n");
- for(i=1;i<mdm_rings;i++)
- if(!getmdmstr(str,10))
- break;
- else
- lputs("Ring\r\n");
- if(i<mdm_rings)
- return(0);
- lputs(crlf); }
- lputs("Answering...");
- mdmcmd(mdm_answ);
- rioctl(IOFI); // flush extra ring results
- while(!cur_rate || rioctl(RXBC)) { // no connect or more rsults
- if(!getmdmstr(str,SEC_ANSWER)) {
- if(cur_rate)
- break;
- lprintf("\r\nNO CARRIER\r\n");
- if(!(mdm_misc&MDM_NODTR)) {
- dtr(15);
- dtr(1);
- mswait(500); }
- mdmcmd(nulstr);
- hangup();
- return(0); }
- i=0;
- while(i<2
- && (!strcmp(str,"2")
- || !strcmp(str,"RING"))) { /* Ring? Get next result */
- lputs("Ring\r\n");
- if(i) {
- mdmcmd(mdm_answ); /* Give a second ATA */
- rioctl(IOFI); }
- if(!getmdmstr(str,SEC_ANSWER)) {
- if(!(mdm_misc&MDM_NODTR)) {
- dtr(15);
- dtr(1);
- mswait(500); }
- mdmcmd(nulstr);
- hangup(); /* Get next result code from modem */
- return(0); }
- i++; }
- if(!strcmp(str,"3") || !strcmp(str,"NO CARRIER")) {
- lprintf("\r\nNO CARRIER\r\n");
- hangup();
- return(0); }
-
- lprintf("\r\nResult Code: %s\r\n",str);
-
- /* IP (vmodem) logging additions by enigma */
- ips = strstr(str, "TEL FROM ");
- if(ips) {
- strcpy(ipstr, ips+9);
- }
-
- if(strstr(str,"FAX") || strstr(str,"+FCO")) {
- /* Just for the ZyXEL's */
- mswait(1500); /* 1 and a half second wait for ZyXEL */
- sys_misc&=~SM_ERRALARM;
- bail(100); }
-
- if(mdm_misc&MDM_VERBAL) {
- if(!cur_rate
- && (!strnicmp(str,"CONNECT ",8)
- || !strnicmp(str,"CARRIER ",8))) {
- cur_rate=atol(str+8);
- // build description
- for(i=8,j=0;str[i] && j<LEN_MODEM;i++) {
- if(j==2 && isdigit(str[i])
- && str[i+1]=='0' && str[i+2]=='0'
- && !isdigit(str[i+3]) && j+1<LEN_MODEM) {
- connection[j++]='.';
- connection[j++]=str[i];
- i+=2; }
- else
- connection[j++]=str[i]; }
- connection[j]=0; }
- if(!cur_rate && !strcmp(str,"CONNECT"))
- cur_rate=com_rate;
- if(cur_rate
- && (strstr(str,"ARQ") || strstr(str,"MNP")
- || strstr(str,"V42") || strstr(str,"LAPM")
- || strstr(str,"REL")))
- cur_cps=cur_rate/9; }
- else { /* numeric */
- j=atoi(str);
- for(i=0;i<mdm_results;i++)
- if(mdm_result[i].code==j) break;
- if(!cur_rate) {
- if(i==mdm_results) {
- lprintf("Unknown result code: '%s'\r\n",str);
- sprintf(tmp,"Unknown modem result code: '%s'",str);
- errorlog(tmp);
- if(mdm_misc&MDM_KNOWNRES || !mdm_results) {
- hangup();
- return(0); } /* Don't allow invalid codes */
- i--; } /* Use last configured result code */
- else
- result_code=mdm_result[i].code; }
- if(!strncmpi(mdm_result[i].str,"EXIT ",5))
- bail(atoi(mdm_result[i].str+5));
- if(!strcmpi(mdm_result[i].str,"FAX")) {
- lputs("FAX Connection\r\n");
- bail(100); }
- if(!strcmpi(mdm_result[i].str,"IGNORE") || cur_rate)
- lputs("Ignored\r\n");
- else {
- cur_rate=mdm_result[i].rate;
- cur_cps=mdm_result[i].cps;
- strcpy(connection,mdm_result[i].str); } } } }
- else /* dumb modem */
- cur_rate=com_rate;
-
- if(!connection[0])
- sprintf(connection,"%lu",cur_rate);
- lprintf("Logging Caller in at %s\r\n",connection);
- if(!cur_cps)
- cur_cps=cur_rate/10L;
-
- rioctl(IOCE|((RXLOST|FERR|PERR|OVRR)<<8)); /* clear error flags */
- console=CON_R_ECHO|CON_L_ECHO|CON_R_INPUT|CON_L_INPUT;
- online=ON_REMOTE;
- gotcaller=1;
- putcom(crlf);
-#if defined(__OS2__)
- putcom(decrypt(VersionNoticeOS2,0));
-#elif defined(__WIN32__)
- putcom(decrypt(VersionNoticeW32,0));
-#else
- putcom(decrypt(VersionNoticeDOS,0));
-#endif
- putcom(crlf);
- lprintf("Pausing %u Seconds...",mdm_ansdelay);
- if(node_misc&NM_ANSALARM) {
- now=time(NULL);
- while(time(NULL)-now<mdm_ansdelay)
- for(x=0;x<10;x++)
- for(y=0;y<10;y++)
- beep((x*100)+(y*5),10); }
- else
- secwait(mdm_ansdelay);
- nosound();
- rioctl(IOFI); } } /* flush input buffer */
-
-reset_logon_vars();
-calls++;
-useron.misc=0;
-answertime=logontime=starttime=time(NULL);
-if(online==ON_REMOTE) {
- setrate();
-
- now=time(NULL);
- gm=localtime(&now);
- sprintf(str,"%02d:%02d%c %s %s %02d %u Node %3u %5lubps (%s)"
- ,gm->tm_hour>12 ? gm->tm_hour-12 : gm->tm_hour==0 ? 12 : gm->tm_hour
- ,gm->tm_min,gm->tm_hour>=12 ? 'p' : 'a',wday[gm->tm_wday]
- ,mon[gm->tm_mon],gm->tm_mday,gm->tm_year+1900,node_num,cur_rate
- ,connection);
- if(result_code) {
- sprintf(tmp," [%d]",result_code);
- strcat(str,tmp); }
- logline("@",str);
-
- /* IP trashcan modification by enigma */
- if(trashcan(ipstr,"IP")) {
- sprintf(tmp, "IP Trashcan: %s, hanging up!\r\n", ipstr);
- logline("@!",tmp);
- hangup();
- return(0); }
-
- if(mdm_misc&MDM_CALLERID) {
- outcom(0xC);
-#if defined(__OS2__)
- putcom(decrypt(VersionNoticeOS2,0));
-#elif defined(__WIN32__)
- putcom(decrypt(VersionNoticeW32,0));
-#else
- putcom(decrypt(VersionNoticeDOS,0));
-#endif
- putcom(crlf);
- sprintf(str,"CID: %-*s %s",LEN_CID,cid,cname);
- logline("@*",str);
- if(trashcan(cid,"CID")) {
- hangup();
- return(0); } } }
-lclini(node_scrnlen-1);
-if(online==ON_REMOTE) {
- if(node_dollars_per_call) { /* Billing node stuff */
- now=time(NULL);
- bprintf(text[BillingNodeMsg],sys_name,node_dollars_per_call);
- while(online && now-answertime<30) {
- if(incom()!=NOINP) {
- if(!(mdm_misc&MDM_NODTR))
- dtr(15);
- else
- mdmcmd(mdm_hang); }
- checkline();
- now=time(NULL); }
- if(!online)
- return(0); }
- rioctl(IOFI);
- putcom("\x1b[99B\x1b[6n\x1b[!_\x1b[0t_\x1b[0m_\xC");
- lputc(FF);
- i=l=lncntr=autoterm=0;
- tos=1;
-#if defined(__OS2__)
- strcpy(str,decrypt(VersionNoticeOS2,0));
-#elif defined(__WIN32__)
- strcpy(str,decrypt(VersionNoticeW32,0));
-#else
- strcpy(str,decrypt(VersionNoticeDOS,0));
-#endif
- strcat(str,decrypt(CopyrightNotice,0));
- center(str);
- mswait(500);
- while(i++<30 && l<40) { /* wait up to 3 seconds for response */
- if((c=(incom()&0x7f))=='R') { /* break immediately if response */
- str[l++]=c;
- mswait(110);
- break; }
- if(c) {
- str[l++]=c;
- if(l==1 && c!=ESC)
- break; }
- else
- mswait(100); }
-
- if(rioctl(RXBC)) /* wait a bit for extra RIP reply chars */
- mswait(550);
-
- while((i=(incom()&0x7f))!=NOINP && l<40)
- str[l++]=i;
- str[l]=0;
-
-#if 0
- for(i=0;str[i];i++)
- lprintf("%02X ",str[i]);
- lputs(crlf);
-#endif
-
- if(l) {
- if(str[0]==ESC && str[1]=='[') {
- useron.misc|=(ANSI|COLOR);
- autoterm|=ANSI;
- rows=((str[2]&0xf)*10)+(str[3]&0xf);
- if(rows<10 || rows>99) rows=24; }
- truncsp(str);
- if(strstr(str,"RIPSCRIP")) {
- logline("@R",strstr(str,"RIPSCRIP"));
- useron.misc|=(RIP|COLOR|ANSI);
- autoterm|=(RIP|COLOR|ANSI); }
- else if(strstr(str,"DC-TERM")
- && toupper(*(strstr(str,"DC-TERM")+12))=='W') {
- logline("@W",strstr(str,"DC-TERM"));
- useron.misc|=(WIP|COLOR|ANSI);
- autoterm|=(WIP|COLOR|ANSI); } }
- rioctl(IOFI); /* flush left-over or late response chars */
- sprintf(str,"%sANSWER",text_dir);
- sprintf(tmp,"%s.%s",str,autoterm&WIP ? "WIP":"RIP");
- sprintf(str2,"%s.ANS",str);
- if(autoterm&(RIP|WIP) && fexist(tmp))
- strcat(str,autoterm&WIP ? ".WIP":".RIP");
- else if(autoterm&ANSI && fexist(str2))
- strcat(str,".ANS");
- else
- strcat(str,".ASC");
- rioctl(IOSM|PAUSE);
- sys_status|=SS_PAUSEON;
- tos=1;
- printfile(str,P_NOABORT);
- sys_status&=~SS_PAUSEON;
- CRLF; }
-else
- useron.misc=(UPAUSE|ANSI|COLOR);
-
-useron.number=0;
-
-exec_bin(login_mod,&main_csi);
-
-if(!useron.number)
- hangup();
-if(!online) {
- logout();
- return(0); }
-
-if(online==ON_REMOTE && mdm_misc&MDM_CALLERID) {
- strcpy(useron.note,cid);
- putuserrec(useron.number,U_NOTE,LEN_NOTE,useron.note); }
-
-/* log the IP by enigma */
-
-if(online==ON_REMOTE && ipstr[0]!='\0') {
- sprintf(useron.note, "Telnet: %s", ipstr);
- putuserrec(useron.number,U_NOTE,LEN_NOTE,useron.note);
- logline("@*", useron.note); }
-
-if(!(sys_status&SS_USERON)) {
- errormsg(WHERE,ERR_CHK,"User not logged on",0);
- hangup();
- logout();
- return(0); }
-
-return(1);
-}
-
diff --git a/src/sbbs2/makefile b/src/sbbs2/makefile
deleted file mode 100644
index 1a2595638bb309d869cf52d69cd616b099cde1e9..0000000000000000000000000000000000000000
--- a/src/sbbs2/makefile
+++ /dev/null
@@ -1,225 +0,0 @@
-#########################################################################
-# Makefile for Synchronet BBS #
-# For use with Borland c++ for DOS/Win32 or Borland C++ for OS/2 #
-# Tabstop=8 #
-# usage: make (under DOS/Windows to build DOS\SBBS.EXE) #
-# make (under OS/2 to build OS2\SBBS4OS2.EXE) #
-# make -DW32 (under Windows 95/NT to build W32\SBBS4W32.EXE) #
-#########################################################################
-
-# Macros
-BCDIR = e:\bc31
-CC = $(BCDIR)\bin\bcc
-LD = $(BCDIR)\bin\tlink
-INCLUDE = $(BCDIR)\include;smb;rio;..\spawno
-LIB = $(BCDIR)\lib
-DEFINES = -DSBBS
-
-!if $d(__OS2__)
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;smb;rio
-LIB = c:\bcos2\lib
-OS = OS2
-CFLAGS = -N -d -C -sm -I$(INCLUDE) $(DEFINES) -n$(OS) -w-pro
-LFLAGS = -m -s -c -Toe -ap -S:18000
-#16k still caused stack overflows?
-#-w-srf?
-MAIN = $(OS)\sbbs4os2.exe
-
-!elif $d(W32)
-
-OS = W32
-CC = \bc45\bin\bcc32
-LD = \bc45\bin\tlink32
-INCLUDE = \bc45\include;smb;rio
-LIB = \bc45\lib
-CFLAGS = -N -d -C -H -tWC -tWM -I$(INCLUDE) $(DEFINES) -n$(OS) -w-pro
-LFLAGS = -m -n -c -Tpe -ax -S:18000
-MAIN = $(OS)\sbbs4w32.exe
-
-!else
-OS = DOS
-MODEL = l
-CFLAGS = -N -d -C -Y -O1 -m$(MODEL) -I$(INCLUDE) $(DEFINES) -n$(OS) -w-pro
-LFLAGS = -l -m -n -c
-MAIN = $(OS)\sbbs.exe
-!endif
-
-
-!if $d(__OS2__)
-OBJS = OS2\riolib.obj
-!elif $d(W32)
-OBJS = W32\riolib.obj
-!else
-OBJS = DOS\rciol.obj ..\mswait\DOS\mswait$(MODEL).obj
-!endif
-OBJS = $(OBJS) $(OS)\etext.obj $(OS)\scfgvars.obj $(OS)\vars.obj \
- $(OS)\xtrn.obj
-
-OVLOBJS = $(OS)\ars.obj\
- $(OS)\chk_ar.obj\
- $(OS)\comio.obj \
- $(OS)\con_in.obj \
- $(OS)\con_out.obj \
- $(OS)\con_mid.obj \
- $(OS)\con_hi.obj \
- $(OS)\atcodes.obj \
- $(OS)\data.obj \
- $(OS)\data_ovl.obj\
- $(OS)\getuser.obj\
- $(OS)\userrec.obj\
- $(OS)\getnode.obj\
- $(OS)\putnode.obj\
- $(OS)\exec.obj \
- $(OS)\execmisc.obj \
- $(OS)\execfunc.obj \
- $(OS)\execmsg.obj \
- $(OS)\execfile.obj \
- $(OS)\file.obj $(OS)\file_ovl.obj \
- $(OS)\chat.obj $(OS)\fido.obj \
- $(OS)\initdata.obj \
- $(OS)\listfile.obj \
- $(OS)\viewfile.obj \
- $(OS)\logio.obj \
- $(OS)\login.obj \
- $(OS)\logon.obj \
- $(OS)\logout.obj \
- $(OS)\newuser.obj \
- $(OS)\mail.obj \
- $(OS)\main.obj $(OS)\main_ovl.obj $(OS)\main_sec.obj \
- $(OS)\main_wfc.obj \
- $(OS)\msg1.obj \
- $(OS)\msg2.obj\
- $(OS)\putmsg.obj\
- $(OS)\postmsg.obj\
- $(OS)\email.obj\
- $(OS)\netmail.obj\
- $(OS)\bulkmail.obj\
- $(OS)\misc.obj\
- $(OS)\qwk.obj\
- $(OS)\qwktomsg.obj\
- $(OS)\msgtoqwk.obj\
- $(OS)\pack_qwk.obj\
- $(OS)\pack_rep.obj\
- $(OS)\un_qwk.obj\
- $(OS)\un_rep.obj\
- $(OS)\readmsgs.obj\
- $(OS)\scfglib1.obj\
- $(OS)\scfglib2.obj\
- $(OS)\str.obj $(OS)\text_sec.obj $(OS)\useredit.obj\
- $(OS)\xfer_lo.obj $(OS)\xfer_mid.obj $(OS)\xfer_hi.obj\
- $(OS)\xtrn_ovl.obj $(OS)\xfer_sec.obj $(OS)\lzh.obj\
- $(OS)\smblib.obj
-
-HEADERS = sbbs.h sbbsdefs.h gen_defs.h nodedefs.h text.h vars.c scfgvars.c \
- smb\smblib.h smb\smbdefs.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS) $(OVLOBJS) $(OS)\ver.obj
- @echo Linking $< ...
-!if $d(__OS2__)
- $(LD) $(LFLAGS) @&&+
-$(OBJS) $(LIB)\c02.obj $(OS)\ver.obj $(OVLOBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2mt.lib
-!elif $d(W32)
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0X32.OBJ $(OBJS) $(OS)\ver.obj $(OVLOBJS)
-+, $*, $*, $(LIB)\import32.lib $(LIB)\cw32mt.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS) $(OS)\ver.obj /o $(OVLOBJS), \
-$*, $*, ..\spawno\spawnl $(LIB)\overlay $(LIB)\c$(MODEL) \
- $(LIB)\math$(MODEL) $(LIB)\emu
-+
-!endif
-
-$(OS)\smblib.obj: smb\smblib.c smb\smblib.h smb\smbdefs.h
- @echo Compiling SMBLIB ...
- $(CC) $(CFLAGS) -c -DSMB_GETMSGTXT smb\smblib.c
-
-$(OS)\lzh.obj: smb\lzh.c smb\lzh.h
- @echo Compiling LZH ...
- $(CC) $(CFLAGS) -c -DLZH_DYNAMIC_BUF smb\lzh.c
-
-$(OS)\riolib.obj: rio\riolib.c rio\riolib.h rio\riodefs.h
- @echo Compiling RIOLIB ...
- $(CC) $(CFLAGS) -c rio\riolib.c
-
-etext.h: etext.dat
- @echo Creating new encrypted text (ETEXT) Code and Header files...
- genetext
-
-# All .obj modules
-$(OS)\ars.obj: $(HEADERS) ars_defs.h
-$(OS)\chk_ar.obj: $(HEADERS) ars_defs.h
-$(OS)\atcodes.obj: $(HEADERS) cmdshell.h
-$(OS)\chat.obj: $(HEADERS)
-$(OS)\comio.obj: $(HEADERS)
-$(OS)\con_in.obj: $(HEADERS)
-$(OS)\con_out.obj: $(HEADERS)
-$(OS)\con_mid.obj: $(HEADERS)
-$(OS)\con_hi.obj: $(HEADERS)
-$(OS)\data.obj: $(HEADERS)
-$(OS)\data_ovl.obj: $(HEADERS)
-$(OS)\exec.obj: $(HEADERS) cmdshell.h
-$(OS)\execmisc.obj: $(HEADERS) cmdshell.h
-$(OS)\execfunc.obj: $(HEADERS) cmdshell.h
-$(OS)\execmsg.obj: $(HEADERS) cmdshell.h
-$(OS)\execfile.obj: $(HEADERS) cmdshell.h
-$(OS)\etext.obj: etext.h
-$(OS)\fido.obj: $(HEADERS)
-$(OS)\file.obj: $(HEADERS)
-$(OS)\file_ovl.obj: $(HEADERS)
-$(OS)\initdata.obj: $(HEADERS)
-$(OS)\listfile.obj: $(HEADERS)
-$(OS)\viewfile.obj: $(HEADERS)
-$(OS)\logio.obj: $(HEADERS)
-$(OS)\login.obj: $(HEADERS)
-$(OS)\logon.obj: $(HEADERS) cmdshell.h
-$(OS)\logout.obj: $(HEADERS)
-$(OS)\main.obj: $(HEADERS) cmdshell.h
-$(OS)\mail.obj: $(HEADERS)
-$(OS)\main_ovl.obj: $(HEADERS) etext.h
-$(OS)\main_sec.obj: $(HEADERS)
-$(OS)\main_wfc.obj: $(HEADERS) qwk.h etext.h
-$(OS)\misc.obj: $(HEADERS) ars_defs.h smb\crc32.h
-$(OS)\msg1.obj: $(HEADERS)
-$(OS)\msg2.obj: $(HEADERS)
-$(OS)\newuser.obj: $(HEADERS)
-$(OS)\putmsg.obj: $(HEADERS)
-$(OS)\email.obj: $(HEADERS) cmdshell.h
-$(OS)\postmsg.obj: $(HEADERS)
-$(OS)\netmail.obj: $(HEADERS) qwk.h
-$(OS)\bulkmail.obj: $(HEADERS)
-$(OS)\qwk.obj: $(HEADERS) qwk.h post.h etext.h
-$(OS)\qwktomsg.obj: $(HEADERS) qwk.h
-$(OS)\msgtoqwk.obj: $(HEADERS) qwk.h
-$(OS)\pack_qwk.obj: $(HEADERS) qwk.h post.h
-$(OS)\pack_rep.obj: $(HEADERS) qwk.h post.h
-$(OS)\un_qwk.obj: $(HEADERS) qwk.h
-$(OS)\un_rep.obj: $(HEADERS) qwk.h
-$(OS)\readmsgs.obj: $(HEADERS) post.h
-$(OS)\scfglib1.obj: $(HEADERS) scfglib.h
-$(OS)\scfglib2.obj: $(HEADERS) scfglib.h
-$(OS)\scfgvars.obj: $(HEADERS)
-$(OS)\str.obj: $(HEADERS)
-$(OS)\getnode.obj: $(HEADERS)
-$(OS)\putnode.obj: $(HEADERS)
-$(OS)\text_sec.obj: $(HEADERS)
-$(OS)\getuser.obj: $(HEADERS)
-$(OS)\userrec.obj: $(HEADERS)
-$(OS)\useredit.obj: $(HEADERS)
-$(OS)\vars.obj: $(HEADERS)
-$(OS)\ver.obj: $(OBJS) $(OVLOBJS) $(HEADERS)
-$(OS)\xfer_lo.obj: $(HEADERS)
-$(OS)\xfer_mid.obj: $(HEADERS)
-$(OS)\xfer_hi.obj: $(HEADERS)
-$(OS)\xfer_sec.obj: $(HEADERS)
-$(OS)\xtrn.obj: $(HEADERS) cmdshell.h
-$(OS)\xtrn_ovl.obj: $(HEADERS)
diff --git a/src/sbbs2/misc.c b/src/sbbs2/misc.c
deleted file mode 100644
index 8bb6116ca613ca94e53bfdc0ef121ef05c53a0f5..0000000000000000000000000000000000000000
--- a/src/sbbs2/misc.c
+++ /dev/null
@@ -1,815 +0,0 @@
-#line 1 "MISC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/***************************************************************************/
-/* Miscellaneous functions that are useful many places throughout the code */
-/***************************************************************************/
-
-#include "sbbs.h"
-#include "crc32.h"
-
-#ifdef __WIN32__
-#include <windows.h> // Required for kbd_state(), beep(), and mswait()
-#endif
-
-/****************************************************************************/
-/* Returns the number of characters in 'str' not counting ctrl-ax codes */
-/* or the null terminator */
-/****************************************************************************/
-int bstrlen(char *str)
-{
- int i=0;
-
-while(*str) {
- if(*str==1) /* ctrl-a */
- str++;
- else
- i++;
- if(!(*str)) break;
- str++; }
-return(i);
-}
-
-void strip_ctrl(char *str)
-{
- char tmp[1024];
- int i,j,k;
-
-k=strlen(str);
-for(i=j=0;i<k;i++)
- if(str[i]==1) /* Ctrl-a */
- i++;
- else if(j && str[i]<=SP && tmp[j-1]==SP)
- continue;
- else if(i && !isalnum(str[i]) && str[i]==str[i-1])
- continue;
- else if((uchar)str[i]>=SP)
- tmp[j++]=str[i];
- else if(str[i]==TAB || (str[i]==CR && str[i+1]==LF))
- tmp[j++]=SP;
-tmp[j]=0;
-strcpy(str,tmp);
-}
-
-void strip_exascii(char *str)
-{
- char tmp[1024];
- int i,j,k;
-
-k=strlen(str);
-for(i=j=0;i<k;i++)
- if(!(str[i]&0x80))
- tmp[j++]=str[i];
-tmp[j]=0;
-strcpy(str,tmp);
-}
-
-/****************************************************************************/
-/* Returns in 'string' a character representation of the number in l with */
-/* commas. */
-/****************************************************************************/
-char *ultoac(ulong l, char *string)
-{
- char str[256];
- char i,j,k;
-
-ultoa(l,str,10);
-i=strlen(str)-1;
-j=i/3+1+i;
-string[j--]=0;
-for(k=1;i>-1;k++) {
- string[j--]=str[i--];
- if(j>0 && !(k%3))
- string[j--]=','; }
-return(string);
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access&O_DENYNONE) {
- share=SH_DENYNO;
- access&=~O_DENYNONE; }
-else if(access==O_RDONLY) share=SH_DENYWR;
-else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN)
- if(count>10)
- mswait(55);
-if(count>(LOOP_NOPEN/2) && count<=LOOP_NOPEN) {
- sprintf(logstr,"NOPEN COLLISION - File: %s Count: %d"
- ,str,count);
- logline("!!",logstr); }
-if(file==-1 && errno==EACCES)
- bputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&O_RDONLY)
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&O_WRONLY)
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- errormsg(WHERE,ERR_FDOPEN,str,access);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,2*1024);
-return(stream);
-}
-
-#ifndef __FLAT__
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char huge *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-
-long lfread(char huge *buf, long bytes, FILE *fp)
-{
- long count;
-
-for(count=bytes;count>0x7fff;count-=0x7fff,buf+=0x7fff)
- if(fread((char *)buf,1,0x7fff,fp)!=0x7fff)
- return(0);
-if(fread((char *)buf,1,(int)count,fp)!=count)
- return(0);
-return(bytes);
-}
-
-/****************************************************************************/
-/* This function writes files that are potentially larger than 32767 bytes */
-/* Up to one megabytes of data can be written with each call. */
-/****************************************************************************/
-long lwrite(int file, char huge *buf, long bytes)
-{
-
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(write(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(write(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-#endif
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- uint c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings if not just a drive letter and colon */
-/****************************************************************************/
-void backslashcolon(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\' && str[i-1]!=':') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns CRC-16 of string (not including terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Returns CRC-32 of string (not including terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *buf, ulong len)
-{
- ulong l,crc=0xffffffff;
-
-for(l=0;l<len;l++)
- crc=ucrc32(buf[l],crc);
-return(~crc);
-}
-
-/****************************************************************************/
-/* Compares pointers to pointers to char. Used in conjuction with qsort() */
-/****************************************************************************/
-int pstrcmp(char **str1, char **str2)
-{
-return(strcmp(*str1,*str2));
-}
-
-/****************************************************************************/
-/* Returns the number of characters that are the same between str1 and str2 */
-/****************************************************************************/
-int strsame(char *str1, char *str2)
-{
- int i,j=0;
-
-for(i=0;i<strlen(str1);i++)
- if(str1[i]==str2[i]) j++;
-return(j);
-}
-
-#define MV_BUFLEN 4096
-
-/****************************************************************************/
-/* Moves or copies a file from one dir to another */
-/* both 'src' and 'dest' must contain full path and filename */
-/* returns 0 if successful, -1 if error */
-/****************************************************************************/
-int mv(char *src, char *dest, char copy)
-{
- char str[256],*buf,atr=curatr;
- int ind,outd;
- long length,chunk=MV_BUFLEN,l;
- struct ftime ftime;
- FILE *inp,*outp;
-
-if(!stricmp(src,dest)) /* source and destination are the same! */
- return(0);
-if(!fexist(src)) {
- bprintf("\r\n\7MV ERROR: Source doesn't exist\r\n'%s'\r\n"
- ,src);
- return(-1); }
-if(!copy && fexist(dest)) {
- bprintf("\r\n\7MV ERROR: Destination already exists\r\n'%s'\r\n"
- ,dest);
- return(-1); }
-if(!copy && ((src[1]!=':' && dest[1]!=':')
- || (src[1]==':' && dest[1]==':' && toupper(src[0])==toupper(dest[0])))) {
- if(rename(src,dest)) { /* same drive, so move */
- bprintf("\r\nMV ERROR: Error renaming '%s'"
- "\r\n to '%s'\r\n\7",src,dest);
- return(-1); }
- return(0); }
-attr(WHITE);
-if((ind=nopen(src,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,src,O_RDONLY);
- return(-1); }
-if((inp=fdopen(ind,"rb"))==NULL) {
- close(ind);
- errormsg(WHERE,ERR_FDOPEN,str,O_RDONLY);
- return(-1); }
-setvbuf(inp,NULL,_IOFBF,32*1024);
-if((outd=nopen(dest,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- fclose(inp);
- errormsg(WHERE,ERR_OPEN,dest,O_WRONLY|O_CREAT|O_TRUNC);
- return(-1); }
-if((outp=fdopen(outd,"wb"))==NULL) {
- close(outd);
- fclose(inp);
- errormsg(WHERE,ERR_FDOPEN,dest,O_WRONLY|O_CREAT|O_TRUNC);
- return(-1); }
-setvbuf(outp,NULL,_IOFBF,8*1024);
-length=filelength(ind);
-if(!length) {
- fclose(inp);
- fclose(outp);
- errormsg(WHERE,ERR_LEN,src,0);
- return(-1); }
-if((buf=(char *)MALLOC(MV_BUFLEN))==NULL) {
- fclose(inp);
- fclose(outp);
- errormsg(WHERE,ERR_ALLOC,nulstr,MV_BUFLEN);
- return(-1); }
-l=0L;
-while(l<length) {
- bprintf("%2lu%%",l ? (long)(100.0/((float)length/l)) : 0L);
- if(l+chunk>length)
- chunk=length-l;
- if(fread(buf,1,chunk,inp)!=chunk) {
- FREE(buf);
- fclose(inp);
- fclose(outp);
- errormsg(WHERE,ERR_READ,src,chunk);
- return(-1); }
- if(fwrite(buf,1,chunk,outp)!=chunk) {
- FREE(buf);
- fclose(inp);
- fclose(outp);
- errormsg(WHERE,ERR_WRITE,dest,chunk);
- return(-1); }
- l+=chunk;
- bputs("\b\b\b"); }
-bputs(" \b\b\b"); /* erase it */
-attr(atr);
-getftime(ind,&ftime);
-setftime(outd,&ftime);
-FREE(buf);
-fclose(inp);
-fclose(outp);
-if(!copy && remove(src)) {
- errormsg(WHERE,ERR_REMOVE,src,0);
- return(-1); }
-return(0);
-}
-
-/****************************************************************************/
-/* Prompts user for System Password. Returns 1 if user entered correct PW */
-/****************************************************************************/
-char chksyspass(int local)
-{
- static int inside;
- char str[256],str2[256],x,y,atr;
- int orgcon=console;
-
-if(inside) return(0);
-if(online==ON_REMOTE && !(sys_misc&SM_R_SYSOP))
- return(0);
-if(online==ON_LOCAL) {
- if(!(sys_misc&SM_L_SYSOP))
- return(0);
- if(!(node_misc&NM_SYSPW) && !(sys_misc&SM_REQ_PW))
- return(1); }
-if(local) {
- x=lclwx();
- y=lclwy();
- atr=lclatr(LIGHTGRAY<<4);
- STATUSLINE;
- lclxy(1,node_scrnlen);
- lputc(CLREOL);
- lputs(" System Password: "); }
-else
- bputs("SY: ");
-console&=~(CON_R_ECHO|CON_L_ECHO);
-inside=1;
-getstr(str,40,K_UPPER);
-if(local) {
- TEXTWINDOW;
- lclatr(atr);
- lclxy(x,y);
- statusline(); }
-inside=0;
-console=orgcon;
-if(!local)
- CRLF;
-if(strcmp(sys_pass,str)) {
- sprintf(str2,"%s #%u System password attempt: '%s'"
- ,useron.alias,useron.number,str);
- logline("S!",str2);
- return(0); }
-return(1);
-}
-
-/****************************************************************************/
-/* Converts when_t.zone into ASCII format */
-/****************************************************************************/
-char *zonestr(short zone)
-{
- static char str[32];
-
-switch((ushort)zone) {
- case 0: return("UT");
- case AST: return("AST");
- case EST: return("EST");
- case CST: return("CST");
- case MST: return("MST");
- case PST: return("PST");
- case YST: return("YST");
- case HST: return("HST");
- case BST: return("BST");
- case ADT: return("ADT");
- case EDT: return("EDT");
- case CDT: return("CDT");
- case MDT: return("MDT");
- case PDT: return("PDT");
- case YDT: return("YDT");
- case HDT: return("HDT");
- case BDT: return("BDT");
- case MID: return("MID");
- case VAN: return("VAN");
- case EDM: return("EDM");
- case WIN: return("WIN");
- case BOG: return("BOG");
- case CAR: return("CAR");
- case RIO: return("RIO");
- case FER: return("FER");
- case AZO: return("AZO");
- case LON: return("LON");
- case BER: return("BER");
- case ATH: return("ATH");
- case MOS: return("MOS");
- case DUB: return("DUB");
- case KAB: return("KAB");
- case KAR: return("KAR");
- case BOM: return("BOM");
- case KAT: return("KAT");
- case DHA: return("DHA");
- case BAN: return("BAN");
- case HON: return("HON");
- case TOK: return("TOK");
- case SYD: return("SYD");
- case NOU: return("NOU");
- case WEL: return("WEL");
- }
-
-sprintf(str,"%02d:%02u",zone/60,zone<0 ? (-zone)%60 : zone%60);
-return(str);
-}
-
-/****************************************************************************/
-/* Waits so many seconds. Call with 2 or greater. */
-/****************************************************************************/
-void secwait(int sec)
-{
- time_t start;
-
-start=time(NULL);
-while(time(NULL)-start<sec)
- mswait(1);
-}
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
-
-if(!strncmp(str,"00/00/00",8))
- return(0);
-curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
-if(str[6]<'7')
- date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
-else
- date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
-if(sys_misc&SM_EURODATE) {
- date.da_mon=((str[3]&0xf)*10)+(str[4]&0xf);
- date.da_day=((str[0]&0xf)*10)+(str[1]&0xf); }
-else {
- date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
- date.da_day=((str[3]&0xf)*10)+(str[4]&0xf); }
-return(dostounix(&date,&curtime));
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- if(sys_misc&SM_EURODATE)
- sprintf(str,"%02u/%02u/%02u",date.da_day,date.da_mon
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900);
- else
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0 /*FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC */)==0)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(f.ff_fsize);
-return(-1L);
-}
-
-time_t ftimetounix(struct ftime ft)
-{
- struct date da;
- struct time ti;
-
-ti.ti_min=ft.ft_min;
-ti.ti_hour=ft.ft_hour;
-ti.ti_hund=0;
-ti.ti_sec=ft.ft_tsec*2;
-da.da_year=1980+ft.ft_year;
-da.da_day=ft.ft_day;
-da.da_mon=ft.ft_month;
-return(dostounix(&da,&ti));
-}
-
-struct ftime unixtoftime(time_t unix)
-{
- struct date da;
- struct time ti;
- struct ftime ft;
-
-unixtodos(unix,&da,&ti);
-ft.ft_min=ti.ti_min;
-ft.ft_hour=ti.ti_hour;
-ft.ft_tsec=ti.ti_sec/2;
-ft.ft_year=da.da_year-1980;
-ft.ft_day=da.da_day;
-ft.ft_month=da.da_mon;
-return(ft);
-}
-
-/****************************************************************************/
-/* Returns the time/date of the file in 'filespec' in time_t (unix) format */
-/****************************************************************************/
-long fdate(char *filespec)
-{
- int file;
- struct ftime f;
- time_t t;
-
-if((file=nopen(filespec,O_RDONLY))==-1)
- return(0);
-getftime(file,&f);
-t=ftimetounix(f);
-close(file);
-return(t);
-}
-
-long fdate_dir(char *filespec)
-{
- struct ffblk f;
- struct date fd;
- struct time ft;
-
-if(findfirst(filespec,&f,0/* FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC */)==0) {
- fd.da_day=f.ff_fdate&0x1f;
- fd.da_mon=(f.ff_fdate>>5)&0xf;
- fd.da_year=1980+((f.ff_fdate>>9)&0x7f);
- ft.ti_hour=(f.ff_ftime>>11)&0x1f;
- ft.ti_min=(f.ff_ftime>>5)&0x3f;
- ft.ti_sec=(f.ff_ftime&0xf)*2;
- return(dostounix(&fd,&ft)); }
-else return(0);
-}
-
-
-
-/****************************************************************************/
-/* Returns the FidoNet address kept in str as ASCII. */
-/****************************************************************************/
-faddr_t atofaddr(char *str)
-{
- char *p;
- faddr_t addr;
-
-addr.zone=addr.net=addr.node=addr.point=0;
-if((p=strchr(str,':'))!=NULL) {
- addr.zone=atoi(str);
- addr.net=atoi(p+1); }
-else {
- if(total_faddrs)
- addr.zone=faddr[0].zone;
- else
- addr.zone=1;
- addr.net=atoi(str); }
-if(!addr.zone) /* no such thing as zone 0 */
- addr.zone=1;
-if((p=strchr(str,'/'))!=NULL)
- addr.node=atoi(p+1);
-else {
- if(total_faddrs)
- addr.net=faddr[0].net;
- else
- addr.net=1;
- addr.node=atoi(str); }
-if((p=strchr(str,'.'))!=NULL)
- addr.point=atoi(p+1);
-return(addr);
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(faddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-/****************************************************************************/
-/* Returns string for 2 digit hex+ numbers up to 575 */
-/****************************************************************************/
-char *hexplus(uint num, char *str)
-{
-sprintf(str,"%03x",num);
-str[0]=num/0x100 ? 'f'+(num/0x10)-0xf : str[1];
-str[1]=str[2];
-str[2]=0;
-return(str);
-}
-
-uint hptoi(char *str)
-{
- char tmp[128];
- uint i;
-
-if(!str[1] || toupper(str[0])<='F')
- return(ahtoul(str));
-strcpy(tmp,str);
-tmp[0]='F';
-i=ahtoul(tmp)+((toupper(str[0])-'F')*0x10);
-return(i);
-}
-
-#ifndef __FLAT__
-
-void beep(int freq, int dur)
-{
-sound(freq);
-mswait(dur);
-nosound();
-}
-
-int kbd_state(void)
-{
-return(peekb(0,0x417)); /* Check scroll lock */
-}
-
-#elif defined(__WIN32__)
-
-void beep(int freq, int dur)
-{
-Beep(freq,dur); // Requires WINDOWS.H
-}
-
-void mswait(int ms)
-{
-Sleep(ms); // Requires WINDOWS.H
-}
-
-#endif
-
-#ifdef __OS2__
-
-int kbd_state(void)
-{
- KBDINFO info;
-
-KbdGetStatus(&info,0);
-return(info.fsState);
-}
-
-void mswait(int msec)
-{
-DosSleep(msec ? msec : 1);
-}
-
-#elif defined(__WIN32__)
-
-#define KBDSTF_RIGHTSHIFT 0x0001
-#define KBDSTF_LEFTSHIFT 0x0002
-#define KBDSTF_CONTROL 0x0004
-#define KBDSTF_ALT 0x0008
-#define KBDSTF_SCROLLLOCK_ON 0x0010
-#define KBDSTF_NUMLOCK_ON 0x0020
-#define KBDSTF_CAPSLOCK_ON 0x0040
-#define KBDSTF_INSERT_ON 0x0080
-#define KBDSTF_LEFTCONTROL 0x0100
-#define KBDSTF_LEFTALT 0x0200
-#define KBDSTF_RIGHTCONTROL 0x0400
-#define KBDSTF_RIGHTALT 0x0800
-#define KBDSTF_SCROLLLOCK 0x1000
-#define KBDSTF_NUMLOCK 0x2000
-#define KBDSTF_CAPSLOCK 0x4000
-#define KBDSTF_SYSREQ 0x8000
-
-int kbd_state(void)
-{
- int i=0;
- ulong l;
- INPUT_RECORD rec;
-
-PeekConsoleInput(stdin,&rec,1,&l);
-if(rec.EventType==KEY_EVENT)
- l=rec.Event.KeyEvent.dwControlKeyState;
-else if(rec.EventType==MOUSE_EVENT)
- l=rec.Event.MouseEvent.dwControlKeyState;
-else
- return(0);
-
-/* Translate Win32 key state to IBM key state */
-
-if(l&RIGHT_ALT_PRESSED)
- i|=KBDSTF_RIGHTALT;
-if(l&LEFT_ALT_PRESSED)
- i|=KBDSTF_LEFTALT;
-if(l&RIGHT_CTRL_PRESSED)
- i|=KBDSTF_RIGHTCONTROL;
-if(l&LEFT_CTRL_PRESSED)
- i|=KBDSTF_LEFTCONTROL;
-if(l&CAPSLOCK_ON)
- i|=KBDSTF_CAPSLOCK;
-if(l&NUMLOCK_ON)
- i|=KBDSTF_NUMLOCK;
-if(l&SCROLLLOCK_ON)
- i|=KBDSTF_SCROLLLOCK;
-if(l&SHIFT_PRESSED)
- i|=KBDSTF_LEFTSHIFT;
-
-return(i);
-}
-
-
-
-#endif
-
diff --git a/src/sbbs2/mlabels/make.bat b/src/sbbs2/mlabels/make.bat
deleted file mode 100755
index e2aa293fc7244f197065ab99dbbe1f66801dc1af..0000000000000000000000000000000000000000
--- a/src/sbbs2/mlabels/make.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -w-pro -I.. mlabels.c
diff --git a/src/sbbs2/mlabels/mlabels.c b/src/sbbs2/mlabels/mlabels.c
deleted file mode 100644
index 080f6a653c0faf8f9f4d1278388129103c528471..0000000000000000000000000000000000000000
--- a/src/sbbs2/mlabels/mlabels.c
+++ /dev/null
@@ -1,361 +0,0 @@
-/* MLABELS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Make mailing labels from Synchronet BBS user database */
-/* Digital Dynamics - 03/16/93 v1.00 */
-/* Digital Dynamics - 03/03/94 v2.00 */
-/* Digital Dynamics - 04/13/95 v2.10 */
-/* Digital Dynamics - 07/17/95 v2.20 */
-
-/* For compilation under Borland/Turbo C(++) */
-
-/* Set tabstops to 4 for viewing/printing */
-
-/* This program and source code are public domain. Modified versions may */
-/* note be distributed without consent from Digital Dynamics. */
-
-#include <io.h>
-#include <share.h>
-#include <fcntl.h>
-#include <errno.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <sys\stat.h>
-#include "sbbsdefs.h" /* Synchronet typedefs and macros header */
-
-#define DOUBLE_COLUMN (1<<0) /* Print double column labels */
-#define ATTN_ALIAS (1<<1) /* Print ATTN: Alias/Real Name */
-
-char *nulstr="";
-int min=0,max=99;
-long reqflags[4]={0},reqrest=0,reqexempt=0;
-
-char *usage=
-"\nusage: mlabels <data\\user path> [[-require] [...]] [/options] <outfile>\n"
-"\nwhere require is one of:\n"
-" L# set minimum level to # (default=0)\n"
-" M# set maximum level to # (default=99)\n"
-" F#<flags> set required flags from flag set #\n"
-" E<flags> set required exemptions\n"
-" R<flags> set required restrictions\n"
-"\nwhere options is one or more of:\n"
-" D double column labels\n"
-" A include ATTN: alias/name on label\n"
-"\nexample:\n"
-"\nMLABELS \\SBBS\\DATA\\USER -L50 /D PRN\n";
-
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Returns bytes offset into user record for flag set # 'set' */
-/****************************************************************************/
-long getflagoff(int set)
-{
-switch(set) {
- default:
- return(U_FLAGS1);
- case 2:
- return(U_FLAGS2);
- case 3:
- return(U_FLAGS3);
- case 4:
- return(U_FLAGS4); }
-}
-
-/****************************************************************************/
-/* Checks a user record against the requirements set on the command line */
-/* Returns 1 if the user meets the requirements (or no requirements were */
-/* specified) or 0 if the user does not meet any of the requirements. */
-/****************************************************************************/
-int chkuser(FILE *stream, long offset)
-{
- char str[128];
- int i;
-
-if(min || max!=99) { /* Check security level */
- fseek(stream,offset+U_LEVEL,SEEK_SET);
- fread(str,2,1,stream);
- str[2]=0;
- i=atoi(str);
- if(i<min || i>max) /* not within range */
- return(0); } /* so skip this user */
-
-for(i=0;i<4;i++)
- if(reqflags[i]) {
- fseek(stream,offset+getflagoff(i+1),SEEK_SET);
- fread(str,8,1,stream);
- str[8]=0;
- truncsp(str);
- if((ahtoul(str)&reqflags[i])!=reqflags[i])
- return(0); } /* doesn't have 'em all */
-
-if(reqrest) {
- fseek(stream,offset+U_REST,SEEK_SET);
- fread(str,8,1,stream);
- str[8]=0;
- truncsp(str);
- if((ahtoul(str)&reqrest)!=reqrest)
- return(0); }
-
-if(reqexempt) {
- fseek(stream,offset+U_REST,SEEK_SET);
- fread(str,8,1,stream);
- str[8]=0;
- truncsp(str);
- if((ahtoul(str)&reqexempt)!=reqexempt)
- return(0); }
-
-return(1);
-}
-
-/****************************************************************************/
-/* Attempts to lock a user record, retries for up to 10 seconds */
-/* Returns 0 on success, -1 on failure */
-/****************************************************************************/
-int lockuser(FILE *stream, ulong offset)
-{
- time_t start;
-
-if(lock(fileno(stream),offset,U_LEN)==0)
- return(0);
-start=time(NULL);
-while(1) {
- if(lock(fileno(stream),offset,U_LEN)==0)
- return(0);
- if(time(NULL)-start>=10L)
- break; }
-return(-1);
-}
-
-/***************/
-/* Entry point *
-/***************/
-int main(int argc, char **argv)
-{
- char str[256],buf1[U_LEN],buf2[U_LEN],infile[128]="",outfile[128]=""
- ,mode=0; /* optional modes bits */
- int i,j,k,file,printed=0;
- long l,length,offset;
- FILE *in,*out;
-
-printf("\nSynchronet Mailing Labels v2.10\n");
-for(i=1;i<argc;i++) {
- if(argv[i][0]=='-')
- switch(toupper(argv[i][1])) {
- case 'L': /* Set minimum sec level */
- min=atoi(argv[i]+2);
- break;
- case 'M': /* Set maximum sec level */
- max=atoi(argv[i]+2);
- break;
- case 'F': /* Set required flags */
- j=3;
- k=1;
- if(isdigit(argv[i][2]))
- k=argv[i][2]&0xf;
- else
- j=2;
- for(;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- reqflags[k-1]|=FLAG(toupper(argv[i][j]));
- break;
- case 'R': /* Set required restrictions */
- for(j=2;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- reqrest|=FLAG(toupper(argv[i][j]));
- break;
- case 'E': /* Set required exemptions */
- for(j=2;argv[i][j];j++)
- if(isalpha(argv[i][j]))
- reqexempt|=FLAG(toupper(argv[i][j]));
- break;
- default: /* Unrecognized include */
- printf(usage);
- exit(1); }
-
- else if(argv[i][0]=='/') {
- k=strlen(argv[i]);
- for(j=1;j<k;j++)
- switch(toupper(argv[i][j])) {
- case 'D': /* Double column labels */
- mode|=DOUBLE_COLUMN;
- break;
- case 'A': /* Attention Alias/Real Name */
- mode|=ATTN_ALIAS;
- break;
- default:
- printf("\nUnknown option\n");
- case '?':
- printf(usage);
- exit(1); } }
- else if(infile[0]) /* in filename already given */
- strcpy(outfile,argv[i]);
- else
- strcpy(infile,argv[i]); }
-
-if(!infile[0] || !outfile[0]) {
- printf("\nFilename not specified\n");
- printf(usage);
- exit(1); }
-
-if(infile[strlen(infile)-1]!='\\' && infile[strlen(infile)-1]!=':')
- strcat(infile,"\\");
-strcat(infile,"USER.DAT");
-if((file=sopen(infile,O_RDONLY|O_BINARY,SH_DENYNO))==-1) {
- printf("\nError opening %s\n",infile);
- exit(1); }
-if((in=fdopen(file,"rb"))==NULL) {
- printf("\nError opening %s\n",infile);
- exit(1); }
-setvbuf(in,NULL,_IOFBF,2048);
-length=filelength(file);
-
-if((file=open(outfile,O_WRONLY|O_TRUNC|O_CREAT|O_BINARY
- ,S_IWRITE|S_IREAD))==-1) {
- printf("\nError opening/creating %s\n",outfile);
- exit(1); }
-if((out=fdopen(file,"wb"))==NULL) {
- printf("\nError opening %s\n",outfile);
- exit(1); }
-setvbuf(out,NULL,_IOFBF,2048);
-
-printf("\n");
-for(offset=0;offset<length;offset+=U_LEN) {
- printf("%lu of %lu (%u labels)\r"
- ,(offset/U_LEN)+1,length/U_LEN,printed);
- if(lockuser(in,offset)) {
- printf("Error locking offset %lu\n",offset);
- continue; }
-
- if(!chkuser(in,offset)) {
- unlock(fileno(in),offset,U_LEN);
- continue; }
-
- fseek(in,offset,SEEK_SET);
- if(!fread(buf1,U_LEN,1,in)) {
- printf("Couldn't read %lu bytes at %lu\n",U_LEN,offset);
- break; }
- unlock(fileno(in),offset,U_LEN);
- for(i=0;i<U_LEN;i++) { /* Convert ETX (3) to NULL (0) */
- if(buf1[i]==ETX)
- buf1[i]=NULL; }
-
- buf1[U_MISC+8]=0;
- l=ahtoul(buf1+U_MISC);
- if(l&(DELETED|INACTIVE)) /* skip if deleted or inactive */
- continue;
-
- while(mode&DOUBLE_COLUMN) { /* double wide - right column */
- offset+=U_LEN;
- printf("%lu of %lu (%u labels)\r"
- ,(offset/U_LEN)+1,length/U_LEN,printed);
- if(lockuser(in,offset)) {
- printf("Error locking offset %lu\n",offset);
- continue; }
- fseek(in,offset,SEEK_SET);
- if(!fread(buf2,U_LEN,1,in)) {
- mode&=~DOUBLE_COLUMN;
- unlock(fileno(in),offset,U_LEN); }
- else {
- if(!chkuser(in,offset)) {
- unlock(fileno(in),offset,U_LEN);
- continue; }
- unlock(fileno(in),offset,U_LEN);
- for(i=0;i<U_LEN;i++) { /* Convert ETX (3) to NULL (0) */
- if(buf2[i]==ETX)
- buf2[i]=NULL; }
- buf2[U_MISC+8]=0;
- l=ahtoul(buf2+U_MISC);
- if(l&(DELETED|INACTIVE)) /* skip if deleted or inactive */
- continue;
- else
- break; } }
-
- if(mode&DOUBLE_COLUMN) { /* print two columns */
- fprintf(out," %-*.*s%*s%.*s\r\n"
- ,LEN_NAME,LEN_NAME
- ,buf1+U_NAME
- ,41-LEN_NAME,nulstr
- ,LEN_NAME
- ,buf2+U_NAME);
-
- fprintf(out," %-*.*s%*s%.*s\r\n"
- ,LEN_ADDRESS,LEN_ADDRESS
- ,buf1+U_ADDRESS
- ,41-LEN_ADDRESS,nulstr
- ,LEN_ADDRESS
- ,buf2+U_ADDRESS);
-
- sprintf(str,"%.*s %.*s"
- ,LEN_LOCATION,buf1+U_LOCATION
- ,LEN_ZIPCODE,buf1+U_ZIPCODE);
-
- fprintf(out," %-41s%.*s %.*s\r\n"
- ,str
- ,LEN_LOCATION,buf2+U_LOCATION
- ,LEN_ZIPCODE,buf2+U_ZIPCODE);
-
- sprintf(str,"ATTN: %.*s",LEN_ALIAS,buf1+U_ALIAS);
-
- if(mode&ATTN_ALIAS)
- fprintf(out," %-41sATTN: %.*s\r\n\r\n\r\n"
- ,str,LEN_ALIAS,buf2+U_ALIAS);
- else
- fprintf(out,"\r\n\r\n\r\n");
-
- printed+=2; }
-
- else { /* single column labels */
- fprintf(out," %.*s\r\n"
- ,LEN_NAME
- ,buf1+U_NAME);
-
- fprintf(out," %.*s\r\n"
- ,LEN_ADDRESS
- ,buf1+U_ADDRESS);
-
- fprintf(out," %.*s %.*s\r\n"
- ,LEN_LOCATION
- ,buf1+U_LOCATION
- ,LEN_ZIPCODE
- ,buf1+U_ZIPCODE);
-
- if(mode&ATTN_ALIAS)
- fprintf(out," ATTN: %.*s\r\n\r\n\r\n"
- ,LEN_ALIAS,buf1+U_ALIAS);
- else
- fprintf(out,"\r\n\r\n\r\n");
-
- printed++; } }
-printf("\nDone.\n");
-fclose(in);
-fclose(out);
-return(0);
-}
-
-/* end of mlabels.c */
diff --git a/src/sbbs2/msg1.c b/src/sbbs2/msg1.c
deleted file mode 100644
index e13d7a5065a4a84237dde8263a9007a8ea5d8350..0000000000000000000000000000000000000000
--- a/src/sbbs2/msg1.c
+++ /dev/null
@@ -1,493 +0,0 @@
-#line 1 "MSG1.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/***********************************************************************/
-/* Functions that do i/o with messages (posts/mail/auto) or their data */
-/***********************************************************************/
-
-#include "sbbs.h"
-
-#define LZH 1
-
-void lfputs(char HUGE16 *buf, FILE *fp)
-{
-while(*buf) {
- fputc(*buf,fp);
- buf++; }
-}
-
-/****************************************************************************/
-/* Loads an SMB message from the open msg base the fastest way possible */
-/* first by offset, and if that's the wrong message, then by number. */
-/* Returns 1 if the message was loaded and left locked, otherwise */
-/****************************************************************************/
-int loadmsg(smbmsg_t *msg, ulong number)
-{
- char str[128];
- int i;
-
-if(msg->idx.offset) { /* Load by offset if specified */
-
- if((i=smb_lockmsghdr(&smb,msg))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-
- i=smb_getmsghdr(&smb,msg);
- if(!i && msg->hdr.number==number)
- return(1);
-
- /* Wrong offset */
-
- if(!i) {
- smb_freemsgmem(msg);
- msg->total_hfields=0; }
-
- smb_unlockmsghdr(&smb,msg); }
-
-msg->hdr.number=number;
-if((i=smb_getmsgidx(&smb,msg))!=0) /* Message is deleted */
- return(0);
-if((i=smb_lockmsghdr(&smb,msg))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-if((i=smb_getmsghdr(&smb,msg))!=0) {
- sprintf(str,"(%06lX) #%lu/%lu %s",msg->idx.offset,msg->idx.number
- ,number,smb.file);
- smb_unlockmsghdr(&smb,msg);
- errormsg(WHERE,ERR_READ,str,i);
- return(0); }
-return(msg->total_hfields);
-}
-
-/****************************************************************************/
-/* Displays a text file to the screen, reading/display a block at time */
-/****************************************************************************/
-void putmsg_fp(FILE *fp, long length, int mode)
-{
- uchar *buf,tmpatr;
- int i,j,b=8192,orgcon=console;
- long l;
-
-tmpatr=curatr; /* was lclatr(-1) */
-if((buf=MALLOC(b+1))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,b+1L);
- return; }
-for(l=0;l<length;l+=b) {
- if(l+b>length)
- b=length-l;
- i=j=fread(buf,1,b,fp);
- if(!j) break; /* No bytes read */
- if(l+i<length) /* Not last block */
- while(i && buf[i-1]!=LF) i--; /* Search for last LF */
- if(!i) i=j; /* None found */
- buf[i]=0;
- if(i<j)
- fseek(fp,(long)-(j-i),SEEK_CUR);
- b=i;
- if(putmsg(buf,mode|P_SAVEATR))
- break; }
-if(!(mode&P_SAVEATR)) {
- console=orgcon;
- attr(tmpatr); }
-FREE(buf);
-}
-
-void show_msgattr(ushort attr)
-{
-
-bprintf(text[MsgAttr]
- ,attr&MSG_PRIVATE ? "Private " :nulstr
- ,attr&MSG_READ ? "Read " :nulstr
- ,attr&MSG_DELETE ? "Deleted " :nulstr
- ,attr&MSG_KILLREAD ? "Kill " :nulstr
- ,attr&MSG_ANONYMOUS ? "Anonymous " :nulstr
- ,attr&MSG_LOCKED ? "Locked " :nulstr
- ,attr&MSG_PERMANENT ? "Permanent " :nulstr
- ,attr&MSG_MODERATED ? "Moderated " :nulstr
- ,attr&MSG_VALIDATED ? "Validated " :nulstr
- ,attr&MSG_REPLIED ? "Replied " :nulstr
- ,nulstr
- ,nulstr
- ,nulstr
- ,nulstr
- ,nulstr
- ,nulstr
- );
-}
-
-/****************************************************************************/
-/* Displays a message header to the screen */
-/****************************************************************************/
-void show_msghdr(smbmsg_t msg)
-{
- char *sender=NULL;
- int i;
-
-attr(LIGHTGRAY);
-if(useron.misc&CLRSCRN)
- outchar(FF);
-else
- CRLF;
-bprintf(text[MsgSubj],msg.subj);
-if(msg.hdr.attr)
- show_msgattr(msg.hdr.attr);
-
-bprintf(text[MsgTo],msg.to);
-if(msg.to_ext)
- bprintf(text[MsgToExt],msg.to_ext);
-if(msg.to_net.addr)
- bprintf(text[MsgToNet],msg.to_net.type==NET_FIDO
- ? faddrtoa(*(faddr_t *)msg.to_net.addr) : msg.to_net.addr);
-if(!(msg.hdr.attr&MSG_ANONYMOUS) || SYSOP) {
- bprintf(text[MsgFrom],msg.from);
- if(msg.from_ext)
- bprintf(text[MsgFromExt],msg.from_ext);
- if(msg.from_net.addr)
- bprintf(text[MsgFromNet],msg.from_net.type==NET_FIDO
- ? faddrtoa(*(faddr_t *)msg.from_net.addr)
- : msg.from_net.addr); }
-bprintf(text[MsgDate]
- ,timestr((time_t *)&msg.hdr.when_written.time)
- ,zonestr(msg.hdr.when_written.zone));
-
-CRLF;
-
-for(i=0;i<msg.total_hfields;i++) {
- if(msg.hfield[i].type==SENDER)
- sender=msg.hfield_dat[i];
- if(msg.hfield[i].type==FORWARDED && sender)
- bprintf(text[ForwardedFrom],sender
- ,timestr((time_t *)msg.hfield_dat[i])); }
-
-/* Debug stuff
-if(SYSOP) {
- bprintf("\1n\1c\r\nAux : \1h%08lX",msg.hdr.auxattr);
- bprintf("\1n\1c\r\nNum : \1h%lu",msg.hdr.number); }
-*/
-
-CRLF;
-}
-
-#if !LZH
-
-/****************************************************************************/
-/* Displays message header and text (if not deleted) */
-/****************************************************************************/
-void show_msg(smbmsg_t msg, int mode)
-{
- ushort xlat;
- int i;
-
-show_msghdr(msg);
-for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY:
- case TEXT_TAIL:
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,smb.sdt_fp);
- if(xlat!=XLAT_NONE) /* no translations supported */
- continue;
- putmsg_fp(smb.sdt_fp,msg.dfield[i].length-2,mode);
- CRLF;
- break; }
-}
-
-#else
-
-/****************************************************************************/
-/* Displays message header and text (if not deleted) */
-/****************************************************************************/
-void show_msg(smbmsg_t msg, int mode)
-{
- char *inbuf,*lzhbuf;
- ushort xlat;
- int i,lzh;
- long lzhlen,length;
-
-show_msghdr(msg);
-for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY:
- case TEXT_TAIL:
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,smb.sdt_fp);
- lzh=0;
- if(xlat==XLAT_LZH) {
- lzh=1;
- fread(&xlat,2,1,smb.sdt_fp); }
- if(xlat!=XLAT_NONE) /* no translations supported */
- continue;
- if(lzh) {
- length=msg.dfield[i].length-4;
- if((inbuf=MALLOC(length))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,length);
- continue; }
- fread(inbuf,length,1,smb.sdt_fp);
- lzhlen=*(long *)inbuf;
-/**
- if(SYSOP)
- bprintf("Decoding %lu bytes of LZH into %lu bytes of text "
- "(%d%% compression)"
- ,length,lzhlen
- ,(int)(((float)(lzhlen-length)/lzhlen)*100.0));
-**/
- if((lzhbuf=MALLOC(lzhlen+2L))==NULL) {
- FREE(inbuf);
- errormsg(WHERE,ERR_ALLOC,nulstr,lzhlen+2L);
- continue; }
- lzh_decode(inbuf,length,lzhbuf);
- lzhbuf[lzhlen]=0;
-// CRLF;
- putmsg(lzhbuf,P_NOATCODES);
- FREE(lzhbuf);
- FREE(inbuf); }
- else
- putmsg_fp(smb.sdt_fp,msg.dfield[i].length-2,mode);
- CRLF;
- break; }
-}
-
-#endif
-
-void quotemsg(smbmsg_t msg, int tails)
-{
- char str[256];
-
-sprintf(str,"%sQUOTES.TXT",node_dir);
-remove(str);
-msgtotxt(msg,str,0,tails);
-}
-
-
-/****************************************************************************/
-/* Writes message header and text data to a text file */
-/****************************************************************************/
-void msgtotxt(smbmsg_t msg, char *str, int header, int tails)
-{
- uchar HUGE16 *buf;
- ushort xlat;
- int i,j,x;
- ulong l;
- FILE *out;
-
-if((out=fnopen(&i,str,O_WRONLY|O_CREAT|O_APPEND))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,0);
- return; }
-if(header) {
- fprintf(out,"\r\n");
- fprintf(out,"Subj : %s\r\n",msg.subj);
- fprintf(out,"To : %s",msg.to);
- if(msg.to_ext)
- fprintf(out," #%s",msg.to_ext);
- if(msg.to_net.addr)
- fprintf(out," (%s)",msg.to_net.type==NET_FIDO
- ? faddrtoa(*(faddr_t *)msg.to_net.addr) : msg.to_net.addr);
- fprintf(out,"\r\nFrom : %s",msg.from);
- if(msg.from_ext && !(msg.hdr.attr&MSG_ANONYMOUS))
- fprintf(out," #%s",msg.from_ext);
- if(msg.from_net.addr)
- fprintf(out," (%s)",msg.from_net.type==NET_FIDO
- ? faddrtoa(*(faddr_t *)msg.from_net.addr)
- : msg.from_net.addr);
- fprintf(out,"\r\nDate : %.24s %s"
- ,timestr((time_t *)&msg.hdr.when_written.time)
- ,zonestr(msg.hdr.when_written.zone));
- fprintf(out,"\r\n\r\n"); }
-
-buf=smb_getmsgtxt(&smb,&msg,tails);
-if(buf) {
- lfputs(buf,out);
- LFREE(buf); }
-else if(smb_getmsgdatlen(&msg)>2)
- errormsg(WHERE,ERR_ALLOC,smb.file,smb_getmsgdatlen(&msg));
-fclose(out);
-}
-
-
-/****************************************************************************/
-/* Returns total number of posts in a sub-board */
-/****************************************************************************/
-ulong getposts(uint subnum)
-{
- char str[128];
- ulong l;
-
-sprintf(str,"%s%s.SID",sub[subnum]->data_dir,sub[subnum]->code);
-l=flength(str);
-if((long)l==-1)
- return(0);
-return(l/sizeof(idxrec_t));
-}
-
-/****************************************************************************/
-/* Returns message number posted at or after time */
-/****************************************************************************/
-ulong getmsgnum(uint subnum, time_t t)
-{
- int i;
- ulong l,total,bot,top;
- smbmsg_t msg;
-
-if(!t)
- return(0);
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-total=filelength(fileno(smb.sid_fp))/sizeof(idxrec_t);
-
-if(!total) { /* Empty base */
- smb_close(&smb);
- return(0); }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-
-if((i=smb_getlastidx(&smb,&msg.idx))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(0); }
-
-if(msg.idx.time<=t) {
- smb_close(&smb);
- return(msg.idx.number); }
-
-bot=0;
-top=total;
-l=total/2; /* Start at middle index */
-clearerr(smb.sid_fp);
-while(1) {
- fseek(smb.sid_fp,l*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- if(bot==top-1)
- break;
- if(msg.idx.time>t) {
- top=l;
- l=bot+((top-bot)/2);
- continue; }
- if(msg.idx.time<t) {
- bot=l;
- l=top-((top-bot)/2);
- continue; }
- break; }
-smb_close(&smb);
-return(msg.idx.number);
-}
-
-/****************************************************************************/
-/* Returns the time of the message number pointed to by 'ptr' */
-/****************************************************************************/
-time_t getmsgtime(uint subnum, ulong ptr)
-{
- char str[128];
- int i;
- long l;
- smbmsg_t msg;
- idxrec_t lastidx;
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-if(!filelength(fileno(smb.sid_fp))) { /* Empty base */
- smb_close(&smb);
- return(0); }
-msg.offset=0;
-msg.hdr.number=0;
-if(smb_getmsgidx(&smb,&msg)) { /* Get first message index */
- smb_close(&smb);
- return(0); }
-if(!ptr || msg.idx.number>=ptr) { /* ptr is before first message */
- smb_close(&smb);
- return(msg.idx.time); } /* so return time of first msg */
-
-if(smb_getlastidx(&smb,&lastidx)) { /* Get last message index */
- smb_close(&smb);
- return(0); }
-if(lastidx.number<ptr) { /* ptr is after last message */
- smb_close(&smb);
- return(lastidx.time); } /* so return time of last msg */
-
-msg.idx.time=0;
-msg.hdr.number=ptr;
-if(!smb_getmsgidx(&smb,&msg)) {
- smb_close(&smb);
- return(msg.idx.time); }
-
-if(ptr-msg.idx.number < lastidx.number-ptr) {
- msg.offset=0;
- msg.idx.number=0;
- while(msg.idx.number<ptr) {
- msg.hdr.number=0;
- if(smb_getmsgidx(&smb,&msg) || msg.idx.number>=ptr)
- break;
- msg.offset++; }
- smb_close(&smb);
- return(msg.idx.time); }
-
-ptr--;
-while(ptr) {
- msg.hdr.number=ptr;
- if(!smb_getmsgidx(&smb,&msg))
- break;
- ptr--; }
-smb_close(&smb);
-return(msg.idx.time);
-}
-
-
-/****************************************************************************/
-/* Returns the total number of msgs in the sub-board and sets 'ptr' to the */
-/* number of the last message in the sub (0) if no messages. */
-/****************************************************************************/
-ulong getlastmsg(uint subnum, ulong *ptr, time_t *t)
-{
- char str[256];
- int i;
- ulong total;
- idxrec_t idx;
-
-if(ptr)
- (*ptr)=0;
-if(t)
- (*t)=0;
-if(subnum>=total_subs)
- return(0);
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-if(!filelength(fileno(smb.sid_fp))) { /* Empty base */
- smb_close(&smb);
- return(0); }
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-if((i=smb_getlastidx(&smb,&idx))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(0); }
-total=filelength(fileno(smb.sid_fp))/sizeof(idxrec_t);
-smb_unlocksmbhdr(&smb);
-smb_close(&smb);
-if(ptr)
- (*ptr)=idx.number;
-if(t)
- (*t)=idx.time;
-return(total);
-}
-
diff --git a/src/sbbs2/msg2.c b/src/sbbs2/msg2.c
deleted file mode 100644
index b8468f8693ec5caefd87e8177d73e389951512e8..0000000000000000000000000000000000000000
--- a/src/sbbs2/msg2.c
+++ /dev/null
@@ -1,1202 +0,0 @@
-#line 1 "MSG2.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-#define MAX_LINE_LEN 82L
-
-char *qstr=" > %.76s\r\n";
-
-int qwk_route(char *inaddr, char *fulladdr);
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Modify 'str' to for quoted format. Remove ^A codes, etc. */
-/****************************************************************************/
-void quotestr(char *str)
-{
- char tmp[512];
- int i,j;
-
-j=strlen(str);
-while(j && (str[j-1]==SP || str[j-1]==LF || str[j-1]==CR)) j--;
-str[j]=0;
-remove_ctrl_a(str);
-}
-
-void editor_inf(int xeditnum,char *dest, char *title,int mode
- ,uint subnum)
-{
- char str[512];
- int file;
-
-xeditnum--;
-
-if(xedit[xeditnum]->misc&QUICKBBS) {
- sprintf(str,"%sMSGINF",node_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
- sprintf(str,"%s\r\n%s\r\n%s\r\n%u\r\n%s\r\n%s\r\n"
- ,(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_NAME) ? useron.name
- : useron.alias
- ,dest,title,1
- ,mode&WM_NETMAIL ? "NetMail"
- :mode&WM_EMAIL ? "Electronic Mail"
- :subnum==INVALID_SUB ? nulstr
- :sub[subnum]->sname
- ,mode&WM_PRIVATE ? "YES":"NO");
- write(file,str,strlen(str));
- close(file); }
-else {
- sprintf(str,"%sEDITOR.INF",node_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
- sprintf(str,"%s\r\n%s\r\n%u\r\n%s\r\n%s\r\n%u\r\n"
- ,title,dest,useron.number
- ,(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_NAME) ? useron.name
- : useron.alias
- ,useron.name,useron.level);
- write(file,str,strlen(str));
- close(file); }
-}
-
-/****************************************************************************/
-/* Creates a message (post or mail) using standard line editor. 'fname' is */
-/* is name of file to create, 'top' is a buffer to place at beginning of */
-/* message and 'title' is the title (70chars max) for the message. */
-/* 'dest' contains a text description of where the message is going. */
-/* Returns positive if successful or 0 if aborted. */
-/****************************************************************************/
-char writemsg(char *fname, char *top, char *title, int mode, int subnum
- ,char *dest)
-{
- uchar str[256],quote[128],msgtmp[32],c,HUGE16 *buf,ex_mode=0,*p,*tp
- ,useron_level;
- int i,j,file,linesquoted=0;
- long length,qlen,qtime;
- ulong l;
- FILE *stream;
-
-useron_level=useron.level;
-
-if((buf=(char HUGE16*)LMALLOC(level_linespermsg[useron_level]*MAX_LINE_LEN))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,fname
- ,level_linespermsg[useron_level]*MAX_LINE_LEN);
- return(0); }
-
-if(mode&WM_NETMAIL ||
- (!(mode&(WM_EMAIL|WM_NETMAIL)) && sub[subnum]->misc&SUB_PNET))
- mode|=WM_NOTOP;
-
-if(useron.xedit && xedit[useron.xedit-1]->misc&QUICKBBS)
- strcpy(msgtmp,"MSGTMP");
-else
- strcpy(msgtmp,"INPUT.MSG");
-
-if(mode&WM_QUOTE && !(useron.rest&FLAG('J'))
- && ((mode&(WM_EMAIL|WM_NETMAIL) && sys_misc&SM_QUOTE_EM)
- || (!(mode&(WM_EMAIL|WM_NETMAIL)) && (uint)subnum!=INVALID_SUB
- && sub[subnum]->misc&SUB_QUOTE))) {
-
- /* Quote entire message to MSGTMP or INPUT.MSG */
-
- if(useron.xedit && xedit[useron.xedit-1]->misc"EALL) {
- sprintf(str,"%sQUOTES.TXT",node_dir);
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- LFREE(buf);
- return(0); }
-
- sprintf(str,"%s%s",node_dir,msgtmp); /* file for quoted msg */
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- LFREE(buf);
- fclose(stream);
- return(0); }
-
- while(!feof(stream) && !ferror(stream)) {
- if(!fgets(str,255,stream))
- break;
- quotestr(str);
- sprintf(tmp,qstr,str);
- write(file,tmp,strlen(tmp));
- linesquoted++; }
- fclose(stream);
- close(file); }
-
- /* Quote nothing to MSGTMP or INPUT.MSG automatically */
-
- else if(useron.xedit && xedit[useron.xedit-1]->misc"ENONE)
- ;
-
- else if(yesno(text[QuoteMessageQ])) {
- sprintf(str,"%sQUOTES.TXT",node_dir);
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- LFREE(buf);
- return(0); }
-
- sprintf(str,"%s%s",node_dir,msgtmp); /* file for quoted msg */
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- LFREE(buf);
- fclose(stream);
- return(0); }
-
- l=ftell(stream); /* l now points to start of message */
-
- while(online) {
- sprintf(str,text[QuoteLinesPrompt],linesquoted ? "Done":"All");
- mnemonics(str);
- i=getstr(quote,10,K_UPPER);
- if(sys_status&SS_ABORT) {
- fclose(stream);
- close(file);
- LFREE(buf);
- return(0); }
- if(!i && linesquoted)
- break;
- if(!i || quote[0]=='A') { /* Quote all */
- fseek(stream,l,SEEK_SET);
- while(!feof(stream) && !ferror(stream)) {
- if(!fgets(str,255,stream))
- break;
- quotestr(str);
- sprintf(tmp,qstr,str);
- write(file,tmp,strlen(tmp));
- linesquoted++; }
- break; }
- if(quote[0]=='L') {
- fseek(stream,l,SEEK_SET);
- i=1;
- CRLF;
- attr(LIGHTGRAY);
- while(!feof(stream) && !ferror(stream) && !msgabort()) {
- if(!fgets(str,255,stream))
- break;
- quotestr(str);
- bprintf("%3d: %.74s\r\n",i,str);
- i++; }
- continue; }
-
- if(!isdigit(quote[0]))
- break;
- p=quote;
- while(p) {
- if(*p==',' || *p==SP)
- p++;
- i=atoi(p);
- if(!i)
- break;
- fseek(stream,l,SEEK_SET);
- j=1;
- while(!feof(stream) && !ferror(stream) && j<i) {
- if(!fgets(tmp,255,stream))
- break;
- j++; } /* skip beginning */
- tp=strchr(p,'-'); /* tp for temp pointer */
- if(tp) { /* range */
- i=atoi(tp+1);
- while(!feof(stream) && !ferror(stream) && j<=i) {
- if(!fgets(str,255,stream))
- break;
- quotestr(str);
- sprintf(tmp,qstr,str);
- write(file,tmp,strlen(tmp));
- linesquoted++;
- j++; } }
- else { /* one line */
- if(fgets(str,255,stream)) {
- quotestr(str);
- sprintf(tmp,qstr,str);
- write(file,tmp,strlen(tmp));
- linesquoted++; } }
- p=strchr(p,',');
- // if(!p) p=strchr(p,SP); 02/05/96 huh?
- } }
-
- fclose(stream);
- close(file); } }
-else {
- sprintf(str,"%sQUOTES.TXT",node_dir);
- remove(str); }
-
-if(!online || sys_status&SS_ABORT) {
- LFREE(buf);
- return(0); }
-
-if(!(mode&WM_EXTDESC)) {
- if(mode&WM_FILE) {
- c=12;
- CRLF;
- bputs(text[Filename]); }
- else {
- c=LEN_TITLE;
- bputs(text[TitlePrompt]); }
- if(!(mode&(WM_EMAIL|WM_NETMAIL)) && !(mode&WM_FILE)
- && sub[subnum]->misc&(SUB_QNET /* |SUB_PNET */ ))
- c=25;
- if(mode&WM_QWKNET)
- c=25;
- if(!getstr(title,c,mode&WM_FILE ? K_LINE|K_UPPER : K_LINE|K_EDIT|K_AUTODEL)
- && useron_level && useron.logons) {
- LFREE(buf);
- return(0); }
- if(!(mode&(WM_EMAIL|WM_NETMAIL)) && sub[subnum]->misc&SUB_QNET
- && !SYSOP
- && (!stricmp(title,"DROP") || !stricmp(title,"ADD")
- || !strnicmp(dest,"SBBS",4))) {
- LFREE(buf); /* Users can't post DROP or ADD in QWK netted subs */
- return(0); } } /* or messages to "SBBS" */
-
-if(!online || sys_status&SS_ABORT) {
- LFREE(buf);
- return(0); }
-
-/* Create WWIV compatible EDITOR.INF file */
-
-if(useron.xedit) {
- editor_inf(useron.xedit,dest,title,mode,subnum);
- if(xedit[useron.xedit-1]->type) {
- gettimeleft();
- xtrndat(useron.alias,node_dir,xedit[useron.xedit-1]->type,timeleft); }
- }
-
-if(console&CON_RAW_IN) {
- bprintf(text[EnterMsgNowRaw]
- ,(ulong)level_linespermsg[useron_level]*MAX_LINE_LEN);
- if(top[0] && !(mode&WM_NOTOP)) {
- strcpy((char *)buf,top);
- strcat((char *)buf,crlf);
- l=strlen((char *)buf); }
- else
- l=0;
- while(l<level_linespermsg[useron_level]*MAX_LINE_LEN) {
- c=getkey(0);
- if(sys_status&SS_ABORT) { /* Ctrl-C */
- LFREE(buf);
- return(0); }
- if((c==ESC || c==1) && useron.rest&FLAG('A')) /* ANSI restriction */
- continue;
-#ifndef __OS2__
- if(lclaes() && c=='"') c=7; /* convert keyboard reassignmnet to beep */
-#endif
- if(c==7 && useron.rest&FLAG('B')) /* Beep restriction */
- continue;
- if(!(console&CON_RAW_IN)) /* Ctrl-Z was hit */
- break;
- outchar(c);
- buf[l++]=c; }
- buf[l]=0;
- if(l==level_linespermsg[useron_level]*MAX_LINE_LEN)
- bputs(text[OutOfBytes]); }
-
-
-else if((online==ON_LOCAL && node_misc&NM_LCL_EDIT && node_editor[0])
- || useron.xedit) {
-
- if(useron.xedit && xedit[useron.xedit-1]->misc&IO_INTS) {
- ex_mode|=EX_OUTL;
- if(online==ON_REMOTE)
- ex_mode|=(EX_OUTR|EX_INR);
- if(xedit[useron.xedit-1]->misc&WWIVCOLOR)
- ex_mode|=EX_WWIV; }
-
- sprintf(str,"%s%s",node_dir,msgtmp); /* temporary file for input */
- if(!linesquoted && fexist(str))
- remove(str);
- if(linesquoted) {
- qlen=flength(str);
- qtime=fdate(str); }
- if(online==ON_LOCAL) {
- if(node_misc&NM_LCL_EDIT && node_editor[0])
- external(cmdstr(node_editor,str,nulstr,NULL)
- ,0); /* EX_CC removed and EX_OUTL removed */
- else
- external(cmdstr(xedit[useron.xedit-1]->lcmd,str,nulstr,NULL)
- ,ex_mode); }
-
- else {
- rioctl(IOCM|PAUSE|ABORT);
- external(cmdstr(xedit[useron.xedit-1]->rcmd,str,nulstr,NULL),ex_mode);
- rioctl(IOSM|PAUSE|ABORT); }
- checkline();
- if(!fexist(str) || !online
- || (linesquoted && qlen==flength(str) && qtime==fdate(str))) {
- LFREE(buf);
- return(0); }
- buf[0]=0;
- if(!(mode&WM_NOTOP))
- strcpy((char *)buf,top);
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- LFREE(buf);
- return(0); }
- length=filelength(file);
- l=strlen((char *)buf); /* reserve space for top and terminating null */
- /* truncate if too big */
- if(length>(level_linespermsg[useron_level]*MAX_LINE_LEN)-(l+1)) {
- length=(level_linespermsg[useron_level]*MAX_LINE_LEN)-(l+1);
- bputs(text[OutOfBytes]); }
- lread(file,buf+l,length);
- close(file);
- // remove(str); /* no need to save the temp input file */
- buf[l+length]=0; }
-else {
- buf[0]=0;
- if(linesquoted) {
- sprintf(str,"%s%s",node_dir,msgtmp);
- if((file=nopen(str,O_RDONLY))!=-1) {
- length=filelength(file);
- l=length>level_linespermsg[useron_level]*MAX_LINE_LEN
- ? level_linespermsg[useron_level]*MAX_LINE_LEN : length;
- lread(file,buf,l);
- buf[l]=0;
- close(file);
- // remove(str);
- } }
- if(!(msgeditor((char *)buf,mode&WM_NOTOP ? nulstr : top,title))) {
- LFREE(buf);
- return(0); } }
-
-now=time(NULL);
-bputs(text[Saving]);
-if((stream=fnopen(&file,fname,O_WRONLY|O_CREAT|O_TRUNC))==NULL) {
- errormsg(WHERE,ERR_OPEN,fname,O_WRONLY|O_CREAT|O_TRUNC);
- LFREE(buf);
- return(0); }
-for(l=i=0;buf[l] && i<level_linespermsg[useron_level];l++) {
- if(buf[l]==141 && useron.xedit && xedit[useron.xedit-1]->misc&QUICKBBS) {
- fwrite(crlf,2,1,stream);
- i++;
- continue; }
- if(buf[l]==LF && (!l || buf[l-1]!=CR) && useron.xedit
- && xedit[useron.xedit-1]->misc&EXPANDLF) {
- fwrite(crlf,2,1,stream);
- i++;
- continue; }
- if(!(mode&(WM_EMAIL|WM_NETMAIL))
- && (!l || buf[l-1]==LF)
- && buf[l]=='-' && buf[l+1]=='-' && buf[l+2]=='-'
- && (buf[l+3]==SP || buf[l+3]==TAB || buf[l+3]==CR))
- buf[l+1]='+';
- if(buf[l]==LF)
- i++;
- fputc(buf[l],stream); }
-
-if(buf[l])
- bputs(text[NoMoreLines]);
-fclose(stream);
-LFREE((char *)buf);
-bprintf(text[SavedNBytes],l,i);
-return(1);
-}
-
-
-/****************************************************************************/
-/* Removes from file 'str' every LF terminated line that starts with 'str2' */
-/* That is divisable by num. Function skips first 'skip' number of lines */
-/****************************************************************************/
-void removeline(char *str, char *str2, char num, char skip)
-{
- char HUGE16 *buf;
- char slen,c;
- int i,file;
- ulong l=0,m,flen;
- FILE *stream;
-
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-flen=filelength(file);
-slen=strlen(str2);
-if((buf=(char *)MALLOC(flen))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,flen);
- return; }
-if(lread(file,buf,flen)!=flen) {
- close(file);
- errormsg(WHERE,ERR_READ,str,flen);
- FREE(buf);
- return; }
-close(file);
-if((stream=fnopen(&file,str,O_WRONLY|O_TRUNC))==NULL) {
- close(file);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_TRUNC);
- FREE(buf);
- return; }
-for(i=0;l<flen && i<skip;l++) {
- fputc(buf[l],stream);
- if(buf[l]==LF)
- i++; }
-while(l<flen) {
- if(!strncmp((char *)buf+l,str2,slen)) {
- for(i=0;i<num && l<flen;i++) {
- while(l<flen && buf[l]!=LF) l++;
- l++; } }
- else {
- for(i=0;i<num && l<flen;i++) {
- while(l<flen && buf[l]!=LF) fputc(buf[l++],stream);
- fputc(buf[l++],stream); } } }
-fclose(stream);
-FREE((char *)buf);
-}
-
-/*****************************************************************************/
-/* The Synchronet editor. */
-/* Returns the number of lines edited. */
-/*****************************************************************************/
-ulong msgeditor(char *buf, char *top, char *title)
-{
- int i,j,line,lines=0,maxlines;
- char strin[256],**str,done=0;
- ulong l,m;
-
-if(online==ON_REMOTE) {
- rioctl(IOCM|ABORT);
- rioctl(IOCS|ABORT); }
-
-maxlines=level_linespermsg[useron.level];
-
-if((str=(char **)MALLOC(sizeof(char *)*(maxlines+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"msgeditor",sizeof(char *)*(maxlines+1));
- return(0); }
-m=strlen(buf);
-l=0;
-while(l<m && lines<maxlines) {
- msgabort(); /* to allow pausing */
- if((str[lines]=MALLOC(MAX_LINE_LEN))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,MAX_LINE_LEN);
- for(i=0;i<lines;i++)
- FREE(str[lines]);
- FREE(str);
- if(online==ON_REMOTE)
- rioctl(IOSM|ABORT);
- return(0); }
- for(i=0;i<79 && l<m;i++,l++) {
- if(buf[l]==CR) {
- l+=2;
- break; }
- if(buf[l]==TAB) {
- if(!(i%8)) /* hard-coded tabstop of 8 */
- str[lines][i++]=SP; /* for expansion */
- while(i%8 && i<79)
- str[lines][i++]=SP;
- i--;
- /***
- bprintf("\r\nMessage editor: Expanded tab on line #%d",lines+1);
- ***/ }
- else str[lines][i]=buf[l]; }
- if(i==79) {
- if(buf[l]==CR)
- l+=2;
- else
- bprintf("\r\nMessage editor: Split line #%d",lines+1); }
- str[lines][i]=0;
- lines++; }
-if(lines)
- bprintf("\r\nMessage editor: Read in %d lines\r\n",lines);
-bprintf(text[EnterMsgNow],maxlines);
-for(i=0;i<79;i++)
- if(i%TABSIZE || !i)
- outchar('-');
- else outchar('+');
-CRLF;
-putmsg(top,P_SAVEATR|P_NOATCODES);
-for(line=0;line<lines && !msgabort();line++) { /* display lines in buf */
- putmsg(str[line],P_SAVEATR|P_NOATCODES);
- if(useron.misc&ANSI)
- bputs("\x1b[K"); /* delete to end of line */
- CRLF; }
-SYNC;
-if(online==ON_REMOTE)
- rioctl(IOSM|ABORT);
-while(online && !done) {
- checkline();
- if(line==lines) {
- if((str[line]=MALLOC(MAX_LINE_LEN))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,MAX_LINE_LEN);
- for(i=0;i<lines;i++)
- FREE(str[i]);
- FREE(str);
- return(0); }
- str[line][0]=0; }
- if(line>(maxlines-10)) {
- if(line==maxlines)
- bputs(text[NoMoreLines]);
- else
- bprintf(text[OnlyNLinesLeft],maxlines-line); }
- strcpy(strin,str[line]);
- do {
- if(!line)
- outchar(CR);
- getstr(strin,79,K_WRAP|K_MSG|K_EDIT);
- } while(console&CON_UPARROW && !line);
-
- if(sys_status&SS_ABORT) {
- if(line==lines)
- FREE(str[line]);
- continue; }
- if(strin[0]=='/' && strlen(strin)<8) {
- if(!stricmp(strin,"/DEBUG") && SYSOP) {
- if(line==lines)
- FREE(str[line]);
- bprintf("\r\nline=%d lines=%d rows=%d\r\n",line,lines,rows);
- continue; }
- else if(!stricmp(strin,"/ABT")) {
- if(line==lines) /* delete a line */
- FREE(str[line]);
- for(i=0;i<lines;i++)
- FREE(str[i]);
- FREE(str);
- return(0); }
- else if(toupper(strin[1])=='D') {
- if(line==lines) /* delete a line */
- FREE(str[line]);
- if(!lines)
- continue;
- i=atoi(strin+2)-1;
- if(i==-1) /* /D means delete last line */
- i=lines-1;
- if(i>=lines || i<0)
- bputs(text[InvalidLineNumber]);
- else {
- FREE(str[i]);
- lines--;
- while(i<lines) {
- str[i]=str[i+1];
- i++; }
- if(line>lines)
- line=lines; }
- continue; }
- else if(toupper(strin[1])=='I') {
- if(line==lines) /* insert a line before number x */
- FREE(str[line]);
- if(line==maxlines || !lines)
- continue;
- i=atoi(strin+2)-1;
- if(i==-1)
- i=lines-1;
- if(i>=lines || i<0)
- bputs(text[InvalidLineNumber]);
- else {
- for(line=lines;line>i;line--) /* move the pointers */
- str[line]=str[line-1];
- if((str[i]=MALLOC(MAX_LINE_LEN))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,MAX_LINE_LEN);
- for(i=0;i<lines;i++)
- FREE(str[i]);
- FREE(str);
- return(0); }
- str[i][0]=0;
- line=++lines; }
- continue; }
- else if(toupper(strin[1])=='E') {
- if(line==lines) /* edit a line */
- FREE(str[line]);
- if(!lines)
- continue;
- i=atoi(strin+2)-1;
- j=K_MSG|K_EDIT; /* use j for the getstr mode */
- if(i==-1) { /* /E means edit last line */
- i=lines-1;
- j|=K_WRAP; } /* wrap when editing last line */
- if(i>=lines || i<0)
- bputs(text[InvalidLineNumber]);
- else
- getstr(str[i],79,j);
- continue; }
- else if(!stricmp(strin,"/CLR")) {
- bputs(text[MsgCleared]);
- if(line!=lines)
- lines--;
- for(i=0;i<=lines;i++)
- FREE(str[i]);
- line=0;
- lines=0;
- putmsg(top,P_SAVEATR|P_NOATCODES);
- continue; }
- else if(toupper(strin[1])=='L') { /* list message */
- if(line==lines)
- FREE(str[line]);
- if(lines)
- i=!noyes(text[WithLineNumbers]);
- CRLF;
- attr(LIGHTGRAY);
- putmsg(top,P_SAVEATR|P_NOATCODES);
- if(!lines) {
- continue; }
- j=atoi(strin+2);
- if(j) j--; /* start from line j */
- while(j<lines && !msgabort()) {
- if(i) { /* line numbers */
- sprintf(tmp,"%3d: %-.74s",j+1,str[j]);
- putmsg(tmp,P_SAVEATR|P_NOATCODES); }
- else
- putmsg(str[j],P_SAVEATR|P_NOATCODES);
- if(useron.misc&ANSI)
- bputs("\x1b[K"); /* delete to end of line */
- CRLF;
- j++; }
- SYNC;
- continue; }
- else if(!stricmp(strin,"/S")) { /* Save */
- if(line==lines)
- FREE(str[line]);
- done=1;
- continue;}
- else if(!stricmp(strin,"/T")) { /* Edit title */
- if(line==lines)
- FREE(str[line]);
- if(title[0]) {
- bputs(text[TitlePrompt]);
- getstr(title,LEN_TITLE,K_LINE|K_EDIT|K_AUTODEL);
- SYNC;
- CRLF; }
- continue; }
- else if(!stricmp(strin,"/?")) {
- if(line==lines)
- FREE(str[line]);
- menu("EDITOR"); /* User Editor Commands */
- SYNC;
- continue; }
- else if(!stricmp(strin,"/ATTR")) {
- if(line==lines)
- FREE(str[line]);
- menu("ATTR"); /* User ANSI Commands */
- SYNC;
- continue; } }
- strcpy(str[line],strin);
- if(line<maxlines)
- line++;
- else
- FREE(str[line]);
- if(line>lines)
- lines++;
- if(console&CON_UPARROW) {
- outchar(CR);
- bprintf("\x1b[A\x1b[K"); /* up one line, clear to eol */
- line-=2; }
- }
-if(!online) {
- for(i=0;i<lines;i++)
- FREE(str[i]);
- FREE(str);
- return(0); }
-strcpy(buf,top);
-for(i=0;i<lines;i++) {
- strcat(buf,str[i]);
- strcat(buf,crlf);
- FREE(str[i]); }
-FREE(str);
-return(lines);
-}
-
-
-/****************************************************************************/
-/* Edits an existing file or creates a new one in MSG format */
-/****************************************************************************/
-void editfile(char *str)
-{
- char *buf,str2[128],mode=0; /* EX_CC */
- int file;
- long length,maxlines,lines,l;
-
-maxlines=level_linespermsg[useron.level];
-sprintf(str2,"%sQUOTES.TXT",node_dir);
-remove(str2);
-if(node_editor[0] && online==ON_LOCAL) {
- external(cmdstr(node_editor,str,nulstr,NULL),0); /* EX_CC */
- return; }
-if(useron.xedit) {
- editor_inf(useron.xedit,nulstr,nulstr,0,INVALID_SUB);
- if(xedit[useron.xedit-1]->misc&IO_INTS) {
- mode|=EX_OUTL;
- if(online==ON_REMOTE)
- mode|=(EX_OUTR|EX_INR);
- if(xedit[useron.xedit-1]->misc&WWIVCOLOR)
- mode|=EX_WWIV; }
- if(online==ON_LOCAL)
- external(cmdstr(xedit[useron.xedit-1]->lcmd,str,nulstr,NULL),mode);
- else {
- rioctl(IOCM|PAUSE|ABORT);
- external(cmdstr(xedit[useron.xedit-1]->rcmd,str,nulstr,NULL),mode);
- rioctl(IOSM|PAUSE|ABORT); }
- return; }
-if((buf=(char *)MALLOC(maxlines*MAX_LINE_LEN))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,maxlines*MAX_LINE_LEN);
- return; }
-if((file=nopen(str,O_RDONLY))!=-1) {
- length=filelength(file);
- if(length>(ulong)maxlines*MAX_LINE_LEN) {
- attr(color[clr_err]);
- bprintf("\7\r\nFile size (%lu bytes) is larger than (%lu).\r\n"
- ,length,(ulong)maxlines*MAX_LINE_LEN);
- close(file);
- FREE(buf); }
- if(read(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- errormsg(WHERE,ERR_READ,str,length);
- return; }
- buf[length]=0;
- close(file); }
-else {
- buf[0]=0;
- bputs(text[NewFile]); }
-if(!msgeditor(buf,nulstr,nulstr)) {
- FREE(buf);
- return; }
-bputs(text[Saving]);
-if((file=nopen(str,O_CREAT|O_WRONLY|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_CREAT|O_WRONLY|O_TRUNC);
- FREE(buf);
- return; }
-if(write(file,buf,strlen(buf))!=strlen(buf)) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,strlen(buf));
- FREE(buf);
- return; }
-for(l=lines=0;buf[l];l++)
- if(buf[l]==LF)
- lines++;
-bprintf(text[SavedNBytes],l,lines);
-close(file);
-FREE(buf);
-return;
-}
-
-/*************************/
-/* Copy file attachments */
-/*************************/
-void copyfattach(uint to, uint from, char *title)
-{
- char str[128],str2[128],str3[128],*tp,*sp,*p;
- uint i;
-
-strcpy(str,title);
-tp=str;
-while(1) {
- p=strchr(tp,SP);
- if(p) *p=0;
- sp=strrchr(tp,'/'); /* sp is slash pointer */
- if(!sp) sp=strrchr(tp,'\\');
- if(sp) tp=sp+1;
- sprintf(str2,"%sFILE\\%04u.IN\\%s" /* str2 is path/fname */
- ,data_dir,to,tp);
- sprintf(str3,"%sFILE\\%04u.IN\\%s" /* str2 is path/fname */
- ,data_dir,from,tp);
- if(strcmp(str2,str3))
- mv(str3,str2,1);
- if(!p)
- break;
- tp=p+1; }
-}
-
-
-/****************************************************************************/
-/* Forwards mail (fname) to usernumber */
-/* Called from function readmail */
-/****************************************************************************/
-void forwardmail(smbmsg_t *msg, ushort usernumber)
-{
- char str[256],touser[128];
- int i;
- node_t node;
- msghdr_t hdr=msg->hdr;
- idxrec_t idx=msg->idx;
-
-if(useron.etoday>=level_emailperday[useron.level] && !SYSOP) {
- bputs(text[TooManyEmailsToday]);
- return; }
-if(useron.rest&FLAG('F')) {
- bputs(text[R_Forward]);
- return; }
-if(usernumber==1 && useron.rest&FLAG('S')) {
- bprintf(text[R_Feedback],sys_op);
- return; }
-if(usernumber!=1 && useron.rest&FLAG('E')) {
- bputs(text[R_Email]);
- return; }
-
-msg->idx.attr&=~(MSG_READ|MSG_DELETE);
-msg->hdr.attr=msg->idx.attr;
-
-
-smb_hfield(msg,SENDER,strlen(useron.alias),useron.alias);
-sprintf(str,"%u",useron.number);
-smb_hfield(msg,SENDEREXT,strlen(str),str);
-
-username(usernumber,touser);
-smb_hfield(msg,RECIPIENT,strlen(touser),touser);
-sprintf(str,"%u",usernumber);
-smb_hfield(msg,RECIPIENTEXT,sizeof(str),str);
-msg->idx.to=usernumber;
-
-now=time(NULL);
-smb_hfield(msg,FORWARDED,sizeof(time_t),&now);
-
-
-if((i=smb_open_da(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-if((i=smb_incdat(&smb,msg->hdr.offset,smb_getmsgdatlen(msg),1))!=0) {
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return; }
-smb_close_da(&smb);
-
-
-if((i=smb_addmsghdr(&smb,msg,SMB_SELFPACK))!=0) {
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return; }
-
-if(msg->hdr.auxattr&MSG_FILEATTACH)
- copyfattach(usernumber,useron.number,msg->subj);
-
-bprintf(text[Forwarded],username(usernumber,str),usernumber);
-sprintf(str,"Forwarded mail to %s #%d",username(usernumber,tmp)
- ,usernumber);
-logline("E",str);
-msg->idx=idx;
-msg->hdr=hdr;
-
-
-if(usernumber==1) {
- useron.fbacks++;
- logon_fbacks++;
- putuserrec(useron.number,U_FBACKS,5,itoa(useron.fbacks,tmp,10)); }
-else {
- useron.emails++;
- logon_emails++;
- putuserrec(useron.number,U_EMAILS,5,itoa(useron.emails,tmp,10)); }
-useron.etoday++;
-putuserrec(useron.number,U_ETODAY,5,itoa(useron.etoday,tmp,10));
-
-for(i=1;i<=sys_nodes;i++) { /* Tell user, if online */
- getnodedat(i,&node,0);
- if(node.useron==usernumber && !(node.misc&NODE_POFF)
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)) {
- sprintf(str,text[EmailNodeMsg],node_num,useron.alias);
- putnmsg(i,str);
- break; } }
-if(i>sys_nodes) { /* User wasn't online, so leave short msg */
- sprintf(str,text[UserSentYouMail],useron.alias);
- putsmsg(usernumber,str); }
-}
-
-/****************************************************************************/
-/* Auto-Message Routine ('A' from the main menu) */
-/****************************************************************************/
-void automsg()
-{
- char str[256],buf[300],anon=0;
- int file;
- struct ffblk ff;
-
-while(online) {
- SYNC;
- mnemonics(text[AutoMsg]);
- switch(getkeys("RWQ",0)) {
- case 'R':
- sprintf(str,"%sMSGS\\AUTO.MSG",data_dir);
- printfile(str,P_NOABORT|P_NOATCODES);
- break;
- case 'W':
- if(useron.rest&FLAG('W')) {
- bputs(text[R_AutoMsg]);
- break; }
- action=NODE_AMSG;
- SYNC;
- bputs("\r\n3 lines:\r\n");
- if(!getstr(str,68,K_WRAP|K_MSG))
- break;
- strcpy(buf,str);
- strcat(buf,"\r\n ");
- getstr(str,68,K_WRAP|K_MSG);
- strcat(buf,str);
- strcat(buf,"\r\n ");
- getstr(str,68,K_MSG);
- strcat(str,crlf);
- strcat(buf,str);
- if(yesno(text[OK])) {
- if(useron.exempt&FLAG('A')) {
- if(!noyes(text[AnonymousQ]))
- anon=1; }
- sprintf(str,"%sMSGS\\AUTO.MSG",data_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
- if(anon)
- sprintf(tmp,"%.80s",text[Anonymous]);
- else
- sprintf(tmp,"%s #%d",useron.alias,useron.number);
- sprintf(str,text[AutoMsgBy],tmp);
- strcat(str," ");
- write(file,str,strlen(str));
- write(file,buf,strlen(buf));
- close(file); }
- break;
- case 'Q':
- return; } }
-}
-
-/****************************************************************************/
-/* Edits messages */
-/****************************************************************************/
-void editmsg(smbmsg_t *msg, uint subnum)
-{
- char str[256],buf[SDT_BLOCK_LEN];
- ushort xlat;
- int file,i,j,x;
- ulong length,offset;
- FILE *instream;
-
-if(!msg->hdr.total_dfields)
- return;
-sprintf(str,"%sINPUT.MSG",node_dir);
-remove(str);
-msgtotxt(*msg,str,0,1);
-editfile(str);
-length=flength(str)+2; /* +2 for translation string */
-if(length<1L)
- return;
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return; }
-
-if((i=smb_getstatus(&smb))!=0) {
- errormsg(WHERE,ERR_READ,smb.file,i);
- return; }
-
-if(!(smb.status.attr&SMB_HYPERALLOC)) {
- if((i=smb_open_da(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
- for(x=0;x<msg->hdr.total_dfields;x++)
- if((i=smb_freemsgdat(&smb,msg->hdr.offset+msg->dfield[x].offset
- ,msg->dfield[x].length,1))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i); }
-
-msg->dfield[0].type=TEXT_BODY; /* Make one single data field */
-msg->dfield[0].length=length;
-msg->dfield[0].offset=0;
-for(x=1;x<msg->hdr.total_dfields;x++) { /* Clear the other data fields */
- msg->dfield[x].type=UNUSED; /* so we leave the header length */
- msg->dfield[x].length=0; /* unchanged */
- msg->dfield[x].offset=0; }
-
-
-if(smb.status.attr&SMB_HYPERALLOC) {
- offset=smb_hallocdat(&smb); }
-else {
- if((subnum!=INVALID_SUB && sub[subnum]->misc&SUB_FAST)
- || (subnum==INVALID_SUB && sys_misc&SM_FASTMAIL))
- offset=smb_fallocdat(&smb,length,1);
- else
- offset=smb_allocdat(&smb,length,1);
- smb_close_da(&smb); }
-
-msg->hdr.offset=offset;
-if((file=open(str,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- smb_unlocksmbhdr(&smb);
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY|O_BINARY);
- return; }
-
-setvbuf(instream,NULL,_IOFBF,2*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-x=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
-while(!feof(instream)) {
- memset(buf,0,x);
- j=fread(buf,1,x,instream);
- if((j!=x || feof(instream)) && buf[j-1]==LF && buf[j-2]==CR)
- buf[j-1]=buf[j-2]=0; /* Convert to NULL */
- fwrite(buf,j,1,smb.sdt_fp);
- x=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-
-smb_unlocksmbhdr(&smb);
-msg->hdr.length=smb_getmsghdrlen(msg);
-if((i=smb_putmsghdr(&smb,msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
-}
-
-/****************************************************************************/
-/* Moves a message from one message base to another */
-/****************************************************************************/
-char movemsg(smbmsg_t msg, uint subnum)
-{
- char str[256],*buf;
- int i,j,x,file,newgrp,newsub,storage;
- long l;
- ulong offset,length;
-
-for(i=0;i<usrgrps;i++) /* Select New Group */
- uselect(1,i,"Message Group",grp[usrgrp[i]]->lname,0);
-if((newgrp=uselect(0,0,0,0,0))<0)
- return(0);
-
-for(i=0;i<usrsubs[newgrp];i++) /* Select New Sub-Board */
- uselect(1,i,"Sub-Board",sub[usrsub[newgrp][i]]->lname,0);
-if((newsub=uselect(0,0,0,0,0))<0)
- return(0);
-newsub=usrsub[newgrp][newsub];
-
-length=smb_getmsgdatlen(&msg);
-if((buf=(char *)MALLOC(length))==NULL) {
- errormsg(WHERE,ERR_ALLOC,smb.file,length);
- return(0); }
-
-fseek(smb.sdt_fp,msg.hdr.offset,SEEK_SET);
-fread(buf,length,1,smb.sdt_fp);
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- FREE(buf);
- errormsg(WHERE,ERR_OPEN,sub[newsub]->code,i);
- return(0); }
-
-sprintf(smb.file,"%s%s",sub[newsub]->data_dir,sub[newsub]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- FREE(buf);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=sub[newsub]->maxcrcs;
- smb.status.max_msgs=sub[newsub]->maxmsgs;
- smb.status.max_age=sub[newsub]->maxage;
- smb.status.attr=sub[newsub]->misc&SUB_HYPER ? SMB_HYPERALLOC :0;
- if((i=smb_create(&smb))!=0) {
- FREE(buf);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- return(0); } }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- FREE(buf);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-
-if((i=smb_getstatus(&smb))!=0) {
- FREE(buf);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(0); }
-
-if(smb.status.attr&SMB_HYPERALLOC) {
- offset=smb_hallocdat(&smb);
- storage=SMB_HYPERALLOC; }
-else {
- if((i=smb_open_da(&smb))!=0) {
- FREE(buf);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
- if(sub[newsub]->misc&SUB_FAST) {
- offset=smb_fallocdat(&smb,length,1);
- storage=SMB_FASTALLOC; }
- else {
- offset=smb_allocdat(&smb,length,1);
- storage=SMB_SELFPACK; }
- smb_close_da(&smb); }
-
-msg.hdr.offset=offset;
-
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-
-smb_unlocksmbhdr(&smb);
-
-fseek(smb.sdt_fp,offset,SEEK_SET);
-fwrite(buf,length,1,smb.sdt_fp);
-fflush(smb.sdt_fp);
-FREE(buf);
-
-i=smb_addmsghdr(&smb,&msg,storage);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-
-if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return(0); }
-
-bprintf("\r\nMoved to %s %s\r\n\r\n"
- ,grp[usrgrp[newgrp]]->sname,sub[newsub]->lname);
-sprintf(str,"Moved message from %s %s to %s %s"
- ,grp[newgrp]->sname,sub[newsub]->sname
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->sname);
-logline("M+",str);
-if(sub[newsub]->misc&SUB_FIDO && sub[newsub]->echomail_sem[0])
- if((file=nopen(sub[newsub]->echomail_sem
- ,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
-return(1);
-}
-
-ushort chmsgattr(ushort attr)
-{
- int ch;
-
-while(online && !(sys_status&SS_ABORT)) {
- CRLF;
- show_msgattr(attr);
- menu("MSGATTR");
- ch=getkey(K_UPPER);
- if(ch)
- bprintf("%c\r\n",ch);
- switch(ch) {
- case 'P':
- attr^=MSG_PRIVATE;
- break;
- case 'R':
- attr^=MSG_READ;
- break;
- case 'K':
- attr^=MSG_KILLREAD;
- break;
- case 'A':
- attr^=MSG_ANONYMOUS;
- break;
- case 'N': /* Non-purgeable */
- attr^=MSG_PERMANENT;
- break;
- case 'M':
- attr^=MSG_MODERATED;
- break;
- case 'V':
- attr^=MSG_VALIDATED;
- break;
- case 'D':
- attr^=MSG_DELETE;
- break;
- case 'L':
- attr^=MSG_LOCKED;
- break;
- default:
- return(attr); } }
-return(attr);
-}
diff --git a/src/sbbs2/msg2ans/msg2ans.c b/src/sbbs2/msg2ans/msg2ans.c
deleted file mode 100644
index 586744d1dd0b593a10bdd311e7823e5fb16d5dc2..0000000000000000000000000000000000000000
--- a/src/sbbs2/msg2ans/msg2ans.c
+++ /dev/null
@@ -1,147 +0,0 @@
-/* msg2ans.c */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Converts Synchronet Ctrl-A codes into ANSI escape sequences */
-
-#include <stdio.h>
-#include <conio.h>
-
-#define ANSI fprintf(out,"\x1b[")
-
-int main(int argc, char **argv)
-{
- int i,ch;
- FILE *in,*out;
-
-if(argc<3) {
- printf("\nMSG2ANS v1.03\n");
- printf("\nusage: msg2ans infile.msg outfile.ans\n");
- exit(0); }
-
-if((in=fopen(argv[1],"rb"))==NULL) {
- printf("\nerror opening %s\n",argv[1]);
- exit(1); }
-
-if((out=fopen(argv[2],"wb"))==NULL) {
- printf("\nerror opening %s\n",argv[2]);
- exit(1); }
-
-while((ch=fgetc(in))!=EOF) {
- if(ch==1) { /* ctrl-a */
- ch=fgetc(in);
- if(ch==EOF)
- break;
- if(ch>=0x7f) { /* move cursor right x columns */
- ANSI;
- fprintf(out,"%uC",ch-0x7f);
- continue; }
- switch(toupper(ch)) {
- case 'A':
- fputc('\1',out);
- break;
- case '<':
- fputc('\b',out);
- break;
- case '>':
- ANSI;
- fputc('K',out);
- break;
- case '[':
- fputc('\r',out);
- break;
- case ']':
- fputc('\n',out);
- break;
- case 'L':
- ANSI;
- fprintf(out,"2J");
- break;
- case '-':
- case '_':
- case 'N':
- ANSI;
- fprintf(out,"0m");
- break;
- case 'H':
- ANSI;
- fprintf(out,"1m");
- break;
- case 'I':
- ANSI;
- fprintf(out,"5m");
- break;
- case 'K':
- ANSI;
- fprintf(out,"30m");
- break;
- case 'R':
- ANSI;
- fprintf(out,"31m");
- break;
- case 'G':
- ANSI;
- fprintf(out,"32m");
- break;
- case 'Y':
- ANSI;
- fprintf(out,"33m");
- break;
- case 'B':
- ANSI;
- fprintf(out,"34m");
- break;
- case 'M':
- ANSI;
- fprintf(out,"35m");
- break;
- case 'C':
- ANSI;
- fprintf(out,"36m");
- break;
- case 'W':
- ANSI;
- fprintf(out,"37m");
- break;
- case '0':
- ANSI;
- fprintf(out,"40m");
- break;
- case '1':
- ANSI;
- fprintf(out,"41m");
- break;
- case '2':
- ANSI;
- fprintf(out,"42m");
- break;
- case '3':
- ANSI;
- fprintf(out,"43m");
- break;
- case '4':
- ANSI;
- fprintf(out,"44m");
- break;
- case '5':
- ANSI;
- fprintf(out,"45m");
- break;
- case '6':
- ANSI;
- fprintf(out,"46m");
- break;
- case '7':
- ANSI;
- fprintf(out,"47m");
- break;
- default:
- fprintf(out,"\1%c",ch);
- break; } }
- else
- fputc(ch,out); }
-}
-
-
-
-
diff --git a/src/sbbs2/msgtoqwk.c b/src/sbbs2/msgtoqwk.c
deleted file mode 100644
index 68ad8a92cbaca79c6f7a9d95a9a94765071d032d..0000000000000000000000000000000000000000
--- a/src/sbbs2/msgtoqwk.c
+++ /dev/null
@@ -1,298 +0,0 @@
-#line 1 "MSGTOQWK.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "qwk.h"
-#include "etext.h"
-
-#define MAX_MSGNUM 0x7FFFFFUL // only 7 (decimal) digits allowed for msg num
-
-/****************************************************************************/
-/* Converts message 'msg' to QWK format, writing to file 'qwk_fp'. */
-/* mode determines how to handle Ctrl-A codes */
-/****************************************************************************/
-ulong msgtoqwk(smbmsg_t msg, FILE *qwk_fp, int mode, int subnum
- , int conf)
-{
- uchar str[512],from[512],to[512],ch,tear=0,tearwatch=0,HUGE16 *buf,*p;
- ushort xlat;
- long l,size=0,offset;
- int i;
-
-offset=ftell(qwk_fp);
-memset(str,SP,128);
-fwrite(str,128,1,qwk_fp); /* Init header to space */
-
-if(msg.from_net.addr && (uint)subnum==INVALID_SUB) {
- if(mode&TO_QNET)
- sprintf(from,"%.128s",msg.from);
- else if(msg.from_net.type==NET_FIDO)
- sprintf(from,"%.128s@%.128s"
- ,msg.from,faddrtoa(*(faddr_t *)msg.from_net.addr));
- else if(msg.from_net.type==NET_INTERNET)
- sprintf(from,"%.128s",msg.from_net.addr);
- else
- sprintf(from,"%.128s@%.128s",msg.from,msg.from_net.addr);
- if(strlen(from)>25) {
- sprintf(str,"From: %.128s\xe3\xe3",from);
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str);
- sprintf(from,"%.128s",msg.from); } }
-else {
- sprintf(from,"%.128s",msg.from);
- if(msg.hdr.attr&MSG_ANONYMOUS && !SYSOP) /* from user */
- strcpy(from,text[Anonymous]); }
-
-if(msg.to_net.addr && (uint)subnum==INVALID_SUB) {
- if(msg.to_net.type==NET_FIDO)
- sprintf(to,"%.128s@%s",msg.to,faddrtoa(*(faddr_t *)msg.to_net.addr));
- else if(msg.to_net.type==NET_INTERNET)
- sprintf(to,"%.128s",msg.to_net.addr);
- else if(msg.to_net.type==NET_QWK) {
- if(mode&TO_QNET) {
- p=strchr(msg.to_net.addr,'/');
- if(p) { /* Another hop */
- p++;
- strcpy(to,"NETMAIL");
- sprintf(str,"%.128s@%.128s\xe3",msg.to,p);
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str); }
- else
- sprintf(to,"%.128s",msg.to); }
- else
- sprintf(to,"%.128s@%.128s",msg.to,msg.to_net.addr); }
- else
- sprintf(to,"%.128s@%.128s",msg.to,msg.to_net.addr);
- if(strlen(to)>25) {
- sprintf(str,"To: %.128s\xe3\xe3",to);
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str);
- if(msg.to_net.type==NET_QWK)
- strcpy(to,"NETMAIL");
- else
- sprintf(to,"%.128s",msg.to); } }
-else
- sprintf(to,"%.128s",msg.to);
-
-if(msg.from_net.type==NET_QWK && mode&VIA && !msg.forwarded) {
- sprintf(str,"@VIA:%.128s\xe3",msg.from_net.addr);
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str); }
-
-if(msg.hdr.when_written.zone && mode&TZ) {
- sprintf(str,"@TZ:%04x\xe3",msg.hdr.when_written.zone);
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str); }
-
-p=0;
-for(i=0;i<msg.total_hfields;i++) {
- if(msg.hfield[i].type==SENDER)
- p=msg.hfield_dat[i];
- if(msg.hfield[i].type==FORWARDED && p) {
- sprintf(str,"Forwarded from %s on %s\xe3",p
- ,timestr((time_t *)msg.hfield_dat[i]));
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str); } }
-
-buf=smb_getmsgtxt(&smb,&msg,1);
-if(!buf)
- return(0);
-
-for(l=0;buf[l];l++) {
- ch=buf[l];
-
- if(ch==LF) {
- if(tear)
- tear++; /* Count LFs after tearline */
- if(tear>3) /* more than two LFs after the tear */
- tear=0;
- if(tearwatch==4) { /* watch for LF---LF */
- tear=1;
- tearwatch=0; }
- else if(!tearwatch)
- tearwatch=1;
- else
- tearwatch=0;
- ch=0xe3;
- fputc(ch,qwk_fp); /* Replace LF with funky char */
- size++;
- continue; }
-
- if(ch==CR) { /* Ignore CRs */
- if(tearwatch<4) /* LF---CRLF is okay */
- tearwatch=0; /* LF-CR- is not okay */
- continue; }
-
- if(ch==SP && tearwatch==4) { /* watch for "LF--- " */
- tear=1;
- tearwatch=0; }
-
- if(ch=='-') { /* watch for "LF---" */
- if(l==0 || (tearwatch && tearwatch<4))
- tearwatch++;
- else
- tearwatch=0; }
- else
- tearwatch=0;
-
- if((uint)subnum!=INVALID_SUB && sub[subnum]->misc&SUB_ASCII) {
- if(ch<SP && ch!=1)
- ch='.';
- else if(ch>0x7f)
- ch='*'; }
-
- if(ch==0xE3) /* funky char */
- ch='*';
-
- if(ch==1) { /* ctrl-a */
- ch=buf[++l];
- if(!ch)
- break;
- if(mode&A_EXPAND) {
- str[0]=0;
- switch(toupper(ch)) { /* non-color codes */
- case 'L':
- strcpy(str,"\x1b[2J");
- break;
- case 'W':
- strcpy(str,ansi(LIGHTGRAY));
- break;
- case 'K':
- strcpy(str,ansi(BLACK));
- break;
- case 'H':
- strcpy(str,ansi(HIGH));
- break;
- case 'I':
- strcpy(str,ansi(BLINK));
- break;
- case 'N': /* Normal */
- strcpy(str,"\x1b[0m");
- break;
- case '0':
- strcpy(str,"\x1b[40m");
- break;
- case '7':
- strcpy(str,ansi(LIGHTGRAY<<4));
- break;
- case 'R': /* Color codes */
- strcpy(str,ansi(RED));
- break;
- case 'G':
- strcpy(str,ansi(GREEN));
- break;
- case 'B':
- strcpy(str,ansi(BLUE));
- break;
- case 'C':
- strcpy(str,ansi(CYAN));
- break;
- case 'M':
- strcpy(str,ansi(MAGENTA));
- break;
- case 'Y': /* Yellow */
- strcpy(str,ansi(BROWN));
- break;
- case '1':
- strcpy(str,ansi(RED<<4));
- break;
- case '2':
- strcpy(str,ansi(GREEN<<4));
- break;
- case '3':
- strcpy(str,ansi(BROWN<<4));
- break;
- case '4':
- strcpy(str,ansi(BLUE<<4));
- break;
- case '5':
- strcpy(str,ansi(MAGENTA<<4));
- break;
- case '6':
- strcpy(str,ansi(CYAN<<4));
- break; }
- if(str[0]) {
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str); }
- continue; } /* End Expand */
-
- if(mode&A_LEAVE) {
- fputc(1,qwk_fp);
- fputc(ch,qwk_fp);
- size+=2L; }
- else /* Strip */
- if(toupper(ch)=='L') {
- fputc(FF,qwk_fp);
- size++; }
- continue; } /* End of Ctrl-A shit */
- fputc(ch,qwk_fp);
- size++; }
-
-LFREE(buf);
-if(ch!=0xE3) {
- fputc(0xE3,qwk_fp); /* make sure it ends in CRLF */
- size++; }
-
-if(mode&TAGLINE && !(sub[subnum]->misc&SUB_NOTAG)) {
- if(!tear) /* no tear line */
- strcpy(str,"\1n---\xe3"); /* so add one */
- else
- strcpy(str,"\1n");
- if(sub[subnum]->misc&SUB_ASCII) ch='*';
- else ch='�';
- sprintf(tmp," %c \1g%s\1n %c %.127s\xe3"
- ,ch,decrypt(Synchronet,0),ch,sub[subnum]->tagline);
- strcat(str,tmp);
- if(!(mode&A_LEAVE))
- remove_ctrl_a(str);
- fwrite(str,strlen(str),1,qwk_fp);
- size+=strlen(str); }
-
-while(size%128L) { /* Pad with spaces */
- size++;
- fputc(SP,qwk_fp); }
-
-unixtodos(msg.hdr.when_written.time,&date,&curtime);
-
-sprintf(tmp,"%02u-%02u-%02u%02u:%02u"
- ,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900)
- ,curtime.ti_hour,curtime.ti_min);
-
-if(msg.hdr.attr&MSG_PRIVATE) {
- if(msg.hdr.attr&MSG_READ)
- ch='*'; /* private, read */
- else
- ch='+'; /* private, unread */ }
-else {
- if(msg.hdr.attr&MSG_READ)
- ch='-'; /* public, read */
- else
- ch=' '; /* public, unread */ }
-
-
-sprintf(str,"%c%-7lu%-13.13s%-25.25s"
- "%-25.25s%-25.25s%12s%-8lu%-6lu\xe1%c%c%c%c%c"
- ,ch /* message status flag */
- ,mode&REP ? (ulong)conf /* conference or */
- : msg.hdr.number&MAX_MSGNUM /* message number */
- ,tmp /* date and time */
- ,to /* To: */
- ,from /* From: */
- ,msg.subj /* Subject */
- ,nulstr /* Password */
- ,msg.hdr.thread_orig&MAX_MSGNUM /* Message Re: Number */
- ,(size/128L)+1 /* Number of 128byte blocks */
- ,(char)conf&0xff /* Conference number lo byte */
- ,(ushort)conf>>8 /* hi byte */
- ,SP /* not used */
- ,SP /* not used */
- ,useron.rest&FLAG('Q') ? '*' : SP /* Net tag line */
- );
-
-fseek(qwk_fp,offset,SEEK_SET);
-fwrite(str,128,1,qwk_fp);
-fseek(qwk_fp,size,SEEK_CUR);
-
-return(size);
-}
diff --git a/src/sbbs2/netmail.c b/src/sbbs2/netmail.c
deleted file mode 100644
index d5d4670f3819e4a87e3f9f4d6d77baf15c3fcea5..0000000000000000000000000000000000000000
--- a/src/sbbs2/netmail.c
+++ /dev/null
@@ -1,389 +0,0 @@
-#line 1 "NETMAIL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "qwk.h"
-
-/****************************************************************************/
-/****************************************************************************/
-void inetmail(char *into, char *subj, char mode)
-{
- char str[256],str2[256],msgpath[256],title[256],name[256],ch
- ,buf[SDT_BLOCK_LEN],*p,addr[256];
- ushort xlat=XLAT_NONE,net=NET_INTERNET;
- int i,j,x,file;
- long l;
- ulong length,offset;
- FILE *instream;
- node_t node;
- smbmsg_t msg;
-
-strcpy(name,into);
-strcpy(addr,into);
-strcpy(title,subj);
-
-if((!SYSOP && !(inetmail_misc&NMAIL_ALLOW)) || useron.rest&FLAG('M')) {
- bputs(text[NoNetMailAllowed]);
- return; }
-
-if(inetmail_cost && !(useron.exempt&FLAG('S'))) {
- if(useron.cdt+useron.freecdt<inetmail_cost) {
- bputs(text[NotEnoughCredits]);
- return; }
- sprintf(str,text[NetMailCostContinueQ],inetmail_cost);
- if(noyes(str))
- return; }
-
-p=strrchr(name,'@');
-if(!p)
- p=strrchr(name,'!');
-if(p) {
- *p=0;
- truncsp(name); }
-bprintf(text[NetMailing],name,addr
- ,inetmail_misc&NMAIL_ALIAS ? useron.alias : useron.name
- ,sys_inetaddr);
-action=NODE_SMAL;
-nodesync();
-
-sprintf(msgpath,"%sNETMAIL.MSG",node_dir);
-if(!writemsg(msgpath,nulstr,title,mode,0,into)) {
- bputs(text[Aborted]);
- return; }
-
-if(mode&WM_FILE) {
- sprintf(str2,"%sFILE\\%04u.OUT",data_dir,useron.number);
- mkdir(str2);
- sprintf(str2,"%sFILE\\%04u.OUT\\%s",data_dir,useron.number,title);
- if(fexist(str2)) {
- bputs(text[FileAlreadyThere]);
- remove(msgpath);
- return; }
- if(online==ON_LOCAL) { /* Local upload */
- bputs(text[EnterPath]);
- if(!getstr(str,60,K_LINE|K_UPPER)) {
- bputs(text[Aborted]);
- remove(msgpath);
- return; }
- backslash(str);
- strcat(str,title);
- mv(str,str2,1); }
- else { /* Remote */
- menu("ULPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(x=0;x<total_prots;x++)
- if(prot[x]->ulcmd[0] && chk_ar(prot[x]->ar,useron)) {
- sprintf(tmp,"%c",prot[x]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- bputs(text[Aborted]);
- remove(msgpath);
- return; }
- for(x=0;x<total_prots;x++)
- if(prot[x]->ulcmd[0] && prot[x]->mnemonic==ch
- && chk_ar(prot[x]->ar,useron))
- break;
- if(x<total_prots) /* This should be always */
- protocol(cmdstr(prot[x]->ulcmd,str2,nulstr,NULL),0); }
- l=flength(str2);
- if(l>0)
- bprintf(text[FileNBytesReceived],title,ultoac(l,tmp));
- else {
- bprintf(text[FileNotReceived],title);
- remove(msgpath);
- return; } }
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- return; }
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_age=mail_maxage;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.attr=SMB_EMAIL;
- if((i=smb_create(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- return; } }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return; }
-
-length=flength(msgpath)+2; /* +2 for translation string */
-
-if(length&0xfff00000UL) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LEN,msgpath,length);
- return; }
-
-if((i=smb_open_da(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-if(sys_misc&SM_FASTMAIL)
- offset=smb_fallocdat(&smb,length,1);
-else
- offset=smb_allocdat(&smb,length,1);
-smb_close_da(&smb);
-
-if((file=open(msgpath,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,msgpath,O_RDONLY|O_BINARY);
- return; }
-
-setvbuf(instream,NULL,_IOFBF,2*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-x=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
-while(!feof(instream)) {
- memset(buf,0,x);
- j=fread(buf,1,x,instream);
- if((j!=x || feof(instream)) && buf[j-1]==LF && buf[j-2]==CR)
- buf[j-1]=buf[j-2]=0;
- fwrite(buf,j,1,smb.sdt_fp);
- x=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-if(mode&WM_FILE)
- msg.hdr.auxattr|=MSG_FILEATTACH;
-msg.hdr.when_written.time=msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_written.zone=msg.hdr.when_imported.zone=sys_timezone;
-
-msg.hdr.offset=offset;
-
-net=NET_INTERNET;
-smb_hfield(&msg,RECIPIENT,strlen(name),name);
-msg.idx.to=0; /* Out-bound NetMail set to 0 */
-smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
-smb_hfield(&msg,RECIPIENTNETADDR,strlen(addr),addr);
-
-strcpy(str,inetmail_misc&NMAIL_ALIAS ? useron.alias : useron.name);
-smb_hfield(&msg,SENDER,strlen(str),str);
-
-sprintf(str,"%u",useron.number);
-smb_hfield(&msg,SENDEREXT,strlen(str),str);
-msg.idx.from=useron.number;
-
-/*
-smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net);
-smb_hfield(&msg,SENDERNETADDR,strlen(sys_inetaddr),sys_inetaddr);
-*/
-
-smb_hfield(&msg,SUBJECT,strlen(title),title);
-strcpy(str,title);
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-smb_dfield(&msg,TEXT_BODY,length);
-
-smb_unlocksmbhdr(&smb);
-i=smb_addmsghdr(&smb,&msg,SMB_SELFPACK);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-
-smb_freemsgmem(&msg);
-if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return; }
-
-if(mode&WM_FILE && online==ON_REMOTE)
- autohangup();
-
-if(inetmail_sem[0]) /* update semaphore file */
- if((file=nopen(inetmail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
-if(!(useron.exempt&FLAG('S')))
- subtract_cdt(inetmail_cost);
-sprintf(str,"Sent Internet Mail to %s (%s)",name,addr);
-logline("EN",str);
-}
-
-void qnetmail(char *into, char *subj, char mode)
-{
- char str[256],str2[128],msgpath[128],title[128],to[128],fulladdr[128],ch
- ,buf[SDT_BLOCK_LEN],*addr,*p;
- ushort xlat=XLAT_NONE,net=NET_QWK,touser;
- int i,j,x,file;
- long l;
- ulong length,offset;
- FILE *instream;
- node_t node;
- smbmsg_t msg;
-
-strcpy(to,into);
-strcpy(title,subj);
-
-if(useron.rest&FLAG('M')) {
- bputs(text[NoNetMailAllowed]);
- return; }
-
-addr=strrchr(to,'@');
-if(!addr) {
- bputs("Invalid netmail address\r\n");
- return; }
-*addr=0;
-addr++;
-strupr(addr);
-truncsp(addr);
-touser=qwk_route(addr,fulladdr);
-if(!fulladdr[0]) {
- bputs("Invalid netmail address\r\n");
- return; }
-
-truncsp(to);
-if(!stricmp(to,"SBBS") && !SYSOP) {
- bputs("Invalid netmail address\r\n");
- return; }
-bprintf(text[NetMailing],to,fulladdr
- ,useron.alias,sys_id);
-action=NODE_SMAL;
-nodesync();
-
-sprintf(msgpath,"%sNETMAIL.MSG",node_dir);
-if(!writemsg(msgpath,nulstr,title,mode|WM_QWKNET,0,to)) {
- bputs(text[Aborted]);
- return; }
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,"MAIL",i);
- return; }
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_age=mail_maxage;
- smb.status.attr=SMB_EMAIL;
- if((i=smb_create(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- return; } }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return; }
-
-length=flength(msgpath)+2; /* +2 for translation string */
-
-if(length&0xfff00000UL) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LEN,msgpath,length);
- return; }
-
-if((i=smb_open_da(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-if(sys_misc&SM_FASTMAIL)
- offset=smb_fallocdat(&smb,length,1);
-else
- offset=smb_allocdat(&smb,length,1);
-smb_close_da(&smb);
-
-if((file=open(msgpath,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,msgpath,O_RDONLY|O_BINARY);
- return; }
-
-setvbuf(instream,NULL,_IOFBF,2*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-x=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
-while(!feof(instream)) {
- memset(buf,0,x);
- j=fread(buf,1,x,instream);
- if((j!=x || feof(instream)) && buf[j-1]==LF && buf[j-2]==CR)
- buf[j-1]=buf[j-2]=0;
- fwrite(buf,j,1,smb.sdt_fp);
- x=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-if(mode&WM_FILE)
- msg.hdr.auxattr|=MSG_FILEATTACH;
-msg.hdr.when_written.time=msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_written.zone=msg.hdr.when_imported.zone=sys_timezone;
-
-msg.hdr.offset=offset;
-
-net=NET_QWK;
-smb_hfield(&msg,RECIPIENT,strlen(to),to);
-msg.idx.to=touser;
-smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
-smb_hfield(&msg,RECIPIENTNETADDR,strlen(fulladdr),fulladdr);
-
-smb_hfield(&msg,SENDER,strlen(useron.alias),useron.alias);
-
-sprintf(str,"%u",useron.number);
-smb_hfield(&msg,SENDEREXT,strlen(str),str);
-msg.idx.from=useron.number;
-
-smb_hfield(&msg,SUBJECT,strlen(title),title);
-strcpy(str,title);
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-smb_dfield(&msg,TEXT_BODY,length);
-
-smb_unlocksmbhdr(&smb);
-i=smb_addmsghdr(&smb,&msg,SMB_SELFPACK);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-
-smb_freemsgmem(&msg);
-if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return; }
-
-sprintf(str,"Sent QWK NetMail to %s (%s)",to,fulladdr);
-logline("EN",str);
-}
diff --git a/src/sbbs2/newuser.c b/src/sbbs2/newuser.c
deleted file mode 100644
index 40802c077e30a3b3304f98bd5656e0c5246c9b40..0000000000000000000000000000000000000000
--- a/src/sbbs2/newuser.c
+++ /dev/null
@@ -1,404 +0,0 @@
-#line 1 "NEWUSER.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-extern char qwklogon;
-
-/****************************************************************************/
-/* This function is invoked when a user enters "NEW" at the NN: prompt */
-/* Prompts user for personal information and then sends feedback to sysop. */
-/* Called from function waitforcall */
-/****************************************************************************/
-void newuser()
-{
- char c,str[512],usa;
- int file;
- uint i,j;
- long misc;
- FILE *stream;
-
-if(cur_rate<node_minbps) {
- bprintf(text[MinimumModemSpeed],node_minbps);
- sprintf(str,"%sTOOSLOW.MSG",text_dir);
- if(fexist(str))
- printfile(str,0);
- sprintf(str,"New user modem speed: %lu<%u"
- ,cur_rate,node_minbps);
- logline("N!",str);
- hangup();
- return; }
-
-getnodedat(node_num,&thisnode,0);
-if(thisnode.misc&NODE_LOCK) {
- bputs(text[NodeLocked]);
- logline("N!","New user locked node logon attempt");
- hangup();
- return; }
-
-if(sys_misc&SM_CLOSED) {
- bputs(text[NoNewUsers]);
- hangup();
- return; }
-getnodedat(node_num,&thisnode,1);
-thisnode.status=NODE_NEWUSER;
-if(online==ON_LOCAL)
- thisnode.connection=0;
-else
- thisnode.connection=cur_rate;
-putnodedat(node_num,thisnode);
-memset(&useron,0,sizeof(user_t)); /* Initialize user info to null */
-if(new_pass[0] && online==ON_REMOTE) {
- c=0;
- while(++c<4) {
- bputs(text[NewUserPasswordPrompt]);
- getstr(str,40,K_UPPER);
- if(!strcmp(str,new_pass))
- break;
- sprintf(tmp,"NUP Attempted: '%s'",str);
- logline("N!",tmp); }
- if(c==4) {
- sprintf(str,"%sNUPGUESS.MSG",text_dir);
- if(fexist(str))
- printfile(str,P_NOABORT);
- hangup();
- return; } }
-
-if(autoterm || yesno(text[AutoTerminalQ])) {
- useron.misc|=AUTOTERM;
- useron.misc|=autoterm; }
-
-if(!(useron.misc&AUTOTERM)) {
- if(yesno(text[AnsiTerminalQ]))
- useron.misc|=ANSI; }
-
-if(useron.misc&ANSI) {
- useron.rows=0; /* Auto-rows */
- if(useron.misc&(RIP|WIP) || yesno(text[ColorTerminalQ]))
- useron.misc|=COLOR; }
-else
- useron.rows=24;
-if(!yesno(text[ExAsciiTerminalQ]))
- useron.misc|=NO_EXASCII;
-
-/* Sets defaults per sysop config */
-useron.misc|=(new_misc&~(DELETED|INACTIVE|QUIET|NETMAIL));
-useron.qwk=(QWK_FILES|QWK_ATTACH|QWK_EMAIL|QWK_DELMAIL);
-strcpy(useron.modem,connection);
-useron.firston=useron.laston=useron.pwmod=time(NULL);
-if(new_expire) {
- now=time(NULL);
- useron.expire=now+((long)new_expire*24L*60L*60L); }
-else
- useron.expire=0;
-useron.sex=SP;
-useron.prot=new_prot;
-strcpy(useron.note,cid); /* Caller ID if supported, NULL otherwise */
-strcpy(useron.alias,"New"); /* just for status line */
-strcpy(useron.modem,connection);
-if(!lastuser()) { /* Automatic sysop access for first user */
- useron.level=99;
- useron.exempt=useron.flags1=useron.flags2=0xffffffffUL;
- useron.flags3=useron.flags4=0xffffffffUL;
- useron.rest=0L; }
-else {
- useron.level=new_level;
- useron.flags1=new_flags1;
- useron.flags2=new_flags2;
- useron.flags3=new_flags3;
- useron.flags4=new_flags4;
- useron.rest=new_rest;
- useron.exempt=new_exempt; }
-
-useron.cdt=new_cdt;
-useron.min=new_min;
-useron.freecdt=level_freecdtperday[useron.level];
-
-if(total_fcomps)
- strcpy(useron.tmpext,fcomp[0]->ext);
-else
- strcpy(useron.tmpext,"ZIP");
-for(i=0;i<total_xedits;i++)
- if(!stricmp(xedit[i]->code,new_xedit) && chk_ar(xedit[i]->ar,useron))
- break;
-if(i<total_xedits)
- useron.xedit=i+1;
-
-
-useron.shell=new_shell;
-
-statline=sys_def_stat;
-statusline();
-useron.alias[0]=0;
-while(online) {
- while(online) {
- if(uq&UQ_ALIASES)
- bputs(text[EnterYourAlias]);
- else
- bputs(text[EnterYourRealName]);
- getstr(useron.alias,LEN_ALIAS
- ,K_UPRLWR|(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL);
- truncsp(useron.alias);
- if(useron.alias[0]<=SP || !isalpha(useron.alias[0])
- || strchr(useron.alias,0xff)
- || matchuser(useron.alias) || trashcan(useron.alias,"NAME")
- || (!(uq&UQ_ALIASES) && !strchr(useron.alias,SP))) {
- bputs(text[YouCantUseThatName]);
- continue; }
- break; }
- statusline();
- if(!online) return;
- if(uq&UQ_ALIASES && uq&UQ_REALNAME) {
- while(online) {
- bputs(text[EnterYourRealName]);
- if(!getstr(useron.name,LEN_NAME
- ,K_UPRLWR|(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL)
- || trashcan(useron.name,"NAME")
- || strchr(useron.name,0xff)
- || !strchr(useron.name,SP)
- || (uq&UQ_DUPREAL
- && userdatdupe(useron.number,U_NAME,LEN_NAME
- ,useron.name,0)))
- bputs(text[YouCantUseThatName]);
- else
- break; } }
- else if(uq&UQ_COMPANY) {
- bputs(text[EnterYourCompany]);
- getstr(useron.name,LEN_NAME,(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL); }
- if(!useron.name[0])
- strcpy(useron.name,useron.alias);
- if(!online) return;
- if(!useron.handle[0])
- sprintf(useron.handle,"%.*s",LEN_HANDLE,useron.alias);
- while(uq&UQ_HANDLE && online) {
- bputs(text[EnterYourHandle]);
- if(!getstr(useron.handle,LEN_HANDLE
- ,K_LINE|K_EDIT|K_AUTODEL|(uq&UQ_NOEXASC))
- || strchr(useron.handle,0xff)
- || (uq&UQ_DUPHAND
- && userdatdupe(0,U_HANDLE,LEN_HANDLE,useron.handle,0))
- || trashcan(useron.handle,"NAME"))
- bputs(text[YouCantUseThatName]);
- else
- break; }
- if(!online) return;
- if(uq&UQ_ADDRESS)
- while(online) { /* Get address and zip code */
- bputs(text[EnterYourAddress]);
- if(getstr(useron.address,LEN_ADDRESS
- ,K_UPRLWR|(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL))
- break; }
- if(!online) return;
- while(uq&UQ_LOCATION && online) {
- bputs(text[EnterYourCityState]);
- if(getstr(useron.location,LEN_LOCATION
- ,K_UPRLWR|(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL)
- && (uq&UQ_NOCOMMAS || strchr(useron.location,',')))
- break;
- bputs("\r\nYou must include a comma between the city and state.\r\n");
- useron.location[0]=0; }
- if(uq&UQ_ADDRESS)
- while(online) {
- bputs(text[EnterYourZipCode]);
- if(getstr(useron.zipcode,LEN_ZIPCODE
- ,K_UPPER|(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL))
- break; }
- if(!online) return;
- if(uq&UQ_PHONE) {
- usa=yesno(text[CallingFromNorthAmericaQ]);
- while(online) {
- bputs(text[EnterYourPhoneNumber]);
- if(!usa) {
- if(getstr(useron.phone,LEN_PHONE
- ,K_UPPER|K_LINE|(uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL)<5)
- continue; }
- else {
- if(gettmplt(useron.phone,sys_phonefmt
- ,K_LINE|(uq&UQ_NOEXASC)|K_EDIT)<strlen(sys_phonefmt))
- continue; }
- if(!trashcan(useron.phone,"PHONE"))
- break; } }
- if(!online) return;
- if(uq&UQ_SEX) {
- bputs(text[EnterYourSex]);
- useron.sex=getkeys("MF",0); }
- while(uq&UQ_BIRTH && online) {
- bputs(text[EnterYourBirthday]);
- if(gettmplt(useron.birth,"nn/nn/nn",K_EDIT)==8 && getage(useron.birth))
- break; }
- if(yesno(text[UserInfoCorrectQ]))
- break; }
-sprintf(str,"New user: %s",useron.alias);
-logline("N",str);
-if(!online) return;
-if(uq&UQ_COMP)
- getcomputer(useron.comp);
-CLS;
-sprintf(str,"%sSBBS.MSG",text_dir);
-printfile(str,P_NOABORT);
-if(lncntr)
- pause();
-CLS;
-sprintf(str,"%sSYSTEM.MSG",text_dir);
-printfile(str,P_NOABORT);
-if(lncntr)
- pause();
-CLS;
-sprintf(str,"%sNEWUSER.MSG",text_dir);
-printfile(str,P_NOABORT);
-if(lncntr)
- pause();
-CLS;
-answertime=time(NULL); /* could take 10 minutes to get this far */
-
-if(total_xedits && uq&UQ_XEDIT && !noyes("Use an external editor")) {
- if(useron.xedit) useron.xedit--;
- for(i=0;i<total_xedits;i++)
- uselect(1,i,"External Editor",xedit[i]->name,xedit[i]->ar);
- if((int)(i=uselect(0,useron.xedit,0,0,0))>=0)
- useron.xedit=i+1; }
-
-if(total_shells>1 && uq&UQ_CMDSHELL) {
- for(i=0;i<total_shells;i++)
- uselect(1,i,"Command Shell",shell[i]->name,shell[i]->ar);
- if((int)(i=uselect(0,useron.shell,0,0,0))>=0)
- useron.shell=i; }
-
-c=0;
-while(c<LEN_PASS) { /* Create random password */
- useron.pass[c]=random(43)+48;
- if(isalnum(useron.pass[c]))
- c++; }
-useron.pass[c]=0;
-bprintf(text[YourPasswordIs],useron.pass);
-
-if(sys_misc&SM_PWEDIT && yesno(text[NewPasswordQ]))
- while(online) {
- bputs(text[NewPassword]);
- getstr(str,LEN_PASS,K_UPPER|K_LINE);
- truncsp(str);
- if(chkpass(str,useron)) {
- strcpy(useron.pass,str);
- CRLF;
- bprintf(text[YourPasswordIs],useron.pass);
- break; }
- CRLF; }
-
-c=0;
-while(online) {
- bprintf(text[NewUserPasswordVerify]);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- str[0]=0;
- getstr(str,LEN_PASS,K_UPPER);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- if(!strcmp(str,useron.pass)) break;
- sprintf(tmp,"Failed PW verification: '%s' instead of '%s'",str
- ,useron.pass);
- logline(nulstr,tmp);
- if(++c==4) {
- logline("N!","Couldn't figure out password.");
- hangup(); }
- bputs(text[IncorrectPassword]);
- bprintf(text[YourPasswordIs],useron.pass); }
-if(!online) return;
-if(new_magic[0]) {
- bputs(text[MagicWordPrompt]);
- str[0]=0;
- getstr(str,50,K_UPPER);
- if(strcmp(str,new_magic)) {
- bputs(text[FailedMagicWord]);
- sprintf(tmp,"Failed magic word: '%s'",str);
- logline("N!",tmp);
- hangup(); }
- if(!online) return; }
-
-i=1;
-bputs(text[CheckingSlots]);
-sprintf(str,"%s\\USER\\NAME.DAT",data_dir);
-if(fexist(str)) {
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- hangup();
- return; }
- j=filelength(file)/(LEN_ALIAS+2); /* total users */
- while(i<=j) {
- fread(str,LEN_ALIAS+2,1,stream);
- for(c=0;c<LEN_ALIAS;c++)
- if(str[c]==ETX) break;
- str[c]=0;
- if(!c) { /* should be a deleted user */
- getuserrec(i,U_MISC,8,str);
- misc=ahtoul(str);
- if(misc&DELETED) { /* deleted bit set too */
- getuserrec(i,U_LASTON,8,str);
- now=ahtoul(str); /* delete long enough ? */
- if((time(NULL)-now)/86400>=sys_deldays) break; } }
- i++; }
- fclose(stream); }
-
-j=lastuser(); /* Check against data file */
-if(i<=j) { /* Overwriting existing user */
- getuserrec(i,U_MISC,8,str);
- misc=ahtoul(str);
- if(!(misc&DELETED)) /* Not deleted? Set usernumber to end+1 */
- i=j+1; }
-
-useron.number=i;
-putuserdat(useron);
-putusername(useron.number,useron.alias);
-logline(nulstr,"Wrote user data");
-if(new_sif[0]) {
- sprintf(str,"%sUSER\\%4.4u.DAT",data_dir,useron.number);
- create_sif_dat(new_sif,str); }
-if(!(uq&UQ_NODEF))
- maindflts(useron);
-
-delallmail(useron.number);
-
-if(useron.number!=1 && node_valuser) {
- sprintf(str,"%sFEEDBACK.MSG",text_dir);
- CLS;
- printfile(str,P_NOABORT);
- sprintf(str,text[NewUserFeedbackHdr]
- ,nulstr,getage(useron.birth),useron.sex,useron.birth
- ,useron.name,useron.phone,useron.comp,useron.modem);
- email(node_valuser,str,"New User Validation",WM_EMAIL);
- if(!useron.fbacks && !useron.emails) {
- if(online) { /* didn't hang up */
- bprintf(text[NoFeedbackWarning],username(node_valuser,tmp));
- email(node_valuser,str,"New User Validation",WM_EMAIL);
- } /* give 'em a 2nd try */
- if(!useron.fbacks && !useron.emails) {
- bprintf(text[NoFeedbackWarning],username(node_valuser,tmp));
- logline("N!","Aborted feedback");
- hangup();
- putuserrec(useron.number,U_COMMENT,60,"Didn't leave feedback");
- putuserrec(useron.number,U_MISC,8
- ,ultoa(useron.misc|DELETED,tmp,16));
- putusername(useron.number,nulstr);
- return; } } }
-
-sprintf(str,"%sFILE\\%04u.IN",data_dir,useron.number); /* delete any files */
-delfiles(str,"*.*"); /* waiting for user */
-rmdir(str);
-sprintf(tmp,"%04u.*",useron.number);
-sprintf(str,"%sFILE",data_dir);
-delfiles(str,tmp);
-
-answertime=starttime=time(NULL); /* set answertime to now */
-sprintf(str,"%sUSER\\PTRS\\%04u.IXB",data_dir,useron.number); /* msg ptrs */
-remove(str);
-sprintf(str,"%sMSGS\\%04u.MSG",data_dir,useron.number); /* delete short msg */
-remove(str);
-sprintf(str,"%sUSER\\%04u.MSG",data_dir,useron.number); /* delete ex-comment */
-remove(str);
-if(newuser_mod[0])
- exec_bin(newuser_mod,&main_csi);
-user_event(EVENT_NEWUSER);
-logline("N+","Successful new user logon");
-sys_status|=SS_NEWUSER;
-}
diff --git a/src/sbbs2/node/make.bat b/src/sbbs2/node/make.bat
deleted file mode 100755
index b20b2c0d196d53a05305fad1e3653c283ba59df1..0000000000000000000000000000000000000000
--- a/src/sbbs2/node/make.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-@echo off
-bcc -w-pro -I.. -C -mt -nDOS node.c
-if errorlevel 1 goto end
-exe2bin dos\node.exe dos\node.com
-:end
\ No newline at end of file
diff --git a/src/sbbs2/node/make.cmd b/src/sbbs2/node/make.cmd
deleted file mode 100755
index 4094c5e6d77d01ca6f534258c60289f007ea5743..0000000000000000000000000000000000000000
--- a/src/sbbs2/node/make.cmd
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -I.. -w-pro -nOS2 node.c
diff --git a/src/sbbs2/node/node.c b/src/sbbs2/node/node.c
deleted file mode 100644
index 9532dc12d540d74190aefb6d69a05973d9fa33ec..0000000000000000000000000000000000000000
--- a/src/sbbs2/node/node.c
+++ /dev/null
@@ -1,476 +0,0 @@
-/* NODE.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Synchronet BBS Node control program */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <io.h>
-#include <dos.h>
-#include <fcntl.h>
-#include <string.h>
-#include "sbbsdefs.h"
-
-enum {
- MODE_LIST
- ,MODE_ANON
- ,MODE_LOCK
- ,MODE_INTR
- ,MODE_RRUN
- ,MODE_DOWN
- ,MODE_EVENT
- ,MODE_NOPAGE
- ,MODE_NOALERTS
- ,MODE_STATUS
- ,MODE_USERON
- ,MODE_ACTION
- ,MODE_ERRORS
- ,MODE_MISC
- ,MODE_CONN
- ,MODE_AUX
- ,MODE_EXTAUX
- };
-
-char tmp[256];
-int nodefile;
-
-/****************************************************************************/
-/* Reads the data for node number 'number' into the structure 'node' */
-/* from NODE.DAB */
-/* if lockit is non-zero, locks this node's record. putnodedat() unlocks it */
-/****************************************************************************/
-void getnodedat(uchar number, node_t *node, char lockit)
-{
- char str[256];
- int count=0;
-
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(lockit
- && lock(nodefile,(long)number*sizeof(node_t),sizeof(node_t))==-1) {
- count++;
- continue; }
- if(read(nodefile,node,sizeof(node_t))==sizeof(node_t))
- break;
- count++; }
-if(count)
- printf("NODE.DAB COLLISION (READ) - Count:%d\n",count);
-if(count==LOOP_NODEDAB) {
- printf("Error reading nodefile for node %d\n",number+1);
- return; }
-}
-
-/****************************************************************************/
-/* Write the data from the structure 'node' into NODE.DAB */
-/* getnodedat(num,&node,1); must have been called before calling this func */
-/* NOTE: ------^ the indicates the node record has been locked */
-/****************************************************************************/
-void putnodedat(uchar number, node_t node)
-{
- char str[256];
- int count;
-
-number--; /* make zero based */
-lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
-if(write(nodefile,&node,sizeof(node_t))!=sizeof(node_t)) {
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
- printf("Error writing to nodefile for node %d\n",number+1);
- return; }
-unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
-}
-
-/****************************************************************************/
-/* Unpacks the password 'pass' from the 5bit ASCII inside node_t. 32bits in */
-/* node.extaux, and the other 8bits in the upper byte of node.aux */
-/****************************************************************************/
-char *unpackchatpass(char *pass, node_t node)
-{
- char bits;
- int i;
-
-pass[0]=(node.aux&0x1f00)>>8;
-pass[1]=((node.aux&0xe000)>>13)|((node.extaux&0x3)<<3);
-bits=2;
-for(i=2;i<8;i++) {
- pass[i]=(node.extaux>>bits)&0x1f;
- bits+=5; }
-pass[8]=0;
-for(i=0;i<8;i++)
- if(pass[i])
- pass[i]+=64;
-return(pass);
-}
-
-/****************************************************************************/
-/* Displays the information for node number 'number' contained in 'node' */
-/****************************************************************************/
-void printnodedat(uchar number, node_t node)
-{
- uint i;
- char hour,mer[3];
-
-printf("Node %2d: ",number);
-switch(node.status) {
- case NODE_WFC:
- printf("Waiting for call");
- break;
- case NODE_OFFLINE:
- printf("Offline");
- break;
- case NODE_NETTING:
- printf("Networking");
- break;
- case NODE_LOGON:
- printf("At logon prompt");
- break;
- case NODE_EVENT_WAITING:
- printf("Waiting for all nodes to become inactive");
- break;
- case NODE_EVENT_LIMBO:
- printf("Waiting for node %d to finish external event",node.aux);
- break;
- case NODE_EVENT_RUNNING:
- printf("Running external event");
- break;
- case NODE_NEWUSER:
- printf("New user");
- printf(" applying for access ");
- if(!node.connection)
- printf("Locally");
- else
- printf("at %ubps",node.connection);
- break;
- case NODE_QUIET:
- case NODE_INUSE:
- printf("User #%d",node.useron);
- printf(" ");
- switch(node.action) {
- case NODE_MAIN:
- printf("at main menu");
- break;
- case NODE_RMSG:
- printf("reading messages");
- break;
- case NODE_RMAL:
- printf("reading mail");
- break;
- case NODE_RSML:
- printf("reading sent mail");
- break;
- case NODE_RTXT:
- printf("reading text files");
- break;
- case NODE_PMSG:
- printf("posting message");
- break;
- case NODE_SMAL:
- printf("sending mail");
- break;
- case NODE_AMSG:
- printf("posting auto-message");
- break;
- case NODE_XTRN:
- if(!node.aux)
- printf("at external program menu");
- else
- printf("running external program #%d",node.aux);
- break;
- case NODE_DFLT:
- printf("changing defaults");
- break;
- case NODE_XFER:
- printf("at transfer menu");
- break;
- case NODE_RFSD:
- printf("retrieving from device #%d",node.aux);
- break;
- case NODE_DLNG:
- printf("downloading");
- break;
- case NODE_ULNG:
- printf("uploading");
- break;
- case NODE_BXFR:
- printf("transferring bidirectional");
- break;
- case NODE_LFIL:
- printf("listing files");
- break;
- case NODE_LOGN:
- printf("logging on");
- break;
- case NODE_LCHT:
- printf("in local chat with sysop");
- break;
- case NODE_MCHT:
- if(node.aux) {
- printf("in multinode chat channel %d",node.aux&0xff);
- if(node.aux&0x1f00) { /* password */
- putchar('*');
- printf(" %s",unpackchatpass(tmp,node)); } }
- else
- printf("in multinode global chat channel");
- break;
- case NODE_PAGE:
- printf("paging node %u for private chat",node.aux);
- break;
- case NODE_PCHT:
- printf("in private chat with node %u",node.aux);
- break;
- case NODE_GCHT:
- printf("chatting with The Guru");
- break;
- case NODE_CHAT:
- printf("in chat section");
- break;
- case NODE_TQWK:
- printf("transferring QWK packet");
- break;
- case NODE_SYSP:
- printf("performing sysop activities");
- break;
- default:
- printf(itoa(node.action,tmp,10));
- break; }
- if(!node.connection)
- printf(" locally");
- else
- printf(" at %ubps",node.connection);
- if(node.action==NODE_DLNG) {
- if((node.aux/60)>=12) {
- if(node.aux/60==12)
- hour=12;
- else
- hour=(node.aux/60)-12;
- strcpy(mer,"pm"); }
- else {
- if((node.aux/60)==0) /* 12 midnite */
- hour=12;
- else hour=node.aux/60;
- strcpy(mer,"am"); }
- printf(" ETA %02d:%02d %s"
- ,hour,node.aux-((node.aux/60)*60),mer); }
- break; }
-if(node.misc&(NODE_LOCK|NODE_POFF|NODE_AOFF|NODE_MSGW|NODE_NMSG)) {
- printf(" (");
- if(node.misc&NODE_AOFF)
- putchar('A');
- if(node.misc&NODE_LOCK)
- putchar('L');
- if(node.misc&(NODE_MSGW|NODE_NMSG))
- putchar('M');
- if(node.misc&NODE_POFF)
- putchar('P');
- putchar(')'); }
-if(((node.misc
- &(NODE_ANON|NODE_UDAT|NODE_INTR|NODE_RRUN|NODE_EVENT|NODE_DOWN))
- || node.status==NODE_QUIET)) {
- printf(" [");
- if(node.misc&NODE_ANON)
- putchar('A');
- if(node.misc&NODE_INTR)
- putchar('I');
- if(node.misc&NODE_RRUN)
- putchar('R');
- if(node.misc&NODE_UDAT)
- putchar('U');
- if(node.status==NODE_QUIET)
- putchar('Q');
- if(node.misc&NODE_EVENT)
- putchar('E');
- if(node.misc&NODE_DOWN)
- putchar('D');
- putchar(']'); }
-if(node.errors)
- printf(" %d error%c",node.errors, node.errors>1 ? 's' : '\0' );
-printf("\n");
-}
-
-
-/****************************/
-/* Main program entry point */
-/****************************/
-int main(int argc, char **argv)
-{
- char str[256],ctrl_dir[41],*p,debug=0;
- uchar sys_nodes,node_num=0,onoff=0;
- uint i,j,mode=0,misc;
- long value;
- node_t node;
-
-printf("\nSynchronet Node Display/Control Utility v1.03\n\n");
-
-if(argc<2) {
- printf("usage: node [/debug] [action [on|off]] [node numbers] [...]"
- "\n\n");
- printf("actions (default is list):\n\n");
- printf("list = list status\n");
- printf("anon = anonymous user\n");
- printf("lock = locked\n");
- printf("intr = interrupt\n");
- printf("down = shut-down\n");
- printf("rerun = rerun\n");
- printf("event = run event\n");
- printf("nopage = page disable\n");
- printf("noalerts = activity alerts disable\n");
- printf("status=# = set status value\n");
- printf("useron=# = set useron number\n");
- printf("action=# = set action value\n");
- printf("errors=# = set error counter\n");
- printf("conn=# = set connection value\n");
- printf("misc=# = set misc value\n");
- printf("aux=# = set aux value\n");
- printf("extaux=# = set extended aux value\n");
- exit(0); }
-
-p=getenv("SBBSCTRL");
-if(p==NULL) {
- printf("\7\nSBBSCTRL environment variable is not set.\n");
- printf("This environment variable must be set to your CTRL directory.");
- printf("\nExample: SET SBBSCTRL=C:\\SBBS\\CTRL\n");
- exit(1); }
-sprintf(ctrl_dir,"%.40s",p);
-strupr(ctrl_dir);
-if(ctrl_dir[strlen(ctrl_dir)-1]!='\\')
- strcat(ctrl_dir,"\\");
-
-sprintf(str,"%sNODE.DAB",ctrl_dir);
-if((nodefile=open(str,O_RDWR|O_DENYNONE|O_BINARY))==-1) {
- printf("\7\nError opening %s.\n",str);
- exit(1); }
-
-sys_nodes=filelength(nodefile)/sizeof(node_t);
-if(!sys_nodes) {
- printf("%s reflects 0 nodes!\n",str);
- exit(1); }
-
-for(i=1;i<argc;i++) {
- if(isdigit(argv[i][0]))
- node_num=atoi(argv[i]);
- else {
- node_num=onoff=value=0;
- if(!stricmp(argv[i],"/DEBUG"))
- debug=1;
- else if(!stricmp(argv[i],"LOCK"))
- mode=MODE_LOCK;
- else if(!stricmp(argv[i],"ANON"))
- mode=MODE_ANON;
- else if(!stricmp(argv[i],"INTR"))
- mode=MODE_INTR;
- else if(!stricmp(argv[i],"DOWN"))
- mode=MODE_DOWN;
- else if(!stricmp(argv[i],"RERUN"))
- mode=MODE_RRUN;
- else if(!stricmp(argv[i],"EVENT"))
- mode=MODE_EVENT;
- else if(!stricmp(argv[i],"NOPAGE"))
- mode=MODE_NOPAGE;
- else if(!stricmp(argv[i],"NOALERTS"))
- mode=MODE_NOALERTS;
- else if(!stricmp(argv[i],"ON"))
- onoff=1;
- else if(!stricmp(argv[i],"OFF"))
- onoff=2;
- else if(!strnicmp(argv[i],"STATUS=",7)) {
- mode=MODE_STATUS;
- value=atoi(argv[i]+7); }
- else if(!strnicmp(argv[i],"ERRORS=",7)) {
- mode=MODE_ERRORS;
- value=atoi(argv[i]+7); }
- else if(!strnicmp(argv[i],"USERON=",7)) {
- mode=MODE_USERON;
- value=atoi(argv[i]+7); }
- else if(!strnicmp(argv[i],"ACTION=",7)) {
- mode=MODE_ACTION;
- value=atoi(argv[i]+7); }
- else if(!strnicmp(argv[i],"CONN=",5)) {
- mode=MODE_CONN;
- value=atoi(argv[i]+5); }
- else if(!strnicmp(argv[i],"MISC=",5)) {
- mode=MODE_MISC;
- value=atoi(argv[i]+5); }
- else if(!strnicmp(argv[i],"AUX=",4)) {
- mode=MODE_AUX;
- value=atoi(argv[i]+4); }
- else if(!strnicmp(argv[i],"EXTAUX=",7)) {
- mode=MODE_EXTAUX;
- value=atoi(argv[i]+7); }
- }
- if((mode && node_num) || i+1==argc)
- for(j=1;j<=sys_nodes;j++)
- if(!node_num || j==node_num) {
- getnodedat(j,&node,1);
- misc=0;
- switch(mode) {
- case MODE_ANON:
- misc=NODE_ANON;
- break;
- case MODE_LOCK:
- misc=NODE_LOCK;
- break;
- case MODE_INTR:
- misc=NODE_INTR;
- break;
- case MODE_DOWN:
- misc=NODE_DOWN;
- break;
- case MODE_RRUN:
- misc=NODE_RRUN;
- break;
- case MODE_EVENT:
- misc=NODE_EVENT;
- break;
- case MODE_NOPAGE:
- misc=NODE_POFF;
- break;
- case MODE_NOALERTS:
- misc=NODE_AOFF;
- break;
- case MODE_STATUS:
- node.status=value;
- break;
- case MODE_ERRORS:
- node.errors=value;
- break;
- case MODE_ACTION:
- node.action=value;
- break;
- case MODE_USERON:
- node.useron=value;
- break;
- case MODE_MISC:
- node.misc=value;
- break;
- case MODE_CONN:
- node.connection=value;
- break;
- case MODE_AUX:
- node.aux=value;
- break;
- case MODE_EXTAUX:
- node.extaux=value;
- break; }
- if(misc) {
- if(onoff==0)
- node.misc^=misc;
- else if(onoff==1)
- node.misc|=misc;
- else if(onoff==2)
- node.misc&=~misc; }
- putnodedat(j,node);
- printnodedat(j,node);
- if(debug) {
- printf("status=%u\n",node.status);
- printf("errors=%u\n",node.errors);
- printf("action=%d\n",node.action);
- printf("useron=%u\n",node.useron);
- printf("conn=%u\n",node.connection);
- printf("misc=%u\n",node.misc);
- printf("aux=%u\n",node.aux);
- printf("extaux=%lu\n",node.extaux); } } }
-
-close(nodefile);
-return(0);
-}
diff --git a/src/sbbs2/nodedefs.h b/src/sbbs2/nodedefs.h
deleted file mode 100644
index c661445e3e4a652a6164a0ab397b3b9f71187626..0000000000000000000000000000000000000000
--- a/src/sbbs2/nodedefs.h
+++ /dev/null
@@ -1,81 +0,0 @@
-/* NODEDEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/************************************************************/
-/* Constants, macros, and typedefs for use ONLY with SBBS */
-/************************************************************/
-
-#ifndef _NODEDEFS_H
-#define _NODEDEFS_H
-
-#include "gen_defs.h"
-
-enum { /* Node Status */
- NODE_WFC /* Waiting for Call */
- ,NODE_LOGON /* at logon prompt */
- ,NODE_NEWUSER /* New user applying */
- ,NODE_INUSE /* In Use */
- ,NODE_QUIET /* In Use - quiet mode */
- ,NODE_OFFLINE /* Offline */
- ,NODE_NETTING /* Networking */
- ,NODE_EVENT_WAITING /* Waiting for all nodes to be inactive */
- ,NODE_EVENT_RUNNING /* Running an external event */
- ,NODE_EVENT_LIMBO /* Allowing another node to run an event */
- };
-
- /* Bit values for node.misc */
-#define NODE_ANON (1<<0) /* Anonymous User */
-#define NODE_LOCK (1<<1) /* Locked for sysops only */
-#define NODE_INTR (1<<2) /* Interrupted - hang up */
-#define NODE_MSGW (1<<3) /* Message is waiting (old way) */
-#define NODE_POFF (1<<4) /* Page disabled */
-#define NODE_AOFF (1<<5) /* Activity Alert disabled */
-#define NODE_UDAT (1<<6) /* User data has been updated */
-#define NODE_RRUN (1<<7) /* Re-run this node when log off */
-#define NODE_EVENT (1<<8) /* Must run node event after log off */
-#define NODE_DOWN (1<<9) /* Down this node after logoff */
-#define NODE_RPCHT (1<<10) /* Reset private chat */
-#define NODE_NMSG (1<<11) /* Node message waiting (new way) */
-#define NODE_EXT (1<<12) /* Extended info on node action */
-
-enum { /* Node Action */
- NODE_MAIN /* Main Prompt */
- ,NODE_RMSG /* Reading Messages */
- ,NODE_RMAL /* Reading Mail */
- ,NODE_SMAL /* Sending Mail */
- ,NODE_RTXT /* Reading G-Files */
- ,NODE_RSML /* Reading Sent Mail */
- ,NODE_PMSG /* Posting Message */
- ,NODE_AMSG /* Auto-message */
- ,NODE_XTRN /* Running External Program */
- ,NODE_DFLT /* Main Defaults Section */
- ,NODE_XFER /* Transfer Prompt */
- ,NODE_DLNG /* Downloading File */
- ,NODE_ULNG /* Uploading File */
- ,NODE_BXFR /* Bidirectional Transfer */
- ,NODE_LFIL /* Listing Files */
- ,NODE_LOGN /* Logging on */
- ,NODE_LCHT /* In Local Chat with Sysop */
- ,NODE_MCHT /* In Multi-Chat with Other Nodes */
- ,NODE_GCHT /* In Local Chat with Guru */
- ,NODE_CHAT /* In Chat Section */
- ,NODE_SYSP /* Sysop Activity */
- ,NODE_TQWK /* Transferring QWK packet */
- ,NODE_PCHT /* In Private Chat */
- ,NODE_PAGE /* Paging another node for Private Chat */
- ,NODE_RFSD /* Retrieving file from seq dev (aux=dev)*/
- };
-
-typedef struct { /* Node information kept in NODE.DAB */
- uchar status, /* Current Status of Node */
- errors, /* Number of Critical Errors */
- action; /* Action User is doing on Node */
- ushort useron, /* User on Node */
- connection, /* Connection rate of Node */
- misc, /* Miscellaneous bits for node */
- aux; /* Auxillary word for node */
- ulong extaux; /* Extended aux dword for node */
- } node_t;
-
-#endif /* Don't add anything after this line */
diff --git a/src/sbbs2/pack_qwk.c b/src/sbbs2/pack_qwk.c
deleted file mode 100644
index c5ebb17c918140db37e2ee7d689346fc31e1ffcb..0000000000000000000000000000000000000000
--- a/src/sbbs2/pack_qwk.c
+++ /dev/null
@@ -1,527 +0,0 @@
-#line 1 "PACK_QWK.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "qwk.h"
-#include "post.h"
-#include "etext.h"
-
-/****************************************************************************/
-/* Creates QWK packet, returning 1 if successful, 0 if not. */
-/****************************************************************************/
-char pack_qwk(char *packet, ulong *msgcnt, int prepack)
-{
- uchar str[256],tmp2[256],ch,*p;
- uchar HUGE16 *qwkbuf;
- int file,mode;
- uint i,j,k,n,conf;
- long l,size,msgndx;
- ulong totalcdt,totalsize,totaltime,lastmsg
- ,mailmsgs=0,files,submsgs,msgs,posts,netfiles=0,preqwk=0;
- float f; /* Sparky is responsible */
- time_t start;
- node_t node;
- mail_t *mail;
- post_t HUGE16 *post;
- FILE *stream,*qwk,*personal,*ndx;
- struct ffblk ff;
- smbmsg_t msg;
-
-delfiles(temp_dir,"*.*");
-sprintf(str,"%sFILE\\%04u.QWK",data_dir,useron.number);
-if(fexist(str)) {
- for(k=0;k<total_fextrs;k++)
- if(!stricmp(fextr[k]->ext,useron.tmpext)
- && chk_ar(fextr[k]->ar,useron))
- break;
- if(k>=total_fextrs)
- k=0;
- i=external(cmdstr(fextr[k]->cmd,str,"*.*",NULL),EX_OUTL|EX_OUTR);
- if(!i)
- preqwk=1; }
-
-if(useron.rest&FLAG('Q') && useron.qwk&QWK_RETCTLA)
- useron.qwk|=(QWK_NOINDEX|QWK_NOCTRL|QWK_VIA|QWK_TZ);
-
-if(useron.qwk&QWK_EXPCTLA)
- mode=A_EXPAND;
-else if(useron.qwk&QWK_RETCTLA)
- mode=A_LEAVE;
-else mode=0;
-if(useron.qwk&QWK_TZ)
- mode|=TZ;
-if(useron.qwk&QWK_VIA)
- mode|=VIA;
-(*msgcnt)=0L;
-if(!prepack && !(useron.qwk&QWK_NOCTRL)) {
- /***************************/
- /* Create CONTROL.DAT file */
- /***************************/
- sprintf(str,"%sCONTROL.DAT",temp_dir);
- if((stream=fnopen(&file,str,O_WRONLY|O_CREAT|O_TRUNC))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return(0); }
-
- now=time(NULL);
- unixtodos(now,&date,&curtime);
-
- fprintf(stream,"%s\r\n%s\r\n%s\r\n%s, Sysop\r\n0000,%s\r\n"
- "%02u-%02u-%u,%02u:%02u:%02u\r\n"
- ,sys_name
- ,sys_location
- ,node_phone
- ,sys_op
- ,sys_id
- ,date.da_mon,date.da_day,date.da_year
- ,curtime.ti_hour,curtime.ti_min,curtime.ti_sec);
- k=0;
- for(i=0;i<usrgrps;i++)
- for(j=0;j<usrsubs[i];j++)
- k++; /* k is how many subs */
- fprintf(stream,"%s\r\n\r\n0\r\n0\r\n%u\r\n",useron.alias,k);
- fprintf(stream,"0\r\nE-mail\r\n"); /* first conference is e-mail */
- for(i=0;i<usrgrps;i++)
- for(j=0;j<usrsubs[i];j++)
- fprintf(stream,"%u\r\n%s\r\n"
- ,sub[usrsub[i][j]]->qwkconf ? sub[usrsub[i][j]]->qwkconf
- : ((i+1)*1000)+j+1,sub[usrsub[i][j]]->qwkname);
- fprintf(stream,"HELLO\r\nBBSNEWS\r\nGOODBYE\r\n");
- fclose(stream);
- /***********************/
- /* Create DOOR.ID File */
- /***********************/
- sprintf(str,"%sDOOR.ID",temp_dir);
- if((stream=fnopen(&file,str,O_WRONLY|O_CREAT|O_TRUNC))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return(0); }
- p="CONTROLTYPE = ";
- fprintf(stream,"DOOR = %s\r\nVERSION = %s\r\n"
- "SYSTEM = %s v%s\r\n"
- "CONTROLNAME = SBBS\r\n"
- "%sADD\r\n"
- "%sDROP\r\n"
- "%sYOURS\r\n"
- "%sRESET\r\n"
- "%sRESETALL\r\n"
- "%sFILES\r\n"
- "%sATTACH\r\n"
- "%sOWN\r\n"
- "%sMAIL\r\n"
- "%sDELMAIL\r\n"
- "%sCTRL-A\r\n"
- "%sFREQ\r\n"
- "%sNDX\r\n"
- "%sTZ\r\n"
- "%sVIA\r\n"
- "%sCONTROL\r\n"
- "MIXEDCASE = YES\r\n"
- ,decrypt(Synchronet,0)
- ,VERSION
- ,decrypt(Synchronet,0)
- ,VERSION
- ,p,p,p,p
- ,p,p,p,p
- ,p,p,p,p
- ,p,p,p,p
- );
- fclose(stream);
- if(useron.rest&FLAG('Q')) {
- /***********************/
- /* Create NETFLAGS.DAT */
- /***********************/
- sprintf(str,"%sNETFLAGS.DAT",temp_dir);
- if((stream=fnopen(&file,str,O_WRONLY|O_CREAT))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT);
- return(0); }
- ch=1; /* Net enabled */
- if(usrgrps)
- for(i=0;i<(usrgrps*1000)+usrsubs[usrgrps-1];i++)
- fputc(ch,stream);
- fclose(stream); }
- } /* !prepack */
-
-/****************************************************/
-/* Create MESSAGES.DAT, write header and leave open */
-/****************************************************/
-sprintf(str,"%sMESSAGES.DAT",temp_dir);
-if((qwk=fnopen(&file,str,O_CREAT|O_WRONLY|O_TRUNC))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_CREAT|O_WRONLY|O_TRUNC);
- return(0); }
-l=filelength(file);
-if(!l) {
- fprintf(qwk,"%-128s",decrypt(QWKheader,0));
- msgndx=1; }
-else
- msgndx=l/128L;
-fseek(qwk,0,SEEK_END);
-sprintf(str,"%sNEWFILES.DAT",temp_dir);
-remove(str);
-if(!(useron.rest&FLAG('T')) && useron.qwk&QWK_FILES)
- files=create_filelist("NEWFILES.DAT",FL_ULTIME);
-else
- files=0;
-
-start=time(NULL);
-
-if(useron.rest&FLAG('Q'))
- useron.qwk|=(QWK_EMAIL|QWK_ALLMAIL|QWK_DELMAIL);
-
-if(!(useron.qwk&QWK_NOINDEX)) {
- sprintf(str,"%sPERSONAL.NDX",temp_dir);
- if((personal=fnopen(&file,str,O_CREAT|O_WRONLY|O_APPEND))==NULL) {
- fclose(qwk);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- return(0); }
- fseek(personal,0L,SEEK_END); }
-else
- personal=NULL;
-
-if(useron.qwk&(QWK_EMAIL|QWK_ALLMAIL) && !prepack) {
- sprintf(smb.file,"%sMAIL",data_dir);
- smb.retry_time=smb_retry_time;
- if((i=smb_open(&smb))!=0) {
- fclose(qwk);
- if(personal)
- fclose(personal);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
- /***********************/
- /* Pack E-mail, if any */
- /***********************/
- qwkmail_time=time(NULL);
- mailmsgs=loadmail(&mail,useron.number,0,useron.qwk&QWK_ALLMAIL ? LM_QWK
- : LM_UNREAD|LM_QWK);
- if(mailmsgs && !(sys_status&SS_ABORT)) {
- bputs(text[QWKPackingEmail]);
- if(!(useron.qwk&QWK_NOINDEX)) {
- sprintf(str,"%s000.NDX",temp_dir);
- if((ndx=fnopen(&file,str,O_CREAT|O_WRONLY|O_APPEND))==NULL) {
- fclose(qwk);
- if(personal)
- fclose(personal);
- smb_close(&smb);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- FREE(mail);
- return(0); }
- fseek(ndx,0L,SEEK_END); }
- else
- ndx=NULL;
-
- if(useron.rest&FLAG('Q'))
- mode|=TO_QNET;
- else
- mode&=~TO_QNET;
-
- for(l=0;l<mailmsgs;l++) {
- bprintf("\b\b\b\b\b\b\b\b\b\b\b\b%4lu of %-4lu"
- ,l+1,mailmsgs);
-
- msg.idx.offset=mail[l].offset;
- if(!loadmsg(&msg,mail[l].number))
- continue;
-
- if(msg.hdr.auxattr&MSG_FILEATTACH && useron.qwk&QWK_ATTACH) {
- sprintf(str,"%sFILE\\%04u.IN\\%s"
- ,data_dir,useron.number,msg.subj);
- sprintf(tmp,"%s%s",temp_dir,msg.subj);
- if(fexist(str) && !fexist(tmp))
- mv(str,tmp,1); }
-
- size=msgtoqwk(msg,qwk,mode,INVALID_SUB,0);
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg);
- if(ndx) {
- msgndx++;
- f=ltomsbin(msgndx); /* Record number */
- ch=0; /* Sub number, not used */
- if(personal) {
- fwrite(&f,4,1,personal);
- fwrite(&ch,1,1,personal); }
- fwrite(&f,4,1,ndx);
- fwrite(&ch,1,1,ndx);
- msgndx+=size/128L; } }
- bprintf(text[QWKPackedEmail],mailmsgs);
- if(ndx)
- fclose(ndx); }
- smb_close(&smb); /* Close the e-mail */
- if(mailmsgs)
- FREE(mail);
- }
-
-/*********************/
-/* Pack new messages */
-/*********************/
-for(i=0;i<usrgrps;i++) {
- for(j=0;j<usrsubs[i] && !msgabort();j++)
- if(sub[usrsub[i][j]]->misc&SUB_NSCAN
- || (!(useron.rest&FLAG('Q'))
- && sub[usrsub[i][j]]->misc&SUB_FORCED)) {
- if(!chk_ar(sub[usrsub[i][j]]->read_ar,useron))
- continue;
- lncntr=0; /* defeat pause */
- if(useron.rest&FLAG('Q') && !(sub[usrsub[i][j]]->misc&SUB_QNET))
- continue; /* QWK Net Node and not QWK networked, so skip */
-
- msgs=getlastmsg(usrsub[i][j],&lastmsg,0);
- if(!msgs || lastmsg<=sub[usrsub[i][j]]->ptr) { /* no msgs */
- if(sub[usrsub[i][j]]->ptr>lastmsg) { /* corrupted ptr */
- sub[usrsub[i][j]]->ptr=lastmsg; /* so fix automatically */
- sub[usrsub[i][j]]->last=lastmsg; }
- bprintf(text[NScanStatusFmt]
- ,grp[sub[usrsub[i][j]]->grp]->sname
- ,sub[usrsub[i][j]]->lname,0L,msgs);
- continue; }
-
- sprintf(smb.file,"%s%s"
- ,sub[usrsub[i][j]]->data_dir,sub[usrsub[i][j]]->code);
- smb.retry_time=smb_retry_time;
- if((k=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,k);
- continue; }
-
- k=0;
- if(useron.qwk&QWK_BYSELF)
- k|=LP_BYSELF;
- if(!(sub[usrsub[i][j]]->misc&SUB_YSCAN))
- k|=LP_OTHERS;
- post=loadposts(&posts,usrsub[i][j],sub[usrsub[i][j]]->ptr,k);
-
- bprintf(text[NScanStatusFmt]
- ,grp[sub[usrsub[i][j]]->grp]->sname
- ,sub[usrsub[i][j]]->lname,posts,msgs);
- if(!posts) { /* no new messages */
- smb_close(&smb);
- continue; }
- bputs(text[QWKPackingSubboard]);
- submsgs=0;
- conf=sub[usrsub[i][j]]->qwkconf;
- if(!conf)
- conf=((i+1)*1000)+j+1;
-
- if(!(useron.qwk&QWK_NOINDEX)) {
- sprintf(str,"%s%u.NDX",temp_dir,conf);
- if((ndx=fnopen(&file,str,O_CREAT|O_WRONLY|O_APPEND))==NULL) {
- fclose(qwk);
- if(personal)
- fclose(personal);
- smb_close(&smb);
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- LFREE(post);
- return(0); }
- fseek(ndx,0L,SEEK_END); }
- else
- ndx=NULL;
-
- for(l=0;l<posts && !msgabort();l++) {
- bprintf("\b\b\b\b\b%-5lu",l+1);
-
- sub[usrsub[i][j]]->ptr=post[l].number; /* set ptr */
- sub[usrsub[i][j]]->last=post[l].number; /* set last read */
-
- msg.idx.offset=post[l].offset;
- if(!loadmsg(&msg,post[l].number))
- continue;
-
- if(useron.rest&FLAG('Q')) {
- if(msg.from_net.type && msg.from_net.type!=NET_QWK &&
- !(sub[usrsub[i][j]]->misc&SUB_GATE)) { /* From other */
- smb_freemsgmem(&msg); /* net, don't gate */
- smb_unlockmsghdr(&smb,&msg);
- continue; }
- mode|=(TO_QNET|TAGLINE);
- if(msg.from_net.type==NET_QWK) {
- mode&=~TAGLINE;
- if(route_circ(msg.from_net.addr,useron.alias)
- || !strnicmp(msg.subj,"NE:",3)) {
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg);
- continue; } } }
- else
- mode&=~(TAGLINE|TO_QNET);
-
- size=msgtoqwk(msg,qwk,mode,usrsub[i][j],conf);
- smb_unlockmsghdr(&smb,&msg);
-
- if(ndx) {
- msgndx++;
- f=ltomsbin(msgndx); /* Record number */
- ch=0; /* Sub number, not used */
- if(personal
- && (!stricmp(msg.to,useron.alias)
- || !stricmp(msg.to,useron.name))) {
- fwrite(&f,4,1,personal);
- fwrite(&ch,1,1,personal); }
- fwrite(&f,4,1,ndx);
- fwrite(&ch,1,1,ndx);
- msgndx+=size/128L; }
-
- smb_freemsgmem(&msg);
- (*msgcnt)++;
- submsgs++;
- if(max_qwkmsgs
- && !(useron.rest&FLAG('Q')) && (*msgcnt)>=max_qwkmsgs) {
- bputs(text[QWKmsgLimitReached]);
- break; } }
- if(!(sys_status&SS_ABORT))
- bprintf(text[QWKPackedSubboard],submsgs,(*msgcnt));
- if(ndx) {
- fclose(ndx);
- sprintf(str,"%s%u.NDX",temp_dir,conf);
- if(!flength(str))
- remove(str); }
- smb_close(&smb);
- LFREE(post);
- if(l<posts)
- break; }
- if(j<usrsubs[i]) /* if sub aborted, abort all */
- break; }
-
-if((*msgcnt)+mailmsgs && time(NULL)-start)
- bprintf("\r\n\r\n\1n\1hPacked %lu messages in %lu seconds "
- "(%lu messages/second)."
- ,(*msgcnt)+mailmsgs,time(NULL)-start
- ,((*msgcnt)+mailmsgs)/(time(NULL)-start));
-
-fclose(qwk); /* close MESSAGE.DAT */
-if(personal) {
- fclose(personal); /* close PERSONAL.NDX */
- sprintf(str,"%sPERSONAL.NDX",temp_dir);
- if(!flength(str))
- remove(str); }
-CRLF;
-
-if(!prepack && (sys_status&SS_ABORT || !online))
- return(0);
-
-if(!prepack && useron.rest&FLAG('Q')) { /* If QWK Net node, check for files */
- sprintf(str,"%sQNET\\%s.OUT\\*.*",data_dir,useron.alias);
- i=findfirst(str,&ff,0);
- while(!i) { /* Move files into temp dir */
- sprintf(str,"%sQNET\\%s.OUT\\%s",data_dir,useron.alias,ff.ff_name);
- strupr(str);
- sprintf(tmp2,"%s%s",temp_dir,ff.ff_name);
- lncntr=0; /* Default pause */
- bprintf(text[RetrievingFile],str);
- if(!mv(str,tmp2,1))
- netfiles++;
- i=findnext(&ff); }
- if(netfiles)
- CRLF; }
-
-if(batdn_total) {
- for(i=0,totalcdt=0;i<batdn_total;i++)
- totalcdt+=batdn_cdt[i];
- if(!(useron.exempt&FLAG('D'))
- && totalcdt>useron.cdt+useron.freecdt) {
- bprintf(text[YouOnlyHaveNCredits]
- ,ultoac(useron.cdt+useron.freecdt,tmp)); }
- else {
- for(i=0,totalsize=totaltime=0;i<batdn_total;i++) {
- totalsize+=batdn_size[i];
- if(!(dir[batdn_dir[i]]->misc&DIR_TFREE) && cur_cps)
- totaltime+=batdn_size[i]/(ulong)cur_cps; }
- if(!(useron.exempt&FLAG('T')) && !SYSOP && totaltime>timeleft)
- bputs(text[NotEnoughTimeToDl]);
- else {
- for(i=0;i<batdn_total;i++) {
- lncntr=0;
- unpadfname(batdn_name[i],tmp);
- sprintf(tmp2,"%s%s",temp_dir,tmp);
- if(!fexist(tmp2)) {
- seqwait(dir[batdn_dir[i]]->seqdev);
- bprintf(text[RetrievingFile],tmp);
- sprintf(str,"%s%s"
- ,batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1]
- : dir[batdn_dir[i]]->path
- ,tmp);
- mv(str,tmp2,1); /* copy the file to temp dir */
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=0xfe;
- putnodedat(node_num,thisnode);
- CRLF; } } } } }
-
-if(!(*msgcnt) && !mailmsgs && !files && !netfiles && !batdn_total
- && (prepack || !preqwk)) {
- bputs(text[QWKNoNewMessages]);
- return(0); }
-
-if(!prepack && !(useron.rest&FLAG('Q'))) { /* Don't include in network */
- /***********************/ /* packets */
- /* Copy QWK Text files */
- /***********************/
- sprintf(str,"%sQWK\\HELLO",text_dir);
- if(fexist(str)) {
- sprintf(tmp2,"%sHELLO",temp_dir);
- mv(str,tmp2,1); }
- sprintf(str,"%sQWK\\BBSNEWS",text_dir);
- if(fexist(str)) {
- sprintf(tmp2,"%sBBSNEWS",temp_dir);
- mv(str,tmp2,1); }
- sprintf(str,"%sQWK\\GOODBYE",text_dir);
- if(fexist(str)) {
- sprintf(tmp2,"%sGOODBYE",temp_dir);
- mv(str,tmp2,1); }
- sprintf(str,"%sQWK\\BLT-*.*",text_dir);
- i=findfirst(str,&ff,0);
- while(!i) { /* Copy BLT-*.* files */
- padfname(ff.ff_name,str);
- if(isdigit(str[4]) && isdigit(str[9])) {
- sprintf(str,"%sQWK\\%s",text_dir,ff.ff_name);
- sprintf(tmp2,"%s%s",temp_dir,ff.ff_name);
- mv(str,tmp2,1); }
- i=findnext(&ff); } }
-
-if(prepack) {
- for(i=1;i<=sys_nodes;i++) {
- getnodedat(i,&node,0);
- if((node.status==NODE_INUSE || node.status==NODE_QUIET
- || node.status==NODE_LOGON) && node.useron==useron.number)
- break; }
- if(i<=sys_nodes) /* Don't pre-pack with user online */
- return(0); }
-
-/*******************/
-/* Compress Packet */
-/*******************/
-sprintf(tmp2,"%s*.*",temp_dir);
-i=external(cmdstr(temp_cmd(),packet,tmp2,NULL),EX_OUTL|EX_OUTR);
-if(!fexist(packet)) {
- bputs(text[QWKCompressionFailed]);
- if(i)
- errormsg(WHERE,ERR_EXEC,cmdstr(temp_cmd(),packet,tmp2,NULL),i);
- else
- errorlog("Couldn't compress QWK packet");
- return(0); }
-
-if(prepack) /* Early return if pre-packing */
- return(1);
-
-l=flength(packet);
-sprintf(str,"%s.QWK",sys_id);
-bprintf(text[FiFilename],str);
-bprintf(text[FiFileSize],ultoac(l,tmp));
-if(l>0L && cur_cps)
- i=l/(ulong)cur_cps;
-else
- i=0;
-bprintf(text[FiTransferTime],sectostr(i,tmp));
-CRLF;
-if(!(useron.exempt&FLAG('T')) && i>timeleft) {
- bputs(text[NotEnoughTimeToDl]);
- return(0); }
-
-if(useron.rest&FLAG('Q')) {
- sprintf(str,"%s.QWK",sys_id);
- sprintf(tmp,"%s*.*",temp_dir);
- i=findfirst(tmp,&ff,0);
- while(!i) {
- if(stricmp(str,ff.ff_name)) {
- sprintf(tmp,"%s%s",temp_dir,ff.ff_name);
- remove(tmp); }
- i=findnext(&ff); } }
-
-return(1);
-}
diff --git a/src/sbbs2/pack_rep.c b/src/sbbs2/pack_rep.c
deleted file mode 100644
index 6a9cdaaf976fa5602f02aff69495c6a9264ef45d..0000000000000000000000000000000000000000
--- a/src/sbbs2/pack_rep.c
+++ /dev/null
@@ -1,245 +0,0 @@
-#line 1 "PACK_REP.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "post.h"
-#include "qwk.h"
-
-/****************************************************************************/
-/* Creates an REP packet for upload to QWK hub 'hubnum'. */
-/* Returns 1 if successful, 0 if not. */
-/****************************************************************************/
-char pack_rep(uint hubnum)
-{
- uchar str[256],tmp2[256],ch,*p;
- uchar HUGE16 *qwkbuf;
- int file,mode;
- uint i,j,k,n;
- long l,size,msgcnt,submsgs,mailmsgs,packedmail,netfiles=0,deleted;
- ulong last,ptr,posts,msgs;
- post_t HUGE16 *post;
- mail_t *mail;
- struct ffblk ff;
- FILE *rep;
- smbmsg_t msg;
-
-msgcnt=0L;
-delfiles(temp_dir,"*.*");
-sprintf(str,"%s%s.REP",data_dir,qhub[hubnum]->id);
-if(fexist(str))
- external(cmdstr(qhub[hubnum]->unpack,str,"*.*",NULL),EX_OUTL);
-/*************************************************/
-/* Create SYSID.MSG, write header and leave open */
-/*************************************************/
-sprintf(str,"%s%s.MSG",temp_dir,qhub[hubnum]->id);
-if((rep=fnopen(&file,str,O_CREAT|O_WRONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_CREAT|O_WRONLY);
- return(0); }
-if(!filelength(file)) { /* New REP packet */
- sprintf(str,"%-128s",qhub[hubnum]->id); /* So write header */
- fwrite(str,128,1,rep); }
-fseek(rep,0L,SEEK_END);
-/*********************/
-/* Pack new messages */
-/*********************/
-console|=CON_L_ECHO;
-
-sprintf(smb.file,"%sMAIL",data_dir);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- fclose(rep);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-/***********************/
-/* Pack E-mail, if any */
-/***********************/
-qwkmail_time=time(NULL);
-mailmsgs=loadmail(&mail,0,MAIL_YOUR,LM_QWK);
-packedmail=0;
-if(mailmsgs) {
- bputs(text[QWKPackingEmail]);
- for(l=0;l<mailmsgs;l++) {
- bprintf("\b\b\b\b\b%-5lu",l+1);
-
- msg.idx.offset=mail[l].offset;
- if(!loadmsg(&msg,mail[l].number))
- continue;
-
- sprintf(str,"%s/",qhub[hubnum]->id);
- if(msg.to_net.type!=NET_QWK
- || (strcmp(msg.to_net.addr,qhub[hubnum]->id)
- && strncmp(msg.to_net.addr,str,strlen(str)))) {
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg);
- continue; }
-
- msgtoqwk(msg,rep,TO_QNET|REP|A_LEAVE,INVALID_SUB,0);
- packedmail++;
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg); }
- bprintf(text[QWKPackedEmail],packedmail); }
-smb_close(&smb); /* Close the e-mail */
-if(mailmsgs)
- FREE(mail);
-
-useron.number=1;
-getuserdat(&useron);
-for(i=0;i<qhub[hubnum]->subs;i++) {
- j=qhub[hubnum]->sub[i]; /* j now equals the real sub num */
- msgs=getlastmsg(j,&last,0);
- lncntr=0; /* defeat pause */
- if(!msgs || last<=sub[j]->ptr) {
- if(sub[j]->ptr>last) {
- sub[j]->ptr=last;
- sub[j]->last=last; }
- bprintf(text[NScanStatusFmt]
- ,grp[sub[j]->grp]->sname
- ,sub[j]->lname,0L,msgs);
- continue; }
-
- sprintf(smb.file,"%s%s"
- ,sub[j]->data_dir,sub[j]->code);
- smb.retry_time=smb_retry_time;
- if((k=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,k);
- continue; }
-
- post=loadposts(&posts,j,sub[j]->ptr,LP_BYSELF|LP_OTHERS|LP_PRIVATE|LP_REP);
- bprintf(text[NScanStatusFmt]
- ,grp[sub[j]->grp]->sname
- ,sub[j]->lname,posts,msgs);
- if(!posts) { /* no new messages */
- smb_close(&smb);
- continue; }
-
- sub[j]->ptr=last; /* set pointer */
- bputs(text[QWKPackingSubboard]); /* ptr to last msg */
- submsgs=0;
- for(l=0;l<posts;l++) {
- bprintf("\b\b\b\b\b%-5lu",l+1);
-
- msg.idx.offset=post[l].offset;
- if(!loadmsg(&msg,post[l].number))
- continue;
-
- if(msg.from_net.type && msg.from_net.type!=NET_QWK &&
- !(sub[j]->misc&SUB_GATE)) {
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg);
- continue; }
-
- if(!strncmpi(msg.subj,"NE:",3) || (msg.from_net.type==NET_QWK &&
- route_circ(msg.from_net.addr,qhub[hubnum]->id))) {
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg);
- continue; }
-
- mode=qhub[hubnum]->mode[i]|TO_QNET|REP;
- if(mode&A_LEAVE) mode|=(VIA|TZ);
- if(msg.from_net.type!=NET_QWK)
- mode|=TAGLINE;
-
- msgtoqwk(msg,rep,mode,j,qhub[hubnum]->conf[i]);
-
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg);
- msgcnt++;
- submsgs++; }
- bprintf(text[QWKPackedSubboard],submsgs,msgcnt);
- LFREE(post);
- smb_close(&smb); }
-
-fclose(rep); /* close MESSAGE.DAT */
-CRLF;
- /* Look for extra files to send out */
-sprintf(str,"%sQNET\\%s.OUT\\*.*",data_dir,qhub[hubnum]->id);
-i=findfirst(str,&ff,0);
-while(!i) {
- sprintf(str,"%sQNET\\%s.OUT\\%s",data_dir,qhub[hubnum]->id,ff.ff_name);
- sprintf(tmp2,"%s%s",temp_dir,ff.ff_name);
- bprintf(text[RetrievingFile],str);
- if(!mv(str,tmp2,1))
- netfiles++;
- i=findnext(&ff); }
-if(netfiles)
- CRLF;
-
-if(!msgcnt && !netfiles && !packedmail) {
- bputs(text[QWKNoNewMessages]);
- return(0); }
-
-/*******************/
-/* Compress Packet */
-/*******************/
-sprintf(str,"%s%s.REP",data_dir,qhub[hubnum]->id);
-sprintf(tmp2,"%s*.*",temp_dir);
-i=external(cmdstr(qhub[hubnum]->pack,str,tmp2,NULL),EX_OUTL);
-if(!fexist(str)) {
- bputs(text[QWKCompressionFailed]);
- if(i)
- errormsg(WHERE,ERR_EXEC,cmdstr(qhub[hubnum]->pack,str,tmp2,NULL),i);
- else
- errorlog("Couldn't compress REP packet");
- return(0); }
-sprintf(str,"%sQNET\\%s.OUT\\",data_dir,qhub[hubnum]->id);
-delfiles(str,"*.*");
-
-if(packedmail) { /* Delete NetMail */
- sprintf(smb.file,"%sMAIL",data_dir);
- smb.retry_time=smb_retry_time;
- if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(1); }
-
- mailmsgs=loadmail(&mail,0,MAIL_YOUR,LM_QWK);
-
- if((i=smb_locksmbhdr(&smb))!=0) { /* Lock the base, so nobody */
- if(mailmsgs)
- FREE(mail);
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* messes with the index */
- return(1); }
-
- if((i=smb_getstatus(&smb))!=0) {
- if(mailmsgs)
- FREE(mail);
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(1); }
-
- deleted=0;
- /* Mark as READ and DELETE */
- for(l=0;l<mailmsgs;l++) {
- if(mail[l].time>qwkmail_time)
- continue;
- msg.idx.offset=0;
- if(!loadmsg(&msg,mail[l].number))
- continue;
-
- sprintf(str,"%s/",qhub[hubnum]->id);
- if(msg.to_net.type!=NET_QWK
- || (strcmp(msg.to_net.addr,qhub[hubnum]->id)
- && strncmp(msg.to_net.addr,str,strlen(str)))) {
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg);
- continue; }
-
- msg.hdr.attr|=MSG_DELETE;
- msg.idx.attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- else
- deleted++;
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg); }
-
- if(deleted && sys_misc&SM_DELEMAIL)
- delmail(0,MAIL_YOUR);
- smb_close(&smb);
- if(mailmsgs)
- FREE(mail); }
-
-return(1);
-}
diff --git a/src/sbbs2/post.h b/src/sbbs2/post.h
deleted file mode 100644
index 060ec942af3f50250c0caf87f29ea285eee9d9cb..0000000000000000000000000000000000000000
--- a/src/sbbs2/post.h
+++ /dev/null
@@ -1,23 +0,0 @@
-/* POST.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "gen_defs.h"
-
-
-typedef struct { /* Message data */
- ulong offset, /* Offset to header (in bytes) */
- number; /* Number of message */
- ushort to, /* CRC-16 of to username */
- from, /* CRC-16 of from username */
- subj; /* CRC-16 of subject */
- } post_t;
-
-#ifdef SBBS
-post_t HUGE16 *loadposts(ulong *posts, uint subnum, ulong ptr, uint mode);
-#else
-ulong loadposts(post_t HUGE16 **post, uint subnum, ulong ptr, uint mode);
-#endif
-int searchposts(uint subnum, post_t HUGE16 *post, long start, long msgs
- ,char *search);
-void showposts_toyou(post_t HUGE16 *post, ulong start, ulong posts);
diff --git a/src/sbbs2/postmsg.c b/src/sbbs2/postmsg.c
deleted file mode 100644
index 4034d0a1f090f64f27a8490170c53141132fd459..0000000000000000000000000000000000000000
--- a/src/sbbs2/postmsg.c
+++ /dev/null
@@ -1,308 +0,0 @@
-#line 1 "POSTMSG.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Posts a message on subboard number sub, with 'top' as top of message. */
-/* Returns 1 if posted, 0 if not. */
-/****************************************************************************/
-char postmsg(uint subnum, smbmsg_t *remsg, int wm_mode)
-{
- char str[256],touser[256],title[LEN_TITLE+1],buf[SDT_BLOCK_LEN]
- ,top[256],c;
- ushort xlat,msgattr;
- int i,j,n,x,file,storage;
- ulong l,length,offset,crc=0xffffffff;
- FILE *instream;
- smbmsg_t msg,tmpmsg;
-
-if(remsg) {
- sprintf(title,"%.*s",LEN_TITLE,remsg->subj);
- if(sub[subnum]->misc&SUB_INET) // All Internet posts to "All" 05/20/97
- touser[0]=0;
- else if(remsg->hdr.attr&MSG_ANONYMOUS)
- strcpy(touser,text[Anonymous]);
- else
- strcpy(touser,remsg->from);
- msgattr=(remsg->hdr.attr&MSG_PRIVATE);
- sprintf(top,text[RegardingByTo],title,touser,remsg->to
- ,timestr((time_t *)&remsg->hdr.when_written.time)
- ,zonestr(remsg->hdr.when_written.zone)); }
-else {
- title[0]=0;
- touser[0]=0;
- top[0]=0;
- msgattr=0; }
-
-if(useron.rest&FLAG('P')) {
- bputs(text[R_Post]);
- return(0); }
-
-if((sub[subnum]->misc&(SUB_QNET|SUB_FIDO|SUB_PNET|SUB_INET))
- && (useron.rest&FLAG('N'))) {
- bputs(text[CantPostOnSub]);
- return(0); }
-
-if(useron.ptoday>=level_postsperday[useron.level]) {
- bputs(text[TooManyPostsToday]);
- return(0); }
-
-bprintf(text[Posting],grp[sub[subnum]->grp]->sname,sub[subnum]->lname);
-action=NODE_PMSG;
-nodesync();
-
-if(!(msgattr&MSG_PRIVATE) && (sub[subnum]->misc&SUB_PONLY
- || (sub[subnum]->misc&SUB_PRIV && !noyes(text[PrivatePostQ]))))
- msgattr|=MSG_PRIVATE;
-
-if(sys_status&SS_ABORT)
- return(0);
-
-if(!(sub[subnum]->misc&SUB_INET) // Prompt for TO: user
- && (sub[subnum]->misc&SUB_TOUSER || msgattr&MSG_PRIVATE || touser[0])) {
- if(!touser[0] && !(msgattr&MSG_PRIVATE))
- strcpy(touser,"All");
- bputs(text[PostTo]);
- i=LEN_ALIAS;
- if(sub[subnum]->misc&(SUB_PNET|SUB_INET))
- i=60;
- if(sub[subnum]->misc&SUB_FIDO)
- i=35;
- if(sub[subnum]->misc&SUB_QNET)
- i=25;
- getstr(touser,i,K_UPRLWR|K_LINE|K_EDIT|K_AUTODEL);
- if(stricmp(touser,"ALL")
- && !(sub[subnum]->misc&(SUB_PNET|SUB_FIDO|SUB_QNET|SUB_INET|SUB_ANON))) {
- if(sub[subnum]->misc&SUB_NAME) {
- if(!userdatdupe(useron.number,U_NAME,LEN_NAME,touser,0)) {
- bputs(text[UnknownUser]);
- return(0); } }
- else {
- if((i=finduser(touser))==0)
- return(0);
- username(i,touser); } }
- if(sys_status&SS_ABORT)
- return(0); }
-
-if(!touser[0])
- strcpy(touser,"All"); // Default to ALL
-
-if(!stricmp(touser,"SYSOP") && !SYSOP) // Change SYSOP to user #1
- username(1,touser);
-
-if(msgattr&MSG_PRIVATE && !stricmp(touser,"ALL")) {
- bputs(text[NoToUser]);
- return(0); }
-if(msgattr&MSG_PRIVATE)
- wm_mode|=WM_PRIVATE;
-
-if(sub[subnum]->misc&SUB_AONLY
- || (sub[subnum]->misc&SUB_ANON && useron.exempt&FLAG('A')
- && !noyes(text[AnonymousQ])))
- msgattr|=MSG_ANONYMOUS;
-
-if(sub[subnum]->mod_ar[0] && chk_ar(sub[subnum]->mod_ar,useron))
- msgattr|=MSG_MODERATED;
-
-if(sub[subnum]->misc&SUB_SYSPERM && sub_op(subnum))
- msgattr|=MSG_PERMANENT;
-
-if(msgattr&MSG_PRIVATE)
- bputs(text[PostingPrivately]);
-
-if(msgattr&MSG_ANONYMOUS)
- bputs(text[PostingAnonymously]);
-
-if(sub[subnum]->misc&SUB_NAME)
- bputs(text[UsingRealName]);
-
-sprintf(str,"%sINPUT.MSG",node_dir);
-if(!writemsg(str,top,title,wm_mode,subnum,touser)) {
- bputs(text[Aborted]);
- return(0); }
-
-bputs(text[WritingIndx]);
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,sub[subnum]->code,i);
- return(0); }
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=sub[subnum]->maxcrcs;
- smb.status.max_msgs=sub[subnum]->maxmsgs;
- smb.status.max_age=sub[subnum]->maxage;
- smb.status.attr=sub[subnum]->misc&SUB_HYPER ? SMB_HYPERALLOC : 0;
- if((i=smb_create(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- return(0); } }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-
-if((i=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(0); }
-
-length=flength(str)+2; /* +2 for translation string */
-
-if(length&0xfff00000UL) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LEN,str,length);
- return(0); }
-
-if(smb.status.attr&SMB_HYPERALLOC) {
- offset=smb_hallocdat(&smb);
- storage=SMB_HYPERALLOC; }
-else {
- if((i=smb_open_da(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
- if(sub[subnum]->misc&SUB_FAST) {
- offset=smb_fallocdat(&smb,length,1);
- storage=SMB_FASTALLOC; }
- else {
- offset=smb_allocdat(&smb,length,1);
- storage=SMB_SELFPACK; }
- smb_close_da(&smb); }
-
-if((file=open(str,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY|O_BINARY);
- return(0); }
-
-setvbuf(instream,NULL,_IOFBF,2*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-x=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
-while(!feof(instream)) {
- memset(buf,0,x);
- j=fread(buf,1,x,instream);
- if((j!=x || feof(instream)) && buf[j-1]==LF && buf[j-2]==CR)
- buf[j-1]=buf[j-2]=0; /* Convert to NULL */
- if(sub[subnum]->maxcrcs) {
- for(i=0;i<j;i++)
- crc=ucrc32(buf[i],crc); }
- fwrite(buf,j,1,smb.sdt_fp);
- x=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-crc=~crc;
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-msg.hdr.attr=msg.idx.attr=msgattr;
-msg.hdr.when_written.time=msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_written.zone=msg.hdr.when_imported.zone=sys_timezone;
-if(remsg) {
- msg.hdr.thread_orig=remsg->hdr.number;
- if(!remsg->hdr.thread_first) {
- remsg->hdr.thread_first=smb.status.last_msg+1;
- if((i=smb_lockmsghdr(&smb,remsg))!=0)
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- else {
- i=smb_putmsghdr(&smb,remsg);
- smb_unlockmsghdr(&smb,remsg);
- if(i)
- errormsg(WHERE,ERR_WRITE,smb.file,i); } }
- else {
- l=remsg->hdr.thread_first;
- while(1) {
- tmpmsg.idx.offset=0;
- if(!loadmsg(&tmpmsg,l))
- break;
- if(tmpmsg.hdr.thread_next && tmpmsg.hdr.thread_next!=l) {
- l=tmpmsg.hdr.thread_next;
- smb_unlockmsghdr(&smb,&tmpmsg);
- smb_freemsgmem(&tmpmsg);
- continue; }
- tmpmsg.hdr.thread_next=smb.status.last_msg+1;
- if((i=smb_putmsghdr(&smb,&tmpmsg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&tmpmsg);
- smb_freemsgmem(&tmpmsg);
- break; } } }
-
-
-if(sub[subnum]->maxcrcs) {
- i=smb_addcrc(&smb,crc);
- if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- bputs("\1r\1h\1iDuplicate message!\r\n");
- return(0); } }
-
-msg.hdr.offset=offset;
-
-smb_hfield(&msg,RECIPIENT,strlen(touser),touser);
-strlwr(touser);
-msg.idx.to=crc16(touser);
-
-strcpy(str,sub[subnum]->misc&SUB_NAME ? useron.name : useron.alias);
-smb_hfield(&msg,SENDER,strlen(str),str);
-strlwr(str);
-msg.idx.from=crc16(str);
-
-sprintf(str,"%u",useron.number);
-smb_hfield(&msg,SENDEREXT,strlen(str),str);
-
-smb_hfield(&msg,SUBJECT,strlen(title),title);
-strcpy(str,title);
-strlwr(str);
-remove_re(str);
-msg.idx.subj=crc16(str);
-
-smb_dfield(&msg,TEXT_BODY,length);
-
-smb_unlocksmbhdr(&smb);
-i=smb_addmsghdr(&smb,&msg,storage);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-
-smb_freemsgmem(&msg);
-if(i) {
- smb_freemsgdat(&smb,offset,length,1);
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- return(0); }
-
-useron.ptoday++;
-useron.posts++;
-logon_posts++;
-putuserrec(useron.number,U_POSTS,5,itoa(useron.posts,str,10));
-putuserrec(useron.number,U_PTODAY,5,itoa(useron.ptoday,str,10));
-bprintf(text[Posted],grp[sub[subnum]->grp]->sname
- ,sub[subnum]->lname);
-sprintf(str,"Posted on %s %s",grp[sub[subnum]->grp]->sname,sub[subnum]->lname);
-logline("P+",str);
-if(sub[subnum]->misc&SUB_FIDO && sub[subnum]->echomail_sem[0]) /* semaphore */
- if((file=nopen(sub[subnum]->echomail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
-return(1);
-}
diff --git a/src/sbbs2/putmsg.c b/src/sbbs2/putmsg.c
deleted file mode 100644
index eae2dc7313ca239d4def2529b9a8e12b5279c29d..0000000000000000000000000000000000000000
--- a/src/sbbs2/putmsg.c
+++ /dev/null
@@ -1,195 +0,0 @@
-#line 1 "PUTMSG.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Outputs a NULL terminated string locally and remotely (if applicable) */
-/* checking for message aborts, pauses, ANSI escape and ^A sequences. */
-/* Changes local text attributes if necessary. Max length of str is 4 gig */
-/* Returns the last char of the buffer access.. 0 if not aborted. */
-/* If P_SAVEATR bit is set in mode, the attributes set by the message */
-/* will be the current attributes after the message is displayed, otherwise */
-/* the attributes prior to diplaying the message are always restored. */
-/* Ignores Ctrl-Z's */
-/****************************************************************************/
-char putmsg(char HUGE16 *str, int mode)
-{
- uchar tmpatr,tmp2[256],tmp3[128],*p,exatr=0;
- int orgcon=console,i;
- ulong l=0,sys_status_sav=sys_status;
-
-tmpatr=curatr; /* was lclatr(-1) */
-if(!(mode&P_SAVEATR))
- attr(LIGHTGRAY);
-while(str[l] && (mode&P_NOABORT || !msgabort()) && online) {
- if(str[l]==1) { /* Ctrl-Ax sequence */
- if(str[l+1]=='"' && !(sys_status&SS_NEST_PF)) { /* Quote a file */
- l+=2;
- i=0;
- while(i<12 && isprint(str[l]) && str[l]!='\\' && str[l]!='/')
- tmp2[i++]=str[l++];
- tmp2[i]=0;
- sys_status|=SS_NEST_PF; /* keep it only one message deep! */
- sprintf(tmp3,"%s%s",text_dir,tmp2);
- printfile(tmp3,0);
- sys_status&=~SS_NEST_PF; }
- else if(toupper(str[l+1])=='Z') /* Ctrl-AZ==EOF */
- break;
- else {
- ctrl_a(str[l+1]);
- l+=2; } }
- else if((str[l]=='`' || str[l]=='�') && str[l+1]=='[') {
- outchar(ESC); /* Convert `[ and �[ to ESC[ */
- l++; }
- else if(sys_misc&SM_PCBOARD && str[l]=='@' && str[l+1]=='X'
- && isxdigit(str[l+2]) && isxdigit(str[l+3])) {
- sprintf(tmp2,"%.2s",str+l+2);
- attr(ahtoul(tmp2));
- exatr=1;
- l+=4; }
- else if(sys_misc&SM_WILDCAT && str[l]=='@' && str[l+3]=='@'
- && isxdigit(str[l+1]) && isxdigit(str[l+2])) {
- sprintf(tmp2,"%.2s",str+l+1);
- attr(ahtoul(tmp2));
- // exatr=1;
- l+=4; }
- else if(sys_misc&SM_RENEGADE && str[l]=='|' && isdigit(str[l+1])
- && !(useron.misc&(RIP|WIP))) {
- sprintf(tmp2,"%.2s",str+l+1);
- i=atoi(tmp2);
- if(i>=16) { /* setting background */
- i-=16;
- i<<=4;
- i|=(curatr&0x0f); } /* leave foreground alone */
- else
- i|=(curatr&0xf0); /* leave background alone */
- attr(i);
- exatr=1;
- l+=2; /* Skip |x */
- if(isdigit(str[l]))
- l++; } /* Skip second digit if it exists */
- else if(sys_misc&SM_CELERITY && str[l]=='|' && isalpha(str[l+1])
- && !(useron.misc&(RIP|WIP))) {
- switch(str[l+1]) {
- case 'k':
- attr((curatr&0xf0)|BLACK);
- break;
- case 'b':
- attr((curatr&0xf0)|BLUE);
- break;
- case 'g':
- attr((curatr&0xf0)|GREEN);
- break;
- case 'c':
- attr((curatr&0xf0)|CYAN);
- break;
- case 'r':
- attr((curatr&0xf0)|RED);
- break;
- case 'm':
- attr((curatr&0xf0)|MAGENTA);
- break;
- case 'y':
- attr((curatr&0xf0)|YELLOW);
- break;
- case 'w':
- attr((curatr&0xf0)|LIGHTGRAY);
- break;
- case 'd':
- attr((curatr&0xf0)|BLACK|HIGH);
- break;
- case 'B':
- attr((curatr&0xf0)|BLUE|HIGH);
- break;
- case 'G':
- attr((curatr&0xf0)|GREEN|HIGH);
- break;
- case 'C':
- attr((curatr&0xf0)|CYAN|HIGH);
- break;
- case 'R':
- attr((curatr&0xf0)|RED|HIGH);
- break;
- case 'M':
- attr((curatr&0xf0)|MAGENTA|HIGH);
- break;
- case 'Y': /* Yellow */
- attr((curatr&0xf0)|YELLOW|HIGH);
- break;
- case 'W':
- attr((curatr&0xf0)|LIGHTGRAY|HIGH);
- break;
- case 'S': /* swap foreground and background */
- attr((curatr&0x07)<<4);
- break; }
- exatr=1;
- l+=2; /* Skip |x */
- } /* Skip second digit if it exists */
- else if(sys_misc&SM_WWIV && str[l]==3 && isdigit(str[l+1])) {
- exatr=1;
- switch(str[l+1]) {
- default:
- attr(LIGHTGRAY);
- break;
- case '1':
- attr(CYAN|HIGH);
- break;
- case '2':
- attr(BROWN|HIGH);
- break;
- case '3':
- attr(MAGENTA);
- break;
- case '4':
- attr(LIGHTGRAY|HIGH|(BLUE<<4));
- break;
- case '5':
- attr(GREEN);
- break;
- case '6':
- attr(RED|HIGH|BLINK);
- break;
- case '7':
- attr(BLUE|HIGH);
- break;
- case '8':
- attr(BLUE);
- break;
- case '9':
- attr(CYAN);
- break; }
- l+=2; }
- else {
- if(exatr && str[l]==LF) /* clear at newline for extra attr codes */
- attr(LIGHTGRAY);
- if(lclaes()) {
- if(str[l]=='A' || str[l]=='B' || str[l]=='H' || str[l]=='J'
- || str[l]=='f' || str[l]=='u') /* ANSI anim */
- lncntr=0; /* so defeat pause */
- if(str[l]=='"') {
- l++; /* don't pass on keyboard reassignment */
- continue; } }
- if(str[l]=='!' && str[l+1]=='|' && useron.misc&(RIP|WIP)) /* RIP */
- lncntr=0; /* so defeat pause */
- if(str[l]==ESC && str[l+1]=='$') /* WIP command */
- lncntr=0;
- if(str[l]=='@' && !(mode&P_NOATCODES)) {
- i=atcodes((char *)str+l); /* returns 0 if not valid @ code */
- l+=i; /* i is length of code string */
- if(i) /* if valid string, go to top */
- continue; }
- if(str[l]!=26)
- outchar(str[l]);
- l++; } }
-//curatr=lclatr(-1); 01/29/96
-if(!(mode&P_SAVEATR)) {
- console=orgcon;
- attr(tmpatr); }
-
-/* Restore original settings of Forced Pause On/Off */
-sys_status&=~(SS_PAUSEOFF|SS_PAUSEON);
-sys_status|=(sys_status_sav&(SS_PAUSEOFF|SS_PAUSEON));
-return(str[l]);
-}
diff --git a/src/sbbs2/putnode.c b/src/sbbs2/putnode.c
deleted file mode 100644
index 6e9a5a6f56f42cf4baed37bce335d7c7efc8ae1d..0000000000000000000000000000000000000000
--- a/src/sbbs2/putnode.c
+++ /dev/null
@@ -1,135 +0,0 @@
-#line 1 "PUTNODE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Write the data from the structure 'node' into NODE.DAB */
-/* getnodedat(num,&node,1); must have been called before calling this func */
-/* NOTE: ------^ the indicates the node record has been locked */
-/****************************************************************************/
-void putnodedat(uint number, node_t node)
-{
- char str[256],firston[25];
-
-if(!(sys_status&SS_NODEDAB))
- return;
-if(!number || number>sys_nodes) {
- errormsg(WHERE,ERR_CHK,"node number",number);
- return; }
-if(number==node_num) {
- if((node.status==NODE_INUSE || node.status==NODE_QUIET)
- && text[NodeActionMain+node.action][0]) {
- node.misc|=NODE_EXT;
- memset(str,0,128);
- sprintf(str,text[NodeActionMain+node.action]
- ,useron.alias
- ,useron.level
- ,getage(useron.birth)
- ,useron.sex
- ,useron.comp
- ,useron.note
- ,unixtodstr(useron.firston,firston)
- ,node.aux&0xff
- ,node.connection
- );
- putnodeext(number,str); }
- else
- node.misc&=~NODE_EXT; }
-number--; /* make zero based */
-lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
-if(write(nodefile,&node,sizeof(node_t))!=sizeof(node_t)) {
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
- errormsg(WHERE,ERR_WRITE,"nodefile",number+1);
- return; }
-unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
-}
-
-/****************************************************************************/
-/* Creates a short message for node 'num' than contains 'strin' */
-/****************************************************************************/
-void putnmsg(int num, char *strin)
-{
- char str[256];
- int file,i;
- node_t node;
-
-sprintf(str,"%sMSGS\\N%3.3u.MSG",data_dir,num);
-if((file=nopen(str,O_WRONLY|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT);
- return; }
-lseek(file,0L,SEEK_END); // Instead of opening with O_APPEND
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,i);
- return; }
-close(file);
-getnodedat(num,&node,0);
-if((node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_NMSG)) {
- getnodedat(num,&node,1);
- node.misc|=NODE_NMSG;
- putnodedat(num,node); }
-}
-
-void putnodeext(uint number, char *ext)
-{
- char str[256];
- int count=0;
-
-if(!(sys_status&SS_NODEDAB))
- return;
-if(!number || number>sys_nodes) {
- errormsg(WHERE,ERR_CHK,"node number",number);
- return; }
-number--; /* make zero based */
-while(count<LOOP_NODEDAB) {
- if(count>10)
- mswait(55);
- lseek(node_ext,(long)number*128L,SEEK_SET);
- if(lock(node_ext,(long)number*128L,128)==-1) {
- count++;
- continue; }
- if(write(node_ext,ext,128)==128)
- break;
- count++; }
-unlock(node_ext,(long)number*128L,128);
-if(count>(LOOP_NODEDAB/2) && count!=LOOP_NODEDAB) {
- sprintf(str,"NODE.EXB COLLISION - Count: %d",count);
- logline("!!",str); }
-if(count==LOOP_NODEDAB) {
- errormsg(WHERE,ERR_WRITE,"NODE.EXB",number+1);
- return; }
-}
-
-/****************************************************************************/
-/* Creates a short message for 'usernumber' than contains 'strin' */
-/****************************************************************************/
-void putsmsg(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
- node_t node;
-
-sprintf(str,"%sMSGS\\%4.4u.MSG",data_dir,usernumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- return; }
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- errormsg(WHERE,ERR_WRITE,str,i);
- return; }
-close(file);
-for(i=1;i<=sys_nodes;i++) { /* flag node if user on that msg waiting */
- getnodedat(i,&node,0);
- if(node.useron==usernumber
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_MSGW)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_MSGW;
- putnodedat(i,node); } }
-}
-
diff --git a/src/sbbs2/qwk.c b/src/sbbs2/qwk.c
deleted file mode 100644
index d5e598e93f0fb7f0d39c76ed92eb9e5d28ca27fe..0000000000000000000000000000000000000000
--- a/src/sbbs2/qwk.c
+++ /dev/null
@@ -1,942 +0,0 @@
-#line 1 "QWK.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************************/
-/* Functions that pertain solely to the QWK packets */
-/****************************************************/
-
-#include "sbbs.h"
-#include "etext.h"
-#include "post.h"
-#include "qwk.h"
-
-time_t qwkmail_time;
-
-/****************************************************************************/
-/* Removes ctrl-a codes from the string 'instr' */
-/****************************************************************************/
-void remove_ctrl_a(char *instr)
-{
- char str[512];
- uint i,j,k;
-
-j=strlen(instr);
-for(k=i=0;i<j;i++) {
- if(instr[i]==1)
- i++;
- else str[k++]=instr[i]; }
-str[k]=0;
-strcpy(instr,str);
-}
-
-
-/****************************************************************************/
-/* Converts a long to an msbin real number. required for QWK NDX file */
-/****************************************************************************/
-float ltomsbin(long val)
-{
- converter t;
- int sign, exp; /* sign and exponent */
-
-t.f[0]=(float)val;
-sign=t.uc[3]/0x80;
-exp=((t.ui[1]>>7)-0x7f+0x81)&0xff;
-t.ui[1]=(t.ui[1]&0x7f)|(sign<<7)|(exp<<8);
-return(t.f[0]);
-}
-
-int route_circ(char *via, char *id)
-{
- char str[256],*p,*sp;
-
-strcpy(str,via);
-p=str;
-while(*p && *p<=SP)
- p++;
-while(*p) {
- sp=strchr(p,'/');
- if(sp) *sp=0;
- if(!stricmp(p,id))
- return(1);
- if(!sp)
- break;
- p=sp+1; }
-return(0);
-}
-
-int qwk_route(char *inaddr, char *fulladdr)
-{
- char node[10],str[256],*p;
- int file,i;
- FILE *stream;
-
-fulladdr[0]=0;
-sprintf(str,"%.255s",inaddr);
-p=strrchr(str,'/');
-if(p) p++;
-else p=str;
-sprintf(node,"%.8s",p); /* node = destination node */
-truncsp(node);
-
-for(i=0;i<total_qhubs;i++) /* Check if destination is our hub */
- if(!stricmp(qhub[i]->id,node))
- break;
-if(i<total_qhubs) {
- strcpy(fulladdr,node);
- return(0); }
-
-i=matchuser(node); /* Check if destination is a node */
-if(i) {
- getuserrec(i,U_REST,8,str);
- if(ahtoul(str)&FLAG('Q')) {
- strcpy(fulladdr,node);
- return(i); } }
-
-sprintf(node,"%.8s",inaddr); /* node = next hop */
-p=strchr(node,'/');
-if(p) *p=0;
-truncsp(node);
-
-if(strchr(inaddr,'/')) { /* Multiple hops */
-
- for(i=0;i<total_qhubs;i++) /* Check if next hop is our hub */
- if(!stricmp(qhub[i]->id,node))
- break;
- if(i<total_qhubs) {
- strcpy(fulladdr,inaddr);
- return(0); }
-
- i=matchuser(node); /* Check if next hop is a node */
- if(i) {
- getuserrec(i,U_REST,8,str);
- if(ahtoul(str)&FLAG('Q')) {
- strcpy(fulladdr,inaddr);
- return(i); } } }
-
-p=strchr(node,SP);
-if(p) *p=0;
-
-sprintf(str,"%sQNET\\ROUTE.DAT",data_dir);
-if((stream=fnopen(&file,str,O_RDONLY))==NULL)
- return(0);
-
-strcat(node,":");
-fulladdr[0]=0;
-while(!feof(stream)) {
- if(!fgets(str,256,stream))
- break;
- if(!strnicmp(str+9,node,strlen(node))) {
- fclose(stream);
- truncsp(str);
- sprintf(fulladdr,"%s/%s",str+9+strlen(node),inaddr);
- break; } }
-
-fclose(stream);
-if(!fulladdr[0]) /* First hop not found in ROUTE.DAT */
- return(0);
-
-sprintf(node,"%.8s",fulladdr);
-p=strchr(node,'/');
-if(p) *p=0;
-truncsp(node);
-
-for(i=0;i<total_qhubs;i++) /* Check if first hop is our hub */
- if(!stricmp(qhub[i]->id,node))
- break;
-if(i<total_qhubs)
- return(0);
-
-i=matchuser(node); /* Check if first hop is a node */
-if(i) {
- getuserrec(i,U_REST,8,str);
- if(ahtoul(str)&FLAG('Q'))
- return(i); }
-fulladdr[0]=0;
-return(0);
-}
-
-
-/* Via is in format: NODE/NODE/... */
-void update_qwkroute(char *via)
-{
- static uint total_nodes;
- static char **qwk_node;
- static char **qwk_path;
- static time_t *qwk_time;
- char str[256],*p,*tp,node[9];
- int i,file;
- time_t t;
- FILE *stream;
-
-if(via==NULL) {
- if(!total_nodes)
- return;
- sprintf(str,"%sQNET\\ROUTE.DAT",data_dir);
- if((stream=fnopen(&file,str,O_WRONLY|O_CREAT|O_TRUNC))!=NULL) {
- t=time(NULL);
- t-=(90L*24L*60L*60L);
- for(i=0;i<total_nodes;i++)
- if(qwk_time[i]>t)
- fprintf(stream,"%s %s:%s\r\n"
- ,unixtodstr(qwk_time[i],str),qwk_node[i],qwk_path[i]);
- fclose(stream); }
- else
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- for(i=0;i<total_nodes;i++) {
- FREE(qwk_node[i]);
- FREE(qwk_path[i]); }
- if(qwk_node) {
- FREE(qwk_node);
- qwk_node=NULL; }
- if(qwk_path) {
- FREE(qwk_path);
- qwk_path=NULL; }
- if(qwk_time) {
- FREE(qwk_time);
- qwk_time=NULL; }
- total_nodes=0;
- return; }
-
-if(!total_nodes) {
- sprintf(str,"%sQNET\\ROUTE.DAT",data_dir);
- if((stream=fnopen(&file,str,O_RDONLY))!=NULL) {
- while(!feof(stream)) {
- if(!fgets(str,255,stream))
- break;
- truncsp(str);
- t=dstrtounix(str);
- p=strchr(str,':');
- if(!p) continue;
- *p=0;
- sprintf(node,"%.8s",str+9);
- tp=strchr(node,SP); /* change "node bbs:" to "node:" */
- if(tp) *tp=0;
- for(i=0;i<total_nodes;i++)
- if(!stricmp(qwk_node[i],node))
- break;
- if(i<total_nodes && qwk_time[i]>t)
- continue;
- if(i==total_nodes) {
- if((qwk_node=REALLOC(qwk_node,sizeof(char *)*(i+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,9*(i+1));
- break; }
- if((qwk_path=REALLOC(qwk_path,sizeof(char *)*(i+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,128*(i+1));
- break; }
- if((qwk_time=REALLOC(qwk_time,sizeof(time_t)*(i+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,sizeof(time_t)*(i+1));
- break; }
- if((qwk_node[i]=MALLOC(9))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,9);
- break; }
- if((qwk_path[i]=MALLOC(128))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,128);
- break; }
- total_nodes++; }
- strcpy(qwk_node[i],node);
- p++;
- while(*p && *p<=SP) p++;
- sprintf(qwk_path[i],"%.127s",p);
- qwk_time[i]=t; }
- fclose(stream); } }
-
-strupr(via);
-p=strchr(via,'/'); /* Skip uplink */
-
-while(p && *p) {
- p++;
- sprintf(node,"%.8s",p);
- tp=strchr(node,'/');
- if(tp) *tp=0;
- tp=strchr(node,SP); /* no spaces allowed */
- if(tp) *tp=0;
- truncsp(node);
- for(i=0;i<total_nodes;i++)
- if(!stricmp(qwk_node[i],node))
- break;
- if(i==total_nodes) { /* Not in list */
- if((qwk_node=REALLOC(qwk_node,sizeof(char *)*(total_nodes+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,9*(total_nodes+1));
- break; }
- if((qwk_path=REALLOC(qwk_path,sizeof(char *)*(total_nodes+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,128*(total_nodes+1));
- break; }
- if((qwk_time=REALLOC(qwk_time,sizeof(time_t)*(total_nodes+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,sizeof(time_t)*(total_nodes+1));
- break; }
- if((qwk_node[total_nodes]=MALLOC(9))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,9);
- break; }
- if((qwk_path[total_nodes]=MALLOC(128))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,128);
- break; }
- total_nodes++; }
- sprintf(qwk_node[i],"%.8s",node);
- sprintf(qwk_path[i],"%.*s",(uint)((p-1)-via),via);
- qwk_time[i]=time(NULL);
- p=strchr(p,'/'); }
-}
-
-/****************************************************************************/
-/* Successful download of QWK packet */
-/****************************************************************************/
-void qwk_success(ulong msgcnt, char bi, char prepack)
-{
- char str[128];
- int i;
- ulong l,msgs,deleted=0;
- mail_t *mail;
- smbmsg_t msg;
-
-if(!prepack) {
- logline("D-","Downloaded QWK packet");
- posts_read+=msgcnt;
-
- if(useron.rest&FLAG('Q')) {
- sprintf(str,"%sQNET\\%.8s.OUT\\",data_dir,useron.alias);
- delfiles(str,"*.*"); }
-
- sprintf(str,"%sFILE\\%04u.QWK",data_dir,useron.number);
- remove(str);
-
- if(!bi) {
- batch_download(-1);
- delfiles(temp_dir,"*.*"); } }
-
-if(useron.rest&FLAG('Q'))
- useron.qwk|=(QWK_EMAIL|QWK_ALLMAIL|QWK_DELMAIL);
-if(useron.qwk&(QWK_EMAIL|QWK_ALLMAIL)) {
- sprintf(smb.file,"%sMAIL",data_dir);
- smb.retry_time=smb_retry_time;
- if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return; }
-
- msgs=loadmail(&mail,useron.number,0
- ,useron.qwk&QWK_ALLMAIL ? LM_QWK : LM_UNREAD|LM_QWK);
-
- if((i=smb_locksmbhdr(&smb))!=0) { /* Lock the base, so nobody */
- if(msgs)
- FREE(mail);
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* messes with the index */
- return; }
-
- if((i=smb_getstatus(&smb))!=0) {
- if(msgs)
- FREE(mail);
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return; }
-
- /* Mark as READ and DELETE */
- for(l=0;l<msgs;l++) {
- if(mail[l].time>qwkmail_time)
- continue;
- msg.idx.offset=0;
- if(!loadmsg(&msg,mail[l].number))
- continue;
- if(!(msg.hdr.attr&MSG_READ)) {
- if(thisnode.status==NODE_INUSE)
- telluser(msg);
- msg.hdr.attr|=MSG_READ;
- msg.idx.attr=msg.hdr.attr;
- smb_putmsg(&smb,&msg); }
- if(!(msg.hdr.attr&MSG_PERMANENT)
- && ((msg.hdr.attr&MSG_KILLREAD && msg.hdr.attr&MSG_READ)
- || (useron.qwk&QWK_DELMAIL))) {
- msg.hdr.attr|=MSG_DELETE;
- msg.idx.attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- else
- deleted++; }
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg); }
-
- if(deleted && sys_misc&SM_DELEMAIL)
- delmail(useron.number,MAIL_YOUR);
- smb_close(&smb);
- if(msgs)
- FREE(mail); }
-
-}
-
-/****************************************************************************/
-/* QWK mail packet section */
-/****************************************************************************/
-void qwk_sec()
-{
- uchar str[256],tmp2[256],ch,bi=0
- ,*AttemptedToDownloadQWKpacket="Attempted to download QWK packet";
- int s;
- uint i,j,k;
- ulong msgcnt,l;
- time_t *sav_ptr;
- file_t fd;
-
-getusrdirs();
-fd.dir=total_dirs;
-if((sav_ptr=(time_t *)MALLOC(sizeof(time_t)*total_subs))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(time_t)*total_subs);
- return; }
-for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr;
-for(i=0;i<total_prots;i++)
- if(prot[i]->bicmd[0] && chk_ar(prot[i]->ar,useron))
- bi++; /* number of bidirectional protocols configured */
-if(useron.rest&FLAG('Q'))
- getusrsubs();
-delfiles(temp_dir,"*.*");
-while(online) {
- if((useron.misc&(WIP|RIP) || !(useron.misc&EXPERT))
- && !(useron.rest&FLAG('Q')))
- menu("QWK");
- action=NODE_TQWK;
- ASYNC;
- bputs(text[QWKPrompt]);
- strcpy(str,"?UDCSPQ\r");
- if(bi)
- strcat(str,"B");
- ch=getkeys(str,0);
- if(ch>SP)
- logch(ch,0);
- if(sys_status&SS_ABORT || ch=='Q' || ch==CR)
- break;
- if(ch=='?') {
- if((useron.misc&(WIP|RIP) || !(useron.misc&EXPERT))
- && !(useron.rest&FLAG('Q')))
- continue;
- menu("QWK");
- continue; }
- if(ch=='S') {
- new_scan_cfg(SUB_NSCAN);
- delfiles(temp_dir,"*.*");
- continue; }
- if(ch=='P') {
- new_scan_ptr_cfg();
- for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr;
- delfiles(temp_dir,"*.*");
- continue; }
- if(ch=='C') {
- while(online) {
- CLS;
- bputs("\1n\1gQWK Settings:\1n\r\n\r\n");
- bprintf("A) %-30s: %s\r\n"
- ,"Ctrl-A Color Codes"
- ,useron.qwk&QWK_EXPCTLA
- ? "Expand to ANSI" : useron.qwk&QWK_RETCTLA ? "Leave in"
- : "Strip");
- bprintf("T) %-30s: %s\r\n"
- ,"Archive Type"
- ,useron.tmpext);
- bprintf("E) %-30s: %s\r\n"
- ,"Include E-mail Messages"
- ,useron.qwk&QWK_EMAIL ? "Un-read Only"
- : useron.qwk&QWK_ALLMAIL ? text[Yes] : text[No]);
- bprintf("I) %-30s: %s\r\n"
- ,"Include File Attachments"
- ,useron.qwk&QWK_ATTACH ? text[Yes] : text[No]);
- bprintf("D) %-30s: %s\r\n"
- ,"Delete E-mail Automatically"
- ,useron.qwk&QWK_DELMAIL ? text[Yes]:text[No]);
- bprintf("F) %-30s: %s\r\n"
- ,"Include New Files List"
- ,useron.qwk&QWK_FILES ? text[Yes]:text[No]);
- bprintf("N) %-30s: %s\r\n"
- ,"Include Index Files"
- ,useron.qwk&QWK_NOINDEX ? text[No]:text[Yes]);
- bprintf("C) %-30s: %s\r\n"
- ,"Include Control Files"
- ,useron.qwk&QWK_NOCTRL ? text[No]:text[Yes]);
- bprintf("Y) %-30s: %s\r\n"
- ,"Include Messages from You"
- ,useron.qwk&QWK_BYSELF ? text[Yes]:text[No]);
- bprintf("Z) %-30s: %s\r\n"
- ,"Include Time Zone (TZ)"
- ,useron.qwk&QWK_TZ ? text[Yes]:text[No]);
- bprintf("V) %-30s: %s\r\n"
- ,"Include Message Path (VIA)"
- ,useron.qwk&QWK_VIA ? text[Yes]:text[No]);
- //bprintf("Q) Quit\r\n\r\n");
- bputs(text[UserDefaultsWhich]);
- ch=getkeys("AQEDFIOQTYNCZV",0);
- if(sys_status&SS_ABORT || !ch || ch=='Q')
- break;
- switch(ch) {
- case 'A':
- if(!(useron.qwk&(QWK_EXPCTLA|QWK_RETCTLA)))
- useron.qwk|=QWK_EXPCTLA;
- else if(useron.qwk&QWK_EXPCTLA) {
- useron.qwk&=~QWK_EXPCTLA;
- useron.qwk|=QWK_RETCTLA; }
- else
- useron.qwk&=~(QWK_EXPCTLA|QWK_RETCTLA);
- break;
- case 'T':
- for(i=0;i<total_fcomps;i++)
- uselect(1,i,"Archive Types",fcomp[i]->ext,fcomp[i]->ar);
- s=uselect(0,0,0,0,0);
- if(s>=0) {
- strcpy(useron.tmpext,fcomp[s]->ext);
- putuserrec(useron.number,U_TMPEXT,3,useron.tmpext); }
- break;
- case 'E':
- if(!(useron.qwk&(QWK_EMAIL|QWK_ALLMAIL)))
- useron.qwk|=QWK_EMAIL;
- else if(useron.qwk&QWK_EMAIL) {
- useron.qwk&=~QWK_EMAIL;
- useron.qwk|=QWK_ALLMAIL; }
- else
- useron.qwk&=~(QWK_EMAIL|QWK_ALLMAIL);
- break;
- case 'I':
- useron.qwk^=QWK_ATTACH;
- break;
- case 'D':
- useron.qwk^=QWK_DELMAIL;
- break;
- case 'F':
- useron.qwk^=QWK_FILES;
- break;
- case 'N': /* NO IDX files */
- useron.qwk^=QWK_NOINDEX;
- break;
- case 'C':
- useron.qwk^=QWK_NOCTRL;
- break;
- case 'Z':
- useron.qwk^=QWK_TZ;
- break;
- case 'V':
- useron.qwk^=QWK_VIA;
- break;
- case 'Y': /* Yourself */
- useron.qwk^=QWK_BYSELF;
- break; }
- putuserrec(useron.number,U_QWK,8,ultoa(useron.qwk,str,16)); }
- delfiles(temp_dir,"*.*");
- continue; }
-
-
- if(ch=='B') { /* Bidirectional QWK and REP packet transfer */
- sprintf(str,"%s%s.QWK",temp_dir,sys_id);
- if(!fexist(str) && !pack_qwk(str,&msgcnt,0)) {
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i];
- remove(str);
- last_ns_time=ns_time;
- continue; }
- bprintf(text[UploadingREP],sys_id);
- menu("BIPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(tmp2,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->bicmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(tmp2,tmp); }
- ch=getkeys(tmp2,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; /* re-load saved pointers */
- last_ns_time=ns_time;
- continue; }
- for(i=0;i<total_prots;i++)
- if(prot[i]->bicmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- batup_total=1;
- batup_dir[0]=total_dirs;
- sprintf(batup_name[0],"%s.REP",sys_id);
- batdn_total=1;
- batdn_dir[0]=total_dirs;
- sprintf(batdn_name[0],"%s.QWK",sys_id);
- if(!create_batchdn_lst() || !create_batchup_lst()
- || !create_bimodem_pth()) {
- batup_total=batdn_total=0;
- continue; }
- sprintf(str,"%s%s.QWK",temp_dir,sys_id);
- sprintf(tmp2,"%s.QWK",sys_id);
- padfname(tmp2,fd.name);
- sprintf(str,"%sBATCHDN.LST",node_dir);
- sprintf(tmp2,"%sBATCHUP.LST",node_dir);
- j=protocol(cmdstr(prot[i]->bicmd,str,tmp2,NULL),0);
- batdn_total=batup_total=0;
- if(prot[i]->misc&PROT_DSZLOG) {
- if(!checkprotlog(fd)) {
- logline("D!",AttemptedToDownloadQWKpacket);
- last_ns_time=ns_time;
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; } /* re-load saved pointers */
- else {
- qwk_success(msgcnt,1,0);
- for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr; } }
- else if(j) {
- logline("D!",AttemptedToDownloadQWKpacket);
- last_ns_time=ns_time;
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; }
- else {
- qwk_success(msgcnt,1,0);
- for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr; }
- sprintf(str,"%s%s.QWK",temp_dir,sys_id);
- remove(str);
- unpack_rep();
- delfiles(temp_dir,"*.*");
- //autohangup();
- }
- else {
- last_ns_time=ns_time;
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; } }
-
- else if(ch=='D') { /* Download QWK Packet of new messages */
- sprintf(str,"%s%s.QWK",temp_dir,sys_id);
- if(!fexist(str) && !pack_qwk(str,&msgcnt,0)) {
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i];
- last_ns_time=ns_time;
- remove(str);
- continue; }
- if(online==ON_LOCAL) { /* Local QWK packet creation */
- bputs(text[EnterPath]);
- if(!getstr(str,60,K_LINE|K_UPPER)) {
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; /* re-load saved pointers */
- last_ns_time=ns_time;
- continue; }
- backslashcolon(str);
- sprintf(tmp2,"%s%s.QWK",str,sys_id);
- if(fexist(tmp2)) {
- for(i=0;i<10;i++) {
- sprintf(tmp2,"%s%s.QW%d",str,sys_id,i);
- if(!fexist(tmp2))
- break; }
- if(i==10) {
- bputs(text[FileAlreadyThere]);
- last_ns_time=ns_time;
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i];
- continue; } }
- sprintf(tmp,"%s%s.QWK",temp_dir,sys_id);
- if(mv(tmp,tmp2,0)) { /* unsuccessful */
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i];
- last_ns_time=ns_time; }
- else {
- bprintf(text[FileNBytesSent],tmp2,ultoac(flength(tmp2),tmp));
- qwk_success(msgcnt,0,0);
- for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr; }
- continue; }
-
- /***************/
- /* Send Packet */
- /***************/
- menu("DLPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(tmp2,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(tmp2,tmp); }
- ungetkey(useron.prot);
- ch=getkeys(tmp2,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; /* re-load saved pointers */
- last_ns_time=ns_time;
- continue; }
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- sprintf(str,"%s%s.QWK",temp_dir,sys_id);
- sprintf(tmp2,"%s.QWK",sys_id);
- padfname(tmp2,fd.name);
- j=protocol(cmdstr(prot[i]->dlcmd,str,nulstr,NULL),0);
- if(prot[i]->misc&PROT_DSZLOG) {
- if(!checkprotlog(fd)) {
- last_ns_time=ns_time;
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; } /* re-load saved pointers */
- else {
- qwk_success(msgcnt,0,0);
- for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr; } }
- else if(j) {
- logline("D!",AttemptedToDownloadQWKpacket);
- last_ns_time=ns_time;
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i]; }
- else {
- qwk_success(msgcnt,0,0);
- for(i=0;i<total_subs;i++)
- sav_ptr[i]=sub[i]->ptr; }
- autohangup(); }
- else { /* if not valid protocol (hungup?) */
- for(i=0;i<total_subs;i++)
- sub[i]->ptr=sav_ptr[i];
- last_ns_time=ns_time; } }
-
- else if(ch=='U') { /* Upload REP Packet */
-/*
- if(useron.rest&FLAG('Q') && useron.rest&FLAG('P')) {
- bputs(text[R_Post]);
- continue; }
-*/
-
- delfiles(temp_dir,"*.*");
- bprintf(text[UploadingREP],sys_id);
- for(k=0;k<total_fextrs;k++)
- if(!stricmp(fextr[k]->ext,useron.tmpext)
- && chk_ar(fextr[k]->ar,useron))
- break;
- if(k>=total_fextrs) {
- bputs(text[QWKExtractionFailed]);
- errorlog("Couldn't extract REP packet - configuration error");
- continue; }
-
- if(online==ON_LOCAL) { /* Local upload of rep packet */
- bputs(text[EnterPath]);
- if(!getstr(str,60,K_LINE|K_UPPER))
- continue;
- backslashcolon(str);
- sprintf(tmp,"%s.REP",sys_id);
- strcat(str,tmp);
- sprintf(tmp,"%s%s.REP",temp_dir,sys_id);
- if(!mv(str,tmp,0))
- unpack_rep();
- delfiles(temp_dir,"*.*");
- continue; }
-
- /******************/
- /* Receive Packet */
- /******************/
- menu("ULPROT");
- mnemonics(text[ProtocolOrQuit]);
- strcpy(tmp2,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->ulcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(tmp2,tmp); }
- ch=getkeys(tmp2,0);
- if(ch=='Q' || sys_status&SS_ABORT)
- continue;
- for(i=0;i<total_prots;i++)
- if(prot[i]->ulcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i>=total_prots) /* This shouldn't happen */
- continue;
- sprintf(str,"%s%s.REP",temp_dir,sys_id);
- protocol(cmdstr(prot[i]->ulcmd,str,nulstr,NULL),0);
- unpack_rep();
- delfiles(temp_dir,"*.*");
- //autohangup();
- } }
-delfiles(temp_dir,"*.*");
-FREE(sav_ptr);
-}
-
-void qwksetptr(uint subnum, char *buf, int reset)
-{
- long l;
- ulong last;
-
-if(buf[2]=='/' && buf[5]=='/') { /* date specified */
- l=dstrtounix(buf);
- sub[subnum]->ptr=getmsgnum(subnum,l);
- return; }
-l=atol(buf);
-if(l>=0) /* ptr specified */
- sub[subnum]->ptr=l;
-else if(l) { /* relative ptr specified */
- getlastmsg(subnum,&last,0);
- if(-l>last)
- sub[subnum]->ptr=0;
- else
- sub[subnum]->ptr=last+l; }
-else if(reset)
- getlastmsg(subnum,&sub[subnum]->ptr,0);
-}
-
-
-/****************************************************************************/
-/* Process a QWK Config line */
-/****************************************************************************/
-void qwkcfgline(char *buf,uint subnum)
-{
- char str[128];
- int x,y;
- long l;
- ulong qwk=useron.qwk,last;
- file_t f;
-
-sprintf(str,"%.25s",buf);
-strupr(str);
-bprintf("\1n\r\n\1b\1hQWK Control [\1c%s\1b]: \1g%s\r\n"
- ,subnum==INVALID_SUB ? "Mail":sub[subnum]->qwkname,str);
-
-if(subnum!=INVALID_SUB) { /* Only valid in sub-boards */
-
- if(!strncmp(str,"DROP ",5)) { /* Drop from new-scan */
- l=atol(str+5);
- if(!l)
- sub[subnum]->misc&=~SUB_NSCAN;
- else {
- x=l/1000;
- y=l-(x*1000);
- if(x>=usrgrps || y>=usrsubs[x]) {
- bprintf(text[QWKInvalidConferenceN],l);
- sprintf(str,"Invalid conference number %lu",l);
- logline("Q!",str); }
- else
- sub[usrsub[x][y]]->misc&=~SUB_NSCAN; }
- return; }
-
- if(!strncmp(str,"ADD YOURS ",10)) { /* Add to new-scan */
- sub[subnum]->misc|=(SUB_NSCAN|SUB_YSCAN);
- qwksetptr(subnum,str+10,0);
- return; }
-
- else if(!strncmp(str,"YOURS ",6)) {
- sub[subnum]->misc|=(SUB_NSCAN|SUB_YSCAN);
- qwksetptr(subnum,str+6,0);
- return; }
-
- else if(!strncmp(str,"ADD ",4)) { /* Add to new-scan */
- sub[subnum]->misc|=SUB_NSCAN;
- sub[subnum]->misc&=~SUB_YSCAN;
- qwksetptr(subnum,str+4,0);
- return; }
-
- if(!strncmp(str,"RESET ",6)) { /* set msgptr */
- qwksetptr(subnum,str+6,1);
- return; }
-
- if(!strncmp(str,"SUBPTR ",7)) {
- qwksetptr(subnum,str+7,1);
- return; }
- }
-
-if(!strncmp(str,"RESETALL ",9)) { /* set all ptrs */
- for(x=0;x<usrgrps;x++)
- for(y=0;y<usrsubs[x];y++)
- if(sub[usrsub[x][y]]->misc&SUB_NSCAN)
- qwksetptr(usrsub[x][y],str+9,1); }
-
-else if(!strncmp(str,"ALLPTR ",7)) { /* set all ptrs */
- for(x=0;x<usrgrps;x++)
- for(y=0;y<usrsubs[x];y++)
- if(sub[usrsub[x][y]]->misc&SUB_NSCAN)
- qwksetptr(usrsub[x][y],str+7,1); }
-
-else if(!strncmp(str,"FILES ",6)) { /* files list */
- if(!strncmp(str+6,"ON ",3))
- useron.qwk|=QWK_FILES;
- else if(str[8]=='/' && str[11]=='/') { /* set scan date */
- useron.qwk|=QWK_FILES;
- ns_time=dstrtounix(str+6); }
- else
- useron.qwk&=~QWK_FILES; }
-
-else if(!strncmp(str,"OWN ",4)) { /* message from you */
- if(!strncmp(str+4,"ON ",3))
- useron.qwk|=QWK_BYSELF;
- else
- useron.qwk&=~QWK_BYSELF;
- return; }
-
-else if(!strncmp(str,"NDX ",4)) { /* include indexes */
- if(!strncmp(str+4,"OFF ",4))
- useron.qwk|=QWK_NOINDEX;
- else
- useron.qwk&=~QWK_NOINDEX; }
-
-else if(!strncmp(str,"CONTROL ",8)) { /* exclude ctrl files */
- if(!strncmp(str+8,"OFF ",4))
- useron.qwk|=QWK_NOCTRL;
- else
- useron.qwk&=~QWK_NOCTRL; }
-
-else if(!strncmp(str,"VIA ",4)) { /* include @VIA: */
- if(!strncmp(str+4,"ON ",3))
- useron.qwk|=QWK_VIA;
- else
- useron.qwk&=~QWK_VIA; }
-
-else if(!strncmp(str,"TZ ",3)) { /* include @TZ: */
- if(!strncmp(str+3,"ON ",3))
- useron.qwk|=QWK_TZ;
- else
- useron.qwk&=~QWK_TZ; }
-
-else if(!strncmp(str,"ATTACH ",7)) { /* file attachments */
- if(!strncmp(str+7,"ON ",3))
- useron.qwk|=QWK_ATTACH;
- else
- useron.qwk&=~QWK_ATTACH; }
-
-else if(!strncmp(str,"DELMAIL ",8)) { /* delete mail */
- if(!strncmp(str+8,"ON ",3))
- useron.qwk|=QWK_DELMAIL;
- else
- useron.qwk&=~QWK_DELMAIL; }
-
-else if(!strncmp(str,"CTRL-A ",7)) { /* Ctrl-a codes */
- if(!strncmp(str+7,"KEEP ",5)) {
- useron.qwk|=QWK_RETCTLA;
- useron.qwk&=~QWK_EXPCTLA; }
- else if(!strncmp(str+7,"EXPAND ",7)) {
- useron.qwk|=QWK_EXPCTLA;
- useron.qwk&=~QWK_RETCTLA; }
- else
- useron.qwk&=~(QWK_EXPCTLA|QWK_RETCTLA); }
-
-else if(!strncmp(str,"MAIL ",5)) { /* include e-mail */
- if(!strncmp(str+5,"ALL ",4)) {
- useron.qwk|=QWK_ALLMAIL;
- useron.qwk&=~QWK_EMAIL; }
- else if(!strncmp(str+5,"ON ",3)) {
- useron.qwk|=QWK_EMAIL;
- useron.qwk&=~QWK_ALLMAIL; }
- else
- useron.qwk&=~(QWK_ALLMAIL|QWK_EMAIL); }
-
-else if(!strncmp(str,"FREQ ",5)) { /* file request */
- padfname(str+5,f.name);
- strupr(f.name);
- for(x=0;x<usrlibs;x++) {
- for(y=0;y<usrdirs[x];y++)
- if(findfile(usrdir[x][y],f.name))
- break;
- if(y<usrdirs[x])
- break; }
- if(x>=usrlibs) {
- bprintf("\r\n%s",f.name);
- bputs(text[FileNotFound]); }
- else {
- f.dir=usrdir[x][y];
- getfileixb(&f);
- f.size=0;
- getfiledat(&f);
- if(f.size==-1L)
- bprintf(text[FileIsNotOnline],f.name);
- else
- addtobatdl(f); } }
-
-else bputs("\1r\1h\1iUnrecognized Control Command!\1n\r\n");
-
-if(qwk!=useron.qwk)
- putuserrec(useron.number,U_QWK,8,ultoa(useron.qwk,tmp,16));
-}
-
-
diff --git a/src/sbbs2/qwk.h b/src/sbbs2/qwk.h
deleted file mode 100644
index d1b48dcb701ad3443dfdffcfc3dce0e79face124..0000000000000000000000000000000000000000
--- a/src/sbbs2/qwk.h
+++ /dev/null
@@ -1,35 +0,0 @@
-/* QWK.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-typedef union {
- uchar uc[10];
- ushort ui[5];
- ulong ul[2];
- float f[2];
- double d[1]; } converter;
-
-#define LEN_QWKBUF 20000 /* 20k buffer for each message */
-#define TAGLINE (1<<5) /* Place tagline at end of qwk message */
-#define TO_QNET (1<<6) /* Sending to hub */
-#define REP (1<<7) /* It's a REP packet */
-#define VIA (1<<8) /* Include VIA */
-#define TZ (1<<9) /* Include TZ */
-
-void qwk_success(ulong msgcnt, char bi, char prepack);
-char pack_qwk(char *packet, ulong *msgcnt, int prepack);
-void unpack_qwk(char *packet, uint hubnum);
-char pack_rep(uint hubnum);
-void unpack_rep(void);
-void remove_ctrl_a(char *instr);
-ulong msgtoqwk(smbmsg_t msg, FILE *qwk_fp, int mode, int subnum
- , int conf);
-char qwktomsg(FILE *qwk_fp, uchar *hdrblk, char fromhub, uint subnum
- , uint touser);
-void qwkcfgline(char *buf,uint subnum);
-float ltomsbin(long val);
-int qwk_route(char *inaddr, char *fulladdr);
-int route_circ(char *via, char *id);
-void update_qwkroute(char *via);
-
-extern time_t qwkmail_time;
diff --git a/src/sbbs2/qwknodes/make.bat b/src/sbbs2/qwknodes/make.bat
deleted file mode 100755
index dc1d6ab6016d4faf43a6d74f993009a779bc84f8..0000000000000000000000000000000000000000
--- a/src/sbbs2/qwknodes/make.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -w-pro -N -ml -C -I..;..\smb;..\rio qwknodes.c ..\ars.c ..\scfglib1.c ..\scfgvars.c ..\smb\smblib.c
diff --git a/src/sbbs2/qwknodes/qwknodes.c b/src/sbbs2/qwknodes/qwknodes.c
deleted file mode 100644
index 2a063c32cc962bea97660a0ef4600861def1071b..0000000000000000000000000000000000000000
--- a/src/sbbs2/qwknodes/qwknodes.c
+++ /dev/null
@@ -1,500 +0,0 @@
-/* QWKNODES.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Generates QWKnet node list or ROUTE.DAT file from Synchronet message base */
-
-#include "sbbs.h"
-#include "crc32.h"
-#include "crc16.c"
-
-unsigned _stklen=10000;
-smb_t smb;
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct date date;
- struct time curtime;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- if(sys_misc&SM_EURODATE)
- sprintf(str,"%02u/%02u/%02u",date.da_day,date.da_mon
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900);
- else
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&O_RDONLY)
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&O_WRONLY)
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- uchar c;
-
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-void stripctrla(uchar *str)
-{
- uchar out[256];
- int i,j;
-
-for(i=j=0;str[i];i++) {
- if(str[i]==1)
- i++;
- else
- out[j++]=str[i]; }
-out[j]=0;
-strcpy(str,out);
-}
-
-
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stderr));
-}
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-void bail(int code)
-{
-exit(code);
-}
-
-
-char *loadmsgtail(smbmsg_t msg)
-{
- char *buf=NULL;
- ushort xlat;
- int i;
- long l=0,length;
-
-for(i=0;i<msg.hdr.total_dfields;i++) {
- if(msg.dfield[i].type!=TEXT_TAIL)
- continue;
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,smb.sdt_fp);
- if(xlat!=XLAT_NONE) /* no translations supported */
- continue;
- length=msg.dfield[i].length-2;
- if((buf=REALLOC(buf,l+msg.dfield[i].length+1))==NULL)
- return(buf);
- l+=fread(buf+l,1,length,smb.sdt_fp);
- buf[l]=0; }
-return(buf);
-}
-
-
-void gettag(smbmsg_t msg, char *tag)
-{
- char *buf,*p;
-
-tag[0]=0;
-buf=loadmsgtail(msg);
-if(buf==NULL)
- return;
-truncsp(buf);
-stripctrla(buf);
-p=strrchr(buf,LF);
-if(!p) p=buf;
-else p++;
-if(!strnicmp(p," � Synchronet � ",16))
- p+=16;
-if(!strnicmp(p," * Synchronet * ",16))
- p+=16;
-while(*p && *p<=SP) p++;
-strcpy(tag,p);
-FREE(buf);
-}
-
-
-#define FEED (1<<0)
-#define LOCAL (1<<1)
-#define APPEND (1<<2)
-#define TAGS (1<<3)
-
-#define ROUTE (1<<1)
-#define NODES (1<<2)
-#define USERS (1<<3)
-
-char *usage="\nusage: qwknodes [/opts] cmds"
- "\n"
- "\n cmds: r = create ROUTE.DAT"
- "\n u = create USERS.DAT"
- "\n n = create NODES.DAT"
- "\n"
- "\n opts: f = format addresses for nodes that feed from this system"
- "\n a = append existing output files"
- "\n t = include tag lines in NODES.DAT"
- "\n l = include local users in USERS.DAT"
- "\n m# = maximum message age set to # days"
- "\n";
-
-void main(int argc, char **argv)
-{
- char str[256],tmp[128],tag[256],addr[256],*p;
- int i,j,mode=0,cmd=0,o_mode,max_age=0;
- ushort smm,sbl;
- ulong *crc=NULL,curcrc,total_crcs=0,l;
- FILE *route,*users,*nodes;
- time_t now;
- read_cfg_text_t txt;
- smbstatus_t status;
- smbmsg_t msg;
-
-txt.openerr="\7\r\nError opening %s for read.\r\n";
-txt.reading="\r\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\r\nError allocating %u bytes of memory\r\n";
-txt.error="\7\r\nERROR: Offset %lu in %s\r\n\r\n";
-
-fprintf(stderr,"\nSynchronet QWKnet Node/Route/User List v1.20 "
- "Developed 1995-1997 Rob Swindell\n");
-
-
-for(i=1;i<argc;i++)
- for(j=0;argv[i][j];j++)
- switch(toupper(argv[i][j])) {
- case '/':
- case '-':
- while(argv[i][++j])
- switch(toupper(argv[i][j])) {
- case 'F':
- mode|=FEED;
- break;
- case 'L':
- mode|=LOCAL;
- break;
- case 'A':
- mode|=APPEND;
- break;
- case 'T':
- mode|=TAGS;
- break;
- case 'M':
- j++;
- max_age=atoi(argv[i]+j);
- while(isdigit(argv[i][j+1])) j++;
- break;
- default:
- printf(usage);
- exit(1); }
- j--;
- break;
- case 'R':
- cmd|=ROUTE;
- break;
- case 'U':
- cmd|=USERS;
- break;
- case 'N':
- cmd|=NODES;
- break;
- default:
- printf(usage);
- exit(1); }
-
-if(!cmd) {
- printf(usage);
- exit(1); }
-
-if(mode&APPEND)
- o_mode=O_WRONLY|O_CREAT|O_APPEND;
-else
- o_mode=O_WRONLY|O_CREAT|O_TRUNC;
-
-if(cmd&NODES)
- if((nodes=fnopen(&i,"NODES.DAT",o_mode))==NULL) {
- printf("\7\nError opening NODES.DAT\n");
- exit(1); }
-
-if(cmd&USERS)
- if((users=fnopen(&i,"USERS.DAT",o_mode))==NULL) {
- printf("\7\nError opening USERS.DAT\n");
- exit(1); }
-
-if(cmd&ROUTE)
- if((route=fnopen(&i,"ROUTE.DAT",o_mode))==NULL) {
- printf("\7\nError opening ROUTE.DAT\n");
- exit(1); }
-
-if(!node_dir[0]) {
- p=getenv("SBBSNODE");
- if(p==NULL) {
- printf("\7\nSBBSNODE environment variable not set.\n");
- exit(1); }
- strcpy(node_dir,p); }
-
-strupr(node_dir);
-
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str);
- if(_fullpath(str,ctrl_dir,40))
- strcpy(ctrl_dir,str); }
-backslash(ctrl_dir);
-
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str);
- if(_fullpath(str,data_dir,40))
- strcpy(data_dir,str); }
-backslash(data_dir);
-read_msgs_cfg(txt);
-
-now=time(NULL);
-smm=crc16("smm");
-sbl=crc16("sbl");
-fprintf(stderr,"\n\n");
-for(i=0;i<total_subs;i++) {
- if(!(sub[i]->misc&SUB_QNET))
- continue;
- fprintf(stderr,"%-*s %s\n"
- ,LEN_GSNAME,grp[sub[i]->grp]->sname,sub[i]->lname);
- sprintf(smb.file,"%s%s",sub[i]->data_dir,sub[i]->code);
- smb.retry_time=30;
- if((j=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",j);
- continue; }
- if((j=smb_locksmbhdr(&smb))!=0) {
- printf("smb_locksmbhdr returned %d\n",j);
- smb_close(&smb);
- continue; }
- if((j=smb_getstatus(&smb))!=0) {
- printf("smb_getstatus returned %d\n",j);
- smb_close(&smb);
- continue; }
- smb_unlocksmbhdr(&smb);
- msg.offset=status.total_msgs;
- if(!msg.offset) {
- smb_close(&smb);
- printf("Empty.\n");
- continue; }
- while(!kbhit() && !ferror(smb.sid_fp) && msg.offset) {
- msg.offset--;
- fseek(smb.sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
- break;
- fprintf(stderr,"%-5lu\r",msg.offset+1);
- if(msg.idx.to==smm || msg.idx.to==sbl)
- continue;
- if(max_age && now-msg.idx.time>((ulong)max_age*24UL*60UL*60UL))
- continue;
- if((j=smb_lockmsghdr(&smb,&msg))!=0) {
- printf("smb_lockmsghdr returned %d\n",j);
- break; }
- if((j=smb_getmsghdr(&smb,&msg))!=0) {
- printf("smb_getmsghdr returned %d\n",j);
- break; }
- smb_unlockmsghdr(&smb,&msg);
- if((mode&LOCAL && msg.from_net.type==NET_NONE)
- || msg.from_net.type==NET_QWK) {
- if(msg.from_net.type!=NET_QWK)
- msg.from_net.addr="";
- if(cmd&USERS) {
- sprintf(str,"%s%s",msg.from_net.addr,msg.from);
- curcrc=crc32(str); }
- else
- curcrc=crc32(msg.from_net.addr);
- for(l=0;l<total_crcs;l++)
- if(curcrc==crc[l])
- break;
- if(l==total_crcs) {
- total_crcs++;
- if((crc=(ulong *)REALLOC(crc
- ,sizeof(ulong)*total_crcs))==NULL) {
- printf("Error allocating %lu bytes\n"
- ,sizeof(ulong)*total_crcs);
- break; }
- crc[l]=curcrc;
- if(cmd&ROUTE && msg.from_net.type==NET_QWK) {
- strcpy(addr,msg.from_net.addr);
- if(mode&FEED) {
- p=strrchr(addr,'/');
- if(!p)
- p=addr;
- else
- *(p++)=0;
- sprintf(str,"%s %s:%s%c%s"
- ,unixtodstr(msg.hdr.when_written.time,tmp)
- ,p,sys_id,p==addr ? 0 : '/'
- ,addr);
- fprintf(route,"%s\r\n",str); }
- else {
- p=strrchr(addr,'/');
- if(p) {
- *(p++)=0;
- fprintf(route,"%s %s:%.*s\r\n"
- ,unixtodstr(msg.hdr.when_written.time,str)
- ,p
- ,(uint)(p-addr)
- ,addr); } } }
- if(cmd&USERS) {
- if(msg.from_net.type!=NET_QWK)
- strcpy(str,sys_id);
- else if(mode&FEED)
- sprintf(str,"%s/%s",sys_id,msg.from_net.addr);
- else
- strcpy(str,msg.from_net.addr);
- p=strrchr(str,'/');
- if(p)
- fprintf(users,"%-25.25s %-8.8s %s (%s)\r\n"
- ,msg.from,p+1
- ,unixtodstr(msg.hdr.when_written.time,tmp)
- ,str);
- else
- fprintf(users,"%-25.25s %-8.8s %s\r\n"
- ,msg.from,str
- ,unixtodstr(msg.hdr.when_written.time,tmp)); }
- if(cmd&NODES && msg.from_net.type==NET_QWK) {
- if(mode&TAGS)
- gettag(msg,tag);
- if(mode&FEED)
- sprintf(str,"%s/%s",sys_id,msg.from_net.addr);
- else
- strcpy(str,msg.from_net.addr);
- p=strrchr(str,'/');
- if(p) {
- if(mode&TAGS)
- fprintf(nodes,"%-8.8s %s\r\n"
- ,p+1
- ,tag);
- else
- fprintf(nodes,"%-8.8s %s (%s)\r\n"
- ,p+1
- ,unixtodstr(msg.hdr.when_written.time,tmp)
- ,str); }
- else
- fprintf(nodes,"%-8.8s %s\r\n"
- ,str
- ,mode&TAGS
- ? tag
- : unixtodstr(msg.hdr.when_written.time,tmp)); }
- } }
- smb_freemsgmem(&msg); }
-
- smb_close(&smb);
- if(kbhit()) {
- getch();
- fprintf(stderr,"Key pressed.\n");
- break; } }
-fprintf(stderr,"Done.\n");
-}
-
diff --git a/src/sbbs2/qwktomsg.c b/src/sbbs2/qwktomsg.c
deleted file mode 100644
index e3d43dd12b797b0688c869a7f4fd5ad6939abd71..0000000000000000000000000000000000000000
--- a/src/sbbs2/qwktomsg.c
+++ /dev/null
@@ -1,350 +0,0 @@
-#line 1 "QWKTOMSG.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "qwk.h"
-
-/****************************************************************************/
-/* Converts a QWK message packet into a message. The 'qwkbuf' pointer */
-/* points to the message header and 'str' is the file to output to. */
-/* Returns the 1 on success or 0 if failure. */
-/****************************************************************************/
-char qwktomsg(FILE *qwk_fp, uchar *hdrblk, char fromhub, uint subnum
- , uint touser)
-{
- uchar str[256],*body,*tail,col=0,lastch=0,*p,*lzhbuf,qwkbuf[128];
- int file,i,j,k,lzh=0,storage,skip=0;
- ushort xlat;
- long l,bodylen,taillen,length;
- ulong crc,block,blocks;
- smbmsg_t msg;
-
-memset(&msg,0,sizeof(smbmsg_t)); /* Initialize message header */
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=smb_ver();
-
-blocks=atol(hdrblk+116);
-if(blocks<2)
- return(0);
-
-if(subnum!=INVALID_SUB
- && (hdrblk[0]=='*' || hdrblk[0]=='+' || sub[subnum]->misc&SUB_PONLY))
- msg.idx.attr|=MSG_PRIVATE;
-if(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_AONLY)
- msg.idx.attr|=MSG_ANONYMOUS;
-if(subnum==INVALID_SUB && sys_misc&SM_DELREADM)
- msg.idx.attr|=MSG_KILLREAD;
-if((fromhub || useron.rest&FLAG('Q')) &&
- (hdrblk[0]=='*' || hdrblk[0]=='-' || hdrblk[0]=='`'))
- msg.idx.attr|=MSG_READ;
-
-if(subnum!=INVALID_SUB && !fromhub && sub[subnum]->mod_ar[0]
- && chk_ar(sub[subnum]->mod_ar,useron))
- msg.idx.attr|=MSG_MODERATED;
-if(subnum!=INVALID_SUB && !fromhub && sub[subnum]->misc&SUB_SYSPERM
- && sub_op(subnum))
- msg.idx.attr|=MSG_PERMANENT;
-
-msg.hdr.attr=msg.idx.attr;
-
-date.da_mon=((hdrblk[8]&0xf)*10)+(hdrblk[9]&0xf);
-date.da_day=((hdrblk[11]&0xf)*10)+(hdrblk[12]&0xf);
-date.da_year=((hdrblk[14]&0xf)*10)+(hdrblk[15]&0xf);
-if(date.da_year<Y2K_2DIGIT_WINDOW)
- date.da_year+=100;
-date.da_year+=1900;
-curtime.ti_hour=((hdrblk[16]&0xf)*10)+(hdrblk[17]&0xf);
-curtime.ti_min=((hdrblk[19]&0xf)*10)+(hdrblk[20]&0xf);
-curtime.ti_sec=0;
-msg.hdr.when_written.time=dostounix(&date,&curtime);
-if(!(useron.rest&FLAG('Q')) && !fromhub)
- msg.hdr.when_written.zone=sys_timezone;
-msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_imported.zone=sys_timezone;
-
-hdrblk[116]=0; /* don't bleed number-of-blocks and re-msg-num fields together */
-msg.hdr.thread_orig=atol(hdrblk+108);
-
-if((uint)subnum==INVALID_SUB) { /* E-mail */
- msg.idx.to=touser;
-
-/*** Unnecessary code in v2.10a
- if(!touser) {
- sprintf(str,"%25.25s",hdrblk+21);
- truncsp(str);
- for(i=0;i<total_qhubs;i++)
- if(!stricmp(qhub[i]->id,str))
- break;
- if(i==total_qhubs) {
- errormsg(WHERE,ERR_CHK,str,0);
- return(0); }
- smb_hfield(&msg,RECIPIENT,strlen(str),str); }
- else {
-***/
- username(touser,str);
- smb_hfield(&msg,RECIPIENT,strlen(str),str);
- sprintf(str,"%u",touser);
- smb_hfield(&msg,RECIPIENTEXT,strlen(str),str); }
-
-else {
- sprintf(str,"%25.25s",hdrblk+21); /* To user */
- truncsp(str);
- smb_hfield(&msg,RECIPIENT,strlen(str),str);
- strlwr(str);
- msg.idx.to=crc16(str); }
-
-fread(qwkbuf,1,128,qwk_fp);
-
-if(useron.rest&FLAG('Q') || fromhub) { /* QWK Net */
- if(!strnicmp(qwkbuf,"@VIA:",5)) {
- p=strchr(qwkbuf,'\xe3');
- if(p) {
- *p=0;
- skip=strlen(qwkbuf)+1; }
- truncsp(qwkbuf);
- p=qwkbuf+5; /* Skip "@VIA:" */
- while(*p && *p<=SP) p++; /* Skip any spaces */
- if(route_circ(p,sys_id)) {
- smb_freemsgmem(&msg);
- bprintf("\r\nCircular message path: %s\r\n",p);
- sprintf(str,"Circular message path: %s from %s"
- ,p,fromhub ? qhub[fromhub-1]->id:useron.alias);
- errorlog(str);
- return(0); }
- sprintf(str,"%s/%s"
- ,fromhub ? qhub[fromhub-1]->id : useron.alias,p);
- strupr(str);
- update_qwkroute(str); }
- else {
- if(fromhub)
- strcpy(str,qhub[fromhub-1]->id);
- else
- strcpy(str,useron.alias); }
- strupr(str);
- j=NET_QWK;
- smb_hfield(&msg,SENDERNETTYPE,2,&j);
- smb_hfield(&msg,SENDERNETADDR,strlen(str),str);
- sprintf(str,"%25.25s",hdrblk+46); /* From user */
- truncsp(str);
- if(!strnicmp(qwkbuf+skip,"@TZ:",4)) {
- p=strchr(qwkbuf+skip,'\xe3');
- i=skip;
- if(p) {
- *p=0;
- skip+=strlen(qwkbuf+i)+1; }
- p=qwkbuf+i+4; /* Skip "@TZ:" */
- while(*p && *p<=SP) p++; /* Skip any spaces */
- msg.hdr.when_written.zone=(short)ahtoul(p); }
- }
-else {
- sprintf(str,"%u",useron.number);
- smb_hfield(&msg,SENDEREXT,strlen(str),str);
- if((uint)subnum!=INVALID_SUB && sub[subnum]->misc&SUB_NAME)
- strcpy(str,useron.name);
- else
- strcpy(str,useron.alias); }
-
-smb_hfield(&msg,SENDER,strlen(str),str);
-if((uint)subnum==INVALID_SUB) {
- if(useron.rest&FLAG('Q') || fromhub)
- msg.idx.from=0;
- else
- msg.idx.from=useron.number; }
-else {
- strlwr(str);
- msg.idx.from=crc16(str); }
-
-sprintf(str,"%25.25s",hdrblk+71); /* Subject */
-truncsp(str);
-remove_re(str);
-smb_hfield(&msg,SUBJECT,strlen(str),str);
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-/********************************/
-/* Convert the QWK message text */
-/********************************/
-
-bodylen=0;
-if((body=LMALLOC((blocks-1L)*128L*2L))==NULL) {
- smb_freemsgmem(&msg);
- errormsg(WHERE,ERR_ALLOC,"QWK msg",(blocks-1L)*128L*2L);
- return(0); }
-
-taillen=0;
-if((tail=LMALLOC((blocks-1L)*128L))==NULL) {
- LFREE(body);
- smb_freemsgmem(&msg);
- errormsg(WHERE,ERR_ALLOC,"QWK msg",(blocks-1L)*128L);
- return(0); }
-
-for(block=1;block<blocks;block++) {
- if(block>1)
- if(!fread(qwkbuf,1,128,qwk_fp))
- break;
- for(k=skip;k<128;k++,skip=0) {
- if(qwkbuf[k]==0)
- continue;
- if(!taillen && qwkbuf[k]==SP && col==3 && bodylen>=3
- && body[bodylen-3]=='-' && body[bodylen-2]=='-'
- && body[bodylen-1]=='-') {
- bodylen-=3;
- strcpy(tail,"--- ");
- taillen=4;
- col++;
- continue; }
- if(qwkbuf[k]==0xE3) { /* expand 0xe3 to crlf */
- if(!taillen && col==3 && bodylen>=3 && body[bodylen-3]=='-'
- && body[bodylen-2]=='-' && body[bodylen-1]=='-') {
- bodylen-=3;
- strcpy(tail,"---");
- taillen=3; }
- col=0;
- if(taillen) {
- tail[taillen++]=CR;
- tail[taillen++]=LF; }
- else {
- body[bodylen++]=CR;
- body[bodylen++]=LF; }
- continue; }
- if(!fromhub && qwkbuf[k]==7 && useron.rest&FLAG('B')) /* beep res */
- continue;
- if(!fromhub && (qwkbuf[k]==1 || qwkbuf[k]==ESC) /* ANSI restriction */
- && useron.rest&FLAG('A'))
- continue;
- if(qwkbuf[k]!=1 && lastch!=1)
- col++;
- if(lastch==1 && !validattr(qwkbuf[k])) {
- if(taillen) taillen--;
- else bodylen--;
- lastch=0;
- continue; }
- lastch=qwkbuf[k];
- if(taillen)
- tail[taillen++]=qwkbuf[k];
- else
- body[bodylen++]=qwkbuf[k]; } }
-
-while(bodylen && body[bodylen-1]==SP) bodylen--; /* remove trailing spaces */
-if(bodylen>=2 && body[bodylen-2]==CR && body[bodylen-1]==LF)
- bodylen-=2;
-
-while(taillen && tail[taillen-1]<=SP) taillen--; /* remove trailing garbage */
-
-/*****************/
-/* Calculate CRC */
-/*****************/
-
-if(smb.status.max_crcs) {
- crc=0xffffffffUL;
- for(l=0;l<bodylen;l++)
- crc=ucrc32(body[l],crc);
- crc=~crc;
-
- /*******************/
- /* Check for dupes */
- /*******************/
-
- j=smb_addcrc(&smb,crc);
- if(j) {
- if(j==1) {
- bprintf("\r\nDuplicate message\r\n");
- logline(subnum==INVALID_SUB ? "E!":"P!","Duplicate message"); }
- else
- errormsg(WHERE,ERR_CHK,smb.file,j);
-
- smb_freemsgmem(&msg);
- LFREE(body);
- LFREE(tail);
- return(0); } }
-
-bputs(text[WritingIndx]);
-
-/*************************************/
-/* Write SMB message header and text */
-/*************************************/
-
-if(subnum!=INVALID_SUB && sub[subnum]->misc&SUB_LZH && bodylen
- && bodylen+2+taillen+2>=SDT_BLOCK_LEN
- && (lzhbuf=(char *)LMALLOC(bodylen*2))!=NULL) {
- length=lzh_encode((uchar *)body,bodylen,(uchar *)lzhbuf);
- if(length>1L
- && smb_datblocks(length+4L+taillen+2L)
- <smb_datblocks(bodylen+2L+taillen+2L)) {
- bodylen=length; /* Compressable */
- length+=4L;
- lzh=1;
- LFREE(body);
- body=lzhbuf; }
- else { /* Non-compressable */
- length=bodylen+2L;
- LFREE(lzhbuf); } }
-else
- length=bodylen+2L; /* +2 for translation string */
-
-if(taillen)
- length+=taillen+2L;
-
-if(length&0xfff00000UL) {
- errormsg(WHERE,ERR_LEN,"REP msg",length);
- smb_freemsgmem(&msg);
- LFREE(body);
- LFREE(tail);
- return(0); }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- FREE(body);
- FREE(tail);
- return(0); }
-
-if(smb.status.attr&SMB_HYPERALLOC) {
- msg.hdr.offset=smb_hallocdat(&smb);
- storage=SMB_HYPERALLOC; }
-else {
- if((i=smb_open_da(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- FREE(body);
- FREE(tail);
- return(0); }
- if((subnum==INVALID_SUB && sys_misc&SM_FASTMAIL)
- || (subnum!=INVALID_SUB && sub[subnum]->misc&SUB_FAST)) {
- msg.hdr.offset=smb_fallocdat(&smb,length,1);
- storage=SMB_FASTALLOC; }
- else {
- msg.hdr.offset=smb_allocdat(&smb,length,1);
- storage=SMB_SELFPACK; }
- smb_close_da(&smb); }
-
-if(msg.hdr.offset && msg.hdr.offset<1L) {
- smb_unlocksmbhdr(&smb);
- errormsg(WHERE,ERR_READ,smb.file,msg.hdr.offset);
- smb_freemsgmem(&msg);
- FREE(body);
- FREE(tail); }
-fseek(smb.sdt_fp,msg.hdr.offset,SEEK_SET);
-if(lzh) {
- xlat=XLAT_LZH;
- fwrite(&xlat,2,1,smb.sdt_fp); }
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-fwrite(body,bodylen,1,smb.sdt_fp);
-smb_dfield(&msg,TEXT_BODY,bodylen+2+(lzh ? 2:0));
-if(taillen) {
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(tail,taillen,1,smb.sdt_fp);
- smb_dfield(&msg,TEXT_TAIL,taillen+2); }
-fflush(smb.sdt_fp);
-smb_unlocksmbhdr(&smb);
-
-if((i=smb_addmsghdr(&smb,&msg,storage))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
-
-smb_freemsgmem(&msg);
-
-LFREE(body);
-LFREE(tail);
-
-return(1);
-}
diff --git a/src/sbbs2/readmsgs.c b/src/sbbs2/readmsgs.c
deleted file mode 100644
index ceaa73bc29d9558f372219ccc28205b16325c14c..0000000000000000000000000000000000000000
--- a/src/sbbs2/readmsgs.c
+++ /dev/null
@@ -1,1070 +0,0 @@
-#line 1 "READMSGS.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "post.h"
-
-char movemsg(smbmsg_t msg, uint subnum);
-void editmsg(smbmsg_t *msg, uint subnum);
-
-int sub_op(uint subnum)
-{
-return(SYSOP || (sub[subnum]->op_ar[0] && chk_ar(sub[subnum]->op_ar,useron)));
-}
-
-
-void listmsgs(int subnum, post_t HUGE16 *post, long i, long posts)
-{
- char ch;
- int j;
- smbmsg_t msg;
-
-
-bputs(text[MailOnSystemLstHdr]);
-msg.total_hfields=0;
-while(i<posts && !msgabort()) {
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=post[i].offset;
- if(!loadmsg(&msg,post[i].number))
- break;
- smb_unlockmsghdr(&smb,&msg);
- if(msg.hdr.attr&MSG_DELETE)
- ch='-';
- else if((!stricmp(msg.to,useron.alias) || !stricmp(msg.to,useron.name))
- && !(msg.hdr.attr&MSG_READ))
- ch='!';
- else if(msg.hdr.number>sub[subnum]->ptr)
- ch='*';
- else
- ch=' ';
- bprintf(text[SubMsgLstFmt],(long)i+1
- ,msg.hdr.attr&MSG_ANONYMOUS && !sub_op(subnum)
- ? text[Anonymous] : msg.from
- ,msg.to
- ,ch
- ,msg.subj);
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- i++; }
-}
-
-char *binstr(uchar *buf, ushort length)
-{
- static char str[128];
- char tmp[128];
- int i;
-
-str[0]=0;
-for(i=0;i<length;i++)
- if(buf[i] && (buf[i]<SP || buf[i]>=0x7f))
- break;
-if(i==length) /* not binary */
- return(buf);
-for(i=0;i<length;i++) {
- sprintf(tmp,"%02X ",buf[i]);
- strcat(str,tmp); }
-return(str);
-}
-
-
-void msghdr(smbmsg_t msg)
-{
- int i;
-
-for(i=0;i<msg.total_hfields;i++)
- bprintf("hfield[%u].type %02Xh\r\n"
- "hfield[%u].length %d\r\n"
- "hfield[%u]_dat %s\r\n"
- ,i,msg.hfield[i].type
- ,i,msg.hfield[i].length
- ,i,binstr(msg.hfield_dat[i],msg.hfield[i].length));
-}
-
-/****************************************************************************/
-/****************************************************************************/
-post_t HUGE16 *loadposts(ulong *posts, uint subnum, ulong ptr, uint mode)
-{
- char name[128];
- ushort aliascrc,namecrc,sysop;
- int i,file,skip;
- ulong l=0,total,alloc_len;
- smbmsg_t msg;
- idxrec_t idx;
- post_t HUGE16 *post;
-
-if(posts==NULL)
- return(NULL);
-
-(*posts)=0;
-
-if((i=smb_locksmbhdr(&smb))!=0) { /* Be sure noone deletes or */
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* adds while we're reading */
- return(NULL); }
-
-total=filelength(fileno(smb.sid_fp))/sizeof(idxrec_t); /* total msgs in sub */
-
-if(!total) { /* empty */
- smb_unlocksmbhdr(&smb);
- return(NULL); }
-
-strcpy(name,useron.name);
-strlwr(name);
-namecrc=crc16(name);
-strcpy(name,useron.alias);
-strlwr(name);
-aliascrc=crc16(name);
-sysop=crc16("sysop");
-
-rewind(smb.sid_fp);
-
-alloc_len=sizeof(post_t)*total;
-#ifdef __OS2__
- while(alloc_len%4096)
- alloc_len++;
-#endif
-if((post=(post_t HUGE16 *)LMALLOC(alloc_len))==NULL) { /* alloc for max */
- smb_unlocksmbhdr(&smb);
- errormsg(WHERE,ERR_ALLOC,smb.file,sizeof(post_t *)*sub[subnum]->maxmsgs);
- return(NULL); }
-while(!feof(smb.sid_fp)) {
- skip=0;
- if(!fread(&idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
-
- if(idx.number<=ptr)
- continue;
-
- if(idx.attr&MSG_READ && mode&LP_UNREAD) /* Skip read messages */
- continue;
-
- if(idx.attr&MSG_DELETE) { /* Pre-flagged */
- if(mode&LP_REP) /* Don't include deleted msgs in REP pkt */
- continue;
- if(!(sys_misc&SM_SYSVDELM)) /* Noone can view deleted msgs */
- continue;
- if(!(sys_misc&SM_USRVDELM) /* Users can't view deleted msgs */
- && !sub_op(subnum)) /* not sub-op */
- continue;
- if(!sub_op(subnum) /* not sub-op */
- && idx.from!=namecrc && idx.from!=aliascrc) /* not for you */
- continue; }
-
- if(idx.attr&MSG_MODERATED && !(idx.attr&MSG_VALIDATED)
- && (mode&LP_REP || !sub_op(subnum)))
- break;
-
- if(idx.attr&MSG_PRIVATE && !(mode&LP_PRIVATE)
- && !sub_op(subnum) && !(useron.rest&FLAG('Q'))) {
- if(idx.to!=namecrc && idx.from!=namecrc
- && idx.to!=aliascrc && idx.from!=aliascrc
- && (useron.number!=1 || idx.to!=sysop))
- continue;
- if(!smb_lockmsghdr(&smb,&msg)) {
- if(!smb_getmsghdr(&smb,&msg)) {
- if(stricmp(msg.to,useron.alias)
- && stricmp(msg.from,useron.alias)
- && stricmp(msg.to,useron.name)
- && stricmp(msg.from,useron.name)
- && (useron.number!=1 || stricmp(msg.to,"sysop")
- || msg.from_net.type))
- skip=1;
- smb_freemsgmem(&msg); }
- smb_unlockmsghdr(&smb,&msg); }
- if(skip)
- continue; }
-
-
- if(!(mode&LP_BYSELF) && (idx.from==namecrc || idx.from==aliascrc)) {
- msg.idx=idx;
- if(!smb_lockmsghdr(&smb,&msg)) {
- if(!smb_getmsghdr(&smb,&msg)) {
- if(!stricmp(msg.from,useron.alias)
- || !stricmp(msg.from,useron.name))
- skip=1;
- smb_freemsgmem(&msg); }
- smb_unlockmsghdr(&smb,&msg); }
- if(skip)
- continue; }
-
- if(!(mode&LP_OTHERS)) {
- if(idx.to!=namecrc && idx.to!=aliascrc
- && (useron.number!=1 || idx.to!=sysop))
- continue;
- msg.idx=idx;
- if(!smb_lockmsghdr(&smb,&msg)) {
- if(!smb_getmsghdr(&smb,&msg)) {
- if(stricmp(msg.to,useron.alias) && stricmp(msg.to,useron.name)
- && (useron.number!=1 || stricmp(msg.to,"sysop")
- || msg.from_net.type))
- skip=1;
- smb_freemsgmem(&msg); }
- smb_unlockmsghdr(&smb,&msg); }
- if(skip)
- continue; }
-
- post[l].offset=idx.offset;
- post[l].number=idx.number;
- post[l].to=idx.to;
- post[l].from=idx.from;
- post[l].subj=idx.subj;
- l++; }
-smb_unlocksmbhdr(&smb);
-if(!l) {
- LFREE(post);
- post=NULL; }
-(*posts)=l;
-return(post);
-}
-
-
-/****************************************************************************/
-/* Reads posts on subboard sub. 'mode' determines new-posts only, browse, */
-/* or continuous read. */
-/* Returns 0 if normal completion, 1 if aborted. */
-/* Called from function main_sec */
-/****************************************************************************/
-char scanposts(uint subnum, char mode, char *find)
-{
- char str[256],str2[256],str3[256],reread=0,mismatches=0
- ,done=0,domsg=1,HUGE16 *buf,*p;
- int file,i,j,usub,ugrp,reads=0;
- uint lp=0;
- long curpost;
- ulong msgs,last,posts,l;
- post_t HUGE16 *post;
- smbmsg_t msg;
-
-cursubnum=subnum; /* for ARS */
-if(!chk_ar(sub[subnum]->read_ar,useron)) {
- bprintf("\1n\r\nYou can't read messages on %s %s\r\n"
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->sname);
- return(0); }
-msg.total_hfields=0; /* init to NULL, specify not-allocated */
-if(!(mode&SCAN_CONST))
- lncntr=0;
-if((msgs=getlastmsg(subnum,&last,0))==0) {
- if(mode&(SCAN_NEW|SCAN_TOYOU))
- bprintf(text[NScanStatusFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,0L,0L);
- else
- bprintf(text[NoMsgsOnSub]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->sname);
- return(0); }
-if(mode&SCAN_NEW && sub[subnum]->ptr>=last && !(mode&SCAN_BACK)) {
- if(sub[subnum]->ptr>last)
- sub[subnum]->ptr=sub[subnum]->last=last;
- bprintf(text[NScanStatusFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,0L,msgs);
- return(0); }
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,sub[subnum]->code,i);
- return(0); }
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-if(!(mode&SCAN_TOYOU)
- && (!mode || mode&SCAN_FIND || !(sub[subnum]->misc&SUB_YSCAN)))
- lp=LP_BYSELF|LP_OTHERS;
-if(mode&SCAN_TOYOU)
- lp|=LP_UNREAD;
-post=loadposts(&posts,subnum,0,lp);
-if(mode&SCAN_NEW) { /* Scanning for new messages */
- for(curpost=0;curpost<posts;curpost++)
- if(sub[subnum]->ptr<post[curpost].number)
- break;
- bprintf(text[NScanStatusFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,posts-curpost,msgs);
- if(!posts) { /* no messages at all */
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return(0); }
- if(curpost==posts) { /* no new messages */
- if(!(mode&SCAN_BACK)) {
- if(post)
- LFREE(post);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return(0); }
- curpost=posts-1; } }
-else {
- if(mode&SCAN_TOYOU)
- bprintf(text[NScanStatusFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,posts,msgs);
- if(!posts) {
- if(!(mode&SCAN_TOYOU))
- bprintf(text[NoMsgsOnSub]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->sname);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return(0); }
- if(mode&SCAN_FIND) {
- bprintf(text[SearchSubFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,posts);
- domsg=1;
- curpost=0; }
- else if(mode&SCAN_TOYOU)
- curpost=0;
- else {
- for(curpost=0;curpost<posts;curpost++)
- if(post[curpost].number>=sub[subnum]->last)
- break;
- if(curpost==posts)
- curpost=posts-1;
-
- domsg=1; } }
-
-if(useron.misc&RIP)
- menu("MSGSCAN");
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-if((i=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(0); }
-smb_unlocksmbhdr(&smb);
-last=smb.status.last_msg;
-
-action=NODE_RMSG;
-if(mode&SCAN_CONST) { /* update action */
- getnodedat(node_num,&thisnode,1);
- thisnode.action=NODE_RMSG;
- putnodedat(node_num,thisnode); }
-while(online && !done) {
-
- action=NODE_RMSG;
- if((i=heapcheck())!=_HEAPOK) {
- errormsg(WHERE,ERR_CHK,"heap",i);
- break; }
-
- if(mode&(SCAN_CONST|SCAN_FIND) && sys_status&SS_ABORT)
- break;
-
- if(post==NULL) /* Been unloaded */
- post=loadposts(&posts,subnum,0,lp); /* So re-load */
-
- if(!posts) {
- done=1;
- continue; }
-
- while(curpost>=posts) curpost--;
-
- for(ugrp=0;ugrp<usrgrps;ugrp++)
- if(usrgrp[ugrp]==sub[subnum]->grp)
- break;
- for(usub=0;usub<usrsubs[ugrp];usub++)
- if(usrsub[ugrp][usub]==subnum)
- break;
- usub++;
- ugrp++;
-
- msg.idx.offset=post[curpost].offset;
- msg.idx.number=post[curpost].number;
- msg.idx.to=post[curpost].to;
- msg.idx.from=post[curpost].from;
- msg.idx.subj=post[curpost].subj;
-
- if((i=smb_locksmbhdr(&smb))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- break; }
- if((i=smb_getstatus(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- break; }
- smb_unlocksmbhdr(&smb);
-
- if(smb.status.last_msg!=last) { /* New messages */
- last=smb.status.last_msg;
- if(post) {
- LFREE((void *)post); }
- post=loadposts(&posts,subnum,0,lp); /* So re-load */
- if(!posts)
- break;
- for(curpost=0;curpost<posts;curpost++)
- if(post[curpost].number==msg.idx.number)
- break;
- if(curpost>(posts-1))
- curpost=(posts-1);
- continue; }
-
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
-
- if(!loadmsg(&msg,post[curpost].number)) {
- if(mismatches>5) { /* We can't do this too many times in a row */
- errormsg(WHERE,ERR_CHK,smb.file,post[curpost].number);
- break; }
- if(post)
- LFREE(post);
- post=loadposts(&posts,subnum,0,lp);
- if(!posts)
- break;
- if(curpost>(posts-1))
- curpost=(posts-1);
- mismatches++;
- continue; }
- smb_unlockmsghdr(&smb,&msg);
-
- mismatches=0;
-
- if(domsg) {
-
- if(!reread && mode&SCAN_FIND) { /* Find text in messages */
- buf=smb_getmsgtxt(&smb,&msg,GETMSGTXT_TAILS);
- if(!buf) {
- if(curpost<posts-1) curpost++;
- else done=1;
- continue; }
- strupr((char *)buf);
- if(!strstr((char *)buf,find) && !strstr(msg.subj,find)) {
- FREE(buf);
- if(curpost<posts-1) curpost++;
- else done=1;
- continue; }
- FREE(buf); }
-
- if(mode&SCAN_CONST)
- bprintf(text[ZScanPostHdr],ugrp,usub,curpost+1,posts);
-
- if(!reads && mode)
- CRLF;
-
- show_msg(msg
- ,msg.from_ext && !strcmp(msg.from_ext,"1") && !msg.from_net.type
- ? 0:P_NOATCODES);
-
- reads++; /* number of messages actually read during this sub-scan */
-
- /* Message is to this user and hasn't been read, so flag as read */
- if((!stricmp(msg.to,useron.name) || !stricmp(msg.to,useron.alias)
- || (useron.number==1 && !stricmp(msg.to,"sysop")
- && !msg.from_net.type))
- && !(msg.hdr.attr&MSG_READ)) {
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(!smb_locksmbhdr(&smb)) { /* Lock the entire base */
- if(loadmsg(&msg,msg.idx.number)) {
- msg.hdr.attr|=MSG_READ;
- msg.idx.attr=msg.hdr.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
- smb_unlocksmbhdr(&smb); }
- if(!msg.total_hfields) { /* unsuccessful reload */
- domsg=0;
- continue; } }
-
- sub[subnum]->last=post[curpost].number;
-
- if(sub[subnum]->ptr<post[curpost].number && !(mode&SCAN_TOYOU)) {
- posts_read++;
- sub[subnum]->ptr=post[curpost].number; } }
- else domsg=1;
- if(mode&SCAN_CONST) {
- if(curpost<posts-1) curpost++;
- else done=1;
- continue; }
- if(useron.misc&WIP)
- menu("MSGSCAN");
- ASYNC;
- bprintf(text[ReadingSub],ugrp,grp[sub[subnum]->grp]->sname
- ,usub,sub[subnum]->sname,curpost+1,posts);
- sprintf(str,"ABCDFILMPQRTY?<>[]{}-+.,");
- if(sub_op(subnum))
- strcat(str,"O");
- reread=0;
- l=getkeys(str,posts);
- if(l&0x80000000L) {
- if((long)l==-1) { /* ctrl-c */
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- if(post)
- LFREE(post);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return(1); }
- curpost=(l&~0x80000000L)-1;
- reread=1;
- continue; }
- switch(l) {
- case 'A': /* Reply to last message */
- domsg=0;
- if(!chk_ar(sub[subnum]->post_ar,useron)) {
- bputs(text[CantPostOnSub]);
- break; }
- quotemsg(msg,0);
- if(post)
- LFREE(post);
- post=NULL;
- postmsg(subnum,&msg,WM_QUOTE);
-// post=loadposts(&posts,subnum,0,lp);
- if(mode&SCAN_TOYOU)
- domsg=1;
- break;
- case 'B': /* Skip sub-board */
- if(mode&SCAN_NEW && !noyes(text[RemoveFromNewScanQ]))
- sub[subnum]->misc&=~SUB_NSCAN;
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- if(post)
- LFREE(post);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return(0);
- case 'C': /* Continuous */
- mode|=SCAN_CONST;
- if(curpost<posts-1) curpost++;
- else done=1;
- break;
- case 'D': /* Delete message on sub-board */
- domsg=0;
- if(!sub_op(subnum) && !(sub[subnum]->misc&SUB_DEL)) {
- bputs(text[CantDeletePosts]);
- break; }
- if(!sub_op(subnum)) {
- if(stricmp(sub[subnum]->misc&SUB_NAME
- ? useron.name : useron.alias, msg.from)
- && stricmp(sub[subnum]->misc&SUB_NAME
- ? useron.name : useron.alias, msg.to)) {
- bprintf(text[YouDidntPostMsgN],curpost+1);
- break; } }
- if(msg.hdr.attr&MSG_PERMANENT) {
- bputs("\1n\r\nMessage is marked permanent.\r\n");
- domsg=0;
- break; }
- if(post)
- LFREE(post);
- post=NULL;
-
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(loadmsg(&msg,msg.idx.number)) {
- msg.idx.attr^=MSG_DELETE;
- msg.hdr.attr=msg.idx.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg);
- if(i==0 && msg.idx.attr&MSG_DELETE) {
- sprintf(str,"Removed post from %s %s"
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname);
- logline("P-",str);
- if(!stricmp(sub[subnum]->misc&SUB_NAME
- ? useron.name : useron.alias, msg.from))
- useron.posts=adjustuserrec(useron.number
- ,U_POSTS,5,-1); } }
- domsg=1;
- if((sys_misc&SM_SYSVDELM // anyone can view delete msgs
- || (sys_misc&SM_USRVDELM // sys/subops can view deleted msgs
- && sub_op(subnum)))
- && curpost<posts-1)
- curpost++;
- if(curpost>=posts-1)
- done=1;
- break;
-
- case 'F': /* find text in messages */
- domsg=0;
- bprintf(text[StartWithN],curpost+2);
- if((i=getnum(posts))<0)
- break;
- if(i)
- i--;
- else
- i=curpost+1;
- bputs(text[SearchStringPrompt]);
- if(!getstr(str,40,K_LINE|K_UPPER))
- break;
- searchposts(subnum,post,(long)i,posts,str);
- break;
- case 'I': /* Sub-board information */
- domsg=0;
- subinfo(subnum);
- break;
- case 'L': /* List messages */
- domsg=0;
- bprintf(text[StartWithN],curpost+1);
- if((i=getnum(posts))<0)
- break;
- if(i) i--;
- else i=curpost;
- listmsgs(subnum,post,i,posts);
- break;
- case 'M': /* Reply to last post in mail */
- domsg=0;
- if(msg.hdr.attr&MSG_ANONYMOUS && !sub_op(subnum)) {
- bputs(text[CantReplyToAnonMsg]);
- break; }
- if(!sub_op(subnum) && msg.hdr.attr&MSG_PRIVATE
- && stricmp(msg.to,useron.name)
- && stricmp(msg.to,useron.alias))
- break;
- sprintf(str2,text[Regarding]
- ,msg.subj
- ,timestr((time_t *)&msg.hdr.when_written.time));
- if(msg.from_net.type==NET_FIDO)
- sprintf(str,"%s @%s",msg.from
- ,faddrtoa(*(faddr_t *)msg.from_net.addr));
- else if(msg.from_net.type==NET_INTERNET)
- strcpy(str,msg.from_net.addr);
- else if(msg.from_net.type)
- sprintf(str,"%s@%s",msg.from,msg.from_net.addr);
- else
- strcpy(str,msg.from);
- bputs(text[Email]);
- if(!getstr(str,60,K_EDIT|K_AUTODEL))
- break;
- if(post)
- LFREE(post);
- post=NULL;
- quotemsg(msg,1);
- if(msg.from_net.type==NET_INTERNET
- && (!strcmp(str,msg.from_net.addr) || strchr(str,'@')))
- inetmail(str,msg.subj,WM_QUOTE|WM_NETMAIL);
- else {
- p=strrchr(str,'@');
- if(p) /* FidoNet or QWKnet */
- netmail(str,msg.subj,WM_QUOTE);
- else {
- i=atoi(str);
- if(!i) {
- if(sub[subnum]->misc&SUB_NAME)
- i=userdatdupe(0,U_NAME,LEN_NAME,str,0);
- else
- i=matchuser(str); }
- email(i,str2,msg.subj,WM_EMAIL|WM_QUOTE); } }
-// post=loadposts(&posts,subnum,0,lp);
- break;
- case 'P': /* Post message on sub-board */
- domsg=0;
- if(!chk_ar(sub[subnum]->post_ar,useron))
- bputs(text[CantPostOnSub]);
- else {
- if(post)
- LFREE(post);
- post=NULL;
- postmsg(subnum,0,0);
-// post=loadposts(&posts,subnum,0,lp);
- }
- break;
- case 'Q': /* Quit */
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- if(post)
- LFREE(post);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- return(1);
- case 'R': /* re-read last message */
- reread=1;
- break;
- case 'T': /* List titles of next ten messages */
- domsg=0;
- if(!posts)
- break;
- if(curpost>=posts-1) {
- done=1;
- break; }
- i=curpost+11;
- if(i>posts)
- i=posts;
- listmsgs(subnum,post,curpost+1,i);
- curpost=i-1;
- if(sub[subnum]->ptr<post[curpost].number)
- sub[subnum]->ptr=post[curpost].number;
- break;
- case 'Y': /* Your messages */
- domsg=0;
- showposts_toyou(post,0,posts);
- break;
- case '-':
- if(curpost>0) curpost--;
- reread=1;
- break;
- case 'O': /* Operator commands */
- while(online) {
- if(!(useron.misc&EXPERT))
- menu("SYSMSCAN");
- bprintf("\r\n\1y\1hOperator: \1w");
- strcpy(str,"?CEHMPQUV");
- if(SYSOP)
- strcat(str,"S");
- switch(getkeys(str,0)) {
- case '?':
- if(useron.misc&EXPERT)
- menu("SYSMSCAN");
- continue;
- case 'P': /* Purge user */
- purgeuser(sub[subnum]->misc&SUB_NAME
- ? userdatdupe(0,U_NAME,LEN_NAME,msg.from,0)
- : matchuser(msg.from));
- break;
- case 'C': /* Change message attributes */
- i=chmsgattr(msg.hdr.attr);
- if(msg.hdr.attr==i)
- break;
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(loadmsg(&msg,msg.idx.number)) {
- msg.hdr.attr=msg.idx.attr=i;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
- break;
- case 'E': /* edit last post */
- if(post)
- LFREE(post);
- post=NULL;
- editmsg(&msg,subnum);
-// post=loadposts(&posts,subnum,0,lp);
- break;
- case 'H': /* View message header */
- msghdr(msg);
- domsg=0;
- break;
- case 'M': /* Move message */
- domsg=0;
- if(post)
- LFREE(post);
- post=NULL;
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(!loadmsg(&msg,msg.idx.number)) {
- errormsg(WHERE,ERR_READ,smb.file,msg.idx.number);
- break; }
- sprintf(str,text[DeletePostQ],msg.hdr.number,msg.subj);
- if(movemsg(msg,subnum) && yesno(str)) {
- msg.idx.attr|=MSG_DELETE;
- msg.hdr.attr=msg.idx.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i); }
- smb_unlockmsghdr(&smb,&msg);
-// post=loadposts(&posts,subnum,0,lp);
- break;
-
- case 'Q':
- break;
- case 'S': /* Save/Append message to another file */
-/* 05/26/95
- if(!yesno(text[SaveMsgToFile]))
- break;
-*/
- bputs(text[FileToWriteTo]);
- if(getstr(str,40,K_LINE|K_UPPER))
- msgtotxt(msg,str,1,1);
- break;
- case 'U': /* User edit */
- useredit(sub[subnum]->misc&SUB_NAME
- ? userdatdupe(0,U_NAME,LEN_NAME,msg.from,0)
- : matchuser(msg.from),0);
- break;
- case 'V': /* Validate message */
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=0;
- if(loadmsg(&msg,msg.idx.number)) {
- msg.idx.attr|=MSG_VALIDATED;
- msg.hdr.attr=msg.idx.attr;
- if((i=smb_putmsg(&smb,&msg))!=0)
- errormsg(WHERE,ERR_WRITE,smb.file,i);
- smb_unlockmsghdr(&smb,&msg); }
- break;
- default:
- continue; }
- break; }
- break;
- case '.': /* Thread forward */
- l=msg.hdr.thread_first;
- if(!l) l=msg.hdr.thread_next;
- if(!l) {
- domsg=0;
- break; }
- for(i=0;i<posts;i++)
- if(l==post[i].number)
- break;
- if(i<posts)
- curpost=i;
- break;
- case ',': /* Thread backwards */
- if(!msg.hdr.thread_orig) {
- domsg=0;
- break; }
- for(i=0;i<posts;i++)
- if(msg.hdr.thread_orig==post[i].number)
- break;
- if(i<posts)
- curpost=i;
- break;
- case '>': /* Search Title forward */
- for(i=curpost+1;i<posts;i++)
- if(post[i].subj==msg.idx.subj)
- break;
- if(i<posts)
- curpost=i;
- else
- domsg=0;
- break;
- case '<': /* Search Title backward */
- for(i=curpost-1;i>-1;i--)
- if(post[i].subj==msg.idx.subj)
- break;
- if(i>-1)
- curpost=i;
- else
- domsg=0;
- break;
- case '}': /* Search Author forward */
- strcpy(str,msg.from);
- for(i=curpost+1;i<posts;i++)
- if(post[i].from==msg.idx.from)
- break;
- if(i<posts)
- curpost=i;
- else
- domsg=0;
- break;
- case '{': /* Search Author backward */
- strcpy(str,msg.from);
- for(i=curpost-1;i>-1;i--)
- if(post[i].from==msg.idx.from)
- break;
- if(i>-1)
- curpost=i;
- else
- domsg=0;
- break;
- case ']': /* Search To User forward */
- strcpy(str,msg.to);
- for(i=curpost+1;i<posts;i++)
- if(post[i].to==msg.idx.to)
- break;
- if(i<posts)
- curpost=i;
- else
- domsg=0;
- break;
- case '[': /* Search To User backward */
- strcpy(str,msg.to);
- for(i=curpost-1;i>-1;i--)
- if(post[i].to==msg.idx.to)
- break;
- if(i>-1)
- curpost=i;
- else
- domsg=0;
- break;
- case 0: /* Carriage return - Next Message */
- case '+':
- if(curpost<posts-1) curpost++;
- else done=1;
- break;
- case '?':
- menu("MSGSCAN");
- domsg=0;
- break; } }
-if(msg.total_hfields)
- smb_freemsgmem(&msg);
-if(post)
- LFREE(post);
-if(!(mode&(SCAN_CONST|SCAN_TOYOU|SCAN_FIND)) && !(sub[subnum]->misc&SUB_PONLY)
- && reads && chk_ar(sub[subnum]->post_ar,useron)
- && !(useron.rest&FLAG('P'))) {
- sprintf(str,text[Post],grp[sub[subnum]->grp]->sname
- ,sub[subnum]->lname);
- if(!noyes(str))
- postmsg(subnum,0,0); }
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-return(0);
-}
-
-/****************************************************************************/
-/* This function will search the specified sub-board for messages that */
-/* contain the string 'search'. */
-/* Returns number of messages found. */
-/****************************************************************************/
-int searchsub(uint subnum,char *search)
-{
- int i,found;
- ulong l,posts,total;
- post_t HUGE16 *post;
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,sub[subnum]->code,i);
- return(0); }
-total=getposts(subnum);
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-post=loadposts(&posts,subnum,0,LP_BYSELF|LP_OTHERS);
-bprintf(text[SearchSubFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,posts,total);
-found=searchposts(subnum,post,0,posts,search);
-if(posts)
- LFREE(post);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-return(found);
-}
-
-/****************************************************************************/
-/* Will search the messages pointed to by 'msg' for the occurance of the */
-/* string 'search' and display any messages (number of message, author and */
-/* title). 'msgs' is the total number of valid messages. */
-/* Returns number of messages found. */
-/****************************************************************************/
-int searchposts(uint subnum, post_t HUGE16 *post, long start, long posts
- , char *search)
-{
- char HUGE16 *buf,ch;
- ushort xlat;
- int i,j;
- long l,length,found=0;
- smbmsg_t msg;
-
-msg.total_hfields=0;
-for(l=start;l<posts && !msgabort();l++) {
- msg.idx.offset=post[l].offset;
- if(!loadmsg(&msg,post[l].number))
- continue;
- smb_unlockmsghdr(&smb,&msg);
- buf=smb_getmsgtxt(&smb,&msg,1);
- if(!buf) {
- smb_freemsgmem(&msg);
- continue; }
- strupr((char *)buf);
- if(strstr((char *)buf,search) || strstr(msg.subj,search)) {
- if(!found)
- CRLF;
- if(msg.hdr.attr&MSG_DELETE)
- ch='-';
- else if((!stricmp(msg.to,useron.alias) || !stricmp(msg.to,useron.name))
- && !(msg.hdr.attr&MSG_READ))
- ch='!';
- else if(msg.hdr.number>sub[subnum]->ptr)
- ch='*';
- else
- ch=' ';
- bprintf(text[SubMsgLstFmt],l+1
- ,(msg.hdr.attr&MSG_ANONYMOUS) && !sub_op(subnum) ? text[Anonymous]
- : msg.from
- ,msg.to
- ,ch
- ,msg.subj);
- found++; }
- FREE(buf);
- smb_freemsgmem(&msg); }
-
-return(found);
-}
-
-/****************************************************************************/
-/* Will search the messages pointed to by 'msg' for message to the user on */
-/* Returns number of messages found. */
-/****************************************************************************/
-void showposts_toyou(post_t HUGE16 *post, ulong start, ulong posts)
-{
- char str[128];
- ushort namecrc,aliascrc,sysop;
- int i;
- ulong l,found;
- smbmsg_t msg;
-
-strcpy(str,useron.alias);
-strlwr(str);
-aliascrc=crc16(str);
-strcpy(str,useron.name);
-strlwr(str);
-namecrc=crc16(str);
-sysop=crc16("sysop");
-msg.total_hfields=0;
-for(l=start,found=0;l<posts && !msgabort();l++) {
-
- if((useron.number!=1 || post[l].to!=sysop)
- && post[l].to!=aliascrc && post[l].to!=namecrc)
- continue;
-
- if(msg.total_hfields)
- smb_freemsgmem(&msg);
- msg.total_hfields=0;
- msg.idx.offset=post[l].offset;
- if(!loadmsg(&msg,post[l].number))
- continue;
- smb_unlockmsghdr(&smb,&msg);
- if((useron.number==1 && !stricmp(msg.to,"sysop") && !msg.from_net.type)
- || !stricmp(msg.to,useron.alias) || !stricmp(msg.to,useron.name)) {
- if(!found)
- CRLF;
- found++;
- bprintf(text[SubMsgLstFmt],l+1
- ,(msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP
- ? text[Anonymous] : msg.from
- ,msg.to
- ,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_READ ? ' ' : '*'
- ,msg.subj); } }
-
-if(msg.total_hfields)
- smb_freemsgmem(&msg);
-}
-
-/****************************************************************************/
-/* This function will search the specified sub-board for messages that */
-/* are sent to the currrent user. */
-/* returns number of messages found */
-/****************************************************************************/
-int searchsub_toyou(uint subnum)
-{
- int i;
- ulong l,posts,total;
- post_t HUGE16 *post;
-
-if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
- errormsg(WHERE,ERR_OPEN,sub[subnum]->code,i);
- return(0); }
-total=getposts(subnum);
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=smb_retry_time;
-if((i=smb_open(&smb))!=0) {
- smb_stack(&smb,SMB_STACK_POP);
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-post=loadposts(&posts,subnum,0,0);
-bprintf(text[SearchSubFmt]
- ,grp[sub[subnum]->grp]->sname,sub[subnum]->lname,total);
-if(posts) {
- if(post)
- LFREE(post);
- post=loadposts(&posts,subnum,0,LP_BYSELF|LP_OTHERS);
- showposts_toyou(post,0,posts); }
-if(post)
- LFREE(post);
-smb_close(&smb);
-smb_stack(&smb,SMB_STACK_POP);
-return(posts);
-}
-
-
diff --git a/src/sbbs2/rio/riodefs.h b/src/sbbs2/rio/riodefs.h
deleted file mode 100644
index fa5e54f148a48c6533c860f1b9946e5e8b95cd2c..0000000000000000000000000000000000000000
--- a/src/sbbs2/rio/riodefs.h
+++ /dev/null
@@ -1,102 +0,0 @@
-/* RIODEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _RIODEFS_H
-#define _RIODEFS_H
-
-
-/************************/
-/* Remote I/O Constants */
-/************************/
-
- /* i/o mode and state flags */
-#define CTSCK 0x1000 /*.check cts (mode only) */
-#define RTSCK 0x2000 /*.check rts (mode only) */
-#define TXBOF 0x0800 /*.transmit buffer overflow (outcom only) */
-#define ABORT 0x0400 /*.check for ^C (mode), aborting (state) */
-#define PAUSE 0x0200 /*.check for ^S (mode), pausing (state) */
-#define NOINP 0x0100 /*.input buffer empty (incom only) */
-
- /* status flags */
-#define DCD 0x0080 /*.DCD on */
-#define RI 0x0040 /*.Ring indicate */
-#define DSR 0x0020 /*.Dataset ready */
-#define CTS 0x0010 /*.CTS on */
-#define FERR 0x0008 /*.Frameing error */
-#define PERR 0x0004 /*.Parity error */
-#define OVRR 0x0002 /*.Overrun */
-#define RXLOST 0x0001 /*.Receive buffer overflow */
-
-/* rioctl() arguments */
-/* returns mode or state flags in high 8 bits, status flags in low 8 bits */
-
- /* the following return mode in high 8 bits */
-#define IOMODE 0x0000 /*.no operation */
-#define IOSM 0x0001 /*.i/o set mode flags */
-#define IOCM 0x0002 /*.i/o clear mode flags */
-
-#define GVERS 0x0007 /*.get version */
-#define GUART 0x0107 /*.get uart */
-#define GIRQN 0x0207 /*.get IRQ number */
-#define GBAUD 0x0307 /*.get baud */
-
- /* the following return state in high 8 bits */
-#define IOSTATE 0x0004 /*.no operation */
-#define IOSS 0x0005 /*.i/o set state flags */
-#define IOCS 0x0006 /*.i/o clear state flags */
-#define IOFB 0x0308 /*.i/o buffer flush */
-#define IOFI 0x0208 /*.input buffer flush */
-#define IOFO 0x0108 /*.output buffer flush */
-#define IOCE 0x0009 /* i/o clear error flags */
-
-
- /* return count (16bit) */
-#define RXBC 0x000a /*.get receive buffer count */
-#define RXBS 0x010a /*.get receive buffer size */
-#define TXBC 0x000b /*.get transmit buffer count */
-#define TXBS 0x010b /*.get transmit buffer size */
-#define TXBF 0x020b /*.get transmit buffer free space */
-#define TXSYNC 0x000c /*.sync transmition (seconds<<8|0x0c) */
-#define IDLE 0x000d /* suspend communication routines */
-#define RESUME 0x010d /* return from suspended state */
-#define RLERC 0x000e /* read line error count and clear */
-#define CPTON 0x0110 /* set input translation flag for ctrl-p on */
-#define CPTOFF 0x0010 /* set input translation flag for ctrl-p off */
-#define GETCPT 0x8010 /* return the status of ctrl-p translation */
-#define MSR 0x0011 /* read modem status register */
-#define FIFOCTL 0x0012 /*.FIFO UART control */
-#define TSTYPE 0x0013 /* Time-slice API type */
-#define GETTST 0x8013 /* Get Time-slice API type */
-
-#define I14DB 0x001d /* DigiBoard int 14h driver */
-#define I14PC 0x011d /* PC int 14h driver */
-#define I14PS 0x021d /* PS/2 int 14h driver */
-#define I14FO 0x031d /* FOSSIL int 14h driver */
-
-#define SMSMK 0x0014 /* set modem status mask */
-#define SMLCR 0x0015 /* set modem line control register */
-#define LFN81 0x0315 /*.set line format N81 */
-#define LFE71 0x1A15 /*.set line format E71 */
-#define SRXHL 0x001E /* set receive flow control high limit */
-#define SRXLL 0x001F /* set receive flow control low limit */
-#define IGCLS 0x0020 /* input gate close */
-#define IGOPN 0xFF20 /* input gate open */
-
-
- /* ivhctl() arguments */
-#define INT29R 0x0001 /* copy int 29h output to remote */
-#define INT29L 0x0002 /* Use _putlc for int 29h */
-#define INT16 0x0010 /* return remote chars to int 16h calls */
-#define INTCLR 0x0000 /* release int 16h, int 29h */
-
-#define TS_INT28 1
-#define TS_WINOS2 2
-#define TS_NODV 4
-
-#define RIO_OUTCOM_STKLEN 4096 /* outcom_thread() stack size */
-#define RIO_OUTCOM_BUFLEN 4096 /* outcom() buffer length */
-#define RIO_INCOM_BUFLEN 1024 /* incom() buffer length */
-
-
-#endif /* Don't add anything after this line */
diff --git a/src/sbbs2/rio/riolib.c b/src/sbbs2/rio/riolib.c
deleted file mode 100644
index 18cee97d54849730e1371dcaca499137036170a7..0000000000000000000000000000000000000000
--- a/src/sbbs2/rio/riolib.c
+++ /dev/null
@@ -1,965 +0,0 @@
-/* RIOLIB.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Remote communications Input/Output Library for OS/2 and Win32 */
-
-#define RIOLIB_VER 100
-
-#ifdef __OS2__
- #define INCL_DOSDEVICES
- #define INCL_DOSDEVIOCTL
- #define INCL_DOS
- #include <os2.h>
-
-#else // Win32
-
- #include <windows.h>
-#endif
-
-#include <time.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <string.h>
-#include <process.h>
-#include "riolib.h"
-#include "riodefs.h"
-
-int rio_handle=-1;
-
-int rio_abort=0,rio_aborted=0;
-int inbufbot,inbuftop;
-int outbufbot,outbuftop;
-char inbuf[RIO_INCOM_BUFLEN];
-char outbuf[RIO_OUTCOM_BUFLEN];
-
-/****************************************************************************/
-/* OS/2 Specific */
-/****************************************************************************/
-
-#ifdef __OS2__
-
-HEV rio_sem;
-
-typedef struct { /* Packet for Get/Set Device Control Block Parms */
-
- ushort wr_timeout;
- ushort rd_timeout;
- uchar flags1;
- uchar flags2;
- uchar flags3;
- uchar err_char;
- uchar brk_char;
- uchar xon_char;
- uchar xoff_char;
-
- } async_dcb_t;
-
-typedef struct { /* Parameter Packet for Extended Set Bit Rate */
-
- ulong rate;
- uchar frac;
-
- } setrate_t;
-
-typedef struct { /* Data Packet for Extended Query Bit Rate */
-
- ulong cur_rate;
- uchar cur_rate_frac;
- ulong min_rate;
- uchar min_rate_frac;
- ulong max_rate;
- uchar max_rate_frac;
-
- } getrate_t;
-
-typedef struct { /* Data Packet for Query Number of Chars Queue */
-
- ushort cur,
- max;
-
- } getqueue_t;
-
-typedef struct { /* Parameter Packet for Set Modem Control Signals */
-
- uchar on;
- uchar off;
-
- } setmdmctrl_t;
-
-typedef struct { /* Parameter Packet for Set Line Characteristics */
-
- uchar data;
- uchar parity;
- uchar stop;
-
- } setline_t;
-
-#else
-
-/****************************************************************************/
-/* Win32 Specific */
-/****************************************************************************/
-
-HANDLE rio_event;
-
-#endif
-
-/************************************************************************/
-/* Opens COM port, ignoring IRQ argument */
-/* Returns 0 on no error */
-/************************************************************************/
-int rioini(int com, int unused)
-{
- char str[64];
-#ifdef __OS2__
- async_dcb_t async_dcb;
-#else // Win32
- DCB dcb;
- COMMTIMEOUTS timeouts;
-#endif
-
-#ifdef __WATOMC__
- char *stack;
-#endif
-
-inbufbot=inbuftop=outbufbot=outbuftop=0; /* clear our i/o buffers */
-
-if(!com) { /* Close port */
- if(rio_handle>=0) {
-#ifdef __OS2__
- close(rio_handle);
- rio_handle=-1; /* signal outcom_thread() to end */
- DosPostEventSem(rio_sem);
-#else // Win32
- CloseHandle((HANDLE)rio_handle);
- rio_handle=-1;
- SetEvent(rio_event);
-#endif
- return(0); }
- return(-2); }
-
-sprintf(str,"COM%u",com);
-#ifdef __OS2__
-if(rio_handle==-1) { /* Not already opened */
- if((rio_handle=open(str,O_RDWR|O_BINARY,0))==-1)
- return(-1); }
-#else // Win32
-if(rio_handle==-1) { /* Not already opened */
- if((rio_handle=(int)CreateFile(str
- ,GENERIC_READ|GENERIC_WRITE /* Access */
- ,0 /* Share mode */
- ,NULL /* Security attributes */
- ,OPEN_EXISTING /* Create access */
- ,FILE_ATTRIBUTE_NORMAL /* File attributes */
- ,NULL /* Template */
- ))==(int)INVALID_HANDLE_VALUE)
- return(-1); }
-#endif
-
-#ifdef __OS2__
-
-if(DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x73 /* Query Device Control Block (DCB) Parms */
- ,NULL
- ,0
- ,NULL
- ,&async_dcb
- ,sizeof(async_dcb)
- ,NULL))
- return(-6);
-
-async_dcb.flags2&=~(1<<1); /* Disable Automatic Recv XON/XOFF flow ctrl */
-/* Extended Hardware Buffering (16550 FIFO) */
-if(async_dcb.flags3&((1<<4)|(1<<3))) { /* Supported */
- async_dcb.flags3&=~((1<<3)|(1<<6)|(1<<5)); /* Set to 1 char trgr lvl */
- async_dcb.flags3|=((1<<4)|(1<<7)); } /* Set to 16 char tx buf */
-async_dcb.flags3|=((1<<2)|(1<<1)); /* No-Wait read timeout */
-async_dcb.flags3&=~(1<<0); /* Normal write timeout */
-async_dcb.wr_timeout=499; /* 5 seconds? */
-DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x53 /* Set Device Control Block (DCB) Parms */
- ,(void *)&async_dcb
- ,sizeof(async_dcb)
- ,NULL
- ,NULL
- ,0
- ,NULL);
-
-if(DosCreateEventSem(NULL,&rio_sem,0,0))
- return(-5);
-
-#else // Win32
-
-if(GetCommState((HANDLE)rio_handle,&dcb)!=TRUE)
- return(-6);
-
-dcb.fBinary=1; // No EOF check
-dcb.fDtrControl=DTR_CONTROL_ENABLE;
-dcb.fDsrSensitivity=FALSE;
-dcb.fOutX=0; // No Xon/Xoff out
-dcb.fInX=0; // No Xon/Xoff in
-dcb.fErrorChar=FALSE; // No character replacement
-dcb.fNull=0; // No null stripping
-dcb.fAbortOnError=0; // Continue to communicate even if error detected
-
-SetCommState((HANDLE)rio_handle,&dcb);
-
-if(GetCommTimeouts((HANDLE)rio_handle,&timeouts)!=TRUE)
- return(-7);
-
-timeouts.ReadIntervalTimeout=MAXDWORD;
-timeouts.ReadTotalTimeoutMultiplier=0;
-timeouts.ReadTotalTimeoutConstant=0; // No-wait read timeout
-timeouts.WriteTotalTimeoutMultiplier=0;
-timeouts.WriteTotalTimeoutConstant=5000; // 5 seconds
-SetCommTimeouts((HANDLE)rio_handle,&timeouts);
-
-SetupComm((HANDLE)rio_handle,4096,4096); /* Init Rx and Tx buffer sizes */
-
-if((rio_event=CreateEvent(NULL /* Security attributes */
- ,TRUE /* Manual reset */
- ,FALSE /* Non-signaled by default */
- ,NULL /* Event name */
- ))==NULL)
- return(-5);
-
-#endif
-
-#ifdef __WATCOMC__
-stack=malloc(RIO_OUTCOM_STACK);
-if(stack==NULL)
- return(-4);
-if(_beginthread(outcom_thread,stack,RIO_OUTCOM_STKLEN,NULL)==-1)
- return(-3);
-#else
-if(_beginthread(outcom_thread,RIO_OUTCOM_STKLEN,NULL)==(ulong)-1)
- return(-3);
-#endif
-
-
-return(0);
-}
-
-/************************************************************************/
-/* Raise or lower DTR */
-/* If onoff is 0, drop and exit, 1 raise and exit, >1 drop and wait */
-/* up to x seconds for DCD to drop, return 0 on success, 1 on failure */
-/************************************************************************/
-int dtr(char onoff)
-{
-#ifdef __OS2__
- setmdmctrl_t setmdmctrl;
- ulong start;
- ushort w;
- uchar c;
-
-if(onoff==1) {
- setmdmctrl.on=1;
- setmdmctrl.off=0xff; }
-else {
- setmdmctrl.on=0;
- setmdmctrl.off=0xfe; }
-
-DosDevIOCtl(rio_handle, IOCTL_ASYNC, 0x46 /* Set Modem Ctrl Signals */
- ,&setmdmctrl
- ,sizeof(setmdmctrl)
- ,NULL
- ,&w
- ,sizeof(short)
- ,NULL);
-
-if(onoff<=1)
- return(0);
-
-start=time(NULL);
-while(time(NULL)-start<=onoff) {
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x67 /* Get Modem Input Signals */
- ,NULL
- ,0
- ,NULL
- ,&c
- ,1
- ,NULL);
- if(!(c&DCD)) /* DCD is low */
- return(0);
- DosSleep(1); }
-
-#else // Win32
-
- ulong l,start;
-
-if(onoff==1)
- EscapeCommFunction((HANDLE)rio_handle,SETDTR);
-else
- EscapeCommFunction((HANDLE)rio_handle,CLRDTR);
-
-if(onoff<=1)
- return(0);
-
-start=time(NULL);
-while(time(NULL)-start<=onoff) {
- GetCommModemStatus((HANDLE)rio_handle,&l);
- if(!(l&MS_RLSD_ON)) // DCD is low
- return(0);
- Sleep(1000); }
-
-#endif
-
-return(1); /* Dropping DTR failed to lower DCD */
-}
-
-
-
-/************************************************************************/
-/* Returns the current DTE rate of the currently open COM port */
-/************************************************************************/
-long rio_getbaud(void)
-{
-#ifdef __OS2__
- getrate_t getrate;
-
-if(DosDevIOCtl(rio_handle, IOCTL_ASYNC, 0x63 /* Extended Query Bit Rate */
- ,NULL
- ,0
- ,NULL
- ,&getrate
- ,sizeof(getrate)
- ,NULL)==0)
- return(getrate.cur_rate);
-
-#else // Win32
-
- DCB dcb;
-
-if(GetCommState((HANDLE)rio_handle,&dcb)==TRUE) {
- switch(dcb.BaudRate) {
- case CBR_110:
- return(110);
- case CBR_300:
- return(300);
- case CBR_600:
- return(600);
- case CBR_1200:
- return(1200);
- case CBR_2400:
- return(2400);
- case CBR_4800:
- return(4800);
- case CBR_9600:
- return(9600);
- case CBR_14400:
- return(14400);
- case CBR_19200:
- return(19200);
- case CBR_38400:
- return(38400);
- case CBR_56000:
- return(56000);
- case CBR_57600:
- return(57600);
- case CBR_115200:
- return(115200);
- case CBR_128000:
- return(128000);
- case CBR_256000:
- return(256000);
- default:
- return(dcb.BaudRate); } }
-
-#endif
-
-return(-1); // Error
-}
-
-
-/************************************************************************/
-/* Sets the current DTE rate */
-/* Returns 0 on success */
-/************************************************************************/
-int setbaud(int rate)
-{
-#ifdef __OS2__
- setrate_t setrate;
- APIRET ret;
-
-setrate.rate=rate;
-setrate.frac=0;
-
-ret=DosDevIOCtl(rio_handle, IOCTL_ASYNC, 0x43 /* Extended Set Bit Rate */
- ,&setrate
- ,sizeof(setrate)
- ,NULL
- ,NULL
- ,0
- ,NULL);
-
-if(ret)
- return(ret);
-
-if(rio_getbaud()!=rate) /* Make sure it actually changed rates */
- return(-1);
-
-#else // Win32
-
- DCB dcb;
-
-if(GetCommState((HANDLE)rio_handle,&dcb)!=TRUE)
- return(-1);
-dcb.BaudRate=rate;
-if(SetCommState((HANDLE)rio_handle,&dcb)!=TRUE)
- return(-1);
-
-#endif
-
-return(0);
-}
-
-/************************************************************************/
-/* Return next incoming character from COM port, NOINP if none avail. */
-/* Uses a linear buffer. */
-/************************************************************************/
-int incom(void)
-{
- char c;
-
-if(inbufbot!=inbuftop) {
- c=inbuf[inbufbot];
- inbufbot++;
- if(inbufbot==inbuftop)
- inbufbot=inbuftop=0;
- if(rio_abort && c==3) { /* Ctrl-C */
- rio_aborted=1;
- rioctl(IOFO);
- return(NOINP); }
- return(c); }
-
-inbufbot=0;
-#ifdef __OS2__
-inbuftop=read(rio_handle,inbuf,RIO_INCOM_BUFLEN);
-#else // Win32
-ReadFile((HANDLE)rio_handle,inbuf,RIO_INCOM_BUFLEN,(DWORD *)&inbuftop,NULL);
-#endif
-if(inbuftop<=0 || inbuftop>RIO_INCOM_BUFLEN) {
- inbuftop=0;
- return(NOINP); }
-else
- return(inbuf[inbufbot++]);
-}
-
-/************************************************************************/
-/* Return number of chars in our input buffer */
-/************************************************************************/
-int inbufcnt(void)
-{
-return(inbuftop-inbufbot);
-}
-
-/************************************************************************/
-/* Place a character into outbound buffer, return TXBOF on buffer */
-/* overflow, 0 on success. */
-/************************************************************************/
-int outcom(int ch)
-{
- int i=outbuftop+1;
-
-if(i==RIO_OUTCOM_BUFLEN)
- i=0;
-if(i==outbufbot)
- return(TXBOF);
-outbuf[outbuftop++]=ch;
-if(outbuftop==RIO_OUTCOM_BUFLEN)
- outbuftop=0;
-#ifdef __OS2__
-DosPostEventSem(rio_sem); // Enable output
-#else // Win32
-SetEvent(rio_event);
-#endif
-return(0);
-}
-
-/************************************************************************/
-/************************************************************************/
-void outcom_thread(void *unused)
-{
- int i,top;
- ulong l;
-
-while(rio_handle>=0) {
- if(outbufbot==outbuftop) {
-#ifdef __OS2__
- DosResetEventSem(rio_sem,&l);
- DosWaitEventSem(rio_sem,10000); /* every 10 seconds */
-#else // Win32
- ResetEvent(rio_event);
- WaitForSingleObject(rio_event,10000);
-#endif
- continue; }
- top=outbuftop;
- if(top<outbufbot)
- i=RIO_OUTCOM_BUFLEN-outbufbot;
- else
- i=top-outbufbot;
-#ifdef __OS2__
- i=write(rio_handle,outbuf+outbufbot,i);
-#else // Win32
- WriteFile((HANDLE)rio_handle,outbuf+outbufbot,i,(DWORD *)&i,NULL);
-#endif
- if(i>0 && i<=RIO_OUTCOM_BUFLEN-outbufbot)
- outbufbot+=i;
- if(outbufbot==RIO_OUTCOM_BUFLEN)
- outbufbot=0; }
-_endthread();
-}
-
-/************************************************************************/
-/* Return number of chars in our output buffer */
-/************************************************************************/
-int outbufcnt(void)
-{
-if(outbuftop>=outbufbot)
- return(outbuftop-outbufbot);
-return(outbuftop+(RIO_OUTCOM_BUFLEN-outbufbot));
-}
-
-/************************************************************************/
-/************************************************************************/
-int rio_getstate(void)
-{
-#ifdef __OS2__
- uchar c;
- ushort state=0,w;
- getqueue_t getqueue;
-
-if(rio_abort && !rio_aborted) {
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x68 /* Query # of chars in rx queue */
- ,NULL
- ,0
- ,NULL
- ,&getqueue
- ,sizeof(getqueue)
- ,NULL);
- if(getqueue.cur && read(rio_handle,&c,1)==1) {
- if(c==3) { /* ctrl-c */
- rio_aborted=1;
- rioctl(IOFO); }
- else
- if(inbuftop<RIO_INCOM_BUFLEN) /* don't overflow input buffer */
- inbuf[inbuftop++]=c; } }
-
-if(rio_aborted)
- state|=ABORT;
-
-#if 0 // just to see if things speed up
-DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x6D /* Query COM Error */
- ,NULL
- ,0
- ,NULL
- ,&w
- ,sizeof(short)
- ,NULL);
-state|=w&0xf; /* FERR|PERR|OVRR|RXLOST */
-#endif
-
-DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x67 /* Query Modem Input Signals */
- ,NULL
- ,0
- ,NULL
- ,&c
- ,sizeof(char)
- ,NULL);
-state|=c&0xf0; /* DCD|RI|DSR|CTS */
-
-#else // Win32
-
- uchar c;
- ushort state=0;
- int i;
- ulong l;
- COMSTAT comstat;
-
-if(rio_abort && !rio_aborted) {
- ClearCommError((HANDLE)rio_handle,&l,&comstat);
- if(comstat.cbInQue) {
- ReadFile((HANDLE)rio_handle,&c,1,(DWORD *)&i,NULL);
- if(i==1) {
- if(c==3) { /* Ctrl-C */
- rio_aborted=1;
- rioctl(IOFO); }
- else
- if(inbuftop<RIO_INCOM_BUFLEN) /* don't overflow input buffer */
- inbuf[inbuftop++]=c; } } }
-
-GetCommModemStatus((HANDLE)rio_handle,(DWORD *)&state); /* DCD|RI|DSR|CTS */
-if(rio_aborted)
- state|=ABORT;
-
-#endif
-
-return(state);
-}
-
-
-/************************************************************************/
-/************************************************************************/
-int rioctl(ushort action)
-{
-#ifdef __OS2__
- async_dcb_t async_dcb;
- getqueue_t getqueue;
- setline_t setline;
-#else // Win32
- COMMPROP commprop;
- COMSTAT comstat;
- DCB dcb;
- ulong l;
-#endif
- uchar c;
- ushort mode,w;
- clock_t start;
-
-switch(action) {
- case GVERS: /* Get version */
- return(RIOLIB_VER);
- case GUART: /* Get UART I/O address, not available */
- return(0xffff);
- case GIRQN: /* Get IRQ number, not available */
- return((int)rio_handle);
- case GBAUD: /* Get current bit rate */
- return(rio_getbaud());
- case RXBC: /* Get receive buffer count */
-#ifndef __OS2__ // Win32
- ClearCommError((HANDLE)rio_handle,&l,&comstat);
- return(comstat.cbInQue+inbufcnt());
-#endif
- /* Fall-through if OS/2 */
- case RXBS: /* Get receive buffer size */
-#ifdef __OS2__
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x68 /* Query # of chars in rx queue */
- ,NULL
- ,0
- ,NULL
- ,&getqueue
- ,sizeof(getqueue)
- ,NULL);
- if(action==RXBC)
- return(getqueue.cur+inbufcnt());
- /* RXBS */
- return(getqueue.max+RIO_INCOM_BUFLEN);
-#else
- GetCommProperties((HANDLE)rio_handle,&commprop);
- return(commprop.dwCurrentRxQueue+RIO_INCOM_BUFLEN);
-#endif
- case TXBC: /* Get transmit buffer count */
-#ifndef __OS2__ // Win32
- ClearCommError((HANDLE)rio_handle,&l,&comstat);
- return(comstat.cbOutQue+outbufcnt());
-#endif
- /* Fall-through if OS/2 */
- case TXBS: /* Get transmit buffer size */
- case TXBF: /* Get transmit buffer free space */
-#ifdef __OS2__
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x69 /* Query # of chars in tx queue */
- ,NULL
- ,0
- ,NULL
- ,&getqueue
- ,sizeof(getqueue)
- ,NULL);
- if(action==TXBC)
- return(getqueue.cur+outbufcnt());
- else if(action==TXBS)
- return(getqueue.max+RIO_OUTCOM_BUFLEN);
- /* TXBF */
- return((getqueue.max-getqueue.cur)+(RIO_OUTCOM_BUFLEN-outbufcnt()));
-#else
- GetCommProperties((HANDLE)rio_handle,&commprop);
- if(action==TXBS)
- return(commprop.dwCurrentTxQueue+RIO_OUTCOM_BUFLEN);
- /* TXBF */
- ClearCommError((HANDLE)rio_handle,&l,&comstat);
- return((commprop.dwCurrentTxQueue-comstat.cbOutQue)
- +(RIO_OUTCOM_BUFLEN-outbufcnt()));
-#endif
- case IOSTATE:
- return(rio_getstate());
- case IOFI: /* Flush input buffer */
- case IOFO: /* Flush output buffer */
- case IOFB: /* Flush both buffers */
-#ifdef __OS2__
- c=0;
- if((action&IOFI)==IOFI) {
- DosDevIOCtl(rio_handle
- ,IOCTL_GENERAL, DEV_FLUSHINPUT
- ,&c
- ,sizeof(char)
- ,NULL
- ,&w
- ,sizeof(short)
- ,NULL);
- inbufbot=inbuftop=0;
- } /* Clear our input buffer too */
- c=0;
- if((action&IOFO)==IOFO) {
- DosDevIOCtl(rio_handle
- ,IOCTL_GENERAL, DEV_FLUSHOUTPUT
- ,&c
- ,sizeof(char)
- ,NULL
- ,&w
- ,sizeof(short)
- ,NULL);
- outbufbot=outbuftop=0;
- } /* Clear our output buffer too */
-#else // Win32
- l=0;
- if((action&IOFI)==IOFI)
- l|=(PURGE_RXABORT|PURGE_RXCLEAR);
- if((action&IOFO)==IOFO)
- l|=(PURGE_TXABORT|PURGE_TXCLEAR);
- PurgeComm((HANDLE)rio_handle,l);
-#endif
- return(rio_getstate());
- case LFN81:
- case LFE71:
-#ifdef __OS2__
- setline.stop=0; /* 1 stop bit */
- if(action==LFN81) {
- setline.data=8;
- setline.parity=0; } /* No parity */
- else {
- setline.data=7;
- setline.parity=2; } /* Even parity */
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x42 /* Set Line Characteristics */
- ,&setline
- ,sizeof(setline)
- ,NULL
- ,NULL
- ,0
- ,NULL);
-#else // Win32
- GetCommState((HANDLE)rio_handle,&dcb);
- if(action==LFN81) {
- dcb.Parity=NOPARITY;
- dcb.ByteSize=8;
- dcb.StopBits=ONESTOPBIT; }
- else {
- dcb.Parity=EVENPARITY;
- dcb.ByteSize=7;
- dcb.StopBits=ONESTOPBIT; }
- SetCommState((HANDLE)rio_handle,&dcb);
-#endif
- return(0);
- case FIFOCTL:
-#ifdef __OS2__
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x73 /* Query Device Control Block (DCB) Parms */
- ,NULL
- ,0
- ,NULL
- ,&async_dcb
- ,sizeof(async_dcb)
- ,NULL);
-
- /* Extended Hardware Buffering (16550 FIFO) */
- if(async_dcb.flags3&(1<<4)) { /* Supported */
- c=0xc0;
- if(async_dcb.flags3&(1<<7))
- c|=0x0c;
- return(c); }
-#else // Win32
- // Not supported under Win32?
-#endif
- return(0);
- }
-
-if((action&0xff)<=IOCM) { /* Get/Set/Clear mode */
- mode=0;
-
-#ifdef __OS2__
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x73 /* Query Device Control Block (DCB) Parms */
- ,NULL
- ,0
- ,NULL
- ,&async_dcb
- ,sizeof(async_dcb)
- ,NULL);
- if(async_dcb.flags1&(1<<3)) /* Output CTS handshaking */
- mode|=CTSCK;
- if(async_dcb.flags2&(1<<0)) /* Automatic Xmit Control Flow Xon/Xoff */
- mode|=PAUSE;
- if(async_dcb.flags2&(1<<7) /* RTS Input handshaking */
- && !(async_dcb.flags2&(1<<6)))
- mode|=RTSCK;
- if(rio_abort)
- mode|=ABORT;
-
- if(action==IOMODE)
- return(mode);
-
- if((action&0xff)==IOCM) /* Clear mode */
- mode&=~(action&0xff00);
- else /* Set mode */
- mode|=(action&0xff00);
-
- if(mode&CTSCK)
- async_dcb.flags1|=(1<<3);
- else
- async_dcb.flags1&=~(1<<3);
- if(mode&PAUSE) {
- async_dcb.flags2|=(1<<0); /* xmit flow control */
- async_dcb.xon_char=17; /* Ctrl-Q */
- async_dcb.xoff_char=19; } /* Ctrl-S */
- else
- async_dcb.flags2&=~(1<<0);
- if(mode&RTSCK) {
- async_dcb.flags2|=(1<<7);
- async_dcb.flags2&=~(1<<6); }
- else
- async_dcb.flags2&=~((1<<7)|(1<<6));
- if(mode&ABORT)
- rio_abort=1;
- else
- rio_abort=0;
-
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x53 /* Set Device Control Block (DCB) Parms */
- ,&async_dcb
- ,sizeof(async_dcb)
- ,NULL
- ,NULL
- ,0
- ,NULL);
-
-#else // Win32
-
- GetCommState((HANDLE)rio_handle,&dcb);
- if(dcb.fOutxCtsFlow)
- mode|=CTSCK;
- if(dcb.fOutX)
- mode|=PAUSE;
- if(dcb.fRtsControl==RTS_CONTROL_HANDSHAKE)
- mode|=RTSCK;
-
- if(rio_abort)
- mode|=ABORT;
-
- if(action==IOMODE)
- return(mode);
-
- if((action&0xff)==IOCM) /* Clear mode */
- mode&=~(action&0xff00);
- else /* Set mode */
- mode|=(action&0xff00);
-
- if(mode&CTSCK)
- dcb.fOutxCtsFlow=1;
- else
- dcb.fOutxCtsFlow=0;
- if(mode&PAUSE) {
- dcb.fOutX=1;
- dcb.XonChar=17; /* Ctrl-Q */
- dcb.XoffChar=19; } /* Ctrl-S */
- else
- dcb.fOutX=0;
- if(mode&RTSCK)
- dcb.fRtsControl=RTS_CONTROL_HANDSHAKE;
- else
- dcb.fRtsControl=RTS_CONTROL_ENABLE;
- if(mode&ABORT)
- rio_abort=1;
- else
- rio_abort=0;
-
- SetCommState((HANDLE)rio_handle,&dcb);
-
-#endif
-
- return(mode); }
-
-if((action&0xff)==IOSS) { /* Set state */
-
- if(action&ABORT)
- rio_aborted=1;
-
-#ifdef __OS2__
- if(action&PAUSE)
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x47 /* Behave as if XOFF Received */
- ,NULL
- ,0
- ,NULL
- ,&w
- ,sizeof(short)
- ,NULL);
-#else // Win32
- if(action&PAUSE)
- EscapeCommFunction((HANDLE)rio_handle,SETXOFF);
-#endif
-
- return(rio_getstate()); }
-
-if((action&0xff)==IOCS) { /* Clear state */
-
- if(action&ABORT)
- rio_aborted=0;
-
-#ifdef __OS2__
- if(action&PAUSE)
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x48 /* Behave as if XON Received */
- ,NULL
- ,0
- ,NULL
- ,&w
- ,sizeof(short)
- ,NULL);
-#else // Win32
- if(action&PAUSE)
- EscapeCommFunction((HANDLE)rio_handle,SETXON);
-#endif
- return(rio_getstate()); }
-
-if((action&0xff)==TXSYNC) { /* Synchronize transmition */
- c=action>>8; /* Number of seconds */
- w=110+(c*1000); /* Number of milliseconds */
- start=clock();
- while(clock()-start<w) {
- if(!outbufcnt()) {
-#ifdef __OS2__
- DosDevIOCtl(rio_handle
- ,IOCTL_ASYNC, 0x69 /* Query # of chars in tx queue */
- ,NULL
- ,0
- ,NULL
- ,&getqueue
- ,sizeof(getqueue)
- ,NULL);
- if(getqueue.cur==0) /* Empty outbound queue */
- return(0);
-#else // Win32
- ClearCommError((HANDLE)rio_handle,&l,&comstat);
- if(comstat.cbOutQue==0) /* Empty outbound queue */
- return(0);
-#endif
- }
-#ifdef __OS2__
- DosSleep(1);
-#else // Win32
- Sleep(1);
-#endif
- }
- return(1); }
-
-return(0);
-}
-
-/* End of file */
diff --git a/src/sbbs2/rio/riolib.h b/src/sbbs2/rio/riolib.h
deleted file mode 100644
index 26718cb5c7292966f68b716d1498c25e7f89bff9..0000000000000000000000000000000000000000
--- a/src/sbbs2/rio/riolib.h
+++ /dev/null
@@ -1,26 +0,0 @@
-/* RIOLIB.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _RIOLIB_H
-#define _RIOLIB_H
-
-#include "gen_defs.h"
-
-int rioini(int com,int irq); /* initialize com,irq */
-int setbaud(int rate); /* set baud rate */
-int rioctl(ushort action); /* remote i/o control */
-int dtr(char onoff); /* set/reset dtr */
-int outcom(int ch); /* send character */
-int incom(void); /* receive character */
-int ivhctl(int intcode); /* local i/o redirection */
-
-/* Win32 and OS/2 versions only */
-
-long rio_getbaud(void); /* get current baud rate */
-int rio_getstate(void); /* get current current state */
-void outcom_thread(void *);
-
-extern int rio_handle;
-
-#endif /* Don't add anything after this line */
diff --git a/src/sbbs2/sbbs.h b/src/sbbs2/sbbs.h
deleted file mode 100644
index b805601adfb7d971491b6dec1bf60fd557816380..0000000000000000000000000000000000000000
--- a/src/sbbs2/sbbs.h
+++ /dev/null
@@ -1,472 +0,0 @@
-/* SBBS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _SBBS_H
-#define _SBBS_H
-
-/****************************/
-/* Standard library headers */
-/****************************/
-
-#include <io.h>
-#ifdef __TURBOC__
- #include <dir.h>
- #include <alloc.h>
-#else
- #include <malloc.h>
-#endif
-
-#include <dos.h>
-#include <mem.h>
-#include <time.h>
-#include <errno.h>
-#include <stdio.h>
-#include <conio.h>
-#include <ctype.h>
-#include <fcntl.h>
-#include <share.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <process.h>
-#include <sys\stat.h>
-
-#ifdef __OS2__
- #define INCL_BASE
- #include <os2.h>
-#else
- #include <bios.h>
-#endif
-
-#define GLOBAL extern /* turn vars.c and scfgvars.c files into headers */
-#ifdef SBBS
-#include "vars.c"
-#endif
-#include "smblib.h"
-#include "ars_defs.h"
-#include "scfgvars.c"
-#include "scfglib.h"
-#include "riolib.h"
-#include "riodefs.h"
-
-/***********************************************/
-/* Prototypes of functions used ONLY with SBBS */
-/***********************************************/
-
-
-void lputc(int);
-int lclatr(int);
-uint lkbrd(int);
-int lclaes(void);
-void lclxy(int,int);
-int lclwx(void);
-int lclwy(void);
-long lputs(char FAR16 *);
-
-#ifndef __FLAT__
-
-/* LCLOLL.ASM */
-int lclini(int);
-
-#endif
-
-/* COMIO.C */
-void putcom(char *str); /* Send string to com port */
-void putcomch(char ch); /* Send single char to com port */
-void mdmcmd(char *str); /* Send translated modem command to COM */
-char getmdmstr(char *str, int sec); /* Returns chars */
-void hangup(void); /* Hangup modem */
-void offhook(void); /* Takes phone offhook */
-void checkline(void); /* Checks if remote user has hungup */
-void comini(void); /* initializes com port and sets baud */
-void setrate(void); /* sets baud rate for current connect */
-
-/* DATIO.C */
-void getuserdat(user_t *user); /* Fill userdat struct with user data */
-void putuserdat(user_t user); /* Put userdat struct into user file */
-void getuserrec(int usernumber, int start, char length, char *str);
-void putuserrec(int usernumber, int start, char length, char *str);
-ulong adjustuserrec(int usernumber, int start, char length, long adj);
-void subtract_cdt(long amt);
-void getrec(char *instr,int start,int length,char *outstr);
- /* Retrieve a record from a string */
-void putrec(char *outstr,int start,int length,char *instr);
- /* Place a record into a string */
-uint matchuser(char *str); /* Checks for a username match */
-uint finduser(char *str);
-uint lastuser(void);
-char getage(char *birthdate);
-
-int sub_op(uint subnum);
-ulong getlastmsg(uint subnum, ulong *ptr, time_t *t);
-time_t getmsgtime(uint subnum, ulong ptr);
-ulong getmsgnum(uint subnum, time_t t);
-ulong getposts(uint subnum);
-
-int getfiles(uint dirnum);
-int dir_op(uint dirnum);
-int getuserxfers(int fromuser, int destuser, char *fname);
-void rmuserxfers(int fromuser, int destuser, char *fname);
-char *username(int usernumber, char *str);
-uint gettotalfiles(uint dirnum);
-void getnodeext(uint number, char *str);
-void putnodeext(uint number, char *str);
-void getnodedat(uint number, node_t *node, char lock);
-void putnodedat(uint number, node_t node);
-void putusername(int number, char *name);
-void nodesync(void);
-void getmsgptrs(void);
-void putmsgptrs(void);
-void getusrsubs(void);
-void getusrdirs(void);
-uint userdatdupe(uint usernumber, uint offset, uint datlen, char *dat
- , char del);
-void gettimeleft(void);
-
-/* FILIO.C */
-char addfiledat(file_t *f);
-void getfileixb(file_t *f);
-void getfiledat(file_t *f);
-void putfiledat(file_t f);
-char uploadfile(file_t *f);
-void downloadfile(file_t f);
-void removefiledat(file_t f);
-void fileinfo(file_t f);
-void openfile(file_t f);
-void closefile(file_t f);
-void update_uldate(file_t f);
-void putextdesc(uint dirnum, ulong datoffset, char *ext);
-void getextdesc(uint dirnum, ulong datoffset, char *ext);
-void viewfilecontents(file_t f);
-
-/* STR.C */
-void userlist(char subonly);
-char gettmplt(char *outstr, char *template, int mode);
-void sif(char *fname, char *answers, long len); /* Synchronet Inteface File */
-void sof(char *fname, char *answers, long len);
-void create_sif_dat(char *siffile, char *datfile);
-void read_sif_dat(char *siffile, char *datfile);
-void printnodedat(uint number, node_t node);
-void reports(void);
-char inputnstime(time_t *dt);
-char chkpass(char *pass, user_t user);
-char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr);
-void getcomputer(char *computer);
-void subinfo(uint subnum);
-void dirinfo(uint dirnum);
-char trashcan(char *insearch, char *name);
-#ifdef SBBS
-char *decrypt(ulong [],char *);
-#endif
-
-/* MSGIO.C */
-void automsg(void);
-char writemsg(char *str, char *top, char *title, int mode, int subnum
- ,char *dest);
-char putmsg(char HUGE16 *str, int mode);
-char msgabort(void);
-void email(int usernumber, char *top, char *title, char mode);
-void forwardmail(smbmsg_t *msg, ushort usernum);
-char postmsg(uint subnum, smbmsg_t *msg, int wm_mode);
-void removeline(char *str, char *str2, char num, char skip);
-ulong msgeditor(char *buf, char *top, char *title);
-void editfile(char *path);
-void getsmsg(int usernumber);
-void putsmsg(int usernumber, char *strin);
-void getnmsg(void);
-void putnmsg(int num, char *strin);
-int loadmsg(smbmsg_t *msg, ulong number);
-char HUGE16 *loadmsgtxt(smbmsg_t msg, int tails);
-ushort chmsgattr(ushort attr);
-void show_msgattr(ushort attr);
-void show_msghdr(smbmsg_t msg);
-void show_msg(smbmsg_t msg, int mode);
-void msgtotxt(smbmsg_t msg, char *str, int header, int tails);
-void quotemsg(smbmsg_t msg, int tails);
-void putmsg_fp(FILE *fp, long length, int mode);
-void editmsg(smbmsg_t *msg, uint subnum);
-void remove_re(char *str);
-void remove_ctrl_a(char *instr);
-
-/* MAIL.C */
-
-ulong loadmail(mail_t **mail, uint usernumber, int which, int mode);
-int getmail(int usernumber, char sent);
-int delmail(uint usernumber,int which);
-void delfattach(uint to, char *title);
-void telluser(smbmsg_t msg);
-void delallmail(uint usernumber);
-void readmail(uint usernumber, int sent);
-
-void bulkmail(uchar *ar);
-
-/* CONIO.C */
-int bputs(char *str); /* BBS puts function */
-int rputs(char *str); /* BBS raw puts function */
-int lprintf(char *fmt, ...); /* local printf */
-int bprintf(char *fmt, ...); /* BBS printf function */
-int rprintf(char *fmt, ...); /* BBS raw printf function */
-int getstr(char *str,int length, long mode);
-void outchar(char ch); /* Output a char - check echo and emu. */
-char r0dentch(char ch); /* Converts CH to r0dent CH */
-char getkey(long mode); /* Waits for a key hit local or remote */
-void ungetkey(char ch); /* Places 'ch' into the input buffer */
-char inkey(int mode); /* Returns key if one has been hit */
-char yesno(char *str);
-char noyes(char *str);
-void printfile(char *str, int mode);
-void printtail(char *str, int lines, int mode);
-void menu(char *code);
-long getkeys(char *str, ulong max);
-long getnum(ulong max);
-void center(char *str);
-int uselect(int add, int n, char *title, char *item, char *ar);
-void statusline(void);
-void pause(void);
-void waitforsysop(char on);
-void riosync(char abortable);
-char validattr(char a);
-char stripattr(char *str);
-void redrwstr(char *strin, int i, int l, char mode);
-void mnemonics(char *str);
-void attr(int atr); /* Change local and remote text attributes */
-void ctrl_a(char x); /* Peforms the Ctrl-Ax attribute changes */
-int atcodes(char *code);
-char *ansi(char atr); /* Returns ansi escape sequence for atr */
-int whos_online(char listself);/* Lists active nodes, returns active nodes */
-
-/* LOGONOFF.C */
-int login(char *str, char *pw);
-char logon(void);
-void logout(void);
-void logoff(void);
-void newuser(void); /* Get new user */
-void backout(void);
-
-/* BBSIO.C */
-char scanposts(uint subnum, char newscan, char *find); /* Scan sub-board */
-int searchsub(uint subnum, char *search); /* Search for string on sub */
-int searchsub_toyou(uint subnum);
-char text_sec(void); /* Text sections */
-
-/* CHAT.C */
-void localchat(void);
-void chatsection(void);
-void nodepage(void);
-void nodemsg(void);
-void guruchat(char *line, char *guru, int gurunum);
-char guruexp(char **ptrptr, char *line);
-void localguru(char *guru, int gurunum);
-void packchatpass(char *pass, node_t *node);
-char *unpackchatpass(char *pass, node_t node);
-void sysop_page(void);
-void privchat(void);
-
-/* MAIN.C */
-void printstatslog(uint node);
-ulong logonstats(void);
-void logoffstats(void);
-void getstats(char node, stats_t *stats);
-
-/* MISC.C */
-void bail(int code); /* Exit */
-char *ultoac(ulong l,char *str);
-int bstrlen(char *str);
-int nopen(char *str, int access);
-FILE *fnopen(int *file, char *str,int access);
-char *sectostr(uint sec, char *str); /* seconds to HH:MM:SS */
-void truncsp(char *str); /* Truncates white spaces off end of str */
-ulong ahtoul(char *str); /* Converts ASCII hex to ulong */
-int pstrcmp(char **str1, char **str2); /* Compares pointers to pointers */
-int strsame(char *str1, char *str2); /* Compares number of same chars */
-void errormsg(int line, char *file, char action, char *object, ulong access);
-int mv(char *src, char *dest, char copy); /* fast file move/copy function */
-char chksyspass(int local);
-char *timestr(time_t *intime); /* ASCII representation of time_t */
-char *zonestr(short zone);
-void dv_pause(void);
-void secwait(int sec);
-time_t ftimetounix(struct ftime f);
-struct ftime unixtoftime(time_t unix);
-time_t dstrtounix(char *str); /* ASCII date (MM/DD/YY) to unix conversion */
-char *unixtodstr(time_t unix, char *str); /* Unix time to ASCII date */
-char *hexplus(uint num, char *str); /* Hex plus for 3 digits up to 9000 */
-uint hptoi(char *str);
-int chk_ar(char *str, user_t user); /* checks access requirements */
-ushort crc16(char *str);
-ulong _crc32(char *str);
-void ucrc16(uchar ch, ushort *rcrc);
-int kbd_state(void);
-
-#ifndef __FLAT__
-long lread(int file, char HUGE16 *buf, long bytes); /* Reads >32k files */
-long lfread(char huge *buf, long bytes, FILE *fp);
-long lwrite(int file, char HUGE16 *buf, long bytes); /* Writes >32k files */
-#endif
-
-/* XFER.C */
-int listfile(char *fname, char HUGE16 *buf, uint dirnum
- , char *search, char letter, ulong datoffset);
-int listfiles(uint dirnum, char *filespec, int tofile, char mode);
-int listfileinfo(uint dirnum, char *filespec, char mode);
-void batchmenu(void);
-void temp_xfer(void);
-void batch_add_list(char *list);
-void notdownloaded(ulong size, time_t start, time_t end);
-int viewfile(file_t f, int ext);
-
-/* XFERMISC.C */
-void seqwait(uint devnum);
-void listfiletofile(char *fname, char HUGE16 *buf, uint dirnum, int file);
-void upload(uint dirnum);
-char bulkupload(uint dirnum);
-void extract(uint dirnum);
-char *getfilespec(char *str);
-int delfiles(char *path, char *spec);
-char findfile(uint dirnum, char *filename);
-char fexist(char *filespec);
-long flength(char *filespec);
-long fdate(char *filespec);
-long fdate_dir(char *filespec);
-char *padfname(char *filename, char *str);
-char *unpadfname(char *filename, char *str);
-char filematch(char *filename, char *filespec);
-int protocol(char *cmdline, int cd);
-void autohangup(void);
-char checkprotlog(file_t f);
-char checkfname(char *fname);
-void viewfiles(uint dirnum, char *fspec);
-char addtobatdl(file_t f);
-int fnamecmp_a(char **str1, char **str2); /* for use with resort() */
-int fnamecmp_d(char **str1, char **str2);
-int fdatecmp_a(uchar **buf1, uchar **buf2);
-int fdatecmp_d(uchar **buf1, uchar **buf2);
-void resort(uint dirnum);
-int create_batchup_lst(void);
-int create_batchdn_lst(void);
-int create_bimodem_pth(void);
-void batch_upload(void);
-void batch_download(int xfrprot);
-void start_batch_download(void);
-ulong create_filelist(char *name, char mode);
-
-/* XTRN.C */
-int external(char *cmdline,char mode); /* Runs external program */
-void xtrndat(char *name, char *dropdir, uchar type, ulong tleft);
-char xtrn_sec(void); /* The external program section */
-void exec_xtrn(uint xtrnnum); /* Executes online external program */
-void user_event(char event); /* Executes user event(s) */
-char xtrn_access(uint xnum); /* Does useron have access to xtrn? */
-char *temp_cmd(void); /* Returns temp file command line */
-
-/* LOGIO.C */
-void logentry(char *code,char *entry);
-void log(char *str); /* Writes 'str' to node log */
-void logch(char ch, char comma); /* Writes 'ch' to node log */
-void logline(char *code,char *str); /* Writes 'str' on it's own line in log */
-void logofflist(void); /* List of users logon activity */
-void errorlog(char *text); /* Logs errors to ERROR.LOG and NODE.LOG */
-#if DEBUG
-void dlog(int line, char *file, char *text); /* Debug log file */
-#endif
-
-/* QWK.C */
-void qwk_sec(void);
-char pack_qwk(char *packet, ulong *msgcnt, int prepack);
-void unpack_qwk(char *packet,uint hubnum);
-
-
-/* FIDO.C */
-void netmail(char *into, char *subj, char mode);
-void qwktonetmail(FILE *rep, char *block, char *into, uchar fromhub);
-
-void inetmail(char *into, char *subj, char mode);
-void qnetmail(char *into, char *subj, char mode);
-
-/* USEREDIT.C */
-void useredit(int usernumber, int local);
-void maindflts(user_t user);
-void purgeuser(int usernumber);
-
-/* INITDATA.C */
-void initdata(void);
-
-/* VER.C */
-void ver(void);
-
-/* MAIN_SEC.C */
-void main_sec(void);
-void scanallsubs(char mode);
-void scansubs(char mode);
-void new_scan_cfg(ulong misc);
-void new_scan_ptr_cfg(void);
-
-/* XFER_SEC.C */
-void xfer_sec(void);
-void scanalldirs(char mode);
-void scandirs(char mode);
-
-/* MSWAIT.OBJ */
-
-void mswait(int msecs);
-
-#ifdef __OS2__
-#define beep(f,d) DosBeep(f,d)
-#else
-void beep(int freq, int dur);
-#endif
-
-void backslash(char *str);
-void backslashcolon(char *str);
-void getlines(void);
-void strip_ctrl(char *str);
-void strip_exascii(char *str);
-
-char wfc_events(time_t lastnodechk);
-void catsyslog(int crash);
-char waitforcall(void);
-void quicklogonstuff(void);
-char terminal(void);
-void startup(int argc, char *argv[]);
-
-void crack_attempt(void);
-
-/*********************/
-/* OS specific stuff */
-/*********************/
-
-#ifdef __FLAT__
-
-#define lread(f,b,l) read(f,b,l)
-#define lfread(b,l,f) fread(b,l,f)
-#define lwrite(f,b,l) write(f,b,l)
-#define lfwrite(b,l,f) fwrite(b,l,f)
-
-#endif
-
-#if (__BORLANDC__ > 0x0410)
-#define _chmod(p,f,a) _rtl_chmod(p,f,a) // _chmod obsolete in 4.x
-#endif
-
-#if defined(__OS2__)
- #define lclini(x) window(1,1,80,x)
- #define lclaes() conaes()
- #define nosound() ;
-#elif defined(__WIN32__)
- #define lclini(x) window(1,1,80,x)
- #define lclxy(x,y) gotoxy(x,y)
- #define lclwy() wherey()
- #define lclwx() wherex()
- #define lputs cputs
- #define nosound() ;
-#elif defined(__FLAT__)
- #define mswait(x) delay(x)
-#endif
-
-#ifndef __OS2__
- #define outcon(ch) lputc(ch)
-#endif
-
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/sbbs_src.doc b/src/sbbs2/sbbs_src.doc
deleted file mode 100644
index 00e265731777b4c4f42ea5f384a33eb5ac9aa06b..0000000000000000000000000000000000000000
--- a/src/sbbs2/sbbs_src.doc
+++ /dev/null
@@ -1,660 +0,0 @@
- Synchronet BBS Software and Utilities C Source Code Documentation
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Created April 1997, Rob Swindell
- Updated September 1997, Rob Swindell
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-Official Synchronet Web Site:
- http://www.weedpuller.com/synchronet
-Latest version of the source code and this document stored at:
- ftp://ftp.weedpuller.com/synchronet
-Post public questions are comments on the freelance Synchronet listserv:
- mailto:synchronet@freelance.com
-Send bug fixes or comments
- mailto:sbbs@weedpuller.com
-
-I no-longer monitor any BBS-related newsgroups (too flakey and spam-ridden).
-
-History
-=======
-
-The Synchronet BBS software project began in December of 1990 when I started
-writing my very own BBS program from the ground up. While it is true that I ran
-Wayne Bell's WWIV BBS software for a number of years and an illicit copy of the
-WWIV source code was my first exposure to the C Programming Language, I didn't
-steal, borrow, or otherwise copy the WWIV source code for use in Synchronet in
-any way. I did refer to Wayne's code from time to time when implementing
-WWIV-compatible features like WWIV color codes, but I didn't need (or want) to
-copy his source. I do wish to take this moment, however, to extend my
-appreciation to Wayne Bell for his contributions to the BBS and hacker
-communities, and for personally inspiring me to write a better BBS! ;-)
-
-In 1992, Synchronet became a commercial venture for me (under the company name
-Digital Dynamics) and was my sole source of income for over three years. The
-commercialization of the Internet, and in paticular, the Wolrd Wide Web, has
-all but eliminated the commercial BBS software market and in 1996, I officially
-announced the end of Digital Dynamics (in the "Digital Manifesto"). In February
-of 1997, my own BBS, Vertrauen, was abruptly shut-down. This time for good.
-From September of 1988 to February of 1997, Vertrauen (German for "Trust")
-answered the phone at 714-529-9525 24 hours a day, 7 days a week. It went from
-a 1 line "pirate" BBS running WWIV on an 8mhz 8088 to a 7 node Synchronet
-BBS running on two 66mhz 486s connected to a Novell NetWare 3.12 file server
-with many gigabytes of disk space, 7 CD-ROMS, Planet Connect Fidonet feed, the
-whole nine yards - pretty much everything except Internet access (never could
-justify the monthly costs of a full-time connection).
-
-Today, I personally have very little interest in BBSs (using or operating them)
-and my programming interests have been focused elsewhere for quite some time
-(Internet communication products). For this reason, I am releasing the
-complete source code (in C) for Synchronet BBS software and all other Digital
-Dynamics' utilites. Since I expect no futher income from Synchronet BBS
-software and have no plans on enhancing or supporting the product in any way, I
-thought the least I could do was to package up, document, and publicly release
-the source code for others to continue enhancing as they wish.
-
-
-Disclaimer
-==========
-
-The accompanying source code (and this documentation) are not intended for the
-beginning, or possibly even intermediate, programmer. You must have a healthy
-knowledge of DOS, MAKEFILES, and the C Programming Language for this source
-code to be of any use to you. Of course, beginners are encouraged to learn
-(hopefully with the help of a friend or two) from the included projects - just
-don't get too irritated if things don't compile and link the first time.
-
-It is my hope that a hand full of capable young hackers will take Synchronet
-into new directions. Hopefully, retaining the original name (Synchronet) in
-some form, although there is no way for me to enforce this. I assume that some
-will make minor modifications and re-release compiled versions under their name
-with no credit to my work or the history of Synchronet, but while that isn't
-"cool", it isn't illegal either. I am releasing the rights to every piece of
-code accompanying this document to the public domain. That means that anyone
-and everyone can do with it whatever they like as far as I'm concerned.
-
-I, Rob Swindell, author of Synchronet, owner of Digital Dynamics, hereby
-relinquish the copyright of Synchronet BBS software and all Synchronet-related
-Digital Dynamics' utilities to the public domain. I am offering no warranties
-of any kind. Use at your own risk.
-
-
-Required Tools Version Project(s)
-============== ------- ----------
-
-Borland C++ for DOS and Windows 3.1 SBBS.EXE
- SBJ.EXE
- SBL.EXE
- SCB.EXE
- SMM.EXE
- UTI*.EXE
- ADDFILES.EXE
- DELFILES.EXE
- DUPEFIND.EXE
- FILELIST.EXE
- SMBACTIV.EXE
-
- Note: Newer versions of Borland C++ tended to create larger, more memory
- hungry executables, so I stayed with 3.1 for these 16-bit DOS versions
- (where available DOS memory was a never ending issue with sysops).
- Newer versions of Borland C++ will work (with slight changes to the
- appropriate MAKEFILEs) for the above projects. The last five projects
- listed above are built with MAKEFILE.BC (i.e. make -fmakefile.bc)
- instead of MAKEFILE (used for Watcom).
-
-Borland C++ for DOS, Windows, and Win32 4.5 SCFG.EXE
- SCFG32.EXE
- BAJA.EXE
- BAJA32.EXE
- SBBS4W32.EXE
- INSTALL.EXE
- QWKNODES.EXE
- SBBSECHO.EXE
- SMB2SBL.EXE
- SBL2SMB.EXE
- SMB2SMM.EXE
- SMM2SMB.EXE
- NODE.COM
- SLOG.EXE
- DSTSEDIT.EXE
- ANS2MSG.EXE
- MSG2ANS.EXE
- EXECSBBS.COM
-
- Note: SBBS4W32.EXE, the 32-bit Windows version of Synchronet, is incomplete.
- Again, newer versions of Borland C++ (4.51, 5.x, etc) will probably
- work fine with slight changes to the appropriate MAKEFILEs. SCFG32.EXE
- is a native Win32 app that also runs under DOS (using Borland's DOS
- extender) - I don't know why the gettext/puttext is messed up.
- You'll need EXE2BIN.EXE (included with MS-DOS) to create EXECSBBS.COM.
-
-
-Borland C++ for OS/2 2.0 SBBS4OS2.EXE
- SCFG4OS2.EXE
- SBBSECHO.EXE
- ADDFILES.EXE
- BAJA4OS2.EXE
- DELFILES.EXE
- DUPEFIND.EXE
- FILELIST.EXE
- INSTALL.EXE
- NODE.EXE
- SLOG.EXE
- CHKSMB.EXE
- FIXSMB.EXE
- SMBUTIL.EXE
- SMBACTIV.EXE
- DSTSEDIT.EXE
- ANS2MSG.EXE
- MSG2ANS.EXE
- EXECSBBS.EXE
-
- Note: Watcom makefiles are available for many of these projects and have
- the advantage of being able to be built from any environment (DOS,
- Windows, or OS/2) and create executables that run under all those
- environments. Borland C++ for OS/2, on the otherhand, can only be
- used in an OS/2 environment and can only create OS/2 executables.
- While Borland's C++ compilers definitely compile faster, the resulting
- exectubles created by Watcom C++ are usually smaller and faster.
- Any of the projects that don't already have support for Borland C++
- for OS/2, can probably be easily modified to do so (this excludes
- XSDK apps). Most popular executables are already supported.
-
-
-Watcom C++ 10.0a ADDFILES.EXE
- AUTONODE.EXE
- DELFILES.EXE
- DUPEFIND.EXE
- FILELIST.EXE
- SBBSECHO.EXE
- SMBUTIL.EXE
- SMBACTIV.EXE
-
- Note: All flavors (16-bit DOS, 32-bit DOS, 32-bit OS/2, and 32-bit Windows)
- Love the cross-platform capabilites of Watcom C++!
- The NT\*.EXE files are Win32 executables that run native under either
- Windows 95 or Windows NT.
- The DOSX\*.EXE and DOS4G\*.EXE files are extended DOS executables that
- need DOS4G.EXE or DOS4GW.EXE (included with Watcom C++) in the search
- path. (Sorry 'bout the inconsistency in the sub-directory names,
- there's no difference between DOSX and DOS4G except that I used to have
- some extended DOS Borland projects write to the DOSX directories).
-
- *** IMPORTANT ***
- 1) It is important that you delete all the files from the DOS and OS2
- destination sub-directories (use CLEANALL.BAT) if you've previously
- built a project using Borland C++ and wish to re-build it using
- Watcom. The .OBJ files are NOT compatible between Watcom and Borland
- (without some special effort).
- 2) You must copy \WATCOM\SRC\STARTUP\WILDARGV.C from the Watcom C++
- installation directory (or CD-ROM) into the SBBS\SMB\SMBUTIL
- directory before attempting a Watcom build on the SMBUTIL project.
- It's a copyrighted file, so I couldn't include it.
-
- Watcom can be/could have been used for some of the Borland-only
- projects, but due to its slow compile speed, I only used it for the
- projects that needed the best extended DOS support (DOS4G blows away
- Borland's DOS extender) and cross-platform compile (it was a pain to
- boot OS/2 every time I needed to build an OS/2 executable with Borland
- C++ for OS/2). Plus, Watcom's text-mode screen-libraries were sorely
- lacking (hence no CFG.EXE projects are built with Watcom).
-
-Tool Notes
-==========
-
-As noted aboved, Borland C++ v4.5 (or possibly newer versions) may be used for
-SBBS.EXE (and other BC v3.1 projects), but you will have less available DOS
-memory (the executable will consume more memory).
-
-Borland C++ v4.5 can also be used for many of the Watcom compiled utilities.
-If you find MAKEFILE.BC in any of the Watcom compiled project directories, you
-can use this makefile to build a 16-bit DOS, 32-bit OS/2, and in some cases
-32-bit DOS executable with Borland C++. Likewise, any *.WAT makefiles (and most
-of the MAEKALL.BAT files) are intended for use with Watcom C++.
-
-
-Project Notes
-=============
-
-Most projects are built via MAKEFILE and/or .BAT/.CMD file. If you find a
-MAKEALL.BAT or MAKEALL.CMD (for OS/2) file in any of the project directories,
-this batch file is used to compile and link versions for all supported
-platforms (e.g. DOS-16, DOS-32, OS/2, Win32, etc).
-
-If a MAKEFILE or *.MAK file doesn't exist in the project directory, there may
-be a simple MAKE.BAT/MAKE.CMD to build the executable. The simplest projects
-may not include any type of MAKEFILE, BAT, or CMD file, but just require a
-basic CC command line to compile and link into an executable (only the most
-independant and smallest projects fit into this category).
-
-The MAKEALL.BAT file in the source ROOT directory is used to build ALL
-Borland C++ DOS and Win32 projects.
-
-The MAKEALL.CMD file in the source ROOT directory is used to build ALL
-Borland C++ OS/2 projects.
-
-The WMAKEALL.BAT file in the source ROOT directory is used to build ALL
-Watcom C++ DOS, DOS4G, OS/2 and Win32 projects.
-
-Sub-directories are usually used to house the output files (.OBJ, .EXE, .MAP,
-etc) for each supported platform. Sub-directories with the name DOS are used
-for 16-bit DOS output files; sub-directories of DOSX, DOS32, or DOS4G are used
-for 32-bit extended DOS output files; sub-directories of OS2 contain 32-bit
-OS/2 output files; subdirectories of NT or W32 contain 32-bit Windows
-(Windows NT or Windows 95) output files. In the more simple projects (e.g.
-BAJA*.EXE), no sub-directories are utilized.
-
-The makefiles (MAKEFILE.*, *.MAK, *.BC, *.WAT) are setup for my environment.
-You will most likely need to make changes to these makefiles for your
-environment. For reference purposes, these are the path locations of the
-various tools in my environment:
-
-Path Tool
----- ----
-N:\BC31 Borland C++ for DOS and Windows v3.1
-N:\BC45 Borland C++ for DOS, Windows, and Win32 v4.5
-C:\BCOS2 Borland C++ for OS/2 v2.0
-N:\WATCOM Watcom C++ v10.0a
-
-My system PATH environment variable contains N:\BC45\BIN, N:\WATCOM\BINB,
-and N:\WATCOM\BIN. So if you see references (without path) to BCC, then that
-would indicate Borland C++ v4.5. MAKE and MAKER are Borland's MAKE utilities
-(included with Borland C++ v4.5, the latter being the 16-bit real mode
-version). WMAKE is the Watcom MAKE utility.
-
-My N:\BCxx\BIN\TURBOC.CFG file contains:
-
--IN:\BCxx\INCLUDE
--LN:\BCxx\LIB
-
-I've made an effort to eliminate the project drive letter (N:) from all
-MAKEFILEs and BATch files, but some references may still remain. If you only
-have one hard disk on your system (C:) or your projects are stored on the same
-drive the compiler(s) is/are installed on, then simply eliminating any drive
-letter specifications is suggested.
-
-Efforts have been made to eliminate all compiler warnings, but in some cases
-warnings may persist. Especially when using a different compiler or version
-than I have used. Any warnings in the source code I'm releasing may be safely
-ignored. If you or anyone else has modified the code, then warnings in the
-modified files should be investigated at your discretion.
-
-
-Directory Hierachry
-===================
-
-If extracted correctly, the archive that contained this document should have
-created a directory hierarchy similar to the following:
-
-�� SBBS ����������� ADDFILES ������� DOS
-� � �� DOSX
-� � �� NT
-� � �� OS2
-� �� ALLUSERS
-� �� ANS2MSG
-� �� AUTONODE
-� �� BAJA
-� �� DCDWATCH
-� �� DELFILES ������� DOS
-� � �� DOSX
-� � �� NT
-� � �� OS2
-� �� DOS
-� �� DSTSEDIT
-� �� DUPEFIND ������� DOS
-� � �� DOSX
-� � �� NT
-� � �� OS2
-� �� ECHO ����������� DOS
-� � �� DOS4G
-� � �� NT
-� � �� OS2
-� �� EXECDOS
-� �� EXECSBBS ������� DOS
-� � �� OS2
-� �� FILELIST ������� DOS
-� � �� DOSX
-� � �� NT
-� � �� OS2
-� �� INSTALL �������� DOS
-� � �� OS2
-� �� MLABELS
-� �� MSG2ANS
-� �� MSWAIT ��������� DOS
-� �� NODE ����������� DOS
-� � �� OS2
-� �� OS2
-� �� QWKNODES
-� �� RIO
-� �� SBL
-� �� SBJ
-� �� SCB
-� �� SCFG ����������� DOS
-� � �� DOS32
-� � �� OS2
-� �� SDK
-� �� SLOG ����������� DOS
-� � �� OS2
-� �� SMB ������������ CHKSMB ��������� DOS
-� � � �� OS2
-� � �� FIXSMB ��������� DOS
-� � � �� OS2
-� � �� SMBUTIL �������� DOS
-� � �� DOS4G
-� � �� NT
-� � �� OS2
-� �� SMBACTIV ������� DOS
-� � �� DOSX
-� � �� NT
-� � �� OS2
-� �� SMM
-� �� UTI
-� �� W32
-�� MSWAIT ��������� DOS
-�� SPAWNO
-�� STP
-�� TONE
-�� UIFC
-
-Directory Descriptions
-----------------------
-SBBS\ Synchronet source code and shared header files
-SBBS\SMB\ Synchronet Message Base library and header files
-...\CHKSMB\ Source for utility to check Synchronet message bases for errors
-...\FIXSMB\ Source for utility to rebuild Synchronet message base indices
-...\SMBUTIL\ Synchronet message base maintenance utility (SMBUTIL) source
-SBBS\RIO\ OS/2 and Win32 Remote I/O library source and header files
-SBBS\SDK\ Synchronet External program SDK (XSDK) source and header files
-SBBS\SMM\ Synchronet Match Maker and utility source
-SBBS\SCB\ Synchronet Callback source
-SBBS\SBJ\ Synchronet Blackjack source
-SBBS\SBL\ Synchronet BBS List source
-SBBS\UTI\ Synchronet UTI driver (for PostLink/RelayNet/RIME) source
-SBBS\SCFG\ Synchronet Configuration program source
-SBBS\BAJA\ Synchronet shell/module compiler (BAJA.EXE) source
-SBBS\ECHO\ SBBSecho (FidoNet echomail program) source
-SBBS\EXECDOS\ Synchronet for OS/2's EXECDOS.EXE source
-SBBS\EXECSBBS\ EXECSBBS.COM/EXE (for SBBS4DOS/OS2) source
-SBBS\DCDWATCH\ DCDWATCH.EXE source
-SBBS\ADDFILES\ ADDFILES.EXE source
-SBBS\DELFILES\ DELFILES.EXE source
-SBBS\DUPEFIND\ DUPEFIND.EXE source
-SBBS\FILELIST\ FILELIST.EXE source
-SBBS\ALLUSERS\ ALLUSERS.EXE source
-SBBS\MLABELS\ MLABLES.EXE source
-SBBS\ANS2MSG\ ANS2MSG.EXE source
-SBBS\MSG2ANS\ MSG2ANS.EXE source
-SBBS\AUTONODE\ AUTONODE.EXE source
-SBBS\SMBACTIV\ SMBACTIV.EXE source
-SBBS\QWKNODES\ QWKNODES.EXE source
-SBBS\SLOG\ SLOG.EXE source
-SBBS\NODE\ NODE.COM/EXE source
-SBBS\DSTSEDIT\ DSTSEDIT.EXE source
-SBBS\INSTALL\ INSTALL.EXE source
-MSWAIT\ MSWAIT\DOS\MSWAIT.OBJ (millisecond wait) source
-SPAWNO\ Ralf Brown's EMS/XMS/disk swapping replacement for spawn...()
-STP\ Synchronet Transfer Protocols (X/Y/Zmodem) [incomplete]
-TONE\ Tone generator (used for external sysop chat pager)
-UIFC\ User Interface library source and header files (for *CFG.EXE)
-
-Note: If you don't recognize the name of a program or utility, see SYSOP.DOC.
-Note: Source code for SBBS\DOS\RCIOL.OBJ is not provided because I don't have
- it (the consultant that developed this module never supplied me with the
- latest version of the source code).
-
-
-C Header File Notes
-===================
-
-SBBS\SBBS.H
------------
-This is the main shared header file for Synchronet and Synchronet related
-utilities. This header file contains prototypes for most all functions
-contained in SBBS.EXE. But, more importantly, it #includes SMBLIB.H (which
-indirectly #includes SMBDEFS.H), ARS_DEFS.H (which indirectly #includes
-GEN_DEFS.H), SCFGVARS.C (which indirectly #includes SBBSDEFS.H, which
-indirectly #includes NODEDEFS.H), SCFGLIB.H, RIOLIB.H, RIODEFS.H, and if "SBBS"
-is defined (only in the MAKEFILE for SBBS) VARS.C (which indirectly #includes
-text.h). So, as you can see, SBBS.H pretty much covers it in the header file
-department for Synchronet and its related utilities. The only header files
-that SBBS.H doesn't directly or indirectly #include are QWK.H, POST.H, ETEXT.H,
-CMDSHELL.H, and SPAWNO.H. You will find this header file is the most commonly
-#included header file in SBBS modules and Sycnhronet related utilities. The
-comments are quite antiquated and may be safely ignored (e.g. /* DATIO.H */).
-
-SBBS\SBBSDEFS.H
----------------
-This file contains most constants, macros, and type definitions used for
-Synchronet and its utilities. Since it is indirectly #included with SBBS.H,
-you won't find it specifically #included very often.
-
-SBBS\SCFGLIB.H
---------------
-Contains type defintions and function protoypes only used in the initialization
-of Synchronet's configuration structures. Used by the SBBS and SCFG projects
-and all utilities that read Synchronet's configuration (*.CNF) files.
-
-SBBS\GEN_DEFS.H
----------------
-A small header file that contains general application independant constant
-defintions and macros. This header file is #included directly or indirectly
-with nearly every project.
-
-SBBS\ARS_DEFS.H
----------------
-Synchronet's Access Requirement Strings function prototype and constants.
-This function prototype and constants were broken out for use in the SBBS\BAJA
-(shell/module compiler) project.
-
-SBBS\CMDSHELL.H
----------------
-Contains constants, typedefs, and function prototypes specific to Synchronet's
-command shell/module interpreter. Also used in the SBBS\BAJA (shell/module
-compiler) project.
-
-SBBS\POST.H
------------
-Contains type defintions for post_t and shared function prototypes for
-the SBBS and SBBSecho projects.
-
-SBBS\QWK.H
-----------
-Contains constants, type definitions, and function prototypes only used in
-the QWK related portions of the SBBS project.
-
-SBBS\TEXT.H
------------
-Contains constant defintions (via enum) for every text item in Synchronet's
-TEXT.DAT file. Since this header file is indirectly #included with SBBS.H
-in the SBBS project, you won't find it specifically #included very often.
-
-SBBS\ETEXT.H
-------------
-Contains extern variable declarations for the encrypted text strings in the
-SBBS project. This file is automatically created (along with ETEXT.C) from
-ETEXT.DAT by the GENETEXT.EXE utility. The encrypted text strings are left
-over from the commercial version of SBBS.
-
-SBBS\VARS.C
------------
-This is a dual-purpose file. If GLOBAL isn't defined, then it's a C source
-file for all of Synchronet's global variables. SBBS.H automatically #defines
-GLOBAL to extern and #includes this file to automatically declare all global
-variables as extern. This eliminates the double-entry work of creating
-separate definitions and declarations for global variables. This file is
-only used in the SBBS project.
-
-SBBS\RIO\RIOLIB.H
------------------
-This file contains function prototypes for the Remote I/O Library API. This API
-is consistent between DOS, OS/2 and Win32 versions.
-
-SBBS\RIO\RIODEFS.H
-------------------
-Contains constants required for using the Remote I/O Library.
-
-SBBS\SMB\SMBLIB.H
------------------
-Contains constants and function prototypes for the Synchronet Message Base
-Library.
-
-SBBS\SMB\SMBDEFS.H
-------------------
-Contains constants and type definitions required for using the Synchronet
-Message Base Library.
-
-SBBS\SMB\CRC32.H
-----------------
-Standard 32-bit CRC table and macro. Also included in BAJA, SBBSecho, and
-other projects.
-
-SBBS\SCFG\SCFG.H
-----------------
-Contains constant defintions, macros, global variable declarations, and
-function prototypes for modules in the SCFG project.
-
-SBBS\ECHO\SBBSECHO.H
---------------------
-Contains constants, type definitions, and function prototypes for the
-SBBSecho project.
-
-SBBS\UTI\UTI.H
---------------
-Small header file containing global variable declarations, constants, macros,
-and a function prototype for modules in the UTI driver project.
-
-SBBS\SDK\XSDK.H
----------------
-Main header file for Synchronet external programs using the External
-program SDK (XSDK). This header file #includes XSDKVARS.C (global variable
-declarations) which indirectly #includes XSDKDEFS.H (constants and type
-defintions).
-
-UIFC\UIFC.H
------------
-Contains constants, macros, type definitions, and function prototypes for
-the local console User Interface library. Used by the SCFG, SCBCFG, SMMCFG
-and ECHOCFG projects.
-
-SPWANO\SPANWO.H
----------------
-Ralf Brown's spawno function prototypes. Used for swaping SBBS.EXE (16-bit
-DOS) out of memory.
-
-
-C Source File Notes
-===================
-
-Overlays
---------
-The SBBS project (SBBS.EXE/SBBS4OS2.EXE/SBBS4W32.EXE) contains the largest
-number of C source files and has the longest history. For a few years, SBBS.EXE
-was a small 16-bit DOS executable that executed completely in memory (no
-overlays). With each additional group of features, the executable file
-(SBBS.EXE) inevitably increased in size and memory consumption. At one point I
-started compiling two separate versions of SBBS.EXE, one with some of the
-modules overlaid (dynamically swapped to/from disk), and another without
-overlays (faster, but consumed more memory). This was the time with I began to
-split off less-commonly called functions into modules that were specifically
-overlaid (and given a filename ending in OVL.C, e.g. MAIN.C contains
-non-overlaid code, and MAIN_OVL.C contains overlaid code).
-
-As the exectuable grew larger and my knowledge and experience with optimization
-of overlaid modules grew, I stopped making the non-overlaid version
-altogether. The performance difference had become negligible and the memory
-consumption of the non-overlaid version was unwieldly. Anyway, the point of
-this little story is to help explain why so many of the filenames end in OVL.
-Eventually, I ended up overlaying most of the modules (not just the ones named
-with OVL). But still, you'll find that the code in the modules with the OVL
-names is of the less-frequently executed variety. Only the 16-bit versions of
-SBBS.EXE and SCFG.EXE use overlaid modules. All other projects (and the 32-bit
-versions of SBBS/SCFG) do not explicitly use overlays.
-
-Hi/Mid/Low Level
-----------------
-The modules with filenames containing HI (e.g. XFER_HI.C) contain high-level
-code (mostly user-interface type functions); modules with filenames containing
-MID (e.g. CON_MID.C) contain mid-level code (larger functions that don't
-contain direct user-interfaces;, and modules with filenames containing LO
-(e.g. XFER_LO.C) contain low-level code (smaller functions called frequently
-from mid or high level code).
-
-Comments
---------
-Please excuse the sparse comments; I never planned on giving the source code
-out. The source code that was originally distributed freely (SMB library and
-XSDK) is better commented.
-
-
-C Source Content Notes
-======================
-
-First off, make sure you're using an editor with tab stops set to 4 spaces
-for *.C and *.H files (QEdit works nicely), otherwise the source will be mostly
-unreadable (don't try to print the files without first exanding all tabs to
-4 space tabstops). All MAKEFILES and other text files use 8 space tab stops.
-
-If you're an experienced C programmer, the first thing you'll notice when
-examining any of the source code is my somewhat unique style. It's your basic
-K&R style C with significantly compressed whitespace. Most notably, I don't
-put closing curly braces (}) on their own line (except at the end of a
-function). Instead, I use consitent indentation to indicate nested logic and
-control flow. Also, I don't indent the base code of a function, but I do indent
-automatic variables. And I don't put white space between any operators except
-&& and ||. This style comes from the usefulness of getting as much code as
-possible in an 80x25 window (and saving printer paper). You'll notice, I do use
-blank lines to enhance readability, but there are no strict rules I follow in
-the blank line department. If my style really bugs you and you just can't get
-used to it, then run the source through a C beautifier or other such C
-formatting utility (but don't cry if it doesn't compile after that).
-
-Example (K&R style):
-
-main()
-{
- char line[MAXLINE];
- int found = 0;
-
- while (getline(line, MAXLINE) > 0)
- if (strindex(line, pattern) >= 0) {
- printf("%s", line);
- found++;
- }
- return found;
-}
-
-Example (my style):
-
-main()
-{
- char line[MAXLINE];
- int found=0;
-
-while(getline(line,MAXLINE)>0)
- if(strindex(line,pattern)>=0) {
- printf("%s",line);
- found++; }
-return(found);
-}
-
-If you find blocks of code contained in "#if 0" and "#endif" or "/***" and
-"***/", you can safely ignore or even delete this code (the compiler is
-ignoring it). For some reason, I found it necessary or preferable to remove or
-replace the code in question but wished to leave the old code temporarily
-intact in case I changed my mind... I'm not going to be changing me mind. :-)
-
-I've deleted all sections of code refering to registration numbers, keys, etc.
-If you find some code remaining that appears to require a registration number
-or key of some sort, it probably can be safely ignored (unless you've found it
-impeding the operation of the program) - but there shouldn't be any.
-
-
-Last Minute Updates
-===================
-
-The UTI, FIXSMB, QWKNODES, and SBL2SMB/SMB2SBL projects were all converted from
-SMBLIB 1.x to 2.x at the last minute. They all compile, but haven't been
-tested. The differences between SMBLIB 1.x and 2.x are mainly in the calling
-conventions, so these programs should run fine, but I suppose you never know
-what could've happened.
-
-/* End of SBBS_SRC.DOC */
diff --git a/src/sbbs2/sbbsdefs.h b/src/sbbs2/sbbsdefs.h
deleted file mode 100644
index 93304c26d15cce3b3e93b7ca4bfd011c7fac0904..0000000000000000000000000000000000000000
--- a/src/sbbs2/sbbsdefs.h
+++ /dev/null
@@ -1,1330 +0,0 @@
-/* SBBSDEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/************************************************************/
-/* Constants, macros, and typedefs for use ONLY with SBBS */
-/************************************************************/
-
-#ifndef _SBBSDEFS_H
-#define _SBBSDEFS_H
-
-#include "gen_defs.h"
-#include "nodedefs.h"
-#include <time.h>
-
-/*************/
-/* Constants */
-/*************/
-
-#define VERSION "2.30" /* Version: Major.minor */
-#define REVISION 'C'
-#define BETA " beta" /* Space if non-beta, " �eta" otherwise */
-
-#define Y2K_2DIGIT_WINDOW 70
-
-/************/
-/* Maximums */
-/************/
-
-#define MAX_NODES 250
-
-#ifdef __FLAT__
-#define MAX_FILES 10000 /* Maximum number of files per dir */
-#define MAX_SYSMAIL 50000 /* Maximum number of total emails in system */
-#else
-#define MAX_FILES 1000 /* Maximum number of files per dir */
-#define MAX_SYSMAIL 5000 /* Maximum number of total emails in system */
-#endif
-#define MAX_USERXFER 500 /* Maximum number of dest. users of usrxfer */
-
-
-#define LEN_DIR 63 /* Maximum length of directory paths */
-#define LEN_CMD 63 /* Maximum length of command lines */
-
- /* Lengths of various strings */
-#define LEN_GSNAME 15 /* Group/Lib short name */
-#define LEN_GLNAME 40 /* Group/Lib long name */
-#define LEN_SSNAME 25 /* Sub/Dir short name */
-#define LEN_SLNAME 40 /* Sub/Dir long name */
-
- /* User Questions */
-#define UQ_ALIASES (1L<<0) /* Ask for alias */
-#define UQ_LOCATION (1L<<1) /* Ask for location */
-#define UQ_ADDRESS (1L<<2) /* Ask for address */
-#define UQ_PHONE (1L<<3) /* Ask for phone number */
-#define UQ_HANDLE (1L<<4) /* Ask for chat handle */
-#define UQ_DUPHAND (1L<<5) /* Search for duplicate handles */
-#define UQ_SEX (1L<<6) /* Ask for sex :) */
-#define UQ_BIRTH (1L<<7) /* Ask for birth date */
-#define UQ_COMP (1L<<8) /* Ask for computer type */
-#define UQ_MC_COMP (1L<<9) /* Multiple choice computer type */
-#define UQ_REALNAME (1L<<10) /* Ask for real name */
-#define UQ_DUPREAL (1L<<11) /* Search for duplicate real names */
-#define UQ_COMPANY (1L<<12) /* Ask for company name */
-#define UQ_NOEXASC (1L<<13) /* Don't allow ex-ASCII in user text */
-#define UQ_CMDSHELL (1L<<14) /* Ask for command shell */
-#define UQ_XEDIT (1L<<15) /* Ask for external editor */
-#define UQ_NODEF (1L<<16) /* Don't ask for default settings */
-#define UQ_NOCOMMAS (1L<<17) /* Do not require commas in location */
-
-
- /* Different bits in sys_misc */
-#define SM_CLOSED (1L<<0) /* System is clsoed to New Users */
-#define SM_SYSSTAT (1L<<1) /* Sysops activity included in statistics */
-#define SM_NOBEEP (1L<<2) /* No beep sound locally */
-#define SM_PWEDIT (1L<<3) /* Allow users to change their passwords */
-#define SM_TIMED_EX (1L<<4) /* Timed event must run exclusively */
-#define SM_ANON_EM (1L<<5) /* Allow anonymous e-mail */
-#define SM_LISTLOC (1L<<6) /* Use location of caller in user lists */
-#define SM_WILDCAT (1L<<7) /* Expand Wildcat color codes in messages */
-#define SM_PCBOARD (1L<<8) /* Expand PCBoard color codes in messages */
-#define SM_WWIV (1L<<9) /* Expand WWIV color codes in messages */
-#define SM_CELERITY (1L<<10) /* Expand Celerity color codes in messages */
-#define SM_RENEGADE (1L<<11) /* Expand Renegade color codes in messages */
-#define SM_ECHO_PW (1L<<12) /* Echo passwords locally */
-#define SM_REQ_PW (1L<<13) /* Require passwords locally */
-#define SM_L_SYSOP (1L<<14) /* Allow local sysop logon/commands */
-#define SM_R_SYSOP (1L<<15) /* Allow remote sysop logon/commands */
-#define SM_QUOTE_EM (1L<<16) /* Allow quoting of e-mail */
-#define SM_EURODATE (1L<<17) /* Europian date format (DD/MM/YY) */
-#define SM_MILITARY (1L<<18) /* Military time format */
-#define SM_TIMEBANK (1L<<19) /* Allow time bank functions */
-#define SM_FILE_EM (1L<<20) /* Allow file attachments in E-mail */
-#define SM_SHRTPAGE (1L<<21) /* Short sysop page */
-#define SM_TIME_EXP (1L<<22) /* Set to expired values if out-of-time */
-#define SM_FASTMAIL (1L<<23) /* Fast e-mail storage mode */
-#define SM_QVALKEYS (1L<<24) /* Quick validation keys enabled */
-#define SM_ERRALARM (1L<<25) /* Error beeps on */
-#define SM_FWDTONET (1L<<26) /* Allow forwarding of e-mail to netmail */
-#define SM_DELREADM (1L<<27) /* Delete read mail automatically */
-#define SM_NOCDTCVT (1L<<28) /* No credit to minute conversions allowed */
-#define SM_DELEMAIL (1L<<29) /* Physically remove deleted e-mail immed. */
-#define SM_USRVDELM (1L<<30) /* Users can see deleted msgs */
-#define SM_SYSVDELM (1L<<31) /* Sysops can see deleted msgs */
-
- /* Different bits in node_misc */
-#define NM_ANSALARM (1<<0) /* Alarm locally on answer */
-#define NM_WFCSCRN (1<<1) /* Wait for call screen */
-#define NM_WFCMSGS (1<<2) /* Include total messages/files on WFC */
-#define NM_LCL_EDIT (1<<3) /* Use local editor to create messages */
-#define NM_EMSOVL (1<<4) /* Use expanded memory of overlays */
-#define NM_WINOS2 (1<<5) /* Use Windows/OS2 time slice API call */
-#define NM_INT28 (1<<6) /* Make int 28 DOS idle calls */
-#define NM_NODV (1<<7) /* Don't detect and use DESQview API */
-#define NM_NO_NUM (1<<8) /* Don't allow logons by user number */
-#define NM_LOGON_R (1<<9) /* Allow logons by user real name */
-#define NM_LOGON_P (1<<10) /* Secure logons (always ask for password) */
-#define NM_NO_LKBRD (1<<11) /* No local keyboard (at all) */
-#define NM_SYSPW (1<<12) /* Protect WFC keys and Alt keys with SY: */
-#define NM_NO_INACT (1<<13) /* No local inactivity alert/logoff */
-#define NM_NOBEEP (1<<14) /* Don't beep locally */
-#define NM_LOWPRIO (1<<15) /* Always use low priority input */
-#define NM_7BITONLY (1L<<16) /* Except 7-bit input only (E71 terminals) */
-#define NM_RESETVID (1L<<17) /* Reset video mode between callers? */
-
- /* Miscellaneous Modem Settings (mdm_misc) */
-#define MDM_CTS (1<<0) /* Use hardware send flow control */
-#define MDM_RTS (1<<1) /* Use hardware recv flow control */
-#define MDM_STAYHIGH (1<<2) /* Stay at highest DTE rate */
-#define MDM_CALLERID (1<<3) /* Supports Caller ID */
-#define MDM_DUMB (1<<4) /* Just watch DCD for answer - dumb modem */
-#define MDM_NODTR (1<<5) /* Don't drop DTR for hang-up */
-#define MDM_KNOWNRES (1<<6) /* Allow known result codes only */
-#define MDM_VERBAL (1<<7) /* Use verbal result codes */
-
- /* Bit values for level_misc[x] */
-#define LEVEL_EXPTOLVL (1<<0) /* Expire to level_expireto[x] */
-#define LEVEL_EXPTOVAL (1<<1) /* Expire to val[level_expireto[x]] */
-
- /* Bit values for prot[x].misc */
-#define PROT_DSZLOG (1<<0) /* Supports DSZ Log */
-
- /* Bit values in netmail_misc */
-
-#define NMAIL_ALLOW (1<<0) /* Allow NetMail */
-#define NMAIL_CRASH (1<<1) /* Default netmail to crash */
-#define NMAIL_HOLD (1<<2) /* Default netmail to hold */
-#define NMAIL_KILL (1<<3) /* Default netmail to kill after sent */
-#define NMAIL_ALIAS (1<<4) /* Use Aliases in NetMail */
-#define NMAIL_FILE (1<<5) /* Allow file attachments */
-#define NMAIL_DIRECT (1<<6) /* Default netmail to direct */
-
- /* Attribute bits for fido msg header */
-#define FIDO_PRIVATE (1<<0) /* Private message */
-#define FIDO_CRASH (1<<1) /* Crash-mail (send immediately) */
-#define FIDO_RECV (1<<2) /* Received successfully */
-#define FIDO_SENT (1<<3) /* Sent successfully */
-#define FIDO_FILE (1<<4) /* File attached */
-#define FIDO_INTRANS (1<<5) /* In transit */
-#define FIDO_ORPHAN (1<<6) /* Orphan */
-#define FIDO_KILLSENT (1<<7) /* Kill it after sending it */
-#define FIDO_LOCAL (1<<8) /* Created locally - on this system */
-#define FIDO_HOLD (1<<9) /* Hold - don't send it yet */
-#define FIDO_FREQ (1<<11) /* File request */
-#define FIDO_RRREQ (1<<12) /* Return receipt request */
-#define FIDO_RR (1<<13) /* This is a return receipt */
-#define FIDO_AUDIT (1<<14) /* Audit request */
-#define FIDO_FUPREQ (1<<15) /* File update request */
-
- /* Bit values for sub[x].misc */
-#define SUB_NSCAN (1L<<0) /* Scan this sub-board for new msgs */
-#define SUB_YSCAN (1L<<1) /* Scan for new messages to you only */
-#define SUB_SSCAN (1L<<2) /* Scan this sub-board for msgs to you */
-#define SUB_QNET (1L<<3) /* Sub-board is netted via QWK network */
-#define SUB_PNET (1L<<4) /* Sub-board is netted via PostLink */
-#define SUB_FIDO (1L<<5) /* Sub-board is netted via FidoNet */
-#define SUB_PRIV (1L<<6) /* Allow private posts on sub */
-#define SUB_PONLY (1L<<7) /* Private posts only */
-#define SUB_ANON (1L<<8) /* Allow anonymous posts on sub */
-#define SUB_AONLY (1L<<9) /* Anonymous only */
-#define SUB_NAME (1L<<10) /* Must use real names */
-#define SUB_DEL (1L<<11) /* Allow users to delete messages */
-#define SUB_DELLAST (1L<<12) /* Allow users to delete last msg only */
-#define SUB_FORCED (1L<<13) /* Sub-board is forced scanning */
-#define SUB_NOTAG (1L<<14) /* Don't add tag or origin lines */
-#define SUB_TOUSER (1L<<15) /* Prompt for to user on posts */
-#define SUB_ASCII (1L<<16) /* ASCII characters only */
-#define SUB_QUOTE (1L<<17) /* Allow online quoting */
-#define SUB_NSDEF (1L<<18) /* New-Scan on by default */
-#define SUB_INET (1L<<19) /* Sub-board is netted via Internet */
-#define SUB_FAST (1L<<20) /* Fast storage mode */
-#define SUB_KILL (1L<<21) /* Kill read messages automatically */
-#define SUB_KILLP (1L<<22) /* Kill read pvt messages automatically */
-#define SUB_SYSPERM (1L<<23) /* Sysop messages are permament */
-#define SUB_GATE (1L<<24) /* Gateway between Network types */
-#define SUB_LZH (1L<<25) /* Use LZH compression for msgs */
-#define SUB_SSDEF (1L<<26) /* Default ON for Scan for Your msgs */
-#define SUB_HYPER (1L<<27) /* Hyper allocation */
-
- /* Bit values for dir[x].misc */
-#define DIR_FCHK (1L<<0) /* Check for file existance */
-#define DIR_RATE (1L<<1) /* Force uploads to be rated G,R, or X */
-#define DIR_MULT (1L<<2) /* Ask for multi-disk numbering */
-#define DIR_DUPES (1L<<3) /* Search this dir for upload dupes */
-#define DIR_FREE (1L<<4) /* Free downloads */
-#define DIR_TFREE (1L<<5) /* Time to download is free */
-#define DIR_CDTUL (1L<<6) /* Credit Uploads */
-#define DIR_CDTDL (1L<<7) /* Credit Downloads */
-#define DIR_ANON (1L<<8) /* Anonymous uploads */
-#define DIR_AONLY (1L<<9) /* Anonymous only */
-#define DIR_ULDATE (1L<<10) /* Include upload date in listing */
-#define DIR_DIZ (1L<<11) /* FILE_ID.DIZ and DESC.SDI support */
-#define DIR_NOSCAN (1L<<12) /* Don't new-scan this directory */
-#define DIR_NOAUTO (1L<<13) /* Don't auto-add this directory */
-#define DIR_ULTIME (1L<<14) /* Deduct time during uploads */
-#define DIR_CDTMIN (1L<<15) /* Give uploader minutes instead of cdt */
-#define DIR_SINCEDL (1L<<16) /* Purge based on days since last dl */
-#define DIR_MOVENEW (1L<<17) /* Files marked as new when moved */
-
- /* Bit values for file_t.misc */
-#define FM_EXTDESC (1<<0) /* Extended description exists */
-#define FM_ANON (1<<1) /* Anonymous upload */
-
-enum { /* errormsg() codes */
- ERR_OPEN /* opening a file */
- ,ERR_CLOSE /* close a file */
- ,ERR_FDOPEN /* associating a stream with fd */
- ,ERR_READ /* reading from file */
- ,ERR_WRITE /* writing to file */
- ,ERR_REMOVE /* removing a file */
- ,ERR_ALLOC /* allocating memory */
- ,ERR_CHK /* checking */
- ,ERR_LEN /* file length */
- ,ERR_EXEC /* executing */
- ,ERR_CHDIR /* changing directory */
- ,ERR_CREATE /* creating */
- ,ERR_LOCK /* locking */
- ,ERR_UNLOCK /* unlocking */
- };
-
-enum { /* Values for dir[x].sort */
- SORT_NAME_A /* Sort by filename, ascending */
- ,SORT_NAME_D /* Sort by filename, descending */
- ,SORT_DATE_A /* Sort by upload date, ascending */
- ,SORT_DATE_D /* Sort by upload date, descending */
- };
-
-enum {
- clr_mnehigh
- ,clr_mnelow
- ,clr_mnecmd
- ,clr_inputline
- ,clr_err
- ,clr_nodenum
- ,clr_nodeuser
- ,clr_nodestatus
- ,clr_filename
- ,clr_filecdt
- ,clr_filedesc
- ,clr_filelsthdrbox
- ,clr_filelstline
- ,clr_chatlocal
- ,clr_chatremote
- ,clr_multichat
- ,TOTAL_COLORS };
-
-enum { /* Values for xtrn_t.type */
- XTRN_NONE /* No data file needed */
- ,XTRN_SBBS /* Synchronet external */
- ,XTRN_WWIV /* WWIV external */
- ,XTRN_GAP /* Gap door */
- ,XTRN_RBBS /* RBBS, QBBS, or Remote Access */
- ,XTRN_WILDCAT /* Wildcat */
- ,XTRN_PCBOARD /* PCBoard */
- ,XTRN_SPITFIRE /* SpitFire */
- ,XTRN_UTI /* UTI Doors - MegaMail */
- ,XTRN_SR /* Solar Realms */
- ,XTRN_RBBS1 /* DORINFO1.DEF always */
- ,XTRN_TRIBBS /* TRIBBS.SYS */
- };
-
-enum { /* Values for xtrn_t.event */
- EVENT_NONE /* Only accessible by menu */
- ,EVENT_LOGON /* Execute during logon sequence */
- ,EVENT_LOGOFF /* Execute during logoff sequence */
- ,EVENT_NEWUSER /* Execute during newuser app. */
- ,EVENT_BIRTHDAY /* Execute on birthday */
- };
-
- /* Misc bits for event_t.misc */
-#define EVENT_EXCL (1L<<0) /* Exclusive */
-#define EVENT_FORCE (1L<<1) /* Force users off-line for event */
-
- /* Mode bits for QWK stuff */
-#define A_EXPAND (1<<0) /* Expand to ANSI sequences */
-#define A_LEAVE (1<<1) /* Leave in */
-#define A_STRIP (1<<2) /* Strip out */
-
- /* Bits in xtrn_t.misc */
-#define MULTIUSER (1L<<0) /* allow multi simultaneous users */
-#define ANSI (1L<<1) /* user must have ANSI, same as ^^^ */
-#define IO_INTS (1L<<2) /* Intercept I/O interrupts */
-#define MODUSERDAT (1L<<3) /* Program can modify user data */
-#define WWIVCOLOR (1L<<4) /* Program uses WWIV color codes */
-#define EVENTONLY (1L<<5) /* Program executes as event only */
-#define STARTUPDIR (1L<<6) /* Create drop file in start-up dir */
-#define REALNAME (1L<<7) /* Use real name in drop file */
-#define SWAP (1L<<8) /* Swap for this door */
-#define FREETIME (1L<<9) /* Free time while in this door */
-#define QUICKBBS (1L<<10) /* QuickBBS style editor */
-#define EXPANDLF (1L<<11) /* Expand LF to CRLF editor */
-#define QUOTEALL (1L<<12) /* Automatically quote all of msg */
-#define QUOTENONE (1L<<13) /* Automatically quote none of msg */
-
- /* Bits in user.qwk */
-#define QWK_FILES (1L<<0) /* Include new files list */
-#define QWK_EMAIL (1L<<1) /* Include unread e-mail */
-#define QWK_ALLMAIL (1L<<2) /* Include ALL e-mail */
-#define QWK_DELMAIL (1L<<3) /* Delete e-mail after download */
-#define QWK_BYSELF (1L<<4) /* Include messages from self */
-#define QWK_UNUSED (1L<<5) /* Currently unused */
-#define QWK_EXPCTLA (1L<<6) /* Expand ctrl-a codes to ascii */
-#define QWK_RETCTLA (1L<<7) /* Retain ctrl-a codes */
-#define QWK_ATTACH (1L<<8) /* Include file attachments */
-#define QWK_NOINDEX (1L<<9) /* Do not create index files in QWK */
-#define QWK_TZ (1L<<10) /* Include "@TZ" time zone in msgs */
-#define QWK_VIA (1L<<11) /* Include "@VIA" seen-bys in msgs */
-#define QWK_NOCTRL (1L<<12) /* No extraneous control files */
-
-#define INVALID_DIR 0xffff /* Invalid directory value */
-#define INVALID_SUB 0xffff /* Invalid sub-board value */
-
-#define KEY_BUFSIZE 1024 /* Size of keyboard input buffer */
-#define SAVE_LINES 4 /* Maximum number of lines to save */
-#define LINE_BUFSIZE 512 /* Size of line output buffer */
-
-
-#define TABSIZE 4 /* Tab Size */
-
-#define SWAP_NONE 0x80 /* Allow no swapping for executables */
-
-#define DSTSDABLEN 50 /* Length of DSTS.DAB file */
-
- /* Console I/O Bits (console) */
-#define CON_R_ECHO (1<<0) /* Echo remotely */
-#define CON_R_ECHOX (1<<1) /* Echo X's to remote user */
-#define CON_R_INPUT (1<<2) /* Accept input remotely */
-#define CON_L_ECHO (1<<3) /* Echo locally */
-#define CON_L_ECHOX (1<<4) /* Echo X's locally */
-#define CON_L_INPUT (1<<5) /* Accept input locally */
-#define CON_RAW_IN (1<<8) /* Raw input mode - no editing capabilities */
-#define CON_ECHO_OFF (1<<10)/* Remote & Local echo disabled for ML/MF */
-#define CON_UPARROW (1<<11)/* Up arrow hit - move up one line */
-
- /* Number of milliseconds */
-#define DELAY_HANGUP 250 /* Delay before modem drops carrier */
-#define DELAY_MDMTLD 500 /* Delay to give each ~ in modem strings */
-#define DELAY_SPIN 10 /* Delay for the spinning cursor */
-#define DELAY_AUTOHG 1500 /* Delay for auto-hangup (xfer) */
-
-#define SEC_LOGON 1800 /* 30 minutes allowed to logon */
-#define SEC_BILLING 90 /* under 2 minutes per billing call */
-#define SEC_OK 5 /* Attempt to get an OK response from modem */
-#define SEC_ANSI 5 /* Attempt to get a valid ANSI response */
-#define SEC_ANSWER 30 /* Retries to get an answer code from modem */
-#define SEC_CID 10 /* Ten second pause for caller ID */
-#define SEC_RING 6 /* Maximum seconds between rings */
-
-#define LOOP_NOPEN 50 /* Retries before file access denied */
-#define LOOP_NODEDAB 50 /* Retries on NODE.DAB locking/unlocking */
-
- /* String lengths */
-#define LEN_ALIAS 25 /* User alias */
-#define LEN_NAME 25 /* User name */
-#define LEN_HANDLE 8 /* User chat handle */
-#define LEN_NOTE 30 /* User note */
-#define LEN_COMP 30 /* User computer description */
-#define LEN_COMMENT 60 /* User comment */
-#define LEN_NETMAIL 60 /* NetMail forwarding address */
-#define LEN_PASS 8 /* User password */
-#define LEN_PHONE 12 /* User phone number */
-#define LEN_BIRTH 8 /* Birthday in MM/DD/YY format */
-#define LEN_ADDRESS 30 /* User address */
-#define LEN_LOCATION 30 /* Location (City, State) */
-#define LEN_ZIPCODE 10 /* Zip/Postal code */
-#define LEN_MODEM 8 /* User modem type description */
-#define LEN_FDESC 58 /* File description */
-#define LEN_FCDT 9 /* 9 digits for file credit values */
-#define LEN_TITLE 70 /* Message title */
-#define LEN_MAIN_CMD 40 /* Storage in user.dat for custom commands */
-#define LEN_XFER_CMD 40
-#define LEN_SCAN_CMD 40
-#define LEN_MAIL_CMD 40
-#define LEN_CID 25 /* Caller ID (phone number) */
-#define LEN_ARSTR 40 /* Max length of Access Requirement string */
-#define LEN_CHATACTCMD 9 /* Chat action command */
-#define LEN_CHATACTOUT 65 /* Chat action output string */
-
-/****************************************************************************/
-/* This is a list of offsets into the USER.DAT file for different variables */
-/* that are stored (for each user) */
-/****************************************************************************/
-#define U_ALIAS 0 /* Offset to alias */
-#define U_NAME (U_ALIAS+LEN_ALIAS) /* Offset to name */
-#define U_HANDLE (U_NAME+LEN_NAME)
-#define U_NOTE (U_HANDLE+LEN_HANDLE+2)
-#define U_COMP (U_NOTE+LEN_NOTE)
-#define U_COMMENT (U_COMP+LEN_COMP+2)
-
-#define U_NETMAIL (U_COMMENT+LEN_COMMENT+2)
-
-#define U_ADDRESS (U_NETMAIL+LEN_NETMAIL+2)
-#define U_LOCATION (U_ADDRESS+LEN_ADDRESS)
-#define U_ZIPCODE (U_LOCATION+LEN_LOCATION)
-
-#define U_PASS (U_ZIPCODE+LEN_ZIPCODE+2)
-#define U_PHONE (U_PASS+8) /* Offset to phone-number */
-#define U_BIRTH (U_PHONE+12) /* Offset to users birthday */
-#define U_MODEM (U_BIRTH+8)
-#define U_LASTON (U_MODEM+8)
-#define U_FIRSTON (U_LASTON+8)
-#define U_EXPIRE (U_FIRSTON+8)
-#define U_PWMOD (U_EXPIRE+8)
-
-#define U_LOGONS (U_PWMOD+8+2)
-#define U_LTODAY (U_LOGONS+5)
-#define U_TIMEON (U_LTODAY+5)
-#define U_TEXTRA (U_TIMEON+5)
-#define U_TTODAY (U_TEXTRA+5)
-#define U_TLAST (U_TTODAY+5)
-#define U_POSTS (U_TLAST+5)
-#define U_EMAILS (U_POSTS+5)
-#define U_FBACKS (U_EMAILS+5)
-#define U_ETODAY (U_FBACKS+5)
-#define U_PTODAY (U_ETODAY+5)
-
-#define U_ULB (U_PTODAY+5+2)
-#define U_ULS (U_ULB+10)
-#define U_DLB (U_ULS+5)
-#define U_DLS (U_DLB+10)
-#define U_CDT (U_DLS+5)
-#define U_MIN (U_CDT+10)
-
-#define U_LEVEL (U_MIN+10+2) /* Offset to Security Level */
-#define U_FLAGS1 (U_LEVEL+2) /* Offset to Flags */
-#define U_TL (U_FLAGS1+8) /* Offset to unused field */
-#define U_FLAGS2 (U_TL+2)
-#define U_EXEMPT (U_FLAGS2+8)
-#define U_REST (U_EXEMPT+8)
-#define U_ROWS (U_REST+8+2) /* Number of Rows on user's monitor */
-#define U_SEX (U_ROWS+2) /* Sex, Del, ANSI, color etc. */
-#define U_MISC (U_SEX+1) /* Miscellaneous flags in 8byte hex */
-#define U_OLDXEDIT (U_MISC+8) /* External editor (Version 1 method) */
-#define U_LEECH (U_OLDXEDIT+2) /* two hex digits - leech attempt count */
-#define U_CURSUB (U_LEECH+2) /* Current sub (internal code) */
-#define U_CURDIR (U_CURSUB+8) /* Current dir (internal code) */
-#define U_CMDSET (U_CURDIR+8) /* unused */
-#define U_MAIN_CMD (U_CMDSET+2+2) /* unused */
-#define U_XFER_CMD (U_MAIN_CMD+LEN_MAIN_CMD) /* unused */
-#define U_SCAN_CMD (U_XFER_CMD+LEN_XFER_CMD+2) /* unused */
-#define U_MAIL_CMD (U_SCAN_CMD+LEN_SCAN_CMD) /* unused */
-#define U_FREECDT (U_MAIL_CMD+LEN_MAIL_CMD+2)
-#define U_FLAGS3 (U_FREECDT+10) /* Flag set #3 */
-#define U_FLAGS4 (U_FLAGS3+8) /* Flag set #4 */
-#define U_XEDIT (U_FLAGS4+8) /* External editor (code) */
-#define U_SHELL (U_XEDIT+8) /* Command shell (code) */
-#define U_QWK (U_SHELL+8) /* QWK settings */
-#define U_TMPEXT (U_QWK+8) /* QWK extension */
-#define U_CHAT (U_TMPEXT+3) /* Chat settings */
-#define U_NS_TIME (U_CHAT+8) /* New-file scan date/time */
-#define U_PROT (U_NS_TIME+8) /* Default transfer protocol */
-#define U_UNUSED (U_PROT+1)
-#define U_LEN (U_UNUSED+28+2)
-
-/****************************************************************************/
-/* Offsets into DIR .DAT file for different fields for each file */
-/****************************************************************************/
-#define F_CDT 0 /* Offset in DIR#.DAT file for cdts */
-#define F_DESC (F_CDT+LEN_FCDT)/* Description */
-#define F_ULER (F_DESC+LEN_FDESC+2) /* Uploader */
-#define F_TIMESDLED (F_ULER+30+2) /* Number of times downloaded */
-#define F_OPENCOUNT (F_TIMESDLED+5+2)
-#define F_MISC (F_OPENCOUNT+3+2)
-#define F_ALTPATH (F_MISC+1) /* Two hex digit alternate path */
-#define F_LEN (F_ALTPATH+2+2) /* Total length of all fdat in file */
-
-#define F_IXBSIZE 22 /* Length of each index entry */
-
-
-#define SIF_MAXBUF 0x7000 /* Maximum buffer size of SIF data */
-
-/* NOTE: Do not change the values of the following block of defines! */
-
-#define DELETED (1L<<0) /* Bit values for user.misc */
-#define ANSI (1L<<1) /* Supports ANSI terminal emulation */
-#define COLOR (1L<<2) /* Send color codes */
-#define RIP (1L<<3) /* Supports RIP terminal emulation */
-#define UPAUSE (1L<<4) /* Pause on every screen full */
-#define SPIN (1L<<5) /* Spinning cursor - Same as K_SPIN */
-#define INACTIVE (1L<<6) /* Inactive user slot */
-#define EXPERT (1L<<7) /* Expert menu mode */
-#define ANFSCAN (1L<<8) /* Auto New file scan */
-#define CLRSCRN (1L<<9) /* Clear screen before each message */
-#define QUIET (1L<<10) /* Quiet mode upon logon */
-#define BATCHFLAG (1L<<11) /* File list allow batch dl flags */
-#define NETMAIL (1L<<12) /* Forward e-mail to fidonet addr */
-#define CURSUB (1L<<13) /* Remember current sub-board/dir */
-#define ASK_NSCAN (1L<<14) /* Ask for newscanning upon logon */
-#define NO_EXASCII (1L<<15) /* Don't send extended ASCII */
-#define ASK_SSCAN (1L<<16) /* Ask for messages to you at logon */
-#define AUTOTERM (1L<<17) /* Autodetect terminal type */
-#define COLDKEYS (1L<<18) /* No hot-keys */
-#define EXTDESC (1L<<19) /* Extended file descriptions */
-#define AUTOHANG (1L<<20) /* Auto-hang-up after transfer */
-#define WIP (1L<<21) /* Supports WIP terminal emulation */
-
-#define CLREOL 256 /* Character to erase to end of line */
-#define HIGH 8 /* High intensity for curatr */
-
- /* Online status (online) */
-#define ON_LOCAL 1 /* Online locally */
-#define ON_REMOTE 2 /* Online remotely */
-#define ON_XFER 3 /* Online remotely - transferring file */
-#define ON_WFC 4 /* Online waiting for a call */
-
- /* Varios SYSTEM parameters for sys_status */
-#define SS_LOGOPEN (1L<<0) /* Node's Log file is open */
-#define SS_INITIAL (1L<<1) /* The bbs data has been initialized. */
-#define SS_TMPSYSOP (1L<<2) /* Temporary Sysop Status */
-#define SS_USERON (1L<<3) /* A User is logged on to the BBS */
-#define SS_LCHAT (1L<<4) /* Local chat in progress */
-#define SS_CAP (1L<<5) /* Capture is on */
-#define SS_ANSCAP (1L<<6) /* Capture ANSI codes too */
-#define SS_FINPUT (1L<<7) /* Using file for input */
-#define SS_COMISR (1L<<8) /* Com port ISR is installed */
-#define SS_DAILY (1L<<9) /* Execute System Daily Event on logoff */
-#define SS_INUEDIT (1L<<10) /* Inside Alt-Useredit section */
-#define SS_ABORT (1L<<11) /* Global abort input or output flag */
-#define SS_SYSPAGE (1L<<12) /* Paging sysop */
-#define SS_SYSALERT (1L<<13) /* Notify sysop when users hangs up */
-#define SS_GURUCHAT (1L<<14) /* Guru chat in progress */
-#define SS_NODEDAB (1L<<15) /* NODE.DAB operations are okay */
-#define SS_EVENT (1L<<16) /* Time shortened due to upcoming event */
-#define SS_PAUSEON (1L<<17) /* Pause on, overriding user default */
-#define SS_PAUSEOFF (1L<<18) /* Pause off, overriding user default */
-#define SS_IN_CTRLP (1L<<19) /* Inside ctrl-p send node message func */
-#define SS_NEWUSER (1L<<20) /* New User online */
-#define SS_MDMDEBUG (1L<<21) /* Modem debug output */
-#define SS_NEST_PF (1L<<22) /* Nested in printfile function */
-#define SS_DCDHIGH (1L<<23) /* Assume DCD is high always */
-#define SS_SPLITP (1L<<24) /* Split-screen private chat */
-#define SS_NEWDAY (1L<<25) /* Date changed while online */
-
- /* Bits in 'mode' for getkey and getstr */
-#define K_UPPER (1L<<0) /* Converts all letters to upper case */
-#define K_UPRLWR (1L<<1) /* Upper/Lower case automatically */
-#define K_NUMBER (1L<<2) /* Allow numbers only */
-#define K_WRAP (1L<<3) /* Allows word wrap */
-#define K_MSG (1L<<4) /* Allows ANSI, ^N ^A ^G */
-#define K_SPIN (1L<<5) /* Spinning cursor (same as SPIN) */
-#define K_LINE (1L<<6) /* Input line (inverse color) */
-#define K_EDIT (1L<<7) /* Edit string passed */
-#define K_CHAT (1L<<8) /* In chat multi-chat */
-#define K_NOCRLF (1L<<9) /* Don't print CRLF after string input */
-#define K_ALPHA (1L<<10) /* Only allow alphabetic characters */
-#define K_GETSTR (1L<<11) /* getkey called from getstr() */
-#define K_LOWPRIO (1L<<12) /* low priority input */
-#define K_NOEXASC (1L<<13) /* No extended ASCII allowed */
-#define K_E71DETECT (1L<<14) /* Detect E-7-1 terminal type */
-#define K_AUTODEL (1L<<15) /* Auto-delete text (used with K_EDIT) */
-#define K_COLD (1L<<16) /* Possible cold key mode */
-#define K_NOECHO (1L<<17) /* Don't echo input */
-
- /* Bits in 'mode' for putmsg and printfile */
-#define P_NOABORT (1<<0) /* Disallows abortion of a message */
-#define P_SAVEATR (1<<1) /* Save the new current attributres after */
- /* msg has printed. */
-#define P_NOATCODES (1<<2) /* Don't allow @ codes */
-#define P_OPENCLOSE (1<<3) /* Open and close the file */
-
- /* Bits in 'mode' for listfiles */
-#define FL_ULTIME (1<<0) /* List files by upload time */
-#define FL_DLTIME (1<<1) /* List files by download time */
-#define FL_NO_HDR (1<<2) /* Don't list directory header */
-#define FL_FINDDESC (1<<3) /* Find text in description */
-#define FL_EXFIND (1<<4) /* Find text in description - extended info */
-#define FL_VIEW (1<<5) /* View ZIP/ARC/GIF etc. info */
-
- /* Bits in the mode of writemsg and email() */
-#define WM_EXTDESC (1<<0) /* Writing extended file description */
-#define WM_EMAIL (1<<1) /* Writing e-mail */
-#define WM_NETMAIL (1<<2) /* Writing NetMail */
-#define WM_ANON (1<<3) /* Writing anonymous message */
-#define WM_FILE (1<<4) /* Attaching a file to the message */
-#define WM_NOTOP (1<<5) /* Don't add top because we need top line */
-#define WM_QUOTE (1<<6) /* Quote file available */
-#define WM_QWKNET (1<<7) /* Writing QWK NetMail (25 char title) */
-#define WM_PRIVATE (1<<8) /* Private (for creating MSGINF file) */
-
- /* Bits in the mode of loadposts() */
-#define LP_BYSELF (1<<0) /* Include messages sent by self */
-#define LP_OTHERS (1<<1) /* Include messages sent to others */
-#define LP_UNREAD (1<<2) /* Un-read messages only */
-#define LP_PRIVATE (1<<3) /* Include all private messages */
-#define LP_REP (1<<4) /* Packing REP packet */
-
- /* Bits in the mode of loadmail() */
-#define LM_UNREAD (1<<0) /* Include un-read mail only */
-#define LM_QWK (1<<1) /* Loading for a QWK packet */
-
-enum { /* readmail and delmailidx which types */
- MAIL_YOUR /* mail sent to you */
- ,MAIL_SENT /* mail you have sent */
- ,MAIL_ANY /* mail sent to or from you */
- ,MAIL_ALL /* all mail (ignores usernumber arg) */
- };
-
-#if 0
- /* Message mode bits */
-#define MSG_PERM 1 /* Permanent - non-purgable message (post) */
-#define MSG_FORWARD 1 /* Forwarded message (mail) */
-#define MSG_ANON 2 /* Anonymous message */
-#define MSG_PRIVATE 4 /* Private posted message */
-#define MSG_READ 8 /* Private post has been read */
-#define MSG_FILE 16 /* File attached */
-
-#endif
-
- /* Bits in the mode of external() */
-#define EX_CC (1<<0) /* Use command.com to load other process */
-#define EX_OUTR (1<<1) /* Copy DOS output to remote */
-#define EX_OUTL (1<<2) /* Use _lputc() for local DOS output */
-#define EX_INR (1<<3) /* Trap int 16h keyboard input requests */
-#define EX_WWIV (1<<4) /* Expand WWIV color codes to ANSI sequence */
-#define EX_SWAP (1<<5) /* Swap out for this external */
-#define EX_OS2 (1<<6) /* Executing an OS/2 pgm from SBBS4OS2 */
-#define EX_POPEN (1<<7) /* Leave COM port open */
-
-#define OS2_POPEN (1<<0) /* Leave COM port open */
-
-enum { /* Values for 'mode' in listfileinfo */
- FI_INFO /* Just list file information */
- ,FI_REMOVE /* Remove/Move/Edit file information */
- ,FI_DOWNLOAD /* Download files */
- ,FI_OLD /* Search/Remove files not downloaded since */
- ,FI_OLDUL /* Search/Remove files uploaded before */
- ,FI_OFFLINE /* Search/Remove files not online */
- ,FI_USERXFER /* User Xfer Download */
- ,FI_CLOSE /* Close any open records */
- };
-
-#define L_LOGON 1 /* Logon List maintenance */
-#define LOL_SIZE 81 /* Length of each logon list entry */
-
-#define CHAT_ECHO (1<<0) /* Multinode chat echo */
-#define CHAT_ACTION (1<<1) /* Chat actions */
-#define CHAT_NOPAGE (1<<2) /* Can't be paged */
-#define CHAT_NOACT (1<<3) /* No activity alerts */
-#define CHAT_SPLITP (1<<4) /* Split screen private chat */
-
- /* Bits in mode of scanposts() function */
-#define SCAN_CONST (1<<0) /* Continuous message scanning */
-#define SCAN_NEW (1<<1) /* New scanning */
-#define SCAN_BACK (1<<2) /* Scan the last message if no new */
-#define SCAN_TOYOU (1<<3) /* Scan for messages to you */
-#define SCAN_FIND (1<<4) /* Scan for text in messages */
-#define SCAN_UNREAD (1<<5) /* Find un-read messages to you */
-
- /* Bits in misc of chan_t */
-#define CHAN_PW (1<<0) /* Can be password protected */
-#define CHAN_GURU (1<<1) /* Guru joins empty channel */
-
-enum { /* Values of mode for userlist function */
- UL_ALL /* List all users in userlist */
- ,UL_SUB /* List all users with access to cursub */
- ,UL_DIR /* List all users with access to curdir */
- };
-
-
-#define BO_LEN 16 /* BACKOUT.DAB record length */
-
-#define BO_OPENFILE 0 /* Backout types */
-
-
-/**********/
-/* Macros */
-/**********/
-
-#define CRLF { outchar(CR); outchar(LF); }
-#define SYSOP (useron.level>=90 || sys_status & SS_TMPSYSOP)
-#define REALSYSOP (useron.level>=90)
-#define FLAG(x) (long)(1L<<(x-'A'))
-#define CLS outchar(FF)
-#define WHERE __LINE__,__FILE__
-#define SAVELINE { slatr[slcnt]=latr; \
- sprintf(slbuf[slcnt<SAVE_LINES ? slcnt++ : slcnt] \
- ,"%.*s",lbuflen,lbuf); \
- lbuflen=0; }
-#define RESTORELINE { lbuflen=0; attr(slatr[--slcnt]); \
- bputs(slbuf[slcnt]); \
- curatr=lclatr(-1); }
-#define RIOSYNC(x) { if(online==ON_REMOTE) riosync(x); }
-#define SYNC { getnodedat(node_num,&thisnode,0); \
- RIOSYNC(0); \
- nodesync(); }
-#define ASYNC { getnodedat(node_num,&thisnode,0); \
- RIOSYNC(1); \
- nodesync(); }
-#define DCDHIGH (sys_status&SS_DCDHIGH || rioctl(IOSTATE)&DCD)
-#define ANSI_SAVE() bputs("\x1b[s")
-#define ANSI_RESTORE() bputs("\x1b[u")
-#define GOTOXY(x,y) bprintf("\x1b[%d;%dH",y,x)
-#define TM_YEAR(yy) ((yy)%100)
-
-extern long crc32tbl[];
-#define ucrc32(ch,crc) (crc32tbl[(crc^ch)&0xff]^(crc>>8))
-
-#ifdef __FLAT__
-#define TEXTWINDOW window(1,1,80,node_scrnlen-1)
-#define STATUSLINE window(1,node_scrnlen,80,node_scrnlen)
-#else
-#define TEXTWINDOW
-#define STATUSLINE
-#endif
-
-#define ucrc32(ch,crc) (crc32tbl[(crc^ch)&0xff]^(crc>>8))
-
-#ifdef __WATCOMC__
-
- #if !defined(__COLORS)
- #define __COLORS
-
- enum COLORS {
- BLACK, /* dark colors */
- BLUE,
- GREEN,
- CYAN,
- RED,
- MAGENTA,
- BROWN,
- LIGHTGRAY,
- DARKGRAY, /* light colors */
- LIGHTBLUE,
- LIGHTGREEN,
- LIGHTCYAN,
- LIGHTRED,
- LIGHTMAGENTA,
- YELLOW,
- WHITE
- };
- #endif
-
- #define BLINK 128 /* blink bit */
-
- #define ffblk find_t
- #define findfirst(x,y,z) _dos_findfirst(x,z,y)
- #define findnext(x) _dos_findnext(x)
-#endif
-
-#if DEBUG /* if DEBUG, call function */
-#define DLOG(where,txt) dlog(where,txt)
-#else /* else, do nothing - function isn't even valid */
-#define DLOG(where,txt)
-#endif
-
-
-/********************/
-/* Type Definitions */
-/********************/
-
-typedef struct { /* Users information */
- ushort number, /* Number */
- uls, /* Number of uploads */
- dls, /* Number of downloads */
- posts, /* Number of posts */
- emails, /* Number of emails */
- fbacks, /* Number of emails sent to sysop */
- etoday, /* Emails today */
- ptoday, /* Posts today */
- timeon, /* Total time on */
- textra, /* Extra time for today */
- logons, /* Total logons */
- ttoday, /* Time on today */
- tlast, /* Time on last call */
- ltoday, /* Logons today */
- xedit, /* External editor (1 based) */
- shell; /* Command shell */
- uchar level, /* Security level */
- sex, /* Sex - M or F */
- rows, /* Rows of text */
- prot, /* Default transfer protocol */
- alias[LEN_ALIAS+1], /* Alias */
- name[LEN_NAME+1], /* Name - Real */
- handle[LEN_HANDLE+1], /* Chat handle */
- comp[LEN_COMP+1], /* Computer type */
- note[LEN_NOTE+1], /* Public notice about this user */
- address[LEN_ADDRESS+1], /* Street Address */
- location[LEN_LOCATION+1], /* Location of user */
- zipcode[LEN_ZIPCODE+1], /* Zip/Postal code */
- pass[LEN_PASS+1], /* Password - not case sensitive */
- birth[LEN_BIRTH+1], /* Birthday in MM/DD/YY format */
- phone[LEN_PHONE+1], /* Phone number xxx-xxx-xxxx format */
- modem[LEN_MODEM+1], /* Modem type - 8 chars max */
- netmail[LEN_NETMAIL+1], /* NetMail forwarding address */
- leech, /* Leech attempt counter */
- tmpext[4], /* QWK Packet extension */
- comment[LEN_COMMENT+1], /* Private comment about user */
- cursub[9], /* Current sub-board internal code */
- curdir[9]; /* Current directory internal code */
- ulong misc, /* Misc. bits - ANSI, Deleted etc. */
- qwk, /* QWK settings */
- chat, /* Chat defaults */
- flags1, /* Flag set #1 */
- flags2, /* Flag set #2 */
- flags3, /* Flag set #3 */
- flags4, /* Flag set #4 */
- exempt, /* Exemption Flags */
- rest, /* Restriction Flags */
- ulb, /* Total bytes uploaded */
- dlb, /* Total bytes downloaded */
- cdt, /* Credits */
- min, /* Minutes */
- freecdt; /* Free credits (renewed daily) */
- time_t firston, /* Date/Time first called */
- laston, /* Last logoff date/time */
- expire, /* Expiration date */
- pwmod, /* Password last modified */
- ns_time; /* Date/Time of last new file scan */
- } user_t;
-
-typedef struct { /* File (transfers) Data */
- uchar name[13], /* Name of file FILENAME.EXT */
- desc[LEN_FDESC+1], /* Uploader's Description */
- uler[LEN_ALIAS+1], /* User who uploaded */
- opencount, /* Times record is currently open */
- path[LEN_DIR+1]; /* Alternate DOS path */
- time_t date, /* File date/time */
- dateuled, /* Date/Time (Unix) Uploaded */
- datedled; /* Date/Time (Unix) Last downloaded */
- ushort dir, /* Directory file is in */
- altpath,
- timesdled, /* Total times downloaded */
- timetodl; /* How long transfer time */
- long datoffset, /* Offset into .DAT file */
- size, /* Size of file */
- misc; /* Miscellaneous bits */
- ulong cdt; /* Credit value for this file */
- } file_t;
-
-typedef struct { /* Mail data (taken from index) */
- ulong offset, /* Offset to header (in bytes) */
- number, /* Number of message */
- time; /* Time imported */
- ushort to, /* To user # */
- from, /* From user # */
- subj, /* CRC-16 of subject */
- attr; /* Attributes */
- } mail_t;
-
-typedef struct { /* System/Node Statistics */
- ulong logons, /* Total Logons on System */
- ltoday, /* Total Logons Today */
- timeon, /* Total Time on System */
- ttoday, /* Total Time Today */
- uls, /* Total Uploads Today */
- ulb, /* Total Upload Bytes Today */
- dls, /* Total Downloads Today */
- dlb, /* Total Download Bytes Today */
- ptoday, /* Total Posts Today */
- etoday, /* Total Emails Today */
- ftoday; /* Total Feedbacks Today */
- ushort nusers; /* Total New Users Today */
- } stats_t;
-
-typedef struct { /* FidoNet address */
- ushort zone, /* Zone */
- net, /* Network */
- node, /* Node */
- point; /* Point */
- } faddr_t;
-
-typedef struct { /* Message sub board info */
- uchar
-#ifdef SCFG
- lname[LEN_SLNAME+1], /* Short name - used for prompts */
- sname[LEN_SSNAME+1], /* Long name - used for listing */
- ar[LEN_ARSTR+1], /* Access requirements */
- read_ar[LEN_ARSTR+1], /* Read requirements */
- post_ar[LEN_ARSTR+1], /* Post requirements */
- op_ar[LEN_ARSTR+1], /* Operator requirements */
- mod_ar[LEN_ARSTR+1], /* Moderated user requirements */
- qwkname[11], /* QWK name - only 10 chars */
- data_dir[LEN_DIR+1], /* Data file directory */
- origline[51], /* Optional EchoMail origin line */
- echomail_sem[LEN_DIR+1], /* EchoMail semaphore for this sub */
- tagline[81], /* Optional QWK net tag line */
-#else
- *lname,
- *sname,
- *ar,
- *read_ar,
- *post_ar,
- *op_ar,
- *mod_ar,
- *qwkname,
- *data_dir,
- *origline,
- *echomail_sem,
- *tagline,
-#endif
- code[9]; /* Eight character code */
-#ifndef SBBS
- uchar echopath[LEN_DIR+1]; /* EchoMail path */
-#endif
- ushort grp, /* Which group this sub belongs to */
- ptridx, /* Index into pointer file */
- qwkconf, /* QWK conference number */
- maxage; /* Max age of messages (in days) */
- ulong misc, /* Miscellaneous flags */
- maxmsgs, /* Max number of messages allowed */
- maxcrcs; /* Max number of CRCs to keep */
-#ifdef SBBS
- ulong ptr, /* Highest read message */
- last; /* Last read message */
-#endif
- faddr_t faddr; /* FidoNet address */
- } sub_t;
-
-typedef struct { /* Message group info */
- uchar
-#ifdef SCFG
- lname[LEN_GLNAME+1], /* Short name */
- sname[LEN_GSNAME+1], /* Long name */
- ar[LEN_ARSTR+1]; /* Access requirements */
-
-#else
- *lname,
- *sname,
- *ar;
-#endif
- } grp_t;
-
-typedef struct { /* Transfer Directory Info */
- uchar /* Eight character code */
-#ifdef SCFG
- lname[LEN_SLNAME+1], /* Short name - used for prompts */
- sname[LEN_SSNAME+1], /* Long name - used for listing */
- ar[LEN_ARSTR+1], /* Access Requirements */
- ul_ar[LEN_ARSTR+1], /* Upload Requirements */
- dl_ar[LEN_ARSTR+1], /* Download Requirements */
- ex_ar[LEN_ARSTR+1], /* Exemption Requirements (credits) */
- op_ar[LEN_ARSTR+1], /* Operator Requirements */
- path[LEN_DIR+1], /* Path to directory for files */
- exts[41], /* Extensions allowed */
- upload_sem[LEN_DIR+1], /* Upload semaphore file */
- data_dir[LEN_DIR+1], /* Directory where data is stored */
-#else
- *lname,
- *sname,
- *ar,
- *ul_ar,
- *dl_ar,
- *ex_ar,
- *op_ar,
- *path,
- *exts,
- *upload_sem,
- *data_dir,
-#endif
- code[9],
- seqdev, /* Sequential access device number */
- sort; /* Sort type */
- ushort maxfiles, /* Max number of files allowed */
- maxage, /* Max age of files (in days) */
- up_pct, /* Percentage of credits on uloads */
- dn_pct, /* Percentage of credits on dloads */
- lib; /* Which library this dir is in */
- ulong misc; /* Miscellaneous bits */
- } dir_t;
-
-typedef struct { /* Transfer Library Information */
- uchar
-#ifdef SCFG
- lname[LEN_GLNAME+1], /* Short Name - used for prompts */
- sname[LEN_GSNAME+1], /* Long Name - used for listings */
- ar[LEN_ARSTR+1]; /* Access Requirements */
-#else
- *lname,
- *sname,
- *ar;
-#endif
- ushort offline_dir; /* Offline file directory */
- } lib_t;
-
-typedef struct { /* Gfile Section Information */
- uchar /* Eight character code */
-#ifdef SCFG
- name[41], /* Name of section */
- ar[LEN_ARSTR+1], /* Access requirements */
-#else
- *name,
- *ar,
-#endif
- code[9];
- } txtsec_t;
-
-typedef struct { /* External Section Information */
- uchar
-#ifdef SCFG
- name[41], /* Name of section */
- ar[LEN_ARSTR+1], /* Access requirements */
-#else
- *name,
- *ar,
-#endif
- code[9]; /* Eight character code */
- } xtrnsec_t;
-
-typedef struct { /* Swappable executable */
-#ifdef SCFG
- uchar cmd[LEN_CMD+1]; /* Program name */
-#else
- uchar *cmd;
-#endif
- } swap_t;
-
-typedef struct { /* OS/2 executable */
-#ifdef SCFG
- uchar name[13]; /* Program name */
-#else
- uchar *name;
-#endif
- ulong misc; /* See OS2PGM_* */
-
- } os2pgm_t;
-
-typedef struct { /* External Program Information */
- uchar
-#ifdef SCFG
- name[41], /* Name of External */
- ar[LEN_ARSTR+1], /* Access Requirements */
- run_ar[LEN_ARSTR+1], /* Run Requirements */
- cmd[LEN_CMD+1], /* Command line */
- clean[LEN_CMD+1], /* Clean-up command line */
- path[LEN_DIR+1], /* Start-up path */
-#else
- *name,
- *ar,
- *run_ar,
- *cmd,
- *clean,
- *path,
-#endif
- type, /* What type of external program */
- event, /* Execute upon what event */
- textra, /* Extra time while in this program */
- maxtime, /* Maximum time allowed in this door */
- code[9]; /* Internal code for program */
- ushort sec; /* Section this program belongs to */
- ulong cost, /* Cost to run in credits */
- misc; /* Misc. bits - ANSI, DOS I/O etc. */
- } xtrn_t;
-
-typedef struct { /* External Page program info */
-#ifdef SCFG
- uchar cmd[LEN_CMD+1], /* Command line */
- ar[LEN_ARSTR+1]; /* ARS for this chat page */
-#else
- uchar *cmd,
- *ar;
-#endif
- ulong misc; /* Intercept I/O */
- } page_t;
-
-
-typedef struct { /* Chat action set */
-#ifdef SCFG
- uchar name[26]; /* Name of set */
-#else
- uchar *name;
-#endif
- } actset_t;
-
-typedef struct { /* Chat action info */
-#ifdef SCFG
- uchar cmd[LEN_CHATACTCMD+1], /* Command word */
- out[LEN_CHATACTOUT+1]; /* Output */
-#else
- uchar *cmd,
- *out;
-#endif
- ushort actset; /* Set this action belongs to */
- } chatact_t;
-
-typedef struct { /* Gurus */
- uchar
-#ifdef SCFG
- name[26],
- ar[LEN_ARSTR+1],
-#else
- *name,
- *ar,
-#endif
- code[9];
-
- } guru_t;
-
-typedef struct { /* Chat Channel Information */
- uchar
-#ifdef SCFG
- ar[LEN_ARSTR+1], /* Access requirements */
- name[26], /* Channel description */
-#else
- *ar,
- *name,
-#endif
- code[9];
- ushort actset, /* Set of actions used in this chan */
- guru; /* Guru file number */
- ulong cost, /* Cost to join */
- misc; /* Misc. bits CHAN_* definitions */
- } chan_t;
-
-typedef struct { /* Modem Result codes info */
- ushort code, /* Numeric Result Code */
- cps, /* Average Transfer CPS */
- rate; /* DCE Rate (Modem to Modem) */
-#ifdef SCFG
- uchar str[LEN_MODEM+1]; /* String to use for description */
-#else
- uchar *str;
-#endif
- } mdm_result_t;
-
-typedef struct { /* Transfer Protocol information */
- uchar mnemonic, /* Letter to select this protocol */
-#ifdef SCFG
- name[26], /* Name of protocol */
- ar[LEN_ARSTR+1], /* ARS */
- ulcmd[LEN_CMD+1], /* Upload command line */
- dlcmd[LEN_CMD+1], /* Download command line */
- batulcmd[LEN_CMD+1], /* Batch upload command line */
- batdlcmd[LEN_CMD+1], /* Batch download command line */
- blindcmd[LEN_CMD+1], /* Blind upload command line */
- bicmd[LEN_CMD+1]; /* Bidirectional command line */
-#else
- *ar,
- *name,
- *ulcmd,
- *dlcmd,
- *batulcmd,
- *batdlcmd,
- *blindcmd,
- *bicmd;
-#endif
- ulong misc; /* Miscellaneous bits */
- } prot_t;
-
-typedef struct { /* Extractable file types */
- uchar ext[4], /* Extension */
-#ifdef SCFG
- ar[LEN_ARSTR+1], /* Access Requirements */
- cmd[LEN_CMD+1]; /* Command line */
-#else
- *ar,
- *cmd;
-#endif
- } fextr_t;
-
-typedef struct { /* Compressable file types */
- uchar ext[4], /* Extension */
-#ifdef SCFG
- ar[LEN_ARSTR+1], /* Access Requirements */
- cmd[LEN_CMD+1]; /* Command line */
-#else
- *ar,
- *cmd;
-#endif
- } fcomp_t;
-
-typedef struct { /* Viewable file types */
- uchar ext[4], /* Extension */
-#ifdef SCFG
- ar[LEN_ARSTR+1], /* Access Requirements */
- cmd[LEN_CMD+1]; /* Command line */
-#else
- *ar,
- *cmd;
-#endif
- } fview_t;
-
-typedef struct { /* Testable file types */
- uchar ext[4], /* Extension */
-#ifdef SCFG
- ar[LEN_ARSTR+1], /* Access requirement */
- cmd[LEN_CMD+1], /* Command line */
- workstr[41]; /* String to display while working */
-#else
- *ar,
- *cmd,
- *workstr;
-#endif
- } ftest_t;
-
-typedef struct { /* Download events */
- uchar ext[4],
-#ifdef SCFG
- ar[LEN_ARSTR+1], /* Access requirement */
- cmd[LEN_CMD+1], /* Command line */
- workstr[41]; /* String to display while working */
-#else
- *ar,
- *cmd,
- *workstr;
-#endif
- } dlevent_t;
-
-typedef struct { /* External Editors */
- uchar
-#ifdef SCFG
- name[41], /* Name (description) */
- ar[LEN_ARSTR+1], /* Access Requirement */
- lcmd[LEN_CMD+1], /* Local command line */
- rcmd[LEN_CMD+1], /* Remote command line */
-#else
- *name,
- *ar,
- *lcmd,
- *rcmd,
-#endif
- code[9];
- ulong misc; /* Misc. bits */
- uchar type; /* Drop file type */
- } xedit_t;
-
-
-typedef struct { /* Generic Timed Event */
- uchar code[9], /* Internal code */
- days, /* Days to run event */
-#ifdef SCFG
- dir[LEN_DIR+1], /* Start-up directory */
- cmd[LEN_CMD+1]; /* Command line */
-#else
- *dir,
- *cmd;
-#endif
- ushort node, /* Node to execute event */
- time; /* Time to run event */
- ulong misc; /* Misc bits */
-#ifndef SCFG
- time_t last; /* Last time event ran */
-#endif
- } event_t;
-
-typedef struct { /* QWK Network Hub */
- uchar id[9], /* System ID of Hub */
- *mode, /* Mode for Ctrl-A codes for ea. sub */
- days, /* Days to call-out on */
-#ifdef SCFG
- call[LEN_CMD+1], /* Call-out command line to execute */
- pack[LEN_CMD+1], /* Packing command line */
- unpack[LEN_CMD+1]; /* Unpacking command line */
-#else
- *call,
- *pack,
- *unpack;
-#endif
- ushort time, /* Time to call-out */
- node, /* Node to do the call-out */
- freq, /* Frequency of call-outs */
- subs, /* Number Sub-boards carried */
- *sub, /* Number of local sub-board for ea. */
- *conf; /* Conference number of ea. */
-#ifndef SCFG
- time_t last; /* Last network attempt */
-#endif
- } qhub_t;
-
-typedef struct { /* PCRelay/PostLink Hub */
- uchar days, /* Days to call-out on */
-#ifdef SCFG
- name[11], /* Site Name of Hub */
- call[LEN_CMD+1]; /* Call-out command line to execute */
-#else
- *call;
-#endif
- ushort time, /* Time to call-out */
- node, /* Node to do the call-out */
- freq; /* Frequency of call-outs */
-#ifndef SCFG
- time_t last; /* Last network attempt */
-#endif
- } phub_t;
-
-
-typedef struct { /* FidoNet msg header */
- uchar from[36], /* From user */
- to[36], /* To user */
- subj[72], /* Message title */
- time[20]; /* Time in goof-ball ASCII format */
- short read, /* Times read */
- destnode, /* Destination node */
- orignode, /* Origin node */
- cost, /* Cost in pennies */
- orignet, /* Origin net */
- destnet, /* Destination net */
- destzone, /* Destination zone */
- origzone, /* Origin zone */
- destpoint, /* Destination point */
- origpoint, /* Origin point */
- re, /* Message number regarding */
- attr, /* Attributes - see FIDO_* */
- next; /* Next message number in stream */
- } fmsghdr_t;
-
-
-typedef struct { /* Command Shells */
- uchar
-#ifdef SCFG
- name[41], /* Name (description) */
- ar[LEN_ARSTR+1], /* Access Requirement */
-#else
- *name,
- *ar,
-#endif
- code[9];
- ulong misc;
- } shell_t;
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/scb/makefile b/src/sbbs2/scb/makefile
deleted file mode 100644
index 5e3dea3f819848d5fdca81934b1f0bea562ad078..0000000000000000000000000000000000000000
--- a/src/sbbs2/scb/makefile
+++ /dev/null
@@ -1,37 +0,0 @@
-
-# Macros
-CC = bcc
-LD = tlink
-SDK = ..\sdk
-MSWAIT = ..\..\mswait\dos
-INCLUDE = \bc31\include;$(SDK);..
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LDFLAGS = /n /c
-OBJS = xsdk.obj xsdkvars.obj $(MSWAIT)\mswait$(MODEL).obj ..\dos\rciol.obj
-HEADERS = $(SDK)\xsdk.h $(SDK)\xsdkdefs.h $(SDK)\xsdkvars.c scb.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling $*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $*.c
-
-# Main EXE Link Rule
-scb.exe: $(OBJS) scb.obj
- @echo Linking $< ...
- $(LD) $(LDFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) scb.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-
-# All .obj modules
-scb.obj: $(HEADERS)
-
-xsdk.obj: $(SDK)\xsdk.c $(HEADERS)
- @echo Compiling $(SDK)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $(SDK)\$*.c
-
-xsdkvars.obj: $(SDK)\xsdkvars.c $(SDK)\xsdkdefs.h
- @echo Compiling $(SDK)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $(SDK)\$*.c
diff --git a/src/sbbs2/scb/scb.c b/src/sbbs2/scb/scb.c
deleted file mode 100644
index 661528cf1c33db5d8a9333f84c5f1b9597c8ba8b..0000000000000000000000000000000000000000
--- a/src/sbbs2/scb/scb.c
+++ /dev/null
@@ -1,920 +0,0 @@
-/* SCB */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "xsdk.h"
-#include "scb.h"
-
-/* RCIOLL.ASM */
-
-int rioini(int com,int irq); /* initialize com,irq */
-int setbaud(int rate); /* set baud rate */
-int rioctl(int action); /* remote i/o control */
-int dtr(char onoff); /* set/reset dtr */
-int outcom(int ch); /* send character */
-int incom(void); /* receive character */
-int ivhctl(int intcode); /* local i/o redirection */
-
-/************************/
-/* Remote I/O Constants */
-/************************/
-
- /* i/o mode and state flags */
-#define CTSCK 0x1000 /* check cts (mode only) */
-#define RTSCK 0x2000 /* check rts (mode only) */
-#define TXBOF 0x0800 /* transmit buffer overflow (outcom only) */
-#define ABORT 0x0400 /* check for ^C (mode), aborting (state) */
-#define PAUSE 0x0200 /* check for ^S (mode), pausing (state) */
-#define NOINP 0x0100 /* input buffer empty (incom only) */
-
- /* status flags */
-#define RIODCD 0x80 /* DCD on */
-#define RI 0x40 /* Ring indicate */
-#define DSR 0x20 /* Dataset ready */
-#define CTS 0x10 /* CTS on */
-#define FERR 0x08 /* Frameing error */
-#define PERR 0x04 /* Parity error */
-#define OVRR 0x02 /* Overrun */
-#define RXLOST 0x01 /* Receive buffer overflow */
-
-/* rioctl() arguments */
-/* returns mode or state flags in high 8 bits, status flags in low 8 bits */
-
- /* the following return mode in high 8 bits */
-#define IOMODE 0 /* no operation */
-#define IOSM 1 /* i/o set mode flags */
-#define IOCM 2 /* i/o clear mode flags */
- /* the following return state in high 8 bits */
-#define IOSTATE 4 /* no operation */
-#define IOSS 5 /* i/o set state flags */
-#define IOCS 6 /* i/o clear state flags */
-#define IOFB 0x308 /* i/o buffer flush */
-#define IOFI 0x208 /* input buffer flush */
-#define IOFO 0x108 /* output buffer flush */
-#define IOCE 9 /* i/o clear error flags */
-
- /* return count (16bit) */
-#define RXBC 0x0a /* get receive buffer count */
-#define TXBC 0x0b /* get transmit buffer count */
-#define TXSYNC 0x0c /* sync transmition (seconds<<8|0x0c) */
-#define IDLE 0x0d /* suspend communication routines */
-#define RESUME 0x10d /* return from suspended state */
-#define RLERC 0x000e /* read line error count and clear */
-#define CPTON 0x0110 /* set input translation flag for ctrl-p on */
-#define CPTOFF 0x0010 /* set input translation flag for ctrl-p off */
-#define GETCPT 0x8010 /* return the status of ctrl-p translation */
-#define MSR 0x0011 /* read modem status register */
-#define FIFOCTL 0x0012 /* FIFO UART control */
-#define TSTYPE 0x0013 /* Time-slice API type */
-#define GETTST 0x8013 /* Get Time-slice API type */
-
-
-#define I14DB 0x001d /* DigiBoard int 14h driver */
-#define I14PC 0x011d /* PC int 14h driver */
-#define I14PS 0x021d /* PS/2 int 14h driver */
-#define I14FO 0x031d /* FOSSIL int 14h driver */
-
-
- /* ivhctl() arguments */
-#define INT29R 1 /* copy int 29h output to remote */
-#define INT29L 2 /* Use _putlc for int 29h */
-#define INT16 0x10 /* return remote chars to int 16h calls */
-#define INTCLR 0 /* release int 16h, int 29h */
-
-#define LEN_ALIAS 25 /* User alias */
-#define LEN_NAME 25 /* User name */
-#define LEN_HANDLE 8 /* User chat handle */
-#define LEN_NOTE 30 /* User note */
-#define LEN_COMP 30 /* User computer description */
-#define LEN_COMMENT 60 /* User comment */
-#define LEN_NETMAIL 60 /* NetMail forwarding address */
-#define LEN_PASS 8 /* User password */
-#define LEN_PHONE 12 /* User phone number */
-#define LEN_BIRTH 8 /* Birthday in MM/DD/YY format */
-#define LEN_ADDRESS 30 /* User address */
-#define LEN_LOCATION 30 /* Location (City, State) */
-#define LEN_ZIPCODE 10 /* Zip/Postal code */
-#define LEN_MODEM 8 /* User modem type description */
-#define LEN_FDESC 58 /* File description */
-#define LEN_TITLE 70 /* Message title */
-#define LEN_MAIN_CMD 40 /* Storage in user.dat for custom commands */
-#define LEN_XFER_CMD 40
-#define LEN_SCAN_CMD 40
-#define LEN_MAIL_CMD 40
-#define LEN_CID 25 /* Caller ID (phone number) */
-#define LEN_ARSTR 40 /* Max length of Access Requirement string */
-
-/****************************************************************************/
-/* This is a list of offsets into the USER.DAT file for different variables */
-/* that are stored (for each user) */
-/****************************************************************************/
-#define U_ALIAS 0 /* Offset to alias */
-#define U_NAME (U_ALIAS+LEN_ALIAS) /* Offset to name */
-#define U_HANDLE (U_NAME+LEN_NAME)
-#define U_NOTE (U_HANDLE+LEN_HANDLE+2)
-#define U_COMP (U_NOTE+LEN_NOTE)
-#define U_COMMENT (U_COMP+LEN_COMP+2)
-
-#define U_NETMAIL (U_COMMENT+LEN_COMMENT+2)
-
-#define U_ADDRESS (U_NETMAIL+LEN_NETMAIL+2)
-#define U_LOCATION (U_ADDRESS+LEN_ADDRESS)
-#define U_ZIPCODE (U_LOCATION+LEN_LOCATION)
-
-#define U_PASS (U_ZIPCODE+LEN_ZIPCODE+2)
-#define U_PHONE (U_PASS+8) /* Offset to phone-number */
-#define U_BIRTH (U_PHONE+12) /* Offset to users birthday */
-#define U_MODEM (U_BIRTH+8)
-#define U_LASTON (U_MODEM+8)
-#define U_FIRSTON (U_LASTON+8)
-#define U_EXPIRE (U_FIRSTON+8)
-#define U_PWMOD (U_EXPIRE+8)
-
-#define U_LOGONS (U_PWMOD+8+2)
-#define U_LTODAY (U_LOGONS+5)
-#define U_TIMEON (U_LTODAY+5)
-#define U_TEXTRA (U_TIMEON+5)
-#define U_TTODAY (U_TEXTRA+5)
-#define U_TLAST (U_TTODAY+5)
-#define U_POSTS (U_TLAST+5)
-#define U_EMAILS (U_POSTS+5)
-#define U_FBACKS (U_EMAILS+5)
-#define U_ETODAY (U_FBACKS+5)
-#define U_PTODAY (U_ETODAY+5)
-
-#define U_ULB (U_PTODAY+5+2)
-#define U_ULS (U_ULB+10)
-#define U_DLB (U_ULS+5)
-#define U_DLS (U_DLB+10)
-#define U_CDT (U_DLS+5)
-#define U_MIN (U_CDT+10)
-
-#define U_LEVEL (U_MIN+10+2) /* Offset to Security Level */
-#define U_FLAGS1 (U_LEVEL+2) /* Offset to Flags */
-#define U_TL (U_FLAGS1+8) /* Offset to unused field */
-#define U_FLAGS2 (U_TL+2) /* Offset to unused field */
-#define U_EXEMPT (U_FLAGS2+8)
-#define U_REST (U_EXEMPT+8)
-#define U_ROWS (U_REST+8+2) /* Number of Rows on user's monitor */
-#define U_SEX (U_ROWS+2) /* Sex, Del, ANSI, color etc. */
-#define U_MISC (U_SEX+1) /* Miscellaneous flags in 8byte hex */
-#define U_XEDIT (U_MISC+8) /* External editor */
-#define U_LEECH (U_XEDIT+2) /* two hex digits - leech attempt count */
-#define U_CURGRP (U_LEECH+2) /* Current group */
-#define U_CURSUB (U_CURGRP+4) /* Current sub-board */
-#define U_CURLIB (U_CURSUB+4) /* Current library */
-#define U_CURDIR (U_CURLIB+4) /* Current directory */
-#define U_CMDSET (U_CURDIR+4) /* User's command set */
-#define U_MAIN_CMD (U_CMDSET+2+2) /* Custom main command set */
-#define U_XFER_CMD (U_MAIN_CMD+LEN_MAIN_CMD)
-#define U_SCAN_CMD (U_XFER_CMD+LEN_XFER_CMD+2)
-#define U_MAIL_CMD (U_SCAN_CMD+LEN_SCAN_CMD)
-#define U_FREECDT (U_MAIL_CMD+LEN_MAIL_CMD+2) /* Unused bytes */
-#define U_FLAGS3 (U_FREECDT+10) /* Unused bytes */
-#define U_FLAGS4 (U_FLAGS3+8)
-#define U_UNUSED1 (U_FLAGS4+8)
-#define U_UNUSED2 (U_UNUSED1+22+2)
-#define U_LEN (U_UNUSED2+48+2)
-
-enum {
- PHONE_OKAY
- ,PHONE_INVALID
- ,PHONE_LD
- };
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-uint asmrev,options=0;
-char canfile[256],result[256]={NULL},tmp[256],
- addfile[256],phone_number[81]={NULL},flags1[81],flags2[81],flags3[81],
- flags4[81],exempt[81],restrict[81],expiration[81],credits[81],minutes[81],
- level[81],bbs_ac[81];
-char *crlf="\r\n";
-extern uint riobp;
-extern int mswtyp;
-char io_int=0,validated=0; /* i/o interrupts intercepted? yes/no */
-int sysop=0;
-int ldstart[7],ldend[7],min_phone_len,max_phone_len,hangup_time;
-
-/***********************/
-/* Function Prototypes */
-/***********************/
-int lprintf(char *fmat, ...);
-void bail();
-int main();
-void phone_val();
-char *get_user_pw();
-char check_phone(char *insearch);
-void mdmcmd(char *str);
-void putcomch(char ch);
-char getmdmstr(char *str, int sec);
-void mswait(int);
-void moduser();
-void write_info();
-char long_distance(char *number);
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...) {
- char sbuf[256];
- int chcount;
-
-chcount=vsprintf(sbuf,fmat,_va_ptr);
-lputs(sbuf);
-return(chcount);
-}
-
-void bail()
-{
- char str[256];
- int i;
-
-if(io_int)
- ivhctl(0);
-else if(!(options&STAY_CONNECTED)) { /* exiting without re-connecting */
- dtr(10);
- sprintf(str,"%sHANGUP.NOW",node_dir);
- if((i=nopen(str,O_CREAT|O_RDWR))!=-1)
- close(i); }
-if(com_port) {
- for(i=0;i<5;i++)
- if(!rioctl(TXBC)) /* wait for rest of output */
- break;
- else
- mswait(1000);
- rioini(0,0); }
-if(options&ALWAYS_VALIDATE || validated)
- moduser();
-write_info();
-lputc(FF);
-}
-
-int main()
-{
- void *v;
- uchar far *s;
- char str[128],ch,*p;
- int i,file;
- uint base=0xffff;
- FILE *stream;
-
-node_dir[0]=0;
-
-p=getenv("SBBSNODE");
-if(p)
- strcpy(node_dir,p);
-
-if(!node_dir[0]) { /* node directory not specified */
- printf("\n\7SBBSNODE environment variable must be set.\n");
- printf("\nExample: SET SBBSNODE=C:\\SBBS\\NODE1\n");
- getch();
- return(1); }
-
-if(node_dir[strlen(node_dir)-1]!='\\') /* make sure node_dir ends in '\' */
- strcat(node_dir,"\\");
-
-initdata(); /* read XTRN.DAT and more */
-
-if((asmrev=*(&riobp-1))!=23) {
- printf("Wrong rciol.obj\n");
- exit(1); }
-
-lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
-
-if(com_port) {
- lprintf("\r\nInitializing COM port %u: ",com_port);
- switch(com_base) {
- case 0xb:
- lputs("PC BIOS");
- rioctl(I14PC);
- break;
- case 0xffff:
- case 0xd:
- lputs("DigiBoard");
- rioctl(I14DB);
- break;
- case 0xe:
- lputs("PS/2 BIOS");
- rioctl(I14PS);
- break;
- case 0xf:
- lputs("FOSSIL");
- rioctl(I14FO);
- break;
- case 0:
- base=com_port;
- lputs("UART I/O (BIOS), ");
- if(com_irq)
- lprintf("IRQ %d",com_irq);
- else lputs("default IRQ");
- break;
- default:
- base=com_base;
- lprintf("UART I/O %Xh, ",com_base);
- if(com_irq)
- lprintf("IRQ %d",com_irq);
- else lputs("default IRQ");
- break; }
-
- if(base==0xffff)
- lprintf(" channel %u",com_irq);
- i=rioini(base,com_irq);
- if(i) {
- lprintf(" - Failed! (%d)\r\n",i);
- exit(1); }
- if(mdm_misc&MDM_FLOWCTRL)
- rioctl(IOSM|CTSCK|RTSCK); /* set rts/cts chk */
- setbaud((uint)(com_rate&0xffffL));
- msr=&riobp-1; }
-
-rioctl(TSTYPE|mswtyp); /* set time-slice API type */
-
-rioctl(CPTON); /* ctrl-p translation */
-
-i=INT29L;
-if(com_port)
- i|=(INT29R|INT16);
-ivhctl(i);
-io_int=1;
-
-atexit(bail);
-
-phone_val();
-
-return(0);
-}
-
-/******************************************************************************
- Main phone validation loop.
-******************************************************************************/
-void phone_val()
-{
- FILE *stream;
- char user_password[9],str[256],init_attempts=0,callout_attempts=0,*p;
- int i=0,j,file;
-
- if((file=nopen("SCB.CFG",O_RDONLY))==-1) {
- bprintf("ERROR: Opening configuration file\r\n"); exit(1); }
- if((stream=fdopen(file,"rb"))==NULL) {
- bprintf("ERROR: Converting configuration file to a stream\r\n");
- exit(1); }
- fgets(str,81,stream); truncsp(str); callout_attempts=atoi(str);
- fgets(str,81,stream); truncsp(str);
- if(str[0]=='Y') options|=ALWAYS_VALIDATE;
- if(str[1]=='Y') options|=MODIFY_USER_NOTE;
- if(str[2]=='Y') options|=START_WITH_0;
- if(str[3]=='Y') options|=START_WITH_1;
- if(str[4]=='Y') options|=STAY_CONNECTED;
- if(str[5]=='Y') options|=SC_LOCAL_ONLY;
- if(str[6]=='Y') options|=US_PHONE_FORMAT;
- if(str[7]=='Y') options|=ALLOWED_ONLY;
- if(str[8]!='N') options|=SAME_AREA_LD;
- fgets(canfile,81,stream); truncsp(canfile);
- fgets(addfile,81,stream); truncsp(addfile);
- fgets(credits,81,stream); truncsp(credits);
- fgets(str,81,stream); truncsp(str); sysop=atoi(str);
- fgets(level,81,stream); truncsp(level);
- fgets(flags1,81,stream); truncsp(flags1);
- fgets(flags2,81,stream); truncsp(flags2);
- fgets(exempt,81,stream); truncsp(exempt);
- fgets(restrict,81,stream); truncsp(restrict);
- fgets(expiration,81,stream); truncsp(expiration);
- fgets(minutes,81,stream); truncsp(minutes);
- fgets(flags3,81,stream); truncsp(flags3);
- fgets(flags4,81,stream); truncsp(flags4);
- for(i=0;i<7;i++) {
- fgets(str,81,stream); ldstart[i]=atoi(str); /* min since midnight */
- fgets(str,81,stream); ldend[i]=atoi(str); }
- fgets(str,81,stream); min_phone_len=atoi(str);
- fgets(str,81,stream); max_phone_len=atoi(str);
- fgets(bbs_ac,81,stream); truncsp(bbs_ac);
- if(fgets(str,81,stream)) {
- hangup_time=atoi(str);
- if(hangup_time>90)
- hangup_time=90; }
- else
- hangup_time=30;
-
- fgets(str,81,stream); // regnum
-
- fclose(stream);
-
- cls();
- strcpy(result,"Hung up");
- strcpy(user_password,get_user_pw());
- bprintf("\1c\1hSynchronet Callback v%s "
- "Developed 1995-1997 Rob Swindell\r\n",VERSION);
- sprintf(str,"%s..\\EXEC\\",ctrl_dir);
- printfile("SCB.MSG");
- if(yesno("\r\nDo you need instructions"))
- printfile("INSTRUCT.MSG");
- if(!yesno("\r\nContinue with verification")) {
- options&=~ALWAYS_VALIDATE;
- cls(); printfile("REFUSED.MSG"); pause();
- strcpy(result,"Refused");
- return; }
-/***
- if(!(options&ALLOW_LD) && yesno("Are you calling long distance")) {
- bprintf("\r\n\1n\1cSorry, \1h%s \1n\1cwill verify \1y\1hLOCAL "
- "\1n\1ccalls only!\r\n",sys_name);
- strcpy(result,"Long Dist"); pause();
- return; }
-***/
-
- while(1) {
- while(1) {
- bprintf("\r\n\r\n\1n\1cEnter your \1h\1yCOMPLETE \1n\1cphone "
- "number now. If you are calling long distance, enter\r\n\1h\1y"
- "ALL \1n\1cof the digits necessary to reach your phone number. "
- "If you are a \1h\1yLOCAL \1n\1ccall from the BBS, \1h\1yDO NOT"
- "\1n\1c enter unnecessary digits (your area code, for example)."
- "\r\n:");
- getstr(phone_number,20,K_LINE|K_NUMBER);
- if(yesno("\r\nIs this correct")) break; }
-
- if(bbs_ac[0]) { /* Strip off area code */
- if(!strncmp(phone_number,bbs_ac,strlen(bbs_ac)))
- strcpy(phone_number,phone_number+strlen(bbs_ac));
- else {
- sprintf(tmp,"1%s",bbs_ac);
- if(!strncmp(phone_number,tmp,strlen(tmp)))
- strcpy(phone_number,phone_number+strlen(tmp)); } }
-
- if(options&US_PHONE_FORMAT && /* Add 1 to number */
- (phone_number[1]=='0' || phone_number[1]=='1') &&
- strlen(phone_number)>7) {
- sprintf(tmp,"1%s",phone_number);
- strcpy(phone_number,tmp); }
-
- j=check_phone(phone_number);
-
- if(j==PHONE_LD) {
- strcpy(result,"Long Dist");
- pause();
- return; }
- if(j==PHONE_OKAY)
- break;
- options&=~ALWAYS_VALIDATE;
- strcpy(result,"Invalid #");
- bprintf("\r\n\1n\1cReturning you to \1h%s.\1n\r\n",sys_name);
- return; }
-
- bprintf("\r\n\r\n\1n\1cDropping Carrier, \1h%s \1n\1cwill call you back "
- "now.\r\nType \1h\1yATA \1n\1cto answer when your modem rings!\r\n\r\n"
- ,sys_name);
- if(!com_port) exit(0);
- mswait(1000);
- ivhctl(0); /* put intercepted i/o vectors back */
- io_int=0;
-
- for(init_attempts=0;init_attempts<4;init_attempts++) { /* 4 attempts */
- dtr(5);
- if(!init_attempts) mswait(1000);
- dtr(1);
- rioctl(IOFB);
- for(i=0;i<4;i++) {
- mdmcmd(mdm_init);
- if(!getmdmstr(str,10))
- continue;
- if(!stricmp(str,mdm_init)) { /* Echo on? */
- getmdmstr(str,10); /* Get OK */
- mdmcmd("ATE0"); /* Turn echo off */
- if(!getmdmstr(str,10))
- continue; }
- if(!strcmp(str,"OK")) { /* Verbal response? */
- mdmcmd("ATV0"); /* Turn verbal off */
- if(!getmdmstr(str,10))
- continue; }
- if(!strcmp(str,"0"))
- break;
- rioctl(IOFB); /* Send fool-proof init string */
- mdmcmd("ATE0V0");
- if(getmdmstr(str,10) && !strcmp(str,"0"))
- break; }
- if(i==4)
- continue;
- mswait(100);
- if(mdm_spec[0]) {
- for(i=0;i<4;i++) {
- mdmcmd(mdm_spec);
- if(!getmdmstr(str,10)) continue;
- if(!strcmp(str,"0")) break; }
- if(i==4)
- continue; }
- break; }
-
- if(init_attempts==4) { /* couldn't init */
- strcpy(result,"No Init");
- exit(1); }
-
- mswait(1000);
- mdmcmd("ATH");
- str[0]=0;
- getmdmstr(str,10);
- if(strcmp(str,"0")) {
- strcpy(result,"No Init");
- exit(1); }
- if(hangup_time)
- bprintf("\r\n\1n\1cWaiting \1h%u\1n\1c seconds before dialing..."
- "\r\n\r\n",hangup_time);
- mswait(hangup_time*1000); /* Wait xx seconds before dialing */
-
- for(i=0;i<callout_attempts;i++) {
- mswait(5000);
- rioctl(IOFB);
- sprintf(str,"%s%s",mdm_dial,phone_number);
- mdmcmd(str);
- if(!getmdmstr(str,60)) {
- mdmcmd(""); /* send CR to abort dial */
- continue; }
- if(strcmp(str,"0") && strcmp(str,"2") && strcmp(str,"3")
- && strcmp(str,"4") && strcmp(str,"6") && strcmp(str,"7")
- && strcmp(str,"8") && strcmp(str,"9"))
- break; }
-
- if(i==callout_attempts) { /* Couldn't connect */
- strcpy(result,"No Connect");
- exit(1); }
-
- i=INT29L; /* intercept i/o vectors again */
- if(com_port)
- i|=(INT29R|INT16);
- ivhctl(i);
- io_int=1;
-
- if(rioctl(IOSTATE|DCD)) {
- mswait(5000); /* wait 5 seconds for MNP to Non-MNP connect */
- rioctl(IOFB);
- lncntr=0;
- i=0; cls();
- bprintf("\r\n\r\n\1n\1cThis is \1h%s \1n\1ccalling for \1m%s.",
- sys_name,user_name);
- while(1) {
- bprintf("\r\n\r\n\1h\1yEnter your password for verification: ");
- getstr(str,8,K_UPPER|K_LINE);
- if(!stricmp(str,user_password)) {
- validated=1;
- bprintf("\r\n\r\n\1n\1cYou have now been verified on \1h%s!",
- sys_name);
- printfile("VERIFIED.MSG");
- strcpy(result,"Verified");
- break; }
- else {
- bprintf("\r\n\1r\1hINCORRECT!\1n");
- if(++i>=4) {
- bprintf("\r\n\r\n\1r\1hYou have entered an incorrect "
- "password. Goodbye.\r\n\r\n"); dtr(5);
- strcpy(result,"Bad Pass"); return; } } }
-
- if(!(options&STAY_CONNECTED)) {
- mswait(2000);
- for(i=0;i<5;i++) {
- dtr(5);
- if(!(rioctl(IOSTATE)&DCD)) /* no carrier detect */
- break;
- lprintf("SCB: Dropping DTR failed to lower DCD.\r\n");
- dtr(1);
- mswait(2000); }
- sprintf(str,"%sHANGUP.NOW",node_dir);
- if((i=nopen(str,O_CREAT|O_RDWR))!=-1)
- close(i); } }
-}
-
-/******************************************************************************
- Writes the MODUSER.DAT file.
-******************************************************************************/
-void moduser()
-{
- FILE *stream;
- char str[512];
- int file;
- long expire;
- time_t now;
-
- now=time(NULL);
-
- if(user_expire>now)
- expire=(user_expire+(atol(expiration)*24L*60L*60L));
- else
- expire=(now+(atol(expiration)*24L*60L*60L));
-
- sprintf(str,"%sMODUSER.DAT",node_dir);
- if((stream=fopen(str,"wb"))!=NULL) {
- fprintf(stream,"%s\r\n",credits);
- fprintf(stream,"%s\r\n",level);
- fprintf(stream,"\r\n");
- fprintf(stream,"%s\r\n",flags1);
- fprintf(stream,"%s\r\n",flags2);
- fprintf(stream,"%s\r\n",exempt);
- fprintf(stream,"%s\r\n",restrict);
- fprintf(stream,"%s\r\n",atol(expiration) ? ultoa(expire,str,16) : "");
- fprintf(stream,"%s\r\n",minutes);
- fprintf(stream,"%s\r\n",flags3);
- fprintf(stream,"%s\r\n",flags4);
- fclose(stream);
- }
- else
- bprintf("\7\r\nError opening %s for write.\r\n",str);
- if(addfile[0] && phone_number[0]) {
- if((file=nopen(addfile,O_WRONLY|O_APPEND|O_CREAT))!=-1) {
- sprintf(str,"%s^\r\n",phone_number);
- write(file,str,strlen(str));
- close(file); }
- else
- bprintf("\7\r\nError opening %s for write.\r\n",addfile); }
- if(sysop) {
- sprintf(str,"\1c\1hSCB: \1y%s \1n\1cwas validated \1h%.24s\1n\r\n"
- ,user_name,ctime(&now));
- putsmsg(sysop,str); }
-}
-
-/******************************************************************************
- Writes the log file.
-******************************************************************************/
-void write_info()
-{
- char str[512];
- int file;
- time_t now;
-
- now=time(NULL);
- if((file=nopen("SCB.LOG",O_WRONLY|O_APPEND|O_CREAT))!=-1) {
- sprintf(str,
- "Node %-3d : %.24s\r\n"
- "User Name : %s\r\n"
- "Voice Number : %s\r\n"
- "Modem Number : %s\r\n"
- "Result : %s\r\n\r\n"
- ,node_num,ctime(&now),user_name,user_phone,phone_number,result);
- write(file,str,strlen(str));
- close(file); }
- else
- bprintf("\7\r\nError opening SCB.LOG for write.\r\n");
- sprintf(str,"%sNODE.LOG",node_dir);
- if(com_port && (file=nopen(str,O_WRONLY|O_APPEND|O_CREAT))!=-1) {
- sprintf(str,"cb Result: %s %s\r\n",result,phone_number);
- write(file,str,strlen(str));
- close(file); }
- if(options&MODIFY_USER_NOTE) {
- sprintf(str,"%sUSER\\USER.DAT",data_dir);
- if((file=nopen(str,O_WRONLY|O_DENYNONE))!=-1) {
- lseek(file,(long)((((long)user_number-1L)*U_LEN)+U_NOTE),SEEK_SET);
- memset(str,'\3',30);
- sprintf(str,"%s %s",result,phone_number);
- str[strlen(str)]=3;
- write(file,str,30);
- close(file); } }
-}
-
-/******************************************************************************
- Returns the users' password.
-******************************************************************************/
-char *get_user_pw()
-{
- static char pw[9];
- char str[256];
- int file,x;
-
- sprintf(str,"%sUSER\\USER.DAT",data_dir);
- if((file=nopen(str,O_RDONLY))==-1) {
- printf("Unable to open %s.",str); exit(1); }
- lseek(file,(long)((((long)user_number-1L)*U_LEN)+U_PASS),SEEK_SET);
- read(file,pw,8);
- for(x=0;x<8;x++)
- if(pw[x]==3) break;
- pw[x]=0;
- close(file);
- return(pw);
-}
-
-/******************************************************************************
- Checks the phone number entered. 0=Good, 1=Bad.
-******************************************************************************/
-char check_phone(char *insearch)
-{
- char str[256],search[256],c,found=0,allowed=0,long_distance=0;
- int file,day,t;
- FILE *stream;
- time_t now;
- struct date date;
- struct time curtime;
- struct tm *tblock;
-
-if(strlen(insearch)<min_phone_len) {
- printfile("TOOSHORT.MSG");
- return(PHONE_INVALID); }
-if(strlen(insearch)>max_phone_len) {
- printfile("TOOLONG.MSG");
- return(PHONE_INVALID); }
-
-strcpy(str,"ALLOWED.DAT");
-if((file=nopen(str,O_RDONLY|O_TEXT))!=-1)
- if((stream=fdopen(file,"rt"))!=NULL) {
- strcpy(search,insearch);
- strupr(search);
- while(!feof(stream) && !ferror(stream)) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- c=strlen(str);
- if(c && !strncmp(str,search,c)) {
- allowed=1;
- break; } }
- fclose(stream); }
-
-if(!allowed) {
-
- if(options&ALLOWED_ONLY)
- long_distance=1;
- else {
- strcpy(str,"LDPREFIX.DAT");
- if((file=nopen(str,O_RDONLY|O_TEXT))!=-1)
- if((stream=fdopen(file,"rt"))!=NULL) {
- strcpy(search,insearch);
- strupr(search);
- while(!feof(stream) && !ferror(stream)) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- c=strlen(str);
- if(c && !strncmp(str,search,c)) {
- long_distance=1;
- break; } }
- fclose(stream); } }
-
- if(!(options&START_WITH_0) && insearch[0]=='0') {
- printfile("NO_ZERO.MSG");
- return(PHONE_LD); }
- if(!(options&START_WITH_1) && insearch[0]=='1') {
- printfile("NO_ONE.MSG");
- return(PHONE_LD); }
- if(!(options&SAME_AREA_LD) && insearch[0]!='0' && insearch[0]!='1'
- && long_distance) {
- printfile("NO_LD.MSG");
- return(PHONE_LD); }
- if((insearch[0]=='1' || insearch[0]=='0' || long_distance) &&
- (ldstart[day] || ldend[day])) {
- now=time(NULL);
- tblock=localtime(&now);
- day=tblock->tm_wday;
- unixtodos(now,&date,&curtime);
- t=(curtime.ti_hour*60)+curtime.ti_min;
-
- if((ldstart[day]<ldend[day]
- && (t<ldstart[day] || t>ldend[day]))
-
- || (ldstart[day]>ldend[day]
- && (t<ldstart[day] && t>ldend[day]))
-
- ) {
-
- bprintf("\7\r\n\1n\1gLong distance calls are only allowed between "
- "\1h%02d:%02d \1n\1gand \1h%02d:%02d\1n\1g.\r\n"
- ,ldstart[day]/60,ldstart[day]%60
- ,ldend[day]/60,ldend[day]%60);
- printfile("LD_TIME.MSG");
- return(PHONE_LD); } } }
-
-strcpy(str,canfile);
-if((file=nopen(str,O_RDONLY|O_TEXT))==-1) {
- if(fexist(str))
- printf("ERROR: Unable to open %s for read.",str);
- return(PHONE_OKAY); }
-if((stream=fdopen(file,"rt"))==NULL) {
- printf("ERROR: Converting %s to a stream.",str);
- return(PHONE_OKAY); }
-strcpy(search,insearch);
-strupr(search);
-while(!feof(stream) && !ferror(stream) && !found) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- c=strlen(str);
- if(c) {
- c--;
- strupr(str);
- if(str[c]=='~') {
- str[c]=0;
- if(strstr(search,str))
- found=1; }
-
- else if(str[c]=='^') {
- str[c]=0;
- if(!strncmp(str,search,c))
- found=1; }
-
- else if(!strcmp(str,search))
- found=1; } }
-fclose(stream);
-if(found) {
- printfile("PHONECAN.MSG");
- return(PHONE_INVALID); }
-if(!allowed && options&STAY_CONNECTED && options&SC_LOCAL_ONLY &&
- (insearch[0]=='1' || insearch[0]=='0'))
- options&=~STAY_CONNECTED;
-return(PHONE_OKAY);
-}
-
-/****************************************************************************/
-/* Outputs a single character to the COM port */
-/****************************************************************************/
-void putcomch(char ch)
-{
- char lch;
- int i=0;
-
-if(!com_port)
- return;
-while(outcom(ch)&TXBOF && i<1440) { /* 3 minute pause delay */
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==3) {
- lputs("local abort (putcomch)\r\n");
- i=1440;
- break; }
- ungetkey(lch); }
- if(!(rioctl(IOSTATE)&DCD))
- break;
- i++;
- mswait(80); }
-if(i==1440) { /* timeout - beep flush outbuf */
- i=rioctl(TXBC);
- lprintf("timeout(putcomch) %04X %04X\r\n",i,rioctl(IOFO));
- outcom(7);
- lputc(7);
- rioctl(IOCS|PAUSE); }
-}
-
-/****************************************************************************/
-/* Sends string of characters to COM port. Interprets ^M and ~ (pause) */
-/* Called from functions waitforcall and offhook */
-/****************************************************************************/
-void mdmcmd(char *str)
-{
- int i=0;
- uint lch;
-
-lputs("\r\nModem command : ");
-while(str[i]) {
- if(str[i]=='~')
- mswait(500);
- else {
- if(i && str[i-1]=='^' && str[i]!='^') /* control character */
- putcomch(toupper(str[i])-64);
- else if(str[i]!='^' || (i && str[i-1]=='^'))
- putcomch(str[i]);
- lputc(str[i]); }
- i++; }
-putcomch(CR);
-i=0;
-while(rioctl(TXSYNC) && i<10) { /* wait for modem to receive all chars */
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==0x2e03) {
- lputs("local abort (mdmcmd)\r\n");
- break; }
- if(lch==0xff00)
- bail(1);
- ungetkey(lch); }
- i++; }
-if(i==10) {
- i=rioctl(TXBC);
- lprintf("\r\n\7timeout(mdmcmd) %04X %04X\r\n",i,rioctl(IOFO)); }
-lputs(crlf);
-}
-/****************************************************************************/
-/* Returns CR terminated string from the COM port. */
-/* Called from function waitforcall */
-/****************************************************************************/
-char getmdmstr(char *str, int sec)
-{
- uchar j=0,ch;
- uint lch;
- time_t start;
-
-lputs("Modem response : ");
-start=time(NULL);
-while(time(NULL)-start<sec && j<81) {
- if(lkbrd(1)) {
- lch=lkbrd(0); /* ctrl-c */
- if(lch==0x2e03) {
- lputs("local abort (getmdmstr)\r\n");
- break; }
- if(lch==0xff00)
- bail(1);
- ungetkey(lch); }
- if((ch=incom())==CR && j)
- break;
- if(ch && (ch<0x20 || ch>0x7f)) /* ignore control characters and ex-ascii */
- continue;
- if(ch) {
- str[j++]=ch;
- lputc(ch); }
- else mswait(0); }
-mswait(500);
-str[j]=0;
-lputs(crlf);
-return(j);
-}
diff --git a/src/sbbs2/scb/scb.h b/src/sbbs2/scb/scb.h
deleted file mode 100644
index 1aac129df047a08fa4ebb4edddcd0c0b78021597..0000000000000000000000000000000000000000
--- a/src/sbbs2/scb/scb.h
+++ /dev/null
@@ -1,17 +0,0 @@
-/* SCB.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Synchronet BBS Callback door */
-
-#define VERSION "1.40"
-
-#define ALWAYS_VALIDATE (1<<0)
-#define MODIFY_USER_NOTE (1<<1)
-#define START_WITH_0 (1<<2)
-#define START_WITH_1 (1<<3)
-#define STAY_CONNECTED (1<<4)
-#define SC_LOCAL_ONLY (1<<5)
-#define US_PHONE_FORMAT (1<<6)
-#define ALLOWED_ONLY (1<<7)
-#define SAME_AREA_LD (1<<8)
diff --git a/src/sbbs2/scb/scbcfg.c b/src/sbbs2/scb/scbcfg.c
deleted file mode 100644
index 4058369fe3b1d0228094fec8161eee0ede7f7ecf..0000000000000000000000000000000000000000
--- a/src/sbbs2/scb/scbcfg.c
+++ /dev/null
@@ -1,788 +0,0 @@
-/* SCBCFG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <uifc.h>
-#include <sys\stat.h>
-#include "scb.h"
-
-#define MAX_PRFX 500
-#define LEN_PRFX 20
-
-char **opt;
-char **prfx;
-
-int add();
-void bail(int code);
-void main();
-char fexist(char *filespec);
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-void bail(int code)
-{
-
-if(code)
- getch();
-uifcbail();
-exit(code);
-}
-
-int add()
-{
- int i;
-
-i=0;
-strcpy(opt[0],"Add these to the user account");
-strcpy(opt[1],"Remove these from the user account");
-opt[2][0]=0;
-/*
-Add/Remove Flags/Restricts/Exempts:
-
-Select ADD if you want these flags/restricts/exempts added to the
-user upon validation, or select REMOVE to take them away upon
-validation.
-
-*/
-i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Add or Remove From Account",opt);
-return(i);
-}
-
-void main()
-{
- char str[128],canfile[256],addfile[256],flags1[81]={NULL},
- flags2[81]={NULL},flags3[81]={NULL},flags4[81]={NULL},
- exempt[81]={NULL},restrict[81]={NULL},expiration[81]={NULL},
- credits[81]={NULL},minutes[81]={NULL},level[81]={NULL},
- callout_attempts[81]={NULL},sysop[81]={NULL},bbs_ac[81],*p;
- int file,i,j,k,options=0,ldstart[7]={NULL},ldend[7]={NULL},min_phone_len=7,
- max_phone_len=11,total_prfxs,dflt,b,hangup_time;
- FILE *stream;
-
-savnum=0;
-if((opt=(char **)MALLOC(sizeof(char *)*300))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-for(i=0;i<300;i++)
- if((opt[i]=(char *)MALLOC(MAX_OPLN))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-uifcini();
-sprintf(str,"Synchronet Callback v%s",VERSION);
-uscrn(str);
-
-if(!(fexist("SCB.CFG"))) {
- strcpy(callout_attempts,"5");
- strcpy(canfile,"\\SBBS\\TEXT\\PHONE.CAN");
- strcpy(addfile,canfile);
- options|=MODIFY_USER_NOTE; }
-else {
- if((file=open("SCB.CFG",O_RDONLY|O_BINARY|O_DENYNONE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening SCB.CFG\r\n");
- bail(1); }
- if((stream=fdopen(file,"rb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen SCB.CFG\r\n");
- bail(1); }
- fgets(callout_attempts,81,stream); truncsp(callout_attempts);
- fgets(str,81,stream); truncsp(str);
- if(str[0]=='Y') options|=ALWAYS_VALIDATE;
- if(str[1]=='Y') options|=MODIFY_USER_NOTE;
- if(str[2]=='Y') options|=START_WITH_0;
- if(str[3]=='Y') options|=START_WITH_1;
- if(str[4]=='Y') options|=STAY_CONNECTED;
- if(str[5]=='Y') options|=SC_LOCAL_ONLY;
- if(str[6]=='Y') options|=US_PHONE_FORMAT;
- if(str[7]=='Y') options|=ALLOWED_ONLY;
- if(str[8]!='N') options|=SAME_AREA_LD;
- fgets(canfile,81,stream); truncsp(canfile);
- fgets(addfile,81,stream); truncsp(addfile);
- fgets(credits,81,stream); truncsp(credits);
- fgets(sysop,81,stream); truncsp(sysop);
- fgets(level,81,stream); truncsp(level);
- fgets(flags1,81,stream); truncsp(flags1);
- fgets(flags2,81,stream); truncsp(flags2);
- fgets(exempt,81,stream); truncsp(exempt);
- fgets(restrict,81,stream); truncsp(restrict);
- fgets(expiration,81,stream); truncsp(expiration);
- fgets(minutes,81,stream); truncsp(minutes);
- fgets(flags3,81,stream); truncsp(flags3);
- fgets(flags4,81,stream); truncsp(flags4);
- for(i=0;i<7;i++) {
- fgets(str,81,stream); ldstart[i]=atoi(str); /* min since midnight */
- fgets(str,81,stream); ldend[i]=atoi(str); }
- fgets(str,81,stream); min_phone_len=atoi(str);
- fgets(str,81,stream); max_phone_len=atoi(str);
- fgets(bbs_ac,81,stream); truncsp(bbs_ac);
- if(fgets(str,81,stream)) {
- hangup_time=atoi(str);
- if(hangup_time>90)
- hangup_time=90; }
- else
- hangup_time=30;
- str[0]=0;
- fgets(str,81,stream); // regnum
- fclose(stream); }
-dflt=0;
-while(1) {
- helpbuf=
-" Synchronet Callback Configuration \r\n\r\n"
-"Move through the various options using the arrow keys. Select the\r\n"
-"highlighted options by pressing ENTER.\r\n\r\n";
- j=0;
- sprintf(opt[j++],"Toggle Options...");
- sprintf(opt[j++],"Validation Values...");
- sprintf(opt[j++],"Allowed Prefix List...");
- sprintf(opt[j++],"Long Distance Prefix List...");
- sprintf(opt[j++],"Long Distance Calling Times...");
- sprintf(opt[j++],"Phone Number Trash Can %-30.30s",canfile);
- sprintf(opt[j++],"Validated Phone List %-30.30s",addfile);
- sprintf(opt[j++],"Callback Attempts %-2.2s",callout_attempts);
- sprintf(opt[j++],"Minimum Phone Length %u",min_phone_len);
- sprintf(opt[j++],"Maximum Phone Length %u",max_phone_len);
- sprintf(opt[j++],"Wait Before Dialing %u seconds",hangup_time);
- sprintf(opt[j++],"BBS Area Code %-3.3s",bbs_ac);
- if(sysop[0])
- sprintf(str,"User #%s",sysop);
- else
- sprintf(str,"Disabled");
- sprintf(opt[j++],"Send Message to Sysop %-30.30s",str);
- opt[j][0]=NULL;
- switch(ulist(WIN_ORG|WIN_MID|WIN_ACT|WIN_ESC,0,0,60,&dflt,0
- ,"Synchronet Callback Configuration",opt)) {
- case 0:
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"%-40.40s%-3s","Validate if Unable to Verify"
- ,options&ALWAYS_VALIDATE ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-3s","Put Result in User Note"
- ,options&MODIFY_USER_NOTE ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-3s"
- ,"Long Distance if not an Allowed Prefix"
- ,options&ALLOWED_ONLY ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-3s"
- ,"Allow Long Distance (Starting with 0)"
- ,options&START_WITH_0 ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-3s"
- ,"Allow Long Distance (Starting with 1)"
- ,options&START_WITH_1 ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-3s"
- ,"Allow Long Distance (Same Area Code)"
- ,options&SAME_AREA_LD ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-3s"
- ,"U.S. Style Phone Format (AAA-PPP-SSSS)"
- ,options&US_PHONE_FORMAT ? "Yes":"No");
- sprintf(opt[k++],"%-40.40s%-10s","Stay Connected After Callback"
- ,options&STAY_CONNECTED && options&SC_LOCAL_ONLY ?
- "Local Only" : options&STAY_CONNECTED ? "Yes":"No");
- opt[k][0]=NULL;
-helpbuf=
-" Toggle Options \r\n\r\n"
-"Validate if Unable to Call Back\r\n"
-" Setting this to Yes will validate the user even if the board is unable "
-"\r\n"
-" to call the user back.\r\n"
-"Put Result in User Note\r\n"
-" When set to Yes, this option will place the phone number, and\r\n"
-" information pertaining to the call into the user's note.\r\n"
-"Allow Numbers that Start with 0 / Allow Numbers that Start with 1\r\n"
-" Set these options to Yes to allow SCB to call phone numbers which\r\n"
-" start with a 0 or a 1 (respectively).\r\n"
-"U.S. Style Phone Format\r\n"
-" Toggle this option to Yes if you live in an area that uses a phone\r\n"
-" number format of (AAA) PPP-SSSS.\r\n"
-"Stay Connected After Callback\r\n"
-" Toggle this option to Yes to allow SCB to stay connected after a\r\n"
-" callback, Local Only for local numbers, or No to disconnect.";
-
- j=ulist(0,0,0,0,&j,0,"Toggle Options",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- options^=ALWAYS_VALIDATE;
- break;
- case 1:
- options^=MODIFY_USER_NOTE;
- break;
- case 2:
- options^=ALLOWED_ONLY;
- break;
- case 3:
- options^=START_WITH_0;
- break;
- case 4:
- options^=START_WITH_1;
- break;
- case 5:
- options^=SAME_AREA_LD;
- break;
- case 6:
- options^=US_PHONE_FORMAT;
- break;
- case 7:
- if(options&STAY_CONNECTED && options&SC_LOCAL_ONLY) {
- options^=STAY_CONNECTED;
- options^=SC_LOCAL_ONLY;
- } else if(options&STAY_CONNECTED)
- options^=SC_LOCAL_ONLY;
- else options^=STAY_CONNECTED;
- break; } }
- break;
- case 1:
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"%-30.30s %-27.27s","Security Level"
- ,level);
- sprintf(opt[k++],"%-30.30s %-27.27s","Flag Set 1"
- ,flags1);
- sprintf(opt[k++],"%-30.30s %-27.27s","Flag Set 2"
- ,flags2);
- sprintf(opt[k++],"%-30.30s %-27.27s","Flag Set 3"
- ,flags3);
- sprintf(opt[k++],"%-30.30s %-27.27s","Flag Set 4"
- ,flags4);
- sprintf(opt[k++],"%-30.30s %-27.27s","Exemptions"
- ,exempt);
- sprintf(opt[k++],"%-30.30s %-27.27s","Restrictions"
- ,restrict);
- sprintf(opt[k++],"%-30.30s %-27.27s"
- ,"Days to Extend Expiration"
- ,expiration);
- sprintf(opt[k++],"%-30.30s %-27.27s","Credits to Add"
- ,credits);
- sprintf(opt[k++],"%-30.30s %-27.27s","Minutes to Add"
- ,minutes);
- opt[k][0]=NULL;
-helpbuf=
-" Validation Values \r\n\r\n"
-"These are the values that will be placed into user accounts that have\r\n"
-"been successfully verified through the Synchronet Callback.";
-
-
- j=ulist(WIN_ACT,0,0,0,&j,0,"Validation Values",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
-helpbuf=
-" Security Level \r\n\r\n"
-"This is the Security level that will be given to users that are called\r\n"
-"back successfully.";
- uinput(WIN_L2R|WIN_MID|WIN_SAV,0,0,
- "Security Level",level,2,K_EDIT|K_NUMBER);
- break;
- case 1:
-helpbuf=
-" Flag Set 1 \r\n\r\n"
-"These are the different flags to be added to (or removed from) the\r\n"
-"user account.";
- p=strstr(flags1,"-");
- if(p!=NULL) sprintf(str,"%s",p+1);
- else
- sprintf(str,"%s",flags1);
- if(uinput(WIN_L2R|WIN_MID|WIN_SAV,0,0,"Flag Set 1",str
- ,26,K_EDIT|K_UPPER|K_ALPHA)<0)
- break;
- if(str[0] && add()>0) sprintf(flags1,"-%s",str);
- else
- sprintf(flags1,"%s",str);
- break;
- case 2:
-helpbuf=
-" Flag Set 2 \r\n\r\n"
-"These are the different flags to be added to (or removed from) the\r\n"
-"user account.";
- p=strstr(flags2,"-");
- if(p!=NULL) sprintf(str,"%s",p+1);
- else
- sprintf(str,"%s",flags2);
- if(uinput(WIN_L2R|WIN_MID|WIN_SAV,0,0,"Flag Set 2",str
- ,26,K_EDIT|K_UPPER|K_ALPHA)<0)
- break;
- if(str[0] && add()>0) sprintf(flags2,"-%s",str);
- else
- sprintf(flags2,"%s",str);
- break;
- case 3:
-helpbuf=
-" Flag Set 3 \r\n\r\n"
-"These are the different flags to be added to (or removed from) the\r\n"
-"user account.";
- p=strstr(flags3,"-");
- if(p!=NULL) sprintf(str,"%s",p+1);
- else
- sprintf(str,"%s",flags3);
- if(uinput(WIN_L2R|WIN_MID|WIN_SAV,0,0,"Flag Set 3",str
- ,26,K_EDIT|K_UPPER|K_ALPHA)<0)
- break;
- if(str[0] && add()>0) sprintf(flags3,"-%s",str);
- else
- sprintf(flags3,"%s",str);
- break;
- case 4:
-helpbuf=
-" Flag Set 4 \r\n\r\n"
-"These are the different flags to be added to (or removed from) the\r\n"
-"user account.";
- p=strstr(flags4,"-");
- if(p!=NULL) sprintf(str,"%s",p+1);
- else
- sprintf(str,"%s",flags4);
- if(uinput(WIN_L2R|WIN_MID|WIN_SAV,0,0,"Flag Set 4",str
- ,26,K_EDIT|K_UPPER|K_ALPHA)<0)
- break;
- if(str[0] && add()>0) sprintf(flags4,"-%s",str);
- else
- sprintf(flags4,"%s",str);
- break;
- case 5:
-helpbuf=
-" Exemptions \r\n\r\n"
-"These are the exemption flags that will be added to (or removed from)\r\n"
-"the user account.";
- p=strstr(exempt,"-");
- if(p!=NULL) sprintf(str,"%s",p+1);
- else
- sprintf(str,"%s",exempt);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Exemptions",str
- ,26,K_EDIT|K_UPPER|K_ALPHA)<0)
- break;
- if(str[0] && add()>0) sprintf(exempt,"-%s",str);
- else
- sprintf(exempt,"%s",str);
- break;
- case 6:
-helpbuf=
-" Restrictions \r\n\r\n"
-"These are the restriction flags that will be added to (or removed\r\n"
-"from) the user account.";
- p=strstr(restrict,"-");
- if(p!=NULL) sprintf(str,"%s",p+1);
- else
- sprintf(str,"%s",restrict);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Restrictions",str
- ,26,K_EDIT|K_UPPER|K_ALPHA)<0)
- break;
- if(str[0] && add()>0) sprintf(restrict,"-%s",str);
- else
- sprintf(restrict,"%s",str);
- break;
- case 7:
-helpbuf=
-" Days to Extend Expiration \r\n\r\n"
-"This is the number of days to extend the expiration date of a user\r\n"
-"account.";
- uinput(WIN_MID|WIN_SAV,0,0,"Expiration"
- ,expiration,8,K_EDIT|K_UPPER|K_NUMBER);
- break;
- case 8:
-helpbuf=
-" Credits to Add \r\n\r\n"
-"This is the number of credits to add to a user account.";
- uinput(WIN_MID|WIN_SAV,0,0,"Credits",credits
- ,10,K_EDIT|K_UPPER|K_NUMBER);
- break;
- case 9:
-helpbuf=
-" Minutes to Add \r\n\r\n"
-"This is the number of minutes to add to a user account.";
- uinput(WIN_MID|WIN_SAV,0,0,"Minutes",minutes
- ,3,K_EDIT|K_UPPER|K_NUMBER);
- break; } }
- break;
- case 2:
-helpbuf=
-" Allowed Prefix List \r\n\r\n"
-"Any phone numbers entered whose prefix matches a number contained\r\n"
-"in this list, will not be affected by long distance restrictions.\r\n"
-"For example, if you are in the 714 code, and you wish to SCB to\r\n"
-"consider all prefixes in the 310 area code local, you would enter 1310\r\n"
-"in the list.";
-
- total_prfxs=0;
- if((prfx=(char **)MALLOC(sizeof(char *)*MAX_PRFX))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
- for(i=0;i<MAX_PRFX;i++)
- if((prfx[i]=(char *)MALLOC(LEN_PRFX+1))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-
- if(fexist("ALLOWED.DAT")) {
- if((file=open("ALLOWED.DAT",
- O_RDONLY|O_BINARY|O_DENYNONE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening ALLOWED.DAT\r\n");
- bail(1); }
- if((stream=fdopen(file,"rb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen ALLOWED.DAT\r\n");
- bail(1); }
- while(!feof(stream) && total_prfxs<MAX_PRFX) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- sprintf(prfx[total_prfxs++],"%.*s",LEN_PRFX,str); }
- fclose(stream); }
- i=b=0;
- while(1) {
- for(j=0;j<total_prfxs;j++)
- strcpy(opt[j],prfx[j]);
- opt[j][0]=NULL;
- j=WIN_ACT|WIN_SAV;
- if(total_prfxs)
- j|=WIN_DEL;
- if(total_prfxs<MAX_PRFX)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- i=ulist(j,0,0,30,&i,&b,"Allowed Prefix List",opt);
- if((i&0xf000)==MSK_DEL) {
- i&=0xfff;
- total_prfxs--;
- for(j=i;j<total_prfxs;j++)
- strcpy(prfx[j],prfx[j+1]);
- strcpy(prfx[j+1],"");
- continue; }
- if((i&0xf000)==MSK_INS) {
- i&=0xfff;
- if(uinput(WIN_MID|WIN_SAV,0,0,"Enter Prefix",str,LEN_PRFX
- ,K_NUMBER)<1)
- continue;
- ++total_prfxs;
- if(total_prfxs)
- for(j=total_prfxs;j>i;j--)
- strcpy(prfx[j],prfx[j-1]);
- strcpy(prfx[i],str);
- continue; }
- if(i==-1) {
- if((file=open("ALLOWED.DAT",
- O_WRONLY|O_BINARY|O_CREAT|O_TRUNC|O_DENYALL,
- S_IREAD|S_IWRITE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening ALLOWED.DAT\r\n");
- bail(1); }
- if((stream=fdopen(file,"wb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen ALLOWED.DAT\r\n");
- bail(1); }
- for(i=0;i<total_prfxs;i++) {
- fprintf(stream,"%s\r\n",prfx[i]); }
- fclose(stream);
- for(i=0;i<MAX_PRFX;i++)
- FREE(prfx[i]);
- FREE(prfx);
- break; }
- /* else CR was hit */
- uinput(WIN_MID|WIN_SAV,0,0,"Edit Prefix"
- ,prfx[i],LEN_PRFX,K_EDIT|K_NUMBER); }
- break;
- case 3:
-helpbuf=
-" Long Distance Prefix List \r\n\r\n"
-"Any phone numbers entered whose prefixes matches a number contained\r\n"
-"in this list, will be considered a long distance number. For example,\r\n"
-"in the same area code, the phone number 234-5678 is long distance to you,\r\n"
-"so placing 234 in this list will make SCB view calls to that prefix as\r\n"
-"long distance.\r\n"
-"\r\n"
-"If the Long Distance if not an Allowed Prefix toggle option is set to\r\n"
-"Yes, then this list is not used.\r\n";
-
- total_prfxs=0;
- if((prfx=(char **)MALLOC(sizeof(char *)*MAX_PRFX))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
- for(i=0;i<MAX_PRFX;i++)
- if((prfx[i]=(char *)MALLOC(LEN_PRFX+1))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-
- if(fexist("LDPREFIX.DAT")) {
- if((file=open("LDPREFIX.DAT",
- O_RDONLY|O_BINARY|O_DENYNONE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening LDPREFIX.DAT\r\n");
- bail(1); }
- if((stream=fdopen(file,"rb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen LDPREFIX.DAT\r\n");
- bail(1); }
- while(!feof(stream) && total_prfxs<MAX_PRFX) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- sprintf(prfx[total_prfxs++],"%.*s",LEN_PRFX,str); }
- fclose(stream); }
- i=b=0;
- while(1) {
- for(j=0;j<total_prfxs;j++)
- strcpy(opt[j],prfx[j]);
- opt[j][0]=NULL;
- j=WIN_ACT|WIN_SAV;
- if(total_prfxs)
- j|=WIN_DEL;
- if(total_prfxs<MAX_PRFX)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- i=ulist(j,0,0,30,&i,&b,"Long Distance Prefix List",opt);
- if((i&0xf000)==MSK_DEL) {
- i&=0xfff;
- total_prfxs--;
- for(j=i;j<total_prfxs;j++)
- strcpy(prfx[j],prfx[j+1]);
- strcpy(prfx[j+1],"");
- continue; }
- if((i&0xf000)==MSK_INS) {
- i&=0xfff;
- if(uinput(WIN_MID|WIN_SAV,0,0,"Enter Prefix",str,LEN_PRFX
- ,K_NUMBER)<1)
- continue;
- ++total_prfxs;
- if(total_prfxs)
- for(j=total_prfxs;j>i;j--)
- strcpy(prfx[j],prfx[j-1]);
- strcpy(prfx[i],str);
- continue; }
- if(i==-1) {
- if((file=open("LDPREFIX.DAT",
- O_WRONLY|O_BINARY|O_CREAT|O_TRUNC|O_DENYALL,
- S_IREAD|S_IWRITE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening LDPREFIX.DAT\r\n");
- bail(1); }
- if((stream=fdopen(file,"wb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen LDPREFIX.DAT\r\n");
- bail(1); }
- for(i=0;i<total_prfxs;i++) {
- fprintf(stream,"%s\r\n",prfx[i]); }
- fclose(stream);
- for(i=0;i<MAX_PRFX;i++)
- FREE(prfx[i]);
- FREE(prfx);
- break; }
- /* else CR was hit */
- uinput(WIN_MID|WIN_SAV,0,0,"Edit Prefix"
- ,prfx[i],LEN_PRFX,K_EDIT|K_NUMBER); }
- break;
- case 4:
-helpbuf=
-" Long Distance Calling Times \r\n\r\n"
-"You are being prompted to specify the beginning and ending times to\r\n"
-"allow long distance verification calls (in military 24-hour format).\r\n"
-"If you wish to allow long distance calls continuously, set both times\r\n"
-"to 00:00.\r\n"
-"\r\n"
-"To disable long distance calls entirely, set the Allow Long Distance\r\n"
-"toggle options to No.";
-
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"Sunday From %02d:%02d to %02d:%02d"
- ,ldstart[0]/60,ldstart[0]%60
- ,ldend[0]/60,ldend[0]%60);
- sprintf(opt[k++],"Monday From %02d:%02d to %02d:%02d"
- ,ldstart[1]/60,ldstart[1]%60
- ,ldend[1]/60,ldend[1]%60);
- sprintf(opt[k++],"Tuesday From %02d:%02d to %02d:%02d"
- ,ldstart[2]/60,ldstart[2]%60
- ,ldend[2]/60,ldend[2]%60);
- sprintf(opt[k++],"Wednesday From %02d:%02d to %02d:%02d"
- ,ldstart[3]/60,ldstart[3]%60
- ,ldend[3]/60,ldend[3]%60);
- sprintf(opt[k++],"Thursday From %02d:%02d to %02d:%02d"
- ,ldstart[4]/60,ldstart[4]%60
- ,ldend[4]/60,ldend[4]%60);
- sprintf(opt[k++],"Friday From %02d:%02d to %02d:%02d"
- ,ldstart[5]/60,ldstart[5]%60
- ,ldend[5]/60,ldend[5]%60);
- sprintf(opt[k++],"Saturday From %02d:%02d to %02d:%02d"
- ,ldstart[6]/60,ldstart[6]%60
- ,ldend[6]/60,ldend[6]%60);
- opt[k][0]=NULL;
-
- j=ulist(WIN_ACT|WIN_SAV,0,0,0,&j,0
- ,"Long Distance Calling Times",opt);
- if(j==-1)
- break;
- sprintf(str,"%02d:%02d",ldstart[j]/60,ldstart[j]%60);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Long Distance Start "
- "Time",str,5,K_EDIT|K_UPPER)) {
- ldstart[j]=atoi(str)*60;
- p=strchr(str,':');
- if(p)
- ldstart[j]+=atoi(p+1); }
- sprintf(str,"%02d:%02d",ldend[j]/60,ldend[j]%60);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Long Distance End Time",
- str,5,K_EDIT|K_UPPER)) {
- ldend[j]=atoi(str)*60;
- p=strchr(str,':');
- if(p)
- ldend[j]+=atoi(p+1); } }
- break;
- case 5:
-helpbuf=
-" Phone Can \r\n\r\n"
-"This is the complete path (drive, directory, and filename) where a\r\n"
-"trashcan file of phone numbers will be kept. Any numbers inside of this\r\n"
-"trashcan will not be accepted for callback verification by SCB.";
- uinput(WIN_MID,0,0,"Phone Can",canfile
- ,30,K_EDIT|K_UPPER);
- break;
- case 6:
-helpbuf=
-" Validated Phone List \r\n\r\n"
-"This is the complete path (drive, directory, and filename) where SCB\r\n"
-"will write a list of numbers that have been verified.\r\n"
-"\r\n"
-"Setting this option to the same file as Phone Can will keep users from\r\n"
-"being validated with an already validated phone number.";
- uinput(WIN_MID|WIN_BOT,0,0,"Phone List",addfile
- ,30,K_EDIT|K_UPPER);
- break;
- case 7:
-helpbuf=
-" Callback Attempts \r\n\r\n"
-"This is the number of times SCB will attempt to dial out to a phone\r\n"
-"number.";
- uinput(WIN_MID|WIN_BOT,0,0,"Callback Attempts",callout_attempts
- ,2,K_EDIT|K_NUMBER);
- break;
- case 8:
-helpbuf=
-" Minimum Phone Number Length \r\n\r\n"
-"This is the minimum number of digits SCB will allow for a phone number.";
- sprintf(str,"%u",min_phone_len);
- uinput(WIN_MID|WIN_BOT,0,0,"Minimum Phone Length",str
- ,2,K_EDIT|K_NUMBER);
- min_phone_len=atoi(str);
- break;
- case 9:
-helpbuf=
-" Maximum Phone Number Length \r\n\r\n"
-"This is the maximum number of digits SCB will allow for a phone number.";
- sprintf(str,"%u",max_phone_len);
- uinput(WIN_MID|WIN_BOT,0,0,"Maximum Phone Length",str
- ,2,K_EDIT|K_NUMBER);
- max_phone_len=atoi(str);
- break;
- case 10:
-helpbuf=
-" Wait Before Dialing \r\n\r\n"
-"When the BBS hangs up prior to calling a user, this is the amount of\r\n"
-"time (in seconds) that the modem will remain hung up before dialing.\r\n"
-"This is used to insure that the user has completely disconnected.\r\n"
-"The default setting here is 30 seconds, maximum is 90 seconds.";
- sprintf(str,"%u",hangup_time);
- uinput(WIN_MID|WIN_BOT,0,0,"Wait Before Dialing (in seconds)",str
- ,3,K_EDIT|K_NUMBER);
- hangup_time=atoi(str);
- if(hangup_time>90)
- hangup_time=90;
- break;
- case 11:
-helpbuf=
-" BBS Area Code \r\n\r\n"
-"Enter the area code for YOUR BBS here. A user enters a phone number\r\n"
-"with this area code, SCB will strip off the area code before attempting\r\n"
-"to call the user back (setting this to 0 disables it).";
- uinput(WIN_MID|WIN_BOT,0,0,"BBS Area Code",bbs_ac
- ,3,K_EDIT|K_NUMBER);
- break;
- case 12:
-helpbuf=
-" Send Message to Sysop \r\n\r\n"
-"If you wish for SCB to send a message to a Sysop when a user has been\r\n"
-"verified, set this to the number of the user who is to receive the\r\n"
-"messages, or set it to 0 to disable this function.";
- uinput(WIN_MID|WIN_BOT,0,0,"Send Message to Sysop - User #",sysop
- ,4,K_EDIT|K_NUMBER);
- break;
-
- case -1:
-helpbuf=
-" Save Configuration File \r\n\r\n"
-"Select Yes to save the config file, No to quit without saving,\r\n"
-"or hit ESC to go back to the menu.\r\n\r\n";
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=ulist(WIN_MID,0,0,0,&i,0,"Save Config File",opt);
- if(i==-1) break;
- if(i) bail(0);
- if((file=open("SCB.CFG"
- ,O_WRONLY|O_BINARY|O_CREAT|O_DENYALL|O_TRUNC))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening SCB.CFG\r\n");
- bail(1); }
- if((stream=fdopen(file,"wb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen SCB.CFG\r\n");
- bail(1); }
- str[0]=0;
- fprintf(stream,"%s\r\n",callout_attempts);
- if(options&ALWAYS_VALIDATE) strcat(str,"Y"); else strcat(str,"N");
- if(options&MODIFY_USER_NOTE) strcat(str,"Y"); else strcat(str,"N");
- if(options&START_WITH_0) strcat(str,"Y"); else strcat(str,"N");
- if(options&START_WITH_1) strcat(str,"Y"); else strcat(str,"N");
- if(options&STAY_CONNECTED) strcat(str,"Y"); else strcat(str,"N");
- if(options&SC_LOCAL_ONLY) strcat(str,"Y"); else strcat(str,"N");
- if(options&US_PHONE_FORMAT) strcat(str,"Y"); else strcat(str,"N");
- if(options&ALLOWED_ONLY) strcat(str,"Y"); else strcat(str,"N");
- if(options&SAME_AREA_LD) strcat(str,"Y"); else strcat(str,"N");
- fprintf(stream,"%s\r\n",str);
- fprintf(stream,"%s\r\n",canfile);
- fprintf(stream,"%s\r\n",addfile);
- fprintf(stream,"%s\r\n",credits);
- fprintf(stream,"%s\r\n",sysop);
- fprintf(stream,"%s\r\n",level);
- fprintf(stream,"%s\r\n",flags1);
- fprintf(stream,"%s\r\n",flags2);
- fprintf(stream,"%s\r\n",exempt);
- fprintf(stream,"%s\r\n",restrict);
- fprintf(stream,"%s\r\n",expiration);
- fprintf(stream,"%s\r\n",minutes);
- fprintf(stream,"%s\r\n",flags3);
- fprintf(stream,"%s\r\n",flags4);
- for(i=0;i<7;i++) {
- fprintf(stream,"%u\r\n",ldstart[i]);
- fprintf(stream,"%u\r\n",ldend[i]); }
- fprintf(stream,"%u\r\n",min_phone_len);
- fprintf(stream,"%u\r\n",max_phone_len);
- fprintf(stream,"%s\r\n",bbs_ac);
- fprintf(stream,"%u\r\n",hangup_time);
- fprintf(stream,"%s\r\n",""); // regnum
- fclose(stream);
- bail(0);
- }
-}
-}
-/****************************************************************************/
-/* Checks the disk drive for the existance of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==NULL)
- return(1);
-return(0);
-}
diff --git a/src/sbbs2/scb/scbcfg.mak b/src/sbbs2/scb/scbcfg.mak
deleted file mode 100644
index 00d9ddf9fa2c2198d48341d9eca79359a2373cfb..0000000000000000000000000000000000000000
--- a/src/sbbs2/scb/scbcfg.mak
+++ /dev/null
@@ -1,35 +0,0 @@
-
-# Macros
-CC = bcc
-LD = tlink
-SDK = ..\sdk
-UIFC = ..\..\uifc
-MSWAIT = ..\..\mswait
-INCLUDE = \bc45\include;$(UIFC)
-LIB = \bc45\lib
-MODEL = l
-CFLAGS = -d -C -w-pro -m$(MODEL) -I$(INCLUDE)
-LDFLAGS = /n /c
-OBJS = $(MSWAIT)\dos\mswait$(MODEL).obj uifc.obj
-HEADERS = $(UIFC)\uifc.h scb.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling $*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $*.c
-
-# Main EXE Link Rule
-scbcfg.exe: $(OBJS) scbcfg.obj
- @echo Linking $< ...
- $(LD) $(LDFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) scbcfg.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-
-# All .obj modules
-scbcfg.obj: $(HEADERS)
-
-uifc.obj: $(UIFC)\uifc.h $(UIFC)\uifc.c
- @echo Compiling $(UIFC)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -DSCFG -c $(UIFC)\$*.c
-
diff --git a/src/sbbs2/scfg/makeall.bat b/src/sbbs2/scfg/makeall.bat
deleted file mode 100755
index ccca323002f9af0f880b19466ad6c6bd5109e559..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/makeall.bat
+++ /dev/null
@@ -1,3 +0,0 @@
-@echo off
-maker
-maker -DDOS32
diff --git a/src/sbbs2/scfg/makefile b/src/sbbs2/scfg/makefile
deleted file mode 100644
index 0f6343a16a43137c400ba77677d614c6089ceb85..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/makefile
+++ /dev/null
@@ -1,108 +0,0 @@
-##############################################
-# Makefile for Synchronet BBS Config Program #
-# For use with Borland C++ for DOS or OS/2 #
-##############################################
-
-# Macros
-
-INCLUDE = \bc45\include;..;..\..\uifc;..\..\spawno;..\smb;..\rio
-LIB = \bc45\lib
-MAIN = $(OS)\scfg.exe
-
-!if $d(DOS32)
-OS = DOS32
-CC = \bc45\bin\bcc32
-LD = \bc45\bin\tlink32
-CFLAGS = -w-pro -d -C -WX -I$(INCLUDE) -DSCFG
-LFLAGS = -Tpe -ax -n -c
-MAIN = $(OS)\scfg32.exe
-!elif $d(__OS2__)
-OS = OS2
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-CFLAGS = -w-pro -d -C -I$(INCLUDE) -DSCFG
-LFLAGS = -Toe -ap -c
-INCLUDE = c:\bcos2\include;..;..\..\uifc;..\..\spawno;..\smb;..\rio
-LIB = c:\bcos2\lib
-MAIN = $(OS)\scfg4os2.exe
-!else
-OS = DOS
-CC = \bc45\bin\bcc
-LD = \bc45\bin\tlink
-CFLAGS = -w-pro -d -C -Y -ml -I$(INCLUDE) -DSCFG
-LFLAGS = -n -c
-OBJS = ..\..\mswait\dos\mswait.obj
-!endif
-
-OBJS = $(OBJS) $(OS)\scfgvars.obj
-OVLOBJS = $(OS)\scfg.obj $(OS)\scfgnode.obj\
- $(OS)\scfgxfr1.obj $(OS)\scfgxfr2.obj\
- $(OS)\scfgnet.obj $(OS)\scfgxtrn.obj $(OS)\scfgsys.obj\
- $(OS)\scfgmsg.obj $(OS)\scfgsub.obj\
- $(OS)\scfglib1.obj $(OS)\scfglib2.obj $(OS)\scfgchat.obj\
- $(OS)\uifc.obj $(OS)\scfgmdm.obj $(OS)\smblib.obj\
- $(OS)\wrcnf1.obj $(OS)\wrcnf2.obj
-HEADERS = scfg.h ..\..\uifc\uifc.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS) $(OVLOBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS) $(OVLOBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!elif $d(DOS32)
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0X32.obj $(OBJS) $(OVLOBJS)
-+, $*, $*,$(LIB)\DPMI32 $(LIB)\CW32
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0l.obj $(OBJS) /o $(OVLOBJS)
-+, $*, $*, $(LIB)\overlay.lib $(LIB)\cl.lib $(LIB)\mathl.lib\
- $(LIB)\emu.lib
-!endif
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib.h ..\scfglib1.c \
- ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib.h ..\scfglib2.c \
- ..\scfgvars.c
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Local Menu Routines
-$(OS)\uifc.obj: ..\..\uifc\uifc.c ..\..\uifc\uifc.h
- @echo Compiling ..\..\uifc\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\..\uifc\$&.c
-
-# SMBLIB Functions
-$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling ..\smb\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\smb\$&.c
-
-$(OS)\scfg.obj: $(HEADERS)
-$(OS)\scfgnode.obj: $(HEADERS)
-$(OS)\scfgchat.obj: $(HEADERS)
-$(OS)\scfgmsg.obj: $(HEADERS)
-$(OS)\scfgsub.obj: $(HEADERS)
-$(OS)\scfgnet.obj: $(HEADERS)
-$(OS)\scfgsys.obj: $(HEADERS)
-$(OS)\scfgxtrn.obj: $(HEADERS)
-$(OS)\scfgxfr1.obj: $(HEADERS)
-$(OS)\scfgxfr2.obj: $(HEADERS)
-$(OS)\scfgmdm.obj: $(HEADERS)
-$(OS)\wrcnf1.obj: $(HEADERS)
-$(OS)\wrcnf2.obj: $(HEADERS)
diff --git a/src/sbbs2/scfg/makehelp.c b/src/sbbs2/scfg/makehelp.c
deleted file mode 100644
index 20a64ad8afcd6d1fca6d272a859174cf57406396..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/makehelp.c
+++ /dev/null
@@ -1,79 +0,0 @@
-/* MAKEHELP.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Makes SCFG.HLP for Synchronet configuration program */
-
-#include <stdio.h>
-#include <alloc.h>
-#include <string.h>
-#include <io.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-
-void main(void)
-{
- char *files[]={ "SCFG.C"
- ,"SCFGSYS.C"
- ,"SCFGMSG.C"
- ,"SCFGSUB.C"
- ,"SCFGNODE.C"
- ,"SCFGCHAT.C"
- ,"SCFGXFR1.C"
- ,"SCFGXFR2.C"
- ,"SCFGNET.C"
- ,"SCFGXTRN.C"
- ,NULL };
- char str[256],tmp[256];
- int i,j,k,line,ixb;
- long l;
- FILE *stream,*out;
-
-if((out=fopen("SCFGHELP.DAT","wb"))==NULL) {
- printf("error opening SCFGHELP.DAT\r\n");
- return; }
-
-if((ixb=open("SCFGHELP.IXB",O_WRONLY|O_CREAT|O_BINARY,S_IWRITE|S_IREAD))==-1) {
- printf("error opening SCFGHELP.IXB\r\n");
- return; }
-
-for(i=0;files[i];i++) {
- if((stream=fopen(files[i],"rb"))==NULL) {
- printf("error opening %s\r\n",files[i]);
- return; }
- printf("\r\n%s ",files[i]);
- line=0;
- while(!feof(stream)) {
- if(!fgets(str,128,stream))
- break;
- line++;
- if(strstr(str,"SETHELP(WHERE);")) {
- l=ftell(out);
- write(ixb,files[i],12);
- write(ixb,&line,2);
- write(ixb,&l,4);
- fgets(str,128,stream); /* skip start comment */
- line++;
- while(!feof(stream)) {
- if(!fgets(str,128,stream))
- break;
- if(strchr(str,9)) { /* Tab expansion */
- strcpy(tmp,str);
- k=strlen(tmp);
- for(j=l=0;j<k;j++) {
- if(tmp[j]==9) {
- str[l++]=32;
- while(l%4)
- str[l++]=32; }
- else
- str[l++]=tmp[j]; }
- str[l]=0; }
- line++;
- if(strstr(str,"*/")) /* end comment */
- break;
- fputs(str,out); }
- fputc(0,out); } }
- fclose(stream); }
-fclose(out);
-printf("\n");
-}
diff --git a/src/sbbs2/scfg/makehelp.exe b/src/sbbs2/scfg/makehelp.exe
deleted file mode 100755
index 7e6a104c4311ee082949d9a5e64ce08aadf21cf2..0000000000000000000000000000000000000000
Binary files a/src/sbbs2/scfg/makehelp.exe and /dev/null differ
diff --git a/src/sbbs2/scfg/scfg.c b/src/sbbs2/scfg/scfg.c
deleted file mode 100644
index 3804fbe01db56259d1a0c68986e35cce1a6425c1..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfg.c
+++ /dev/null
@@ -1,1967 +0,0 @@
-#line 2 "SCFG.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************************************************/
-/* Synchronet configuration utility */
-/****************************************************************************/
-
-#include "scfg.h"
-
-#ifdef __FLAT__
- unsigned _stklen=64000;
-#else
- unsigned _stklen=32000;
-#endif
-
-extern char *wday[]; /* names of weekdays (3 char) */
-extern char uifc_status;
-
-/********************/
-/* Global Variables */
-/********************/
-
-long freedosmem;
-int no_dirchk=0,no_msghdr=0,forcesave=0,all_msghdr=0;
-char **opt;
-char tmp[256];
-char *nulstr="";
-char **mdm_type;
-char **mdm_file;
-int mdm_types;
-int backup_level=3;
-
-read_cfg_text_t txt={
- "\7\r\nError opening %s for read.\r\n",
- "","",
- "\7\r\nError allocating %u bytes of memory\r\n",
- "\7\r\nERROR: Offset %lu in %s\r\n\r\n" };
-
-char *invalid_code=
-"Invalid Internal Code:\n\n"
-"Internal codes can be up to eight characters in length and can only\n"
-"contain valid DOS filename characters. The code you have entered\n"
-"contains one or more invalid characters.";
-
-char *num_flags=
-"Number of Flags Needed:\n\n"
-"If you want users to be required to have all the flags, select All.\n"
-"\n"
-"If you want users to be required to have any one or more of the flags,\n"
-"select One (Allowed).";
-
-
-void allocfail(uint size)
-{
-cprintf("\7Error allocating %u bytes of memory.\r\n",size);
-bail(1);
-}
-
-time_t checktime(void)
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-int main(int argc, char **argv)
-{
- char **mopt,*p;
- int i,j,main_dflt=0,no_emsovl=0,chat_dflt=0;
- uint u;
- long l;
- char str[129];
- FILE *instream;
-#ifndef __FLAT__
- union REGS reg;
-#endif
-
-printf("\r\nSynchronet Configuration Util (%s) v%s%c Developed 1995-1997 "
- "Rob Swindell\r\n",
-#ifdef __OS2__
- "OS/2"
-#elif defined(__FLAT__)
- "DOS/Win32"
-#else
- "DOS"
-#endif
- ,VERSION,REVISION);
-
-if(argc>1)
- strcpy(ctrl_dir,argv[1]);
-else
- getcwd(ctrl_dir,MAXDIR);
-if(argc>2) {
- for(i=2;i<argc;i++) {
- if(!stricmp(argv[i],"/M")) /* Show free mem */
- show_free_mem=!show_free_mem;
- else if(!stricmp(argv[i],"/N")) /* No EMS */
- no_emsovl=!no_emsovl;
-#if !defined(__FLAT__)
- else if(!strnicmp(argv[i],"/T",2)) /* Windows/OS2 time slice API */
- mswtyp=atoi(argv[i]+2);
-#endif
- else if(!strnicmp(argv[i],"/C",2)) /* Force color mode */
- uifc_status|=UIFC_COLOR;
- else if(!strnicmp(argv[i],"/B",2)) /* Backup level */
- backup_level=atoi(argv[i]+2);
- else if(!stricmp(argv[i],"/S")) /* No dir checking */
- no_dirchk=!no_dirchk;
- else if(!stricmp(argv[i],"/H")) /* No msg header updating */
- no_msghdr=!no_msghdr;
- else if(!stricmp(argv[i],"/U")) /* Update all message headers */
- all_msghdr=!all_msghdr;
- else if(!stricmp(argv[i],"/F")) /* Force save of config files */
- forcesave=!forcesave;
- else {
- printf("\r\nusage: scfg <ctrl_dir> [/c] [/m] [/n] [/s] [/u] [/h] "
- "[/t#] [/b#]\r\n"
- "\r\n"
- "/c = force color mode\r\n"
- "/m = show free memory\r\n"
- "/n = don't use EMS\r\n"
- "/s = don't check directories\r\n"
- "/f = force save of config files\r\n"
- "/u = update all message base status headers\r\n"
- "/h = don't update message base status headers\r\n"
- "/t# = set supported time slice APIs to #\r\n"
- "/b# = set automatic back-up level (default=3 max=10)\r\n"
- );
- exit(0); } } }
-
-if(backup_level>10) backup_level=10;
-
-if(ctrl_dir[strlen(ctrl_dir)-1]!='\\' && ctrl_dir[strlen(ctrl_dir)-1]!=':')
- strcat(ctrl_dir,"\\");
-
-init_mdms();
-
-uifcini();
-
-#if !defined(__FLAT__)
-if(!no_emsovl) {
- cputs("\r\nEMS: ");
- if((i=open("EMMXXXX0",O_RDONLY))==-1)
- cputs("not installed.");
- else {
- close(i);
- reg.h.ah=0x46; /* Get EMS version */
- int86(0x67,®,®);
- if(reg.h.ah)
- cputs("\7error getting version.");
- else {
- cprintf("Version %u.%u ",(reg.h.al&0xf0)>>4,reg.h.al&0xf);
- if(_OvrInitEms(0,0,23)) /* use up to 360K */
- cprintf("allocation failed."); } }
- cputs("\r\n"); }
-#endif
-
-#ifdef __FLAT__
-if(putenv("TZ=UCT0"))
- printf("putenv() failed!\n");
-tzset();
-#endif
-
-if((l=checktime())!=0) { /* Check binary time */
- printf("Time problem (%08lx)\n",l);
- exit(1); }
-
-if((opt=(char **)MALLOC(sizeof(char *)*(MAX_OPTS+1)))==NULL)
- allocfail(sizeof(char *)*(MAX_OPTS+1));
-for(i=0;i<(MAX_OPTS+1);i++)
- if((opt[i]=(char *)MALLOC(MAX_OPLN))==NULL)
- allocfail(MAX_OPLN);
-
-if((mopt=(char **)MALLOC(sizeof(char *)*14))==NULL)
- allocfail(sizeof(char *)*14);
-for(i=0;i<14;i++)
- if((mopt[i]=(char *)MALLOC(64))==NULL)
- allocfail(64);
-
-txt.reading=nulstr;
-txt.readit=nulstr;
-
-strcpy(str,argv[0]);
-p=strrchr(str,'\\');
-if(!p) {
- sprintf(helpdatfile,"..\\EXEC\\SCFGHELP.DAT");
- sprintf(helpixbfile,"..\\EXEC\\SCFGHELP.IXB"); }
-else {
- *p=0;
- sprintf(helpdatfile,"%s\\SCFGHELP.DAT",str);
- sprintf(helpixbfile,"%s\\SCFGHELP.IXB",str); }
-
-sprintf(str,"Synchronet Configuration for %s v%s",
-#if defined(__OS2__)
- "OS/2"
-#elif defined(__FLAT__)
- "DOS/Win32"
-#else
- "DOS"
-#endif
- ,VERSION);
-if(uscrn(str)) {
- cprintf("USCRN failed!\r\n");
- bail(1); }
-i=0;
-strcpy(mopt[i++],"Nodes");
-strcpy(mopt[i++],"System");
-strcpy(mopt[i++],"Networks");
-strcpy(mopt[i++],"File Areas");
-strcpy(mopt[i++],"File Options");
-strcpy(mopt[i++],"Chat Features");
-strcpy(mopt[i++],"Message Areas");
-strcpy(mopt[i++],"Message Options");
-strcpy(mopt[i++],"Command Shells");
-strcpy(mopt[i++],"External Programs");
-strcpy(mopt[i++],"Text File Sections");
-mopt[i][0]=0;
-#ifndef __FLAT__
-freedosmem=farcoreleft();
-#endif
-while(1) {
-#if 0
- if(freedosmem!=farcoreleft()) {
- errormsg(WHERE,ERR_CHK,"lost memory",freedosmem-farcoreleft());
- freedosmem=farcoreleft(); }
-#endif
- SETHELP(WHERE);
-/*
-Main Configuration Menu:
-
-This is the main menu of the Synchronet configuration utility (SCFG).
-From this menu, you have the following choices:
-
- Nodes : Add, delete, or configure nodes
- System : System-wide configuration options
- Networks : Message networking configuration
- File Areas : File area configuration
- File Options : File area options
- Chat Features : Chat actions, sections, pagers, and gurus
- Message Areas : Message area configuration
- Message Options : Message and email options
- External Programs : Events, editors, and online programs
- Text File Sections : General text file area
-
-Use the arrow keys and ENTER to select an option, or ESC to exit.
-*/
- switch(ulist(WIN_ORG|WIN_MID|WIN_ESC|WIN_ACT,0,0,30,&main_dflt,0
- ,"Configure",mopt)) {
- case 0:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop(0);
- node_menu();
- free_main_cfg();
- break;
- case 1:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading XTRN.CNF...");
- read_xtrn_cfg(txt);
- upop(0);
- sys_cfg();
- free_xtrn_cfg();
- free_main_cfg();
- break;
- case 2:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading MSGS.CNF...");
- read_msgs_cfg(txt);
- upop(0);
- net_cfg();
- free_msgs_cfg();
- free_main_cfg();
- break;
- case 3:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading FILE.CNF...");
- read_file_cfg(txt);
- upop(0);
- xfer_cfg();
- free_file_cfg();
- free_main_cfg();
- break;
- case 4:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading FILE.CNF...");
- read_file_cfg(txt);
- upop(0);
- xfer_opts();
- free_file_cfg();
- free_main_cfg();
- break;
- case 5:
- upop("Reading CHAT.CNF...");
- read_chat_cfg(txt);
- upop(0);
- while(1) {
- i=0;
- strcpy(opt[i++],"Artificial Gurus");
- strcpy(opt[i++],"Multinode Chat Actions");
- strcpy(opt[i++],"Multinode Chat Channels");
- strcpy(opt[i++],"External Sysop Chat Pagers");
- opt[i][0]=0;
- j=ulist(WIN_ORG|WIN_ACT|WIN_CHE,0,0,0,&chat_dflt,0
- ,"Chat Features",opt);
- if(j==-1) {
- j=save_changes(WIN_MID);
- if(j==-1)
- continue;
- if(!j)
- write_chat_cfg();
- break; }
- switch(j) {
- case 0:
- guru_cfg();
- break;
- case 1:
- actsets_cfg();
- break;
- case 2:
- chan_cfg();
- break;
- case 3:
- page_cfg();
- break; } }
- free_chat_cfg();
- break;
- case 6:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading MSGS.CNF...");
- read_msgs_cfg(txt);
- upop(0);
- msgs_cfg();
- free_msgs_cfg();
- free_main_cfg();
- break;
- case 7:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading MSGS.CNF...");
- read_msgs_cfg(txt);
- upop(0);
- msg_opts();
- free_msgs_cfg();
- free_main_cfg();
- break;
- case 8:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop(0);
- shell_cfg();
- free_main_cfg();
- break;
- case 9:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading XTRN.CNF...");
- read_xtrn_cfg(txt);
- upop(0);
- xprogs_cfg();
- free_xtrn_cfg();
- free_main_cfg();
- break;
- case 10:
- upop("Reading MAIN.CNF...");
- read_main_cfg(txt);
- upop("Reading FILE.CNF...");
- read_file_cfg(txt);
- upop(0);
- txt_cfg();
- free_file_cfg();
- free_main_cfg();
- break;
- case -1:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Exit SCFG:
-
-If you want to exit the Synchronet configuration utility, select Yes.
-Otherwise, select No or hit ESC .
-*/
- i=ulist(WIN_MID,0,0,0,&i,0,"Exit SCFG",opt);
- if(!i)
- bail(0);
- break; } }
-}
-
-/****************************************************************************/
-/* Checks the changes variable. If there have been no changes, returns 2. */
-/* If there have been changes, it prompts the user to change or not. If the */
-/* user escapes the menu, returns -1, selects Yes, 0, and selects no, 1 */
-/****************************************************************************/
-int save_changes(int mode)
-{
- int i=0;
-
-if(!changes)
- return(2);
-strcpy(opt[0],"Yes");
-strcpy(opt[1],"No");
-opt[2][0]=0;
-if(mode&WIN_SAV && savdepth)
- savnum++;
-SETHELP(WHERE);
-/*
-Save Changes:
-
-You have made some changes to the configuration. If you want to save
-these changes, select Yes. If you are positive you DO NOT want to save
-these changes, select No. If you are not sure and want to review the
-configuration before deciding, hit ESC .
-*/
-i=ulist(mode|WIN_ACT,0,0,0,&i,0,"Save Changes",opt);
-if(mode&WIN_SAV && savdepth)
- savnum--;
-if(i!=-1)
- changes=0;
-return(i);
-}
-
-void txt_cfg()
-{
- static int txt_dflt,bar;
- char str[81],code[9],done=0,*p;
- int j,k;
- uint i;
- static txtsec_t savtxtsec;
-
-while(1) {
- for(i=0;i<total_txtsecs;i++)
- sprintf(opt[i],"%-25s",txtsec[i]->name);
- opt[i][0]=0;
- j=WIN_ORG|WIN_ACT|WIN_CHE;
- if(total_txtsecs)
- j|=WIN_DEL|WIN_GET;
- if(total_txtsecs<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savtxtsec.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Text File Sections:
-
-This is a list of General Text File (G-File) Sections configured for
-your system. G-File sections are used to store text files that can be
-viewed freely by the users. Common text file section topics include
-ANSI Artwork, System Information, Game Help Files, and other special
-interest topics.
-
-To add a text file section, select the desired location with the arrow
-keys and hit INS .
-
-To delete a text file section, select it and hit DEL .
-
-To configure a text file, select it and hit ENTER .
-*/
- i=ulist(j,0,0,45,&txt_dflt,&bar,"Text File Sections",opt);
- if((signed)i==-1) {
- j=save_changes(WIN_MID);
- if(j==-1)
- continue;
- if(!j)
- write_file_cfg();
- return; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- strcpy(str,"ANSI Artwork");
- SETHELP(WHERE);
-/*
-Text Section Name:
-
-This is the name of this text section.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Text Section Name",str,40
- ,K_EDIT)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Text Section Internal Code:
-
-Every text file section must have its own unique internal code for
-Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Text Section Internal Code",code,8
- ,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- if((txtsec=(txtsec_t **)REALLOC(txtsec
- ,sizeof(txtsec_t *)*(total_txtsecs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_txtsecs+1);
- total_txtsecs=0;
- bail(1);
- continue; }
- if(total_txtsecs)
- for(j=total_txtsecs;j>i;j--)
- txtsec[j]=txtsec[j-1];
- if((txtsec[i]=(txtsec_t *)MALLOC(sizeof(txtsec_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(txtsec_t));
- continue; }
- memset((txtsec_t *)txtsec[i],0,sizeof(txtsec_t));
- strcpy(txtsec[i]->name,str);
- strcpy(txtsec[i]->code,code);
- total_txtsecs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(txtsec[i]);
- total_txtsecs--;
- for(j=i;j<total_txtsecs;j++)
- txtsec[j]=txtsec[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savtxtsec=*txtsec[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *txtsec[i]=savtxtsec;
- changes=1;
- continue; }
- i=txt_dflt;
- j=0;
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Name",txtsec[i]->name);
- sprintf(opt[k++],"%-27.27s%s","Access Requirements"
- ,txtsec[i]->ar);
- sprintf(opt[k++],"%-27.27s%s","Internal Code",txtsec[i]->code);
- opt[k][0]=0;
- switch(ulist(WIN_ACT|WIN_MID,0,0,60,&j,0,txtsec[i]->name
- ,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Text Section Name:
-
-This is the name of this text section.
-*/
- strcpy(str,txtsec[i]->name); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,10
- ,"Text File Section Name"
- ,txtsec[i]->name,40,K_EDIT))
- strcpy(txtsec[i]->name,str);
- break;
- case 1:
- sprintf(str,"%s Text Section",txtsec[i]->name);
- getar(str,txtsec[i]->ar);
- break;
- case 2:
- strcpy(str,txtsec[i]->code);
- SETHELP(WHERE);
-/*
-Text Section Internal Code:
-
-Every text file section must have its own unique internal code for
-Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(txtsec[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break; } } }
-}
-
-void shell_cfg()
-{
- static int shell_dflt,shell_bar;
- char str[81],code[9],done=0,*p;
- int j,k;
- uint i;
- static shell_t savshell;
-
-while(1) {
- for(i=0;i<total_shells;i++)
- sprintf(opt[i],"%-25s",shell[i]->name);
- opt[i][0]=0;
- j=WIN_ORG|WIN_ACT|WIN_CHE;
- if(total_shells)
- j|=WIN_DEL|WIN_GET;
- if(total_shells<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savshell.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Command Shells:
-
-This is a list of Command Shells configured for your system.
-Command shells are the programmable command and menu structures which
-are available for your BBS.
-
-To add a command shell section, select the desired location with the arrow
-keys and hit INS .
-
-To delete a command shell, select it and hit DEL .
-
-To configure a command shell, select it and hit ENTER .
-*/
- i=ulist(j,0,0,45,&shell_dflt,&shell_bar,"Command Shells",opt);
- if((signed)i==-1) {
- j=save_changes(WIN_MID);
- if(j==-1)
- continue;
- if(!j)
- write_main_cfg();
- return; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- strcpy(str,"Menu Shell");
- SETHELP(WHERE);
-/*
-Command Shell Name:
-
-This is the descriptive name of this command shell.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Command Shell Name",str,40
- ,K_EDIT)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Command Shell Internal Code:
-
-Every command shell must have its own unique internal code for
-Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-
-This code will be the base filename used to load the shell from your
-EXEC directory. e.g. A shell with an internal code of MYBBS would
-indicate a Baja shell file named MYBBS.BIN in your EXEC directory.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Command Shell Internal Code",code,8
- ,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- if((shell=(shell_t **)REALLOC(shell
- ,sizeof(shell_t *)*(total_shells+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_shells+1);
- total_shells=0;
- bail(1);
- continue; }
- if(total_shells)
- for(j=total_shells;j>i;j--)
- shell[j]=shell[j-1];
- if((shell[i]=(shell_t *)MALLOC(sizeof(shell_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(shell_t));
- continue; }
- memset((shell_t *)shell[i],0,sizeof(shell_t));
- strcpy(shell[i]->name,str);
- strcpy(shell[i]->code,code);
- total_shells++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(shell[i]);
- total_shells--;
- for(j=i;j<total_shells;j++)
- shell[j]=shell[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savshell=*shell[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *shell[i]=savshell;
- changes=1;
- continue; }
- i=shell_dflt;
- j=0;
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Name",shell[i]->name);
- sprintf(opt[k++],"%-27.27s%s","Access Requirements"
- ,shell[i]->ar);
- sprintf(opt[k++],"%-27.27s%s","Internal Code",shell[i]->code);
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Command Shell:
-
-A command shell is a programmed command and menu structure that you or
-your users can use to navigate the BBS. For every command shell
-configured here, there must be an associated .BIN file in your EXEC
-directory for Synchronet to execute.
-
-Command shell files are created by using the Baja command shell compiler
-to turn Baja source code (.SRC) files into binary files (.BIN) for
-Synchronet to interpret. See the example .SRC files in the TEXT
-directory and the documentation for the Baja compiler for more details.
-*/
- switch(ulist(WIN_ACT|WIN_MID,0,0,60,&j,0,shell[i]->name
- ,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Command Shell Name:
-
-This is the descriptive name of this command shell.
-*/
- strcpy(str,shell[i]->name); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,10
- ,"Command Shell Name"
- ,shell[i]->name,40,K_EDIT))
- strcpy(shell[i]->name,str);
- break;
- case 1:
- sprintf(str,"%s Command Shell",shell[i]->name);
- getar(str,shell[i]->ar);
- break;
- case 2:
- strcpy(str,shell[i]->code);
- SETHELP(WHERE);
-/*
-Command Shell Internal Code:
-
-Every command shell must have its own unique internal code for
-Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-
-This code will be the base filename used to load the shell from your
-EXEC directory. e.g. A shell with an internal code of MYBBS would
-indicate a Baja shell file named MYBBS.BIN in your EXEC directory.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(shell[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break; } } }
-}
-
-/****************************************************************************/
-/* Deletes all files in dir 'path' that match file spec 'spec' */
-/****************************************************************************/
-int delfiles(char *inpath, char *spec)
-{
- char str[256],path[128],done,c;
- int files=0;
- struct ffblk ff;
-
-strcpy(path,inpath);
-c=strlen(path);
-if(path[c-1]!='\\' && path[c-1]!=':')
- strcat(path,"\\");
-sprintf(str,"%s%s",path,spec);
-done=findfirst(str,&ff,0);
-while(!done) {
- sprintf(str,"%s%s",path,ff.ff_name);
- if(remove(str))
- errormsg(WHERE,ERR_REMOVE,str,0);
- else
- files++;
- done=findnext(&ff); }
-return(files);
-}
-
-int whichlogic()
-{
- int i;
-
-i=0;
-strcpy(opt[0],"Greater than or Equal");
-strcpy(opt[1],"Equal");
-strcpy(opt[2],"Not Equal");
-strcpy(opt[3],"Less than");
-opt[4][0]=0;
-if(savdepth)
- savnum++;
-SETHELP(WHERE);
-/*
-Select Logic for Requirement:
-
-This menu allows you to choose the type of logic evaluation to use
-in determining if the requirement is met. If, for example, the user's
-level is being evaluated and you select Greater than or Equal from
-this menu and set the required level to 50, the user must have level
-50 or higher to meet this requirement. If you selected Equal from
-this menu and set the required level to 50, the user must have level
-50 exactly. If you select Not equal and level 50, then the user
-must have any level BUT 50. And if you select Less than from this
-menu and level 50, the user must have a level below 50.
-*/
-i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Select Logic",opt);
-if(savdepth)
- savnum--;
-return(i);
-}
-
-int whichcond()
-{
- int i;
-
-i=0;
-strcpy(opt[0],"AND (Both/All)");
-strcpy(opt[1],"OR (Either/Any)");
-opt[2][0]=0;
-if(savdepth)
- savnum++;
-SETHELP(WHERE);
-/*
-Select Logic for Multiple Requirements:
-
-If you wish this new parameter to be required along with the other
-parameters, select AND to specify that both or all of the
-parameter requirments must be met.
-
-If you wish this new parameter to only be required if the other
-parameter requirements aren't met, select OR to specify that either
-or any of the parameter requirements must be met.
-*/
-i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Multiple Requirement Logic",opt);
-if(savdepth)
- savnum--;
-return(i);
-}
-
-
-void getar(char *desc, char *inar)
-{
- static int curar;
- char str[128],ar[128];
- int i,j,len,done=0,n;
-
-strcpy(ar,inar);
-while(!done) {
- len=strlen(ar);
- if(len>=30) { /* Needs to be shortened */
- str[0]=0;
- n=strlen(ar);
- for(i=0;i<n;i++) { /* Shorten operators */
- if(!strncmp(ar+i,"AND",3)) {
- strcat(str,"&");
- i+=2; }
- else if(!strncmp(ar+i,"NOT",3)) {
- strcat(str,"!");
- i+=2; }
- else if(!strncmp(ar+i,"EQUAL",5)) {
- strcat(str,"=");
- i+=4; }
- else if(!strncmp(ar+i,"EQUALS",6)) {
- strcat(str,"=");
- i+=5; }
- else if(!strncmp(ar+i,"EQUAL TO",8)) {
- strcat(str,"=");
- i+=7; }
- else if(!strncmp(ar+i,"OR",2)) {
- strcat(str,"|");
- i+=1; }
- else
- strncat(str,ar+i,1); }
- strcpy(ar,str);
- len=strlen(ar); }
-
- if(len>=30) {
- str[0]=0;
- n=strlen(ar);
- for(i=0;i<n;i++) { /* Remove spaces from ! and = */
- if(!strncmp(ar+i," ! ",3)) {
- strcat(str,"!");
- i+=2; }
- else if(!strncmp(ar+i,"= ",2)) {
- strcat(str,"=");
- i++; }
- else if(!strncmp(ar+i," = ",3)) {
- strcat(str,"=");
- i+=2; }
- else
- strncat(str,ar+i,1); }
- strcpy(ar,str);
- len=strlen(ar); }
-
- if(len>=30) {
- str[0]=0;
- n=strlen(ar);
- for(i=0;i<n;i++) { /* Remove spaces from & and | */
- if(!strncmp(ar+i," & ",3)) {
- strcat(str," ");
- i+=2; }
- else if(!strncmp(ar+i," | ",3)) {
- strcat(str,"|");
- i+=2; }
- else
- strncat(str,ar+i,1); }
- strcpy(ar,str);
- len=strlen(ar); }
-
- if(len>=30) { /* change week days to numbers */
- str[0]=0;
- n=strlen(ar);
- for(i=0;i<n;i++) {
- for(j=0;j<7;j++)
- if(!strnicmp(ar+i,wday[j],3)) {
- strcat(str,itoa(j,tmp,10));
- i+=2;
- break; }
- if(j==7)
- strncat(str,ar+i,1); }
- strcpy(ar,str);
- len=strlen(ar); }
-
- if(len>=30) { /* Shorten parameters */
- str[0]=0;
- n=strlen(ar);
- for(i=0;i<n;i++) {
- if(!strncmp(ar+i,"AGE",3)) {
- strcat(str,"$A");
- i+=2; }
- else if(!strncmp(ar+i,"BPS",3)) {
- strcat(str,"$B");
- i+=2; }
- else if(!strncmp(ar+i,"PCR",3)) {
- strcat(str,"$P");
- i+=2; }
- else if(!strncmp(ar+i,"RIP",3)) {
- strcat(str,"$*");
- i+=2; }
- else if(!strncmp(ar+i,"SEX",3)) {
- strcat(str,"$S");
- i+=2; }
- else if(!strncmp(ar+i,"UDR",3)) {
- strcat(str,"$K");
- i+=2; }
- else if(!strncmp(ar+i,"DAY",3)) {
- strcat(str,"$W");
- i+=2; }
- else if(!strncmp(ar+i,"ANSI",4)) {
- strcat(str,"$[");
- i+=3; }
- else if(!strncmp(ar+i,"UDFR",4)) {
- strcat(str,"$D");
- i+=3; }
- else if(!strncmp(ar+i,"FLAG",4)) {
- strcat(str,"$F");
- i+=3; }
- else if(!strncmp(ar+i,"NODE",4)) {
- strcat(str,"$N");
- i+=3; }
- else if(!strncmp(ar+i,"NULL",4)) {
- strcat(str,"$0");
- i+=3; }
- else if(!strncmp(ar+i,"TIME",4)) {
- strcat(str,"$T");
- i+=3; }
- else if(!strncmp(ar+i,"USER",4)) {
- strcat(str,"$U");
- i+=3; }
- else if(!strncmp(ar+i,"REST",4)) {
- strcat(str,"$Z");
- i+=3; }
- else if(!strncmp(ar+i,"LOCAL",5)) {
- strcat(str,"$G");
- i+=4; }
- else if(!strncmp(ar+i,"LEVEL",5)) {
- strcat(str,"$L");
- i+=4; }
- else if(!strncmp(ar+i,"TLEFT",5)) {
- strcat(str,"$R");
- i+=4; }
- else if(!strncmp(ar+i,"TUSED",5)) {
- strcat(str,"$O");
- i+=4; }
- else if(!strncmp(ar+i,"EXPIRE",6)) {
- strcat(str,"$E");
- i+=5; }
- else if(!strncmp(ar+i,"CREDIT",6)) {
- strcat(str,"$C");
- i+=5; }
- else if(!strncmp(ar+i,"EXEMPT",6)) {
- strcat(str,"$X");
- i+=5; }
- else if(!strncmp(ar+i,"RANDOM",6)) {
- strcat(str,"$Q");
- i+=5; }
- else if(!strncmp(ar+i,"LASTON",6)) {
- strcat(str,"$Y");
- i+=5; }
- else if(!strncmp(ar+i,"LOGONS",6)) {
- strcat(str,"$V");
- i+=5; }
- else if(!strncmp(ar+i,":00",3)) {
- i+=2; }
- else
- strncat(str,ar+i,1); }
- strcpy(ar,str);
- len=strlen(ar); }
- if(len>=30) { /* Remove all spaces and &s */
- str[0]=0;
- n=strlen(ar);
- for(i=0;i<n;i++)
- if(ar[i]!=SP && ar[i]!='&')
- strncat(str,ar+i,1);
- strcpy(ar,str);
- len=strlen(ar); }
- i=0;
- sprintf(opt[i++],"Requirement String (%s)",ar);
- strcpy(opt[i++],"Clear Requirements");
- strcpy(opt[i++],"Set Required Level");
- strcpy(opt[i++],"Set Required Flag");
- strcpy(opt[i++],"Set Required Age");
- strcpy(opt[i++],"Set Required Sex");
- strcpy(opt[i++],"Set Required Connect Rate");
- strcpy(opt[i++],"Set Required Post/Call Ratio");
- strcpy(opt[i++],"Set Required Number of Credits");
- strcpy(opt[i++],"Set Required Upload/Download Ratio");
- strcpy(opt[i++],"Set Required Upload/Download File Ratio");
- strcpy(opt[i++],"Set Required Time of Day");
- strcpy(opt[i++],"Set Required Day of Week");
- strcpy(opt[i++],"Set Required Node Number");
- strcpy(opt[i++],"Set Required User Number");
- strcpy(opt[i++],"Set Required Time Remaining");
- strcpy(opt[i++],"Set Required Days Till Expiration");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-Access Requirements:
-
-This menu allows you to edit the access requirement string for the
-selected feature/section of your BBS. You can edit the string
-directly (see documentation for details) or use the Set Required...
-options from this menu to automatically fill in the string for you.
-*/
- sprintf(str,"%s Requirements",desc);
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&curar,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Key word Symbol Description
-������������������������������������������������������������������������
-AND & More than one requirement (optional)
-NOT ! Logical negation (i.e. NOT EQUAL)
-EQUAL = Equality required
-OR | Either of two or more parameters is required
-AGE $A User's age (years since birthdate, 0-255)
-BPS $B User's current connect rate (bps)
-FLAG $F User's flag (A-Z)
-LEVEL $L User's level (0-99)
-NODE $N Current node (1-250)
-PCR $P User's post/call ratio (0-100)
-SEX $S User's sex/gender (M or F)
-TIME $T Time of day (HH:MM, 00:00-23:59)
-TLEFT $R User's time left online (minutes, 0-255)
-TUSED $O User's time online this call (minutes, 0-255)
-USER $U User's number (1-xxxx)
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Requirement String",ar,LEN_ARSTR
- ,K_EDIT|K_UPPER);
- break;
- case 1:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- if(savdepth)
- savnum++;
- SETHELP(WHERE);
-/*
-Clear Requirements:
-
-If you wish to clear the current requirement string, select Yes.
-Otherwise, select No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Are You Sure",opt);
- if(savdepth)
- savnum--;
- if(!i) {
- ar[0]=0;
- changes=1; }
- break;
- case 2:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Level:
-
-You are being prompted to enter the security level to be used in this
-requirement evaluation. The valid range is 0 (zero) through 99.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Level",str,2,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"LEVEL ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 3:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
-
- for(i=0;i<4;i++)
- sprintf(opt[i],"Flag Set #%d",i+1);
- opt[i][0]=0;
- i=0;
- if(savdepth)
- savnum++;
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Select Flag Set",opt);
- if(savdepth)
- savnum--;
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Flag:
-
-You are being prompted to enter the security flag to be used in this
-requirement evaluation. The valid range is A through Z.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Flag (A-Z)",str,1
- ,K_UPPER|K_ALPHA);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"FLAG ");
- if(i)
- strcat(ar,itoa(i+1,tmp,10));
- strcat(ar,str);
- break;
- case 4:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Age:
-
-You are being prompted to enter the user's age to be used in this
-requirement evaluation. The valid range is 0 through 255.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Age",str,3,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"AGE ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 5:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Sex:
-
-You are being prompted to enter the user's gender to be used in this
-requirement evaluation. The valid values are M or F (for male or
-female).
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Sex (M or F)",str,1
- ,K_UPPER|K_ALPHA);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"SEX ");
- strcat(ar,str);
- break;
- case 6:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Connect Rate (BPS):
-
-You are being prompted to enter the connect rate to be used in this
-requirement evaluation. The valid range is 300 through 57600.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Connect Rate (BPS)",str,5,K_NUMBER);
- if(!str[0])
- break;
- j=atoi(str);
- if(j>=300 && j<30000) {
- j/=100;
- sprintf(str,"%d",j); }
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"BPS ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 7:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Post/Call Ratio:
-
-You are being prompted to enter the post/call ratio to be used in this
-requirement evaluation (percentage). The valid range is 0 through 100.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Post/Call Ratio (Percentage)"
- ,str,3,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"PCR ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 8:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Number of Credits:
-
-You are being prompted to enter the number of credits (in kilobytes) to
-be used in this requirement evaluation. The valid range is 0 through
-65535.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Required Credits",str,5,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"CREDIT ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 9:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Upload/Download Ratio:
-
-You are being prompted to enter the upload/download ratio to be used in
-this requirement evaluation (percentage). The valid range is 0 through
-100. This ratio is based on the number of bytes uploaded by the user
-divided by the number of bytes downloaded.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Upload/Download Ratio (Percentage)"
- ,str,3,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"UDR ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 10:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Upload/Download File Ratio:
-
-You are being prompted to enter the upload/download ratio to be used in
-this requirement evaluation (percentage). The valid range is 0 through
-100. This ratio is based on the number of files uploaded by the user
-divided by the number of files downloaded.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Upload/Download File Ratio (Percentage)"
- ,str,3,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"UDFR ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 11:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=0;
- strcpy(opt[0],"Before");
- strcpy(opt[1],"After");
- opt[2][0]=0;
- if(savdepth)
- savnum++;
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Time Relationship",opt);
- if(savdepth)
- savnum--;
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Time of Day:
-
-You are being prompted to enter the time of day to be used in this
-requirement evaluation (24 hour HH:MM format). The valid range is 0
-through 23:59.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Time of Day (HH:MM)",str,5,K_UPPER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"TIME ");
- if(!i)
- strcat(ar,"NOT ");
- strcat(ar,str);
- break;
- case 12:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- SETHELP(WHERE);
-/*
-Required Day of Week:
-
-You are being prompted to select a day of the week as an access
-requirement value.
-*/
- for(n=0;n<7;n++)
- strcpy(opt[n],wday[n]);
- opt[n][0]=0;
- n=0;
- if(savdepth)
- savnum++;
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0,"Select Day of Week",opt);
- if(savdepth)
- savnum--;
- if(n==-1)
- break;
- strcpy(str,wday[n]);
- strupr(str);
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"DAY ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 13:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Node:
-
-You are being prompted to enter the number of a node to be used in this
-requirement evaluation. The valid range is 1 through 250.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Node Number",str,3,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"NODE ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- case 14:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required User Number:
-
-You are being prompted to enter the user's number to be used in this
-requirement evaluation.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"User Number",str,5,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"USER ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
-
- case 15:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Time Remaining:
-
-You are being prompted to enter the time remaining to be used in this
-requirement evaluation (in minutes). The valid range is 0 through 255.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Time Remaining (minutes)"
- ,str,3,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"TLEFT ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
-
- case 16:
- if(strlen(ar)>=30) {
- umsg("Maximum string length reached");
- break; }
- i=whichlogic();
- if(i==-1)
- break;
- str[0]=0;
- SETHELP(WHERE);
-/*
-Required Days Till User Account Expiration:
-
-You are being prompted to enter the required number of days till the
-user's account will expire.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Days Till Expiration"
- ,str,5,K_NUMBER);
- if(!str[0])
- break;
- if(ar[0]) {
- j=whichcond();
- if(j==-1)
- break;
- if(!j)
- strcat(ar," AND ");
- else
- strcat(ar," OR "); }
- strcat(ar,"EXPIRE ");
- switch(i) {
- case 1:
- strcat(ar,"= ");
- break;
- case 2:
- strcat(ar,"NOT = ");
- break;
- case 3:
- strcat(ar,"NOT ");
- break; }
- strcat(ar,str);
- break;
- } }
-sprintf(inar,"%.*s",LEN_ARSTR,ar);
-}
-
-char code_ok(char *str)
-{
-
-if(!strlen(str))
- return(0);
-if(strcspn(str," \\/.|<>*?+[]:=\";,")!=strlen(str))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Functions from MISC.C */
-/****************************************************************************/
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- int file,share,count=0;
-
-if(access==O_RDONLY) share=O_DENYWRITE;
- else share=O_DENYALL;
-while(((file=open(str,O_BINARY|share|access,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- cputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&O_RDONLY)
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&O_WRONLY)
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an unsigned long */
-/****************************************************************************/
-unsigned long ahtoul(char *str)
-{
- unsigned long l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Returns in 'string' a character representation of the number in l with */
-/* commas. Maximum value of l is 4 gigabytes. */
-/****************************************************************************/
-char *ultoac(ulong l, char *string)
-{
- char str[81];
- char i,j;
-
-ultoa(l,str,10);
-if(!(strlen(str)%3)) i=(strlen(str)/3)-1;
- else i=strlen(str)/3;
-j=strlen(str)+i;
-string[j--]=0;
-i=strlen(str)-1;
-while(i!=-1) {
- if(!((strlen(str)-i)%3)) {
- string[j--]=str[i--];
- string[j--]=','; }
- else string[j--]=str[i--]; }
-return(string);
-}
-
-/****************************************************************************/
-/* If the directory 'path' doesn't exist, create it. */
-/****************************************************************************/
-void md(char *inpath)
-{
- char path[256],str[128];
- struct ffblk ff;
- int curdisk,disk;
-
-if(!inpath[0] || no_dirchk)
- return;
-if(!strcmp(inpath+1,":\\")) {
- curdisk=getdisk();
- disk=toupper(inpath[0])-'A';
- setdisk(disk);
- if(getdisk()!=disk) {
- sprintf(str,"Invalid drive %c:",toupper(inpath[0]));
- umsg(str); }
- setdisk(curdisk);
- return; }
-strcpy(path,inpath);
-if(path[strlen(path)-1]=='\\')
- path[strlen(path)-1]=0;
-if(!strcmp(path,".")) /* Don't try to make '.' */
- return;
-if(findfirst(path,&ff,FA_DIREC))
- if(mkdir(path)) {
- sprintf(str,"Failed to create %s",path);
- umsg(str); }
-}
-
-
-void bail(int code)
-{
- char str[256];
- int i,x;
- smbstatus_t status;
-
-if(code) {
- cputs("\r\nHit a key...");
- getch(); }
-else if(forcesave) {
- upop("Loading Configs...");
- read_main_cfg(txt);
- read_msgs_cfg(txt);
- read_file_cfg(txt);
- read_chat_cfg(txt);
- read_xtrn_cfg(txt);
- upop(0);
- write_main_cfg();
- write_msgs_cfg();
- write_file_cfg();
- write_chat_cfg();
- write_xtrn_cfg(); }
-
-uifcbail();
-
-exit(code);
-}
-
-/****************************************************************************/
-/* Error handling routine. Prints to local and remote screens the error */
-/* information, function, action, object and access and then attempts to */
-/* write the error information into the file ERROR.LOG in the text dir. */
-/****************************************************************************/
-void errormsg(int line, char *source, char action, char *object, ulong access)
-{
- char scrn_buf[8000];
- char actstr[256];
-
-gettext(1,1,80,scrn_len,scrn_buf);
-clrscr();
-switch(action) {
- case ERR_OPEN:
- strcpy(actstr,"opening");
- break;
- case ERR_CLOSE:
- strcpy(actstr,"closeing");
- break;
- case ERR_FDOPEN:
- strcpy(actstr,"fdopen");
- break;
- case ERR_READ:
- strcpy(actstr,"reading");
- break;
- case ERR_WRITE:
- strcpy(actstr,"writing");
- break;
- case ERR_REMOVE:
- strcpy(actstr,"removing");
- break;
- case ERR_ALLOC:
- strcpy(actstr,"allocating memory");
- break;
- case ERR_CHK:
- strcpy(actstr,"checking");
- break;
- case ERR_LEN:
- strcpy(actstr,"checking length");
- break;
- case ERR_EXEC:
- strcpy(actstr,"executing");
- break;
- default:
- strcpy(actstr,"UNKNOWN"); }
-cprintf("ERROR - line: %d\r\n",line);
-cprintf(" file: %s\r\n",source);
-cprintf(" action: %s\r\n",actstr);
-cprintf(" object: %s\r\n",object);
-cprintf(" access: %ld (%lx)\r\n",access,access);
-cputs("\r\n<Hit any key>");
-getch();
-puttext(1,1,80,scrn_len,scrn_buf);
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-/* End of SCFG.C */
diff --git a/src/sbbs2/scfg/scfg.h b/src/sbbs2/scfg/scfg.h
deleted file mode 100644
index 2ea311e2f1c3164745fd247174a94f7688d1b346..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfg.h
+++ /dev/null
@@ -1,89 +0,0 @@
-/* SCFG.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "uifc.h"
-#include <dos.h>
-#include <dir.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#if defined(__DPMI32__) || defined(__OS2__)
- #define far
- #define huge
-#endif
-
-#include "sbbs.h"
-#include "scfglib.h"
-
-/**********/
-/* Macros */
-/**********/
-
-/*************/
-/* Constants */
-/*************/
-
-#define SUB_HDRMOD (1L<<31) /* Modified sub-board header info */
-
-/************/
-/* Typedefs */
-/************/
-
-/********************/
-/* Global Variables */
-/********************/
-extern long freedosmem;
-extern char item;
-extern char **opt;
-extern char tmp[256];
-extern char *nulstr;
-extern char **mdm_type;
-extern char **mdm_file;
-extern int mdm_types;
-extern char *invalid_code,*num_flags;
-extern int backup_level;
-
-extern read_cfg_text_t txt;
-
-/***********************/
-/* Function Prototypes */
-/***********************/
-
-int save_changes(int mode);
-void node_menu();
-void node_cfg();
-void results(int i);
-void sys_cfg();
-void net_cfg();
-void msgs_cfg();
-void sub_cfg(uint grpnum);
-void xfer_cfg();
-void libs_cfg();
-void dir_cfg(uint libnum);
-void xprogs_cfg();
-void fevents_cfg();
-void tevents_cfg();
-void xtrn_cfg();
-void swap_cfg();
-void xtrnsec_cfg();
-void page_cfg();
-void xedit_cfg();
-void txt_cfg();
-void shell_cfg();
-void read_node_cfg(read_cfg_text_t txt);
-void write_node_cfg();
-void write_main_cfg();
-void write_msgs_cfg();
-void write_file_cfg();
-void write_xtrn_cfg();
-void write_chat_cfg();
-void init_mdms();
-void mdm_cfg(int mdmnum);
-int export_mdm(char *fname);
-char code_ok(char *str);
-int bits(long l);
-char oneflag(long l);
-void getar(char *desc, char *ar);
-char *ultoac(ulong l,char *str);
-FILE *fnopen(int *file, char *str, int access);
diff --git a/src/sbbs2/scfg/scfgchat.c b/src/sbbs2/scfg/scfgchat.c
deleted file mode 100644
index 842d1e24c1342f299d71f9099b68d4aae061e24c..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgchat.c
+++ /dev/null
@@ -1,819 +0,0 @@
-#line 2 "SCFGCHAT.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-void page_cfg()
-{
- static int dflt,bar;
- char str[81],done=0;
- int j,k;
- uint i;
- static page_t savpage;
-
-while(1) {
- for(i=0;i<total_pages && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-40.40s %.-20s",page[i]->cmd,page[i]->ar);
- opt[i][0]=0;
- savnum=0;
- j=WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT;
- if(total_pages)
- j|=WIN_DEL|WIN_GET;
- if(total_pages<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savpage.cmd[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-External Sysop Chat Pagers:
-
-This is a list of the configured external sysop chat pagers.
-
-To add a pager, select the desired location and hit INS .
-
-To delete a pager, select it and hit DEL .
-
-To configure a pager, select it and hit ENTER .
-*/
- i=ulist(j,0,0,45,&dflt,&bar,"External Sysop Chat Pagers",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- sprintf(str,"%%!tone +chatpage.ton");
- SETHELP(WHERE);
-/*
-External Chat Pager Command Line:
-
-This is the command line to execute for this external chat pager.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Command Line",str,50
- ,K_EDIT)<1)
- continue;
- if((page=(page_t **)REALLOC(page,sizeof(page_t *)*(total_pages+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_pages+1);
- total_pages=0;
- bail(1);
- continue; }
- if(total_pages)
- for(j=total_pages;j>i;j--)
- page[j]=page[j-1];
- if((page[i]=(page_t *)MALLOC(sizeof(page_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(page_t));
- continue; }
- memset((page_t *)page[i],0,sizeof(page_t));
- strcpy(page[i]->cmd,str);
- total_pages++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(page[i]);
- total_pages--;
- for(j=i;j<total_pages;j++)
- page[j]=page[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savpage=*page[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *page[i]=savpage;
- changes=1;
- continue; }
- j=0;
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%.40s","Command Line",page[i]->cmd);
- sprintf(opt[k++],"%-27.27s%.40s","Access Requirements",page[i]->ar);
- sprintf(opt[k++],"%-27.27s%s","Intercept I/O Interrupts"
- ,page[i]->misc&IO_INTS ? "Yes":"No");
- opt[k][0]=0;
- sprintf(str,"Sysop Chat Pager #%d",i+1);
- savnum=1;
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&j,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-External Chat Pager Command Line:
-
-This is the command line to execute for this external chat pager.
-*/
- strcpy(str,page[i]->cmd);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Command Line"
- ,page[i]->cmd,50,K_EDIT))
- strcpy(page[i]->cmd,str);
- break;
- case 1:
- savnum=2;
- getar(str,page[i]->ar);
- break;
- case 2:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Intercept I/O Interrupts:
-
-If you wish the DOS screen output and keyboard input to be intercepted
-when running this chat pager, set this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Intercept I/O Interrupts"
- ,opt);
- if(!k && !(page[i]->misc&IO_INTS)) {
- page[i]->misc|=IO_INTS;
- changes=1; }
- else if(k==1 && page[i]->misc&IO_INTS) {
- page[i]->misc&=~IO_INTS;
- changes=1; }
- break;
-
- } } }
-}
-
-void chan_cfg()
-{
- static int chan_dflt,chan_bar,opt_dflt;
- char str[81],code[9],done=0,*p;
- int j,k;
- uint i;
- static chan_t savchan;
-
-while(1) {
- for(i=0;i<total_chans && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",chan[i]->name);
- opt[i][0]=0;
- j=WIN_ACT|WIN_SAV|WIN_BOT|WIN_RHT;
- savnum=0;
- if(total_chans)
- j|=WIN_DEL|WIN_GET;
- if(total_chans<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savchan.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Multinode Chat Channels:
-
-This is a list of the configured multinode chat channels.
-
-To add a channel, select the desired location with the arrow keys and
-hit INS .
-
-To delete a channel, select it with the arrow keys and hit DEL .
-
-To configure a channel, select it with the arrow keys and hit ENTER .
-*/
- i=ulist(j,0,0,45,&chan_dflt,&chan_bar,"Multinode Chat Channels",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- strcpy(str,"Open");
- SETHELP(WHERE);
-/*
-Channel Name:
-
-This is the name or description of the chat channel.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Chat Channel Name",str,25
- ,K_EDIT)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Chat Channel Internal Code:
-
-Every chat channel must have its own unique code for Synchronet to refer
-to it internally. This code is usually an abreviation of the chat
-channel name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Internal Code"
- ,code,8,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- if((chan=(chan_t **)REALLOC(chan,sizeof(chan_t *)*(total_chans+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_chans+1);
- total_chans=0;
- bail(1);
- continue; }
- if(total_chans)
- for(j=total_chans;j>i;j--)
- chan[j]=chan[j-1];
- if((chan[i]=(chan_t *)MALLOC(sizeof(chan_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(chan_t));
- continue; }
- memset((chan_t *)chan[i],0,sizeof(chan_t));
- strcpy(chan[i]->name,str);
- strcpy(chan[i]->code,code);
- total_chans++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(chan[i]);
- total_chans--;
- for(j=i;j<total_chans;j++)
- chan[j]=chan[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savchan=*chan[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *chan[i]=savchan;
- changes=1;
- continue; }
- j=0;
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Name",chan[i]->name);
- sprintf(opt[k++],"%-27.27s%s","Internal Code",chan[i]->code);
- sprintf(opt[k++],"%-27.27s%lu","Cost in Credits",chan[i]->cost);
- sprintf(opt[k++],"%-27.27s%.40s","Access Requirements"
- ,chan[i]->ar);
- sprintf(opt[k++],"%-27.27s%s","Password Protection"
- ,chan[i]->misc&CHAN_PW ? "Yes" : "No");
- sprintf(opt[k++],"%-27.27s%s","Guru Joins When Empty"
- ,chan[i]->misc&CHAN_GURU ? "Yes" : "No");
- sprintf(opt[k++],"%-27.27s%s","Channel Guru"
- ,chan[i]->guru<total_gurus ? guru[chan[i]->guru]->name : "");
- sprintf(opt[k++],"%-27.27s%s","Channel Action Set"
- ,actset[chan[i]->actset]->name);
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Chat Channel Configuration:
-
-This menu is for configuring the selected chat channel.
-*/
- savnum=1;
- sprintf(str,"%s Chat Channel",chan[i]->name);
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&opt_dflt,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Chat Channel Name:
-
-This is the name or description of the chat channel.
-*/
- strcpy(str,chan[i]->name);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Chat Channel Name"
- ,chan[i]->name,25,K_EDIT))
- strcpy(chan[i]->name,str);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Chat Channel Internal Code:
-
-Every chat channel must have its own unique code for Synchronet to refer
-to it internally. This code is usually an abreviation of the chat
-channel name.
-*/
- strcpy(str,chan[i]->code);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Internal Code"
- ,str,8,K_UPPER|K_EDIT))
- break;
- if(code_ok(str))
- strcpy(chan[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 2:
- ultoa(chan[i]->cost,str,10);
- SETHELP(WHERE);
-/*
-Chat Channel Cost to Join:
-
-If you want users to be charged credits to join this chat channel, set
-this value to the number of credits to charge. If you want this channel
-to be free, set this value to 0.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Cost to Join (in Credits)"
- ,str,10,K_EDIT|K_NUMBER);
- chan[i]->cost=atol(str);
- break;
- case 3:
- savnum=2;
- sprintf(str,"%s Chat Channel",chan[i]->name);
- getar(str,chan[i]->ar);
- break;
- case 4:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Allow Channel to be Password Protected:
-
-If you want to allow the first user to join this channel to password
-protect it, set this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Allow Channel to be Password Protected"
- ,opt);
- if(!k && !(chan[i]->misc&CHAN_PW)) {
- chan[i]->misc|=CHAN_PW;
- changes=1; }
- else if(k==1 && chan[i]->misc&CHAN_PW) {
- chan[i]->misc&=~CHAN_PW;
- changes=1; }
- break;
- case 5:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Guru Joins This Channel When Empty:
-
-If you want the system guru to join this chat channel when there is
-only one user, set this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Guru Joins This Channel When Empty"
- ,opt);
- if(!k && !(chan[i]->misc&CHAN_GURU)) {
- chan[i]->misc|=CHAN_GURU;
- changes=1; }
- else if(k==1 && chan[i]->misc&CHAN_GURU) {
- chan[i]->misc&=~CHAN_GURU;
- changes=1; }
- break;
- case 6:
-SETHELP(WHERE);
-/*
-Channel Guru:
-
-This is a list of available chat Gurus. Select the one that you wish
-to have available in this channel.
-*/
- k=0;
- for(j=0;j<total_gurus && j<MAX_OPTS;j++)
- sprintf(opt[j],"%-25s",guru[j]->name);
- opt[j][0]=0;
- savnum=2;
- k=ulist(WIN_SAV|WIN_RHT,0,0,25,&j,0
- ,"Available Chat Gurus",opt);
- if(k==-1)
- break;
- chan[i]->guru=k;
- break;
- case 7:
-SETHELP(WHERE);
-/*
-Channel Action Set:
-
-This is a list of available chat action sets. Select the one that you wish
-to have available in this channel.
-*/
- k=0;
- for(j=0;j<total_actsets && j<MAX_OPTS;j++)
- sprintf(opt[j],"%-25s",actset[j]->name);
- opt[j][0]=0;
- savnum=2;
- k=ulist(WIN_SAV|WIN_RHT,0,0,25,&j,0
- ,"Available Chat Action Sets",opt);
- if(k==-1)
- break;
- changes=1;
- chan[i]->actset=k;
- break; } } }
-}
-
-void chatact_cfg(uint setnum)
-{
- static int chatact_dflt,chatact_bar;
- char str[128],cmd[128],out[128];
- int j,k;
- uint i,n,chatnum[MAX_OPTS+1];
- static chatact_t savchatact;
-
-while(1) {
- for(i=0,j=0;i<total_chatacts && j<MAX_OPTS;i++)
- if(chatact[i]->actset==setnum) {
- sprintf(opt[j],"%-*.*s %s",LEN_CHATACTCMD,LEN_CHATACTCMD
- ,chatact[i]->cmd,chatact[i]->out);
- chatnum[j++]=i; }
- chatnum[j]=total_chatacts;
- opt[j][0]=0;
- savnum=2;
- i=WIN_ACT|WIN_SAV;
- if(j)
- i|=WIN_DEL|WIN_GET;
- if(j<MAX_OPTS)
- i|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savchatact.cmd[0])
- i|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Multinode Chat Actions:
-
-This is a list of the configured multinode chat actions. The users can
-use these actions in multinode chat by turning on action commands with
-the /A command in multinode chat. Then if a line is typed which
-begins with a valid action command and has a user name, chat handle,
-or node number following, the output string will be displayed replacing
-the %s symbols with the sending user's name and the receiving user's
-name (in that order).
-
-To add an action, select the desired location with the arrow keys and
-hit INS .
-
-To delete an action, select it with the arrow keys and hit DEL .
-
-To configure an action, select it with the arrow keys and hit ENTER .
-*/
- sprintf(str,"%s Chat Actions",actset[setnum]->name);
- i=ulist(i,0,0,70,&chatact_dflt,&chatact_bar,str,opt);
- savnum=3;
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Chat Action Command:
-
-This is the command word (normally a verb) to trigger the action output.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Action Command",cmd,LEN_CHATACTCMD
- ,K_UPPER)<1)
- continue;
- SETHELP(WHERE);
-/*
-Chat Action Output String:
-
-This is the output string displayed with this action output.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"",out,LEN_CHATACTOUT
- ,K_MSG)<1)
- continue;
- if((chatact=(chatact_t **)REALLOC(chatact
- ,sizeof(chatact_t *)*(total_chatacts+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_chatacts+1);
- total_chatacts=0;
- bail(1);
- continue; }
- if(j)
- for(n=total_chatacts;n>chatnum[i];n--)
- chatact[n]=chatact[n-1];
- if((chatact[chatnum[i]]=(chatact_t *)MALLOC(sizeof(chatact_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(chatact_t));
- continue; }
- memset((chatact_t *)chatact[chatnum[i]],0,sizeof(chatact_t));
- strcpy(chatact[chatnum[i]]->cmd,cmd);
- strcpy(chatact[chatnum[i]]->out,out);
- chatact[chatnum[i]]->actset=setnum;
- total_chatacts++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(chatact[chatnum[i]]);
- total_chatacts--;
- for(j=chatnum[i];j<total_chatacts && j<MAX_OPTS;j++)
- chatact[j]=chatact[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savchatact=*chatact[chatnum[i]];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *chatact[chatnum[i]]=savchatact;
- chatact[chatnum[i]]->actset=setnum;
- changes=1;
- continue; }
- SETHELP(WHERE);
-/*
-Chat Action Command:
-
-This is the command that triggers this chat action.
-*/
- strcpy(str,chatact[chatnum[i]]->cmd);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Chat Action Command"
- ,chatact[chatnum[i]]->cmd,LEN_CHATACTCMD,K_EDIT|K_UPPER)) {
- strcpy(chatact[chatnum[i]]->cmd,str);
- continue; }
- SETHELP(WHERE);
-/*
-Chat Action Output String:
-
-This is the output string that results from this chat action.
-*/
- strcpy(str,chatact[chatnum[i]]->out);
- if(!uinput(WIN_MID|WIN_SAV,0,10,""
- ,chatact[chatnum[i]]->out,LEN_CHATACTOUT,K_EDIT|K_MSG))
- strcpy(chatact[chatnum[i]]->out,str); }
-}
-
-void guru_cfg()
-{
- static int guru_dflt,guru_bar,opt_dflt;
- char str[81],code[9],done=0,*p;
- int j,k;
- uint i;
- static guru_t savguru;
-
-while(1) {
- for(i=0;i<total_gurus && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",guru[i]->name);
- opt[i][0]=0;
- savnum=0;
- j=WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT;
- if(total_gurus)
- j|=WIN_DEL|WIN_GET;
- if(total_gurus<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savguru.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Gurus:
-
-This is a list of the configured Gurus.
-
-To add a Guru, select the desired location with the arrow keys and
-hit INS .
-
-To delete a Guru, select it with the arrow keys and hit DEL .
-
-To configure a Guru, select it with the arrow keys and hit ENTER .
-*/
- i=ulist(j,0,0,45,&guru_dflt,&guru_bar,"Artificial Gurus",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Guru Name:
-
-This is the name of the selected Guru.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Guru Name",str,25
- ,0)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Guru Internal Code:
-
-Every Guru must have its own unique code for Synchronet to refer to
-it internally. This code is usually an abreviation of the Guru name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Internal Code"
- ,code,8,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- if((guru=(guru_t **)REALLOC(guru,sizeof(guru_t *)*(total_gurus+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_gurus+1);
- total_gurus=0;
- bail(1);
- continue; }
- if(total_gurus)
- for(j=total_gurus;j>i;j--)
- guru[j]=guru[j-1];
- if((guru[i]=(guru_t *)MALLOC(sizeof(guru_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(guru_t));
- continue; }
- memset((guru_t *)guru[i],0,sizeof(guru_t));
- strcpy(guru[i]->name,str);
- strcpy(guru[i]->code,code);
- total_gurus++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(guru[i]);
- total_gurus--;
- for(j=i;j<total_gurus;j++)
- guru[j]=guru[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savguru=*guru[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *guru[i]=savguru;
- changes=1;
- continue; }
- j=0;
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Guru Name",guru[i]->name);
- sprintf(opt[k++],"%-27.27s%s","Guru Internal Code",guru[i]->code);
- sprintf(opt[k++],"%-27.27s%.40s","Access Requirements",guru[i]->ar);
- opt[k][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Guru Configuration:
-
-This menu is for configuring the selected Guru.
-*/
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&opt_dflt,0,guru[i]->name
- ,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Guru Name:
-
-This is the name of the selected Guru.
-*/
- strcpy(str,guru[i]->name);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Guru Name"
- ,guru[i]->name,25,K_EDIT))
- strcpy(guru[i]->name,str);
- break;
- case 1:
-SETHELP(WHERE);
-/*
-Guru Internal Code:
-
-Every Guru must have its own unique code for Synchronet to refer to
-it internally. This code is usually an abreviation of the Guru name.
-*/
- strcpy(str,guru[i]->code);
- if(!uinput(WIN_MID|WIN_SAV,0,0,"Guru Internal Code"
- ,str,8,K_EDIT|K_UPPER))
- break;
- if(code_ok(str))
- strcpy(guru[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 2:
- savnum=2;
- getar(guru[i]->name,guru[i]->ar);
- break; } } }
-}
-
-void actsets_cfg()
-{
- static int actset_dflt,actset_bar,opt_dflt;
- char str[81];
- int j,k,done;
- uint i;
- static actset_t savactset;
-
-while(1) {
- for(i=0;i<total_actsets && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",actset[i]->name);
- opt[i][0]=0;
- j=WIN_ACT|WIN_RHT|WIN_BOT|WIN_SAV;
- savnum=0;
- if(total_actsets)
- j|=WIN_DEL|WIN_GET;
- if(total_actsets<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savactset.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Chat Action Sets:
-
-This is a list of the configured action sets.
-
-To add an action set, select the desired location with the arrow keys and
-hit INS .
-
-To delete an action set, select it with the arrow keys and hit DEL .
-
-To configure an action set, select it with the arrow keys and hit ENTER .
-*/
- i=ulist(j,0,0,45,&actset_dflt,&actset_bar,"Chat Action Sets",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Chat Action Set Name:
-
-This is the name of the selected chat action set.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Chat Action Set Name",str,25
- ,0)<1)
- continue;
- if((actset=(actset_t **)REALLOC(actset,sizeof(actset_t *)*(total_actsets+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_actsets+1);
- total_actsets=0;
- bail(1);
- continue; }
- if(total_actsets)
- for(j=total_actsets;j>i;j--)
- actset[j]=actset[j-1];
- if((actset[i]=(actset_t *)MALLOC(sizeof(actset_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(actset_t));
- continue; }
- memset((actset_t *)actset[i],0,sizeof(actset_t));
- strcpy(actset[i]->name,str);
- total_actsets++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(actset[i]);
- total_actsets--;
- for(j=i;j<total_actsets;j++)
- actset[j]=actset[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savactset=*actset[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *actset[i]=savactset;
- changes=1;
- continue; }
- j=0;
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Action Set Name",actset[i]->name);
- sprintf(opt[k++],"%-27.27s","Configure Chat Actions...");
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Chat Action Set Configuration:
-
-This menu is for configuring the selected chat action set.
-*/
- sprintf(str,"%s Chat Action Set",actset[i]->name);
- savnum=1;
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&opt_dflt,0,str
- ,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Chat Action Set Name:
-
-This is the name of the selected action set.
-*/
- strcpy(str,actset[i]->name);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Action Set Name"
- ,actset[i]->name,25,K_EDIT))
- strcpy(actset[i]->name,str);
- break;
- case 1:
- chatact_cfg(i);
- break; } } }
-}
-
diff --git a/src/sbbs2/scfg/scfgmdm.c b/src/sbbs2/scfg/scfgmdm.c
deleted file mode 100644
index 08a91e08bc244c76476ebe2df2e68cab80499a01..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgmdm.c
+++ /dev/null
@@ -1,295 +0,0 @@
-/* SCFGMDM.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-int exec_mdm(char *fname);
-
-void mdm_cfg(int mdmnum)
-{
-
-FREE(mdm_result);
-mdm_result=NULL;
-
-/*
-strcpy(mdm_answ,"ATA");
-strcpy(mdm_hang,"ATH");
-strcpy(mdm_dial,"ATDT");
-strcpy(mdm_offh,"ATM0H1");
-strcpy(mdm_term,"ATE1V1");
-strcpy(mdm_init,"AT&FS0=0S2=128E0V0X4&C1&D2");
-*/
-mdm_answ[0]=0;
-mdm_hang[0]=0;
-mdm_dial[0]=0;
-mdm_offh[0]=0;
-mdm_term[0]=0;
-mdm_init[0]=0;
-mdm_spec[0]=0;
-mdm_results=0;
-mdm_misc=(MDM_RTS|MDM_CTS);
-
-exec_mdm(mdm_file[mdmnum]);
-
-}
-
-void cvttab(char *str)
-{
- int i;
-
-for(i=0;str[i];i++)
- if(str[i]==TAB)
- str[i]=SP;
-}
-
-int export_mdm(char *fname)
-{
- char str[256];
- int file,i;
- time_t now;
- FILE *stream;
-
-sprintf(str,"%s%s.MDM",ctrl_dir,fname);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1)
- return(0);
-if((stream=fdopen(file,"wb"))==NULL) {
- close(file);
- return(0); }
-
-now=time(NULL);
-fprintf(stream,"# Exported from %s Node %u on %.24s\r\n\r\n"
- ,sys_name,node_num,ctime(&now));
-fprintf(stream,"COM_RATE\t%ld\r\n",com_rate);
-fprintf(stream,"INIT_STR\t%s\r\n",mdm_init);
-fprintf(stream,"DIAL_STR\t%s\r\n",mdm_dial);
-fprintf(stream,"HANGUP_STR\t%s\r\n",mdm_hang);
-fprintf(stream,"ANSWER_STR\t%s\r\n",mdm_answ);
-fprintf(stream,"OFFHOOK_STR\t%s\r\n",mdm_offh);
-fprintf(stream,"SPEC_INIT\t%s\r\n",mdm_spec);
-fprintf(stream,"TERM_INIT\t%s\r\n",mdm_term);
-fprintf(stream,"LOCKED_RATE\t%s\r\n",(mdm_misc&MDM_STAYHIGH) ? "YES":"NO");
-fprintf(stream,"CALLER_ID\t%s\r\n",(mdm_misc&MDM_CALLERID) ? "YES":"NO");
-fprintf(stream,"DROP_DTR\t%s\r\n",(mdm_misc&MDM_NODTR) ? "NO":"YES");
-fprintf(stream,"FLOW_CONTROL\t%s\r\n"
- ,(mdm_misc&(MDM_RTS|MDM_CTS)==(MDM_RTS|MDM_CTS)) ? "BOTH":
- (mdm_misc&MDM_CTS) ? "TRANSMIT" : (mdm_misc&MDM_RTS) ? "RECEIVE" : "NONE");
-for(i=0;i<mdm_results;i++)
- fprintf(stream,"RESULT\t\t%u\t%u\t%u\t%s\r\n",mdm_result[i].code
- ,mdm_result[i].cps,mdm_result[i].rate,mdm_result[i].str);
-
-fclose(stream);
-
-return(1);
-}
-
-int exec_mdm(char *fname)
-{
- char str[256],msg[128],*p;
- int file,i,j;
- FILE *stream;
-
-sprintf(str,"%s%s.MDM",ctrl_dir,fname);
-
-if((file=open(str,O_RDONLY|O_BINARY|O_DENYALL))==-1)
- return(0);
-if((stream=fdopen(file,"rb"))==NULL) {
- close(file);
- return(0); }
-
-while(!feof(stream)) {
- if(!fgets(str,255,stream))
- break;
- cvttab(str);
- truncsp(str);
- p=str;
- while(*p && *p<=SP) /* look for beginning of command */
- p++;
- if(!*p)
- continue;
- if(*p=='#') /* remarks start with # */
- continue;
-
- if(!strnicmp(p,"COM_RATE",8)) {
- p+=8;
- while(*p==SP) p++;
- com_rate=atol(p);
- continue; }
-
- if(!strnicmp(p,"INIT_STR",8)) {
- p+=8;
- while(*p==SP) p++;
- sprintf(mdm_init,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"DIAL_STR",8)) {
- p+=8;
- while(*p==SP) p++;
- sprintf(mdm_dial,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"HANGUP_STR",10)) {
- p+=10;
- while(*p==SP) p++;
- sprintf(mdm_hang,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"ANSWER_STR",10)) {
- p+=10;
- while(*p==SP) p++;
- sprintf(mdm_answ,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"OFFHOOK_STR",11)) {
- p+=11;
- while(*p==SP) p++;
- sprintf(mdm_offh,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"SPEC_INIT",9)) {
- p+=9;
- while(*p==SP) p++;
- sprintf(mdm_spec,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"TERM_INIT",9)) {
- p+=9;
- while(*p==SP) p++;
- sprintf(mdm_term,"%.63s",p);
- continue; }
-
- if(!strnicmp(p,"LOCKED_RATE",11)) {
- p+=11;
- while(*p==SP) p++;
- if(!stricmp(p,"OFF") || !stricmp(p,"NO"))
- mdm_misc&=~MDM_STAYHIGH;
- else
- mdm_misc|=MDM_STAYHIGH;
- continue; }
-
- if(!strnicmp(p,"CALLER_ID",9)) {
- p+=9;
- while(*p==SP) p++;
- if(!stricmp(p,"YES") || !stricmp(p,"ON"))
- mdm_misc|=MDM_CALLERID;
- else
- mdm_misc&=~MDM_CALLERID;
- continue; }
-
- if(!strnicmp(p,"VERBAL_RESULTS",14)) {
- p+=14;
- while(*p==SP) p++;
- if(!stricmp(p,"YES") || !stricmp(p,"ON"))
- mdm_misc|=MDM_VERBAL;
- else
- mdm_misc&=~MDM_VERBAL;
- continue; }
-
- if(!strnicmp(p,"DROP_DTR",8)) {
- p+=8;
- while(*p==SP) p++;
- if(!stricmp(p,"OFF") || !stricmp(p,"NO"))
- mdm_misc|=MDM_NODTR;
- else
- mdm_misc&=~MDM_NODTR;
- continue; }
-
- if(!strnicmp(p,"FLOW_CONTROL",12)) {
- p+=12;
- while(*p==SP) p++;
- mdm_misc&=~(MDM_RTS|MDM_CTS);
- strupr(p);
- if(strstr(p,"RTS") || strstr(p,"RECEIVE") || strstr(p,"RECV")
- || strstr(p,"BOTH"))
- mdm_misc|=MDM_RTS;
- if(strstr(p,"CTS") || strstr(p,"TRANSMIT") || strstr(p,"SEND")
- || strstr(p,"BOTH"))
- mdm_misc|=MDM_CTS;
- continue; }
-
- if(!strnicmp(p,"RESULT ",7)) {
- p+=7;
- while(*p==SP) p++;
- i=atoi(p);
- for(j=0;j<mdm_results;j++)
- if(mdm_result[j].code==i)
- break;
- if(j>=mdm_results) {
- if((mdm_result=(mdm_result_t *)REALLOC(
- mdm_result,sizeof(mdm_result_t)
- *(mdm_results+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,p,mdm_results+1);
- mdm_results=0;
- bail(1);
- continue; }
- mdm_results++; }
- mdm_result[j].code=i;
- while(*p!=SP) p++;
- while(*p==SP) p++;
- mdm_result[j].cps=atoi(p);
- while(*p!=SP) p++;
- while(*p==SP) p++;
- mdm_result[j].rate=atoi(p);
- while(*p!=SP) p++;
- while(*p==SP) p++;
- sprintf(mdm_result[j].str,"%.*s",LEN_MODEM,p);
- continue; }
-
- if(!strnicmp(p,"INCLUDE ",8)) {
- p+=8;
- while(*p==SP) p++;
- exec_mdm(p);
- continue; }
-
- sprintf(msg,"ERROR: '%.15s' in %.8s.MDM",p,fname);
- savnum--;
- umsg(msg);
- savnum++; }
-
-fclose(stream);
-return(1);
-}
-
-
-void init_mdms()
-{
- char str[128],fname[128];
- int file;
- FILE *stream;
-
-mdm_types=0;
-mdm_type=NULL;
-mdm_file=NULL;
-sprintf(str,"%sMDMS.IXT",ctrl_dir);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-if((stream=fdopen(file,"rb"))==NULL) {
- close(file);
- errormsg(WHERE,ERR_FDOPEN,str,O_RDONLY);
- return; }
-
-while(!feof(stream)) {
- if(!fgets(str,120,stream))
- break;
- truncsp(str);
- if(!fgets(fname,120,stream))
- break;
- truncsp(fname);
- if((mdm_type=REALLOC(mdm_type,sizeof(char *)*(mdm_types+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"Modem Type",sizeof(char *)*(mdm_types+1));
- break; }
- if((mdm_file=REALLOC(mdm_file,sizeof(char *)*(mdm_types+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"Modem File",sizeof(char *)*(mdm_types+1));
- break; }
- if((mdm_type[mdm_types]=MALLOC(strlen(str)+1))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"Modem Typename",sizeof(char *)*(mdm_types+1));
- break; }
- if((mdm_file[mdm_types]=MALLOC(9))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"Modem Filename",sizeof(char *)*(mdm_types+1));
- break; }
- strcpy(mdm_type[mdm_types],str);
- sprintf(mdm_file[mdm_types],"%.8s",fname);
- mdm_types++; }
-fclose(stream);
-}
diff --git a/src/sbbs2/scfg/scfgmsg.c b/src/sbbs2/scfg/scfgmsg.c
deleted file mode 100644
index f090fc70cd136d724f220c82880dfb76fb446b0c..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgmsg.c
+++ /dev/null
@@ -1,1337 +0,0 @@
-#line 2 "SCFGMSG.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-/****************************************************************************/
-/* Converts when_t.zone into ASCII format */
-/****************************************************************************/
-char *zonestr(short zone)
-{
- static char str[32];
-
-switch((ushort)zone) {
- case 0: return("UT");
- case AST: return("AST");
- case EST: return("EST");
- case CST: return("CST");
- case MST: return("MST");
- case PST: return("PST");
- case YST: return("YST");
- case HST: return("HST");
- case BST: return("BST");
- case ADT: return("ADT");
- case EDT: return("EDT");
- case CDT: return("CDT");
- case MDT: return("MDT");
- case PDT: return("PDT");
- case YDT: return("YDT");
- case HDT: return("HDT");
- case BDT: return("BDT");
- case MID: return("MID");
- case VAN: return("VAN");
- case EDM: return("EDM");
- case WIN: return("WIN");
- case BOG: return("BOG");
- case CAR: return("CAR");
- case RIO: return("RIO");
- case FER: return("FER");
- case AZO: return("AZO");
- case LON: return("LON");
- case BER: return("BER");
- case ATH: return("ATH");
- case MOS: return("MOS");
- case DUB: return("DUB");
- case KAB: return("KAB");
- case KAR: return("KAR");
- case BOM: return("BOM");
- case KAT: return("KAT");
- case DHA: return("DHA");
- case BAN: return("BAN");
- case HON: return("HON");
- case TOK: return("TOK");
- case SYD: return("SYD");
- case NOU: return("NOU");
- case WEL: return("WEL");
- }
-
-sprintf(str,"%02hd:%02hu",zone/60,zone<0 ? (-zone)%60 : zone%60);
-return(str);
-}
-
-char *utos(char *str)
-{
- static char out[128];
- int i;
-
-for(i=0;str[i];i++)
- if(str[i]=='_')
- out[i]=SP;
- else
- out[i]=str[i];
-out[i]=0;
-return(out);
-}
-
-char *stou(char *str)
-{
- static char out[128];
- int i;
-
-for(i=0;str[i];i++)
- if(str[i]==SP)
- out[i]='_';
- else
- out[i]=str[i];
-out[i]=0;
-return(out);
-}
-
-
-
-void clearptrs(int subnum)
-{
- char str[256];
- ushort idx,ch;
- int last,file,i;
- long l=0L;
- struct ffblk ff;
-
-upop("Clearing Pointers...");
-sprintf(str,"%sUSER\\PTRS\\*.IXB",data_dir);
-last=findfirst(str,&ff,0);
-while(!last) {
- if(ff.ff_fsize>=((long)sub[subnum]->ptridx+1L)*10L) {
- sprintf(str,"%sUSER\\PTRS\\%s",data_dir,ff.ff_name);
- if((file=nopen(str,O_WRONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY);
- bail(1); }
- while(filelength(file)<(long)(sub[subnum]->ptridx)*10) {
- lseek(file,0L,SEEK_END);
- idx=tell(file)/10;
- for(i=0;i<total_subs;i++)
- if(sub[i]->ptridx==idx)
- break;
- write(file,&l,4);
- write(file,&l,4);
- ch=0xff; /* default to scan ON for unknown sub */
- if(i<total_subs) {
- if(!(sub[i]->misc&SUB_NSDEF))
- ch&=~5;
- if(!(sub[i]->misc&SUB_SSDEF))
- ch&=~2; }
- write(file,&ch,2); }
- lseek(file,((long)sub[subnum]->ptridx)*10L,SEEK_SET);
- write(file,&l,4); /* date set to null */
- write(file,&l,4); /* date set to null */
- ch=0xff;
- if(!(sub[subnum]->misc&SUB_NSDEF))
- ch&=~5;
- if(!(sub[subnum]->misc&SUB_SSDEF))
- ch&=~2;
- write(file,&ch,2);
- close(file); }
- last=findnext(&ff); }
-upop(0);
-}
-
-void msgs_cfg()
-{
- static int dflt,msgs_dflt,bar;
- char str[256],str2[256],done=0,*p;
- int j,k,q,s;
- int i,file,ptridx,n;
- long ported;
- sub_t tmpsub;
- static grp_t savgrp;
- FILE *stream;
-
-while(1) {
- for(i=0;i<total_grps && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",grp[i]->lname);
- opt[i][0]=0;
- j=WIN_ORG|WIN_ACT|WIN_CHE;
- if(total_grps)
- j|=WIN_DEL|WIN_DELACT|WIN_GET;
- if(total_grps<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savgrp.sname[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Message Groups:
-
-This is a listing of message groups for your BBS. Message groups are
-used to logically separate your message sub-boards into groups. Every
-sub-board belongs to a message group. You must have at least one message
-group and one sub-board configured.
-
-One popular use for message groups is to separate local sub-boards and
-networked sub-boards. One might have a Local message group that contains
-non-networked sub-boards of various topics and also have a FidoNet
-message group that contains sub-boards that are echoed across FidoNet.
-Some sysops separate sub-boards into more specific areas such as Main,
-Technical, or Adult. If you have many sub-boards that have a common
-subject denominator, you may want to have a separate message group for
-those sub-boards for a more organized message structure.
-*/
- i=ulist(j,0,0,45,&msgs_dflt,&bar,"Message Groups",opt);
- savnum=0;
- if(i==-1) {
- j=save_changes(WIN_MID);
- if(j==-1)
- continue;
- if(!j)
- write_msgs_cfg();
- return; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Group Long Name:
-
-This is a description of the message group which is displayed when a
-user of the system uses the /* command from the main menu.
-*/*/
- strcpy(str,"Main");
- if(uinput(WIN_MID|WIN_SAV,0,0,"Group Long Name",str,LEN_GLNAME
- ,K_EDIT)<1)
- continue;
- SETHELP(WHERE);
-/*
-Group Short Name:
-
-This is a short description of the message group which is used for the
-main menu and reading message prompts.
-*/
- sprintf(str2,"%.*s",LEN_GSNAME,str);
- if(uinput(WIN_MID,0,0,"Group Short Name",str2,LEN_GSNAME,K_EDIT)<1)
- continue;
- if((grp=(grp_t **)REALLOC(grp,sizeof(grp_t *)*(total_grps+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_grps+1);
- total_grps=0;
- bail(1);
- continue; }
-
- if(total_grps) { /* was total_subs (?) */
- for(j=total_grps;j>i;j--) /* insert above */
- grp[j]=grp[j-1];
- for(j=0;j<total_subs;j++) /* move sub group numbers */
- if(sub[j]->grp>=i)
- sub[j]->grp++; }
-
- if((grp[i]=(grp_t *)MALLOC(sizeof(grp_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(grp_t));
- continue; }
- memset((grp_t *)grp[i],0,sizeof(grp_t));
- strcpy(grp[i]->lname,str);
- strcpy(grp[i]->sname,str2);
- total_grps++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Delete All Data in Group:
-
-If you wish to delete the messages in all the sub-boards in this group,
-select Yes.
-*/
- j=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0,"Delete All Data in Group",opt);
- if(j==-1)
- continue;
- if(j==0)
- for(j=0;j<total_subs;j++)
- if(sub[j]->grp==i) {
- sprintf(str,"%s.s*",sub[j]->code);
- if(!sub[j]->data_dir[0])
- sprintf(tmp,"%sSUBS\\",data_dir);
- else
- strcpy(tmp,sub[j]->data_dir);
- delfiles(tmp,str);
- clearptrs(j); }
- FREE(grp[i]);
- for(j=0;j<total_subs;) {
- if(sub[j]->grp==i) { /* delete subs of this group */
- FREE(sub[j]);
- total_subs--;
- k=j;
- while(k<total_subs) { /* move all subs down */
- sub[k]=sub[k+1];
- for(q=0;q<total_qhubs;q++)
- for(s=0;s<qhub[q]->subs;s++)
- if(qhub[q]->sub[s]==k)
- qhub[q]->sub[s]--;
- k++; } }
- else j++; }
- for(j=0;j<total_subs;j++) /* move sub group numbers down */
- if(sub[j]->grp>i)
- sub[j]->grp--;
- total_grps--;
- while(i<total_grps) {
- grp[i]=grp[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savgrp=*grp[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *grp[i]=savgrp;
- changes=1;
- continue; }
- done=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-27.27s%s","Long Name",grp[i]->lname);
- sprintf(opt[j++],"%-27.27s%s","Short Name",grp[i]->sname);
- sprintf(opt[j++],"%-27.27s%.40s","Access Requirements"
- ,grp[i]->ar);
- strcpy(opt[j++],"Clone Options");
- strcpy(opt[j++],"Export Areas...");
- strcpy(opt[j++],"Import Areas...");
- strcpy(opt[j++],"Message Sub-boards...");
- opt[j][0]=0;
- sprintf(str,"%s Group",grp[i]->sname);
- savnum=0;
- SETHELP(WHERE);
-/*
-Message Group Configuration:
-
-This menu allows you to configure the security requirements for access
-to this message group. You can also add, delete, and configure the
-sub-boards of this group by selecting the Messages Sub-boards... option.
-*/
- switch(ulist(WIN_ACT,6,4,60,&dflt,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Group Long Name:
-
-This is a description of the message group which is displayed when a
-user of the system uses the /* command from the main menu.
-*/*/
- strcpy(str,grp[i]->lname); /* save incase setting to null */
- if(!uinput(WIN_MID|WIN_SAV,0,17,"Name to use for Listings"
- ,grp[i]->lname,LEN_GLNAME,K_EDIT))
- strcpy(grp[i]->lname,str);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Group Short Name:
-
-This is a short description of the message group which is used for
-main menu and reading messages prompts.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Name to use for Prompts"
- ,grp[i]->sname,LEN_GSNAME,K_EDIT);
- break;
- case 2:
- sprintf(str,"%s Group",grp[i]->sname);
- getar(str,grp[i]->ar);
- break;
- case 3: /* Clone Options */
- j=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Clone Sub-board Options:
-
-If you want to clone the options of the first sub-board of this group
-into all sub-boards of this group, select Yes.
-
-The options cloned are posting requirements, reading requirements,
-operator requirments, moderated user requirments, toggle options,
-network options (including EchoMail origin line, EchoMail address,
-and QWK Network tagline), maximum number of messages, maximum number
-of CRCs, maximum age of messages, storage method, and data directory.
-*/
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Clone Options of First Sub-board into All of Group",opt);
- if(j==0) {
- k=-1;
- for(j=0;j<total_subs;j++)
- if(sub[j]->grp==i) {
- if(k==-1)
- k=j;
- else {
- changes=1;
- sub[j]->misc=(sub[k]->misc|SUB_HDRMOD);
- strcpy(sub[j]->post_ar,sub[k]->post_ar);
- strcpy(sub[j]->read_ar,sub[k]->read_ar);
- strcpy(sub[j]->op_ar,sub[k]->op_ar);
- strcpy(sub[j]->mod_ar,sub[k]->mod_ar);
- strcpy(sub[j]->origline,sub[k]->origline);
- strcpy(sub[j]->tagline,sub[k]->tagline);
- strcpy(sub[j]->data_dir,sub[k]->data_dir);
- strcpy(sub[j]->echomail_sem
- ,sub[k]->echomail_sem);
- sub[j]->maxmsgs=sub[k]->maxmsgs;
- sub[j]->maxcrcs=sub[k]->maxcrcs;
- sub[j]->maxage=sub[k]->maxage;
-
- sub[j]->faddr=sub[k]->faddr; } } }
- break;
- case 4:
- k=0;
- ported=0;
- q=changes;
- strcpy(opt[k++],"SUBS.TXT (Synchronet)");
- strcpy(opt[k++],"AREAS.BBS (MSG)");
- strcpy(opt[k++],"AREAS.BBS (SMB)");
- strcpy(opt[k++],"AREAS.BBS (SBBSECHO)");
- strcpy(opt[k++],"FIDONET.NA (Fido)");
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Export Area File Format:
-
-This menu allows you to choose the format of the area file you wish to
-export the current message group into.
-*/
- k=0;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Export Area File Format",opt);
- if(k==-1)
- break;
- if(k==0)
- sprintf(str,"%sSUBS.TXT",ctrl_dir);
- else if(k==1 || k==2)
- sprintf(str,"AREAS.BBS");
- else if(k==3)
- sprintf(str,"%sAREAS.BBS",data_dir);
- else if(k==4)
- sprintf(str,"FIDONET.NA");
- strupr(str);
- if(k && k<4)
- if(uinput(WIN_MID|WIN_SAV,0,0,"Uplinks"
- ,str2,40,K_UPPER)<=0) {
- changes=q;
- break; }
- if(uinput(WIN_MID|WIN_SAV,0,0,"Filename"
- ,str,40,K_UPPER|K_EDIT)<=0) {
- changes=q;
- break; }
- if(fexist(str)) {
- strcpy(opt[0],"Overwrite");
- strcpy(opt[1],"Append");
- opt[2][0]=0;
- j=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"File Exists",opt);
- if(j==-1)
- break;
- if(j==0) j=O_WRONLY|O_TRUNC;
- else j=O_WRONLY|O_APPEND; }
- else
- j=O_WRONLY|O_CREAT;
- if((stream=fnopen(&file,str,j))==NULL) {
- umsg("Open Failure");
- break; }
- upop("Exporting Areas...");
- for(j=0;j<total_subs;j++) {
- if(sub[j]->grp!=i)
- continue;
- ported++;
- if(k==1) { /* AREAS.BBS *.MSG */
- if(!sub[j]->echopath[0])
- sprintf(str,"%s%s\\",echomail_dir,sub[j]->code);
- else
- strcpy(str,sub[j]->echopath);
- fprintf(stream,"%-30s %-20s %s\r\n"
- ,str,stou(sub[j]->sname),str2);
- continue; }
- if(k==2) { /* AREAS.BBS SMB */
- if(!sub[j]->data_dir[0])
- sprintf(str,"%sSUBS\\%s",data_dir,sub[j]->code);
- else
- sprintf(str,"%s%s",sub[j]->data_dir,sub[j]->code);
- fprintf(stream,"%-30s %-20s %s\r\n"
- ,str,stou(sub[j]->sname),str2);
- continue; }
- if(k==3) { /* AREAS.BBS SBBSECHO */
- fprintf(stream,"%-30s %-20s %s\r\n"
- ,sub[j]->code,stou(sub[j]->sname),str2);
- continue; }
- if(k==4) { /* FIDONET.NA */
- fprintf(stream,"%-20s %s\r\n"
- ,stou(sub[j]->sname),sub[j]->lname);
- continue; }
- fprintf(stream,"%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n"
- "%s\r\n%s\r\n%s\r\n"
- ,sub[j]->lname
- ,sub[j]->sname
- ,sub[j]->qwkname
- ,sub[j]->code
- ,sub[j]->data_dir
- ,sub[j]->ar
- ,sub[j]->read_ar
- ,sub[j]->post_ar
- ,sub[j]->op_ar
- );
- fprintf(stream,"%lX\r\n%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n"
- ,sub[j]->misc
- ,sub[j]->tagline
- ,sub[j]->origline
- ,sub[j]->echomail_sem
- ,sub[j]->echopath
- ,faddrtoa(sub[j]->faddr)
- );
- fprintf(stream,"%lu\r\n%lu\r\n%u\r\n%u\r\n%s\r\n"
- ,sub[j]->maxmsgs
- ,sub[j]->maxcrcs
- ,sub[j]->maxage
- ,sub[j]->ptridx
- ,sub[j]->mod_ar
- );
- fprintf(stream,"***END-OF-SUB***\r\n\r\n"); }
- fclose(stream);
- upop(0);
- sprintf(str,"%lu Message Areas Exported Successfully",ported);
- umsg(str);
- changes=q;
- break;
- case 5:
- ported=0;
- k=0;
- strcpy(opt[k++],"SUBS.TXT (Synchronet)");
- strcpy(opt[k++],"AREAS.BBS (MSG)");
- strcpy(opt[k++],"AREAS.BBS (SMB)");
- strcpy(opt[k++],"AREAS.BBS (SBBSECHO)");
- strcpy(opt[k++],"FIDONET.NA (Fido)");
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Import Area File Format:
-
-This menu allows you to choose the format of the area file you wish to
-import into the current message group.
-*/
- k=0;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Import Area File Format",opt);
- if(k==-1)
- break;
- if(k==0)
- sprintf(str,"%sSUBS.TXT",ctrl_dir);
- else if(k==1 || k==2)
- sprintf(str,"AREAS.BBS");
- else if(k==3)
- sprintf(str,"%sAREAS.BBS",data_dir);
- else if(k==4)
- sprintf(str,"FIDONET.NA");
- strupr(str);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Filename"
- ,str,40,K_UPPER|K_EDIT)<=0)
- break;
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- umsg("Open Failure");
- break; }
- upop("Importing Areas...");
- while(!feof(stream)) {
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- if(!str[0])
- continue;
- if(k) {
- p=str;
- while(*p && *p<=SP) p++;
- if(!*p || *p==';')
- continue;
- memset(&tmpsub,0,sizeof(sub_t));
- tmpsub.misc|=
- (SUB_FIDO|SUB_NAME|SUB_TOUSER|SUB_QUOTE|SUB_HYPER);
- if(k==1) { /* AREAS.BBS *.MSG */
- p=strrchr(str,'\\');
- if(p) *p=0;
- else p=str;
- sprintf(tmpsub.echopath,"%.*s",LEN_DIR,str);
- p++;
- sprintf(tmpsub.code,"%.8s",p);
- while(*p && *p<=SP) p++;
- sprintf(tmpsub.sname,"%.*s",LEN_SSNAME,p);
- p=strchr(tmpsub.sname,SP);
- if(p) *p=0;
- strcpy(tmpsub.sname,utos(tmpsub.sname));
- sprintf(tmpsub.lname,"%.*s",LEN_SLNAME
- ,tmpsub.sname);
- sprintf(tmpsub.qwkname,"%.*s",10
- ,tmpsub.sname);
- }
- if(k==2) { /* AREAS.BBS SMB */
- p=strrchr(str,'\\');
- if(p) *p=0;
- else p=str;
- sprintf(tmpsub.data_dir,"%.*s",LEN_DIR,str);
- p++;
- sprintf(tmpsub.code,"%.8s",p);
- while(*p && *p<=SP) p++;
- sprintf(tmpsub.sname,"%.*s",LEN_SSNAME,p);
- p=strchr(tmpsub.sname,SP);
- if(p) *p=0;
- strcpy(tmpsub.sname,utos(tmpsub.sname));
- sprintf(tmpsub.lname,"%.*s",LEN_SLNAME
- ,tmpsub.sname);
- sprintf(tmpsub.qwkname,"%.*s",10
- ,tmpsub.sname);
- }
- else if(k==3) { /* AREAS.BBS SBBSECHO */
- p=str;
- while(*p && *p>SP) p++;
- *p=0;
- sprintf(tmpsub.code,"%.8s",str);
- p++;
- while(*p && *p<=SP) p++;
- sprintf(tmpsub.sname,"%.*s",LEN_SSNAME,p);
- p=strchr(tmpsub.sname,SP);
- if(p) *p=0;
- strcpy(tmpsub.sname,utos(tmpsub.sname));
- sprintf(tmpsub.lname,"%.*s",LEN_SLNAME
- ,tmpsub.sname);
- sprintf(tmpsub.qwkname,"%.*s",10
- ,tmpsub.sname);
- }
- else if(k==4) { /* FIDONET.NA */
- p=str;
- while(*p && *p>SP) p++;
- *p=0;
- sprintf(tmpsub.code,"%.8s",str);
- sprintf(tmpsub.sname,"%.*s",LEN_SSNAME,utos(str));
- sprintf(tmpsub.qwkname,"%.10s",tmpsub.sname);
- p++;
- while(*p && *p<=SP) p++;
- sprintf(tmpsub.lname,"%.*s",LEN_SLNAME,p);
- }
- ported++; }
- else {
- memset(&tmpsub,0,sizeof(sub_t));
- tmpsub.grp=i;
- sprintf(tmpsub.lname,"%.*s",LEN_SLNAME,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.sname,"%.*s",LEN_SSNAME,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.qwkname,"%.*s",10,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.code,"%.*s",8,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.data_dir,"%.*s",LEN_DIR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.read_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.post_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.op_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpsub.misc=ahtoul(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.tagline,"%.*s",80,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.origline,"%.*s",50,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.echomail_sem,"%.*s",LEN_DIR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.echopath,"%.*s",LEN_DIR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpsub.faddr=atofaddr(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpsub.maxmsgs=atol(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpsub.maxcrcs=atol(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpsub.maxage=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpsub.ptridx=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpsub.mod_ar,"%.*s",LEN_ARSTR,str);
-
- ported++;
- while(!feof(stream)
- && strcmp(str,"***END-OF-SUB***")) {
- if(!fgets(str,128,stream)) break;
- truncsp(str); } }
-
- truncsp(tmpsub.code);
- truncsp(tmpsub.sname);
- truncsp(tmpsub.lname);
- truncsp(tmpsub.qwkname);
- for(j=0;j<total_subs;j++) {
- if(sub[j]->grp!=i)
- continue;
- if(!stricmp(sub[j]->code,tmpsub.code))
- break; }
- if(j==total_subs) {
-
- if((sub=(sub_t **)REALLOC(sub
- ,sizeof(sub_t *)*(total_subs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_subs+1);
- total_subs=0;
- bail(1);
- break; }
-
- for(ptridx=0;ptridx>-1;ptridx++) {
- for(n=0;n<total_subs;n++)
- if(sub[n]->ptridx==ptridx)
- break;
- if(n==total_subs)
- break; }
-
- if((sub[j]=(sub_t *)MALLOC(sizeof(sub_t)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(sub_t));
- break; }
- memset(sub[j],0,sizeof(sub_t)); }
- if(!k)
- memcpy(sub[j],&tmpsub,sizeof(sub_t));
- else {
- sub[j]->grp=i;
- if(total_faddrs)
- sub[j]->faddr=faddr[0];
- strcpy(sub[j]->code,tmpsub.code);
- strcpy(sub[j]->sname,tmpsub.sname);
- strcpy(sub[j]->lname,tmpsub.lname);
- strcpy(sub[j]->qwkname,tmpsub.qwkname);
- strcpy(sub[j]->echopath,tmpsub.echopath);
- strcpy(sub[j]->data_dir,tmpsub.data_dir);
- if(j==total_subs)
- sub[j]->maxmsgs=1000;
- }
- if(j==total_subs) {
- sub[j]->ptridx=ptridx;
- sub[j]->misc=tmpsub.misc;
- total_subs++; }
- changes=1; }
- fclose(stream);
- upop(0);
- sprintf(str,"%lu Message Areas Imported Successfully",ported);
- umsg(str);
- break;
-
- case 6:
- sub_cfg(i);
- break; } } }
-
-}
-
-void msg_opts()
-{
- char str[128],*p;
- static int msg_dflt;
- int i,j;
-
- while(1) {
- i=0;
- sprintf(opt[i++],"%-33.33s%s"
- ,"BBS ID for QWK Packets",sys_id);
- sprintf(opt[i++],"%-33.33s%s"
- ,"Local Time Zone",zonestr(sys_timezone));
- sprintf(opt[i++],"%-33.33s%u seconds"
- ,"Maximum Retry Time",smb_retry_time);
- if(max_qwkmsgs)
- sprintf(str,"%lu",max_qwkmsgs);
- else
- sprintf(str,"Unlimited");
- sprintf(opt[i++],"%-33.33s%s"
- ,"Maximum QWK Messages",str);
- sprintf(opt[i++],"%-33.33s%s","Pre-pack QWK Requirements",preqwk_ar);
- if(mail_maxage)
- sprintf(str,"Enabled (%u days old)",mail_maxage);
- else
- strcpy(str,"Disabled");
- sprintf(opt[i++],"%-33.33s%s","Purge E-mail by Age",str);
- if(sys_misc&SM_DELEMAIL)
- strcpy(str,"Immediately");
- else
- strcpy(str,"Daily");
- sprintf(opt[i++],"%-33.33s%s","Purge Deleted E-mail",str);
- if(mail_maxcrcs)
- sprintf(str,"Enabled (%lu mail CRCs)",mail_maxcrcs);
- else
- strcpy(str,"Disabled");
- sprintf(opt[i++],"%-33.33s%s","Duplicate E-mail Checking",str);
- sprintf(opt[i++],"%-33.33s%s","Allow Anonymous E-mail"
- ,sys_misc&SM_ANON_EM ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Allow Quoting in E-mail"
- ,sys_misc&SM_QUOTE_EM ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Allow Uploads in E-mail"
- ,sys_misc&SM_FILE_EM ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Allow Forwarding to NetMail"
- ,sys_misc&SM_FWDTONET ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Kill Read E-mail"
- ,sys_misc&SM_DELREADM ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Users Can View Deleted Messages"
- ,sys_misc&SM_USRVDELM ? "Yes" : sys_misc&SM_SYSVDELM
- ? "Sysops Only":"No");
- strcpy(opt[i++],"Extra Attribute Codes...");
- opt[i][0]=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-Message Options:
-
-This is a menu of system-wide message related options. Messages include
-E-mail and public posts (on sub-boards).
-*/
-
- switch(ulist(WIN_ORG|WIN_ACT|WIN_MID|WIN_CHE,0,0,72,&msg_dflt,0
- ,"Message Options",opt)) {
- case -1:
- i=save_changes(WIN_MID);
- if(i==-1)
- continue;
- if(!i) {
- write_msgs_cfg();
- write_main_cfg(); }
- return;
- case 0:
- strcpy(str,sys_id);
- SETHELP(WHERE);
-/*
-BBS ID for QWK Packets:
-
-This is a short system ID for your BBS that is used for QWK packets.
-It should be an abbreviation of your BBS name or other related string.
-This ID will be used for your outgoing and incoming QWK packets. If
-you plan on networking via QWK packets with another Synchronet BBS,
-this ID should not begin with a number. The maximum length of the ID
-is eight characters and cannot contain spaces or other invalid DOS
-filename characters. In a QWK packet network, each system must have
-a unique QWK system ID.
-*/
-
- uinput(WIN_MID|WIN_SAV,0,0,"BBS ID for QWK Packets"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(sys_id,str);
- else
- umsg("Invalid ID");
- break;
- case 1:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-United States Time Zone:
-
-If your local time zone is the United States, select Yes.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"United States Time Zone",opt);
- if(i==-1)
- break;
- if(i==0) {
- strcpy(opt[i++],"Atlantic");
- strcpy(opt[i++],"Eastern");
- strcpy(opt[i++],"Central");
- strcpy(opt[i++],"Mountain");
- strcpy(opt[i++],"Pacific");
- strcpy(opt[i++],"Yukon");
- strcpy(opt[i++],"Hawaii/Alaska");
- strcpy(opt[i++],"Bering");
- opt[i][0]=0;
- i=0;
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Time Zone",opt);
- if(i==-1)
- break;
- changes=1;
- switch(i) {
- case 0:
- sys_timezone=AST;
- break;
- case 1:
- sys_timezone=EST;
- break;
- case 2:
- sys_timezone=CST;
- break;
- case 3:
- sys_timezone=MST;
- break;
- case 4:
- sys_timezone=PST;
- break;
- case 5:
- sys_timezone=YST;
- break;
- case 6:
- sys_timezone=HST;
- break;
- case 7:
- sys_timezone=BST;
- break; }
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Daylight Savings",opt);
- if(i==-1)
- break;
- if(!i)
- sys_timezone|=DAYLIGHT;
- break; }
- i=0;
- strcpy(opt[i++],"Midway");
- strcpy(opt[i++],"Vancouver");
- strcpy(opt[i++],"Edmonton");
- strcpy(opt[i++],"Winnipeg");
- strcpy(opt[i++],"Bogota");
- strcpy(opt[i++],"Caracas");
- strcpy(opt[i++],"Rio de Janeiro");
- strcpy(opt[i++],"Fernando de Noronha");
- strcpy(opt[i++],"Azores");
- strcpy(opt[i++],"London");
- strcpy(opt[i++],"Berlin");
- strcpy(opt[i++],"Athens");
- strcpy(opt[i++],"Moscow");
- strcpy(opt[i++],"Dubai");
- strcpy(opt[i++],"Kabul");
- strcpy(opt[i++],"Karachi");
- strcpy(opt[i++],"Bombay");
- strcpy(opt[i++],"Kathmandu");
- strcpy(opt[i++],"Dhaka");
- strcpy(opt[i++],"Bangkok");
- strcpy(opt[i++],"Hong Kong");
- strcpy(opt[i++],"Tokyo");
- strcpy(opt[i++],"Sydney");
- strcpy(opt[i++],"Noumea");
- strcpy(opt[i++],"Wellington");
- strcpy(opt[i++],"Other...");
- opt[i][0]=0;
- i=0;
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Time Zone",opt);
- if(i==-1)
- break;
- changes=1;
- switch(i) {
- case 0:
- sys_timezone=MID;
- break;
- case 1:
- sys_timezone=VAN;
- break;
- case 2:
- sys_timezone=EDM;
- break;
- case 3:
- sys_timezone=WIN;
- break;
- case 4:
- sys_timezone=BOG;
- break;
- case 5:
- sys_timezone=CAR;
- break;
- case 6:
- sys_timezone=RIO;
- break;
- case 7:
- sys_timezone=FER;
- break;
- case 8:
- sys_timezone=AZO;
- break;
- case 9:
- sys_timezone=LON;
- break;
- case 10:
- sys_timezone=BER;
- break;
- case 11:
- sys_timezone=ATH;
- break;
- case 12:
- sys_timezone=MOS;
- break;
- case 13:
- sys_timezone=DUB;
- break;
- case 14:
- sys_timezone=KAB;
- break;
- case 15:
- sys_timezone=KAR;
- break;
- case 16:
- sys_timezone=BOM;
- break;
- case 17:
- sys_timezone=KAT;
- break;
- case 18:
- sys_timezone=DHA;
- break;
- case 19:
- sys_timezone=BAN;
- break;
- case 20:
- sys_timezone=HON;
- break;
- case 21:
- sys_timezone=TOK;
- break;
- case 22:
- sys_timezone=SYD;
- break;
- case 23:
- sys_timezone=NOU;
- break;
- case 24:
- sys_timezone=WEL;
- break;
- default:
- if(sys_timezone>720 || sys_timezone<-720)
- sys_timezone=0;
- sprintf(str,"%02d:%02d"
- ,sys_timezone/60,sys_timezone<0
- ? (-sys_timezone)%60 : sys_timezone%60);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Time (HH:MM) East (+) or West (-) of Universal "
- "Time"
- ,str,6,K_EDIT|K_UPPER);
- sys_timezone=atoi(str)*60;
- p=strchr(str,':');
- if(p) {
- if(sys_timezone<0)
- sys_timezone-=atoi(p+1);
- else
- sys_timezone+=atoi(p+1); }
- break;
- }
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Maximum Message Base Retry Time:
-
-This is the maximum number of seconds to allow while attempting to open
-or lock a message base (a value in the range of 10 to 45 seconds should
-be fine).
-*/
- itoa(smb_retry_time,str,10);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Maximum Message Base Retry Time (in seconds)"
- ,str,2,K_NUMBER|K_EDIT);
- smb_retry_time=atoi(str);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-Maximum Messages Per QWK Packet:
-
-This is the maximum number of messages (excluding E-mail), that a user
-can have in one QWK packet for download. This limit does not effect
-QWK network nodes (Q restriction). If set to 0, no limit is imposed.
-*/
-
- ultoa(max_qwkmsgs,str,10);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Maximum Messages Per QWK Packet (0=No Limit)"
- ,str,6,K_NUMBER|K_EDIT);
- max_qwkmsgs=atol(str);
- break;
- case 4:
- SETHELP(WHERE);
-/*
-Pre-pack QWK Requirements:
-
-ALL user accounts on the BBS meeting this requirmenet will have a QWK
-packet automatically created for them every day after midnight
-(during the internal daily event).
-
-This is mainly intended for QWK network nodes that wish to save connect
-time by having their packets pre-packed. If a large number of users meet
-this requirement, it can take up a large amount of disk space on your
-system (in the DATA\FILE directory).
-*/
- getar("Pre-pack QWK (Use with caution!)",preqwk_ar);
- break;
- case 5:
- sprintf(str,"%u",mail_maxage);
- SETHELP(WHERE);
-/*
-Maximum Age of Mail:
-
-This value is the maximum number of days that mail will be kept.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Maximum Age of Mail "
- "(in days)",str,5,K_EDIT|K_NUMBER);
- mail_maxage=atoi(str);
- break;
- case 6:
- strcpy(opt[0],"Daily");
- strcpy(opt[1],"Immediately");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Purge Deleted E-mail:
-
-If you wish to have deleted e-mail physically (and permanently) removed
-from your e-mail database immediately after a users exits the reading
-e-mail prompt, set this option to Immediately.
-
-For the best system performance and to avoid delays when deleting e-mail
-from a large e-mail database, set this option to Daily (the default).
-Your system maintenance will automatically purge deleted e-mail once a
-day.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Purge Deleted E-mail",opt);
- if(!i && sys_misc&SM_DELEMAIL) {
- sys_misc&=~SM_DELEMAIL;
- changes=1; }
- else if(i==1 && !(sys_misc&SM_DELEMAIL)) {
- sys_misc|=SM_DELEMAIL;
- changes=1; }
- break;
- case 7:
- sprintf(str,"%lu",mail_maxcrcs);
- SETHELP(WHERE);
-/*
-Maximum Number of Mail CRCs:
-
-This value is the maximum number of CRCs that will be kept for duplicate
-mail checking. Once this maximum number of CRCs is reached, the oldest
-CRCs will be automatically purged.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Maximum Number of Mail "
- "CRCs",str,5,K_EDIT|K_NUMBER);
- mail_maxcrcs=atol(str);
- break;
- case 8:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Allow Anonymous E-mail:
-
-If you want users with the A exemption to be able to send E-mail
-anonymously, set this option to Yes.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Anonymous E-mail",opt);
- if(!i && !(sys_misc&SM_ANON_EM)) {
- sys_misc|=SM_ANON_EM;
- changes=1; }
- else if(i==1 && sys_misc&SM_ANON_EM) {
- sys_misc&=~SM_ANON_EM;
- changes=1; }
- break;
- case 9:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Quoting in E-mail:
-
-If you want your users to be allowed to use message quoting when
-responding in E-mail, set this option to Yes.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Quoting in E-mail",opt);
- if(!i && !(sys_misc&SM_QUOTE_EM)) {
- sys_misc|=SM_QUOTE_EM;
- changes=1; }
- else if(i==1 && sys_misc&SM_QUOTE_EM) {
- sys_misc&=~SM_QUOTE_EM;
- changes=1; }
- break;
- case 10:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow File Attachment Uploads in E-mail:
-
-If you want your users to be allowed to attach an uploaded file to
-an E-mail message, set this option to Yes.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow File Attachment Uploads in E-mail",opt);
- if(!i && !(sys_misc&SM_FILE_EM)) {
- sys_misc|=SM_FILE_EM;
- changes=1; }
- else if(i==1 && sys_misc&SM_FILE_EM) {
- sys_misc&=~SM_FILE_EM;
- changes=1; }
- break;
- case 11:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Users to Have Their E-mail Forwarded to NetMail:
-
-If you want your users to be able to have any e-mail sent to them
-optionally (at the sender's discretion) forwarded to a NetMail address,
-set this option to Yes.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Forwarding of E-mail to NetMail",opt);
- if(!i && !(sys_misc&SM_FWDTONET)) {
- sys_misc|=SM_FWDTONET;
- changes=1; }
- else if(i==1 && sys_misc&SM_FWDTONET) {
- sys_misc&=~SM_FWDTONET;
- changes=1; }
- break;
- case 12:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Kill Read E-mail Automatically:
-
-If this option is set to Yes, e-mail that has been read will be
-automatically deleted when message base maintenance is run.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Kill Read E-mail Automatically",opt);
- if(!i && !(sys_misc&SM_DELREADM)) {
- sys_misc|=SM_DELREADM;
- changes=1; }
- else if(i==1 && sys_misc&SM_DELREADM) {
- sys_misc&=~SM_DELREADM;
- changes=1; }
- break;
- case 13:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- strcpy(opt[2],"Sysops Only");
- opt[3][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Users Can View Deleted Messages:
-
-If this option is set to Yes, then users will be able to view messages
-they've sent and deleted or messages sent to them and they've deleted
-with the option of un-deleting the message before the message is
-physically purged from the e-mail database.
-
-If this option is set to No, then when a message is deleted, it is no
-longer viewable (with SBBS) by anyone.
-
-If this option is set to Sysops Only, then only sysops and sub-ops (when
-appropriate) can view deleted messages.
-*/
-
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Users Can View Deleted Messages",opt);
- if(!i && (sys_misc&(SM_USRVDELM|SM_SYSVDELM))
- !=(SM_USRVDELM|SM_SYSVDELM)) {
- sys_misc|=(SM_USRVDELM|SM_SYSVDELM);
- changes=1; }
- else if(i==1 && sys_misc&(SM_USRVDELM|SM_SYSVDELM)) {
- sys_misc&=~(SM_USRVDELM|SM_SYSVDELM);
- changes=1; }
- else if(i==2 && (sys_misc&(SM_USRVDELM|SM_SYSVDELM))
- !=SM_SYSVDELM) {
- sys_misc|=SM_SYSVDELM;
- sys_misc&=~SM_USRVDELM;
- changes=1; }
- break;
- case 14:
- SETHELP(WHERE);
-/*
-Extra Attribute Codes...
-
-Synchronet can suppport the native text attribute codes of other BBS
-programs in messages (menus, posts, e-mail, etc.) To enable the extra
-attribute codes for another BBS program, set the corresponding option
-to Yes.
-*/
-
- j=0;
- while(1) {
- i=0;
- sprintf(opt[i++],"%-15.15s %-3.3s","WWIV"
- ,sys_misc&SM_WWIV ? "Yes":"No");
- sprintf(opt[i++],"%-15.15s %-3.3s","PCBoard"
- ,sys_misc&SM_PCBOARD ? "Yes":"No");
- sprintf(opt[i++],"%-15.15s %-3.3s","Wildcat"
- ,sys_misc&SM_WILDCAT ? "Yes":"No");
- sprintf(opt[i++],"%-15.15s %-3.3s","Celerity"
- ,sys_misc&SM_CELERITY ? "Yes":"No");
- sprintf(opt[i++],"%-15.15s %-3.3s","Renegade"
- ,sys_misc&SM_RENEGADE ? "Yes":"No");
- opt[i][0]=0;
- j=ulist(WIN_BOT|WIN_RHT|WIN_SAV,2,2,0,&j,0
- ,"Extra Attribute Codes",opt);
- if(j==-1)
- break;
-
- changes=1;
- switch(j) {
- case 0:
- sys_misc^=SM_WWIV;
- break;
- case 1:
- sys_misc^=SM_PCBOARD;
- break;
- case 2:
- sys_misc^=SM_WILDCAT;
- break;
- case 3:
- sys_misc^=SM_CELERITY;
- break;
- case 4:
- sys_misc^=SM_RENEGADE;
- break; } } } }
-}
diff --git a/src/sbbs2/scfg/scfgnet.c b/src/sbbs2/scfg/scfgnet.c
deleted file mode 100644
index d645ab7c9f90d4e893a0652d2964f5e9e14a3d04..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgnet.c
+++ /dev/null
@@ -1,1457 +0,0 @@
-#line 2 "SCFGNET.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-
-char *daystr(char days);
-
-
-void qhub_edit(int num);
-void phub_edit(int num);
-char *daystr(char days);
-void qhub_sub_edit(uint num);
-
-/****************************************************************************/
-/* Returns the FidoNet address kept in str as ASCII. */
-/****************************************************************************/
-faddr_t atofaddr(char *str)
-{
- char *p;
- faddr_t addr;
-
-addr.zone=addr.net=addr.node=addr.point=0;
-if((p=strchr(str,':'))!=NULL) {
- addr.zone=atoi(str);
- addr.net=atoi(p+1); }
-else {
- if(total_faddrs)
- addr.zone=faddr[0].zone;
- else
- addr.zone=1;
- addr.net=atoi(str); }
-if(!addr.zone) /* no such thing as zone 0 */
- addr.zone=1;
-if((p=strchr(str,'/'))!=NULL)
- addr.node=atoi(p+1);
-else {
- if(total_faddrs)
- addr.net=faddr[0].net;
- else
- addr.net=1;
- addr.node=atoi(str); }
-if((p=strchr(str,'.'))!=NULL)
- addr.point=atoi(p+1);
-return(addr);
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(faddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-
-uint getsub()
-{
- static int grp_dflt,sub_dflt,grp_bar,sub_bar;
- char str[81];
- int i,j,k;
- uint subnum[MAX_OPTS+1];
-
-while(1) {
- for(i=0;i<total_grps && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",grp[i]->lname);
- opt[i][0]=0;
- i=ulist(WIN_SAV|WIN_RHT|WIN_BOT,0,0,45,&grp_dflt,&grp_bar
- ,"Message Groups"
- ,opt);
- if(i==-1)
- return(-1);
- for(j=k=0;j<total_subs && k<MAX_OPTS;j++)
- if(sub[j]->grp==i) {
- sprintf(opt[k],"%-25s",sub[j]->lname);
- subnum[k++]=j; }
- opt[k][0]=0;
- sprintf(str,"%s Sub-boards",grp[i]->sname);
- j=ulist(WIN_RHT|WIN_BOT|WIN_SAV,0,0,45,&sub_dflt,&sub_bar,str,opt);
- if(j==-1)
- continue;
- return(subnum[j]); }
-
-}
-
-void net_cfg()
-{
- static int net_dflt,qnet_dflt,pnet_dflt,fnet_dflt,inet_dflt
- ,qhub_dflt,phub_dflt;
- char str[81],done,*p;
- int i,j,k,l,m,n;
-
-while(1) {
- i=0;
- strcpy(opt[i++],"QWK Packet Networks");
- strcpy(opt[i++],"FidoNet EchoMail and NetMail");
- strcpy(opt[i++],"PostLink Networks");
- strcpy(opt[i++],"Internet NetMail");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-Configure Networks:
-
-This is the network configuration menu. Select the type of network
-technology that you want to configure.
-*/
- i=ulist(WIN_ORG|WIN_ACT|WIN_CHE,0,0,0,&net_dflt,0,"Networks",opt);
- if(i==0) { /* QWK net stuff */
- done=0;
- while(!done) {
- i=0;
- strcpy(opt[i++],"Network Hubs...");
- strcpy(opt[i++],"Default Tagline");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-QWK Packet Networks:
-
-From this menu you can configure the default tagline to use for
-outgoing messages on QWK networked sub-boards, or you can select
-Network Hubs... to add, delete, or configure QWK hubs that your system
-calls to exchange packets with.
-*/
- i=ulist(WIN_ACT|WIN_RHT|WIN_BOT|WIN_CHE,0,0,0,&qnet_dflt,0
- ,"QWK Packet Networks",opt);
- savnum=0;
- switch(i) {
- case -1: /* ESC */
- done=1;
- break;
- case 1:
- SETHELP(WHERE);
-/*
-QWK Network Default Tagline:
-
-This is the default tagline to use for outgoing messages on QWK
-networked sub-boards. This default can be overridden on a per sub-board
-basis with the sub-board configuration Network Options....
-*/
- uinput(WIN_MID|WIN_SAV,0,0,nulstr
- ,qnet_tagline,63,K_MSG|K_EDIT);
- break;
- case 0:
- while(1) {
- for(i=0;i<total_qhubs && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-8.8s",qhub[i]->id);
- opt[i][0]=0;
- i=WIN_ACT|WIN_RHT|WIN_SAV;
- if(total_qhubs<MAX_OPTS)
- i|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(total_qhubs)
- i|=WIN_DEL;
- savnum=0;
- SETHELP(WHERE);
-/*
-QWK Network Hubs:
-
-This is a list of QWK network hubs that your system calls to exchange
-packets with.
-
-To add a hub, select the desired location with the arrow keys and hit
- INS .
-
-To delete a hub, select it and hit DEL .
-
-To configure a hub, select it and hit ENTER .
-*/
- i=ulist(i,0,0,0,&qhub_dflt,0
- ,"QWK Network Hubs",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((qhub=(qhub_t **)REALLOC(qhub
- ,sizeof(qhub_t *)*(total_qhubs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr
- ,sizeof(qhub_t *)*(total_qhubs+1));
- total_qhubs=0;
- bail(1);
- continue; }
-
- savnum=1;
- SETHELP(WHERE);
-/*
-QWK Network Hub System ID:
-
-This is the QWK System ID of this hub. It is used for incoming and
-outgoing network packets and must be accurate.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"System ID",str,8,K_UPPER)<1)
- continue;
-
- for(j=total_qhubs;j>i;j--)
- qhub[j]=qhub[j-1];
- if((qhub[i]=(qhub_t *)MALLOC(sizeof(qhub_t)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr
- ,sizeof(qhub_t));
- continue; }
- memset(qhub[i],0,sizeof(qhub_t));
- strcpy(qhub[i]->id,str);
- strcpy(qhub[i]->pack,"%!pkzip %f %s");
- strcpy(qhub[i]->unpack,"%!pkunzip -o %f %g %s");
- strcpy(qhub[i]->call,"%!qnet");
- qhub[i]->node=1;
- qhub[i]->days=0xff; /* all days */
- total_qhubs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(qhub[i]->mode);
- FREE(qhub[i]->conf);
- FREE(qhub[i]->sub);
- FREE(qhub[i]);
- total_qhubs--;
- while(i<total_qhubs) {
- qhub[i]=qhub[i+1];
- i++; }
- changes=1;
- continue; }
- qhub_edit(i); }
- break; } } }
-
- else if(i==1) { /* FidoNet Stuff */
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s"
- ,"System Addresses",total_faddrs ? faddrtoa(faddr[0])
- : nulstr);
- sprintf(opt[i++],"%-27.27s%s"
- ,"Default Outbound Address"
- ,dflt_faddr.zone ? faddrtoa(dflt_faddr) : "No");
- sprintf(opt[i++],"%-27.27s"
- ,"Default Origin Line");
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"NetMail Semaphore",netmail_sem);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"EchoMail Semaphore",echomail_sem);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Inbound File Directory",fidofile_dir);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"EchoMail Base Directory",echomail_dir);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"NetMail Directory",netmail_dir);
- sprintf(opt[i++],"%-27.27s%s"
- ,"Allow Sending of NetMail"
- ,netmail_misc&NMAIL_ALLOW ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Allow File Attachments"
- ,netmail_misc&NMAIL_FILE ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Send NetMail Using Alias"
- ,netmail_misc&NMAIL_ALIAS ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"NetMail Defaults to Crash"
- ,netmail_misc&NMAIL_CRASH ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"NetMail Defaults to Direct"
- ,netmail_misc&NMAIL_DIRECT ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"NetMail Defaults to Hold"
- ,netmail_misc&NMAIL_HOLD ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Kill NetMail After Sent"
- ,netmail_misc&NMAIL_KILL ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%lu"
- ,"Cost to Send NetMail",netmail_cost);
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-FidoNet EchoMail and NetMail:
-
-This menu contains configuration options that pertain specifically to
-networking E-mail (NetMail) and sub-boards (EchoMail) through networks
-using FidoNet technology.
-*/
- i=ulist(WIN_ACT|WIN_MID|WIN_CHE,0,0,60,&fnet_dflt,0
- ,"FidoNet EchoMail and NetMail",opt);
- savnum=0;
- switch(i) {
- case -1: /* ESC */
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-System FidoNet Addresses:
-
-This is the FidoNet address of this system used to receive NetMail.
-The Main address is also used as the default address for sub-boards.
-Format: Zone:Net/Node[.Point]
-*/
- k=l=0;
- while(1) {
- for(i=0;i<total_faddrs && i<MAX_OPTS;i++) {
- if(i==0)
- strcpy(str,"Main");
- else
- sprintf(str,"AKA %u",i);
- sprintf(opt[i],"%-8.8s %-16s"
- ,str,faddrtoa(faddr[i])); }
- opt[i][0]=0;
- j=WIN_RHT|WIN_SAV|WIN_ACT|WIN_INSACT;
- if(total_faddrs<MAX_OPTS)
- j|=WIN_INS|WIN_XTR;
- if(total_faddrs)
- j|=WIN_DEL;
- i=ulist(j,0,0,0,&k,&l
- ,"System Addresses",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
-
- if(!total_faddrs)
- strcpy(str,"1:1/0");
- else
- strcpy(str,faddrtoa(faddr[0]));
- if(!uinput(WIN_MID|WIN_SAV,0,0,"Address"
- ,str,25,K_EDIT|K_UPPER))
- continue;
-
- if((faddr=(faddr_t *)REALLOC(faddr
- ,sizeof(faddr_t)*(total_faddrs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr
- ,sizeof(faddr_t)*total_faddrs+1);
- total_faddrs=0;
- bail(1);
- continue; }
-
- for(j=total_faddrs;j>i;j--)
- faddr[j]=faddr[j-1];
-
- faddr[i]=atofaddr(str);
- total_faddrs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- total_faddrs--;
- while(i<total_faddrs) {
- faddr[i]=faddr[i+1];
- i++; }
- changes=1;
- continue; }
- strcpy(str,faddrtoa(faddr[i]));
- uinput(WIN_MID|WIN_SAV,0,0,"Address"
- ,str,25,K_EDIT);
- faddr[i]=atofaddr(str); }
- break;
- case 1:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Use Default Outbound NetMail Address:
-
-If you would like to have a default FidoNet address adding to outbound
-NetMail mail messages that do not have an address specified, select
-Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Use Default Outbound NetMail Address",opt);
- if(i==1) {
- if(dflt_faddr.zone)
- changes=1;
- dflt_faddr.zone=0;
- break; }
- if(i==-1)
- break;
- if(!dflt_faddr.zone) {
- dflt_faddr.zone=1;
- changes=1; }
- strcpy(str,faddrtoa(dflt_faddr));
- SETHELP(WHERE);
-/*
-Default Outbound FidoNet NetMail Address:
-
-If you would like to automatically add a FidoNet address to outbound
-NetMail that does not have an address specified, set this option
-to that address. This is useful for Fido/UUCP gateway mail.
-Format: Zone:Net/Node[.Point]
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Outbound Address"
- ,str,25,K_EDIT)) {
- dflt_faddr=atofaddr(str);
- changes=1; }
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Default Origin Line:
-
-This is the default origin line used for sub-boards networked via
-EchoMail. This origin line can be overridden on a per sub-board basis
-with the sub-board configuration Network Options....
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"* Origin"
- ,origline,50,K_EDIT);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-NetMail Semaphore File:
-
-This is a filename that will be used as a semaphore (signal) to your
-FidoNet front-end that new NetMail has been created and the messages
-should be re-scanned.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"NetMail Semaphore"
- ,netmail_sem,50,K_EDIT|K_UPPER);
- break;
- case 4:
- SETHELP(WHERE);
-/*
-EchoMail Semaphore File:
-
-This is a filename that will be used as a semaphore (signal) to your
-FidoNet front-end that new EchoMail has been created and the messages
-should be re-scanned.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"EchoMail Semaphore"
- ,echomail_sem,50,K_EDIT|K_UPPER);
- break;
- case 5:
- SETHELP(WHERE);
-/*
-Inbound File Directory:
-
-This directory is where inbound files are placed. This directory is
-only used when an incoming message has a file attached.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Inbound Files"
- ,fidofile_dir,50,K_EDIT|K_UPPER);
- break;
- case 6:
- SETHELP(WHERE);
-/*
-EchoMail Base Directory:
-
-This is an optional field used as a base directory for the location
-of EchoMail messages for sub-boards that do not have a specified
-EchoMail Storage Directory. If a sub-board does not have a specified
-storage directory for EchoMail, its messages will be imported from and
-exported to a sub-directory off of this base directory. The name of the
-sub-directory is the same as the internal code for the sub-directory.
-
-If all EchoMail sub-boards have specified EchoMail storage directories,
-this option is not used at all.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"EchoMail Base"
- ,echomail_dir,50,K_EDIT|K_UPPER);
- break;
- case 7:
- SETHELP(WHERE);
-/*
-NetMail Directory:
-
-This is the directory where NetMail will be imported from and exported
-to.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"NetMail"
- ,netmail_dir,50,K_EDIT|K_UPPER);
- break;
- case 8:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Allow Users to Send NetMail:
-
-If you are on a FidoNet style network and want your users to be allowed
-to send NetMail, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Send NetMail",opt);
- if(!i && !(netmail_misc&NMAIL_ALLOW)) {
- changes=1;
- netmail_misc|=NMAIL_ALLOW; }
- else if(i==1 && netmail_misc&NMAIL_ALLOW) {
- changes=1;
- netmail_misc&=~NMAIL_ALLOW; }
- break;
- case 9:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Allow Users to Send NetMail File Attachments:
-
-If you are on a FidoNet style network and want your users to be allowed
-to send NetMail file attachments, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Send NetMail File Attachments",opt);
- if(!i && !(netmail_misc&NMAIL_FILE)) {
- changes=1;
- netmail_misc|=NMAIL_FILE; }
- else if(i==1 && netmail_misc&NMAIL_FILE) {
- changes=1;
- netmail_misc&=~NMAIL_FILE; }
- break;
- case 10:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Use Aliases in NetMail:
-
-If you allow aliases on your system and wish users to have their NetMail
-contain their alias as the From User, set this option to Yes. If you
-want all NetMail to be sent using users' real names, set this option to
-No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Use Aliases in NetMail",opt);
- if(!i && !(netmail_misc&NMAIL_ALIAS)) {
- changes=1;
- netmail_misc|=NMAIL_ALIAS; }
- else if(i==1 && netmail_misc&NMAIL_ALIAS) {
- changes=1;
- netmail_misc&=~NMAIL_ALIAS; }
- break;
- case 11:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-NetMail Defaults to Crash Status:
-
-If you want all NetMail to default to crash (send immediately) status,
-set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"NetMail Defaults to Crash Status",opt);
- if(!i && !(netmail_misc&NMAIL_CRASH)) {
- changes=1;
- netmail_misc|=NMAIL_CRASH; }
- else if(i==1 && netmail_misc&NMAIL_CRASH) {
- changes=1;
- netmail_misc&=~NMAIL_CRASH; }
- break;
- case 12:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-NetMail Defaults to Direct Status:
-
-If you want all NetMail to default to direct (send directly) status,
-set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"NetMail Defaults to Direct Status",opt);
- if(!i && !(netmail_misc&NMAIL_DIRECT)) {
- changes=1;
- netmail_misc|=NMAIL_DIRECT; }
- else if(i==1 && netmail_misc&NMAIL_DIRECT) {
- changes=1;
- netmail_misc&=~NMAIL_DIRECT; }
- break;
- case 13:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-NetMail Defaults to Hold Status:
-
-If you want all NetMail to default to hold status, set this option to
-Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"NetMail Defaults to Hold Status",opt);
- if(!i && !(netmail_misc&NMAIL_HOLD)) {
- changes=1;
- netmail_misc|=NMAIL_HOLD; }
- else if(i==1 && netmail_misc&NMAIL_HOLD) {
- changes=1;
- netmail_misc&=~NMAIL_HOLD; }
- break;
- case 14:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Kill NetMail After it is Sent:
-
-If you want NetMail messages to be deleted after they are successfully
-sent, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Kill NetMail After it is Sent",opt);
- if(!i && !(netmail_misc&NMAIL_KILL)) {
- changes=1;
- netmail_misc|=NMAIL_KILL; }
- else if(i==1 && netmail_misc&NMAIL_KILL) {
- changes=1;
- netmail_misc&=~NMAIL_KILL; }
- break;
- case 15:
- ultoa(netmail_cost,str,10);
- SETHELP(WHERE);
-/*
-Cost in Credits to Send NetMail:
-
-This is the number of credits it will cost your users to send NetMail.
-If you want the sending of NetMail to be free, set this value to 0.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Cost in Credits to Send NetMail"
- ,str,10,K_EDIT|K_NUMBER);
- netmail_cost=atol(str);
- break; } } }
- else if(i==2) {
- done=0;
- while(!done) {
- i=0;
- strcpy(opt[i++],"Network Hubs...");
- sprintf(opt[i++],"%-20.20s%-12s","Site Name",sys_psname);
- sprintf(opt[i++],"%-20.20s%-lu","Site Number",sys_psnum);
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-PostLink Networks:
-
-From this menu you can configure the default tagline to use for
-outgoing messages on QWK networked sub-boards, or you can select
-Network Hubs... to add, delete, or configure QWK hubs that your system
-calls to exchange packets with.
-*/
- i=ulist(WIN_ACT|WIN_RHT|WIN_BOT|WIN_CHE,0,0,0,&pnet_dflt,0
- ,"PostLink Networks",opt);
- savnum=0;
- switch(i) {
- case -1: /* ESC */
- done=1;
- break;
- case 1:
- SETHELP(WHERE);
-/*
-PostLink Site Name:
-
-If your system is networked via PostLink or PCRelay, this should be the
-Site Name for your BBS.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Site Name"
- ,sys_psname,12,K_UPPER|K_EDIT);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-PostLink Site Number:
-
-If your system is networked via PostLink or PCRelay, this should be the
-Site Number for your BBS.
-*/
- ultoa(sys_psnum,str,10);
- uinput(WIN_MID|WIN_SAV,0,0,"Site Number"
- ,str,10,K_NUMBER|K_EDIT);
- sys_psnum=atol(str);
- break;
- case 0:
- while(1) {
- for(i=0;i<total_phubs && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-10.10s",phub[i]->name);
- opt[i][0]=0;
- i=WIN_ACT|WIN_RHT|WIN_SAV;
- if(total_phubs<MAX_OPTS)
- i|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(total_phubs)
- i|=WIN_DEL;
- savnum=0;
- SETHELP(WHERE);
-/*
-PostLink Network Hubs:
-
-This is a list of PostLink and/or PCRelay network hubs that your system
-calls to exchange packets with.
-
-To add a hub, select the desired location with the arrow keys and hit
- INS .
-
-To delete a hub, select it and hit DEL .
-
-To configure a hub, select it and hit ENTER .
-*/
- i=ulist(i,0,0,0,&phub_dflt,0
- ,"PostLink Hubs",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((phub=(phub_t **)REALLOC(phub
- ,sizeof(phub_t *)*(total_phubs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr
- ,sizeof(phub_t *)*(total_phubs+1));
- total_phubs=0;
- bail(1);
- continue; }
-
- savnum=1;
- SETHELP(WHERE);
-/*
-Network Hub Site Name:
-
-This is the Site Name of this hub. It is used for only for reference.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Site Name",str,10,K_UPPER)<1)
- continue;
-
- for(j=total_phubs;j>i;j--)
- phub[j]=phub[j-1];
-
- if((phub[i]=(phub_t *)MALLOC(sizeof(phub_t)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr
- ,sizeof(phub_t));
- continue; }
- memset(phub[i],0,sizeof(phub_t));
- strcpy(phub[i]->name,str);
- strcpy(phub[i]->call,"%!pnet");
- phub[i]->node=1;
- phub[i]->days=0xff; /* all days */
- total_phubs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(phub[i]);
- total_phubs--;
- while(i<total_phubs) {
- phub[i]=phub[i+1];
- i++; }
- changes=1;
- continue; }
- phub_edit(i); }
- break; } } }
-
- else if(i==3) { /* Internet */
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s"
- ,"System Address",sys_inetaddr);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"NetMail Semaphore",inetmail_sem);
- sprintf(opt[i++],"%-27.27s%s"
- ,"Allow Sending of NetMail"
- ,inetmail_misc&NMAIL_ALLOW ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Allow File Attachments"
- ,inetmail_misc&NMAIL_FILE ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Send NetMail Using Alias"
- ,inetmail_misc&NMAIL_ALIAS ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%lu"
- ,"Cost to Send NetMail",inetmail_cost);
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-Internet NetMail:
-
-This menu contains configuration options that pertain specifically to
-Internet E-mail (NetMail). To utilize these options, you must own
-a Synchronet compatible UUCP/Internet gateway (e.g. SyncUUCP).
-*/
- i=ulist(WIN_ACT|WIN_MID|WIN_CHE,0,0,60,&inet_dflt,0
- ,"Internet NetMail",opt);
- savnum=0;
- switch(i) {
- case -1: /* ESC */
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Sytem Internet Address:
-
-If your system has an Internet mail feed, enter your system's Internet
-address here (e.g. joesbbs.com).
-*/
- uinput(WIN_MID|WIN_SAV,0,0,""
- ,sys_inetaddr,60,K_EDIT);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Internet NetMail Semaphore File:
-
-This is a filename that will be used as a semaphore (signal) to your
-Internet gateway (if supported) that new mail has been created and the
-message base should be re-scanned.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Semaphore File"
- ,inetmail_sem,50,K_EDIT|K_UPPER);
- break;
-
- case 2:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Allow Users to Send Internet NetMail:
-
-If your system has an Internet uplink and you want your users to be
-allowed to send Internet NetMail, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Send NetMail",opt);
- if(!i && !(inetmail_misc&NMAIL_ALLOW)) {
- changes=1;
- inetmail_misc|=NMAIL_ALLOW; }
- else if(i==1 && inetmail_misc&NMAIL_ALLOW) {
- changes=1;
- inetmail_misc&=~NMAIL_ALLOW; }
- break;
-
- case 3:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Allow Users to Send Internet NetMail File Attachments:
-
-If your system has an Internet uplink and you want your users to be
-allowed to send Internet NetMail file attachments, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Send NetMail File Attachments",opt);
- if(!i && !(inetmail_misc&NMAIL_FILE)) {
- changes=1;
- inetmail_misc|=NMAIL_FILE; }
- else if(i==1 && inetmail_misc&NMAIL_FILE) {
- changes=1;
- inetmail_misc&=~NMAIL_FILE; }
- break;
- case 4:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Use Aliases in NetMail:
-
-If you allow aliases on your system and wish users to have their NetMail
-contain their alias as the From User, set this option to Yes. If you
-want all NetMail to be sent using users' real names, set this option to
-No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Use Aliases in NetMail",opt);
- if(!i && !(inetmail_misc&NMAIL_ALIAS)) {
- changes=1;
- inetmail_misc|=NMAIL_ALIAS; }
- else if(i==1 && inetmail_misc&NMAIL_ALIAS) {
- changes=1;
- inetmail_misc&=~NMAIL_ALIAS; }
- break;
- case 5:
- ultoa(inetmail_cost,str,10);
- SETHELP(WHERE);
-/*
-Cost in Credits to Send NetMail:
-
-This is the number of credits it will cost your users to send NetMail.
-If you want the sending of NetMail to be free, set this value to 0.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Cost in Credits to Send NetMail"
- ,str,10,K_EDIT|K_NUMBER);
- inetmail_cost=atol(str);
- break; } } }
-
- else { /* ESC */
- i=save_changes(WIN_MID|WIN_SAV);
- if(i==-1)
- continue;
- if(!i)
- write_msgs_cfg();
- break; } }
-}
-
-void qhub_edit(int num)
-{
- static int qhub_dflt;
- char *p,done=0,str[256];
- int i,j,k,n;
-
-while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","Hub System ID",qhub[num]->id);
- sprintf(opt[i++],"%-27.27s%.40s","Pack Command Line",qhub[num]->pack);
- sprintf(opt[i++],"%-27.27s%.40s","Unpack Command Line",qhub[num]->unpack);
- sprintf(opt[i++],"%-27.27s%.40s","Call-out Command Line",qhub[num]->call);
- sprintf(opt[i++],"%-27.27s%u","Call-out Node",qhub[num]->node);
- sprintf(opt[i++],"%-27.27s%s","Call-out Days",daystr(qhub[num]->days));
- if(qhub[num]->freq) {
- sprintf(str,"%u times a day",1440/qhub[num]->freq);
- sprintf(opt[i++],"%-27.27s%s","Call-out Frequency",str); }
- else {
- sprintf(str,"%2.2d:%2.2d",qhub[num]->time/60,qhub[num]->time%60);
- sprintf(opt[i++],"%-27.27s%s","Call-out Time",str); }
- strcpy(opt[i++],"Networked Sub-boards...");
- opt[i][0]=0;
- sprintf(str,"%s Network Hub",qhub[num]->id);
- savnum=1;
- SETHELP(WHERE);
-/*
-QWK Network Hub Configuration:
-
-This menu allows you to configure options specific to this QWK network
-hub.
-*/
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,0,&qhub_dflt,0
- ,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-QWK Network Hub System ID:
-
-This is the QWK System ID of this hub. It is used for incoming and
-outgoing network packets and must be accurate.
-*/
- strcpy(str,qhub[num]->id); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,0,"QWK Network Hub System ID"
- ,qhub[num]->id,8,K_UPPER|K_EDIT))
- strcpy(qhub[num]->id,str);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-REP Packet Creation Command:
-
-This is the command line to use to create (compress) REP packets for
-this QWK network hub.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Packet Creation"
- ,qhub[num]->pack,50,K_EDIT);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-QWK Packet Extraction Command:
-
-This is the command line to use to extract (decompress) QWK packets from
-this QWK network hub.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Packet Extraction"
- ,qhub[num]->unpack,50,K_EDIT);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-QWK Network Hub Call-out Command Line:
-
-This is the command line to use to initiate a call-out to this QWK
-network hub.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Call-out Command"
- ,qhub[num]->call,50,K_EDIT);
- break;
- case 4:
- sprintf(str,"%u",qhub[num]->node);
- SETHELP(WHERE);
-/*
-Node to Perform Call-out:
-
-This is the number of the node to perform the call-out for this QWK
-network hub.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Node to Perform Call-out",str,3,K_EDIT|K_NUMBER);
- qhub[num]->node=atoi(str);
- break;
- case 5:
- j=0;
- while(1) {
- for(i=0;i<7;i++)
- sprintf(opt[i],"%s %s"
- ,wday[i],(qhub[num]->days&(1<<i)) ? "Yes":"No");
- opt[i][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Days to Perform Call-out:
-
-These are the days that a call-out will be performed for this QWK
-network hub.
-*/
- i=ulist(WIN_MID,0,0,0,&j,0
- ,"Days to Perform Call-out",opt);
- if(i==-1)
- break;
- qhub[num]->days^=(1<<i);
- changes=1; }
- break;
- case 6:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Perform Call-out at a Specific Time:
-
-If you want the system call this QWK network hub at a specific time,
-set this option to Yes. If you want the system to call this network
-hub more than once a day at predetermined intervals, set this option to
-No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Perform Call-out at a Specific Time",opt);
- if(i==0) {
- sprintf(str,"%2.2d:%2.2d",qhub[num]->time/60
- ,qhub[num]->time%60);
- SETHELP(WHERE);
-/*
-Time to Perform Call-out:
-
-This is the time (in 24 hour HH:MM format) to perform the call-out to
-this QWK network hub.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Time to Perform Call-out (HH:MM)"
- ,str,5,K_UPPER|K_EDIT)>0) {
- qhub[num]->freq=0;
- qhub[num]->time=atoi(str)*60;
- if((p=strchr(str,':'))!=NULL)
- qhub[num]->time+=atoi(p+1); } }
- else if(i==1) {
- sprintf(str,"%u",qhub[num]->freq
- && qhub[num]->freq<=1440 ? 1440/qhub[num]->freq : 0);
- SETHELP(WHERE);
-/*
-Number of Call-outs Per Day:
-
-This is the maximum number of times the system will perform a call-out
-per day to this QWK network hub. This value is actually converted by
-Synchronet into minutes between call-outs and when the BBS is idle
-and this number of minutes since the last call-out is reached, it will
-perform a call-out.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Number of Call-outs Per Day"
- ,str,4,K_NUMBER|K_EDIT)>0) {
- qhub[num]->time=0;
- i=atoi(str);
- if(i && i<=1440)
- qhub[num]->freq=1440/i;
- else
- qhub[num]->freq=0; } }
- break;
- case 7:
- qhub_sub_edit(num);
- break; } }
-}
-
-void qhub_sub_edit(uint num)
-{
- char str[256];
- int i,j,k,l,m,n,bar=0;
-
-k=0;
-while(1) {
- for(j=0;j<qhub[num]->subs;j++)
- sprintf(opt[j],"%-*.*s %-*.*s"
- ,LEN_GSNAME,LEN_GSNAME
- ,grp[sub[qhub[num]->sub[j]]->grp]->sname
- ,LEN_SSNAME,LEN_SSNAME
- ,sub[qhub[num]->sub[j]]->sname);
- opt[j][0]=0;
- savnum=2;
- j=WIN_BOT|WIN_SAV|WIN_ACT;
- if(qhub[num]->subs<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(qhub[num]->subs)
- j|=WIN_DEL;
- SETHELP(WHERE);
-/*
-QWK Networked Sub-boards:
-
-This is a list of the sub-boards that are networked with this QWK
-network hub.
-
-To add a sub-board, select the desired location and hit INS .
-
-To remove a sub-board, select it and hit DEL .
-
-To configure a sub-board for this QWK network hub, select it and hit
- ENTER .
-*/
- j=ulist(j,0,0,0,&k,&bar
- ,"Networked Sub-boards",opt);
- if(j==-1)
- break;
- if((j&MSK_ON)==MSK_INS) {
- j&=MSK_OFF;
- savnum=3;
- if((l=getsub())==-1)
- continue;
- savnum=3;
- SETHELP(WHERE);
-/*
-Conference Number on Hub:
-
-This is the number of the conference on the QWK network hub, that this
-sub-board is networked with. On Synchronet systems, this number is
-derived by multiplying the group number by 10 and adding the sub-board
-number. For example, group 2, sub-board 3, is conference number 203.
-
-It is important to understand that this is NOT the conference number of
-this sub-board on your system. It is the number of the conference this
-sub-board is networked with on this QWK network hub.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Conference Number on Hub"
- ,str,5,K_NUMBER)<1)
- continue;
- strcpy(opt[0],"Strip out");
- strcpy(opt[1],"Leave in");
- strcpy(opt[2],"Expand to ANSI");
- opt[3][0]=0;
- m=0;
- SETHELP(WHERE);
-/*
-Ctrl-A Codes:
-
-You are being prompted for the method of handling Ctrl-A attribute codes
-generated by Synchronet. If this QWK network hub is a Synchronet BBS,
-set this option to Leave in. If the QWK network hub is not a Synchronet
-BBS, but allows ANSI escape sequences in messages, set this option to
-Expand to ANSI. If the QWK network hub is not a Synchronet BBS and does
-not support ANSI escape sequences in messages (or you're not sure), set
-this option to Strip out.
-*/
- if((m=ulist(WIN_MID|WIN_SAV,0,0,0,&m,0
- ,"Ctrl-A Codes",opt))==-1)
- continue;
- if((qhub[num]->sub=(ushort *)REALLOC(qhub[num]->sub
- ,sizeof(ushort *)*(qhub[num]->subs+1)))==NULL
- || (qhub[num]->conf=(ushort *)REALLOC(qhub[num]->conf
- ,sizeof(ushort *)*(qhub[num]->subs+1)))==NULL
- || (qhub[num]->mode=(uchar *)REALLOC(qhub[num]->mode
- ,sizeof(uchar *)*(qhub[num]->subs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,qhub[num]->subs+1);
- continue; }
- if(qhub[num]->subs) /* insert */
- for(n=qhub[num]->subs;n>j;n--) {
- qhub[num]->sub[n]=qhub[num]->sub[n-1];
- qhub[num]->conf[n]=qhub[num]->conf[n-1];
- qhub[num]->mode[n]=qhub[num]->mode[n-1]; }
- if(!m)
- qhub[num]->mode[j]=A_STRIP;
- else if(m==1)
- qhub[num]->mode[j]=A_LEAVE;
- else
- qhub[num]->mode[j]=A_EXPAND;
- qhub[num]->sub[j]=l;
- qhub[num]->conf[j]=atoi(str);
- qhub[num]->subs++;
- changes=1;
- continue; }
- if((j&MSK_ON)==MSK_DEL) {
- j&=MSK_OFF;
- qhub[num]->subs--;
- while(j<qhub[num]->subs) {
- qhub[num]->sub[j]=qhub[num]->sub[j+1];
- qhub[num]->mode[j]=qhub[num]->mode[j+1];
- qhub[num]->conf[j]=qhub[num]->conf[j+1];
- j++; }
- changes=1;
- continue; }
- l=0;
- while(1) {
- n=0;
- sprintf(opt[n++],"%-22.22s%.*s %.*s"
- ,"Sub-board"
- ,LEN_GSNAME
- ,grp[sub[qhub[num]->sub[j]]->grp]->sname
- ,LEN_SSNAME
- ,sub[qhub[num]->sub[j]]->sname);
- sprintf(opt[n++],"%-22.22s%u"
- ,"Conference Number",qhub[num]->conf[j]);
- sprintf(opt[n++],"%-22.22s%s"
- ,"Ctrl-A Codes",qhub[num]->mode[j]==A_STRIP ?
- "Strip out" : qhub[num]->mode[j]==A_LEAVE ?
- "Leave in" : "Expand to ANSI");
- opt[n][0]=0;
- savnum=3;
- SETHELP(WHERE);
-/*
-QWK Netted Sub-board:
-
-You are configuring the options for this sub-board for this QWK network
-hub.
-*/
- l=ulist(WIN_MID|WIN_SAV|WIN_ACT,0,0,
- 22+LEN_GSNAME+LEN_SSNAME,&l,0
- ,"Netted Sub-board",opt);
- if(l==-1)
- break;
- if(!l) {
- savnum=4;
- m=getsub();
- if(m!=-1) {
- qhub[num]->sub[j]=m;
- changes=1; } }
- else if(l==1) {
- savnum=4;
- SETHELP(WHERE);
-/*
-Conference Number on Hub:
-
-This is the number of the conference on the QWK network hub, that this
-sub-board is networked with. On Synchronet systems, this number is
-derived by multiplying the group number by 10 and adding the sub-board
-number. For example, group 2, sub-board 3, is conference number 203.
-
-It is important to understand that this is NOT the conference number of
-this sub-board on your system. It is the number of the conference this
-sub-board is networked with on this QWK network hub.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Conference Number on Hub"
- ,str,5,K_NUMBER)>0)
- qhub[num]->conf[j]=atoi(str); }
- else if(l==2) {
- strcpy(opt[0],"Strip out");
- strcpy(opt[1],"Leave in");
- strcpy(opt[2],"Expand to ANSI");
- opt[3][0]=0;
- m=0;
- savnum=4;
- SETHELP(WHERE);
-/*
-Ctrl-A Codes:
-
-You are being prompted for the method of handling Ctrl-A attribute codes
-generated by Synchronet. If this QWK network hub is a Synchronet BBS,
-set this option to Leave in. If the QWK network hub is not a Synchronet
-BBS, but allows ANSI escape sequences in messages, set this option to
-Expand to ANSI. If the QWK network hub is not a Synchronet BBS and does
-not support ANSI escape sequences in messages (or you're not sure), set
-this option to Strip out.
-*/
- m=ulist(WIN_MID|WIN_SAV,0,0,0,&m,0
- ,"Ctrl-A Codes",opt);
- changes=1;
- if(!m)
- qhub[num]->mode[j]=A_STRIP;
- else if(m==1)
- qhub[num]->mode[j]=A_LEAVE;
- else if(m==2)
- qhub[num]->mode[j]=A_EXPAND; } } }
-}
-
-void phub_edit(int num)
-{
- static int phub_dflt;
- char *p,done=0,str[256];
- int i,j,k,n;
-
-while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","Hub Site Name",phub[num]->name);
- sprintf(opt[i++],"%-27.27s%.40s","Call-out Command Line",phub[num]->call);
- sprintf(opt[i++],"%-27.27s%u","Call-out Node",phub[num]->node);
- sprintf(opt[i++],"%-27.27s%s","Call-out Days",daystr(phub[num]->days));
- if(phub[num]->freq) {
- sprintf(str,"%u times a day",1440/phub[num]->freq);
- sprintf(opt[i++],"%-27.27s%s","Call-out Frequency",str); }
- else {
- sprintf(str,"%2.2d:%2.2d",phub[num]->time/60
- ,phub[num]->time%60);
- sprintf(opt[i++],"%-27.27s%s","Call-out Time",str); }
- opt[i][0]=0;
- sprintf(str,"%s Network Hub",phub[num]->name);
- savnum=1;
- SETHELP(WHERE);
-/*
-PostLink Network Hub Configuration:
-
-This menu allows you to configure options specific to this network hub.
-*/
- switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,0,&phub_dflt,0
- ,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Network Hub Site Name:
-
-This is the Site Name of this hub. It is used for only for reference.
-*/
- strcpy(str,phub[num]->name); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,0,"Hub Site Name"
- ,phub[num]->name,10,K_UPPER|K_EDIT))
- strcpy(phub[num]->name,str); /* restore */
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Network Hub Call-out Command Line:
-
-This is the command line to use to initiate a call-out to this network
-hub.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Call-out Command"
- ,phub[num]->call,50,K_EDIT);
- break;
- case 2:
- sprintf(str,"%u",phub[num]->node);
- SETHELP(WHERE);
-/*
-Node to Perform Call-out:
-
-This is the number of the node to perform the call-out for this network
-hub.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Node to Perform Call-out",str,3,K_EDIT|K_NUMBER);
- phub[num]->node=atoi(str);
- break;
- case 3:
- j=0;
- while(1) {
- for(i=0;i<7;i++)
- sprintf(opt[i],"%s %s"
- ,wday[i],(phub[num]->days&(1<<i)) ? "Yes":"No");
- opt[i][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Days to Perform Call-out:
-
-These are the days that a call-out will be performed for this network
-hub.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Days to Perform Call-out",opt);
- if(i==-1)
- break;
- phub[num]->days^=(1<<i);
- changes=1; }
- break;
- case 4:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Perform Call-out at a Specific Time:
-
-If you want the system call this network hub at a specific time, set
-this option to Yes. If you want the system to call this hub more than
-once a day at predetermined intervals, set this option to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Perform Call-out at a Specific Time",opt);
- if(i==0) {
- sprintf(str,"%2.2d:%2.2d",phub[num]->time/60
- ,phub[num]->time%60);
- SETHELP(WHERE);
-/*
-Time to Perform Call-out:
-
-This is the time (in 24 hour HH:MM format) to perform the call-out to
-this network hub.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Time to Perform Call-out (HH:MM)"
- ,str,5,K_UPPER|K_EDIT)>0) {
- phub[num]->freq=0;
- phub[num]->time=atoi(str)*60;
- if((p=strchr(str,':'))!=NULL)
- phub[num]->time+=atoi(p+1); } }
- else if(i==1) {
- sprintf(str,"%u",phub[num]->freq
- && phub[num]->freq<=1440 ? 1440/phub[num]->freq : 0);
- SETHELP(WHERE);
-/*
-Number of Call-outs Per Day:
-
-This is the maximum number of times the system will perform a call-out
-per day to this network hub. This value is actually converted by
-Synchronet into minutes between call-outs and when the BBS is idle
-and this number of minutes since the last call-out is reached, it will
-perform a call-out.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Number of Call-outs Per Day"
- ,str,4,K_NUMBER|K_EDIT)>0) {
- phub[num]->time=0;
- i=atoi(str);
- if(i && i<=1440)
- phub[num]->freq=1440/i;
- else
- phub[num]->freq=0; } }
- break; } }
-}
-
-char *daystr(char days)
-{
- static char str[256];
- int i;
-
-str[0]=0;
-for(i=0;i<7;i++) {
- if(days&(1<<i))
- strcat(str,wday[i]);
- else
- strcat(str," ");
- strcat(str," "); }
-return(str);
-}
diff --git a/src/sbbs2/scfg/scfgnode.c b/src/sbbs2/scfg/scfgnode.c
deleted file mode 100644
index ddb9155e8578a727cd5beccd08f72cab4fef4ad3..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgnode.c
+++ /dev/null
@@ -1,2163 +0,0 @@
-#line 2 "SCFGNODE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************************************************/
-/* Synchronet configuration utility */
-/****************************************************************************/
-
-#include "scfg.h"
-#include "spawno.h"
-
-int com_type()
-{
- int i;
-
-i=0;
-strcpy(opt[0],"UART");
-strcpy(opt[1],"FOSSIL Int 14h");
-strcpy(opt[2],"PC BIOS Int 14h");
-strcpy(opt[3],"PS/2 BIOS Int 14h");
-strcpy(opt[4],"DigiBoard Int 14h");
-opt[5][0]=0;
-SETHELP(WHERE);
-/*
-COM Port Type:
-
-Select the type of serial COM port for this node. If you are unsure,
-select UART. If you have a FOSSIL driver installed, you do not have to
-select FOSSIL unless you specifically want to override Synchronet's
-internal COM functions.
-*/
-i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"COM Port Type",opt);
-if(i==-1)
- return(0);
-changes=1;
-if(i) {
- com_irq=com_port-1;
- if(i==1) {
- savnum=0;
- umsg("WARNING: This is not a recommended setting for most systems");
- umsg("The default DSZ command lines will not work with this setting");
- com_base=0xf; }
- else if(i==2)
- com_base=0xb;
- else if(i==3)
- com_base=0xe;
- else if(i==4)
- com_base=0xd; }
-
-else { /* UART */
- if(com_port && com_port<5) {
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Use Default UART IRQ and I/O Address:
-
-If your COM Port's UART is using the normal IRQ and Base I/O Address
-for the configured COM Port number, select Yes. If your COM Port
-is using a non-standard IRQ or I/O Address, select No and be sure
-to set the UART IRQ and UART I/O Address options. If you are not
-sure what IRQ and I/O Address your COM Port is using, select Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Use Default UART IRQ and I/O Address"
- ,opt);
- if(i==0) {
- switch(com_port) {
- case 1:
- com_irq=4;
- com_base=0x3f8;
- break;
- case 2:
- com_irq=3;
- com_base=0x2f8;
- break;
- case 3:
- com_irq=4;
- com_base=0x3e8;
- break;
- case 4:
- com_irq=3;
- com_base=0x2e8;
- break; }
- changes=1;
- return(1); } }
- else {
- if(com_base<0x100)
- com_base=0x100;
- if(com_irq<2 || com_irq>15)
- com_irq=5; } }
-return(0);
-}
-
-void node_menu()
-{
- char done,str[81],savnode=0;
- int i,j;
- static int node_menu_dflt,node_bar;
-
-while(1) {
- for(i=0;i<sys_nodes;i++)
- sprintf(opt[i],"Node %d",i+1);
- opt[i][0]=0;
- j=WIN_ORG|WIN_ACT|WIN_INSACT|WIN_DELACT;
- if(sys_nodes>1)
- j|=WIN_DEL|WIN_GET;
- if(sys_nodes<MAX_NODES && sys_nodes<MAX_OPTS)
- j|=WIN_INS;
- if(savnode)
- j|=WIN_PUT;
-SETHELP(WHERE);
-/*
-Node List:
-
-This is the list of configured nodes in your system.
-
-To add a node, hit INS .
-
-To delete a node, hit DEL .
-
-To configure a node, select it using the arrow keys and hit ENTER .
-
-To copy a node's configuration to another node, first select the source
-node with the arrow keys and hit F5 . Then select the destination
-node and hit F6 .
-*/
-
- i=ulist(j,0,0,13,&node_menu_dflt,&node_bar,"Nodes",opt);
- if(i==-1) {
- if(savnode) {
- free_node_cfg();
- savnode=0; }
- return; }
-
- if((i&MSK_ON)==MSK_DEL) {
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- sprintf(str,"Delete Node %d",sys_nodes);
- i=1;
-SETHELP(WHERE);
-/*
-Delete Node:
-
-If you are positive you want to delete this node, select Yes. Otherwise,
-select No or hit ESC .
-*/
- i=ulist(WIN_MID,0,0,0,&i,0,str,opt);
- if(!i) {
- --sys_nodes;
- FREE(node_path[sys_nodes]);
- write_main_cfg(); }
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- strcpy(node_dir,node_path[sys_nodes-1]);
- i=sys_nodes+1;
- upop("Reading NODE.CNF...");
- read_node_cfg(txt);
- upop(0);
- sprintf(str,"..\\NODE%d\\",i);
- sprintf(tmp,"Node %d Path",i);
-SETHELP(WHERE);
-/*
-Node Path:
-
-This is the path to this node's private directory where its separate
-configuration and data files are stored.
-
-The drive and directory of this path can be set to any valid DOS
-directory that can be accessed by ALL nodes and MUST NOT be on a RAM disk
-or other volatile media.
-
-If you want to abort the creation of this new node, hit ESC .
-*/
- j=uinput(WIN_MID,0,0,tmp,str,50,K_EDIT|K_UPPER);
- changes=0;
- if(j<2)
- continue;
- truncsp(str);
- if((node_path=(char **)REALLOC(node_path,sizeof(char *)*(sys_nodes+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sys_nodes+1);
- continue; }
- if((node_path[i-1]=MALLOC(strlen(str)+2))==NULL) {
- errormsg(WHERE,ERR_ALLOC,str,strlen(str)+2);
- continue; }
- strcpy(node_path[i-1],str);
- if(str[strlen(str)-1]=='\\')
- str[strlen(str)-1]=0;
- mkdir(str);
- node_num=++sys_nodes;
- sprintf(node_name,"Node %u",node_num);
- write_node_cfg();
- write_main_cfg();
- free_node_cfg();
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- if(savnode)
- free_node_cfg();
- i&=MSK_OFF;
- strcpy(node_dir,node_path[i]);
- upop("Reading NODE.CNF...");
- read_node_cfg(txt);
- upop(0);
- savnode=1;
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- strcpy(node_dir,node_path[i]);
- node_num=i+1;
- write_node_cfg();
- changes=1;
- continue; }
-
- if(savnode) {
- free_node_cfg();
- savnode=0; }
- strcpy(node_dir,node_path[i]);
- upop("Reading NODE.CNF...");
- read_node_cfg(txt);
- upop(0);
- if(node_num!=i+1) { /* Node number isn't right? */
- node_num=i+1; /* so fix it */
- write_node_cfg(); } /* and write it back */
- node_cfg();
-
- free_node_cfg(); }
-}
-
-void node_cfg()
-{
- static int node_dflt;
- char done,str[81];
- static int mdm_dflt,adv_dflt,tog_dflt,tog_bar;
- int i,j,dflt=0,bar=0;
-
-while(1) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","Name",node_name);
- sprintf(opt[i++],"%-27.27s%s","Phone Number",node_phone);
- sprintf(opt[i++],"%-27.27s%ubps","Minimum Connect Rate",node_minbps);
- sprintf(opt[i++],"%-27.27s%.40s","Logon Requirements",node_ar);
- sprintf(opt[i++],"%-27.27s%.40s","Local Text Editor",node_editor);
- sprintf(opt[i++],"%-27.27s%.40s","Local Text Viewer",node_viewer);
- sprintf(opt[i++],"%-27.27s%.40s","Configuration Command",scfg_cmd);
- sprintf(opt[i++],"%-27.27s%.40s","DOS Command Interpreter"
- ,node_comspec[0] ? node_comspec : "%COMSPEC%");
- strcpy(opt[i++],"Toggle Options...");
- strcpy(opt[i++],"Advanced Options...");
- strcpy(opt[i++],"Modem Configuration...");
- strcpy(opt[i++],"Wait for Call Number Keys...");
- strcpy(opt[i++],"Wait for Call Function Keys...");
- opt[i][0]=0;
- sprintf(str,"Node %d Configuration",node_num);
-SETHELP(WHERE);
-/*
-Node Configuration Menu:
-
-This is the node configuration menu. The options available from this
-menu will only affect the selected node's configuration.
-
-Options with a trailing ... will produce a sub-menu of more options.
-*/
- switch(ulist(WIN_ACT|WIN_CHE|WIN_BOT|WIN_RHT,0,0,60,&node_dflt,0
- ,str,opt)) {
- case -1:
- i=save_changes(WIN_MID);
- if(!i)
- write_node_cfg();
- if(i!=-1)
- return;
- break;
- case 0:
-SETHELP(WHERE);
-/*
-Node Name:
-
-This is the name of the selected node. It is used for documentary
-purposes only.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Name",node_name,40,K_EDIT);
- break;
- case 1:
-SETHELP(WHERE);
-/*
-Node Phone Number:
-
-This is the phone number to access the selected node. It is used for
-documentary purposes only.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Phone Number",node_phone,12,K_EDIT);
- break;
- case 2:
-SETHELP(WHERE);
-/*
-Minimum Connect Rate:
-
-This is the lowest modem connection speed allowed for the selected node.
-The speed is a decimal number representing bits per second (bps) or more
-inaccurately referred to as baud.
-
-If a user attempts to logon this node at a speed lower than the minimum
-connect rate, a message is displayed explaining the minimum connect
-rate and the user is disconnected.
-
-If the file TEXT\TOOSLOW.MSG exists, it will be displayed to the user
-before the user is disconnected.
-
-Users with the M exemption can log onto any node at any speed.
-*/
- sprintf(str,"%u",node_minbps);
- uinput(WIN_MID|WIN_SAV,0,10,"Minimum Connect Rate",str,5
- ,K_NUMBER|K_EDIT);
- node_minbps=atoi(str);
- break;
- case 3:
- sprintf(str,"Node %u Logon",node_num);
- getar(str,node_ar);
- break;
- case 4:
-SETHELP(WHERE);
-/*
-Local Text Editor:
-
-This is the command line to execute to edit text files locally in
-Synchronet. If this command line is blank, the default editor of the
-sysop (user #1) will be used.
-
-This command line can be used to create posts and e-mail locally, if the
-toggle option Use Editor for Messages is set to Yes.
-
-The %f command line specifier is used for the filename to edit.
-*/
- uinput(WIN_MID|WIN_SAV,0,13,"Editor",node_editor
- ,50,K_EDIT);
- break;
- case 5:
-SETHELP(WHERE);
-/*
-Local Text Viewer:
-
-This is the command line used to view log files from the wait for call
-screen.
-
-The %f command line specifier is used for the filename to view.
-*/
- uinput(WIN_MID|WIN_SAV,0,14,"Viewer",node_viewer
- ,50,K_EDIT);
- break;
- case 6:
-SETHELP(WHERE);
-/*
-Configuration Command Line:
-
-This is the command line used to launch the Synchronet configuration
-program (SCFG) from this node's Waiting for Call (WFC) screen.
-*/
- uinput(WIN_MID|WIN_SAV,0,14,"Configuration Command",scfg_cmd
- ,40,K_EDIT);
- break;
- case 7:
-SETHELP(WHERE);
-/*
-DOS Command Interpreter:
-
-This is the complete path to your DOS command interpreter (normally
-COMMAND.COM). Leaving this option blank (designated by %COMSPEC%)
-specifies that the path contained in the COMSPEC environment variable
-should be used.
-
-When running Synchronet for OS/2, this option should be set to:
-C:\OS2\MDOS\COMMAND.COM.
-*/
- uinput(WIN_MID|WIN_SAV,0,14,"DOS Command Interpreter"
- ,node_comspec,40,K_EDIT);
- break;
- case 8:
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","Alarm When Answering"
- ,node_misc&NM_ANSALARM ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Status Screen While WFC"
- ,node_misc&NM_WFCSCRN ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Total Msgs/Files on WFC"
- ,node_misc&NM_WFCMSGS ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Use Editor for Messages"
- ,node_misc&NM_LCL_EDIT ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Use EMS for Overlays"
- ,node_misc&NM_EMSOVL ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Allow Swapping"
- ,node_swap&SWAP_NONE ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s%s","Swap to EMS Memory"
- ,node_swap&SWAP_EMS ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Swap to XMS Memory"
- ,node_swap&SWAP_XMS ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Swap to Extended Memory"
- ,node_swap&SWAP_EXT ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Windows/OS2 Time Slice API"
- ,node_misc&NM_WINOS2 ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","DESQview Time Slice API"
- ,node_misc&NM_NODV ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s%s","DOS Idle Interrupts"
- ,node_misc&NM_INT28 ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Low Priority String Input"
- ,node_misc&NM_LOWPRIO ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Allow Logon by Number"
- ,node_misc&NM_NO_NUM ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s%s","Allow Logon by Real Name"
- ,node_misc&NM_LOGON_R ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Always Prompt for Password"
- ,node_misc&NM_LOGON_P ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Disable Local Inactivity"
- ,node_misc&NM_NO_INACT ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Disable Local Keyboard"
- ,node_misc&NM_NO_LKBRD ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Local System Protection"
- ,node_misc&NM_SYSPW ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s%s","Beep Locally"
- ,node_misc&NM_NOBEEP ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s%s","Allow 8-bit Remote Logons"
- ,node_misc&NM_7BITONLY ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s%s","Reset Video Between Calls"
- ,node_misc&NM_RESETVID ? "Yes":"No");
-
- opt[i][0]=0;
- savnum=0;
-SETHELP(WHERE);
-/*
-Node Toggle Options:
-
-This is the toggle options menu for the selected node's configuration.
-
-The available options from this menu can all be toggled between two or
-more states, such as Yes and No.
-*/
- switch(ulist(WIN_BOT|WIN_RHT|WIN_ACT|WIN_SAV,3,2,35,&tog_dflt
- ,&tog_bar,"Toggle Options",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
-SETHELP(WHERE);
-/*
-Alarm When Answering:
-
-Set this option to Yes if want this node to make an alarm sound each
-time it answers an incoming call. Usually, the modem's speaker is a
-sufficient alarm if one is desired.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,15,0,&i,0
- ,"Sound Alarm When Answering",opt);
- if(i==0 && !(node_misc&NM_ANSALARM)) {
- node_misc|=NM_ANSALARM;
- changes=1; }
- else if(i==1 && (node_misc&NM_ANSALARM)) {
- node_misc&=~NM_ANSALARM;
- changes=1; }
- break;
- case 1:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
-SETHELP(WHERE);
-/*
-Status Screen While WFC:
-
-If you want the current system statistics and current status of all
-active nodes to be displayed while this node is waiting for a caller,
-set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Display Status Screen While Waiting for Call",opt);
- if(i==0 && !(node_misc&NM_WFCSCRN)) {
- node_misc|=NM_WFCSCRN;
- changes=1; }
- else if(i==1 && (node_misc&NM_WFCSCRN)) {
- node_misc&=~NM_WFCSCRN;
- changes=1; }
- break;
- case 2:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
-SETHELP(WHERE);
-/*
-Total Messages and Files on WFC Status Screen:
-
-If you want the total number of messages and files to be retrieved
-and displayed on the WFC status screen, set this option to Yes.
-
-Setting this option to No will significantly reduce the amount of
-time required to retrieve the system statistics on systems with large
-numbers of message and file areas.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Display Total Messages and Files while WFC",opt);
- if(i==0 && !(node_misc&NM_WFCMSGS)) {
- node_misc|=(NM_WFCMSGS|NM_WFCSCRN);
- changes=1; }
- else if(i==1 && (node_misc&NM_WFCMSGS)) {
- node_misc&=~NM_WFCMSGS;
- changes=1; }
- break;
- case 3:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
-SETHELP(WHERE);
-/*
-Use Local Text Editor for Messages:
-
-If a local text editor command has been specified, it can be used to
-create messages (posts and e-mail) locally by setting this option to
-Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Use Local Text Editor to Create Messages",opt);
- if(i==0 && !(node_misc&NM_LCL_EDIT)) {
- node_misc|=NM_LCL_EDIT;
- changes=1; }
- else if(i==1 && (node_misc&NM_LCL_EDIT)) {
- node_misc&=~NM_LCL_EDIT;
- changes=1; }
- break;
- case 4:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
-SETHELP(WHERE);
-/*
-Use Available Expanded Memory (EMS) for Swapping Overlays:
-
-If you wish to use any available expanded memory (EMS) for swapping
-overlays, set this option to Yes. Swapping overlays to memory is much
-faster than swapping to disk.
-
-If this option is set to Yes, Synchronet will attempt to allocation 360K
-of EMS for swapping overlays into.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Use Available EMS for Overlays",opt);
- if(i==0 && !(node_misc&NM_EMSOVL)) {
- node_misc|=NM_EMSOVL;
- changes=1; }
- else if(i==1 && (node_misc&NM_EMSOVL)) {
- node_misc&=~NM_EMSOVL;
- changes=1; }
- break;
- case 5:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Allow Swapping:
-
-If this option is set to Yes, Synchronet will use one of the available
-Swap to options when swapping out of memory. If you have no Extended,
-EMS, or XMS memory available, and this option is set to Yes, Synchronet
-will swap to disk.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Allow Swapping",opt);
- if(i==0 && node_swap&SWAP_NONE) {
- node_swap&=~SWAP_NONE;
- changes=1; }
- else if(i==1 && !(node_swap&SWAP_NONE)) {
- node_swap|=SWAP_NONE;
- changes=1; }
- break;
- case 6:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Swap to EMS Memory:
-
-If this option is set to Yes, and the Allow Swapping option is set to
-Yes Synchronet will use EMS memory (when available) for swapping out
-of memory.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Swap to EMS Memory",opt);
- if(i==1 && node_swap&SWAP_EMS) {
- node_swap&=~SWAP_EMS;
- changes=1; }
- else if(i==0 && !(node_swap&SWAP_EMS)) {
- node_swap|=SWAP_EMS;
- changes=1; }
- break;
- case 7:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Swap to XMS Memory:
-
-If this option is set to Yes, and the Allow Swapping option is set to
-Yes Synchronet will use XMS memory (when available) for swapping out
-of memory.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Swap to XMS Memory",opt);
- if(i==1 && node_swap&SWAP_XMS) {
- node_swap&=~SWAP_XMS;
- changes=1; }
- else if(i==0 && !(node_swap&SWAP_XMS)) {
- node_swap|=SWAP_XMS;
- changes=1; }
- break;
- case 8:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Swap to Extended Memory:
-
-If this option is set to Yes, and the Allow Swapping option is set to
-Yes Synchronet will use non-XMS Extended memory (when available) for
-swapping out of memory.
-
-If you are running under a DOS multitasker (e.g. Windows, DESQview, or
-OS/2) set this option to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Swap to Extended Memory",opt);
- if(i==1 && node_swap&SWAP_EXT) {
- node_swap&=~SWAP_EXT;
- changes=1; }
- else if(i==0 && !(node_swap&SWAP_EXT)) {
- node_swap|=SWAP_EXT;
- changes=1; }
- break;
- case 9:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Windows/OS2 Time Slice API:
-
-If you wish to have Synchronet specifically use the Windows and OS/2
-API call to surrender time slices when in a low priority task, set this
-option to Yes. If setting this option to Yes causes erratic pauses
-or performance problems, leave the option on No. This type of behavior
-has been witnessed under Windows 3.1 when using this API call.
-
-If running in an OS/2 DOS session, you will most likely want this
-option set to Yes for the best aggregate performance for your system.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Use Windows/OS2 Time Slice API",opt);
- if(i==0 && !(node_misc&NM_WINOS2)) {
- node_misc|=NM_WINOS2;
- changes=1; }
- else if(i==1 && (node_misc&NM_WINOS2)) {
- node_misc&=~NM_WINOS2;
- changes=1; }
- break;
- case 10:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-DESQview Time Slice API:
-
-If this option is set to Yes, and this node is run under DESQview,
-Synchronet will use the DESQview Time Slice API calls for intelligent
-variable time slicing.
-
-Since Synchronet automatically detects DESQview, there is no harm in
-having this option set to Yes if you are not running DESQview. Only set
-this option to No, if you wish to disable the DESQview API for some
-reason.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"DESQview Time Slice API",opt);
- if(i==0 && node_misc&NM_NODV) {
- node_misc&=~NM_NODV;
- changes=1; }
- else if(i==1 && !(node_misc&NM_NODV)) {
- node_misc|=NM_NODV;
- changes=1; }
- break;
- case 11:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-DOS Idle Interrupts:
-
-If you want Synchronet to make DOS Idle Interrupts when waiting for user
-input or in other low priority loops, set this option to Yes.
-
-For best aggregate multinode performance under multitaskers, you should
-set this option to Yes.
-
-For best single node performance under multitaskers, you should set this
-option to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"DOS Idle Interrupts",opt);
- if(i==0 && !(node_misc&NM_INT28)) {
- node_misc|=NM_INT28;
- changes=1; }
- else if(i==1 && (node_misc&NM_INT28)) {
- node_misc&=~NM_INT28;
- changes=1; }
- break;
- case 12:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Low Priority String Input:
-
-Normally, Synchronet will not give up time slices (under a multitasker)
-when users are prompted for a string of characters. This is considered
-a high priority task.
-
-Setting this option to Yes will force Synchronet to give up time slices
-during string input, possibly causing jerky keyboard input from the
-user, but improving aggregate system performance under multitaskers.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Low Priority String Input",opt);
- if(i==0 && !(node_misc&NM_LOWPRIO)) {
- node_misc|=NM_LOWPRIO;
- changes=1; }
- else if(i==1 && (node_misc&NM_LOWPRIO)) {
- node_misc&=~NM_LOWPRIO;
- changes=1; }
- break;
- case 13:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Allow Logon by Number:
-
-If you want users to be able logon using their user number at the NN:
-set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Allow Logon by Number",opt);
- if(i==0 && node_misc&NM_NO_NUM) {
- node_misc&=~NM_NO_NUM;
- changes=1; }
- else if(i==1 && !(node_misc&NM_NO_NUM)) {
- node_misc|=NM_NO_NUM;
- changes=1; }
- break;
- case 14:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Allow Logon by Real Name:
-
-If you want users to be able logon using their real name as well as
-their alias, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Allow Logon by Real Name",opt);
- if(i==0 && !(node_misc&NM_LOGON_R)) {
- node_misc|=NM_LOGON_R;
- changes=1; }
- else if(i==1 && (node_misc&NM_LOGON_R)) {
- node_misc&=~NM_LOGON_R;
- changes=1; }
- break;
- case 15:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Always Prompt for Password:
-
-If you want to have attempted logons using an unknown user name still
-prompt for a password, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Always Prompt for Password",opt);
- if(i==0 && !(node_misc&NM_LOGON_P)) {
- node_misc|=NM_LOGON_P;
- changes=1; }
- else if(i==1 && (node_misc&NM_LOGON_P)) {
- node_misc&=~NM_LOGON_P;
- changes=1; }
- break;
- case 16:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Disable Local Inactivity Warning/Logoff:
-
-Setting this option to Yes will disable the user inactivity warning
-and automatic logoff for local logons.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Disable Local Inactivity",opt);
- if(i==0 && !(node_misc&NM_NO_INACT)) {
- node_misc|=NM_NO_INACT;
- changes=1; }
- else if(i==1 && (node_misc&NM_NO_INACT)) {
- node_misc&=~NM_NO_INACT;
- changes=1; }
- break;
- case 17:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Disable Local Keyboard (Entirely):
-
-Setting this option to Yes will disable the local keyboard when the
-BBS is running. Use this option only for the absolute highest degree
-of local system security. If this option is set to Yes, the BBS cannot
-be exited until the node is downed from another process or the machine
-is rebooted.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Disable Local Keyboard (Entirely)",opt);
- if(i==0 && !(node_misc&NM_NO_LKBRD)) {
- node_misc|=NM_NO_LKBRD;
- changes=1; }
- else if(i==1 && (node_misc&NM_NO_LKBRD)) {
- node_misc&=~NM_NO_LKBRD;
- changes=1; }
- break;
- case 18:
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Local System Protection:
-
-When this option is set to Yes, all local system functions from the
-Waiting for Call screen and Alt-Key combinations will require the user
-to enter the system password.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Local System Protection (Password)",opt);
- if(i==0 && !(node_misc&NM_SYSPW)) {
- node_misc|=NM_SYSPW;
- changes=1; }
- else if(i==1 && (node_misc&NM_SYSPW)) {
- node_misc&=~NM_SYSPW;
- changes=1; }
- break;
- case 19:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Beep Locally:
-
-If you want the local speaker to be disabled for online beeps, set this
-option to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Beep Locally",opt);
- if(i==1 && !(node_misc&NM_NOBEEP)) {
- node_misc|=NM_NOBEEP;
- changes=1; }
- else if(i==0 && (node_misc&NM_NOBEEP)) {
- node_misc&=~NM_NOBEEP;
- changes=1; }
- break;
- case 20:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Allow 8-bit Remote Input During Logon:
-
-If you wish to allow E-7-1 terminals to use this node, you must set this
-option to No. This will also eliminate the ability of 8-bit remote users
-to send IBM extended ASCII characters during the logon sequence.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Allow 8-bit Remote Input During Logon",opt);
- if(i==1 && !(node_misc&NM_7BITONLY)) {
- node_misc|=NM_7BITONLY;
- changes=1; }
- else if(i==0 && (node_misc&NM_7BITONLY)) {
- node_misc&=~NM_7BITONLY;
- changes=1; }
- break;
- case 21:
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=1;
- SETHELP(WHERE);
-/*
-Reset Video Mode Between Calls:
-
-If you wish to have SBBS reset the video mode between calls, set this
-option to Yes. This is to reverse the effects of some external programs
-that change the video mode without permission.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,10,0,&i,0
- ,"Reset Video Mode Beteween Calls",opt);
- if(i==0 && !(node_misc&NM_RESETVID)) {
- node_misc|=NM_RESETVID;
- changes=1; }
- else if(i==1 && (node_misc&NM_RESETVID)) {
- node_misc&=~NM_RESETVID;
- changes=1; }
- break;
- } }
- break;
- case 9:
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","Validation User"
- ,node_valuser ? itoa(node_valuser,tmp,10) : "Nobody");
- sprintf(opt[i++],"%-27.27s%s","Screen Length"
- ,node_scrnlen ? itoa(node_scrnlen,tmp,10)
- : "Auto-Detect");
- sprintf(opt[i++],"%-27.27s%s","Screen Blanker"
- ,node_scrnblank ? itoa(node_scrnblank,tmp,10)
- : "Disabled");
- sprintf(opt[i++],"%-27.27s%u seconds","Semaphore Frequency"
- ,node_sem_check);
- sprintf(opt[i++],"%-27.27s%u seconds","Statistics Frequency"
- ,node_stat_check);
- sprintf(opt[i++],"%-27.27s%u seconds","Inactivity Warning"
- ,sec_warn);
- sprintf(opt[i++],"%-27.27s%u seconds","Inactivity Disconnection"
- ,sec_hangup);
- sprintf(tmp,"$%d.00",node_dollars_per_call);
- sprintf(opt[i++],"%-27.27s%s","Cost Per Call",tmp);
- sprintf(opt[i++],"%-27.27s%.40s","Daily Event",node_daily);
- sprintf(opt[i++],"%-27.27s%.40s","Control Directory",ctrl_dir);
- sprintf(opt[i++],"%-27.27s%.40s","Text Directory",text_dir);
- sprintf(opt[i++],"%-27.27s%.40s","Temporary Directory"
- ,temp_dir);
- sprintf(opt[i++],"%-27.27s%.40s","Swap Directory"
- ,node_swapdir);
- opt[i][0]=0;
- savnum=0;
-SETHELP(WHERE);
-/*
-Node Advanced Options:
-
-This is the advanced options menu for the selected node. The available
-options are of an advanced nature and should not be modified unless you
-are sure of the consequences and necessary preparation.
-*/
- switch(ulist(WIN_T2B|WIN_RHT|WIN_ACT|WIN_SAV,2,0,60,&adv_dflt,0
- ,"Advanced Options",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- itoa(node_valuser,str,10);
-SETHELP(WHERE);
-/*
-Validation User Number:
-
-When a caller logs onto the system as New, he or she must send
-validation feedback to the sysop. This feature can be disabled by
-setting this value to 0, allowing new users to logon without sending
-validation feedback. If you want new users on this node to be forced to
-send validation feedback, set this value to the number of the user to
-whom the feedback is sent. The normal value of this option is 1 for
-user number one.
-*/
- uinput(WIN_MID,0,13,"Validation User Number (0=Nobody)"
- ,str,4,K_NUMBER|K_EDIT);
- node_valuser=atoi(str);
- break;
- case 1:
- itoa(node_scrnlen,str,10);
-SETHELP(WHERE);
-/*
-Screen Length:
-
-Synchronet automatically senses the number of lines on your display and
-uses all of them. If for some reason you want to override the detected
-screen length, set this value to the number of lines (rows) you want
-Synchronet to use.
-*/
- uinput(WIN_MID,0,14,"Screen Length (0=Auto-Detect)"
- ,str,2,K_NUMBER|K_EDIT);
- node_scrnlen=atoi(str);
- break;
- case 2:
- itoa(node_scrnblank,str,10);
-SETHELP(WHERE);
-/*
-Screen Blanker:
-
-This option allows you to have this node blank its Waiting for Call
-screen after this number of minutes of inactivity. Setting this option
-to 0 disables the screen blanker.
-*/
- uinput(WIN_MID|WIN_SAV,0,14
- ,"Minutes Inactive Before Blanking Screen "
- "(0=Disabled)"
- ,str,2,K_NUMBER|K_EDIT);
- node_scrnblank=atoi(str);
- break;
- case 3:
- itoa(node_sem_check,str,10);
-SETHELP(WHERE);
-/*
-Semaphore Check Frequency While Waiting for Call (in seconds):
-
-This is the number of seconds between semaphore checks while this node
-is waiting for a caller. Default is 60 seconds.
-*/
- uinput(WIN_MID|WIN_SAV,0,14
- ,"Seconds Between Semaphore Checks"
- ,str,3,K_NUMBER|K_EDIT);
- node_sem_check=atoi(str);
- break;
- case 4:
- itoa(node_stat_check,str,10);
-SETHELP(WHERE);
-/*
-Statistics Check Frequency While Waiting for Call (in seconds):
-
-This is the number of seconds between static checks while this node
-is waiting for a caller. Default is 10 seconds.
-*/
- uinput(WIN_MID|WIN_SAV,0,14
- ,"Seconds Between Statistic Checks"
- ,str,3,K_NUMBER|K_EDIT);
- node_stat_check=atoi(str);
- break;
- case 5:
- itoa(sec_warn,str,10);
-SETHELP(WHERE);
-/*
-Seconds Before Inactivity Warning:
-
-This is the number of seconds the user must be inactive before a
-warning will be given. Default is 180 seconds.
-*/
- uinput(WIN_MID|WIN_SAV,0,14
- ,"Seconds Before Inactivity Warning"
- ,str,4,K_NUMBER|K_EDIT);
- sec_warn=atoi(str);
- break;
- case 6:
- itoa(sec_hangup,str,10);
-SETHELP(WHERE);
-/*
-Seconds Before Inactivity Disconnection:
-
-This is the number of seconds the user must be inactive before they
-will be automatically disconnected. Default is 300 seconds.
-*/
- uinput(WIN_MID|WIN_SAV,0,14
- ,"Seconds Before Inactivity Disconnection"
- ,str,4,K_NUMBER|K_EDIT);
- sec_hangup=atoi(str);
- break;
- case 7:
- itoa(node_dollars_per_call,str,10);
-SETHELP(WHERE);
-/*
-Billing Node Cost Per Call:
-
-If you have an automated billing phone number (usually area code 900
-or prefix 976) and you wish to use this node as an automated billing
-node, set this value to the dollar amount that is billed for the first
-minute. Subsequent minutes should be charged the minimum amount as the
-maximum connect time for a billing node is 90 seconds.
-
-If this feature is used, when a caller connects to the node, he or she
-will be notified of the eminent charge amount if they do not drop
-carrier within the allotted free period. If the caller is still
-connected after 30 seconds, he or she will be prompted to enter a valid
-user name or number. After a valid user name or number has been entered,
-the caller is disconnected and the entered user is immediately given the
-purchased credits based on this dollar amount multiplied by the
-Credits per Dollar system option.
-*/
- uinput(WIN_MID,0,0,"Billing Node Cost Per Call "
- "(in dollars)",str,2,K_NUMBER|K_EDIT);
- node_dollars_per_call=atoi(str);
- break;
- case 8:
-SETHELP(WHERE);
-/*
-Daily Event:
-
-If you have an event that this node should run every day, enter the
-command line for that event here.
-
-An event can be any valid DOS command line. If multiple programs or
-commands are required, use a batch file.
-
-Remember: The %! command line specifier is an abreviation for your
- configured EXEC directory path.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Daily Event"
- ,node_daily,50,K_EDIT);
- break;
- case 9:
- strcpy(str,ctrl_dir);
- if(strstr(str,"\\CTRL\\")!=NULL)
- *strstr(str,"\\CTRL\\")=0;
-SETHELP(WHERE);
-/*
-Control Directory Parent:
-
-Your control directory contains important configuration and data files
-that ALL nodes share. This directory MUST NOT be located on a RAM disk
-or other volatile media.
-
-This option allows you to change the parent of your control directory.
-The \CTRL\ suffix (sub-directory) cannot be changed or removed.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,9,"Control Dir Parent"
- ,str,50,K_EDIT|K_UPPER)>0) {
- if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
- strcat(str,"CTRL\\");
- strcpy(ctrl_dir,str); }
- break;
- case 10:
- strcpy(str,text_dir);
- if(strstr(str,"\\TEXT\\")!=NULL)
- *strstr(str,"\\TEXT\\")=0;
-SETHELP(WHERE);
-/*
-Text Directory Parent:
-
-Your text directory contains read-only text files. Synchronet never
-writes to any files in this directory so it CAN be placed on a RAM
-disk or other volatile media. This directory contains the system's menus
-and other important text files, so be sure the files and directories are
-moved to this directory if you decide to change it.
-
-This option allows you to change the parent of your control directory.
-The \TEXT\ suffix (sub-directory) cannot be changed or removed.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,10,"Text Dir Parent"
- ,str,50,K_EDIT|K_UPPER)>0) {
- if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
- strcat(str,"TEXT\\");
- strcpy(text_dir,str); }
- break;
- case 11:
- strcpy(str,temp_dir);
-SETHELP(WHERE);
-/*
-Temp Directory:
-
-Your temp directory is where Synchronet stores files of a temporary
-nature for this node. Each node MUST have its own unique temp directory.
-This directory can exist on a RAM disk or other volatile media. For
-the best batch upload performance, it should be located on the same
-drive as the majority of your upload directories.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Temp Directory"
- ,str,50,K_EDIT|K_UPPER);
- if(!strlen(str))
- umsg("Temp directory cannot be blank");
- else
- strcpy(temp_dir,str);
- break;
- case 12:
- strcpy(str,node_swapdir);
-SETHELP(WHERE);
-/*
-Swap Directory:
-
-Your swap directory is where Synchronet will swap out to if you have
-swapping enabled, and it is necessary to swap to disk. The default is
-the node directory. If you do specify a swap directory, it must not
-be a relative path (i.e. "..\etc"). Specify the entire path and include
-the drive letter specification (i.e. "D:\SBBS\SWAP").
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Swap Directory"
- ,str,50,K_EDIT|K_UPPER);
- if(str[0] && strcmp(str,".") && strcmp(str,".\\")
- && (strstr(str,"..") || str[1]!=':'
- || str[2]!='\\'))
- umsg("Must specify full path");
- else
- strcpy(node_swapdir,str);
- break; } }
- break;
- case 11:
-SETHELP(WHERE);
-/*
-Wait for Call Number Key Commands:
-
-Each of the number keys (0 through 9) can be assigned a command to
-execute when entered at the wait for call screen. This is a list of
-those keys and the assigned commands. Since Synchronet is still in
-memory when these command are executed, the number keys should be used
-for small program execution or command lines with small memory
-requirements.
-
-If you have a program or command line with large memory requirements,
-use a Wait for Call Function Key Command.
-*/
- j=0;
- while(1) {
- for(i=0;i<10;i++)
- sprintf(opt[i],"%d %s",i,wfc_cmd[i]);
- opt[i][0]=0;
- savnum=0;
-
- i=ulist(WIN_T2B|WIN_RHT|WIN_ACT|WIN_SAV,2,0,50,&j,0
- ,"Number Key Commands",opt);
- if(i==-1)
- break;
- sprintf(str,"%d Key Command Line",i);
- uinput(WIN_MID|WIN_SAV,0,0,str,wfc_cmd[i],50,K_EDIT); }
- break;
- case 12:
-SETHELP(WHERE);
-/*
-Wait for Call Function Key Commands:
-
-Each of the function keys (F1 through F12) can be assigned a command to
-execute when entered at the wait for call screen. This is a list of
-those keys and the currently assigned commands. Synchronet will shrink
-to 16K of RAM before executing one of these command lines.
-
-If you have a command line with small memory requirements, you should
-probably use a Wait for Call Number Key Command for faster execution.
-*/
- j=0;
- while(1) {
- for(i=0;i<12;i++)
- sprintf(opt[i],"F%-2d %s",i+1,wfc_scmd[i]);
- opt[i][0]=0;
- savnum=0;
- i=ulist(WIN_T2B|WIN_RHT|WIN_ACT|WIN_SAV,2,0,50,&j,0
- ,"Function Key (Shrinking) Commands",opt);
- if(i==-1)
- break;
- sprintf(str,"F%d Key Command Line",i+1);
- uinput(WIN_MID|WIN_SAV,0,0,str,wfc_scmd[i],50,K_EDIT); }
- break;
- case 10:
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","COM Port"
- ,com_port ? itoa(com_port,tmp,10) : "Disabled");
- sprintf(opt[i++],"%-27.27s%u"
- ,com_base && com_base<0x100 ? "COM Channel"
- :"UART IRQ Line"
- ,com_irq);
- if(com_base==0xd)
- strcpy(str,"DigiBoard");
- else if(com_base==0xf)
- strcpy(str,"FOSSIL");
- else if(com_base==0xb)
- strcpy(str,"PC BIOS");
- else if(com_base==0xe)
- strcpy(str,"PS/2 BIOS");
- else
- sprintf(str,"%Xh",com_base);
- sprintf(opt[i++],"%-27.27s%s"
- ,com_base<0x100 ? "COM Type":"UART I/O Address",str);
- sprintf(opt[i++],"%-27.27s%lu","DTE Rate",com_rate);
- sprintf(opt[i++],"%-27.27s%s","Fixed DTE Rate"
- ,mdm_misc&MDM_STAYHIGH ? "Yes" : "No");
- if(!(mdm_misc&(MDM_RTS|MDM_CTS)))
- strcpy(str,"None");
- else {
- if(mdm_misc&MDM_CTS) {
- strcpy(str,"CTS");
- if(mdm_misc&MDM_RTS)
- strcat(str,"/"); }
- else str[0]=0;
- if(mdm_misc&MDM_RTS)
- strcat(str,"RTS"); }
- sprintf(opt[i++],"%-27.27s%s","Hardware Flow Control",str);
- sprintf(opt[i++],"%-27.27s%u ring%c","Answer After"
- ,mdm_rings,mdm_rings>1 ? 's':' ');
- sprintf(opt[i++],"%-27.27s%u second%c","Answer Delay"
- ,mdm_ansdelay,mdm_ansdelay>1 ? 's':' ');
- sprintf(opt[i++],"%-27.27s%s","Reinitialization Timer"
- ,mdm_reinit ? itoa(mdm_reinit,tmp,10) : "Disabled");
- strcpy(opt[i++],"Result Codes...");
- strcpy(opt[i++],"Toggle Options...");
- strcpy(opt[i++],"Control Strings...");
- strcpy(opt[i++],"Auto-Configuration...");
- strcpy(opt[i++],"Import Configuration...");
- strcpy(opt[i++],"Export Configuration...");
- opt[i][0]=0;
- savnum=0;
-SETHELP(WHERE);
-/*
-Modem Configuration Menu:
-
-This menu contains the configuration options for this node's modem.
-If you do not have a modem attached to this node or do not want to use
-an attached modem, you can disable the Synchronet modem communications
-by setting the COM Port to 0.
-
-If your modem is listed in the Auto-Configuration, you should probably
-just set the COM Port and run the auto-configuration for your modem
-type.
-*/
- switch(ulist(WIN_T2B|WIN_RHT|WIN_ACT|WIN_SAV,2,0,44,&mdm_dflt,0
- ,"Modem Configuration",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- itoa(com_port,str,10);
-SETHELP(WHERE);
-/*
-COM Port:
-
-This is the serial communications port that the modem for this node is
-connected to. If you do not have a modem connected to this node, or
-do not wish to use a connected modem, you can disable the Synchronet
-modem communications by setting this value to 0.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,10,"COM Port (0=Disabled)"
- ,str,2,K_EDIT|K_NUMBER)==-1)
- break;
- com_port=atoi(str);
- if(!com_port)
- break;
- savnum=1;
- com_type();
- break;
- case 1:
- itoa(com_irq,str,10);
-SETHELP(WHERE);
-/*
-UART IRQ Line or Channel Number:
-
-If you are using a standard UART serial interface for this COM port,
-this is the IRQ line that your COM Port's UART is using. If you have
-configured your COM Port and selected the default IRQ and I/O address,
-you should not need to change the value of this option.
-
-If this COM port is accessed via Int 14h, this is the channel number
-for this COM port (normally, the COM port number minus one).
-*/
- uinput(WIN_MID|WIN_SAV,0,10
- ,com_base && com_base<0x100 ? "Channel"
- : "UART IRQ Line"
- ,str,2,K_EDIT|K_NUMBER);
- com_irq=atoi(str);
- break;
- case 2:
- savnum=1;
- if(com_type() || com_base<0x100)
- break;
-SETHELP(WHERE);
-/*
-UART I/O Address in Hex:
-
-This is the base I/O address of your COM Port's UART. If you have
-configured your COM Port and selected the default IRQ and I/O address,
-you should not need to change the value of this option. If this node's
-COM Port's UART is using a non-standard I/O address, enter that address
-(in hexadecimal) using this option.
-*/
- itoa(com_base,str,16);
- strupr(str);
- uinput(WIN_MID|WIN_SAV,0,10
- ,"UART I/O Address in Hex"
- ,str,4,K_EDIT|K_UPPER);
- com_base=ahtoul(str);
- break;
- case 3:
- savnum=1;
-SETHELP(WHERE);
-/*
-UART (DTE) Rate:
-
-This is the data transfer rate between your COM Port's UART (Data
-Terminal Equipment) and your modem. This is NOT the connect rate of
-your modem (Data Communications Equipment). Most high-speed (9600bps+)
-modems use a fixed DTE rate that is higher than the highest DCE rate to
-allow for data compression and error correction. This value should be
-set to the highest DTE rate your modem supports. If you have a 1200 or
-2400bps modem without data compression capabilities, this value should
-be set to 1200 or 2400 respectively. If you have a high-speed modem,
-refer to the modem's manual to find the highest supported DTE rate.
-*/
- i=0;
- strcpy(opt[i++],"300");
- strcpy(opt[i++],"1200");
- strcpy(opt[i++],"2400");
- strcpy(opt[i++],"4800");
- strcpy(opt[i++],"9600");
- strcpy(opt[i++],"19200");
- strcpy(opt[i++],"38400");
- strcpy(opt[i++],"57600");
- strcpy(opt[i++],"115200");
- opt[i][0]=0;
- switch(com_rate) {
- default:
- i=0;
- break;
- case 1200:
- i=1;
- break;
- case 2400:
- i=2;
- break;
- case 4800:
- i=3;
- break;
- case 9600:
- i=4;
- break;
- case 19200:
- i=5;
- break;
- case 38400:
- i=6;
- break;
- case 57600:
- i=7;
- break;
- case 115200L:
- i=8;
- break; }
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"UART (DTE) Rate"
- ,opt);
- if(i==-1)
- break;
- changes=1;
- switch(i) {
- default:
- com_rate=300;
- break;
- case 1:
- com_rate=1200;
- break;
- case 2:
- com_rate=2400;
- break;
- case 3:
- com_rate=4800;
- break;
- case 4:
- com_rate=9600;
- break;
- case 5:
- com_rate=19200;
- break;
- case 6:
- com_rate=38400;
- break;
- case 7:
- com_rate=57600;
- break;
- case 8:
- com_rate=115200L;
- break; }
- break;
- case 4:
- i=1;
- savnum=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
-SETHELP(WHERE);
-/*
-Use Fixed DTE Rate:
-
-If this node is using a modem with error correction or data compression
-capabilities, set this option to Yes. If you are using a 2400bps or
-slower modem, it is most likely this value should be set to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Use Fixed "
- "DTE Rate",opt);
- if(i==0 && !(mdm_misc&MDM_STAYHIGH)) {
- mdm_misc|=MDM_STAYHIGH;
- changes=1; }
- else if(i==1 && mdm_misc&MDM_STAYHIGH) {
- mdm_misc&=~MDM_STAYHIGH;
- changes=1; }
- break;
- case 5:
- i=1;
- savnum=1;
- strcpy(opt[0],"Both");
- strcpy(opt[1],"CTS Only");
- strcpy(opt[2],"RTS Only");
- strcpy(opt[3],"None");
- opt[4][0]=0;
- i=0;
-SETHELP(WHERE);
-/*
-Hardware Flow Control (CTS/RTS):
-
-If your modem supports the use of hardware flow control via CTS/RTS
-(Clear to Send/Request to Send), set this option to Both. If are using
-a high-speed modem or a modem with data compression or error correction
-capabilities, it is most likely this option should be set to Both. If
-you are using a 2400bps or slower modem without data compression or
-error correction capabilities, set this option to None.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Hardware "
- "Flow Control (CTS/RTS)",opt);
- if(i==0
- && (mdm_misc&(MDM_CTS|MDM_RTS))
- !=(MDM_CTS|MDM_RTS)) {
- mdm_misc|=(MDM_CTS|MDM_RTS);
- changes=1; }
- else if(i==1
- && (mdm_misc&(MDM_CTS|MDM_RTS))!=MDM_CTS) {
- mdm_misc|=MDM_CTS;
- mdm_misc&=~MDM_RTS;
- changes=1; }
- else if(i==2
- && (mdm_misc&(MDM_CTS|MDM_RTS))!=MDM_RTS) {
- mdm_misc|=MDM_RTS;
- mdm_misc&=~MDM_CTS;
- changes=1; }
- else if(i==3
- && mdm_misc&(MDM_CTS|MDM_RTS)) {
- mdm_misc&=~(MDM_RTS|MDM_CTS);
- changes=1; }
- break;
-
- case 6:
-SETHELP(WHERE);
-/*
-Number of Rings to Answer After:
-
-This is the number of rings to let pass before answering the phone.
-*/
- itoa(mdm_rings,str,10);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Number of Rings to Answer After"
- ,str,2,K_EDIT|K_NUMBER);
- mdm_rings=atoi(str);
- if(!mdm_rings)
- mdm_rings=1;
- break;
-
- case 7:
-SETHELP(WHERE);
-/*
-Seconds to Delay after Answer:
-
-This is the length of time (in seconds) to delay after connection and
-before the terminal detection sequence is trasmitted to the remote user
-and the logon prompt is displayed.
-*/
- itoa(mdm_ansdelay,str,10);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Answer Delay (in seconds)"
- ,str,4,K_EDIT|K_NUMBER);
- mdm_ansdelay=atoi(str);
- break;
-
- case 8:
-SETHELP(WHERE);
-/*
-Minutes Between Reinitialization:
-
-If you want your modem to be periodically reinitialized while waiting
-for a caller, set this option to the maximum number of minutes between
-initializations. Setting this value to 0 disables this feature.
-*/
- itoa(mdm_reinit,str,10);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Minutes Between Reinitialization (0=Disabled)"
- ,str,4,K_EDIT|K_NUMBER);
- mdm_reinit=atoi(str);
- break;
- case 9:
- dflt=bar=0;
- while(1) {
- for(i=0;i<mdm_results;i++) {
- sprintf(opt[i],"%3u %5ubps %4ucps %s"
- ,mdm_result[i].code,mdm_result[i].rate
- ,mdm_result[i].cps,mdm_result[i].str); }
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV|WIN_RHT;
- if(mdm_results<MAX_OPTS)
- i|=WIN_INS;
- if(mdm_results>1)
- i|=WIN_DEL;
- savnum=1;
-SETHELP(WHERE);
-/*
-Modem Result Codes:
-
-This is the list of configured numeric connection result codes that this
-node's modem supports. If this node is getting Invalid Result Code
-errors when answer incoming calls, those result codes should be added
-to this list. Refer to your modem's manual for a list of supported
-result codes. Using the Auto-Configuration option automatically
-configures this list for you.
-To add a result code, hit INS .
-
-To delete a result code, select it using the arrow keys and hit DEL .
-*/
- i=ulist(i,0,0,34,&dflt,&bar
- ,"Modem Result Codes",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- mdm_results--;
- while(i<mdm_results) {
- mdm_result[i]=mdm_result[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((mdm_result=(mdm_result_t *)REALLOC(
- mdm_result,sizeof(mdm_result_t)
- *(mdm_results+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr
- ,mdm_results+1);
- mdm_results=0;
- bail(1);
- continue; }
- for(j=mdm_results;j>i;j--)
- mdm_result[j]=mdm_result[j-1];
- mdm_result[i]=mdm_result[i+1];
- mdm_results++;
- changes=1;
- continue; }
- results(dflt); }
- break;
- case 10: /* Toggle Options */
- dflt=0;
- while(1) {
- savnum=1;
- i=0;
- sprintf(opt[i++],"%-27.27s%s"
- ,"Caller Identification"
- ,mdm_misc&MDM_CALLERID ? "Yes" : "No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Dumb Modem Connection"
- ,mdm_misc&MDM_DUMB ? "Yes" : "No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Drop DTR to Hang Up"
- ,mdm_misc&MDM_NODTR ? "No" : "Yes");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Use Verbal Result Codes"
- ,mdm_misc&MDM_VERBAL ? "Yes" : "No");
- sprintf(opt[i++],"%-27.27s%s"
- ,"Allow Unknown Result Codes"
- ,mdm_misc&MDM_KNOWNRES ? "No" : "Yes");
- opt[i][0]=0;
- i=ulist(WIN_SAV|WIN_ACT,0,0,0,&dflt,0
- ,"Modem Toggle Options",opt);
- savnum=2;
- if(i==-1)
- break;
- if(i==0) {
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
-SETHELP(WHERE);
-/*
-Caller Identification:
-
-If your modem supports Caller ID and is configured to return caller
-number delivery messages, set this option to Yes.
-
-If this option is set to Yes, Synchronet will log caller number delivery
-messages. If a caller attempts to connect with a number listed in the
-file TEXT\CID.CAN, they will be displayed TEXT\BADCID.MSG (if it exists)
-and disconnected. Each user will have their most recent caller ID number
-stored in their note field.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Caller ID",opt);
- if(i==0 && !(mdm_misc&MDM_CALLERID)) {
- mdm_misc|=MDM_CALLERID;
- changes=1; }
- else if(i==1 && mdm_misc&MDM_CALLERID) {
- mdm_misc&=~MDM_CALLERID;
- changes=1; } }
- else if(i==1) {
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
-SETHELP(WHERE);
-/*
-Dumb Modem Connection:
-
-If this node is connected to a serial line through a dumb modem, set
-this option to Yes to disable all modem commands and answer calls when
-DCD is raised.
-*/
- i=ulist(WIN_SAV|WIN_MID,0,0,0,&i,0
- ,"Dumb Modem",opt);
- if(i==0 && !(mdm_misc&MDM_DUMB)) {
- mdm_misc|=MDM_DUMB;
- changes=1; }
- else if(i==1 && mdm_misc&MDM_DUMB) {
- mdm_misc&=~MDM_DUMB;
- changes=1; } }
- else if(i==2) {
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
-SETHELP(WHERE);
-/*
-Drop DTR to Hang Up:
-
-If you wish to have the BBS drop DTR to hang up the modem, set this
-option to Yes. If this option is set to No, the Hang Up String is sent
-to modem instead.
-*/
- i=ulist(WIN_SAV|WIN_MID,0,0,0,&i,0
- ,"Drop DTR to Hang Up",opt);
- if(i==0 && mdm_misc&MDM_NODTR) {
- mdm_misc&=~MDM_NODTR;
- changes=1; }
- else if(i==1 && !(mdm_misc&MDM_NODTR)) {
- mdm_misc|=MDM_NODTR;
- changes=1; } }
- else if(i==3) {
- i=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
-SETHELP(WHERE);
-/*
-Use Verbal Result Codes:
-
-If you wish to have the BBS expect verbal (or verbose) result codes
-from the modem instead of numeric (non-verbose) result codes, set this
-option to Yes.
-
-This option can be useful for modems that insist on returning multiple
-result codes upon connection (CARRIER, PROTOCOL, etc) or modems that
-do not report numeric result codes correctly. While this option is more
-flexible than numeric result codes, it may not be as accurate in
-describing the connection or estimating the CPS rate of the connection.
-
-If this option is set to Yes, the configured result code list will not
-be used (you may remove all entries from the list if you wish). The
-connection rate, description, and estimated CPS will be automatically
-generated by the BBS.
-*/
- i=ulist(WIN_SAV|WIN_MID,0,0,0,&i,0
- ,"Use Verbal Result Codes",opt);
- if(i==0 && !(mdm_misc&MDM_VERBAL)) {
- mdm_misc|=MDM_VERBAL;
- changes=1; }
- else if(i==1 && mdm_misc&MDM_VERBAL) {
- mdm_misc&=~MDM_VERBAL;
- changes=1; } }
- else if(i==4) {
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
-SETHELP(WHERE);
-/*
-Allow Unknown Result Codes:
-
-If you wish to have the BBS allow modem connections with an unknown
-(un-configured) numeric result code by using the last known (configured)
-result code information by default, set this option to Yes.
-
-This option has no effect if Verbal Result Codes are used.
-*/
- i=ulist(WIN_SAV|WIN_MID,0,0,0,&i,0
- ,"Allow Unknown Result Codes",opt);
- if(i==0 && mdm_misc&MDM_KNOWNRES) {
- mdm_misc&=~MDM_KNOWNRES;
- changes=1; }
- else if(i==1 && !(mdm_misc&MDM_KNOWNRES)) {
- mdm_misc|=MDM_KNOWNRES;
- changes=1; } }
- }
- break;
- case 11:
-SETHELP(WHERE);
-/*
-Modem Control Strings:
-
-This menu contains a list of available modem control strings. It is usually
-not necessary to modify these except under special circumstances.
-*/
- j=0;
- while(1) {
- i=0;
- savnum=1;
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Initialization String",mdm_init);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Special Init String",mdm_spec);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Terminal Init String",mdm_term);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Dial String",mdm_dial);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Off Hook String",mdm_offh);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Answer String",mdm_answ);
- sprintf(opt[i++],"%-27.27s%.40s"
- ,"Hang Up String",mdm_hang);
- opt[i][0]=0;
- j=ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&j,0
- ,"Modem Control Strings",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
-SETHELP(WHERE);
-/*
-Initialization String:
-
-This is one of the strings of characters sent to your modem upon
-modem initialization. If you find it necessary to send additional
-commands to the modem during initialization, use the Special Init String
-for that purpose.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Initialization"
- ,mdm_init,50,K_EDIT|K_UPPER);
- break;
- case 1:
-SETHELP(WHERE);
-/*
-Special Init String:
-
-This is an additional optional string of characters to be sent to your
-modem during initialization. Many of the Auto-Configuration options
-automatically set this string. It is used for sending commands that are
-particular to this modem type. If you find it necessary to send
-additional commands to your modem during initialization, use this option
-for that purpose.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Special Init"
- ,mdm_spec,50,K_EDIT|K_UPPER);
- break;
- case 2:
-SETHELP(WHERE);
-/*
-Terminal Init String:
-
-This is the string of characters sent to your modem when terminal mode
-is entered from the Synchronet wait for call screen.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Terminal Init"
- ,mdm_term,50,K_EDIT|K_UPPER);
- break;
- case 3:
-SETHELP(WHERE);
-/*
-Dial String:
-
-This is the string used to dial the modem in Synchronet Callback
-(an optional callback verification module).
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Dial String",mdm_dial,40
- ,K_EDIT|K_UPPER);
- break;
- case 4:
-SETHELP(WHERE);
-/*
-Off Hook String:
-
-This is the string of characters sent to your modem to take it off hook
-(make busy).
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Off Hook String",mdm_offh
- ,40,K_EDIT|K_UPPER);
- break;
- case 5:
-SETHELP(WHERE);
-/*
-Answer String:
-
-This is the string of characters sent to your modem to answer an
-incoming call.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Answer String",mdm_answ,40
- ,K_EDIT|K_UPPER);
- break;
- case 6:
-SETHELP(WHERE);
-/*
-Hang Up String:
-
-This is the string of characters sent to your modem to hang up the
-phone line (go on-hook).
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Hang Up String",mdm_hang,40
- ,K_EDIT|K_UPPER);
- break;
- } }
- break;
- case 12:
- dflt=bar=0;
- while(1) {
- for(i=0;i<mdm_types;i++)
- strcpy(opt[i],mdm_type[i]);
- opt[i][0]=0;
- savnum=1;
-SETHELP(WHERE);
-/*
-Auto-Configuration Modem Type:
-
-This is the list of modem types currently supported by Synchronet's
-automatic modem configuration feature. If your modem is listed, select
-it using the arrow keys and hit ENTER . If your modem is not listed,
-you may want to try using the auto-configuration of a compatible modem
-or one from the same manufacturer. If you have a 2400bps modem, select
-Hayes SmartModem 2400. If you have a high-speed modem that is not
-listed, you may want to try Generic 9600 or Generic 14400 and add
-the additional high-speed result codes by hand. Refer to your modem's
-manual for a list of result codes supported by your modem.
-*/
- i=ulist(WIN_ACT|WIN_SAV|WIN_RHT,0,0,0
- ,&dflt,&bar,"Modem Type",opt);
- if(i==-1)
- break;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=1;
- savnum=2;
-
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Continue with Modem Auto-Configuration",opt);
- if(!j) {
- mdm_cfg(i);
- changes=1;
- sprintf(str
- ,"Modem configured as %s",mdm_type[i]);
- savnum=1;
- umsg(str); } }
- break;
- case 13:
-SETHELP(WHERE);
-/*
-Import Modem Configuration File
-
-Using this option, you can import modem settings from an MDM file in
-your CTRL directory (i.e. To import from CTRL\MYMODEM.MDM, type MYMODEM
-now).
-*/
- i=changes;
- str[0]=0;
- uinput(WIN_MID|WIN_SAV,0,0,"MDM Filename",str
- ,8,K_UPPER);
- if(str[0]) {
- FREE(mdm_result);
- mdm_result=NULL;
-
- mdm_answ[0]=0;
- mdm_hang[0]=0;
- mdm_dial[0]=0;
- mdm_offh[0]=0;
- mdm_term[0]=0;
- mdm_init[0]=0;
- mdm_spec[0]=0;
- mdm_results=0;
-
- if(exec_mdm(str))
- umsg("Imported");
- else {
- umsg("File Not Found");
- changes=i; } }
- else
- changes=i;
- break;
-
- case 14:
-SETHELP(WHERE);
-/*
-Export Current Modem Configuration to a File
-
-Using this option, you can save the current modem settings to a file.
-The file will be placed into the CTRL directory and will be given an
-extension of MDM (i.e. To create CTRL\MYMODEM.MDM, type MYMODEM now).
-*/
- i=changes;
- str[0]=0;
- uinput(WIN_MID|WIN_SAV,0,0,"MDM Filename",str
- ,8,K_UPPER);
- if(str[0]) {
- if(export_mdm(str))
- umsg("Exported");
- else
- umsg("Error Exporting"); }
- changes=i;
- break;
- } } } }
-}
-
-void results(int i)
-{
- char str[81];
- int n,dflt=0;
-
-while(1) {
- n=0;
- sprintf(opt[n++],"%-22.22s%u","Numeric Code",mdm_result[i].code);
- sprintf(opt[n++],"%-22.22s%ubps","Modem Connect Rate",mdm_result[i].rate);
- sprintf(opt[n++],"%-22.22s%ucps","Modem Average CPS",mdm_result[i].cps);
- sprintf(opt[n++],"%-22.22s%s","Description",mdm_result[i].str);
- opt[n][0]=0;
- savnum=2;
-SETHELP(WHERE);
-/*
-Result Code:
-
-This is one of the configured connect result codes for your modem. The
-available options are:
-
- Numeric Code : Numeric result code
- Modem Connect Rate : Connect speed (in bps) for this result code
- Modem Average CPS : Average file transfer throughput in cps
- Description : Description of this connection type
-*/
- switch(ulist(WIN_SAV|WIN_MID|WIN_ACT,0,0,35,&dflt,0,"Result Code",opt)) {
- case -1:
- return;
- case 0:
- sprintf(str,"%u",mdm_result[i].code);
-SETHELP(WHERE);
-/*
-Numeric Result Code:
-
-This is the numeric (as opposed to verbal) result code your modem will
-send to your computer when it establishes a connection with another
-modem with this connect type. Your modem must have the V0 setting
-enabled to return numeric result codes.
-*/
- uinput(WIN_L2R|WIN_SAV,0,15,"Numeric Result Code",str,3
- ,K_EDIT|K_NUMBER);
- mdm_result[i].code=atoi(str);
- break;
- case 1:
-SETHELP(WHERE);
-/*
-Connection (DCE) Rate:
-
-This is the modem (DCE) rate established with this connect type. This is
-NOT the DTE rate of your modem. As an example, a 14,400bps modem may
-have a DTE rate of 38,400bps but a maximum DCE rate of 14,400bps.
-*/
- sprintf(str,"%u",mdm_result[i].rate);
- uinput(WIN_L2R|WIN_SAV,0,15,"Connection (DCE) Rate",str,5
- ,K_EDIT|K_NUMBER);
- mdm_result[i].rate=atoi(str);
- break;
- case 2:
-SETHELP(WHERE);
-/*
-Average File Transfer CPS:
-
-This is the average file transfer through-put (characters per second)
-of connections with this result code. If you don't know the average
-through-put, just divide the DCE Rate by ten for an approximation.
-As an example, a 9600bps DCE Rate would have an approximate file
-transfer through-put of 960cps.
-*/
- sprintf(str,"%u",mdm_result[i].cps);
- uinput(WIN_L2R|WIN_SAV,0,15,"Average File Transfer CPS",str,5
- ,K_EDIT|K_NUMBER);
- mdm_result[i].cps=atoi(str);
- break;
- case 3:
-SETHELP(WHERE);
-/*
-Modem Description:
-
-This is a description of the modem type used for a connection with
-this result code. It can be up to eight characters long. This
-description usually just contains the DCE rate and possibly the
-protocol type. Such as 2400 for a 2400bps connection, 9600/V32
-for a 9600bps V.32 connection or 9600/HST for a 9600bps HST connection.
-*/
- uinput(WIN_L2R|WIN_SAV,0,15,"Modem Description"
- ,mdm_result[i].str,LEN_MODEM,K_EDIT);
- break; } }
-}
diff --git a/src/sbbs2/scfg/scfgsub.c b/src/sbbs2/scfg/scfgsub.c
deleted file mode 100644
index a318e8b4be287900b4903b26674932b5d4742668..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgsub.c
+++ /dev/null
@@ -1,1200 +0,0 @@
-#line 2 "SCFGSUB.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-void sub_cfg(uint grpnum)
-{
- static int dflt,tog_dflt,opt_dflt,net_dflt,adv_dflt,bar;
- char str[81],str2[81],str3[11],done=0,code[9],*p;
- int j,m,n,ptridx,q,s;
- uint i,subnum[MAX_OPTS+1];
- static sub_t savsub;
-
-while(1) {
- for(i=0,j=0;i<total_subs && j<MAX_OPTS;i++)
- if(sub[i]->grp==grpnum) {
- subnum[j]=i;
- if(sub[subnum[0]]->qwkconf)
- sprintf(opt[j],"%-5u %s"
- ,sub[i]->qwkconf,sub[i]->lname);
- else
- sprintf(opt[j],"%s"
- ,sub[i]->lname);
- j++; }
- subnum[j]=total_subs;
- opt[j][0]=0;
- sprintf(str,"%s Sub-boards",grp[grpnum]->sname);
- savnum=0;
- i=WIN_SAV|WIN_ACT;
- if(j)
- i|=WIN_DEL|WIN_GET|WIN_DELACT;
- if(j<MAX_OPTS)
- i|=WIN_INS|WIN_XTR|WIN_INSACT;
- if(savsub.sname[0])
- i|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Message Sub-boards:
-
-This is a list of message sub-boards that have been configured for the
-selected message group.
-
-To add a sub-board, select the desired position with the arrow keys and
-hit INS .
-
-To delete a sub-board, select it with the arrow keys and hit DEL .
-
-To configure a sub-board, select it with the arrow keys and hit ENTER .
-*/
- i=ulist(i,24,1,LEN_SLNAME+5,&dflt,&bar,str,opt);
- savnum=1;
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- strcpy(str,"General");
- SETHELP(WHERE);
-/*
-Sub-board Long Name:
-
-This is a description of the message sub-board which is displayed in all
-sub-board listings.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Sub-board Long Name",str,LEN_SLNAME
- ,K_EDIT)<1)
- continue;
- sprintf(str2,"%.*s",LEN_SSNAME,str);
- SETHELP(WHERE);
-/*
-Sub-board Short Name:
-
-This is a short description of the message sub-board which is displayed
-at the main and reading messages prompts.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Sub-board Short Name",str2,LEN_SSNAME
- ,K_EDIT)<1)
- continue;
- sprintf(str3,"%.10s",str2);
- SETHELP(WHERE);
-/*
-Sub-board QWK Name:
-
-This is the name of the sub-board used for QWK off-line readers.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Sub-board QWK Name",str3,10
- ,K_EDIT)<1)
- continue;
- sprintf(code,"%.8s",str3);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Sub-board Internal Code:
-
-Every sub-board must have its own unique code for Synchronet to refer to
-it internally. This code should be descriptive of the sub-board's topic,
-usually an abreviation of the sub-board's name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Sub-board Internal Code",code,8
- ,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- savnum=0;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
-
- if((sub=(sub_t **)REALLOC(sub,sizeof(sub_t *)*(total_subs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_subs+1);
- total_subs=0;
- bail(1);
- continue; }
-
- for(ptridx=0;ptridx>-1;ptridx++) { /* Search for unused pointer indx */
- for(n=0;n<total_subs;n++)
- if(sub[n]->ptridx==ptridx)
- break;
- if(n==total_subs)
- break; }
-
- if(j) {
- for(n=total_subs;n>subnum[i];n--)
- sub[n]=sub[n-1];
- for(q=0;q<total_qhubs;q++)
- for(s=0;s<qhub[q]->subs;s++)
- if(qhub[q]->sub[s]>=subnum[i])
- qhub[q]->sub[s]++; }
-
- if((sub[subnum[i]]=(sub_t *)MALLOC(sizeof(sub_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(sub_t));
- continue; }
- memset((sub_t *)sub[subnum[i]],0,sizeof(sub_t));
- sub[subnum[i]]->grp=grpnum;
- if(total_faddrs)
- sub[subnum[i]]->faddr=faddr[0];
- else
- memset(&sub[subnum[i]]->faddr,0,sizeof(faddr_t));
- sub[subnum[i]]->maxmsgs=500;
- strcpy(sub[subnum[i]]->code,code);
- strcpy(sub[subnum[i]]->lname,str);
- strcpy(sub[subnum[i]]->sname,str2);
- strcpy(sub[subnum[i]]->qwkname,str3);
- sub[subnum[i]]->misc=(SUB_NSDEF|SUB_SSDEF|SUB_QUOTE|SUB_TOUSER
- |SUB_HDRMOD|SUB_FAST);
- sub[subnum[i]]->ptridx=ptridx;
- total_subs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Delete Data in Sub-board:
-
-If you want to delete all the messages for this sub-board, select Yes.
-*/
- j=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Delete Data in Sub-board",opt);
- if(j==-1)
- continue;
- if(j==0) {
- sprintf(str,"%s.s*",sub[subnum[i]]->code);
- if(!sub[subnum[i]]->data_dir[0])
- sprintf(tmp,"%sSUBS\\",data_dir);
- else
- strcpy(tmp,sub[subnum[i]]->data_dir);
- delfiles(tmp,str);
- clearptrs(subnum[i]); }
- FREE(sub[subnum[i]]);
- total_subs--;
- for(j=subnum[i];j<total_subs;j++)
- sub[j]=sub[j+1];
- for(q=0;q<total_qhubs;q++)
- for(s=0;s<qhub[q]->subs;s++) {
- if(qhub[q]->sub[s]==subnum[i])
- qhub[q]->sub[s]=INVALID_SUB;
- else if(qhub[q]->sub[s]>subnum[i])
- qhub[q]->sub[s]--; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savsub=*sub[subnum[i]];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- ptridx=sub[subnum[i]]->ptridx;
- *sub[subnum[i]]=savsub;
- sub[subnum[i]]->ptridx=ptridx;
- sub[subnum[i]]->grp=grpnum;
- changes=1;
- continue; }
- i=subnum[i];
- j=0;
- done=0;
- while(!done) {
- n=0;
- sprintf(opt[n++],"%-27.27s%s","Long Name",sub[i]->lname);
- sprintf(opt[n++],"%-27.27s%s","Short Name",sub[i]->sname);
- sprintf(opt[n++],"%-27.27s%s","QWK Name",sub[i]->qwkname);
- sprintf(opt[n++],"%-27.27s%s","Internal Code",sub[i]->code);
- sprintf(opt[n++],"%-27.27s%.40s","Access Requirements"
- ,sub[i]->ar);
- sprintf(opt[n++],"%-27.27s%.40s","Reading Requirements"
- ,sub[i]->read_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Posting Requirements"
- ,sub[i]->post_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Operator Requirements"
- ,sub[i]->op_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Moderated Posting User"
- ,sub[i]->mod_ar);
- sprintf(opt[n++],"%-27.27s%u","Maximum Messages"
- ,sub[i]->maxmsgs);
- if(sub[i]->maxage)
- sprintf(str,"Enabled (%u days old)",sub[i]->maxage);
- else
- strcpy(str,"Disabled");
- sprintf(opt[n++],"%-27.27s%s","Purge by Age",str);
- if(sub[i]->maxcrcs)
- sprintf(str,"Enabled (%lu message CRCs)",sub[i]->maxcrcs);
- else
- strcpy(str,"Disabled");
- sprintf(opt[n++],"%-27.27s%s","Duplicate Checking",str);
-
- strcpy(opt[n++],"Toggle Options...");
- strcpy(opt[n++],"Network Options...");
- strcpy(opt[n++],"Advanced Options...");
- opt[n][0]=0;
- sprintf(str,"%s Sub-board",sub[i]->sname);
- savnum=1;
- SETHELP(WHERE);
-/*
-Sub-board Configuration:
-
-This menu allows you to configure the individual selected sub-board.
-Options with a trailing ... provide a sub-menu of more options.
-*/
- switch(ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT
- ,0,0,60,&opt_dflt,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Sub-board Long Name:
-
-This is a description of the message sub-board which is displayed in all
-sub-board listings.
-*/
- strcpy(str,sub[i]->lname); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,17,"Name to use for Listings"
- ,sub[i]->lname,LEN_SLNAME,K_EDIT))
- strcpy(sub[i]->lname,str); /* restore */
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Sub-board Short Name:
-
-This is a short description of the message sub-board which is displayed
-at the main and reading messages prompts.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Name to use for Prompts"
- ,sub[i]->sname,LEN_SSNAME,K_EDIT);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Sub-board QWK Name:
-
-This is the name of the sub-board used for QWK off-line readers.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Name to use for QWK Packets"
- ,sub[i]->qwkname,10,K_EDIT);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-Sub-board Internal Code:
-
-Every sub-board must have its own unique code for Synchronet to refer
-to it internally. This code should be descriptive of the sub-board's
-topic, usually an abreviation of the sub-board's name.
-*/
- strcpy(str,sub[i]->code);
- uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(sub[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 4:
- savnum=2;
- sprintf(str,"%s Access",sub[i]->sname);
- getar(str,sub[i]->ar);
- break;
- case 5:
- savnum=2;
- sprintf(str,"%s Reading",sub[i]->sname);
- getar(str,sub[i]->read_ar);
- break;
- case 6:
- savnum=2;
- sprintf(str,"%s Posting",sub[i]->sname);
- getar(str,sub[i]->post_ar);
- break;
- case 7:
- savnum=2;
- sprintf(str,"%s Operator",sub[i]->sname);
- getar(str,sub[i]->op_ar);
- break;
- case 8:
- savnum=2;
- sprintf(str,"%s Moderated Posting User",sub[i]->sname);
- getar(str,sub[i]->mod_ar);
- break;
- case 9:
- sprintf(str,"%u",sub[i]->maxmsgs);
- SETHELP(WHERE);
-/*
-Maximum Number of Messages:
-
-This value is the maximum number of messages that will be kept in the
-sub-board. Once this maximum number of messages is reached, the oldest
-messages will be automatically purged. Usually, 100 messages is a
-sufficient maximum.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Maximum Number of Messages"
- ,str,5,K_EDIT|K_NUMBER);
- sub[i]->maxmsgs=atoi(str);
- sub[i]->misc|=SUB_HDRMOD;
- break;
- case 10:
- sprintf(str,"%u",sub[i]->maxage);
- SETHELP(WHERE);
-/*
-Maximum Age of Messages:
-
-This value is the maximum number of days that messages will be kept in
-the sub-board.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Maximum Age of Messages (in days)"
- ,str,5,K_EDIT|K_NUMBER);
- sub[i]->maxage=atoi(str);
- sub[i]->misc|=SUB_HDRMOD;
- break;
- case 11:
- sprintf(str,"%u",sub[i]->maxcrcs);
- SETHELP(WHERE);
-/*
-Maximum Number of CRCs:
-
-This value is the maximum number of CRCs that will be kept in the
-sub-board for duplicate message checking. Once this maximum number of
-CRCs is reached, the oldest CRCs will be automatically purged.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Maximum Number of CRCs"
- ,str,5,K_EDIT|K_NUMBER);
- sub[i]->maxcrcs=atol(str);
- sub[i]->misc|=SUB_HDRMOD;
- break;
- case 12:
- while(1) {
- n=0;
- sprintf(opt[n++],"%-27.27s%s","Allow Private Posts"
- ,sub[i]->misc&SUB_PRIV ? sub[i]->misc&SUB_PONLY
- ? "Only":"Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Allow Anonymous Posts"
- ,sub[i]->misc&SUB_ANON ? sub[i]->misc&SUB_AONLY
- ? "Only":"Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Post Using Real Names"
- ,sub[i]->misc&SUB_NAME ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Users Can Delete Posts"
- ,sub[i]->misc&SUB_DEL ? sub[i]->misc&SUB_DELLAST
- ? "Last":"Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Default On for New Scan"
- ,sub[i]->misc&SUB_NSDEF ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Forced On for New Scan"
- ,sub[i]->misc&SUB_FORCED ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Default On for Your Scan"
- ,sub[i]->misc&SUB_SSDEF ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Public 'To' User"
- ,sub[i]->misc&SUB_TOUSER ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Allow Message Quoting"
- ,sub[i]->misc&SUB_QUOTE ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Permanent Operator Msgs"
- ,sub[i]->misc&SUB_SYSPERM ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Kill Read Messages"
- ,sub[i]->misc&SUB_KILL ? "Yes"
- : (sub[i]->misc&SUB_KILLP ? "Pvt" : "No"));
-#if 1
- sprintf(opt[n++],"%-27.27s%s","Compress Messages (LZH)"
- ,sub[i]->misc&SUB_LZH ? "Yes" : "No");
-#endif
- opt[n][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Sub-board Toggle Options:
-
-This menu allows you to toggle certain options for the selected
-sub-board between two or more settings, such as Yes and No.
-*/
- n=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,36,&tog_dflt,0
- ,"Toggle Options",opt);
- if(n==-1)
- break;
- savnum=3;
- switch(n) {
- case 0:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- strcpy(opt[2],"Only");
- opt[3][0]=0;
- SETHELP(WHERE);
-/*
-Allow Private Posts on Sub-board:
-
-If you want users to be able to post private messages to other users
-on this sub-board, set this value to Yes. Usually, E-mail is the
-preferred method of private communication. If you want users to be able
-to post private messages only on this sub-board, select Only.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Allow Private Posts",opt);
- if(n==-1)
- break;
- if(!n && (sub[i]->misc&(SUB_PRIV|SUB_PONLY))
- !=SUB_PRIV) {
- changes=1;
- sub[i]->misc&=~SUB_PONLY;
- sub[i]->misc|=SUB_PRIV;
- break; }
- if(n==1 && sub[i]->misc&SUB_PRIV) {
- changes=1;
- sub[i]->misc&=~SUB_PRIV;
- break; }
- if(n==2 && (sub[i]->misc&(SUB_PRIV|SUB_PONLY))
- !=(SUB_PRIV|SUB_PONLY)) {
- changes=1;
- sub[i]->misc|=(SUB_PRIV|SUB_PONLY); }
- break;
- case 1:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- strcpy(opt[2],"Only");
- opt[3][0]=0;
- SETHELP(WHERE);
-/*
-Allow Anonymous Posts on Sub-board:
-
-If you want users with the A exemption to be able to post anonymously on
-this sub-board, select Yes. If you want all posts on this sub-board to be
-forced anonymous, select Only. If you do not want anonymous posts allowed
-on this sub-board at all, select No.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Allow Anonymous Posts",opt);
- if(n==-1)
- break;
- if(!n && (sub[i]->misc&(SUB_ANON|SUB_AONLY))
- !=SUB_ANON) {
- changes=1;
- sub[i]->misc&=~SUB_AONLY;
- sub[i]->misc|=SUB_ANON;
- break; }
- if(n==1 && sub[i]->misc&(SUB_ANON|SUB_AONLY)) {
- changes=1;
- sub[i]->misc&=~(SUB_ANON|SUB_AONLY);
- break; }
- if(n==2 && (sub[i]->misc&(SUB_ANON|SUB_AONLY))
- !=(SUB_ANON|SUB_AONLY)) {
- changes=1;
- sub[i]->misc|=(SUB_ANON|SUB_AONLY); }
- break;
- case 2:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-User Real Names in Posts on Sub-board:
-
-If you allow aliases on your system, you can have messages on this
-sub-board automatically use the real name of the posting user by setting
-this option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Use Real Names in Posts",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_NAME)) {
- changes=1;
- sub[i]->misc|=SUB_NAME;
- break; }
- if(n==1 && sub[i]->misc&SUB_NAME) {
- changes=1;
- sub[i]->misc&=~SUB_NAME; }
- break;
- case 3:
- n=2;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- strcpy(opt[2],"Last Post Only");
- opt[3][0]=0;
- SETHELP(WHERE);
-/*
-Users Can Delete Posts on Sub-board:
-
-If you want users to be able to delete any of their own posts on this
-sub-board, set this option to Yes. If you want to allow users the
-ability to delete their message only if it is the last message on the
-sub-board, select Last Post Only. If you want to disallow users from
-deleting any of their posts, set this option to No.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Users Can Delete Posts",opt);
- if(n==-1)
- break;
- if(!n && (sub[i]->misc&(SUB_DEL|SUB_DELLAST))
- !=SUB_DEL) {
- changes=1;
- sub[i]->misc&=~SUB_DELLAST;
- sub[i]->misc|=SUB_DEL;
- break; }
- if(n==1 && sub[i]->misc&SUB_DEL) {
- changes=1;
- sub[i]->misc&=~SUB_DEL;
- break; }
- if(n==2 && (sub[i]->misc&(SUB_DEL|SUB_DELLAST))
- !=(SUB_DEL|SUB_DELLAST)) {
- changes=1;
- sub[i]->misc|=(SUB_DEL|SUB_DELLAST); }
- break;
- case 4:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Default On for New Scan:
-
-If you want this sub-board to be included in all user new message scans
-by default, set this option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Default On for New Scan",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_NSDEF)) {
- changes=1;
- sub[i]->misc|=SUB_NSDEF;
- break; }
- if(n==1 && sub[i]->misc&SUB_NSDEF) {
- changes=1;
- sub[i]->misc&=~SUB_NSDEF; }
- break;
- case 5:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Forced On for New Scan:
-
-If you want this sub-board to be included in all user new message scans
-even if the user has removed it from their new scan configuration, set
-this option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Forced New Scan",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_FORCED)) {
- changes=1;
- sub[i]->misc|=SUB_FORCED;
- break; }
- if(n==1 && sub[i]->misc&SUB_FORCED) {
- changes=1;
- sub[i]->misc&=~SUB_FORCED; }
- break;
- case 6:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Default On for Your Scan:
-
-If you want this sub-board to be included in all user personal message
-scans by default, set this option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Default On for Your Scan",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_SSDEF)) {
- changes=1;
- sub[i]->misc|=SUB_SSDEF;
- break; }
- if(n==1 && sub[i]->misc&SUB_SSDEF) {
- changes=1;
- sub[i]->misc&=~SUB_SSDEF; }
- break;
- case 7:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Prompt for 'To' User on Public Posts:
-
-If you want all posts on this sub-board to be prompted for a 'To' user,
-set this option to Yes. This is a useful option for sub-boards that
-are on a network that does not allow private posts.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Prompt for 'To' User on Public Posts",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_TOUSER)) {
- changes=1;
- sub[i]->misc|=SUB_TOUSER;
- break; }
- if(n==1 && sub[i]->misc&SUB_TOUSER) {
- changes=1;
- sub[i]->misc&=~SUB_TOUSER; }
- break;
- case 8:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Allow Message Quoting:
-
-If you want users to be allowed to quote messages on this sub-board, set
-this option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Allow Message Quoting",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_QUOTE)) {
- changes=1;
- sub[i]->misc|=SUB_QUOTE;
- break; }
- if(n==1 && sub[i]->misc&SUB_QUOTE) {
- changes=1;
- sub[i]->misc&=~SUB_QUOTE; }
- break;
- case 9:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Operator Messages Automatically Permanent:
-
-If you want messages posted by System and Sub-board Operators to be
-automatically permanent (non-purgable) for this sub-board, set this
-option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Permanent Operator Messages",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_SYSPERM)) {
- changes=1;
- sub[i]->misc|=SUB_SYSPERM;
- break; }
- if(n==1 && sub[i]->misc&SUB_SYSPERM) {
- changes=1;
- sub[i]->misc&=~SUB_SYSPERM; }
- break;
- case 10:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- strcpy(opt[2],"Private");
- opt[3][0]=0;
- SETHELP(WHERE);
-/*
-Kill Read Messages Automatically:
-
-If you want messages that have been read by the intended recipient to
-be automatically deleted by SMBUTIL, set this option to Yes or
-Private if you want only private messages to be automatically deleted.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Kill Read Messages",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_KILL)) {
- changes=1;
- sub[i]->misc|=SUB_KILL;
- sub[i]->misc&=~SUB_KILLP;
- break; }
- if(n==1 && sub[i]->misc&(SUB_KILL|SUB_KILLP)) {
- changes=1;
- sub[i]->misc&=~(SUB_KILL|SUB_KILLP); }
- if(n==2 && !(sub[i]->misc&SUB_KILLP)) {
- changes=1;
- sub[i]->misc|=SUB_KILLP;
- sub[i]->misc&=~SUB_KILL;
- break; }
- break;
-#if 1
- case 11:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Compress Messages with LZH Encoding:
-
-If you want all messages in this sub-board to be automatically
-compressed via LZH (Lempel/Ziv/Huffman algorithm used in LHarc, LHA,
-and other popular compression and archive programs), this option to Yes.
-
-Compression will slow down the reading and writing of messages slightly,
-but the storage space saved can be as much as 50 percent.
-
-Before setting this option to Yes, make sure that all of the SMB
-compatible mail programs you use support the LZH translation.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Compress Messages (LZH)",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_LZH)) {
- changes=1;
- sub[i]->misc|=SUB_LZH;
- break; }
- if(n==1 && sub[i]->misc&SUB_LZH) {
- changes=1;
- sub[i]->misc&=~SUB_LZH; }
- break;
-#endif
- } }
- break;
- case 13:
- while(1) {
- n=0;
- sprintf(opt[n++],"%-27.27s%s","Append Tag/Origin Line"
- ,sub[i]->misc&SUB_NOTAG ? "No":"Yes");
- sprintf(opt[n++],"%-27.27s%s","Export ASCII Only"
- ,sub[i]->misc&SUB_ASCII ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Gate Between Net Types"
- ,sub[i]->misc&SUB_GATE ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","QWK Networked"
- ,sub[i]->misc&SUB_QNET ? "Yes":"No");
- sprintf(opt[n++],"QWK Tagline");
- sprintf(opt[n++],"%-27.27s%s","Internet"
- ,sub[i]->misc&SUB_INET ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","PostLink or PCRelay"
- ,sub[i]->misc&SUB_PNET ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","FidoNet EchoMail"
- ,sub[i]->misc&SUB_FIDO ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","FidoNet Address"
- ,faddrtoa(sub[i]->faddr));
- sprintf(opt[n++],"EchoMail Origin Line");
- if(!sub[i]->echopath[0])
- sprintf(str,"%s%s\\",echomail_dir,sub[i]->code);
- else
- strcpy(str,sub[i]->echopath);
- sprintf(opt[n++],"%-27.27s%.40s","EchoMail Directory"
- ,str);
- if(!sub[i]->echomail_sem[0])
- strcpy(str,echomail_sem);
- else
- strcpy(str,sub[i]->echomail_sem);
- sprintf(opt[n++],"%-27.27s%.40s","EchoMail Semaphore File"
- ,str);
- opt[n][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Sub-board Network Options:
-
-This menu contains options for the selected sub-board that pertain
-specifically to message networking.
-*/
- n=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,60,&net_dflt,0
- ,"Network Options",opt);
- if(n==-1)
- break;
- savnum=3;
- switch(n) {
- case 0:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Append Tag/Origin Line to Posts:
-
-If you want to disable the automatic addition of a network tagline or
-origin line to the bottom of outgoing networked posts from this
-sub-board, set this option to No.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Append Tag/Origin Line to Posts",opt);
- if(n==-1)
- break;
- if(!n && sub[i]->misc&SUB_NOTAG) {
- changes=1;
- sub[i]->misc&=~SUB_NOTAG;
- break; }
- if(n==1 && !(sub[i]->misc&SUB_NOTAG)) {
- changes=1;
- sub[i]->misc|=SUB_NOTAG; }
- break;
- case 1:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Export ASCII Characters Only:
-
-If the network that this sub-board is echoed on does not allow extended
-ASCII (>127) or control codes (<20, not including CR), set this option
-to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Export ASCII Characters Only",opt);
- if(n==-1)
- break;
- if(n && sub[i]->misc&SUB_ASCII) {
- changes=1;
- sub[i]->misc&=~SUB_ASCII;
- break; }
- if(!n && !(sub[i]->misc&SUB_ASCII)) {
- changes=1;
- sub[i]->misc|=SUB_ASCII; }
- break;
- case 2:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Gate Between Net Types:
-
-If this sub-board is networked using more than one network technology,
-and you want messages to be gated between the networks, set this
-option to Yes.
-
-If this option is set to No, messages imported from one network type
-will not be exported to another network type. This is the default and
-should be used unless you have specific permission from both networks
-to gate this sub-board. Incorrectly gated sub-boards can cause duplicate
-messages loops and cross-posted messages.
-
-This option does not affect the exporting of messages created on your
-BBS.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Gate Between Net Types",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_GATE)) {
- changes=1;
- sub[i]->misc|=SUB_GATE;
- break; }
- if(n==1 && sub[i]->misc&SUB_GATE) {
- changes=1;
- sub[i]->misc&=~SUB_GATE; }
- break;
- case 3:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Sub-board Networked via QWK Packets:
-
-If this sub-board is networked with other BBSs via QWK packets, this
-option should be set to Yes. With this option set to Yes, titles of
-posts on this sub-board will be limited to the QWK packet limitation of
-25 characters. It also allows the Network restriction to function
-properly.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Networked via QWK Packets",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_QNET)) {
- changes=1;
- sub[i]->misc|=SUB_QNET;
- break; }
- if(n==1 && sub[i]->misc&SUB_QNET) {
- changes=1;
- sub[i]->misc&=~SUB_QNET; }
- break;
- case 4:
- SETHELP(WHERE);
-/*
-Sub-board QWK Network Tagline:
-
-If you want to use a different QWK tagline than the configured default
-tagline in the Networks configuration, you should enter that tagline
-here. If this option is left blank, the default tagline is used.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,nulstr,sub[i]->tagline
- ,63,K_MSG|K_EDIT);
- break;
- case 5:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Sub-board Networked via Internet:
-
-If this sub-board is networked to the Internet via UUCP, this option
-should be set to Yes.
-
-It will allow the Network restriction to function properly.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Networked via Internet",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_INET)) {
- changes=1;
- sub[i]->misc|=SUB_INET;
- break; }
- if(n==1 && sub[i]->misc&SUB_INET) {
- changes=1;
- sub[i]->misc&=~SUB_INET; }
- break;
- case 6:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Sub-board Networked via PostLink or PCRelay:
-
-If this sub-board is networked with other BBSs via PostLink or PCRelay,
-this option should be set to Yes. With this option set to Yes,
-titles of posts on this sub-board will be limited to the UTI
-specification limitation of 25 characters. It also allows the Network
-restriction to function properly.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Networked via PostLink or PCRelay",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_PNET)) {
- changes=1;
- sub[i]->misc|=SUB_PNET;
- break; }
- if(n==1 && sub[i]->misc&SUB_PNET) {
- changes=1;
- sub[i]->misc&=~SUB_PNET; }
- break;
- case 7:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Sub-board Networked via FidoNet EchoMail:
-
-If this sub-board is part of a FidoNet EchoMail conference, set this
-option to Yes.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Networked via FidoNet EchoMail",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_FIDO)) {
- changes=1;
- sub[i]->misc|=SUB_FIDO;
- break; }
- if(n==1 && sub[i]->misc&SUB_FIDO) {
- changes=1;
- sub[i]->misc&=~SUB_FIDO; }
- break;
- case 8:
- strcpy(str,faddrtoa(sub[i]->faddr));
- SETHELP(WHERE);
-/*
-Sub-board FidoNet Address:
-
-If this sub-board is part of a FidoNet EchoMail conference, this is
-the address used for this sub-board. Format: Zone:Net/Node[.Point]
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"FidoNet Address"
- ,str,20,K_EDIT);
- sub[i]->faddr=atofaddr(str);
- break;
- case 9:
- SETHELP(WHERE);
-/*
-Sub-board FidoNet Origin Line:
-
-If this sub-board is part of a FidoNet EchoMail conference and you
-want to use an origin line other than the default origin line in the
-Networks configuration, set this value to the desired origin line.
-
-If this option is blank, the default origin line is used.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,nulstr,sub[i]->origline
- ,50,K_EDIT);
- break;
- case 10:
- SETHELP(WHERE);
-/*
-Sub-board EchoMail Storage Directory:
-
-This is the storage directory where FidoNet style (FTS-0001 stored
-message format) messages are imported from and exported to for this
-sub-board. If this option is blank, then the EchoMail Base Directory is
-used with the internal code of this sub-board as the sub-directory where
-the FidoNet messages are stored.
-*/
-
- uinput(WIN_MID|WIN_SAV,0,0
- ,"EchoMail Directory"
- ,sub[i]->echopath,50,K_UPPER|K_EDIT);
- break;
- case 11:
-SETHELP(WHERE);
-/*
-EchoMail Semaphore File:
-
-This is a filename that will be used as a semaphore (signal) to your
-FidoNet front-end that new EchoMail has been created and the messages
-should be re-scanned.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"EchoMail Semaphore"
- ,sub[i]->echomail_sem,50,K_EDIT|K_UPPER);
- break; } }
- break;
- case 14:
- while(1) {
- n=0;
- if(sub[i]->qwkconf)
- sprintf(str,"Static (%u)",sub[i]->qwkconf);
- else
- strcpy(str,"Dynamic");
- sprintf(opt[n++],"%-27.27s%s","QWK Conference Number"
- ,str);
- sprintf(opt[n++],"%-27.27s%s","Storage Method"
- ,sub[i]->misc&SUB_HYPER ? "Hyper Allocation"
- : sub[i]->misc&SUB_FAST ? "Fast Allocation"
- : "Self-packing");
- if(!sub[i]->data_dir[0])
- sprintf(str,"%sSUBS\\",data_dir);
- else
- strcpy(str,sub[i]->data_dir);
- sprintf(opt[n++],"%-27.27s%.40s","Storage Directory",str);
- opt[n][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Sub-board Advanced Options:
-
-This menu contains options for the selected sub-board that are advanced
-in nature.
-*/
- n=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,60,&adv_dflt,0
- ,"Advanced Options",opt);
- if(n==-1)
- break;
- savnum=3;
- switch(n) {
- case 0:
- SETHELP(WHERE);
-/*
-Sub-board QWK Conference Number:
-
-If you wish to have the QWK conference number for this sub-board
-automatically generated by Synchronet (based on the group number
-and sub-board number for the user), set this option to Dynamic.
-
-If you wish to have the same QWK conference number for this sub-board
-regardless of which user access it, set this option to Static
-by entering the conference number you want to use.
-*/
- if(sub[i]->qwkconf)
- sprintf(str,"%u",sub[i]->qwkconf);
- else
- str[0]=0;
- if(uinput(WIN_MID|WIN_SAV,0,17
- ,"QWK Conference Number (0=Dynamic)"
- ,str,5,K_EDIT|K_NUMBER)>=0)
- sub[i]->qwkconf=atoi(str);
- break;
- case 1:
- n=0;
- strcpy(opt[0],"Hyper Allocation");
- strcpy(opt[1],"Fast Allocation");
- strcpy(opt[2],"Self-packing");
- opt[3][0]=0;
- SETHELP(WHERE);
-/*
-Self-Packing is the slowest storage method because it conserves disk
- space as it imports messages by using deleted message header and data
- blocks for new messages automatically. If you use this storage method,
- you will not need to run SMBUTIL P on this message base unless you
- accumilate a large number of deleted message blocks and wish to free
- that disk space. You can switch from self-packing to fast allocation
- storage method and back again as you wish.
-Fast Allocation is faster than self-packing because it does not search
- for deleted message blocks for new messages. It automatically places
- all new message blocks at the end of the header and data files. If you
- use this storage method, you will need to run SMBUTIL P on this
- message base periodically or it will continually use up disk space.
-Hyper Allocation is the fastest storage method because it does not
- maintain allocation files at all. Once a message base is setup to use
- this storage method, it should not be changed without first deleting
- the message base data files in your DATA\DIRS\SUBS directory for this
- sub-board. You must use SMBUTIL P as with the fast allocation method.
-*/
- n=ulist(WIN_SAV|WIN_MID,0,0,0,&n,0
- ,"Storage Method",opt);
- if(n==-1)
- break;
- if(!n && !(sub[i]->misc&SUB_HYPER)) {
- changes=1;
- sub[i]->misc|=SUB_HYPER;
- sub[i]->misc&=~SUB_FAST;
- sub[i]->misc|=SUB_HDRMOD;
- break; }
- if(!n)
- break;
- if(sub[i]->misc&SUB_HYPER) { /* Switching from hyper */
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No, I want to use Hyper Allocation");
- opt[2][0]=0;
- m=0;
- if(ulist(WIN_SAV|WIN_MID,0,0,0,&m,0
- ,"Delete all messages in this sub-board?",opt)!=0)
- break;
- if(sub[i]->data_dir[0])
- sprintf(str,"%s",sub[i]->data_dir);
- else
- sprintf(str,"%sSUBS\\",data_dir);
- sprintf(str2,"%s.*",sub[i]->code);
- delfiles(str,str2); }
-
- if(sub[i]->misc&SUB_HYPER)
- sub[i]->misc|=SUB_HDRMOD;
- if(n==1 && !(sub[i]->misc&SUB_FAST)) {
- changes=1;
- sub[i]->misc|=SUB_FAST;
- sub[i]->misc&=~SUB_HYPER;
- break; }
- if(n==2 && sub[i]->misc&(SUB_FAST|SUB_HYPER)) {
- changes=1;
- sub[i]->misc&=~(SUB_FAST|SUB_HYPER);
- break; }
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Sub-board Storage Directory:
-
-Use this if you wish to place the data directory for this sub-board on
-another drive or in another directory besides the default setting.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Directory"
- ,sub[i]->data_dir,50,K_EDIT|K_UPPER);
- break; } }
- break;
- } } }
-}
diff --git a/src/sbbs2/scfg/scfgsys.c b/src/sbbs2/scfg/scfgsys.c
deleted file mode 100644
index 4f6a595e3998ceffc603edf14a1c3bd8cf32d653..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgsys.c
+++ /dev/null
@@ -1,1790 +0,0 @@
-#line 2 "SCFGSYS.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-void sys_cfg(void)
-{
- static int sys_dflt,adv_dflt,tog_dflt,new_dflt;
- char str[81],str2[81],done=0,*dupehelp;
- int i,j,k,dflt,bar,savchanges;
-
-while(1) {
- i=0;
- sprintf(opt[i++],"%-33.33s%s","BBS Name",sys_name);
- sprintf(opt[i++],"%-33.33s%s","Location",sys_location);
- sprintf(opt[i++],"%-33.33s%s","Operator",sys_op);
- sprintf(opt[i++],"%-33.33s%s","Password",sys_pass);
-
- sprintf(str,"%s Password"
- ,sys_misc&SM_PWEDIT && sys_pwdays ? "Users Must Change"
- : sys_pwdays ? "Users Get New Random" : "Users Can Change");
- if(sys_pwdays)
- sprintf(tmp,"Every %u Days",sys_pwdays);
- else if(sys_misc&SM_PWEDIT)
- strcpy(tmp,"Yes");
- else
- strcpy(tmp,"No");
- sprintf(opt[i++],"%-33.33s%s",str,tmp);
-
- sprintf(opt[i++],"%-33.33s%u","Days to Preserve Deleted Users"
- ,sys_deldays);
- sprintf(opt[i++],"%-33.33s%s","Maximum Days of Inactivity"
- ,sys_autodel ? itoa(sys_autodel,tmp,10) : "Unlimited");
- sprintf(opt[i++],"%-33.33s%s","New User Password",new_pass);
-
- strcpy(opt[i++],"Toggle Options...");
- strcpy(opt[i++],"New User Values...");
- strcpy(opt[i++],"Advanced Options...");
- strcpy(opt[i++],"Loadable Modules...");
- strcpy(opt[i++],"Security Level Values...");
- strcpy(opt[i++],"Expired Account Values...");
- strcpy(opt[i++],"Quick-Validation Values...");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-System Configuration:
-
-This menu contains options and sub-menus of options that affect the
-entire system.
-*/
- switch(ulist(WIN_ORG|WIN_ACT|WIN_CHE,0,0,72,&sys_dflt,0
- ,"System Configuration",opt)) {
- case -1:
- i=save_changes(WIN_MID);
- if(i==-1)
- break;
- if(!i)
- write_main_cfg();
- return;
- case 0:
- SETHELP(WHERE);
-/*
-BBS Name:
-
-This is the name of the BBS.
-*/
- uinput(WIN_MID,0,0,"BBS Name",sys_name,40,K_EDIT);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-System Location:
-
-This is the location of the BBS. The format is flexible, but it is
-suggested you use the City, State format for clarity.
-*/
- uinput(WIN_MID,0,0,"Location",sys_location,40,K_EDIT);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-System Operator:
-
-This is the name or alias of the system operator. This does not have to
-be the same as user #1. This field is used for documentary purposes
-only.
-*/
- uinput(WIN_MID,0,0,"System Operator",sys_op,40,K_EDIT);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-System Password:
-
-This is an extra security password required for sysop logon and certain
-sysop functions. This password should be something not easily guessed
-and should be kept absolutely confidential. This password must be
-entered at the SY: prompt.
-*/
- uinput(WIN_MID,0,0,"System Password",sys_pass,40,K_EDIT|K_UPPER);
- break;
- case 4:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Allow Users to Change Their Password:
-
-If you want the users of your system to have the option of changing
-their password to a string of their choice, set this option to Yes.
-For the highest level of security, set this option to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Change Their Password",opt);
- if(!i && !(sys_misc&SM_PWEDIT)) {
- sys_misc|=SM_PWEDIT;
- changes=1; }
- else if(i==1 && sys_misc&SM_PWEDIT) {
- sys_misc&=~SM_PWEDIT;
- changes=1; }
- i=0;
- SETHELP(WHERE);
-/*
-Force Periodic Password Changes:
-
-If you want your users to be forced to change their passwords
-periodically, select Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Force Periodic Password Changes",opt);
- if(!i) {
- itoa(sys_pwdays,str,10);
- SETHELP(WHERE);
-/*
-Maximum Days Between Password Changes:
-
-Enter the maximum number of days allowed between password changes.
-If a user has not voluntarily changed his or her password in this
-many days, he or she will be forced to change their password upon
-logon.
-*/
- uinput(WIN_MID,0,0,"Maximum Days Between Password Changes"
- ,str,5,K_NUMBER|K_EDIT);
- sys_pwdays=atoi(str); }
- else if(i==1 && sys_pwdays) {
- sys_pwdays=0;
- changes=1; }
-
- break;
- case 5:
- sprintf(str,"%u",sys_deldays);
- SETHELP(WHERE);
-/*
-Days Since Last Logon to Preserve Deleted Users:
-
-Deleted user slots can be undeleted until the slot is written over
-by a new user. If you want deleted user slots to be preserved for period
-of time since their last logon, set this value to the number of days to
-keep new users from taking over a deleted user's slot.
-*/
- uinput(WIN_MID,0,0,"Days Since Last Logon to Preserve Deleted Users"
- ,str,5,K_EDIT|K_NUMBER);
- sys_deldays=atoi(str);
- break;
- case 6:
- sprintf(str,"%u",sys_autodel);
- SETHELP(WHERE);
-/*
-Maximum Days of Inactivity Before Auto-Deletion:
-
-If you want users that haven't logged on in certain period of time to
-be automatically deleted, set this value to the maximum number of days
-of inactivity before the user is deleted. Setting this value to 0
-disables this feature.
-
-Users with the P exemption will not be deleted due to inactivity.
-*/
- uinput(WIN_MID,0,0,"Maximum Days of Inactivity Before Auto-Deletion"
- ,str,5,K_EDIT|K_NUMBER);
- sys_autodel=atoi(str);
- break;
- case 7:
- SETHELP(WHERE);
-/*
-New User Password:
-
-If you want callers to only be able to logon as New if they know a
-certain password, enter that password here. If you want any caller to
-be able to logon as New, leave this option blank.
-*/
- uinput(WIN_MID,0,0,"New User Password",new_pass,40
- ,K_EDIT|K_UPPER);
- break;
- case 8: /* Toggle Options */
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-33.33s%s","Allow Aliases"
- ,uq&UQ_ALIASES ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Allow Time Banking"
- ,sys_misc&SM_TIMEBANK ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Allow Credit Conversions"
- ,sys_misc&SM_NOCDTCVT ? "No" : "Yes");
- sprintf(opt[i++],"%-33.33s%s","Allow Local Sysop Access"
- ,sys_misc&SM_L_SYSOP ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Allow Remote Sysop Access"
- ,sys_misc&SM_R_SYSOP ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Echo Passwords Locally"
- ,sys_misc&SM_ECHO_PW ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Require Passwords Locally"
- ,sys_misc&SM_REQ_PW ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Short Sysop Page"
- ,sys_misc&SM_SHRTPAGE ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Sound Alarm on Error"
- ,sys_misc&SM_ERRALARM ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Include Sysop in Statistics"
- ,sys_misc&SM_SYSSTAT ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Closed to New Users"
- ,sys_misc&SM_CLOSED ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Use Location in User Lists"
- ,sys_misc&SM_LISTLOC ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Military (24 hour) Time Format"
- ,sys_misc&SM_MILITARY ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","European Date Format (DD/MM/YY)"
- ,sys_misc&SM_EURODATE ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","User Expires When Out-of-time"
- ,sys_misc&SM_TIME_EXP ? "Yes" : "No");
- sprintf(opt[i++],"%-33.33s%s","Quick Validation Hot-Keys"
- ,sys_misc&SM_QVALKEYS ? "Yes" : "No");
- opt[i][0]=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-System Toggle Options:
-
-This is a menu of system related options that can be toggled between
-two or more states, such as Yes and No.
-*/
- switch(ulist(WIN_ACT|WIN_BOT|WIN_RHT,0,0,41,&tog_dflt,0
- ,"Toggle Options",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Users to Use Aliases:
-
-If you want the users of your system to be allowed to be known by a
-false name, handle, or alias, set this option to Yes. If you want all
-users on your system to be known only by their real names, select No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Use Aliases",opt);
- if(!i && !(uq&UQ_ALIASES)) {
- uq|=UQ_ALIASES;
- changes=1; }
- else if(i==1 && uq&UQ_ALIASES) {
- uq&=~UQ_ALIASES;
- changes=1; }
- break;
- case 1:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Time Banking:
-
-If you want the users of your system to be allowed to be deposit
-any extra time they may have left during a call into their minute bank,
-set this option to Yes. If this option is set to No, then the only
-way a user may get minutes in their minute bank is to purchase them
-with credits.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Depost Time in Minute Bank",opt);
- if(!i && !(sys_misc&SM_TIMEBANK)) {
- sys_misc|=SM_TIMEBANK;
- changes=1; }
- else if(i==1 && sys_misc&SM_TIMEBANK) {
- sys_misc&=~SM_TIMEBANK;
- changes=1; }
- break;
- case 2:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Credits to be Converted into Minutes:
-
-If you want the users of your system to be allowed to be convert
-any credits they may have into minutes for their minute bank,
-set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Users to Convert Credits into Minutes"
- ,opt);
- if(!i && sys_misc&SM_NOCDTCVT) {
- sys_misc&=~SM_NOCDTCVT;
- changes=1; }
- else if(i==1 && !(sys_misc&SM_NOCDTCVT)) {
- sys_misc|=SM_NOCDTCVT;
- changes=1; }
- break;
- case 3:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Local Sysop Access:
-
-If you want to be able to logon locally with sysop access, set this
-option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Local Sysop Access",opt);
- if(!i && !(sys_misc&SM_L_SYSOP)) {
- sys_misc|=SM_L_SYSOP;
- changes=1; }
- else if(i==1 && sys_misc&SM_L_SYSOP) {
- sys_misc&=~SM_L_SYSOP;
- changes=1; }
- break;
- case 4:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Allow Remote Sysop Access:
-
-If you want to be able to logon remotely with sysop access, set this
-option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Allow Remote Sysop Access",opt);
- if(!i && !(sys_misc&SM_R_SYSOP)) {
- sys_misc|=SM_R_SYSOP;
- changes=1; }
- else if(i==1 && sys_misc&SM_R_SYSOP) {
- sys_misc&=~SM_R_SYSOP;
- changes=1; }
- break;
- case 5:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Echo Passwords Locally:
-
-If you want to passwords to be displayed locally, set this option to
-Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Echo Passwords Locally",opt);
- if(!i && !(sys_misc&SM_ECHO_PW)) {
- sys_misc|=SM_ECHO_PW;
- changes=1; }
- else if(i==1 && sys_misc&SM_ECHO_PW) {
- sys_misc&=~SM_ECHO_PW;
- changes=1; }
- break;
- case 6:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Require Passwords Locally:
-
-If you want to passwords to be required when logged on locally, set this
-option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Require Passwords Locally",opt);
- if(!i && !(sys_misc&SM_REQ_PW)) {
- sys_misc|=SM_REQ_PW;
- changes=1; }
- else if(i==1 && sys_misc&SM_REQ_PW) {
- sys_misc&=~SM_REQ_PW;
- changes=1; }
- break;
- case 7:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Short Sysop Page:
-
-If you would like the sysop page to be a short series of beeps rather
-than continuous random tones, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0,"Short Sysop Page"
- ,opt);
- if(i==1 && sys_misc&SM_SHRTPAGE) {
- sys_misc&=~SM_SHRTPAGE;
- changes=1; }
- else if(!i && !(sys_misc&SM_SHRTPAGE)) {
- sys_misc|=SM_SHRTPAGE;
- changes=1; }
- break;
- case 8:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Sound Alarm on Error:
-
-If you would like to have an alarm sounded locally when a critical
-system error has occured, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Sound Alarm on Error",opt);
- if(i==1 && sys_misc&SM_ERRALARM) {
- sys_misc&=~SM_ERRALARM;
- changes=1; }
- else if(!i && !(sys_misc&SM_ERRALARM)) {
- sys_misc|=SM_ERRALARM;
- changes=1; }
- break;
- case 9:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Include Sysop Activity in System Statistics:
-
-If you want sysops to be included in the statistical data of the BBS,
-set this option to Yes. The suggested setting for this option is
-No so that statistical data will only reflect user usage and not
-include sysop maintenance activity.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Include Sysop Activity in System Statistics"
- ,opt);
- if(!i && !(sys_misc&SM_SYSSTAT)) {
- sys_misc|=SM_SYSSTAT;
- changes=1; }
- else if(i==1 && sys_misc&SM_SYSSTAT) {
- sys_misc&=~SM_SYSSTAT;
- changes=1; }
- break;
- case 10:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Closed to New Users:
-
-If you want callers to be able to logon as New, set this option to No.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Closed to New Users",opt);
- if(!i && !(sys_misc&SM_CLOSED)) {
- sys_misc|=SM_CLOSED;
- changes=1; }
- else if(i==1 && sys_misc&SM_CLOSED) {
- sys_misc&=~SM_CLOSED;
- changes=1; }
- break;
- case 11:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-User Location in User Lists:
-
-If you want user locations (city, state) displayed in the user lists,
-set this option to Yes. If this option is set to No, the user notes
-(if they exist) are displayed in the user lists.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"User Location (Instead of Note) in User Lists"
- ,opt);
- if(!i && !(sys_misc&SM_LISTLOC)) {
- sys_misc|=SM_LISTLOC;
- changes=1; }
- else if(i==1 && sys_misc&SM_LISTLOC) {
- sys_misc&=~SM_LISTLOC;
- changes=1; }
- break;
- case 12:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Military:
-
-If you would like the time-of-day to be displayed and entered in 24 hour
-format always, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Use Military Time Format",opt);
- if(!i && !(sys_misc&SM_MILITARY)) {
- sys_misc|=SM_MILITARY;
- changes=1; }
- else if(i==1 && sys_misc&SM_MILITARY) {
- sys_misc&=~SM_MILITARY;
- changes=1; }
- break;
- case 13:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-European Date Format:
-
-If you would like dates to be displayed and entered in DD/MM/YY format
-instead of MM/DD/YY format, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"European Date Format",opt);
- if(!i && !(sys_misc&SM_EURODATE)) {
- sys_misc|=SM_EURODATE;
- changes=1; }
- else if(i==1 && sys_misc&SM_EURODATE) {
- sys_misc&=~SM_EURODATE;
- changes=1; }
- break;
-
- case 14:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-User Expires When Out-of-time:
-
-If you want users to be set to Expired User Values if they run out of
-time online, then set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"User Expires When Out-of-time",opt);
- if(!i && !(sys_misc&SM_TIME_EXP)) {
- sys_misc|=SM_TIME_EXP;
- changes=1; }
- else if(i==1 && sys_misc&SM_TIME_EXP) {
- sys_misc&=~SM_TIME_EXP;
- changes=1; }
- break;
-
- case 15:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- SETHELP(WHERE);
-/*
-Quick Validation Hot-Keys:
-
-If you would like to enable the Alt-# hot-keys for quick user
-validation, set this option to Yes.
-*/
- i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
- ,"Quick Validation Hot-Keys",opt);
- if(!i && !(sys_misc&SM_QVALKEYS)) {
- sys_misc|=SM_QVALKEYS;
- changes=1; }
- else if(i==1 && sys_misc&SM_QVALKEYS) {
- sys_misc&=~SM_QVALKEYS;
- changes=1; }
- break;
-
- } }
- break;
- case 9: /* New User Values */
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%u","Level",new_level);
- sprintf(opt[i++],"%-27.27s%s","Flag Set #1"
- ,ltoaf(new_flags1,str));
- sprintf(opt[i++],"%-27.27s%s","Flag Set #2"
- ,ltoaf(new_flags2,str));
- sprintf(opt[i++],"%-27.27s%s","Flag Set #3"
- ,ltoaf(new_flags3,str));
- sprintf(opt[i++],"%-27.27s%s","Flag Set #4"
- ,ltoaf(new_flags4,str));
- sprintf(opt[i++],"%-27.27s%s","Exemptions"
- ,ltoaf(new_exempt,str));
- sprintf(opt[i++],"%-27.27s%s","Restrictions"
- ,ltoaf(new_rest,str));
- sprintf(opt[i++],"%-27.27s%s","Expiration Days"
- ,itoa(new_expire,str,10));
-
- ultoac(new_cdt,str);
- sprintf(opt[i++],"%-27.27s%s","Credits",str);
- ultoac(new_min,str);
- sprintf(opt[i++],"%-27.27s%s","Minutes",str);
- sprintf(opt[i++],"%-27.27s%s","Editor"
- ,new_xedit);
- sprintf(opt[i++],"%-27.27s%s","Command Shell"
- ,shell[new_shell]->code);
- if(new_prot!=SP)
- sprintf(str,"%c",new_prot);
- else
- strcpy(str,"None");
- sprintf(opt[i++],"%-27.27s%s","Download Protocol",str);
- strcpy(opt[i++],"Default Toggles...");
- strcpy(opt[i++],"Question Toggles...");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-New User Values:
-
-This menu allows you to determine the default settings for new users.
-*/
- switch(ulist(WIN_ACT|WIN_BOT|WIN_RHT,0,0,60,&new_dflt,0
- ,"New User Values",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- itoa(new_level,str,10);
- SETHELP(WHERE);
-/*
-New User Security Level:
-
-This is the security level automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Security Level"
- ,str,2,K_EDIT|K_NUMBER);
- new_level=atoi(str);
- break;
- case 1:
- ltoaf(new_flags1,str);
- SETHELP(WHERE);
-/*
-New User Security Flags:
-
-These are the security flags automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flag Set #1"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- new_flags1=aftol(str);
- break;
- case 2:
- ltoaf(new_flags2,str);
- SETHELP(WHERE);
-/*
-New User Security Flags:
-
-These are the security flags automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flag Set #2"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- new_flags2=aftol(str);
- break;
- case 3:
- ltoaf(new_flags3,str);
- SETHELP(WHERE);
-/*
-New User Security Flags:
-
-These are the security flags automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flag Set #3"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- new_flags3=aftol(str);
- break;
- case 4:
- ltoaf(new_flags4,str);
- SETHELP(WHERE);
-/*
-New User Security Flags:
-
-These are the security flags automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flag Set #4"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- new_flags4=aftol(str);
- break;
- case 5:
- ltoaf(new_exempt,str);
- SETHELP(WHERE);
-/*
-New User Exemption Flags:
-
-These are the exemptions that are automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Exemption Flags",str,26
- ,K_EDIT|K_UPPER|K_ALPHA);
- new_exempt=aftol(str);
- break;
- case 6:
- ltoaf(new_rest,str);
- SETHELP(WHERE);
-/*
-New User Restriction Flags:
-
-These are the restrictions that are automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Restriction Flags",str,26
- ,K_EDIT|K_UPPER|K_ALPHA);
- new_rest=aftol(str);
- break;
- case 7:
- itoa(new_expire,str,10);
- SETHELP(WHERE);
-/*
-New User Expiration Days:
-
-If you wish new users to have an automatic expiration date, set this
-value to the number of days before the user will expire. To disable
-New User expiration, set this value to 0.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Expiration Days",str,4
- ,K_EDIT|K_NUMBER);
- new_expire=atoi(str);
- break;
- case 8:
- ultoa(new_cdt,str,10);
- SETHELP(WHERE);
-/*
-New User Credits:
-
-This is the amount of credits that are automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Credits",str,10
- ,K_EDIT|K_NUMBER);
- new_cdt=atol(str);
- break;
- case 9:
- ultoa(new_min,str,10);
- SETHELP(WHERE);
-/*
-New User Minutes:
-
-This is the number of extra minutes automatically given to new users.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Minutes (Time Credit)"
- ,str,10,K_EDIT|K_NUMBER);
- new_min=atol(str);
- break;
- case 10:
- if(!total_xedits) {
- umsg("No External Editors Configured");
- break; }
- strcpy(opt[0],"Internal");
- for(i=1;i<=total_xedits;i++)
- strcpy(opt[i],xedit[i-1]->code);
- opt[i][0]=0;
- i=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-New User Editor:
-
-You can use this option to select the default editor for new users.
-*/
- i=ulist(WIN_SAV|WIN_RHT,2,1,13,&i,0,"Editors",opt);
- if(i==-1)
- break;
- changes=1;
- if(i && i<=total_xedits)
- sprintf(new_xedit,"%-.8s",xedit[i-1]->code);
- else
- new_xedit[0]=0;
- break;
- case 11:
- for(i=0;i<total_shells && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-.8s",shell[i]->code);
- opt[i][0]=0;
- i=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-New User Command Shell:
-
-You can use this option to select the default command shell for new
-users.
-*/
- i=ulist(WIN_SAV|WIN_RHT,2,1,13,&i,0
- ,"Command Shells",opt);
- if(i==-1)
- break;
- new_shell=i;
- changes=1;
- break;
- case 12:
- SETHELP(WHERE);
-/*
-New User Default Download Protocol:
-
-This option allows you to set the default download protocol of new users
-(protocol command key or BLANK for no default).
-*/
- sprintf(str,"%c",new_prot);
- uinput(WIN_SAV|WIN_MID,0,0
- ,"Default Download Protocol (SPACE=Disabled)"
- ,str,1,K_EDIT|K_UPPER);
- new_prot=str[0];
- if(new_prot<SP)
- new_prot=SP;
- break;
- case 13:
- SETHELP(WHERE);
-/*
-New User Default Toggle Options:
-
-This menu contains the default state of new user toggle options. All new
-users on your system will have their defaults set according to the
-settings on this menu. The user can then change them to his or her
-liking.
-
-See the Synchronet User Manual for more information on the individual
-options available.
-*/
- j=0;
- while(1) {
- i=0;
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Expert Menu Mode"
- ,new_misc&EXPERT ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Screen Pause"
- ,new_misc&UPAUSE ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Spinning Cursor"
- ,new_misc&SPIN ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Clear Screen"
- ,new_misc&CLRSCRN ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Ask For New Scan"
- ,new_misc&ASK_NSCAN ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Ask For Your Msg Scan"
- ,new_misc&ASK_SSCAN ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Automatic New File Scan"
- ,new_misc&ANFSCAN ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Remember Current Sub-board"
- ,new_misc&CURSUB ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Batch Download File Flag"
- ,new_misc&BATCHFLAG ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Extended File Descriptions"
- ,new_misc&EXTDESC ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Hot Keys"
- ,new_misc&COLDKEYS ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Auto Hang-up After Xfer"
- ,new_misc&AUTOHANG ? "Yes":"No");
- opt[i][0]=0;
- j=ulist(WIN_BOT|WIN_RHT,2,1,0,&j,0
- ,"Default Toggle Options",opt);
- if(j==-1)
- break;
- changes=1;
- switch(j) {
- case 0:
- new_misc^=EXPERT;
- break;
- case 1:
- new_misc^=UPAUSE;
- break;
- case 2:
- new_misc^=SPIN;
- break;
- case 3:
- new_misc^=CLRSCRN;
- break;
- case 4:
- new_misc^=ASK_NSCAN;
- break;
- case 5:
- new_misc^=ASK_SSCAN;
- break;
- case 6:
- new_misc^=ANFSCAN;
- break;
- case 7:
- new_misc^=CURSUB;
- break;
- case 8:
- new_misc^=BATCHFLAG;
- break;
- case 9:
- new_misc^=EXTDESC;
- break;
- case 10:
- new_misc^=COLDKEYS;
- break;
- case 11:
- new_misc^=AUTOHANG;
- break;
- } }
- break;
- case 14:
- SETHELP(WHERE);
-/*
-New User Question Toggle Options:
-
-This menu allows you to decide which questions will be asked of a new
-user.
-*/
- j=0;
- while(1) {
- i=0;
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Real Name"
- ,uq&UQ_REALNAME ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Force Unique Real Name"
- ,uq&UQ_DUPREAL ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Company Name"
- ,uq&UQ_COMPANY ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Multinode Chat Handle"
- ,uq&UQ_HANDLE ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Force Unique Chat Handle"
- ,uq&UQ_DUPHAND ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Sex (Gender)"
- ,uq&UQ_SEX ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Birthday"
- ,uq&UQ_BIRTH ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Address and Zip Code"
- ,uq&UQ_ADDRESS ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Location"
- ,uq&UQ_LOCATION ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Require Comma in Location"
- ,uq&UQ_NOCOMMAS ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Phone Number"
- ,uq&UQ_PHONE ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Computer Type"
- ,uq&UQ_COMP ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Multiple Choice Computer"
- ,uq&UQ_MC_COMP ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Allow EX-ASCII in Answers"
- ,uq&UQ_NOEXASC ? "No":"Yes");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"External Editor"
- ,uq&UQ_XEDIT ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Command Shell"
- ,uq&UQ_CMDSHELL ? "Yes":"No");
- sprintf(opt[i++],"%-27.27s %-3.3s"
- ,"Default Settings"
- ,uq&UQ_NODEF ? "No":"Yes");
- opt[i][0]=0;
- j=ulist(WIN_BOT|WIN_RHT|WIN_SAV,2,1,0,&j,0
- ,"New User Questions",opt);
- if(j==-1)
- break;
- changes=1;
- switch(j) {
- case 0:
- uq^=UQ_REALNAME;
- break;
- case 1:
- uq^=UQ_DUPREAL;
- break;
- case 2:
- uq^=UQ_COMPANY;
- break;
- case 3:
- uq^=UQ_HANDLE;
- break;
- case 4:
- uq^=UQ_DUPHAND;
- break;
- case 5:
- uq^=UQ_SEX;
- break;
- case 6:
- uq^=UQ_BIRTH;
- break;
- case 7:
- uq^=UQ_ADDRESS;
- break;
- case 8:
- uq^=UQ_LOCATION;
- break;
- case 9:
- uq^=UQ_NOCOMMAS;
- break;
- case 10:
- uq^=UQ_PHONE;
- break;
- case 11:
- uq^=UQ_COMP;
- break;
- case 12:
- uq^=UQ_MC_COMP;
- break;
- case 13:
- uq^=UQ_NOEXASC;
- break;
- case 14:
- uq^=UQ_XEDIT;
- break;
- case 15:
- uq^=UQ_CMDSHELL;
- break;
- case 16:
- uq^=UQ_NODEF;
- break;
- } }
- break; } }
- break;
- case 10: /* Advanced Options */
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%s","New User Magic Word",new_magic);
- sprintf(opt[i++],"%-27.27s%.40s","Data Directory",data_dir);
- sprintf(opt[i++],"%-27.27s%.40s","Executables Directory"
- ,exec_dir);
- sprintf(opt[i++],"%-27.27s%s","Input SIF Questionnaire"
- ,new_sif);
- sprintf(opt[i++],"%-27.27s%s","Output SIF Questionnaire"
- ,new_sof);
- ultoac(cdt_per_dollar,str);
- sprintf(opt[i++],"%-27.27s%s","Credits Per Dollar",str);
- sprintf(opt[i++],"%-27.27s%u","Minutes Per 100k Credits"
- ,cdt_min_value);
- sprintf(opt[i++],"%-27.27s%s","Maximum Number of Minutes"
- ,max_minutes ? ltoa(max_minutes,tmp,10) : "Unlimited");
- sprintf(opt[i++],"%-27.27s%u","Warning Days Till Expire"
- ,sys_exp_warn);
- sprintf(opt[i++],"%-27.27s%u","Default Status Line"
- ,sys_def_stat);
- sprintf(opt[i++],"%-27.27s%u","Last Displayable Node"
- ,sys_lastnode);
- sprintf(opt[i++],"%-27.27s%u","First Local Auto-Node"
- ,sys_autonode);
- sprintf(opt[i++],"%-27.27s%s","Phone Number Format"
- ,sys_phonefmt);
- sprintf(opt[i++],"%-27.27s%.40s","Sysop Chat Requirements"
- ,sys_chat_ar);
- opt[i][0]=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-System Advanced Options:
-
-Care should be taken when modifying any of the options listed here.
-*/
- switch(ulist(WIN_ACT|WIN_BOT|WIN_RHT,0,0,60,&adv_dflt,0
- ,"Advanced Options",opt)) {
- case -1:
- done=1;
- break;
-
- case 0:
- SETHELP(WHERE);
-/*
-New User Magic Word:
-
-If this field has a value, it is assumed the sysop has placed some
-reference to this magic word in TEXT\NEWUSER.MSG and new users
-will be prompted for the magic word after they enter their password.
-If they do not enter it correctly, it is assumed they didn't read the
-new user information displayed to them and they are disconnected.
-
-Think of it as a password to guarantee that new users read the text
-displayed to them.
-*/
- uinput(WIN_MID,0,0,"New User Magic Word",new_magic,20
- ,K_EDIT|K_UPPER);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Data Directory Parent:
-
-The Synchronet data directory contains almost all the data for your BBS.
-This directory must be located where ALL nodes can access it and
-MUST NOT be placed on a RAM disk or other volatile media.
-
-This option allows you to change the parent of your data directory.
-The \DATA\ suffix (sub-directory) cannot be changed or removed.
-*/
- strcpy(str,data_dir);
- if(strstr(str,"\\DATA\\")!=NULL)
- *strstr(str,"\\DATA\\")=0;
- if(uinput(WIN_MID|WIN_SAV,0,9,"Data Dir Parent"
- ,str,50,K_EDIT|K_UPPER)>0) {
- if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
- strcat(str,"DATA\\");
- strcpy(data_dir,str); }
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Exec Directory Parent:
-
-The Synchronet exec directory contains executable files that your BBS
-executes. This directory does not need to be in your DOS search path.
-If you place programs in this directory for the BBS to execute, you
-should place the %! abreviation for this exec directory at the
-beginning of the command line.
-
-This option allows you to change the parent of your exec directory.
-The \EXEC\ suffix (sub-directory) cannot be changed or removed.
-*/
- strcpy(str,exec_dir);
- if(strstr(str,"\\EXEC\\")!=NULL)
- *strstr(str,"\\EXEC\\")=0;
- if(uinput(WIN_MID|WIN_SAV,0,9,"Exec Dir Parent"
- ,str,50,K_EDIT|K_UPPER)>0) {
- if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
- strcat(str,"EXEC\\");
- strcpy(exec_dir,str); }
- break;
- case 3:
- strcpy(str,new_sif);
- SETHELP(WHERE);
-/*
-SIF Questionnaire for User Input:
-
-This is the name of a SIF questionnaire file that resides your text
-directory that all users will be prompted to answer.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"SIF Questionnaire for User Input"
- ,str,8,K_UPPER|K_EDIT);
- if(!str[0] || code_ok(str))
- strcpy(new_sif,str);
- else
- umsg("Invalid SIF Name");
- break;
- case 4:
- strcpy(str,new_sof);
- SETHELP(WHERE);
-/*
-SIF Questionnaire for Reviewing User Input:
-
-This is the SIF file used to review the input of users from the user
-edit function.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"SIF Questionnaire for Reviewing User Input"
- ,str,8,K_UPPER|K_EDIT);
- if(!str[0] || code_ok(str))
- strcpy(new_sof,str);
- else
- umsg("Invalid SIF Name");
- break;
- case 5:
- SETHELP(WHERE);
-/*
-Credits Per Dollar:
-
-This is the monetary value of a credit (How many credits per dollar).
-This value should be a power of 2 (1, 2, 4, 8, 16, 32, 64, 128, etc.)
-since credits are usually converted by 100 kilobyte (102400) blocks.
-To make a dollar worth two megabytes of credits, set this value to
-2,097,152 (a megabyte is 1024*1024 or 1048576).
-*/
- ultoa(cdt_per_dollar,str,10);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Credits Per Dollar",str,10,K_NUMBER|K_EDIT);
- cdt_per_dollar=atol(str);
- break;
- case 6:
- SETHELP(WHERE);
-/*
-Minutes Per 100K Credits:
-
-This is the value of a minute of time online. This field is the number
-of minutes to give the user in exchange for each 100K credit block.
-*/
- sprintf(str,"%u",cdt_min_value);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Minutes Per 100K Credits",str,5,K_NUMBER|K_EDIT);
- cdt_min_value=atoi(str);
- break;
- case 7:
- SETHELP(WHERE);
-/*
-Maximum Number of Minutes User Can Have:
-
-This value is the maximum total number of minutes a user can have. If a
-user has this number of minutes or more, they will not be allowed to
-convert credits into minutes. A sysop can add minutes to a user's
-account regardless of this maximum. If this value is set to 0, users
-will have no limit on the total number of minutes they can have.
-*/
- sprintf(str,"%lu",max_minutes);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Maximum Number of Minutes a User Can Have "
- "(0=No Limit)"
- ,str,10,K_NUMBER|K_EDIT);
- max_minutes=atol(str);
- break;
- case 8:
- SETHELP(WHERE);
-/*
-Warning Days Till Expire:
-
-If a user's account will expire in this many days or less, the user will
-be notified at logon. Setting this value to 0 disables the warning
-completely.
-*/
- sprintf(str,"%u",sys_exp_warn);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Warning Days Till Expire",str,5,K_NUMBER|K_EDIT);
- sys_exp_warn=atoi(str);
- break;
- case 9:
- SETHELP(WHERE);
-/*
-Default Status Line:
-
-This is the number of the status line format that will be the default
-display on the bottom line of the screen. For explanation of the
-available status lines, see the sysop documentation.
-*/
- sprintf(str,"%u",sys_def_stat);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Default Status Line",str,5,K_NUMBER|K_EDIT);
- sys_def_stat=atoi(str);
- break;
- case 10:
- SETHELP(WHERE);
-/*
-Last Displayed Node:
-
-This is the number of the last node to display to users in node lists.
-This allows the sysop to define the higher numbered nodes as invisible
-to users.
-*/
- sprintf(str,"%u",sys_lastnode);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Last Displayed Node",str,5,K_NUMBER|K_EDIT);
- sys_lastnode=atoi(str);
- break;
- case 11:
- SETHELP(WHERE);
-/*
-First Local Auto-Node:
-
-This is the number of the first node in the search for an available
-node for local login using the AUTONODE utility.
-*/
- sprintf(str,"%u",sys_autonode);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"First Local Auto-Node",str,5,K_NUMBER|K_EDIT);
- sys_autonode=atoi(str);
- break;
- case 12:
- SETHELP(WHERE);
-/*
-Phone Number Format:
-
-This is the format used for phone numbers in your local calling
-area. Use N for number positions, A for alphabetic, or ! for any
-character. All other characters will be static in the phone number
-format. An example for North American phone numbers is NNN-NNN-NNNN.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Phone Number Format",sys_phonefmt
- ,LEN_PHONE,K_UPPER|K_EDIT);
- break;
- case 13:
- getar("Sysop Chat",sys_chat_ar);
- break;
- } }
- break;
- case 11: /* Loadable Modules */
- done=0;
- k=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-16.16s%s","Login",login_mod);
- sprintf(opt[i++],"%-16.16s%s","Logon Event",logon_mod);
- sprintf(opt[i++],"%-16.16s%s","Sync Event",sync_mod);
- sprintf(opt[i++],"%-16.16s%s","Logoff Event",logoff_mod);
- sprintf(opt[i++],"%-16.16s%s","Logout Event",logout_mod);
- sprintf(opt[i++],"%-16.16s%s","New User Event",newuser_mod);
- sprintf(opt[i++],"%-16.16s%s","Expired User",expire_mod);
- opt[i][0]=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-Loadable Modules:
-
-Baja modules (.BIN files) can be automatically loaded and executed
-during certain system functions. The name of the module can be specified
-for each of the available triggers listed here.
-
-Login Required module for remote and local logins (online)
-Logon Executed as an event during logon procedure (online)
-Sync Executed when nodes are periodically synchronized (online)
-Logoff Executed during logoff procedure (online)
-Logout Executed during logout procedure (offline)
-New User Executed at end of new user procedure (online)
-Expired User Executed during daily event when user expires (offline)
-*/
- switch(ulist(WIN_ACT|WIN_T2B|WIN_RHT,0,0,32,&k,0
- ,"Loadable Modules",opt)) {
-
- case -1:
- done=1;
- break;
-
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0,"Login Module",login_mod,8
- ,K_EDIT|K_UPPER);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0,"Logon Module",logon_mod,8
- ,K_EDIT|K_UPPER);
- break;
- case 2:
- uinput(WIN_MID|WIN_SAV,0,0,"Synchronize Module"
- ,sync_mod,8,K_EDIT|K_UPPER);
- break;
- case 3:
- uinput(WIN_MID|WIN_SAV,0,0,"Logoff Module",logoff_mod,8
- ,K_EDIT|K_UPPER);
- break;
- case 4:
- uinput(WIN_MID|WIN_SAV,0,0,"Logout Module",logout_mod,8
- ,K_EDIT|K_UPPER);
- break;
- case 5:
- uinput(WIN_MID|WIN_SAV,0,0,"New User Module"
- ,newuser_mod,8,K_EDIT|K_UPPER);
- break;
- case 6:
- uinput(WIN_MID|WIN_SAV,0,0,"Expired User Module"
- ,expire_mod,8,K_EDIT|K_UPPER);
- break;
-
- } }
- break;
-
- case 12: /* Security Levels */
- dflt=bar=0;
- k=0;
- while(1) {
- for(i=0;i<100;i++) {
- sprintf(tmp,"%luk",level_freecdtperday[i]/1024L);
- sprintf(opt[i],"%-2d %5d %5d "
- "%5d %5d %5d %5d %6s %7s %2u",i
- ,level_timeperday[i],level_timepercall[i]
- ,level_callsperday[i],level_emailperday[i]
- ,level_postsperday[i],level_linespermsg[i]
- ,tmp
- ,level_misc[i]&LEVEL_EXPTOVAL ? "Val Set" : "Level"
- ,level_misc[i]&(LEVEL_EXPTOVAL|LEVEL_EXPTOLVL) ?
- level_expireto[i] : expired_level); }
- opt[i][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Security Level Values:
-
-This menu allows you to change the security options for every possible
-security level from 0 to 99. The available options for each level are:
-
- Time Per Day : Maximum online time per day
- Time Per Call : Maximum online time per call
- Calls Per Day : Maximum number of calls per day
- Email Per Day : Maximum number of email per day
- Posts Per Day : Maximum number of posts per day
- Lines Per Message : Maximum number of lines per message
- Free Credits Per Day : Number of free credits per day
- Expire To : Level or validation set to Expire to
-*/
- i=ulist(WIN_RHT|WIN_ACT,0,3,0,&dflt,&bar
- ,"Level T/D T/C C/D E/D P/D L/M F/D "
- "Expire To",opt);
- if(i==-1)
- break;
- while(1) {
- sprintf(str,"Security Level %d Values",i);
- j=0;
- sprintf(opt[j++],"%-22.22s%-5u","Time Per Day"
- ,level_timeperday[i]);
- sprintf(opt[j++],"%-22.22s%-5u","Time Per Call"
- ,level_timepercall[i]);
- sprintf(opt[j++],"%-22.22s%-5u","Calls Per Day"
- ,level_callsperday[i]);
- sprintf(opt[j++],"%-22.22s%-5u","Email Per Day"
- ,level_emailperday[i]);
- sprintf(opt[j++],"%-22.22s%-5u","Posts Per Day"
- ,level_postsperday[i]);
- sprintf(opt[j++],"%-22.22s%-5u","Lines Per Message"
- ,level_linespermsg[i]);
- sprintf(tmp,"%luk",level_freecdtperday[i]/1024L);
- sprintf(opt[j++],"%-22.22s%-6s","Free Credits Per Day"
- ,tmp);
- sprintf(opt[j++],"%-22.22s%s %u","Expire To"
- ,level_misc[i]&LEVEL_EXPTOVAL ? "Validation Set"
- : "Level"
- ,level_misc[i]&(LEVEL_EXPTOVAL|LEVEL_EXPTOLVL) ?
- level_expireto[i] : expired_level);
- opt[j][0]=0;
- savnum=0;
- j=ulist(WIN_RHT|WIN_SAV|WIN_ACT,2,1,0,&k,0
- ,str,opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Total Time Allowed Per Day"
- ,itoa(level_timeperday[i],tmp,10),3
- ,K_NUMBER|K_EDIT);
- level_timeperday[i]=atoi(tmp);
- if(level_timeperday[i]>500)
- level_timeperday[i]=500;
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Time Allowed Per Call"
- ,itoa(level_timepercall[i],tmp,10),3
- ,K_NUMBER|K_EDIT);
- level_timepercall[i]=atoi(tmp);
- if(level_timepercall[i]>500)
- level_timepercall[i]=500;
- break;
- case 2:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Calls Allowed Per Day"
- ,itoa(level_callsperday[i],tmp,10),4
- ,K_NUMBER|K_EDIT);
- level_callsperday[i]=atoi(tmp);
- break;
- case 3:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Email Allowed Per Day"
- ,itoa(level_emailperday[i],tmp,10),4
- ,K_NUMBER|K_EDIT);
- level_emailperday[i]=atoi(tmp);
- break;
- case 4:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Posts Allowed Per Day"
- ,itoa(level_postsperday[i],tmp,10),4
- ,K_NUMBER|K_EDIT);
- level_postsperday[i]=atoi(tmp);
- break;
- case 5:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Lines Allowed Per Message (Post/E-mail)"
- ,itoa(level_linespermsg[i],tmp,10),4
- ,K_NUMBER|K_EDIT);
- level_linespermsg[i]=atoi(tmp);
- break;
- case 6:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Free Credits Per Day (in Kilobytes)"
- ,ultoa(level_freecdtperday[i]/1024L,tmp,10),8
- ,K_EDIT|K_UPPER);
- level_freecdtperday[i]=atol(tmp)*1024L;
- break;
- case 7:
- j=0;
- sprintf(opt[j++],"Default Expired Level "
- "(Currently %u)",expired_level);
- sprintf(opt[j++],"Specific Level");
- sprintf(opt[j++],"Quick-Validation Set");
- opt[j][0]=0;
- j=0;
- sprintf(str,"Level %u Expires To",i);
- savnum=1;
- j=ulist(WIN_SAV,2,1,0,&j,0
- ,str,opt);
- if(j==-1)
- break;
- if(j==0) {
- level_misc[i]&=
- ~(LEVEL_EXPTOLVL|LEVEL_EXPTOVAL);
- changes=1;
- break; }
- if(j==1) {
- level_misc[i]&=~LEVEL_EXPTOVAL;
- level_misc[i]|=LEVEL_EXPTOLVL;
- changes=1;
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Expired Level"
- ,itoa(level_expireto[i],tmp,10),2
- ,K_EDIT|K_NUMBER);
- level_expireto[i]=atoi(tmp);
- break; }
- level_misc[i]&=~LEVEL_EXPTOLVL;
- level_misc[i]|=LEVEL_EXPTOVAL;
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Quick-Validation Set to Expire To"
- ,itoa(level_expireto[i],tmp,10),1
- ,K_EDIT|K_NUMBER);
- level_expireto[i]=atoi(tmp);
- break;
- } } }
- break;
- case 13: /* Expired Acccount Values */
- dflt=0;
- done=0;
- while(!done) {
- i=0;
- sprintf(opt[i++],"%-27.27s%u","Level",expired_level);
- sprintf(opt[i++],"%-27.27s%s","Flag Set #1 to Remove"
- ,ltoaf(expired_flags1,str));
- sprintf(opt[i++],"%-27.27s%s","Flag Set #2 to Remove"
- ,ltoaf(expired_flags2,str));
- sprintf(opt[i++],"%-27.27s%s","Flag Set #3 to Remove"
- ,ltoaf(expired_flags3,str));
- sprintf(opt[i++],"%-27.27s%s","Flag Set #4 to Remove"
- ,ltoaf(expired_flags4,str));
- sprintf(opt[i++],"%-27.27s%s","Exemptions to Remove"
- ,ltoaf(expired_exempt,str));
- sprintf(opt[i++],"%-27.27s%s","Restrictions to Add"
- ,ltoaf(expired_rest,str));
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-Expired Account Values:
-
-If a user's account expires, the security levels for that account will
-be modified according to the settings of this menu. The Main Level and
-Transfer Level will be set to the values listed on this menu. The Main
-Flags, Transfer Flags, and Exemptions listed on this menu will be
-removed from the account if they are set. The Restrictions listed will
-be added to the account.
-*/
- switch(ulist(WIN_ACT|WIN_BOT|WIN_RHT,0,0,60,&dflt,0
- ,"Expired Account Values",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- itoa(expired_level,str,10);
- SETHELP(WHERE);
-/*
-Expired Account Security Level:
-
-This is the security level automatically given to expired user accounts.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Security Level"
- ,str,2,K_EDIT|K_NUMBER);
- expired_level=atoi(str);
- break;
- case 1:
- ltoaf(expired_flags1,str);
- SETHELP(WHERE);
-/*
-Expired Security Flags to Remove:
-
-These are the security flags automatically removed when a user account
-has expired.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flags Set #1"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- expired_flags1=aftol(str);
- break;
- case 2:
- ltoaf(expired_flags2,str);
- SETHELP(WHERE);
-/*
-Expired Security Flags to Remove:
-
-These are the security flags automatically removed when a user account
-has expired.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flags Set #2"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- expired_flags2=aftol(str);
- break;
- case 3:
- ltoaf(expired_flags3,str);
- SETHELP(WHERE);
-/*
-Expired Security Flags to Remove:
-
-These are the security flags automatically removed when a user account
-has expired.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flags Set #3"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- expired_flags3=aftol(str);
- break;
- case 4:
- ltoaf(expired_flags4,str);
- SETHELP(WHERE);
-/*
-Expired Security Flags to Remove:
-
-These are the security flags automatically removed when a user account
-has expired.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Flags Set #4"
- ,str,26,K_EDIT|K_UPPER|K_ALPHA);
- expired_flags4=aftol(str);
- break;
- case 5:
- ltoaf(expired_exempt,str);
- SETHELP(WHERE);
-/*
-Expired Exemption Flags to Remove:
-
-These are the exemptions that are automatically removed from a user
-account if it expires.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Exemption Flags",str,26
- ,K_EDIT|K_UPPER|K_ALPHA);
- expired_exempt=aftol(str);
- break;
- case 6:
- ltoaf(expired_rest,str);
- SETHELP(WHERE);
-/*
-Expired Restriction Flags to Add:
-
-These are the restrictions that are automatically added to a user
-account if it expires.
-*/
- uinput(WIN_SAV|WIN_MID,0,0,"Restriction Flags",str,26
- ,K_EDIT|K_UPPER|K_ALPHA);
- expired_rest=aftol(str);
- break; } }
- break;
- case 14: /* Quick-Validation Values */
- dflt=0;
- k=0;
- while(1) {
- for(i=0;i<10;i++)
- sprintf(opt[i],"%d SL: %-2d F1: %s"
- ,i,val_level[i],ltoaf(val_flags1[i],str));
- opt[i][0]=0;
- i=0;
- SETHELP(WHERE);
-/*
-Quick-Validation Values:
-
-This is a list of the ten quick-validation sets. These sets are used to
-quickly set a user's security values (Level, Flags, Exemptions,
-Restrictions, Expiration Date, and Credits) with one key stroke. The
-user's expiration date may be extended and additional credits may also
-be added using quick-validation sets.
-
-Holding down ALT and one of the number keys (1-9) while a user
-is online, automatically sets his or user security values to the
-quick-validation set for that number key.
-
-From within the User Edit function, a sysop can use the Validate
-User command and select from this quick-validation list to change a
-user's security values with very few key-strokes.
-*/
- savnum=0;
- i=ulist(WIN_RHT|WIN_BOT|WIN_ACT|WIN_SAV,0,0,0,&dflt,0
- ,"Quick-Validation Values",opt);
- if(i==-1)
- break;
- sprintf(str,"Quick-Validation Set %d",i);
- savnum=0;
- while(1) {
- j=0;
- sprintf(opt[j++],"%-22.22s%u","Level",val_level[i]);
- sprintf(opt[j++],"%-22.22s%s","Flag Set #1"
- ,ltoaf(val_flags1[i],tmp));
- sprintf(opt[j++],"%-22.22s%s","Flag Set #2"
- ,ltoaf(val_flags2[i],tmp));
- sprintf(opt[j++],"%-22.22s%s","Flag Set #3"
- ,ltoaf(val_flags3[i],tmp));
- sprintf(opt[j++],"%-22.22s%s","Flag Set #4"
- ,ltoaf(val_flags4[i],tmp));
- sprintf(opt[j++],"%-22.22s%s","Exemptions"
- ,ltoaf(val_exempt[i],tmp));
- sprintf(opt[j++],"%-22.22s%s","Restrictions"
- ,ltoaf(val_rest[i],tmp));
- sprintf(opt[j++],"%-22.22s%u days","Extend Expiration"
- ,val_expire[i]);
- sprintf(opt[j++],"%-22.22s%lu","Additional Credits"
- ,val_cdt[i]);
- opt[j][0]=0;
- savnum=1;
- j=ulist(WIN_RHT|WIN_SAV|WIN_ACT,2,1,0,&k,0
- ,str,opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Level"
- ,itoa(val_level[i],tmp,10),2
- ,K_NUMBER|K_EDIT);
- val_level[i]=atoi(tmp);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Flag Set #1"
- ,ltoaf(val_flags1[i],tmp),26
- ,K_UPPER|K_ALPHA|K_EDIT);
- val_flags1[i]=aftol(tmp);
- break;
- case 2:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Flag Set #2"
- ,ltoaf(val_flags2[i],tmp),26
- ,K_UPPER|K_ALPHA|K_EDIT);
- val_flags2[i]=aftol(tmp);
- break;
- case 3:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Flag Set #3"
- ,ltoaf(val_flags3[i],tmp),26
- ,K_UPPER|K_ALPHA|K_EDIT);
- val_flags3[i]=aftol(tmp);
- break;
- case 4:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Flag Set #4"
- ,ltoaf(val_flags4[i],tmp),26
- ,K_UPPER|K_ALPHA|K_EDIT);
- val_flags4[i]=aftol(tmp);
- break;
- case 5:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Exemption Flags"
- ,ltoaf(val_exempt[i],tmp),26
- ,K_UPPER|K_ALPHA|K_EDIT);
- val_exempt[i]=aftol(tmp);
- break;
- case 6:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Restriction Flags"
- ,ltoaf(val_rest[i],tmp),26
- ,K_UPPER|K_ALPHA|K_EDIT);
- val_rest[i]=aftol(tmp);
- break;
- case 7:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Days to Extend Expiration"
- ,itoa(val_expire[i],tmp,10),4
- ,K_NUMBER|K_EDIT);
- val_expire[i]=atoi(tmp);
- break;
- case 8:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Additional Credits"
- ,ultoa(val_cdt[i],tmp,10),10
- ,K_NUMBER|K_EDIT);
- val_cdt[i]=atol(tmp);
- break; } } }
- break; } }
-
-}
diff --git a/src/sbbs2/scfg/scfgxfr1.c b/src/sbbs2/scfg/scfgxfr1.c
deleted file mode 100644
index 8fcb4e5ebb96ace982039f2968b5f5bed65dabc1..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgxfr1.c
+++ /dev/null
@@ -1,976 +0,0 @@
-#line 2 "SCFGXFR1.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-void xfer_opts()
-{
- static int xfr_dflt;
- char str[81],done;
- int i,j,k,l,dflt,bar;
- static fextr_t savfextr;
- static fview_t savfview;
- static ftest_t savftest;
- static fcomp_t savfcomp;
- static prot_t savprot;
- static dlevent_t savdlevent;
- static char savaltpath[LEN_DIR+1];
-
-while(1) {
- i=0;
- sprintf(opt[i++],"%-33.33s%uk","Min Bytes Free Disk Space",min_dspace);
- sprintf(opt[i++],"%-33.33s%u","Max Files in Batch UL Queue"
- ,max_batup);
- sprintf(opt[i++],"%-33.33s%u","Max Files in Batch DL Queue"
- ,max_batdn);
- sprintf(opt[i++],"%-33.33s%u","Max Users in User Transfers",max_userxfer);
- sprintf(opt[i++],"%-33.33s%u%%","Default Credit on Upload"
- ,cdt_up_pct);
- sprintf(opt[i++],"%-33.33s%u%%","Default Credit on Download"
- ,cdt_dn_pct);
- if(leech_pct)
- sprintf(str,"%u%% after %u seconds",leech_pct,leech_sec);
- else
- strcpy(str,"Disabled");
- sprintf(opt[i++],"%-33.33s%s","Leech Protocol Detection",str);
- strcpy(opt[i++],"Viewable Files...");
- strcpy(opt[i++],"Testable Files...");
- strcpy(opt[i++],"Download Events...");
- strcpy(opt[i++],"Extractable Files...");
- strcpy(opt[i++],"Compressable Files...");
- strcpy(opt[i++],"Transfer Protocols...");
- strcpy(opt[i++],"Alternate File Paths...");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-File Transfer Configuration:
-
-This menu has options and sub-menus that pertain specifically to the
-file transfer section of the BBS.
-*/
- switch(ulist(WIN_ORG|WIN_ACT|WIN_CHE,0,0,72,&xfr_dflt,0
- ,"File Transfer Configuration",opt)) {
- case -1:
- i=save_changes(WIN_MID);
- if(i==-1)
- break;
- if(!i)
- write_file_cfg();
- return;
- case 0:
- SETHELP(WHERE);
-/*
-Minimum Kilobytes Free Disk Space to Allow Uploads:
-
-This is the minimum free space in a file directory to allow user
-uploads.
-*/
- uinput(WIN_MID,0,0
- ,"Minimum Kilobytes Free Disk Space to Allow Uploads"
- ,itoa(min_dspace,tmp,10),5,K_EDIT|K_NUMBER);
- min_dspace=atoi(tmp);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Maximum Files in Batch Upload Queue:
-
-This is the maximum number of files that can be placed in the batch
-upload queue.
-*/
- uinput(WIN_MID,0,0,"Maximum Files in Batch Upload Queue"
- ,itoa(max_batup,tmp,10),5,K_EDIT|K_NUMBER);
- max_batup=atoi(tmp);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Maximum Files in Batch Download Queue:
-
-This is the maximum number of files that can be placed in the batch
-download queue.
-*/
- uinput(WIN_MID,0,0,"Maximum Files in Batch Download Queue"
- ,itoa(max_batdn,tmp,10),5,K_EDIT|K_NUMBER);
- max_batdn=atoi(tmp);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-Maximum Destination Users in User to User Transfer:
-
-This is the maximum number of users allowed in the destination user list
-of a user to user upload.
-*/
- uinput(WIN_MID,0,0
- ,"Maximum Destination Users in User to User Transfers"
- ,itoa(max_userxfer,tmp,10),5,K_EDIT|K_NUMBER);
- max_userxfer=atoi(tmp);
- break;
- case 4:
-SETHELP(WHERE);
-/*
-Default Percentage of Credits to Credit Uploader on Upload:
-
-This is the default setting that will be used when new file
-directories are created.
-*/
- uinput(WIN_MID,0,0
- ,"Default Percentage of Credits to Credit Uploader on Upload"
- ,itoa(cdt_up_pct,tmp,10),4,K_EDIT|K_NUMBER);
- cdt_up_pct=atoi(tmp);
- break;
- case 5:
-SETHELP(WHERE);
-/*
-Default Percentage of Credits to Credit Uploader on Download:
-
-This is the default setting that will be used when new file
-directories are created.
-*/
- uinput(WIN_MID,0,0
- ,"Default Percentage of Credits to Credit Uploader on Download"
- ,itoa(cdt_dn_pct,tmp,10),4,K_EDIT|K_NUMBER);
- cdt_dn_pct=atoi(tmp);
- break;
- case 6:
- SETHELP(WHERE);
-/*
-Leech Protocol Detection Percentage:
-
-This value is the sensitivity of the leech protocol detection feature of
-Synchronet. If the transfer is apparently unsuccessful, but the transfer
-time was at least this percentage of the estimated transfer time (based
-on the estimated CPS of the connection result code), then a leech
-protocol error is issued and the user's leech download counter is
-incremented. Setting this value to 0 disables leech protocol detection.
-*/
- savnum=0;
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Leech Protocol Detection Percentage (0=Disabled)"
- ,itoa(leech_pct,tmp,10),3,K_EDIT|K_NUMBER);
- leech_pct=atoi(tmp);
- if(!leech_pct)
- break;
- SETHELP(WHERE);
-/*
-Leech Protocol Minimum Time (in Seconds):
-
-This option allows you to adjust the sensitivity of the leech protocol
-detection feature. This value is the minimum length of transfer time
-(in seconds) that must elapse before an aborted tranfser will be
-considered a possible leech attempt.
-*/
- uinput(WIN_MID,0,0
- ,"Leech Protocol Minimum Time (in Seconds)"
- ,itoa(leech_sec,tmp,10),3,K_EDIT|K_NUMBER);
- leech_sec=atoi(tmp);
- break;
- case 7: /* Viewable file types */
- dflt=bar=0;
- while(1) {
- for(i=0;i<total_fviews && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-3.3s %-40s",fview[i]->ext,fview[i]->cmd);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if(total_fviews<MAX_OPTS)
- i|=WIN_INS;
- if(total_fviews)
- i|=WIN_DEL|WIN_GET;
- if(savfview.cmd[0])
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-Viewable File Types:
-
-This is a list of file types that have content information that can be
-viewed through the execution of an external program. Here are a couple of
-command line examples for a few file types.
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"Viewable File Types",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(fview[i]);
- total_fviews--;
- while(i<total_fviews) {
- fview[i]=fview[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((fview=(fview_t **)REALLOC(fview
- ,sizeof(fview_t *)*(total_fviews+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_fviews+1);
- total_fviews=0;
- bail(1);
- continue; }
- if(!total_fviews) {
- if((fview[0]=(fview_t *)MALLOC(
- sizeof(fview_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(fview_t));
- continue; }
- memset(fview[0],0,sizeof(fview_t));
- strcpy(fview[0]->ext,"ZIP");
- strcpy(fview[0]->cmd,"%!pkunzip -v %f"); }
- else {
- for(j=total_fviews;j>i;j--)
- fview[j]=fview[j-1];
- if((fview[i]=(fview_t *)MALLOC(
- sizeof(fview_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(fview_t));
- continue; }
- *fview[i]=*fview[i+1]; }
- total_fviews++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savfview=*fview[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *fview[i]=savfview;
- changes=1;
- continue; }
- k=0;
- done=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-22.22s%s","File Extension"
- ,fview[i]->ext);
- sprintf(opt[j++],"%-22.22s%-40s","Command Line"
- ,fview[i]->cmd);
- sprintf(opt[j++],"%-22.22s%s","Access Requirements"
- ,fview[i]->ar);
- opt[j][0]=0;
- savnum=1;
- switch(ulist(WIN_RHT|WIN_BOT|WIN_SAV|WIN_ACT,0,0,0,&k,0
- ,"Viewable File Type",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Viewable File Type Extension"
- ,fview[i]->ext,3,K_UPPER|K_EDIT);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Command Line"
- ,fview[i]->cmd,50,K_EDIT);
- break;
- case 2:
- savnum=2;
- sprintf(str,"Viewable File Type %s"
- ,fview[i]->ext);
- getar(str,fview[i]->ar);
- break; } } }
- break;
- case 8: /* Testable file types */
- dflt=bar=0;
- while(1) {
- for(i=0;i<total_ftests && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-3.3s %-40s",ftest[i]->ext,ftest[i]->cmd);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if(total_ftests<MAX_OPTS)
- i|=WIN_INS;
- if(total_ftests)
- i|=WIN_DEL|WIN_GET;
- if(savftest.cmd[0])
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-Testable File Types:
-
-This is a list of file types that will have a command line executed to
-test the file integrity upon their upload. The file types are specified
-by extension and if one file extension is listed more than once, each
-command line will be executed. The command lines must return a DOS error
-code of 0 (no error) in order for the file to pass the test. This method
-of file testing upon upload is also known as an upload event. This test
-or event, can do more than just test the file, it can perform any
-function that the sysop wishes. Such as adding comments to an archived
-file, or extracting an archive and performing a virus scan. While the
-external program is executing, a text string is displayed to the user.
-This working string can be set for each file type and command line
-listed.
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"Testable File Types",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(ftest[i]);
- total_ftests--;
- while(i<total_ftests) {
- ftest[i]=ftest[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((ftest=(ftest_t **)REALLOC(ftest
- ,sizeof(ftest_t *)*(total_ftests+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_ftests+1);
- total_ftests=0;
- bail(1);
- continue; }
- if(!total_ftests) {
- if((ftest[0]=(ftest_t *)MALLOC(
- sizeof(ftest_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(ftest_t));
- continue; }
- memset(ftest[0],0,sizeof(ftest_t));
- strcpy(ftest[0]->ext,"ZIP");
- strcpy(ftest[0]->cmd,"%!pkunzip -t %f");
- strcpy(ftest[0]->workstr,"Testing ZIP Integrity..."); }
- else {
-
- for(j=total_ftests;j>i;j--)
- ftest[j]=ftest[j-1];
- if((ftest[i]=(ftest_t *)MALLOC(
- sizeof(ftest_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(ftest_t));
- continue; }
- *ftest[i]=*ftest[i+1]; }
- total_ftests++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savftest=*ftest[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *ftest[i]=savftest;
- changes=1;
- continue; }
- done=0;
- k=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-22.22s%s","File Extension"
- ,ftest[i]->ext);
- sprintf(opt[j++],"%-22.22s%-40s","Command Line"
- ,ftest[i]->cmd);
- sprintf(opt[j++],"%-22.22s%s","Working String"
- ,ftest[i]->workstr);
- sprintf(opt[j++],"%-22.22s%s","Access Requirements"
- ,ftest[i]->ar);
- opt[j][0]=0;
- savnum=1;
- switch(ulist(WIN_RHT|WIN_BOT|WIN_SAV|WIN_ACT,0,0,0,&k,0
- ,"Testable File Type",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Testable File Type Extension"
- ,ftest[i]->ext,3,K_UPPER|K_EDIT);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Command Line"
- ,ftest[i]->cmd,50,K_EDIT);
- break;
- case 2:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Working String"
- ,ftest[i]->workstr,40,K_EDIT|K_MSG);
- break;
- case 3:
- savnum=2;
- sprintf(str,"Testable File Type %s",ftest[i]->ext);
- getar(str,ftest[i]->ar);
- break; } } }
- break;
- case 9: /* Download Events */
- dflt=bar=0;
- while(1) {
- for(i=0;i<total_dlevents && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-3.3s %-40s",dlevent[i]->ext,dlevent[i]->cmd);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if(total_dlevents<MAX_OPTS)
- i|=WIN_INS;
- if(total_dlevents)
- i|=WIN_DEL|WIN_GET;
- if(savdlevent.cmd[0])
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-Download Events:
-
-This is a list of file types that will have a command line executed to
-perform an event upon their download (e.g. trigger a download event).
-The file types are specified by extension and if one file extension
-is listed more than once, each command line will be executed. The
-command lines must return a DOS error code of 0 (no error) in order
-for the file to pass the test. This test or event, can do more than
-just test the file, it can perform any function that the sysop wishes.
-Such as adding comments to an archived file, or extracting an archive
-and performing a virus scan. While the external program is executing,
-a text string is displayed to the user. This working string can be set
-for each file type and command line listed.
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"Download Events",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(dlevent[i]);
- total_dlevents--;
- while(i<total_dlevents) {
- dlevent[i]=dlevent[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((dlevent=(dlevent_t **)REALLOC(dlevent
- ,sizeof(dlevent_t *)*(total_dlevents+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_dlevents+1);
- total_dlevents=0;
- bail(1);
- continue; }
- if(!total_dlevents) {
- if((dlevent[0]=(dlevent_t *)MALLOC(
- sizeof(dlevent_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(dlevent_t));
- continue; }
- memset(dlevent[0],0,sizeof(dlevent_t));
- strcpy(dlevent[0]->ext,"ZIP");
- strcpy(dlevent[0]->cmd,"%!pkzip -z %f "
- "< ..\\text\\zipmsg.txt");
- strcpy(dlevent[0]->workstr,"Adding ZIP Comment..."); }
- else {
-
- for(j=total_dlevents;j>i;j--)
- dlevent[j]=dlevent[j-1];
- if((dlevent[i]=(dlevent_t *)MALLOC(
- sizeof(dlevent_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(dlevent_t));
- continue; }
- *dlevent[i]=*dlevent[i+1]; }
- total_dlevents++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savdlevent=*dlevent[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *dlevent[i]=savdlevent;
- changes=1;
- continue; }
- done=0;
- k=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-22.22s%s","File Extension"
- ,dlevent[i]->ext);
- sprintf(opt[j++],"%-22.22s%-40s","Command Line"
- ,dlevent[i]->cmd);
- sprintf(opt[j++],"%-22.22s%s","Working String"
- ,dlevent[i]->workstr);
- sprintf(opt[j++],"%-22.22s%s","Access Requirements"
- ,dlevent[i]->ar);
- opt[j][0]=0;
- savnum=1;
- switch(ulist(WIN_RHT|WIN_BOT|WIN_SAV|WIN_ACT,0,0,0,&k,0
- ,"Download Event",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Download Event Extension"
- ,dlevent[i]->ext,3,K_UPPER|K_EDIT);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Command Line"
- ,dlevent[i]->cmd,50,K_EDIT);
- break;
- case 2:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Working String"
- ,dlevent[i]->workstr,40,K_EDIT|K_MSG);
- break;
- case 3:
- savnum=2;
- sprintf(str,"Download Event %s",dlevent[i]->ext);
- getar(str,dlevent[i]->ar);
- break; } } }
- break;
- case 10: /* Extractable file types */
- dflt=bar=0;
- while(1) {
- for(i=0;i<total_fextrs && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-3.3s %-40s"
- ,fextr[i]->ext,fextr[i]->cmd);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if(total_fextrs<MAX_OPTS)
- i|=WIN_INS;
- if(total_fextrs)
- i|=WIN_DEL|WIN_GET;
- if(savfextr.cmd[0])
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-Extractable File Types:
-
-This is a list of archive file types that can be extracted to the temp
-directory by an external program. The file types are specified by their
-extension. For each file type you must specify the command line used to
-extract the file(s).
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"Extractable File Types",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(fextr[i]);
- total_fextrs--;
- while(i<total_fextrs) {
- fextr[i]=fextr[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((fextr=(fextr_t **)REALLOC(fextr
- ,sizeof(fextr_t *)*(total_fextrs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_fextrs+1);
- total_fextrs=0;
- bail(1);
- continue; }
- if(!total_fextrs) {
- if((fextr[0]=(fextr_t *)MALLOC(
- sizeof(fextr_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(fextr_t));
- continue; }
- memset(fextr[0],0,sizeof(fextr_t));
- strcpy(fextr[0]->ext,"ZIP");
- strcpy(fextr[0]->cmd,"%!pkunzip -o %f %g %s"); }
- else {
-
- for(j=total_fextrs;j>i;j--)
- fextr[j]=fextr[j-1];
- if((fextr[i]=(fextr_t *)MALLOC(
- sizeof(fextr_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(fextr_t));
- continue; }
- *fextr[i]=*fextr[i+1]; }
- total_fextrs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savfextr=*fextr[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *fextr[i]=savfextr;
- changes=1;
- continue; }
- k=0;
- done=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-22.22s%s","File Extension"
- ,fextr[i]->ext);
- sprintf(opt[j++],"%-22.22s%-40s","Command Line"
- ,fextr[i]->cmd);
- sprintf(opt[j++],"%-22.22s%s","Access Requirements"
- ,fextr[i]->ar);
- opt[j][0]=0;
- savnum=1;
- switch(ulist(WIN_RHT|WIN_BOT|WIN_SAV|WIN_ACT,0,0,0,&k,0
- ,"Extractable File Type",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Extractable File Type Extension"
- ,fextr[i]->ext,3,K_UPPER|K_EDIT);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Command Line"
- ,fextr[i]->cmd,50,K_EDIT);
- break;
- case 2:
- savnum=2;
- sprintf(str,"Extractable File Type %s"
- ,fextr[i]->ext);
- getar(str,fextr[i]->ar);
- break; } } }
- break;
- case 11: /* Compressable file types */
- dflt=bar=0;
- while(1) {
- for(i=0;i<total_fcomps && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-3.3s %-40s",fcomp[i]->ext,fcomp[i]->cmd);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if(total_fcomps<MAX_OPTS)
- i|=WIN_INS;
- if(total_fcomps)
- i|=WIN_DEL|WIN_GET;
- if(savfcomp.cmd[0])
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-Compressable File Types:
-
-This is a list of compression methods available for different file types.
-These will be used for items such as creating QWK packets, temporary
-files from the transfer section, and more.
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"Compressable File Types",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(fcomp[i]);
- total_fcomps--;
- while(i<total_fcomps) {
- fcomp[i]=fcomp[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((fcomp=(fcomp_t **)REALLOC(fcomp
- ,sizeof(fcomp_t *)*(total_fcomps+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_fcomps+1);
- total_fcomps=0;
- bail(1);
- continue; }
- if(!total_fcomps) {
- if((fcomp[0]=(fcomp_t *)MALLOC(
- sizeof(fcomp_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(fcomp_t));
- continue; }
- memset(fcomp[0],0,sizeof(fcomp_t));
- strcpy(fcomp[0]->ext,"ZIP");
- strcpy(fcomp[0]->cmd,"%!pkzip %f %s"); }
- else {
- for(j=total_fcomps;j>i;j--)
- fcomp[j]=fcomp[j-1];
- if((fcomp[i]=(fcomp_t *)MALLOC(
- sizeof(fcomp_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(fcomp_t));
- continue; }
- *fcomp[i]=*fcomp[i+1]; }
- total_fcomps++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savfcomp=*fcomp[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *fcomp[i]=savfcomp;
- changes=1;
- continue; }
- k=0;
- done=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-22.22s%s","File Extension"
- ,fcomp[i]->ext);
- sprintf(opt[j++],"%-22.22s%-40s","Command Line"
- ,fcomp[i]->cmd);
- sprintf(opt[j++],"%-22.22s%s","Access Requirements"
- ,fcomp[i]->ar);
- opt[j][0]=0;
- savnum=1;
- switch(ulist(WIN_RHT|WIN_BOT|WIN_SAV|WIN_ACT,0,0,0,&k,0
- ,"Compressable File Type",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Compressable File Type Extension"
- ,fcomp[i]->ext,3,K_UPPER|K_EDIT);
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Command Line"
- ,fcomp[i]->cmd,50,K_EDIT);
- break;
- case 2:
- savnum=2;
- sprintf(str,"Compressable File Type %s"
- ,fcomp[i]->ext);
- getar(str,fcomp[i]->ar);
- break; } } }
- break;
- case 12: /* Transfer protocols */
- dflt=bar=0;
- while(1) {
- for(i=0;i<total_prots && i<MAX_OPTS;i++)
- sprintf(opt[i],"%c %-40s"
- ,prot[i]->mnemonic,prot[i]->ulcmd);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if(total_prots<MAX_OPTS)
- i|=WIN_INS;
- if(total_prots)
- i|=WIN_DEL|WIN_GET;
- if(savprot.mnemonic)
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-File Transfer Protocols:
-
-This is a list of file transfer protocols that can be used to transfer
-files either to or from a remote user. For each protocol, you can
-specify the mnemonic (hot-key) to use to specify that protocol, the
-command line to use for uploads, downloads, batch uploads, batch
-downloads, bidirectional file transfers, and the support of DSZLOG. If
-the protocol doesn't support a certain method of transfer, or you don't
-wish it to be available for a certain method of transfer, leave the
-command line for that method blank. Be advised, that if you add or
-remove any transfer protocols, you will need to edit the protocol menus
-(ULPROT, DLPROT, BATUPROT, BATDPROT, and BIPROT) in the TEXT\MENU
-directory accordingly.
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"File Transfer Protocols",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(prot[i]);
- total_prots--;
- while(i<total_prots) {
- prot[i]=prot[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((prot=(prot_t **)REALLOC(prot
- ,sizeof(prot_t *)*(total_prots+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_prots+1);
- total_prots=0;
- bail(1);
- continue; }
- if(!total_prots) {
- if((prot[0]=(prot_t *)MALLOC(
- sizeof(prot_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(prot_t));
- continue; }
- memset(prot[0],0,sizeof(prot_t));
- prot[0]->mnemonic='Y';
- prot[0]->misc=PROT_DSZLOG;
- strcpy(prot[0]->ulcmd
- ,"%!dsz port %p estimate 0 %e rb %f");
- strcpy(prot[0]->dlcmd
- ,"%!dsz port %p estimate 0 %e sb %f");
- strcpy(prot[0]->batulcmd
- ,"%!dsz port %p estimate 0 %e rb %f");
- strcpy(prot[0]->batdlcmd
- ,"%!dsz port %p estimate 0 %e sb @%f"); }
- else {
-
- for(j=total_prots;j>i;j--)
- prot[j]=prot[j-1];
- if((prot[i]=(prot_t *)MALLOC(
- sizeof(prot_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(prot_t));
- continue; }
- *prot[i]=*prot[i+1]; }
- total_prots++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savprot=*prot[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *prot[i]=savprot;
- changes=1;
- continue; }
- done=0;
- k=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-25.25s%c","Mnemonic (Command Key)"
- ,prot[i]->mnemonic);
- sprintf(opt[j++],"%-25.25s%-40s","Protocol Name"
- ,prot[i]->name);
- sprintf(opt[j++],"%-25.25s%-40s","Access Requirements"
- ,prot[i]->ar);
- sprintf(opt[j++],"%-25.25s%-40s","Upload Command Line"
- ,prot[i]->ulcmd);
- sprintf(opt[j++],"%-25.25s%-40s","Download Command Line"
- ,prot[i]->dlcmd);
- sprintf(opt[j++],"%-25.25s%-40s","Batch UL Command Line"
- ,prot[i]->batulcmd);
- sprintf(opt[j++],"%-25.25s%-40s","Batch DL Command Line"
- ,prot[i]->batdlcmd);
- sprintf(opt[j++],"%-25.25s%-40s","Bidir Command Line"
- ,prot[i]->bicmd);
- sprintf(opt[j++],"%-25.25s%s","Uses DSZLOG"
- ,prot[i]->misc&PROT_DSZLOG ? "Yes":"No");
- opt[j][0]=0;
- savnum=1;
- switch(ulist(WIN_RHT|WIN_BOT|WIN_SAV|WIN_ACT,0,0,0,&k,0
- ,"File Transfer Protocol",opt)) {
- case -1:
- done=1;
- break;
- case 0:
- str[0]=prot[i]->mnemonic;
- str[1]=0;
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Mnemonic (Command Key)"
- ,str,1,K_UPPER|K_EDIT);
- if(str[0])
- prot[i]->mnemonic=str[0];
- break;
- case 1:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Protocol Name"
- ,prot[i]->name,25,K_EDIT);
- break;
- case 2:
- savnum=2;
- sprintf(str,"Protocol %s",prot[i]->name);
- getar(str,prot[i]->ar);
- break;
- case 3:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Upload Command"
- ,prot[i]->ulcmd,50,K_EDIT);
- break;
- case 4:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Download Command"
- ,prot[i]->dlcmd,50,K_EDIT);
- break;
- case 5:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Batch UL Command"
- ,prot[i]->batulcmd,50,K_EDIT);
- break;
- case 6:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Batch DL Command"
- ,prot[i]->batdlcmd,50,K_EDIT);
- break;
- case 7:
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Bi-dir Command"
- ,prot[i]->bicmd,50,K_EDIT);
- break;
- case 8:
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- l=0;
- savnum=2;
- l=ulist(WIN_MID|WIN_SAV,0,0,0,&l,0
- ,"Uses DSZLOG",opt);
- if(!l && !(prot[i]->misc&PROT_DSZLOG)) {
- prot[i]->misc|=PROT_DSZLOG;
- changes=1; }
- else if(l==1 && prot[i]->misc&PROT_DSZLOG) {
- prot[i]->misc&=~PROT_DSZLOG;
- changes=1; }
- break; } } }
- break;
- case 13: /* Alternate file paths */
- dflt=bar=0;
- while(1) {
- for(i=0;i<altpaths;i++)
- sprintf(opt[i],"%3d: %-40s",i+1,altpath[i]);
- opt[i][0]=0;
- i=WIN_ACT|WIN_SAV; /* save cause size can change */
- if((int)altpaths<MAX_OPTS)
- i|=WIN_INS;
- if(altpaths)
- i|=WIN_DEL|WIN_GET;
- if(savaltpath[0])
- i|=WIN_PUT;
- savnum=0;
- SETHELP(WHERE);
-/*
-Alternate File Paths:
-
-This option allows the sysop to add and configure alternate file paths
-for files stored on drives and directories other than the configured
-storage path for a file directory. This command is useful for those who
-have file directories where they wish to have files listed from
-multiple CD-ROMs or hard disks.
-*/
- i=ulist(i,0,0,50,&dflt,&bar,"Alternate File Paths",opt);
- if(i==-1)
- break;
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(altpath[i]);
- altpaths--;
- while(i<altpaths) {
- altpath[i]=altpath[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- if((altpath=(char **)REALLOC(altpath
- ,sizeof(char *)*(altpaths+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,altpaths+1);
- altpaths=0;
- bail(1);
- continue; }
- if(!altpaths) {
- if((altpath[0]=(char *)MALLOC(LEN_DIR+1))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,LEN_DIR+1);
- continue; }
- memset(altpath[0],0,LEN_DIR+1); }
- else {
- for(j=altpaths;j>i;j--)
- altpath[j]=altpath[j-1];
- if((altpath[i]=(char *)MALLOC(LEN_DIR+1))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,LEN_DIR+1);
- continue; }
- memcpy(altpath[i],altpath[i+1],LEN_DIR+1); }
- altpaths++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- memcpy(savaltpath,altpath[i],LEN_DIR+1);
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- memcpy(altpath[i],savaltpath,LEN_DIR+1);
- changes=1;
- continue; }
- sprintf(str,"Path %d",i+1);
- uinput(WIN_MID|WIN_SAV,0,0,str,altpath[i],50,K_UPPER|K_EDIT); }
- break; } }
-}
-
diff --git a/src/sbbs2/scfg/scfgxfr2.c b/src/sbbs2/scfg/scfgxfr2.c
deleted file mode 100644
index 6169caf3e458d71ed0eb45b6ecc7f910321d4273..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgxfr2.c
+++ /dev/null
@@ -1,1453 +0,0 @@
-#line 2 "SCFGXFR2.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-void xfer_cfg()
-{
- static int libs_dflt,libs_bar,dflt;
- char str[256],str2[81],done=0,*p;
- int file,j,k,q;
- uint i;
- long ported;
- static lib_t savlib;
- dir_t tmpdir;
- FILE *stream;
-
-while(1) {
- for(i=0;i<total_libs && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",lib[i]->lname);
- opt[i][0]=0;
- j=WIN_ACT|WIN_CHE|WIN_ORG;
- if(total_libs)
- j|=WIN_DEL|WIN_GET|WIN_DELACT;
- if(total_libs<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savlib.sname[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-File Libraries:
-
-This is a listing of file libraries for your BBS. File Libraries are
-used to logically separate your file directories into groups. Every
-directory belongs to a file library.
-
-One popular use for file libraries is to separate CD-ROM and hard disk
-directories. One might have an Uploads file library that contains
-uploads to the hard disk directories and also have a PC-SIG file
-library that contains directories from a PC-SIG CD-ROM. Some sysops
-separate directories into more specific areas such as Main, Graphics,
-or Adult. If you have many directories that have a common subject
-denominator, you may want to have a separate file library for those
-directories for a more organized file structure.
-*/
- i=ulist(j,0,0,45,&libs_dflt,&libs_bar,"File Libraries",opt);
- if((signed)i==-1) {
- j=save_changes(WIN_MID);
- if(j==-1)
- continue;
- if(!j)
- write_file_cfg();
- return; }
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- strcpy(str,"Main");
- SETHELP(WHERE);
-/*
-Library Long Name:
-
-This is a description of the file library which is displayed when a
-user of the system uses the /* command from the file transfer menu.
-*/*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Library Long Name",str,LEN_GLNAME
- ,K_EDIT)<1)
- continue;
- sprintf(str2,"%.*s",LEN_GSNAME,str);
- SETHELP(WHERE);
-/*
-Library Short Name:
-
-This is a short description of the file library which is used for the
-file transfer menu prompt.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Library Short Name",str2,LEN_GSNAME
- ,K_EDIT)<1)
- continue;
- if((lib=(lib_t **)REALLOC(lib,sizeof(lib_t *)*(total_libs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_libs+1);
- total_libs=0;
- bail(1);
- continue; }
-
- if(total_libs) {
- for(j=total_libs;j>i;j--)
- lib[j]=lib[j-1];
- for(j=0;j<total_dirs;j++)
- if(dir[j]->lib>=i)
- dir[j]->lib++; }
- if((lib[i]=(lib_t *)MALLOC(sizeof(lib_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(lib_t));
- continue; }
- memset((lib_t *)lib[i],0,sizeof(lib_t));
- strcpy(lib[i]->lname,str);
- strcpy(lib[i]->sname,str2);
- total_libs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Delete All Data in Library:
-
-If you wish to delete the database files for all directories in this
-library, select Yes.
-*/
- j=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Delete All Library Data Files",opt);
- if(j==-1)
- continue;
- if(j==0)
- for(j=0;j<total_dirs;j++)
- if(dir[j]->lib==i) {
- sprintf(str,"%s.*",dir[j]->code);
- if(!dir[j]->data_dir[0])
- sprintf(tmp,"%sDIRS\\",data_dir);
- else
- strcpy(tmp,dir[j]->data_dir);
- delfiles(tmp,str); }
- FREE(lib[i]);
- for(j=0;j<total_dirs;) {
- if(dir[j]->lib==i) {
- FREE(dir[j]);
- total_dirs--;
- k=j;
- while(k<total_dirs) {
- dir[k]=dir[k+1];
- k++; } }
- else j++; }
- for(j=0;j<total_dirs;j++)
- if(dir[j]->lib>i)
- dir[j]->lib--;
- total_libs--;
- while(i<total_libs) {
- lib[i]=lib[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savlib=*lib[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *lib[i]=savlib;
- changes=1;
- continue; }
- done=0;
- while(!done) {
- j=0;
- sprintf(opt[j++],"%-27.27s%s","Long Name",lib[i]->lname);
- sprintf(opt[j++],"%-27.27s%s","Short Name",lib[i]->sname);
- sprintf(opt[j++],"%-27.27s%.40s","Access Requirements"
- ,lib[i]->ar);
- strcpy(opt[j++],"Clone Options");
- strcpy(opt[j++],"Export Areas...");
- strcpy(opt[j++],"Import Areas...");
- strcpy(opt[j++],"File Directories...");
- opt[j][0]=0;
- savnum=0;
- sprintf(str,"%s Library",lib[i]->sname);
- SETHELP(WHERE);
-/*
-File Library Configuration:
-
-This menu allows you to configure the security requirments for access
-to this file library. You can also add, delete, and configure the
-directories of this library by selecting the File Directories... option.
-*/
- switch(ulist(WIN_ACT,6,4,60,&dflt,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Library Long Name:
-
-This is a description of the file library which is displayed when a
-user of the system uses the /* command from the file transfer menu.
-*/*/
- strcpy(str,lib[i]->lname); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,0,"Name to use for Listings"
- ,lib[i]->lname,LEN_GLNAME,K_EDIT))
- strcpy(lib[i]->lname,str); /* restore */
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Library Short Name:
-
-This is a short description of the file librarly which is used for the
-file transfer menu prompt.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Name to use for Prompts"
- ,lib[i]->sname,LEN_GSNAME,K_EDIT);
- break;
- case 2:
- sprintf(str,"%s Library",lib[i]->sname);
- getar(str,lib[i]->ar);
- break;
- case 3: /* clone options */
- j=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Clone Directory Options:
-
-If you want to clone the options of the first directory of this library
-into all directories of this library, select Yes.
-
-The options cloned are upload requirments, download requirments,
-operator requirements, exempted user requirements, toggle options,
-maximum number of files, allowed file extensions, default file
-extension, and sort type.
-*/
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Clone Options of First Directory into All of Library"
- ,opt);
- if(j==0) {
- k=-1;
- for(j=0;j<total_dirs;j++)
- if(dir[j]->lib==i) {
- if(k==-1)
- k=j;
- else {
- changes=1;
- dir[j]->misc=dir[k]->misc;
- strcpy(dir[j]->ul_ar,dir[k]->ul_ar);
- strcpy(dir[j]->dl_ar,dir[k]->dl_ar);
- strcpy(dir[j]->op_ar,dir[k]->op_ar);
- strcpy(dir[j]->ex_ar,dir[k]->ex_ar);
- strcpy(dir[j]->exts,dir[k]->exts);
- strcpy(dir[j]->data_dir,dir[k]->data_dir);
- strcpy(dir[j]->upload_sem,dir[k]->upload_sem);
- dir[j]->maxfiles=dir[k]->maxfiles;
- dir[j]->maxage=dir[k]->maxage;
- dir[j]->up_pct=dir[k]->up_pct;
- dir[j]->dn_pct=dir[k]->dn_pct;
- dir[j]->seqdev=dir[k]->seqdev;
- dir[j]->sort=dir[k]->sort; } } }
- break;
- case 4:
- k=0;
- ported=0;
- q=changes;
- strcpy(opt[k++],"DIRS.TXT (Synchronet)");
- strcpy(opt[k++],"FILEBONE.NA (Fido)");
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Export Area File Format:
-
-This menu allows you to choose the format of the area file you wish to
-export to.
-*/
- k=0;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Export Area File Format",opt);
- if(k==-1)
- break;
- if(k==0)
- sprintf(str,"%sDIRS.TXT",ctrl_dir);
- else if(k==1)
- sprintf(str,"FILEBONE.NA");
- strupr(str);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Filename"
- ,str,40,K_UPPER|K_EDIT)<=0) {
- changes=q;
- break; }
- if(fexist(str)) {
- strcpy(opt[0],"Overwrite");
- strcpy(opt[1],"Append");
- opt[2][0]=0;
- j=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"File Exists",opt);
- if(j==-1)
- break;
- if(j==0) j=O_WRONLY|O_TRUNC;
- else j=O_WRONLY|O_APPEND; }
- else
- j=O_WRONLY|O_CREAT;
- if((stream=fnopen(&file,str,j))==NULL) {
- umsg("Open Failure");
- break; }
- upop("Exporting Areas...");
- for(j=0;j<total_dirs;j++) {
- if(dir[j]->lib!=i)
- continue;
- ported++;
- if(k==1) {
- fprintf(stream,"Area %-8s 0 ! %s\r\n"
- ,dir[j]->code,dir[j]->lname);
- continue; }
- fprintf(stream,"%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n"
- "%s\r\n%s\r\n"
- ,dir[j]->lname
- ,dir[j]->sname
- ,dir[j]->code
- ,dir[j]->data_dir
- ,dir[j]->ar
- ,dir[j]->ul_ar
- ,dir[j]->dl_ar
- ,dir[j]->op_ar
- );
- fprintf(stream,"%s\r\n%s\r\n%u\r\n%s\r\n%lX\r\n%u\r\n"
- "%u\r\n"
- ,dir[j]->path
- ,dir[j]->upload_sem
- ,dir[j]->maxfiles
- ,dir[j]->exts
- ,dir[j]->misc
- ,dir[j]->seqdev
- ,dir[j]->sort
- );
- fprintf(stream,"%s\r\n%u\r\n%u\r\n%u\r\n"
- ,dir[j]->ex_ar
- ,dir[j]->maxage
- ,dir[j]->up_pct
- ,dir[j]->dn_pct
- );
- fprintf(stream,"***END-OF-DIR***\r\n\r\n"); }
- fclose(stream);
- upop(0);
- sprintf(str,"%lu File Areas Exported Successfully",ported);
- umsg(str);
- changes=q;
- break;
-
- case 5:
- ported=0;
- k=0;
- SETHELP(WHERE);
-/*
-Import Area File Format:
-
-This menu allows you to choose the format of the area file you wish to
-import into the current file library.
-*/
- strcpy(opt[k++],"DIRS.TXT (Synchronet)");
- strcpy(opt[k++],"FILEBONE.NA (Fido)");
- opt[k][0]=0;
- k=0;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Import Area File Format",opt);
- if(k==-1)
- break;
- if(k==0)
- sprintf(str,"%sDIRS.TXT",ctrl_dir);
- else if(k==1)
- sprintf(str,"FILEBONE.NA");
- strupr(str);
- if(uinput(WIN_MID|WIN_SAV,0,0,"Filename"
- ,str,40,K_UPPER|K_EDIT)<=0)
- break;
- if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- umsg("Open Failure");
- break; }
- upop("Importing Areas...");
- while(!feof(stream)) {
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- if(!str[0])
- continue;
- if(k) {
- p=str;
- while(*p && *p<=SP) p++;
- if(strnicmp(p,"AREA ",5))
- continue;
- memset(&tmpdir,0,sizeof(dir_t));
- tmpdir.misc|=
- (DIR_FCHK|DIR_DUPES|DIR_CDTUL|DIR_CDTDL|DIR_DIZ);
- if(k==1) {
- p+=5;
- while(*p && *p<=SP) p++;
- sprintf(tmpdir.code,"%.8s",p);
- truncsp(tmpdir.code);
- while(*p>SP) p++; /* Skip areaname */
- while(*p && *p<=SP) p++; /* Skip space */
- while(*p>SP) p++; /* Skip level */
- while(*p && *p<=SP) p++; /* Skip space */
- while(*p>SP) p++; /* Skip flags */
- while(*p && *p<=SP) p++; /* Skip space */
- sprintf(tmpdir.lname,"%.*s",LEN_SLNAME,p); }
- ported++; }
- else {
- memset(&tmpdir,0,sizeof(dir_t));
- sprintf(tmpdir.lname,"%.*s",LEN_SLNAME,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.sname,"%.*s",LEN_SSNAME,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.code,"%.*s",8,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.data_dir,"%.*s",LEN_DIR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.ul_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.dl_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.op_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.path,"%.*s",LEN_DIR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.upload_sem,"%.*s",LEN_DIR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.maxfiles=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.exts,"%.*s",40,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.misc=ahtoul(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.seqdev=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.sort=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- sprintf(tmpdir.ex_ar,"%.*s",LEN_ARSTR,str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.maxage=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.up_pct=atoi(str);
- if(!fgets(str,128,stream)) break;
- truncsp(str);
- tmpdir.dn_pct=atoi(str);
-
- ported++;
- while(!feof(stream)
- && strcmp(str,"***END-OF-DIR***")) {
- if(!fgets(str,128,stream)) break;
- truncsp(str); } }
-
- for(j=0;j<total_dirs;j++) {
- if(dir[j]->lib!=i)
- continue;
- if(!stricmp(dir[j]->code,tmpdir.code))
- break; }
- if(j==total_dirs) {
-
- if((dir=(dir_t **)REALLOC(dir
- ,sizeof(dir_t *)*(total_dirs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"dir",total_dirs+1);
- total_dirs=0;
- bail(1);
- break; }
-
- if((dir[j]=(dir_t *)MALLOC(sizeof(dir_t)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,"dir",sizeof(dir_t));
- break; }
- memset(dir[j],0,sizeof(dir_t)); }
- if(!k)
- memcpy(dir[j],&tmpdir,sizeof(dir_t));
- else {
- strcpy(dir[j]->code,tmpdir.code);
- strcpy(dir[j]->sname,tmpdir.code);
- strcpy(dir[j]->lname,tmpdir.lname);
- if(j==total_dirs) {
- dir[j]->maxfiles=1000;
- dir[j]->up_pct=cdt_up_pct;
- dir[j]->dn_pct=cdt_dn_pct; }
- }
- dir[j]->lib=i;
- if(j==total_dirs) {
- dir[j]->misc=tmpdir.misc;
- total_dirs++; }
- changes=1; }
- fclose(stream);
- upop(0);
- sprintf(str,"%lu File Areas Imported Successfully",ported);
- umsg(str);
- break;
-
- case 6:
- dir_cfg(i);
- break; } } }
-
-}
-
-void dir_cfg(uint libnum)
-{
- static int dflt,bar,tog_dflt,tog_bar,adv_dflt,opt_dflt;
- char str[81],str2[81],code[9],path[128],done=0,*p;
- int j,n;
- uint i,dirnum[MAX_OPTS+1];
- static dir_t savdir;
-
-while(1) {
- for(i=0,j=0;i<total_dirs && j<MAX_OPTS;i++)
- if(dir[i]->lib==libnum) {
- sprintf(opt[j],"%-25s",dir[i]->lname);
- dirnum[j++]=i; }
- dirnum[j]=total_dirs;
- opt[j][0]=0;
- sprintf(str,"%s Directories",lib[libnum]->sname);
- savnum=0;
- i=WIN_SAV|WIN_ACT;
- if(j)
- i|=WIN_DEL|WIN_GET|WIN_DELACT;
- if(j<MAX_OPTS)
- i|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savdir.sname[0])
- i|=WIN_PUT;
- SETHELP(WHERE);
-/*
-File Directories:
-
-This is a list of file directories that have been configured for the
-selected file library.
-
-To add a directory, select the desired position with the arrow keys and
-hit INS .
-
-To delete a directory, select it with the arrow keys and hit DEL .
-
-To configure a directory, select it with the arrow keys and hit ENTER .
-*/
- i=ulist(i,24,1,45,&dflt,&bar,str,opt);
- savnum=1;
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- strcpy(str,"Games");
- SETHELP(WHERE);
-/*
-Directory Long Name:
-
-This is a description of the file directory which is displayed in all
-directory listings.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Directory Long Name",str,LEN_SLNAME
- ,K_EDIT)<1)
- continue;
- sprintf(str2,"%.*s",LEN_SSNAME,str);
- SETHELP(WHERE);
-/*
-Directory Short Name:
-
-This is a short description of the file directory which is displayed at
-the file transfer prompt.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Directory Short Name",str2,LEN_SSNAME
- ,K_EDIT)<1)
- continue;
- sprintf(code,"%.8s",str2);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Directory Internal Code:
-
-Every directory must have its own unique code for Synchronet to refer to
-it internally. This code should be descriptive of the directory's
-contents, usually an abreviation of the directory's name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Directory Internal Code",code,8
- ,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- sprintf(path,"%sDIRS\\%s",data_dir,code);
- SETHELP(WHERE);
-/*
-Directory File Path:
-
-This is the drive and directory where your uploads to and downloads from
-this directory will be stored. Example: C:\XFER\GAMES
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Directory File Path",path,50
- ,K_EDIT|K_UPPER)<1)
- continue;
- if((dir=(dir_t **)REALLOC(dir,sizeof(dir_t *)*(total_dirs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_dirs+1);
- total_dirs=0;
- bail(1);
- continue; }
-
- if(j)
- for(n=total_dirs;n>dirnum[i];n--)
- dir[n]=dir[n-1];
- if((dir[dirnum[i]]=(dir_t *)MALLOC(sizeof(dir_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(dir_t));
- continue; }
- memset((dir_t *)dir[dirnum[i]],0,sizeof(dir_t));
- dir[dirnum[i]]->lib=libnum;
- dir[dirnum[i]]->maxfiles=MAX_FILES<500 ? MAX_FILES:500;
- if(strcmpi(str2,"OFFLINE"))
- dir[dirnum[i]]->misc=(DIR_FCHK|DIR_MULT|DIR_DUPES
- |DIR_CDTUL|DIR_CDTDL|DIR_DIZ);
- strcpy(dir[dirnum[i]]->code,code);
- strcpy(dir[dirnum[i]]->lname,str);
- strcpy(dir[dirnum[i]]->sname,str2);
- strcpy(dir[dirnum[i]]->path,path);
- dir[dirnum[i]]->up_pct=cdt_up_pct;
- dir[dirnum[i]]->dn_pct=cdt_dn_pct;
- total_dirs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Delete Directory Data Files:
-
-If you want to delete all the database files for this directory,
-select Yes.
-*/
- j=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Delete Data in Sub-board",opt);
- if(j==-1)
- continue;
- if(j==0) {
- sprintf(str,"%s.*",dir[dirnum[i]]->code);
- if(!dir[dirnum[i]]->data_dir[0])
- sprintf(tmp,"%sDIRS\\",data_dir);
- else
- strcpy(tmp,dir[dirnum[i]]->data_dir);
- delfiles(tmp,str); }
- FREE(dir[dirnum[i]]);
- total_dirs--;
- for(j=dirnum[i];j<total_dirs;j++)
- dir[j]=dir[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savdir=*dir[dirnum[i]];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *dir[dirnum[i]]=savdir;
- dir[dirnum[i]]->lib=libnum;
- changes=1;
- continue; }
- i=dirnum[dflt];
- j=0;
- done=0;
- while(!done) {
- n=0;
- sprintf(opt[n++],"%-27.27s%s","Long Name",dir[i]->lname);
- sprintf(opt[n++],"%-27.27s%s","Short Name",dir[i]->sname);
- sprintf(opt[n++],"%-27.27s%s","Internal Code",dir[i]->code);
- sprintf(opt[n++],"%-27.27s%.40s","Access Requirements"
- ,dir[i]->ar);
- sprintf(opt[n++],"%-27.27s%.40s","Upload Requirements"
- ,dir[i]->ul_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Download Requirements"
- ,dir[i]->dl_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Operator Requirements"
- ,dir[i]->op_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Exemption Requirements"
- ,dir[i]->ex_ar);
- sprintf(opt[n++],"%-27.27s%.40s","Transfer File Path"
- ,dir[i]->path);
- sprintf(opt[n++],"%-27.27s%u","Maximum Number of Files"
- ,dir[i]->maxfiles);
- if(dir[i]->maxage)
- sprintf(str,"Enabled (%u days old)",dir[i]->maxage);
- else
- strcpy(str,"Disabled");
- sprintf(opt[n++],"%-27.27s%s","Purge by Age",str);
- sprintf(opt[n++],"%-27.27s%u%%","Credit on Upload"
- ,dir[i]->up_pct);
- sprintf(opt[n++],"%-27.27s%u%%","Credit on Download"
- ,dir[i]->dn_pct);
- strcpy(opt[n++],"Toggle Options...");
- strcpy(opt[n++],"Advanced Options...");
- opt[n][0]=0;
- sprintf(str,"%s Directory",dir[i]->sname);
- SETHELP(WHERE);
-/*
-Directory Configuration:
-
-This menu allows you to configure the individual selected directory.
-Options with a trailing ... provide a sub-menu of more options.
-*/
- savnum=1;
- switch(ulist(WIN_SAV|WIN_ACT|WIN_RHT|WIN_BOT
- ,0,0,60,&opt_dflt,0,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Directory Long Name:
-
-This is a description of the file directory which is displayed in all
-directory listings.
-*/
- strcpy(str,dir[i]->lname); /* save */
- if(!uinput(WIN_L2R|WIN_SAV,0,17,"Name to use for Listings"
- ,dir[i]->lname,LEN_SLNAME,K_EDIT))
- strcpy(dir[i]->lname,str);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Directory Short Name:
-
-This is a short description of the file directory which is displayed at
-the file transfer prompt.
-*/
- uinput(WIN_L2R|WIN_SAV,0,17,"Name to use for Prompts"
- ,dir[i]->sname,LEN_SSNAME,K_EDIT);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Directory Internal Code:
-
-Every directory must have its own unique code for Synchronet to refer to
-it internally. This code should be descriptive of the directory's
-contents, usually an abreviation of the directory's name.
-*/
- strcpy(str,dir[i]->code);
- uinput(WIN_L2R|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(dir[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 3:
- savnum=2;
- sprintf(str,"%s Access",dir[i]->sname);
- getar(str,dir[i]->ar);
- break;
- case 4:
- savnum=2;
- sprintf(str,"%s Upload",dir[i]->sname);
- getar(str,dir[i]->ul_ar);
- break;
- case 5:
- savnum=2;
- sprintf(str,"%s Download",dir[i]->sname);
- getar(str,dir[i]->dl_ar);
- break;
- case 6:
- savnum=2;
- sprintf(str,"%s Operator",dir[i]->sname);
- getar(str,dir[i]->op_ar);
- break;
- case 7:
- savnum=2;
- sprintf(str,"%s Exemption",dir[i]->sname);
- getar(str,dir[i]->ex_ar);
- break;
- case 8:
- SETHELP(WHERE);
-/*
-File Path:
-
-This is the default storage path for files uploaded to this directory.
-If this path is blank, files are stored in a directory off of the
-DATA\DIRS directory using the internal code of this directory as the
-name of the dirdirectory (i.e. DATA\DIRS\<CODE>).
-
-This path can be overridden on a per file basis using Alternate File
-Paths.
-*/
- uinput(WIN_L2R|WIN_SAV,0,17,"File Path"
- ,dir[i]->path,50,K_EDIT|K_UPPER);
- break;
- case 9:
- SETHELP(WHERE);
-/*
-Maximum Number of Files:
-
-This value is the maximum number of files allowed in this directory.
-*/
- sprintf(str,"%u",dir[i]->maxfiles);
- uinput(WIN_L2R|WIN_SAV,0,17,"Maximum Number of Files"
- ,str,5,K_EDIT|K_NUMBER);
- n=atoi(str);
- if(n>MAX_FILES) {
- sprintf(str,"Maximum Files is %u",MAX_FILES);
- umsg(str); }
- else
- dir[i]->maxfiles=n;
- break;
- case 10:
- sprintf(str,"%u",dir[i]->maxage);
- SETHELP(WHERE);
-/*
-Maximum Age of Files:
-
-This value is the maximum number of days that files will be kept in
-the directory based on the date the file was uploaded or last
-downloaded (If the Purge by Last Download toggle option is used).
-
-The Synchronet file base maintenance program (DELFILES) must be used
-to automatically remove files based on age.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Maximum Age of Files (in days)"
- ,str,5,K_EDIT|K_NUMBER);
- dir[i]->maxage=atoi(str);
- break;
- case 11:
-SETHELP(WHERE);
-/*
-Percentage of Credits to Credit Uploader on Upload:
-
-This is the percentage of a file's credit value that is given to users
-when they upload files. Most often, this value will be set to 100 to
-give full credit value (100%) for uploads.
-
-If you want uploaders to receive no credits upon upload, set this value
-to 0.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Percentage of Credits to Credit Uploader on Upload"
- ,itoa(dir[i]->up_pct,tmp,10),4,K_EDIT|K_NUMBER);
- dir[i]->up_pct=atoi(tmp);
- break;
- case 12:
-SETHELP(WHERE);
-/*
-Percentage of Credits to Credit Uploader on Download:
-
-This is the percentage of a file's credit value that is given to users
-who upload a file that is later downloaded by another user. This is an
-award type system where more popular files will generate more credits
-for the uploader.
-
-If you do not want uploaders to receive credit when files they upload
-are later downloaded, set this value to 0.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Percentage of Credits to Credit Uploader on Download"
- ,itoa(dir[i]->dn_pct,tmp,10),4,K_EDIT|K_NUMBER);
- dir[i]->dn_pct=atoi(tmp);
- break;
- case 13:
- while(1) {
- n=0;
- sprintf(opt[n++],"%-27.27s%s","Check for File Existence"
- ,dir[i]->misc&DIR_FCHK ? "Yes":"No");
- strcpy(str,"Slow Media Device");
- if(dir[i]->seqdev) {
- sprintf(tmp," #%u",dir[i]->seqdev);
- strcat(str,tmp); }
- sprintf(opt[n++],"%-27.27s%s",str
- ,dir[i]->seqdev ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Force Content Ratings"
- ,dir[i]->misc&DIR_RATE ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Upload Date in Listings"
- ,dir[i]->misc&DIR_ULDATE ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Multiple File Numberings"
- ,dir[i]->misc&DIR_MULT ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Search for Duplicates"
- ,dir[i]->misc&DIR_DUPES ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Search for New Files"
- ,dir[i]->misc&DIR_NOSCAN ? "No":"Yes");
- sprintf(opt[n++],"%-27.27s%s","Search for Auto-ADDFILES"
- ,dir[i]->misc&DIR_NOAUTO ? "No":"Yes");
- sprintf(opt[n++],"%-27.27s%s","Import FILE_ID.DIZ"
- ,dir[i]->misc&DIR_DIZ ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Free Downloads"
- ,dir[i]->misc&DIR_FREE ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Free Download Time"
- ,dir[i]->misc&DIR_TFREE ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Deduct Upload Time"
- ,dir[i]->misc&DIR_ULTIME ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Credit Uploads"
- ,dir[i]->misc&DIR_CDTUL ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Credit Downloads"
- ,dir[i]->misc&DIR_CDTDL ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Credit with Minutes"
- ,dir[i]->misc&DIR_CDTMIN ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Anonymous Uploads"
- ,dir[i]->misc&DIR_ANON ? dir[i]->misc&DIR_AONLY
- ? "Only":"Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Purge by Last Download"
- ,dir[i]->misc&DIR_SINCEDL ? "Yes":"No");
- sprintf(opt[n++],"%-27.27s%s","Mark Moved Files as New"
- ,dir[i]->misc&DIR_MOVENEW ? "Yes":"No");
- opt[n][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Directory Toggle Options:
-
-This is the toggle options menu for the selected file directory.
-
-The available options from this menu can all be toggled between two or
-more states, such as Yes and No.
-*/
- n=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,36,&tog_dflt
- ,&tog_bar,"Toggle Options",opt);
- if(n==-1)
- break;
- savnum=3;
- switch(n) {
- case 0:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Check for File Existence When Listing:
-
-If you want the actual existence of files to be verified while listing
-directories, set this value to Yes.
-
-Directories with files located on CD-ROM or other slow media should have
-this option set to No.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Check for File Existence When Listing",opt);
- if(n==0 && !(dir[i]->misc&DIR_FCHK)) {
- dir[i]->misc|=DIR_FCHK;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_FCHK)) {
- dir[i]->misc&=~DIR_FCHK;
- changes=1; }
- break;
- case 1:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Slow Media Device:
-
-If this directory contains files located on CD-ROM or other slow media
-device, you should set this option to Yes. Each slow media device on
-your system should have a unique Device Number. If you only have one
-slow media device, then this number should be set to 1.
-
-CD-ROM multidisk changers are considered one device and all the
-directories on all the CD-ROMs in each changer should be set to the same
-device number.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Slow Media Device"
- ,opt);
- if(n==0) {
- if(!dir[i]->seqdev) {
- changes=1;
- strcpy(str,"1"); }
- else
- sprintf(str,"%u",dir[i]->seqdev);
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Device Number"
- ,str,2,K_EDIT|K_UPPER);
- dir[i]->seqdev=atoi(str); }
- else if(n==1 && dir[i]->seqdev) {
- dir[i]->seqdev=0;
- changes=1; }
- break;
- case 2:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Force Content Ratings in Descriptions:
-
-If you would like all uploads to this directory to be prompted for
-content rating (G, R, or X), set this value to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Force Content Ratings in Descriptions",opt);
- if(n==0 && !(dir[i]->misc&DIR_RATE)) {
- dir[i]->misc|=DIR_RATE;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_RATE)) {
- dir[i]->misc&=~DIR_RATE;
- changes=1; }
- break;
- case 3:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Include Upload Date in File Descriptions:
-
-If you wish the upload date of each file in this directory to be
-automatically included in the file description, set this option to
-Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Include Upload Date in Descriptions",opt);
- if(n==0 && !(dir[i]->misc&DIR_ULDATE)) {
- dir[i]->misc|=DIR_ULDATE;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_ULDATE)) {
- dir[i]->misc&=~DIR_ULDATE;
- changes=1; }
- break;
- case 4:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Ask for Multiple File Numberings:
-
-If you would like uploads to this directory to be prompted for multiple
-file (disk) numbers, set this value to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Ask for Multiple File Numberings",opt);
- if(n==0 && !(dir[i]->misc&DIR_MULT)) {
- dir[i]->misc|=DIR_MULT;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_MULT)) {
- dir[i]->misc&=~DIR_MULT;
- changes=1; }
- break;
- case 5:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Search Directory for Duplicate Filenames:
-
-If you would like to have this directory searched for duplicate
-filenames when a user attempts to upload a file, set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Search for Duplicate Filenames",opt);
- if(n==0 && !(dir[i]->misc&DIR_DUPES)) {
- dir[i]->misc|=DIR_DUPES;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_DUPES)) {
- dir[i]->misc&=~DIR_DUPES;
- changes=1; }
- break;
- case 6:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Search Directory for New Files:
-
-If you would like to have this directory searched for newly uploaded
-files when a user scans All libraries for new files, set this option to
-Yes.
-
-If this directory is located on CD-ROM or other read only media
-(where uploads are unlikely to occur), it will improve new file scans
-if this option is set to No.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Search for New files",opt);
- if(n==0 && dir[i]->misc&DIR_NOSCAN) {
- dir[i]->misc&=~DIR_NOSCAN;
- changes=1; }
- else if(n==1 && !(dir[i]->misc&DIR_NOSCAN)) {
- dir[i]->misc|=DIR_NOSCAN;
- changes=1; }
- break;
- case 7:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Search Directory for Auto-ADDFILES:
-
-If you would like to have this directory searched for a file list to
-import automatically when using the ADDFILES * (Auto-ADD) feature,
-set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Search for Auto-ADDFILES",opt);
- if(n==0 && dir[i]->misc&DIR_NOAUTO) {
- dir[i]->misc&=~DIR_NOAUTO;
- changes=1; }
- else if(n==1 && !(dir[i]->misc&DIR_NOAUTO)) {
- dir[i]->misc|=DIR_NOAUTO;
- changes=1; }
- break;
- case 8:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Import FILE_ID.DIZ and DESC.SDI Descriptions:
-
-If you would like archived descriptions (FILE_ID.DIZ and DESC.SDI)
-of uploaded files to be automatically imported as the extended
-description, set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Import FILE_ID.DIZ and DESC.SDI",opt);
- if(n==0 && !(dir[i]->misc&DIR_DIZ)) {
- dir[i]->misc|=DIR_DIZ;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_DIZ)) {
- dir[i]->misc&=~DIR_DIZ;
- changes=1; }
- break;
- case 9:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Downloads are Free:
-
-If you would like all downloads from this directory to be free (cost
-no credits), set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Downloads are Free",opt);
- if(n==0 && !(dir[i]->misc&DIR_FREE)) {
- dir[i]->misc|=DIR_FREE;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_FREE)) {
- dir[i]->misc&=~DIR_FREE;
- changes=1; }
- break;
- case 10:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Free Download Time:
-
-If you would like all downloads from this directory to not subtract
-time from the user, set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Free Download Time",opt);
- if(n==0 && !(dir[i]->misc&DIR_TFREE)) {
- dir[i]->misc|=DIR_TFREE;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_TFREE)) {
- dir[i]->misc&=~DIR_TFREE;
- changes=1; }
- break;
- case 11:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Deduct Upload Time:
-
-If you would like all uploads to this directory to have the time spent
-uploading subtracted from their time online, set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Deduct Upload Time",opt);
- if(n==0 && !(dir[i]->misc&DIR_ULTIME)) {
- dir[i]->misc|=DIR_ULTIME;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_ULTIME)) {
- dir[i]->misc&=~DIR_ULTIME;
- changes=1; }
- break;
- case 12:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Give Credit for Uploads:
-
-If you want users who upload to this directory to get credit for their
-initial upload, set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Give Credit for Uploads",opt);
- if(n==0 && !(dir[i]->misc&DIR_CDTUL)) {
- dir[i]->misc|=DIR_CDTUL;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_CDTUL)) {
- dir[i]->misc&=~DIR_CDTUL;
- changes=1; }
- break;
- case 13:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Give Uploader Credit for Downloads:
-
-If you want users who upload to this directory to get credit when their
-files are downloaded, set this optin to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Give Uploader Credit for Downloads",opt);
- if(n==0 && !(dir[i]->misc&DIR_CDTDL)) {
- dir[i]->misc|=DIR_CDTDL;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_CDTDL)) {
- dir[i]->misc&=~DIR_CDTDL;
- changes=1; }
- break;
- case 14:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Credit Uploader with Minutes instead of Credits:
-
-If you wish to give the uploader of files to this directory minutes,
-intead of credits, set this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Credit Uploader with Minutes",opt);
- if(n==0 && !(dir[i]->misc&DIR_CDTMIN)) {
- dir[i]->misc|=DIR_CDTMIN;
- changes=1; }
- else if(n==1 && dir[i]->misc&DIR_CDTMIN){
- dir[i]->misc&=~DIR_CDTMIN;
- changes=1; }
- break;
-
- case 15:
- n=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- strcpy(opt[2],"Only");
- opt[3][0]=0;
- SETHELP(WHERE);
-/*
-Allow Anonymous Uploads:
-
-If you want users with the A exemption to be able to upload anonymously
-to this directory, set this option to Yes. If you want all uploads to
-this directory to be forced anonymous, set this option to Only.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Allow Anonymous Uploads",opt);
- if(n==0 && (dir[i]->misc&(DIR_ANON|DIR_AONLY))
- !=DIR_ANON) {
- dir[i]->misc|=DIR_ANON;
- dir[i]->misc&=~DIR_AONLY;
- changes=1; }
- else if(n==1 && dir[i]->misc&(DIR_ANON|DIR_AONLY)){
- dir[i]->misc&=~(DIR_ANON|DIR_AONLY);
- changes=1; }
- else if(n==2 && (dir[i]->misc&(DIR_ANON|DIR_AONLY))
- !=(DIR_ANON|DIR_AONLY)) {
- dir[i]->misc|=(DIR_ANON|DIR_AONLY);
- changes=1; }
- break;
- case 16:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Purge Files Based on Date of Last Download:
-
-Using the Synchronet file base maintenance utility (DELFILES), you can
-have files removed based on the number of days since last downloaded
-rather than the number of days since the file was uploaded (default),
-by setting this option to Yes.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Purge Files Based on Date of Last Download"
- ,opt);
- if(n==0 && !(dir[i]->misc&DIR_SINCEDL)) {
- dir[i]->misc|=DIR_SINCEDL;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_SINCEDL)) {
- dir[i]->misc&=~DIR_SINCEDL;
- changes=1; }
- break;
- case 17:
- n=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Mark Moved Files as New:
-
-If this option is set to Yes, then all files moved from this directory
-will have their upload date changed to the current date so the file will
-appear in users' new-file scans again.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Mark Moved Files as New"
- ,opt);
- if(n==0 && !(dir[i]->misc&DIR_MOVENEW)) {
- dir[i]->misc|=DIR_MOVENEW;
- changes=1; }
- else if(n==1 && (dir[i]->misc&DIR_MOVENEW)) {
- dir[i]->misc&=~DIR_MOVENEW;
- changes=1; }
- break;
- } }
- break;
- case 14:
- while(1) {
- n=0;
- sprintf(opt[n++],"%-27.27s%s","Extensions Allowed"
- ,dir[i]->exts);
- if(!dir[i]->data_dir[0])
- sprintf(str,"%sDIRS\\",data_dir);
- else
- strcpy(str,dir[i]->data_dir);
- sprintf(opt[n++],"%-27.27s%.40s","Data Directory"
- ,str);
- sprintf(opt[n++],"%-27.27s%.40s","Upload Semaphore File"
- ,dir[i]->upload_sem);
- sprintf(opt[n++],"%-27.27s%s","Sort Value and Direction"
- , dir[i]->sort==SORT_NAME_A ? "Name Ascending"
- : dir[i]->sort==SORT_NAME_D ? "Name Descending"
- : dir[i]->sort==SORT_DATE_A ? "Date Ascending"
- : "Date Descending");
- opt[n][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Directory Advanced Options:
-
-This is the advanced options menu for the selected file directory.
-*/
- n=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,4,60,&adv_dflt,0
- ,"Advanced Options",opt);
- if(n==-1)
- break;
- savnum=3;
- switch(n) {
- case 0:
- SETHELP(WHERE);
-/*
-File Extensions Allowed:
-
-This option allows you to limit the types of files uploaded to this
-directory. This is a list of file extensions that are allowed, each
-separated by a comma (Example: ZIP,EXE). If this option is left
-blank, all file extensions will be allowed to be uploaded.
-*/
- uinput(WIN_L2R|WIN_SAV,0,17
- ,"File Extensions Allowed"
- ,dir[i]->exts,40,K_EDIT|K_UPPER);
- break;
- case 1:
-SETHELP(WHERE);
-/*
-Data Directory:
-
-Use this if you wish to place the data directory for this directory
-on another drive or in another directory besides the default setting.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Data"
- ,dir[i]->data_dir,50,K_EDIT|K_UPPER);
- break;
- case 2:
-SETHELP(WHERE);
-/*
-Upload Semaphore File:
-
-This is a filename that will be used as a semaphore (signal) to your
-FidoNet front-end that new files are ready to be hatched for export.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Upload Semaphore"
- ,dir[i]->upload_sem,50,K_EDIT|K_UPPER);
- break;
- case 3:
- n=0;
- strcpy(opt[0],"Name Ascending");
- strcpy(opt[1],"Name Descending");
- strcpy(opt[2],"Date Ascending");
- strcpy(opt[3],"Date Descending");
- opt[4][0]=0;
- SETHELP(WHERE);
-/*
-Sort Value and Direction:
-
-This option allows you to determine the sort value and direction. Files
-that are uploaded are automatically sorted by filename or upload date,
-ascending or descending. If you change the sort value or direction after
-a directory already has files in it, use the sysop transfer menu ;RESORT
-command to resort the directory with the new sort parameters.
-*/
- n=ulist(WIN_MID|WIN_SAV,0,0,0,&n,0
- ,"Sort Value and Direction",opt);
- if(n==0 && dir[i]->sort!=SORT_NAME_A) {
- dir[i]->sort=SORT_NAME_A;
- changes=1; }
- else if(n==1 && dir[i]->sort!=SORT_NAME_D) {
- dir[i]->sort=SORT_NAME_D;
- changes=1; }
- else if(n==2 && dir[i]->sort!=SORT_DATE_A) {
- dir[i]->sort=SORT_DATE_A;
- changes=1; }
- else if(n==3 && dir[i]->sort!=SORT_DATE_D) {
- dir[i]->sort=SORT_DATE_D;
- changes=1; }
- break; } }
- break;
- } } }
-
-}
diff --git a/src/sbbs2/scfg/scfgxtrn.c b/src/sbbs2/scfg/scfgxtrn.c
deleted file mode 100644
index 38561a964d7eac780067150bb4afb1db43405f25..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/scfgxtrn.c
+++ /dev/null
@@ -1,1798 +0,0 @@
-#line 2 "SCFGXTRN.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-extern char *wday[];
-
-char *daystr(char days);
-
-
-/****************************************************************************/
-/* Synchronet configuration utility */
-/****************************************************************************/
-
-#include "scfg.h"
-
-void xprogs_cfg()
-{
- static int xprogs_dflt;
- int i;
- char str[81];
-
-while(1) {
- i=0;
- strcpy(opt[i++],"Fixed Events");
- strcpy(opt[i++],"Timed Events");
- strcpy(opt[i++],"Global Swap List");
- strcpy(opt[i++],"OS/2 Program List");
- strcpy(opt[i++],"External Editors");
- strcpy(opt[i++],"Online Programs");
- opt[i][0]=0;
- SETHELP(WHERE);
-/*
-Online External Programs:
-
-From this menu, you can configure external events, external editors, or
-online external programs (doors).
-*/
- switch(ulist(WIN_ORG|WIN_CHE|WIN_ACT,0,0,0,&xprogs_dflt,0
- ,"External Programs",opt)) {
- case -1:
- i=save_changes(WIN_MID);
- if(i==-1)
- break;
- if(!i) {
- write_xtrn_cfg();
- write_main_cfg(); }
- return;
- case 0:
- fevents_cfg();
- break;
- case 1:
- tevents_cfg();
- break;
- case 2:
- swap_cfg();
- break;
- case 3:
- os2pgm_cfg();
- break;
- case 4:
- xedit_cfg();
- break;
- case 5:
- xtrnsec_cfg();
- break; } }
-}
-
-void fevents_cfg()
-{
- static int event_dflt;
- char str[81],*p;
- int i;
-
-while(1) {
- i=0;
- sprintf(opt[i++],"%-32.32s%.40s","Logon Event",sys_logon);
- sprintf(opt[i++],"%-32.32s%.40s","Logout Event",sys_logout);
- sprintf(opt[i++],"%-32.32s%.40s","Daily Event",sys_daily);
- opt[i][0]=0;
- savnum=0;
- SETHELP(WHERE);
-/*
-External Events:
-
-From this menu, you can configure the logon and logout events, and the
-system daily event.
-*/
- switch(ulist(WIN_ACT|WIN_SAV|WIN_CHE|WIN_BOT|WIN_RHT,0,0,60,&event_dflt,0
- ,"Fixed Events",opt)) {
- case -1:
- return;
- case 0:
- SETHELP(WHERE);
-/*
-Logon Event:
-
-This is the command line for a program that will execute during the
-logon sequence of every user. The program cannot have user interaction.
-The program will be executed after the LOGON message is displayed and
-before the logon user list is displayed. If you wish to place a program
-in the logon sequence of users that includes interaction or requires
-account information, you probably want to use an online external
-program configured to run as a logon event.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Logon Event"
- ,sys_logon,50,K_EDIT);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Logout Event:
-
-This is the command line for a program that will execute during the
-logout sequence of every user. This program cannot have user
-interaction because it is executed after carrier is dropped. If you
-wish to have a program execute before carrier is dropped, you probably
-want to use an Online External Program configured to run as a logoff
-event.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Logout Event"
- ,sys_logout,50,K_EDIT);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Daily Event:
-
-This is the command line for a program that will run after the first
-user that logs on after midnight, logs off (regardless of what node).
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Daily Event"
- ,sys_daily,50,K_EDIT);
-
- break; } }
-}
-
-void tevents_cfg()
-{
- static int dflt,dfltopt,bar;
- char str[81],done=0,*p;
- int j,k;
- uint i;
- static event_t savevent;
-
-while(1) {
- for(i=0;i<total_events && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-8.8s %.50s",event[i]->code,event[i]->cmd);
- opt[i][0]=0;
- j=WIN_SAV|WIN_ACT|WIN_CHE|WIN_RHT;
- savnum=0;
- if(total_events)
- j|=WIN_DEL|WIN_GET;
- if(total_events<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT;
- if(savevent.code[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Timed Events:
-
-This is a list of the configured timed external events.
-
-To add an event hit INS .
-
-To delete an event, select it and hit DEL .
-
-To configure an event, select it and hit ENTER .
-*/
- i=ulist(j,0,0,45,&dflt,&bar,"Timed Events",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i=total_events;
- SETHELP(WHERE);
-/*
-Timed Event Internal Code:
-
-This is the internal code for the timed event.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Event Internal Code",str,8
- ,K_UPPER)<1)
- continue;
- if((event=(event_t **)REALLOC(event
- ,sizeof(event_t *)*(total_events+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_events+1);
- total_events=0;
- bail(1);
- continue; }
- if((event[i]=(event_t *)MALLOC(sizeof(event_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(event_t));
- continue; }
- memset((event_t *)event[i],0,sizeof(event_t));
- strcpy(event[i]->code,str);
- event[i]->node=1;
- event[i]->days=0xff;
- total_events++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(event[i]);
- total_events--;
- for(j=i;j<total_events;j++)
- event[j]=event[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savevent=*event[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *event[i]=savevent;
- changes=1;
- continue; }
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-32.32s%s","Internal Code",event[i]->code);
- sprintf(opt[k++],"%-32.32s%.40s","Start-up Directory",event[i]->dir);
- sprintf(opt[k++],"%-32.32s%.40s","Command Line",event[i]->cmd);
- sprintf(opt[k++],"%-32.32s%u","Execution Node",event[i]->node);
- sprintf(opt[k++],"%-32.32s%s","Execution Days",daystr(event[i]->days));
- sprintf(opt[k++],"%-32.32s%02u:%02u","Execution Time"
- ,event[i]->time/60,event[i]->time%60);
- sprintf(opt[k++],"%-32.32s%s","Requires Exclusive Execution"
- ,event[i]->misc&EVENT_EXCL ? "Yes":"No");
- sprintf(opt[k++],"%-32.32s%s","Force Users Off-line For Event"
- ,event[i]->misc&EVENT_FORCE ? "Yes":"No");
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Timed Event:
-
-This is the configuration menu for a timed event. An event is an
-external program that performs some type of automated function on the
-system. Use this menu to configure how and when this event will be
-executed.
-
-If you need the BBS to swap out of memory for this event (to make more
-available memory), add the program name (first word of the command line)
-to Global Swap List from the External Programs menu.
-*/
- savnum=1;
- sprintf(str,"%s Timed Event",event[i]->code);
- switch(ulist(WIN_SAV|WIN_ACT|WIN_L2R|WIN_BOT,0,0,70,&dfltopt,0
- ,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- strcpy(str,event[i]->code);
- SETHELP(WHERE);
-/*
-Timed Event Internal Code:
-
-Every timed event must have its own unique internal code for Synchronet
-to reference it by. It is helpful if this code is an abreviation of the
-command line.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(event[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Timed Event Start-up Directory:
-
-This is the DOS drive/directory where the event program is located.
-If a path is specified here, it will be made the current directory
-before the event's command line is executed. This eliminates the need
-for batch files that just change the current drive and directory before
-executing the event.
-
-If this option is not used, the current NODE's directory will be the
-current DOS drive/directory before the command line is executed.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Directory"
- ,event[i]->dir,50,K_EDIT|K_UPPER);
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Timed Event Command Line:
-
-This is the command line to execute upon this timed event.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Command"
- ,event[i]->cmd,50,K_EDIT);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-Timed Event Node:
-
-This is the node number to execute the timed event.
-*/
- sprintf(str,"%u",event[i]->node);
- uinput(WIN_MID|WIN_SAV,0,0,"Node Number"
- ,str,3,K_EDIT|K_NUMBER);
- event[i]->node=atoi(str);
- break;
- case 4:
- j=0;
- while(1) {
- for(k=0;k<7;k++)
- sprintf(opt[k],"%s %s"
- ,wday[k],(event[i]->days&(1<<k)) ? "Yes":"No");
- opt[k][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Days to Execute Event:
-
-These are the days of the week that this event will be executed.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Days to Execute Event",opt);
- if(k==-1)
- break;
- event[i]->days^=(1<<k);
- changes=1; }
- break;
- case 5:
- sprintf(str,"%2.2d:%2.2d",event[i]->time/60
- ,event[i]->time%60);
- SETHELP(WHERE);
-/*
-Time to Execute Event:
-
-This is the time (in 24 hour HH:MM format) to execute the event.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0
- ,"Time to Execute Event (HH:MM)"
- ,str,5,K_UPPER|K_EDIT)>0) {
- event[i]->time=atoi(str)*60;
- if((p=strchr(str,':'))!=NULL)
- event[i]->time+=atoi(p+1); }
- break;
- case 6:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Exclusive Event Execution:
-
-If this event must be run exclusively (all nodes inactive), set this
-option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Exclusive Execution"
- ,opt);
- if(!k && !(event[i]->misc&EVENT_EXCL)) {
- event[i]->misc|=EVENT_EXCL;
- changes=1; }
- else if(k==1 && event[i]->misc&EVENT_EXCL) {
- event[i]->misc&=~EVENT_EXCL;
- changes=1; }
- break;
- case 7:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Force Users Off-line for Event:
-
-If you want to have your users' on-line time reduced so the event can
-execute precisely on time, set this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Force Users Off-line for Event",opt);
- if(!k && !(event[i]->misc&EVENT_FORCE)) {
- event[i]->misc|=EVENT_FORCE;
- changes=1; }
- else if(k==1 && event[i]->misc&EVENT_FORCE) {
- event[i]->misc&=~EVENT_FORCE;
- changes=1; }
- break;
-
- } } }
-}
-
-
-void xtrn_cfg(uint section)
-{
- static int ext_dflt,ext_bar,opt_dflt,time_dflt;
- char str[128],code[9],done=0,*p;
- int j,k;
- uint i,n,xtrnnum[MAX_OPTS+1];
- static xtrn_t savxtrn;
-
-while(1) {
- for(i=0,j=0;i<total_xtrns && j<MAX_OPTS;i++)
- if(xtrn[i]->sec==section) {
- sprintf(opt[j],"%-25s",xtrn[i]->name);
- xtrnnum[j++]=i; }
- xtrnnum[j]=total_xtrns;
- opt[j][0]=0;
- savnum=2;
- i=WIN_ACT|WIN_CHE|WIN_SAV|WIN_RHT;
- if(j)
- i|=WIN_DEL|WIN_GET;
- if(total_xtrns<MAX_OPTS)
- i|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savxtrn.name[0])
- i|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Online External Programs:
-
-This is a list of the configured online external programs (doors).
-
-To add a program, select the desired location with the arrow keys and
-hit INS .
-
-To delete a program, select it with the arrow keys and hit DEL .
-
-To configure a program, select it with the arrow keys and hit ENTER .
-*/
- sprintf(str,"%s Online Programs",xtrnsec[section]->name);
- i=ulist(i,0,0,45,&ext_dflt,&ext_bar,str,opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Online Program Name:
-
-This is the name or description of the online program (door).
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Online Program Name",str,25
- ,0)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Online Program Internal Code:
-
-Every online program must have its own unique code for Synchronet to
-refer to it internally. This code is usually an abreviation of the
-online program name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Internal Code"
- ,code,8,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- if((xtrn=(xtrn_t **)REALLOC(xtrn,sizeof(xtrn_t *)*(total_xtrns+1)))
- ==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_xtrns+1);
- total_xtrns=0;
- bail(1);
- continue; }
- if(j)
- for(n=total_xtrns;n>xtrnnum[i];n--)
- xtrn[n]=xtrn[n-1];
- if((xtrn[xtrnnum[i]]=(xtrn_t *)MALLOC(sizeof(xtrn_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(xtrn_t));
- continue; }
- memset((xtrn_t *)xtrn[xtrnnum[i]],0,sizeof(xtrn_t));
- strcpy(xtrn[xtrnnum[i]]->name,str);
- strcpy(xtrn[xtrnnum[i]]->code,code);
- xtrn[xtrnnum[i]]->sec=section;
- total_xtrns++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(xtrn[xtrnnum[i]]);
- total_xtrns--;
- for(j=xtrnnum[i];j<total_xtrns;j++)
- xtrn[j]=xtrn[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savxtrn=*xtrn[xtrnnum[i]];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *xtrn[xtrnnum[i]]=savxtrn;
- xtrn[xtrnnum[i]]->sec=section;
- changes=1;
- continue; }
- done=0;
- i=xtrnnum[i];
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Name",xtrn[i]->name);
- sprintf(opt[k++],"%-27.27s%s","Internal Code",xtrn[i]->code);
- sprintf(opt[k++],"%-27.27s%.40s","Start-up Directory",xtrn[i]->path);
- sprintf(opt[k++],"%-27.27s%.40s","Command Line",xtrn[i]->cmd);
- sprintf(opt[k++],"%-27.27s%.40s","Clean-up Command Line",xtrn[i]->clean);
- if(xtrn[i]->cost)
- sprintf(str,"%lu credits",xtrn[i]->cost);
- else
- strcpy(str,"None");
- sprintf(opt[k++],"%-27.27s%s","Execution Cost",str);
- sprintf(opt[k++],"%-27.27s%.40s","Access Requirements",xtrn[i]->ar);
- sprintf(opt[k++],"%-27.27s%.40s","Execution Requirements"
- ,xtrn[i]->run_ar);
- sprintf(opt[k++],"%-27.27s%s","Multiple Concurrent Users"
- ,xtrn[i]->misc&MULTIUSER ? "Yes" : "No");
- sprintf(opt[k++],"%-27.27s%s%s","Intercept I/O Interrupts"
- ,xtrn[i]->misc&IO_INTS ? "Yes" : "No"
- ,xtrn[i]->misc&WWIVCOLOR ? ", WWIV" : nulstr);
- sprintf(opt[k++],"%-27.27s%s","Swap BBS out of Memory"
- ,xtrn[i]->misc&SWAP ? "Yes" : "No");
- sprintf(opt[k++],"%-27.27s%s","Modify User Data"
- ,xtrn[i]->misc&MODUSERDAT ? "Yes" : "No");
- switch(xtrn[i]->event) {
- case EVENT_LOGON:
- strcpy(str,"Logon");
- break;
- case EVENT_LOGOFF:
- strcpy(str,"Logoff");
- break;
- case EVENT_NEWUSER:
- strcpy(str,"New User");
- break;
- case EVENT_BIRTHDAY:
- strcpy(str,"Birthday");
- break;
- default:
- strcpy(str,"No");
- break; }
- if(xtrn[i]->misc&EVENTONLY && xtrn[i]->event)
- strcat(str,", Only");
- sprintf(opt[k++],"%-27.27s%s","Execute on Event",str);
- switch(xtrn[i]->type) {
- case XTRN_SBBS:
- sprintf(str,"%-15s %s","Synchronet","XTRN.DAT");
- break;
- case XTRN_WWIV:
- sprintf(str,"%-15s %s","WWIV","CHAIN.TXT");
- break;
- case XTRN_GAP:
- sprintf(str,"%-15s %s","GAP","DOOR.SYS");
- break;
- case XTRN_RBBS:
- sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
- break;
- case XTRN_RBBS1:
- sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
- break;
- case XTRN_WILDCAT:
- sprintf(str,"%-15s %s","Wildcat","CALLINFO.BBS");
- break;
- case XTRN_PCBOARD:
- sprintf(str,"%-15s %s","PCBoard","PCBOARD.SYS");
- break;
- case XTRN_SPITFIRE:
- sprintf(str,"%-15s %s","SpitFire","SFDOORS.DAT");
- break;
- case XTRN_UTI:
- sprintf(str,"%-15s %s","MegaMail","UTIDOOR.TXT");
- break;
- case XTRN_SR:
- sprintf(str,"%-15s %s","Solar Realms","DOORFILE.SR");
- break;
- case XTRN_TRIBBS:
- sprintf(str,"%-15s %s","TriBBS","TRIBBS.SYS");
- break;
- default:
- strcpy(str,"None");
- break; }
- sprintf(opt[k++],"%-23.23s%-4s%s","BBS Drop File Type"
- ,xtrn[i]->misc&REALNAME ? "(R)":nulstr,str);
- sprintf(opt[k++],"%-27.27s%s","Place Drop File In"
- ,xtrn[i]->misc&STARTUPDIR ? "Start-Up Directory":"Node Directory");
- sprintf(opt[k++],"Time Options...");
- opt[k][0]=0;
- savnum=3;
- SETHELP(WHERE);
-/*
-Online Program Configuration:
-
-This menu is for configuring the selected online program.
-*/
- switch(ulist(WIN_SAV|WIN_ACT|WIN_MID,0,0,60,&opt_dflt,0,xtrn[i]->name
- ,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Online Program Name:
-
-This is the name or description of the online program (door).
-*/
- strcpy(str,xtrn[i]->name);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"Online Program Name"
- ,xtrn[i]->name,25,K_EDIT))
- strcpy(xtrn[i]->name,str);
- break;
- case 1:
- SETHELP(WHERE);
-/*
-Online Program Internal Code:
-
-Every online program must have its own unique code for Synchronet to
-refer to it internally. This code is usually an abreviation of the
-online program name.
-*/
- strcpy(str,xtrn[i]->code);
- uinput(WIN_MID|WIN_SAV,0,10,"Internal Code"
- ,str,8,K_UPPER|K_EDIT);
- if(code_ok(str))
- strcpy(xtrn[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 2:
- SETHELP(WHERE);
-/*
-Online Program Start-up Directory:
-
-This is the DOS drive/directory where the online program is located.
-If a path is specified here, it will be made the current directory
-before the program's command line is executed. This eliminates the need
-for batch files that just change the current drive and directory before
-executing the program.
-
-If this option is not used, the current NODE's directory will be the
-current DOS drive/directory before the command line is executed.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Directory"
- ,xtrn[i]->path,50,K_EDIT|K_UPPER);
- break;
- case 3:
- SETHELP(WHERE);
-/*
-Online Program Command Line:
-
-This is the command line to execute to run the online program.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Command"
- ,xtrn[i]->cmd,50,K_EDIT);
- break;
- case 4:
- SETHELP(WHERE);
-/*
-Online Program Clean-up Command:
-
-This is the command line to execute after the main command line. This
-option is usually only used for multiuser online programs.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Clean-up"
- ,xtrn[i]->clean,50,K_EDIT);
- break;
- case 5:
- ultoa(xtrn[i]->cost,str,10);
- SETHELP(WHERE);
-/*
-Online Program Cost to Run:
-
-If you want users to be charged credits to run this online program,
-set this value to the number of credits to charge. If you want this
-online program to be free, set this value to 0.
-*/
- uinput(WIN_MID|WIN_SAV,0,0,"Cost to Run (in Credits)"
- ,str,10,K_EDIT|K_NUMBER);
- xtrn[i]->cost=atol(str);
- break;
- case 6:
- savnum=4;
- sprintf(str,"%s Access",xtrn[i]->name);
- getar(str,xtrn[i]->ar);
- break;
- case 7:
- savnum=4;
- sprintf(str,"%s Execution",xtrn[i]->name);
- getar(str,xtrn[i]->run_ar);
- break;
- case 8:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Supports Multiple Users:
-
-If this online program supports multiple simultaneous users (nodes),
-set this option to Yes.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Supports Multiple Users"
- ,opt);
- if(!k && !(xtrn[i]->misc&MULTIUSER)) {
- xtrn[i]->misc|=MULTIUSER;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&MULTIUSER) {
- xtrn[i]->misc&=~MULTIUSER;
- changes=1; }
- break;
- case 9:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Intercept I/O Interrupts:
-
-If this online program has its own serial communication abilities, set
-this option to No.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Intercept I/O Interrupts"
- ,opt);
- if(!k && !(xtrn[i]->misc&IO_INTS)) {
- xtrn[i]->misc|=IO_INTS;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&IO_INTS) {
- xtrn[i]->misc&=~(IO_INTS|WWIVCOLOR);
- changes=1; }
- if(!(xtrn[i]->misc&IO_INTS))
- break;
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Program Uses WWIV Color Codes:
-
-If this program was written for use exclusively under WWIV, set this
-option to Yes.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Program Uses WWIV Color Codes"
- ,opt);
- if(!k && !(xtrn[i]->misc&WWIVCOLOR)) {
- xtrn[i]->misc|=WWIVCOLOR;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&WWIVCOLOR) {
- xtrn[i]->misc&=~WWIVCOLOR;
- changes=1; }
- break;
- case 10:
- k=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Swap BBS out of Memory to Run Executable:
-
-If this online programs requires a large amount of free memory,
-set this option to Yes to have the BBS swapped out of memory.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Swap BBS out of Memory",opt);
- if(!k && !(xtrn[i]->misc&SWAP)) {
- xtrn[i]->misc|=SWAP;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&SWAP) {
- xtrn[i]->misc&=~SWAP;
- changes=1; }
- break;
- case 11:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Program Can Modify User Data:
-
-If this online programs recognizes the Synchronet MODUSER.DAT format
-or the RBBS/QuickBBS EXITINFO.BBS format and you want it to be able to
-modify the data of users who run the program, set this option to Yes.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Program Can Modify User Data",opt);
- if(!k && !(xtrn[i]->misc&MODUSERDAT)) {
- xtrn[i]->misc|=MODUSERDAT;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&MODUSERDAT) {
- xtrn[i]->misc&=~MODUSERDAT;
- changes=1; }
- break;
- case 12:
- k=0;
- strcpy(opt[k++],"No");
- strcpy(opt[k++],"Logon");
- strcpy(opt[k++],"Logoff");
- strcpy(opt[k++],"New User");
- strcpy(opt[k++],"Birthday");
- opt[k][0]=0;
- switch(xtrn[i]->event) {
- default:
- k=0;
- break;
- case EVENT_LOGON:
- k=1;
- break;
- case EVENT_LOGOFF:
- k=2;
- break;
- case EVENT_NEWUSER:
- k=3;
- break;
- case EVENT_BIRTHDAY:
- k=4;
- break; }
- SETHELP(WHERE);
-/*
-Execute Online Program on Event:
-
-If you would like this online program to automatically execute on a
-specific user event, select the event. Otherwise, select No.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Execute on Event",opt);
- if(k==-1)
- break;
- if(xtrn[i]->event!=k) {
- xtrn[i]->event=k;
- changes=1; }
- if(!xtrn[i]->event)
- break;
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Execute Online Program as Event Only:
-
-If you would like this online program to execute as an event only
-(not available to users on the online program menu), set this option
-to Yes.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k
- ,0,"Execute as Event Only"
- ,opt);
- if(!k && !(xtrn[i]->misc&EVENTONLY)) {
- xtrn[i]->misc|=EVENTONLY;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&EVENTONLY) {
- xtrn[i]->misc&=~EVENTONLY;
- changes=1; }
- break;
- case 13:
- k=0;
- strcpy(opt[k++],"None");
- sprintf(opt[k++],"%-15s %s","Synchronet","XTRN.DAT");
- sprintf(opt[k++],"%-15s %s","WWIV","CHAIN.TXT");
- sprintf(opt[k++],"%-15s %s","GAP","DOOR.SYS");
- sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
- sprintf(opt[k++],"%-15s %s","Wildcat","CALLINFO.BBS");
- sprintf(opt[k++],"%-15s %s","PCBoard","PCBOARD.SYS");
- sprintf(opt[k++],"%-15s %s","SpitFire","SFDOORS.DAT");
- sprintf(opt[k++],"%-15s %s","MegaMail","UTIDOOR.TXT");
- sprintf(opt[k++],"%-15s %s","Solar Realms","DOORFILE.SR");
- sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
- sprintf(opt[k++],"%-15s %s","TriBBS","TRIBBS.SYS");
- opt[k][0]=0;
- k=xtrn[i]->type;
- SETHELP(WHERE);
-/*
-Online Program BBS Drop File Type:
-
-If this online program requires a specific BBS data (drop) file
-format, select the file format from the list.
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"BBS Drop File Type",opt);
- if(k==-1)
- break;
- if(xtrn[i]->type!=k) {
- xtrn[i]->type=k;
- changes=1; }
- if(xtrn[i]->type && uq&UQ_ALIASES) {
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- k=1;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Use Real Names",opt);
- if(k==0 && !(xtrn[i]->misc&REALNAME)) {
- xtrn[i]->misc|=REALNAME;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&REALNAME) {
- xtrn[i]->misc&=~REALNAME;
- changes=1; } }
- break;
- case 14:
- k=0;
- strcpy(opt[0],"Node Directory");
- strcpy(opt[1],"Start-up Directory");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Directory for Drop File:
-
-You can have the data file created in the current Node Directory or the
-Start-up Directory (if one is specified).
-*/
- savnum=4;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Create Drop File In"
- ,opt);
- if(!k && xtrn[i]->misc&STARTUPDIR) {
- xtrn[i]->misc&=~STARTUPDIR;
- changes=1; }
- else if(k==1 && !(xtrn[i]->misc&STARTUPDIR)) {
- xtrn[i]->misc|=STARTUPDIR;
- changes=1; }
- break;
- case 15:
- while(1) {
- k=0;
- if(xtrn[i]->textra)
- sprintf(str,"%u minutes",xtrn[i]->textra);
- else
- strcpy(str,"None");
- sprintf(opt[k++],"%-25.25s%s","Extra Time",str);
- if(xtrn[i]->maxtime)
- sprintf(str,"%u minutes",xtrn[i]->maxtime);
- else
- strcpy(str,"None");
- sprintf(opt[k++],"%-25.25s%s","Maximum Time",str);
- sprintf(opt[k++],"%-25.25s%s","Suspended (Free) Time"
- ,xtrn[i]->misc&FREETIME ? "Yes" : "No");
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-Online Program Time Options:
-
-This sub-menu allows you to define specific preferences regarding the
-time users spend running this program.
-*/
- savnum=4;
- k=ulist(WIN_SAV|WIN_ACT|WIN_RHT|WIN_BOT,0,0,40
- ,&time_dflt,0
- ,"Online Program Time Options",opt);
- if(k==-1)
- break;
- savnum=5;
- switch(k) {
- case 0:
- itoa(xtrn[i]->textra,str,10);
- SETHELP(WHERE);
-/*
-Extra Time to Give User in Program:
-
-If you want to give users extra time while in this online program,
-set this value to the number of minutes to add to their current time
-left online.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Extra Time to Give User (in minutes)"
- ,str,2,K_EDIT|K_NUMBER);
- xtrn[i]->textra=atoi(str);
- break;
- case 1:
- itoa(xtrn[i]->maxtime,str,10);
- SETHELP(WHERE);
-/*
-Maximum Time Allowed in Program:
-
-If this program supports a drop file that contains the number of minutes
-left online for the current user, this option allows the sysop to set
-the maximum number of minutes that will be allowed in the drop file.
-
-Setting this option to 0, disables this feature.
-*/
- uinput(WIN_MID|WIN_SAV,0,0
- ,"Maximum Time (in minutes, 0=disabled)"
- ,str,2,K_EDIT|K_NUMBER);
- xtrn[i]->maxtime=atoi(str);
- break;
- case 2:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- SETHELP(WHERE);
-/*
-Suspended (Free) Time:
-
-If you want the user's time online to be suspended while running this
-online program (e.g. Free Time), set this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Suspended (Free) Time",opt);
- if(!k && !(xtrn[i]->misc&FREETIME)) {
- xtrn[i]->misc|=FREETIME;
- changes=1; }
- else if(k==1 && xtrn[i]->misc&FREETIME) {
- xtrn[i]->misc&=~FREETIME;
- changes=1; }
- break; } }
- break;
-
- } } }
-}
-
-void xedit_cfg()
-{
- static int dflt,dfltopt,bar;
- char str[81],code[81],done=0,*p;
- int j,k;
- uint i;
- static xedit_t savxedit;
-
-while(1) {
- for(i=0;i<total_xedits && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-8.8s %.40s",xedit[i]->code,xedit[i]->lcmd);
- opt[i][0]=0;
- j=WIN_SAV|WIN_ACT|WIN_CHE|WIN_RHT;
- savnum=0;
- if(total_xedits)
- j|=WIN_DEL|WIN_GET;
- if(total_xedits<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savxedit.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-External Editors:
-
-This is a list of the configured external editors.
-
-To add an editor, select the desired location and hit INS .
-
-To delete an editor, select it and hit DEL .
-
-To configure an editor, select it and hit ENTER .
-*/
- i=ulist(j,0,0,45,&dflt,&bar,"External Editors",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-External Editor Name:
-
-This is the name or description of the external editor.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"External Editor Name",str,40
- ,0)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-External Editor Internal Code:
-
-This is the internal code for the external editor.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"External Editor Internal Code",code,8
- ,K_UPPER|K_EDIT)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
-
- if((xedit=(xedit_t **)REALLOC(xedit
- ,sizeof(xedit_t *)*(total_xedits+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_xedits+1);
- total_xedits=0;
- bail(1);
- continue; }
- if(total_xedits)
- for(j=total_xedits;j>i;j--)
- xedit[j]=xedit[j-1];
- if((xedit[i]=(xedit_t *)MALLOC(sizeof(xedit_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(xedit_t));
- continue; }
- memset((xedit_t *)xedit[i],0,sizeof(xedit_t));
- strcpy(xedit[i]->name,str);
- strcpy(xedit[i]->code,code);
- total_xedits++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(xedit[i]);
- total_xedits--;
- for(j=i;j<total_xedits;j++)
- xedit[j]=xedit[j+1];
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savxedit=*xedit[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *xedit[i]=savxedit;
- changes=1;
- continue; }
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-32.32s%s","Name",xedit[i]->name);
- sprintf(opt[k++],"%-32.32s%s","Internal Code",xedit[i]->code);
- sprintf(opt[k++],"%-32.32s%.40s","Local Command Line",xedit[i]->lcmd);
- sprintf(opt[k++],"%-32.32s%.40s","Remote Command Line",xedit[i]->rcmd);
- sprintf(opt[k++],"%-32.32s%.40s","Access Requirements",xedit[i]->ar);
- sprintf(opt[k++],"%-32.32s%s%s","Intercept I/O Interrupts"
- ,xedit[i]->misc&IO_INTS ? "Yes":"No"
- ,xedit[i]->misc&WWIVCOLOR ? ", WWIV" : nulstr);
- sprintf(opt[k++],"%-32.32s%s","Quoted Text"
- ,xedit[i]->misc"EALL ? "All":xedit[i]->misc"ENONE
- ? "None" : "Prompt User");
- sprintf(opt[k++],"%-32.32s%s","QuickBBS Style (MSGTMP)"
- ,xedit[i]->misc&QUICKBBS ? "Yes":"No");
- sprintf(opt[k++],"%-32.32s%s","Expand Line Feeds to CRLF"
- ,xedit[i]->misc&EXPANDLF ? "Yes":"No");
- switch(xedit[i]->type) {
- case XTRN_SBBS:
- sprintf(str,"%-15s %s","Synchronet","XTRN.DAT");
- break;
- case XTRN_WWIV:
- sprintf(str,"%-15s %s","WWIV","CHAIN.TXT");
- break;
- case XTRN_GAP:
- sprintf(str,"%-15s %s","GAP","DOOR.SYS");
- break;
- case XTRN_RBBS:
- sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
- break;
- case XTRN_RBBS1:
- sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
- break;
- case XTRN_WILDCAT:
- sprintf(str,"%-15s %s","Wildcat","CALLINFO.BBS");
- break;
- case XTRN_PCBOARD:
- sprintf(str,"%-15s %s","PCBoard","PCBOARD.SYS");
- break;
- case XTRN_SPITFIRE:
- sprintf(str,"%-15s %s","SpitFire","SFDOORS.DAT");
- break;
- case XTRN_UTI:
- sprintf(str,"%-15s %s","MegaMail","UTIDOOR.TXT");
- break;
- case XTRN_SR:
- sprintf(str,"%-15s %s","Solar Realms","DOORFILE.SR");
- break;
- case XTRN_TRIBBS:
- sprintf(str,"%-15s %s","TriBBS","TRIBBS.SYS");
- break;
- default:
- strcpy(str,"None");
- break; }
- sprintf(opt[k++],"%-32.32s%s","BBS Drop File Type",str);
- opt[k][0]=0;
- SETHELP(WHERE);
-/*
-External Editor Configuration:
-
-This menu allows you to change the settings for the selected external
-message editor. External message editors are very common on BBSs. Some
-popular editors include SyncEdit, WWIVedit, FEdit, GEdit, IceEdit,
-and many others.
-*/
-
- savnum=1;
- sprintf(str,"%s Editor",xedit[i]->name);
- switch(ulist(WIN_SAV|WIN_ACT|WIN_L2R|WIN_BOT,0,0,70,&dfltopt,0
- ,str,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-External Editor Name:
-
-This is the name or description of the external editor.
-*/
- strcpy(str,xedit[i]->name);
- if(!uinput(WIN_MID|WIN_SAV,0,10,"External Editor Name"
- ,xedit[i]->name,40,K_EDIT))
- strcpy(xedit[i]->name,str);
- break;
- case 1:
- strcpy(str,xedit[i]->code);
- SETHELP(WHERE);
-/*
-External Editor Internal Code:
-
-Every external editor must have its own unique internal code for
-Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(xedit[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 2:
- SETHELP(WHERE);
-/*
-External Editor Local Command Line:
-
-This is the command line to execute when using this editor locally.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Local"
- ,xedit[i]->lcmd,50,K_EDIT);
- break;
-
- case 3:
- SETHELP(WHERE);
-/*
-External Editor Remote Command Line:
-
-This is the command line to execute when using this editor remotely.
-*/
- uinput(WIN_MID|WIN_SAV,0,10,"Remote"
- ,xedit[i]->rcmd,50,K_EDIT);
- break;
- case 4:
- savnum=2;
- sprintf(str,"%s External Editor",xedit[i]->name);
- getar(str,xedit[i]->ar);
- break;
- case 5:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Intercept I/O Interrupts:
-
-If this external editor has its own serial communication abilities or
-requires a FOSSIL driver, set this option to No.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Intercept I/O Interrupts"
- ,opt);
- if(!k && !(xedit[i]->misc&IO_INTS)) {
- xedit[i]->misc|=IO_INTS;
- changes=1; }
- else if(k==1 && xedit[i]->misc&IO_INTS) {
- xedit[i]->misc&=~(IO_INTS|WWIVCOLOR);
- changes=1; }
- if(!(xedit[i]->misc&IO_INTS))
- break;
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Editor Uses WWIV Color Codes:
-
-If this editor was written for use exclusively under WWIV, set this
-option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"Editor Uses WWIV Color Codes",opt);
- if(!k && !(xedit[i]->misc&WWIVCOLOR)) {
- xedit[i]->misc|=WWIVCOLOR;
- changes=1; }
- else if(k==1 && xedit[i]->misc&WWIVCOLOR) {
- xedit[i]->misc&=~WWIVCOLOR;
- changes=1; }
- break;
- case 6:
- k=3;
- strcpy(opt[0],"All");
- strcpy(opt[1],"None");
- strcpy(opt[2],"Prompt User");
- opt[3][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Quoted Text:
-
-If you want all the message text to be automatically entered into the
-message edit/quote file (INPUT.MSG or MSGTMP), select All.
-
-If you want the user to be prompted for which lines to quote before
-running the editor, select Prompt User.
-
-If you want none of the lines to be automatically quoted, select None.
-This option is mainly for use with editors that support the QUOTES.TXT
-drop file (like SyncEdit v2.x).
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Quoted Text"
- ,opt);
- if(!k && !(xedit[i]->misc"EALL)) {
- xedit[i]->misc|=QUOTEALL;
- xedit[i]->misc&=~QUOTENONE;
- changes=1; }
- else if(k==1 && !(xedit[i]->misc"ENONE)) {
- xedit[i]->misc|=QUOTENONE;
- xedit[i]->misc&=~QUOTEALL;
- changes=1; }
- else if(k==2 && xedit[i]->misc&(QUOTENONE|QUOTEALL)) {
- xedit[i]->misc&=~(QUOTENONE|QUOTEALL);
- changes=1; }
- break;
- case 7:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-QuickBBS Style (MSGTMP):
-
-If this external editor uses the QuickBBS style MSGTMP interface, set
-this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"QuickBBS Style (MSGTMP)"
- ,opt);
- if(!k && !(xedit[i]->misc&QUICKBBS)) {
- xedit[i]->misc|=QUICKBBS;
- changes=1; }
- else if(k==1 && xedit[i]->misc&QUICKBBS) {
- xedit[i]->misc&=~QUICKBBS;
- changes=1; }
- break;
- case 8:
- k=1;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- savnum=2;
- SETHELP(WHERE);
-/*
-Expand Line Feeds to Carriage Return/Line Feed Pairs:
-
-If this external editor saves new lines as a single line feed character
-instead of a carriage return/line feed pair, set this option to Yes.
-*/
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Expand LF to CRLF"
- ,opt);
- if(!k && !(xedit[i]->misc&EXPANDLF)) {
- xedit[i]->misc|=EXPANDLF;
- changes=1; }
- else if(k==1 && xedit[i]->misc&EXPANDLF) {
- xedit[i]->misc&=~EXPANDLF;
- changes=1; }
- break;
- case 9:
- k=0;
- strcpy(opt[k++],"None");
- sprintf(opt[k++],"%-15s %s","Synchronet","XTRN.DAT");
- sprintf(opt[k++],"%-15s %s","WWIV","CHAIN.TXT");
- sprintf(opt[k++],"%-15s %s","GAP","DOOR.SYS");
- sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
- sprintf(opt[k++],"%-15s %s","Wildcat","CALLINFO.BBS");
- sprintf(opt[k++],"%-15s %s","PCBoard","PCBOARD.SYS");
- sprintf(opt[k++],"%-15s %s","SpitFire","SFDOORS.DAT");
- sprintf(opt[k++],"%-15s %s","MegaMail","UTIDOOR.TXT");
- sprintf(opt[k++],"%-15s %s","Solar Realms","DOORFILE.SR");
- sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
- sprintf(opt[k++],"%-15s %s","TriBBS","TRIBBS.SYS");
- opt[k][0]=0;
- k=xedit[i]->type;
- SETHELP(WHERE);
-/*
-External Program BBS Drop File Type:
-
-If this external editor requires a specific BBS data (drop) file
-format, select the file format from the list.
-*/
- savnum=2;
- k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
- ,"BBS Drop File Type",opt);
- if(k==-1)
- break;
- if(xedit[i]->type!=k) {
- xedit[i]->type=k;
- changes=1; }
- break;
-
- } } }
-}
-
-
-void swap_cfg()
-{
- static int dflt,bar;
- char str[81];
- int j,k;
- uint i;
-
-while(1) {
- for(i=0;i<MAX_OPTS && i<total_swaps;i++)
- sprintf(opt[i],"%-25s",swap[i]->cmd);
- opt[i][0]=0;
- j=WIN_ACT|WIN_CHE|WIN_L2R|WIN_SAV;
- savnum=0;
- if(total_swaps)
- j|=WIN_DEL;
- if(total_swaps<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- SETHELP(WHERE);
-/*
-External Program Global Swap List:
-
-This is a list of the external program (executable file) names to swap
-the BBS out of memory for. They are termed Global because if you add
-a program name to this list, the BBS will swap to run it regardless of
-when, where, or why the program is run from the BBS.
-
-Use INS and DELETE to add and remove swappable programs.
-
-To change the filename of a program, hit ENTER .
-
-To swap whenever PKZIP is run, add PKZIP to the list.
-
-To swap for all DOS Shells, add COMMAND.COM to the list.
-*/
- i=ulist(j,0,0,17,&dflt,&bar,"Global Swap List",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Swappable Program Name:
-
-This is the executable filename of the external program.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Program Name",str,12
- ,K_UPPER)<1)
- continue;
- if((swap=(swap_t **)REALLOC(swap
- ,sizeof(swap_t *)*(total_swaps+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_swaps+1);
- total_swaps=0;
- bail(1);
- continue; }
- if(total_swaps)
- for(j=total_swaps;j>i;j--)
- swap[j]=swap[j-1];
- if((swap[i]=(swap_t *)MALLOC(sizeof(swap_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(swap_t));
- continue; }
- memset((swap_t *)swap[i],0,sizeof(swap_t));
- strcpy(swap[i]->cmd,str);
- total_swaps++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(swap[i]);
- total_swaps--;
- for(j=i;j<total_swaps;j++)
- swap[j]=swap[j+1];
- changes=1;
- continue; }
- SETHELP(WHERE);
-/*
-Swappable Program Name:
-
-This is the executable filename of the external program.
-*/
- strcpy(str,swap[i]->cmd);
- if(uinput(WIN_MID|WIN_SAV,0,5,"Program Name",str,12
- ,K_UPPER|K_EDIT)>0)
- strcpy(swap[i]->cmd,str); }
-}
-
-int os2pgm_cfg()
-{
- static int dflt,bar;
- char str[81];
- int j,k;
- uint i;
-
-while(1) {
- for(i=0;i<MAX_OPTS && i<total_os2pgms;i++)
- sprintf(opt[i],"%-12s %-12s",os2pgm[i]->name
- ,os2pgm[i]->misc&OS2_POPEN ? "(port open)":nulstr);
- opt[i][0]=0;
- j=WIN_ACT|WIN_CHE|WIN_L2R|WIN_SAV;
- savnum=0;
- if(total_os2pgms)
- j|=WIN_DEL;
- if(total_os2pgms<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- SETHELP(WHERE);
-/*
-OS/2 Program List:
-
-This is a list of all native OS/2 external program (executable file)
-names that you may execute under Synchronet for OS/2. This list is not
-used in Synchronet for DOS. Any programs not listed here will be assumed
-to be DOS programs and executed accordingly.
-
-Use INS and DELETE to add and remove OS/2 programs.
-
-To change the filename of a program, hit ENTER .
-*/
- i=ulist(j,0,0,30,&dflt,&bar,"OS/2 Program List",opt);
- if((signed)i==-1)
- break;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-OS/2 Program Name:
-
-This is the executable filename of the OS/2 external program.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"OS/2 Program Name",str,12
- ,K_UPPER)<1)
- continue;
- if((os2pgm=(os2pgm_t **)REALLOC(os2pgm
- ,sizeof(os2pgm_t *)*(total_os2pgms+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_os2pgms+1);
- total_os2pgms=0;
- bail(1);
- continue; }
- if(total_os2pgms)
- for(j=total_os2pgms;j>i;j--)
- os2pgm[j]=os2pgm[j-1];
- if((os2pgm[i]=(os2pgm_t *)MALLOC(sizeof(os2pgm_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(os2pgm_t));
- continue; }
- memset((os2pgm_t *)os2pgm[i],0,sizeof(os2pgm_t));
- strcpy(os2pgm[i]->name,str);
-
- SETHELP(WHERE);
-/*
-Leave COM Port Open During Execution:
-
-If this program accesses the COM port via handle (currently open COM
-port), set this option to Yes, otherwise set it to No.
-*/
- strcpy(opt[0],"Yes (This Program Uses Port Handle)");
- strcpy(opt[1],"No (This Program Uses Port Number)");
- opt[2][0]=0;
- j=1;
- if(ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Leave COM Port Open During Execution?",opt)==0)
- os2pgm[i]->misc|=OS2_POPEN;
- total_os2pgms++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(os2pgm[i]);
- total_os2pgms--;
- for(j=i;j<total_os2pgms;j++)
- os2pgm[j]=os2pgm[j+1];
- changes=1;
- continue; }
- SETHELP(WHERE);
-/*
-OS/2 Program Name:
-
-This is the executable filename of the OS/2 external program.
-*/
- strcpy(str,os2pgm[i]->name);
- if(uinput(WIN_MID|WIN_SAV,0,5,"OS/2 Program Name",str,12
- ,K_UPPER|K_EDIT)>0)
- strcpy(os2pgm[i]->name,str);
-
- SETHELP(WHERE);
-/*
-Leave COM Port Open During Execution:
-
-If this program accesses the COM port via handle (currently open COM
-port), set this option to Yes, otherwise set it to No.
-*/
- strcpy(opt[0],"Yes (This Program Uses Port Handle)");
- strcpy(opt[1],"No (This Program Uses Port Number)");
- opt[2][0]=0;
- j=1;
- savnum=1;
- j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
- ,"Leave COM Port Open During Execution",opt);
- if(j==0 && !(os2pgm[i]->misc&OS2_POPEN)) {
- os2pgm[i]->misc|=OS2_POPEN;
- changes=1; }
- else if(j==1 && os2pgm[i]->misc&OS2_POPEN) {
- os2pgm[i]->misc&=~OS2_POPEN;
- changes=1; }
- }
-return(0);
-}
-
-
-void xtrnsec_cfg()
-{
- static int xtrnsec_dflt,xtrnsec_opt;
- char str[81],code[9],done=0,*p;
- int j,k;
- uint i;
- static xtrnsec_t savxtrnsec;
-
-while(1) {
- for(i=0;i<total_xtrnsecs && i<MAX_OPTS;i++)
- sprintf(opt[i],"%-25s",xtrnsec[i]->name);
- opt[i][0]=0;
- j=WIN_SAV|WIN_ACT|WIN_CHE|WIN_BOT;
- savnum=0;
- if(total_xtrnsecs)
- j|=WIN_DEL|WIN_GET;
- if(total_xtrnsecs<MAX_OPTS)
- j|=WIN_INS|WIN_INSACT|WIN_XTR;
- if(savxtrnsec.name[0])
- j|=WIN_PUT;
- SETHELP(WHERE);
-/*
-Online Program Sections:
-
-This is a list of Online Program Sections configured for your system.
-
-To add an online program section, select the desired location with the
-arrow keys and hit INS .
-
-To delete an online program section, select it and hit DEL .
-
-To configure an online program section, select it and hit ENTER .
-*/
- i=ulist(j,0,0,45,&xtrnsec_dflt,0,"Online Program Sections",opt);
- if((signed)i==-1)
- return;
- if((i&MSK_ON)==MSK_INS) {
- i&=MSK_OFF;
- SETHELP(WHERE);
-/*
-Online Program Section Name:
-
-This is the name of this section.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Online Program Section Name",str,40
- ,0)<1)
- continue;
- sprintf(code,"%.8s",str);
- p=strchr(code,SP);
- if(p) *p=0;
- strupr(code);
- SETHELP(WHERE);
-/*
-Online Program Section Internal Code:
-
-Every online program section must have its own unique internal code
-for Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-*/
- if(uinput(WIN_MID|WIN_SAV,0,0,"Online Program Section Internal Code"
- ,code,8,K_EDIT|K_UPPER)<1)
- continue;
- if(!code_ok(code)) {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0;
- continue; }
- if((xtrnsec=(xtrnsec_t **)REALLOC(xtrnsec
- ,sizeof(xtrnsec_t *)*(total_xtrnsecs+1)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_xtrnsecs+1);
- total_xtrnsecs=0;
- bail(1);
- continue; }
- if(total_xtrnsecs) {
- for(j=total_xtrnsecs;j>i;j--)
- xtrnsec[j]=xtrnsec[j-1];
- for(j=0;j<total_xtrns;j++)
- if(xtrn[j]->sec>=i)
- xtrn[j]->sec++; }
-
-
- if((xtrnsec[i]=(xtrnsec_t *)MALLOC(sizeof(xtrnsec_t)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(xtrnsec_t));
- continue; }
- memset((xtrnsec_t *)xtrnsec[i],0,sizeof(xtrnsec_t));
- strcpy(xtrnsec[i]->name,str);
- strcpy(xtrnsec[i]->code,code);
- total_xtrnsecs++;
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_DEL) {
- i&=MSK_OFF;
- FREE(xtrnsec[i]);
- for(j=0;j<total_xtrns;) {
- if(xtrn[j]->sec==i) { /* delete xtrns of this group */
- FREE(xtrn[j]);
- total_xtrns--;
- k=j;
- while(k<total_xtrns) { /* move all xtrns down */
- xtrn[k]=xtrn[k+1];
- k++; } }
- else j++; }
- for(j=0;j<total_xtrns;j++) /* move xtrn group numbers down */
- if(xtrn[j]->sec>i)
- xtrn[j]->sec--;
- total_xtrnsecs--;
- while(i<total_xtrnsecs) {
- xtrnsec[i]=xtrnsec[i+1];
- i++; }
- changes=1;
- continue; }
- if((i&MSK_ON)==MSK_GET) {
- i&=MSK_OFF;
- savxtrnsec=*xtrnsec[i];
- continue; }
- if((i&MSK_ON)==MSK_PUT) {
- i&=MSK_OFF;
- *xtrnsec[i]=savxtrnsec;
- changes=1;
- continue; }
- done=0;
- while(!done) {
- k=0;
- sprintf(opt[k++],"%-27.27s%s","Name",xtrnsec[i]->name);
- sprintf(opt[k++],"%-27.27s%s","Internal Code",xtrnsec[i]->code);
- sprintf(opt[k++],"%-27.27s%.40s","Access Requirements"
- ,xtrnsec[i]->ar);
- sprintf(opt[k++],"%s","Available Online Programs...");
- opt[k][0]=0;
- savnum=1;
- sprintf(str,"%s Program Section",xtrnsec[i]->name);
- switch(ulist(WIN_SAV|WIN_ACT|WIN_MID,0,0,60,&xtrnsec_opt,0,str
- ,opt)) {
- case -1:
- done=1;
- break;
- case 0:
- SETHELP(WHERE);
-/*
-Online Program Section Name:
-
-This is the name of this section.
-*/
- strcpy(str,xtrnsec[i]->name); /* save */
- if(!uinput(WIN_MID|WIN_SAV,0,10
- ,"Online Program Section Name"
- ,xtrnsec[i]->name,40,K_EDIT))
- strcpy(xtrnsec[i]->name,str);
- break;
- case 1:
- strcpy(str,xtrnsec[i]->code);
- SETHELP(WHERE);
-/*
-Online Program Section Internal Code:
-
-Every online program section must have its own unique internal code
-for Synchronet to reference it by. It is helpful if this code is an
-abreviation of the name.
-*/
- uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
- ,str,8,K_EDIT|K_UPPER);
- if(code_ok(str))
- strcpy(xtrnsec[i]->code,str);
- else {
- helpbuf=invalid_code;
- umsg("Invalid Code");
- helpbuf=0; }
- break;
- case 2:
- getar(xtrnsec[i]->name,xtrnsec[i]->ar);
- break;
- case 3:
- xtrn_cfg(i);
- break; } } }
-}
diff --git a/src/sbbs2/scfg/wrcnf1.c b/src/sbbs2/scfg/wrcnf1.c
deleted file mode 100644
index e6d70020db89cfb8beda9064813de288c7b34eb4..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/wrcnf1.c
+++ /dev/null
@@ -1,577 +0,0 @@
-#line 2 "WRCNF1.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-extern int no_msghdr,all_msghdr;
-extern int no_dirchk;
-
-char *crlf="\r\n";
-char nulbuf[256]={0};
-int pslen;
-
-#define put_int(var,stream) fwrite(&var,1,sizeof(var),stream)
-#define put_str(var,stream) { pslen=strlen(var); \
- fwrite(var,1,pslen > sizeof(var) \
- ? sizeof(var) : pslen ,stream); \
- fwrite(nulbuf,1,pslen > sizeof(var) \
- ? 0 : sizeof(var)-pslen,stream); }
-
-void write_node_cfg()
-{
- char str[128],cmd[64],c;
- int i,file;
- short n;
- FILE *stream;
-
-memset(cmd,0,64);
-
-upop("Writing NODE.CNF...");
-sprintf(str,"%sNODE.CNF",node_path[node_num-1]);
-backup(str);
-
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1
- || (stream=fdopen(file,"wb"))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-setvbuf(stream,NULL,_IOFBF,2048);
-
-put_int(node_num,stream);
-put_str(node_name,stream);
-put_str(node_phone,stream);
-put_str(node_comspec,stream); /* Was node_logon */
-put_int(node_misc,stream);
-put_int(node_ivt,stream);
-put_int(node_swap,stream);
-if(node_swapdir[0]) {
- backslash(node_swapdir);
- md(node_swapdir); } /* make sure it's a valid directory */
-put_str(node_swapdir,stream);
-put_int(node_valuser,stream);
-put_int(node_minbps,stream);
-put_str(node_ar,stream);
-put_int(node_dollars_per_call,stream);
-put_str(node_editor,stream);
-put_str(node_viewer,stream);
-put_str(node_daily,stream);
-put_int(node_scrnlen,stream);
-put_int(node_scrnblank,stream);
-backslash(ctrl_dir);
-put_str(ctrl_dir,stream);
-backslash(text_dir);
-put_str(text_dir,stream);
-backslash(temp_dir);
-put_str(temp_dir,stream);
-for(i=0;i<10;i++)
- put_str(wfc_cmd[i],stream);
-for(i=0;i<12;i++)
- put_str(wfc_scmd[i],stream);
-put_str(mdm_hang,stream);
-put_int(node_sem_check,stream);
-put_int(node_stat_check,stream);
-put_str(scfg_cmd,stream);
-put_int(sec_warn,stream);
-put_int(sec_hangup,stream);
-n=0;
-for(i=0;i<188;i++) /* unused init to NULL */
- fwrite(&n,1,2,stream);
-n=0xffff; /* unused init to 0xff */
-for(i=0;i<256;i++)
- fwrite(&n,1,2,stream);
-put_int(com_port,stream);
-put_int(com_irq,stream);
-put_int(com_base,stream);
-put_int(com_rate,stream);
-put_int(mdm_misc,stream);
-put_str(mdm_init,stream);
-put_str(mdm_spec,stream);
-put_str(mdm_term,stream);
-put_str(mdm_dial,stream);
-put_str(mdm_offh,stream);
-put_str(mdm_answ,stream);
-put_int(mdm_reinit,stream);
-put_int(mdm_ansdelay,stream);
-put_int(mdm_rings,stream);
-put_int(mdm_results,stream);
-for(i=0;i<mdm_results;i++) {
- put_int(mdm_result[i].code,stream);
- put_int(mdm_result[i].rate,stream);
- put_int(mdm_result[i].cps,stream);
- put_str(mdm_result[i].str,stream); }
-fclose(stream);
-}
-
-void free_node_cfg()
-{
-
-FREE(mdm_result);
-}
-
-void write_main_cfg()
-{
- char str[128],c=0;
- int file;
- short i,j,n;
- FILE *stream;
-
-upop("Writing MAIN.CNF...");
-sprintf(str,"%sMAIN.CNF",ctrl_dir);
-backup(str);
-
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1
- || (stream=fdopen(file,"wb"))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-setvbuf(stream,NULL,_IOFBF,2048);
-
-put_str(sys_name,stream);
-put_str(sys_id,stream);
-put_str(sys_location,stream);
-put_str(sys_phonefmt,stream);
-put_str(sys_op,stream);
-put_str(sys_guru,stream);
-put_str(sys_pass,stream);
-put_int(sys_nodes,stream);
-for(i=0;i<sys_nodes;i++) {
- backslash(node_path[i]);
- fwrite(node_path[i],LEN_DIR+1,1,stream); }
-backslash(data_dir);
-put_str(data_dir,stream);
-
-/************************************************************/
-/* Create data and sub-dirs off data if not already created */
-/************************************************************/
-strcpy(str,data_dir);
-md(str);
-sprintf(str,"%sSUBS",data_dir);
-md(str);
-sprintf(str,"%sDIRS",data_dir);
-md(str);
-sprintf(str,"%sTEXT",data_dir);
-md(str);
-sprintf(str,"%sMSGS",data_dir);
-md(str);
-sprintf(str,"%sUSER",data_dir);
-md(str);
-sprintf(str,"%sUSER\\PTRS",data_dir);
-md(str);
-sprintf(str,"%sLOGS",data_dir);
-md(str);
-sprintf(str,"%sQNET",data_dir);
-md(str);
-sprintf(str,"%sFILE",data_dir);
-md(str);
-
-backslash(exec_dir);
-put_str(exec_dir,stream);
-put_str(sys_logon,stream);
-put_str(sys_logout,stream);
-put_str(sys_daily,stream);
-put_int(sys_timezone,stream);
-put_int(sys_misc,stream);
-put_int(sys_lastnode,stream);
-put_int(sys_autonode,stream);
-put_int(uq,stream);
-put_int(sys_pwdays,stream);
-put_int(sys_deldays,stream);
-put_int(sys_exp_warn,stream);
-put_int(sys_autodel,stream);
-put_int(sys_def_stat,stream);
-put_str(sys_chat_ar,stream);
-put_int(cdt_min_value,stream);
-put_int(max_minutes,stream);
-put_int(cdt_per_dollar,stream);
-put_str(new_pass,stream);
-put_str(new_magic,stream);
-put_str(new_sif,stream);
-put_str(new_sof,stream);
-
-put_int(new_level,stream);
-put_int(new_flags1,stream);
-put_int(new_flags2,stream);
-put_int(new_flags3,stream);
-put_int(new_flags4,stream);
-put_int(new_exempt,stream);
-put_int(new_rest,stream);
-put_int(new_cdt,stream);
-put_int(new_min,stream);
-put_str(new_xedit,stream);
-put_int(new_expire,stream);
-if(new_shell>total_shells)
- new_shell=0;
-put_int(new_shell,stream);
-put_int(new_misc,stream);
-put_int(new_prot,stream);
-c=0;
-put_int(c,stream);
-n=0;
-for(i=0;i<7;i++)
- put_int(n,stream);
-
-put_int(expired_level,stream);
-put_int(expired_flags1,stream);
-put_int(expired_flags2,stream);
-put_int(expired_flags3,stream);
-put_int(expired_flags4,stream);
-put_int(expired_exempt,stream);
-put_int(expired_rest,stream);
-
-put_str(logon_mod,stream);
-put_str(logoff_mod,stream);
-put_str(newuser_mod,stream);
-put_str(login_mod,stream);
-put_str(logout_mod,stream);
-put_str(sync_mod,stream);
-put_str(expire_mod,stream);
-put_int(c,stream);
-n=0;
-for(i=0;i<224;i++)
- put_int(n,stream);
-n=0xffff;
-for(i=0;i<256;i++)
- put_int(n,stream);
-
-n=0;
-for(i=0;i<10;i++) {
- put_int(val_level[i],stream);
- put_int(val_expire[i],stream);
- put_int(val_flags1[i],stream);
- put_int(val_flags2[i],stream);
- put_int(val_flags3[i],stream);
- put_int(val_flags4[i],stream);
- put_int(val_cdt[i],stream);
- put_int(val_exempt[i],stream);
- put_int(val_rest[i],stream);
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-c=0;
-for(i=0;i<100 && !feof(stream);i++) {
- put_int(level_timeperday[i],stream);
- put_int(level_timepercall[i],stream);
- put_int(level_callsperday[i],stream);
- put_int(level_freecdtperday[i],stream);
- put_int(level_linespermsg[i],stream);
- put_int(level_postsperday[i],stream);
- put_int(level_emailperday[i],stream);
- put_int(level_misc[i],stream);
- put_int(level_expireto[i],stream);
- put_int(c,stream);
- for(j=0;j<5;j++)
- put_int(n,stream); }
-
-/* Command Shells */
-
-put_int(total_shells,stream);
-for(i=0;i<total_shells;i++) {
- put_str(shell[i]->name,stream);
- put_str(shell[i]->code,stream);
- put_str(shell[i]->ar,stream);
- put_int(shell[i]->misc,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-fclose(stream);
-}
-
-void free_main_cfg()
-{
- int i;
-
-for(i=0;i<sys_nodes;i++)
- FREE(node_path[i]);
-FREE(node_path);
-for(i=0;i<total_shells;i++)
- FREE(shell[i]);
-FREE(shell);
-}
-
-void write_msgs_cfg()
-{
- char str[128],c;
- int i,j,k,file,x;
- short n;
- long l;
- FILE *stream;
- smb_t smb;
-
-upop("Writing MSGS.CNF...");
-sprintf(str,"%sMSGS.CNF",ctrl_dir);
-backup(str);
-
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1
- || (stream=fdopen(file,"wb"))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-setvbuf(stream,NULL,_IOFBF,2048);
-
-put_int(max_qwkmsgs,stream);
-put_int(mail_maxcrcs,stream);
-put_int(mail_maxage,stream);
-put_str(preqwk_ar,stream);
-put_int(smb_retry_time,stream);
-n=0;
-for(i=0;i<235;i++)
- put_int(n,stream);
-n=0xffff;
-for(i=0;i<256;i++)
- put_int(n,stream);
-
-/* Message Groups */
-
-put_int(total_grps,stream);
-for(i=0;i<total_grps;i++) {
- put_str(grp[i]->lname,stream);
- put_str(grp[i]->sname,stream);
- put_str(grp[i]->ar,stream);
- n=0;
- for(j=0;j<32;j++)
- put_int(n,stream);
- n=0xffff;
- for(j=0;j<16;j++)
- put_int(n,stream); }
-
-/* Message Sub-boards */
-
-backslash(echomail_dir);
-
-str[0]=0;
-for(i=n=0;i<total_subs;i++)
- if(sub[i]->grp<total_grps) /* total VALID sub-boards */
- n++;
-put_int(n,stream);
-for(i=0;i<total_subs;i++) {
- if(sub[i]->grp>=total_grps) /* skip bogus group numbers */
- continue;
- put_int(sub[i]->grp,stream);
- put_str(sub[i]->lname,stream);
- put_str(sub[i]->sname,stream);
- put_str(sub[i]->qwkname,stream);
- put_str(sub[i]->code,stream);
- if(sub[i]->data_dir[0])
- backslash(sub[i]->data_dir);
- put_str(sub[i]->data_dir,stream);
- md(sub[i]->data_dir);
- put_str(sub[i]->ar,stream);
- put_str(sub[i]->read_ar,stream);
- put_str(sub[i]->post_ar,stream);
- put_str(sub[i]->op_ar,stream);
- l=(sub[i]->misc&(~SUB_HDRMOD)); /* Don't write mod bit */
- put_int(l,stream);
- put_str(sub[i]->tagline,stream);
- put_str(sub[i]->origline,stream);
- put_str(sub[i]->echomail_sem,stream);
- if(sub[i]->echopath)
- backslash(sub[i]->echopath);
- put_str(sub[i]->echopath,stream);
- if(sub[i]->misc&SUB_FIDO && (echomail_dir[0] || sub[i]->echopath[0])) {
- md(echomail_dir);
- if(!sub[i]->echopath[0])
- sprintf(sub[i]->echopath,"%s%s",echomail_dir,sub[i]->code);
- md(sub[i]->echopath); }
- put_int(sub[i]->faddr,stream);
- put_int(sub[i]->maxmsgs,stream);
- put_int(sub[i]->maxcrcs,stream);
- put_int(sub[i]->maxage,stream);
- put_int(sub[i]->ptridx,stream);
- put_str(sub[i]->mod_ar,stream);
- put_int(sub[i]->qwkconf,stream);
- c=0;
- put_int(c,stream);
- n=0;
- for(k=0;k<26;k++)
- put_int(n,stream);
-
- if(all_msghdr || (sub[i]->misc&SUB_HDRMOD && !no_msghdr)) {
- if(!sub[i]->data_dir[0])
- sprintf(smb.file,"%sSUBS\\%s",data_dir,sub[i]->code);
- else
- sprintf(smb.file,"%s%s",sub[i]->data_dir,sub[i]->code);
- if((x=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,x);
- continue; }
- if(!filelength(fileno(smb.shd_fp))) {
- smb.status.max_crcs=sub[i]->maxcrcs;
- smb.status.max_msgs=sub[i]->maxmsgs;
- smb.status.max_age=sub[i]->maxage;
- smb.status.attr=sub[i]->misc&SUB_HYPER ? SMB_HYPERALLOC :0;
- if((x=smb_create(&smb))!=0)
- errormsg(WHERE,ERR_CREATE,smb.file,x);
- smb_close(&smb);
- continue; }
- if((x=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,x);
- continue; }
- if((x=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,x);
- continue; }
- if((!(sub[i]->misc&SUB_HYPER) || smb.status.attr&SMB_HYPERALLOC)
- && smb.status.max_msgs==sub[i]->maxmsgs
- && smb.status.max_crcs==sub[i]->maxcrcs
- && smb.status.max_age==sub[i]->maxage) { /* No change */
- smb_close(&smb);
- continue; }
- smb.status.max_msgs=sub[i]->maxmsgs;
- smb.status.max_crcs=sub[i]->maxcrcs;
- smb.status.max_age=sub[i]->maxage;
- if(sub[i]->misc&SUB_HYPER)
- smb.status.attr|=SMB_HYPERALLOC;
- if((x=smb_putstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_WRITE,smb.file,x);
- continue; }
- smb_close(&smb); }
-
- }
-
-/* FidoNet */
-
-put_int(total_faddrs,stream);
-for(i=0;i<total_faddrs;i++) {
- put_int(faddr[i].zone,stream);
- put_int(faddr[i].net,stream);
- put_int(faddr[i].node,stream);
- put_int(faddr[i].point,stream); }
-
-put_str(origline,stream);
-put_str(netmail_sem,stream);
-put_str(echomail_sem,stream);
-backslash(netmail_dir);
-put_str(netmail_dir,stream);
-put_str(echomail_dir,stream);
-backslash(fidofile_dir);
-put_str(fidofile_dir,stream);
-put_int(netmail_misc,stream);
-put_int(netmail_cost,stream);
-put_int(dflt_faddr,stream);
-n=0;
-for(i=0;i<28;i++)
- put_int(n,stream);
-
-/* QWKnet Config */
-
-put_str(qnet_tagline,stream);
-
-put_int(total_qhubs,stream);
-for(i=0;i<total_qhubs;i++) {
- put_str(qhub[i]->id,stream);
- put_int(qhub[i]->time,stream);
- put_int(qhub[i]->freq,stream);
- put_int(qhub[i]->days,stream);
- put_int(qhub[i]->node,stream);
- put_str(qhub[i]->call,stream);
- put_str(qhub[i]->pack,stream);
- put_str(qhub[i]->unpack,stream);
- put_int(qhub[i]->subs,stream);
- for(j=0;j<qhub[i]->subs;j++) {
- put_int(qhub[i]->conf[j],stream);
- put_int(qhub[i]->sub[j],stream);
- put_int(qhub[i]->mode[j],stream); }
- n=0;
- for(j=0;j<32;j++)
- put_int(n,stream); }
-n=0;
-for(i=0;i<32;i++)
- put_int(n,stream);
-
-/* PostLink Config */
-
-memset(str,0,11);
-fwrite(str,11,1,stream); /* unused, used to be site name */
-put_int(sys_psnum,stream);
-
-put_int(total_phubs,stream);
-for(i=0;i<total_phubs;i++) {
- put_str(phub[i]->name,stream);
- put_int(phub[i]->time,stream);
- put_int(phub[i]->freq,stream);
- put_int(phub[i]->days,stream);
- put_int(phub[i]->node,stream);
- put_str(phub[i]->call,stream);
- n=0;
- for(j=0;j<32;j++)
- put_int(n,stream); }
-
-put_str(sys_psname,stream);
-n=0;
-for(i=0;i<32;i++)
- put_int(n,stream);
-
-put_str(sys_inetaddr,stream); /* Internet address */
-put_str(inetmail_sem,stream);
-put_int(inetmail_misc,stream);
-put_int(inetmail_cost,stream);
-
-fclose(stream);
-
-/* MUST BE AT END */
-
-if(!no_msghdr) {
- backslash(data_dir);
- sprintf(smb.file,"%sMAIL",data_dir);
- if((x=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,x);
- return; }
- if(!filelength(fileno(smb.shd_fp))) {
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_age=mail_maxage;
- smb.status.attr=SMB_EMAIL;
- if((x=smb_create(&smb))!=0)
- errormsg(WHERE,ERR_CREATE,smb.file,x);
- smb_close(&smb);
- return; }
- if((x=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,x);
- return; }
- if((x=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,x);
- return; }
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_age=mail_maxage;
- if((x=smb_putstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_WRITE,smb.file,x);
- return; }
- smb_close(&smb); }
-}
-
-void free_msgs_cfg()
-{
- int i;
-
-for(i=0;i<total_grps;i++)
- FREE(grp[i]);
-FREE(grp);
-grp=NULL;
-
-for(i=0;i<total_subs;i++)
- FREE(sub[i]);
-FREE(sub);
-sub=NULL;
-
-FREE(faddr);
-total_faddrs=0;
-
-for(i=0;i<total_qhubs;i++) {
- FREE(qhub[i]->mode);
- FREE(qhub[i]->conf);
- FREE(qhub[i]->sub);
- FREE(qhub[i]); }
-FREE(qhub);
-qhub=NULL;
-
-for(i=0;i<total_phubs;i++)
- FREE(phub[i]);
-FREE(phub);
-phub=NULL;
-
-}
-
diff --git a/src/sbbs2/scfg/wrcnf2.c b/src/sbbs2/scfg/wrcnf2.c
deleted file mode 100644
index d006ed3bb77da57d1830953d3a98031159c6f132..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfg/wrcnf2.c
+++ /dev/null
@@ -1,494 +0,0 @@
-#line 2 "WRCNF2.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "scfg.h"
-
-extern int no_msghdr,all_msghdr;
-extern int no_dirchk;
-
-extern char *crlf;
-extern char nulbuf[];
-extern int pslen;
-
-#define put_int(var,stream) fwrite(&var,1,sizeof(var),stream)
-#define put_str(var,stream) { pslen=strlen(var); \
- fwrite(var,1,pslen > sizeof(var) \
- ? sizeof(var) : pslen ,stream); \
- fwrite(nulbuf,1,pslen > sizeof(var) \
- ? 0 : sizeof(var)-pslen,stream); }
-
-void backup(char *org)
-{
- char old[128],new[128];
- int i,x;
-
-x=strlen(org)-1;
-if(x<=0)
- return;
-strcpy(old,org);
-strcpy(new,org);
-for(i=backup_level;i;i--) {
- new[x]=(i-1)+'0';
- if(i==backup_level)
- remove(new);
- if(i==1) {
- rename(org,new);
- continue; }
- old[x]=(i-2)+'0';
- rename(old,new); }
-}
-
-
-void write_file_cfg()
-{
- char str[128],cmd[LEN_CMD+1],c;
- int i,j,k,file;
- short n;
- long l=0;
- FILE *stream;
-
-upop("Writing FILE.CNF...");
-sprintf(str,"%sFILE.CNF",ctrl_dir);
-backup(str);
-
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1
- || (stream=fdopen(file,"wb"))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-setvbuf(stream,NULL,_IOFBF,2048);
-
-put_int(min_dspace,stream);
-put_int(max_batup,stream);
-put_int(max_batdn,stream);
-put_int(max_userxfer,stream);
-put_int(l,stream); /* unused */
-put_int(cdt_up_pct,stream);
-put_int(cdt_dn_pct,stream);
-put_int(l,stream); /* unused */
-put_str(cmd,stream);
-put_int(leech_pct,stream);
-put_int(leech_sec,stream);
-n=0;
-for(i=0;i<32;i++)
- put_int(n,stream);
-
-/* Extractable File Types */
-
-put_int(total_fextrs,stream);
-for(i=0;i<total_fextrs;i++) {
- put_str(fextr[i]->ext,stream);
- put_str(fextr[i]->cmd,stream);
- put_str(fextr[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* Compressable File Types */
-
-put_int(total_fcomps,stream);
-for(i=0;i<total_fcomps;i++) {
- put_str(fcomp[i]->ext,stream);
- put_str(fcomp[i]->cmd,stream);
- put_str(fcomp[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* Viewable File Types */
-
-put_int(total_fviews,stream);
-for(i=0;i<total_fviews;i++) {
- put_str(fview[i]->ext,stream);
- put_str(fview[i]->cmd,stream);
- put_str(fview[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* Testable File Types */
-
-put_int(total_ftests,stream);
-for(i=0;i<total_ftests;i++) {
- put_str(ftest[i]->ext,stream);
- put_str(ftest[i]->cmd,stream);
- put_str(ftest[i]->workstr,stream);
- put_str(ftest[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* Download Events */
-
-put_int(total_dlevents,stream);
-for(i=0;i<total_dlevents;i++) {
- put_str(dlevent[i]->ext,stream);
- put_str(dlevent[i]->cmd,stream);
- put_str(dlevent[i]->workstr,stream);
- put_str(dlevent[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* File Transfer Protocols */
-
-put_int(total_prots,stream);
-for(i=0;i<total_prots;i++) {
- put_int(prot[i]->mnemonic,stream);
- put_str(prot[i]->name,stream);
- put_str(prot[i]->ulcmd,stream);
- put_str(prot[i]->dlcmd,stream);
- put_str(prot[i]->batulcmd,stream);
- put_str(prot[i]->batdlcmd,stream);
- put_str(prot[i]->blindcmd,stream);
- put_str(prot[i]->bicmd,stream);
- put_int(prot[i]->misc,stream);
- put_str(prot[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* Alternate File Paths */
-
-put_int(altpaths,stream);
-for(i=0;i<altpaths;i++) {
- backslash(altpath[i]);
- fwrite(altpath[i],LEN_DIR+1,1,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-/* File Libraries */
-
-put_int(total_libs,stream);
-for(i=0;i<total_libs;i++) {
- put_str(lib[i]->lname,stream);
- put_str(lib[i]->sname,stream);
- put_str(lib[i]->ar,stream);
- n=0;
- for(j=0;j<32;j++)
- put_int(n,stream);
- n=0xffff;
- for(j=0;j<16;j++)
- put_int(n,stream); }
-
-/* File Directories */
-
-put_int(total_dirs,stream);
-for(j=0;j<total_libs;j++)
- for(i=0;i<total_dirs;i++)
- if(dir[i]->lib==j) {
- put_int(dir[i]->lib,stream);
- put_str(dir[i]->lname,stream);
- put_str(dir[i]->sname,stream);
- put_str(dir[i]->code,stream);
- if(dir[i]->data_dir[0])
- backslash(dir[i]->data_dir);
- md(dir[i]->data_dir);
- put_str(dir[i]->data_dir,stream);
- put_str(dir[i]->ar,stream);
- put_str(dir[i]->ul_ar,stream);
- put_str(dir[i]->dl_ar,stream);
- put_str(dir[i]->op_ar,stream);
- backslash(dir[i]->path);
- put_str(dir[i]->path,stream);
- if(dir[i]->misc&DIR_FCHK) {
- strcpy(str,dir[i]->path);
- md(str); }
-
- put_str(dir[i]->upload_sem,stream);
- put_int(dir[i]->maxfiles,stream);
- put_str(dir[i]->exts,stream);
- put_int(dir[i]->misc,stream);
- put_int(dir[i]->seqdev,stream);
- put_int(dir[i]->sort,stream);
- put_str(dir[i]->ex_ar,stream);
- put_int(dir[i]->maxage,stream);
- put_int(dir[i]->up_pct,stream);
- put_int(dir[i]->dn_pct,stream);
- c=0;
- put_int(c,stream);
- n=0;
- for(k=0;k<8;k++)
- put_int(n,stream);
- n=0xffff;
- for(k=0;k<16;k++)
- put_int(n,stream);
- }
-
-/* Text File Sections */
-
-put_int(total_txtsecs,stream);
-for(i=0;i<total_txtsecs;i++) {
- sprintf(str,"%sTEXT\\%s",data_dir,txtsec[i]->code);
- md(str);
- put_str(txtsec[i]->name,stream);
- put_str(txtsec[i]->code,stream);
- put_str(txtsec[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream); }
-
-fclose(stream);
-}
-
-void free_file_cfg()
-{
- int i;
-
-for(i=0;i<total_fextrs;i++)
- FREE(fextr[i]);
-FREE(fextr);
-
-for(i=0;i<total_fcomps;i++)
- FREE(fcomp[i]);
-FREE(fcomp);
-
-for(i=0;i<total_fviews;i++)
- FREE(fview[i]);
-FREE(fview);
-
-for(i=0;i<total_ftests;i++)
- FREE(ftest[i]);
-FREE(ftest);
-
-for(i=0;i<total_dlevents;i++)
- FREE(dlevent[i]);
-FREE(dlevent);
-
-for(i=0;i<total_prots;i++)
- FREE(prot[i]);
-FREE(prot);
-
-for(i=0;i<altpaths;i++)
- FREE(altpath[i]);
-FREE(altpath);
-
-for(i=0;i<total_libs;i++)
- FREE(lib[i]);
-FREE(lib);
-
-for(i=0;i<total_dirs;i++)
- FREE(dir[i]);
-FREE(dir);
-
-for(i=0;i<total_txtsecs;i++)
- FREE(txtsec[i]);
-FREE(txtsec);
-}
-
-
-void write_chat_cfg()
-{
- char str[128];
- int i,j,file;
- short n;
- FILE *stream;
-
-upop("Writing CHAT.CNF...");
-sprintf(str,"%sCHAT.CNF",ctrl_dir);
-backup(str);
-
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1
- || (stream=fdopen(file,"wb"))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-setvbuf(stream,NULL,_IOFBF,2048);
-
-put_int(total_gurus,stream);
-for(i=0;i<total_gurus;i++) {
- put_str(guru[i]->name,stream);
- put_str(guru[i]->code,stream);
- put_str(guru[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream);
- }
-
-put_int(total_actsets,stream);
-for(i=0;i<total_actsets;i++)
- put_str(actset[i]->name,stream);
-
-put_int(total_chatacts,stream);
-for(i=0;i<total_chatacts;i++) {
- put_int(chatact[i]->actset,stream);
- put_str(chatact[i]->cmd,stream);
- put_str(chatact[i]->out,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream);
- }
-
-put_int(total_chans,stream);
-for(i=0;i<total_chans;i++) {
- put_int(chan[i]->actset,stream);
- put_str(chan[i]->name,stream);
- put_str(chan[i]->code,stream);
- put_str(chan[i]->ar,stream);
- put_int(chan[i]->cost,stream);
- put_int(chan[i]->guru,stream);
- put_int(chan[i]->misc,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream);
- }
-
-put_int(total_pages,stream);
-for(i=0;i<total_pages;i++) {
- put_int(page[i]->cmd,stream);
- put_int(page[i]->ar,stream);
- put_int(page[i]->misc,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream);
- }
-
-fclose(stream);
-}
-
-void free_chat_cfg()
-{
- int i;
-
-for(i=0;i<total_actsets;i++)
- FREE(actset[i]);
-FREE(actset);
-
-for(i=0;i<total_chatacts;i++)
- FREE(chatact[i]);
-FREE(chatact);
-
-for(i=0;i<total_chans;i++)
- FREE(chan[i]);
-FREE(chan);
-
-for(i=0;i<total_gurus;i++)
- FREE(guru[i]);
-FREE(guru);
-
-for(i=0;i<total_pages;i++)
- FREE(page[i]);
-FREE(page);
-
-}
-
-void write_xtrn_cfg()
-{
- uchar str[128],c;
- int i,j,sec,file;
- short n;
- long l;
- FILE *stream;
-
-upop("Writing XTRN.CNF...");
-sprintf(str,"%sXTRN.CNF",ctrl_dir);
-backup(str);
-
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1
- || (stream=fdopen(file,"wb"))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-setvbuf(stream,NULL,_IOFBF,2048);
-
-put_int(total_swaps,stream);
-for(i=0;i<total_swaps;i++)
- put_str(swap[i]->cmd,stream);
-
-put_int(total_xedits,stream);
-for(i=0;i<total_xedits;i++) {
- put_str(xedit[i]->name,stream);
- put_str(xedit[i]->code,stream);
- put_str(xedit[i]->lcmd,stream);
- put_str(xedit[i]->rcmd,stream);
- put_int(xedit[i]->misc,stream);
- put_str(xedit[i]->ar,stream);
- put_int(xedit[i]->type,stream);
- c=0;
- put_int(c,stream);
- n=0;
- for(j=0;j<7;j++)
- put_int(n,stream);
- }
-
-put_int(total_xtrnsecs,stream);
-for(i=0;i<total_xtrnsecs;i++) {
- put_str(xtrnsec[i]->name,stream);
- put_str(xtrnsec[i]->code,stream);
- put_str(xtrnsec[i]->ar,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream);
- }
-
-put_int(total_xtrns,stream);
-for(sec=0;sec<total_xtrnsecs;sec++)
- for(i=0;i<total_xtrns;i++) {
- if(xtrn[i]->sec!=sec)
- continue;
- put_int(xtrn[i]->sec,stream);
- put_str(xtrn[i]->name,stream);
- put_str(xtrn[i]->code,stream);
- put_str(xtrn[i]->ar,stream);
- put_str(xtrn[i]->run_ar,stream);
- put_int(xtrn[i]->type,stream);
- put_int(xtrn[i]->misc,stream);
- put_int(xtrn[i]->event,stream);
- put_int(xtrn[i]->cost,stream);
- put_str(xtrn[i]->cmd,stream);
- put_str(xtrn[i]->clean,stream);
- put_str(xtrn[i]->path,stream);
- put_int(xtrn[i]->textra,stream);
- put_int(xtrn[i]->maxtime,stream);
- n=0;
- for(j=0;j<7;j++)
- put_int(n,stream);
- }
-
-put_int(total_events,stream);
-for(i=0;i<total_events;i++) {
- put_str(event[i]->code,stream);
- put_str(event[i]->cmd,stream);
- put_int(event[i]->days,stream);
- put_int(event[i]->time,stream);
- put_int(event[i]->node,stream);
- put_int(event[i]->misc,stream);
- put_int(event[i]->dir,stream);
- n=0;
- for(j=0;j<8;j++)
- put_int(n,stream);
- }
-
-put_int(total_os2pgms,stream);
-for(i=0;i<total_os2pgms;i++)
- put_str(os2pgm[i]->name,stream);
-for(i=0;i<total_os2pgms;i++)
- put_int(os2pgm[i]->misc,stream);
-
-fclose(stream);
-}
-
-void free_xtrn_cfg()
-{
- int i;
-
-for(i=0;i<total_swaps;i++)
- FREE(swap[i]);
-FREE(swap);
-
-for(i=0;i<total_xedits;i++)
- FREE(xedit[i]);
-FREE(xedit);
-
-for(i=0;i<total_xtrnsecs;i++)
- FREE(xtrnsec[i]);
-FREE(xtrnsec);
-
-for(i=0;i<total_xtrns;i++)
- FREE(xtrn[i]);
-FREE(xtrn);
-
-for(i=0;i<total_events;i++)
- FREE(event[i]);
-FREE(event);
-
-}
diff --git a/src/sbbs2/scfglib.h b/src/sbbs2/scfglib.h
deleted file mode 100644
index b0a5c22d4f93e3bf1e1ee658bcc6410a83e6fdc6..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfglib.h
+++ /dev/null
@@ -1,43 +0,0 @@
-/* SCFGLIB.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _SCFGLIB_H
-#define _SCFGLIB_H
-
-#define SAVE_MEMORY
-
-#define get_int(var,stream) { if(!fread(&var,1,sizeof(var),stream)) \
- memset(&var,0,sizeof(var)); \
- offset+=sizeof(var); }
-#define get_str(var,stream) { if(!fread(var,1,sizeof(var),stream)) \
- memset(var,0,sizeof(var)); \
- offset+=sizeof(var); }
-
-typedef struct {
- char *openerr,
- *reading,
- *readit,
- *allocerr,
- *error;
- } read_cfg_text_t;
-
-char *get_alloc(long *offset, char *outstr, int maxlen, FILE *instream);
-void allocerr(read_cfg_text_t txt, long offset, char *fname, uint size);
-char *readline(long *offset, char *str, int maxlen, FILE *stream);
-void read_node_cfg(read_cfg_text_t txt);
-void read_main_cfg(read_cfg_text_t txt);
-void read_text_cfg(read_cfg_text_t txt);
-void read_xtrn_cfg(read_cfg_text_t txt);
-void read_file_cfg(read_cfg_text_t txt);
-void read_msgs_cfg(read_cfg_text_t txt);
-void read_attr_cfg(read_cfg_text_t txt);
-void read_chat_cfg(read_cfg_text_t txt);
-long aftol(char *str); /* Converts flag string to long */
-char *ltoaf(long l, char *str); /* Converts long to flag string */
-faddr_t atofaddr(char *str); /* ASCII text to FidoNet address conversion */
-char *faddrtoa(faddr_t addr); /* FidoNet address to ASCII text conversion */
-char chardupe(char *str); /* Searches for duplicate chars in str */
-int attrstr(char *str); /* Convert ATTR string into attribute int */
-
-#endif /* Don't add anything after this line */
diff --git a/src/sbbs2/scfglib1.c b/src/sbbs2/scfglib1.c
deleted file mode 100644
index aaabc373f9ca85ee080ebdde6d7db760e8f007b0..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfglib1.c
+++ /dev/null
@@ -1,874 +0,0 @@
-#line 1 "SCFGLIB1.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "scfglib.h"
-
-void prep_path(char *path)
-{
- char str[LEN_DIR*2];
- int i;
-
-if(!path[0])
- return;
-if(path[0]!='\\' && path[1]!=':') /* Relative to NODE directory */
- sprintf(str,"%s%s",node_dir,path);
-else
- strcpy(str,path);
-i=strlen(str);
-if(str[i-1]!=':' && str[i-1]!='\\')
- strcat(str,"\\");
-strcat(str,"."); // Change C: to C:. and C:\SBBS\ to C:\SBBS\.
-_fullpath(path,str,LEN_DIR+1); // Change C:\SBBS\NODE1\..\EXEC to C:\SBBS\EXEC
-i=strlen(path);
-if(i && path[i-1]!='\\')
- strcat(path,"\\");
-}
-
-char *get_alloc(long *offset, char *outstr, int maxlen, FILE *instream)
-{
-
-#ifdef SCFG
- fread(outstr,1,maxlen+1,instream);
- (*offset)+=maxlen+1;
-#else
- char str[257];
-
- fread(str,1,maxlen+1,instream);
-// lprintf("%s %d %p\r\n",__FILE__,__LINE__,offset);
- (*offset)+=maxlen+1; // this line was commented out (04/12/97) why?
- if(!str[0]) /* Save memory */
- return(scfgnulstr);
- if((outstr=(char *)MALLOC(strlen(str)+1))==NULL)
- return(NULL);
- strcpy(outstr,str);
-#endif
-
-return(outstr);
-}
-
-#ifdef SCFG /* SCFG allocate max length */
- #define readline_alloc(l,s,m,i) readline(l,s,m,i)
-#else
- char *readline_alloc(long *offset, char *outstr, int maxline
- , FILE *instream);
- #define readline_alloc(l,s,m,i) s=readline_alloc(l,s,m,i)
- #define get_alloc(o,s,l,i) s=get_alloc(o,s,l,i)
-#endif
-
-/***********************************************************/
-/* These functions are called from here and must be linked */
-/***********************************************************/
-/***
- nopen()
- truncsp()
-***/
-
-void allocerr(read_cfg_text_t txt, long offset, char *fname, uint size)
-{
-lprintf(txt.error,offset,fname);
-lprintf(txt.allocerr,size);
-bail(1);
-}
-
-#ifndef NO_NODE_CFG
-
-/****************************************************************************/
-/* Reads in NODE.CNF and initializes the associated variables */
-/****************************************************************************/
-void read_node_cfg(read_cfg_text_t txt)
-{
- char c,str[256],cmd[64],fname[13],*p;
- int i;
- short n;
- long offset=0;
- FILE *instream;
-
-strcpy(fname,"NODE.CNF");
-sprintf(str,"%s%s",node_dir,fname);
-if((instream=fnopen(&i,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
-#ifdef SBBS
- lprintf("\r\nSBBS must be run from a NODE directory (e.g. ");
- lclatr(WHITE);
- lprintf("C:\\SBBS\\NODE1");
- lclatr(LIGHTGRAY);
- lprintf(").\r\n");
-#endif
- bail(1); }
-
-lprintf(txt.reading,fname);
-get_int(node_num,instream);
-if(!node_num) {
- lprintf(txt.error,offset,fname);
- lprintf("Node number must be non-zero\r\n");
- bail(1); }
-get_str(node_name,instream);
-get_str(node_phone,instream);
-get_str(node_comspec,instream);
-if(!node_comspec[0])
- strcpy(node_comspec,"C:\\OS2\\MDOS\\COMMAND.COM");
-get_int(node_misc,instream);
-get_int(node_ivt,instream);
-get_int(node_swap,instream);
-get_str(node_swapdir,instream);
-#ifndef SCFG
-if(!node_swapdir[0])
- strcpy(node_swapdir,node_dir);
-else
- prep_path(node_swapdir);
-#endif
-get_int(node_valuser,instream);
-get_int(node_minbps,instream);
-#ifdef SCFG
-get_str(node_ar,instream);
-#else
-fread(str,1,LEN_ARSTR+1,instream);
-offset+=LEN_ARSTR+1;
-node_ar=arstr(0,str);
-#endif
-get_int(node_dollars_per_call,instream);
-get_str(node_editor,instream);
-get_str(node_viewer,instream);
-get_str(node_daily,instream);
-get_int(c,instream);
-if(c) node_scrnlen=c;
-get_int(node_scrnblank,instream);
-get_str(ctrl_dir,instream); /* ctrl directory */
-get_str(text_dir,instream); /* text directory */
-get_str(temp_dir,instream); /* temp directory */
-if(!temp_dir[0])
- strcpy(temp_dir,"TEMP");
-
-#ifndef SCFG
-prep_path(ctrl_dir);
-prep_path(text_dir);
-prep_path(temp_dir);
-#endif
-
-for(i=0;i<10;i++) { /* WFC 0-9 DOS commands */
- get_alloc(&offset,wfc_cmd[i],LEN_CMD,instream); }
-for(i=0;i<12;i++) { /* WFC F1-F12 shrinking DOS cmds */
- get_alloc(&offset,wfc_scmd[i],LEN_CMD,instream); }
-get_str(mdm_hang,instream);
-get_int(node_sem_check,instream);
-if(!node_sem_check) node_sem_check=60;
-get_int(node_stat_check,instream);
-if(!node_stat_check) node_stat_check=10;
-get_str(scfg_cmd,instream);
-if(!scfg_cmd[0])
- strcpy(scfg_cmd,"%!scfg %k");
-get_int(sec_warn,instream);
-if(!sec_warn)
- sec_warn=180;
-get_int(sec_hangup,instream);
-if(!sec_hangup)
- sec_hangup=300;
-for(i=0;i<188;i++) { /* Unused - initialized to NULL */
- fread(&n,1,2,instream);
- offset+=2; }
-for(i=0;i<256;i++) { /* Unused - initialized to 0xff */
- fread(&n,1,2,instream);
- offset+=2; }
-
-/***************/
-/* Modem Stuff */
-/***************/
-
-get_int(com_port,instream);
-get_int(com_irq,instream);
-get_int(com_base,instream);
-get_int(com_rate,instream);
-get_int(mdm_misc,instream);
-get_str(mdm_init,instream);
-get_str(mdm_spec,instream);
-get_str(mdm_term,instream);
-get_str(mdm_dial,instream);
-get_str(mdm_offh,instream);
-get_str(mdm_answ,instream);
-get_int(mdm_reinit,instream);
-get_int(mdm_ansdelay,instream);
-get_int(mdm_rings,instream);
-
-get_int(mdm_results,instream);
-
-if(mdm_results) {
- if((mdm_result=(mdm_result_t *)MALLOC(sizeof(mdm_result_t)*mdm_results))
- ==NULL)
- allocerr(txt,offset,fname,sizeof(mdm_result_t *)*mdm_results); }
-else
- mdm_result=NULL;
-
-for(i=0;i<mdm_results;i++) {
- if(feof(instream)) break;
- get_int(mdm_result[i].code,instream);
- get_int(mdm_result[i].rate,instream);
- get_int(mdm_result[i].cps,instream);
- get_alloc(&offset,mdm_result[i].str,LEN_MODEM,instream); }
-mdm_results=i;
-fclose(instream);
-lprintf(txt.readit,fname);
-}
-
-#endif
-
-#ifndef NO_MAIN_CFG
-
-/****************************************************************************/
-/* Reads in MAIN.CNF and initializes the associated variables */
-/****************************************************************************/
-void read_main_cfg(read_cfg_text_t txt)
-{
- char str[256],fname[13],*p,c;
- int file;
- short i,j,n;
- long offset=0;
- FILE *instream;
-
-strcpy(fname,"MAIN.CNF");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-
-lprintf(txt.reading,fname);
-get_str(sys_name,instream);
-get_str(sys_id,instream);
-get_str(sys_location,instream);
-get_str(sys_phonefmt,instream);
-get_str(sys_op,instream);
-get_str(sys_guru,instream);
-get_str(sys_pass,instream);
-get_int(sys_nodes,instream);
-
-if(!sys_nodes || sys_nodes<node_num || sys_nodes>MAX_NODES) {
- lprintf(txt.error,offset,fname);
- if(!sys_nodes)
- lprintf("Total nodes on system must be non-zero.\r\n");
- else if(sys_nodes>MAX_NODES)
- lprintf("Total nodes exceeds %u.\r\n",MAX_NODES);
- else
- lprintf("Total nodes (%u) < node number in NODE.CNF (%u)\r\n"
- ,sys_nodes,node_num);
- bail(1); }
-
-if((node_path=(char **)MALLOC(sizeof(char *)*sys_nodes))==NULL)
- allocerr(txt,offset,fname,sizeof(char *)*sys_nodes);
-
-for(i=0;i<sys_nodes;i++) {
- if(feof(instream)) break;
- fread(str,LEN_DIR+1,1,instream);
- offset+=LEN_DIR+1;
- if((node_path[i]=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
- strcpy(node_path[i],str); }
-
-get_str(data_dir,instream); /* data directory */
-get_str(exec_dir,instream); /* exec directory */
-
-#ifndef SCFG
-prep_path(data_dir);
-prep_path(exec_dir);
-#endif
-
-get_str(sys_logon,instream);
-get_str(sys_logout,instream);
-get_str(sys_daily,instream);
-get_int(sys_timezone,instream);
-get_int(sys_misc,instream);
-get_int(sys_lastnode,instream);
-get_int(sys_autonode,instream);
-get_int(uq,instream);
-get_int(sys_pwdays,instream);
-get_int(sys_deldays,instream);
-get_int(sys_exp_warn,instream); /* Days left till expiration warning */
-get_int(sys_autodel,instream);
-get_int(sys_def_stat,instream); /* default status line */
-
-#ifdef SCFG
-get_str(sys_chat_ar,instream);
-#else
-fread(str,1,LEN_ARSTR+1,instream);
-offset+=LEN_ARSTR+1;
-sys_chat_ar=arstr(0,str);
-#endif
-
-get_int(cdt_min_value,instream);
-get_int(max_minutes,instream);
-get_int(cdt_per_dollar,instream);
-get_str(new_pass,instream);
-get_str(new_magic,instream);
-get_str(new_sif,instream);
-get_str(new_sof,instream);
-if(!new_sof[0]) /* if output not specified, use input file */
- strcpy(new_sof,new_sif);
-
-/*********************/
-/* New User Settings */
-/*********************/
-
-get_int(new_level,instream);
-get_int(new_flags1,instream);
-get_int(new_flags2,instream);
-get_int(new_flags3,instream);
-get_int(new_flags4,instream);
-get_int(new_exempt,instream);
-get_int(new_rest,instream);
-get_int(new_cdt,instream);
-get_int(new_min,instream);
-get_str(new_xedit,instream);
-get_int(new_expire,instream);
-get_int(new_shell,instream);
-get_int(new_misc,instream);
-get_int(new_prot,instream);
-if(new_prot<SP)
- new_prot=SP;
-get_int(c,instream);
-for(i=0;i<7;i++)
- get_int(n,instream);
-
-/*************************/
-/* Expired User Settings */
-/*************************/
-
-get_int(expired_level,instream);
-get_int(expired_flags1,instream);
-get_int(expired_flags2,instream);
-get_int(expired_flags3,instream);
-get_int(expired_flags4,instream);
-get_int(expired_exempt,instream);
-get_int(expired_rest,instream);
-
-get_str(logon_mod,instream);
-get_str(logoff_mod,instream);
-get_str(newuser_mod,instream);
-get_str(login_mod,instream);
-if(!login_mod[0]) strcpy(login_mod,"LOGIN");
-get_str(logout_mod,instream);
-get_str(sync_mod,instream);
-get_str(expire_mod,instream);
-get_int(c,instream);
-
-for(i=0;i<224;i++) /* unused - initialized to NULL */
- get_int(n,instream);
-for(i=0;i<256;i++) /* unused - initialized to 0xff */
- get_int(n,instream);
-
-/*******************/
-/* Validation Sets */
-/*******************/
-
-for(i=0;i<10 && !feof(instream);i++) {
- get_int(val_level[i],instream);
- get_int(val_expire[i],instream);
- get_int(val_flags1[i],instream);
- get_int(val_flags2[i],instream);
- get_int(val_flags3[i],instream);
- get_int(val_flags4[i],instream);
- get_int(val_cdt[i],instream);
- get_int(val_exempt[i],instream);
- get_int(val_rest[i],instream);
- for(j=0;j<8;j++)
- get_int(n,instream); }
-
-/***************************/
-/* Security Level Settings */
-/***************************/
-
-for(i=0;i<100 && !feof(instream);i++) {
- get_int(level_timeperday[i],instream);
- if(level_timeperday[i]>500)
- level_timeperday[i]=500;
- get_int(level_timepercall[i],instream);
- if(level_timepercall[i]>500)
- level_timepercall[i]=500;
- get_int(level_callsperday[i],instream);
- get_int(level_freecdtperday[i],instream);
- get_int(level_linespermsg[i],instream);
- get_int(level_postsperday[i],instream);
- get_int(level_emailperday[i],instream);
- get_int(level_misc[i],instream);
- get_int(level_expireto[i],instream);
- get_int(c,instream);
- for(j=0;j<5;j++)
- get_int(n,instream); }
-if(i!=100) {
- lprintf(txt.error,offset,fname);
- lprintf("Insufficient User Level Information\r\n"
- "%d user levels read, 100 needed.\r\n",i);
- bail(1); }
-
-get_int(total_shells,instream);
-#ifdef SBBS
-if(!total_shells) {
- lprintf(txt.error,offset,fname);
- lprintf("At least one command shell must be configured.\r\n");
- bail(1); }
-#endif
-
-if(total_shells) {
- if((shell=(shell_t **)MALLOC(sizeof(shell_t *)*total_shells))==NULL)
- allocerr(txt,offset,fname,sizeof(shell_t *)*total_shells); }
-else
- shell=NULL;
-
-for(i=0;i<total_shells;i++) {
- if(feof(instream)) break;
- if((shell[i]=(shell_t *)MALLOC(sizeof(shell_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(shell_t));
- memset(shell[i],0,sizeof(shell_t));
-
- get_alloc(&offset,shell[i]->name,40,instream);
- get_str(shell[i]->code,instream);
-#ifdef SCFG
- get_str(shell[i]->ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- shell[i]->ar=arstr(0,str);
-#endif
- get_int(shell[i]->misc,instream);
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_shells=i;
-
-
-fclose(instream);
-lprintf(txt.readit,fname);
-}
-
-#endif
-
-#ifndef NO_MSGS_CFG
-
-
-/****************************************************************************/
-/* Reads in MSGS.CNF and initializes the associated variables */
-/****************************************************************************/
-void read_msgs_cfg(read_cfg_text_t txt)
-{
- char str[256],fname[13],tmp[128],c;
- int file;
- short i,j,k,l,n;
- long offset=0;
- FILE *instream;
-
-#ifndef SCFG
-
-sprintf(data_dir_subs,"%sSUBS\\",data_dir);
-prep_path(data_dir_subs);
-
-#endif
-
-strcpy(fname,"MSGS.CNF");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-
-lprintf(txt.reading,fname);
-
-/*************************/
-/* General Message Stuff */
-/*************************/
-
-get_int(max_qwkmsgs,instream);
-get_int(mail_maxcrcs,instream);
-get_int(mail_maxage,instream);
-#ifdef SCFG
- get_str(preqwk_ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- preqwk_ar=arstr(0,str);
-#endif
-get_int(smb_retry_time,instream); /* odd byte */
-if(!smb_retry_time)
- smb_retry_time=30;
-for(i=0;i<235;i++) /* NULL */
- get_int(n,instream);
-for(i=0;i<256;i++) /* 0xff */
- get_int(n,instream);
-
-
-/******************/
-/* Message Groups */
-/******************/
-
-get_int(total_grps,instream);
-
-
-if(total_grps) {
- if((grp=(grp_t **)MALLOC(sizeof(grp_t *)*total_grps))==NULL)
- allocerr(txt,offset,fname,sizeof(grp_t *)*total_grps); }
-else
- grp=NULL;
-
-
-#ifdef SBBS
-
-if(total_grps) {
-
- if((cursub=(uint *)MALLOC(sizeof(uint)*total_grps))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*total_grps);
-
- if((usrgrp=(uint *)MALLOC(sizeof(uint)*total_grps))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*total_grps);
-
- if((usrsubs=(uint *)MALLOC(sizeof(uint)*total_grps))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*total_grps);
-
- if((usrsub=(uint **)MALLOC(sizeof(uint *)*total_grps))==NULL)
- allocerr(txt,offset,fname,sizeof(uint *)*total_grps); }
-
-#endif
-
-for(i=0;i<total_grps;i++) {
-
- if(feof(instream)) break;
- if((grp[i]=(grp_t *)MALLOC(sizeof(grp_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(grp_t));
- memset(grp[i],0,sizeof(grp_t));
-
- get_alloc(&offset,grp[i]->lname,LEN_GLNAME,instream);
- get_alloc(&offset,grp[i]->sname,LEN_GSNAME,instream);
-
-#if !defined(SCFG) && defined(SAVE_MEMORY) /* Save memory */
- if(!strcmp(grp[i]->lname,grp[i]->sname) && grp[i]->sname!=scfgnulstr) {
- FREE(grp[i]->sname);
- grp[i]->sname=grp[i]->lname; }
-#endif
-
-#ifdef SCFG
- get_str(grp[i]->ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- grp[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<48;j++)
- get_int(n,instream);
- }
-total_grps=i;
-
-/**********************/
-/* Message Sub-boards */
-/**********************/
-
-get_int(total_subs,instream);
-
-if(total_subs) {
- if((sub=(sub_t **)MALLOC(sizeof(sub_t *)*total_subs))==NULL)
- allocerr(txt,offset,fname,sizeof(sub_t *)*total_subs); }
-else
- sub=NULL;
-
-#ifdef SBBS
-
-if(total_subs) {
-
- if((sub_misc=(char *)MALLOC(sizeof(char)*total_subs))==NULL)
- allocerr(txt,offset,fname,sizeof(char)*total_subs);
-
- if((sub_ptr=(ulong *)MALLOC(sizeof(ulong)*total_subs))==NULL)
- allocerr(txt,offset,fname,sizeof(ulong)*total_subs);
-
- if((sub_last=(ulong *)MALLOC(sizeof(ulong)*total_subs))==NULL)
- allocerr(txt,offset,fname,sizeof(ulong)*total_subs); }
-
-#endif
-
-for(i=0;i<total_subs;i++) {
- if(feof(instream)) break;
- if((sub[i]=(sub_t *)MALLOC(sizeof(sub_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(sub_t));
- memset(sub[i],0,sizeof(sub_t));
-
- get_int(sub[i]->grp,instream);
- get_alloc(&offset,sub[i]->lname,LEN_SLNAME,instream);
- get_alloc(&offset,sub[i]->sname,LEN_SSNAME,instream);
-
-#if !defined(SCFG) && defined(SAVE_MEMORY) /* Save memory */
- if(!strcmp(sub[i]->lname,sub[i]->sname) && sub[i]->sname!=scfgnulstr) {
- FREE(sub[i]->sname);
- sub[i]->sname=sub[i]->lname; }
-#endif
-
- get_alloc(&offset,sub[i]->qwkname,10,instream);
-
-#if !defined(SCFG) && defined(SAVE_MEMORY) /* Save memory */
- if(!strcmp(sub[i]->qwkname,sub[i]->sname) && sub[i]->qwkname!=scfgnulstr) {
- FREE(sub[i]->qwkname);
- sub[i]->qwkname=sub[i]->sname; }
-#endif
-
- get_str(sub[i]->code,instream);
-
-#ifdef SCFG
- get_str(sub[i]->data_dir,instream);
-#else
- fread(str,LEN_DIR+1,1,instream); /* substitute data dir */
- offset+=LEN_DIR+1;
- if(str[0]) {
- prep_path(str);
- if((sub[i]->data_dir=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
- strcpy(sub[i]->data_dir,str); }
- else
- sub[i]->data_dir=data_dir_subs;
-#endif
-
-
-#ifdef SCFG
- get_str(sub[i]->ar,instream);
- get_str(sub[i]->read_ar,instream);
- get_str(sub[i]->post_ar,instream);
- get_str(sub[i]->op_ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- sub[i]->ar=arstr(0,str);
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- sub[i]->read_ar=arstr(0,str);
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- sub[i]->post_ar=arstr(0,str);
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- sub[i]->op_ar=arstr(0,str);
-#endif
- get_int(sub[i]->misc,instream);
-
-
-#ifdef SCFG
- get_str(sub[i]->tagline,instream);
-#else
- fread(str,81,1,instream); /* substitute tagline */
- offset+=81;
- if(str[0]) {
- if((sub[i]->tagline=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
- strcpy(sub[i]->tagline,str); }
- else
- sub[i]->tagline=qnet_tagline;
-#endif
-
-#ifdef SCFG
- get_str(sub[i]->origline,instream);
-#else
- fread(str,1,51,instream); /* substitute origin line */
- offset+=51;
- if(str[0]) {
- if((sub[i]->origline=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
- strcpy(sub[i]->origline,str); }
- else
- sub[i]->origline=origline;
-#endif
-
-#ifdef SCFG
- get_str(sub[i]->echomail_sem,instream);
-#else
- fread(str,1,LEN_DIR+1,instream); /* substitute echomail semaphore */
- offset+=LEN_DIR+1;
- if(str[0]) {
- if((sub[i]->echomail_sem=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
- strcpy(sub[i]->echomail_sem,str); }
- else
- sub[i]->echomail_sem=echomail_sem;
-#endif
- fread(str,1,LEN_DIR+1,instream); /* substitute EchoMail path */
- offset+=LEN_DIR+1;
-#ifndef SBBS
- backslash(str);
- strcpy(sub[i]->echopath,str);
-#endif
- get_int(sub[i]->faddr,instream); /* FidoNet address */
-
- get_int(sub[i]->maxmsgs,instream);
- get_int(sub[i]->maxcrcs,instream);
- get_int(sub[i]->maxage,instream);
- get_int(sub[i]->ptridx,instream);
-#ifdef SBBS
- for(j=0;j<i;j++)
- if(sub[i]->ptridx==sub[j]->ptridx) {
- lprintf(txt.error,offset,fname);
- lprintf("Duplicate pointer index for subs #%d and #%d\r\n"
- ,i+1,j+1);
- bail(1); }
-#endif
-
-#ifdef SCFG
- get_str(sub[i]->mod_ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- sub[i]->mod_ar=arstr(0,str);
-#endif
- get_int(sub[i]->qwkconf,instream);
- get_int(c,instream);
- for(j=0;j<26;j++)
- get_int(n,instream);
- }
-total_subs=i;
-
-#ifdef SBBS
-for(i=l=0;i<total_grps;i++) {
- for(j=k=0;j<total_subs;j++)
- if(sub[j]->grp==i)
- k++; /* k = number of subs per grp[i] */
- if(k>l) l=k; } /* l = the largest number of subs per grp */
-if(l)
- for(i=0;i<total_grps;i++)
- if((usrsub[i]=(uint *)MALLOC(sizeof(uint)*l))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*l);
-
-if(sys_status&SS_INITIAL) {
- fclose(instream);
- lprintf(txt.readit,fname);
- return; }
-#endif
-
-/***********/
-/* FidoNet */
-/***********/
-
-get_int(total_faddrs,instream);
-
-if(total_faddrs) {
- if((faddr=(faddr_t *)MALLOC(sizeof(faddr_t)*total_faddrs))==NULL)
- allocerr(txt,offset,fname,sizeof(faddr_t)*total_faddrs); }
-else
- faddr=NULL;
-
-for(i=0;i<total_faddrs;i++)
- get_int(faddr[i],instream);
-
-get_str(origline,instream);
-get_str(netmail_sem,instream);
-get_str(echomail_sem,instream);
-get_str(netmail_dir,instream);
-get_str(echomail_dir,instream);
-get_str(fidofile_dir,instream);
-get_int(netmail_misc,instream);
-get_int(netmail_cost,instream);
-get_int(dflt_faddr,instream);
-for(i=0;i<28;i++)
- get_int(n,instream);
-
-
-/**********/
-/* QWKnet */
-/**********/
-
-get_str(qnet_tagline,instream);
-
-get_int(total_qhubs,instream);
-
-if(total_qhubs) {
- if((qhub=(qhub_t **)MALLOC(sizeof(qhub_t *)*total_qhubs))==NULL)
- allocerr(txt,offset,fname,sizeof(qhub_t*)*total_qhubs); }
-else
- qhub=NULL;
-
-for(i=0;i<total_qhubs;i++) {
- if(feof(instream)) break;
- if((qhub[i]=(qhub_t *)MALLOC(sizeof(qhub_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(qhub_t));
- memset(qhub[i],0,sizeof(qhub_t));
-
- get_str(qhub[i]->id,instream);
- get_int(qhub[i]->time,instream);
- get_int(qhub[i]->freq,instream);
- get_int(qhub[i]->days,instream);
- get_int(qhub[i]->node,instream);
- get_alloc(&offset,qhub[i]->call,LEN_CMD,instream);
- get_alloc(&offset,qhub[i]->pack,LEN_CMD,instream);
- get_alloc(&offset,qhub[i]->unpack,LEN_CMD,instream);
- get_int(k,instream);
-
- if(k) {
- if((qhub[i]->sub=(ushort *)MALLOC(sizeof(ushort)*k))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*k);
- if((qhub[i]->conf=(ushort *)MALLOC(sizeof(ushort)*k))==NULL)
- allocerr(txt,offset,fname,sizeof(ushort)*k);
- if((qhub[i]->mode=(uchar *)MALLOC(sizeof(uchar)*k))==NULL)
- allocerr(txt,offset,fname,sizeof(uchar)*k); }
-
- for(j=0;j<k;j++) {
- if(feof(instream)) break;
- get_int(qhub[i]->conf[qhub[i]->subs],instream);
- get_int(qhub[i]->sub[qhub[i]->subs],instream);
- get_int(qhub[i]->mode[qhub[i]->subs],instream);
- if(qhub[i]->sub[qhub[i]->subs]<total_subs)
- sub[qhub[i]->sub[qhub[i]->subs]]->misc|=SUB_QNET;
- else
- continue;
- if(qhub[i]->sub[qhub[i]->subs]!=INVALID_SUB)
- qhub[i]->subs++; }
- for(j=0;j<32;j++)
- get_int(n,instream); }
-
-total_qhubs=i;
-
-for(j=0;j<32;j++)
- get_int(n,instream);
-
-/************/
-/* PostLink */
-/************/
-
-fread(str,11,1,instream); /* Unused - used to be Site Name */
-offset+=11;
-get_int(sys_psnum,instream); /* Site Number */
-get_int(total_phubs,instream);
-
-if(total_phubs) {
- if((phub=(phub_t **)MALLOC(sizeof(phub_t *)*total_phubs))==NULL)
- allocerr(txt,offset,fname,sizeof(phub_t*)*total_phubs); }
-else
- phub=NULL;
-
-for(i=0;i<total_phubs;i++) {
- if(feof(instream)) break;
- if((phub[i]=(phub_t *)MALLOC(sizeof(phub_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(phub_t));
- memset(phub[i],0,sizeof(phub_t));
-#ifdef SCFG
- get_str(phub[i]->name,instream);
-#else
- fread(str,11,1,instream);
- offset+=11;
-#endif
- get_int(phub[i]->time,instream);
- get_int(phub[i]->freq,instream);
- get_int(phub[i]->days,instream);
- get_int(phub[i]->node,instream);
- get_alloc(&offset,phub[i]->call,LEN_CMD,instream);
- for(j=0;j<32;j++)
- get_int(n,instream); }
-
-total_phubs=i;
-
-get_str(sys_psname,instream); /* Site Name */
-
-for(j=0;j<32;j++)
- get_int(n,instream);
-
-/* Internet */
-
-get_str(sys_inetaddr,instream); /* Internet address */
-get_str(inetmail_sem,instream);
-get_int(inetmail_misc,instream);
-get_int(inetmail_cost,instream);
-
-fclose(instream);
-lprintf(txt.readit,fname);
-}
-
-#endif
-
diff --git a/src/sbbs2/scfglib2.c b/src/sbbs2/scfglib2.c
deleted file mode 100644
index e7b638684dcc1f3f606c81fa2d9095339772edaf..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfglib2.c
+++ /dev/null
@@ -1,1106 +0,0 @@
-#line 1 "SCFGLIB2.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "scfglib.h"
-
-#ifdef SCFG /* SCFG allocate max length */
- #define readline_alloc(l,s,m,i) readline(l,s,m,i)
-#else
- char *readline_alloc(long *offset, char *outstr, int maxline
- , FILE *instream);
- #define readline_alloc(l,s,m,i) s=readline_alloc(l,s,m,i)
- #define get_alloc(o,s,l,i) s=get_alloc(o,s,l,i)
-#endif
-
-
-#ifndef NO_FILE_CFG
-
-/****************************************************************************/
-/* Reads in LIBS.CNF and initializes the associated variables */
-/****************************************************************************/
-void read_file_cfg(read_cfg_text_t txt)
-{
- char str[256],fname[13],c,cmd[LEN_CMD+1];
- int file;
- short i,j,k,l,n;
- long offset=0,t;
- FILE *instream;
-
-#ifndef SCFG
-
-sprintf(data_dir_dirs,"%sDIRS\\",data_dir);
-
-#endif
-
-strcpy(fname,"FILE.CNF");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-
-lprintf(txt.reading,fname);
-
-get_int(min_dspace,instream);
-get_int(max_batup,instream);
-
-#ifdef SBBS
-if(max_batup) {
- if((batup_desc=(char **)MALLOC(sizeof(char *)*max_batup))==NULL)
- allocerr(txt,offset,fname,sizeof(char *)*max_batup);
- if((batup_name=(char **)MALLOC(sizeof(char *)*max_batup))==NULL)
- allocerr(txt,offset,fname,sizeof(char *)*max_batup);
- if((batup_misc=(char *)MALLOC(sizeof(char)*max_batup))==NULL)
- allocerr(txt,offset,fname,sizeof(char)*max_batup);
- if((batup_dir=(uint *)MALLOC(sizeof(uint)*max_batup))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*max_batup);
- if((batup_alt=(ushort *)MALLOC(sizeof(ushort)*max_batup))==NULL)
- allocerr(txt,offset,fname,sizeof(ushort)*max_batup);
- for(i=0;i<max_batup;i++) {
- if((batup_desc[i]=(char *)MALLOC(59))==NULL)
- allocerr(txt,offset,fname,59);
- if((batup_name[i]=(char *)MALLOC(13))==NULL)
- allocerr(txt,offset,fname,13); } }
-#endif
-get_int(max_batdn,instream);
-
-#ifdef SBBS
-if(max_batdn) {
- if((batdn_name=(char **)MALLOC(sizeof(char *)*max_batdn))==NULL)
- allocerr(txt,offset,fname,sizeof(char *)*max_batdn);
- if((batdn_dir=(uint *)MALLOC(sizeof(uint)*max_batdn))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*max_batdn);
- if((batdn_offset=(long *)MALLOC(sizeof(long)*max_batdn))==NULL)
- allocerr(txt,offset,fname,sizeof(long)*max_batdn);
- if((batdn_size=(ulong *)MALLOC(sizeof(ulong)*max_batdn))==NULL)
- allocerr(txt,offset,fname,sizeof(ulong)*max_batdn);
- if((batdn_cdt=(ulong *)MALLOC(sizeof(ulong)*max_batdn))==NULL)
- allocerr(txt,offset,fname,sizeof(ulong)*max_batdn);
- if((batdn_alt=(ushort *)MALLOC(sizeof(ushort)*max_batdn))==NULL)
- allocerr(txt,offset,fname,sizeof(ushort)*max_batdn);
- for(i=0;i<max_batdn;i++)
- if((batdn_name[i]=(char *)MALLOC(13))==NULL)
- allocerr(txt,offset,fname,13); }
-#endif
-get_int(max_userxfer,instream);
-
-get_int(t,instream); /* unused - was cdt_byte_value */
-get_int(cdt_up_pct,instream);
-get_int(cdt_dn_pct,instream);
-get_int(t,instream); /* unused - was temp_ext */
-get_str(cmd,instream); /* unused - was temp_cmd */
-get_int(leech_pct,instream);
-get_int(leech_sec,instream);
-
-for(i=0;i<32;i++)
- get_int(n,instream);
-
-/**************************/
-/* Extractable File Types */
-/**************************/
-
-get_int(total_fextrs,instream);
-
-if(total_fextrs) {
- if((fextr=(fextr_t **)MALLOC(sizeof(fextr_t *)*total_fextrs))==NULL)
- allocerr(txt,offset,fname,sizeof(fextr_t*)*total_fextrs); }
-else
- fextr=NULL;
-
-for(i=0; i<total_fextrs; i++) {
- if(feof(instream))
- break;
- if((fextr[i]=(fextr_t *)MALLOC(sizeof(fextr_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(fextr_t));
- memset(fextr[i],0,sizeof(fextr_t));
- get_str(fextr[i]->ext,instream);
- get_alloc(&offset,fextr[i]->cmd,LEN_CMD,instream);
-#ifdef SCFG
- get_str(fextr[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- fextr[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_fextrs=i;
-
-/***************************/
-/* Compressable File Types */
-/***************************/
-
-get_int(total_fcomps,instream);
-
-if(total_fcomps) {
- if((fcomp=(fcomp_t **)MALLOC(sizeof(fcomp_t *)*total_fcomps))==NULL)
- allocerr(txt,offset,fname,sizeof(fcomp_t*)*total_fcomps); }
-else
- fcomp=NULL;
-
-for(i=0; i<total_fcomps; i++) {
- if(feof(instream))
- break;
- if((fcomp[i]=(fcomp_t *)MALLOC(sizeof(fcomp_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(fcomp_t));
- memset(fcomp[i],0,sizeof(fcomp_t));
- get_str(fcomp[i]->ext,instream);
- get_alloc(&offset,fcomp[i]->cmd,LEN_CMD,instream);
-#ifdef SCFG
- get_str(fcomp[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- fcomp[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_fcomps=i;
-
-/***********************/
-/* Viewable File Types */
-/***********************/
-
-get_int(total_fviews,instream);
-
-if(total_fviews) {
- if((fview=(fview_t **)MALLOC(sizeof(fview_t *)*total_fviews))==NULL)
- allocerr(txt,offset,fname,sizeof(fview_t*)*total_fviews); }
-else
- fview=NULL;
-
-for(i=0; i<total_fviews; i++) {
- if(feof(instream)) break;
- if((fview[i]=(fview_t *)MALLOC(sizeof(fview_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(fview_t));
- memset(fview[i],0,sizeof(fview_t));
- get_str(fview[i]->ext,instream);
- get_alloc(&offset,fview[i]->cmd,LEN_CMD,instream);
-#ifdef SCFG
- get_str(fview[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- fview[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_fviews=i;
-
-/***********************/
-/* Testable File Types */
-/***********************/
-
-get_int(total_ftests,instream);
-
-if(total_ftests) {
- if((ftest=(ftest_t **)MALLOC(sizeof(ftest_t *)*total_ftests))==NULL)
- allocerr(txt,offset,fname,sizeof(ftest_t*)*total_ftests); }
-else
- ftest=NULL;
-
-for(i=0; i<total_ftests; i++) {
- if(feof(instream)) break;
- if((ftest[i]=(ftest_t *)MALLOC(sizeof(ftest_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(ftest_t));
- memset(ftest[i],0,sizeof(ftest_t));
- get_str(ftest[i]->ext,instream);
- get_alloc(&offset,ftest[i]->cmd,LEN_CMD,instream);
- get_alloc(&offset,ftest[i]->workstr,40,instream);
-#ifdef SCFG
- get_str(ftest[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- ftest[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_ftests=i;
-
-/*******************/
-/* Download events */
-/*******************/
-
-get_int(total_dlevents,instream);
-
-if(total_dlevents) {
- if((dlevent=(dlevent_t **)MALLOC(sizeof(dlevent_t *)*total_dlevents))
- ==NULL)
- allocerr(txt,offset,fname,sizeof(dlevent_t*)*total_dlevents); }
-else
- dlevent=NULL;
-
-for(i=0; i<total_dlevents; i++) {
- if(feof(instream)) break;
- if((dlevent[i]=(dlevent_t *)MALLOC(sizeof(dlevent_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(dlevent_t));
- memset(dlevent[i],0,sizeof(dlevent_t));
- get_str(dlevent[i]->ext,instream);
- get_alloc(&offset,dlevent[i]->cmd,LEN_CMD,instream);
- get_alloc(&offset,dlevent[i]->workstr,40,instream);
-#ifdef SCFG
- get_str(dlevent[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- dlevent[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_dlevents=i;
-
-
-/***************************/
-/* File Transfer Protocols */
-/***************************/
-
-get_int(total_prots,instream);
-
-if(total_prots) {
- if((prot=(prot_t **)MALLOC(sizeof(prot_t *)*total_prots))==NULL)
- allocerr(txt,offset,fname,sizeof(prot_t*)*total_prots); }
-else
- prot=NULL;
-
-for(i=0;i<total_prots;i++) {
- if(feof(instream)) break;
- if((prot[i]=(prot_t *)MALLOC(sizeof(prot_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(prot_t));
- memset(prot[i],0,sizeof(prot_t));
-
- get_int(prot[i]->mnemonic,instream);
- get_alloc(&offset,prot[i]->name,25,instream);
- get_alloc(&offset,prot[i]->ulcmd,LEN_CMD,instream);
- get_alloc(&offset,prot[i]->dlcmd,LEN_CMD,instream);
- get_alloc(&offset,prot[i]->batulcmd,LEN_CMD,instream);
- get_alloc(&offset,prot[i]->batdlcmd,LEN_CMD,instream);
- get_alloc(&offset,prot[i]->blindcmd,LEN_CMD,instream);
- get_alloc(&offset,prot[i]->bicmd,LEN_CMD,instream);
- get_int(prot[i]->misc,instream);
-#ifdef SCFG
- get_str(prot[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- prot[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-
-/************************/
-/* Alternate File Paths */
-/************************/
-
-get_int(altpaths,instream);
-
-if(altpaths) {
- if((altpath=(char **)MALLOC(sizeof(char *)*altpaths))==NULL)
- allocerr(txt,offset,fname,sizeof(char *)*altpaths); }
-else
- altpath=NULL;
-
-for(i=0;i<altpaths;i++) {
- if(feof(instream)) break;
- fread(str,LEN_DIR+1,1,instream);
- offset+=LEN_DIR+1;
- backslash(str);
-#ifdef SCFG
- j=LEN_DIR+1;
-#else
- j=strlen(str)+1;
-#endif
- if((altpath[i]=(char *)MALLOC(j))==NULL)
- allocerr(txt,offset,fname,j);
- memset(altpath[i],0,j);
- strcpy(altpath[i],str);
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-
-altpaths=i;
-
-/******************/
-/* File Libraries */
-/******************/
-
-get_int(total_libs,instream);
-
-if(total_libs) {
- if((lib=(lib_t **)MALLOC(sizeof(lib_t *)*total_libs))==NULL)
- allocerr(txt,offset,fname,sizeof(lib_t *)*total_libs); }
-else
- lib=NULL;
-
-#ifdef SBBS
-
-if(total_libs) {
- if((curdir=(uint *)MALLOC(sizeof(uint)*total_libs))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*total_libs);
-
- if((usrlib=(uint *)MALLOC(sizeof(uint)*total_libs))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*total_libs);
-
- if((usrdirs=(uint *)MALLOC(sizeof(uint)*total_libs))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*total_libs);
-
- if((usrdir=(uint **)MALLOC(sizeof(uint *)*total_libs))==NULL)
- allocerr(txt,offset,fname,sizeof(uint *)*total_libs); }
-
-#endif
-for(i=0;i<total_libs;i++) {
- if(feof(instream)) break;
- if((lib[i]=(lib_t *)MALLOC(sizeof(lib_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(lib_t));
- memset(lib[i],0,sizeof(lib_t));
- lib[i]->offline_dir=INVALID_DIR;
-
- get_alloc(&offset,lib[i]->lname,LEN_GLNAME,instream);
- get_alloc(&offset,lib[i]->sname,LEN_GSNAME,instream);
-
-#if !defined(SCFG) && defined(SAVE_MEMORY) /* Save memory */
- if(!strcmp(lib[i]->lname,lib[i]->sname) && lib[i]->sname!=scfgnulstr) {
- FREE(lib[i]->sname);
- lib[i]->sname=lib[i]->lname; }
-#endif
-
-#ifdef SCFG
- get_str(lib[i]->ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- lib[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<48;j++)
- get_int(n,instream);
- }
-total_libs=i;
-
-/********************/
-/* File Directories */
-/********************/
-
-sysop_dir=user_dir=upload_dir=INVALID_DIR;
-get_int(total_dirs,instream);
-
-if(total_dirs) {
- if((dir=(dir_t **)MALLOC(sizeof(dir_t *)*(total_dirs+1)))==NULL)
- allocerr(txt,offset,fname,sizeof(dir_t *)*(total_dirs+1)); }
-else
- dir=NULL;
-
-for(i=0;i<total_dirs;i++) {
- if(feof(instream)) break;
- if((dir[i]=(dir_t *)MALLOC(sizeof(dir_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(dir_t));
- memset(dir[i],0,sizeof(dir_t));
-
- get_int(dir[i]->lib,instream);
- get_alloc(&offset,dir[i]->lname,LEN_SLNAME,instream);
- get_alloc(&offset,dir[i]->sname,LEN_SSNAME,instream);
-
-#if !defined(SCFG) && defined(SAVE_MEMORY) /* Save memory */
- if(!strcmp(dir[i]->lname,dir[i]->sname) && dir[i]->sname!=scfgnulstr) {
- FREE(dir[i]->sname);
- dir[i]->sname=dir[i]->lname; }
-#endif
-
- if(!strcmpi(dir[i]->sname,"SYSOP")) /* Sysop upload directory */
- sysop_dir=i;
- else if(!strcmpi(dir[i]->sname,"USER")) /* User to User xfer dir */
- user_dir=i;
- else if(!strcmpi(dir[i]->sname,"UPLOADS")) /* Upload directory */
- upload_dir=i;
- else if(!strcmpi(dir[i]->sname,"OFFLINE")) /* Offline files dir */
- lib[dir[i]->lib]->offline_dir=i;
-
- get_str(dir[i]->code,instream);
-
-#ifdef SCFG
- get_str(dir[i]->data_dir,instream);
-#else
- fread(str,LEN_DIR+1,1,instream); /* substitute data dir */
- offset+=LEN_DIR+1;
- if(str[0]) {
- backslash(str);
- if((dir[i]->data_dir=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
- strcpy(dir[i]->data_dir,str); }
- else
- dir[i]->data_dir=data_dir_dirs;
-#endif
-
-#ifdef SCFG
- get_str(dir[i]->ar,instream);
- get_str(dir[i]->ul_ar,instream);
- get_str(dir[i]->dl_ar,instream);
- get_str(dir[i]->op_ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- dir[i]->ar=arstr(0,str);
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- dir[i]->ul_ar=arstr(0,str);
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- dir[i]->dl_ar=arstr(0,str);
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- dir[i]->op_ar=arstr(0,str);
-#endif
- fread(str,1,LEN_DIR+1,instream);
- offset+=LEN_DIR+1;
- if(!str[0]) /* no path specified */
- sprintf(str,"%sDIRS\\%s\\",data_dir,dir[i]->code);
-
-#ifndef SCFG
- if((dir[i]->path=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
-#endif
- strcpy(dir[i]->path,str);
- get_alloc(&offset,dir[i]->upload_sem,LEN_DIR,instream);
- get_int(dir[i]->maxfiles,instream);
- if(dir[i]->maxfiles>MAX_FILES)
- dir[i]->maxfiles=MAX_FILES;
- get_alloc(&offset,dir[i]->exts,40,instream);
- get_int(dir[i]->misc,instream);
- get_int(dir[i]->seqdev,instream);
- get_int(dir[i]->sort,instream);
-#ifdef SCFG
- get_str(dir[i]->ex_ar,instream);
-#else
- fread(str,1,LEN_ARSTR+1,instream);
- offset+=LEN_ARSTR+1;
- dir[i]->ex_ar=arstr(0,str);
-#endif
- get_int(dir[i]->maxage,instream);
- get_int(dir[i]->up_pct,instream);
- get_int(dir[i]->dn_pct,instream);
- get_int(c,instream);
- for(j=0;j<24;j++)
- get_int(n,instream); }
-
-total_dirs=i;
-
-#ifndef NO_TEXT_CFG /* This must be the last section in CFG file */
-
-/**********************/
-/* Text File Sections */
-/**********************/
-
-get_int(total_txtsecs,instream);
-
-
-if(total_txtsecs) {
- if((txtsec=(txtsec_t **)MALLOC(sizeof(txtsec_t *)*total_txtsecs))==NULL)
- allocerr(txt,offset,fname,sizeof(txtsec_t *)*total_txtsecs); }
-else
- txtsec=NULL;
-
-for(i=0;i<total_txtsecs;i++) {
- if(feof(instream)) break;
- if((txtsec[i]=(txtsec_t *)MALLOC(sizeof(txtsec_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(txtsec_t));
- memset(txtsec[i],0,sizeof(txtsec_t));
-
- get_alloc(&offset,txtsec[i]->name,40,instream);
- get_str(txtsec[i]->code,instream);
-#ifdef SCFG
- get_str(txtsec[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- txtsec[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_txtsecs=i;
-
-#endif
-
-fclose(instream);
-lprintf(txt.readit,fname);
-#ifdef SBBS
-for(i=l=0;i<total_libs;i++) {
- for(j=k=0;j<total_dirs;j++)
- if(dir[j]->lib==i)
- k++;
- if(k>l) l=k; } /* l = largest number of dirs in a lib */
-for(i=0;i<total_libs;i++)
- if(l && (usrdir[i]=(uint *)MALLOC(sizeof(uint)*l))==NULL)
- allocerr(txt,offset,fname,sizeof(uint)*l);
-#endif
-}
-
-#endif
-
-
-#ifndef NO_XTRN_CFG
-
-/****************************************************************************/
-/* Reads in XTRN.CNF and initializes the associated variables */
-/****************************************************************************/
-void read_xtrn_cfg(read_cfg_text_t txt)
-{
- char str[256],fname[13],*p,c;
- int file;
- short i,j,n;
- long offset=0;
- FILE *instream;
-
-strcpy(fname,"XTRN.CNF");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-
-lprintf(txt.reading,fname);
-
-/*************/
-/* Swap list */
-/*************/
-
-get_int(total_swaps,instream);
-
-if(total_swaps) {
- if((swap=(swap_t **)MALLOC(sizeof(swap_t *)*total_swaps))==NULL)
- allocerr(txt,offset,fname,sizeof(swap_t *)*total_swaps); }
-else
- swap=NULL;
-
-for(i=0;i<total_swaps;i++) {
- if(feof(instream)) break;
- if((swap[i]=(swap_t *)MALLOC(sizeof(swap_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(swap_t));
- get_alloc(&offset,swap[i]->cmd,LEN_CMD,instream); }
-total_swaps=i;
-
-/********************/
-/* External Editors */
-/********************/
-
-get_int(total_xedits,instream);
-
-if(total_xedits) {
- if((xedit=(xedit_t **)MALLOC(sizeof(xedit_t *)*total_xedits))==NULL)
- allocerr(txt,offset,fname,sizeof(xedit_t *)*total_xedits); }
-else
- xedit=NULL;
-
-for(i=0;i<total_xedits;i++) {
- if(feof(instream)) break;
- if((xedit[i]=(xedit_t *)MALLOC(sizeof(xedit_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(xedit_t));
- memset(xedit[i],0,sizeof(xedit_t));
-
- get_alloc(&offset,xedit[i]->name,40,instream);
- get_str(xedit[i]->code,instream);
- get_alloc(&offset,xedit[i]->lcmd,LEN_CMD,instream);
- get_alloc(&offset,xedit[i]->rcmd,LEN_CMD,instream);
-
-#if !defined(SCFG) && defined(SAVE_MEMORY) /* Save memory */
- if(!strcmp(xedit[i]->lcmd,xedit[i]->rcmd) && xedit[i]->rcmd!=scfgnulstr) {
- FREE(xedit[i]->rcmd);
- xedit[i]->rcmd=xedit[i]->lcmd; }
-#endif
-
- get_int(xedit[i]->misc,instream);
-#ifdef SCFG
- get_str(xedit[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- xedit[i]->ar=arstr(0,str);
-#endif
- get_int(xedit[i]->type,instream);
- get_int(c,instream);
- for(j=0;j<7;j++)
- get_int(n,instream);
- }
-total_xedits=i;
-
-
-/*****************************/
-/* External Program Sections */
-/*****************************/
-
-get_int(total_xtrnsecs,instream);
-
-if(total_xtrnsecs) {
- if((xtrnsec=(xtrnsec_t **)MALLOC(sizeof(xtrnsec_t *)*total_xtrnsecs))
- ==NULL)
- allocerr(txt,offset,fname,sizeof(xtrnsec_t *)*total_xtrnsecs); }
-else
- xtrnsec=NULL;
-
-for(i=0;i<total_xtrnsecs;i++) {
- if(feof(instream)) break;
- if((xtrnsec[i]=(xtrnsec_t *)MALLOC(sizeof(xtrnsec_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(xtrnsec_t));
- memset(xtrnsec[i],0,sizeof(xtrnsec_t));
-
- get_alloc(&offset,xtrnsec[i]->name,40,instream);
- get_str(xtrnsec[i]->code,instream);
-#ifdef SCFG
- get_str(xtrnsec[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- xtrnsec[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_xtrnsecs=i;
-
-
-/*********************/
-/* External Programs */
-/*********************/
-
-get_int(total_xtrns,instream);
-
-if(total_xtrns) {
- if((xtrn=(xtrn_t **)MALLOC(sizeof(xtrn_t *)*total_xtrns))==NULL)
- allocerr(txt,offset,fname,sizeof(xtrn_t *)*total_xtrns); }
-else
- xtrn=NULL;
-
-for(i=0;i<total_xtrns;i++) {
- if(feof(instream)) break;
- if((xtrn[i]=(xtrn_t *)MALLOC(sizeof(xtrn_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(xtrn_t));
- memset(xtrn[i],0,sizeof(xtrn_t));
-
- get_int(xtrn[i]->sec,instream);
- get_alloc(&offset,xtrn[i]->name,40,instream);
- get_str(xtrn[i]->code,instream);
-#ifdef SCFG
- get_str(xtrn[i]->ar,instream);
- get_str(xtrn[i]->run_ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- xtrn[i]->ar=arstr(0,str);
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- xtrn[i]->run_ar=arstr(0,str);
-#endif
- get_int(xtrn[i]->type,instream);
- get_int(xtrn[i]->misc,instream);
- get_int(xtrn[i]->event,instream);
- get_int(xtrn[i]->cost,instream);
- get_alloc(&offset,xtrn[i]->cmd,LEN_CMD,instream);
- get_alloc(&offset,xtrn[i]->clean,LEN_CMD,instream);
- fread(str,LEN_DIR+1,1,instream);
- offset+=LEN_DIR+1;
- if(strcmp(str+1,":\\") && str[strlen(str)-1]=='\\') // C:\ is valid
- str[strlen(str)-1]=0; // C:\SBBS\XTRN\GAME\ is not
-#ifdef SBBS
- if(!str[0]) /* Minimum path of '.' */
- strcpy(str,".");
- if((xtrn[i]->path=(char *)MALLOC(strlen(str)+1))==NULL)
- allocerr(txt,offset,fname,strlen(str)+1);
-#endif
- strcpy(xtrn[i]->path,str);
- get_int(xtrn[i]->textra,instream);
- get_int(xtrn[i]->maxtime,instream);
- for(j=0;j<7;j++)
- get_int(n,instream);
- }
-total_xtrns=i;
-
-
-/****************/
-/* Timed Events */
-/****************/
-
-get_int(total_events,instream);
-
-if(total_events) {
- if((event=(event_t **)MALLOC(sizeof(event_t *)*total_events))==NULL)
- allocerr(txt,offset,fname,sizeof(event_t *)*total_events); }
-else
- event=NULL;
-
-for(i=0;i<total_events;i++) {
- if(feof(instream)) break;
- if((event[i]=(event_t *)MALLOC(sizeof(event_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(event_t));
- memset(event[i],0,sizeof(event_t));
-
- get_str(event[i]->code,instream);
- get_alloc(&offset,event[i]->cmd,LEN_CMD,instream);
- get_int(event[i]->days,instream);
- get_int(event[i]->time,instream);
- get_int(event[i]->node,instream);
- get_int(event[i]->misc,instream);
- get_alloc(&offset,event[i]->dir,LEN_DIR,instream);
- if(event[i]->dir[0] // blank is valid
- && strcmp(event[i]->dir+1,":\\") // C:\ is valid
- && event[i]->dir[strlen(event[i]->dir)-1]=='\\') // C:\DIR\ !valid
- event[i]->dir[strlen(event[i]->dir)-1]=0; // Remove \
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_events=i;
-
-#if defined(SCFG) || defined(__OS2__)
-
-/********************/
-/* DOS Program list */
-/********************/
-
-get_int(total_os2pgms,instream);
-
-if(total_os2pgms) {
- if((os2pgm=(os2pgm_t **)MALLOC(sizeof(os2pgm_t *)*total_os2pgms))==NULL)
- allocerr(txt,offset,fname,sizeof(os2pgm_t *)*total_os2pgms); }
-else
- os2pgm=NULL;
-
-for(i=0;i<total_os2pgms;i++) {
- if(feof(instream)) break;
- if((os2pgm[i]=(os2pgm_t *)MALLOC(sizeof(os2pgm_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(os2pgm_t));
- get_alloc(&offset,os2pgm[i]->name,12,instream);
- os2pgm[i]->misc=0; }
-total_os2pgms=i;
-for(i=0;i<total_os2pgms;i++) {
- if(feof(instream)) break;
- get_int(os2pgm[i]->misc,instream); }
-
-#endif // Don't add anything non-OS2 specific after this (without moding ^^ )
-
-
-fclose(instream);
-lprintf(txt.readit,fname);
-}
-
-#endif
-
-
-#ifndef NO_CHAT_CFG
-
-/****************************************************************************/
-/* Reads in CHAT.CNF and initializes the associated variables */
-/****************************************************************************/
-void read_chat_cfg(read_cfg_text_t txt)
-{
- char str[256],fname[13],*p;
- int file;
- short i,j,n;
- long offset=0;
- FILE *instream;
-
-strcpy(fname,"CHAT.CNF");
-sprintf(str,"%s%s",ctrl_dir,fname);
-if((instream=fnopen(&file,str,O_RDONLY))==NULL) {
- lprintf(txt.openerr,str);
- bail(1); }
-
-lprintf(txt.reading,fname);
-
-/*********/
-/* Gurus */
-/*********/
-
-get_int(total_gurus,instream);
-
-if(total_gurus) {
- if((guru=(guru_t **)MALLOC(sizeof(guru_t *)*total_gurus))==NULL)
- allocerr(txt,offset,fname,sizeof(guru_t *)*total_gurus); }
-else
- guru=NULL;
-
-for(i=0;i<total_gurus;i++) {
- if(feof(instream)) break;
- if((guru[i]=(guru_t *)MALLOC(sizeof(guru_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(guru_t));
- memset(guru[i],0,sizeof(guru_t));
-
- get_alloc(&offset,guru[i]->name,25,instream);
- get_str(guru[i]->code,instream);
-
-#ifdef SCFG
- get_str(guru[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- guru[i]->ar=arstr(0,str);
-#endif
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_chans=i;
-
-
-/********************/
-/* Chat Action Sets */
-/********************/
-
-get_int(total_actsets,instream);
-
-if(total_actsets) {
- if((actset=(actset_t **)MALLOC(sizeof(actset_t *)*total_actsets))==NULL)
- allocerr(txt,offset,fname,sizeof(actset_t *)*total_actsets); }
-else
- actset=NULL;
-
-for(i=0;i<total_actsets;i++) {
- if(feof(instream)) break;
- if((actset[i]=(actset_t *)MALLOC(sizeof(actset_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(actset_t));
- get_alloc(&offset,actset[i]->name,25,instream);
- }
-total_actsets=i;
-
-
-/****************/
-/* Chat Actions */
-/****************/
-
-get_int(total_chatacts,instream);
-
-if(total_chatacts) {
- if((chatact=(chatact_t **)MALLOC(sizeof(chatact_t *)*total_chatacts))
- ==NULL)
- allocerr(txt,offset,fname,sizeof(chatact_t *)*total_chatacts); }
-else
- chatact=NULL;
-
-for(i=0;i<total_chatacts;i++) {
- if(feof(instream)) break;
- if((chatact[i]=(chatact_t *)MALLOC(sizeof(chatact_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(chatact_t));
- memset(chatact[i],0,sizeof(chatact_t));
-
- get_int(chatact[i]->actset,instream);
- get_alloc(&offset,chatact[i]->cmd,LEN_CHATACTCMD,instream);
- get_alloc(&offset,chatact[i]->out,LEN_CHATACTOUT,instream);
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-
-total_chatacts=i;
-
-
-/***************************/
-/* Multinode Chat Channels */
-/***************************/
-
-get_int(total_chans,instream);
-
-if(total_chans) {
- if((chan=(chan_t **)MALLOC(sizeof(chan_t *)*total_chans))==NULL)
- allocerr(txt,offset,fname,sizeof(chan_t *)*total_chans); }
-else
- chan=NULL;
-
-for(i=0;i<total_chans;i++) {
- if(feof(instream)) break;
- if((chan[i]=(chan_t *)MALLOC(sizeof(chan_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(chan_t));
- memset(chan[i],0,sizeof(chan_t));
-
- get_int(chan[i]->actset,instream);
- get_alloc(&offset,chan[i]->name,25,instream);
-
- get_str(chan[i]->code,instream);
-
-#ifdef SCFG
- get_str(chan[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- chan[i]->ar=arstr(0,str);
-#endif
- get_int(chan[i]->cost,instream);
- get_int(chan[i]->guru,instream);
- get_int(chan[i]->misc,instream);
- for(j=0;j<8;j++)
- get_int(n,instream); }
-total_chans=i;
-
-
-/**************/
-/* Chat Pages */
-/**************/
-
-get_int(total_pages,instream);
-
-if(total_pages) {
- if((page=(page_t **)MALLOC(sizeof(page_t *)*total_pages))==NULL)
- allocerr(txt,offset,fname,sizeof(page_t *)*total_pages); }
-else
- page=NULL;
-
-for(i=0;i<total_pages;i++) {
- if(feof(instream)) break;
- if((page[i]=(page_t *)MALLOC(sizeof(page_t)))==NULL)
- allocerr(txt,offset,fname,sizeof(page_t));
- memset(page[i],0,sizeof(page_t));
-
- get_alloc(&offset,page[i]->cmd,LEN_CMD,instream);
-
-#ifdef SCFG
- get_str(page[i]->ar,instream);
-#else
- fread(str,LEN_ARSTR+1,1,instream);
- offset+=LEN_ARSTR+1;
- page[i]->ar=arstr(0,str);
-#endif
- get_int(page[i]->misc,instream);
- for(j=0;j<8;j++)
- get_int(n,instream);
- }
-total_pages=i;
-
-
-fclose(instream);
-lprintf(txt.readit,fname);
-}
-
-#endif
-
-/****************************************************************************/
-/* Read one line of up two 256 characters from the file pointed to by */
-/* 'stream' and put upto 'maxlen' number of character into 'outstr' and */
-/* truncate spaces off end of 'outstr'. */
-/****************************************************************************/
-char *readline(long *offset, char *outstr, int maxlen, FILE *instream)
-{
- char str[257];
-
-if(fgets(str,256,instream)==NULL)
- return(NULL);
-sprintf(outstr,"%.*s",maxlen,str);
-truncsp(outstr);
-(*offset)+=maxlen;
-return(outstr);
-}
-
-#undef readline_alloc
-
-char *readline_alloc(long *offset, char *outstr, int maxline, FILE *instream)
-{
- char str[257];
-
-readline(offset,str,maxline,instream);
-if((outstr=(char *)MALLOC(strlen(str)+1))==NULL)
- return(NULL);
-strcpy(outstr,str);
-return(outstr);
-}
-
-/****************************************************************************/
-/* Turns char string of flags into a long */
-/****************************************************************************/
-long aftol(char *str)
-{
- char c=0;
- ulong l=0UL;
-
-strupr(str);
-while(str[c]) {
- if(str[c]>='A' && str[c]<='Z')
- l|=FLAG(str[c]);
- c++; }
-return(l);
-}
-
-/*****************************************************************************/
-/* Converts a long into an ASCII Flag string (A-Z) that represents bits 0-25 */
-/*****************************************************************************/
-char *ltoaf(long l,char *str)
-{
- char c=0;
-
-while(c<26) {
- if(l&(long)(1L<<c))
- str[c]='A'+c;
- else str[c]=SP;
- c++; }
-str[c]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Returns the actual attribute code from a string of ATTR characters */
-/****************************************************************************/
-int attrstr(char *str)
-{
- ulong l=0;
- short atr;
-
-atr=LIGHTGRAY;
-while(str[l]) {
- switch(str[l]) {
- case 'H': /* High intensity */
- atr|=HIGH;
- break;
- case 'I': /* Blink */
- atr|=BLINK;
- break;
- case 'K': /* Black */
- atr=(atr&0xf8)|BLACK;
- break;
- case 'W': /* White */
- atr=(atr&0xf8)|LIGHTGRAY;
- break;
- case '0': /* Black Background */
- atr=(atr&0x8f)|(BLACK<<4);
- break;
- case '7': /* White Background */
- atr=(atr&0x8f)|(LIGHTGRAY<<4);
- break;
- case 'R':
- atr=(atr&0xf8)|RED;
- break;
- case 'G':
- atr=(atr&0xf8)|GREEN;
- break;
- case 'Y': /* Yellow */
- atr=(atr&0xf8)|BROWN;
- break;
- case 'B':
- atr=(atr&0xf8)|BLUE;
- break;
- case 'M':
- atr=(atr&0xf8)|MAGENTA;
- break;
- case 'C':
- atr=(atr&0xf8)|CYAN;
- break;
- case '1': /* Red Background */
- atr=(atr&0x8f)|(RED<<4);
- break;
- case '2': /* Green Background */
- atr=(atr&0x8f)|(GREEN<<4);
- break;
- case '3': /* Yellow Background */
- atr=(atr&0x8f)|(BROWN<<4);
- break;
- case '4': /* Blue Background */
- atr=(atr&0x8f)|(BLUE<<4);
- break;
- case '5': /* Magenta Background */
- atr=(atr&0x8f)|(MAGENTA<<4);
- break;
- case '6': /* Cyan Background */
- atr=(atr&0x8f)|(CYAN<<4);
- break; }
- l++; }
-return(atr);
-}
-
-
diff --git a/src/sbbs2/scfgvars.c b/src/sbbs2/scfgvars.c
deleted file mode 100644
index d637844daf417ff4ca96514e84cb80c720f343ec..0000000000000000000000000000000000000000
--- a/src/sbbs2/scfgvars.c
+++ /dev/null
@@ -1,264 +0,0 @@
-/* SCFGVARS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/**********************************************************************/
-/* External (Global/Public) Variables for use with both SBBS and SCFG */
-/**********************************************************************/
-
-#ifndef GLOBAL
-#define GLOBAL
- char *scfgnulstr="";
-#else
-extern char *scfgnulstr;
-#endif
-
-#include "sbbsdefs.h"
-
-GLOBAL grp_t **grp; /* Each message group */
-GLOBAL ushort total_grps; /* Total number of groups */
-GLOBAL sub_t **sub; /* Each message sub */
-GLOBAL ushort total_subs; /* Total number of subs */
-GLOBAL lib_t **lib; /* Each library */
-GLOBAL ushort total_libs; /* Total number of libraries */
-GLOBAL dir_t **dir; /* Each message directory */
-GLOBAL ushort total_dirs; /* Total number of directories */
-GLOBAL txtsec_t **txtsec; /* Each text section */
-GLOBAL ushort total_txtsecs; /* Total number of text sections */
-GLOBAL xtrnsec_t **xtrnsec; /* Each external section */
-GLOBAL ushort total_xtrnsecs; /* Total number of external sections */
-GLOBAL xtrn_t **xtrn; /* Each external program */
-GLOBAL ushort total_xtrns; /* Total number of externals */
-GLOBAL mdm_result_t *mdm_result; /* Each Modem Result Code */
-GLOBAL ushort mdm_results; /* Total number of Modem Results */
-GLOBAL prot_t **prot; /* Each Transfer Protocol */
-GLOBAL ushort total_prots; /* Total Transfer Protocols */
-GLOBAL fextr_t **fextr; /* Each extractable file type */
-GLOBAL ushort total_fextrs; /* Total extractable file types */
-GLOBAL fcomp_t **fcomp; /* Each compressable file type */
-GLOBAL ushort total_fcomps; /* Total */
-GLOBAL fview_t **fview; /* Each veiwable file type */
-GLOBAL ushort total_fviews; /* Total viewable file types */
-GLOBAL ftest_t **ftest; /* Each testable file type */
-GLOBAL ushort total_ftests; /* Total testable file types */
-GLOBAL xedit_t **xedit; /* Each external editor */
-GLOBAL ushort total_xedits; /* Total external editors */
-GLOBAL qhub_t **qhub; /* QWK network hubs */
-GLOBAL ushort total_qhubs; /* Total qwk network hubs */
-GLOBAL phub_t **phub; /* PostLink/PCRelay network hubs */
-GLOBAL ushort total_phubs; /* Total PostLink/PCRelay hubs */
-GLOBAL chan_t **chan; /* Each chat channel */
-GLOBAL ushort total_chans; /* Total number of chat channels */
-GLOBAL chatact_t **chatact; /* Chat action commands */
-GLOBAL ushort total_chatacts; /* Total number of action commands */
-GLOBAL actset_t **actset; /* Name of action set */
-GLOBAL ushort total_actsets; /* Total number of action sets */
-GLOBAL page_t **page; /* External chat page */
-GLOBAL ushort total_pages; /* Total number of external pages */
-GLOBAL event_t **event; /* Timed events */
-GLOBAL ushort total_events; /* Total number of timed events */
-GLOBAL dlevent_t **dlevent; /* Download events */
-GLOBAL ushort total_dlevents; /* Total download events */
-GLOBAL faddr_t *faddr; /* FidoNet addresses */
-GLOBAL ushort total_faddrs; /* Total number of fido addresses */
-GLOBAL swap_t **swap; /* Swapping externals */
-GLOBAL ushort total_swaps; /* Total number of non-swap xtrns */
-GLOBAL os2pgm_t **os2pgm; /* DOS Programs */
-GLOBAL ushort total_os2pgms; /* Total number of DOS pgms */
-GLOBAL guru_t **guru; /* Gurus */
-GLOBAL ushort total_gurus; /* Total number of guru files */
-GLOBAL shell_t **shell; /* Command shells */
-GLOBAL ushort total_shells; /* Total number of command shells */
-
- /* COM port registers: */
-GLOBAL ushort com_base, /* COM base address */
- com_irq; /* irq line number */
-GLOBAL ulong com_rate; /* DTE rate in bps */
-GLOBAL char com_port; /* Number of COM port */
-
- /* Modem command strings */
-GLOBAL char mdm_init[64], /* Initialization */
- mdm_spec[64], /* Special Initialization */
- mdm_term[64], /* Terminal Initialization String */
- mdm_dial[64], /* Dial */
- mdm_offh[64], /* Off hook */
- mdm_answ[64], /* Answer */
- mdm_hang[64]; /* Hang-up */
-GLOBAL ulong mdm_misc; /* Misc bits used for flags */
-GLOBAL ushort mdm_reinit; /* Modem reinitialization minute count */
-GLOBAL ushort mdm_ansdelay; /* Modem seconds to delay after answer */
-GLOBAL uchar mdm_rings; /* Rings to wait till answer */
-
-GLOBAL long sys_misc; /* System Misc Settings */
-GLOBAL char sys_pass[41]; /* System Pass Word */
-GLOBAL char sys_name[41]; /* System Name */
-GLOBAL char sys_id[9]; /* System ID for QWK Packets */
-GLOBAL char sys_psname[13]; /* PostLink and PCRelay Site Name */
-GLOBAL ulong sys_psnum; /* PostLink and PCRelay Site Number */
-GLOBAL char sys_inetaddr[128]; /* System's internet address */
-GLOBAL char sys_location[41]; /* System Location */
-GLOBAL short sys_timezone; /* Time Zone of BBS */
-GLOBAL char sys_daily[LEN_CMD+1]; /* Daily event */
-GLOBAL char sys_logon[LEN_CMD+1]; /* Logon event */
-GLOBAL char sys_logout[LEN_CMD+1]; /* Logoff event */
-GLOBAL ushort sys_pwdays; /* Max days between password change */
-GLOBAL ushort sys_deldays; /* Days to keep deleted users */
-GLOBAL ushort sys_autodel; /* Autodeletion after x days inactive */
-GLOBAL ushort sys_nodes; /* Number of local nodes on system */
-GLOBAL char sys_op[41]; /* Name of system operator */
-GLOBAL char sys_guru[41]; /* Name of system guru */
-GLOBAL uchar sys_exp_warn; /* Days left till expire to notify */
-GLOBAL char sys_def_stat; /* Default status line */
-GLOBAL char sys_phonefmt[LEN_PHONE+1]; /* format of phone numbers */
-GLOBAL ushort sys_lastnode; /* Last displayable node number */
-GLOBAL ushort sys_autonode; /* First node number for autonode */
-#ifdef SCFG
-GLOBAL uchar sys_chat_ar[LEN_ARSTR+1]; /* chat override */
-#else
-GLOBAL uchar *sys_chat_ar;
-#endif
-
-GLOBAL uchar node_comspec[LEN_CMD+1]; /* DOS COMMAND.COM to use */
-GLOBAL uchar node_editor[LEN_CMD+1]; /* Local text editor command line to use */
-GLOBAL uchar node_viewer[LEN_CMD+1]; /* Local text viewer command line */
-GLOBAL uchar node_daily[LEN_CMD+1]; /* Name of node's daily event */
-GLOBAL uchar node_scrnlen; /* Length of screen (rows) */
-GLOBAL uchar node_scrnblank; /* Min of inactivity for blank screen */
-GLOBAL ulong node_misc; /* Misc bits for node setup */
-GLOBAL ushort node_valuser; /* User validation mail goes to */
-GLOBAL ushort node_ivt; /* Time-slice APIs */
-GLOBAL uchar node_swap; /* Swap types allowed */
-GLOBAL uchar node_swapdir[LEN_DIR+1]; /* Swap directory */
-GLOBAL ushort node_minbps; /* Minimum connect rate of this node */
-GLOBAL ushort node_num; /* Local node number of this node */
-GLOBAL uchar node_phone[13], /* Phone number of this node */
- node_name[41]; /* Name of this node */
-#ifdef SCFG
-GLOBAL uchar node_ar[LEN_ARSTR+1]; /* Node minimum requirements */
-#else
-GLOBAL uchar *node_ar;
-#endif
-GLOBAL ulong node_cost; /* Node cost to call - in credits */
-GLOBAL uchar node_dollars_per_call; /* Billing Node Dollars Per Call */
-GLOBAL ushort node_sem_check; /* Seconds between semaphore checks */
-GLOBAL ushort node_stat_check; /* Seconds between statistic checks */
-
-GLOBAL char new_pass[41]; /* New User Password */
-GLOBAL char new_magic[21]; /* New User Magic Word */
-GLOBAL char new_sif[9]; /* New User SIF Questionaire */
-GLOBAL char new_sof[9]; /* New User SIF Questionaire output SIF */
-GLOBAL char new_level; /* New User Main Level */
-GLOBAL ulong new_flags1; /* New User Main Flags from set #1*/
-GLOBAL ulong new_flags2; /* New User Main Flags from set #2*/
-GLOBAL ulong new_flags3; /* New User Main Flags from set #3*/
-GLOBAL ulong new_flags4; /* New User Main Flags from set #4*/
-GLOBAL ulong new_exempt; /* New User Exemptions */
-GLOBAL ulong new_rest; /* New User Restrictions */
-GLOBAL ulong new_cdt; /* New User Credits */
-GLOBAL ulong new_min; /* New User Minutes */
-GLOBAL uchar new_xedit[9]; /* New User Default Editor */
-GLOBAL ushort new_shell; /* New User Default Command Set */
-GLOBAL ulong new_misc; /* New User Miscellaneous Defaults */
-GLOBAL ushort new_expire; /* Expiration days for new user */
-GLOBAL uchar new_prot; /* New User Default Download Protocol */
-GLOBAL char val_level[10]; /* Validation User Main Level */
-GLOBAL ulong val_flags1[10]; /* Validation User Flags from set #1*/
-GLOBAL ulong val_flags2[10]; /* Validation User Flags from set #2*/
-GLOBAL ulong val_flags3[10]; /* Validation User Flags from set #3*/
-GLOBAL ulong val_flags4[10]; /* Validation User Flags from set #4*/
-GLOBAL ulong val_exempt[10]; /* Validation User Exemption Flags */
-GLOBAL ulong val_rest[10]; /* Validation User Restriction Flags */
-GLOBAL ulong val_cdt[10]; /* Validation User Additional Credits */
-GLOBAL ushort val_expire[10]; /* Validation User Extend Expire #days */
-GLOBAL uchar level_expireto[100];
-GLOBAL ushort level_timepercall[100], /* Security level settings */
- level_timeperday[100],
- level_callsperday[100],
- level_linespermsg[100],
- level_postsperday[100],
- level_emailperday[100];
-GLOBAL long level_freecdtperday[100];
-GLOBAL long level_misc[100];
-GLOBAL char expired_level; /* Expired user's ML */
-GLOBAL ulong expired_flags1; /* Flags from set #1 to remove when expired */
-GLOBAL ulong expired_flags2; /* Flags from set #2 to remove when expired */
-GLOBAL ulong expired_flags3; /* Flags from set #3 to remove when expired */
-GLOBAL ulong expired_flags4; /* Flags from set #4 to remove when expired */
-GLOBAL ulong expired_exempt; /* Exemptions to remove when expired */
-GLOBAL ulong expired_rest; /* Restrictions to add when expired */
-GLOBAL ushort min_dspace; /* Minimum amount of free space for uploads */
-GLOBAL ushort max_batup; /* Max number of files in upload queue */
-GLOBAL ushort max_batdn; /* Max number of files in download queue */
-GLOBAL ushort max_userxfer; /* Max dest. users of user to user xfer */
-GLOBAL ulong max_minutes; /* Maximum minutes a user can have */
-GLOBAL ulong max_qwkmsgs; /* Maximum messages per QWK packet */
-#ifdef SCFG
-GLOBAL uchar preqwk_ar[LEN_ARSTR+1]; /* pre pack QWK */
-#else
-GLOBAL uchar *preqwk_ar;
-#endif
-GLOBAL ushort cdt_min_value; /* Minutes per 100k credits */
-GLOBAL ulong cdt_per_dollar; /* Credits per dollar */
-GLOBAL ushort cdt_up_pct; /* Pct of credits credited on uploads */
-GLOBAL ushort cdt_dn_pct; /* Pct of credits credited per download */
-GLOBAL char node_dir[LEN_DIR+1];
-GLOBAL char ctrl_dir[LEN_DIR+1];
-GLOBAL char data_dir[LEN_DIR+1];
-GLOBAL char text_dir[LEN_DIR+1];
-GLOBAL char exec_dir[LEN_DIR+1];
-GLOBAL char temp_dir[LEN_DIR+1];
-GLOBAL char **node_path; /* paths to all node dirs */
-GLOBAL ushort sysop_dir; /* Destination for uploads to sysop */
-GLOBAL ushort user_dir; /* Directory for user to user xfers */
-GLOBAL ushort upload_dir; /* Directory where all uploads go */
-GLOBAL char **altpath; /* Alternate paths for files */
-GLOBAL ushort altpaths; /* Total number of alternate paths */
-GLOBAL ushort leech_pct; /* Leech detection percentage */
-GLOBAL ushort leech_sec; /* Minimum seconds before possible leech */
-GLOBAL ulong netmail_cost; /* Cost in credits to send netmail */
-GLOBAL char netmail_dir[LEN_DIR+1]; /* Directory to store netmail */
-GLOBAL ushort netmail_misc; /* Miscellaneous bits regarding netmail */
-GLOBAL ulong inetmail_misc; /* Miscellaneous bits regarding inetmail */
-GLOBAL ulong inetmail_cost; /* Cost in credits to send Internet mail */
-GLOBAL uchar inetmail_sem[LEN_DIR+1]; /* Internet Mail semaphore file */
-GLOBAL char echomail_dir[LEN_DIR+1]; /* Directory to store echomail in */
-GLOBAL char fidofile_dir[LEN_DIR+1]; /* Directory where inbound files go */
-GLOBAL char netmail_sem[LEN_DIR+1]; /* FidoNet NetMail semaphore */
-GLOBAL char echomail_sem[LEN_DIR+1]; /* FidoNet EchoMail semaphore */
-GLOBAL char origline[51]; /* Default EchoMail origin line */
-GLOBAL char qnet_tagline[128]; /* Default QWK Network tagline */
-GLOBAL long uq; /* User Questions */
-GLOBAL ulong mail_maxcrcs; /* Dupe checking in e-mail */
-GLOBAL ushort mail_maxage; /* Maximum age of e-mail */
-GLOBAL faddr_t dflt_faddr; /* Default FidoNet address */
-GLOBAL uchar logon_mod[9]; /* Logon module */
-GLOBAL uchar logoff_mod[9]; /* Logoff module */
-GLOBAL uchar newuser_mod[9]; /* New User Module */
-GLOBAL uchar login_mod[9]; /* Login module */
-GLOBAL uchar logout_mod[9]; /* Logout module */
-GLOBAL uchar sync_mod[9]; /* Synchronization module */
-GLOBAL uchar expire_mod[9]; /* User expiration module */
-GLOBAL uchar scfg_cmd[LEN_CMD+1]; /* SCFG command line */
-GLOBAL uchar smb_retry_time; /* Seconds to retry on SMBs */
-GLOBAL ushort sec_warn; /* Seconds before inactivity warning */
-GLOBAL ushort sec_hangup; /* Seconds before inactivity hang-up */
-
-#ifndef SCFG
-
-GLOBAL uchar data_dir_subs[128]; /* DATA\SUBS directory */
-GLOBAL uchar data_dir_dirs[128]; /* DATA\DIRS directory */
-
-#endif
-
-#ifdef SCFG
-
-GLOBAL char wfc_cmd[10][LEN_CMD+1]; /* 0-9 WFC DOS commands */
-GLOBAL char wfc_scmd[12][LEN_CMD+1]; /* F1-F12 WFC shrinking DOS commands */
-
-#else
-
-GLOBAL char *wfc_cmd[10]; /* 0-9 WFC DOS commands */
-GLOBAL char *wfc_scmd[12]; /* F1-F12 WFC shrinking DOS commands */
-
-#endif
-
diff --git a/src/sbbs2/slog/make.bat b/src/sbbs2/slog/make.bat
deleted file mode 100755
index 0d8ba2a2b7523e0e5b2d9a5aa04e41613f669e53..0000000000000000000000000000000000000000
--- a/src/sbbs2/slog/make.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -w-pro -I.. -ml -ndos slog.c
diff --git a/src/sbbs2/slog/make.cmd b/src/sbbs2/slog/make.cmd
deleted file mode 100755
index e223e5c79c008e93102d4739fee621e2f9d871ed..0000000000000000000000000000000000000000
--- a/src/sbbs2/slog/make.cmd
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -w-pro -I.. -nos2 slog.c
diff --git a/src/sbbs2/slog/slog.c b/src/sbbs2/slog/slog.c
deleted file mode 100644
index 4a8170fb2515e517aefd92fcd0536ab1b8c452df..0000000000000000000000000000000000000000
--- a/src/sbbs2/slog/slog.c
+++ /dev/null
@@ -1,140 +0,0 @@
-/* SLOG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <fcntl.h>
-#include <sys\stat.h>
-#include <io.h>
-#include <dos.h>
-#include <alloc.h>
-#include <time.h>
-#include <errno.h>
-
-#include "sbbsdefs.h"
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=O_DENYWRITE;
- else share=O_DENYALL;
-while(((file=open(str,O_BINARY|share|access,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(count)
- printf("NOPEN COLLISION - File: %s Count: %d"
- ,str,count);
-if(file==-1 && errno==EACCES)
- printf("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-
-/****************************************************************************/
-/* Lists system statistics for everyday the bbs has been running. */
-/* Either for the current node (node=1) or the system (node=0) */
-/****************************************************************************/
-int main(int argc, char **argv)
-{
- char str[256],dir[256]={""},*p;
- uchar *buf;
- int i,file,pause=0,lncntr=0;
- time_t timestamp;
- long l;
- ulong length,
- logons,
- timeon,
- posts,
- emails,
- fbacks,
- ulb,
- uls,
- dlb,
- dls;
- struct date date;
- struct time curtime;
-
-
-printf("\nSynchronet System/Node Statistics Log Viewer v1.02\n\n");
-
-for(i=1;i<argc;i++)
- if(!stricmp(argv[i],"/P"))
- pause=1;
- else
- strcpy(dir,argv[1]);
-if(!dir[0]) {
- p=getenv("SBBSCTRL");
- if(p!=NULL)
- strcpy(dir,p); }
-
-if(dir[0] && dir[strlen(dir)-1]!='\\')
- strcat(dir,"\\");
-
-sprintf(str,"%sCSTS.DAB",dir);
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("Error opening %s\r\n",str);
- return(1); }
-length=filelength(file);
-if(length<40) {
- close(file);
- return(1); }
-if((buf=(char *)MALLOC(length))==0) {
- close(file);
- printf("error allocating %lu bytes\r\n",length);
- return(1); }
-read(file,buf,length);
-close(file);
-l=length-4;
-while(l>-1L) {
- fbacks=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- emails=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- posts=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- dlb=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- dls=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- ulb=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- uls=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- timeon=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- logons=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- timestamp=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
- |((long)buf[l+3]<<24);
- l-=4;
- unixtodos(timestamp-(24*60*60),&date,&curtime); /* 1 day less than stamp */
- printf("%2.2d/%2.2d/%2.2d T:%5lu L:%3lu P:%3lu "
- "E:%3lu F:%3lu U:%6luk %3lu D:%6luk %3lu\n"
- ,date.da_mon,date.da_day,date.da_year%100,timeon,logons,posts,emails
- ,fbacks,ulb/1024,uls,dlb/1024,dls);
- lncntr++;
- if(pause && lncntr>=20) {
- printf("[Hit a key]");
- if(getch()==3)
- break;
- printf("\r");
- lncntr=0; } }
-FREE(buf);
-return(0);
-}
diff --git a/src/sbbs2/smb/121a/chksmb.c b/src/sbbs2/smb/121a/chksmb.c
deleted file mode 100644
index 5cb0c8bdf74cf45045908a5c6df5886cfdb41514..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/chksmb.c
+++ /dev/null
@@ -1,671 +0,0 @@
-/* CHKSMB.C */
-
-#include <dos.h>
-#include "smblib.h"
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
-
-if(!_dos_findfirst(filespec,0,&f))
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns in 'string' a character representation of the number in l with */
-/* commas. */
-/****************************************************************************/
-char *ultoac(ulong l, char *string)
-{
- char str[256];
- signed char i,j,k;
-
-ultoa(l,str,10);
-i=strlen(str)-1;
-j=i/3+1+i;
-string[j--]=0;
-for(k=1;i>-1;k++) {
- string[j--]=str[i--];
- if(j>0 && !(k%3))
- string[j--]=','; }
-return(string);
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(fidoaddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-char *usage="\nusage: chksmb [/opts] <filespec.SHD>\n"
- "\n"
- " opts:\n"
- " s - stop after errored message base\n"
- " p - pause after errored messsage base\n"
- " q - quiet mode (no beeps while checking)\n"
- " t - don't check translation strings\n"
- " e - display extended info on corrupted msgs\n";
-
-int main(int argc, char **argv)
-{
- char str[128],*p,*s,*beep="\7";
- int i,j,x,y,lzh,errors,errlast,stop_on_error=0,pause_on_error=0
- ,chkxlat=1,lzhmsg,extinfo=0,msgerr;
- ushort xlat;
- ulong l,m,n,length,size,total=0,orphan=0,deleted=0,headers=0
- ,*offset,*number,xlaterr
- ,delhdrblocks,deldatblocks,hdrerr=0,lockerr=0,hdrnumerr=0
- ,acthdrblocks,actdatblocks
- ,dfieldlength=0,dfieldoffset=0
- ,dupenum=0,dupenumhdr=0,dupeoff=0,attr=0,actalloc=0
- ,datactalloc=0,misnumbered=0,timeerr=0,idxofferr=0,idxerr
- ,zeronum,idxzeronum,idxnumerr,packable=0L,totallzhsaved=0L
- ,totalmsgs=0,totallzhmsgs=0,totaldelmsgs=0,totalmsgbytes=0L
- ,lzhblocks,lzhsaved;
- idxrec_t idx;
- smbmsg_t msg;
- smbstatus_t status;
-
-fprintf(stderr,"\nCHKSMB v1.24 � Check Synchronet Message Base � "
- "Copyright 1995 Digital Dynamics\n");
-
-if(argc<2) {
- printf("%s",usage);
- exit(1); }
-
-errlast=errors=0;
-for(x=1;x<argc;x++) {
- if(stop_on_error && errors)
- break;
- if(pause_on_error && errlast!=errors) {
- fprintf(stderr,"\7\nHit any key to continue...");
- if(!getch())
- getch();
- printf("\n"); }
- errlast=errors;
- if(argv[x][0]=='/') {
- for(y=1;argv[x][y];y++)
- switch(toupper(argv[x][y])) {
- case 'Q':
- beep="";
- break;
- case 'P':
- pause_on_error=1;
- break;
- case 'S':
- stop_on_error=1;
- break;
- case 'T':
- chkxlat=0;
- break;
- case 'E':
- extinfo=1;
- break;
- default:
- printf("%s",usage);
- exit(1); }
- continue; }
-
-strcpy(smb_file,argv[x]);
-p=strrchr(smb_file,'.');
-s=strrchr(smb_file,'\\');
-if(p>s) *p=0;
-strupr(smb_file);
-
-sprintf(str,"%s.SHD",smb_file);
-if(!fexist(str)) {
- printf("\n%s doesn't exist.\n",smb_file);
- continue; }
-
-fprintf(stderr,"\nChecking %s Headers\n\n",smb_file);
-
-if((i=smb_open(10))!=0) {
- printf("smb_open returned %d\n",i);
- errors++;
- continue; }
-
-if(filelength(fileno(shd_fp))<sizeof(smbhdr_t)) {
- printf("Empty\n");
- smb_close();
- continue; }
-
-if((i=smb_locksmbhdr(10))!=0) {
- smb_close();
- printf("smb_locksmbhdr returned %d\n",i);
- errors++;
- continue; }
-
-if((i=smb_getstatus(&status))!=0) {
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_getstatus returned %d\n",i);
- errors++;
- continue; }
-
-
-length=filelength(fileno(shd_fp));
-
-if((length/SHD_BLOCK_LEN)*sizeof(ulong)) {
- if((number=(ulong *)MALLOC(((length/SHD_BLOCK_LEN)+2)*sizeof(ulong)))
- ==NULL) {
- printf("Error allocating %lu bytes of memory\n"
- ,(length/SHD_BLOCK_LEN)*sizeof(ulong));
- return(++errors); } }
-else
- number=NULL;
-
-if(!(status.attr&SMB_HYPERALLOC)) {
- if((i=smb_open_ha(10))!=0) {
- printf("smb_open_ha returned %d\n",i);
- return(++errors); }
-
- if((i=smb_open_da(10))!=0) {
- printf("smb_open_da returned %d\n",i);
- return(++errors); } }
-
-headers=deleted=orphan=dupenumhdr=attr=zeronum=timeerr=lockerr=hdrerr=0;
-actalloc=datactalloc=deldatblocks=delhdrblocks=xlaterr=0;
-lzhblocks=lzhsaved=acthdrblocks=actdatblocks=0;
-
-for(l=status.header_offset;l<length;l+=size) {
- fprintf(stderr,"\r%2u%% ",(long)(100.0/((float)length/l)));
- msg.idx.offset=l;
- msgerr=0;
- if((i=smb_lockmsghdr(msg,10))!=0) {
- printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
- lockerr++;
- headers++;
- size=SHD_BLOCK_LEN;
- continue; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- if(!(status.attr&SMB_HYPERALLOC)) {
- fseek(sha_fp,(l-status.header_offset)/SHD_BLOCK_LEN,SEEK_SET);
- j=fgetc(sha_fp);
- if(j) { /* Allocated block or at EOF */
- printf("%s\n(%06lX) smb_getmsghdr returned %d\n",beep,l,i);
- hdrerr++; }
- else
- delhdrblocks++; }
- else {
- /* printf("%s\n(%06lX) smb_getmsghdr returned %d\n",beep,l,i); */
- delhdrblocks++; }
- size=SHD_BLOCK_LEN;
- continue; }
- smb_unlockmsghdr(msg);
- fprintf(stderr,"#%-5lu (%06lX) %-25.25s ",msg.hdr.number,l,msg.from);
-
- lzhmsg=0;
- if(msg.hdr.attr&MSG_DELETE) {
- deleted++;
- if(number)
- number[headers]=0;
- if(status.attr&SMB_HYPERALLOC)
- deldatblocks+=smb_datblocks(smb_getmsgdatlen(msg)); }
- else {
- actdatblocks+=smb_datblocks(smb_getmsgdatlen(msg));
- if(msg.hdr.number>status.last_msg) {
- fprintf(stderr,"%sOut-Of-Range message number\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number (%lu) greater than last (%lu)\n"
- ,msg.hdr.number,status.last_msg);
- hdrnumerr++; }
-
- if(smb_getmsgidx(&msg)) {
- fprintf(stderr,"%sNot found in index\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number (%lu) not found in index\n"
- ,msg.hdr.number);
- orphan++; }
- else if(msg.hdr.attr!=msg.idx.attr) {
- fprintf(stderr,"%sAttributes mismatch index\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header attributes (%04X) do not match index "
- "attributes (%04X)\n"
- ,msg.hdr.attr,msg.idx.attr);
- attr++; }
- else if(msg.hdr.when_imported.time!=msg.idx.time) {
- fprintf(stderr,"%sImport date/time mismatch index\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header import date/time does not match "
- "index import date/time\n");
- timeerr++; }
-
- if(msg.hdr.number==0) {
- fprintf(stderr,"%sZero message number\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number is zero (invalid)\n");
- zeronum++; }
- if(number) {
- for(m=0;m<headers;m++)
- if(number[m] && msg.hdr.number==number[m]) {
- fprintf(stderr,"%sDuplicate message number\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number (%lu) duplicated\n"
- ,msg.hdr.number);
- dupenumhdr++;
- break; }
- number[headers]=msg.hdr.number; }
- if(chkxlat) { /* Check translation strings */
- for(i=0;i<msg.hdr.total_dfields;i++) {
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[i].offset,SEEK_SET);
- if(!fread(&xlat,2,1,sdt_fp))
- xlat=0xffff;
- lzh=0;
- if(xlat==XLAT_LZH) {
- lzh=1;
- if(!fread(&xlat,2,1,sdt_fp))
- xlat=0xffff; }
- if(xlat!=XLAT_NONE) {
- fprintf(stderr,"%sUnsupported Xlat %04X dfield[%u]\n"
- ,beep,xlat,i);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Unsupported translation type (%04X) "
- "in dfield[%u]\n"
- ,xlat,i);
- xlaterr++; }
- else {
- if(lzh) {
- lzhmsg=1;
- if(fread(&m,4,1,sdt_fp)) { /* Get uncompressed len */
- lzhsaved+=(smb_datblocks(m+2)
- -smb_datblocks(msg.dfield[i].length))
- *SDT_BLOCK_LEN;
- lzhblocks+=smb_datblocks(msg.dfield[i].length);
- } } } } } }
-
- size=smb_getmsghdrlen(msg);
- while(size%SHD_BLOCK_LEN)
- size++;
-
- if(!(status.attr&SMB_HYPERALLOC)) {
- fseek(sha_fp,(l-status.header_offset)/SHD_BLOCK_LEN,SEEK_SET);
- for(m=0;m<size;m+=SHD_BLOCK_LEN) {
-/***
- if(msg.hdr.attr&MSG_DELETE && (i=fgetc(sha_fp))!=0) {
- fprintf(stderr,"%sDeleted Header Block %lu marked %02X\n"
- ,beep,m/SHD_BLOCK_LEN,i);
- msgerr=1;
- delalloc++; }
-***/
- if(!(msg.hdr.attr&MSG_DELETE) && (i=fgetc(sha_fp))!=1) {
- fprintf(stderr,"%sActive Header Block %lu marked %02X\n"
- ,beep,m/SHD_BLOCK_LEN,i);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Active header block %lu marked %02X "
- "instead of 01\n"
- ,m/SHD_BLOCK_LEN,i);
- actalloc++; } }
-
- if(!(msg.hdr.attr&MSG_DELETE)) {
- acthdrblocks+=(size/SHD_BLOCK_LEN);
- for(n=0;n<msg.hdr.total_dfields;n++) {
- if(msg.dfield[n].offset&0x80000000UL) {
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Invalid Data Field [%u] Offset: %lu\n"
- ,n,msg.dfield[n].offset);
- dfieldoffset++; }
- if(msg.dfield[n].length&0x80000000UL) {
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Invalid Data Field [%u] Length: %lu\n"
- ,n,msg.dfield[n].length);
- dfieldlength++; }
- fseek(sda_fp
- ,((msg.hdr.offset+msg.dfield[n].offset)/SDT_BLOCK_LEN)*2
- ,SEEK_SET);
- for(m=0;m<msg.dfield[n].length;m+=SDT_BLOCK_LEN) {
- if(!fread(&i,2,1,sda_fp) || !i) {
- fprintf(stderr
- ,"%sActive Data Block %lu.%lu marked free\n"
- ,beep,n,m/SHD_BLOCK_LEN);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Active Data Block %lu.%lu "
- "marked free\n"
- ,n,m/SHD_BLOCK_LEN);
- datactalloc++; } } } }
- else
- delhdrblocks+=(size/SHD_BLOCK_LEN); }
-
- else { /* Hyper Alloc */
- if(msg.hdr.attr&MSG_DELETE)
- delhdrblocks+=(size/SHD_BLOCK_LEN);
- else
- acthdrblocks+=(size/SHD_BLOCK_LEN); }
-
- totallzhmsgs+=lzhmsg;
- headers++;
- if(msgerr && extinfo) {
- printf("\n");
- printf("%-20s: %s\n","Message Base",smb_file);
- printf("%-20s: %lu (%lu)\n","Message Number"
- ,msg.hdr.number,msg.offset+1);
- printf("%-20s: %s\n","Subject",msg.subj);
- printf("%-20s: %s","To",msg.to);
- if(msg.to_net.type)
- printf(" (%s)",msg.to_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.to_net.addr) : msg.to_net.addr);
- printf("\n%-20s: %s","From",msg.from);
- if(msg.from_net.type)
- printf(" (%s)",msg.from_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.from_net.addr)
- : msg.from_net.addr);
- printf("\n");
- printf("%-20s: %.24s\n","When Written"
- ,ctime((time_t *)&msg.hdr.when_written.time));
- printf("%-20s: %.24s\n","When Imported"
- ,ctime((time_t *)&msg.hdr.when_imported.time));
- printf("%-20s: %04hXh\n","Type"
- ,msg.hdr.type);
- printf("%-20s: %04hXh\n","Version"
- ,msg.hdr.version);
- printf("%-20s: %u\n","Length"
- ,msg.hdr.length);
- printf("%-20s: %04hXh\n","Attributes"
- ,msg.hdr.attr);
- printf("%-20s: %08lXh\n","Auxilary Attributes"
- ,msg.hdr.auxattr);
- printf("%-20s: %08lXh\n","Network Attributes"
- ,msg.hdr.netattr);
- printf("%-20s: %06lXh\n","Header Offset"
- ,msg.idx.offset);
- printf("%-20s: %06lXh\n","Data Offset"
- ,msg.hdr.offset);
- printf("%-20s: %u\n","Total Data Fields"
- ,msg.hdr.total_dfields);
- printf("\n"); }
-
- smb_freemsgmem(msg); }
-
-if(number)
- FREE(number);
-
-fprintf(stderr,"\r%79s\r100%%\n","");
-
-
-if(!(status.attr&SMB_HYPERALLOC)) {
-
- fprintf(stderr,"\nChecking %s Data Blocks\n\n",smb_file);
-
- length=filelength(fileno(sda_fp));
-
- fseek(sda_fp,0L,SEEK_SET);
- for(l=0;l<length;l+=2) {
- fprintf(stderr,"\r%2u%% ",l ? (long)(100.0/((float)length/l)) : 0);
- i=0;
- if(!fread(&i,2,1,sda_fp))
- break;
- if(!i)
- deldatblocks++; }
-
- fclose(sha_fp);
- fclose(sda_fp);
-
- fprintf(stderr,"\r%79s\r100%%\n",""); }
-
-total=filelength(fileno(sid_fp))/sizeof(idxrec_t);
-
-dupenum=dupeoff=misnumbered=idxzeronum=idxnumerr=idxofferr=idxerr=0;
-
-if(total) {
-
-fprintf(stderr,"\nChecking %s Index\n\n",smb_file);
-
-if((offset=(ulong *)MALLOC(total*sizeof(ulong)))==NULL) {
- printf("Error allocating %lu bytes of memory\n",total*sizeof(ulong));
- return(++errors); }
-if((number=(ulong *)MALLOC(total*sizeof(ulong)))==NULL) {
- printf("Error allocating %lu bytes of memory\n",total*sizeof(ulong));
- return(++errors); }
-fseek(sid_fp,0L,SEEK_SET);
-
-for(l=0;l<total;l++) {
- fprintf(stderr,"\r%2lu%% %5lu ",l ? (long)(100.0/((float)total/l)) : 0,l);
- if(!fread(&idx,sizeof(idxrec_t),1,sid_fp))
- break;
- fprintf(stderr,"#%-5lu (%06lX) 1st Pass ",idx.number,idx.offset);
-/***
- if(idx.attr&MSG_DELETE) {
- fprintf(stderr,"%sMarked for deletion\n",beep);
- delidx++; }
-***/
- for(m=0;m<l;m++)
- if(number[m]==idx.number) {
- fprintf(stderr,"%sDuplicate message number\n",beep);
- dupenum++;
- break; }
- for(m=0;m<l;m++)
- if(offset[m]==idx.offset) {
- fprintf(stderr,"%sDuplicate offset\n",beep,idx.offset);
- dupeoff++;
- break; }
- if(idx.offset<status.header_offset) {
- fprintf(stderr,"%sInvalid offset\n",beep);
- idxofferr++;
- break; }
- if(idx.number==0) {
- fprintf(stderr,"%sZero message number\n",beep);
- idxzeronum++;
- break; }
- if(idx.number>status.last_msg) {
- fprintf(stderr,"%sOut-Of-Range message number\n",beep);
- idxnumerr++;
- break; }
- number[l]=idx.number;
- offset[l]=idx.offset; }
-
-if(l<total) {
- fprintf(stderr,"%sError reading index record\n",beep);
- idxerr=1; }
-else {
- fprintf(stderr,"\r%79s\r","");
- for(m=0;m<total;m++) {
- fprintf(stderr,"\r%2lu%% %5lu ",m ? (long)(100.0/((float)total/m)) : 0,m);
- fprintf(stderr,"#%-5lu (%06lX) 2nd Pass ",number[m],offset[m]);
- for(n=0;n<m;n++)
- if(number[m] && number[n] && number[m]<number[n]) {
- fprintf(stderr,"%sMisordered message number\n",beep);
- misnumbered++;
- number[n]=0;
- break; } }
- fprintf(stderr,"\r%79s\r100%%\n",""); }
-FREE(number);
-FREE(offset);
-
-} /* if(total) */
-
-totalmsgs+=status.total_msgs;
-totalmsgbytes+=(acthdrblocks*SHD_BLOCK_LEN)+(actdatblocks*SDT_BLOCK_LEN);
-totaldelmsgs+=deleted;
-totallzhsaved+=lzhsaved;
-printf("\n");
-printf("%-35.35s (=): %lu\n"
- ,"Status Total"
- ,status.total_msgs);
-printf("%-35.35s (=): %lu\n"
- ,"Index Records"
- ,total);
-printf("%-35.35s (=): %lu\n"
- ,"Active Headers"
- ,headers-deleted);
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Active Header Blocks"
- ,acthdrblocks,ultoac(acthdrblocks*SHD_BLOCK_LEN,str));
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Active Data Blocks"
- ,actdatblocks,ultoac(actdatblocks*SDT_BLOCK_LEN,str));
-if(lzhblocks)
- printf("%-35.35s ( ): %-8lu %13s bytes saved\n"
- ,"Active LZH Compressed Data Blocks"
- ,lzhblocks,ultoac(lzhsaved,str));
-printf("%-35.35s ( ): %lu\n"
- ,"Header Records"
- ,headers);
-printf("%-35.35s ( ): %lu\n"
- ,"Deleted Headers"
- ,deleted);
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Deleted Header Blocks"
- ,delhdrblocks,ultoac(delhdrblocks*SHD_BLOCK_LEN,str));
-packable+=(delhdrblocks*SHD_BLOCK_LEN);
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Deleted Data Blocks"
- ,deldatblocks,ultoac(deldatblocks*SDT_BLOCK_LEN,str));
-packable+=(deldatblocks*SDT_BLOCK_LEN);
-
-if(orphan)
- printf("%-35.35s (!): %lu\n"
- ,"Orphaned Headers"
- ,orphan);
-if(idxzeronum)
- printf("%-35.35s (!): %lu\n"
- ,"Zeroed Index Numbers"
- ,idxzeronum);
-if(zeronum)
- printf("%-35.35s (!): %lu\n"
- ,"Zeroed Header Numbers"
- ,zeronum);
-/***
-if(delidx)
- printf("%-35.35s (!): %lu\n"
- ,"Deleted Index Records"
- ,delidx);
-***/
-if(idxofferr)
- printf("%-35.35s (!): %lu\n"
- ,"Invalid Index Offsets"
- ,idxofferr);
-if(dupenum)
- printf("%-35.35s (!): %lu\n"
- ,"Duplicate Index Numbers"
- ,dupenum);
-if(dupeoff)
- printf("%-35.35s (!): %lu\n"
- ,"Duplicate Index Offsets"
- ,dupeoff);
-if(dupenumhdr)
- printf("%-35.35s (!): %lu\n"
- ,"Duplicate Header Numbers"
- ,dupenumhdr);
-if(misnumbered)
- printf("%-35.35s (!): %lu\n"
- ,"Misordered Index Numbers"
- ,misnumbered);
-if(lockerr)
- printf("%-35.35s (!): %lu\n"
- ,"Unlockable Header Records"
- ,lockerr);
-if(hdrerr)
- printf("%-35.35s (!): %lu\n"
- ,"Unreadable Header Records"
- ,hdrerr);
-if(idxnumerr)
- printf("%-35.35s (!): %lu\n"
- ,"Out-Of-Range Index Numbers"
- ,idxnumerr);
-if(hdrnumerr)
- printf("%-35.35s (!): %lu\n"
- ,"Out-Of-Range Header Numbers"
- ,hdrnumerr);
-if(attr)
- printf("%-35.35s (!): %lu\n"
- ,"Mismatched Header Attributes"
- ,attr);
-if(timeerr)
- printf("%-35.35s (!): %lu\n"
- ,"Mismatched Header Import Time"
- ,timeerr);
-if(xlaterr)
- printf("%-35.35s (!): %lu\n"
- ,"Unsupported Translation Types"
- ,xlaterr);
-if(datactalloc)
- printf("%-35.35s (!): %lu\n"
- ,"Misallocated Active Data Blocks"
- ,datactalloc);
-if(actalloc)
- printf("%-35.35s (!): %lu\n"
- ,"Misallocated Active Header Blocks"
- ,actalloc);
-/***
-if(delalloc)
- printf("%-35.35s (!): %lu\n"
- ,"Misallocated Deleted Header Blocks"
- ,delalloc);
-***/
-
-if(dfieldoffset)
- printf("%-35.35s (!): %lu\n"
- ,"Invalid Data Field Offsets"
- ,dfieldoffset);
-
-if(dfieldlength)
- printf("%-35.35s (!): %lu\n"
- ,"Invalid Data Field Lengths"
- ,dfieldlength);
-
-
-printf("\n%s Message Base ",smb_file);
-if((headers-deleted)!=status.total_msgs || total!=status.total_msgs
- || (headers-deleted)!=total || idxzeronum || zeronum
- || orphan || dupenumhdr || dupenum || dupeoff || attr
- || lockerr || hdrerr || hdrnumerr || idxnumerr || idxofferr
- || actalloc || datactalloc || misnumbered || timeerr
- || dfieldoffset || dfieldlength || xlaterr || idxerr) {
- printf("%shas Errors!\n",beep);
- errors++; }
-else
- printf("is OK\n");
-
-smb_unlocksmbhdr();
-smb_close();
-}
-if(pause_on_error && errlast!=errors) {
- fprintf(stderr,"\7\nHit any key to continue...");
- if(!getch())
- getch();
- fprintf(stderr,"\n"); }
-
-if((totalmsgs && (totalmsgs!=status.total_msgs || totallzhmsgs))
- || packable)
- printf("\n");
-if(totalmsgs && totalmsgs!=status.total_msgs)
- printf("%-39.39s: %-8lu %13s bytes used\n"
- ,"Total Active Messages"
- ,totalmsgs,ultoac(totalmsgbytes,str));
-if(totallzhmsgs && totalmsgs!=status.total_msgs)
- printf("%-39.39s: %-8lu %13s bytes saved\n"
- ,"Total LZH Compressed Messages"
- ,totallzhmsgs,ultoac(totallzhsaved,str));
-if(packable)
- printf("%-39.39s: %-8lu %13s bytes used\n"
- ,"Total Deleted Messages"
- ,totaldelmsgs,ultoac(packable,str));
-
-return(errors);
-}
diff --git a/src/sbbs2/smb/121a/chksmb.mak b/src/sbbs2/smb/121a/chksmb.mak
deleted file mode 100644
index 1609c16ece6318aafb731e4aafce3f5910eecb25..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/chksmb.mak
+++ /dev/null
@@ -1,50 +0,0 @@
-###############################
-# Makefile for CHKSMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-MAIN = chksmb.exe
-OBJS = $(MODEL)\chksmb.obj $(MODEL)\smblib.obj $(MODEL)\smbvars.obj
-HEADERS = smblib.h smbdefs.h crc32.h
-
-!ifdef __OS2__
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;smb
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE)
-LFLAGS = -c -w-srf
-!endif
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(MODEL) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\os2.lib $(LI$(MODEL)\B)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# All .obj modules
-$(MODEL)\chksmb.obj: $(HEADERS)
-$(MODEL)\smbvars.obj: $(HEADERS)
-$(MODEL)\smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/crc16.c b/src/sbbs2/smb/121a/crc16.c
deleted file mode 100644
index dc899629401fb12ee443dd2dd22c36c65911c731..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/crc16.c
+++ /dev/null
@@ -1,37 +0,0 @@
-/* CRC16.C */
-
-/* 16-bit CRC routines */
-
-#include "smblib.h"
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
diff --git a/src/sbbs2/smb/121a/crc32.h b/src/sbbs2/smb/121a/crc32.h
deleted file mode 100644
index a5d5162fb2fbae6acfb7b5a18d0502d2d1339b93..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/crc32.h
+++ /dev/null
@@ -1,40 +0,0 @@
-/* 32-bit CRC */
-
-long crc32tbl[]={ /* CRC polynomial 0xedb88320 */
-0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
-0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988, 0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
-0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
-0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
-0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172, 0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
-0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
-0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
-0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924, 0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
-0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
-0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
-0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e, 0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
-0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
-0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
-0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0, 0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
-0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
-0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
-0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a, 0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
-0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
-0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
-0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc, 0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
-0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
-0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
-0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236, 0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
-0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
-0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
-0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38, 0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
-0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
-0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
-0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2, 0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
-0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
-0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
-0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94, 0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
-};
-
-#define ucrc32(ch,crc) (crc32tbl[(crc^ch)&0xff]^(crc>>8))
-
-
diff --git a/src/sbbs2/smb/121a/fido2smb.c b/src/sbbs2/smb/121a/fido2smb.c
deleted file mode 100644
index c366b56fbce2634d7fba0483a6d99eba86d5b7e8..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/fido2smb.c
+++ /dev/null
@@ -1,502 +0,0 @@
-/* FIDO2SMB.C */
-
-/* Converts FidoNet FTSC-1 (*.MSG) message base to SMB format */
-
-/* The intention of this source code is an example of how to use the SMBLIB */
-/* library functions to access an SMB format message base. */
-
-/* This program and source code are freeware. May be used in part or whole */
-/* for any purpose without consent or notification of Digital Dynamics. */
-
-/* Digital Dynamics does request that developers that release products that */
-/* support the SMB format notify Digital Dynamics so the implementation */
-/* and contact chapters in the technical specification may be updated. */
-
-#include "smblib.h"
-#include "crc32.h"
-#include <dos.h>
- /* Attribute bits for fido msg header */
-#define FIDO_PRIVATE (1<<0) /* Private message */
-#define FIDO_CRASH (1<<1) /* Crash-mail (send immediately) */
-#define FIDO_RECV (1<<2) /* Received successfully */
-#define FIDO_SENT (1<<3) /* Sent successfully */
-#define FIDO_FILE (1<<4) /* File attached */
-#define FIDO_INTRANS (1<<5) /* In transit */
-#define FIDO_ORPHAN (1<<6) /* Orphan */
-#define FIDO_KILLSENT (1<<7) /* Kill it after sending it */
-#define FIDO_LOCAL (1<<8) /* Created locally - on this system */
-#define FIDO_HOLD (1<<9) /* Hold - don't send it yet */
-#define FIDO_FREQ (1<<11) /* File request */
-#define FIDO_RRREQ (1<<12) /* Return receipt request */
-#define FIDO_RR (1<<13) /* This is a return receipt */
-#define FIDO_AUDIT (1<<14) /* Audit request */
-#define FIDO_FUPREQ (1<<15) /* File update request */
-
-typedef struct { /* FidoNet msg header */
- uchar from[36], /* From user */
- to[36], /* To user */
- subj[72], /* Message title */
- time[20]; /* Time in goof-ball ASCII format */
- short read, /* Times read */
- destnode, /* Destination node */
- orignode, /* Origin node */
- cost, /* Cost in pennies */
- orignet, /* Origin net */
- destnet, /* Destination net */
- destzone, /* Destination zone */
- origzone, /* Origin zone */
- destpoint, /* Destination point */
- origpoint, /* Origin point */
- re, /* Message number regarding */
- attr, /* Attributes - see FIDO_* */
- next; /* Next message number in stream */
- } fmsghdr_t;
-
-/******************************************/
-/* CRC-16 routines required for SMB index */
-/******************************************/
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=' ') c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(f.ff_fsize);
-return(-1L);
-}
-
-/****************************************************************************/
-/* Returns the FidoNet address kept in str as ASCII. */
-/****************************************************************************/
-fidoaddr_t atofaddr(char *str)
-{
- char *p;
- fidoaddr_t addr;
-
-addr.zone=addr.net=addr.node=addr.point=0;
-if((p=strchr(str,':'))!=NULL) {
- addr.zone=atoi(str);
- addr.net=atoi(p+1); }
-else {
- addr.zone=1;
- addr.net=atoi(str); }
-if(!addr.zone) /* no such thing as zone 0 */
- addr.zone=1;
-if((p=strchr(str,'/'))!=NULL)
- addr.node=atoi(p+1);
-else {
- addr.net=1;
- addr.node=atoi(str); }
-if((p=strchr(str,'.'))!=NULL)
- addr.point=atoi(p+1);
-return(addr);
-}
-
-/****************************************************************************/
-/* Converts goofy FidoNet time format into Unix format */
-/****************************************************************************/
-time_t fmsgtime(char *str)
-{
- char month[4];
- struct date date;
- struct time t;
-
-if(isdigit(str[1])) { /* Regular format: "01 Jan 86 02:34:56" */
- date.da_day=atoi(str);
- sprintf(month,"%3.3s",str+3);
- if(!stricmp(month,"jan"))
- date.da_mon=1;
- else if(!stricmp(month,"feb"))
- date.da_mon=2;
- else if(!stricmp(month,"mar"))
- date.da_mon=3;
- else if(!stricmp(month,"apr"))
- date.da_mon=4;
- else if(!stricmp(month,"may"))
- date.da_mon=5;
- else if(!stricmp(month,"jun"))
- date.da_mon=6;
- else if(!stricmp(month,"jul"))
- date.da_mon=7;
- else if(!stricmp(month,"aug"))
- date.da_mon=8;
- else if(!stricmp(month,"sep"))
- date.da_mon=9;
- else if(!stricmp(month,"oct"))
- date.da_mon=10;
- else if(!stricmp(month,"nov"))
- date.da_mon=11;
- else
- date.da_mon=12;
- date.da_year=1900+atoi(str+7);
- t.ti_hour=atoi(str+11);
- t.ti_min=atoi(str+14);
- t.ti_sec=atoi(str+17); }
-
-else { /* SEAdog format: "Mon 1 Jan 86 02:34" */
- date.da_day=atoi(str+4);
- sprintf(month,"%3.3s",str+7);
- if(!stricmp(month,"jan"))
- date.da_mon=1;
- else if(!stricmp(month,"feb"))
- date.da_mon=2;
- else if(!stricmp(month,"mar"))
- date.da_mon=3;
- else if(!stricmp(month,"apr"))
- date.da_mon=4;
- else if(!stricmp(month,"may"))
- date.da_mon=5;
- else if(!stricmp(month,"jun"))
- date.da_mon=6;
- else if(!stricmp(month,"jul"))
- date.da_mon=7;
- else if(!stricmp(month,"aug"))
- date.da_mon=8;
- else if(!stricmp(month,"sep"))
- date.da_mon=9;
- else if(!stricmp(month,"oct"))
- date.da_mon=10;
- else if(!stricmp(month,"nov"))
- date.da_mon=11;
- else
- date.da_mon=12;
- date.da_year=1900+atoi(str+11);
- t.ti_hour=atoi(str+14);
- t.ti_min=atoi(str+17);
- t.ti_sec=0; }
-return(dostounix(&date,&t));
-}
-
-/****************************************************************************/
-/* Entry point - if you didn't know that, maybe you shouldn't be reading :) */
-/****************************************************************************/
-int main(int argc, char **argv)
-{
- uchar *p,str[128],*fbuf,*sbody,*stail,ch,done;
- ushort xlat,net;
- int i,j,file,col,cr,esc,orig,last,msgs,found;
- ulong l,m,length,bodylen,taillen,crc;
- struct ffblk ff;
- smbmsg_t msg;
- smbstatus_t status;
- fmsghdr_t fmsghdr;
- fidoaddr_t destaddr,origaddr,faddr;
-
-if(argc<3) {
- printf("usage: fido2smb <fido_dir> <smb_name>\r\n");
- exit(1); }
-
-strcpy(smb_file,argv[2]);
-strupr(smb_file);
-
-smb_open(10);
-if(!filelength(fileno(shd_fp)))
- smb_create(2000,2000,0,0,10);
-
-smb_getstatus(&status); // Initialized for first call to smb_addcrc()
-
-/*********************************************/
-/* Get the total number of .MSG files in dir */
-/*********************************************/
-printf("\nCounting messages...");
-sprintf(str,"%s\\*.MSG",argv[1]);
-last=findfirst(str,&ff,0);
-for(msgs=0;!last;msgs++)
- last=findnext(&ff);
-printf("\n%u messages.\n",msgs);
-
-/******************************************/
-/* Convert in sequence, starting at 1.MSG */
-/******************************************/
-for(i=1,found=0;found<msgs && i<2000;i++) {
- sprintf(str,"%s\\%u.MSG",argv[1],i);
- if((file=open(str,O_RDONLY|O_BINARY))==-1)
- continue;
- found++;
- strupr(str);
- printf("%s\n",str);
- read(file,&fmsghdr,sizeof(fmsghdr_t));
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
- if(fmsghdr.attr&FIDO_PRIVATE)
- msg.idx.attr|=MSG_PRIVATE;
- msg.hdr.attr=msg.idx.attr;
-
- msg.hdr.when_imported.time=time(NULL);
- msg.hdr.when_written.time=fmsgtime(fmsghdr.time);
-
- origaddr.zone=fmsghdr.origzone; /* only valid if NetMail */
- origaddr.net=fmsghdr.orignet;
- origaddr.node=fmsghdr.orignode;
- origaddr.point=fmsghdr.origpoint;
-
- destaddr.zone=fmsghdr.destzone; /* only valid if NetMail */
- destaddr.net=fmsghdr.destnet;
- destaddr.node=fmsghdr.destnode;
- destaddr.point=fmsghdr.destpoint;
-
- smb_hfield(&msg,SENDER,strlen(fmsghdr.from),fmsghdr.from);
- strlwr(fmsghdr.from);
- msg.idx.from=crc16(fmsghdr.from);
-
- smb_hfield(&msg,RECIPIENT,strlen(fmsghdr.to),fmsghdr.to);
- strlwr(fmsghdr.to);
- msg.idx.to=crc16(fmsghdr.to);
-
- smb_hfield(&msg,SUBJECT,strlen(fmsghdr.subj),fmsghdr.subj);
- strlwr(fmsghdr.subj);
- msg.idx.subj=crc16(fmsghdr.subj);
-
- length=filelength(file)-sizeof(fmsghdr_t);
- if((fbuf=(char *)MALLOC(length))==NULL) {
- printf("alloc error\n");
- exit(1); }
- if((sbody=(char *)MALLOC(length*2L))==NULL) {
- printf("alloc error\n");
- exit(1); }
- if((stail=(char *)MALLOC(length))==NULL) {
- printf("alloc error\n");
- exit(1); }
- read(file,fbuf,length);
- close(file);
-
- for(col=l=esc=done=bodylen=taillen=orig=0,cr=1;l<length;l++) {
- ch=fbuf[l];
- if(ch==1 && cr) { /* kludge line */
-
- if(!strncmp(fbuf+l+1,"TOPT ",5))
- destaddr.point=atoi(fbuf+l+6);
-
- else if(!strncmp(fbuf+l+1,"FMPT ",5))
- origaddr.point=atoi(fbuf+l+6);
-
- else if(!strncmp(fbuf+l+1,"INTL ",5)) {
- faddr=atofaddr(fbuf+l+6);
- destaddr.zone=faddr.zone;
- destaddr.net=faddr.net;
- destaddr.node=faddr.node;
- l+=6;
- while(l<length && fbuf[l]!=SP) l++;
- faddr=atofaddr(fbuf+l+1);
- origaddr.zone=faddr.zone;
- origaddr.net=faddr.net;
- origaddr.node=faddr.node; }
-
- else if(!strncmp(fbuf+l+1,"MSGID:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOMSGID,m-l,fbuf+l); }
-
- else if(!strncmp(fbuf+l+1,"REPLY:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOREPLYID,m-l,fbuf+l); }
-
- else if(!strncmp(fbuf+l+1,"FLAGS:",6)) {
- l+=7;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOFLAGS,m-l,fbuf+l); }
-
- else if(!strncmp(fbuf+l+1,"PATH:",5)) {
- l+=6;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOPATH,m-l,fbuf+l); }
-
- else if(!strncmp(fbuf+l+1,"PID:",4)) {
- l+=5;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOPID,m-l,fbuf+l); }
-
- else { /* Unknown kludge line */
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOCTRL,m-l,fbuf+l); }
-
- while(l<length && fbuf[l]!=CR) l++;
- continue; }
-
- if(ch!=LF && ch!=0x8d) { /* ignore LF and soft CRs */
- if(cr && (!strncmp((char *)fbuf+l,"--- ",4)
- || !strncmp((char *)fbuf+l,"---\r",4)))
- done=1; /* tear line and down go into tail */
- if(done && cr && !strncmp(fbuf+l,"SEEN-BY:",8)) {
- l+=8;
- while(l<length && fbuf[l]<=SP) l++;
- m=l;
- while(m<length && fbuf[m]!=CR) m++;
- while(m && fbuf[m-1]<=SP) m--;
- if(m>l)
- smb_hfield(&msg,FIDOSEENBY,m-l,fbuf+l);
- while(l<length && fbuf[l]!=CR) l++;
- continue; } /* skip the CR */
- if(done)
- stail[taillen++]=ch;
- else
- sbody[bodylen++]=ch;
- col++;
- if(ch==CR) {
- cr=1;
- col=0;
- if(done)
- stail[taillen++]=LF;
- else
- sbody[bodylen++]=LF; }
- else {
- cr=0;
- if(col==1 && !strncmp((char *)fbuf+l," * Origin: ",11)) {
- p=strchr(fbuf+l+11,CR); /* find carriage return */
- while(p && *p!='(') p--; /* rewind to '(' */
- if(p)
- origaddr=atofaddr(p+1); /* get orig address */
- orig=done=1; }
- if(done)
- continue;
-
- if(ch==ESC) esc=1; /* ANSI codes */
- if(ch==SP && col>40 && !esc) { /* word wrap */
- for(m=l+1;m<length;m++) /* find next space */
- if(fbuf[m]<=SP)
- break;
- if(m<length && m-l>80-col) { /* if it's beyond the eol */
- sbody[bodylen++]=CR;
- sbody[bodylen++]=LF;
- col=0; } }
- } } }
-
- if(bodylen>=2 && sbody[bodylen-2]==CR && sbody[bodylen-1]==LF)
- bodylen-=2; /* remove last CRLF if present */
-
- for(l=0,crc=0xffffffff;l<bodylen;l++)
- crc=ucrc32(sbody[l],crc);
- crc=~crc;
-
- j=smb_addcrc(status.max_crcs,crc,10);
- if(j) {
- if(j==1) {
- printf("\nDuplicate message\n");
- smb_freemsgmem(msg);
- FREE(fbuf);
- FREE(sbody);
- FREE(stail);
- continue; }
- printf("smb_addcrc returned %d\n",j);
- exit(1); }
-
- while(taillen && stail[taillen-1]<=SP) /* trim all garbage off the tail */
- taillen--;
-
- net=NET_FIDO; /* Record origin address */
- smb_hfield(&msg,SENDERNETTYPE,sizeof(ushort),&net);
- smb_hfield(&msg,SENDERNETADDR,sizeof(fidoaddr_t),&origaddr);
-
- if(!orig) { /* No origin line means NetMail, so add dest addr */
- smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(ushort),&net);
- smb_hfield(&msg,RECIPIENTNETADDR,sizeof(fidoaddr_t),&destaddr); }
-
- if(smb_open_da(10)) {
- printf("error opening %s.SDA\n",smb_file);
- exit(1); }
- l=bodylen+2;
- if(taillen)
- l+=(taillen+2);
- msg.hdr.offset=smb_fallocdat(l,1);
- fclose(sda_fp);
- if(msg.hdr.offset && msg.hdr.offset<1L) {
- printf("error %ld allocating records\r\n",msg.hdr.offset);
- exit(1); }
- fseek(sdt_fp,msg.hdr.offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,sdt_fp);
- l=ftell(sdt_fp);
- fwrite(sbody,SDT_BLOCK_LEN,smb_datblocks(bodylen),sdt_fp);
- if(taillen) {
- fseek(sdt_fp,l+bodylen,SEEK_SET);
- fwrite(&xlat,2,1,sdt_fp);
- fwrite(stail,SDT_BLOCK_LEN,smb_datblocks(taillen),sdt_fp); }
- fflush(sdt_fp);
- FREE(fbuf);
- FREE(sbody);
- FREE(stail);
-
- smb_dfield(&msg,TEXT_BODY,bodylen+2);
- if(taillen)
- smb_dfield(&msg,TEXT_TAIL,taillen+2);
-
- smb_addmsghdr(&msg,&status,1,10);
- smb_freemsgmem(msg); }
-
-printf("\n%u messages converted.\n",found);
-return(0);
-}
-
diff --git a/src/sbbs2/smb/121a/fido2smb.mak b/src/sbbs2/smb/121a/fido2smb.mak
deleted file mode 100644
index 018d5792e571dfb762346262d47d811a2fff8992..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/fido2smb.mak
+++ /dev/null
@@ -1,34 +0,0 @@
-###############################
-# Makefile for FIDO2SMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include
-LIB = \bc31\lib
-MODEL = s
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-MAIN = fido2smb.exe
-OBJS = fido2smb.obj smblib.obj smbvars.obj
-HEADERS = smblib.h smbdefs.h crc32.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+ $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-# All .obj modules
-fido2smb.obj: $(HEADERS)
-smbvars.obj: $(HEADERS)
-smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/file_id.diz b/src/sbbs2/smb/121a/file_id.diz
deleted file mode 100644
index be69095651638e4ab36f209e25fa0b20d95b59f5..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/file_id.diz
+++ /dev/null
@@ -1,10 +0,0 @@
-Synchronet Message Base Specification v1.21a
-Released 08/31/95. Designed for high volume,
-high speed, multi-network, multimedia e-mail
-storage and retrieval. Includes comprehensive
-95 page technical specification, 38 function
-royalty free C library, tons of C source code
-including conversion programs from QWK, Fido
-(FTSC-1), and Internet (RFC-822) messages.
-New: Hyper Allocation storage method and LZH
-compression/decompression functions.
diff --git a/src/sbbs2/smb/121a/fixsmb.c b/src/sbbs2/smb/121a/fixsmb.c
deleted file mode 100644
index cf522e0175b1913359a6cc9c8fee895c0de6e85a..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/fixsmb.c
+++ /dev/null
@@ -1,221 +0,0 @@
-/* FIXSMB.C */
-
-/* Re-generates an SMB message base based on SHD and SDT files */
-
-#include "smblib.h"
-
-char *usage="usage: fixsmb [/opts] <smb_file>\n"
- "\n"
- " opts:\n"
- " m - force mail format instead of sub-board format\n"
- "\n"
- " ex: FIXSMB /M MAIL\n"
- " or: FIXSMB DEBATE\n";
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-#define MAIL (1<<0)
-
-int main(int argc, char **argv)
-{
- char str[128],c;
- int i,w,mode=0;
- ulong l,length,size,n,m;
- smbmsg_t msg;
- smbstatus_t status;
-
-printf("\nFIXSMB v1.22 � Rebuild Synchronet Message Base � Copyright 1995 "
- "Digital Dynamics\n");
-
-smb_file[0]=0;
-for(i=1;i<argc;i++)
- if(argv[i][0]=='/')
- switch(toupper(argv[i][1])) {
- case 'M':
- mode|=MAIL;
- break;
- default:
- printf(usage);
- exit(1); }
- else
- strcpy(smb_file,argv[i]);
-
-if(!smb_file[0]) {
- printf(usage);
- exit(1); }
-
-strupr(smb_file);
-
-if((i=smb_open(10))!=0) {
- printf("smb_open returned %d\n",i);
- exit(1); }
-
-if((i=smb_locksmbhdr(10))!=0) {
- smb_close();
- printf("smb_locksmbhdr returned %d\n",i);
- exit(1); }
-
-if((i=smb_getstatus(&status))!=0) {
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_getstatus returned %d\n",i);
- exit(1); }
-
-if(mode&MAIL && !(status.attr&SMB_EMAIL)) {
- status.attr|=SMB_EMAIL;
- if((i=smb_putstatus(status))!=0) {
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_putstatus returned %d\n",i);
- exit(1); } }
-
-if(!(status.attr&SMB_HYPERALLOC)) {
-
- if((i=smb_open_ha(10))!=0) {
- smb_close();
- printf("smb_open_ha returned %d\n",i);
- exit(1); }
-
- if((i=smb_open_da(10))!=0) {
- smb_close();
- printf("smb_open_da returned %d\n",i);
- exit(1); }
-
- rewind(sha_fp);
- chsize(fileno(sha_fp),0L); /* Truncate the header allocation file */
- rewind(sda_fp);
- chsize(fileno(sda_fp),0L); /* Truncate the data allocation file */
- }
-
-rewind(sid_fp);
-chsize(fileno(sid_fp),0L); /* Truncate the index */
-
-
-if(!(status.attr&SMB_HYPERALLOC)) {
- length=filelength(fileno(sdt_fp));
- w=0;
- for(l=0;l<length;l+=SDT_BLOCK_LEN) /* Init .SDA file to NULL */
- fwrite(&w,2,1,sda_fp);
-
- length=filelength(fileno(shd_fp));
- c=0;
- for(l=0;l<length;l+=SHD_BLOCK_LEN) /* Init .SHD file to NULL */
- fwrite(&c,1,1,sha_fp); }
-else
- length=filelength(fileno(shd_fp));
-
-n=1; /* messsage number */
-for(l=status.header_offset;l<length;l+=size) {
- printf("\r%2u%% ",(long)(100.0/((float)length/l)));
- msg.idx.offset=l;
- if((i=smb_lockmsghdr(msg,10))!=0) {
- printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
- continue; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("\n(%06lX) smb_getmsghdr returned %d\n",l,i);
- size=SHD_BLOCK_LEN;
- continue; }
- smb_unlockmsghdr(msg);
- printf("#%-5lu (%06lX) %-25.25s ",msg.hdr.number,l,msg.from);
- if(!(msg.hdr.attr&MSG_DELETE)) { /* Don't index deleted messages */
- msg.offset=n-1;
- msg.hdr.number=n;
- msg.idx.number=n;
- msg.idx.attr=msg.hdr.attr;
- msg.idx.time=msg.hdr.when_imported.time;
- strcpy(str,msg.subj);
- strlwr(str);
- remove_re(str);
- msg.idx.subj=crc16(str);
- if(status.attr&SMB_EMAIL) {
- if(msg.to_ext)
- msg.idx.to=atoi(msg.to_ext);
- else
- msg.idx.to=0;
- if(msg.from_ext)
- msg.idx.from=atoi(msg.from_ext);
- else
- msg.idx.from=0; }
- else {
- strcpy(str,msg.to);
- strlwr(str);
- msg.idx.to=crc16(str);
- strcpy(str,msg.from);
- strlwr(str);
- msg.idx.from=crc16(str); }
- if((i=smb_putmsg(msg))!=0) {
- printf("\nsmb_putmsg returned %d\n",i);
- continue; }
- n++; }
- else
- printf("Not indexing deleted message\n");
- size=smb_getmsghdrlen(msg);
- while(size%SHD_BLOCK_LEN)
- size++;
-
- if(!(status.attr&SMB_HYPERALLOC)) {
- /**************************/
- /* Allocate header blocks */
- /**************************/
- fseek(sha_fp,(l-status.header_offset)/SHD_BLOCK_LEN,SEEK_SET);
- if(msg.hdr.attr&MSG_DELETE) c=0; /* mark as free */
- else c=1; /* or allocated */
-
- for(i=0;i<size/SHD_BLOCK_LEN;i++)
- fputc(c,sha_fp);
-
- /************************/
- /* Allocate data blocks */
- /************************/
-
- if(!(msg.hdr.attr&MSG_DELETE))
- smb_incdat(msg.hdr.offset,smb_getmsgdatlen(msg),1);
- }
-
- smb_freemsgmem(msg); }
-printf("\nDone.\n");
-status.total_msgs=status.last_msg=n-1;
-if((i=smb_putstatus(status))!=0)
- printf("\nsmb_putstatus returned %d\n",i);
-smb_unlocksmbhdr();
-smb_close();
-return(0);
-}
diff --git a/src/sbbs2/smb/121a/fixsmb.mak b/src/sbbs2/smb/121a/fixsmb.mak
deleted file mode 100644
index cdb9fbc2842a15dc746e5f89dc5512f80ae0c77a..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/fixsmb.mak
+++ /dev/null
@@ -1,34 +0,0 @@
-###############################
-# Makefile for FIXSMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-MAIN = fixsmb.exe
-OBJS = $(MODEL)\fixsmb.obj $(MODEL)\smblib.obj $(MODEL)\smbvars.obj
-HEADERS = smblib.h smbdefs.h crc32.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(MODEL) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+ $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-# All .obj modules
-$(MODEL)\fixsmb.obj: $(HEADERS)
-$(MODEL)\smbvars.obj: $(HEADERS)
-$(MODEL)\smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/inet2smb.c b/src/sbbs2/smb/121a/inet2smb.c
deleted file mode 100644
index beb692af1ed9347cff0bda4a9a6c60fb08d2ca58..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/inet2smb.c
+++ /dev/null
@@ -1,312 +0,0 @@
-/* Converts RFC #822 Internet Text Messages to SMB format */
-
-#include <dos.h>
-#include "smblib.h"
-
-/******************************************************************************
- Chops off the ":" and all spaces and tabs after it for the message headers
-******************************************************************************/
-char *header(char *instr)
-{
- char str[256],*p;
- int i=0;
-
- p=strstr(instr,":");
- ++p;
- while(*p==SP || *p==TAB)
- ++p;
- while(i<strlen(p)) {
- if(p[i]==LF || p[i]==CR) {
- p[i]=0;
- break; }
- ++i; }
- return p;
-}
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/******************************************************************************
- Converts ASCII time in RFC 822 or RFC 1036 format to SMB when_t format
-******************************************************************************/
-when_t imsgtime(char *str)
-{
- char month[25],zone[25],*p;
- struct date date;
- struct time t;
- when_t when;
-
-when.zone=0; /* Default to UT */
-
-if(isdigit(str[1])) { /* Regular format: "01 Jan 86 0234 GMT" */
- date.da_day=atoi(str);
- sprintf(month,"%3.3s",str+3);
- if(!stricmp(month,"jan"))
- date.da_mon=1;
- else if(!stricmp(month,"feb"))
- date.da_mon=2;
- else if(!stricmp(month,"mar"))
- date.da_mon=3;
- else if(!stricmp(month,"apr"))
- date.da_mon=4;
- else if(!stricmp(month,"may"))
- date.da_mon=5;
- else if(!stricmp(month,"jun"))
- date.da_mon=6;
- else if(!stricmp(month,"jul"))
- date.da_mon=7;
- else if(!stricmp(month,"aug"))
- date.da_mon=8;
- else if(!stricmp(month,"sep"))
- date.da_mon=9;
- else if(!stricmp(month,"oct"))
- date.da_mon=10;
- else if(!stricmp(month,"nov"))
- date.da_mon=11;
- else
- date.da_mon=12;
- date.da_year=1900+atoi(str+7);
- t.ti_hour=atoi(str+10);
- t.ti_min=atoi(str+12);
- t.ti_sec=0;
- p=str+13; }
-
-else { /* USENET format: "Mon, 1 Jan 86 02:34:00 GMT" */
- date.da_day=atoi(str+5);
- sprintf(month,"%3.3s",str+8);
- if(!stricmp(month,"jan"))
- date.da_mon=1;
- else if(!stricmp(month,"feb"))
- date.da_mon=2;
- else if(!stricmp(month,"mar"))
- date.da_mon=3;
- else if(!stricmp(month,"apr"))
- date.da_mon=4;
- else if(!stricmp(month,"may"))
- date.da_mon=5;
- else if(!stricmp(month,"jun"))
- date.da_mon=6;
- else if(!stricmp(month,"jul"))
- date.da_mon=7;
- else if(!stricmp(month,"aug"))
- date.da_mon=8;
- else if(!stricmp(month,"sep"))
- date.da_mon=9;
- else if(!stricmp(month,"oct"))
- date.da_mon=10;
- else if(!stricmp(month,"nov"))
- date.da_mon=11;
- else
- date.da_mon=12;
- date.da_year=atoi(str+12);
- if(date.da_year<100)
- date.da_year+=1900;
- p=str+12;
- while(*p!=SP) p++; /* skip the year */
- while(*p==SP) p++; /* and white space */
- t.ti_hour=atoi(p);
- t.ti_min=atoi(p+3);
- t.ti_sec=atoi(p+6);
- p=str+22; }
-
-when.time=dostounix(&date,&t);
-
-while(*p!=SP) p++; /* skip the time */
-while(*p==SP) p++; /* and white space */
-
-sprintf(zone,"%-.5s",p);
-
-/* Get the zone */
-if(!strcmpi(zone,"GMT") || !strcmpi(zone,"UT"))
- when.zone=0;
-else if(!strcmpi(zone,"EST"))
- when.zone=EST;
-else if(!strcmpi(zone,"EDT"))
- when.zone=EDT;
-else if(!strcmpi(zone,"MST"))
- when.zone=MST;
-else if(!strcmpi(zone,"MDT"))
- when.zone=MDT;
-else if(!strcmpi(zone,"CST"))
- when.zone=CST;
-else if(!strcmpi(zone,"CDT"))
- when.zone=CDT;
-else if(!strcmpi(zone,"PST"))
- when.zone=PST;
-else if(!strcmpi(zone,"PDT"))
- when.zone=PDT;
-
-else if(isalpha(zone[0]) && !zone[1]) { /* Military single character zone */
- zone[0]&=0xdf; /* convert to upper case */
- if(zone[0]>='A' && zone[0]<='I')
- when.zone='@'-zone[0];
- else if(zone[0]>='K' && zone[0]<='M') /* J is not used */
- when.zone='A'-zone[0];
- else if(zone[0]>='N' && zone[0]<='Y')
- when.zone=zone[0]-'M'; }
-
-else if((zone[0]=='+' || zone[0]=='-') && isdigit(zone[1])) { /* Literal */
- when.zone=(((zone[1]&0xf)*10)+(zone[2]&0xf))*60; /* Hours */
- when.zone+=atoi(zone+3); /* Minutes */
- if(zone[0]=='-') /* Negative? */
- when.zone=-when.zone; }
-
-return(when);
-}
-
-void main(int argc, char **argv)
-{
- FILE *stream;
- char str[256]={NULL},filespec[256],file[256],*p,*abuf;
- ushort i,xlat,net;
- ulong l,length,datlen;
- struct ffblk ff;
- smbmsg_t msg;
- smbstatus_t status;
-
- if(argc<2) {
- printf("Usage: INET2SMB <file_spec> <smb_name>\r\n");
- exit(1); }
-
- strcpy(filespec,argv[1]);
- strcpy(smb_file,argv[2]);
- strupr(smb_file);
-
- smb_open(10);
- if(!filelength(fileno(shd_fp)))
- smb_create(2000,2000,0,0,10);
-
- i=findfirst(filespec,&ff,0);
- while(!i) {
- sprintf(file,"%s",ff.ff_name);
- if((stream=fopen(file,"rb"))==NULL) {
- printf("Error opening %s\r\n",file);
- break; }
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
- msg.hdr.when_imported.time=time(NULL);
- msg.hdr.when_imported.zone=PST; /* set to local time zone */
-
- while(str[0]!=CR && str[0]!=LF) {
- fgets(str,81,stream);
- if(!strnicmp(str,"Resent-",6)) {
- p=strstr(str,"Resent-");
- sprintf(str,"%s",p); }
- if(!strnicmp(str,"Return-Path",11)
- || !strnicmp(str,"Path",4)) {
- strcpy(str,header(str));
- smb_hfield(&msg,REPLYTO,strlen(str),str); }
- else if(!strnicmp(str,"Date",4)) {
- strcpy(str,header(str));
- msg.hdr.when_written=imsgtime(str); }
- else if(!strnicmp(str,"From",4) || !strnicmp(str,"Sender",6)) {
- strcpy(str,header(str));
- p=strstr(str," (");
- if(p) {
- *p=0;
- *(p+1)=0;
- p+=2;
- smb_hfield(&msg,SENDERNETADDR,strlen(str),str);
- sprintf(str,"%s",p);
- p=strstr(str,")");
- *p=0; }
- smb_hfield(&msg,SENDER,strlen(str),str);
- strlwr(str);
- msg.idx.from=crc16(str); }
- else if(!strnicmp(str,"Subject",7)) {
- strcpy(str,header(str));
- smb_hfield(&msg,SUBJECT,strlen(str),str);
- strlwr(str);
- msg.idx.subj=crc16(str); }
- else if(!strnicmp(str,"To",2)) {
- strcpy(str,header(str));
- smb_hfield(&msg,RECIPIENT,strlen(str),str);
- strlwr(str);
- msg.idx.to=crc16(str); }
-
- /* Following are optional fields */
-
- else if(!strnicmp(str,"Message-ID",10)) {
- strcpy(str,header(str));
- smb_hfield(&msg,RFC822MSGID,strlen(str),str); }
- else if(!strnicmp(str,"In-Reply-To",11)) {
- strcpy(str,header(str));
- smb_hfield(&msg,RFC822REPLYID,strlen(str),str); }
-
- /* User defined extension field */
-
- else if(!strnicmp(str,"X-",2)) {
- if(strstr(str,"To")) {
- strcpy(str,header(str));
- smb_hfield(&msg,RECIPIENT,strlen(str),str);
- strlwr(str);
- msg.idx.to=crc16(str); }
- else
- smb_hfield(&msg,RFC822HEADER,strlen(str),str); }
- else
- smb_hfield(&msg,RFC822HEADER,strlen(str),str); }
-
- l=ftell(stream);
- fseek(stream,0L,SEEK_END);
- length=ftell(stream)-l;
- fseek(stream,l,SEEK_SET);
-
- if((abuf=(char *)MALLOC(length))==NULL) {
- printf("alloc error\n");
- exit(1); }
- fread(abuf,length,1,stream);
- fclose(stream);
-
- net=NET_INTERNET;
- smb_hfield(&msg,SENDERNETTYPE,sizeof(ushort),&net);
-
- if(smb_open_da(10)) {
- printf("error opening %s.SDA\n",smb_file);
- exit(1); }
- msg.hdr.offset=smb_fallocdat(length+2,1);
- fclose(sda_fp);
- if(msg.hdr.offset && msg.hdr.offset<1L) {
- printf("error %ld allocating records\r\n",msg.hdr.offset);
- exit(1); }
- fseek(sdt_fp,msg.hdr.offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,sdt_fp);
- fwrite(abuf,SDT_BLOCK_LEN,smb_datblocks(length),sdt_fp);
- FREE(abuf);
- fflush(sdt_fp);
-
- smb_dfield(&msg,TEXT_BODY,length+2);
-
- smb_addmsghdr(&msg,&status,1,10);
- smb_freemsgmem(msg);
- i=findnext(&ff); }
-}
diff --git a/src/sbbs2/smb/121a/inet2smb.mak b/src/sbbs2/smb/121a/inet2smb.mak
deleted file mode 100644
index 682933f6361aaaa3a6faa28b52d098a7adc6922d..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/inet2smb.mak
+++ /dev/null
@@ -1,34 +0,0 @@
-###############################
-# Makefile for INET2SMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include
-LIB = \bc31\lib
-MODEL = s
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-MAIN = inet2smb.exe
-OBJS = inet2smb.obj smblib.obj smbvars.obj
-HEADERS = smblib.h smbdefs.h crc32.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+ $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-# All .obj modules
-inet2smb.obj: $(HEADERS)
-smbvars.obj: $(HEADERS)
-smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/lzh.c b/src/sbbs2/smb/121a/lzh.c
deleted file mode 100644
index 2d21e4d55f31cdbac167a0d9f772f5d0d7d7ddbe..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/lzh.c
+++ /dev/null
@@ -1,785 +0,0 @@
-/* LZH.C */
-
-/* Digital Dynamics conversion of 1988 LZH (LHarc) encoding functions */
-/* Based on Japanese version 29-NOV-1988 */
-/* LZSS coded by Haruhiko Okumura */
-/* Adaptive Huffman Coding coded by Haruyasu Yoshizaki */
-
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#ifndef __WATCOMC__
- #include <alloc.h>
-#endif
-
-/****************************************************************************/
-/* Memory allocation macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
- #if defined(__TURBOC__)
- #define REALLOC(x,y) farrealloc(x,y)
- #define LMALLOC(x) farmalloc(x)
- #define MALLOC(x) farmalloc(x)
- #define LFREE(x) farfree(x)
- #define FREE(x) farfree(x)
- #elif defined(__WATCOMC__)
- #define REALLOC realloc
- #define LMALLOC(x) halloc(x,1) /* far heap, but slow */
- #define MALLOC malloc /* far heap, but 64k max */
- #define LFREE hfree
- #define FREE free
- #else /* Other 16-bit Compiler */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
- #endif
-#else /* 32-bit Compiler or Small Memory Model */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
-#endif
-
-
-
-typedef unsigned char uchar;
-
-/* LZSS Parameters */
-
-#define LZH_N 4096 /* Size of string buffer */
-#define LZH_F 60 /* Size of look-ahead buffer */
-#define LZH_THRESHOLD 2
-#define LZH_NIL LZH_N /* End of tree's node */
-
-#ifdef LZH_DYNAMIC_BUF
-
-unsigned char *lzh_text_buf;
-short int lzh_match_position, lzh_match_length,
- *lzh_lson, *lzh_rson, *lzh_dad;
-
-#else
-
-unsigned char lzh_text_buf[LZH_N + LZH_F - 1];
-short int lzh_match_position, lzh_match_length,
- lzh_lson[LZH_N + 1], lzh_rson[LZH_N + 257], lzh_dad[LZH_N + 1];
-
-#endif
-
-
-void lzh_init_tree(void) /* Initializing tree */
-{
- short int i;
-
- for (i = LZH_N + 1; i <= LZH_N + 256; i++)
- lzh_rson[i] = LZH_NIL; /* root */
- for (i = 0; i < LZH_N; i++)
- lzh_dad[i] = LZH_NIL; /* node */
-}
-
-/******************************/
-/* Inserting node to the tree */
-/* Only used during encoding */
-/******************************/
-void lzh_insert_node(short int r)
-{
- short int i, p, cmp;
- unsigned char *key;
- unsigned c;
-
- cmp = 1;
- key = lzh_text_buf+r;
- p = LZH_N + 1 + key[0];
- lzh_rson[r] = lzh_lson[r] = LZH_NIL;
- lzh_match_length = 0;
- for ( ; ; ) {
- if (cmp >= 0) {
- if (lzh_rson[p] != LZH_NIL)
- p = lzh_rson[p];
- else {
- lzh_rson[p] = r;
- lzh_dad[r] = p;
- return;
- }
- } else {
- if (lzh_lson[p] != LZH_NIL)
- p = lzh_lson[p];
- else {
- lzh_lson[p] = r;
- lzh_dad[r] = p;
- return;
- }
- }
- for (i = 1; i < LZH_F; i++)
- if ((cmp = key[i] - lzh_text_buf[p + i]) != 0)
- break;
- if (i > LZH_THRESHOLD) {
- if (i > lzh_match_length) {
- lzh_match_position = ((r - p) & (LZH_N - 1)) - 1;
- if ((lzh_match_length = i) >= LZH_F)
- break;
- }
- if (i == lzh_match_length) {
- if ((c = ((r - p) & (LZH_N - 1)) - 1) < lzh_match_position) {
- lzh_match_position = c;
- }
- }
- }
- }
- lzh_dad[r] = lzh_dad[p];
- lzh_lson[r] = lzh_lson[p];
- lzh_rson[r] = lzh_rson[p];
- lzh_dad[lzh_lson[p]] = r;
- lzh_dad[lzh_rson[p]] = r;
- if (lzh_rson[lzh_dad[p]] == p)
- lzh_rson[lzh_dad[p]] = r;
- else
- lzh_lson[lzh_dad[p]] = r;
- lzh_dad[p] = LZH_NIL; /* remove p */
-}
-
-void lzh_delete_node(short int p) /* Deleting node from the tree */
-{
- short int q;
-
- if (lzh_dad[p] == LZH_NIL)
- return; /* unregistered */
- if (lzh_rson[p] == LZH_NIL)
- q = lzh_lson[p];
- else
- if (lzh_lson[p] == LZH_NIL)
- q = lzh_rson[p];
- else {
- q = lzh_lson[p];
- if (lzh_rson[q] != LZH_NIL) {
- do {
- q = lzh_rson[q];
- } while (lzh_rson[q] != LZH_NIL);
- lzh_rson[lzh_dad[q]] = lzh_lson[q];
- lzh_dad[lzh_lson[q]] = lzh_dad[q];
- lzh_lson[q] = lzh_lson[p];
- lzh_dad[lzh_lson[p]] = q;
- }
- lzh_rson[q] = lzh_rson[p];
- lzh_dad[lzh_rson[p]] = q;
- }
- lzh_dad[q] = lzh_dad[p];
- if (lzh_rson[lzh_dad[p]] == p)
- lzh_rson[lzh_dad[p]] = q;
- else
- lzh_lson[lzh_dad[p]] = q;
- lzh_dad[p] = LZH_NIL;
-}
-
-/* Huffman coding parameters */
-
-#define LZH_N_CHAR (256 - LZH_THRESHOLD + LZH_F)
- /* character code (= 0..LZH_N_CHAR-1) */
-#define LZH_T (LZH_N_CHAR * 2 - 1) /* Size of table */
-#define LZH_R (LZH_T - 1) /* root position */
-#define MAX_FREQ 0x8000
- /* update when cumulative frequency */
- /* reaches to this value */
-
-/*
- * Tables for encoding/decoding upper 6 bits of
- * sliding dictionary pointer
- */
-/* encoder table */
-uchar lzh_p_len[64] = {
- 0x03, 0x04, 0x04, 0x04, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08
-};
-
-uchar lzh_p_code[64] = {
- 0x00, 0x20, 0x30, 0x40, 0x50, 0x58, 0x60, 0x68,
- 0x70, 0x78, 0x80, 0x88, 0x90, 0x94, 0x98, 0x9C,
- 0xA0, 0xA4, 0xA8, 0xAC, 0xB0, 0xB4, 0xB8, 0xBC,
- 0xC0, 0xC2, 0xC4, 0xC6, 0xC8, 0xCA, 0xCC, 0xCE,
- 0xD0, 0xD2, 0xD4, 0xD6, 0xD8, 0xDA, 0xDC, 0xDE,
- 0xE0, 0xE2, 0xE4, 0xE6, 0xE8, 0xEA, 0xEC, 0xEE,
- 0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,
- 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF
-};
-
-/* decoder table */
-uchar lzh_d_code[256] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02,
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x09, 0x09, 0x09, 0x09, 0x09, 0x09, 0x09, 0x09,
- 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A,
- 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B,
- 0x0C, 0x0C, 0x0C, 0x0C, 0x0D, 0x0D, 0x0D, 0x0D,
- 0x0E, 0x0E, 0x0E, 0x0E, 0x0F, 0x0F, 0x0F, 0x0F,
- 0x10, 0x10, 0x10, 0x10, 0x11, 0x11, 0x11, 0x11,
- 0x12, 0x12, 0x12, 0x12, 0x13, 0x13, 0x13, 0x13,
- 0x14, 0x14, 0x14, 0x14, 0x15, 0x15, 0x15, 0x15,
- 0x16, 0x16, 0x16, 0x16, 0x17, 0x17, 0x17, 0x17,
- 0x18, 0x18, 0x19, 0x19, 0x1A, 0x1A, 0x1B, 0x1B,
- 0x1C, 0x1C, 0x1D, 0x1D, 0x1E, 0x1E, 0x1F, 0x1F,
- 0x20, 0x20, 0x21, 0x21, 0x22, 0x22, 0x23, 0x23,
- 0x24, 0x24, 0x25, 0x25, 0x26, 0x26, 0x27, 0x27,
- 0x28, 0x28, 0x29, 0x29, 0x2A, 0x2A, 0x2B, 0x2B,
- 0x2C, 0x2C, 0x2D, 0x2D, 0x2E, 0x2E, 0x2F, 0x2F,
- 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
- 0x38, 0x39, 0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F,
-};
-
-uchar lzh_d_len[256] = {
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
-};
-
-#ifdef LZH_DYNAMIC_BUF
-
-unsigned short *lzh_freq=NULL; /* cumulative freq table */
-
-/*
- * pointing parent nodes.
- * area [LZH_T..(LZH_T + LZH_N_CHAR - 1)] are pointers for leaves
- */
-short int *lzh_prnt=NULL;
-
-/* pointing children nodes (son[], son[] + 1)*/
-short int *lzh_son=NULL;
-
-#else /* STATIC */
-
-unsigned short lzh_freq[LZH_T + 1]; /* cumulative freq table */
-short int lzh_prnt[LZH_T + LZH_N_CHAR];
-short int lzh_son[LZH_T + 1]; /* bug fixed by Digital Dynamics */
-
-#endif
-
-
-unsigned short lzh_getbuf = 0; /* Was just "unsigned" fixed 04/12/95 */
-uchar lzh_getlen = 0;
-
-int lzh_getbit(uchar *inbuf, long *incnt, long inlen) /* get one bit */
-{
- short int i;
-
- while (lzh_getlen <= 8) {
- if((*incnt)>=inlen)
- i=0;
- else
- i=inbuf[(*incnt)++];
- lzh_getbuf |= i << (8 - lzh_getlen);
- lzh_getlen += 8;
- }
- i = lzh_getbuf;
- lzh_getbuf <<= 1;
- lzh_getlen--;
- return (i < 0);
-}
-
-short int lzh_getbyte(uchar *inbuf, long *incnt, long inlen) /* get a byte */
-{
- unsigned short i;
-
- while (lzh_getlen <= 8) {
- if((*incnt)>=inlen)
- i=0;
- else
- i=inbuf[(*incnt)++];
- lzh_getbuf |= i << (8 - lzh_getlen);
- lzh_getlen += 8;
- }
- i = lzh_getbuf;
- lzh_getbuf <<= 8;
- lzh_getlen -= 8;
- return i >> 8;
-}
-
-unsigned lzh_putbuf = 0;
-uchar lzh_putlen = 0;
-
-/* output c bits */
-void lzh_putcode(short int l, unsigned short c, uchar *outbuf, long *outlen)
-{
- lzh_putbuf |= c >> lzh_putlen;
- if ((lzh_putlen += l) >= 8) {
- outbuf[(*outlen)++]=(lzh_putbuf >> 8);
- if ((lzh_putlen -= 8) >= 8) {
- outbuf[(*outlen)++]=lzh_putbuf;
- lzh_putlen -= 8;
- lzh_putbuf = c << (l - lzh_putlen);
- } else {
- lzh_putbuf <<= 8;
- }
- }
-}
-
-
-/* initialize freq tree */
-
-void lzh_start_huff()
-{
- short int i, j;
-
-lzh_getbuf = 0; /* Added by Digital Dynamics for repeating operations */
-lzh_getlen = 0;
-lzh_putbuf = 0;
-lzh_putlen = 0;
-
- for (i = 0; i < LZH_N_CHAR; i++) {
- lzh_freq[i] = 1;
- lzh_son[i] = i + LZH_T;
- lzh_prnt[i + LZH_T] = i;
- }
- i = 0; j = LZH_N_CHAR;
- while (j <= LZH_R) {
- lzh_freq[j] = lzh_freq[i] + lzh_freq[i + 1];
- lzh_son[j] = i;
- lzh_prnt[i] = lzh_prnt[i + 1] = j;
- i += 2; j++;
- }
- lzh_freq[LZH_T] = 0xffff;
- lzh_prnt[LZH_R] = 0;
-}
-
-
-/* reconstruct freq tree */
-
-void lzh_reconst()
-{
- short int i, j, k;
- unsigned short f, l;
-
- /* halven cumulative freq for leaf nodes */
- j = 0;
- for (i = 0; i < LZH_T; i++) {
- if (lzh_son[i] >= LZH_T) {
- lzh_freq[j] = (lzh_freq[i] + 1) / 2;
- lzh_son[j] = lzh_son[i];
- j++;
- }
- }
- /* make a tree : first, connect children nodes */
- for (i = 0, j = LZH_N_CHAR; j < LZH_T; i += 2, j++) {
- k = i + 1;
- f = lzh_freq[j] = lzh_freq[i] + lzh_freq[k];
- for (k = j - 1; f < lzh_freq[k]; k--);
- k++;
- l = (j - k) * 2;
-
- /* movmem() is Turbo-C dependent
- rewritten to memmove() by Kenji */
-
- /* movmem(&lzh_freq[k], &lzh_freq[k + 1], l); */
- (void)memmove(lzh_freq+k+1,lzh_freq+k, l);
- lzh_freq[k] = f;
- /* movmem(&lzh_son[k], &lzh_son[k + 1], l); */
- (void)memmove(lzh_son+k+1,lzh_son+k, l);
- lzh_son[k] = i;
- }
- /* connect parent nodes */
- for (i = 0; i < LZH_T; i++) {
- if ((k = lzh_son[i]) >= LZH_T) {
- lzh_prnt[k] = i;
- } else {
- lzh_prnt[k] = lzh_prnt[k + 1] = i;
- }
- }
-}
-
-/* update freq tree */
-
-void lzh_update(short int c)
-{
- short int i, j, k, l;
-
- if (lzh_freq[LZH_R] == MAX_FREQ) {
- lzh_reconst();
- }
- c = lzh_prnt[c + LZH_T];
- do {
- k = ++lzh_freq[c];
-
- /* swap nodes to keep the tree freq-ordered */
- if (k > lzh_freq[l = c + 1]) {
- while (k > lzh_freq[++l]);
- l--;
- lzh_freq[c] = lzh_freq[l];
- lzh_freq[l] = k;
-
- i = lzh_son[c];
- lzh_prnt[i] = l;
- if (i < LZH_T) lzh_prnt[i + 1] = l;
-
- j = lzh_son[l];
- lzh_son[l] = i;
-
- lzh_prnt[j] = c;
- if (j < LZH_T) lzh_prnt[j + 1] = c;
- lzh_son[c] = j;
-
- c = l;
- }
- } while ((c = lzh_prnt[c]) != 0); /* do it until reaching the root */
-}
-
-unsigned short lzh_code, lzh_len;
-
-void lzh_encode_char(unsigned short c, uchar *outbuf, long *outlen)
-{
- unsigned short i;
- short int j, k;
-
- i = 0;
- j = 0;
- k = lzh_prnt[c + LZH_T];
-
- /* search connections from leaf node to the root */
- do {
- i >>= 1;
-
- /*
- if node's address is odd, output 1
- else output 0
- */
- if (k & 1) i += 0x8000;
-
- j++;
- } while ((k = lzh_prnt[k]) != LZH_R);
- lzh_putcode(j, i, outbuf, outlen);
- lzh_code = i;
- lzh_len = j;
- lzh_update(c);
-}
-
-void lzh_encode_position(unsigned short c, uchar *outbuf, long *outlen)
-{
- unsigned short i;
-
- /* output upper 6 bits with encoding */
- i = c >> 6;
- lzh_putcode(lzh_p_len[i], (unsigned)lzh_p_code[i] << 8, outbuf, outlen);
-
- /* output lower 6 bits directly */
- lzh_putcode(6, (c & 0x3f) << 10, outbuf, outlen);
-}
-
-void lzh_encode_end(uchar *outbuf, long *outlen)
-{
- if (lzh_putlen) {
- outbuf[(*outlen)++]=(lzh_putbuf >> 8);
- }
-}
-
-short int lzh_decode_char(uchar *inbuf, long *incnt, long inlen)
-{
- unsigned short c;
-
- c = lzh_son[LZH_R];
-
- /*
- * start searching tree from the root to leaves.
- * choose node #(lzh_son[]) if input bit == 0
- * else choose #(lzh_son[]+1) (input bit == 1)
- */
- while (c < LZH_T) {
- c += lzh_getbit(inbuf,incnt,inlen);
- c = lzh_son[c];
- }
- c -= LZH_T;
- lzh_update(c);
- return c;
-}
-
-short int lzh_decode_position(uchar *inbuf, long *incnt, long inlen)
-{
- unsigned short i, j, c;
-
- /* decode upper 6 bits from given table */
- i = lzh_getbyte(inbuf,incnt,inlen);
- c = (unsigned)lzh_d_code[i] << 6;
- j = lzh_d_len[i];
-
- /* input lower 6 bits directly */
- j -= 2;
- while (j--) {
- i = (i << 1) + lzh_getbit(inbuf,incnt,inlen);
- }
- return c | i & 0x3f;
-}
-
-/* Compression */
-
-/* Encoding/Compressing */
-/* Returns length of outbuf */
-long lzh_encode(uchar *inbuf, long inlen, uchar *outbuf)
-{
- short int i, c, len, r, s, last_match_length;
- long incnt,outlen; /* textsize=0; */
-
-#ifdef LZH_DYNAMIC_BUF
-
- if((lzh_text_buf=(uchar *)MALLOC(LZH_N + LZH_F - 1))==NULL)
- return(-1);
- if((lzh_freq=(unsigned short*)MALLOC((LZH_T + 1)*sizeof(unsigned short)))==NULL) {
- FREE(lzh_text_buf);
- return(-1); }
- if((lzh_prnt=(short *)MALLOC((LZH_T + LZH_N_CHAR)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_son=(short *)MALLOC((LZH_T + 1) * sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_lson=(short *)MALLOC((LZH_N + 1)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- return(-1); }
- if((lzh_rson=(short *)MALLOC((LZH_N + 257)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- return(-1); }
- if((lzh_dad=(short *)MALLOC((LZH_N + 1)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- return(-1); }
-#endif
-
- incnt=0;
- memcpy(outbuf,&inlen,sizeof(inlen));
- outlen=sizeof(inlen);
- if(!inlen) {
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- FREE(lzh_dad);
-#endif
- return(outlen); }
- lzh_start_huff();
- lzh_init_tree();
- s = 0;
- r = LZH_N - LZH_F;
- for (i = s; i < r; i++)
- lzh_text_buf[i] = ' ';
- for (len = 0; len < LZH_F && incnt<inlen; len++)
- lzh_text_buf[r + len] = inbuf[incnt++];
- /* textsize = len; */
- for (i = 1; i <= LZH_F; i++)
- lzh_insert_node(r - i);
- lzh_insert_node(r);
- do {
- if (lzh_match_length > len)
- lzh_match_length = len;
- if (lzh_match_length <= LZH_THRESHOLD) {
- lzh_match_length = 1;
- lzh_encode_char(lzh_text_buf[r],outbuf,&outlen);
- } else {
- lzh_encode_char(255 - LZH_THRESHOLD + lzh_match_length
- ,outbuf,&outlen);
- lzh_encode_position(lzh_match_position
- ,outbuf,&outlen);
- }
- last_match_length = lzh_match_length;
- for (i = 0; i < last_match_length && incnt<inlen; i++) {
- lzh_delete_node(s);
- c=inbuf[incnt++];
- lzh_text_buf[s] = c;
- if (s < LZH_F - 1)
- lzh_text_buf[s + LZH_N] = c;
- s = (s + 1) & (LZH_N - 1);
- r = (r + 1) & (LZH_N - 1);
- lzh_insert_node(r);
- }
-/***
- if ((textsize += i) > printcount) {
- printf("%12ld\r", textsize);
- printcount += 1024;
- }
-***/
- while (i++ < last_match_length) {
- lzh_delete_node(s);
- s = (s + 1) & (LZH_N - 1);
- r = (r + 1) & (LZH_N - 1);
- if (--len) lzh_insert_node(r);
- }
- } while (len > 0);
- lzh_encode_end(outbuf,&outlen);
-/*
- printf("input: %ld (%ld) bytes\n", inlen,textsize);
- printf("output: %ld bytes\n", outlen);
- printf("output/input: %.3f\n", (double)outlen / inlen);
-*/
-
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- FREE(lzh_dad);
-#endif
-
- return(outlen);
-}
-
-/* Decoding/Uncompressing */
-/* Returns length of outbuf */
-long lzh_decode(uchar *inbuf, long inlen, uchar *outbuf)
-{
- short int i, j, k, r, c;
- unsigned long int count;
- long incnt,textsize;
-
-#ifdef LZH_DYNAMIC_BUF
-
- if((lzh_text_buf=(uchar *)MALLOC((LZH_N + LZH_F - 1)*2))==NULL)
- return(-1);
- if((lzh_freq=(unsigned short *)MALLOC((LZH_T + 1)*sizeof(unsigned short)))
- ==NULL) {
- FREE(lzh_text_buf);
- return(-1); }
- if((lzh_prnt=(short *)MALLOC((LZH_T + LZH_N_CHAR)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_son=(short *)MALLOC((LZH_T + 1) * sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- return(-1); }
-
-#endif
-
- incnt=0;
- memcpy(&textsize,inbuf,sizeof(textsize));
- incnt+=sizeof(textsize);
- if (textsize == 0) {
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
-#endif
- return(textsize); }
- lzh_start_huff();
- for (i = 0; i < LZH_N - LZH_F; i++)
- *(lzh_text_buf+i) = ' ';
- r = LZH_N - LZH_F;
- for (count = 0; count < textsize; ) {
- c = lzh_decode_char(inbuf,&incnt,inlen);
- if (c < 256) {
- outbuf[count]=c;
-#if 0
- if(r>(LZH_N + LZH_F - 1) || r<0) {
- printf("Overflow! (%d)\n",r);
- getch();
- exit(-1); }
-#endif
- *(lzh_text_buf+r) = c;
- r++;
- r &= (LZH_N - 1);
- count++;
- } else {
- i = (r - lzh_decode_position(inbuf,&incnt,inlen) - 1)
- & (LZH_N - 1);
- j = c - 255 + LZH_THRESHOLD;
- for (k = 0; k < j && count<textsize; k++) {
- c = lzh_text_buf[(i + k) & (LZH_N - 1)];
- outbuf[count]=c;
-#if 0
- if(r>(LZH_N + LZH_F - 1) || r<0) {
- printf("Overflow! (%d)\n",r);
- exit(-1); }
-#endif
- *(lzh_text_buf+r) = c;
- r++;
- r &= (LZH_N - 1);
- count++;
- }
- }
- }
-/***
- printf("%12ld\n", count);
-***/
-
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
-#endif
-
-return(count);
-}
-
-
diff --git a/src/sbbs2/smb/121a/lzh.h b/src/sbbs2/smb/121a/lzh.h
deleted file mode 100644
index 68a71dd90c338ec888128735e99829fefdb02856..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/lzh.h
+++ /dev/null
@@ -1,5 +0,0 @@
-/* LZH.H */
-
-long lzh_encode(uchar *inbuf, long inlen, uchar *outbuf);
-long lzh_decode(uchar *inbuf, long inlen, uchar *outbuf);
-
diff --git a/src/sbbs2/smb/121a/qwk2smb.c b/src/sbbs2/smb/121a/qwk2smb.c
deleted file mode 100644
index acf65074c7ddb92dfe6dfe7e89fb8aa1643535cc..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/qwk2smb.c
+++ /dev/null
@@ -1,296 +0,0 @@
-/* QWK2SMB.C */
-
-/* Converts QWK packet to to SMB formatted message bases */
-
-/* The intention of this source code is an example of how to use the SMBLIB */
-/* library functions to access an SMB format message base. */
-
-/* This program and source code are freeware. May be used in part or whole */
-/* for any purpose without consent or notification of Digital Dynamics. */
-
-/* Digital Dynamics does request that developers that release products that */
-/* support the SMB format notify Digital Dynamics so the implementation */
-/* and contact chapters in the technical specification may be updated. */
-
-#include "smblib.h"
-#include "crc32.h"
-#include <dos.h>
-
-char sbbs[128];
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=' ') c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(f.ff_fsize);
-return(-1L);
-}
-
-/****************************************************************************/
-/* Returns the FidoNet address kept in str as ASCII. */
-/****************************************************************************/
-fidoaddr_t atofaddr(char *str)
-{
- char *p;
- fidoaddr_t addr;
-
-addr.zone=addr.net=addr.node=addr.point=0;
-if((p=strchr(str,':'))!=NULL) {
- addr.zone=atoi(str);
- addr.net=atoi(p+1); }
-else {
- addr.zone=1;
- addr.net=atoi(str); }
-if(!addr.zone) /* no such thing as zone 0 */
- addr.zone=1;
-if((p=strchr(str,'/'))!=NULL)
- addr.node=atoi(p+1);
-else {
- addr.net=1;
- addr.node=atoi(str); }
-if((p=strchr(str,'.'))!=NULL)
- addr.point=atoi(p+1);
-return(addr);
-}
-
-
-int main(int argc, char **argv)
-{
- uchar *p,str[128],from[128],to[128],subj[128],block[128],*buf;
- ushort xlat;
- ushort i,j,k,msgs,total;
- ulong l,m,length,size,crc;
- FILE *qwk;
- struct date date;
- struct time curtime;
- smbmsg_t msg;
- smbstatus_t status;
-
-if(argc<2) {
- printf("usage: qwk2smb <qwk_dir>\r\n");
- exit(1); }
-
-sprintf(str,"%s\\MESSAGES.DAT",argv[1]);
-if((qwk=fopen(str,"rb"))==NULL) {
- printf("error opening %s\n",str);
- exit(1); }
-
-size=filelength(fileno(qwk));
-smb_file[0]=0;
-
-for(l=128,i=1,msgs=total=1;l<size;l+=i*128) {
- fseek(qwk,l,SEEK_SET);
- if(!fread(block,1,128,qwk))
- break;
- i=atoi(block+116); /* i = number of 128 byte records */
- if(i<2) {
- i=1;
- continue; }
-
- j=(ushort)block[123]|(((ushort)block[124])<<8); /* conference number */
-
- if(strcmp(smb_file,itoa(j,str,10))) { /* changed conference */
- fclose(sdt_fp);
- fclose(shd_fp);
- fclose(sid_fp);
- strcpy(smb_file,str);
- printf("\nConference #%s\n",str);
- msgs=1;
- k=smb_open(10);
- if(k) {
- printf("smb_open returned %d\n",k);
- exit(1); }
- if(!filelength(fileno(shd_fp))) /* new conference */
- smb_create(2000,2000,0,0,10); }
-
- smb_getstatus(&status); // Initialized for first call to smb_addcrc()
-
- printf("%u (total=%u)\r",msgs,total);
-
- /*****************************/
- /* Initialize the SMB header */
- /*****************************/
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
-
- /**************************/
- /* Convert the QWK header */
- /**************************/
-
- if(block[0]=='*' || block[0]=='+')
- msg.idx.attr|=MSG_PRIVATE;
- if(block[0]=='*' || block[0]=='-' || block[0]=='`')
- msg.idx.attr|=MSG_READ;
- msg.hdr.attr=msg.idx.attr;
-
- date.da_mon=((block[8]&0xf)*10)+(block[9]&0xf);
- date.da_day=((block[11]&0xf)*10)+(block[12]&0xf);
- date.da_year=((block[14]&0xf)*10)+(block[15]&0xf)+1900;
- curtime.ti_hour=((block[16]&0xf)*10)+(block[17]&0xf);
- curtime.ti_min=((block[19]&0xf)*10)+(block[20]&0xf);
- curtime.ti_sec=0;
- msg.hdr.when_written.time=dostounix(&date,&curtime);
- msg.hdr.when_written.zone=PST; /* set to local time zone */
- msg.hdr.when_imported.time=time(NULL);
- msg.hdr.when_imported.zone=PST; /* set to local time zone */
-
- sprintf(to,"%25.25s",block+21); /* To user */
- truncsp(to);
- smb_hfield(&msg,RECIPIENT,strlen(to),to);
- strlwr(to);
- msg.idx.to=crc16(to);
-
- sprintf(from,"%25.25s",block+46); /* From user */
- truncsp(from);
- smb_hfield(&msg,SENDER,strlen(from),from);
- strlwr(from);
- msg.idx.from=crc16(from);
-
- sprintf(subj,"%25.25s",block+71); /* Subject */
- truncsp(subj);
- smb_hfield(&msg,SUBJECT,strlen(subj),subj);
- strlwr(subj);
- msg.idx.subj=crc16(subj);
-
- /********************************/
- /* Convert the QWK message text */
- /********************************/
-
- length=0;
- if((buf=MALLOC((i-1)*128*2))==NULL) {
- printf("memory allocation error\n");
- exit(1); }
- for(j=1;j<i;j++) {
- if(!fread(block,1,128,qwk))
- break;
- for(k=0;k<128;k++) {
- if(block[k]==0)
- continue;
- if(block[k]==0xE3) { /* expand 0xe3 to crlf */
- buf[length++]=CR;
- buf[length++]=LF;
- continue; }
- buf[length++]=block[k]; } }
-
- while(length && buf[length-1]<=SP) length--; /* remove trailing garbage */
-
- /*****************/
- /* Calculate CRC */
- /*****************/
-
- crc=0xffffffffUL;
- for(m=0;m<length;m++)
- crc=ucrc32(buf[m],crc);
- crc=~crc;
-
- /*******************/
- /* Check for dupes */
- /*******************/
-
- j=smb_addcrc(status.max_crcs,crc,10);
- if(j) {
- if(j==1) {
- printf("\nDuplicate message\n");
- smb_freemsgmem(msg);
- FREE(buf);
- continue; }
- printf("smb_addcrc returned %d\n",j);
- exit(1); }
-
- /*************************************/
- /* Write SMB message header and text */
- /*************************************/
-
- length+=2; /* for translation string */
-
- if(smb_open_da(10)) {
- printf("error opening %s.SDA\n",smb_file);
- exit(1); }
- msg.hdr.offset=smb_fallocdat(length,1);
- fclose(sda_fp);
- if(msg.hdr.offset && msg.hdr.offset<1L) {
- printf("error %ld allocating blocks\r\n",msg.hdr.offset);
- exit(1); }
- fseek(sdt_fp,msg.hdr.offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,sdt_fp);
- fwrite(buf,length,1,sdt_fp);
- fflush(sdt_fp);
-
- smb_dfield(&msg,TEXT_BODY,length);
-
- k=smb_addmsghdr(&msg,&status,1,10);
- if(k) {
- printf("smb_addmsghdr returned %d\n",k);
- exit(1); }
- smb_freemsgmem(msg);
- FREE(buf);
- msgs++;
- total++; }
-
-return(0);
-}
-
diff --git a/src/sbbs2/smb/121a/qwk2smb.mak b/src/sbbs2/smb/121a/qwk2smb.mak
deleted file mode 100644
index 242f1111d2042eb65834fa8886c5b0444d5abdd5..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/qwk2smb.mak
+++ /dev/null
@@ -1,34 +0,0 @@
-###############################
-# Makefile for QWK2SMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include
-LIB = \bc31\lib
-MODEL = s
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE)
-LFLAGS = -n -c
-MAIN = qwk2smb.exe
-OBJS = qwk2smb.obj smblib.obj smbvars.obj
-HEADERS = smblib.h smbdefs.h crc32.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+ $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-# All .obj modules
-qwk2smb.obj: $(HEADERS)
-smbvars.obj: $(HEADERS)
-smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/smb.hst b/src/sbbs2/smb/121a/smb.hst
deleted file mode 100644
index 24472860e60c0574d9ce59113ec89eff99d2c421..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smb.hst
+++ /dev/null
@@ -1,303 +0,0 @@
-Synchronet Message Base Specification Modification History
-==========================================================
-
-******************************
-01/20/94 Initial Release v1.00
-******************************
-
-Quite a few spelling errors in SMB.TXT corrected.
-
-Estimated maximum number of messages (in Introduction of SMB.TXT) formula
-corrected (1500 rounded to nearest 256 is 1536, not 2048).
-
-Pages 32 and 38 (SENDEREXT and RECIPIENTEXT header field types) incorrectly
-stated the index record contains CRC-32s, when in fact the index contains
-CRC-16s of the agent names or extensions.
-
-FORWARDTO header field types incorrectly stated they were for replies, rather
-than forwarding instructions.
-
-Trigger header field types incorrectly stated they were "attachments" rather
-than triggers.
-
-Bug fixed in smb_open() function in smblib.c: was allocating buffer via
-setvbuf for wrong file pointer when opening header file. Caused loss of
-memory (2k) everytime smb_open() was called.
-
-Bug fixed in smb_getmsghdr() function in smblib.c: msg->from_agent,to_agent,
-and replyto_agent were not initialized properly.
-
-Added from_ext, to_ext, and replyto_ext fields to msg struct. Initialized
-with call to smb_getmsghdr() function. These are convenience pointers for
-the to, from, and replyto agent extensions (user numbers, usually).
-
-Fixed a nasty bug in the smb_freemsgdat() function, causing odd values in the
-SDA file and cross-linked messages when fast allocation mode was not used for
-new messages.
-
-smb_putmsghdr() function replaced by smb_putmsg() and it calls smb_putmsghdr()
-and smb_putmsgidx() - previously smb_putmsghdr() actually wrote the header
-and the index. So you must change any occurances of smb_putmsghdr() to
-smb_putmsg() if you intend to write to both the index and header records.
-
-smb_open() now takes a "retry_time" parameter (number of seconds) to lock
-and read the message base header and verify the "id" and "version". Added
-new error codes: -1 indicates failure to lock message base header, -2 indicates
-id mismatch, and -3 indicates incompatible message base version.
-
-rewind() and clearerr() calls added to library functions to eliminate the
-problem of "sticky" error flags when using fread() and fwrite(). Reordered
-the use of chsize() to force seeking (with fseek()) before using the file
-descriptor operation (chsize()) would would fail under some circumstances.
-
-smb_getmsgidx() function now uses "fast" message number look-up algorythm.
-
-Added smb_getlastidx() function to retrieve the last index in the message
-base.
-
-Allocation strategy for hfield and dfield elements of the smbmsg_t structure
-were changed to require less memory. Rather than an array of pointers (pointer
-to a pointer) of type hfield_t or dfield_t, they are simply an array (pointer)
-of type hfield_t or dfield_t. The only change you need to make are any
-references to "smbmsg_t.hfield[x]->etc" to "smbmsg_t.hfield[x].etc".
-
-Added several new error codes to smb_getmsghdr(). -7 indicates missing one
-of the three mandatory header fields (sender, recipient, or subject). -8
-indicates that total_dfields element of smbhdr_t is incorrect (extends beyond
-smbhdr_t.length). -9 indicates incompatible header version.
-
-New error code to smb_addcrc(), -4 indicates error getting length of file.
-
-smb_putmsghdr() returns -2 on failure write header, -3 on failure to write
-dfield, -4 on failure to write hfield (fixed), -5 on failure to write hfield
-(data), and -6 on failure to pad record with NULLs.
-
-Bugs fixed in sample conversion source code and SMBUTIL: Overwriting first
-two bytes of next record when using self-packing storage, SBBSFIDO would
-crash on blank kludge lines, SEEN-BYs weren't converted properly by SBBSFIDO,
-and more.
-
-*** IMPORTANT ***
-Index format changed, added message time field to idxrec_t for fast pointer
-manipulation by (import) date/time stamp. This is SMB format v1.10 and is
-not compatible with the v1.00 format. A conversion program (100TO110.EXE)
-is included with source code for converted any existing message bases.
-
-CHKSMB, a utility for checking message bases for corruption, included with
-SMBLIB.
-
-SMBUTIL and CHKSMB both accept wildcard arguments for processing multiple
-message bases.
-
-idxrec_t.to and idxrec_t.from may contain USER NUMBER instead of CRC of user
-names. This implementation is currently specific to E-mail boxes on Synchronet
-BBS. E-mail from non-local users are stored with a "from" field of 0.
-
-**********************
-03/28/94 Release v1.10
-**********************
-
-Forgot to include this file (oops).
-
-***********************
-03/28/94 Release v1.10a
-***********************
-
-Fixed problem with buffered fread() routine attempting to read into a locked
-regions.
-
-Added smb_stack() function for saving (pushing) currently open message base
-and ability to pop it off later.
-
-Added fix for keeping original sender information in smbmsg_t structure when
-a message has been forwarded.
-
-CHKSMB now correctly support multiple destination messages (without reporting
-missallocated active data blocks) and now reports packable bytes available.
-
-SMBUTIL can now conditionally compress a message base, only if so many K are
-compressable.
-
-Fixed problem with incorrect UTC value.
-
-Added NET_WWIV network type.
-
-**********************
-06/02/94 Release v1.11
-**********************
-
-Created Watcom compatible MAKEFILE for DOS, 32-bit DOS, and 32-bit OS/2
-versions of SMBUTIL.
-
-Enhanced macro definitions in SMBDEFS.H for MALLOC, FREE, and REALLOC to
-support Watcom and other compilers other than Borland. Also added LMALLOC
-and LFREE macros for large allocation (>64k) operations.
-
-Fixed problem with multiple calls to setvbuf() when using Watcom C libraries.
-Memory allocated by setvbuf() would never be released. To work around this
-Watcom C bug, a static buffer, shd_buf[], is now used instead.
-
-Fixed bug in smb_getmsghdr() that would cause it to return -6 when attempting
-to allocate 0 length header fields.
-
-Added LZH.C to SMBLIB for message data compression/decompression.
-
-Removed the 16-bit CRC functions from SMBUTIL and put them in CRC16.C (now part
-of SMBLIB) for easier integration into other applications.
-
-Added Hyper Allocation storage method to specification: smbstatus_t.reserved
-changed to smbstatus_t.attr and SMB_HYPERALLOC bit is set when Hyper Allocation
-storage is used for a message base. This is the only change between v1.10 and
-v1.20 of the message base format. No other bits in smbstatus_t.attr are
-currently defined. See the specification for definition of the Hyper Allocation
-storage method.
-
-Changed SMB Storage and Retrieval Protocol chapters in the specification to
-Pseudo-code examples.
-
-Added SMBLIB Storage and Retrieval C example chapters to the specification.
-
-Added field descriptions for message base header record fields and Status Info
-(base header #1) record fields to the specification.
-
-Changed SMBLIB smb_addmsghdr() 'fast' argument to 'storage' to specify the
-storage method to use (either SMB_SELFPACK, SMB_FASTALLOC, or SMB_HYPERALLOC).
-Previous usage (0 for self-pack, 1 for fast) still compatible.
-
-Added smb_hallocdat() and smb_hallochdr() to SMBLIB functions for the Hyper
-Allocation storage method.
-
-Added SMB_STACK_XCHNG operation to smb_stack() function, to exchange the top
-of the stack with the currently open message base.
-
-**********************
-02/14/95 Release v1.20
-**********************
-
-smb_close() was modified in the following ways:
- Only attempts to close non-NULL file pointers
- If shd_fp is currently open, calls smb_unlocksmbhdr() before closing
- (just in case it was left locked by application)
-
-smb_open() was modified in the following ways:
- Initializes all file pointers to NULL
- calls smb_close() if any of the files couldn't be opened
-
-smb_locksmbhdr() was modified in the following ways:
- If lock fails, attempts to unlock the header before next lock
- attempt (just incase application attempts to lock a locked
- header without first unlocking it)
-
-smb_lockmsghdr() was modified in the following ways:
- If lock fails, attempts to unlock the header before next lock
- attempt (same reason stated above)
-
-CHKSMB (1.21) was modified in the following ways:
- Tests for valid translations strings in the .SDT files
- Displays totals for bytes used by header and data blocks, bytes used
- by deleted messages, and bytes saved by LZH compression
-
-SMBUTIL (1.21) underwent some minor cosmetic changes.
-
-***********************
-03/18/95 Release v1.20a
-***********************
-
-SMBUTIL (1.22) now compiles correctly under Watcom, using correct time zone
-information. SMBUTIL maint() will no longer delete messages if max_age is
-specified in the SMB header and the when_imported time for a message is in the
-future.
-
-Fixed problem in LZH.C that would cause lzh_decode() to generate exception
-errors when compiled with a 32-bit compiler.
-
-CHKSMB (1.22) now supports /E command line switch to display extended
-information about corrupted messages. CHKSMB.C is now Watcom compatible.
-
-Added fflush() calls to all smblib functions that write to the SDT, SHA, or SDA
-files. This eliminates the problem of duplicate data offsets (data blocks for
-multiple messages pointing to the same location) causing corrupted SDT files
-(unsupported translation types reported by CHKSMB).
-
-Added fflush() call after writing to SDT file in SMB_PUT example in SMB.TXT.
-
-Fixed example *2SMB.C files to be compatible with SMBLIB v1.20 smb_create()
-function.
-
-Fixed smb_hallocdat() function prototype to stop redeclaration warnings.
-
-Minor typos in specification fixed.
-
-***********************
-04/24/95 Release v1.20b
-***********************
-
-Added SMB_EMAIL (1<<0) attribute definition for the message base status header
-to specify a local e-mail message base where index "to" and "from" fields are
-stored as user numbers, not CRC-16s (this is the only change between v1.20
-and v1.21 of the SMB format).
-
-Version 1.21 of FIXSMB no longer needs the "/M" switch to correctly fix a
-Synchronet e-mail message base (as long as the SMB_EMAIL status attr is set).
-
-Version 1.23 of SMBUTIL can now import text into a Synchronet e-mail message
-base (as long as the SMB_EMAIL status attr has been set). It will ask for the
-sender and recipient user numbers. Fixed an apparently nasty bug that would
-cause damage to message bases when (I)mporting (check for SMB_HYPERALLOC
-attribute was backwards). Excess baggage in the SMBUTIL source code was also
-removed (no longer supports /L, /F, and /D command line switches). Only
-supports self-packing and hyper-allocated message bases (it will not damage
-fast allocated bases, however). "SMBUTIL M" now correctly handles message bases
-that contain messages that have been pre-flagged for deletion (MSG_DELETE attr
-set).
-
-Changed smb_open(int retry_count) function: if retry_count is 0, then a "fast
-open" method is used which doesn't lock and read the status header to check
-for compatibility and validity of message base.
-
-Added SMBLIB_VERSION definition (string constant) to contain the current
-version and revision (if applicable) of the SMB library. This version number
-may not always be the same as SMB_VERSION (version of the SMB format) or the
-current version of the specification. It may be helpful to include a display
-of this version number somewhere in your application (i.e. printf("SMBLIB v%s"
-,SMBLIB_VERSION);).
-
-Changed smb_stack() example in the Performance Issues chapter to keep two
-message bases always open using SMB_STACK_XCHNG.
-
-Fixed bug in SMBUTIL that would cause an infinite loop when analysing an
-extrememly corrupted HyperAllocated message base.
-
-Fixed bug in smb_stack() function when using SMB_STACK_XCHNG operation. Would
-previously set current message base to an undefined message base, rather than
-the message base on top of the stack (last pushed or exchanged).
-
-CHKSMB v1.22 compiled in the 1.20b release did not support wildcards (wasn't
-linked with WILDARGS.OBJ) - this has been fixed and is the only change in
-CHKSMB v1.23.
-
-**********************
-05/31/95 Release v1.21
-**********************
-
-Add uchar forwarded element to smbmsg_t structure. This variable is initialized
-by the smb_getmsghdr() function. If the message has been forwarded, it will
-be set to non-zero.
-
-Fixed bug in LZH.C which caused lzh_decode() to produce incorrect results
-(usually t's and spaces) when compiled with a 32-bit compiler.
-
-Added HUGE16 and FAR16 macros to SMBDEFS.H for huge and far pointers for
-16-bit compilers only (default pointer type for 32-bit compilers).
-
-Fixed bug in FIXSMB.C that would initialize the SDA file to the wrong length.
-
-Added net type NET_MHS for MHS gateways.
-
-SMBUTIL (1.24) will no longer free deleted headers when maintaining a message
-base if the /A (no analysis) command line switch is used. This speeds up the
-message base maintenance/pack operation significantly by using: SMBUTIL /A MP
-
-***********************
-08/31/95 Release v1.21a
-***********************
diff --git a/src/sbbs2/smb/121a/smb.prn b/src/sbbs2/smb/121a/smb.prn
deleted file mode 100644
index 904897ea1eea04ff4d58ef80d1495c853b730dee..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smb.prn
+++ /dev/null
@@ -1,5661 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Synchronet Message Base Specification
- Version 1.21
- Updated 08/31/95
-
- Copyright 1995 Digital Dynamics
-
- PO Box 501
- Yorba Linda, CA 92686
-
- Voice: 714-529-6328 BBS: 714-529-9525 V.32/V.32bis
- FAX: 714-529-9721 714-529-9547 V.FC
- Fido: 1:103/705 ftp: netcom.com /pub/sb/sbbs
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Table of Contents
- =================
-
- Introduction.............................................................3
- Implementation Levels....................................................8
- Definitions.............................................................10
- Acronyms........................................................12
- Data Types......................................................13
- File Formats............................................................18
- Index.....................(*.SID)...............................18
- Header....................(*.SHD)...............................20
- Header Allocation.........(*.SHA)...............................30
- Data......................(*.SDT)...............................31
- Data Allocation...........(*.SDA)...............................32
- CRC History...............(*.SCH)...............................33
- Header Field Types......................................................34
- Data Field Types........................................................58
- Messsage Attributes.....................................................60
- Translation Types.......................................................61
- Agent Types.............................................................62
- Network Types...........................................................63
- Media Types.............................................................64
- Message Storage Pseudo Code.............................................67
- Message Retrieval Pseudo Code...........................................69
- SMBUTIL.................................................................70
- CHKSMB..................................................................71
- FIXSMB..................................................................72
- SMBLIB (C library)......................................................73
- Data Types and Constants..(SMBDEFS.H)...........................74
- Global Variables..........(SMBVARS.C)...........................75
- Function Prototypes.......(SMBLIB.H)............................76
- Library Functions.........(SMBLIB.C)............................77
- Miscellaneous.............(CRC*.* and LZH.*)....................84
- SMBLIB Storage Example..................................................86
- SMBLIB Retrieval Example................................................89
- SMBLIB Performance Issues...............................................91
- Bibliography............................................................95
- Implementations.........................................................96
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 2 Contents
-
-
- Introduction
- ============
-
- Q. What is SMB?
-
- A. SMB (Synchronet Message Base) is a technical specification for the storage
- format of electronic mail messages. These e-mail messages may all be
- contained in one database, or, more commonly, separated into catagorized
- databases. These message databases (or message bases) are also referred to
- as "sub-boards", "forums", "conferences", and "SIGs". The messages may be
- directed to an individual person, sent to a group of individuals, or sent
- to everyone who can read messages in that message base. Messages may be
- created and read soley at one physical location, or imported from and
- exported to a message network that may span continents. Message bases that
- are connected to a message network are often called "echoes".
-
-
- Q. Why SMB?
-
- A. The Synchronet Message Base is designed to store high volumes of messages
- while maintaining optimum search, retrieval, and creation performance.
- These messages are not limited to mere text. In addition to text, SMB
- defines the storage of digitized sound, MIDI, graphics, fonts, animation,
- as well as other multimedia data and triggers for localized multimedia.
- SMB thrives on a multi-user environment where messages are being created,
- read, modified, and deleted by multiple tasks simultaneously. With the
- large message networks of today being the rule, rather than the exception,
- and high volumes of messages being imported on a daily, sometimes hourly
- basis, creation and deletion speed is of the utmost importance. This is
- where SMB really shines. Being extensible enough to handle message formats
- from networks of today and tomorrow, and fast enough to import more messages
- that humanly readable, the SMB format will more than meet your message
- storage needs.
-
-
- Q. Why a specification?
-
- A. Message bases are often accessed and modified by a number of different
- programs. Often these programs are developed by individuals or companies
- other than the original designer of the message base format. This
- specification is an attempt to aid developers in creating programs that
- access or modify a message base stored in the SMB format.
-
-
- Q. Who can use this specification?
-
- A. Anyone that has interest in the Synchronet Message Base format at either
- an educational or professional level. Specifically, software developers
- interested or currently involved in the development of message readers,
- editors, echomail (toss/scan) programs, message transfer agents (MTAs),
- network gateways, and bulletin board systems. Much of the information in
- this specification is intended for those with preexisting programming
- knowledge, so those with little or no programming experience may find it
- hard to comprehend.
-
- _______________________________________________________________________________
- Synchronet 3 Introduction
-
-
-
-
- Q. What does the SMB specification include?
-
- A. The text you are reading is part of the SMB specification: a single text
- document that defines the storage format of each of the six files of an
- SMB format message base and how they are related to each other.
-
- Included with this specification is C source code to be used as an example
- to programmers of how to access an SMB format message base and public domain
- library functions (SMBLIB) that can be compiled and linked into programs
- that access an SMB format message base developed by third parties. An SMB
- utility program (SMBUTIL) is also included with C source code as an example
- of how to use the SMBLIB functions.
-
-
- Q. Where did the SMB specification come from?
-
- A. Digital Dynamics (southern California based software development company)
- released "Synchronet Multinode BBS Software Version 1a" in June of 1992 as
- one of the first BBS packages to be designed from the ground-up to operate
- in a multinode environment with incredible speed and reliability, with a
- large suite of multinode specific features and design innovations.
-
- The original message base format was designed with localized messaging and
- low volume message networks in mind. By January of 1993, it was clear that
- high volume message networks (FidoNet, RelayNet, Usenet, etc.) were the
- preference of most BBS users and a new message base format was required to
- allow for high volume message storage, improved storage, retrieval, and
- maintenance performance, as well as lower storage space requirements.
-
- Rather than introduce another new message format, Digital Dynamics sought
- to implement an existing public specification for a format that would meet
- current and future message storage needs. More than a few specifications
- were seriously considered at one time or another, but after careful
- examination, design flaws and lack of extensibility eliminated them from the
- long term plans of Digital Dynamics and Synchronet BBS Software. Thus began
- the design of the "Synchronet Message Base" (SMB) format.
-
- At the request of many message related program developers, Digital Dynamics
- created and released the SMB specification before the release of "Synchronet
- Version 2.00" to allow lead-time on developing support programs for the new
- format.
-
- Digital Dynamics strongly encourages developers of message related programs
- (including software that directly competes with Synchronet or other Digital
- Dynamics products) to implement support for SMB. Though this is a public
- specification and Digital Dynamics encourages developer suggestions, it will
- remain under the sole control of Digital Dynamics unless specifically stated
- otherwise in a future revision of this specification.
-
- Digital Dynamics requests that any organizations that wish to adopt or
- ratify this specification, in part or whole, notify Digital Dynamics through
- any of the contact methods listed at the beginning of this document.
-
- _______________________________________________________________________________
- Synchronet 4 Introduction
-
-
-
-
- Q. How does SMB store messages?
-
- A. Each message base is stored in a set of binary files. This set consists
- of between three and six files depending the storage method used. The base
- filename (maximum of eight characters under DOS) is the same for all six
- files of the same message base and unique amoung the filenames of other
- message bases in the same directory. The six files each have a different
- three character extension. The first character of the extension is always
- the letter 'S' (for SMB), while the second and third characters define the
- contents of the file.
-
- Two of the six files associated with each message base are not recreatable
- and therefore are the most important when considering data integrity. These
- two files are the data file (with a .SDT extension) and header file (.SHD
- extension). Both of these files use 256 byte blocks and have associated
- block allocation tables (stored in .SDA and .SHA respectively) so that
- deleted message blocks may be used by new messages without creating odd
- sized unused 'holes' in the files. The block allocation table files (.SDA
- and .SHA) can be recreated with the information stored in the header (.SHD)
- file. When using Hyper Allocation storage method, the allocation files (.SDA
- and .SHA) are not used.
-
- For fast indexing, there is a small fixed length index file (with a .SID
- extension). This file allows for the immediate location of message header
- records based on sender's name or user number, recipient's name or user
- number, subject, message number, or message attributes. This file can be
- recreated with the data stored in the header (.SHD) file.
-
- The last file is an optional CRC history (.SCH) file. It contains 32-bit
- CRCs of a configurable number of messages imported or created locally. This
- is to help eliminate duplicate messages created by user or program error.
- The CRC history file can be recreated with the combination of information
- stored in the data (.SDT) and header (.SHD) files.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 5 Introduction
-
-
- Q. How fast do messages import into an SMB message base?
-
- A. This is a very important question for systems for that import large volumes
- of messages. Of course, the answer depends on the storage format which you
- are importing from, the average length of messages, the design of the
- program which is peforming the import process, as well as the hardware and
- system software being used. What's important is that SMB will allow the
- fastest import process possible with any given combination of the above
- factors.
-
- Since system storage capacity is rarely infinite, neither is the number
- of messages which can be stored in a message base. System operators must
- define the maximum number of messages to be stored in a message base, the
- maximum age of the messages in that message base, or a combination of both.
- When using the Self-packing storage method (defined later in this document),
- the smaller the number of messages stored in a message base, the faster the
- import process. The SMB format is flexible enough to support multiple levels
- of import performance based on optimizations for storage space or speed.
- Most system operators will almost invariably choose speed over space, but
- which choices are available is determined by the importing program. This
- specification defines three storage methods, from slowest to fastest:
- Self-packing, Fast Allocation, and Hyper Allocation. Other options defined
- in this specification may affect storage performance, including duplicate
- message checking and message compression/encryption.
-
-
- Q. How much storage is required for an SMB message base?
-
- A. The biggest factor in determining storage requirements for a message base
- is the maximum number of messages to be stored in the base (defined by the
- system operator) and the average size of each message. The minimum required
- storage for a message base is 32 bytes plus 532 bytes per message (plus four
- bytes per message if duplicate message checking is used and three bytes
- per message if Self-packing or Fast Allocation storage methods are used).
-
- The SMB format was originally designed to be "self-packing", meaning purged
- (deleted) message header and data blocks will be used automatically by new
- messages. Relying solely on self-packing, an SMB format message base will
- never "shrink" in size. This is not to say that it will continually "grow"
- in size, but that without specific packing procedures, deleted message
- blocks may remain unused for extended periods of time, meanwhile using some
- amount of storage space that could be recovered using specific packing
- procedures. The Fast Allocation and Hyper Allocation storage methods do not
- use deleted message blocks for new messages so specific packing procedures
- must be used if any messages are deleted and that storage space is to ever
- be recovered.
-
- Limiting the maximum age of messages in an SMB message base is another way
- to control the storage requirements. While maximum message age definition is
- optional, the definition of the maximum number of messages is not.
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 6 Introduction
-
-
- Q. How many messages can be stored per SMB message base?
-
- A. Without considering storage limitations or message data lengths greater than
- 256, the theoretical maximum number of messages that can be stored in a
- single SMB message base is 16.7 million. Considering the variable length
- nature of message and header data, it is suggested that the system operator
- allow no more than 1 million messages per base.
-
- To determine an estimated maximum number of messages for a message base
- using the average message data length as a factor, use the following
- formula:
-
- 4.2 billion divided by the average message length rounded up to be evenly
- divisible by 256.
-
- If the average message data length is 1500 bytes, the estimated maximum
- number of messages would be 2,734,375 (4.2 billion divided by 1536).
-
- Implementations of this format may be further limited by available system
- memory.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 7 Introduction
-
-
- Implementation Levels
- =====================
- The SMB format can be implemented to varying degrees between programs without
- creating compatibilty issues. Rather than have developers specifically state
- which features they have and have not implemented, we have defined seven levels
- of implementation (represented by Roman numerals I through VII). For a program
- or software package to meet an implementation level, it must have all of the
- features listed for that level and all of those for each level below it. The
- minimum suggested imlementation is level I. The SMBUTIL program included with
- this specification is an example of a level I implementation with features
- from some of the higher implementation levels.
-
- Level I
- -------
- The minimum suggested level of implementation. Messages contain merely ASCII
- text displayable on an ANSI terminal. Messages can be added to the message
- base and if the maximum number of messages is exceeded, messages are removed
- or marked for deletion.
-
- Level II
- --------
- The addition of file attachments, multiple index/header entries per message
- (multiple destinations), multiple text bodies for the separation of message
- text and tag/origin lines (for example), forwarding, threading, and specific
- FidoNet kludge header field support makes this level of implementation more
- realistic for bulletin board system and EchoMail software implementation.
-
- Synchronet Multinode BBS Software v2.00 has a level II implementation of this
- specification.
-
- Level III
- ---------
- This implementation adds support for translation strings defined later in this
- document for data compression, encryption, escaping, and encoding. This level
- is still limited to basic ASCII text and ANSI escape sequence entry and
- retrieval.
-
- Synchronet Multinode BBS Software v2.10 has a level III implementation of this
- specification.
-
- Level IV
- --------
- The storage and retrieval of embedded and attached images is added in this
- level of implementation. Supported images are limited to single binary or text
- data blocks that can be displayed or transferred to the user (automatically,
- or by request) if their display and translation protocols define specific
- support for the image type.
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 8 Implementation Levels
-
-
- Level V
- -------
- This level of implementation adds support for embedded and attached sound data.
- This includes digitized sound and MIDI data. Supported sounds are limited to
- single binary or text data blocks that can be played or transferred to the user
- (automatically or by request) if their presentation and translation protocols
- define specific support for the sound type.
-
- Level VI
- --------
- Localized sound and image data can be triggered by messages stored and
- retrieved in an implementation of this level.
-
- Level VII
- ---------
- Complete multimedia support is reached in this implementation level with
- support for embedded and attached animation, sound, and video data.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 9 Implementation Levels
-
-
- Definitions
- ===========
-
- Control Characters
- ------------------
- When specifying control characters (ASCII 1 through 31), the caret symbol "^"
- or the abreviation "ctrl-" followed by a character will be used to indicate the
- value. ^A is equivalent to ASCII 1, ^B ASCII 2, etc. The case of the control
- character is not significant (i.e. ^z and ^Z are equivalent). The control
- character ^@ (ASCII 0) will be specified as NULL or 0.
-
-
- Hexadecimal
- -----------
- Base sixteen numbering system which includes the digits 0-9 and A-F.
- Hexadecimal numbers are represented in this document with a prefix of "0x" or
- "\x" or a suffix of "h". Hexadecimal letter digits are not case sensitive
- (i.e. the number 0xff is the same as 0xFF).
-
-
- File dump
- ---------
- When example file dumps are displayed, the format is similar to that of the
- output from the DOS DEBUG program. With the exception of the ASCII characters,
- all numbers are in hexadecimal.
-
- Offset Byte values ASCII characters
-
- 000000 53 4D 42 1A 10 01 20 00 F4 01 00 00 F4 01 00 00 SMB... .�...�...
- 000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...�...�.......
-
-
- Bit values
- ----------
- Bit (or flag) values are represented in C notation as (1<<x) where x is the bit
- number. (i.e. bit number 7 (1<<7) is the same as 0x80).
-
-
- Word storage
- ------------
- All words (16-bit) and double words (32-bit) are stored in Intel 80x86 (little
- endian) format with bytes stored from low to high (reverse of the Motorola
- 680x0 word storage format).
-
- A 16-bit word with the value 1234h is stored as 34h 12h.
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 10 Definitions
-
-
- Translation strings
- -------------------
- Translation strings (xlat variables) are arrays of words (16-bit) in the order
- of the original storage translation. The last translation type is followed by a
- 16-bit zero (defined later as XLAT_NONE). If there are no translations, then
- the first and only element of the array is XLAT_NONE.
-
- If multiple translations are used, the translation order must be reversed
- upon retrieval to obtain the proper data.
-
-
- Local e-mail
- ------------
- When referring to the local e-mail message base of a Synchronet BBS, we are
- referring specifically the message base with the name "MAIL" stored in the
- "DATA" directory (e.g. \SBBS\DATA\MAIL).
-
- Messages stored in this message base are different in the following respects:
-
- The SMB_EMAIL status header attribute is set ON
- Hyper Allocation storage method is not supported
- The "To" and and "From" fields of the message indexes do NOT contain CRCs
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 11 Definitions
-
-
- Acronyms:
- ========
-
- ANSI American National Standards Institute
- ASCII American Standard Code for Information Interchange
- BBS Bulletin Board System
- C The C programming language as defined by ANSI X3.159-1989
- CR Carriage Return character (ASCII 13)
- CRC Cyclic Redundancy Check
- CRC-16 Standard 16-bit CRC using 1021h polynomial (seed 0)
- CRC-32 Standard 32-bit CRC using EDB88320h polynomial (seed -1)
- CRLF Carriage Return character followed by a Line Feed character
- FSC FidoNet Standards Commitee (FTS proposal)
- FTN FidoNet Technology Network
- FTS FidoNet Technical Standard
- LF Line Feed character (ASCII 10)
- QWK Compressed message packet format for message reading/networking
- RFC Request for Comments
- SMB Synchronet Message Base
- UT Universal Time (formerly called "Greenwhich Mean Time")
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 12 Definition of Acronyms
-
-
- Data types
- ==========
-
- uchar Unsigned 8-bit value (0 through 255).
- C example:
-
- #define uchar unsigned char
-
-
- short Signed 16-bit value (-32768 through 32767).
- "short" is a C keyword indicating "short int".
-
-
- ushort Unsigned 16-bit value (0 through 65535).
- C example:
-
- #define ushort unsigned short
-
-
- ulong Unsigned 32-bit value (0 through 4294967295).
- C example:
-
- #define ulong unsigned long
-
-
- time_t Unsigned 32-bit value.
- Seconds since 00:00 Jan 01 1970 (Unix format).
- Used for all time/date storage in SMB as part of the when_t
- data type. This time format will support dates through the year
- 2105.
- time_t is defined by ANSI C as a long (signed) which can
- limit its date support to the year 2038 depending on the
- library routines used.
-
-
- ASCII String (aka character array) of 8-bit ASCII characters.
- Characters with the bit 7 set (80h through FFh) represent
- the IBM PC extended ASCII character set. When data or header
- fields of this type are stored in the header, a NULL
- terminator may or may not be present.
- C example:
-
- uchar str[80];
-
-
- ASCIIZ ASCII string with (non-optional) NULL terminator.
- C example:
-
- uchar str[81];
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 13 Definition of Data Types
-
-
- nulstr ASCII string immediately terminated by NULL.
- C example:
-
- uchar *nulstr="";
-
-
- undef Data buffer with undefined contents.
- C example:
-
- uchar buf[BUF_LEN];
-
- when_t Date/Time stamp including time-zone adjustment information.
- C example:
-
- typedef struct {
-
- time_t time; // Time stamp (in local time)
- short zone; // Zone constant or Minutes (+/-) from UT
-
- } when_t;
-
- time:
-
- A time value of 0 is invalid and indicates an uninitialized
- time stamp.
-
- Time stamps are always stored in universal time. i.e.
- Regardless of what the local time zone is, Jan 1st 1994 00:00
- will always be stored as 2D24BD00h.
-
- zone:
-
- If the zone is in the range -720 to +720, it represents the
- number of minutes east or west of UT. Values in this range
- should only be used for time zones not otherwise represented
- here.
-
- If the zone is greater than 720 or less than -720, then the
- following bits have special meaning:
-
- (1<<12) // Non-US time zone (east of UT)
- (1<<13) // Non-US time zone (west of UT)
- (1<<14) // U.S. time zone
- (1<<15) // Daylight savings
-
- The lower 12 bits (0 through 11) contain the number of minutes
- east or west of UT (not accounting for daylight savings).
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 14 Definition of Data Types
-
-
- If the time zone is one specified in the U.S. Uniform Time Act,
- the following values represent the zone:
-
- AST 0x40F0 // Atlantic (-04:00)
- EST 0x412C // Eastern (-05:00)
- CST 0x4168 // Central (-06:00)
- MST 0x41A4 // Mountain (-07:00)
- PST 0x41E0 // Pacific (-08:00)
- YST 0x421C // Yukon (-09:00)
- HST 0x4258 // Hawaii/Alaska (-10:00)
- BST 0x4294 // Bering (-11:00)
-
- With bit 15 set, the following values represent the same zone
- with the presence of daylight savings:
-
- ADT 0xC0F0 // Atlantic (-03:00)
- EDT 0xC12C // Eastern (-04:00)
- CDT 0xC168 // Central (-05:00)
- MDT 0xC1A4 // Mountain (-06:00)
- PDT 0xC1E0 // Pacific (-07:00)
- YDT 0xC21C // Yukon (-08:00)
- HDT 0xC258 // Hawaii/Alaska (-09:00)
- BDT 0xC294 // Bering (-10:00)
-
- The following non-standard time zone specifications may also be
- used:
-
- MID 0x2294 // Midway (-11:00)
- VAN 0x21E0 // Vancouver (-08:00)
- EDM 0x21A4 // Edmonton (-07:00)
- WIN 0x2168 // Winnipeg (-06:00)
- BOG 0x212C // Bogota (-05:00)
- CAR 0x20F0 // Caracas (-04:00)
- RIO 0x20B4 // Rio de Janeiro (-03:00)
- FER 0x2078 // Fernando de Noronha (-02:00)
- AZO 0x203C // Azores (-01:00)
- LON 0x1000 // London (+00:00)
- BER 0x103C // Berlin (+01:00)
- ATH 0x1078 // Athens (+02:00)
- MOS 0x10B4 // Moscow (+03:00)
- DUB 0x10F0 // Dubai (+04:00)
- KAB 0x110E // Kabul (+04:30)
- KAR 0x112C // Karachi (+05:00)
- BOM 0x114A // Bombay (+05:30)
- KAT 0x1159 // Kathmandu (+05:45)
- DHA 0x1168 // Dhaka (+06:00)
- BAN 0x11A4 // Bangkok (+07:00)
- HON 0x11E0 // Hong Kong (+08:00)
- TOK 0x121C // Tokyo (+09:00)
- SYD 0x1258 // Sydney (+10:00)
- NOU 0x1294 // Noumea (+11:00)
- WEL 0x12D0 // Wellington (+12:00)
-
-
-
- _______________________________________________________________________________
- Synchronet 15 Definition of Data Types
-
-
- fidoaddr_t FidoNet address stored as four ushorts that represent the zone,
- network, node, and point (in that order).
- C example:
-
- typedef struct {
-
- ushort zone,
- net,
- node,
- point;
-
- } fidoaddr_t;
-
-
- typestr_t ASCIIZ string with ushort type prefix.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'str'
- uchar str[]; // ASCIIZ filename or other string data
-
- } typestr_t;
-
-
- mattach_t File attachment information with type prefix, translation
- string, and filename.
- C example:
-
- typedef struct {
-
- ushort type; // Attachment type
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename
-
- } mattach_t;
-
- vattach_t Video file attachment information with type, compression,
- translation string, and filename.
- C example:
-
- typedef struct {
-
- ushort type; // Attachment type
- ushort comp; // Compression method
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename
-
- } vattach_t;
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 16 Definition of Data Types
-
-
- mtext_t Message text with translation string prefix.
- C example:
-
- typedef struct {
-
- ushort xlat[]; // Translations of text
- uchar text[]; // Actual text data
-
- } mtext_t;
-
-
- ftext_t Formatted message text with translation string prefix and
- format type.
- C example:
-
- typedef struct {
-
- ushort type; // See Image Types for valid types
- ushort xlat[]; // Translations of data
- uchar data[]; // Actual formatted text data
-
- } ftext_t;
-
-
- membed_t Embedded data with type prefix, translation string, and ASCIIZ
- description.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'dat'
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar dat[]; // Binary data
-
- } membed_t;
-
- vembed_t Embedded video data with type, compression method, translation
- string, and ASCIIZ description.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'dat'
- ushort comp; // Compression method
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar dat[]; // Binary data
-
- } vembed_t;
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 17 Definition of Data Types
-
-
- File formats
- ============
-
- Index File (*.SID)
- ------------------
- The index file for each message base contains one record per message in the
- base. Each record is fixed length using the following format:
-
- Index Record:
- ------------
- C example:
-
- typedef struct {
-
- ushort to; // 16-bit CRC of recipient name (lower case) or user number
- ushort from; // 16-bit CRC of sender name (lower case) or user number
- ushort subj; // 16-bit CRC of title/subject (lower case)
- ushort attr; // attributes (MSG_PRIVATE, MSG_READ, etc. flags)
- ulong offset; // byte offset of message header in header file
- ulong number; // message serial number (1 based)
- time_t time; // import date/time stamp (Unix format)
-
- } idxrec_t;
-
-
- Example file dump (16 messages starting with message number 15):
- ---------------------------------------------------------------
- 000000 36 4F 13 07 2A 77 00 00 20 00 00 00 0F 00 00 00 6O..*w.. .......
- 000010 BE 62 76 2C 36 4F 46 0A 7F B2 00 00 20 01 00 00 �bv,6OF.�.. ...
- 000020 10 00 00 00 C7 29 78 2C 36 4F 70 6F 46 FF 00 00 ....�)x,6OpoF�..
- 000030 20 02 00 00 11 00 00 00 AD D3 7A 2C 70 6F 13 07 .......��z,po..
- 000040 46 FF 00 00 20 03 00 00 12 00 00 00 D6 F8 7F 2C F�.. .......��,
- 000050 36 4F E1 EA E7 E9 00 00 20 04 00 00 13 00 00 00 6O����.. .......
- 000060 1E 7B 85 2C 37 0D 2E DF 4D 79 00 00 20 05 00 00 .{�,7..�My.. ...
- 000070 14 00 00 00 5C E1 A1 2C 90 54 2D 5A 86 62 00 00 ....\�,�T-Z�b..
- 000080 20 06 00 00 15 00 00 00 39 2E A2 2C 70 6F 1A 8B .......9.�,po.�
- 000090 46 FF 00 00 20 07 00 00 16 00 00 00 D0 7B A8 2C F�.. .......�{�,
- 0000A0 2E DF 1A 8B 4D 79 00 00 20 08 00 00 17 00 00 00 .�.�My.. .......
- 0000B0 FF 7B A8 2C B4 D9 35 7C 23 B1 00 00 20 09 00 00 �{�,��5|#�.. ...
- 0000C0 18 00 00 00 CE D4 BA 2C 36 4F BC D8 B2 E7 00 00 ....�Ժ,6O�ز�..
- 0000D0 20 0A 00 00 19 00 00 00 14 5F C3 2C BA A8 4E B0 ........_�,��N�
- 0000E0 67 76 00 00 20 0B 00 00 1A 00 00 00 6F 89 C3 2C gv.. .......o��,
- 0000F0 36 4F 0C 01 19 9C 00 00 20 0C 00 00 1B 00 00 00 6O...�.. .......
- 000100 F8 30 C6 2C 36 4F FA 48 0E 55 00 00 20 0D 00 00 �0�,6O�H.U.. ...
- 000110 1C 00 00 00 6A 94 D3 2C 36 4F F1 CE CF A2 00 00 ....j��,6O��Ϣ..
- 000120 20 0E 00 00 1D 00 00 00 53 DB D5 2C 8D A6 21 CE .......S��,��!�
- 000130 F7 AB 00 00 20 0F 00 00 1E 00 00 00 31 29 DC 2C ��.. .......1)�,
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 18 Index (*.SID) File Format
-
-
- Field descriptions:
- ------------------
- To:
- The 'To' field is the CRC-16 of the name of the intended recipient agent of
- this message or the intended recipient's user number. If the CRC is stored, the
- text must be converted to lower case (A-Z changed to a-z) before the CRC is
- calculated. If the message is forwarded to another agent, the original or new
- index record must be changed to contain the CRC-16 of the new recipient name or
- user number. This field must always contain the recipient user number for local
- e-mail on a Synchronet BBS. Outbound netmail stored in the Synchronet local
- e-mail message base will contain 0 in this field.
-
- From:
- This field, similar to the 'To' field, contains the CRC-16 of the name of the
- sending agent of this message or the sender's user number. If the CRC is
- stored, the text must be converted to lower case (A-Z changed to a-z) before
- the CRC is calculated. If the message is forwarded to another agent, the
- original or new index record must be changed to contain the CRC-16 of the new
- sender name or user number. If the message was imported into the local e-mail
- message base on a Synchronet BBS via netmail, this field will contain 0.
-
- Subj:
- The 'Subj' field contains the CRC-16 of the message's subject. The subject
- must be converted to lower case (A-Z changed to a-z) and all preceeding
- "re: "'s and "re:"'s removed before calculating the CRC-16.
-
- Attr:
- This ushort is a bit field of the specific attributes for this message.
- It is a clone of the 'attr' element of the msghdr_t structure.
-
- Offset:
- This ulong is the offset (in bytes) in the header file for this message's
- header record.
-
- Number:
- This ulong is the serial number of this message. Valid values are 1 through
- 0xffffffff. No two index records in the same message base may have the same
- message number. All index records must have sequential, but not necessarily
- consequetive, message numbers.
-
- Time:
- This field is the date/time stamp the message was imported to or posted in
- the message base. It is a clone of the 'when_imported.time' element of the
- msghdr_t structure.
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 19 Index (*.SID) File Format
-
-
- Header File (*.SHD)
- ===================
-
- Each SMB header file is made up of two distinct sections: base header records
- and message header records (usually the bulk of the file).
-
- Base Header Records:
- -------------------
- Base header records are blocks of data that apply to the entire message base
- and are of variable length. This specification defines only one base header
- record, the "Status info" (smbstatus_t) record. This status info record must be
- the first base header record in the file and must be modified if additional
- base header records are added.
-
- Additional header records allow other developers to store configuration and
- status information particular to their application needs. It also allows for
- future header record definitions as part of this specification without causing
- backward compatibility issues.
-
- Each base header record contains a fixed length portion (smbhdr_t) and an
- optional variable length portion.
-
- Whenever a base header record is read or updated (written), it must first
- be successfully locked and subsequently unlocked.
-
- The first base header record (Status Info) is used as a semaphore when writing
- to the message index (.SID) file and, when using the Hyper Allocation storage
- method, writing to the message data (.SDT) file. This record must be
- succesfully locked before writing and subsequently unlocked. This is to insure
- that multiple applications simultaneously writing to the same message base
- does result in corrrupted data.
-
-
- Message Header Records:
- ----------------------
- Following the last base header record is the first message header record. Each
- header record is stored in one or more 256 byte blocks. There must be exactly
- one active message header record for every index record in the index file.
- (Note: This does not include deleted message headers that have not been
- overwritten by a new message header).
-
- Each message header record contains a fixed length portion (msghdr_t), a list
- of zero or more fixed length data fields (dfield_t), and a list of three or
- more variable length header fields (hfield_t).
-
- The value of the data stored in the zero or more unused bytes of the last
- header record block have an undefined value, though whenever possible
- developers should initialize to binary zero for human readability.
-
- Whenever a message header record is read or updated (written), it must first
- be successfully locked and subsequently unlocked.
-
-
-
-
- _______________________________________________________________________________
- Synchronet 20 Header File (*.SHD) Format
-
-
- Base Header Record (Fixed Portion):
- ----------------------------------
- C example:
-
- typedef struct {
-
- uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct
-
- } smbhdr_t;
-
-
- Base Header Record Field Descriptions:
- -------------------------------------
- Id:
- This is a four byte unique ID identifying the type of the base header record.
- The bytes may contain any value, but printable ASCII characters are preferred.
- The only ID defined in this specification is "SMB^Z" used by the Status Info
- base header record.
-
- Version:
- This is a version number of the base header record type. Base header records
- of different versions may have different formats or contain different
- information. This is to aid the application in determining if the record
- is pertinent and if so, to what degree. The Status Info base header record
- uses this version field to define the version of the format for the entire
- message base (currently 0x121 for version 1.21).
-
- Length:
- This is entire length in bytes of this header record (including both fixed
- and variable portions).
-
-
- Base Header #1 (Status info) Record (Variable Portion):
- ------------------------------------------------------
- C example:
-
- typedef struct {
-
- ulong last_msg; // last message number posted or imported
- ulong total_msgs; // total messages currently in message base
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of messages to keep in base
- ushort max_age; // Maximum age of messages (days) to keep in base
- ushort attr; // Attribute bits
-
- } smbstatus_t;
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 21 Header File (*.SHD) Format
-
-
- Base Header #1 (Status Info) Record (Variable Portion) Field Descriptions:
- -------------------------------------------------------------------------
- Last_msg:
- This is the serial number of the last message imported or posted into this
- message base. The index, header, and data records for this message may possibly
- not exist (due to deletion). This field is used for determining the message
- number to give to a new message being imported or posted into this message
- base. This field must be updated for every message added to the message base.
-
- Total_msgs:
- This is the total number of active messages currently in the message base.
- This number should match the number of records in the index (.SID) file
- and active header records in the header (.SHD) file. This field must be
- updated whenever a message is added to or removed from the message base.
-
- Header_offset:
- This is the byte offset to the first message header record. It is useful
- for skipping all the base header records and going directly to the first
- message header record.
-
- Max_crcs:
- This is the maximum number of message CRCs to store in the CRC history (.SCH)
- file for duplicate message checking. If this field contains 0, then duplicate
- message checking is disabled.
-
- Max_msgs:
- This is the preferred maximum number of messages to keep in this message
- base as specified by the system operator. It is used by maintenance programs
- that trim the message base down by removing old messages. This field should
- be ignored by applications importing or posting messages allowing them to
- exceed this maximum at will.
-
- Max_age:
- This field is the maximum age (in days) of messages to keep in the message
- base. It is used by maintenance programs to purge out-dated messages from
- the message base.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 22 Header File (*.SHD) Format
-
-
- Attr:
- This is a bit field containing specific attributes (or flags) that may define
- the way messages are stored or retrieved from the this message base. The
- following attributes are defined:
-
- SMB_EMAIL (1<<0)
-
- Indicates the message base is specifically for messages to or from local
- users. When this bit is set, the idxrec.to and idxrec.from fields will
- contain the user numbers (or 0 for non-user destination/source) instead of
- the CRC-16 of the agent name.
-
- SMB_HYPERALLOC (1<<1)
-
- Indicates the message base uses the Hyper Allocation storage method. This
- bit should not be cleared by an application without first deleting all the
- messages in the message base. This is due to the fact the Hyper Allocation
- is not downward compatible with the Self-packing and Fast Allocation
- storage methods.
-
- When used with Synchronet BBS software, a message base must NOT have both of
- the above attributes set. The only message base that should have the SMB_EMAIL
- attribute set is the DATA\MAIL message base.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 23 Header File (*.SHD) Format
-
-
- Base Header #1 (Status info) Record Contents:
- --------------------------------------------
- smbhdr.id="SMB\x1a"; // SMB^Z
- smbhdr.version=0x121; // v1.21
- smbhdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t); smbstatus_t status;
-
-
- Additional Base Headers:
- -----------------------
- Additional headers from developers must have initial 8 bytes in smbhdr_t
- format, length must include size of smbhdr_t, and header_offset of smbstatus_t
- must be changed to include the size of the additional header(s).
-
-
- Example file dump (base header portion only):
- --------------------------------------------
- 000000 53 4D 42 1A 20 01 20 00 F4 01 00 00 F4 01 00 00 SMB. . .�...�...
- 000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...�...�.......
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 24 Header File (*.SHD) Format
-
-
- Message Header Record (Fixed portion):
- -------------------------------------
- C example:
-
- typedef struct {
-
- uchar id[4]; // SHD^Z (same for all types and versions)
- ushort type; // Message type (this is the definition of type 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed portion + all fields
- ushort attr; // Attributes (bit field) (duplicated in SID)
- ulong auxattr; // Auxillary attributes (bit field)
- ulong netattr; // Network attributes (bit field)
- when_t when_written; // Date/Time message was originally created
- when_t when_imported; // Date/Time message was imported (locally)
- ulong number; // Message number (unique, not necessarily seq.)
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // Number of first reply to this message
- uchar reserved[16]; // 16 reserved bytes for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields
-
- } msghdr_t;
-
- typedef struct {
-
- ushort type; // See "Data Field Types" values
- ulong offset; // Offset into buffer
- ulong length; // Length of data field in buffer
-
- } dfield_t;
-
- typedef struct {
-
- ushort type; // See "Header Field Types" for values
- ushort length; // Length of buffer
- uchar dat[length];
-
- } hfield_t;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 25 Header File (*.SHD) Format
-
-
- Example file dump (one header record, both fixed and variable length portions):
- ------------------------------------------------------------------------------
- 000020 53 48 44 1A 00 00 20 01 F5 00 00 00 00 00 00 00 SHD... .�.......
- 000030 00 00 00 00 46 DB F7 2C 00 00 7D D7 29 2D 00 00 ....F��,..}�)-..
- 000040 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
- 000050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
- 000060 00 00 00 00 02 00 00 00 00 00 00 00 4A 01 00 00 ............J...
- 000070 02 00 4A 01 00 00 53 00 00 00 00 00 13 00 4D 61 ..J...S.......Ma
- 000080 72 69 61 6E 6E 65 20 4D 6F 6E 74 67 6F 6D 65 72 rianne Montgomer
- 000090 79 30 00 0C 00 43 61 72 6F 6C 20 47 61 69 73 65 y0...Carol Gaise
- 0000A0 72 60 00 07 00 46 61 72 6E 68 61 6D A4 00 14 00 r`...Farnham�...
- 0000B0 31 3A 31 33 38 2F 31 30 32 2E 30 20 32 63 66 38 1:138/102.0 2cf8
- 0000C0 30 35 37 36 A5 00 14 00 31 3A 33 34 33 2F 31 30 0576�...1:343/10
- 0000D0 30 2E 30 20 32 63 66 33 62 39 30 61 A3 00 23 00 0.0 2cf3b90a�.#.
- 0000E0 31 33 38 2F 31 30 32 20 31 20 32 37 30 2F 31 30 138/102 1 270/10
- 0000F0 31 20 32 30 39 2F 32 30 39 20 31 30 33 2F 30 20 1 209/209 103/0
- 000100 33 35 35 02 00 02 00 02 00 03 00 08 00 01 00 8A 355............�
- 000110 00 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .f..............
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 26 Header File (*.SHD) Format
-
-
- Contents of example header:
- --------------------------
- id SHD^Z
- type 0000h
- version 0120h
- length 245
- attr 0000h
- auxattr 00000000h
- netattr 00000000h
- when_written Sat Nov 27 17:57:10 1993
- when_imported Tue Jan 04 15:54:21 1994
- number 1
- thread_orig 0
- thread_next 0
- thread_first 0
- reserved[16]
- offset 0
- total_dfields 2
-
- dfield[0].type 00h
- dfield[0].offset 0
- dfield[0].length 330
- dfield[1].type 02h
- dfield[1].offset 330
- dfield[1].length 83
-
- hfield[0].type 00h
- hfield[0].length 19
- hfield[0]_dat Marianne Montgomery
- hfield[1].type 30h
- hfield[1].length 12
- hfield[1]_dat Carol Gaiser
- hfield[2].type 60h
- hfield[2].length 7
- hfield[2]_dat Farnham
- hfield[3].type A4h
- hfield[3].length 20
- hfield[3]_dat 1:138/102.0 2cf80576
- hfield[4].type A5h
- hfield[4].length 20
- hfield[4]_dat 1:343/100.0 2cf3b90a
- hfield[5].type A3h
- hfield[5].length 35
- hfield[5]_dat 138/102 1 270/101 209/209 103/0 355
- hfield[6].type 02h
- hfield[6].length 2
- hfield[6]_dat 02 00
- hfield[7].type 03h
- hfield[7].length 8
- hfield[7]_dat 01 00 8A 00 66 00 00 00
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 27 Header File (*.SHD) Format
-
-
- Fixed Portion Field descriptions:
- --------------------------------
- Id:
- This field (regardless of the header type or version) must always contain the
- the string "SHD^Z". This is to aid in the restoration of a corrupted header
- file and give a visual indication of the beginning of a new header record when
- viewing dumps of the header file.
-
- Type:
- This is the message header type. Only one type is currently defined by this
- specification (type 0). Any and all future header types will have the first
- 4 fields (10 bytes) in the same format of type 0. This allows other types
- (with different lengths) to be skipped because the 4th field (length) will
- always be in the same position.
-
- Version:
- This is the version of this header type. This specification defines version
- 1.21 of message header type 0 (stored as 121h).
-
- Length:
- This is the total length of this message header record (including both fixed
- and variable length portions, but NOT including unused block space).
-
- Attr:
- This is a bit field (16-bit) containing basic message attributes (flags) for
- this message. An exact duplicate of this field is stored in the index file as
- well. They must always match.
-
- Auxattr:
- This is a bit field (32-bit) containing the auxillary attributes (flags) for
- this message. The attributes stored in this variable are more specific in
- nature and less critical than those in the Attr field.
-
- Netattr:
- This is a bit field (32-bit) containing the network attributes (flags) for this
- message. The attributes stored in this variable are related solely to message
- networking.
-
- When_written:
- This is the date and time when the message was originally created.
-
- When_imported:
- This is the date and time when the message was posted on or imported into the
- local message system.
-
- Number:
- This is the message's unique serial number (from 1 to FFFFFFFFh). This field
- is duplicated in the index file. They must always match.
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 28 Header File (*.SHD) Format
-
-
- Thread_orig:
- If this message is a reply, then this field contains the number of the original
- message that was replied to. If this message was not a reply, this field will
- contain the value 0.
-
- Thread_next:
- If this message is a reply, and there are later replies to that message
- (the message number contained in the Thread_orig field), then this field will
- contain the number of the next reply in the chain. If this message is the only
- reply to the orignal message, this field will contain the value 0.
-
- Thread_first:
- If there are any replies to this message (after it has been posted), this field
- will contain the number of the first reply to this message. If there are no
- replies to this message, this field will contain the value 0.
-
- Reserved:
- Unused bytes, reserved for future definition in the message header type 0
- specification.
-
- Offset:
- The byte offset into the data file, specifying the start of the buffer for
- all data associated with this message. This value must be either 0 or modula
- 256. When retrieving the actual data portion of data fields, the physical
- offset into the file will be the offset of the message data buffer (this field)
- plus the offset of the individual data field (msghdr_t.offset+dfield_t.offset).
-
- Total_dfields:
- This field contains the total number of data fields associated with this
- message. The value of this field must match the actual number of data fields
- stored in the header (dfield_t data types following the fixed portion of the
- message header).
-
-
- Variable Portion Field descriptions:
- -----------------------------------
- See the Header Field Type and Data Field Type sections for the descriptions
- of the values contained in these fields.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 29 Header File (*.SHD) Format
-
-
- Message Header Block Allocation (*.SHA)
- =======================================
-
- If this message base uses the Hyper Allocation storage method (the
- SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
- not created or used.
-
- This file contains no header or signature data. Each byte (uchar) in the file
- specifies the allocation state of the corresponding 256 byte block in the
- header (*.SHD) file. A value of 0 indicates a free header block, and a value of
- 1 indicates an allocated block. Other non-zero values are undefined.
-
- This file must always be opened DENY ALL (non-shareable).
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 30 Header Allocation File (*.SHA) Format
-
-
- Message Data (*.SDT)
- ====================
-
- This file contains no header or signature data. It contains the text and other
- embedded data for the messages in a single message base. The data for each
- message always begins on a 256 byte block boundary. The data in the unused
- portion of a data block is undefined, but should be initialized to NULL
- whenever possible.
-
- This file must always be opened DENY NONE (shareable).
-
- Data fields of type TEXT_BODY and TEXT_TAIL must have all trailing white space
- and control characters removed (i.e. the last character of the data record
- must be in the range 21h to FFh). The only exception to this rule, is if the
- TEXT_BODY is terminated with multiple contiguous CRLFs, only the last CRLF
- should be removed. A CRLF should always be appended to the text data when it is
- displayed.
-
- When reading from this file, it is a good idea to make sure the message header
- for the data being read is currently locked (though no single message header
- should be locked for extended durations of time). This will insure that no
- other application will write to this portion of the file while it's being
- read (read from disk, not displayed).
-
- When using the Hyper Allocation storage method, the Status Info message base
- header must be successfully locked before writing to this file and subsequently
- unlocked.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 31 Data File (*.SDT) Format
-
-
- Message Data Block Allocation (*.SDA)
- =====================================
-
- If this message base uses the Hyper Allocation storage method (the
- SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
- not created or used.
-
- This file contains no header or signature data. Each word (ushort) in the file
- specifies the allocation state of the corresponding 256 byte block in the data
- (*.SDT) file. A value of 0 indicates a free block, and a non-zero value
- indicates the number of message header records associated with this message
- data (most often 1). Each block can be used by up to 65,535 header records.
-
- This file must always be opened DENY ALL (non-shareable).
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 32 Data Allocation File (*.SDA) Format
-
-
- CRC history for duplicate message checking (*.SCH)
- ==================================================
-
- This file is optional and contains no header or signature data. Each long word
- (ulong) in the file contains a CRC-32 of previously posted/imported messages.
- These CRCs can be used to check a candidate message for posting/import to be
- sure the message isn't a duplicate created by human or program error. The
- maximum number of CRCs to store is defined in the first message base header
- record (smbstatus_t.max_crcs).
-
- The CRC is calculated on the first TEXT_BODY data field before any translations
- are applied (e.g. encoding, compression, encryption).
-
- This file must always be opened DENY ALL (non-shareable).
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 33 CRC History File (*.SCH) Format
-
-
- Header Field Types:
- ==================
-
- These are the defined valid values for hfield_t.type:
-
- Name : SENDER
- Value : 00h
- Data : ASCII
- Multiple : Yes, order significant
- Required : Yes
- Summary : Name of agent that sent this message
-
- If blank (0 length or nulstr), assumed "Anonymous". If multiple SENDER fields
- exist, then the message has been forwarded and the order of the fields in the
- record must match the forwarding order (chronologically). When forwarding a
- message, the original SENDER field should be left intact and new SENDER,
- FORWARDED, and RECIPIENT fields added to the end of the record.
-
-
- Name : SENDERAGENT
- Value : 01h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : AGENT_PERSON or previous SENDERAGENT if exists
- Summary : Type of agent that sent this message
-
- If multiple SENDER fields exist, then the message has been forwarded. If any of the
- forwarding agents is of a type other than AGENT_PERSON, then this field must
- follow that SENDER field to specify the agent type.
-
- Name : SENDERNETTYPE
- Value : 02h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : NET_NONE or previous SENDERNETTYPE if exists
- Summary : Type of network message was sent from
-
- If multiple SENDERNETADDR fields are included, a SENDERNETTYPE field should be
- included before each to determine what data type the address is stored in.
-
- Name : SENDERNETADDR
- Value : 03h
- Data : undef
- Multiple : Yes, order significant
- Required : No
- Default : Previous SENDERNETADDR if exists
- Summary : Network address for agent that sent this message
-
- The SENDERNETTYPE field indicates the data type of this field. If the
- SENDERNETTYPE is of type NET_INTERNET, the local-part of the Internet
- address is optional. If the local-part separator character ('@') is omitted,
- the SENDER field is assumed to be the local-part of the address.
-
- _______________________________________________________________________________
- Synchronet 34 Header Field Types
-
-
-
- Name : SENDEREXT
- Value : 04h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : Previous SENDEREXT if exists
- Summary : Extension of sending agent
-
- This field is useful for storing the sending agent's extension, when the
- agent's extension binds more tightly than the agent's name.
-
- For example, Synchronet Multinode BBS Software stores local e-mail with the
- sending and receiving agent's user numbers stored as their respective
- extensions. This is done so that if a user name changes for some reason,
- messages will not "disappear" from the user's mail box.
-
- If the SMB_EMAIL status header attribute is set, then the "From" field in the
- index must contain the binary value of this field rather than the CRC-16 of the
- SENDER (name) field.
-
- Name : SENDERPOS
- Value : 05h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : Previous SENDERPOS if exists
- Summary : Position of sending agent
-
- Primarily for documentary purposes, this field contains the position of the
- sending agent (i.e. President, Sysop, C.E.O., MIS Director, etc).
-
- It can also be useful for getting a message or reply to the intended
- recipient when the agent name is not located or is unknown, but the position
- of the agent is known and specified.
-
- Name : SENDERORG
- Value : 06h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : Previous SENDERORG if exists
- Summary : Organization name of sending agent
-
- Primarily for documentary purposes, this field contains the organization to
- which the sending agent belongs (i.e. Microsoft, Joe's BBS, SoCal User's Group,
- etc).
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 35 Header Field Types
-
-
- Name : AUTHOR
- Value : 10h
- Data : ASCII
- Multiple : Yes
- Required : No
- Default : First SENDER
- Summary : Name of agent that created this message
-
- This field can only be added by the process that originally creates the
- message. It should not be included if same as first SENDER field. If multiple
- AUTHOR fields exist, then the message was created by multiple agents and is
- considered valid. The order of multiple AUTHOR fields in the record is not
- significant.
-
- Name : AUTHORAGENT
- Value : 11h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : SENDERAGENT or previous AUTHORAGENT if exists
- Summary : Type of agent that created this message
-
- This field can only be added by the process that originally creates the
- message. It should not be included if same as first SENDERAGENT field. If
- multiple AUTHOR fields exist, then the message was created by multiple agents
- and if the agent type for any of the authors is other than AGENT_PERSON, an
- AUTHORAGENT field must follow to specify the agent type.
-
- Name : AUTHORNETTYPE
- Value : 12h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : SENDERNETTYPE or previous AUTHORNETTYPE if exists
- Summary : Type of network this author is member of
-
- Name : AUTHORNETADDR
- Value : 13h
- Data : undef
- Multiple : Yes, order significant
- Required : No
- Default : SENDERNETADDR or previous AUTHORNETADDR if exists
- Summary : Network address of this author
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 36 Header Field Types
-
-
- Name : AUTHOREXT
- Value : 14h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : SENDEREXT or previous AUTHOREXT if exists
- Summary : Extension of this author
-
- Name : AUTHORPOS
- Value : 15h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : SENDERPOS or previous AUTHORPOS if exists
- Summary : Position of this author
-
- Name : AUTHORORG
- Value : 16h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : SENDERORG or previous AUTHORORG if exists
- Summary : Organization this author belongs to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 37 Header Field Types
-
-
- Name : REPLYTO
- Value : 20h
- Data : ASCII
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDER
- Summary : Name of agent that replies should go to
-
- Name : REPLYTOAGENT
- Value : 21h
- Data : ushort
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDERAGENT
- Summary : Type of agent that replies should go to
-
- Name : REPLYTONETTYPE
- Value : 22h
- Data : ushort
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDERNETTYPE
- Summary : Type of network that replies should go to
-
- Name : REPLYTONETADDR
- Value : 23h
- Data : undef
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDERNETADDR
- Summary : Network address that replies should go to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 38 Header Field Types
-
-
- Name : REPLYTOEXT
- Value : 24h
- Data : ASCII
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDEREXT
- Summary : Extension of agent that replies should go to
-
- Name : REPLYTOPOS
- Value : 25h
- Data : ASCII
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDERPOS
- Summary : Position of agent that replies should go to
-
- Name : REPLYTOORG
- Value : 26h
- Data : ASCII
- Multiple : Yes, but only last is valid
- Required : No
- Default : SENDERORG
- Summary : Organization of agent that replies should go to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 39 Header Field Types
-
-
- Name : RECIPIENT
- Value : 30h
- Data : ASCII
- Multiple : Yes, order significant
- Required : Yes
- Default : "All"
- Summary : Name of agent to receive this message
-
- If multiple RECIPIENT fields exist, the message has been forwarded and for each
- additional RECIPIENT field (after the initial RECIPIENT), there should be a
- FORWARDED field. The order of the RECIPIENT fields in the record must match the
- order in which the message was sent and forwarded (chronologically).
-
- Name : RECIPIENTAGENT
- Value : 31h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : AGENT_PERSON or previous RECIPIENTAGENT if exists
- Summary : Type of agent to receive this message
-
- If multiple RECIPIENT fields exist, the message has been forwarded. If any of
- the recipient agents are of a type other than AGENT_PERSON, this field must
- follow the RECIPIENT field to specify the agent type.
-
- Name : RECIPIENTNETTYPE
- Value : 32h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : NET_NONE or previous RECIPIENTNETTYPE if exists
- Summary : Type of network to receive this message
-
- Name : RECIPIENTNETADDR
- Value : 33h
- Data : undef
- Multiple : Yes, order significant
- Required : No
- Default : Previous RECIPIENTNETADDR if exists
- Summary : Address of network to receive this message
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 40 Header Field Types
-
-
- Name : RECIPIENTEXT
- Value : 34h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : Previous RECIPIENTEXT if exists
- Summary : Extension of agent to receive this message
-
- If SMB_EMAIL status header attribute is set, then the "To" field in the index
- must contain the binary value of this field rather than the CRC-16 of the
- RECIPIENT (name) field. This is the case specifically with the local e-mail
- message base on a Synchronet BBS.
-
- Name : RECIPIENTPOS
- Value : 35h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : Previous RECIPIENTPOS if exists
- Summary : Position of agent to receive this message
-
- Name : RECIPIENTORG
- Value : 36h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : Previous RECIPIENTORG if exists
- Summary : Type of agent to receive this message
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 41 Header Field Types
-
-
- Name : FORWARDTO
- Value : 40h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Summary : Name of agent this message is to be forwarded to
-
- Name : FORWARDTOAGENT
- Value : 41h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTAGENT or previous FORWARDTOAGENT if exists
- Summary : Type of agent this message is to be forwarded to
-
- Name : FORWARDTONETTYPE
- Value : 42h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTNETTYPE or previous FORWARDTONETTYPE if exists
- Summary : Type of network this message is to be forwarded to
-
- Name : FORWARDTONETADDR
- Value : 43h
- Data : undef
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTNETADDR or previous FORWARDTONETADDR if exists
- Summary : Network address this message is to be forwarded to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 42 Header Field Types
-
-
- Name : FORWARDTOEXT
- Value : 44h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTEXT or previous FORWARDTOEXT if exists
- Summary : Extension of agent this message is to be forwarded to
-
- Name : FORWARDTOPOS
- Value : 45h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTPOS or previous FORWARDTOPOS if exists
- Summary : Position of agent this message is to be forwarded to
-
- Name : FORWARDTOORG
- Value : 46h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTORG or previous FORWARDTOORG if exists
- Summary : Organization of agent this message is to be forwarded to
-
- Name : FORWARDED
- Value : 48h
- Data : when_t
- Multiple : Yes, order significant
- Required : Yes, if forwarded
- Summary : Date/Time this message was forwarded to another agent
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 43 Header Field Types
-
-
- Name : RECEIVEDBY
- Value : 50h
- Data : ASCII
- Multiple : Yes, order significant
- Required : Yes, if receiving agent is other than RECIPIENT
- Summary : Name of agent that received this message
-
- Name : RECEIVEDBYAGENT
- Value : 51h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTAGENT or previous RECEIVEDBYAGENT if exists
- Summary : Type of agent that received this message
-
- Name : RECEIVEDBYNETTYPE
- Value : 52h
- Data : ushort
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTNETTYPE or previous RECEIVEDBYNETTYPE if exists
- Summary : Type of network that received this message
-
- Name : RECEIVEDBYNETADDR
- Value : 53h
- Data : undef
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTNETADDR or previous RECEIVEDBYNETADDR if exists
- Summary : Network address that received this message
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 44 Header Field Types
-
-
- Name : RECEIVEDBYEXT
- Value : 54h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTEXT or previous RECEIVEDBYEXT if exists
- Summary : Extension of agent that received this message
-
- Name : RECEIVEDBYPOS
- Value : 55h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTPOS or previous RECEIVEDBYPOS if exists
- Summary : Position of agent that received this message
-
- Name : RECEIVEDBYORG
- Value : 56h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Default : RECIPIENTORG or previous RECEIVEDBYORG if exists
- Summary : Organization of agent that received this message
-
- Name : RECEIVED
- Value : 58h
- Data : when_t
- Multiple : Yes, order significant
- Required : Yes, if received
- Default : NULL
- Summary : Date/Time this message was received
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 45 Header Field Types
-
-
- Name : SUBJECT
- Value : 60h
- Data : ASCII
- Multiple : No
- Required : Yes, but may be blank (0 length or nulstr)
- Summary : Subject/title of message
-
- Name : SUMMARY
- Value : 61h
- Data : ASCII
- Multiple : No
- Required : No
- Summary : Summary of message contents, created by AUTHOR
-
- Name : COMMENT
- Value : 62h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Comment about this message, created by SENDER
-
- This field is useful for adding notes to a message when forwarding to a new
- recipient.
-
- Name : CARBONCOPY
- Value : 63h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : List of agents this message was also sent to
-
- This field is optional and only for the use of notifying the recipient of who
- else received the message.
-
- Name : GROUP
- Value : 64h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Name of group of users to receive message on recipient system
-
- This field is used when sending to a group name across a network, where the
- group can be expanded into multiple header records for each agent on the
- destination system.
-
- Name : EXPIRATION
- Value : 65h
- Data : when_t
- Multiple : No
- Required : No
- Summary : Date/Time that this message will expire
-
-
-
-
- _______________________________________________________________________________
- Synchronet 46 Header Field Types
-
-
- Name : PRIORITY
- Value : 66h
- Data : ulong
- Multiple : No
- Required : No
- Default : 0
- Summary : Message priority (0 is lowest, FFFFFFFFh is highest)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 47 Header Field Types
-
-
- Name : FILEATTACH
- Value : 70h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Name/file specification of attached file(s)
-
- Name of attached file(s). Wildcards allowed. MSG_FILEATTACH attribute must be
- set. If the MSG_FILEATTACH attribute is set but this field is not included,
- the SUBJECT field is assumed to be the filename(s).
-
- Name : DESTFILE
- Value : 71h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Summary : Destination name for attached file(s)
-
- Wildcards allowed. FILEATTACH field must also be included.
-
- Name : FILEATTACHLIST
- Value : 72h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Name of ASCII list of attached filenames
-
- Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
- MSG_FILEATTACH attribute must be set.
-
- Name : DESTFILELIST
- Value : 73h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Summary : Name of ASCII list of destination filenames
-
- Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
-
- Name : FILEREQUEST
- Value : 74h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Name of requested file
-
- Wildcards allowed. MSG_FILEREQUEST attribute must be set
-
- Name : FILEPASSWORD
- Value : 75h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Summary : Password for FILEREQUEST
-
- _______________________________________________________________________________
- Synchronet 48 Header Field Types
-
-
-
- Name : FILEREQUESTLIST
- Value : 76h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Name of ASCII list of filenames to request
-
- Wildcards allowed.
-
- Name : FILEPASSWORDLIST
- Value : 77h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Summary : Name of ASCII list of passwords for FILEREQUESTLIST
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 49 Header Field Types
-
-
- Name : IMAGEATTACH
- Value : 80h
- Data : mattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of attached image file for display
-
- MSG_FILEATTACH attribute must be set. See Image Types for valid
- mattach_t.type values.
-
- Name : ANIMATTACH
- Value : 81h
- Data : mattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of attached graphical animation file for display
-
- MSG_FILEATTACH attribute must be set. See Animation Types for valid
- mattach_t.type values.
-
- Name : FONTATTACH
- Value : 82h
- Data : mattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of attached font definition file
-
- MSG_FILEATTACH attribute must be set. See Font Types for valid mattach_t.type
- values.
-
- Name : SOUNDATTACH
- Value : 83h
- Data : mattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of attached sound file for playback
-
- MSG_FILEATTACH attribute must be set. See Sound Types for valid mattach_t.type
- values.
-
- Name : PRESENTATTACH
- Value : 84h
- Data : mattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of attached presentation definition file
-
- MSG_FILEATTACH attribute must be set. See Present Types for valid
- mattach_t.type values.
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 50 Header Field Types
-
-
- Name : VIDEOATTACH
- Value : 85h
- Data : vattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of attached interleaved video/sound file
-
- MSG_FILEATTACH attribute must be set. See Video Types for valid
- vattach_t.type values and Video Compression Types for valid vattach_t.comp
- values.
-
- Name : APPDATAATTACH
- Value : 86h
- Data : mattach_t
- Multiple : Yes, order significant
- Required : No
- Summary : Name of attached application data file for process/display
-
- MSG_FILEATTACH attribute must be set. See Application Data Types for valid
- mattach_t.type values.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 51 Header Field Types
-
-
- Name : IMAGETRIGGER
- Value : 90h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of image file to trigger for display
-
- See Image Types for valid typestr_t.type values.
-
- Name : ANIMTRIGGER
- Value : 91h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of animation file to trigger for display
-
- See Animation Types for valid typestr_t.type values.
-
- Name : FONTTRIGGER
- Value : 92h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of font definition file to trigger
-
- See Font Types for valid typestr_t.type values.
-
- Name : SOUNDTRIGGER
- Value : 93h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of sound file to trigger for playback
-
- See Sound Types for valid typestr_t.type values.
-
- Name : PRESENTTRIGGER
- Value : 94h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of presentation definition file to trigger
-
- See Present Types for valid typestr_t.type values.
-
- Name : VIDEOTRIGGER
- Value : 95h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of interleaved video/sound file to trigger
-
- See Video Types for valid typestr_t.type values.
-
-
- _______________________________________________________________________________
- Synchronet 52 Header Field Types
-
-
- Name : APPDATATRIGGER
- Value : 96h
- Data : typestr_t
- Multiple : Yes, order significant
- Required : No
- Summary : Type and filename of application data file to trigger
-
- See Application Data Types for valid typestr_t.type values.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 53 Header Field Types
-
-
- Name : FIDOCTRL
- Value : A0h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Format : keyword ":" [" "] appdata
- Summary : FTS/FSC-compliant control information line
-
- Any FidoNet FTS/FSC-compliant control information ("kludge") line that
- does not have an equivalent representation here. All data not unique to the
- actual control line, including leading and trailing white space, Ctrl-A (01h)
- character and terminating CR must be ommited. Defined in FTS-0001.
-
- Name : FIDOAREA
- Value : A1h
- Data : ASCII
- Multiple : No
- Required : No
- Summary : FTN EchoMail conference name.
-
- Defined in FTS-0004.
-
- Name : FIDOSEENBY
- Value : A2h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Format : net"/"node [" "[net"/"]node] [...]
- Summary : Used to store two-dimensional (net/node) SEEN-BY information
-
- Often used in FTN EchoMail environments. Only the actual SEEN-BY data is stored
- and SEEN-BY: is stripped along with any leading and trailing white space
- characters. Defined in FTS-0004.
-
- Name : FIDOPATH
- Value : A3h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Format : net"/"node [" "[net"/"]node] [...]
- Summary : Used to store two-dimensional (net/node)
-
- Defined in FTS-0004. ^aPATH: is stripped along with any leading and trailing
- white space characters.
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 54 Header Field Types
-
-
- Name : FIDOMSGID
- Value : A4h
- Data : ASCII
- Multiple : No
- Required : No
- Format : origaddr " " serialno
- Summary : MSGID field as specified in FTS-0009.
-
- Name : FIDOREPLYID
- Value : A5h
- Data : ASCII
- Multiple : No
- Required : No
- Format : origaddr " " serialno
- Summary : REPLY field as specified in FTS-0009.
-
- Name : FIDOPID
- Value : A6h
- Data : ASCII
- Multiple : No
- Required : No
- Format : pID " " version [" "serialno]
- Summary : Indentification string of program that created this message
-
- Defined FSC-0046. "^aPID:" and any white space is not included.
-
- Name : FIDOFLAGS
- Value : A7h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Used to store the FTN FLAGS kludge information
-
- Note that all FLAG options that have binary representation in the message
- header must be removed from the FLAGS string prior to storing it. Only the
- actual flags option string is stored and ^aFLAGS is stripped along with any
- leading and trailing white space characters. Defined in FSC-0053.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 55 Header Field Types
-
-
- Name : RFC822HEADER
- Value : B0h
- Data : ASCII
- Multiple : Yes, order significant
- Required : No
- Format : field-name ":" [field-body] [CRLF]
- Summary : Undefined RFC-822 header field
-
- Internet Message storage format, that does not have an equivalent
- representation here. Folded header fields are allowed. Terminating CRLF may be
- ommited.
-
- Name : RFC822MSGID
- Value : B1h
- Data : ASCII
- Multiple : No
- Required : No
- Format : "<" addr-spec ">"
- Summary : Message-ID field as specified in RFC-822.
-
- Name : RFC822REPLYID
- Value : B2h
- Data : ASCII
- Multiple : No
- Required : No
- Format : "<" addr-spec ">"
- Summary : In-Reply-To field as specified in RFC-822.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 56 Header Field Types
-
-
- Name : UNKNOWN
- Value : F0h
- Data : undef
- Multiple : Yes
- Required : No
- Summary : Undefined header field of undefined type
-
- This field is useful for retaining binary header fields (that do not have an
- equivalent representation here) between message storage formats.
-
- Name : UNKNOWNASCII
- Value : F1h
- Data : ASCII
- Multiple : Yes
- Required : No
- Summary : Undefined header field of type ASCII
-
- This field is useful for retaining ASCII header fields (that do not have an
- equivalent representation here) between message storage formats.
-
- Name : UNUSED
- Value : FFh
- Data : undef
- Multiple : Yes
- Required : No
- Summary : Unused (deleted) header field
-
- The data contained in this header field is of an unknown type and should not be
- processed.
-
-
- Note:
- ----
- Specifically, not defined are the values F000h through FFFFh. These values
- are to be used for user or system defined header fields. Digital Dynamics
- requests that any developers or organizations that wish to have additional
- header fields added to this specification notify Digital Dynamics through any
- of the contact methods listed at the beginning of this document.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 57 Header Field Types
-
-
- Data Field Types:
- ================
-
- These are the defined valid values for dfield_t.type:
-
-
- Val Name Data Description
- --- ---- ---- -----------
- 00h TEXT_BODY mtext_t Displayable text (body of message).
- Included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data
- (except when multiple contiguous CRLFs
- terminate the text, only the last CRLF
- is removed).
-
- 01h TEXT_SOUL mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Included in duplicate message checking.
-
- 02h TEXT_TAIL mtext_t Displayable text (tag/tear/origin lines,
- etc).
- Not included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data.
-
- 03h TEXT_WING mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Not included in duplicate message checking.
-
- 10h FTEXT_BODY ftext_t Formatted equivalent of TEXT_BODY to be
- displayed in place of TEXT_BODY if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
- 12h FTEXT_TAIL ftext_t Formatted equivalent of TEXT_TAIL to be
- displayed in place of TEXT_TAIL if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 58 Data Field Types
-
-
- 20h IMAGEEMBED membed_t Type and data of embedded raster image file
- for display.
- See Image Types for valid membed.type
- values.
-
- 21h ANIMEMBED membed_t Type and data of embedded graphical
- animation file for display.
- See Animation Types for valid membed.type
- values.
-
- 22h FONTEMBED membed_t Type and data of embedded font definition
- file. See Font Types for valid
- membed_t.type values.
-
- 23h SOUNDEMBED membed_t Type and data of embedded sound file for
- playback.
- See Sound Types for valid membed_t.type
- values.
-
- 24h PRESENTEMBED membed_t Type and data of embedded presentation
- definition file.
- See Present Types for valid membed_t.type
- values.
-
- 25h VIDEOEMBED vembed_t Type and data of embedded video/sound file
- for playback.
- See Video Types for valid vembed_t.type
- values.
- See Video Compression Types for valid
- vembed_t.comp values.
-
- 26h APPDATAEMBED membed_t Type and data of embedded application data
- file for process/display.
- See Application Data Types for valid
- membed_t.type values.
-
- FFh UNUSED undef Space allocated for future update/expansion
-
-
- Specifically, not defined are the values F000h through FFFFh. These values
- are to be used for user or system defined data fields. Digital Dynamics
- requests that any developers or organizations that wish to have additional
- data fields added to this specification notify Digital Dynamics through any
- of the contact methods listed at the beginning of this document.
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 59 Data Field Types
-
-
- Message Attributes:
- ------------------
-
- These are the bit values for idxrec_t.attr and msghdr_t.attr:
-
- MSG_PRIVATE (1<<0) // Private
- MSG_READ (1<<1) // Read by addressee
- MSG_PERMANENT (1<<2) // Permanent
- MSG_LOCKED (1<<3) // Msg is locked, no editing possible
- MSG_DELETE (1<<4) // Msg is marked for deletion
- MSG_ANONYMOUS (1<<5) // Anonymous author
- MSG_KILLREAD (1<<6) // Delete message after it has been read
- MSG_MODERATED (1<<7) // This message must be validated before export
- MSG_VALIDATED (1<<8) // This message has been validated by a moderator
-
-
- Auxillary Attributes:
- --------------------
- These are the bit values for msghdr_t.auxattr:
-
- MSG_FILEREQUEST (1<<0) // File request
- MSG_FILEATTACH (1<<1) // File(s) attached to Msg
- MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
- MSG_KILLFILE (1<<3) // Delete file(s) when sent
- MSG_RECEIPTREQ (1<<4) // Return receipt requested
- MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
- MSG_NODISP (1<<6) // Msg may not be displayed to user
-
-
- Network Attributes:
- ------------------
- These are the bit values for msghdr_t.netattr:
-
- MSG_LOCAL (1<<0) // Msg created locally
- MSG_INTRANSIT (1<<1) // Msg is in-transit
- MSG_SENT (1<<2) // Sent to remote
- MSG_KILLSENT (1<<3) // Kill when sent
- MSG_ARCHIVESENT (1<<4) // Archive when sent
- MSG_HOLD (1<<5) // Hold for pick-up
- MSG_CRASH (1<<6) // Crash
- MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
- MSG_DIRECT (1<<8) // Send directly to destination
- MSG_GATE (1<<9) // Send via gateway
- MSG_ORPHAN (1<<10) // Unknown destination
- MSG_FPU (1<<11) // Force pickup
- MSG_TYPELOCAL (1<<12) // Msg is for local use only
- MSG_TYPEECHO (1<<13) // Msg is for conference distribution
- MSG_TYPENET (1<<14) // Msg is direct network mail
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 60 Message Attributes
-
-
- Translation Types:
- -----------------
-
- Definition for values of *.xlat[x]:
-
- XLAT_NONE 0 // No translation/End of translation list
- XLAT_LF2CRLF 1 // Expand sole LF to CRLF
- XLAT_ESCAPED 2 // 7-bit ASCII escaping for ctrl and 8-bit data
- XLAT_HUFFMAN 3 // Static and adaptive Huffman coding compression
- XLAT_LZW 4 // LZW (Lempel-Ziv-Welch) encoding for compression
- // Terry Welch, IEEE Computer Vol 17, No 6
- // June 1984, pp 8-19
- XLAT_LZC 5 // LZC (modified LZW) encoding for compression
- // Unix compress program
- XLAT_RLE 6 // Run length encoding compression
- XLAT_IMPLODE 7 // Implode compression (PKZIP v1.x)
- XLAT_SHRINK 8 // Shrink compression (PKZIP v1.x)
- XLAT_LZH 9 // LZH dynamic Huffman coding
- // Haruyasu Yoshizaki, LHarc
- // November, 1988
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 61 Translation Types
-
-
- Agent Types:
- -----------
-
- AGENT_PERSON 0 // To or from person
- AGENT_PROCESS 1 // Unknown process, identified by agent name
-
- Agent types E000h through EFFFh are reserved for Synchronet process types
- (defined specifically by Digital Dynamics).
-
- Note:
- ----
- Specifically not defined are agent types F000h through FFFFh. These values
- are to be used for user or system defined agent types. Digital Dynamics
- requests that any developers or organizations that wish to have additional
- agent types added to this specification notify Digital Dynamics through any
- of the contact methods listed at the beginning of this document.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 62 Agent Types
-
-
- Network Types:
- -------------
-
- // Net Type Address Format
- // -----------------------------------
- NET_NONE 0 // Locally created none
- NET_UNKNOWN 1 // Unknown undef
- NET_FIDO 2 // FTN network fidoaddr_t
- NET_POSTLINK 3 // PostLink network none
- NET_QWK 4 // QWK based network ASCII
- NET_INTERNET 5 // The Internet ASCII
- NET_WWIV 6 // WWIV based network ulong
- NET_MHS 7 // MHS network ASCII
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 63 Network Types
-
-
- Media Types:
- ===========
-
- Image Types:
- -----------
-
- IMAGE_UNKNOWN 0x00 // Use image signature header to determine format
- IMAGE_ASC 0x01 // ASCII text/IBM extended ASCII graphics
- IMAGE_ANS 0x02 // ANSI X3.64 terminal escape sequences
- IMAGE_AVT 0x03 // AVATAR terminal escape sequences
- IMAGE_LVI 0x04 // LVI terminal escape sequences
- IMAGE_GIF 0x05 // Compuserve Graphics Interchange Format (GIF)
- IMAGE_TIF 0x06 // Tagged Image Format (AKA TIFF)
- IMAGE_JPG 0x07 // Joint Photographers Electronics Group (JPEG)
- IMAGE_T16 0x08 // TrueVision 16-bit bitmap (TGA)
- IMAGE_T24 0x09 // TrueVision 24-bit bitmap (TGA)
- IMAGE_T32 0x0a // TrueVision 32-bit bitmpa (TGA)
- IMAGE_PCX 0x0b // ZSoft PaintBrush graphics
- IMAGE_BMP 0x0c // Windows bitmap
- IMAGE_RLE 0x0d // Windows bitmap (compressed)
- IMAGE_DIB 0x0e // Display independant bitmap
- IMAGE_PCD 0x0f // Kodak PhotoCD
- IMAGE_G3F 0x10 // Group 3 FAX
- IMAGE_EPS 0x11 // Ecapsulated PostScript
- IMAGE_RTF 0x12 // Rich text format
- IMAGE_RIP 0x13 // Remote Imaging Protocol Script (RIPscrip)
- IMAGE_NAP 0x14 // NAPLPS
- IMAGE_CDR 0x15 // Corel Draw!
- IMAGE_CGM 0x16 // Computer graphics metafile
- IMAGE_WMF 0x17 // Windows metafile
- IMAGE_DFX 0x18 // Autodesk AutoCAD
- IMAGE_IFF 0x19 // Amiga Interchange File Format
-
-
- Animation Types:
- ---------------
-
- ANIM_UNKNOWN 0 // Use file signature header to determine format
- ANIM_FLI 1 // Autodesk animator
- ANIM_FLC 2 // Autodesk
- ANIM_GL 3 // Grasprt
- ANIM_IFF 4 // Amiga Interchange File Format
-
-
- Video Types:
- -----------
-
- VIDEO_UNKNOWN 0 // Use file signature header to determine format
- VIDEO_QTIME 1 // Apple Quick-time
- VIDEO_FQTIME 2 // Apple Flattened Quick-time
- VIDEO_AVI 3 // Windows Auto/Video Interleave
- VIDEO_ULT 4 // OS/2 Ultimotion
-
-
-
- _______________________________________________________________________________
- Synchronet 64 Media Types
-
-
- Video Compression Types:
- -----------------------
-
- VCOMP_UNKNOWN 0 // Use file signature header to determine codec
- VCOMP_RLE 1 // Apple animation
- VCOMP_SMC 2 // Apple graphics
- VCOMP_RPZA 3 // Apple video
- VCOMP_KLIC 4 // Captain crunch
- VCOMP_CVID 5 // CinePak
- VCOMP_RT21 6 // Intel indeo R2
- VCOMP_IV31 7 // Intel indeo R3
- VCOMP_YVU9 8 // Intel YVU9
- VCOMP_JPEG 9 // JPEG
- VCOMP_MRLE 10 // Microsoft RLE
- VCOMP_MSVC 11 // Microsoft video 1
-
-
- Font Types:
- ----------
-
- FONT_UNKNOWN 0 // Use file signature header to determine format
- FONT_TTF 1 // Windows TrueType
- FONT_PFB 2 // PostScript Type 1 Font Binary
- FONT_PFM 3 // PostScript Type 1 Font Metric
- FONT_AMIGA 4 // Amiga Bitmapped
- FONT_AGFA 5 // CompuGraphic Fonts
-
-
- Sound Types:
- -----------
-
- SOUND_UNKNOWN 0 // Use file signature header to determine format
- SOUND_MOD 1 // MOD format
- SOUND_VOC 2 // Sound Blaster VOC format
- SOUND_WAV 3 // Windows 3.1 WAV RIFF format
- SOUND_MID 4 // MIDI format
- SOUND_GMID 5 // General MIDI format (standardized patches)
- SOUND_SMP 6 // Turtle Beach SampleVision format
- SOUND_SF 7 // IRCAM format
- SOUND_AU 8 // Sun Microsystems AU format
- SOUND_IFF 9 // Amiga Interchange File Format
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 65 Media Types
-
-
- Application Data Types:
- ----------------------
-
- APPDATA_UNKNOWN 0 // Use file signature header to determine format
- APPDATA_WORDPERFECT 1 // WordPerfect Document
- APPDATA_WKS 2 // Lotus 123 Worksheet (?)
- APPDATA_WK1 3 // Lotus 123 Worksheet rev 1
- APPDATA_WK2 4 // Lotus 123 Worksheet rev 2
- APPDATA_WK3 5 // Lotus 123 Worksheet rev 3
- APPDATA_DBF 6 // dBase III data file
- APPDATA_PDX 7 // Paradox data file
- APPDATA_EXCEL 8 // Excel data file
- APPDATA_QUATRO 9 // Borland Quatro Pro file
- APPDATA_WORD 10 // Microsoft Word
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 66 Media Types
-
-
- Message Storage Pseudo Code
- ===========================
-
- The following is a "C like" pseudo code listing example of adding a message to
- an SMB message base. SMBLIB contains C functions to do most of the following
- operations. We are supplying this pseudo code as a general definition of the
- order of required operations in writing to the message base. Many details have
- been left out to simplify the code and to demonstrate only the basic
- principles.
-
- shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
- sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
- sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-
- lock ( shd , smbhdr )
- read ( shd , smbstatus )
-
- if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.hdr.offset = filelength ( sdt )
-
- else {
- number_of_blocks = length_of_message_data / SDT_BLOCK_LEN
- if ( length_of_message_data % SDT_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1
-
- sda = open ( MSGBASE.SDA , READ/WRITE/DENY_ALL )
-
- if ( fast_allocation_mode )
- seek ( sda , END_OF_FILE )
-
- else {
- seek ( sda , BEGINNING_OF_FILE )
- while ( not end_of_file ( sda ) ) {
- read ( sda , allocated , number_of_blocks * 2 )
- if ( allocated = 0 ) {
- seek_backwards ( sda , number_of_blocks * 2 )
- break
- }
- }
- }
-
- msg.hdr.offset = ( current_position ( sda ) / 2 ) * SDT_BLOCK_LEN
-
- allocated = 1
-
- write ( sda , allocated , number_of_blocks * 2 )
-
- close ( sda )
- }
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 67 Message Storage Pseudo Code
-
-
- seek ( sdt , msg.hdr.offset )
-
- write ( sdt , message_data )
-
- if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.idx.offset = filelength ( shd )
-
- else {
- number_of_blocks = length_of_message_header / SHD_BLOCK_LEN
- if ( length_of_message_header % SHD_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1
-
- sha = open ( MSGBASE.SHA , READ/WRITE/DENY_ALL )
-
- if ( fast_allocation_mode )
- seek ( sha , END_OF_FILE )
-
- else {
- seek ( sha , BEGINNING_OF_FILE )
- while ( not end_of_file ( sha ) ) {
- read ( sha , allocated , number_of_blocks )
- if ( allocated = 0 ) {
- seek_backwards ( sha , number_of_blocks )
- break
- }
- }
- }
-
- msg.idx.offset = ( current_position ( sha ) * SHD_BLOCK_LEN )
- msg.idx.offset = msg.idx.offset + smbstatus.header_offset
-
- allocated = 1
-
- write ( sha , allocated , number_of_blocks )
-
- close ( sha )
- }
-
- seek ( shd , msg.idx.offset )
-
- msg.hdr.number = smbstatus.last_msg+1
-
- write ( shd , msg.hdr )
-
- smbstatus.total_msgs = smbstatus.total_msgs + 1
- smbstatus.last_msg = msg.hdr.number
-
- write ( shd , smbstatus )
-
- write ( sid , msg.idx )
-
- unlock ( shd , smbstatus )
-
-
-
- _______________________________________________________________________________
- Synchronet 68 Message Storage Pseudo Code
-
-
- Message Retrieval Pseudo Code
- =============================
-
- shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
- sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
- sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-
- read ( sid , msg.idx )
-
- seek ( shd , msg.idx.offset )
-
- lock ( shd , msg.hdr )
-
- read ( shd , msg.hdr )
-
- seek ( sdt , msg.hdr.offset )
-
- read ( sdt , msg.hdr.data_length )
-
- unlock ( shd , msg.hdr )
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 69 Message Retrieval Pseudo Code
-
-
- SMBUTIL
- =======
-
- SMBUTIL is a utility that can perform various functions on an SMB message base.
- The primary purpose of SMBUTIL is as an example to C programmers of how to use
- the SMBLIB functions to access and modify an SMB message base. The complete C
- source code for SMBUTIL is included and functions from it can be used or
- modified by developers at their own discretion. The following files make up
- SMBUTIL:
-
- SMBUTIL.EXE Compiled and linked for 16-bit DOS (ready to run)
- SMBUTIL.C C functions
- SMBUTIL.H C definitions and variable prototypes
- SMBUTIL.WAT Makefile for Watcom C/C++ (type wmake -f smbutil.wat)
- SMBUTIL.BOR Makefile for Borland C/C++ (type make -f smbutil.bor)
-
- The usage syntax is as follows:
-
- SMBUTIL [/opts] cmd smb_filespec.shd
-
- where cmd is one or more of the following:
-
- l[n] = list msgs starting at number n
- r[n] = read msgs starting at number n
- v[n] = view msg headers starting at number n
- k[n] = kill (delete) n msgs
- i<f> = import from text file f
- s = display msg base status
- c = change msg base status
- m = maintain msg base - delete old msgs and msgs over max
- p[k] = pack msg base (k specifies minimum packable Kbytes)
-
- where opts is one or more of the following:
-
- a = always (force) packing
- z<n> = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)
-
- and smb_filespec is the base filename or file specification (wildcards) for the
- message base. If wildcards are used, the ".SHD" extension must be specified.
-
- An example command line:
-
- SMBUTIL MP C:\SBBS\DATA\SUBS\*.SHD
-
- would maintain and pack all the message bases found in the C:\SBBS\DATA\SUBS
- directory.
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 70 SMBUTIL
-
-
- CHKSMB
- ======
-
- CHKSMB is a utility that performs a comprehensive analysis of a message base
- to find any possible errors and calculate the number of packable bytes. It does
- not "fix" a message base if any errors are found, it only reports the specific
- errors (and exits with a non-zero error level). If any errors are reported,
- packing the message base with SMBUTIL may rebuild the damaged files. If that
- doesn't work, then use FIXSMB as a last resort.
-
- C source code for CHKSMB is also included as an example to programmers of how
- to use SMBLIB functions.
-
- The usage syntax is as follows:
-
- CHKSMB [/opts] smb_filespec.shd
-
- where opts is one or more of the following:
-
- q = quiet mode (no beeps)
- s = stop after an errored message base (for use with wildcards)
- p = pause after an errored message base (wait for key press)
- t = don't check for unsupported translation strings (faster)
- e = display extended information on corrupted messages
-
- An example command line:
-
- CHKSMB /QP C:\SBBS\DATA\SUBS\*.SHD
-
- would check all the message bases in the C:\SBBS\DATA\SUBS directory, without
- beeping on errors, and pausing after an errored message base.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 71 CHKSMB
-
-
- FIXSMB
- ======
-
- FIXSMB is a utility that will rebuild the index and allocation files for a
- message base. Since the message headers are not necessarily stored
- sequentially, the order of the messages in the index may be changed when the
- index is rebuilt. Messages are also re-numbered, so only use this program if
- the index is corrupted and the messages are extremely important.
-
- C source code for FIXSMB is also included as an example to programmers of how
- to use SMBLIB functions.
-
- The usage syntax is as follows:
-
- FIXSMB [/M] smb_file
-
- An example command line:
-
- FIXSMB \SBBS\DATA\MAIL
-
- Only use the "/M" command line switch if fixing an older Synchronet e-mail
- message base (created with SBBS v2.1 or earlier). Once the SMB_EMAIL status
- attr is set ("SMBUTIL S" will report a status attr of 1), the "/M" is not
- required.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 72 FIXSMB
-
-
- SMBLIB
- ======
-
- SMBLIB is a library of C functions for accessing and storing messages in an
- SMB format message base. It can eliminate much of the development time for
- developers that wish to use the library in whole or in part, or use the
- functions as examples for their own message base function library. The library
- consists of the following files:
-
- SMBDEFS.H Constant definitions, macros, and data types
- SMBLIB.H Library constants and function prototypes
- SMBLIB.C Function definitions
- SMBVARS.C Global variable definitions (doubles as declaration file)
-
- For developers to use this library with their program, they must include the
- "SMBLIB.H" header file at the top of each C file that uses any of the library
- functions, global variables, data types, macros, and constants. This can be
- done by simply adding the following line to each .C file:
-
- #include "smblib.h"
-
- If SMBLIB.H is included, there is no need to include SMBDEFS.H or SMBVARS.C.
-
- To link the library functions and variables with a main program, the files
- SMBVARS.OBJ and SMBLIB.OBJ must be linked with the main program .OBJ files.
- If the operating system is DOS, be sure that all .OBJ files are compiled for
- the same memory model.
-
- Example MAKEFILEs for compiling and linking SMBUTIL with Borland C/C++
- (SMBUTIL.BOR) and Watcom C/C++ (SMBUTIL.WAT) are included.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 73 SMBLIB
-
-
- SMBDEFS.H
- =========
-
- The SMBDEFS.H file contains important constant definitions and data types (also
- defined in this document). If ever this document and SMBDEFS.H are inconsistent
- with each other, then SMBDEFS.H is to be considered correct and this document
- in error. If such a discrepency is found, please notifiy Digital Dynamics so it
- can be corrected in a future revision of the specification.
-
- Most notable of the data types is a structure called smbmsg_t (not defined
- in this document). It contains the fixed and variable portions of a message's
- header record as well as convenience pointers to the sender's name
- (smbmsg_t.to), recipient's name (smbmsg_t.from), network addresses, and more.
- If multiple SENDER header fields are included (for example), then smbmsg_t.to
- will point to the last SENDER header field in the header record. Convenience
- pointers for other data items work in the same fasion if multiple header fields
- of the same type exist in the header record.
-
- Variables of the smbmsg_t data type (and pointers to variables of smbmsg_t
- type) are used as arguments to many of the SMBLIB functions.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 74 SMBDEFS.H
-
-
- SMBVARS.C
- =========
-
- The SMBVARS.C file contains definitions of the global variables used by the
- SMBLIB functions. It is a fairly small file since their are a small number of
- global variables (by design). This file is used for both definitions and
- declarations, so no "extern" declarations need to be made in developers source
- code as long as SMBVARS.C or (preferably) SMBLIB.H is included in the source
- code.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 75 SMBVARS.C
-
-
- SMBLIB.H
- =======
-
- The SMBLIB.H file contains prototypes of all the functions in the SMBLIB.C
- file. It is necessary to include this file in C source code if any of the
- SMBLIB functions are used. The following C source line will include this file:
-
- #include "smblib.h"
-
- and should be placed near the top of all C source files that use SMBLIB
- functions, variables, constants, or data types.
-
- Function prototypes are necessary for compilers to know the correct calling
- syntax of a function and detect incorrect usage. Prototypes are also useful
- as a quick reference for programmers as to the correct calling syntax of a
- specific function.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 76 SMBLIB.H
-
-
- SMBLIB.C
- =======
-
- The SMBLIB.C file contains the actual SMBLIB library functions. This source
- file is not a stand alone program, but instead must be compiled and linked
- with a main source file to create the executable program.
-
- The functions in this file are organized in a logical order, but their order
- is actually irrelevant to the compiling, linking, and execution of the
- resulting program.
-
- A comment block preceeds each function, explaining what the function does,
- how the passed parameters are used, and what the return code (if any)
- indicates. A more detailed explanation of each function is included here:
-
- int smb_open(int retry_time)
- ----------------------------
- The smb_open() function must be called before the message base is accessed
- (read from or written to). The parameter, retry_time, is the maximum number
- of seconds to wait while retrying to lock the message base header. If
- retry_time is 0, then the message base header is not locked or read (this is
- called "Fast Open" and should only be used when speed is more important than
- checking for compatibility and validity upon opening). The global variable
- smb_file must be initialized with the path and base filename of the message
- base. This function returns 0 on success, 1 if the .SDT file could not be
- opened, 2 if the .SHD file could not be opened, and 3 if the .SID file could
- not be opened. If the message base header could not be locked, this function
- returns -1. If the message base ID is incorrect, it returns -2. And if the
- message base is of an incompatible version, it returns -3.
-
- The errno global variable (standard of most C libraries) will most likely
- contain the error code for open failure.
-
- int smb_open_da(int retry_time)
- -------------------------------
- The smb_open_da() function is used to open the data block allocation file for
- writing messages to a message base. The parameter, retry_time, is the maximum
- number of seconds to wait while retrying to open the file. This function
- returns 0 on success. -1 is returned if an open error other than "Access
- Denied" is returned from the operating system, and the global variable errno
- will contain the error code. -2 is returned if the retry_time has been
- reached, and -3 is returned if the file descriptor could not be converted to
- a stream by the fdopen() function.
-
- fclose(sda_fp) should be called immediately after all necessary file access
- has been completed.
-
- This function is not used with the Hyper Allocation storage method.
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 77 SMBLIB.C
-
-
- int smb_open_ha(int retry_time)
- -------------------------------
- The smb_open_ha() function is used to open the header block allocation file for
- writing messages to a message base. The parameter, retry_time, is the maximum
- number of seconds to wait while retrying to open the file. This function
- returns 0 on success. -1 is returned if an open error other than "Access
- Denied" is returned from the operating system, and the global variable errno
- will contain the error code. -2 is returned if the retry_time has been
- reached, and -3 is returned if the file descriptor could not be converted to
- a stream by the fdopen() function.
-
- fclose(sha_fp) should be called immediately after all necessary file access
- has been completed.
-
- This function is not used with the Hyper Allocation storage method.
-
- int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time)
- --------------------------------------------------------------------------
- The smb_create() function is used to create a new message base or reset an
- existing message base. The parameters max_crcs, max_msgs, max_age, and attr
- are used to set the initial status of the message base status header. The
- parameter, retry_time is the maximum number of seconds to wait while retrying
- to lock the message base header. This functions returns 0 on success or 1 if
- the message base header could not be locked.
-
- int smb_trunchdr(int retry_time)
- --------------------------------
- The smb_trunchdr() function is used to truncate the header file when packing
- the message base and writing the new header information back to the header
- file. The parameter, retry_time is the maximum number of seconds to wait while
- retrying to truncate the header file. Returns 0 on success, -1 if error was
- other than "Access Denied", or -2 if retry_time reached.
-
- int smb_locksmbhdr(int retry_time)
- ----------------------------------
- The smb_locksmbhdr() function is used to lock the first message base (status)
- header. The parameter, retry_time is the number of seconds to wait while
- retrying to lock the header. The smb_unlocksmbhdr() function should always be
- used to unlock the header after accessing the message base header (usually
- with smb_getstatus() and/or smb_putstatus()). Returns 0 if successful, -1 if
- unsuccessful.
-
- int smb_unlocksmbhdr()
- ----------------------
- The smb_unlocksmbhdr() function is used to unlock a previously locked message
- base header (using smb_lockmsghdr()). Returns 0 on success, non-zero on
- failure.
-
- int smb_getstatus(smbstatus_t *hdr)
- -----------------------------------
- The smb_getstatus() function is used to read the status message base header
- into the hdr structure. Returns 0 on success, 1 on failure.
-
-
- _______________________________________________________________________________
- Synchronet 78 SMBLIB.C
-
-
- int smb_putstatus(smbstatus_t hdr)
- ----------------------------------
- The smb_putstatus() function is used to write the status information to the
- first message base header. The parameter hdr, contains the status information
- to be written. Returns 0 on success, 1 on failure.
-
- int smb_getmsgidx(smbmsg_t *msg)
- --------------------------------
- The smb_getmsgidx() function is used to get the byte offset for a specific
- message header in the message header file based on the message base index.
-
- If msg->hdr.number is non-zero when this function is called, then the index
- will be searched for this message number. If the message number is found in
- the index, the msg->idx.offset is set to the byte offset of the message header
- record in the header file and msg->offset is set to the record offset of the
- index record in the index file, and the function returns 0. If the message
- number is not found in the index, the function returns 1.
-
- If msg->hdr.number is zero, msg->idx.offset and msg->idx.number are obtained
- from the index record at record offset msg->offset. If msg->offset is an
- invalid record offset when this function is called, the function returns 1.
- Otherwise, the function returns 0.
-
- int smb_getlastidx(idxrec_t *idx)
- ---------------------------------
- Reads the last index record of the currently open message base into the
- idxrec_t structure pointed to by idx. Returns 0 if successful, -1 if the index
- is empty or unopened, or -2 if the record can't be read.
-
- int smb_getmsghdrlen(smbmsg_t msg)
- ----------------------------------
- The smb_getmsghdrlen() function is used to calculate the total length of
- message header msg including both fixed and variable length portions. This
- function returns the length of the header record in bytes.
-
- long smb_getmsgdatlen(smbmsg_t msg)
- -----------------------------------
- The smb_getmsgdatlen() function is used to calculate the total length of the
- data for message msg. This function returns the length of all data fields
- combined.
-
- int smb_lockmsghdr(smbmsg_t msg, int retry_time)
- ------------------------------------------------
- The smb_lockmsghdr() function is used to lock the header record for message
- msg. The parameter retry_time is the maximum number of seconds to wait while
- retrying to lock the header. Returns 0 on success, -1 on failure. The function
- smb_unlockmsghdr() should immediately be called after accessing the message
- header (usually with smb_getmsghdr() or smb_putmsghdr()).
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 79 SMBLIB.C
-
-
- int smb_getmsghdr(smbmsg_t *msg)
- --------------------------------
- The function smb_getmsghdr() is used to read the header record for message
- msg. msg->idx.offset must be initialized to the byte offset of the header
- record in the header file before this function is called. The function
- smb_freemsgmem() must be called to free the memory allocated by this function
- for the header and data felds. This function returns 0 on success, -1 if
- the fixed portion of the message header record could not be read, -2 if the
- message header ID was incorrect, -3 if memory could not be allocated, -4
- if a data field could not be read, -5 if the fixed length portion of a header
- field could not be read, -6 if the variable length portion of a header field
- could not be read, -7 if one or more of the mandatory header fields (SENDER,
- RECIPIENT, or SUBJECT) are missing, -8 if total_dfields extends beyond the
- end of the header record, or -9 if incompatible header version.
-
- Several convenience pointers in the msg structure are initialized by this
- function to point to the last occurance of the SENDER (msg->from), RECIPIENT
- (msg->to), SUBJECT (msg->subj), etc.
-
- int smb_unlockmsghdr(smbmsg_t msg)
- ----------------------------------
- The smb_unlockmsghdr() function is used to unlock a previously locked message
- header (with smb_lockmsghdr()). This function returns 0 on success, non-zero
- on failure.
-
- int smb_addcrc(ulong max_crcs, ulong crc, int retry_time)
- ---------------------------------------------------------
- The smb_addcrc() function is used to add a CRC-32 to the CRC history file
- for a message base, automatically checking for duplicates. The parameter
- max_crcs should be the max_crcs defined in the status header of the message
- base. The parameter crc, is the CRC-32 of the TEXT_BODY and TEXT_SOUL data
- fields for the message. The parameter retry_time is the maximum number of
- seconds to wait when retrying to open the CRC history file.
-
- This function returns -1 if there was an open error, -2 if the retry_time
- was reached, -3 if there was a memory allocation error, 1 if the CRC already
- exists in the CRC history file (indicating a duplicate message), or 0 on
- success (and no duplicate).
-
- int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)
- ---------------------------------------------------------------------
- The smb_hfield() function is used to add a header field to the structure msg.
- The parameters type, length, and data, must be specified according to the
- header field values listed in this specification. This function returns 0
- on success, non-zero on memory allocation error. The function smb_freemsgmem()
- must be called to free the memory allocated by this function.
-
- int smb_dfield(smbmsg_t *msg, ushort type, ulong length)
- --------------------------------------------------------
- The smb_dfield() function is used to add a data field to the structure msg.
- The parameters type and length must be specified according to the data field
- values listed in this specification. This function returns 0 on success,
- non-zero on memory allocation error. The function smb_freemsgmem() must be
- called to free the memory allocated by this function.
-
- _______________________________________________________________________________
- Synchronet 80 SMBLIB.C
-
-
- int smb_addmsghdr(smbmsg_t *msg,smbstatus_t *status,int storage,int retry_time)
- -------------------------------------------------------------------------------
- The smb_addmsghdr() function is used to add a new message header to the message
- header file and update the index file. The msg and status structures are
- updated to reflect the new total messages, last message number, etc. The
- storage parameter is used to indicate the storage method to use (either
- SMB_SELFPACK, SMB_FASTALLOC, or SMB_HYPERALLOC). If the storage type is
- SMB_SELFPACK, the header block allocation file will be searched for unused
- block(s) to store this header. If the storage type is SMB_FASTALLOC or
- SMB_HYPERALLOC, the header is stored at the end of the header file. Returns 0
- on success, non-zero on failure. The parameter retry_time is the maximum number
- of seconds to wait while retrying to lock and open files.
-
- int smb_putmsg(smbmsg_t msg)
- ----------------------------
- The smb_putmsg() function calls both the smb_putmsghdr() and smb_putmsgidx()
- functions to write the header and index elements of a message to the
- appropriate files. Returns 0 on success, non-zero on failure.
-
- int smb_putmsgidx(smbmsg_t msg)
- -------------------------------
- The smb_putmsgidx() function is used to store a message index in the message
- index file. The message index can be for a new message or an existing
- message. Returns 0 on success, non-zero on failure.
-
- int smb_putmsghdr(smbmsg_t msg)
- -------------------------------
- The smb_putmsghdr() function is used to store a message header in the message
- header file. The message header can be for a new message or an existing
- message. Returns 0 on success, non-zero on failure.
-
- void smb_freemsgmem(smbmsg_t msg)
- ---------------------------------
- Frees allocated memory for the header and data fields in the msg structure.
- This function must be called to free the memory allocated by the functions
- smb_hfield(), smb_dfield(), and smb_getmsghdr().
-
- long smb_hdrblocks(ulong length)
- --------------------------------
- The smb_hdrblocks() function is used to calculate the number of blocks
- required to store a message header of length size (in bytes). This function
- returns the number of blocks required.
-
- long smb_datblocks(ulong length)
- --------------------------------
- The smb_datblocks() function is used to calculate the number of blocks
- required to store message data of length size (in byte). This function returns
- the number of blocks required.
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 81 SMBLIB.C
-
-
- long smb_allochdr(ulong length)
- -------------------------------
- The smb_allochdr() function is used to search for free blocks to store a
- message header of length bytes and mark the free blocks as allocated in the
- header allocation file. This function returns the byte offset to the header
- record or a negative number on error. The function smb_open_ha() should be
- called prior to calling this function and fclose(sha_fp) should be called
- after. The function is called from smb_addmsghdr(), so you probably have no
- need to call this function directly.
-
- long smb_fallochdr(ulong length)
- --------------------------------
- The smb_fallochdr() function works exactly the same as the smb_allochdr()
- function except it is much faster because the header allocation file is not
- searched for free blocks. The function is called from smb_addmsghdr(), so you
- probably have no need to call this function directly.
-
- long smb_hallochdr(ulong header_offset)
- ---------------------------------------
- This smb_hallochdr() functions works exactly the same as the smb_fallochdr()
- function except the status.header_offset is passed as the argument and the
- header allocation (.SHA) file is not updated so smb_open_ha() need not be
- called. The function is called from smb_addmsghdr(), so you probably have no
- need to call this function directly.
-
- long smb_allocdat(ulong length, ushort headers)
- -----------------------------------------------
- The smb_allocdat() function is used to search for free blocks to store length
- amount of data for a message. The parameter headers, indicates the number of
- message headers that are associated with this data. Normally, the headers
- parameter will be 1, unless this message is part of a mass mailing. The offset
- to the allocated data blocks is returned, or a negative value on error. The
- function smb_open_da() should be called prior to calling this function and
- fclose(sda_fp) should be called after.
-
- long smb_fallocdat(ulong length, ushort headers)
- ------------------------------------------------
- The smb_fallocdat() function works exactly the same as the smb_allocdat()
- function except it is much faster because the data allocation file is not
- searched for free blocks.
-
- long smb_hallocdat()
- --------------------
- The smb_hallocdat() function works exactly the same as the smb_hallocdat()
- function except no argument is passed and the data allocation file (.SDA) is
- not updated so smb_open_da() need not be called.
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 82 SMBLIB.C
-
-
- int smb_incdat(ulong offset, ulong length, ushort headers)
- ----------------------------------------------------------
- The smb_incdat() function is used to increment the header counter in the data
- allocation file for the data starting at the byte offset and length size in
- bytes. The parameter headers, indicates the number of headers to add to the
- current allocation value in the data allocation file. Returns 0 on success,
- non-zero on failure.
-
- int smb_freemsg(smbmsg_t msg, smbstatus_t status)
- -------------------------------------------------
- The smb_freemsg() function is used to free the disk space allocated for the
- header and data fields of the message msg. Returns 0 on success, non-zero on
- failure. The parameter, status, must be the current status from the message
- base header for this message base.
-
- int smb_freemsgdat(ulong offset, ulong length, ushort headers)
- --------------------------------------------------------------
- The smb_freemsgdat() function is used to decrement the data block allocation
- records in the data allocation file associated with the data in the data file
- by the value of the headers parameter (normally 1). The parameter offset
- indicates the byte offset to the beginning of the message data in the data
- file and the parameter length is the total length of the message data.
- Returns 0 on success, non-zero on failure.
-
- int smb_freemsghdr(ulong offset, ulong length)
- ----------------------------------------------
- The smb_freemsghdr() function is used to set the header block allocation
- records in the header allocation file to 0 (indicated non-allocated block).
- The parameter offset indicates the byte offset to the beginning of the header
- record being freed and the parameter length indicates the total length of the
- header record. Returns 0 on success, non-zero on failure.
-
- int smb_stack(int op)
- ---------------------
- The smb_stack() function is used to save and restore message base information
- so that multiple message bases can be open simultaneously. The stack can
- save up to 4 message bases (allowing 5 simultaneously open message bases).
- The stack is a "last in, first out" storage area for open message bases.
- If the op parameter is SMB_STACK_PUSH, smb_stack() will save (push) the current
- message base onto the stack. Calling smb_stack(SMB_STACK_POP) will restore
- (pop) the most recently pushed message base off the stack. Calling
- smb_stack(SMB_STACK_XCHNG) will exchange the most recently pushed message base
- and the current message base (replacing the top of the stack with the current
- message base).
-
- void smb_close()
- ----------------
- Closes the header, data, and index files for the currently open message base.
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 83 SMBLIB.C
-
-
- Miscellaneous SMBLIB Files
- ==========================
-
- CRC32.H C header file for CRC-32 calculations
- -----------------------------------------------------
- This file contains a static 32-bit CRC table (crc32tbl[]) and a macro (ucrc32)
- that uses this table to calculate 32-bit CRCs one byte at a time.
-
- Example:
-
- ulong crc=0xffffffff;
-
- for(i=0;i<length;i++)
- crc=ucrc32(buf[i],crc);
- crc=~crc;
-
-
- CRC16.C C functions for 16-bit CRC calculations
- -------------------------------------------------------
- This file contains a function (ucrc16), to calculate 16-bit CRCs one byte at a
- time and a function (crc16) that uses the ucrc16() function to calculate the
- 16-bit CRC of an ASCIIZ character string.
-
- Example:
-
- ushort crc;
-
- crc=crc16("Text");
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 84 Miscellaneous SMBLIB Files
-
-
- LZH.H Function prototypes for LZH.C
- ---------------------------------------------
- This file contains function prototypes for the two most important functions
- in LZH.C, lzh_encode() and lzh_decode().
-
- Example:
-
- uchar str[256],lzh[512];
- long length;
-
- strcpy(str,"This is a string of text");
- length=lzh_encode(str,strlen(str),lzh);
- lzh_decode(lzh,length,str);
-
-
- LZH.C C functions for LZH encoding (compression/decompression)
- ------------------------------------------------------------------------
- This file contains the functions for encoding and decoding LZH compressed
- data. If the macro LZH_DYNAMIC_BUF is defined when this file is compiled,
- temporary buffers will be dynamically allocated as opposed to static. This
- may be slower than the static buffer method, but frees the allocated memory
- after encoding or decoding. If free memory for your application is an issue,
- then define this macro when compiling this file.
-
- Example (Borland C):
-
- bcc -c -DLZH_DYNAMIC_BUF lzh
-
- Example (Watcom C):
-
- wcc -dLZH_DYNAMIC_BUF lzh
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 85 Miscellaneous SMBLIB Files
-
-
- SMBLIB Storage Example
- ======================
-
- #include "smblib.h"
- #include "crc16.c"
-
- int main(void)
- {
- char str[256] // General purpose string
- ,*msg_text="Hello, world!" // Message text
- ,nul_buf[SDT_BLOCK_LEN]={0} // NULL initialized buffer
- ;
- int i // General purpose integer
- ,storage=SMB_SELFPACK // Default storage method
- ,retry=10 // Retry for opening/locking files
- ;
- ushort max_age=0 // Default maximum age of messages
- ,xlat=XLAT_NONE // Translation string
- ,tzone=PST // Time zone
- ,copies=1 // Number of copies of this msg
- ;
- ulong max_msgs=500 // Default max number of msgs
- ,max_crcs=0 // Default max crcs
- ,length // Length of msg text
- ,offset // Offset to msg text in data file
- ;
- smbmsg_t msg; // Message structure
- smbstatus_t status; // Message base status record
-
- strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
- if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }
-
- if(!filelength(fileno(shd_fp))) // Message base not created yet
- smb_create(max_crcs // Create with default settings
- ,max_msgs
- ,max_age
- ,storage==SMB_HYPERALLOC
- ? SMB_HYPERALLOC : 0 // SMB_EMAIL if this was e-mail
- ,retry
- );
-
- if((i=smb_locksmbhdr(retry))!=0) { // Can't lock status base header
- printf("smb_locksmbhdr returned %d\n",i);
- smb_close();
- return(1); }
-
- if((i=smb_getstatus(&status))!=0) { // Can't read status base header
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_getstatus returned %d\n",i);
- return(1); }
-
-
- _______________________________________________________________________________
- Synchronet 86 SMBLIB Storage Example
-
-
- if(status.attr&SMB_HYPERALLOC)
- storage=SMB_HYPERALLOC;
- else
- storage=SMB_SELFPACK;
-
- length=strlen(msg_text); // Get length of message
- length+=sizeof(xlat); // Add length of xlat string
-
- if(storage==SMB_HYPERALLOC) // Allocate space for message text
- offset=smb_hallocdat();
- else {
- if((i=smb_open_da(retry))!=0) {
- smb_unlocksmbhdr();
- printf("smb_open_da returned %d\n",i);
- smb_close();
- return(1); }
- if(storage==SMB_FASTALLOC)
- offset=smb_fallocdat(length,copies);
- else
- offset=smb_allocdat(length,copies);
- fclose(sda_fp); }
-
- fseek(sdt_fp,offset,SEEK_SET); // Seek to beginning of data block
- fwrite(&xlat,sizeof(xlat),1,sdt_fp); // Write xlat string
- fwrite(msg_text,strlen(msg_text),1,sdt_fp); // Write message text
- fwrite(nul_buf,SDT_BLOCK_LEN-length // Write NULLs out to end of block
- ,1,sdt_fp);
- fflush(sdt_fp); // Flush output buffer
- smb_unlocksmbhdr(); // Unlock status base header
-
- memset(&msg,0,sizeof(smbmsg_t)); // Initialize header to NULL
- memcpy(msg.hdr.id,"SHD\x1a",4); // Always set to SHD^Z
- msg.hdr.version=SMB_VERSION;
- msg.hdr.when_written.time=time(NULL);
- msg.hdr.when_written.zone=tzone;
- msg.hdr.when_imported.time=time(NULL);
- msg.hdr.when_imported.zone=tzone;
- msg.hdr.offset=offset;
-
- strcpy(str,"All"); // Send message to "All"
- if((i=smb_hfield(&msg,RECIPIENT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_close();
- return(1); }
- strlwr(str); // If this were e-mail, idx.to
- msg.idx.to=crc16(str); // would be the "to" user number
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 87 SMBLIB Storage Example
-
-
- strcpy(str,"Sysop"); // Send message from "Sysop"
- if((i=smb_hfield(&msg,SENDER,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
- strlwr(str); // If this were e-mail, idx.from
- msg.idx.from=crc16(str); // would be the "from" user number
-
- strcpy(str,"This is a test"); // Set the message subject/title
- if((i=smb_hfield(&msg,SUBJECT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- if((i=smb_dfield(&msg,TEXT_BODY,length))!=0) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-
- if((i=smb_addmsghdr(&msg,&status,storage,retry))!=0) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-
- smb_freemsgmem(msg); // Unnecessary if exiting main()
- smb_close(); // Unnecessary if exiting main()
- return(0);
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 88 SMBLIB Storage Example
-
-
- SMBLIB Retrieval Example
- ========================
-
- #include "smblib.h"
-
- int main(void)
- {
- char ch; // General purpose character
- int i, // General purpose integer
- retry=10; // Retry for opening/locking files
- ushort xlat; // Translation string
- ulong l; // General purpose long integer
- smbmsg_t msg; // Message structure
-
- strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
- if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }
-
- if(!filelength(fileno(shd_fp))) { // Message base not created yet
- printf("Empty\n");
- smb_close();
- return(0); }
-
- for(msg.offset=0;!ferror(sid_fp);msg.offset++) {
-
- fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
-
- if((i=smb_lockmsghdr(msg,retry))!=0) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("smb_getmsghdr returned %d\n",i);
- break; }
- if((i=smb_unlockmsghdr(msg))!=0) {
- smb_freemsgmem(msg);
- printf("smb_unlockmsghdr returned %d\n",i);
- break; }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 89 SMBLIB Retrieval Example
-
-
- printf("Subj : %s\n",msg.subj);
- printf("To : %s\n",msg.to);
- printf("From : %s\n",msg.from);
- printf("Date : %s\n",ctime((time_t *)&msg.hdr.when_written.time));
-
- for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY: // Only show BODY and TAIL data fields
- case TEXT_TAIL:
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,sizeof(xlat),1,sdt_fp);
- if(xlat!=XLAT_NONE) // No translations supported
- continue;
- for(l=sizeof(xlat);l<msg.dfield[i].length;l++) {
- ch=fgetc(sdt_fp);
- if(ch)
- putchar(ch); }
- printf("\n");
- break; }
- printf("\n");
-
- smb_freemsgmem(msg); } // Free memory allocated by smb_getmsghdr()
-
- smb_close();
- return(0);
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 90 SMBLIB Retrieval Example
-
-
- SMBLIB Performance Issues
- =========================
-
- Since importing messages is the usually the most time consuming task likely
- undertaken by an SMB application, it is also the most susceptable to design
- issues that effect performance.
-
- Opening and Closing
- -------------------
- When importing multiple messages for a single message base, it appears logical
- to open the message base, import all the messages, then close it. This indeed
- is preferred over opening and closing the message base for each message.
-
- When importing multiple messages for possibly non-consecutive message bases,
- developers may eaily make the mistake of opening and closing the message base
- for each message. This is not necessary and can considerably hinder the
- import performance. The easiest solution is to only close the message base and
- open a new one if the next message to be imported is not for the same message
- base as the previously imported message. Example:
-
- smb_file[0]=0;
- for(i=0;i<total_messages_to_be_imported;i++) {
- if(stricmp(get_messagebase_for_this_message(i),smb_file)) {
- if(smb_file[0]) /* We've already opened one */
- smb_close();
- strcpy(smb_file,get_messagebase_for_this_message(i));
- smb_open(10); }
- /* Import this message */
- }
- if(smb_file[0])
- smb_close();
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 91 SMBLIB Performance Issues
-
-
- A more advanced method is to keep multiple message bases open at the same time.
- Due to the likely limitation of total file handles on the system, it is
- suggested to keep the number of simultaneously open message bases at or below
- 3. SMBLIB includes the function smb_stack() to easily "push" and "pop" message
- bases without closing them (push is the equivalent to "save" and pop is the
- equivalent to "restore"). The downside of this function is that you cannot
- access message bases on the stack without actually popping them off (in reverse
- of the order they were pushed). You can however "exchange" the current message
- base with the message base on the top of the stack (most recently pushed).
- To intelligently juggle more than two open message bases, the developer should
- create their own equivalent of the smb_stack() function so they can access the
- message bases on the stack without popping them off. An example of keeping a
- maximum of two message bases open using smb_stack():
-
- char last_messagebase[128],new_messagebase[128];
-
- smb_file[0]=0;
- last_messagebase[0]=0;
- for(i=0;i<total_messages_to_be_imported;i++) {
- strcpy(new_messagebase,get_messagebase_for_this_message(i));
- if(stricmp(new_messagebase,smb_file)) { /* Not current message base */
- if(smb_file[0]) { /* We've already opened one */
- if(!stricmp(new_messagebase,last_messagebase)) { /* Same as last */
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_XCHNG); } /* Retore previous base */
- else {
- if(last_messagebase[0]) {
- smb_stack(SMB_STACK_XCHNG);
- smb_close();
- strcpy(last_messagebase,new_messagebase); }
- else {
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_PUSH); } /* Save current base */
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- else {
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- /* Import this message */
- }
- if(smb_file[0])
- smb_close();
- if(last_messagebase[0]) {
- smb_stack(SMB_STACK_POP);
- smb_close(); }
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 92 SMBLIB Performance Issues
-
-
- The second example would be of negligible performance gain over the first
- example (6 open operations versus 7) if the messages to import were in the
- following order:
-
- msg[0] --> msgbase[0] // 0 opened
- msg[1] --> msgbase[1] // 0 pushed 1 opened
- msg[2] --> msgbase[1]
- msg[3] --> msgbase[2] // 1 closed 0 popped 0 closed 2 opened
- msg[4] --> msgbase[0] // 2 pushed 0 opened
- msg[5] --> msgbase[2] // 0 pushed 2 popped (exchanged)
- msg[6] --> msgbase[3] // 2 closed 0 popped 0 closed 3 opened
- msg[7] --> msgbase[0] // 3 pushed 0 opened
-
- The second example would be of significant performance gain over the first
- example (4 open operations versus 8) if the messages to import were in the
- following order:
-
- msg[0] --> msgbase[0] // 0 opened
- msg[1] --> msgbase[1] // 0 pushed 1 opened
- msg[2] --> msgbase[0] // 1 pushed 0 popped (exchanged)
- msg[3] --> msgbase[1] // 0 pushed 1 popped (exchanged)
- msg[4] --> msgbase[0] // 1 pushed 0 popped (exchanged)
- msg[5] --> msgbase[2] // 0 pushed 1 popped (exchanged) 1 closed 2 opened
- msg[6] --> msgbase[3] // 2 pushed 0 popped (exchanged) 0 closed 3 opened
- msg[7] --> msgbase[2] // 3 pushed 2 popped (exchanged)
-
- More advanced use of "stack-like" message base file handle storage can easily
- reduce the number of open operations, therefore increasing import performance
- under more adverse message base ordering conditions.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 93 SMBLIB Performance Issues
-
-
- Compression
- -----------
- If any message data compression features are offered by the application, it
- is important the the application not unnecessarily compress data that will
- not save any storage space. While this may seem an obvious statement, please
- review the following pseudo-code example:
-
- if ( message_data_length < SDT_BLOCK_LEN )
- // Store uncompressed data
- else {
- // Compress data
- if ( ( compressed_data_length / SDT_BLOCK_LEN )
- < ( message_data_length / SDT_BLOCK_LEN ) ) // Saves a block or more
- // Store compressed data
- else
- // Store uncompressed data
- }
-
- Since the SMB format stores message data in fixed length blocks, there is no
- point in storing a message in compressed format if it requires the same number
- of blocks as the uncompressed format (i.e. a message that is two blocks in
- length in uncompressed format and only a block and a half in length when
- compressed should not be stored in compressed format since it still requires
- two full blocks of storage). It is important to note that in the above example,
- the length of the data translation string was not taken into account in
- determining the number of required blocks. Also, the smb_datblocks() function
- is normally used in determing the number of required blocks to store a given
- data length and it is a little more involved than simply dividing the length of
- the data by SDT_BLOCK_LEN.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 94 SMBLIB Performance Issues
-
-
- Bibliography
- ============
-
- Title : The C Programming Language
- Publisher : Prentice Hall
- Author : Brian W. Kernighan and Dennis M. Ritchie
-
- Document : ARPANET Request for Comments (RFC) #822
- Title : Standard for the Format of ARPA Internet text messages
- Publisher : SRI International
- Author : David H. Crocker, University of Delaware
-
- Document : FTS-0001
- Publisher : FSC
- Author : Randy Bush, Pacific Systems Group
-
- Document : FTS-0004
- Title : EchoMail Specification
- Publisher : FSC
- Author : Bob Hartman
-
- Document : FTS-0009
- Title : A standard for unique message identifiers and reply chain linkage
- Publisher : FSC
- Author : Jim Nutt
-
- Document : FSC-00046
- Title : A Product Idenfifier for FidoNet Message Handlers
- Publisher : FSC
- Author : Joaquim H. Homrighausen
-
- Document : FSC-00053
- Title : Specifications for the ^aFLAGS field
- Publisher : FSC
- Author : Joaquim H. Homrighausen
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 95 Bibliography
-
-
- Implementations
- ===============
-
- Product : Synchronet Multinode BBS Software
- Developer : Digital Dynamics
- Level : III
- Version : 2.20
-
- Product : Synchronet/FidoNet Import/Export Utility (SBBSFIDO)
- Developer : Digital Dynamics
- Level : III
- Version : 2.23
-
- Product : Synchronet UTI (Universal Text Interface) Driver
- Developer : Digital Dynamics
- Level : III
- Version : 2.23
-
- Product : SBBSecho FidoNet Packet Tosser for Synchronet
- Developer : Digital Dynamics
- Level : III
- Version : 1.11
-
- Product : NetXpress Internet UUCP for Synchronet
- Developer : Merlin Systems
- Level : II
- Version : 1.50
-
- Product : InterEcho FidoNet Packet Tosser
- Developer : InterMail Sales Inc
- Level : II
- Version : 1.11
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _______________________________________________________________________________
- Synchronet 96 Index
-
-
diff --git a/src/sbbs2/smb/121a/smb.txt b/src/sbbs2/smb/121a/smb.txt
deleted file mode 100644
index 96c50c01ac86ec8914703c4d3a00761a58555a05..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smb.txt
+++ /dev/null
@@ -1,5661 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Synchronet Message Base Specification
- Version 1.21
- Updated 08/31/95
-
- Copyright 1995 Digital Dynamics
-
- PO Box 501
- Yorba Linda, CA 92686
-
- Voice: 714-529-6328 BBS: 714-529-9525 V.32/V.32bis
- FAX: 714-529-9721 714-529-9547 V.FC
- Fido: 1:103/705 ftp: netcom.com /pub/sb/sbbs
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Table of Contents
-=================
-
-Introduction.............................................................3
-Implementation Levels....................................................8
-Definitions.............................................................10
- Acronyms........................................................12
- Data Types......................................................13
-File Formats............................................................18
- Index.....................(*.SID)...............................18
- Header....................(*.SHD)...............................20
- Header Allocation.........(*.SHA)...............................30
- Data......................(*.SDT)...............................31
- Data Allocation...........(*.SDA)...............................32
- CRC History...............(*.SCH)...............................33
-Header Field Types......................................................34
-Data Field Types........................................................58
-Messsage Attributes.....................................................60
-Translation Types.......................................................61
-Agent Types.............................................................62
-Network Types...........................................................63
-Media Types.............................................................64
-Message Storage Pseudo Code.............................................67
-Message Retrieval Pseudo Code...........................................69
-SMBUTIL.................................................................70
-CHKSMB..................................................................71
-FIXSMB..................................................................72
-SMBLIB (C library)......................................................73
- Data Types and Constants..(SMBDEFS.H)...........................74
- Global Variables..........(SMBVARS.C)...........................75
- Function Prototypes.......(SMBLIB.H)............................76
- Library Functions.........(SMBLIB.C)............................77
- Miscellaneous.............(CRC*.* and LZH.*)....................84
-SMBLIB Storage Example..................................................86
-SMBLIB Retrieval Example................................................89
-SMBLIB Performance Issues...............................................91
-Bibliography............................................................95
-Implementations.........................................................96
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 2 Contents
-
-
-Introduction
-============
-
-Q. What is SMB?
-
-A. SMB (Synchronet Message Base) is a technical specification for the storage
- format of electronic mail messages. These e-mail messages may all be
- contained in one database, or, more commonly, separated into catagorized
- databases. These message databases (or message bases) are also referred to
- as "sub-boards", "forums", "conferences", and "SIGs". The messages may be
- directed to an individual person, sent to a group of individuals, or sent
- to everyone who can read messages in that message base. Messages may be
- created and read soley at one physical location, or imported from and
- exported to a message network that may span continents. Message bases that
- are connected to a message network are often called "echoes".
-
-
-Q. Why SMB?
-
-A. The Synchronet Message Base is designed to store high volumes of messages
- while maintaining optimum search, retrieval, and creation performance.
- These messages are not limited to mere text. In addition to text, SMB
- defines the storage of digitized sound, MIDI, graphics, fonts, animation,
- as well as other multimedia data and triggers for localized multimedia.
- SMB thrives on a multi-user environment where messages are being created,
- read, modified, and deleted by multiple tasks simultaneously. With the
- large message networks of today being the rule, rather than the exception,
- and high volumes of messages being imported on a daily, sometimes hourly
- basis, creation and deletion speed is of the utmost importance. This is
- where SMB really shines. Being extensible enough to handle message formats
- from networks of today and tomorrow, and fast enough to import more messages
- that humanly readable, the SMB format will more than meet your message
- storage needs.
-
-
-Q. Why a specification?
-
-A. Message bases are often accessed and modified by a number of different
- programs. Often these programs are developed by individuals or companies
- other than the original designer of the message base format. This
- specification is an attempt to aid developers in creating programs that
- access or modify a message base stored in the SMB format.
-
-
-Q. Who can use this specification?
-
-A. Anyone that has interest in the Synchronet Message Base format at either
- an educational or professional level. Specifically, software developers
- interested or currently involved in the development of message readers,
- editors, echomail (toss/scan) programs, message transfer agents (MTAs),
- network gateways, and bulletin board systems. Much of the information in
- this specification is intended for those with preexisting programming
- knowledge, so those with little or no programming experience may find it
- hard to comprehend.
-
-_______________________________________________________________________________
-Synchronet 3 Introduction
-
-
-
-
-Q. What does the SMB specification include?
-
-A. The text you are reading is part of the SMB specification: a single text
- document that defines the storage format of each of the six files of an
- SMB format message base and how they are related to each other.
-
- Included with this specification is C source code to be used as an example
- to programmers of how to access an SMB format message base and public domain
- library functions (SMBLIB) that can be compiled and linked into programs
- that access an SMB format message base developed by third parties. An SMB
- utility program (SMBUTIL) is also included with C source code as an example
- of how to use the SMBLIB functions.
-
-
-Q. Where did the SMB specification come from?
-
-A. Digital Dynamics (southern California based software development company)
- released "Synchronet Multinode BBS Software Version 1a" in June of 1992 as
- one of the first BBS packages to be designed from the ground-up to operate
- in a multinode environment with incredible speed and reliability, with a
- large suite of multinode specific features and design innovations.
-
- The original message base format was designed with localized messaging and
- low volume message networks in mind. By January of 1993, it was clear that
- high volume message networks (FidoNet, RelayNet, Usenet, etc.) were the
- preference of most BBS users and a new message base format was required to
- allow for high volume message storage, improved storage, retrieval, and
- maintenance performance, as well as lower storage space requirements.
-
- Rather than introduce another new message format, Digital Dynamics sought
- to implement an existing public specification for a format that would meet
- current and future message storage needs. More than a few specifications
- were seriously considered at one time or another, but after careful
- examination, design flaws and lack of extensibility eliminated them from the
- long term plans of Digital Dynamics and Synchronet BBS Software. Thus began
- the design of the "Synchronet Message Base" (SMB) format.
-
- At the request of many message related program developers, Digital Dynamics
- created and released the SMB specification before the release of "Synchronet
- Version 2.00" to allow lead-time on developing support programs for the new
- format.
-
- Digital Dynamics strongly encourages developers of message related programs
- (including software that directly competes with Synchronet or other Digital
- Dynamics products) to implement support for SMB. Though this is a public
- specification and Digital Dynamics encourages developer suggestions, it will
- remain under the sole control of Digital Dynamics unless specifically stated
- otherwise in a future revision of this specification.
-
- Digital Dynamics requests that any organizations that wish to adopt or
- ratify this specification, in part or whole, notify Digital Dynamics through
- any of the contact methods listed at the beginning of this document.
-
-_______________________________________________________________________________
-Synchronet 4 Introduction
-
-
-
-
-Q. How does SMB store messages?
-
-A. Each message base is stored in a set of binary files. This set consists
- of between three and six files depending the storage method used. The base
- filename (maximum of eight characters under DOS) is the same for all six
- files of the same message base and unique amoung the filenames of other
- message bases in the same directory. The six files each have a different
- three character extension. The first character of the extension is always
- the letter 'S' (for SMB), while the second and third characters define the
- contents of the file.
-
- Two of the six files associated with each message base are not recreatable
- and therefore are the most important when considering data integrity. These
- two files are the data file (with a .SDT extension) and header file (.SHD
- extension). Both of these files use 256 byte blocks and have associated
- block allocation tables (stored in .SDA and .SHA respectively) so that
- deleted message blocks may be used by new messages without creating odd
- sized unused 'holes' in the files. The block allocation table files (.SDA
- and .SHA) can be recreated with the information stored in the header (.SHD)
- file. When using Hyper Allocation storage method, the allocation files (.SDA
- and .SHA) are not used.
-
- For fast indexing, there is a small fixed length index file (with a .SID
- extension). This file allows for the immediate location of message header
- records based on sender's name or user number, recipient's name or user
- number, subject, message number, or message attributes. This file can be
- recreated with the data stored in the header (.SHD) file.
-
- The last file is an optional CRC history (.SCH) file. It contains 32-bit
- CRCs of a configurable number of messages imported or created locally. This
- is to help eliminate duplicate messages created by user or program error.
- The CRC history file can be recreated with the combination of information
- stored in the data (.SDT) and header (.SHD) files.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 5 Introduction
-
-
-Q. How fast do messages import into an SMB message base?
-
-A. This is a very important question for systems for that import large volumes
- of messages. Of course, the answer depends on the storage format which you
- are importing from, the average length of messages, the design of the
- program which is peforming the import process, as well as the hardware and
- system software being used. What's important is that SMB will allow the
- fastest import process possible with any given combination of the above
- factors.
-
- Since system storage capacity is rarely infinite, neither is the number
- of messages which can be stored in a message base. System operators must
- define the maximum number of messages to be stored in a message base, the
- maximum age of the messages in that message base, or a combination of both.
- When using the Self-packing storage method (defined later in this document),
- the smaller the number of messages stored in a message base, the faster the
- import process. The SMB format is flexible enough to support multiple levels
- of import performance based on optimizations for storage space or speed.
- Most system operators will almost invariably choose speed over space, but
- which choices are available is determined by the importing program. This
- specification defines three storage methods, from slowest to fastest:
- Self-packing, Fast Allocation, and Hyper Allocation. Other options defined
- in this specification may affect storage performance, including duplicate
- message checking and message compression/encryption.
-
-
-Q. How much storage is required for an SMB message base?
-
-A. The biggest factor in determining storage requirements for a message base
- is the maximum number of messages to be stored in the base (defined by the
- system operator) and the average size of each message. The minimum required
- storage for a message base is 32 bytes plus 532 bytes per message (plus four
- bytes per message if duplicate message checking is used and three bytes
- per message if Self-packing or Fast Allocation storage methods are used).
-
- The SMB format was originally designed to be "self-packing", meaning purged
- (deleted) message header and data blocks will be used automatically by new
- messages. Relying solely on self-packing, an SMB format message base will
- never "shrink" in size. This is not to say that it will continually "grow"
- in size, but that without specific packing procedures, deleted message
- blocks may remain unused for extended periods of time, meanwhile using some
- amount of storage space that could be recovered using specific packing
- procedures. The Fast Allocation and Hyper Allocation storage methods do not
- use deleted message blocks for new messages so specific packing procedures
- must be used if any messages are deleted and that storage space is to ever
- be recovered.
-
- Limiting the maximum age of messages in an SMB message base is another way
- to control the storage requirements. While maximum message age definition is
- optional, the definition of the maximum number of messages is not.
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 6 Introduction
-
-
-Q. How many messages can be stored per SMB message base?
-
-A. Without considering storage limitations or message data lengths greater than
- 256, the theoretical maximum number of messages that can be stored in a
- single SMB message base is 16.7 million. Considering the variable length
- nature of message and header data, it is suggested that the system operator
- allow no more than 1 million messages per base.
-
- To determine an estimated maximum number of messages for a message base
- using the average message data length as a factor, use the following
- formula:
-
- 4.2 billion divided by the average message length rounded up to be evenly
- divisible by 256.
-
- If the average message data length is 1500 bytes, the estimated maximum
- number of messages would be 2,734,375 (4.2 billion divided by 1536).
-
- Implementations of this format may be further limited by available system
- memory.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 7 Introduction
-
-
-Implementation Levels
-=====================
-The SMB format can be implemented to varying degrees between programs without
-creating compatibilty issues. Rather than have developers specifically state
-which features they have and have not implemented, we have defined seven levels
-of implementation (represented by Roman numerals I through VII). For a program
-or software package to meet an implementation level, it must have all of the
-features listed for that level and all of those for each level below it. The
-minimum suggested imlementation is level I. The SMBUTIL program included with
-this specification is an example of a level I implementation with features
-from some of the higher implementation levels.
-
-Level I
--------
-The minimum suggested level of implementation. Messages contain merely ASCII
-text displayable on an ANSI terminal. Messages can be added to the message
-base and if the maximum number of messages is exceeded, messages are removed
-or marked for deletion.
-
-Level II
---------
-The addition of file attachments, multiple index/header entries per message
-(multiple destinations), multiple text bodies for the separation of message
-text and tag/origin lines (for example), forwarding, threading, and specific
-FidoNet kludge header field support makes this level of implementation more
-realistic for bulletin board system and EchoMail software implementation.
-
-Synchronet Multinode BBS Software v2.00 has a level II implementation of this
-specification.
-
-Level III
----------
-This implementation adds support for translation strings defined later in this
-document for data compression, encryption, escaping, and encoding. This level
-is still limited to basic ASCII text and ANSI escape sequence entry and
-retrieval.
-
-Synchronet Multinode BBS Software v2.10 has a level III implementation of this
-specification.
-
-Level IV
---------
-The storage and retrieval of embedded and attached images is added in this
-level of implementation. Supported images are limited to single binary or text
-data blocks that can be displayed or transferred to the user (automatically,
-or by request) if their display and translation protocols define specific
-support for the image type.
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 8 Implementation Levels
-
-
-Level V
--------
-This level of implementation adds support for embedded and attached sound data.
-This includes digitized sound and MIDI data. Supported sounds are limited to
-single binary or text data blocks that can be played or transferred to the user
-(automatically or by request) if their presentation and translation protocols
-define specific support for the sound type.
-
-Level VI
---------
-Localized sound and image data can be triggered by messages stored and
-retrieved in an implementation of this level.
-
-Level VII
----------
-Complete multimedia support is reached in this implementation level with
-support for embedded and attached animation, sound, and video data.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 9 Implementation Levels
-
-
-Definitions
-===========
-
-Control Characters
-------------------
-When specifying control characters (ASCII 1 through 31), the caret symbol "^"
-or the abreviation "ctrl-" followed by a character will be used to indicate the
-value. ^A is equivalent to ASCII 1, ^B ASCII 2, etc. The case of the control
-character is not significant (i.e. ^z and ^Z are equivalent). The control
-character ^@ (ASCII 0) will be specified as NULL or 0.
-
-
-Hexadecimal
------------
-Base sixteen numbering system which includes the digits 0-9 and A-F.
-Hexadecimal numbers are represented in this document with a prefix of "0x" or
-"\x" or a suffix of "h". Hexadecimal letter digits are not case sensitive
-(i.e. the number 0xff is the same as 0xFF).
-
-
-File dump
----------
-When example file dumps are displayed, the format is similar to that of the
-output from the DOS DEBUG program. With the exception of the ASCII characters,
-all numbers are in hexadecimal.
-
-Offset Byte values ASCII characters
-
-000000 53 4D 42 1A 10 01 20 00 F4 01 00 00 F4 01 00 00 SMB... .�...�...
-000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...�...�.......
-
-
-Bit values
-----------
-Bit (or flag) values are represented in C notation as (1<<x) where x is the bit
-number. (i.e. bit number 7 (1<<7) is the same as 0x80).
-
-
-Word storage
-------------
-All words (16-bit) and double words (32-bit) are stored in Intel 80x86 (little
-endian) format with bytes stored from low to high (reverse of the Motorola
-680x0 word storage format).
-
-A 16-bit word with the value 1234h is stored as 34h 12h.
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 10 Definitions
-
-
-Translation strings
--------------------
-Translation strings (xlat variables) are arrays of words (16-bit) in the order
-of the original storage translation. The last translation type is followed by a
-16-bit zero (defined later as XLAT_NONE). If there are no translations, then
-the first and only element of the array is XLAT_NONE.
-
-If multiple translations are used, the translation order must be reversed
-upon retrieval to obtain the proper data.
-
-
-Local e-mail
-------------
-When referring to the local e-mail message base of a Synchronet BBS, we are
-referring specifically the message base with the name "MAIL" stored in the
-"DATA" directory (e.g. \SBBS\DATA\MAIL).
-
-Messages stored in this message base are different in the following respects:
-
- The SMB_EMAIL status header attribute is set ON
- Hyper Allocation storage method is not supported
- The "To" and and "From" fields of the message indexes do NOT contain CRCs
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 11 Definitions
-
-
-Acronyms:
-========
-
-ANSI American National Standards Institute
-ASCII American Standard Code for Information Interchange
-BBS Bulletin Board System
-C The C programming language as defined by ANSI X3.159-1989
-CR Carriage Return character (ASCII 13)
-CRC Cyclic Redundancy Check
-CRC-16 Standard 16-bit CRC using 1021h polynomial (seed 0)
-CRC-32 Standard 32-bit CRC using EDB88320h polynomial (seed -1)
-CRLF Carriage Return character followed by a Line Feed character
-FSC FidoNet Standards Commitee (FTS proposal)
-FTN FidoNet Technology Network
-FTS FidoNet Technical Standard
-LF Line Feed character (ASCII 10)
-QWK Compressed message packet format for message reading/networking
-RFC Request for Comments
-SMB Synchronet Message Base
-UT Universal Time (formerly called "Greenwhich Mean Time")
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 12 Definition of Acronyms
-
-
-Data types
-==========
-
-uchar Unsigned 8-bit value (0 through 255).
- C example:
-
- #define uchar unsigned char
-
-
-short Signed 16-bit value (-32768 through 32767).
- "short" is a C keyword indicating "short int".
-
-
-ushort Unsigned 16-bit value (0 through 65535).
- C example:
-
- #define ushort unsigned short
-
-
-ulong Unsigned 32-bit value (0 through 4294967295).
- C example:
-
- #define ulong unsigned long
-
-
-time_t Unsigned 32-bit value.
- Seconds since 00:00 Jan 01 1970 (Unix format).
- Used for all time/date storage in SMB as part of the when_t
- data type. This time format will support dates through the year
- 2105.
- time_t is defined by ANSI C as a long (signed) which can
- limit its date support to the year 2038 depending on the
- library routines used.
-
-
-ASCII String (aka character array) of 8-bit ASCII characters.
- Characters with the bit 7 set (80h through FFh) represent
- the IBM PC extended ASCII character set. When data or header
- fields of this type are stored in the header, a NULL
- terminator may or may not be present.
- C example:
-
- uchar str[80];
-
-
-ASCIIZ ASCII string with (non-optional) NULL terminator.
- C example:
-
- uchar str[81];
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 13 Definition of Data Types
-
-
-nulstr ASCII string immediately terminated by NULL.
- C example:
-
- uchar *nulstr="";
-
-
-undef Data buffer with undefined contents.
- C example:
-
- uchar buf[BUF_LEN];
-
-when_t Date/Time stamp including time-zone adjustment information.
- C example:
-
- typedef struct {
-
- time_t time; // Time stamp (in local time)
- short zone; // Zone constant or Minutes (+/-) from UT
-
- } when_t;
-
- time:
-
- A time value of 0 is invalid and indicates an uninitialized
- time stamp.
-
- Time stamps are always stored in universal time. i.e.
- Regardless of what the local time zone is, Jan 1st 1994 00:00
- will always be stored as 2D24BD00h.
-
- zone:
-
- If the zone is in the range -720 to +720, it represents the
- number of minutes east or west of UT. Values in this range
- should only be used for time zones not otherwise represented
- here.
-
- If the zone is greater than 720 or less than -720, then the
- following bits have special meaning:
-
- (1<<12) // Non-US time zone (east of UT)
- (1<<13) // Non-US time zone (west of UT)
- (1<<14) // U.S. time zone
- (1<<15) // Daylight savings
-
- The lower 12 bits (0 through 11) contain the number of minutes
- east or west of UT (not accounting for daylight savings).
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 14 Definition of Data Types
-
-
- If the time zone is one specified in the U.S. Uniform Time Act,
- the following values represent the zone:
-
- AST 0x40F0 // Atlantic (-04:00)
- EST 0x412C // Eastern (-05:00)
- CST 0x4168 // Central (-06:00)
- MST 0x41A4 // Mountain (-07:00)
- PST 0x41E0 // Pacific (-08:00)
- YST 0x421C // Yukon (-09:00)
- HST 0x4258 // Hawaii/Alaska (-10:00)
- BST 0x4294 // Bering (-11:00)
-
- With bit 15 set, the following values represent the same zone
- with the presence of daylight savings:
-
- ADT 0xC0F0 // Atlantic (-03:00)
- EDT 0xC12C // Eastern (-04:00)
- CDT 0xC168 // Central (-05:00)
- MDT 0xC1A4 // Mountain (-06:00)
- PDT 0xC1E0 // Pacific (-07:00)
- YDT 0xC21C // Yukon (-08:00)
- HDT 0xC258 // Hawaii/Alaska (-09:00)
- BDT 0xC294 // Bering (-10:00)
-
- The following non-standard time zone specifications may also be
- used:
-
- MID 0x2294 // Midway (-11:00)
- VAN 0x21E0 // Vancouver (-08:00)
- EDM 0x21A4 // Edmonton (-07:00)
- WIN 0x2168 // Winnipeg (-06:00)
- BOG 0x212C // Bogota (-05:00)
- CAR 0x20F0 // Caracas (-04:00)
- RIO 0x20B4 // Rio de Janeiro (-03:00)
- FER 0x2078 // Fernando de Noronha (-02:00)
- AZO 0x203C // Azores (-01:00)
- LON 0x1000 // London (+00:00)
- BER 0x103C // Berlin (+01:00)
- ATH 0x1078 // Athens (+02:00)
- MOS 0x10B4 // Moscow (+03:00)
- DUB 0x10F0 // Dubai (+04:00)
- KAB 0x110E // Kabul (+04:30)
- KAR 0x112C // Karachi (+05:00)
- BOM 0x114A // Bombay (+05:30)
- KAT 0x1159 // Kathmandu (+05:45)
- DHA 0x1168 // Dhaka (+06:00)
- BAN 0x11A4 // Bangkok (+07:00)
- HON 0x11E0 // Hong Kong (+08:00)
- TOK 0x121C // Tokyo (+09:00)
- SYD 0x1258 // Sydney (+10:00)
- NOU 0x1294 // Noumea (+11:00)
- WEL 0x12D0 // Wellington (+12:00)
-
-
-
-_______________________________________________________________________________
-Synchronet 15 Definition of Data Types
-
-
-fidoaddr_t FidoNet address stored as four ushorts that represent the zone,
- network, node, and point (in that order).
- C example:
-
- typedef struct {
-
- ushort zone,
- net,
- node,
- point;
-
- } fidoaddr_t;
-
-
-typestr_t ASCIIZ string with ushort type prefix.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'str'
- uchar str[]; // ASCIIZ filename or other string data
-
- } typestr_t;
-
-
-mattach_t File attachment information with type prefix, translation
- string, and filename.
- C example:
-
- typedef struct {
-
- ushort type; // Attachment type
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename
-
- } mattach_t;
-
-vattach_t Video file attachment information with type, compression,
- translation string, and filename.
- C example:
-
- typedef struct {
-
- ushort type; // Attachment type
- ushort comp; // Compression method
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename
-
- } vattach_t;
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 16 Definition of Data Types
-
-
-mtext_t Message text with translation string prefix.
- C example:
-
- typedef struct {
-
- ushort xlat[]; // Translations of text
- uchar text[]; // Actual text data
-
- } mtext_t;
-
-
-ftext_t Formatted message text with translation string prefix and
- format type.
- C example:
-
- typedef struct {
-
- ushort type; // See Image Types for valid types
- ushort xlat[]; // Translations of data
- uchar data[]; // Actual formatted text data
-
- } ftext_t;
-
-
-membed_t Embedded data with type prefix, translation string, and ASCIIZ
- description.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'dat'
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar dat[]; // Binary data
-
- } membed_t;
-
-vembed_t Embedded video data with type, compression method, translation
- string, and ASCIIZ description.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'dat'
- ushort comp; // Compression method
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar dat[]; // Binary data
-
- } vembed_t;
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 17 Definition of Data Types
-
-
-File formats
-============
-
-Index File (*.SID)
-------------------
-The index file for each message base contains one record per message in the
-base. Each record is fixed length using the following format:
-
-Index Record:
-------------
-C example:
-
-typedef struct {
-
- ushort to; // 16-bit CRC of recipient name (lower case) or user number
- ushort from; // 16-bit CRC of sender name (lower case) or user number
- ushort subj; // 16-bit CRC of title/subject (lower case)
- ushort attr; // attributes (MSG_PRIVATE, MSG_READ, etc. flags)
- ulong offset; // byte offset of message header in header file
- ulong number; // message serial number (1 based)
- time_t time; // import date/time stamp (Unix format)
-
- } idxrec_t;
-
-
-Example file dump (16 messages starting with message number 15):
----------------------------------------------------------------
-000000 36 4F 13 07 2A 77 00 00 20 00 00 00 0F 00 00 00 6O..*w.. .......
-000010 BE 62 76 2C 36 4F 46 0A 7F B2 00 00 20 01 00 00 �bv,6OF.�.. ...
-000020 10 00 00 00 C7 29 78 2C 36 4F 70 6F 46 FF 00 00 ....�)x,6OpoF�..
-000030 20 02 00 00 11 00 00 00 AD D3 7A 2C 70 6F 13 07 .......��z,po..
-000040 46 FF 00 00 20 03 00 00 12 00 00 00 D6 F8 7F 2C F�.. .......��,
-000050 36 4F E1 EA E7 E9 00 00 20 04 00 00 13 00 00 00 6O����.. .......
-000060 1E 7B 85 2C 37 0D 2E DF 4D 79 00 00 20 05 00 00 .{�,7..�My.. ...
-000070 14 00 00 00 5C E1 A1 2C 90 54 2D 5A 86 62 00 00 ....\�,�T-Z�b..
-000080 20 06 00 00 15 00 00 00 39 2E A2 2C 70 6F 1A 8B .......9.�,po.�
-000090 46 FF 00 00 20 07 00 00 16 00 00 00 D0 7B A8 2C F�.. .......�{�,
-0000A0 2E DF 1A 8B 4D 79 00 00 20 08 00 00 17 00 00 00 .�.�My.. .......
-0000B0 FF 7B A8 2C B4 D9 35 7C 23 B1 00 00 20 09 00 00 �{�,��5|#�.. ...
-0000C0 18 00 00 00 CE D4 BA 2C 36 4F BC D8 B2 E7 00 00 ....�Ժ,6O�ز�..
-0000D0 20 0A 00 00 19 00 00 00 14 5F C3 2C BA A8 4E B0 ........_�,��N�
-0000E0 67 76 00 00 20 0B 00 00 1A 00 00 00 6F 89 C3 2C gv.. .......o��,
-0000F0 36 4F 0C 01 19 9C 00 00 20 0C 00 00 1B 00 00 00 6O...�.. .......
-000100 F8 30 C6 2C 36 4F FA 48 0E 55 00 00 20 0D 00 00 �0�,6O�H.U.. ...
-000110 1C 00 00 00 6A 94 D3 2C 36 4F F1 CE CF A2 00 00 ....j��,6O��Ϣ..
-000120 20 0E 00 00 1D 00 00 00 53 DB D5 2C 8D A6 21 CE .......S��,��!�
-000130 F7 AB 00 00 20 0F 00 00 1E 00 00 00 31 29 DC 2C ��.. .......1)�,
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 18 Index (*.SID) File Format
-
-
-Field descriptions:
-------------------
-To:
-The 'To' field is the CRC-16 of the name of the intended recipient agent of
-this message or the intended recipient's user number. If the CRC is stored, the
-text must be converted to lower case (A-Z changed to a-z) before the CRC is
-calculated. If the message is forwarded to another agent, the original or new
-index record must be changed to contain the CRC-16 of the new recipient name or
-user number. This field must always contain the recipient user number for local
-e-mail on a Synchronet BBS. Outbound netmail stored in the Synchronet local
-e-mail message base will contain 0 in this field.
-
-From:
-This field, similar to the 'To' field, contains the CRC-16 of the name of the
-sending agent of this message or the sender's user number. If the CRC is
-stored, the text must be converted to lower case (A-Z changed to a-z) before
-the CRC is calculated. If the message is forwarded to another agent, the
-original or new index record must be changed to contain the CRC-16 of the new
-sender name or user number. If the message was imported into the local e-mail
-message base on a Synchronet BBS via netmail, this field will contain 0.
-
-Subj:
-The 'Subj' field contains the CRC-16 of the message's subject. The subject
-must be converted to lower case (A-Z changed to a-z) and all preceeding
-"re: "'s and "re:"'s removed before calculating the CRC-16.
-
-Attr:
-This ushort is a bit field of the specific attributes for this message.
-It is a clone of the 'attr' element of the msghdr_t structure.
-
-Offset:
-This ulong is the offset (in bytes) in the header file for this message's
-header record.
-
-Number:
-This ulong is the serial number of this message. Valid values are 1 through
-0xffffffff. No two index records in the same message base may have the same
-message number. All index records must have sequential, but not necessarily
-consequetive, message numbers.
-
-Time:
-This field is the date/time stamp the message was imported to or posted in
-the message base. It is a clone of the 'when_imported.time' element of the
-msghdr_t structure.
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 19 Index (*.SID) File Format
-
-
-Header File (*.SHD)
-===================
-
-Each SMB header file is made up of two distinct sections: base header records
-and message header records (usually the bulk of the file).
-
-Base Header Records:
--------------------
-Base header records are blocks of data that apply to the entire message base
-and are of variable length. This specification defines only one base header
-record, the "Status info" (smbstatus_t) record. This status info record must be
-the first base header record in the file and must be modified if additional
-base header records are added.
-
-Additional header records allow other developers to store configuration and
-status information particular to their application needs. It also allows for
-future header record definitions as part of this specification without causing
-backward compatibility issues.
-
-Each base header record contains a fixed length portion (smbhdr_t) and an
-optional variable length portion.
-
-Whenever a base header record is read or updated (written), it must first
-be successfully locked and subsequently unlocked.
-
-The first base header record (Status Info) is used as a semaphore when writing
-to the message index (.SID) file and, when using the Hyper Allocation storage
-method, writing to the message data (.SDT) file. This record must be
-succesfully locked before writing and subsequently unlocked. This is to insure
-that multiple applications simultaneously writing to the same message base
-does result in corrrupted data.
-
-
-Message Header Records:
-----------------------
-Following the last base header record is the first message header record. Each
-header record is stored in one or more 256 byte blocks. There must be exactly
-one active message header record for every index record in the index file.
-(Note: This does not include deleted message headers that have not been
-overwritten by a new message header).
-
-Each message header record contains a fixed length portion (msghdr_t), a list
-of zero or more fixed length data fields (dfield_t), and a list of three or
-more variable length header fields (hfield_t).
-
-The value of the data stored in the zero or more unused bytes of the last
-header record block have an undefined value, though whenever possible
-developers should initialize to binary zero for human readability.
-
-Whenever a message header record is read or updated (written), it must first
-be successfully locked and subsequently unlocked.
-
-
-
-
-_______________________________________________________________________________
-Synchronet 20 Header File (*.SHD) Format
-
-
-Base Header Record (Fixed Portion):
-----------------------------------
-C example:
-
-typedef struct {
-
- uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct
-
- } smbhdr_t;
-
-
-Base Header Record Field Descriptions:
--------------------------------------
-Id:
-This is a four byte unique ID identifying the type of the base header record.
-The bytes may contain any value, but printable ASCII characters are preferred.
-The only ID defined in this specification is "SMB^Z" used by the Status Info
-base header record.
-
-Version:
-This is a version number of the base header record type. Base header records
-of different versions may have different formats or contain different
-information. This is to aid the application in determining if the record
-is pertinent and if so, to what degree. The Status Info base header record
-uses this version field to define the version of the format for the entire
-message base (currently 0x121 for version 1.21).
-
-Length:
-This is entire length in bytes of this header record (including both fixed
-and variable portions).
-
-
-Base Header #1 (Status info) Record (Variable Portion):
-------------------------------------------------------
-C example:
-
-typedef struct {
-
- ulong last_msg; // last message number posted or imported
- ulong total_msgs; // total messages currently in message base
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of messages to keep in base
- ushort max_age; // Maximum age of messages (days) to keep in base
- ushort attr; // Attribute bits
-
- } smbstatus_t;
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 21 Header File (*.SHD) Format
-
-
-Base Header #1 (Status Info) Record (Variable Portion) Field Descriptions:
--------------------------------------------------------------------------
-Last_msg:
-This is the serial number of the last message imported or posted into this
-message base. The index, header, and data records for this message may possibly
-not exist (due to deletion). This field is used for determining the message
-number to give to a new message being imported or posted into this message
-base. This field must be updated for every message added to the message base.
-
-Total_msgs:
-This is the total number of active messages currently in the message base.
-This number should match the number of records in the index (.SID) file
-and active header records in the header (.SHD) file. This field must be
-updated whenever a message is added to or removed from the message base.
-
-Header_offset:
-This is the byte offset to the first message header record. It is useful
-for skipping all the base header records and going directly to the first
-message header record.
-
-Max_crcs:
-This is the maximum number of message CRCs to store in the CRC history (.SCH)
-file for duplicate message checking. If this field contains 0, then duplicate
-message checking is disabled.
-
-Max_msgs:
-This is the preferred maximum number of messages to keep in this message
-base as specified by the system operator. It is used by maintenance programs
-that trim the message base down by removing old messages. This field should
-be ignored by applications importing or posting messages allowing them to
-exceed this maximum at will.
-
-Max_age:
-This field is the maximum age (in days) of messages to keep in the message
-base. It is used by maintenance programs to purge out-dated messages from
-the message base.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 22 Header File (*.SHD) Format
-
-
-Attr:
-This is a bit field containing specific attributes (or flags) that may define
-the way messages are stored or retrieved from the this message base. The
-following attributes are defined:
-
- SMB_EMAIL (1<<0)
-
- Indicates the message base is specifically for messages to or from local
- users. When this bit is set, the idxrec.to and idxrec.from fields will
- contain the user numbers (or 0 for non-user destination/source) instead of
- the CRC-16 of the agent name.
-
- SMB_HYPERALLOC (1<<1)
-
- Indicates the message base uses the Hyper Allocation storage method. This
- bit should not be cleared by an application without first deleting all the
- messages in the message base. This is due to the fact the Hyper Allocation
- is not downward compatible with the Self-packing and Fast Allocation
- storage methods.
-
-When used with Synchronet BBS software, a message base must NOT have both of
-the above attributes set. The only message base that should have the SMB_EMAIL
-attribute set is the DATA\MAIL message base.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 23 Header File (*.SHD) Format
-
-
-Base Header #1 (Status info) Record Contents:
---------------------------------------------
-smbhdr.id="SMB\x1a"; // SMB^Z
-smbhdr.version=0x121; // v1.21
-smbhdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t); smbstatus_t status;
-
-
-Additional Base Headers:
------------------------
-Additional headers from developers must have initial 8 bytes in smbhdr_t
-format, length must include size of smbhdr_t, and header_offset of smbstatus_t
-must be changed to include the size of the additional header(s).
-
-
-Example file dump (base header portion only):
---------------------------------------------
-000000 53 4D 42 1A 20 01 20 00 F4 01 00 00 F4 01 00 00 SMB. . .�...�...
-000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...�...�.......
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 24 Header File (*.SHD) Format
-
-
-Message Header Record (Fixed portion):
--------------------------------------
-C example:
-
-typedef struct {
-
- uchar id[4]; // SHD^Z (same for all types and versions)
- ushort type; // Message type (this is the definition of type 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed portion + all fields
- ushort attr; // Attributes (bit field) (duplicated in SID)
- ulong auxattr; // Auxillary attributes (bit field)
- ulong netattr; // Network attributes (bit field)
- when_t when_written; // Date/Time message was originally created
- when_t when_imported; // Date/Time message was imported (locally)
- ulong number; // Message number (unique, not necessarily seq.)
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // Number of first reply to this message
- uchar reserved[16]; // 16 reserved bytes for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields
-
- } msghdr_t;
-
-typedef struct {
-
- ushort type; // See "Data Field Types" values
- ulong offset; // Offset into buffer
- ulong length; // Length of data field in buffer
-
- } dfield_t;
-
-typedef struct {
-
- ushort type; // See "Header Field Types" for values
- ushort length; // Length of buffer
- uchar dat[length];
-
- } hfield_t;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 25 Header File (*.SHD) Format
-
-
-Example file dump (one header record, both fixed and variable length portions):
-------------------------------------------------------------------------------
-000020 53 48 44 1A 00 00 20 01 F5 00 00 00 00 00 00 00 SHD... .�.......
-000030 00 00 00 00 46 DB F7 2C 00 00 7D D7 29 2D 00 00 ....F��,..}�)-..
-000040 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
-000050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
-000060 00 00 00 00 02 00 00 00 00 00 00 00 4A 01 00 00 ............J...
-000070 02 00 4A 01 00 00 53 00 00 00 00 00 13 00 4D 61 ..J...S.......Ma
-000080 72 69 61 6E 6E 65 20 4D 6F 6E 74 67 6F 6D 65 72 rianne Montgomer
-000090 79 30 00 0C 00 43 61 72 6F 6C 20 47 61 69 73 65 y0...Carol Gaise
-0000A0 72 60 00 07 00 46 61 72 6E 68 61 6D A4 00 14 00 r`...Farnham�...
-0000B0 31 3A 31 33 38 2F 31 30 32 2E 30 20 32 63 66 38 1:138/102.0 2cf8
-0000C0 30 35 37 36 A5 00 14 00 31 3A 33 34 33 2F 31 30 0576�...1:343/10
-0000D0 30 2E 30 20 32 63 66 33 62 39 30 61 A3 00 23 00 0.0 2cf3b90a�.#.
-0000E0 31 33 38 2F 31 30 32 20 31 20 32 37 30 2F 31 30 138/102 1 270/10
-0000F0 31 20 32 30 39 2F 32 30 39 20 31 30 33 2F 30 20 1 209/209 103/0
-000100 33 35 35 02 00 02 00 02 00 03 00 08 00 01 00 8A 355............�
-000110 00 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .f..............
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 26 Header File (*.SHD) Format
-
-
-Contents of example header:
---------------------------
-id SHD^Z
-type 0000h
-version 0120h
-length 245
-attr 0000h
-auxattr 00000000h
-netattr 00000000h
-when_written Sat Nov 27 17:57:10 1993
-when_imported Tue Jan 04 15:54:21 1994
-number 1
-thread_orig 0
-thread_next 0
-thread_first 0
-reserved[16]
-offset 0
-total_dfields 2
-
-dfield[0].type 00h
-dfield[0].offset 0
-dfield[0].length 330
-dfield[1].type 02h
-dfield[1].offset 330
-dfield[1].length 83
-
-hfield[0].type 00h
-hfield[0].length 19
-hfield[0]_dat Marianne Montgomery
-hfield[1].type 30h
-hfield[1].length 12
-hfield[1]_dat Carol Gaiser
-hfield[2].type 60h
-hfield[2].length 7
-hfield[2]_dat Farnham
-hfield[3].type A4h
-hfield[3].length 20
-hfield[3]_dat 1:138/102.0 2cf80576
-hfield[4].type A5h
-hfield[4].length 20
-hfield[4]_dat 1:343/100.0 2cf3b90a
-hfield[5].type A3h
-hfield[5].length 35
-hfield[5]_dat 138/102 1 270/101 209/209 103/0 355
-hfield[6].type 02h
-hfield[6].length 2
-hfield[6]_dat 02 00
-hfield[7].type 03h
-hfield[7].length 8
-hfield[7]_dat 01 00 8A 00 66 00 00 00
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 27 Header File (*.SHD) Format
-
-
-Fixed Portion Field descriptions:
---------------------------------
-Id:
-This field (regardless of the header type or version) must always contain the
-the string "SHD^Z". This is to aid in the restoration of a corrupted header
-file and give a visual indication of the beginning of a new header record when
-viewing dumps of the header file.
-
-Type:
-This is the message header type. Only one type is currently defined by this
-specification (type 0). Any and all future header types will have the first
-4 fields (10 bytes) in the same format of type 0. This allows other types
-(with different lengths) to be skipped because the 4th field (length) will
-always be in the same position.
-
-Version:
-This is the version of this header type. This specification defines version
-1.21 of message header type 0 (stored as 121h).
-
-Length:
-This is the total length of this message header record (including both fixed
-and variable length portions, but NOT including unused block space).
-
-Attr:
-This is a bit field (16-bit) containing basic message attributes (flags) for
-this message. An exact duplicate of this field is stored in the index file as
-well. They must always match.
-
-Auxattr:
-This is a bit field (32-bit) containing the auxillary attributes (flags) for
-this message. The attributes stored in this variable are more specific in
-nature and less critical than those in the Attr field.
-
-Netattr:
-This is a bit field (32-bit) containing the network attributes (flags) for this
-message. The attributes stored in this variable are related solely to message
-networking.
-
-When_written:
-This is the date and time when the message was originally created.
-
-When_imported:
-This is the date and time when the message was posted on or imported into the
-local message system.
-
-Number:
-This is the message's unique serial number (from 1 to FFFFFFFFh). This field
-is duplicated in the index file. They must always match.
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 28 Header File (*.SHD) Format
-
-
-Thread_orig:
-If this message is a reply, then this field contains the number of the original
-message that was replied to. If this message was not a reply, this field will
-contain the value 0.
-
-Thread_next:
-If this message is a reply, and there are later replies to that message
-(the message number contained in the Thread_orig field), then this field will
-contain the number of the next reply in the chain. If this message is the only
-reply to the orignal message, this field will contain the value 0.
-
-Thread_first:
-If there are any replies to this message (after it has been posted), this field
-will contain the number of the first reply to this message. If there are no
-replies to this message, this field will contain the value 0.
-
-Reserved:
-Unused bytes, reserved for future definition in the message header type 0
-specification.
-
-Offset:
-The byte offset into the data file, specifying the start of the buffer for
-all data associated with this message. This value must be either 0 or modula
-256. When retrieving the actual data portion of data fields, the physical
-offset into the file will be the offset of the message data buffer (this field)
-plus the offset of the individual data field (msghdr_t.offset+dfield_t.offset).
-
-Total_dfields:
-This field contains the total number of data fields associated with this
-message. The value of this field must match the actual number of data fields
-stored in the header (dfield_t data types following the fixed portion of the
-message header).
-
-
-Variable Portion Field descriptions:
------------------------------------
-See the Header Field Type and Data Field Type sections for the descriptions
-of the values contained in these fields.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 29 Header File (*.SHD) Format
-
-
-Message Header Block Allocation (*.SHA)
-=======================================
-
-If this message base uses the Hyper Allocation storage method (the
-SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
-not created or used.
-
-This file contains no header or signature data. Each byte (uchar) in the file
-specifies the allocation state of the corresponding 256 byte block in the
-header (*.SHD) file. A value of 0 indicates a free header block, and a value of
-1 indicates an allocated block. Other non-zero values are undefined.
-
-This file must always be opened DENY ALL (non-shareable).
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 30 Header Allocation File (*.SHA) Format
-
-
-Message Data (*.SDT)
-====================
-
-This file contains no header or signature data. It contains the text and other
-embedded data for the messages in a single message base. The data for each
-message always begins on a 256 byte block boundary. The data in the unused
-portion of a data block is undefined, but should be initialized to NULL
-whenever possible.
-
-This file must always be opened DENY NONE (shareable).
-
-Data fields of type TEXT_BODY and TEXT_TAIL must have all trailing white space
-and control characters removed (i.e. the last character of the data record
-must be in the range 21h to FFh). The only exception to this rule, is if the
-TEXT_BODY is terminated with multiple contiguous CRLFs, only the last CRLF
-should be removed. A CRLF should always be appended to the text data when it is
-displayed.
-
-When reading from this file, it is a good idea to make sure the message header
-for the data being read is currently locked (though no single message header
-should be locked for extended durations of time). This will insure that no
-other application will write to this portion of the file while it's being
-read (read from disk, not displayed).
-
-When using the Hyper Allocation storage method, the Status Info message base
-header must be successfully locked before writing to this file and subsequently
-unlocked.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 31 Data File (*.SDT) Format
-
-
-Message Data Block Allocation (*.SDA)
-=====================================
-
-If this message base uses the Hyper Allocation storage method (the
-SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
-not created or used.
-
-This file contains no header or signature data. Each word (ushort) in the file
-specifies the allocation state of the corresponding 256 byte block in the data
-(*.SDT) file. A value of 0 indicates a free block, and a non-zero value
-indicates the number of message header records associated with this message
-data (most often 1). Each block can be used by up to 65,535 header records.
-
-This file must always be opened DENY ALL (non-shareable).
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 32 Data Allocation File (*.SDA) Format
-
-
-CRC history for duplicate message checking (*.SCH)
-==================================================
-
-This file is optional and contains no header or signature data. Each long word
-(ulong) in the file contains a CRC-32 of previously posted/imported messages.
-These CRCs can be used to check a candidate message for posting/import to be
-sure the message isn't a duplicate created by human or program error. The
-maximum number of CRCs to store is defined in the first message base header
-record (smbstatus_t.max_crcs).
-
-The CRC is calculated on the first TEXT_BODY data field before any translations
-are applied (e.g. encoding, compression, encryption).
-
-This file must always be opened DENY ALL (non-shareable).
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 33 CRC History File (*.SCH) Format
-
-
-Header Field Types:
-==================
-
-These are the defined valid values for hfield_t.type:
-
-Name : SENDER
-Value : 00h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes
-Summary : Name of agent that sent this message
-
-If blank (0 length or nulstr), assumed "Anonymous". If multiple SENDER fields
-exist, then the message has been forwarded and the order of the fields in the
-record must match the forwarding order (chronologically). When forwarding a
-message, the original SENDER field should be left intact and new SENDER,
-FORWARDED, and RECIPIENT fields added to the end of the record.
-
-
-Name : SENDERAGENT
-Value : 01h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : AGENT_PERSON or previous SENDERAGENT if exists
-Summary : Type of agent that sent this message
-
-If multiple SENDER fields exist, then the message has been forwarded. If any of the
-forwarding agents is of a type other than AGENT_PERSON, then this field must
-follow that SENDER field to specify the agent type.
-
-Name : SENDERNETTYPE
-Value : 02h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : NET_NONE or previous SENDERNETTYPE if exists
-Summary : Type of network message was sent from
-
-If multiple SENDERNETADDR fields are included, a SENDERNETTYPE field should be
-included before each to determine what data type the address is stored in.
-
-Name : SENDERNETADDR
-Value : 03h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERNETADDR if exists
-Summary : Network address for agent that sent this message
-
-The SENDERNETTYPE field indicates the data type of this field. If the
-SENDERNETTYPE is of type NET_INTERNET, the local-part of the Internet
-address is optional. If the local-part separator character ('@') is omitted,
-the SENDER field is assumed to be the local-part of the address.
-
-_______________________________________________________________________________
-Synchronet 34 Header Field Types
-
-
-
-Name : SENDEREXT
-Value : 04h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDEREXT if exists
-Summary : Extension of sending agent
-
-This field is useful for storing the sending agent's extension, when the
-agent's extension binds more tightly than the agent's name.
-
-For example, Synchronet Multinode BBS Software stores local e-mail with the
-sending and receiving agent's user numbers stored as their respective
-extensions. This is done so that if a user name changes for some reason,
-messages will not "disappear" from the user's mail box.
-
-If the SMB_EMAIL status header attribute is set, then the "From" field in the
-index must contain the binary value of this field rather than the CRC-16 of the
-SENDER (name) field.
-
-Name : SENDERPOS
-Value : 05h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERPOS if exists
-Summary : Position of sending agent
-
-Primarily for documentary purposes, this field contains the position of the
-sending agent (i.e. President, Sysop, C.E.O., MIS Director, etc).
-
-It can also be useful for getting a message or reply to the intended
-recipient when the agent name is not located or is unknown, but the position
-of the agent is known and specified.
-
-Name : SENDERORG
-Value : 06h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERORG if exists
-Summary : Organization name of sending agent
-
-Primarily for documentary purposes, this field contains the organization to
-which the sending agent belongs (i.e. Microsoft, Joe's BBS, SoCal User's Group,
-etc).
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 35 Header Field Types
-
-
-Name : AUTHOR
-Value : 10h
-Data : ASCII
-Multiple : Yes
-Required : No
-Default : First SENDER
-Summary : Name of agent that created this message
-
-This field can only be added by the process that originally creates the
-message. It should not be included if same as first SENDER field. If multiple
-AUTHOR fields exist, then the message was created by multiple agents and is
-considered valid. The order of multiple AUTHOR fields in the record is not
-significant.
-
-Name : AUTHORAGENT
-Value : 11h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : SENDERAGENT or previous AUTHORAGENT if exists
-Summary : Type of agent that created this message
-
-This field can only be added by the process that originally creates the
-message. It should not be included if same as first SENDERAGENT field. If
-multiple AUTHOR fields exist, then the message was created by multiple agents
-and if the agent type for any of the authors is other than AGENT_PERSON, an
-AUTHORAGENT field must follow to specify the agent type.
-
-Name : AUTHORNETTYPE
-Value : 12h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : SENDERNETTYPE or previous AUTHORNETTYPE if exists
-Summary : Type of network this author is member of
-
-Name : AUTHORNETADDR
-Value : 13h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : SENDERNETADDR or previous AUTHORNETADDR if exists
-Summary : Network address of this author
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 36 Header Field Types
-
-
-Name : AUTHOREXT
-Value : 14h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDEREXT or previous AUTHOREXT if exists
-Summary : Extension of this author
-
-Name : AUTHORPOS
-Value : 15h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDERPOS or previous AUTHORPOS if exists
-Summary : Position of this author
-
-Name : AUTHORORG
-Value : 16h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDERORG or previous AUTHORORG if exists
-Summary : Organization this author belongs to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 37 Header Field Types
-
-
-Name : REPLYTO
-Value : 20h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDER
-Summary : Name of agent that replies should go to
-
-Name : REPLYTOAGENT
-Value : 21h
-Data : ushort
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERAGENT
-Summary : Type of agent that replies should go to
-
-Name : REPLYTONETTYPE
-Value : 22h
-Data : ushort
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERNETTYPE
-Summary : Type of network that replies should go to
-
-Name : REPLYTONETADDR
-Value : 23h
-Data : undef
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERNETADDR
-Summary : Network address that replies should go to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 38 Header Field Types
-
-
-Name : REPLYTOEXT
-Value : 24h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDEREXT
-Summary : Extension of agent that replies should go to
-
-Name : REPLYTOPOS
-Value : 25h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERPOS
-Summary : Position of agent that replies should go to
-
-Name : REPLYTOORG
-Value : 26h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERORG
-Summary : Organization of agent that replies should go to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 39 Header Field Types
-
-
-Name : RECIPIENT
-Value : 30h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes
-Default : "All"
-Summary : Name of agent to receive this message
-
-If multiple RECIPIENT fields exist, the message has been forwarded and for each
-additional RECIPIENT field (after the initial RECIPIENT), there should be a
-FORWARDED field. The order of the RECIPIENT fields in the record must match the
-order in which the message was sent and forwarded (chronologically).
-
-Name : RECIPIENTAGENT
-Value : 31h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : AGENT_PERSON or previous RECIPIENTAGENT if exists
-Summary : Type of agent to receive this message
-
-If multiple RECIPIENT fields exist, the message has been forwarded. If any of
-the recipient agents are of a type other than AGENT_PERSON, this field must
-follow the RECIPIENT field to specify the agent type.
-
-Name : RECIPIENTNETTYPE
-Value : 32h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : NET_NONE or previous RECIPIENTNETTYPE if exists
-Summary : Type of network to receive this message
-
-Name : RECIPIENTNETADDR
-Value : 33h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTNETADDR if exists
-Summary : Address of network to receive this message
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 40 Header Field Types
-
-
-Name : RECIPIENTEXT
-Value : 34h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTEXT if exists
-Summary : Extension of agent to receive this message
-
-If SMB_EMAIL status header attribute is set, then the "To" field in the index
-must contain the binary value of this field rather than the CRC-16 of the
-RECIPIENT (name) field. This is the case specifically with the local e-mail
-message base on a Synchronet BBS.
-
-Name : RECIPIENTPOS
-Value : 35h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTPOS if exists
-Summary : Position of agent to receive this message
-
-Name : RECIPIENTORG
-Value : 36h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTORG if exists
-Summary : Type of agent to receive this message
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 41 Header Field Types
-
-
-Name : FORWARDTO
-Value : 40h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of agent this message is to be forwarded to
-
-Name : FORWARDTOAGENT
-Value : 41h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTAGENT or previous FORWARDTOAGENT if exists
-Summary : Type of agent this message is to be forwarded to
-
-Name : FORWARDTONETTYPE
-Value : 42h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETTYPE or previous FORWARDTONETTYPE if exists
-Summary : Type of network this message is to be forwarded to
-
-Name : FORWARDTONETADDR
-Value : 43h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETADDR or previous FORWARDTONETADDR if exists
-Summary : Network address this message is to be forwarded to
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 42 Header Field Types
-
-
-Name : FORWARDTOEXT
-Value : 44h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTEXT or previous FORWARDTOEXT if exists
-Summary : Extension of agent this message is to be forwarded to
-
-Name : FORWARDTOPOS
-Value : 45h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTPOS or previous FORWARDTOPOS if exists
-Summary : Position of agent this message is to be forwarded to
-
-Name : FORWARDTOORG
-Value : 46h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTORG or previous FORWARDTOORG if exists
-Summary : Organization of agent this message is to be forwarded to
-
-Name : FORWARDED
-Value : 48h
-Data : when_t
-Multiple : Yes, order significant
-Required : Yes, if forwarded
-Summary : Date/Time this message was forwarded to another agent
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 43 Header Field Types
-
-
-Name : RECEIVEDBY
-Value : 50h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes, if receiving agent is other than RECIPIENT
-Summary : Name of agent that received this message
-
-Name : RECEIVEDBYAGENT
-Value : 51h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTAGENT or previous RECEIVEDBYAGENT if exists
-Summary : Type of agent that received this message
-
-Name : RECEIVEDBYNETTYPE
-Value : 52h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETTYPE or previous RECEIVEDBYNETTYPE if exists
-Summary : Type of network that received this message
-
-Name : RECEIVEDBYNETADDR
-Value : 53h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETADDR or previous RECEIVEDBYNETADDR if exists
-Summary : Network address that received this message
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 44 Header Field Types
-
-
-Name : RECEIVEDBYEXT
-Value : 54h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTEXT or previous RECEIVEDBYEXT if exists
-Summary : Extension of agent that received this message
-
-Name : RECEIVEDBYPOS
-Value : 55h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTPOS or previous RECEIVEDBYPOS if exists
-Summary : Position of agent that received this message
-
-Name : RECEIVEDBYORG
-Value : 56h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTORG or previous RECEIVEDBYORG if exists
-Summary : Organization of agent that received this message
-
-Name : RECEIVED
-Value : 58h
-Data : when_t
-Multiple : Yes, order significant
-Required : Yes, if received
-Default : NULL
-Summary : Date/Time this message was received
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 45 Header Field Types
-
-
-Name : SUBJECT
-Value : 60h
-Data : ASCII
-Multiple : No
-Required : Yes, but may be blank (0 length or nulstr)
-Summary : Subject/title of message
-
-Name : SUMMARY
-Value : 61h
-Data : ASCII
-Multiple : No
-Required : No
-Summary : Summary of message contents, created by AUTHOR
-
-Name : COMMENT
-Value : 62h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Comment about this message, created by SENDER
-
-This field is useful for adding notes to a message when forwarding to a new
-recipient.
-
-Name : CARBONCOPY
-Value : 63h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : List of agents this message was also sent to
-
-This field is optional and only for the use of notifying the recipient of who
-else received the message.
-
-Name : GROUP
-Value : 64h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of group of users to receive message on recipient system
-
-This field is used when sending to a group name across a network, where the
-group can be expanded into multiple header records for each agent on the
-destination system.
-
-Name : EXPIRATION
-Value : 65h
-Data : when_t
-Multiple : No
-Required : No
-Summary : Date/Time that this message will expire
-
-
-
-
-_______________________________________________________________________________
-Synchronet 46 Header Field Types
-
-
-Name : PRIORITY
-Value : 66h
-Data : ulong
-Multiple : No
-Required : No
-Default : 0
-Summary : Message priority (0 is lowest, FFFFFFFFh is highest)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 47 Header Field Types
-
-
-Name : FILEATTACH
-Value : 70h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name/file specification of attached file(s)
-
-Name of attached file(s). Wildcards allowed. MSG_FILEATTACH attribute must be
-set. If the MSG_FILEATTACH attribute is set but this field is not included,
-the SUBJECT field is assumed to be the filename(s).
-
-Name : DESTFILE
-Value : 71h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Destination name for attached file(s)
-
-Wildcards allowed. FILEATTACH field must also be included.
-
-Name : FILEATTACHLIST
-Value : 72h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of ASCII list of attached filenames
-
-Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
-MSG_FILEATTACH attribute must be set.
-
-Name : DESTFILELIST
-Value : 73h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of ASCII list of destination filenames
-
-Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
-
-Name : FILEREQUEST
-Value : 74h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of requested file
-
-Wildcards allowed. MSG_FILEREQUEST attribute must be set
-
-Name : FILEPASSWORD
-Value : 75h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Password for FILEREQUEST
-
-_______________________________________________________________________________
-Synchronet 48 Header Field Types
-
-
-
-Name : FILEREQUESTLIST
-Value : 76h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of ASCII list of filenames to request
-
-Wildcards allowed.
-
-Name : FILEPASSWORDLIST
-Value : 77h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of ASCII list of passwords for FILEREQUESTLIST
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 49 Header Field Types
-
-
-Name : IMAGEATTACH
-Value : 80h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached image file for display
-
-MSG_FILEATTACH attribute must be set. See Image Types for valid
-mattach_t.type values.
-
-Name : ANIMATTACH
-Value : 81h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached graphical animation file for display
-
-MSG_FILEATTACH attribute must be set. See Animation Types for valid
-mattach_t.type values.
-
-Name : FONTATTACH
-Value : 82h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached font definition file
-
-MSG_FILEATTACH attribute must be set. See Font Types for valid mattach_t.type
-values.
-
-Name : SOUNDATTACH
-Value : 83h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached sound file for playback
-
-MSG_FILEATTACH attribute must be set. See Sound Types for valid mattach_t.type
-values.
-
-Name : PRESENTATTACH
-Value : 84h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached presentation definition file
-
-MSG_FILEATTACH attribute must be set. See Present Types for valid
-mattach_t.type values.
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 50 Header Field Types
-
-
-Name : VIDEOATTACH
-Value : 85h
-Data : vattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached interleaved video/sound file
-
-MSG_FILEATTACH attribute must be set. See Video Types for valid
-vattach_t.type values and Video Compression Types for valid vattach_t.comp
-values.
-
-Name : APPDATAATTACH
-Value : 86h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Name of attached application data file for process/display
-
-MSG_FILEATTACH attribute must be set. See Application Data Types for valid
-mattach_t.type values.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 51 Header Field Types
-
-
-Name : IMAGETRIGGER
-Value : 90h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of image file to trigger for display
-
-See Image Types for valid typestr_t.type values.
-
-Name : ANIMTRIGGER
-Value : 91h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of animation file to trigger for display
-
-See Animation Types for valid typestr_t.type values.
-
-Name : FONTTRIGGER
-Value : 92h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of font definition file to trigger
-
-See Font Types for valid typestr_t.type values.
-
-Name : SOUNDTRIGGER
-Value : 93h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of sound file to trigger for playback
-
-See Sound Types for valid typestr_t.type values.
-
-Name : PRESENTTRIGGER
-Value : 94h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of presentation definition file to trigger
-
-See Present Types for valid typestr_t.type values.
-
-Name : VIDEOTRIGGER
-Value : 95h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of interleaved video/sound file to trigger
-
-See Video Types for valid typestr_t.type values.
-
-
-_______________________________________________________________________________
-Synchronet 52 Header Field Types
-
-
-Name : APPDATATRIGGER
-Value : 96h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of application data file to trigger
-
-See Application Data Types for valid typestr_t.type values.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 53 Header Field Types
-
-
-Name : FIDOCTRL
-Value : A0h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : keyword ":" [" "] appdata
-Summary : FTS/FSC-compliant control information line
-
-Any FidoNet FTS/FSC-compliant control information ("kludge") line that
-does not have an equivalent representation here. All data not unique to the
-actual control line, including leading and trailing white space, Ctrl-A (01h)
-character and terminating CR must be ommited. Defined in FTS-0001.
-
-Name : FIDOAREA
-Value : A1h
-Data : ASCII
-Multiple : No
-Required : No
-Summary : FTN EchoMail conference name.
-
-Defined in FTS-0004.
-
-Name : FIDOSEENBY
-Value : A2h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : net"/"node [" "[net"/"]node] [...]
-Summary : Used to store two-dimensional (net/node) SEEN-BY information
-
-Often used in FTN EchoMail environments. Only the actual SEEN-BY data is stored
-and SEEN-BY: is stripped along with any leading and trailing white space
-characters. Defined in FTS-0004.
-
-Name : FIDOPATH
-Value : A3h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : net"/"node [" "[net"/"]node] [...]
-Summary : Used to store two-dimensional (net/node)
-
-Defined in FTS-0004. ^aPATH: is stripped along with any leading and trailing
-white space characters.
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 54 Header Field Types
-
-
-Name : FIDOMSGID
-Value : A4h
-Data : ASCII
-Multiple : No
-Required : No
-Format : origaddr " " serialno
-Summary : MSGID field as specified in FTS-0009.
-
-Name : FIDOREPLYID
-Value : A5h
-Data : ASCII
-Multiple : No
-Required : No
-Format : origaddr " " serialno
-Summary : REPLY field as specified in FTS-0009.
-
-Name : FIDOPID
-Value : A6h
-Data : ASCII
-Multiple : No
-Required : No
-Format : pID " " version [" "serialno]
-Summary : Indentification string of program that created this message
-
-Defined FSC-0046. "^aPID:" and any white space is not included.
-
-Name : FIDOFLAGS
-Value : A7h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Used to store the FTN FLAGS kludge information
-
-Note that all FLAG options that have binary representation in the message
-header must be removed from the FLAGS string prior to storing it. Only the
-actual flags option string is stored and ^aFLAGS is stripped along with any
-leading and trailing white space characters. Defined in FSC-0053.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 55 Header Field Types
-
-
-Name : RFC822HEADER
-Value : B0h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : field-name ":" [field-body] [CRLF]
-Summary : Undefined RFC-822 header field
-
-Internet Message storage format, that does not have an equivalent
-representation here. Folded header fields are allowed. Terminating CRLF may be
-ommited.
-
-Name : RFC822MSGID
-Value : B1h
-Data : ASCII
-Multiple : No
-Required : No
-Format : "<" addr-spec ">"
-Summary : Message-ID field as specified in RFC-822.
-
-Name : RFC822REPLYID
-Value : B2h
-Data : ASCII
-Multiple : No
-Required : No
-Format : "<" addr-spec ">"
-Summary : In-Reply-To field as specified in RFC-822.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 56 Header Field Types
-
-
-Name : UNKNOWN
-Value : F0h
-Data : undef
-Multiple : Yes
-Required : No
-Summary : Undefined header field of undefined type
-
-This field is useful for retaining binary header fields (that do not have an
-equivalent representation here) between message storage formats.
-
-Name : UNKNOWNASCII
-Value : F1h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Undefined header field of type ASCII
-
-This field is useful for retaining ASCII header fields (that do not have an
-equivalent representation here) between message storage formats.
-
-Name : UNUSED
-Value : FFh
-Data : undef
-Multiple : Yes
-Required : No
-Summary : Unused (deleted) header field
-
-The data contained in this header field is of an unknown type and should not be
-processed.
-
-
-Note:
-----
-Specifically, not defined are the values F000h through FFFFh. These values
-are to be used for user or system defined header fields. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-header fields added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 57 Header Field Types
-
-
-Data Field Types:
-================
-
-These are the defined valid values for dfield_t.type:
-
-
-Val Name Data Description
---- ---- ---- -----------
-00h TEXT_BODY mtext_t Displayable text (body of message).
- Included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data
- (except when multiple contiguous CRLFs
- terminate the text, only the last CRLF
- is removed).
-
-01h TEXT_SOUL mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Included in duplicate message checking.
-
-02h TEXT_TAIL mtext_t Displayable text (tag/tear/origin lines,
- etc).
- Not included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data.
-
-03h TEXT_WING mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Not included in duplicate message checking.
-
-10h FTEXT_BODY ftext_t Formatted equivalent of TEXT_BODY to be
- displayed in place of TEXT_BODY if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
-12h FTEXT_TAIL ftext_t Formatted equivalent of TEXT_TAIL to be
- displayed in place of TEXT_TAIL if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 58 Data Field Types
-
-
-20h IMAGEEMBED membed_t Type and data of embedded raster image file
- for display.
- See Image Types for valid membed.type
- values.
-
-21h ANIMEMBED membed_t Type and data of embedded graphical
- animation file for display.
- See Animation Types for valid membed.type
- values.
-
-22h FONTEMBED membed_t Type and data of embedded font definition
- file. See Font Types for valid
- membed_t.type values.
-
-23h SOUNDEMBED membed_t Type and data of embedded sound file for
- playback.
- See Sound Types for valid membed_t.type
- values.
-
-24h PRESENTEMBED membed_t Type and data of embedded presentation
- definition file.
- See Present Types for valid membed_t.type
- values.
-
-25h VIDEOEMBED vembed_t Type and data of embedded video/sound file
- for playback.
- See Video Types for valid vembed_t.type
- values.
- See Video Compression Types for valid
- vembed_t.comp values.
-
-26h APPDATAEMBED membed_t Type and data of embedded application data
- file for process/display.
- See Application Data Types for valid
- membed_t.type values.
-
-FFh UNUSED undef Space allocated for future update/expansion
-
-
-Specifically, not defined are the values F000h through FFFFh. These values
-are to be used for user or system defined data fields. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-data fields added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 59 Data Field Types
-
-
-Message Attributes:
-------------------
-
-These are the bit values for idxrec_t.attr and msghdr_t.attr:
-
-MSG_PRIVATE (1<<0) // Private
-MSG_READ (1<<1) // Read by addressee
-MSG_PERMANENT (1<<2) // Permanent
-MSG_LOCKED (1<<3) // Msg is locked, no editing possible
-MSG_DELETE (1<<4) // Msg is marked for deletion
-MSG_ANONYMOUS (1<<5) // Anonymous author
-MSG_KILLREAD (1<<6) // Delete message after it has been read
-MSG_MODERATED (1<<7) // This message must be validated before export
-MSG_VALIDATED (1<<8) // This message has been validated by a moderator
-
-
-Auxillary Attributes:
---------------------
-These are the bit values for msghdr_t.auxattr:
-
-MSG_FILEREQUEST (1<<0) // File request
-MSG_FILEATTACH (1<<1) // File(s) attached to Msg
-MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
-MSG_KILLFILE (1<<3) // Delete file(s) when sent
-MSG_RECEIPTREQ (1<<4) // Return receipt requested
-MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
-MSG_NODISP (1<<6) // Msg may not be displayed to user
-
-
-Network Attributes:
-------------------
-These are the bit values for msghdr_t.netattr:
-
-MSG_LOCAL (1<<0) // Msg created locally
-MSG_INTRANSIT (1<<1) // Msg is in-transit
-MSG_SENT (1<<2) // Sent to remote
-MSG_KILLSENT (1<<3) // Kill when sent
-MSG_ARCHIVESENT (1<<4) // Archive when sent
-MSG_HOLD (1<<5) // Hold for pick-up
-MSG_CRASH (1<<6) // Crash
-MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
-MSG_DIRECT (1<<8) // Send directly to destination
-MSG_GATE (1<<9) // Send via gateway
-MSG_ORPHAN (1<<10) // Unknown destination
-MSG_FPU (1<<11) // Force pickup
-MSG_TYPELOCAL (1<<12) // Msg is for local use only
-MSG_TYPEECHO (1<<13) // Msg is for conference distribution
-MSG_TYPENET (1<<14) // Msg is direct network mail
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 60 Message Attributes
-
-
-Translation Types:
------------------
-
-Definition for values of *.xlat[x]:
-
-XLAT_NONE 0 // No translation/End of translation list
-XLAT_LF2CRLF 1 // Expand sole LF to CRLF
-XLAT_ESCAPED 2 // 7-bit ASCII escaping for ctrl and 8-bit data
-XLAT_HUFFMAN 3 // Static and adaptive Huffman coding compression
-XLAT_LZW 4 // LZW (Lempel-Ziv-Welch) encoding for compression
- // Terry Welch, IEEE Computer Vol 17, No 6
- // June 1984, pp 8-19
-XLAT_LZC 5 // LZC (modified LZW) encoding for compression
- // Unix compress program
-XLAT_RLE 6 // Run length encoding compression
-XLAT_IMPLODE 7 // Implode compression (PKZIP v1.x)
-XLAT_SHRINK 8 // Shrink compression (PKZIP v1.x)
-XLAT_LZH 9 // LZH dynamic Huffman coding
- // Haruyasu Yoshizaki, LHarc
- // November, 1988
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 61 Translation Types
-
-
-Agent Types:
------------
-
-AGENT_PERSON 0 // To or from person
-AGENT_PROCESS 1 // Unknown process, identified by agent name
-
-Agent types E000h through EFFFh are reserved for Synchronet process types
-(defined specifically by Digital Dynamics).
-
-Note:
-----
-Specifically not defined are agent types F000h through FFFFh. These values
-are to be used for user or system defined agent types. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-agent types added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 62 Agent Types
-
-
-Network Types:
--------------
-
- // Net Type Address Format
- // -----------------------------------
-NET_NONE 0 // Locally created none
-NET_UNKNOWN 1 // Unknown undef
-NET_FIDO 2 // FTN network fidoaddr_t
-NET_POSTLINK 3 // PostLink network none
-NET_QWK 4 // QWK based network ASCII
-NET_INTERNET 5 // The Internet ASCII
-NET_WWIV 6 // WWIV based network ulong
-NET_MHS 7 // MHS network ASCII
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 63 Network Types
-
-
-Media Types:
-===========
-
-Image Types:
------------
-
-IMAGE_UNKNOWN 0x00 // Use image signature header to determine format
-IMAGE_ASC 0x01 // ASCII text/IBM extended ASCII graphics
-IMAGE_ANS 0x02 // ANSI X3.64 terminal escape sequences
-IMAGE_AVT 0x03 // AVATAR terminal escape sequences
-IMAGE_LVI 0x04 // LVI terminal escape sequences
-IMAGE_GIF 0x05 // Compuserve Graphics Interchange Format (GIF)
-IMAGE_TIF 0x06 // Tagged Image Format (AKA TIFF)
-IMAGE_JPG 0x07 // Joint Photographers Electronics Group (JPEG)
-IMAGE_T16 0x08 // TrueVision 16-bit bitmap (TGA)
-IMAGE_T24 0x09 // TrueVision 24-bit bitmap (TGA)
-IMAGE_T32 0x0a // TrueVision 32-bit bitmpa (TGA)
-IMAGE_PCX 0x0b // ZSoft PaintBrush graphics
-IMAGE_BMP 0x0c // Windows bitmap
-IMAGE_RLE 0x0d // Windows bitmap (compressed)
-IMAGE_DIB 0x0e // Display independant bitmap
-IMAGE_PCD 0x0f // Kodak PhotoCD
-IMAGE_G3F 0x10 // Group 3 FAX
-IMAGE_EPS 0x11 // Ecapsulated PostScript
-IMAGE_RTF 0x12 // Rich text format
-IMAGE_RIP 0x13 // Remote Imaging Protocol Script (RIPscrip)
-IMAGE_NAP 0x14 // NAPLPS
-IMAGE_CDR 0x15 // Corel Draw!
-IMAGE_CGM 0x16 // Computer graphics metafile
-IMAGE_WMF 0x17 // Windows metafile
-IMAGE_DFX 0x18 // Autodesk AutoCAD
-IMAGE_IFF 0x19 // Amiga Interchange File Format
-
-
-Animation Types:
----------------
-
-ANIM_UNKNOWN 0 // Use file signature header to determine format
-ANIM_FLI 1 // Autodesk animator
-ANIM_FLC 2 // Autodesk
-ANIM_GL 3 // Grasprt
-ANIM_IFF 4 // Amiga Interchange File Format
-
-
-Video Types:
------------
-
-VIDEO_UNKNOWN 0 // Use file signature header to determine format
-VIDEO_QTIME 1 // Apple Quick-time
-VIDEO_FQTIME 2 // Apple Flattened Quick-time
-VIDEO_AVI 3 // Windows Auto/Video Interleave
-VIDEO_ULT 4 // OS/2 Ultimotion
-
-
-
-_______________________________________________________________________________
-Synchronet 64 Media Types
-
-
-Video Compression Types:
------------------------
-
-VCOMP_UNKNOWN 0 // Use file signature header to determine codec
-VCOMP_RLE 1 // Apple animation
-VCOMP_SMC 2 // Apple graphics
-VCOMP_RPZA 3 // Apple video
-VCOMP_KLIC 4 // Captain crunch
-VCOMP_CVID 5 // CinePak
-VCOMP_RT21 6 // Intel indeo R2
-VCOMP_IV31 7 // Intel indeo R3
-VCOMP_YVU9 8 // Intel YVU9
-VCOMP_JPEG 9 // JPEG
-VCOMP_MRLE 10 // Microsoft RLE
-VCOMP_MSVC 11 // Microsoft video 1
-
-
-Font Types:
-----------
-
-FONT_UNKNOWN 0 // Use file signature header to determine format
-FONT_TTF 1 // Windows TrueType
-FONT_PFB 2 // PostScript Type 1 Font Binary
-FONT_PFM 3 // PostScript Type 1 Font Metric
-FONT_AMIGA 4 // Amiga Bitmapped
-FONT_AGFA 5 // CompuGraphic Fonts
-
-
-Sound Types:
------------
-
-SOUND_UNKNOWN 0 // Use file signature header to determine format
-SOUND_MOD 1 // MOD format
-SOUND_VOC 2 // Sound Blaster VOC format
-SOUND_WAV 3 // Windows 3.1 WAV RIFF format
-SOUND_MID 4 // MIDI format
-SOUND_GMID 5 // General MIDI format (standardized patches)
-SOUND_SMP 6 // Turtle Beach SampleVision format
-SOUND_SF 7 // IRCAM format
-SOUND_AU 8 // Sun Microsystems AU format
-SOUND_IFF 9 // Amiga Interchange File Format
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 65 Media Types
-
-
-Application Data Types:
-----------------------
-
-APPDATA_UNKNOWN 0 // Use file signature header to determine format
-APPDATA_WORDPERFECT 1 // WordPerfect Document
-APPDATA_WKS 2 // Lotus 123 Worksheet (?)
-APPDATA_WK1 3 // Lotus 123 Worksheet rev 1
-APPDATA_WK2 4 // Lotus 123 Worksheet rev 2
-APPDATA_WK3 5 // Lotus 123 Worksheet rev 3
-APPDATA_DBF 6 // dBase III data file
-APPDATA_PDX 7 // Paradox data file
-APPDATA_EXCEL 8 // Excel data file
-APPDATA_QUATRO 9 // Borland Quatro Pro file
-APPDATA_WORD 10 // Microsoft Word
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 66 Media Types
-
-
-Message Storage Pseudo Code
-===========================
-
-The following is a "C like" pseudo code listing example of adding a message to
-an SMB message base. SMBLIB contains C functions to do most of the following
-operations. We are supplying this pseudo code as a general definition of the
-order of required operations in writing to the message base. Many details have
-been left out to simplify the code and to demonstrate only the basic
-principles.
-
-shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
-sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-
-lock ( shd , smbhdr )
-read ( shd , smbstatus )
-
-if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.hdr.offset = filelength ( sdt )
-
-else {
- number_of_blocks = length_of_message_data / SDT_BLOCK_LEN
- if ( length_of_message_data % SDT_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1
-
- sda = open ( MSGBASE.SDA , READ/WRITE/DENY_ALL )
-
- if ( fast_allocation_mode )
- seek ( sda , END_OF_FILE )
-
- else {
- seek ( sda , BEGINNING_OF_FILE )
- while ( not end_of_file ( sda ) ) {
- read ( sda , allocated , number_of_blocks * 2 )
- if ( allocated = 0 ) {
- seek_backwards ( sda , number_of_blocks * 2 )
- break
- }
- }
- }
-
- msg.hdr.offset = ( current_position ( sda ) / 2 ) * SDT_BLOCK_LEN
-
- allocated = 1
-
- write ( sda , allocated , number_of_blocks * 2 )
-
- close ( sda )
-}
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 67 Message Storage Pseudo Code
-
-
-seek ( sdt , msg.hdr.offset )
-
-write ( sdt , message_data )
-
-if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.idx.offset = filelength ( shd )
-
-else {
- number_of_blocks = length_of_message_header / SHD_BLOCK_LEN
- if ( length_of_message_header % SHD_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1
-
- sha = open ( MSGBASE.SHA , READ/WRITE/DENY_ALL )
-
- if ( fast_allocation_mode )
- seek ( sha , END_OF_FILE )
-
- else {
- seek ( sha , BEGINNING_OF_FILE )
- while ( not end_of_file ( sha ) ) {
- read ( sha , allocated , number_of_blocks )
- if ( allocated = 0 ) {
- seek_backwards ( sha , number_of_blocks )
- break
- }
- }
- }
-
- msg.idx.offset = ( current_position ( sha ) * SHD_BLOCK_LEN )
- msg.idx.offset = msg.idx.offset + smbstatus.header_offset
-
- allocated = 1
-
- write ( sha , allocated , number_of_blocks )
-
- close ( sha )
-}
-
-seek ( shd , msg.idx.offset )
-
-msg.hdr.number = smbstatus.last_msg+1
-
-write ( shd , msg.hdr )
-
-smbstatus.total_msgs = smbstatus.total_msgs + 1
-smbstatus.last_msg = msg.hdr.number
-
-write ( shd , smbstatus )
-
-write ( sid , msg.idx )
-
-unlock ( shd , smbstatus )
-
-
-
-_______________________________________________________________________________
-Synchronet 68 Message Storage Pseudo Code
-
-
-Message Retrieval Pseudo Code
-=============================
-
-shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
-sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-
-read ( sid , msg.idx )
-
-seek ( shd , msg.idx.offset )
-
-lock ( shd , msg.hdr )
-
-read ( shd , msg.hdr )
-
-seek ( sdt , msg.hdr.offset )
-
-read ( sdt , msg.hdr.data_length )
-
-unlock ( shd , msg.hdr )
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 69 Message Retrieval Pseudo Code
-
-
-SMBUTIL
-=======
-
-SMBUTIL is a utility that can perform various functions on an SMB message base.
-The primary purpose of SMBUTIL is as an example to C programmers of how to use
-the SMBLIB functions to access and modify an SMB message base. The complete C
-source code for SMBUTIL is included and functions from it can be used or
-modified by developers at their own discretion. The following files make up
-SMBUTIL:
-
-SMBUTIL.EXE Compiled and linked for 16-bit DOS (ready to run)
-SMBUTIL.C C functions
-SMBUTIL.H C definitions and variable prototypes
-SMBUTIL.WAT Makefile for Watcom C/C++ (type wmake -f smbutil.wat)
-SMBUTIL.BOR Makefile for Borland C/C++ (type make -f smbutil.bor)
-
-The usage syntax is as follows:
-
-SMBUTIL [/opts] cmd smb_filespec.shd
-
-where cmd is one or more of the following:
-
- l[n] = list msgs starting at number n
- r[n] = read msgs starting at number n
- v[n] = view msg headers starting at number n
- k[n] = kill (delete) n msgs
- i<f> = import from text file f
- s = display msg base status
- c = change msg base status
- m = maintain msg base - delete old msgs and msgs over max
- p[k] = pack msg base (k specifies minimum packable Kbytes)
-
-where opts is one or more of the following:
-
- a = always (force) packing
- z<n> = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)
-
-and smb_filespec is the base filename or file specification (wildcards) for the
-message base. If wildcards are used, the ".SHD" extension must be specified.
-
-An example command line:
-
-SMBUTIL MP C:\SBBS\DATA\SUBS\*.SHD
-
-would maintain and pack all the message bases found in the C:\SBBS\DATA\SUBS
-directory.
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 70 SMBUTIL
-
-
-CHKSMB
-======
-
-CHKSMB is a utility that performs a comprehensive analysis of a message base
-to find any possible errors and calculate the number of packable bytes. It does
-not "fix" a message base if any errors are found, it only reports the specific
-errors (and exits with a non-zero error level). If any errors are reported,
-packing the message base with SMBUTIL may rebuild the damaged files. If that
-doesn't work, then use FIXSMB as a last resort.
-
-C source code for CHKSMB is also included as an example to programmers of how
-to use SMBLIB functions.
-
-The usage syntax is as follows:
-
-CHKSMB [/opts] smb_filespec.shd
-
-where opts is one or more of the following:
-
- q = quiet mode (no beeps)
- s = stop after an errored message base (for use with wildcards)
- p = pause after an errored message base (wait for key press)
- t = don't check for unsupported translation strings (faster)
- e = display extended information on corrupted messages
-
-An example command line:
-
-CHKSMB /QP C:\SBBS\DATA\SUBS\*.SHD
-
-would check all the message bases in the C:\SBBS\DATA\SUBS directory, without
-beeping on errors, and pausing after an errored message base.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 71 CHKSMB
-
-
-FIXSMB
-======
-
-FIXSMB is a utility that will rebuild the index and allocation files for a
-message base. Since the message headers are not necessarily stored
-sequentially, the order of the messages in the index may be changed when the
-index is rebuilt. Messages are also re-numbered, so only use this program if
-the index is corrupted and the messages are extremely important.
-
-C source code for FIXSMB is also included as an example to programmers of how
-to use SMBLIB functions.
-
-The usage syntax is as follows:
-
-FIXSMB [/M] smb_file
-
-An example command line:
-
-FIXSMB \SBBS\DATA\MAIL
-
-Only use the "/M" command line switch if fixing an older Synchronet e-mail
-message base (created with SBBS v2.1 or earlier). Once the SMB_EMAIL status
-attr is set ("SMBUTIL S" will report a status attr of 1), the "/M" is not
-required.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 72 FIXSMB
-
-
-SMBLIB
-======
-
-SMBLIB is a library of C functions for accessing and storing messages in an
-SMB format message base. It can eliminate much of the development time for
-developers that wish to use the library in whole or in part, or use the
-functions as examples for their own message base function library. The library
-consists of the following files:
-
-SMBDEFS.H Constant definitions, macros, and data types
-SMBLIB.H Library constants and function prototypes
-SMBLIB.C Function definitions
-SMBVARS.C Global variable definitions (doubles as declaration file)
-
-For developers to use this library with their program, they must include the
-"SMBLIB.H" header file at the top of each C file that uses any of the library
-functions, global variables, data types, macros, and constants. This can be
-done by simply adding the following line to each .C file:
-
-#include "smblib.h"
-
-If SMBLIB.H is included, there is no need to include SMBDEFS.H or SMBVARS.C.
-
-To link the library functions and variables with a main program, the files
-SMBVARS.OBJ and SMBLIB.OBJ must be linked with the main program .OBJ files.
-If the operating system is DOS, be sure that all .OBJ files are compiled for
-the same memory model.
-
-Example MAKEFILEs for compiling and linking SMBUTIL with Borland C/C++
-(SMBUTIL.BOR) and Watcom C/C++ (SMBUTIL.WAT) are included.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 73 SMBLIB
-
-
-SMBDEFS.H
-=========
-
-The SMBDEFS.H file contains important constant definitions and data types (also
-defined in this document). If ever this document and SMBDEFS.H are inconsistent
-with each other, then SMBDEFS.H is to be considered correct and this document
-in error. If such a discrepency is found, please notifiy Digital Dynamics so it
-can be corrected in a future revision of the specification.
-
-Most notable of the data types is a structure called smbmsg_t (not defined
-in this document). It contains the fixed and variable portions of a message's
-header record as well as convenience pointers to the sender's name
-(smbmsg_t.to), recipient's name (smbmsg_t.from), network addresses, and more.
-If multiple SENDER header fields are included (for example), then smbmsg_t.to
-will point to the last SENDER header field in the header record. Convenience
-pointers for other data items work in the same fasion if multiple header fields
-of the same type exist in the header record.
-
-Variables of the smbmsg_t data type (and pointers to variables of smbmsg_t
-type) are used as arguments to many of the SMBLIB functions.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 74 SMBDEFS.H
-
-
-SMBVARS.C
-=========
-
-The SMBVARS.C file contains definitions of the global variables used by the
-SMBLIB functions. It is a fairly small file since their are a small number of
-global variables (by design). This file is used for both definitions and
-declarations, so no "extern" declarations need to be made in developers source
-code as long as SMBVARS.C or (preferably) SMBLIB.H is included in the source
-code.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 75 SMBVARS.C
-
-
-SMBLIB.H
-=======
-
-The SMBLIB.H file contains prototypes of all the functions in the SMBLIB.C
-file. It is necessary to include this file in C source code if any of the
-SMBLIB functions are used. The following C source line will include this file:
-
-#include "smblib.h"
-
-and should be placed near the top of all C source files that use SMBLIB
-functions, variables, constants, or data types.
-
-Function prototypes are necessary for compilers to know the correct calling
-syntax of a function and detect incorrect usage. Prototypes are also useful
-as a quick reference for programmers as to the correct calling syntax of a
-specific function.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 76 SMBLIB.H
-
-
-SMBLIB.C
-=======
-
-The SMBLIB.C file contains the actual SMBLIB library functions. This source
-file is not a stand alone program, but instead must be compiled and linked
-with a main source file to create the executable program.
-
-The functions in this file are organized in a logical order, but their order
-is actually irrelevant to the compiling, linking, and execution of the
-resulting program.
-
-A comment block preceeds each function, explaining what the function does,
-how the passed parameters are used, and what the return code (if any)
-indicates. A more detailed explanation of each function is included here:
-
-int smb_open(int retry_time)
-----------------------------
-The smb_open() function must be called before the message base is accessed
-(read from or written to). The parameter, retry_time, is the maximum number
-of seconds to wait while retrying to lock the message base header. If
-retry_time is 0, then the message base header is not locked or read (this is
-called "Fast Open" and should only be used when speed is more important than
-checking for compatibility and validity upon opening). The global variable
-smb_file must be initialized with the path and base filename of the message
-base. This function returns 0 on success, 1 if the .SDT file could not be
-opened, 2 if the .SHD file could not be opened, and 3 if the .SID file could
-not be opened. If the message base header could not be locked, this function
-returns -1. If the message base ID is incorrect, it returns -2. And if the
-message base is of an incompatible version, it returns -3.
-
-The errno global variable (standard of most C libraries) will most likely
-contain the error code for open failure.
-
-int smb_open_da(int retry_time)
--------------------------------
-The smb_open_da() function is used to open the data block allocation file for
-writing messages to a message base. The parameter, retry_time, is the maximum
-number of seconds to wait while retrying to open the file. This function
-returns 0 on success. -1 is returned if an open error other than "Access
-Denied" is returned from the operating system, and the global variable errno
-will contain the error code. -2 is returned if the retry_time has been
-reached, and -3 is returned if the file descriptor could not be converted to
-a stream by the fdopen() function.
-
-fclose(sda_fp) should be called immediately after all necessary file access
-has been completed.
-
-This function is not used with the Hyper Allocation storage method.
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 77 SMBLIB.C
-
-
-int smb_open_ha(int retry_time)
--------------------------------
-The smb_open_ha() function is used to open the header block allocation file for
-writing messages to a message base. The parameter, retry_time, is the maximum
-number of seconds to wait while retrying to open the file. This function
-returns 0 on success. -1 is returned if an open error other than "Access
-Denied" is returned from the operating system, and the global variable errno
-will contain the error code. -2 is returned if the retry_time has been
-reached, and -3 is returned if the file descriptor could not be converted to
-a stream by the fdopen() function.
-
-fclose(sha_fp) should be called immediately after all necessary file access
-has been completed.
-
-This function is not used with the Hyper Allocation storage method.
-
-int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time)
---------------------------------------------------------------------------
-The smb_create() function is used to create a new message base or reset an
-existing message base. The parameters max_crcs, max_msgs, max_age, and attr
-are used to set the initial status of the message base status header. The
-parameter, retry_time is the maximum number of seconds to wait while retrying
-to lock the message base header. This functions returns 0 on success or 1 if
-the message base header could not be locked.
-
-int smb_trunchdr(int retry_time)
---------------------------------
-The smb_trunchdr() function is used to truncate the header file when packing
-the message base and writing the new header information back to the header
-file. The parameter, retry_time is the maximum number of seconds to wait while
-retrying to truncate the header file. Returns 0 on success, -1 if error was
-other than "Access Denied", or -2 if retry_time reached.
-
-int smb_locksmbhdr(int retry_time)
-----------------------------------
-The smb_locksmbhdr() function is used to lock the first message base (status)
-header. The parameter, retry_time is the number of seconds to wait while
-retrying to lock the header. The smb_unlocksmbhdr() function should always be
-used to unlock the header after accessing the message base header (usually
-with smb_getstatus() and/or smb_putstatus()). Returns 0 if successful, -1 if
-unsuccessful.
-
-int smb_unlocksmbhdr()
-----------------------
-The smb_unlocksmbhdr() function is used to unlock a previously locked message
-base header (using smb_lockmsghdr()). Returns 0 on success, non-zero on
-failure.
-
-int smb_getstatus(smbstatus_t *hdr)
------------------------------------
-The smb_getstatus() function is used to read the status message base header
-into the hdr structure. Returns 0 on success, 1 on failure.
-
-
-_______________________________________________________________________________
-Synchronet 78 SMBLIB.C
-
-
-int smb_putstatus(smbstatus_t hdr)
-----------------------------------
-The smb_putstatus() function is used to write the status information to the
-first message base header. The parameter hdr, contains the status information
-to be written. Returns 0 on success, 1 on failure.
-
-int smb_getmsgidx(smbmsg_t *msg)
---------------------------------
-The smb_getmsgidx() function is used to get the byte offset for a specific
-message header in the message header file based on the message base index.
-
-If msg->hdr.number is non-zero when this function is called, then the index
-will be searched for this message number. If the message number is found in
-the index, the msg->idx.offset is set to the byte offset of the message header
-record in the header file and msg->offset is set to the record offset of the
-index record in the index file, and the function returns 0. If the message
-number is not found in the index, the function returns 1.
-
-If msg->hdr.number is zero, msg->idx.offset and msg->idx.number are obtained
-from the index record at record offset msg->offset. If msg->offset is an
-invalid record offset when this function is called, the function returns 1.
-Otherwise, the function returns 0.
-
-int smb_getlastidx(idxrec_t *idx)
----------------------------------
-Reads the last index record of the currently open message base into the
-idxrec_t structure pointed to by idx. Returns 0 if successful, -1 if the index
-is empty or unopened, or -2 if the record can't be read.
-
-int smb_getmsghdrlen(smbmsg_t msg)
-----------------------------------
-The smb_getmsghdrlen() function is used to calculate the total length of
-message header msg including both fixed and variable length portions. This
-function returns the length of the header record in bytes.
-
-long smb_getmsgdatlen(smbmsg_t msg)
------------------------------------
-The smb_getmsgdatlen() function is used to calculate the total length of the
-data for message msg. This function returns the length of all data fields
-combined.
-
-int smb_lockmsghdr(smbmsg_t msg, int retry_time)
-------------------------------------------------
-The smb_lockmsghdr() function is used to lock the header record for message
-msg. The parameter retry_time is the maximum number of seconds to wait while
-retrying to lock the header. Returns 0 on success, -1 on failure. The function
-smb_unlockmsghdr() should immediately be called after accessing the message
-header (usually with smb_getmsghdr() or smb_putmsghdr()).
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 79 SMBLIB.C
-
-
-int smb_getmsghdr(smbmsg_t *msg)
---------------------------------
-The function smb_getmsghdr() is used to read the header record for message
-msg. msg->idx.offset must be initialized to the byte offset of the header
-record in the header file before this function is called. The function
-smb_freemsgmem() must be called to free the memory allocated by this function
-for the header and data felds. This function returns 0 on success, -1 if
-the fixed portion of the message header record could not be read, -2 if the
-message header ID was incorrect, -3 if memory could not be allocated, -4
-if a data field could not be read, -5 if the fixed length portion of a header
-field could not be read, -6 if the variable length portion of a header field
-could not be read, -7 if one or more of the mandatory header fields (SENDER,
-RECIPIENT, or SUBJECT) are missing, -8 if total_dfields extends beyond the
-end of the header record, or -9 if incompatible header version.
-
-Several convenience pointers in the msg structure are initialized by this
-function to point to the last occurance of the SENDER (msg->from), RECIPIENT
-(msg->to), SUBJECT (msg->subj), etc.
-
-int smb_unlockmsghdr(smbmsg_t msg)
-----------------------------------
-The smb_unlockmsghdr() function is used to unlock a previously locked message
-header (with smb_lockmsghdr()). This function returns 0 on success, non-zero
-on failure.
-
-int smb_addcrc(ulong max_crcs, ulong crc, int retry_time)
----------------------------------------------------------
-The smb_addcrc() function is used to add a CRC-32 to the CRC history file
-for a message base, automatically checking for duplicates. The parameter
-max_crcs should be the max_crcs defined in the status header of the message
-base. The parameter crc, is the CRC-32 of the TEXT_BODY and TEXT_SOUL data
-fields for the message. The parameter retry_time is the maximum number of
-seconds to wait when retrying to open the CRC history file.
-
-This function returns -1 if there was an open error, -2 if the retry_time
-was reached, -3 if there was a memory allocation error, 1 if the CRC already
-exists in the CRC history file (indicating a duplicate message), or 0 on
-success (and no duplicate).
-
-int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)
----------------------------------------------------------------------
-The smb_hfield() function is used to add a header field to the structure msg.
-The parameters type, length, and data, must be specified according to the
-header field values listed in this specification. This function returns 0
-on success, non-zero on memory allocation error. The function smb_freemsgmem()
-must be called to free the memory allocated by this function.
-
-int smb_dfield(smbmsg_t *msg, ushort type, ulong length)
---------------------------------------------------------
-The smb_dfield() function is used to add a data field to the structure msg.
-The parameters type and length must be specified according to the data field
-values listed in this specification. This function returns 0 on success,
-non-zero on memory allocation error. The function smb_freemsgmem() must be
-called to free the memory allocated by this function.
-
-_______________________________________________________________________________
-Synchronet 80 SMBLIB.C
-
-
-int smb_addmsghdr(smbmsg_t *msg,smbstatus_t *status,int storage,int retry_time)
--------------------------------------------------------------------------------
-The smb_addmsghdr() function is used to add a new message header to the message
-header file and update the index file. The msg and status structures are
-updated to reflect the new total messages, last message number, etc. The
-storage parameter is used to indicate the storage method to use (either
-SMB_SELFPACK, SMB_FASTALLOC, or SMB_HYPERALLOC). If the storage type is
-SMB_SELFPACK, the header block allocation file will be searched for unused
-block(s) to store this header. If the storage type is SMB_FASTALLOC or
-SMB_HYPERALLOC, the header is stored at the end of the header file. Returns 0
-on success, non-zero on failure. The parameter retry_time is the maximum number
-of seconds to wait while retrying to lock and open files.
-
-int smb_putmsg(smbmsg_t msg)
-----------------------------
-The smb_putmsg() function calls both the smb_putmsghdr() and smb_putmsgidx()
-functions to write the header and index elements of a message to the
-appropriate files. Returns 0 on success, non-zero on failure.
-
-int smb_putmsgidx(smbmsg_t msg)
--------------------------------
-The smb_putmsgidx() function is used to store a message index in the message
-index file. The message index can be for a new message or an existing
-message. Returns 0 on success, non-zero on failure.
-
-int smb_putmsghdr(smbmsg_t msg)
--------------------------------
-The smb_putmsghdr() function is used to store a message header in the message
-header file. The message header can be for a new message or an existing
-message. Returns 0 on success, non-zero on failure.
-
-void smb_freemsgmem(smbmsg_t msg)
----------------------------------
-Frees allocated memory for the header and data fields in the msg structure.
-This function must be called to free the memory allocated by the functions
-smb_hfield(), smb_dfield(), and smb_getmsghdr().
-
-long smb_hdrblocks(ulong length)
---------------------------------
-The smb_hdrblocks() function is used to calculate the number of blocks
-required to store a message header of length size (in bytes). This function
-returns the number of blocks required.
-
-long smb_datblocks(ulong length)
---------------------------------
-The smb_datblocks() function is used to calculate the number of blocks
-required to store message data of length size (in byte). This function returns
-the number of blocks required.
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 81 SMBLIB.C
-
-
-long smb_allochdr(ulong length)
--------------------------------
-The smb_allochdr() function is used to search for free blocks to store a
-message header of length bytes and mark the free blocks as allocated in the
-header allocation file. This function returns the byte offset to the header
-record or a negative number on error. The function smb_open_ha() should be
-called prior to calling this function and fclose(sha_fp) should be called
-after. The function is called from smb_addmsghdr(), so you probably have no
-need to call this function directly.
-
-long smb_fallochdr(ulong length)
---------------------------------
-The smb_fallochdr() function works exactly the same as the smb_allochdr()
-function except it is much faster because the header allocation file is not
-searched for free blocks. The function is called from smb_addmsghdr(), so you
-probably have no need to call this function directly.
-
-long smb_hallochdr(ulong header_offset)
----------------------------------------
-This smb_hallochdr() functions works exactly the same as the smb_fallochdr()
-function except the status.header_offset is passed as the argument and the
-header allocation (.SHA) file is not updated so smb_open_ha() need not be
-called. The function is called from smb_addmsghdr(), so you probably have no
-need to call this function directly.
-
-long smb_allocdat(ulong length, ushort headers)
------------------------------------------------
-The smb_allocdat() function is used to search for free blocks to store length
-amount of data for a message. The parameter headers, indicates the number of
-message headers that are associated with this data. Normally, the headers
-parameter will be 1, unless this message is part of a mass mailing. The offset
-to the allocated data blocks is returned, or a negative value on error. The
-function smb_open_da() should be called prior to calling this function and
-fclose(sda_fp) should be called after.
-
-long smb_fallocdat(ulong length, ushort headers)
-------------------------------------------------
-The smb_fallocdat() function works exactly the same as the smb_allocdat()
-function except it is much faster because the data allocation file is not
-searched for free blocks.
-
-long smb_hallocdat()
---------------------
-The smb_hallocdat() function works exactly the same as the smb_hallocdat()
-function except no argument is passed and the data allocation file (.SDA) is
-not updated so smb_open_da() need not be called.
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 82 SMBLIB.C
-
-
-int smb_incdat(ulong offset, ulong length, ushort headers)
-----------------------------------------------------------
-The smb_incdat() function is used to increment the header counter in the data
-allocation file for the data starting at the byte offset and length size in
-bytes. The parameter headers, indicates the number of headers to add to the
-current allocation value in the data allocation file. Returns 0 on success,
-non-zero on failure.
-
-int smb_freemsg(smbmsg_t msg, smbstatus_t status)
--------------------------------------------------
-The smb_freemsg() function is used to free the disk space allocated for the
-header and data fields of the message msg. Returns 0 on success, non-zero on
-failure. The parameter, status, must be the current status from the message
-base header for this message base.
-
-int smb_freemsgdat(ulong offset, ulong length, ushort headers)
---------------------------------------------------------------
-The smb_freemsgdat() function is used to decrement the data block allocation
-records in the data allocation file associated with the data in the data file
-by the value of the headers parameter (normally 1). The parameter offset
-indicates the byte offset to the beginning of the message data in the data
-file and the parameter length is the total length of the message data.
-Returns 0 on success, non-zero on failure.
-
-int smb_freemsghdr(ulong offset, ulong length)
-----------------------------------------------
-The smb_freemsghdr() function is used to set the header block allocation
-records in the header allocation file to 0 (indicated non-allocated block).
-The parameter offset indicates the byte offset to the beginning of the header
-record being freed and the parameter length indicates the total length of the
-header record. Returns 0 on success, non-zero on failure.
-
-int smb_stack(int op)
----------------------
-The smb_stack() function is used to save and restore message base information
-so that multiple message bases can be open simultaneously. The stack can
-save up to 4 message bases (allowing 5 simultaneously open message bases).
-The stack is a "last in, first out" storage area for open message bases.
-If the op parameter is SMB_STACK_PUSH, smb_stack() will save (push) the current
-message base onto the stack. Calling smb_stack(SMB_STACK_POP) will restore
-(pop) the most recently pushed message base off the stack. Calling
-smb_stack(SMB_STACK_XCHNG) will exchange the most recently pushed message base
-and the current message base (replacing the top of the stack with the current
-message base).
-
-void smb_close()
-----------------
-Closes the header, data, and index files for the currently open message base.
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 83 SMBLIB.C
-
-
-Miscellaneous SMBLIB Files
-==========================
-
-CRC32.H C header file for CRC-32 calculations
------------------------------------------------------
-This file contains a static 32-bit CRC table (crc32tbl[]) and a macro (ucrc32)
-that uses this table to calculate 32-bit CRCs one byte at a time.
-
-Example:
-
- ulong crc=0xffffffff;
-
-for(i=0;i<length;i++)
- crc=ucrc32(buf[i],crc);
-crc=~crc;
-
-
-CRC16.C C functions for 16-bit CRC calculations
--------------------------------------------------------
-This file contains a function (ucrc16), to calculate 16-bit CRCs one byte at a
-time and a function (crc16) that uses the ucrc16() function to calculate the
-16-bit CRC of an ASCIIZ character string.
-
-Example:
-
- ushort crc;
-
-crc=crc16("Text");
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 84 Miscellaneous SMBLIB Files
-
-
-LZH.H Function prototypes for LZH.C
----------------------------------------------
-This file contains function prototypes for the two most important functions
-in LZH.C, lzh_encode() and lzh_decode().
-
-Example:
-
- uchar str[256],lzh[512];
- long length;
-
-strcpy(str,"This is a string of text");
-length=lzh_encode(str,strlen(str),lzh);
-lzh_decode(lzh,length,str);
-
-
-LZH.C C functions for LZH encoding (compression/decompression)
-------------------------------------------------------------------------
-This file contains the functions for encoding and decoding LZH compressed
-data. If the macro LZH_DYNAMIC_BUF is defined when this file is compiled,
-temporary buffers will be dynamically allocated as opposed to static. This
-may be slower than the static buffer method, but frees the allocated memory
-after encoding or decoding. If free memory for your application is an issue,
-then define this macro when compiling this file.
-
-Example (Borland C):
-
-bcc -c -DLZH_DYNAMIC_BUF lzh
-
-Example (Watcom C):
-
-wcc -dLZH_DYNAMIC_BUF lzh
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 85 Miscellaneous SMBLIB Files
-
-
-SMBLIB Storage Example
-======================
-
-#include "smblib.h"
-#include "crc16.c"
-
-int main(void)
-{
- char str[256] // General purpose string
- ,*msg_text="Hello, world!" // Message text
- ,nul_buf[SDT_BLOCK_LEN]={0} // NULL initialized buffer
- ;
- int i // General purpose integer
- ,storage=SMB_SELFPACK // Default storage method
- ,retry=10 // Retry for opening/locking files
- ;
- ushort max_age=0 // Default maximum age of messages
- ,xlat=XLAT_NONE // Translation string
- ,tzone=PST // Time zone
- ,copies=1 // Number of copies of this msg
- ;
- ulong max_msgs=500 // Default max number of msgs
- ,max_crcs=0 // Default max crcs
- ,length // Length of msg text
- ,offset // Offset to msg text in data file
- ;
- smbmsg_t msg; // Message structure
- smbstatus_t status; // Message base status record
-
-strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
-if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }
-
-if(!filelength(fileno(shd_fp))) // Message base not created yet
- smb_create(max_crcs // Create with default settings
- ,max_msgs
- ,max_age
- ,storage==SMB_HYPERALLOC
- ? SMB_HYPERALLOC : 0 // SMB_EMAIL if this was e-mail
- ,retry
- );
-
-if((i=smb_locksmbhdr(retry))!=0) { // Can't lock status base header
- printf("smb_locksmbhdr returned %d\n",i);
- smb_close();
- return(1); }
-
-if((i=smb_getstatus(&status))!=0) { // Can't read status base header
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_getstatus returned %d\n",i);
- return(1); }
-
-
-_______________________________________________________________________________
-Synchronet 86 SMBLIB Storage Example
-
-
-if(status.attr&SMB_HYPERALLOC)
- storage=SMB_HYPERALLOC;
-else
- storage=SMB_SELFPACK;
-
-length=strlen(msg_text); // Get length of message
-length+=sizeof(xlat); // Add length of xlat string
-
-if(storage==SMB_HYPERALLOC) // Allocate space for message text
- offset=smb_hallocdat();
-else {
- if((i=smb_open_da(retry))!=0) {
- smb_unlocksmbhdr();
- printf("smb_open_da returned %d\n",i);
- smb_close();
- return(1); }
- if(storage==SMB_FASTALLOC)
- offset=smb_fallocdat(length,copies);
- else
- offset=smb_allocdat(length,copies);
- fclose(sda_fp); }
-
-fseek(sdt_fp,offset,SEEK_SET); // Seek to beginning of data block
-fwrite(&xlat,sizeof(xlat),1,sdt_fp); // Write xlat string
-fwrite(msg_text,strlen(msg_text),1,sdt_fp); // Write message text
-fwrite(nul_buf,SDT_BLOCK_LEN-length // Write NULLs out to end of block
- ,1,sdt_fp);
-fflush(sdt_fp); // Flush output buffer
-smb_unlocksmbhdr(); // Unlock status base header
-
-memset(&msg,0,sizeof(smbmsg_t)); // Initialize header to NULL
-memcpy(msg.hdr.id,"SHD\x1a",4); // Always set to SHD^Z
-msg.hdr.version=SMB_VERSION;
-msg.hdr.when_written.time=time(NULL);
-msg.hdr.when_written.zone=tzone;
-msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_imported.zone=tzone;
-msg.hdr.offset=offset;
-
-strcpy(str,"All"); // Send message to "All"
-if((i=smb_hfield(&msg,RECIPIENT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_close();
- return(1); }
-strlwr(str); // If this were e-mail, idx.to
-msg.idx.to=crc16(str); // would be the "to" user number
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 87 SMBLIB Storage Example
-
-
-strcpy(str,"Sysop"); // Send message from "Sysop"
-if((i=smb_hfield(&msg,SENDER,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-strlwr(str); // If this were e-mail, idx.from
-msg.idx.from=crc16(str); // would be the "from" user number
-
-strcpy(str,"This is a test"); // Set the message subject/title
-if((i=smb_hfield(&msg,SUBJECT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-if((i=smb_dfield(&msg,TEXT_BODY,length))!=0) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-
-if((i=smb_addmsghdr(&msg,&status,storage,retry))!=0) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-
-smb_freemsgmem(msg); // Unnecessary if exiting main()
-smb_close(); // Unnecessary if exiting main()
-return(0);
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 88 SMBLIB Storage Example
-
-
-SMBLIB Retrieval Example
-========================
-
-#include "smblib.h"
-
-int main(void)
-{
- char ch; // General purpose character
- int i, // General purpose integer
- retry=10; // Retry for opening/locking files
- ushort xlat; // Translation string
- ulong l; // General purpose long integer
- smbmsg_t msg; // Message structure
-
-strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
-if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }
-
-if(!filelength(fileno(shd_fp))) { // Message base not created yet
- printf("Empty\n");
- smb_close();
- return(0); }
-
-for(msg.offset=0;!ferror(sid_fp);msg.offset++) {
-
- fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
-
- if((i=smb_lockmsghdr(msg,retry))!=0) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("smb_getmsghdr returned %d\n",i);
- break; }
- if((i=smb_unlockmsghdr(msg))!=0) {
- smb_freemsgmem(msg);
- printf("smb_unlockmsghdr returned %d\n",i);
- break; }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 89 SMBLIB Retrieval Example
-
-
- printf("Subj : %s\n",msg.subj);
- printf("To : %s\n",msg.to);
- printf("From : %s\n",msg.from);
- printf("Date : %s\n",ctime((time_t *)&msg.hdr.when_written.time));
-
- for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY: // Only show BODY and TAIL data fields
- case TEXT_TAIL:
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,sizeof(xlat),1,sdt_fp);
- if(xlat!=XLAT_NONE) // No translations supported
- continue;
- for(l=sizeof(xlat);l<msg.dfield[i].length;l++) {
- ch=fgetc(sdt_fp);
- if(ch)
- putchar(ch); }
- printf("\n");
- break; }
- printf("\n");
-
- smb_freemsgmem(msg); } // Free memory allocated by smb_getmsghdr()
-
-smb_close();
-return(0);
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 90 SMBLIB Retrieval Example
-
-
-SMBLIB Performance Issues
-=========================
-
-Since importing messages is the usually the most time consuming task likely
-undertaken by an SMB application, it is also the most susceptable to design
-issues that effect performance.
-
-Opening and Closing
--------------------
-When importing multiple messages for a single message base, it appears logical
-to open the message base, import all the messages, then close it. This indeed
-is preferred over opening and closing the message base for each message.
-
-When importing multiple messages for possibly non-consecutive message bases,
-developers may eaily make the mistake of opening and closing the message base
-for each message. This is not necessary and can considerably hinder the
-import performance. The easiest solution is to only close the message base and
-open a new one if the next message to be imported is not for the same message
-base as the previously imported message. Example:
-
-smb_file[0]=0;
-for(i=0;i<total_messages_to_be_imported;i++) {
- if(stricmp(get_messagebase_for_this_message(i),smb_file)) {
- if(smb_file[0]) /* We've already opened one */
- smb_close();
- strcpy(smb_file,get_messagebase_for_this_message(i));
- smb_open(10); }
- /* Import this message */
- }
-if(smb_file[0])
- smb_close();
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 91 SMBLIB Performance Issues
-
-
-A more advanced method is to keep multiple message bases open at the same time.
-Due to the likely limitation of total file handles on the system, it is
-suggested to keep the number of simultaneously open message bases at or below
-3. SMBLIB includes the function smb_stack() to easily "push" and "pop" message
-bases without closing them (push is the equivalent to "save" and pop is the
-equivalent to "restore"). The downside of this function is that you cannot
-access message bases on the stack without actually popping them off (in reverse
-of the order they were pushed). You can however "exchange" the current message
-base with the message base on the top of the stack (most recently pushed).
-To intelligently juggle more than two open message bases, the developer should
-create their own equivalent of the smb_stack() function so they can access the
-message bases on the stack without popping them off. An example of keeping a
-maximum of two message bases open using smb_stack():
-
- char last_messagebase[128],new_messagebase[128];
-
-smb_file[0]=0;
-last_messagebase[0]=0;
-for(i=0;i<total_messages_to_be_imported;i++) {
- strcpy(new_messagebase,get_messagebase_for_this_message(i));
- if(stricmp(new_messagebase,smb_file)) { /* Not current message base */
- if(smb_file[0]) { /* We've already opened one */
- if(!stricmp(new_messagebase,last_messagebase)) { /* Same as last */
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_XCHNG); } /* Retore previous base */
- else {
- if(last_messagebase[0]) {
- smb_stack(SMB_STACK_XCHNG);
- smb_close();
- strcpy(last_messagebase,new_messagebase); }
- else {
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_PUSH); } /* Save current base */
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- else {
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- /* Import this message */
- }
-if(smb_file[0])
- smb_close();
-if(last_messagebase[0]) {
- smb_stack(SMB_STACK_POP);
- smb_close(); }
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 92 SMBLIB Performance Issues
-
-
-The second example would be of negligible performance gain over the first
-example (6 open operations versus 7) if the messages to import were in the
-following order:
-
-msg[0] --> msgbase[0] // 0 opened
-msg[1] --> msgbase[1] // 0 pushed 1 opened
-msg[2] --> msgbase[1]
-msg[3] --> msgbase[2] // 1 closed 0 popped 0 closed 2 opened
-msg[4] --> msgbase[0] // 2 pushed 0 opened
-msg[5] --> msgbase[2] // 0 pushed 2 popped (exchanged)
-msg[6] --> msgbase[3] // 2 closed 0 popped 0 closed 3 opened
-msg[7] --> msgbase[0] // 3 pushed 0 opened
-
-The second example would be of significant performance gain over the first
-example (4 open operations versus 8) if the messages to import were in the
-following order:
-
-msg[0] --> msgbase[0] // 0 opened
-msg[1] --> msgbase[1] // 0 pushed 1 opened
-msg[2] --> msgbase[0] // 1 pushed 0 popped (exchanged)
-msg[3] --> msgbase[1] // 0 pushed 1 popped (exchanged)
-msg[4] --> msgbase[0] // 1 pushed 0 popped (exchanged)
-msg[5] --> msgbase[2] // 0 pushed 1 popped (exchanged) 1 closed 2 opened
-msg[6] --> msgbase[3] // 2 pushed 0 popped (exchanged) 0 closed 3 opened
-msg[7] --> msgbase[2] // 3 pushed 2 popped (exchanged)
-
-More advanced use of "stack-like" message base file handle storage can easily
-reduce the number of open operations, therefore increasing import performance
-under more adverse message base ordering conditions.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 93 SMBLIB Performance Issues
-
-
-Compression
------------
-If any message data compression features are offered by the application, it
-is important the the application not unnecessarily compress data that will
-not save any storage space. While this may seem an obvious statement, please
-review the following pseudo-code example:
-
-if ( message_data_length < SDT_BLOCK_LEN )
- // Store uncompressed data
-else {
- // Compress data
- if ( ( compressed_data_length / SDT_BLOCK_LEN )
- < ( message_data_length / SDT_BLOCK_LEN ) ) // Saves a block or more
- // Store compressed data
- else
- // Store uncompressed data
- }
-
-Since the SMB format stores message data in fixed length blocks, there is no
-point in storing a message in compressed format if it requires the same number
-of blocks as the uncompressed format (i.e. a message that is two blocks in
-length in uncompressed format and only a block and a half in length when
-compressed should not be stored in compressed format since it still requires
-two full blocks of storage). It is important to note that in the above example,
-the length of the data translation string was not taken into account in
-determining the number of required blocks. Also, the smb_datblocks() function
-is normally used in determing the number of required blocks to store a given
-data length and it is a little more involved than simply dividing the length of
-the data by SDT_BLOCK_LEN.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 94 SMBLIB Performance Issues
-
-
-Bibliography
-============
-
-Title : The C Programming Language
-Publisher : Prentice Hall
-Author : Brian W. Kernighan and Dennis M. Ritchie
-
-Document : ARPANET Request for Comments (RFC) #822
-Title : Standard for the Format of ARPA Internet text messages
-Publisher : SRI International
-Author : David H. Crocker, University of Delaware
-
-Document : FTS-0001
-Publisher : FSC
-Author : Randy Bush, Pacific Systems Group
-
-Document : FTS-0004
-Title : EchoMail Specification
-Publisher : FSC
-Author : Bob Hartman
-
-Document : FTS-0009
-Title : A standard for unique message identifiers and reply chain linkage
-Publisher : FSC
-Author : Jim Nutt
-
-Document : FSC-00046
-Title : A Product Idenfifier for FidoNet Message Handlers
-Publisher : FSC
-Author : Joaquim H. Homrighausen
-
-Document : FSC-00053
-Title : Specifications for the ^aFLAGS field
-Publisher : FSC
-Author : Joaquim H. Homrighausen
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 95 Bibliography
-
-
-Implementations
-===============
-
-Product : Synchronet Multinode BBS Software
-Developer : Digital Dynamics
-Level : III
-Version : 2.20
-
-Product : Synchronet/FidoNet Import/Export Utility (SBBSFIDO)
-Developer : Digital Dynamics
-Level : III
-Version : 2.23
-
-Product : Synchronet UTI (Universal Text Interface) Driver
-Developer : Digital Dynamics
-Level : III
-Version : 2.23
-
-Product : SBBSecho FidoNet Packet Tosser for Synchronet
-Developer : Digital Dynamics
-Level : III
-Version : 1.11
-
-Product : NetXpress Internet UUCP for Synchronet
-Developer : Merlin Systems
-Level : II
-Version : 1.50
-
-Product : InterEcho FidoNet Packet Tosser
-Developer : InterMail Sales Inc
-Level : II
-Version : 1.11
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_______________________________________________________________________________
-Synchronet 96 Index
-
-
diff --git a/src/sbbs2/smb/121a/smb_read.me b/src/sbbs2/smb/121a/smb_read.me
deleted file mode 100644
index b1c1ec64d76330dbfb0c1d6a9486dd86b016d0c9..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smb_read.me
+++ /dev/null
@@ -1,65 +0,0 @@
-Synchronet Message Base (SMB) Specification v1.21 - READ.ME -
-=============================================================
-
-Files:
-
- Miscellaneous
- -------------
- SMB_READ.ME This file
- FILE_ID.DIZ Description of archive
- SMB.HST History of changes made since v1.00
-
- Technical Specification
- -----------------------
- SMB.PRN Paginated, to be printed at 12cpi (!)
- SMB.TXT Not paginated, for online viewing
-
- Message Base C Library
- ----------------------
- SMBDEFS.H C data types and constants
- SMBVARS.C C global variables
- SMBLIB.H C function prototypes
- SMBLIB.C C library functions
- CRC32.H C header file for 32-bit CRC calculations
- CRC16.C C source file for 16-bit CRC calculations
- LZH.H C header file for LZH compression functions
- LZH.C C source file for LZH compression functions
-
- Message Base Utility
- --------------------
- SMBUTIL.H C header file
- SMBUTIL.C C source file
- SMBUTIL.BOR C makefile (for Borland C: make -f smbutil.bor)
- SMBUTIL.WAT C makefile (for Watcom C: wmake -f smbutil.wat
- 32-bit OS2: wmake -f smbutil.wat OS=OS2
- 32-bit DOS: wmake -f smbutil.wat OS=DOSX)
- SMBUTIL.EXE Compiled and linked for 16-bit DOS
-
- Check Message Base for Corruption
- ---------------------------------
- CHKSMB.C C source file
- CHKSMB.MAK C makefile (for Borland C: make -f chksmb)
- CHKSMB.EXE Compiled and linked for 16-bit DOS
-
- Rebuild Message Base Index and Allocation Files
- -----------------------------------------------
- FIXSMB.C C source file
- FIXSMB.MAK C makefile (for Borland C: make -f fixsmb)
- FIXSMB.EXE Compiled and linked for 16-bit DOS
-
- Convert from FidoNet (FTSC-1) to SMB
- ------------------------------------
- FIDO2SMB.C C source file
- FIDO2SMB.MAK C makefile (for Borland C: make -f fido2smb)
-
- Convert from Internet (RFC-822) to SMB
- --------------------------------------
- INET2SMB.C C source file
- INET2SMB.MAK C makefile (for Borland C: make -f inet2smb)
-
- Convert from QWK to SMB
- -----------------------
- QWK2SMB.C C source file
- QWK2SMB.MAK C makefile (for Borland C: make -f qwk2smb)
-
-/* END of SMB_READ.ME */
diff --git a/src/sbbs2/smb/121a/smbdefs.h b/src/sbbs2/smb/121a/smbdefs.h
deleted file mode 100644
index 71791e69524fa58b43bf4ecbe9f495c6d237407e..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smbdefs.h
+++ /dev/null
@@ -1,449 +0,0 @@
-/* SMBDEFS.H */
-
-#ifndef _SMBDEFS_H
-#define _SMBDEFS_H
-
-/**********/
-/* Macros */
-/**********/
-
-#define SMB_VERSION 0x0121 /* SMB format version */
- /* High byte major, low byte minor */
-#define SMBLIB_VERSION "1.21a" /* SMB library version */
-
- /* Control characters */
-#define TAB 0x09 /* Horizontal tabulation ^I */
-#define LF 0x0a /* Line feed ^J */
-#define FF 0x0c /* Form feed ^L */
-#define CR 0x0d /* Carriage return ^M */
-#define ESC 0x1b /* Escape ^[ */
-#define SP 0x20 /* Space */
-
-#define ulong unsigned long
-#define ushort unsigned short
-#define uchar unsigned char
-#define uint unsigned int
-
-/****************************************************************************/
-/* Memory allocation macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
-# define HUGE16 huge
-# define FAR16 far
-# if defined(__TURBOC__)
-# define REALLOC(x,y) farrealloc(x,y)
-# define LMALLOC(x) farmalloc(x)
-# define MALLOC(x) farmalloc(x)
-# define LFREE(x) farfree(x)
-# define FREE(x) farfree(x)
-# elif defined(__WATCOMC__)
-# define REALLOC realloc
-# define LMALLOC(x) halloc(x,1) /* far heap, but slow */
-# define MALLOC malloc /* far heap, but 64k max */
-# define LFREE hfree
-# define FREE free
-# else /* Other 16-bit Compiler */
-# define REALLOC realloc
-# define LMALLOC malloc
-# define MALLOC malloc
-# define LFREE free
-# define FREE free
-# endif
-#else /* 32-bit Compiler or Small Memory Model */
-# define HUGE16
-# define FAR16
-# define REALLOC realloc
-# define LMALLOC malloc
-# define MALLOC malloc
-# define LFREE free
-# define FREE free
-#endif
-
-
-#define SDT_BLOCK_LEN 256 /* Size of data blocks */
-#define SHD_BLOCK_LEN 256 /* Size of header blocks */
-
-#define SMB_SELFPACK 0 /* Self-packing storage allocation */
-#define SMB_FASTALLOC 1 /* Fast allocation */
-#define SMB_HYPERALLOC 2 /* No allocation */
-
-#define SMB_EMAIL 1 /* User numbers stored in Indexes */
-
- /* Time zone macros for when_t.zone */
-#define DAYLIGHT 0x8000 /* Daylight savings is active */
-#define US_ZONE 0x4000 /* U.S. time zone */
-#define WESTERN_ZONE 0x2000 /* Non-standard zone west of UT */
-#define EASTERN_ZONE 0x1000 /* Non-standard zone east of UT */
-
- /* US Time Zones (standard) */
-#define AST 0x40F0 // Atlantic (-04:00)
-#define EST 0x412C // Eastern (-05:00)
-#define CST 0x4168 // Central (-06:00)
-#define MST 0x41A4 // Mountain (-07:00)
-#define PST 0x41E0 // Pacific (-08:00)
-#define YST 0x421C // Yukon (-09:00)
-#define HST 0x4258 // Hawaii/Alaska (-10:00)
-#define BST 0x4294 // Bering (-11:00)
-
- /* US Time Zones (daylight) */
-#define ADT 0xC0F0 // Atlantic (-03:00)
-#define EDT 0xC12C // Eastern (-04:00)
-#define CDT 0xC168 // Central (-05:00)
-#define MDT 0xC1A4 // Mountain (-06:00)
-#define PDT 0xC1E0 // Pacific (-07:00)
-#define YDT 0xC21C // Yukon (-08:00)
-#define HDT 0xC258 // Hawaii/Alaska (-09:00)
-#define BDT 0xC294 // Bering (-10:00)
-
- /* Non-standard Time Zones */
-#define MID 0x2294 // Midway (-11:00)
-#define VAN 0x21E0 // Vancouver (-08:00)
-#define EDM 0x21A4 // Edmonton (-07:00)
-#define WIN 0x2168 // Winnipeg (-06:00)
-#define BOG 0x212C // Bogota (-05:00)
-#define CAR 0x20F0 // Caracas (-04:00)
-#define RIO 0x20B4 // Rio de Janeiro (-03:00)
-#define FER 0x2078 // Fernando de Noronha (-02:00)
-#define AZO 0x203C // Azores (-01:00)
-#define LON 0x1000 // London (+00:00)
-#define BER 0x103C // Berlin (+01:00)
-#define ATH 0x1078 // Athens (+02:00)
-#define MOS 0x10B4 // Moscow (+03:00)
-#define DUB 0x10F0 // Dubai (+04:00)
-#define KAB 0x110E // Kabul (+04:30)
-#define KAR 0x112C // Karachi (+05:00)
-#define BOM 0x114A // Bombay (+05:30)
-#define KAT 0x1159 // Kathmandu (+05:45)
-#define DHA 0x1168 // Dhaka (+06:00)
-#define BAN 0x11A4 // Bangkok (+07:00)
-#define HON 0x11E0 // Hong Kong (+08:00)
-#define TOK 0x121C // Tokyo (+09:00)
-#define SYD 0x1258 // Sydney (+10:00)
-#define NOU 0x1294 // Noumea (+11:00)
-#define WEL 0x12D0 // Wellington (+12:00)
-
- /* Valid hfield_t.types */
-#define SENDER 0x00
-#define SENDERAGENT 0x01
-#define SENDERNETTYPE 0x02
-#define SENDERNETADDR 0x03
-#define SENDEREXT 0x04
-#define SENDERPOS 0x05
-#define SENDERORG 0x06
-
-#define AUTHOR 0x10
-#define AUTHORAGENT 0x11
-#define AUTHORNETTYPE 0x12
-#define AUTHORNETADDR 0x13
-#define AUTHOREXT 0x14
-#define AUTHORPOS 0x15
-#define AUTHORORG 0x16
-
-#define REPLYTO 0x20
-#define REPLYTOAGENT 0x21
-#define REPLYTONETTYPE 0x22
-#define REPLYTONETADDR 0x23
-#define REPLYTOEXT 0x24
-#define REPLYTOPOS 0x25
-#define REPLYTOORG 0x26
-
-#define RECIPIENT 0x30
-#define RECIPIENTAGENT 0x31
-#define RECIPIENTNETTYPE 0x32
-#define RECIPIENTNETADDR 0x33
-#define RECIPIENTEXT 0x34
-#define RECIPIENTPOS 0x35
-#define RECIPIENTORG 0x36
-
-#define FORWARDTO 0x40
-#define FORWARDTOAGENT 0x41
-#define FORWARDTONETTYPE 0x42
-#define FORWARDTONETADDR 0x43
-#define FORWARDTOEXT 0x44
-#define FORWARDTOPOS 0x45
-#define FORWARDTOORG 0x46
-
-#define FORWARDED 0x48
-
-#define RECEIVEDBY 0x50
-#define RECEIVEDBYAGENT 0x51
-#define RECEIVEDBYNETTYPE 0x52
-#define RECEIVEDBYNETADDR 0x53
-#define RECEIVEDBYEXT 0x54
-#define RECEIVEDBYPOS 0x55
-#define RECEIVEDBYORG 0x56
-
-#define RECEIVED 0x58
-
-#define SUBJECT 0x60
-#define SUMMARY 0x61
-#define COMMENT 0x62
-#define CARBONCOPY 0x63
-#define GROUP 0x64
-#define EXPIRATION 0x65
-#define PRIORITY 0x66
-
-#define FILEATTACH 0x70
-#define DESTFILE 0x71
-#define FILEATTACHLIST 0x72
-#define DESTFILELIST 0x73
-#define FILEREQUEST 0x74
-#define FILEPASSWORD 0x75
-#define FILEREQUESTLIST 0x76
-#define FILEPASSWORDLIST 0x77
-
-#define IMAGEATTACH 0x80
-#define ANIMATTACH 0x81
-#define FONTATTACH 0x82
-#define SOUNDATTACH 0x83
-#define PRESENTATTACH 0x84
-#define VIDEOATTACH 0x85
-#define APPDATAATTACH 0x86
-
-#define IMAGETRIGGER 0x90
-#define ANIMTRIGGER 0x91
-#define FONTTRIGGER 0x92
-#define SOUNDTRIGGER 0x93
-#define PRESENTTRIGGER 0x94
-#define VIDEOTRIGGER 0x95
-#define APPDATATRIGGER 0x96
-
-#define FIDOCTRL 0xa0
-#define FIDOAREA 0xa1
-#define FIDOSEENBY 0xa2
-#define FIDOPATH 0xa3
-#define FIDOMSGID 0xa4
-#define FIDOREPLYID 0xa5
-#define FIDOPID 0xa6
-#define FIDOFLAGS 0xa7
-
-#define RFC822HEADER 0xb0
-#define RFC822MSGID 0xb1
-#define RFC822REPLYID 0xb2
-
-#define UNKNOWN 0xf1
-#define UNKNOWNASCII 0xf2
-#define UNUSED 0xff
-
- /* Valid dfield_t.types */
-#define TEXT_BODY 0x00
-#define TEXT_SOUL 0x01
-#define TEXT_TAIL 0x02
-#define TEXT_WING 0x03
-#define IMAGEEMBED 0x20
-#define ANIMEMBED 0x21
-#define FONTEMBED 0x22
-#define SOUNDEMBED 0x23
-#define PRESENTEMBED 0x24
-#define VIDEOEMBED 0x25
-#define APPDATAEMBED 0x26
-#define UNUSED 0xff
-
-
- /* Message attributes */
-#define MSG_PRIVATE (1<<0)
-#define MSG_READ (1<<1)
-#define MSG_PERMANENT (1<<2)
-#define MSG_LOCKED (1<<3)
-#define MSG_DELETE (1<<4)
-#define MSG_ANONYMOUS (1<<5)
-#define MSG_KILLREAD (1<<6)
-#define MSG_MODERATED (1<<7)
-#define MSG_VALIDATED (1<<8)
-
- /* Auxillary header attributes */
-#define MSG_FILEREQUEST (1<<0) // File request
-#define MSG_FILEATTACH (1<<1) // File(s) attached to Msg
-#define MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
-#define MSG_KILLFILE (1<<3) // Delete file(s) when sent
-#define MSG_RECEIPTREQ (1<<4) // Return receipt requested
-#define MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
-#define MSG_NODISP (1<<6) // Msg may not be displayed to user
-
- /* Message network attributes */
-#define MSG_LOCAL (1<<0) // Msg created locally
-#define MSG_INTRANSIT (1<<1) // Msg is in-transit
-#define MSG_SENT (1<<2) // Sent to remote
-#define MSG_KILLSENT (1<<3) // Kill when sent
-#define MSG_ARCHIVESENT (1<<4) // Archive when sent
-#define MSG_HOLD (1<<5) // Hold for pick-up
-#define MSG_CRASH (1<<6) // Crash
-#define MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
-#define MSG_DIRECT (1<<8) // Send directly to destination
-#define MSG_GATE (1<<9) // Send via gateway
-#define MSG_ORPHAN (1<<10) // Unknown destination
-#define MSG_FPU (1<<11) // Force pickup
-#define MSG_TYPELOCAL (1<<12) // Msg is for local use only
-#define MSG_TYPEECHO (1<<13) // Msg is for conference distribution
-#define MSG_TYPENET (1<<14) // Msg is direct network mail
-
-
-enum {
- NET_NONE
- ,NET_UNKNOWN
- ,NET_FIDO
- ,NET_POSTLINK
- ,NET_QWK
- ,NET_INTERNET
- ,NET_WWIV
- ,NET_MHS
-
-/* Add new ones here */
-
- ,NET_TYPES
- };
-
-enum {
- AGENT_PERSON
- ,AGENT_PROCESS
-
-/* Add new ones here */
-
- ,AGENT_TYPES
- };
-
-enum {
- XLAT_NONE // No translation/End of translation list
- ,XLAT_ENCRYPT // Encrypted data
- ,XLAT_ESCAPED // 7-bit ASCII escaping for ctrl and 8-bit data
- ,XLAT_HUFFMAN // Static and adaptive Huffman coding compression
- ,XLAT_LZW // Limpel/Ziv/Welch compression
- ,XLAT_MLZ78 // Modified LZ78 compression
- ,XLAT_RLE // Run length encoding compression
- ,XLAT_IMPLODE // Implode compression (PkZIP)
- ,XLAT_SHRINK // Shrink compression (PkZIP)
- ,XLAT_LZH // LHarc (LHA) Dynamic Huffman coding
-
-/* Add new ones here */
-
- ,XLAT_TYPES
- };
-
-
-/************/
-/* Typedefs */
-/************/
-
-typedef struct {
-
- ulong time; // Local time (unix format)
- short zone; // Time zone
-
- } when_t;
-
-typedef struct {
-
- ushort to; // 16-bit CRC of recipient name (lower case)
- ushort from; // 16-bit CRC of sender name (lower case)
- ushort subj; // 16-bit CRC of subject (lower case, w/o RE:)
- ushort attr; // attributes (read, permanent, etc.)
- ulong offset; // offset into header file
- ulong number; // number of message (1 based)
- ulong time; // time/date message was imported/posted
-
- } idxrec_t;
-
-typedef struct {
-
- uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct
-
- } smbhdr_t;
-
-typedef struct {
-
- ulong last_msg; // last message number
- ulong total_msgs; // total messages
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of message to keep in sub
- ushort max_age; // Maximum age of message to keep in sub (in days)
- ushort attr; // Attributes for this message base (SMB_HYPER,etc)
-
- } smbstatus_t;
-
-typedef struct {
-
- uchar id[4]; // SHD<^Z>
- ushort type; // Message type (normally 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed record + all fields
- ushort attr; // Attributes (bit field) (duped in SID)
- ulong auxattr; // Auxillary attributes (bit field)
- ulong netattr; // Network attributes
- when_t when_written; // Time message was written (unix format)
- when_t when_imported; // Time message was imported
- ulong number; // Message number
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // First reply to this message
- uchar reserved[16]; // Reserved for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields
-
- } msghdr_t;
-
-typedef struct {
-
- ushort type; // Type of data field
- ulong offset; // Offset into buffer
- ulong length; // Length of data field
-
- } dfield_t;
-
-typedef struct {
-
- ushort type;
- ushort length; // Length of buffer
-
- } hfield_t;
-
-typedef struct {
-
- ushort zone;
- ushort net;
- ushort node;
- ushort point;
-
- } fidoaddr_t;
-
-typedef struct {
-
- ushort type;
- void *addr;
-
- } net_t;
-
-typedef struct {
-
- idxrec_t idx; // Index
- msghdr_t hdr; // Header record (fixed portion)
- uchar *to, // To name
- *to_ext, // To extension
- *from, // From name
- *from_ext, // From extension
- *replyto, // Reply-to name
- *replyto_ext, // Reply-to extension */
- *subj; // Subject
- ushort to_agent, // Type of agent message is to
- from_agent, // Type of agent message is from
- replyto_agent; // Type of agent replies should be sent to
- net_t to_net, // Destination network type and address
- from_net, // Origin network address
- replyto_net; // Network type and address for replies
- ushort total_hfields; // Total number of header fields
- hfield_t *hfield; // Header fields (fixed length portion)
- void **hfield_dat; // Header fields (variable length portion)
- dfield_t *dfield; // Data fields (fixed length portion)
- ulong offset; // Offset (number of records) into index
- uchar forwarded; // Forwarded from agent to another
-
- } smbmsg_t;
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/smb/121a/smblib.c b/src/sbbs2/smb/121a/smblib.c
deleted file mode 100644
index e2d8a474b875feec0a6efaa1f49a01650ab396a9..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smblib.c
+++ /dev/null
@@ -1,1121 +0,0 @@
-/* SMBLIB.C */
-
-#include "smblib.h"
-
-/****************************************************************************/
-/* Open a message base of name 'smb_file' */
-/* If retry_time is 0, fast open method (no compatibility/validity check) */
-/* Opens files for READing messages or updating message indices only */
-/****************************************************************************/
-int smb_open(int retry_time)
-{
- int file;
- char str[128];
- smbhdr_t hdr;
-
-shd_fp=sdt_fp=sid_fp=NULL;
-sprintf(str,"%s.SHD",smb_file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (shd_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- return(2); }
-
-if(retry_time && filelength(file)>=sizeof(smbhdr_t)) {
- setvbuf(shd_fp,shd_buf,_IONBF,SHD_BLOCK_LEN);
- if(smb_locksmbhdr(retry_time)) {
- smb_close();
- return(-1); }
- memset(&hdr,0,sizeof(smbhdr_t));
- fread(&hdr,sizeof(smbhdr_t),1,shd_fp);
- if(memcmp(hdr.id,"SMB\x1a",4)) {
- smb_close();
- return(-2); }
- if(hdr.version<0x110) { /* Compatibility check */
- smb_close();
- return(-3); }
- smb_unlocksmbhdr();
- rewind(shd_fp); }
-
-setvbuf(shd_fp,shd_buf,_IOFBF,SHD_BLOCK_LEN);
-
-sprintf(str,"%s.SDT",smb_file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (sdt_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- smb_close();
- return(1); }
-setvbuf(sdt_fp,NULL,_IOFBF,2*1024);
-
-sprintf(str,"%s.SID",smb_file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (sid_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- smb_close();
- return(3); }
-setvbuf(sid_fp,NULL,_IOFBF,2*1024);
-
-return(0);
-}
-
-/****************************************************************************/
-/* Closes the currently open message base */
-/****************************************************************************/
-void smb_close(void)
-{
-if(shd_fp!=NULL) {
- smb_unlocksmbhdr(); /* In case it's been locked */
- fclose(shd_fp); }
-if(sid_fp!=NULL)
- fclose(sid_fp);
-if(sdt_fp!=NULL)
- fclose(sdt_fp);
-sid_fp=shd_fp=sdt_fp=NULL;
-}
-
-/****************************************************************************/
-/* Opens the data block allocation table message base 'smb_file' */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int smb_open_da(int retry_time)
-{
- int file;
- char str[128];
- long start;
-
-start=time(NULL);
-sprintf(str,"%s.SDA",smb_file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time)
- return(-2); }
-if((sda_fp=fdopen(file,"r+b"))==NULL)
- return(-3);
-setvbuf(sda_fp,NULL,_IOFBF,2*1024);
-return(0);
-}
-
-/****************************************************************************/
-/* Opens the header block allocation table for message base 'smb_file' */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int smb_open_ha(int retry_time)
-{
- int file;
- char str[128];
- long start;
-
-start=time(NULL);
-sprintf(str,"%s.SHA",smb_file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time)
- return(-2); }
-if((sha_fp=fdopen(file,"r+b"))==NULL)
- return(-3);
-setvbuf(sha_fp,NULL,_IOFBF,2*1024);
-return(0);
-}
-
-/****************************************************************************/
-/* If the parameter 'push' is non-zero, this function stores the currently */
-/* open message base to the "virtual" smb stack. Up to SMB_STACK_LEN */
-/* message bases may be stored (defined in SMBDEFS.H). */
-/* The parameter 'op' is the operation to perform on the stack. Either */
-/* SMB_STACK_PUSH, SMB_STACK_POP, or SMB_STACK_XCHNG */
-/* If the operation is SMB_STACK_POP, this function restores a message base */
-/* previously saved with a SMB_STACK_PUSH call to this same function. */
-/* If the operation is SMB_STACK_XCHNG, then the current message base is */
-/* exchanged with the message base on the top of the stack (most recently */
-/* pushed. */
-/* If the current message base is not open, the SMB_STACK_PUSH and */
-/* SMB_STACK_XCHNG operations do nothing */
-/* Returns 0 on success, non-zero if stack full. */
-/* If operation is SMB_STACK_POP or SMB_STACK_XCHNG, it always returns 0. */
-/****************************************************************************/
-int smb_stack(int op)
-{
- static char stack_file[SMB_STACK_LEN][128];
- static FILE *stack_sdt[SMB_STACK_LEN],
- *stack_shd[SMB_STACK_LEN],
- *stack_sid[SMB_STACK_LEN],
- *stack_sda[SMB_STACK_LEN],
- *stack_sha[SMB_STACK_LEN];
- static int stack_idx;
- char tmp_file[128];
- FILE *tmp_sdt,
- *tmp_shd,
- *tmp_sid,
- *tmp_sda,
- *tmp_sha;
-
-if(op==SMB_STACK_PUSH) {
- if(stack_idx>=SMB_STACK_LEN)
- return(1);
- if(shd_fp==NULL || sdt_fp==NULL || sid_fp==NULL) /* Msg base not open */
- return(0);
- memcpy(stack_file[stack_idx],smb_file,128);
- stack_sdt[stack_idx]=sdt_fp;
- stack_shd[stack_idx]=shd_fp;
- stack_sid[stack_idx]=sid_fp;
- stack_sda[stack_idx]=sda_fp;
- stack_sha[stack_idx]=sha_fp;
- stack_idx++;
- return(0); }
-/* pop or xchng */
-if(!stack_idx) /* Nothing on the stack, so do nothing */
- return(0);
-if(op==SMB_STACK_XCHNG) {
- if(!shd_fp)
- return(0);
- memcpy(tmp_file,smb_file,128);
- tmp_sdt=sdt_fp;
- tmp_shd=shd_fp;
- tmp_sid=sid_fp;
- tmp_sda=sda_fp;
- tmp_sha=sha_fp; }
-
-stack_idx--;
-memcpy(smb_file,stack_file[stack_idx],128);
-sdt_fp=stack_sdt[stack_idx];
-shd_fp=stack_shd[stack_idx];
-sid_fp=stack_sid[stack_idx];
-sda_fp=stack_sda[stack_idx];
-sha_fp=stack_sha[stack_idx];
-if(op==SMB_STACK_XCHNG) {
- stack_idx++;
- memcpy(stack_file[stack_idx-1],tmp_file,128);
- stack_sdt[stack_idx-1]=tmp_sdt;
- stack_shd[stack_idx-1]=tmp_shd;
- stack_sid[stack_idx-1]=tmp_sid;
- stack_sda[stack_idx-1]=tmp_sda;
- stack_sha[stack_idx-1]=tmp_sha; }
-return(0);
-}
-
-/****************************************************************************/
-/* Truncates header file */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int smb_trunchdr(int retry_time)
-{
- long start;
-
-start=time(NULL);
-rewind(shd_fp);
-while(1) {
- if(!chsize(fileno(shd_fp),0L))
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time) /* Time-out */
- return(-2); }
-return(0);
-}
-
-/*********************************/
-/* Message Base Header Functions */
-/*********************************/
-
-/****************************************************************************/
-/* Attempts for retry_time number of seconds to lock the message base hdr */
-/****************************************************************************/
-int smb_locksmbhdr(int retry_time)
-{
- ulong start;
-
-start=time(NULL);
-while(1) {
- if(!lock(fileno(shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)))
- return(0);
- if(time(NULL)-start>=retry_time)
- break; /* Incase we've already locked it */
- unlock(fileno(shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)); }
-return(-1);
-}
-
-/****************************************************************************/
-/* Read the SMB header from the header file and place into "status" */
-/****************************************************************************/
-int smb_getstatus(smbstatus_t *status)
-{
- char str[128];
- int i;
-
-setvbuf(shd_fp,shd_buf,_IONBF,SHD_BLOCK_LEN);
-clearerr(shd_fp);
-fseek(shd_fp,sizeof(smbhdr_t),SEEK_SET);
-i=fread(status,1,sizeof(smbstatus_t),shd_fp);
-setvbuf(shd_fp,shd_buf,_IOFBF,SHD_BLOCK_LEN);
-if(i==sizeof(smbstatus_t))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Writes message base header */
-/****************************************************************************/
-int smb_putstatus(smbstatus_t status)
-{
- int i;
-
-clearerr(shd_fp);
-fseek(shd_fp,sizeof(smbhdr_t),SEEK_SET);
-i=fwrite(&status,1,sizeof(smbstatus_t),shd_fp);
-fflush(shd_fp);
-if(i==sizeof(smbstatus_t))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Unlocks previously locks message base header */
-/****************************************************************************/
-int smb_unlocksmbhdr()
-{
-return(unlock(fileno(shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)));
-}
-
-/********************************/
-/* Individual Message Functions */
-/********************************/
-
-/****************************************************************************/
-/* Attempts for retry_time number of seconds to lock the header for 'msg' */
-/****************************************************************************/
-int smb_lockmsghdr(smbmsg_t msg, int retry_time)
-{
- ulong start;
-
-start=time(NULL);
-while(1) {
- if(!lock(fileno(shd_fp),msg.idx.offset,sizeof(msghdr_t)))
- return(0);
- if(time(NULL)-start>=retry_time)
- break;
- unlock(fileno(shd_fp),msg.idx.offset,sizeof(msghdr_t)); }
-return(-1);
-}
-
-/****************************************************************************/
-/* Fills msg->idx with message index based on msg->hdr.number */
-/* OR if msg->hdr.number is 0, based on msg->offset (record offset). */
-/* if msg.hdr.number does not equal 0, then msg->offset is filled too. */
-/* Either msg->hdr.number or msg->offset must be initialized before */
-/* calling this function */
-/* Returns 1 if message number wasn't found, 0 if it was */
-/****************************************************************************/
-int smb_getmsgidx(smbmsg_t *msg)
-{
- idxrec_t idx;
- ulong l,length,total,bot,top;
-
-clearerr(sid_fp);
-if(!msg->hdr.number) {
- fseek(sid_fp,msg->offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg->idx,sizeof(idxrec_t),1,sid_fp))
- return(1);
- return(0); }
-
-length=filelength(fileno(sid_fp));
-if(!length)
- return(1);
-total=length/sizeof(idxrec_t);
-if(!total)
- return(1);
-
-bot=0;
-top=total;
-l=total/2; /* Start at middle index */
-while(1) {
- fseek(sid_fp,l*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&idx,sizeof(idxrec_t),1,sid_fp))
- return(1);
- if(bot==top-1 && idx.number!=msg->hdr.number)
- return(1);
- if(idx.number>msg->hdr.number) {
- top=l;
- l=bot+((top-bot)/2);
- continue; }
- if(idx.number<msg->hdr.number) {
- bot=l;
- l=top-((top-bot)/2);
- continue; }
- break; }
-msg->idx=idx;
-msg->offset=l;
-return(0);
-}
-
-/****************************************************************************/
-/* Reads the last index record in the open message base */
-/****************************************************************************/
-int smb_getlastidx(idxrec_t *idx)
-{
- long length;
-
-clearerr(sid_fp);
-length=filelength(fileno(sid_fp));
-if(length<sizeof(idxrec_t))
- return(-1);
-fseek(sid_fp,length-sizeof(idxrec_t),SEEK_SET);
-if(!fread(idx,sizeof(idxrec_t),1,sid_fp))
- return(-2);
-return(0);
-}
-
-/****************************************************************************/
-/* Figures out the total length of the header record for 'msg' */
-/* Returns length */
-/****************************************************************************/
-uint smb_getmsghdrlen(smbmsg_t msg)
-{
- int i;
-
-/* fixed portion */
-msg.hdr.length=sizeof(msghdr_t);
-/* data fields */
-msg.hdr.length+=msg.hdr.total_dfields*sizeof(dfield_t);
-/* header fields */
-for(i=0;i<msg.total_hfields;i++) {
- msg.hdr.length+=sizeof(hfield_t);
- msg.hdr.length+=msg.hfield[i].length; }
-return(msg.hdr.length);
-}
-
-/****************************************************************************/
-/* Figures out the total length of the data buffer for 'msg' */
-/* Returns length */
-/****************************************************************************/
-ulong smb_getmsgdatlen(smbmsg_t msg)
-{
- int i;
- ulong length=0L;
-
-for(i=0;i<msg.hdr.total_dfields;i++)
- length+=msg.dfield[i].length;
-return(length);
-}
-
-/****************************************************************************/
-/* Read header information into 'msg' structure */
-/* msg->idx.offset must be set before calling this function */
-/* Must call smb_freemsgmem() to free memory allocated for var len strs */
-/* Returns 0 on success, non-zero if error */
-/****************************************************************************/
-int smb_getmsghdr(smbmsg_t *msg)
-{
- ushort i;
- ulong l,offset;
- idxrec_t idx;
-
-rewind(shd_fp);
-fseek(shd_fp,msg->idx.offset,SEEK_SET);
-idx=msg->idx;
-offset=msg->offset;
-memset(msg,0,sizeof(smbmsg_t));
-msg->idx=idx;
-msg->offset=offset;
-if(!fread(&msg->hdr,sizeof(msghdr_t),1,shd_fp))
- return(-1);
-if(memcmp(msg->hdr.id,"SHD\x1a",4))
- return(-2);
-if(msg->hdr.version<0x110)
- return(-9);
-l=sizeof(msghdr_t);
-if(msg->hdr.total_dfields && (msg->dfield
- =(dfield_t *)MALLOC(sizeof(dfield_t)*msg->hdr.total_dfields))==NULL) {
- smb_freemsgmem(*msg);
- return(-3); }
-i=0;
-while(i<msg->hdr.total_dfields && l<msg->hdr.length) {
- if(!fread(&msg->dfield[i],sizeof(dfield_t),1,shd_fp)) {
- smb_freemsgmem(*msg);
- return(-4); }
- i++;
- l+=sizeof(dfield_t); }
-if(i<msg->hdr.total_dfields) {
- smb_freemsgmem(*msg);
- return(-8); }
-
-while(l<msg->hdr.length) {
- i=msg->total_hfields;
- if((msg->hfield_dat=(void **)REALLOC(msg->hfield_dat,sizeof(void *)*(i+1)))
- ==NULL) {
- smb_freemsgmem(*msg);
- return(-3); }
- if((msg->hfield=(hfield_t *)REALLOC(msg->hfield
- ,sizeof(hfield_t)*(i+1)))==NULL) {
- smb_freemsgmem(*msg);
- return(-3); }
- msg->total_hfields++;
- if(!fread(&msg->hfield[i],sizeof(hfield_t),1,shd_fp)) {
- smb_freemsgmem(*msg);
- return(-5); }
- l+=sizeof(hfield_t);
- if((msg->hfield_dat[i]=(char *)MALLOC(msg->hfield[i].length+1))
- ==NULL) { /* Allocate 1 extra for NULL terminator */
- smb_freemsgmem(*msg); /* or 0 length field */
- return(-3); }
- memset(msg->hfield_dat[i],0,msg->hfield[i].length+1); /* init to NULL */
- if(msg->hfield[i].length
- && !fread(msg->hfield_dat[i],msg->hfield[i].length,1,shd_fp)) {
- smb_freemsgmem(*msg);
- return(-6); }
-
- switch(msg->hfield[i].type) { /* convenience variables */
- case SENDER:
- if(!msg->from) {
- msg->from=msg->hfield_dat[i];
- break; }
- case FORWARDED: /* fall through */
- msg->forwarded=1;
- break;
- case SENDERAGENT:
- if(!msg->forwarded)
- msg->from_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case SENDEREXT:
- if(!msg->forwarded)
- msg->from_ext=msg->hfield_dat[i];
- break;
- case SENDERNETTYPE:
- if(!msg->forwarded)
- msg->from_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case SENDERNETADDR:
- if(!msg->forwarded)
- msg->from_net.addr=msg->hfield_dat[i];
- break;
- case REPLYTO:
- msg->replyto=msg->hfield_dat[i];
- break;
- case REPLYTOEXT:
- msg->replyto_ext=msg->hfield_dat[i];
- break;
- case REPLYTOAGENT:
- msg->replyto_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case REPLYTONETTYPE:
- msg->replyto_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case REPLYTONETADDR:
- msg->replyto_net.addr=msg->hfield_dat[i];
- break;
- case RECIPIENT:
- msg->to=msg->hfield_dat[i];
- break;
- case RECIPIENTEXT:
- msg->to_ext=msg->hfield_dat[i];
- break;
- case RECIPIENTAGENT:
- msg->to_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case RECIPIENTNETTYPE:
- msg->to_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case RECIPIENTNETADDR:
- msg->to_net.addr=msg->hfield_dat[i];
- break;
- case SUBJECT:
- msg->subj=msg->hfield_dat[i];
- break; }
- l+=msg->hfield[i].length; }
-
-if(!msg->from || !msg->to || !msg->subj) {
- smb_freemsgmem(*msg);
- return(-7); }
-return(0);
-}
-
-/****************************************************************************/
-/* Frees memory allocated for 'msg' */
-/****************************************************************************/
-void smb_freemsgmem(smbmsg_t msg)
-{
- ushort i;
-
-if(msg.dfield)
- FREE(msg.dfield);
-for(i=0;i<msg.total_hfields;i++)
- if(msg.hfield_dat[i])
- FREE(msg.hfield_dat[i]);
-if(msg.hfield)
- FREE(msg.hfield);
-if(msg.hfield_dat)
- FREE(msg.hfield_dat);
-}
-
-/****************************************************************************/
-/* Unlocks header for 'msg' */
-/****************************************************************************/
-int smb_unlockmsghdr(smbmsg_t msg)
-{
-return(unlock(fileno(shd_fp),msg.idx.offset,sizeof(msghdr_t)));
-}
-
-
-/****************************************************************************/
-/* Adds a header field to the 'msg' structure (in memory only) */
-/****************************************************************************/
-int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)
-{
- int i;
-
-i=msg->total_hfields;
-if((msg->hfield=(hfield_t *)REALLOC(msg->hfield,sizeof(hfield_t)*(i+1)))
- ==NULL)
- return(1);
-if((msg->hfield_dat=(void **)REALLOC(msg->hfield_dat,sizeof(void *)*(i+1)))
- ==NULL)
- return(2);
-msg->total_hfields++;
-msg->hfield[i].type=type;
-msg->hfield[i].length=length;
-if(length) {
- if((msg->hfield_dat[i]=(void *)MALLOC(length))==NULL)
- return(4);
- memcpy(msg->hfield_dat[i],data,length); }
-else
- msg->hfield_dat[i]=NULL;
-return(0);
-}
-
-/****************************************************************************/
-/* Adds a data field to the 'msg' structure (in memory only) */
-/* Automatically figures out the offset into the data buffer from existing */
-/* dfield lengths */
-/****************************************************************************/
-int smb_dfield(smbmsg_t *msg, ushort type, ulong length)
-{
- int i,j;
-
-i=msg->hdr.total_dfields;
-if((msg->dfield=(dfield_t *)REALLOC(msg->dfield,sizeof(dfield_t)*(i+1)))
- ==NULL)
- return(1);
-msg->hdr.total_dfields++;
-msg->dfield[i].type=type;
-msg->dfield[i].length=length;
-for(j=msg->dfield[i].offset=0;j<i;j++)
- msg->dfield[i].offset+=msg->dfield[j].length;
-return(0);
-}
-
-/****************************************************************************/
-/* Checks CRC history file for duplicate crc. If found, returns 1. */
-/* If no dupe, adds to CRC history and returns 0, or negative if error. */
-/****************************************************************************/
-int smb_addcrc(ulong max_crcs, ulong crc, int retry_time)
-{
- char str[128];
- int file;
- long length;
- ulong l,*buf;
- time_t start;
-
-if(!max_crcs)
- return(0);
-start=time(NULL);
-sprintf(str,"%s.SCH",smb_file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(time(NULL)-start>=retry_time)
- return(-2); }
-length=filelength(file);
-if(length<0L) {
- close(file);
- return(-4); }
-if((buf=(ulong *)MALLOC(max_crcs*4))==NULL) {
- close(file);
- return(-3); }
-if(length>=max_crcs*4) { /* Reached or exceeds max crcs */
- read(file,buf,max_crcs*4);
- for(l=0;l<max_crcs;l++)
- if(crc==buf[l])
- break;
- if(l<max_crcs) { /* Dupe CRC found */
- close(file);
- FREE(buf);
- return(1); }
- chsize(file,0L); /* truncate it */
- lseek(file,0L,SEEK_SET);
- write(file,buf+4,(max_crcs-1)*4); }
-
-else if(length/4) { /* Less than max crcs */
- read(file,buf,length);
- for(l=0;l<length/4;l++)
- if(crc==buf[l])
- break;
- if(l<length/4) { /* Dupe CRC found */
- close(file);
- FREE(buf);
- return(1); } }
-
-lseek(file,0L,SEEK_END);
-write(file,&crc,4); /* Write to the end */
-FREE(buf);
-close(file);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Creates a new message header record in the header file. */
-/* If storage is SMB_SELFPACK, self-packing conservative allocation is used */
-/* If storage is SMB_FASTALLOC, fast allocation is used */
-/* If storage is SMB_HYPERALLOC, no allocation tables are used (fastest) */
-/****************************************************************************/
-int smb_addmsghdr(smbmsg_t *msg, smbstatus_t *status, int storage
- ,int retry_time)
-{
- int i;
- long l;
-
-if(smb_locksmbhdr(retry_time))
- return(1);
-if(smb_getstatus(status))
- return(2);
-
-if(storage!=SMB_HYPERALLOC && (i=smb_open_ha(retry_time))!=0)
- return(i);
-
-msg->hdr.length=smb_getmsghdrlen(*msg);
-if(storage==SMB_HYPERALLOC)
- l=smb_hallochdr(status->header_offset);
-else if(storage==SMB_FASTALLOC)
- l=smb_fallochdr(msg->hdr.length);
-else
- l=smb_allochdr(msg->hdr.length);
-if(l==-1L) {
- smb_unlocksmbhdr();
- fclose(sha_fp);
- return(-1); }
-
-status->last_msg++;
-msg->idx.number=msg->hdr.number=status->last_msg;
-msg->idx.offset=status->header_offset+l;
-msg->idx.time=msg->hdr.when_imported.time;
-msg->idx.attr=msg->hdr.attr;
-msg->offset=status->total_msgs;
-status->total_msgs++;
-smb_putstatus(*status);
-
-if(storage!=SMB_HYPERALLOC)
- fclose(sha_fp);
-i=smb_putmsg(*msg);
-smb_unlocksmbhdr();
-return(i);
-}
-
-/****************************************************************************/
-/* Writes both header and index information for msg 'msg' */
-/****************************************************************************/
-int smb_putmsg(smbmsg_t msg)
-{
- int i;
-
-i=smb_putmsghdr(msg);
-if(i)
- return(i);
-return(smb_putmsgidx(msg));
-}
-
-/****************************************************************************/
-/* Writes index information for 'msg' */
-/* msg.idx */
-/* and msg.offset must be set prior to calling to this function */
-/* Returns 0 if everything ok */
-/****************************************************************************/
-int smb_putmsgidx(smbmsg_t msg)
-{
-
-clearerr(sid_fp);
-fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
-if(!fwrite(&msg.idx,sizeof(idxrec_t),1,sid_fp))
- return(1);
-fflush(sid_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Writes header information for 'msg' */
-/* msg.hdr.length */
-/* msg.idx.offset */
-/* and msg.offset must be set prior to calling to this function */
-/* Returns 0 if everything ok */
-/****************************************************************************/
-int smb_putmsghdr(smbmsg_t msg)
-{
- ushort i;
- ulong l;
-
-clearerr(shd_fp);
-if(fseek(shd_fp,msg.idx.offset,SEEK_SET))
- return(-1);
-
-/************************************************/
-/* Write the fixed portion of the header record */
-/************************************************/
-if(!fwrite(&msg.hdr,sizeof(msghdr_t),1,shd_fp))
- return(-2);
-
-/************************************************/
-/* Write the data fields (each is fixed length) */
-/************************************************/
-for(i=0;i<msg.hdr.total_dfields;i++)
- if(!fwrite(&msg.dfield[i],sizeof(dfield_t),1,shd_fp))
- return(-3);
-
-/*******************************************/
-/* Write the variable length header fields */
-/*******************************************/
-for(i=0;i<msg.total_hfields;i++) {
- if(!fwrite(&msg.hfield[i],sizeof(hfield_t),1,shd_fp))
- return(-4);
- if(msg.hfield[i].length /* more then 0 bytes long */
- && !fwrite(msg.hfield_dat[i],msg.hfield[i].length,1,shd_fp))
- return(-5); }
-
-l=smb_getmsghdrlen(msg);
-while(l%SHD_BLOCK_LEN) {
- if(fputc(0,shd_fp)==EOF)
- return(-6); /* pad block with NULL */
- l++; }
-fflush(shd_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Creates a sub-board's initial header file */
-/* Truncates and deletes other associated SMB files */
-/****************************************************************************/
-int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time)
-{
- char str[128];
- smbhdr_t hdr;
- smbstatus_t status;
-
-if(filelength(fileno(shd_fp))>=sizeof(smbhdr_t)+sizeof(smbstatus_t)
- && smb_locksmbhdr(retry_time)) /* header exists, so lock it */
- return(1);
-memset(&hdr,0,sizeof(smbhdr_t));
-memset(&status,0,sizeof(smbstatus_t));
-memcpy(hdr.id,"SMB\x1a",4); /* <S> <M> <B> <^Z> */
-hdr.version=SMB_VERSION;
-hdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t);
-status.last_msg=status.total_msgs=0;
-status.header_offset=sizeof(smbhdr_t)+sizeof(smbstatus_t);
-status.max_crcs=max_crcs;
-status.max_msgs=max_msgs;
-status.max_age=max_age;
-status.attr=attr;
-rewind(shd_fp);
-fwrite(&hdr,1,sizeof(smbhdr_t),shd_fp);
-fwrite(&status,1,sizeof(smbstatus_t),shd_fp);
-rewind(shd_fp);
-chsize(fileno(shd_fp),sizeof(smbhdr_t)+sizeof(smbstatus_t));
-fflush(shd_fp);
-
-rewind(sdt_fp);
-chsize(fileno(sdt_fp),0L);
-rewind(sid_fp);
-chsize(fileno(sid_fp),0L);
-
-sprintf(str,"%s.SDA",smb_file);
-remove(str); /* if it exists, delete it */
-sprintf(str,"%s.SHA",smb_file);
-remove(str); /* if it exists, delete it */
-sprintf(str,"%s.SCH",smb_file);
-remove(str);
-smb_unlocksmbhdr();
-return(0);
-}
-
-/****************************************************************************/
-/* Returns number of data blocks required to store "length" amount of data */
-/****************************************************************************/
-ulong smb_datblocks(ulong length)
-{
- ulong blocks;
-
-blocks=length/SDT_BLOCK_LEN;
-if(length%SDT_BLOCK_LEN)
- blocks++;
-return(blocks);
-}
-
-/****************************************************************************/
-/* Returns number of header blocks required to store "length" size header */
-/****************************************************************************/
-ulong smb_hdrblocks(ulong length)
-{
- ulong blocks;
-
-blocks=length/SHD_BLOCK_LEN;
-if(length%SHD_BLOCK_LEN)
- blocks++;
-return(blocks);
-}
-
-/****************************************************************************/
-/* Finds unused space in data file based on block allocation table and */
-/* marks space as used in allocation table. */
-/* File must be opened read/write DENY ALL */
-/* Returns offset to beginning of data (in bytes, not blocks) */
-/* Assumes smb_open_da() has been called */
-/* fclose(sda_fp) should be called after */
-/* Returns negative on error */
-/****************************************************************************/
-long smb_allocdat(ulong length, ushort headers)
-{
- ushort i,j;
- ulong l,blocks,offset=0L;
-
-blocks=smb_datblocks(length);
-j=0; /* j is consecutive unused block counter */
-fflush(sda_fp);
-rewind(sda_fp);
-while(!feof(sda_fp)) {
- if(!fread(&i,2,1,sda_fp))
- break;
- offset+=SDT_BLOCK_LEN;
- if(!i) j++;
- else j=0;
- if(j==blocks) {
- offset-=(blocks*SDT_BLOCK_LEN);
- break; } }
-clearerr(sda_fp);
-fseek(sda_fp,(offset/SDT_BLOCK_LEN)*2L,SEEK_SET);
-for(l=0;l<blocks;l++)
- if(!fwrite(&headers,2,1,sda_fp))
- return(-1);
-fflush(sda_fp);
-return(offset);
-}
-
-/****************************************************************************/
-/* Allocates space for data, but doesn't search for unused blocks */
-/* Returns negative on error */
-/****************************************************************************/
-long smb_fallocdat(ulong length, ushort headers)
-{
- ulong l,blocks,offset;
-
-fflush(sda_fp);
-clearerr(sda_fp);
-blocks=smb_datblocks(length);
-fseek(sda_fp,0L,SEEK_END);
-offset=(ftell(sda_fp)/2L)*SDT_BLOCK_LEN;
-for(l=0;l<blocks;l++)
- if(!fwrite(&headers,2,1,sda_fp))
- break;
-fflush(sda_fp);
-if(l<blocks)
- return(-1L);
-return(offset);
-}
-
-/****************************************************************************/
-/* De-allocates space for data */
-/* Returns non-zero on error */
-/****************************************************************************/
-int smb_freemsgdat(ulong offset, ulong length, ushort headers)
-{
- ushort i;
- ulong l,blocks;
-
-blocks=smb_datblocks(length);
-
-clearerr(sda_fp);
-for(l=0;l<blocks;l++) {
- if(fseek(sda_fp,((offset/SDT_BLOCK_LEN)+l)*2L,SEEK_SET))
- return(1);
- if(!fread(&i,2,1,sda_fp))
- return(2);
- if(headers>i)
- i=0; /* don't want to go negative */
- else
- i-=headers;
- if(fseek(sda_fp,-2L,SEEK_CUR))
- return(3);
- if(!fwrite(&i,2,1,sda_fp))
- return(4); }
-fflush(sda_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Adds to data allocation records for blocks starting at 'offset' */
-/* Returns non-zero on error */
-/****************************************************************************/
-int smb_incdat(ulong offset, ulong length, ushort headers)
-{
- ushort i;
- ulong l,blocks;
-
-clearerr(sda_fp);
-blocks=smb_datblocks(length);
-for(l=0;l<blocks;l++) {
- fseek(sda_fp,((offset/SDT_BLOCK_LEN)+l)*2L,SEEK_SET);
- if(!fread(&i,2,1,sda_fp))
- return(1);
- i+=headers;
- fseek(sda_fp,-2L,SEEK_CUR);
- if(!fwrite(&i,2,1,sda_fp))
- return(2); }
-fflush(sda_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* De-allocates blocks for header record */
-/* Returns non-zero on error */
-/****************************************************************************/
-int smb_freemsghdr(ulong offset, ulong length)
-{
- uchar c=0;
- ulong l,blocks;
-
-clearerr(sha_fp);
-blocks=smb_hdrblocks(length);
-fseek(sha_fp,offset/SHD_BLOCK_LEN,SEEK_SET);
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,sha_fp))
- return(1);
-fflush(sha_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Frees all allocated header and data blocks for 'msg' */
-/****************************************************************************/
-int smb_freemsg(smbmsg_t msg, smbstatus_t status)
-{
- int i;
- ushort x;
-
-if(status.attr&SMB_HYPERALLOC) /* Nothing to do */
- return(0);
-
-for(x=0;x<msg.hdr.total_dfields;x++) {
- if((i=smb_freemsgdat(msg.hdr.offset+msg.dfield[x].offset
- ,msg.dfield[x].length,1))!=0)
- return(i); }
-return(smb_freemsghdr(msg.idx.offset-status.header_offset,msg.hdr.length));
-}
-
-/****************************************************************************/
-/* Finds unused space in header file based on block allocation table and */
-/* marks space as used in allocation table. */
-/* File must be opened read/write DENY ALL */
-/* Returns offset to beginning of header (in bytes, not blocks) */
-/* Assumes smb_open_ha() has been called */
-/* fclose(sha_fp) should be called after */
-/* Returns -1L on error */
-/****************************************************************************/
-long smb_allochdr(ulong length)
-{
- uchar c;
- ushort i;
- ulong l,blocks,offset=0;
-
-blocks=smb_hdrblocks(length);
-i=0; /* i is consecutive unused block counter */
-fflush(sha_fp);
-rewind(sha_fp);
-while(!feof(sha_fp)) {
- if(!fread(&c,1,1,sha_fp))
- break;
- offset+=SHD_BLOCK_LEN;
- if(!c) i++;
- else i=0;
- if(i==blocks) {
- offset-=(blocks*SHD_BLOCK_LEN);
- break; } }
-clearerr(sha_fp);
-fseek(sha_fp,offset/SHD_BLOCK_LEN,SEEK_SET);
-c=1;
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,sha_fp))
- return(-1L);
-fflush(sha_fp);
-return(offset);
-}
-
-/****************************************************************************/
-/* Allocates space for index, but doesn't search for unused blocks */
-/* Returns -1L on error */
-/****************************************************************************/
-long smb_fallochdr(ulong length)
-{
- uchar c=1;
- ulong l,blocks,offset;
-
-blocks=smb_hdrblocks(length);
-fflush(sha_fp);
-clearerr(sha_fp);
-fseek(sha_fp,0L,SEEK_END);
-offset=ftell(sha_fp)*SHD_BLOCK_LEN;
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,sha_fp))
- return(-1L);
-fflush(sha_fp);
-return(offset);
-}
-
-/************************************************************************/
-/* Allocate header blocks using Hyper Allocation */
-/* this function should be most likely not be called from anywhere but */
-/* smb_addmsghdr() */
-/************************************************************************/
-long smb_hallochdr(ulong header_offset)
-{
- long l;
-
-fflush(shd_fp);
-fseek(shd_fp,0L,SEEK_END);
-l=ftell(shd_fp);
-if(l<header_offset) /* Header file truncated?!? */
- return(header_offset);
-while((l-header_offset)%SHD_BLOCK_LEN) /* Make sure even block boundry */
- l++;
-return(l-header_offset);
-}
-
-/************************************************************************/
-/* Allocate data blocks using Hyper Allocation */
-/* smb_locksmbhdr() should be called before this function and not */
-/* unlocked until all data fields for this message have been written */
-/* to the SDT file */
-/************************************************************************/
-long smb_hallocdat()
-{
- long l;
-
-fflush(sdt_fp);
-fseek(sdt_fp,0L,SEEK_END);
-l=ftell(sdt_fp);
-if(l<=0)
- return(l);
-while(l%SDT_BLOCK_LEN) /* Make sure even block boundry */
- l++;
-return(l);
-}
-
-/* End of SMBLIB.C */
diff --git a/src/sbbs2/smb/121a/smblib.h b/src/sbbs2/smb/121a/smblib.h
deleted file mode 100644
index b682f74f039574009cd3ef2e0a77204231e8e5b7..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smblib.h
+++ /dev/null
@@ -1,80 +0,0 @@
-/* SMBLIB.H */
-
-#ifndef _SMBLIB_H
-#define _SMBLIB_H
-
-#if defined(__WATCOMC__) || defined(__TURBOC__)
-# include <io.h>
-# include <mem.h>
-# include <share.h>
-#else
-# include <memory.h>
-#endif
-
-#ifdef __WATCOMC__
-# include <dos.h>
-#elif defined(__TURBOC__)
-# include <dir.h>
-#endif
-
-#include <malloc.h>
-#include <time.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#define GLOBAL extern /* turn smbvars.c files into header */
-
-#include "smbvars.c"
-
-#define SMB_STACK_LEN 4 /* Max msg bases in smb_stack() */
-#define SMB_STACK_POP 0 /* Pop a msg base off of smb_stack() */
-#define SMB_STACK_PUSH 1 /* Push a msg base onto smb_stack() */
-#define SMB_STACK_XCHNG 2 /* Exchange msg base w/last pushed */
-
-int smb_open(int retry_time);
-void smb_close(void);
-int smb_open_da(int retry_time);
-int smb_open_ha(int retry_time);
-int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time);
-int smb_stack(int op);
-int smb_trunchdr(int retry_time);
-int smb_locksmbhdr(int retry_time);
-int smb_getstatus(smbstatus_t *status);
-int smb_putstatus(smbstatus_t status);
-int smb_unlocksmbhdr(void);
-int smb_getmsgidx(smbmsg_t *msg);
-int smb_getlastidx(idxrec_t *idx);
-uint smb_getmsghdrlen(smbmsg_t msg);
-ulong smb_getmsgdatlen(smbmsg_t msg);
-int smb_lockmsghdr(smbmsg_t msg, int retry_time);
-int smb_getmsghdr(smbmsg_t *msg);
-int smb_unlockmsghdr(smbmsg_t msg);
-int smb_addcrc(ulong max_crcs, ulong crc, int retry_time);
-int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data);
-int smb_dfield(smbmsg_t *msg, ushort type, ulong length);
-int smb_addmsghdr(smbmsg_t *msg, smbstatus_t *status, int storage
- ,int retry_time);
-int smb_putmsg(smbmsg_t msg);
-int smb_putmsgidx(smbmsg_t msg);
-int smb_putmsghdr(smbmsg_t msg);
-void smb_freemsgmem(smbmsg_t msg);
-ulong smb_hdrblocks(ulong length);
-ulong smb_datblocks(ulong length);
-long smb_allochdr(ulong length);
-long smb_fallochdr(ulong length);
-long smb_hallochdr(ulong header_offset);
-long smb_allocdat(ulong length, ushort headers);
-long smb_fallocdat(ulong length, ushort headers);
-long smb_hallocdat(void);
-int smb_incdat(ulong offset, ulong length, ushort headers);
-int smb_freemsg(smbmsg_t msg, smbstatus_t status);
-int smb_freemsgdat(ulong offset, ulong length, ushort headers);
-int smb_freemsghdr(ulong offset, ulong length);
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/smb/121a/smbutil.bor b/src/sbbs2/smb/121a/smbutil.bor
deleted file mode 100644
index eaf0ec330bef3c3cfa5d11176bbd7f4dd6994cfb..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smbutil.bor
+++ /dev/null
@@ -1,56 +0,0 @@
-###############################
-# Makefile for SMBUTIL #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# ATTN: To use this MAKEFILE, you must create a directory "l" off of the
-# current directory to store the large model .OBJ files
-
-# Macros
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -N -C -m$(MODEL) -I$(INCLUDE) -DLZH_DYNAMIC_BUF -w-pro
-LFLAGS = -n -c
-MAIN = smbutil.exe
-OBJS = $(MODEL)\smbutil.obj $(MODEL)\smblib.obj $(MODEL)\smbvars.obj \
- $(MODEL)\lzh.obj
-HEADERS = smbutil.h smblib.h smbdefs.h crc32.h lzh.h
-
-!ifdef __OS2__
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;smb
-LIB = c:\bcos2\lib
-MODEL = os2
-CFLAGS = -d -C -I$(INCLUDE)
-#-DLZH_DYNAMIC_BUF
-LFLAGS = -c -w-srf
-!endif
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(MODEL) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# All .obj modules
-$(MODEL)\smbutil.obj: $(HEADERS)
-$(MODEL)\smbvars.obj: $(HEADERS)
-$(MODEL)\smblib.obj: $(HEADERS)
-$(MODEL)\lzh.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/smbutil.c b/src/sbbs2/smb/121a/smbutil.c
deleted file mode 100644
index 9ed216a045f92bc53bf64c25e057d724f5ad8ca8..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smbutil.c
+++ /dev/null
@@ -1,1419 +0,0 @@
-/* SMBUTIL.C */
-
-/* Synchronet Message Base Utility */
-
-#define SMBUTIL_VER "1.24"
-
-#include "smblib.h"
-#include "smbutil.h"
-#include "crc32.h"
-#include "crc16.c"
-
-#ifdef __WATCOMC__
- #include <dos.h>
-#endif
-
-/********************/
-/* Global variables */
-/********************/
-
-ulong mode=0L;
-ushort tzone=PST;
-char filein[128];
-char attach[128];
-
-/************************/
-/* Program usage/syntax */
-/************************/
-
-char *usage=
-"usage: smbutil [/opts] cmd <filespec.SHD>\n"
-"\n"
-"cmd:\n"
-" l[n] = list msgs starting at number n\n"
-" r[n] = read msgs starting at number n\n"
-" v[n] = view msg headers starting at number n\n"
-" k[n] = kill (delete) n msgs\n"
-" i<f> = import from text file f\n"
-" s = display msg base status\n"
-" c = change msg base status\n"
-" m = maintain msg base - delete old msgs and msgs over max\n"
-" p[k] = pack msg base (k specifies minimum packable Kbytes)\n"
-"opts:\n"
-" a = always pack msg base (disable compression analysis)\n"
-" z[n] = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)\n"
-;
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
-#ifdef __WATCOMC__
- return(f.size);
-#else
- return(f.ff_fsize);
-#endif
-return(-1L);
-}
-
-
-/****************************************************************************/
-/* Adds a new message to the message base */
-/****************************************************************************/
-void postmsg(smbstatus_t status)
-{
- char str[128],buf[SDT_BLOCK_LEN];
- ushort xlat;
- int i,j,k,file;
- long length;
- ulong offset,crc=0xffffffffUL;
- FILE *instream;
- smbmsg_t msg;
-
-length=flength(filein);
-if(length<1L) {
- printf("Invalid file size for '%s'\n",filein);
- exit(1); }
-length+=2; /* for translation string */
-if(!(status.attr&SMB_HYPERALLOC)) {
- i=smb_open_da(10);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(length,1);
- fclose(sda_fp); }
-else
- offset=smb_hallocdat();
-
-if((file=open(filein,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- printf("Error opening %s for read\n",filein);
- smb_freemsgdat(offset,length,1);
- exit(1); }
-setvbuf(instream,NULL,_IOFBF,32*1024);
-fseek(sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,sdt_fp);
-k=SDT_BLOCK_LEN-2;
-while(!feof(instream)) {
- memset(buf,0,k);
- j=fread(buf,1,k,instream);
- if(status.max_crcs)
- for(i=0;i<j;i++)
- crc=ucrc32(buf[i],crc);
- fwrite(buf,k,1,sdt_fp);
- k=SDT_BLOCK_LEN; }
-fflush(sdt_fp);
-fclose(instream);
-crc=~crc;
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=SMB_VERSION;
-msg.hdr.when_written.time=time(NULL);
-msg.hdr.when_written.zone=tzone;
-msg.hdr.when_imported=msg.hdr.when_written;
-
-if(status.max_crcs) {
- i=smb_addcrc(status.max_crcs,crc,10);
- if(i) {
- printf("smb_addcrc returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); } }
-
-msg.hdr.offset=offset;
-
-printf("To User Name: ");
-gets(str);
-i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
-if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
-if(status.attr&SMB_EMAIL) {
- printf("To User Number: ");
- gets(str);
- i=smb_hfield(&msg,RECIPIENTEXT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
- msg.idx.to=atoi(str); }
-else {
- strlwr(str);
- msg.idx.to=crc16(str); }
-
-printf("From User Name: ");
-gets(str);
-i=smb_hfield(&msg,SENDER,strlen(str),str);
-if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
-if(status.attr&SMB_EMAIL) {
- printf("From User Number: ");
- gets(str);
- i=smb_hfield(&msg,SENDEREXT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
- msg.idx.from=atoi(str); }
-else {
- strlwr(str);
- msg.idx.from=crc16(str); }
-
-printf("Subject: ");
-gets(str);
-i=smb_hfield(&msg,SUBJECT,strlen(str),str);
-if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-i=smb_dfield(&msg,TEXT_BODY,length);
-if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
-
-i=smb_addmsghdr(&msg,&status,status.attr&SMB_HYPERALLOC,10);
-
-if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(offset,length,1);
- exit(1); }
-smb_freemsgmem(msg);
-
-}
-
-/****************************************************************************/
-/* Shows the message base header */
-/****************************************************************************/
-void showstatus()
-{
- int i;
- smbstatus_t status;
-
-i=smb_locksmbhdr(10);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&status);
-smb_unlocksmbhdr();
-if(i) {
- printf("smb_getstatus returned %d\n",i);
- return; }
-printf("last_msg =%lu\n"
- "total_msgs =%lu\n"
- "header_offset =%lu\n"
- "max_crcs =%lu\n"
- "max_msgs =%lu\n"
- "max_age =%u\n"
- "attr =%04Xh\n"
- ,status.last_msg
- ,status.total_msgs
- ,status.header_offset
- ,status.max_crcs
- ,status.max_msgs
- ,status.max_age
- ,status.attr
- );
-}
-
-/****************************************************************************/
-/* Configure message base header */
-/****************************************************************************/
-void config()
-{
- char max_msgs[128],max_crcs[128],max_age[128],header_offset[128],attr[128];
- int i;
- smbstatus_t status;
-
-i=smb_locksmbhdr(10);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&status);
-smb_unlocksmbhdr();
-if(i) {
- printf("smb_getstatus returned %d\n",i);
- return; }
-printf("Header offset =%-5lu New value (CR=No Change): ",status.header_offset);
-gets(header_offset);
-printf("Max msgs =%-5lu New value (CR=No Change): ",status.max_msgs);
-gets(max_msgs);
-printf("Max crcs =%-5lu New value (CR=No Change): ",status.max_crcs);
-gets(max_crcs);
-printf("Max age =%-5u New value (CR=No Change): ",status.max_age);
-gets(max_age);
-printf("Attributes =%-5u New value (CR=No Change): ",status.attr);
-gets(attr);
-i=smb_locksmbhdr(10);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&status);
-if(i) {
- printf("smb_getstatus returned %d\n",i);
- smb_unlocksmbhdr();
- return; }
-if(isdigit(max_msgs[0]))
- status.max_msgs=atol(max_msgs);
-if(isdigit(max_crcs[0]))
- status.max_crcs=atol(max_crcs);
-if(isdigit(max_age[0]))
- status.max_age=atoi(max_age);
-if(isdigit(header_offset[0]))
- status.header_offset=atol(header_offset);
-if(isdigit(attr[0]))
- status.attr=atoi(attr);
-i=smb_putstatus(status);
-smb_unlocksmbhdr();
-if(i)
- printf("smb_putstatus returned %d\n",i);
-}
-
-/****************************************************************************/
-/* Lists messages' to, from, and subject */
-/****************************************************************************/
-void listmsgs(ulong start, ulong count)
-{
- int i;
- ulong l=0;
- smbmsg_t msg;
- idxrec_t idxrec;
-
-if(!start)
- start=1;
-fseek(sid_fp,(start-1L)*sizeof(idxrec_t),SEEK_SET);
-while(l<count) {
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
- i=smb_lockmsghdr(msg,10);
- if(i) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- i=smb_getmsghdr(&msg);
- smb_unlockmsghdr(msg);
- if(i) {
- printf("smb_getmsghdr returned %d\n",i);
- break; }
- printf("%4lu %-25.25s %-25.25s %.20s\n"
- ,msg.hdr.number,msg.from,msg.to,msg.subj);
- smb_freemsgmem(msg);
- l++; }
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(fidoaddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-char *binstr(uchar *buf, ushort length)
-{
- static char str[128];
- char tmp[128];
- int i;
-
-str[0]=0;
-for(i=0;i<length;i++)
- if(buf[i] && (buf[i]<SP || buf[i]>=0x7f))
- break;
-if(i==length) /* not binary */
- return(buf);
-for(i=0;i<length;i++) {
- sprintf(tmp,"%02X ",buf[i]);
- strcat(str,tmp); }
-return(str);
-}
-
-/****************************************************************************/
-/* Converts when_t.zone into ASCII format */
-/****************************************************************************/
-char *zonestr(short zone)
-{
- static char str[32];
-
-switch(zone) {
- case 0: return("UT");
- case AST: return("AST");
- case EST: return("EST");
- case CST: return("CST");
- case MST: return("MST");
- case PST: return("PST");
- case YST: return("YST");
- case HST: return("HST");
- case BST: return("BST");
- case ADT: return("ADT");
- case EDT: return("EDT");
- case CDT: return("CDT");
- case MDT: return("MDT");
- case PDT: return("PDT");
- case YDT: return("YDT");
- case HDT: return("HDT");
- case BDT: return("BDT");
- case MID: return("MID");
- case VAN: return("VAN");
- case EDM: return("EDM");
- case WIN: return("WIN");
- case BOG: return("BOG");
- case CAR: return("CAR");
- case RIO: return("RIO");
- case FER: return("FER");
- case AZO: return("AZO");
- case LON: return("LON");
- case BER: return("BER");
- case ATH: return("ATH");
- case MOS: return("MOS");
- case DUB: return("DUB");
- case KAB: return("KAB");
- case KAR: return("KAR");
- case BOM: return("BOM");
- case KAT: return("KAT");
- case DHA: return("DHA");
- case BAN: return("BAN");
- case HON: return("HON");
- case TOK: return("TOK");
- case SYD: return("SYD");
- case NOU: return("NOU");
- case WEL: return("WEL");
- }
-
-sprintf(str,"%02d:%02d",zone/60,zone<0 ? (-zone)%60 : zone%60);
-return(str);
-}
-
-
-/****************************************************************************/
-/* Displays message header information */
-/****************************************************************************/
-void viewmsgs(ulong start, ulong count)
-{
- char when_written[128]
- ,when_imported[128];
- int i;
- ulong l=0;
- smbmsg_t msg;
- idxrec_t idxrec;
-
-if(!start)
- start=1;
-fseek(sid_fp,(start-1L)*sizeof(idxrec_t),SEEK_SET);
-while(l<count) {
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
- i=smb_lockmsghdr(msg,10);
- if(i) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- i=smb_getmsghdr(&msg);
- smb_unlockmsghdr(msg);
- if(i) {
- printf("smb_getmsghdr returned %d\n",i);
- break; }
-
- sprintf(when_written,"%.24s %s"
- ,ctime((time_t *)&msg.hdr.when_written.time)
- ,zonestr(msg.hdr.when_written.zone));
- sprintf(when_imported,"%.24s %s"
- ,ctime((time_t *)&msg.hdr.when_imported.time)
- ,zonestr(msg.hdr.when_imported.zone));
-
- printf( "%-20.20s %s\n"
- "%-20.20s %s\n"
- "%-20.20s %s\n"
- "%-20.20s %04Xh\n"
- "%-20.20s %04Xh\n"
- "%-20.20s %u\n"
- "%-20.20s %04Xh\n"
- "%-20.20s %08lXh\n"
- "%-20.20s %08lXh\n"
- "%-20.20s %s\n"
- "%-20.20s %s\n"
- "%-20.20s %ld (%ld)\n"
- "%-20.20s %ld\n"
- "%-20.20s %ld\n"
- "%-20.20s %ld\n"
- "%-20.20s %s\n"
- "%-20.20s %06lXh\n"
- "%-20.20s %u\n",
-
- "subj",
- msg.subj,
-
- "from",
- msg.from,
-
- "to",
- msg.to,
-
- "type",
- msg.hdr.type,
-
- "version",
- msg.hdr.version,
-
- "length",
- msg.hdr.length,
-
- "attr",
- msg.hdr.attr,
-
- "auxattr",
- msg.hdr.auxattr,
-
- "netattr",
- msg.hdr.netattr,
-
- "when_written",
- when_written,
-
- "when_imported",
- when_imported,
-
- "number",
- msg.hdr.number,
- ftell(sid_fp)/sizeof(idxrec_t),
-
- "thread_orig",
- msg.hdr.thread_orig,
-
- "thread_next",
- msg.hdr.thread_next,
-
- "thread_first",
- msg.hdr.thread_first,
-
- "reserved[16]",
- binstr(msg.hdr.reserved,16),
-
- "offset",
- msg.hdr.offset,
-
- "total_dfields",
- msg.hdr.total_dfields
- );
- for(i=0;i<msg.hdr.total_dfields;i++)
- printf("dfield[%02u].type %02Xh\n"
- "dfield[%02u].offset %lu\n"
- "dfield[%02u].length %lu\n"
- ,i,msg.dfield[i].type
- ,i,msg.dfield[i].offset
- ,i,msg.dfield[i].length);
-
- for(i=0;i<msg.total_hfields;i++)
- printf("hfield[%02u].type %02Xh\n"
- "hfield[%02u].length %d\n"
- "hfield[%02u]_dat %s\n"
- ,i,msg.hfield[i].type
- ,i,msg.hfield[i].length
- ,i,binstr(msg.hfield_dat[i],msg.hfield[i].length));
-
- if(msg.from_net.type)
- printf("from_net.type %02Xh\n"
- "from_net.addr %s\n"
- ,msg.from_net.type
- ,msg.from_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.from_net.addr) : msg.from_net.addr);
-
- if(msg.to_net.type)
- printf("to_net.type %02Xh\n"
- "to_net.addr %s\n"
- ,msg.to_net.type
- ,msg.to_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.to_net.addr) : msg.to_net.addr);
-
- if(msg.replyto_net.type)
- printf("replyto_net.type %02Xh\n"
- "replyto_net.addr %s\n"
- ,msg.replyto_net.type
- ,msg.replyto_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.replyto_net.addr)
- : msg.replyto_net.addr);
-
- printf("from_agent %02Xh\n"
- "to_agent %02Xh\n"
- "replyto_agent %02Xh\n"
- ,msg.from_agent
- ,msg.to_agent
- ,msg.replyto_agent);
-
- printf("\n");
- smb_freemsgmem(msg);
- l++; }
-}
-
-/****************************************************************************/
-/* Maintain message base - deletes messages older than max age (in days) */
-/* or messages that exceed maximum */
-/****************************************************************************/
-void maint(void)
-{
- int i;
- ulong l,m,n,f,flagged=0;
- time_t now;
- smbstatus_t status;
- smbmsg_t msg;
- idxrec_t HUGE16 *idx;
-
-printf("Maintaining %s\r\n",smb_file);
-now=time(NULL);
-i=smb_locksmbhdr(10);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&status);
-if(i) {
- smb_unlocksmbhdr();
- printf("smb_getstatus returned %d\n",i);
- return; }
-if(!status.total_msgs) {
- smb_unlocksmbhdr();
- printf("Empty\n");
- return; }
-printf("Loading index...\n");
-if((idx=(idxrec_t *)LMALLOC(sizeof(idxrec_t)*status.total_msgs))
- ==NULL) {
- smb_unlocksmbhdr();
- printf("can't allocate %lu bytes of memory\n"
- ,sizeof(idxrec_t)*status.total_msgs);
- return; }
-fseek(sid_fp,0L,SEEK_SET);
-for(l=0;l<status.total_msgs;l++) {
- printf("%lu of %lu\r"
- ,l+1,status.total_msgs);
- if(!fread(&idx[l],1,sizeof(idxrec_t),sid_fp))
- break; }
-printf("\nDone.\n\n");
-
-printf("Scanning for pre-flagged messages...\n");
-for(m=0;m<l;m++) {
- printf("\r%2u%%",m ? (long)(100.0/((float)l/m)) : 0);
- if(idx[m].attr&MSG_DELETE)
- flagged++; }
-printf("\r100%% (%lu pre-flagged for deletion)\n",flagged);
-
-if(status.max_age) {
- printf("Scanning for messages more than %u days old...\n"
- ,status.max_age);
- for(m=f=0;m<l;m++) {
- printf("\r%2u%%",m ? (long)(100.0/((float)l/m)) : 0);
- if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
- continue;
- if(now>idx[m].time && (now-idx[m].time)/(24L*60L*60L)>status.max_age) {
- f++;
- flagged++;
- idx[m].attr|=MSG_DELETE; } } /* mark for deletion */
- printf("\r100%% (%lu flagged for deletion)\n",f); }
-
-printf("Scanning for read messages to be killed...\n");
-for(m=f=0;m<l;m++) {
- printf("\r%2u%%",m ? (long)(100.0/((float)l/m)) : 0);
- if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
- continue;
- if((idx[m].attr&(MSG_READ|MSG_KILLREAD))==(MSG_READ|MSG_KILLREAD)) {
- f++;
- flagged++;
- idx[m].attr|=MSG_DELETE; } }
-printf("\r100%% (%lu flagged for deletion)\n",f);
-
-if(l-flagged>status.max_msgs) {
- printf("Flagging excess messages for deletion...\n");
- for(m=n=0,f=flagged;l-flagged>status.max_msgs && m<l;m++) {
- if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
- continue;
- printf("%lu of %lu\r",++n,(l-f)-status.max_msgs);
- flagged++;
- idx[m].attr|=MSG_DELETE; } /* mark for deletion */
- printf("\nDone.\n\n"); }
-
-if(!flagged) { /* No messages to delete */
- LFREE(idx);
- smb_unlocksmbhdr();
- return; }
-
-if(!(mode&NOANALYSIS)) {
-
- printf("Freeing allocated header and data blocks for deleted messages...\n");
- if(!(status.attr&SMB_HYPERALLOC)) {
- i=smb_open_da(10);
- if(i) {
- smb_unlocksmbhdr();
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- i=smb_open_ha(10);
- if(i) {
- smb_unlocksmbhdr();
- printf("smb_open_ha returned %d\n",i);
- exit(1); } }
-
- for(m=n=0;m<l;m++) {
- if(idx[m].attr&MSG_DELETE) {
- printf("%lu of %lu\r",++n,flagged);
- msg.idx=idx[m];
- msg.hdr.number=msg.idx.number;
- if((i=smb_getmsgidx(&msg))!=0) {
- printf("\nsmb_getmsgidx returned %d\n",i);
- continue; }
- i=smb_lockmsghdr(msg,10);
- if(i) {
- printf("\nsmb_lockmsghdr returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("\nsmb_getmsghdr returned %d\n",i);
- break; }
- msg.hdr.attr|=MSG_DELETE; /* mark header as deleted */
- if((i=smb_putmsg(msg))!=0) {
- smb_freemsgmem(msg);
- smb_unlockmsghdr(msg);
- printf("\nsmb_putmsg returned %d\n",i);
- break; }
- smb_unlockmsghdr(msg);
- if((i=smb_freemsg(msg,status))!=0) {
- smb_freemsgmem(msg);
- printf("\nsmb_freemsg returned %d\n",i);
- break; }
- smb_freemsgmem(msg); } }
- if(!(status.attr&SMB_HYPERALLOC)) {
- fclose(sha_fp);
- fclose(sda_fp); }
- printf("\nDone.\n\n"); }
-
-printf("Re-writing index...\n");
-rewind(sid_fp);
-if(chsize(fileno(sid_fp),0L))
- printf("chsize failed!\n");
-for(m=n=0;m<l;m++) {
- if(idx[m].attr&MSG_DELETE)
- continue;
- printf("%lu of %lu\r",++n,l-flagged);
- fwrite(&idx[m],sizeof(idxrec_t),1,sid_fp); }
-printf("\nDone.\n\n");
-fflush(sid_fp);
-
-LFREE(idx);
-status.total_msgs-=flagged;
-smb_putstatus(status);
-smb_unlocksmbhdr();
-}
-
-/****************************************************************************/
-/* Kills 'msgs' number of messags */
-/* Returns actual number of messages killed. */
-/****************************************************************************/
-ulong kill(ulong msgs)
-{
- int i;
- ulong l,m,n,flagged=0;
- smbstatus_t status;
- smbmsg_t msg;
- idxrec_t *idx;
-
-i=smb_locksmbhdr(10);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return(0); }
-i=smb_getstatus(&status);
-if(i) {
- smb_unlocksmbhdr();
- printf("smb_getstatus returned %d\n",i);
- return(0); }
-printf("Loading index...\n");
-if((idx=(idxrec_t *)LMALLOC(sizeof(idxrec_t)*status.total_msgs))
- ==NULL) {
- smb_unlocksmbhdr();
- printf("can't allocate %lu bytes of memory\n"
- ,sizeof(idxrec_t)*status.total_msgs);
- return(0); }
-fseek(sid_fp,0L,SEEK_SET);
-for(l=0;l<status.total_msgs;l++) {
- printf("%lu of %lu\r"
- ,l+1,status.total_msgs);
- if(!fread(&idx[l],1,sizeof(idxrec_t),sid_fp))
- break; }
-printf("\nDone.\n\n");
-
-printf("Flagging messages for deletion...\n");
-for(m=0;m<l && flagged<msgs;m++) {
- if(idx[m].attr&(MSG_PERMANENT))
- continue;
- printf("%lu of %lu\r",++flagged,msgs);
- idx[m].attr|=MSG_DELETE; } /* mark for deletion */
-printf("\nDone.\n\n");
-
-printf("Freeing allocated header and data blocks for deleted messages...\n");
-if(!(status.attr&SMB_HYPERALLOC)) {
- i=smb_open_da(10);
- if(i) {
- smb_unlocksmbhdr();
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- i=smb_open_ha(10);
- if(i) {
- smb_unlocksmbhdr();
- printf("smb_open_ha returned %d\n",i);
- exit(1); } }
-
-for(m=n=0;m<l;m++) {
- if(idx[m].attr&MSG_DELETE) {
- printf("%lu of %lu\r",++n,flagged);
- msg.idx=idx[m];
- i=smb_lockmsghdr(msg,10);
- if(i) {
- printf("\nsmb_lockmsghdr returned %d\n",i);
- break; }
- msg.hdr.number=msg.idx.number;
- if((i=smb_getmsgidx(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("\nsmb_getmsgidx returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("\nsmb_getmsghdr returned %d\n",i);
- break; }
- msg.hdr.attr|=MSG_DELETE; /* mark header as deleted */
- if((i=smb_putmsg(msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("\nsmb_putmsg returned %d\n",i);
- break; }
- smb_unlockmsghdr(msg);
- smb_freemsg(msg,status);
- smb_freemsgmem(msg); } }
-
-if(!(status.attr&SMB_HYPERALLOC)) {
- fclose(sha_fp);
- fclose(sda_fp); }
-
-printf("\nDone.\n\n");
-
-printf("Re-writing index...\n");
-rewind(sid_fp);
-chsize(fileno(sid_fp),0L);
-for(m=n=0;m<l;m++) {
- if(idx[m].attr&MSG_DELETE)
- continue;
- printf("%lu of %lu\r",++n,l-flagged);
- fwrite(&idx[m],1,sizeof(idxrec_t),sid_fp); }
-printf("\nDone.\n\n");
-
-fflush(sid_fp);
-
-LFREE(idx);
-status.total_msgs-=flagged;
-smb_putstatus(status);
-smb_unlocksmbhdr();
-return(flagged);
-}
-
-typedef struct {
- ulong old,new;
- } datoffset_t;
-
-/****************************************************************************/
-/* Removes all unused blocks from SDT and SHD files */
-/****************************************************************************/
-void packmsgs(ulong packable)
-{
- uchar buf[SDT_BLOCK_LEN],ch,fname[128],tmpfname[128];
- int i,file,size;
- ulong l,m,n,datoffsets=0,length,total;
- FILE *tmp_sdt,*tmp_shd,*tmp_sid;
- smbhdr_t hdr;
- smbstatus_t status;
- smbmsg_t msg;
- datoffset_t *datoffset=NULL;
-
-printf("Packing %s\n",smb_file);
-i=smb_locksmbhdr(10);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&status);
-if(i) {
- smb_unlocksmbhdr();
- printf("smb_getstatus returned %d\n",i);
- return; }
-
-if(!(status.attr&SMB_HYPERALLOC)) {
- i=smb_open_ha(10);
- if(i) {
- smb_unlocksmbhdr();
- printf("smb_open_ha returned %d\n",i);
- return; }
- i=smb_open_da(10);
- if(i) {
- smb_unlocksmbhdr();
- fclose(sha_fp);
- printf("smb_open_da returned %d\n",i);
- return; } }
-
-if(!status.total_msgs) {
- printf("Empty\n");
- rewind(shd_fp);
- chsize(fileno(shd_fp),status.header_offset);
- rewind(sdt_fp);
- chsize(fileno(sdt_fp),0L);
- rewind(sid_fp);
- chsize(fileno(sid_fp),0L);
- if(!(status.attr&SMB_HYPERALLOC)) {
- rewind(sha_fp);
- chsize(fileno(sha_fp),0L);
- rewind(sda_fp);
- chsize(fileno(sda_fp),0L);
- fclose(sha_fp);
- fclose(sda_fp); }
- smb_unlocksmbhdr();
- return; }
-
-
-if(!(status.attr&SMB_HYPERALLOC) && !(mode&NOANALYSIS)) {
- printf("Analyzing data blocks...\n");
-
- length=filelength(fileno(sda_fp));
-
- fseek(sda_fp,0L,SEEK_SET);
- for(l=m=0;l<length;l+=2) {
- printf("\r%2u%% ",l ? (long)(100.0/((float)length/l)) : 0);
- i=0;
- if(!fread(&i,2,1,sda_fp))
- break;
- if(!i)
- m++; }
-
- printf("\rAnalyzing header blocks...\n");
-
- length=filelength(fileno(sha_fp));
-
- fseek(sha_fp,0L,SEEK_SET);
- for(l=n=0;l<length;l++) {
- printf("\r%2u%% ",l ? (long)(100.0/((float)length/l)) : 0);
- ch=0;
- if(!fread(&ch,1,1,sha_fp))
- break;
- if(!ch)
- n++; }
-
- if(!m && !n) {
- printf("\rAlready compressed.\n\n");
- fclose(sha_fp);
- fclose(sda_fp);
- smb_unlocksmbhdr();
- return; }
-
- if(packable && (m*SDT_BLOCK_LEN)+(n*SHD_BLOCK_LEN)<packable*1024L) {
- printf("\rLess than %luk compressable bytes.\n\n",packable);
- fclose(sha_fp);
- fclose(sda_fp);
- smb_unlocksmbhdr();
- return; }
-
- printf("\rCompressing %lu data blocks (%lu bytes)\n"
- " and %lu header blocks (%lu bytes)\n"
- ,m,m*SDT_BLOCK_LEN,n,n*SHD_BLOCK_LEN); }
-
-if(!(status.attr&SMB_HYPERALLOC)) {
- rewind(sha_fp);
- chsize(fileno(sha_fp),0L); /* Reset both allocation tables */
- rewind(sda_fp);
- chsize(fileno(sda_fp),0L); }
-
-if(status.attr&SMB_HYPERALLOC && !(mode&NOANALYSIS)) {
- printf("Analyzing %s\n",smb_file);
-
- length=filelength(fileno(shd_fp));
- m=n=0;
- for(l=status.header_offset;l<length;l+=size) {
- printf("\r%2u%% ",(long)(100.0/((float)length/l)));
- msg.idx.offset=l;
- if((i=smb_lockmsghdr(msg,10))!=0) {
- printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
- size=SHD_BLOCK_LEN;
- continue; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- m++;
- size=SHD_BLOCK_LEN;
- continue; }
- smb_unlockmsghdr(msg);
- if(msg.hdr.attr&MSG_DELETE) {
- m+=smb_hdrblocks(msg.hdr.length);
- total=0;
- for(i=0;i<msg.hdr.total_dfields;i++)
- total+=msg.dfield[i].length;
- n+=smb_datblocks(total); }
- size=smb_getmsghdrlen(msg);
- if(size<1) size=SHD_BLOCK_LEN;
- while(size%SHD_BLOCK_LEN)
- size++;
- smb_freemsgmem(msg); }
-
-
- if(!m && !n) {
- printf("\rAlready compressed.\n\n");
- smb_unlocksmbhdr();
- return; }
-
- if(packable && (n*SDT_BLOCK_LEN)+(m*SHD_BLOCK_LEN)<packable*1024L) {
- printf("\rLess than %luk compressable bytes.\n\n",packable);
- smb_unlocksmbhdr();
- return; }
-
- printf("\rCompressing %lu data blocks (%lu bytes)\n"
- " and %lu header blocks (%lu bytes)\n"
- ,n,n*SDT_BLOCK_LEN,m,m*SHD_BLOCK_LEN); }
-
-sprintf(fname,"%s.SD$",smb_file);
-tmp_sdt=fopen(fname,"wb");
-sprintf(fname,"%s.SH$",smb_file);
-tmp_shd=fopen(fname,"wb");
-sprintf(fname,"%s.SI$",smb_file);
-tmp_sid=fopen(fname,"wb");
-if(!tmp_sdt || !tmp_shd || !tmp_sid) {
- smb_unlocksmbhdr();
- if(!(status.attr&SMB_HYPERALLOC)) {
- fclose(sha_fp);
- fclose(sda_fp); }
- printf("error opening temp file\n");
- return; }
-setvbuf(tmp_sdt,NULL,_IOFBF,2*1024);
-setvbuf(tmp_shd,NULL,_IOFBF,2*1024);
-setvbuf(tmp_sid,NULL,_IOFBF,2*1024);
-if(!(status.attr&SMB_HYPERALLOC)
- && (datoffset=(datoffset_t *)LMALLOC(sizeof(datoffset_t)*status.total_msgs))
- ==NULL) {
- smb_unlocksmbhdr();
- fclose(sha_fp);
- fclose(sda_fp);
- fclose(tmp_sdt);
- fclose(tmp_shd);
- fclose(tmp_sid);
- printf("error allocating mem\n");
- return; }
-fseek(shd_fp,0L,SEEK_SET);
-fread(&hdr,1,sizeof(smbhdr_t),shd_fp);
-fwrite(&hdr,1,sizeof(smbhdr_t),tmp_shd);
-fwrite(&status,1,sizeof(smbstatus_t),tmp_shd);
-for(l=sizeof(smbhdr_t)+sizeof(smbstatus_t);l<status.header_offset;l++) {
- fread(&ch,1,1,shd_fp); /* copy additional base header records */
- fwrite(&ch,1,1,tmp_shd); }
-fseek(sid_fp,0L,SEEK_SET);
-total=0;
-for(l=0;l<status.total_msgs;l++) {
- printf("%lu of %lu\r",l+1,status.total_msgs);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
- if(msg.idx.attr&MSG_DELETE) {
- printf("\nDeleted index.\n");
- continue; }
- i=smb_lockmsghdr(msg,10);
- if(i) {
- printf("\nsmb_lockmsghdr returned %d\n",i);
- continue; }
- i=smb_getmsghdr(&msg);
- smb_unlockmsghdr(msg);
- if(i) {
- printf("\nsmb_getmsghdr returned %d\n",i);
- continue; }
- if(msg.hdr.attr&MSG_DELETE) {
- printf("\nDeleted header.\n");
- smb_freemsgmem(msg);
- continue; }
- for(m=0;m<datoffsets;m++)
- if(msg.hdr.offset==datoffset[m].old)
- break;
- if(m<datoffsets) { /* another index pointed to this data */
- printf("duplicate index\n");
- msg.hdr.offset=datoffset[m].new;
- smb_incdat(datoffset[m].new,smb_getmsgdatlen(msg),1); }
- else {
-
- if(!(status.attr&SMB_HYPERALLOC))
- datoffset[datoffsets].old=msg.hdr.offset;
-
- fseek(sdt_fp,msg.hdr.offset,SEEK_SET);
-
- m=smb_getmsgdatlen(msg);
- if(m>16L*1024L*1024L) {
- printf("\nInvalid data length (%lu)\n",m);
- continue; }
-
- if(!(status.attr&SMB_HYPERALLOC)) {
- datoffset[datoffsets].new=msg.hdr.offset
- =smb_fallocdat(m,1);
- datoffsets++;
- fseek(tmp_sdt,msg.hdr.offset,SEEK_SET); }
- else {
- fseek(tmp_sdt,0L,SEEK_END);
- msg.hdr.offset=ftell(tmp_sdt); }
-
- /* Actually copy the data */
-
- n=smb_datblocks(m);
- for(m=0;m<n;m++) {
- fread(buf,1,SDT_BLOCK_LEN,sdt_fp);
- if(!m && *(ushort *)buf!=XLAT_NONE && *(ushort *)buf!=XLAT_LZH) {
- printf("\nUnsupported translation type (%04X)\n"
- ,*(ushort *)buf);
- break; }
- fwrite(buf,1,SDT_BLOCK_LEN,tmp_sdt); }
- if(m<n)
- continue; }
-
- /* Write the new index entry */
- length=smb_getmsghdrlen(msg);
- if(status.attr&SMB_HYPERALLOC)
- msg.idx.offset=ftell(tmp_shd);
- else
- msg.idx.offset=smb_fallochdr(length)+status.header_offset;
- fwrite(&msg.idx,1,sizeof(idxrec_t),tmp_sid);
-
- /* Write the new header entry */
- fseek(tmp_shd,msg.idx.offset,SEEK_SET);
- fwrite(&msg.hdr,1,sizeof(msghdr_t),tmp_shd);
- for(n=0;n<msg.hdr.total_dfields;n++)
- fwrite(&msg.dfield[n],1,sizeof(dfield_t),tmp_shd);
- for(n=0;n<msg.total_hfields;n++) {
- fwrite(&msg.hfield[n],1,sizeof(hfield_t),tmp_shd);
- fwrite(msg.hfield_dat[n],1,msg.hfield[n].length,tmp_shd); }
- while(length%SHD_BLOCK_LEN) { /* pad with NULLs */
- fputc(0,tmp_shd);
- length++; }
- total++;
- smb_freemsgmem(msg); }
-
-if(datoffset)
- LFREE(datoffset);
-if(!(status.attr&SMB_HYPERALLOC)) {
- fclose(sha_fp);
- fclose(sda_fp); }
-
-/* Change *.SH$ into *.SHD */
-fclose(shd_fp);
-fclose(tmp_shd);
-sprintf(fname,"%s.SHD",smb_file);
-remove(fname);
-sprintf(tmpfname,"%s.SH$",smb_file);
-rename(tmpfname,fname);
-
-/* Change *.SD$ into *.SDT */
-fclose(sdt_fp);
-fclose(tmp_sdt);
-sprintf(fname,"%s.SDT",smb_file);
-remove(fname);
-sprintf(tmpfname,"%s.SD$",smb_file);
-rename(tmpfname,fname);
-
-/* Change *.SI$ into *.SID */
-fclose(sid_fp);
-fclose(tmp_sid);
-sprintf(fname,"%s.SID",smb_file);
-remove(fname);
-sprintf(tmpfname,"%s.SI$",smb_file);
-rename(tmpfname,fname);
-
-if((i=smb_open(10))!=0) {
- printf("Error %d reopening %s\n",i,smb_file);
- return; }
-
-status.total_msgs=total;
-if((i=smb_putstatus(status))!=0)
- printf("\nsmb_putstatus returned %d\n",i);
-printf("\nDone.\n\n");
-}
-
-
-/****************************************************************************/
-/* Read messages in message base */
-/****************************************************************************/
-void readmsgs(ulong start)
-{
- char str[128],*inbuf,*outbuf;
- int i,ch,done=0,domsg=1,lzh;
- ushort xlat;
- ulong l,count,outlen;
- smbmsg_t msg;
-
-if(start)
- msg.offset=start-1;
-else
- msg.offset=0;
-while(!done) {
- if(domsg) {
- fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
- i=smb_lockmsghdr(msg,10);
- if(i) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- i=smb_getmsghdr(&msg);
- if(i) {
- printf("smb_getmsghdr returned %d\n",i);
- break; }
-
- printf("\n%lu (%lu)\n",msg.hdr.number,msg.offset+1);
- printf("Subj : %s\n",msg.subj);
- printf("To : %s",msg.to);
- if(msg.to_net.type)
- printf(" (%s)",msg.to_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.to_net.addr) : msg.to_net.addr);
- printf("\nFrom : %s",msg.from);
- if(msg.from_net.type)
- printf(" (%s)",msg.from_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.from_net.addr)
- : msg.from_net.addr);
- printf("\nDate : %.24s %s",ctime((time_t *)&msg.hdr.when_written.time)
- ,zonestr(msg.hdr.when_written.zone));
- printf("\n\n");
- for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY:
- case TEXT_TAIL:
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,sdt_fp);
- l=2;
- lzh=0;
- while(xlat!=XLAT_NONE) {
- if(xlat==XLAT_LZH)
- lzh=1;
- fread(&xlat,2,1,sdt_fp);
- l+=2; }
- if(lzh) {
- if((inbuf=(char *)LMALLOC(msg.dfield[i].length))
- ==NULL) {
- printf("Malloc error of %lu\n"
- ,msg.dfield[i].length);
- exit(1); }
- fread(inbuf,msg.dfield[i].length-l,1,sdt_fp);
- outlen=*(long *)inbuf;
- if((outbuf=(char *)LMALLOC(outlen))==NULL) {
- printf("Malloc error of lzh %lu\n"
- ,outlen);
- exit(1); }
- lzh_decode(inbuf,msg.dfield[i].length-l,outbuf);
- LFREE(inbuf);
- for(l=0;l<outlen;l++)
- putchar(outbuf[l]);
- LFREE(outbuf); }
- else {
- for(;l<msg.dfield[i].length;l++) {
- ch=fgetc(sdt_fp);
- if(ch)
- putchar(ch); } }
- printf("\n");
- break; }
- i=smb_unlockmsghdr(msg);
- if(i) {
- printf("smb_unlockmsghdr returned %d\n",i);
- break; }
- smb_freemsgmem(msg); }
- domsg=1;
- printf("\nReading %s (?=Menu): ",smb_file);
- switch(toupper(getch())) {
- case '?':
- printf("\n"
- "\n"
- "(R)e-read current message\n"
- "(L)ist messages\n"
- "(T)en more titles\n"
- "(V)iew message headers\n"
- "(Q)uit\n"
- "(+/-) Forward/Backward\n"
- "\n");
- domsg=0;
- break;
- case 'Q':
- printf("Quit\n");
- done=1;
- break;
- case 'R':
- printf("Re-read\n");
- break;
- case '-':
- printf("Backwards\n");
- if(msg.offset)
- msg.offset--;
- break;
- case 'T':
- printf("Ten titles\n");
- listmsgs(msg.offset+2,10);
- msg.offset+=10;
- domsg=0;
- break;
- case 'L':
- printf("List messages\n");
- listmsgs(1,-1);
- domsg=0;
- break;
- case 'V':
- printf("View message headers\n");
- viewmsgs(1,-1);
- domsg=0;
- break;
- case CR:
- case '+':
- printf("Next\n");
- msg.offset++;
- break; } }
-}
-
-/***************/
-/* Entry point */
-/***************/
-int main(int argc, char **argv)
-{
- char cmd[128]="",*p,*s;
- int i,j,x,y;
- ulong l;
- smbstatus_t status;
-
-#ifdef __TURBOC__
- timezone=0; /* Fix for Borland C++ EST default */
- daylight=0; /* Fix for Borland C++ EDT default */
-#elif defined(__WATCOMC__)
- putenv("TZ=UCT0"); /* Fix for Watcom C++ EDT default */
-#endif
-setvbuf(stdout,0,_IONBF,0);
-
-smb_file[0]=0;
-printf("\nSynchronet Message Base Utility v%s "\
- "Copyright 1995 Digital Dynamics\n\n"
- ,SMBUTIL_VER);
-for(x=1;x<argc;x++) {
- if(argv[x][0]=='/') {
- for(j=1;argv[x][j];j++)
- switch(toupper(argv[x][j])) {
- case 'A':
- mode|=NOANALYSIS;
- break;
- case 'Z':
- if(isdigit(argv[x][j+1]))
- tzone=atoi(argv[x]+j+1);
- else if(!stricmp(argv[x]+j+1,"EST"))
- tzone=EST;
- else if(!stricmp(argv[x]+j+1,"EDT"))
- tzone=EDT;
- else if(!stricmp(argv[x]+j+1,"CST"))
- tzone=CST;
- else if(!stricmp(argv[x]+j+1,"CDT"))
- tzone=CDT;
- else if(!stricmp(argv[x]+j+1,"MST"))
- tzone=MST;
- else if(!stricmp(argv[x]+j+1,"MDT"))
- tzone=MDT;
- else if(!stricmp(argv[x]+j+1,"PST"))
- tzone=PST;
- else if(!stricmp(argv[x]+j+1,"PDT"))
- tzone=PDT;
- j=strlen(argv[x])-1;
- break;
- default:
- printf("\nUnknown opt '%c'\n",argv[x][j]);
- case '?':
- printf("%s",usage);
- exit(1);
- break; } }
- else {
- if(!cmd[0])
- strcpy(cmd,argv[x]);
- else {
- sprintf(smb_file,"%.64s",argv[x]);
- p=strrchr(smb_file,'.');
- s=strrchr(smb_file,'\\');
- if(p>s) *p=0;
- strupr(smb_file);
- printf("Opening %s\r\n",smb_file);
- if((i=smb_open(10))!=0) {
- printf("error %d opening %s message base\n",i,smb_file);
- exit(1); }
- if(!filelength(fileno(shd_fp))) {
- printf("Empty\n");
- smb_close();
- continue; }
- for(y=0;cmd[y];y++)
- switch(toupper(cmd[y])) {
- case 'I':
- strcpy(filein,cmd+1);
- i=smb_locksmbhdr(10);
- if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return(1); }
- i=smb_getstatus(&status);
- if(i) {
- printf("smb_getstatus returned %d\n",i);
- return(1); }
- smb_unlocksmbhdr();
- postmsg(status);
- y=strlen(cmd)-1;
- break;
- case 'K':
- printf("Killing %lu messages...\n",atol(cmd+1));
- l=kill(atol(cmd+1));
- printf("%lu messages killed.\n",l);
- y=strlen(cmd)-1;
- break;
- case 'S':
- showstatus();
- break;
- case 'C':
- config();
- break;
- case 'L':
- listmsgs(atol(cmd+1),-1L);
- y=strlen(cmd)-1;
- break;
- case 'P':
- packmsgs(atol(cmd+y+1));
- y=strlen(cmd)-1;
- break;
- case 'R':
- readmsgs(atol(cmd+1));
- y=strlen(cmd)-1;
- break;
- case 'V':
- viewmsgs(atol(cmd+1),-1L);
- y=strlen(cmd)-1;
- break;
- case 'M':
- maint();
- break;
- default:
- printf("%s",usage);
- break; }
- smb_close(); } } }
-if(!cmd[0])
- printf("%s",usage);
-return(0);
-}
diff --git a/src/sbbs2/smb/121a/smbutil.h b/src/sbbs2/smb/121a/smbutil.h
deleted file mode 100644
index 1c8284fec124d28454ab5206a5019ffbbed159b4..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smbutil.h
+++ /dev/null
@@ -1,10 +0,0 @@
-/* SMBUTIL.H */
-
-#define NOANALYSIS (1L<<0)
-
-#ifdef __WATCOMC__
- #define ffblk find_t
- #define findfirst(x,y,z) _dos_findfirst(x,z,y)
- #define findnext(x) _dos_findnext(x)
-#endif
-
diff --git a/src/sbbs2/smb/121a/smbutil.wat b/src/sbbs2/smb/121a/smbutil.wat
deleted file mode 100644
index a5a588c6279228bee2059a6db59697ab7f34ab7c..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smbutil.wat
+++ /dev/null
@@ -1,60 +0,0 @@
-#########################################################################
-# Makefile for SMBUTIL #
-# For use with Watcom C #
-# Tabstop=8 #
-# #
-# To use this makefile, you must create the following sub-directories: #
-# DOS, OS2, and DOSX. #
-# #
-# You must also copy the file \WATCOM\SRC\STARTUP\WILDARGV.C into the #
-# current directory. #
-#########################################################################
-
-# Macros
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc -ml
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-CFLAGS = -I=\watcom\h -bt=$(OS) -fo=$(OS)\ -DLZH_DYNAMIC_BUF
-MAIN = $(OS)\smbutil.exe
-OBJS = $(OS)\smbutil.obj $(OS)\smblib.obj $(OS)\smbvars.obj $(OS)\lzh.obj &
- $(OS)\wildargv.obj
-HEADERS = smbutil.h smblib.h smbdefs.h crc32.h lzh.h
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-
-LFLAGS = system $(SYSTEM)
-
-
-# Implicit C Compile Rule
-.obj: $(OS)
-.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# All .obj modules
-$(OS)\smbutil.obj:: $(HEADERS)
-$(OS)\smbvars.obj:: $(HEADERS)
-$(OS)\smblib.obj:: $(HEADERS)
-$(OS)\lzh.obj:: $(HEADERS)
diff --git a/src/sbbs2/smb/121a/smbvars.c b/src/sbbs2/smb/121a/smbvars.c
deleted file mode 100644
index 9b80d699e636c3dcc01d5f15c464c5b544bcf47a..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/121a/smbvars.c
+++ /dev/null
@@ -1,22 +0,0 @@
-/* SMBVARS.C */
-
-/*************************************************************************/
-/* Global variables for SMBLIB. Same file used for both header and code. */
-/*************************************************************************/
-
-#ifndef GLOBAL
-#define GLOBAL
-#endif
-
-#include "smbdefs.h"
-#include <stdio.h>
-
-GLOBAL char smb_file[128]; /* path and filename for SMB file (no ext) */
-GLOBAL char shd_buf[SHD_BLOCK_LEN];
-GLOBAL FILE *sdt_fp;
-GLOBAL FILE *shd_fp;
-GLOBAL FILE *sid_fp;
-GLOBAL FILE *sda_fp;
-GLOBAL FILE *sha_fp;
-GLOBAL FILE *sch_fp;
-
diff --git a/src/sbbs2/smb/chksmb/chksmb.c b/src/sbbs2/smb/chksmb/chksmb.c
deleted file mode 100644
index 9c8a5a86f929df9a2b786ee9b856739f07cf31c9..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/chksmb/chksmb.c
+++ /dev/null
@@ -1,672 +0,0 @@
-/* CHKSMB.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <dos.h>
-#include "smblib.h"
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct find_t f;
-
-if(!_dos_findfirst(filespec,0,&f))
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns in 'string' a character representation of the number in l with */
-/* commas. */
-/****************************************************************************/
-char *ultoac(ulong l, char *string)
-{
- char str[256];
- signed char i,j,k;
-
-ultoa(l,str,10);
-i=strlen(str)-1;
-j=i/3+1+i;
-string[j--]=0;
-for(k=1;i>-1;k++) {
- string[j--]=str[i--];
- if(j>0 && !(k%3))
- string[j--]=','; }
-return(string);
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(fidoaddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-char *usage="\nusage: chksmb [/opts] <filespec.SHD>\n"
- "\n"
- " opts:\n"
- " s - stop after errored message base\n"
- " p - pause after errored messsage base\n"
- " q - quiet mode (no beeps while checking)\n"
- " a - don't check allocation files\n"
- " t - don't check translation strings\n"
- " e - display extended info on corrupted msgs\n";
-
-int main(int argc, char **argv)
-{
- char str[128],*p,*s,*beep="\7";
- int i,j,x,y,lzh,errors,errlast,stop_on_error=0,pause_on_error=0
- ,chkxlat=1,chkalloc=1,lzhmsg,extinfo=0,msgerr;
- ushort xlat;
- ulong l,m,n,length,size,total=0,orphan=0,deleted=0,headers=0
- ,*offset,*number,xlaterr
- ,delhdrblocks,deldatblocks,hdrerr=0,lockerr=0,hdrnumerr=0
- ,acthdrblocks,actdatblocks
- ,dfieldlength=0,dfieldoffset=0
- ,dupenum=0,dupenumhdr=0,dupeoff=0,attr=0,actalloc=0
- ,datactalloc=0,misnumbered=0,timeerr=0,idxofferr=0,idxerr
- ,zeronum,idxzeronum,idxnumerr,packable=0L,totallzhsaved=0L
- ,totalmsgs=0,totallzhmsgs=0,totaldelmsgs=0,totalmsgbytes=0L
- ,lzhblocks,lzhsaved;
- smb_t smb;
- idxrec_t idx;
- smbmsg_t msg;
-
-fprintf(stderr,"\nCHKSMB v2.00� � Check Synchronet Message Base � "
- "Devloped 1995-1997 Rob Swindell\n");
-
-if(argc<2) {
- printf("%s",usage);
- exit(1); }
-
-errlast=errors=0;
-for(x=1;x<argc;x++) {
- if(stop_on_error && errors)
- break;
- if(pause_on_error && errlast!=errors) {
- fprintf(stderr,"\7\nHit any key to continue...");
- if(!getch())
- getch();
- printf("\n"); }
- errlast=errors;
- if(argv[x][0]=='/') {
- for(y=1;argv[x][y];y++)
- switch(toupper(argv[x][y])) {
- case 'Q':
- beep="";
- break;
- case 'P':
- pause_on_error=1;
- break;
- case 'S':
- stop_on_error=1;
- break;
- case 'T':
- chkxlat=0;
- break;
- case 'A':
- chkalloc=0;
- break;
- case 'E':
- extinfo=1;
- break;
- default:
- printf("%s",usage);
- exit(1); }
- continue; }
-
-strcpy(smb.file,argv[x]);
-p=strrchr(smb.file,'.');
-s=strrchr(smb.file,'\\');
-if(p>s) *p=0;
-strupr(smb.file);
-
-sprintf(str,"%s.SHD",smb.file);
-if(!fexist(str)) {
- printf("\n%s doesn't exist.\n",smb.file);
- continue; }
-
-fprintf(stderr,"\nChecking %s Headers\n\n",smb.file);
-
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- errors++;
- continue; }
-
-length=filelength(fileno(smb.shd_fp));
-if(length<sizeof(smbhdr_t)) {
- printf("Empty\n");
- smb_close(&smb);
- continue; }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- printf("smb_locksmbhdr returned %d\n",i);
- errors++;
- continue; }
-
-if((length/SHD_BLOCK_LEN)*sizeof(ulong)) {
- if((number=(ulong *)MALLOC(((length/SHD_BLOCK_LEN)+2)*sizeof(ulong)))
- ==NULL) {
- printf("Error allocating %lu bytes of memory\n"
- ,(length/SHD_BLOCK_LEN)*sizeof(ulong));
- return(++errors); } }
-else
- number=NULL;
-
-if(chkalloc && !(smb.status.attr&SMB_HYPERALLOC)) {
- if((i=smb_open_ha(&smb))!=0) {
- printf("smb_open_ha returned %d\n",i);
- return(++errors); }
-
- if((i=smb_open_da(&smb))!=0) {
- printf("smb_open_da returned %d\n",i);
- return(++errors); } }
-
-headers=deleted=orphan=dupenumhdr=attr=zeronum=timeerr=lockerr=hdrerr=0;
-actalloc=datactalloc=deldatblocks=delhdrblocks=xlaterr=0;
-lzhblocks=lzhsaved=acthdrblocks=actdatblocks=0;
-
-for(l=smb.status.header_offset;l<length;l+=size) {
- fprintf(stderr,"\r%2u%% ",(long)(100.0/((float)length/l)));
- msg.idx.offset=l;
- msgerr=0;
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
- lockerr++;
- headers++;
- size=SHD_BLOCK_LEN;
- continue; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- if(chkalloc && !(smb.status.attr&SMB_HYPERALLOC)) {
- fseek(smb.sha_fp
- ,(l-smb.status.header_offset)/SHD_BLOCK_LEN,SEEK_SET);
- j=fgetc(smb.sha_fp);
- if(j) { /* Allocated block or at EOF */
- printf("%s\n(%06lX) smb_getmsghdr returned %d\n",beep,l,i);
- hdrerr++; }
- else
- delhdrblocks++; }
- else {
- /* printf("%s\n(%06lX) smb_getmsghdr returned %d\n",beep,l,i); */
- delhdrblocks++; }
- size=SHD_BLOCK_LEN;
- continue; }
- smb_unlockmsghdr(&smb,&msg);
- fprintf(stderr,"#%-5lu (%06lX) %-25.25s ",msg.hdr.number,l,msg.from);
-
- lzhmsg=0;
- if(msg.hdr.attr&MSG_DELETE) {
- deleted++;
- if(number)
- number[headers]=0;
- if(smb.status.attr&SMB_HYPERALLOC)
- deldatblocks+=smb_datblocks(smb_getmsgdatlen(&msg)); }
- else {
- actdatblocks+=smb_datblocks(smb_getmsgdatlen(&msg));
- if(msg.hdr.number>smb.status.last_msg) {
- fprintf(stderr,"%sOut-Of-Range message number\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number (%lu) greater than last (%lu)\n"
- ,msg.hdr.number,smb.status.last_msg);
- hdrnumerr++; }
-
- if(smb_getmsgidx(&smb,&msg)) {
- fprintf(stderr,"%sNot found in index\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number (%lu) not found in index\n"
- ,msg.hdr.number);
- orphan++; }
- else if(msg.hdr.attr!=msg.idx.attr) {
- fprintf(stderr,"%sAttributes mismatch index\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header attributes (%04X) do not match index "
- "attributes (%04X)\n"
- ,msg.hdr.attr,msg.idx.attr);
- attr++; }
- else if(msg.hdr.when_imported.time!=msg.idx.time) {
- fprintf(stderr,"%sImport date/time mismatch index\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header import date/time does not match "
- "index import date/time\n");
- timeerr++; }
-
- if(msg.hdr.number==0) {
- fprintf(stderr,"%sZero message number\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number is zero (invalid)\n");
- zeronum++; }
- if(number) {
- for(m=0;m<headers;m++)
- if(number[m] && msg.hdr.number==number[m]) {
- fprintf(stderr,"%sDuplicate message number\n",beep);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Header number (%lu) duplicated\n"
- ,msg.hdr.number);
- dupenumhdr++;
- break; }
- number[headers]=msg.hdr.number; }
- if(chkxlat) { /* Check translation strings */
- for(i=0;i<msg.hdr.total_dfields;i++) {
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset,SEEK_SET);
- if(!fread(&xlat,2,1,smb.sdt_fp))
- xlat=0xffff;
- lzh=0;
- if(xlat==XLAT_LZH) {
- lzh=1;
- if(!fread(&xlat,2,1,smb.sdt_fp))
- xlat=0xffff; }
- if(xlat!=XLAT_NONE) {
- fprintf(stderr,"%sUnsupported Xlat %04X dfield[%u]\n"
- ,beep,xlat,i);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Unsupported translation type (%04X) "
- "in dfield[%u]\n"
- ,xlat,i);
- xlaterr++; }
- else {
- if(lzh) {
- lzhmsg=1;
- if(fread(&m,4,1,smb.sdt_fp)) { /* Get uncompressed len */
- lzhsaved+=(smb_datblocks(m+2)
- -smb_datblocks(msg.dfield[i].length))
- *SDT_BLOCK_LEN;
- lzhblocks+=smb_datblocks(msg.dfield[i].length);
- } } } } } }
-
- size=smb_getmsghdrlen(&msg);
- while(size%SHD_BLOCK_LEN)
- size++;
-
- if(chkalloc && !(smb.status.attr&SMB_HYPERALLOC)) {
- fseek(smb.sha_fp,(l-smb.status.header_offset)/SHD_BLOCK_LEN,SEEK_SET);
- for(m=0;m<size;m+=SHD_BLOCK_LEN) {
-/***
- if(msg.hdr.attr&MSG_DELETE && (i=fgetc(smb.sha_fp))!=0) {
- fprintf(stderr,"%sDeleted Header Block %lu marked %02X\n"
- ,beep,m/SHD_BLOCK_LEN,i);
- msgerr=1;
- delalloc++; }
-***/
- if(!(msg.hdr.attr&MSG_DELETE) && (i=fgetc(smb.sha_fp))!=1) {
- fprintf(stderr,"%sActive Header Block %lu marked %02X\n"
- ,beep,m/SHD_BLOCK_LEN,i);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Active header block %lu marked %02X "
- "instead of 01\n"
- ,m/SHD_BLOCK_LEN,i);
- actalloc++; } }
-
- if(!(msg.hdr.attr&MSG_DELETE)) {
- acthdrblocks+=(size/SHD_BLOCK_LEN);
- for(n=0;n<msg.hdr.total_dfields;n++) {
- if(msg.dfield[n].offset&0x80000000UL) {
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Invalid Data Field [%u] Offset: %lu\n"
- ,n,msg.dfield[n].offset);
- dfieldoffset++; }
- if(msg.dfield[n].length&0x80000000UL) {
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Invalid Data Field [%u] Length: %lu\n"
- ,n,msg.dfield[n].length);
- dfieldlength++; }
- fseek(smb.sda_fp
- ,((msg.hdr.offset+msg.dfield[n].offset)/SDT_BLOCK_LEN)*2
- ,SEEK_SET);
- for(m=0;m<msg.dfield[n].length;m+=SDT_BLOCK_LEN) {
- if(!fread(&i,2,1,smb.sda_fp) || !i) {
- fprintf(stderr
- ,"%sActive Data Block %lu.%lu marked free\n"
- ,beep,n,m/SHD_BLOCK_LEN);
- msgerr=1;
- if(extinfo)
- printf("MSGERR: Active Data Block %lu.%lu "
- "marked free\n"
- ,n,m/SHD_BLOCK_LEN);
- datactalloc++; } } } }
- else
- delhdrblocks+=(size/SHD_BLOCK_LEN); }
-
- else { /* Hyper Alloc */
- if(msg.hdr.attr&MSG_DELETE)
- delhdrblocks+=(size/SHD_BLOCK_LEN);
- else
- acthdrblocks+=(size/SHD_BLOCK_LEN); }
-
- totallzhmsgs+=lzhmsg;
- headers++;
- if(msgerr && extinfo) {
- printf("\n");
- printf("%-20s: %s\n","Message Base",smb.file);
- printf("%-20s: %lu (%lu)\n","Message Number"
- ,msg.hdr.number,msg.offset+1);
- printf("%-20s: %s\n","Subject",msg.subj);
- printf("%-20s: %s","To",msg.to);
- if(msg.to_net.type)
- printf(" (%s)",msg.to_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.to_net.addr) : msg.to_net.addr);
- printf("\n%-20s: %s","From",msg.from);
- if(msg.from_net.type)
- printf(" (%s)",msg.from_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.from_net.addr)
- : msg.from_net.addr);
- printf("\n");
- printf("%-20s: %.24s\n","When Written"
- ,ctime((time_t *)&msg.hdr.when_written.time));
- printf("%-20s: %.24s\n","When Imported"
- ,ctime((time_t *)&msg.hdr.when_imported.time));
- printf("%-20s: %04hXh\n","Type"
- ,msg.hdr.type);
- printf("%-20s: %04hXh\n","Version"
- ,msg.hdr.version);
- printf("%-20s: %u\n","Length"
- ,msg.hdr.length);
- printf("%-20s: %04hXh\n","Attributes"
- ,msg.hdr.attr);
- printf("%-20s: %08lXh\n","Auxilary Attributes"
- ,msg.hdr.auxattr);
- printf("%-20s: %08lXh\n","Network Attributes"
- ,msg.hdr.netattr);
- printf("%-20s: %06lXh\n","Header Offset"
- ,msg.idx.offset);
- printf("%-20s: %06lXh\n","Data Offset"
- ,msg.hdr.offset);
- printf("%-20s: %u\n","Total Data Fields"
- ,msg.hdr.total_dfields);
- printf("\n"); }
-
- smb_freemsgmem(&msg); }
-
-if(number)
- FREE(number);
-
-fprintf(stderr,"\r%79s\r100%%\n","");
-
-
-if(chkalloc && !(smb.status.attr&SMB_HYPERALLOC)) {
-
- fprintf(stderr,"\nChecking %s Data Blocks\n\n",smb.file);
-
- length=filelength(fileno(smb.sda_fp));
-
- fseek(smb.sda_fp,0L,SEEK_SET);
- for(l=0;l<length;l+=2) {
- fprintf(stderr,"\r%2u%% ",l ? (long)(100.0/((float)length/l)) : 0);
- i=0;
- if(!fread(&i,2,1,smb.sda_fp))
- break;
- if(!i)
- deldatblocks++; }
-
- fclose(smb.sha_fp);
- fclose(smb.sda_fp);
-
- fprintf(stderr,"\r%79s\r100%%\n",""); }
-
-total=filelength(fileno(smb.sid_fp))/sizeof(idxrec_t);
-
-dupenum=dupeoff=misnumbered=idxzeronum=idxnumerr=idxofferr=idxerr=0;
-
-if(total) {
-
-fprintf(stderr,"\nChecking %s Index\n\n",smb.file);
-
-if((offset=(ulong *)MALLOC(total*sizeof(ulong)))==NULL) {
- printf("Error allocating %lu bytes of memory\n",total*sizeof(ulong));
- return(++errors); }
-if((number=(ulong *)MALLOC(total*sizeof(ulong)))==NULL) {
- printf("Error allocating %lu bytes of memory\n",total*sizeof(ulong));
- return(++errors); }
-fseek(smb.sid_fp,0L,SEEK_SET);
-
-for(l=0;l<total;l++) {
- fprintf(stderr,"\r%2lu%% %5lu ",l ? (long)(100.0/((float)total/l)) : 0,l);
- if(!fread(&idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- fprintf(stderr,"#%-5lu (%06lX) 1st Pass ",idx.number,idx.offset);
-/***
- if(idx.attr&MSG_DELETE) {
- fprintf(stderr,"%sMarked for deletion\n",beep);
- delidx++; }
-***/
- for(m=0;m<l;m++)
- if(number[m]==idx.number) {
- fprintf(stderr,"%sDuplicate message number\n",beep);
- dupenum++;
- break; }
- for(m=0;m<l;m++)
- if(offset[m]==idx.offset) {
- fprintf(stderr,"%sDuplicate offset\n",beep,idx.offset);
- dupeoff++;
- break; }
- if(idx.offset<smb.status.header_offset) {
- fprintf(stderr,"%sInvalid offset\n",beep);
- idxofferr++;
- break; }
- if(idx.number==0) {
- fprintf(stderr,"%sZero message number\n",beep);
- idxzeronum++;
- break; }
- if(idx.number>smb.status.last_msg) {
- fprintf(stderr,"%sOut-Of-Range message number\n",beep);
- idxnumerr++;
- break; }
- number[l]=idx.number;
- offset[l]=idx.offset; }
-
-if(l<total) {
- fprintf(stderr,"%sError reading index record\n",beep);
- idxerr=1; }
-else {
- fprintf(stderr,"\r%79s\r","");
- for(m=0;m<total;m++) {
- fprintf(stderr,"\r%2lu%% %5lu ",m ? (long)(100.0/((float)total/m)) : 0,m);
- fprintf(stderr,"#%-5lu (%06lX) 2nd Pass ",number[m],offset[m]);
- for(n=0;n<m;n++)
- if(number[m] && number[n] && number[m]<number[n]) {
- fprintf(stderr,"%sMisordered message number\n",beep);
- misnumbered++;
- number[n]=0;
- break; } }
- fprintf(stderr,"\r%79s\r100%%\n",""); }
-FREE(number);
-FREE(offset);
-
-} /* if(total) */
-
-totalmsgs+=smb.status.total_msgs;
-totalmsgbytes+=(acthdrblocks*SHD_BLOCK_LEN)+(actdatblocks*SDT_BLOCK_LEN);
-totaldelmsgs+=deleted;
-totallzhsaved+=lzhsaved;
-printf("\n");
-printf("%-35.35s (=): %lu\n"
- ,"Status Total"
- ,smb.status.total_msgs);
-printf("%-35.35s (=): %lu\n"
- ,"Index Records"
- ,total);
-printf("%-35.35s (=): %lu\n"
- ,"Active Headers"
- ,headers-deleted);
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Active Header Blocks"
- ,acthdrblocks,ultoac(acthdrblocks*SHD_BLOCK_LEN,str));
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Active Data Blocks"
- ,actdatblocks,ultoac(actdatblocks*SDT_BLOCK_LEN,str));
-if(lzhblocks)
- printf("%-35.35s ( ): %-8lu %13s bytes saved\n"
- ,"Active LZH Compressed Data Blocks"
- ,lzhblocks,ultoac(lzhsaved,str));
-printf("%-35.35s ( ): %lu\n"
- ,"Header Records"
- ,headers);
-printf("%-35.35s ( ): %lu\n"
- ,"Deleted Headers"
- ,deleted);
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Deleted Header Blocks"
- ,delhdrblocks,ultoac(delhdrblocks*SHD_BLOCK_LEN,str));
-packable+=(delhdrblocks*SHD_BLOCK_LEN);
-printf("%-35.35s ( ): %-8lu %13s bytes used\n"
- ,"Deleted Data Blocks"
- ,deldatblocks,ultoac(deldatblocks*SDT_BLOCK_LEN,str));
-packable+=(deldatblocks*SDT_BLOCK_LEN);
-
-if(orphan)
- printf("%-35.35s (!): %lu\n"
- ,"Orphaned Headers"
- ,orphan);
-if(idxzeronum)
- printf("%-35.35s (!): %lu\n"
- ,"Zeroed Index Numbers"
- ,idxzeronum);
-if(zeronum)
- printf("%-35.35s (!): %lu\n"
- ,"Zeroed Header Numbers"
- ,zeronum);
-/***
-if(delidx)
- printf("%-35.35s (!): %lu\n"
- ,"Deleted Index Records"
- ,delidx);
-***/
-if(idxofferr)
- printf("%-35.35s (!): %lu\n"
- ,"Invalid Index Offsets"
- ,idxofferr);
-if(dupenum)
- printf("%-35.35s (!): %lu\n"
- ,"Duplicate Index Numbers"
- ,dupenum);
-if(dupeoff)
- printf("%-35.35s (!): %lu\n"
- ,"Duplicate Index Offsets"
- ,dupeoff);
-if(dupenumhdr)
- printf("%-35.35s (!): %lu\n"
- ,"Duplicate Header Numbers"
- ,dupenumhdr);
-if(misnumbered)
- printf("%-35.35s (!): %lu\n"
- ,"Misordered Index Numbers"
- ,misnumbered);
-if(lockerr)
- printf("%-35.35s (!): %lu\n"
- ,"Unlockable Header Records"
- ,lockerr);
-if(hdrerr)
- printf("%-35.35s (!): %lu\n"
- ,"Unreadable Header Records"
- ,hdrerr);
-if(idxnumerr)
- printf("%-35.35s (!): %lu\n"
- ,"Out-Of-Range Index Numbers"
- ,idxnumerr);
-if(hdrnumerr)
- printf("%-35.35s (!): %lu\n"
- ,"Out-Of-Range Header Numbers"
- ,hdrnumerr);
-if(attr)
- printf("%-35.35s (!): %lu\n"
- ,"Mismatched Header Attributes"
- ,attr);
-if(timeerr)
- printf("%-35.35s (!): %lu\n"
- ,"Mismatched Header Import Time"
- ,timeerr);
-if(xlaterr)
- printf("%-35.35s (!): %lu\n"
- ,"Unsupported Translation Types"
- ,xlaterr);
-if(datactalloc)
- printf("%-35.35s (!): %lu\n"
- ,"Misallocated Active Data Blocks"
- ,datactalloc);
-if(actalloc)
- printf("%-35.35s (!): %lu\n"
- ,"Misallocated Active Header Blocks"
- ,actalloc);
-/***
-if(delalloc)
- printf("%-35.35s (!): %lu\n"
- ,"Misallocated Deleted Header Blocks"
- ,delalloc);
-***/
-
-if(dfieldoffset)
- printf("%-35.35s (!): %lu\n"
- ,"Invalid Data Field Offsets"
- ,dfieldoffset);
-
-if(dfieldlength)
- printf("%-35.35s (!): %lu\n"
- ,"Invalid Data Field Lengths"
- ,dfieldlength);
-
-
-printf("\n%s Message Base ",smb.file);
-if((headers-deleted)!=smb.status.total_msgs || total!=smb.status.total_msgs
- || (headers-deleted)!=total || idxzeronum || zeronum
- || orphan || dupenumhdr || dupenum || dupeoff || attr
- || lockerr || hdrerr || hdrnumerr || idxnumerr || idxofferr
- || actalloc || datactalloc || misnumbered || timeerr
- || dfieldoffset || dfieldlength || xlaterr || idxerr) {
- printf("%shas Errors!\n",beep);
- errors++; }
-else
- printf("is OK\n");
-
-smb_unlocksmbhdr(&smb);
-smb_close(&smb);
-}
-
-if((totalmsgs && (totalmsgs!=smb.status.total_msgs || totallzhmsgs))
- || packable)
- printf("\n");
-if(totalmsgs && totalmsgs!=smb.status.total_msgs)
- printf("%-39.39s: %-8lu %13s bytes used\n"
- ,"Total Active Messages"
- ,totalmsgs,ultoac(totalmsgbytes,str));
-if(totallzhmsgs && totalmsgs!=smb.status.total_msgs)
- printf("%-39.39s: %-8lu %13s bytes saved\n"
- ,"Total LZH Compressed Messages"
- ,totallzhmsgs,ultoac(totallzhsaved,str));
-if(packable)
- printf("%-39.39s: %-8lu %13s bytes used\n"
- ,"Total Deleted Messages"
- ,totaldelmsgs,ultoac(packable,str));
-
-if(pause_on_error && errlast!=errors) {
- fprintf(stderr,"\7\nHit any key to continue...");
- if(!getch())
- getch();
- fprintf(stderr,"\n"); }
-
-
-return(errors);
-}
diff --git a/src/sbbs2/smb/chksmb/makefile b/src/sbbs2/smb/chksmb/makefile
deleted file mode 100644
index 186a09f140fd50148f1f6243412e36609467c326..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/chksmb/makefile
+++ /dev/null
@@ -1,52 +0,0 @@
-###############################
-# Makefile for CHKSMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-
-OS = DOS
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include;..
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LFLAGS = -n -c
-
-!ifdef __OS2__
-OS = OS2
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;..
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE) -w-pro
-LFLAGS = -c -w-srf
-!endif
-
-MAIN = $(OS)\chksmb.exe
-OBJS = $(OS)\chksmb.obj $(OS)\smblib.obj
-HEADERS = ..\smblib.h ..\smbdefs.h ..\crc32.h
-
-# Implicit C Compile Rule
-{.;..}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# All .obj modules
-$(OS)\chksmb.obj: $(HEADERS)
-$(OS)\smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/crc16.c b/src/sbbs2/smb/crc16.c
deleted file mode 100644
index 81ba4c9a9839f7d6e29c8a5fe37951aafc34b7ad..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/crc16.c
+++ /dev/null
@@ -1,39 +0,0 @@
-/* CRC16.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* 16-bit CRC routines */
-
-#include "smblib.h"
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort SMBCALL crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
diff --git a/src/sbbs2/smb/crc32.c b/src/sbbs2/smb/crc32.c
deleted file mode 100644
index f432032d1ca020206548ea0016ee9bb3939acc51..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/crc32.c
+++ /dev/null
@@ -1,23 +0,0 @@
-/* CRC32.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* 32-bit CRC of a buffer */
-
-#include "smblib.h"
-#include "crc32.h"
-
-#ifdef __NT__
-# define CRCCALL _pascal
-#else
-# define CRCCALL
-#endif
-
-ulong CRCCALL crc32(char *buf, ulong len)
-{
- ulong l,crc=0xffffffff;
-
-for(l=0;l<len;l++)
- crc=ucrc32(buf[l],crc);
-return(~crc);
-}
diff --git a/src/sbbs2/smb/crc32.h b/src/sbbs2/smb/crc32.h
deleted file mode 100644
index d0127ab888f88059c8bd06d64dd07a4663c4533b..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/crc32.h
+++ /dev/null
@@ -1,42 +0,0 @@
-/* 32-bit CRC */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-long crc32tbl[]={ /* CRC polynomial 0xedb88320 */
-0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
-0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988, 0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
-0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
-0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
-0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172, 0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
-0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
-0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
-0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924, 0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
-0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
-0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
-0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e, 0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
-0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
-0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
-0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0, 0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
-0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
-0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
-0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a, 0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
-0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
-0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
-0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc, 0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
-0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
-0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
-0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236, 0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
-0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
-0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
-0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38, 0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
-0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
-0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
-0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2, 0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
-0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
-0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
-0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94, 0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
-};
-
-#define ucrc32(ch,crc) (crc32tbl[(crc^ch)&0xff]^(crc>>8))
-
-
diff --git a/src/sbbs2/smb/docs/smb.hst b/src/sbbs2/smb/docs/smb.hst
deleted file mode 100644
index c13f8c1a98adfdbae930df07d87f45b8e72dd361..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/docs/smb.hst
+++ /dev/null
@@ -1,327 +0,0 @@
-Synchronet Message Base Specification Modification History
-==========================================================
-
-******************************
-01/20/94 Initial Release v1.00
-******************************
-
-Quite a few spelling errors in SMB.TXT corrected.
-
-Estimated maximum number of messages (in Introduction of SMB.TXT) formula
-corrected (1500 rounded to nearest 256 is 1536, not 2048).
-
-Pages 32 and 38 (SENDEREXT and RECIPIENTEXT header field types) incorrectly
-stated the index record contains CRC-32s, when in fact the index contains
-CRC-16s of the agent names or extensions.
-
-FORWARDTO header field types incorrectly stated they were for replies, rather
-than forwarding instructions.
-
-Trigger header field types incorrectly stated they were "attachments" rather
-than triggers.
-
-Bug fixed in smb_open() function in smblib.c: was allocating buffer via
-setvbuf for wrong file pointer when opening header file. Caused loss of
-memory (2k) everytime smb_open() was called.
-
-Bug fixed in smb_getmsghdr() function in smblib.c: msg->from_agent,to_agent,
-and replyto_agent were not initialized properly.
-
-Added from_ext, to_ext, and replyto_ext fields to msg struct. Initialized
-with call to smb_getmsghdr() function. These are convenience pointers for
-the to, from, and replyto agent extensions (user numbers, usually).
-
-Fixed a nasty bug in the smb_freemsgdat() function, causing odd values in the
-SDA file and cross-linked messages when fast allocation mode was not used for
-new messages.
-
-smb_putmsghdr() function replaced by smb_putmsg() and it calls smb_putmsghdr()
-and smb_putmsgidx() - previously smb_putmsghdr() actually wrote the header
-and the index. So you must change any occurances of smb_putmsghdr() to
-smb_putmsg() if you intend to write to both the index and header records.
-
-smb_open() now takes a "retry_time" parameter (number of seconds) to lock
-and read the message base header and verify the "id" and "version". Added
-new error codes: -1 indicates failure to lock message base header, -2 indicates
-id mismatch, and -3 indicates incompatible message base version.
-
-rewind() and clearerr() calls added to library functions to eliminate the
-problem of "sticky" error flags when using fread() and fwrite(). Reordered
-the use of chsize() to force seeking (with fseek()) before using the file
-descriptor operation (chsize()) would would fail under some circumstances.
-
-smb_getmsgidx() function now uses "fast" message number look-up algorythm.
-
-Added smb_getlastidx() function to retrieve the last index in the message
-base.
-
-Allocation strategy for hfield and dfield elements of the smbmsg_t structure
-were changed to require less memory. Rather than an array of pointers (pointer
-to a pointer) of type hfield_t or dfield_t, they are simply an array (pointer)
-of type hfield_t or dfield_t. The only change you need to make are any
-references to "smbmsg_t.hfield[x]->etc" to "smbmsg_t.hfield[x].etc".
-
-Added several new error codes to smb_getmsghdr(). -7 indicates missing one
-of the three mandatory header fields (sender, recipient, or subject). -8
-indicates that total_dfields element of smbhdr_t is incorrect (extends beyond
-smbhdr_t.length). -9 indicates incompatible header version.
-
-New error code to smb_addcrc(), -4 indicates error getting length of file.
-
-smb_putmsghdr() returns -2 on failure write header, -3 on failure to write
-dfield, -4 on failure to write hfield (fixed), -5 on failure to write hfield
-(data), and -6 on failure to pad record with NULLs.
-
-Bugs fixed in sample conversion source code and SMBUTIL: Overwriting first
-two bytes of next record when using self-packing storage, SBBSFIDO would
-crash on blank kludge lines, SEEN-BYs weren't converted properly by SBBSFIDO,
-and more.
-
-*** IMPORTANT ***
-Index format changed, added message time field to idxrec_t for fast pointer
-manipulation by (import) date/time stamp. This is SMB format v1.10 and is
-not compatible with the v1.00 format. A conversion program (100TO110.EXE)
-is included with source code for converted any existing message bases.
-
-CHKSMB, a utility for checking message bases for corruption, included with
-SMBLIB.
-
-SMBUTIL and CHKSMB both accept wildcard arguments for processing multiple
-message bases.
-
-idxrec_t.to and idxrec_t.from may contain USER NUMBER instead of CRC of user
-names. This implementation is currently specific to E-mail boxes on Synchronet
-BBS. E-mail from non-local users are stored with a "from" field of 0.
-
-**********************
-03/28/94 Release v1.10
-**********************
-
-Forgot to include this file (oops).
-
-***********************
-03/28/94 Release v1.10a
-***********************
-
-Fixed problem with buffered fread() routine attempting to read into a locked
-regions.
-
-Added smb_stack() function for saving (pushing) currently open message base
-and ability to pop it off later.
-
-Added fix for keeping original sender information in smbmsg_t structure when
-a message has been forwarded.
-
-CHKSMB now correctly support multiple destination messages (without reporting
-missallocated active data blocks) and now reports packable bytes available.
-
-SMBUTIL can now conditionally compress a message base, only if so many K are
-compressable.
-
-Fixed problem with incorrect UTC value.
-
-Added NET_WWIV network type.
-
-**********************
-06/02/94 Release v1.11
-**********************
-
-Created Watcom compatible MAKEFILE for DOS, 32-bit DOS, and 32-bit OS/2
-versions of SMBUTIL.
-
-Enhanced macro definitions in SMBDEFS.H for MALLOC, FREE, and REALLOC to
-support Watcom and other compilers other than Borland. Also added LMALLOC
-and LFREE macros for large allocation (>64k) operations.
-
-Fixed problem with multiple calls to setvbuf() when using Watcom C libraries.
-Memory allocated by setvbuf() would never be released. To work around this
-Watcom C bug, a static buffer, shd_buf[], is now used instead.
-
-Fixed bug in smb_getmsghdr() that would cause it to return -6 when attempting
-to allocate 0 length header fields.
-
-Added LZH.C to SMBLIB for message data compression/decompression.
-
-Removed the 16-bit CRC functions from SMBUTIL and put them in CRC16.C (now part
-of SMBLIB) for easier integration into other applications.
-
-Added Hyper Allocation storage method to specification: smbstatus_t.reserved
-changed to smbstatus_t.attr and SMB_HYPERALLOC bit is set when Hyper Allocation
-storage is used for a message base. This is the only change between v1.10 and
-v1.20 of the message base format. No other bits in smbstatus_t.attr are
-currently defined. See the specification for definition of the Hyper Allocation
-storage method.
-
-Changed SMB Storage and Retrieval Protocol chapters in the specification to
-Pseudo-code examples.
-
-Added SMBLIB Storage and Retrieval C example chapters to the specification.
-
-Added field descriptions for message base header record fields and Status Info
-(base header #1) record fields to the specification.
-
-Changed SMBLIB smb_addmsghdr() 'fast' argument to 'storage' to specify the
-storage method to use (either SMB_SELFPACK, SMB_FASTALLOC, or SMB_HYPERALLOC).
-Previous usage (0 for self-pack, 1 for fast) still compatible.
-
-Added smb_hallocdat() and smb_hallochdr() to SMBLIB functions for the Hyper
-Allocation storage method.
-
-Added SMB_STACK_XCHNG operation to smb_stack() function, to exchange the top
-of the stack with the currently open message base.
-
-**********************
-02/14/95 Release v1.20
-**********************
-
-smb_close() was modified in the following ways:
- Only attempts to close non-NULL file pointers
- If shd_fp is currently open, calls smb_unlocksmbhdr() before closing
- (just in case it was left locked by application)
-
-smb_open() was modified in the following ways:
- Initializes all file pointers to NULL
- calls smb_close() if any of the files couldn't be opened
-
-smb_locksmbhdr() was modified in the following ways:
- If lock fails, attempts to unlock the header before next lock
- attempt (just incase application attempts to lock a locked
- header without first unlocking it)
-
-smb_lockmsghdr() was modified in the following ways:
- If lock fails, attempts to unlock the header before next lock
- attempt (same reason stated above)
-
-CHKSMB (1.21) was modified in the following ways:
- Tests for valid translations strings in the .SDT files
- Displays totals for bytes used by header and data blocks, bytes used
- by deleted messages, and bytes saved by LZH compression
-
-SMBUTIL (1.21) underwent some minor cosmetic changes.
-
-***********************
-03/18/95 Release v1.20a
-***********************
-
-SMBUTIL (1.22) now compiles correctly under Watcom, using correct time zone
-information. SMBUTIL maint() will no longer delete messages if max_age is
-specified in the SMB header and the when_imported time for a message is in the
-future.
-
-Fixed problem in LZH.C that would cause lzh_decode() to generate exception
-errors when compiled with a 32-bit compiler.
-
-CHKSMB (1.22) now supports /E command line switch to display extended
-information about corrupted messages. CHKSMB.C is now Watcom compatible.
-
-Added fflush() calls to all smblib functions that write to the SDT, SHA, or SDA
-files. This eliminates the problem of duplicate data offsets (data blocks for
-multiple messages pointing to the same location) causing corrupted SDT files
-(unsupported translation types reported by CHKSMB).
-
-Added fflush() call after writing to SDT file in SMB_PUT example in SMB.TXT.
-
-Fixed example *2SMB.C files to be compatible with SMBLIB v1.20 smb_create()
-function.
-
-Fixed smb_hallocdat() function prototype to stop redeclaration warnings.
-
-Minor typos in specification fixed.
-
-***********************
-04/24/95 Release v1.20b
-***********************
-
-Added SMB_EMAIL (1<<0) attribute definition for the message base status header
-to specify a local e-mail message base where index "to" and "from" fields are
-stored as user numbers, not CRC-16s (this is the only change between v1.20
-and v1.21 of the SMB format).
-
-Version 1.21 of FIXSMB no longer needs the "/M" switch to correctly fix a
-Synchronet e-mail message base (as long as the SMB_EMAIL status attr is set).
-
-Version 1.23 of SMBUTIL can now import text into a Synchronet e-mail message
-base (as long as the SMB_EMAIL status attr has been set). It will ask for the
-sender and recipient user numbers. Fixed an apparently nasty bug that would
-cause damage to message bases when (I)mporting (check for SMB_HYPERALLOC
-attribute was backwards). Excess baggage in the SMBUTIL source code was also
-removed (no longer supports /L, /F, and /D command line switches). Only
-supports self-packing and hyper-allocated message bases (it will not damage
-fast allocated bases, however). "SMBUTIL M" now correctly handles message bases
-that contain messages that have been pre-flagged for deletion (MSG_DELETE attr
-set).
-
-Changed smb_open(int retry_count) function: if retry_count is 0, then a "fast
-open" method is used which doesn't lock and read the status header to check
-for compatibility and validity of message base.
-
-Added SMBLIB_VERSION definition (string constant) to contain the current
-version and revision (if applicable) of the SMB library. This version number
-may not always be the same as SMB_VERSION (version of the SMB format) or the
-current version of the specification. It may be helpful to include a display
-of this version number somewhere in your application (i.e. printf("SMBLIB v%s"
-,SMBLIB_VERSION);).
-
-Changed smb_stack() example in the Performance Issues chapter to keep two
-message bases always open using SMB_STACK_XCHNG.
-
-Fixed bug in SMBUTIL that would cause an infinite loop when analysing an
-extrememly corrupted HyperAllocated message base.
-
-Fixed bug in smb_stack() function when using SMB_STACK_XCHNG operation. Would
-previously set current message base to an undefined message base, rather than
-the message base on top of the stack (last pushed or exchanged).
-
-CHKSMB v1.22 compiled in the 1.20b release did not support wildcards (wasn't
-linked with WILDARGS.OBJ) - this has been fixed and is the only change in
-CHKSMB v1.23.
-
-**********************
-05/31/95 Release v1.21
-**********************
-
-Add uchar forwarded element to smbmsg_t structure. This variable is initialized
-by the smb_getmsghdr() function. If the message has been forwarded, it will
-be set to non-zero.
-
-Fixed bug in LZH.C which caused lzh_decode() to produce incorrect results
-(usually t's and spaces) when compiled with a 32-bit compiler.
-
-Added HUGE16 and FAR16 macros to SMBDEFS.H for huge and far pointers for
-16-bit compilers only (default pointer type for 32-bit compilers).
-
-Fixed bug in FIXSMB.C that would initialize the SDA file to the wrong length.
-
-Added net type NET_MHS for MHS gateways.
-
-SMBUTIL (1.24) will no longer free deleted headers when maintaining a message
-base if the /A (no analysis) command line switch is used. This speeds up the
-message base maintenance/pack operation significantly by using: SMBUTIL /A MP
-
-***********************
-08/31/95 Release v1.21a
-***********************
-
-All smb_*() functions changed to accept pointers to an smb_t structure. This
-eliminates the use of global variables (making DLLs difficult or impossible
-to program). A pointer is used even if the function doesn't modify the data
-to maintain a consistent API and compatibility with languages that don't
-support the passing of user defined types by value (e.g. Visual Basic).
-
-The smb_t structure contains a retry_time element that defines the maximum
-number of seconds to wait while trying to open a locked message base or record.
-If this element of the passed smb_t variable is 0, a default value of 10
-seconds is used.
-
-Added smb_getmsgtxt() and smb_freemsgtxt() functions to SMBLIB.C (only included
-if SMB_GETMSGTXT is defined).
-
-*******************
-11/18/95 Beta v2.00
-*******************
-
-Bug in smb_getmsgtxt() with message data field lengths less than 2.
-
-**********************
-03/22/96 Release v2.01
-**********************
diff --git a/src/sbbs2/smb/docs/smb.src b/src/sbbs2/smb/docs/smb.src
deleted file mode 100644
index 35fe9b22c9e08183b8b74d9214a45cecb83ca30e..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/docs/smb.src
+++ /dev/null
@@ -1,3592 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Synchronet Message Base Specification
- Version 1.21
- Updated 08/31/95
-
- Copyright 1995 Digital Dynamics
-
- PO Box 501
- Yorba Linda, CA 92686
-
- Voice: 714-529-6328 BBS: 714-529-9525 V.32/V.32bis
- FAX: 714-529-9721 714-529-9547 V.FC
- Fido: 1:103/705 ftp: netcom.com /pub/sb/sbbs
-
-Table of Contents
-=================
-&&Contents
-
-Introduction....................................................@@INTRO___
-Implementation Levels...........................................@@IMPLEVEL
-Definitions.....................................................@@DEFINES_
- Acronyms................................................@@ACRONYMS
- Data Types..............................................@@DATATYPE
-File Formats....................................................@@FILEFORM
- Index.....................(*.SID).......................@@SID_FORM
- Header....................(*.SHD).......................@@SHD_FORM
- Header Allocation.........(*.SHA).......................@@SHA_FORM
- Data......................(*.SDT).......................@@SDT_FORM
- Data Allocation...........(*.SDA).......................@@SDA_FORM
- CRC History...............(*.SCH).......................@@SCH_FORM
-Header Field Types..............................................@@HFIELD_T
-Data Field Types................................................@@DFIELD_T
-Messsage Attributes.............................................@@ATTRBITS
-Translation Types...............................................@@XLATTYPE
-Agent Types.....................................................@@AGENTTYP
-Network Types...................................................@@NETWORKS
-Media Types.....................................................@@MEDIATYP
-Message Storage Pseudo Code.....................................@@STORPCOD
-Message Retrieval Pseudo Code...................................@@READPCOD
-SMBUTIL.........................................................@@SMBUTIL_
-CHKSMB..........................................................@@CHKSMB__
-FIXSMB..........................................................@@FIXSMB__
-SMBLIB (C library)..............................................@@SMBLIB__
- Data Types and Constants..(SMBDEFS.H)...................@@SMBDEFS_
- Global Variables..........(SMBVARS.C)...................@@SMBVARS_
- Function Prototypes.......(SMBLIB.H)....................@@SMBLIB.H
- Library Functions.........(SMBLIB.C)....................@@SMBLIB.C
- Miscellaneous.............(CRC*.* and LZH.*)............@@SMB_MISC
-SMBLIB Storage Example..........................................@@SMB_PUT_
-SMBLIB Retrieval Example........................................@@SMB_GET_
-SMBLIB Performance Issues.......................................@@PERFORM_
-Bibliography....................................................@@BIBLIOGR
-Implementations.................................................@@IMPLEMEN
-
-Introduction
-============
-&&Introduction
-$$INTRO___
-
-Q. What is SMB?
-
-A. SMB (Synchronet Message Base) is a technical specification for the storage
- format of electronic mail messages. These e-mail messages may all be
- contained in one database, or, more commonly, separated into catagorized
- databases. These message databases (or message bases) are also referred to
- as "sub-boards", "forums", "conferences", and "SIGs". The messages may be
- directed to an individual person, sent to a group of individuals, or sent
- to everyone who can read messages in that message base. Messages may be
- created and read soley at one physical location, or imported from and
- exported to a message network that may span continents. Message bases that
- are connected to a message network are often called "echoes".
-
-
-Q. Why SMB?
-
-A. The Synchronet Message Base is designed to store high volumes of messages
- while maintaining optimum search, retrieval, and creation performance.
- These messages are not limited to mere text. In addition to text, SMB
- defines the storage of digitized sound, MIDI, graphics, fonts, animation,
- as well as other multimedia data and triggers for localized multimedia.
- SMB thrives on a multi-user environment where messages are being created,
- read, modified, and deleted by multiple tasks simultaneously. With the
- large message networks of today being the rule, rather than the exception,
- and high volumes of messages being imported on a daily, sometimes hourly
- basis, creation and deletion speed is of the utmost importance. This is
- where SMB really shines. Being extensible enough to handle message formats
- from networks of today and tomorrow, and fast enough to import more messages
- that humanly readable, the SMB format will more than meet your message
- storage needs.
-
-
-Q. Why a specification?
-
-A. Message bases are often accessed and modified by a number of different
- programs. Often these programs are developed by individuals or companies
- other than the original designer of the message base format. This
- specification is an attempt to aid developers in creating programs that
- access or modify a message base stored in the SMB format.
-
-
-Q. Who can use this specification?
-
-A. Anyone that has interest in the Synchronet Message Base format at either
- an educational or professional level. Specifically, software developers
- interested or currently involved in the development of message readers,
- editors, echomail (toss/scan) programs, message transfer agents (MTAs),
- network gateways, and bulletin board systems. Much of the information in
- this specification is intended for those with preexisting programming
- knowledge, so those with little or no programming experience may find it
- hard to comprehend.
-
-
-Q. What does the SMB specification include?
-
-A. The text you are reading is part of the SMB specification: a single text
- document that defines the storage format of each of the six files of an
- SMB format message base and how they are related to each other.
-
- Included with this specification is C source code to be used as an example
- to programmers of how to access an SMB format message base and public domain
- library functions (SMBLIB) that can be compiled and linked into programs
- that access an SMB format message base developed by third parties. An SMB
- utility program (SMBUTIL) is also included with C source code as an example
- of how to use the SMBLIB functions.
-
-
-Q. Where did the SMB specification come from?
-
-A. Digital Dynamics (southern California based software development company)
- released "Synchronet Multinode BBS Software Version 1a" in June of 1992 as
- one of the first BBS packages to be designed from the ground-up to operate
- in a multinode environment with incredible speed and reliability, with a
- large suite of multinode specific features and design innovations.
-
- The original message base format was designed with localized messaging and
- low volume message networks in mind. By January of 1993, it was clear that
- high volume message networks (FidoNet, RelayNet, Usenet, etc.) were the
- preference of most BBS users and a new message base format was required to
- allow for high volume message storage, improved storage, retrieval, and
- maintenance performance, as well as lower storage space requirements.
-
- Rather than introduce another new message format, Digital Dynamics sought
- to implement an existing public specification for a format that would meet
- current and future message storage needs. More than a few specifications
- were seriously considered at one time or another, but after careful
- examination, design flaws and lack of extensibility eliminated them from the
- long term plans of Digital Dynamics and Synchronet BBS Software. Thus began
- the design of the "Synchronet Message Base" (SMB) format.
-
- At the request of many message related program developers, Digital Dynamics
- created and released the SMB specification before the release of "Synchronet
- Version 2.00" to allow lead-time on developing support programs for the new
- format.
-
- Digital Dynamics strongly encourages developers of message related programs
- (including software that directly competes with Synchronet or other Digital
- Dynamics products) to implement support for SMB. Though this is a public
- specification and Digital Dynamics encourages developer suggestions, it will
- remain under the sole control of Digital Dynamics unless specifically stated
- otherwise in a future revision of this specification.
-
- Digital Dynamics requests that any organizations that wish to adopt or
- ratify this specification, in part or whole, notify Digital Dynamics through
- any of the contact methods listed at the beginning of this document.
-
-
-Q. How does SMB store messages?
-
-A. Each message base is stored in a set of binary files. This set consists
- of between three and six files depending the storage method used. The base
- filename (maximum of eight characters under DOS) is the same for all six
- files of the same message base and unique amoung the filenames of other
- message bases in the same directory. The six files each have a different
- three character extension. The first character of the extension is always
- the letter 'S' (for SMB), while the second and third characters define the
- contents of the file.
-
- Two of the six files associated with each message base are not recreatable
- and therefore are the most important when considering data integrity. These
- two files are the data file (with a .SDT extension) and header file (.SHD
- extension). Both of these files use 256 byte blocks and have associated
- block allocation tables (stored in .SDA and .SHA respectively) so that
- deleted message blocks may be used by new messages without creating odd
- sized unused 'holes' in the files. The block allocation table files (.SDA
- and .SHA) can be recreated with the information stored in the header (.SHD)
- file. When using Hyper Allocation storage method, the allocation files (.SDA
- and .SHA) are not used.
-
- For fast indexing, there is a small fixed length index file (with a .SID
- extension). This file allows for the immediate location of message header
- records based on sender's name or user number, recipient's name or user
- number, subject, message number, or message attributes. This file can be
- recreated with the data stored in the header (.SHD) file.
-
- The last file is an optional CRC history (.SCH) file. It contains 32-bit
- CRCs of a configurable number of messages imported or created locally. This
- is to help eliminate duplicate messages created by user or program error.
- The CRC history file can be recreated with the combination of information
- stored in the data (.SDT) and header (.SHD) files.
-
-Q. How fast do messages import into an SMB message base?
-
-A. This is a very important question for systems for that import large volumes
- of messages. Of course, the answer depends on the storage format which you
- are importing from, the average length of messages, the design of the
- program which is peforming the import process, as well as the hardware and
- system software being used. What's important is that SMB will allow the
- fastest import process possible with any given combination of the above
- factors.
-
- Since system storage capacity is rarely infinite, neither is the number
- of messages which can be stored in a message base. System operators must
- define the maximum number of messages to be stored in a message base, the
- maximum age of the messages in that message base, or a combination of both.
- When using the Self-packing storage method (defined later in this document),
- the smaller the number of messages stored in a message base, the faster the
- import process. The SMB format is flexible enough to support multiple levels
- of import performance based on optimizations for storage space or speed.
- Most system operators will almost invariably choose speed over space, but
- which choices are available is determined by the importing program. This
- specification defines three storage methods, from slowest to fastest:
- Self-packing, Fast Allocation, and Hyper Allocation. Other options defined
- in this specification may affect storage performance, including duplicate
- message checking and message compression/encryption.
-
-
-Q. How much storage is required for an SMB message base?
-
-A. The biggest factor in determining storage requirements for a message base
- is the maximum number of messages to be stored in the base (defined by the
- system operator) and the average size of each message. The minimum required
- storage for a message base is 32 bytes plus 532 bytes per message (plus four
- bytes per message if duplicate message checking is used and three bytes
- per message if Self-packing or Fast Allocation storage methods are used).
-
- The SMB format was originally designed to be "self-packing", meaning purged
- (deleted) message header and data blocks will be used automatically by new
- messages. Relying solely on self-packing, an SMB format message base will
- never "shrink" in size. This is not to say that it will continually "grow"
- in size, but that without specific packing procedures, deleted message
- blocks may remain unused for extended periods of time, meanwhile using some
- amount of storage space that could be recovered using specific packing
- procedures. The Fast Allocation and Hyper Allocation storage methods do not
- use deleted message blocks for new messages so specific packing procedures
- must be used if any messages are deleted and that storage space is to ever
- be recovered.
-
- Limiting the maximum age of messages in an SMB message base is another way
- to control the storage requirements. While maximum message age definition is
- optional, the definition of the maximum number of messages is not.
-
-Q. How many messages can be stored per SMB message base?
-
-A. Without considering storage limitations or message data lengths greater than
- 256, the theoretical maximum number of messages that can be stored in a
- single SMB message base is 16.7 million. Considering the variable length
- nature of message and header data, it is suggested that the system operator
- allow no more than 1 million messages per base.
-
- To determine an estimated maximum number of messages for a message base
- using the average message data length as a factor, use the following
- formula:
-
- 4.2 billion divided by the average message length rounded up to be evenly
- divisible by 256.
-
- If the average message data length is 1500 bytes, the estimated maximum
- number of messages would be 2,734,375 (4.2 billion divided by 1536).
-
- Implementations of this format may be further limited by available system
- memory.
-
-Implementation Levels
-=====================
-&&Implementation Levels
-$$IMPLEVEL
-The SMB format can be implemented to varying degrees between programs without
-creating compatibilty issues. Rather than have developers specifically state
-which features they have and have not implemented, we have defined seven levels
-of implementation (represented by Roman numerals I through VII). For a program
-or software package to meet an implementation level, it must have all of the
-features listed for that level and all of those for each level below it. The
-minimum suggested imlementation is level I. The SMBUTIL program included with
-this specification is an example of a level I implementation with features
-from some of the higher implementation levels.
-
-Level I
--------
-The minimum suggested level of implementation. Messages contain merely ASCII
-text displayable on an ANSI terminal. Messages can be added to the message
-base and if the maximum number of messages is exceeded, messages are removed
-or marked for deletion.
-
-Level II
---------
-The addition of file attachments, multiple index/header entries per message
-(multiple destinations), multiple text bodies for the separation of message
-text and tag/origin lines (for example), forwarding, threading, and specific
-FidoNet kludge header field support makes this level of implementation more
-realistic for bulletin board system and EchoMail software implementation.
-
-Synchronet Multinode BBS Software v2.00 has a level II implementation of this
-specification.
-
-Level III
----------
-This implementation adds support for translation strings defined later in this
-document for data compression, encryption, escaping, and encoding. This level
-is still limited to basic ASCII text and ANSI escape sequence entry and
-retrieval.
-
-Synchronet Multinode BBS Software v2.10 has a level III implementation of this
-specification.
-
-Level IV
---------
-The storage and retrieval of embedded and attached images is added in this
-level of implementation. Supported images are limited to single binary or text
-data blocks that can be displayed or transferred to the user (automatically,
-or by request) if their display and translation protocols define specific
-support for the image type.
-
-Level V
--------
-This level of implementation adds support for embedded and attached sound data.
-This includes digitized sound and MIDI data. Supported sounds are limited to
-single binary or text data blocks that can be played or transferred to the user
-(automatically or by request) if their presentation and translation protocols
-define specific support for the sound type.
-
-Level VI
---------
-Localized sound and image data can be triggered by messages stored and
-retrieved in an implementation of this level.
-
-Level VII
----------
-Complete multimedia support is reached in this implementation level with
-support for embedded and attached animation, sound, and video data.
-
-
-Definitions
-===========
-&&Definitions
-$$DEFINES_
-
-Control Characters
-------------------
-When specifying control characters (ASCII 1 through 31), the caret symbol "^"
-or the abreviation "ctrl-" followed by a character will be used to indicate the
-value. ^A is equivalent to ASCII 1, ^B ASCII 2, etc. The case of the control
-character is not significant (i.e. ^z and ^Z are equivalent). The control
-character ^@ (ASCII 0) will be specified as NULL or 0.
-
-
-Hexadecimal
------------
-Base sixteen numbering system which includes the digits 0-9 and A-F.
-Hexadecimal numbers are represented in this document with a prefix of "0x" or
-"\x" or a suffix of "h". Hexadecimal letter digits are not case sensitive
-(i.e. the number 0xff is the same as 0xFF).
-
-
-File dump
----------
-When example file dumps are displayed, the format is similar to that of the
-output from the DOS DEBUG program. With the exception of the ASCII characters,
-all numbers are in hexadecimal.
-
-Offset Byte values ASCII characters
-
-000000 53 4D 42 1A 10 01 20 00 F4 01 00 00 F4 01 00 00 SMB... .�...�...
-000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...�...�.......
-
-
-Bit values
-----------
-Bit (or flag) values are represented in C notation as (1<<x) where x is the bit
-number. (i.e. bit number 7 (1<<7) is the same as 0x80).
-
-
-Word storage
-------------
-All words (16-bit) and double words (32-bit) are stored in Intel 80x86 (little
-endian) format with bytes stored from low to high (reverse of the Motorola
-680x0 word storage format).
-
-A 16-bit word with the value 1234h is stored as 34h 12h.
-
-Translation strings
--------------------
-Translation strings (xlat variables) are arrays of words (16-bit) in the order
-of the original storage translation. The last translation type is followed by a
-16-bit zero (defined later as XLAT_NONE). If there are no translations, then
-the first and only element of the array is XLAT_NONE.
-
-If multiple translations are used, the translation order must be reversed
-upon retrieval to obtain the proper data.
-
-
-Local e-mail
-------------
-When referring to the local e-mail message base of a Synchronet BBS, we are
-referring specifically the message base with the name "MAIL" stored in the
-"DATA" directory (e.g. \SBBS\DATA\MAIL).
-
-Messages stored in this message base are different in the following respects:
-
- The SMB_EMAIL status header attribute is set ON
- Hyper Allocation storage method is not supported
- The "To" and and "From" fields of the message indexes do NOT contain CRCs
-
-Acronyms:
-========
-&&Definition of Acronyms
-$$ACRONYMS
-
-ANSI American National Standards Institute
-ASCII American Standard Code for Information Interchange
-BBS Bulletin Board System
-C The C programming language as defined by ANSI X3.159-1989
-CR Carriage Return character (ASCII 13)
-CRC Cyclic Redundancy Check
-CRC-16 Standard 16-bit CRC using 1021h polynomial (seed 0)
-CRC-32 Standard 32-bit CRC using EDB88320h polynomial (seed -1)
-CRLF Carriage Return character followed by a Line Feed character
-FSC FidoNet Standards Commitee (FTS proposal)
-FTN FidoNet Technology Network
-FTS FidoNet Technical Standard
-LF Line Feed character (ASCII 10)
-QWK Compressed message packet format for message reading/networking
-RFC Request for Comments
-SMB Synchronet Message Base
-UT Universal Time (formerly called "Greenwhich Mean Time")
-
-Data types
-==========
-&&Definition of Data Types
-$$DATATYPE
-
-uchar Unsigned 8-bit value (0 through 255).
- C example:
-
- #define uchar unsigned char
-
-
-short Signed 16-bit value (-32768 through 32767).
- "short" is a C keyword indicating "short int".
-
-
-ushort Unsigned 16-bit value (0 through 65535).
- C example:
-
- #define ushort unsigned short
-
-
-ulong Unsigned 32-bit value (0 through 4294967295).
- C example:
-
- #define ulong unsigned long
-
-
-time_t Unsigned 32-bit value.
- Seconds since 00:00 Jan 01 1970 (Unix format).
- Used for all time/date storage in SMB as part of the when_t
- data type. This time format will support dates through the year
- 2105.
- time_t is defined by ANSI C as a long (signed) which can
- limit its date support to the year 2038 depending on the
- library routines used.
-
-
-ASCII String (aka character array) of 8-bit ASCII characters.
- Characters with the bit 7 set (80h through FFh) represent
- the IBM PC extended ASCII character set. When data or header
- fields of this type are stored in the header, a NULL
- terminator may or may not be present.
- C example:
-
- uchar str[80];
-
-
-ASCIIZ ASCII string with (non-optional) NULL terminator.
- C example:
-
- uchar str[81];
-
-nulstr ASCII string immediately terminated by NULL.
- C example:
-
- uchar *nulstr="";
-
-
-undef Data buffer with undefined contents.
- C example:
-
- uchar buf[BUF_LEN];
-
-when_t Date/Time stamp including time-zone adjustment information.
- C example:
-
- typedef struct {
-
- time_t time; // Time stamp (in local time)
- short zone; // Zone constant or Minutes (+/-) from UT
-
- } when_t;
-
- time:
-
- A time value of 0 is invalid and indicates an uninitialized
- time stamp.
-
- Time stamps are always stored in universal time. i.e.
- Regardless of what the local time zone is, Jan 1st 1994 00:00
- will always be stored as 2D24BD00h.
-
- zone:
-
- If the zone is in the range -720 to +720, it represents the
- number of minutes east or west of UT. Values in this range
- should only be used for time zones not otherwise represented
- here.
-
- If the zone is greater than 720 or less than -720, then the
- following bits have special meaning:
-
- (1<<12) // Non-US time zone (east of UT)
- (1<<13) // Non-US time zone (west of UT)
- (1<<14) // U.S. time zone
- (1<<15) // Daylight savings
-
- The lower 12 bits (0 through 11) contain the number of minutes
- east or west of UT (not accounting for daylight savings).
-
- If the time zone is one specified in the U.S. Uniform Time Act,
- the following values represent the zone:
-
- AST 0x40F0 // Atlantic (-04:00)
- EST 0x412C // Eastern (-05:00)
- CST 0x4168 // Central (-06:00)
- MST 0x41A4 // Mountain (-07:00)
- PST 0x41E0 // Pacific (-08:00)
- YST 0x421C // Yukon (-09:00)
- HST 0x4258 // Hawaii/Alaska (-10:00)
- BST 0x4294 // Bering (-11:00)
-
- With bit 15 set, the following values represent the same zone
- with the presence of daylight savings:
-
- ADT 0xC0F0 // Atlantic (-03:00)
- EDT 0xC12C // Eastern (-04:00)
- CDT 0xC168 // Central (-05:00)
- MDT 0xC1A4 // Mountain (-06:00)
- PDT 0xC1E0 // Pacific (-07:00)
- YDT 0xC21C // Yukon (-08:00)
- HDT 0xC258 // Hawaii/Alaska (-09:00)
- BDT 0xC294 // Bering (-10:00)
-
- The following non-standard time zone specifications may also be
- used:
-
- MID 0x2294 // Midway (-11:00)
- VAN 0x21E0 // Vancouver (-08:00)
- EDM 0x21A4 // Edmonton (-07:00)
- WIN 0x2168 // Winnipeg (-06:00)
- BOG 0x212C // Bogota (-05:00)
- CAR 0x20F0 // Caracas (-04:00)
- RIO 0x20B4 // Rio de Janeiro (-03:00)
- FER 0x2078 // Fernando de Noronha (-02:00)
- AZO 0x203C // Azores (-01:00)
- LON 0x1000 // London (+00:00)
- BER 0x103C // Berlin (+01:00)
- ATH 0x1078 // Athens (+02:00)
- MOS 0x10B4 // Moscow (+03:00)
- DUB 0x10F0 // Dubai (+04:00)
- KAB 0x110E // Kabul (+04:30)
- KAR 0x112C // Karachi (+05:00)
- BOM 0x114A // Bombay (+05:30)
- KAT 0x1159 // Kathmandu (+05:45)
- DHA 0x1168 // Dhaka (+06:00)
- BAN 0x11A4 // Bangkok (+07:00)
- HON 0x11E0 // Hong Kong (+08:00)
- TOK 0x121C // Tokyo (+09:00)
- SYD 0x1258 // Sydney (+10:00)
- NOU 0x1294 // Noumea (+11:00)
- WEL 0x12D0 // Wellington (+12:00)
-
-fidoaddr_t FidoNet address stored as four ushorts that represent the zone,
- network, node, and point (in that order).
- C example:
-
- typedef struct {
-
- ushort zone,
- net,
- node,
- point;
-
- } fidoaddr_t;
-
-
-typestr_t ASCIIZ string with ushort type prefix.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'str'
- uchar str[]; // ASCIIZ filename or other string data
-
- } typestr_t;
-
-
-mattach_t File attachment information with type prefix, translation
- string, and filename.
- C example:
-
- typedef struct {
-
- ushort type; // Attachment type
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename
-
- } mattach_t;
-
-vattach_t Video file attachment information with type, compression,
- translation string, and filename.
- C example:
-
- typedef struct {
-
- ushort type; // Attachment type
- ushort comp; // Compression method
- ushort xlat[]; // Translations of data in attachment
- uchar str[]; // ASCIIZ filename
-
- } vattach_t;
-
-mtext_t Message text with translation string prefix.
- C example:
-
- typedef struct {
-
- ushort xlat[]; // Translations of text
- uchar text[]; // Actual text data
-
- } mtext_t;
-
-
-ftext_t Formatted message text with translation string prefix and
- format type.
- C example:
-
- typedef struct {
-
- ushort type; // See Image Types for valid types
- ushort xlat[]; // Translations of data
- uchar data[]; // Actual formatted text data
-
- } ftext_t;
-
-
-membed_t Embedded data with type prefix, translation string, and ASCIIZ
- description.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'dat'
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar data[]; // Binary data
-
- } membed_t;
-
-vembed_t Embedded video data with type, compression method, translation
- string, and ASCIIZ description.
- C example:
-
- typedef struct {
-
- ushort type; // Specifier for type of 'dat'
- ushort comp; // Compression method
- ushort xlat[]; // Translations of embedded data
- uchar name[]; // ASCIIZ char description of embedded data
- uchar data[]; // Binary data
-
- } vembed_t;
-
-File formats
-============
-&&File Formats
-$$FILEFORM
-&&Index (*.SID) File Format
-$$SID_FORM
-
-Index File (*.SID)
-------------------
-The index file for each message base contains one record per message in the
-base. Each record is fixed length using the following format:
-
-Index Record:
-------------
-C example:
-
-typedef struct {
-
- ushort to; // 16-bit CRC of recipient name (lower case) or user number
- ushort from; // 16-bit CRC of sender name (lower case) or user number
- ushort subj; // 16-bit CRC of title/subject (lower case)
- ushort attr; // attributes (MSG_PRIVATE, MSG_READ, etc. flags)
- ulong offset; // byte offset of message header in header file
- ulong number; // message serial number (1 based)
- time_t time; // import date/time stamp (Unix format)
-
- } idxrec_t;
-
-
-Example file dump (16 messages starting with message number 15):
----------------------------------------------------------------
-000000 36 4F 13 07 2A 77 00 00 20 00 00 00 0F 00 00 00 6O..*w.. .......
-000010 BE 62 76 2C 36 4F 46 0A 7F B2 00 00 20 01 00 00 �bv,6OF.�.. ...
-000020 10 00 00 00 C7 29 78 2C 36 4F 70 6F 46 FF 00 00 ....�)x,6OpoF�..
-000030 20 02 00 00 11 00 00 00 AD D3 7A 2C 70 6F 13 07 .......��z,po..
-000040 46 FF 00 00 20 03 00 00 12 00 00 00 D6 F8 7F 2C F�.. .......��,
-000050 36 4F E1 EA E7 E9 00 00 20 04 00 00 13 00 00 00 6O����.. .......
-000060 1E 7B 85 2C 37 0D 2E DF 4D 79 00 00 20 05 00 00 .{�,7..�My.. ...
-000070 14 00 00 00 5C E1 A1 2C 90 54 2D 5A 86 62 00 00 ....\�,�T-Z�b..
-000080 20 06 00 00 15 00 00 00 39 2E A2 2C 70 6F 1A 8B .......9.�,po.�
-000090 46 FF 00 00 20 07 00 00 16 00 00 00 D0 7B A8 2C F�.. .......�{�,
-0000A0 2E DF 1A 8B 4D 79 00 00 20 08 00 00 17 00 00 00 .�.�My.. .......
-0000B0 FF 7B A8 2C B4 D9 35 7C 23 B1 00 00 20 09 00 00 �{�,��5|#�.. ...
-0000C0 18 00 00 00 CE D4 BA 2C 36 4F BC D8 B2 E7 00 00 ....�Ժ,6O�ز�..
-0000D0 20 0A 00 00 19 00 00 00 14 5F C3 2C BA A8 4E B0 ........_�,��N�
-0000E0 67 76 00 00 20 0B 00 00 1A 00 00 00 6F 89 C3 2C gv.. .......o��,
-0000F0 36 4F 0C 01 19 9C 00 00 20 0C 00 00 1B 00 00 00 6O...�.. .......
-000100 F8 30 C6 2C 36 4F FA 48 0E 55 00 00 20 0D 00 00 �0�,6O�H.U.. ...
-000110 1C 00 00 00 6A 94 D3 2C 36 4F F1 CE CF A2 00 00 ....j��,6O��Ϣ..
-000120 20 0E 00 00 1D 00 00 00 53 DB D5 2C 8D A6 21 CE .......S��,��!�
-000130 F7 AB 00 00 20 0F 00 00 1E 00 00 00 31 29 DC 2C ��.. .......1)�,
-
-
-Field descriptions:
-------------------
-To:
-The 'To' field is the CRC-16 of the name of the intended recipient agent of
-this message or the intended recipient's user number. If the CRC is stored, the
-text must be converted to lower case (A-Z changed to a-z) before the CRC is
-calculated. If the message is forwarded to another agent, the original or new
-index record must be changed to contain the CRC-16 of the new recipient name or
-user number. This field must always contain the recipient user number for local
-e-mail on a Synchronet BBS. Outbound netmail stored in the Synchronet local
-e-mail message base will contain 0 in this field.
-
-From:
-This field, similar to the 'To' field, contains the CRC-16 of the name of the
-sending agent of this message or the sender's user number. If the CRC is
-stored, the text must be converted to lower case (A-Z changed to a-z) before
-the CRC is calculated. If the message is forwarded to another agent, the
-original or new index record must be changed to contain the CRC-16 of the new
-sender name or user number. If the message was imported into the local e-mail
-message base on a Synchronet BBS via netmail, this field will contain 0.
-
-Subj:
-The 'Subj' field contains the CRC-16 of the message's subject. The subject
-must be converted to lower case (A-Z changed to a-z) and all preceeding
-"re: "'s and "re:"'s removed before calculating the CRC-16.
-
-Attr:
-This ushort is a bit field of the specific attributes for this message.
-It is a clone of the 'attr' element of the msghdr_t structure.
-
-Offset:
-This ulong is the offset (in bytes) in the header file for this message's
-header record.
-
-Number:
-This ulong is the serial number of this message. Valid values are 1 through
-0xffffffff. No two index records in the same message base may have the same
-message number. All index records must have sequential, but not necessarily
-consequetive, message numbers.
-
-Time:
-This field is the date/time stamp the message was imported to or posted in
-the message base. It is a clone of the 'when_imported.time' element of the
-msghdr_t structure.
-
-Header File (*.SHD)
-===================
-&&Header File (*.SHD) Format
-$$SHD_FORM
-
-Each SMB header file is made up of two distinct sections: base header records
-and message header records (usually the bulk of the file).
-
-Base Header Records:
--------------------
-Base header records are blocks of data that apply to the entire message base
-and are of variable length. This specification defines only one base header
-record, the "Status info" (smbstatus_t) record. This status info record must be
-the first base header record in the file and must be modified if additional
-base header records are added.
-
-Additional header records allow other developers to store configuration and
-status information particular to their application needs. It also allows for
-future header record definitions as part of this specification without causing
-backward compatibility issues.
-
-Each base header record contains a fixed length portion (smbhdr_t) and an
-optional variable length portion.
-
-Whenever a base header record is read or updated (written), it must first
-be successfully locked and subsequently unlocked.
-
-The first base header record (Status Info) is used as a semaphore when writing
-to the message index (.SID) file and, when using the Hyper Allocation storage
-method, writing to the message data (.SDT) file. This record must be
-succesfully locked before writing and subsequently unlocked. This is to insure
-that multiple applications simultaneously writing to the same message base
-does result in corrrupted data.
-
-
-Message Header Records:
-----------------------
-Following the last base header record is the first message header record. Each
-header record is stored in one or more 256 byte blocks. There must be exactly
-one active message header record for every index record in the index file.
-(Note: This does not include deleted message headers that have not been
-overwritten by a new message header).
-
-Each message header record contains a fixed length portion (msghdr_t), a list
-of zero or more fixed length data fields (dfield_t), and a list of three or
-more variable length header fields (hfield_t).
-
-The value of the data stored in the zero or more unused bytes of the last
-header record block have an undefined value, though whenever possible
-developers should initialize to binary zero for human readability.
-
-Whenever a message header record is read or updated (written), it must first
-be successfully locked and subsequently unlocked.
-
-Base Header Record (Fixed Portion):
-----------------------------------
-C example:
-
-typedef struct {
-
- uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct
-
- } smbhdr_t;
-
-
-Base Header Record Field Descriptions:
--------------------------------------
-Id:
-This is a four byte unique ID identifying the type of the base header record.
-The bytes may contain any value, but printable ASCII characters are preferred.
-The only ID defined in this specification is "SMB^Z" used by the Status Info
-base header record.
-
-Version:
-This is a version number of the base header record type. Base header records
-of different versions may have different formats or contain different
-information. This is to aid the application in determining if the record
-is pertinent and if so, to what degree. The Status Info base header record
-uses this version field to define the version of the format for the entire
-message base (currently 0x121 for version 1.21).
-
-Length:
-This is entire length in bytes of this header record (including both fixed
-and variable portions).
-
-
-Base Header #1 (Status info) Record (Variable Portion):
-------------------------------------------------------
-C example:
-
-typedef struct {
-
- ulong last_msg; // last message number posted or imported
- ulong total_msgs; // total messages currently in message base
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of messages to keep in base
- ushort max_age; // Maximum age of messages (days) to keep in base
- ushort attr; // Attribute bits
-
- } smbstatus_t;
-
-Base Header #1 (Status Info) Record (Variable Portion) Field Descriptions:
--------------------------------------------------------------------------
-Last_msg:
-This is the serial number of the last message imported or posted into this
-message base. The index, header, and data records for this message may possibly
-not exist (due to deletion). This field is used for determining the message
-number to give to a new message being imported or posted into this message
-base. This field must be updated for every message added to the message base.
-
-Total_msgs:
-This is the total number of active messages currently in the message base.
-This number should match the number of records in the index (.SID) file
-and active header records in the header (.SHD) file. This field must be
-updated whenever a message is added to or removed from the message base.
-
-Header_offset:
-This is the byte offset to the first message header record. It is useful
-for skipping all the base header records and going directly to the first
-message header record.
-
-Max_crcs:
-This is the maximum number of message CRCs to store in the CRC history (.SCH)
-file for duplicate message checking. If this field contains 0, then duplicate
-message checking is disabled.
-
-Max_msgs:
-This is the preferred maximum number of messages to keep in this message
-base as specified by the system operator. It is used by maintenance programs
-that trim the message base down by removing old messages. This field should
-be ignored by applications importing or posting messages allowing them to
-exceed this maximum at will.
-
-Max_age:
-This field is the maximum age (in days) of messages to keep in the message
-base. It is used by maintenance programs to purge out-dated messages from
-the message base.
-
-Attr:
-This is a bit field containing specific attributes (or flags) that may define
-the way messages are stored or retrieved from the this message base. The
-following attributes are defined:
-
- SMB_EMAIL (1<<0)
-
- Indicates the message base is specifically for messages to or from local
- users. When this bit is set, the idxrec.to and idxrec.from fields will
- contain the user numbers (or 0 for non-user destination/source) instead of
- the CRC-16 of the agent name.
-
- SMB_HYPERALLOC (1<<1)
-
- Indicates the message base uses the Hyper Allocation storage method. This
- bit should not be cleared by an application without first deleting all the
- messages in the message base. This is due to the fact the Hyper Allocation
- is not downward compatible with the Self-packing and Fast Allocation
- storage methods.
-
-When used with Synchronet BBS software, a message base must NOT have both of
-the above attributes set. The only message base that should have the SMB_EMAIL
-attribute set is the DATA\MAIL message base.
-
-
-Base Header #1 (Status info) Record Contents:
---------------------------------------------
-smbhdr.id="SMB\x1a"; // SMB^Z
-smbhdr.version=0x121; // v1.21
-smbhdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t); smbstatus_t status;
-
-
-Additional Base Headers:
------------------------
-Additional headers from developers must have initial 8 bytes in smbhdr_t
-format, length must include size of smbhdr_t, and header_offset of smbstatus_t
-must be changed to include the size of the additional header(s).
-
-
-Example file dump (base header portion only):
---------------------------------------------
-000000 53 4D 42 1A 20 01 20 00 F4 01 00 00 F4 01 00 00 SMB. . .�...�...
-000010 20 00 00 00 D0 07 00 00 D0 07 00 00 00 00 00 00 ...�...�.......
-
-
-Message Header Record (Fixed portion):
--------------------------------------
-C example:
-
-typedef struct {
-
- uchar id[4]; // SHD^Z (same for all types and versions)
- ushort type; // Message type (this is the definition of type 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed portion + all fields
- ushort attr; // Attributes (bit field) (duplicated in SID)
- ulong auxattr; // Auxillary attributes (bit field)
- ulong netattr; // Network attributes (bit field)
- when_t when_written; // Date/Time message was originally created
- when_t when_imported; // Date/Time message was imported (locally)
- ulong number; // Message number (unique, not necessarily seq.)
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // Number of first reply to this message
- uchar reserved[16]; // 16 reserved bytes for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields
-
- } msghdr_t;
-
-typedef struct {
-
- ushort type; // See "Data Field Types" values
- ulong offset; // Offset into buffer
- ulong length; // Length of data field in buffer
-
- } dfield_t;
-
-typedef struct {
-
- ushort type; // See "Header Field Types" for values
- ushort length; // Length of buffer
- uchar dat[length];
-
- } hfield_t;
-
-Example file dump (one header record, both fixed and variable length portions):
-------------------------------------------------------------------------------
-000020 53 48 44 1A 00 00 20 01 F5 00 00 00 00 00 00 00 SHD... .�.......
-000030 00 00 00 00 46 DB F7 2C 00 00 7D D7 29 2D 00 00 ....F��,..}�)-..
-000040 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
-000050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
-000060 00 00 00 00 02 00 00 00 00 00 00 00 4A 01 00 00 ............J...
-000070 02 00 4A 01 00 00 53 00 00 00 00 00 13 00 4D 61 ..J...S.......Ma
-000080 72 69 61 6E 6E 65 20 4D 6F 6E 74 67 6F 6D 65 72 rianne Montgomer
-000090 79 30 00 0C 00 43 61 72 6F 6C 20 47 61 69 73 65 y0...Carol Gaise
-0000A0 72 60 00 07 00 46 61 72 6E 68 61 6D A4 00 14 00 r`...Farnham�...
-0000B0 31 3A 31 33 38 2F 31 30 32 2E 30 20 32 63 66 38 1:138/102.0 2cf8
-0000C0 30 35 37 36 A5 00 14 00 31 3A 33 34 33 2F 31 30 0576�...1:343/10
-0000D0 30 2E 30 20 32 63 66 33 62 39 30 61 A3 00 23 00 0.0 2cf3b90a�.#.
-0000E0 31 33 38 2F 31 30 32 20 31 20 32 37 30 2F 31 30 138/102 1 270/10
-0000F0 31 20 32 30 39 2F 32 30 39 20 31 30 33 2F 30 20 1 209/209 103/0
-000100 33 35 35 02 00 02 00 02 00 03 00 08 00 01 00 8A 355............�
-000110 00 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .f..............
-
-Contents of example header:
---------------------------
-id SHD^Z
-type 0000h
-version 0120h
-length 245
-attr 0000h
-auxattr 00000000h
-netattr 00000000h
-when_written Sat Nov 27 17:57:10 1993
-when_imported Tue Jan 04 15:54:21 1994
-number 1
-thread_orig 0
-thread_next 0
-thread_first 0
-reserved[16]
-offset 0
-total_dfields 2
-
-dfield[0].type 00h
-dfield[0].offset 0
-dfield[0].length 330
-dfield[1].type 02h
-dfield[1].offset 330
-dfield[1].length 83
-
-hfield[0].type 00h
-hfield[0].length 19
-hfield[0]_dat Marianne Montgomery
-hfield[1].type 30h
-hfield[1].length 12
-hfield[1]_dat Carol Gaiser
-hfield[2].type 60h
-hfield[2].length 7
-hfield[2]_dat Farnham
-hfield[3].type A4h
-hfield[3].length 20
-hfield[3]_dat 1:138/102.0 2cf80576
-hfield[4].type A5h
-hfield[4].length 20
-hfield[4]_dat 1:343/100.0 2cf3b90a
-hfield[5].type A3h
-hfield[5].length 35
-hfield[5]_dat 138/102 1 270/101 209/209 103/0 355
-hfield[6].type 02h
-hfield[6].length 2
-hfield[6]_dat 02 00
-hfield[7].type 03h
-hfield[7].length 8
-hfield[7]_dat 01 00 8A 00 66 00 00 00
-
-Fixed Portion Field descriptions:
---------------------------------
-Id:
-This field (regardless of the header type or version) must always contain the
-the string "SHD^Z". This is to aid in the restoration of a corrupted header
-file and give a visual indication of the beginning of a new header record when
-viewing dumps of the header file.
-
-Type:
-This is the message header type. Only one type is currently defined by this
-specification (type 0). Any and all future header types will have the first
-4 fields (10 bytes) in the same format of type 0. This allows other types
-(with different lengths) to be skipped because the 4th field (length) will
-always be in the same position.
-
-Version:
-This is the version of this header type. This specification defines version
-1.21 of message header type 0 (stored as 121h).
-
-Length:
-This is the total length of this message header record (including both fixed
-and variable length portions, but NOT including unused block space).
-
-Attr:
-This is a bit field (16-bit) containing basic message attributes (flags) for
-this message. An exact duplicate of this field is stored in the index file as
-well. They must always match.
-
-Auxattr:
-This is a bit field (32-bit) containing the auxillary attributes (flags) for
-this message. The attributes stored in this variable are more specific in
-nature and less critical than those in the Attr field.
-
-Netattr:
-This is a bit field (32-bit) containing the network attributes (flags) for this
-message. The attributes stored in this variable are related solely to message
-networking.
-
-When_written:
-This is the date and time when the message was originally created.
-
-When_imported:
-This is the date and time when the message was posted on or imported into the
-local message system.
-
-Number:
-This is the message's unique serial number (from 1 to FFFFFFFFh). This field
-is duplicated in the index file. They must always match.
-
-Thread_orig:
-If this message is a reply, then this field contains the number of the original
-message that was replied to. If this message was not a reply, this field will
-contain the value 0.
-
-Thread_next:
-If this message is a reply, and there are later replies to that message
-(the message number contained in the Thread_orig field), then this field will
-contain the number of the next reply in the chain. If this message is the only
-reply to the orignal message, this field will contain the value 0.
-
-Thread_first:
-If there are any replies to this message (after it has been posted), this field
-will contain the number of the first reply to this message. If there are no
-replies to this message, this field will contain the value 0.
-
-Reserved:
-Unused bytes, reserved for future definition in the message header type 0
-specification.
-
-Offset:
-The byte offset into the data file, specifying the start of the buffer for
-all data associated with this message. This value must be either 0 or modula
-256. When retrieving the actual data portion of data fields, the physical
-offset into the file will be the offset of the message data buffer (this field)
-plus the offset of the individual data field (msghdr_t.offset+dfield_t.offset).
-
-Total_dfields:
-This field contains the total number of data fields associated with this
-message. The value of this field must match the actual number of data fields
-stored in the header (dfield_t data types following the fixed portion of the
-message header).
-
-
-Variable Portion Field descriptions:
------------------------------------
-See the Header Field Type and Data Field Type sections for the descriptions
-of the values contained in these fields.
-
-Message Header Block Allocation (*.SHA)
-=======================================
-&&Header Allocation File (*.SHA) Format
-$$SHA_FORM
-
-If this message base uses the Hyper Allocation storage method (the
-SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
-not created or used.
-
-This file contains no header or signature data. Each byte (uchar) in the file
-specifies the allocation state of the corresponding 256 byte block in the
-header (*.SHD) file. A value of 0 indicates a free header block, and a value of
-1 indicates an allocated block. Other non-zero values are undefined.
-
-This file must always be opened DENY ALL (non-shareable).
-
-Message Data (*.SDT)
-====================
-&&Data File (*.SDT) Format
-$$SDT_FORM
-
-This file contains no header or signature data. It contains the text and other
-embedded data for the messages in a single message base. The data for each
-message always begins on a 256 byte block boundary. The data in the unused
-portion of a data block is undefined, but should be initialized to NULL
-whenever possible.
-
-This file must always be opened DENY NONE (shareable).
-
-Data fields of type TEXT_BODY and TEXT_TAIL must have all trailing white space
-and control characters removed (i.e. the last character of the data record
-must be in the range 21h to FFh). The only exception to this rule, is if the
-TEXT_BODY is terminated with multiple contiguous CRLFs, only the last CRLF
-should be removed. A CRLF should always be appended to the text data when it is
-displayed.
-
-When reading from this file, it is a good idea to make sure the message header
-for the data being read is currently locked (though no single message header
-should be locked for extended durations of time). This will insure that no
-other application will write to this portion of the file while it's being
-read (read from disk, not displayed).
-
-When using the Hyper Allocation storage method, the Status Info message base
-header must be successfully locked before writing to this file and subsequently
-unlocked.
-
-Message Data Block Allocation (*.SDA)
-=====================================
-&&Data Allocation File (*.SDA) Format
-$$SDA_FORM
-
-If this message base uses the Hyper Allocation storage method (the
-SMB_HYPERALLOC bit is set in the smbstatus_t.attr field), then this file is
-not created or used.
-
-This file contains no header or signature data. Each word (ushort) in the file
-specifies the allocation state of the corresponding 256 byte block in the data
-(*.SDT) file. A value of 0 indicates a free block, and a non-zero value
-indicates the number of message header records associated with this message
-data (most often 1). Each block can be used by up to 65,535 header records.
-
-This file must always be opened DENY ALL (non-shareable).
-
-CRC history for duplicate message checking (*.SCH)
-==================================================
-&&CRC History File (*.SCH) Format
-$$SCH_FORM
-
-This file is optional and contains no header or signature data. Each long word
-(ulong) in the file contains a CRC-32 of previously posted/imported messages.
-These CRCs can be used to check a candidate message for posting/import to be
-sure the message isn't a duplicate created by human or program error. The
-maximum number of CRCs to store is defined in the first message base header
-record (smbstatus_t.max_crcs).
-
-The CRC is calculated on the first TEXT_BODY data field before any translations
-are applied (e.g. encoding, compression, encryption).
-
-This file must always be opened DENY ALL (non-shareable).
-
-Header Field Types:
-==================
-&&Header Field Types
-$$HFIELD_T
-
-These are the defined valid values for hfield_t.type:
-
-Name : SENDER
-Value : 00h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes
-Summary : Name of agent that sent this message
-
-If blank (0 length or nulstr), assumed "Anonymous". If multiple SENDER fields
-exist, then the message has been forwarded and the order of the fields in the
-record must match the forwarding order (chronologically). When forwarding a
-message, the original SENDER field should be left intact and new SENDER,
-FORWARDED, and RECIPIENT fields added to the end of the record.
-
-Name : SENDERAGENT
-Value : 01h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : AGENT_PERSON or previous SENDERAGENT if exists
-Summary : Type of agent that sent this message
-
-If multiple SENDER fields exist, then the message has been forwarded. If any of the
-forwarding agents is of a type other than AGENT_PERSON, then this field must
-follow that SENDER field to specify the agent type.
-
-Name : SENDERNETTYPE
-Value : 02h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : NET_NONE or previous SENDERNETTYPE if exists
-Summary : Type of network message was sent from
-
-If multiple SENDERNETADDR fields are included, a SENDERNETTYPE field should be
-included before each to determine what data type the address is stored in.
-
-Name : SENDERNETADDR
-Value : 03h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERNETADDR if exists
-Summary : Network address for agent that sent this message
-
-The SENDERNETTYPE field indicates the data type of this field. If the
-SENDERNETTYPE is of type NET_INTERNET, the local-part of the Internet
-address is optional. If the local-part separator character ('@') is omitted,
-the SENDER field is assumed to be the local-part of the address.
-
-Name : SENDEREXT
-Value : 04h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDEREXT if exists
-Summary : Extension of sending agent
-
-This field is useful for storing the sending agent's extension, when the
-agent's extension binds more tightly than the agent's name.
-
-For example, Synchronet Multinode BBS Software stores local e-mail with the
-sending and receiving agent's user numbers stored as their respective
-extensions. This is done so that if a user name changes for some reason,
-messages will not "disappear" from the user's mail box.
-
-If the SMB_EMAIL status header attribute is set, then the "From" field in the
-index must contain the binary value of this field rather than the CRC-16 of the
-SENDER (name) field.
-
-Name : SENDERPOS
-Value : 05h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERPOS if exists
-Summary : Position of sending agent
-
-Primarily for documentary purposes, this field contains the position of the
-sending agent (i.e. President, Sysop, C.E.O., MIS Director, etc).
-
-It can also be useful for getting a message or reply to the intended
-recipient when the agent name is not located or is unknown, but the position
-of the agent is known and specified.
-
-Name : SENDERORG
-Value : 06h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous SENDERORG if exists
-Summary : Organization name of sending agent
-
-Primarily for documentary purposes, this field contains the organization to
-which the sending agent belongs (i.e. Microsoft, Joe's BBS, SoCal User's Group,
-etc).
-
-Name : AUTHOR
-Value : 10h
-Data : ASCII
-Multiple : Yes
-Required : No
-Default : First SENDER
-Summary : Name of agent that created this message
-
-This field can only be added by the process that originally creates the
-message. It should not be included if same as first SENDER field. If multiple
-AUTHOR fields exist, then the message was created by multiple agents and is
-considered valid. The order of multiple AUTHOR fields in the record is not
-significant.
-
-Name : AUTHORAGENT
-Value : 11h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : SENDERAGENT or previous AUTHORAGENT if exists
-Summary : Type of agent that created this message
-
-This field can only be added by the process that originally creates the
-message. It should not be included if same as first SENDERAGENT field. If
-multiple AUTHOR fields exist, then the message was created by multiple agents
-and if the agent type for any of the authors is other than AGENT_PERSON, an
-AUTHORAGENT field must follow to specify the agent type.
-
-Name : AUTHORNETTYPE
-Value : 12h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : SENDERNETTYPE or previous AUTHORNETTYPE if exists
-Summary : Type of network this author is member of
-
-Name : AUTHORNETADDR
-Value : 13h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : SENDERNETADDR or previous AUTHORNETADDR if exists
-Summary : Network address of this author
-
-Name : AUTHOREXT
-Value : 14h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDEREXT or previous AUTHOREXT if exists
-Summary : Extension of this author
-
-Name : AUTHORPOS
-Value : 15h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDERPOS or previous AUTHORPOS if exists
-Summary : Position of this author
-
-Name : AUTHORORG
-Value : 16h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : SENDERORG or previous AUTHORORG if exists
-Summary : Organization this author belongs to
-
-Name : REPLYTO
-Value : 20h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDER
-Summary : Name of agent that replies should go to
-
-Name : REPLYTOAGENT
-Value : 21h
-Data : ushort
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERAGENT
-Summary : Type of agent that replies should go to
-
-Name : REPLYTONETTYPE
-Value : 22h
-Data : ushort
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERNETTYPE
-Summary : Type of network that replies should go to
-
-Name : REPLYTONETADDR
-Value : 23h
-Data : undef
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERNETADDR
-Summary : Network address that replies should go to
-
-Name : REPLYTOEXT
-Value : 24h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDEREXT
-Summary : Extension of agent that replies should go to
-
-Name : REPLYTOPOS
-Value : 25h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERPOS
-Summary : Position of agent that replies should go to
-
-Name : REPLYTOORG
-Value : 26h
-Data : ASCII
-Multiple : Yes, but only last is valid
-Required : No
-Default : SENDERORG
-Summary : Organization of agent that replies should go to
-
-Name : RECIPIENT
-Value : 30h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes
-Default : "All"
-Summary : Name of agent to receive this message
-
-If multiple RECIPIENT fields exist, the message has been forwarded and for each
-additional RECIPIENT field (after the initial RECIPIENT), there should be a
-FORWARDED field. The order of the RECIPIENT fields in the record must match the
-order in which the message was sent and forwarded (chronologically).
-
-Name : RECIPIENTAGENT
-Value : 31h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : AGENT_PERSON or previous RECIPIENTAGENT if exists
-Summary : Type of agent to receive this message
-
-If multiple RECIPIENT fields exist, the message has been forwarded. If any of
-the recipient agents are of a type other than AGENT_PERSON, this field must
-follow the RECIPIENT field to specify the agent type.
-
-Name : RECIPIENTNETTYPE
-Value : 32h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : NET_NONE or previous RECIPIENTNETTYPE if exists
-Summary : Type of network to receive this message
-
-Name : RECIPIENTNETADDR
-Value : 33h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTNETADDR if exists
-Summary : Address of network to receive this message
-
-Name : RECIPIENTEXT
-Value : 34h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTEXT if exists
-Summary : Extension of agent to receive this message
-
-If SMB_EMAIL status header attribute is set, then the "To" field in the index
-must contain the binary value of this field rather than the CRC-16 of the
-RECIPIENT (name) field. This is the case specifically with the local e-mail
-message base on a Synchronet BBS.
-
-Name : RECIPIENTPOS
-Value : 35h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTPOS if exists
-Summary : Position of agent to receive this message
-
-Name : RECIPIENTORG
-Value : 36h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : Previous RECIPIENTORG if exists
-Summary : Type of agent to receive this message
-
-Name : FORWARDTO
-Value : 40h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of agent this message is to be forwarded to
-
-Name : FORWARDTOAGENT
-Value : 41h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTAGENT or previous FORWARDTOAGENT if exists
-Summary : Type of agent this message is to be forwarded to
-
-Name : FORWARDTONETTYPE
-Value : 42h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETTYPE or previous FORWARDTONETTYPE if exists
-Summary : Type of network this message is to be forwarded to
-
-Name : FORWARDTONETADDR
-Value : 43h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETADDR or previous FORWARDTONETADDR if exists
-Summary : Network address this message is to be forwarded to
-
-Name : FORWARDTOEXT
-Value : 44h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTEXT or previous FORWARDTOEXT if exists
-Summary : Extension of agent this message is to be forwarded to
-
-Name : FORWARDTOPOS
-Value : 45h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTPOS or previous FORWARDTOPOS if exists
-Summary : Position of agent this message is to be forwarded to
-
-Name : FORWARDTOORG
-Value : 46h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTORG or previous FORWARDTOORG if exists
-Summary : Organization of agent this message is to be forwarded to
-
-Name : FORWARDED
-Value : 48h
-Data : when_t
-Multiple : Yes, order significant
-Required : Yes, if forwarded
-Summary : Date/Time this message was forwarded to another agent
-
-Name : RECEIVEDBY
-Value : 50h
-Data : ASCII
-Multiple : Yes, order significant
-Required : Yes, if receiving agent is other than RECIPIENT
-Summary : Name of agent that received this message
-
-Name : RECEIVEDBYAGENT
-Value : 51h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTAGENT or previous RECEIVEDBYAGENT if exists
-Summary : Type of agent that received this message
-
-Name : RECEIVEDBYNETTYPE
-Value : 52h
-Data : ushort
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETTYPE or previous RECEIVEDBYNETTYPE if exists
-Summary : Type of network that received this message
-
-Name : RECEIVEDBYNETADDR
-Value : 53h
-Data : undef
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTNETADDR or previous RECEIVEDBYNETADDR if exists
-Summary : Network address that received this message
-
-Name : RECEIVEDBYEXT
-Value : 54h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTEXT or previous RECEIVEDBYEXT if exists
-Summary : Extension of agent that received this message
-
-Name : RECEIVEDBYPOS
-Value : 55h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTPOS or previous RECEIVEDBYPOS if exists
-Summary : Position of agent that received this message
-
-Name : RECEIVEDBYORG
-Value : 56h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Default : RECIPIENTORG or previous RECEIVEDBYORG if exists
-Summary : Organization of agent that received this message
-
-Name : RECEIVED
-Value : 58h
-Data : when_t
-Multiple : Yes, order significant
-Required : Yes, if received
-Default : NULL
-Summary : Date/Time this message was received
-
-Name : SUBJECT
-Value : 60h
-Data : ASCII
-Multiple : No
-Required : Yes, but may be blank (0 length or nulstr)
-Summary : Subject/title of message
-
-Name : SUMMARY
-Value : 61h
-Data : ASCII
-Multiple : No
-Required : No
-Summary : Summary of message contents, created by AUTHOR
-
-Name : COMMENT
-Value : 62h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Comment about this message, created by SENDER
-
-This field is useful for adding notes to a message when forwarding to a new
-recipient.
-
-Name : CARBONCOPY
-Value : 63h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : List of agents this message was also sent to
-
-This field is optional and only for the use of notifying the recipient of who
-else received the message.
-
-Name : GROUP
-Value : 64h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of group of users to receive message on recipient system
-
-This field is used when sending to a group name across a network, where the
-group can be expanded into multiple header records for each agent on the
-destination system.
-
-Name : EXPIRATION
-Value : 65h
-Data : when_t
-Multiple : No
-Required : No
-Summary : Date/Time that this message will expire
-
-Name : PRIORITY
-Value : 66h
-Data : ulong
-Multiple : No
-Required : No
-Default : 0
-Summary : Message priority (0 is lowest, FFFFFFFFh is highest)
-
-Name : FILEATTACH
-Value : 70h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name/file specification of attached file(s)
-
-Name of attached file(s). Wildcards allowed. MSG_FILEATTACH attribute must be
-set. If the MSG_FILEATTACH attribute is set but this field is not included,
-the SUBJECT field is assumed to be the filename(s).
-
-Name : DESTFILE
-Value : 71h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Destination name for attached file(s)
-
-Wildcards allowed. FILEATTACH field must also be included.
-
-Name : FILEATTACHLIST
-Value : 72h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of ASCII list of attached filenames
-
-Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
-MSG_FILEATTACH attribute must be set.
-
-Name : DESTFILELIST
-Value : 73h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of ASCII list of destination filenames
-
-Wildcards not allowed in ASCII list filename. Wildcards allowed in ASCII list.
-
-Name : FILEREQUEST
-Value : 74h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of requested file
-
-Wildcards allowed. MSG_FILEREQUEST attribute must be set
-
-Name : FILEPASSWORD
-Value : 75h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Password for FILEREQUEST
-
-Name : FILEREQUESTLIST
-Value : 76h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Name of ASCII list of filenames to request
-
-Wildcards allowed.
-
-Name : FILEPASSWORDLIST
-Value : 77h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Summary : Name of ASCII list of passwords for FILEREQUESTLIST
-
-Name : IMAGEATTACH
-Value : 80h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached image file for display
-
-MSG_FILEATTACH attribute must be set. See Image Types for valid
-mattach_t.type values.
-
-Name : ANIMATTACH
-Value : 81h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached graphical animation file for display
-
-MSG_FILEATTACH attribute must be set. See Animation Types for valid
-mattach_t.type values.
-
-Name : FONTATTACH
-Value : 82h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached font definition file
-
-MSG_FILEATTACH attribute must be set. See Font Types for valid mattach_t.type
-values.
-
-Name : SOUNDATTACH
-Value : 83h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached sound file for playback
-
-MSG_FILEATTACH attribute must be set. See Sound Types for valid mattach_t.type
-values.
-
-Name : PRESENTATTACH
-Value : 84h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached presentation definition file
-
-MSG_FILEATTACH attribute must be set. See Present Types for valid
-mattach_t.type values.
-
-Name : VIDEOATTACH
-Value : 85h
-Data : vattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of attached interleaved video/sound file
-
-MSG_FILEATTACH attribute must be set. See Video Types for valid
-vattach_t.type values and Video Compression Types for valid vattach_t.comp
-values.
-
-Name : APPDATAATTACH
-Value : 86h
-Data : mattach_t
-Multiple : Yes, order significant
-Required : No
-Summary : Name of attached application data file for process/display
-
-MSG_FILEATTACH attribute must be set. See Application Data Types for valid
-mattach_t.type values.
-
-Name : IMAGETRIGGER
-Value : 90h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of image file to trigger for display
-
-See Image Types for valid typestr_t.type values.
-
-Name : ANIMTRIGGER
-Value : 91h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of animation file to trigger for display
-
-See Animation Types for valid typestr_t.type values.
-
-Name : FONTTRIGGER
-Value : 92h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of font definition file to trigger
-
-See Font Types for valid typestr_t.type values.
-
-Name : SOUNDTRIGGER
-Value : 93h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of sound file to trigger for playback
-
-See Sound Types for valid typestr_t.type values.
-
-Name : PRESENTTRIGGER
-Value : 94h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of presentation definition file to trigger
-
-See Present Types for valid typestr_t.type values.
-
-Name : VIDEOTRIGGER
-Value : 95h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of interleaved video/sound file to trigger
-
-See Video Types for valid typestr_t.type values.
-
-Name : APPDATATRIGGER
-Value : 96h
-Data : typestr_t
-Multiple : Yes, order significant
-Required : No
-Summary : Type and filename of application data file to trigger
-
-See Application Data Types for valid typestr_t.type values.
-
-Name : FIDOCTRL
-Value : A0h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : keyword ":" [" "] appdata
-Summary : FTS/FSC-compliant control information line
-
-Any FidoNet FTS/FSC-compliant control information ("kludge") line that
-does not have an equivalent representation here. All data not unique to the
-actual control line, including leading and trailing white space, Ctrl-A (01h)
-character and terminating CR must be ommited. Defined in FTS-0001.
-
-Name : FIDOAREA
-Value : A1h
-Data : ASCII
-Multiple : No
-Required : No
-Summary : FTN EchoMail conference name.
-
-Defined in FTS-0004.
-
-Name : FIDOSEENBY
-Value : A2h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : net"/"node [" "[net"/"]node] [...]
-Summary : Used to store two-dimensional (net/node) SEEN-BY information
-
-Often used in FTN EchoMail environments. Only the actual SEEN-BY data is stored
-and SEEN-BY: is stripped along with any leading and trailing white space
-characters. Defined in FTS-0004.
-
-Name : FIDOPATH
-Value : A3h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : net"/"node [" "[net"/"]node] [...]
-Summary : Used to store two-dimensional (net/node)
-
-Defined in FTS-0004. ^aPATH: is stripped along with any leading and trailing
-white space characters.
-
-Name : FIDOMSGID
-Value : A4h
-Data : ASCII
-Multiple : No
-Required : No
-Format : origaddr " " serialno
-Summary : MSGID field as specified in FTS-0009.
-
-Name : FIDOREPLYID
-Value : A5h
-Data : ASCII
-Multiple : No
-Required : No
-Format : origaddr " " serialno
-Summary : REPLY field as specified in FTS-0009.
-
-Name : FIDOPID
-Value : A6h
-Data : ASCII
-Multiple : No
-Required : No
-Format : pID " " version [" "serialno]
-Summary : Indentification string of program that created this message
-
-Defined FSC-0046. "^aPID:" and any white space is not included.
-
-Name : FIDOFLAGS
-Value : A7h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Used to store the FTN FLAGS kludge information
-
-Note that all FLAG options that have binary representation in the message
-header must be removed from the FLAGS string prior to storing it. Only the
-actual flags option string is stored and ^aFLAGS is stripped along with any
-leading and trailing white space characters. Defined in FSC-0053.
-
-Name : RFC822HEADER
-Value : B0h
-Data : ASCII
-Multiple : Yes, order significant
-Required : No
-Format : field-name ":" [field-body] [CRLF]
-Summary : Undefined RFC-822 header field
-
-Internet Message storage format, that does not have an equivalent
-representation here. Folded header fields are allowed. Terminating CRLF may be
-ommited.
-
-Name : RFC822MSGID
-Value : B1h
-Data : ASCII
-Multiple : No
-Required : No
-Format : "<" addr-spec ">"
-Summary : Message-ID field as specified in RFC-822.
-
-Name : RFC822REPLYID
-Value : B2h
-Data : ASCII
-Multiple : No
-Required : No
-Format : "<" addr-spec ">"
-Summary : In-Reply-To field as specified in RFC-822.
-
-Name : UNKNOWN
-Value : F0h
-Data : undef
-Multiple : Yes
-Required : No
-Summary : Undefined header field of undefined type
-
-This field is useful for retaining binary header fields (that do not have an
-equivalent representation here) between message storage formats.
-
-Name : UNKNOWNASCII
-Value : F1h
-Data : ASCII
-Multiple : Yes
-Required : No
-Summary : Undefined header field of type ASCII
-
-This field is useful for retaining ASCII header fields (that do not have an
-equivalent representation here) between message storage formats.
-
-Name : UNUSED
-Value : FFh
-Data : undef
-Multiple : Yes
-Required : No
-Summary : Unused (deleted) header field
-
-The data contained in this header field is of an unknown type and should not be
-processed.
-
-
-Note:
-----
-Specifically, not defined are the values F000h through FFFFh. These values
-are to be used for user or system defined header fields. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-header fields added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.
-
-Data Field Types:
-================
-&&Data Field Types
-$$DFIELD_T
-
-These are the defined valid values for dfield_t.type:
-
-
-Val Name Data Description
---- ---- ---- -----------
-00h TEXT_BODY mtext_t Displayable text (body of message).
- Included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data
- (except when multiple contiguous CRLFs
- terminate the text, only the last CRLF
- is removed).
-
-01h TEXT_SOUL mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Included in duplicate message checking.
-
-02h TEXT_TAIL mtext_t Displayable text (tag/tear/origin lines,
- etc).
- Not included in duplicate message checking.
- All terminating white space and control
- characters are to be truncated from data.
-
-03h TEXT_WING mtext_t Non-displayed text.
- Not normally displayed. Not necessarily
- displayable.
- Not included in duplicate message checking.
-
-10h FTEXT_BODY ftext_t Formatted equivalent of TEXT_BODY to be
- displayed in place of TEXT_BODY if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
-12h FTEXT_TAIL ftext_t Formatted equivalent of TEXT_TAIL to be
- displayed in place of TEXT_TAIL if format
- is supported. See Image Types for valid
- values of ftext_t.type.
-
-20h IMAGEEMBED membed_t Type and data of embedded raster image file
- for display.
- See Image Types for valid membed.type
- values.
-
-21h ANIMEMBED membed_t Type and data of embedded graphical
- animation file for display.
- See Animation Types for valid membed.type
- values.
-
-22h FONTEMBED membed_t Type and data of embedded font definition
- file. See Font Types for valid
- membed_t.type values.
-
-23h SOUNDEMBED membed_t Type and data of embedded sound file for
- playback.
- See Sound Types for valid membed_t.type
- values.
-
-24h PRESENTEMBED membed_t Type and data of embedded presentation
- definition file.
- See Present Types for valid membed_t.type
- values.
-
-25h VIDEOEMBED vembed_t Type and data of embedded video/sound file
- for playback.
- See Video Types for valid vembed_t.type
- values.
- See Video Compression Types for valid
- vembed_t.comp values.
-
-26h APPDATAEMBED membed_t Type and data of embedded application data
- file for process/display.
- See Application Data Types for valid
- membed_t.type values.
-
-FFh UNUSED undef Space allocated for future update/expansion
-
-
-Specifically, not defined are the values F000h through FFFFh. These values
-are to be used for user or system defined data fields. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-data fields added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.
-
-
-Message Attributes:
-------------------
-&&Message Attributes
-$$ATTRBITS
-
-These are the bit values for idxrec_t.attr and msghdr_t.attr:
-
-MSG_PRIVATE (1<<0) // Private
-MSG_READ (1<<1) // Read by addressee
-MSG_PERMANENT (1<<2) // Permanent
-MSG_LOCKED (1<<3) // Msg is locked, no editing possible
-MSG_DELETE (1<<4) // Msg is marked for deletion
-MSG_ANONYMOUS (1<<5) // Anonymous author
-MSG_KILLREAD (1<<6) // Delete message after it has been read
-MSG_MODERATED (1<<7) // This message must be validated before export
-MSG_VALIDATED (1<<8) // This message has been validated by a moderator
-
-
-Auxillary Attributes:
---------------------
-These are the bit values for msghdr_t.auxattr:
-
-MSG_FILEREQUEST (1<<0) // File request
-MSG_FILEATTACH (1<<1) // File(s) attached to Msg
-MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
-MSG_KILLFILE (1<<3) // Delete file(s) when sent
-MSG_RECEIPTREQ (1<<4) // Return receipt requested
-MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
-MSG_NODISP (1<<6) // Msg may not be displayed to user
-
-
-Network Attributes:
-------------------
-These are the bit values for msghdr_t.netattr:
-
-MSG_LOCAL (1<<0) // Msg created locally
-MSG_INTRANSIT (1<<1) // Msg is in-transit
-MSG_SENT (1<<2) // Sent to remote
-MSG_KILLSENT (1<<3) // Kill when sent
-MSG_ARCHIVESENT (1<<4) // Archive when sent
-MSG_HOLD (1<<5) // Hold for pick-up
-MSG_CRASH (1<<6) // Crash
-MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
-MSG_DIRECT (1<<8) // Send directly to destination
-MSG_GATE (1<<9) // Send via gateway
-MSG_ORPHAN (1<<10) // Unknown destination
-MSG_FPU (1<<11) // Force pickup
-MSG_TYPELOCAL (1<<12) // Msg is for local use only
-MSG_TYPEECHO (1<<13) // Msg is for conference distribution
-MSG_TYPENET (1<<14) // Msg is direct network mail
-
-Translation Types:
------------------
-&&Translation Types
-$$XLATTYPE
-
-Definition for values of *.xlat[x]:
-
-XLAT_NONE 0 // No translation/End of translation list
-XLAT_LF2CRLF 1 // Expand sole LF to CRLF
-XLAT_ESCAPED 2 // 7-bit ASCII escaping for ctrl and 8-bit data
-XLAT_HUFFMAN 3 // Static and adaptive Huffman coding compression
-XLAT_LZW 4 // LZW (Lempel-Ziv-Welch) encoding for compression
- // Terry Welch, IEEE Computer Vol 17, No 6
- // June 1984, pp 8-19
-XLAT_LZC 5 // LZC (modified LZW) encoding for compression
- // Unix compress program
-XLAT_RLE 6 // Run length encoding compression
-XLAT_IMPLODE 7 // Implode compression (PKZIP v1.x)
-XLAT_SHRINK 8 // Shrink compression (PKZIP v1.x)
-XLAT_LZH 9 // LZH dynamic Huffman coding
- // Haruyasu Yoshizaki, LHarc
- // November, 1988
-
-Agent Types:
------------
-&&Agent Types
-$$AGENTTYP
-
-AGENT_PERSON 0 // To or from person
-AGENT_PROCESS 1 // Unknown process, identified by agent name
-
-Agent types E000h through EFFFh are reserved for Synchronet process types
-(defined specifically by Digital Dynamics).
-
-Note:
-----
-Specifically not defined are agent types F000h through FFFFh. These values
-are to be used for user or system defined agent types. Digital Dynamics
-requests that any developers or organizations that wish to have additional
-agent types added to this specification notify Digital Dynamics through any
-of the contact methods listed at the beginning of this document.
-
-Network Types:
--------------
-&&Network Types
-$$NETWORKS
-
- // Net Type Address Format
- // -----------------------------------
-NET_NONE 0 // Locally created none
-NET_UNKNOWN 1 // Unknown undef
-NET_FIDO 2 // FTN network fidoaddr_t
-NET_POSTLINK 3 // PostLink network none
-NET_QWK 4 // QWK based network ASCII
-NET_INTERNET 5 // The Internet ASCII
-NET_WWIV 6 // WWIV based network ulong
-NET_MHS 7 // MHS network ASCII
-
-
-Media Types:
-===========
-&&Media Types
-$$MEDIATYP
-
-Image Types:
------------
-
-IMAGE_UNKNOWN 0x00 // Use image signature header to determine format
-IMAGE_ASC 0x01 // ASCII text/IBM extended ASCII graphics
-IMAGE_ANS 0x02 // ANSI X3.64 terminal escape sequences
-IMAGE_AVT 0x03 // AVATAR terminal escape sequences
-IMAGE_LVI 0x04 // LVI terminal escape sequences
-IMAGE_GIF 0x05 // Compuserve Graphics Interchange Format (GIF)
-IMAGE_TIF 0x06 // Tagged Image Format (AKA TIFF)
-IMAGE_JPG 0x07 // Joint Photographers Electronics Group (JPEG)
-IMAGE_T16 0x08 // TrueVision 16-bit bitmap (TGA)
-IMAGE_T24 0x09 // TrueVision 24-bit bitmap (TGA)
-IMAGE_T32 0x0a // TrueVision 32-bit bitmpa (TGA)
-IMAGE_PCX 0x0b // ZSoft PaintBrush graphics
-IMAGE_BMP 0x0c // Windows bitmap
-IMAGE_RLE 0x0d // Windows bitmap (compressed)
-IMAGE_DIB 0x0e // Display independant bitmap
-IMAGE_PCD 0x0f // Kodak PhotoCD
-IMAGE_G3F 0x10 // Group 3 FAX
-IMAGE_EPS 0x11 // Ecapsulated PostScript
-IMAGE_RTF 0x12 // Rich text format
-IMAGE_RIP 0x13 // Remote Imaging Protocol Script (RIPscrip)
-IMAGE_NAP 0x14 // NAPLPS
-IMAGE_CDR 0x15 // Corel Draw!
-IMAGE_CGM 0x16 // Computer graphics metafile
-IMAGE_WMF 0x17 // Windows metafile
-IMAGE_DFX 0x18 // Autodesk AutoCAD
-IMAGE_IFF 0x19 // Amiga Interchange File Format
-IMAGE_HTM 0x20 // HyperText Markup Language (MTML) Document
-IMAGE_OS2 0x21 // OS/2 bitmap (BMP)
-
-Animation Types:
----------------
-
-ANIM_UNKNOWN 0 // Use file signature header to determine format
-ANIM_FLI 1 // Autodesk animator
-ANIM_FLC 2 // Autodesk
-ANIM_GL 3 // Grasprt
-ANIM_IFF 4 // Amiga Interchange File Format
-
-
-Video Types:
------------
-
-VIDEO_UNKNOWN 0 // Use file signature header to determine format
-VIDEO_QTIME 1 // Apple Quick-time
-VIDEO_FQTIME 2 // Apple Flattened Quick-time
-VIDEO_AVI 3 // Windows Auto/Video Interleave
-VIDEO_ULT 4 // OS/2 Ultimotion
-
-Video Compression Types:
------------------------
-
-VCOMP_UNKNOWN 0 // Use file signature header to determine codec
-VCOMP_RLE 1 // Apple animation
-VCOMP_SMC 2 // Apple graphics
-VCOMP_RPZA 3 // Apple video
-VCOMP_KLIC 4 // Captain crunch
-VCOMP_CVID 5 // CinePak
-VCOMP_RT21 6 // Intel indeo R2
-VCOMP_IV31 7 // Intel indeo R3
-VCOMP_YVU9 8 // Intel YVU9
-VCOMP_JPEG 9 // JPEG
-VCOMP_MRLE 10 // Microsoft RLE
-VCOMP_MSVC 11 // Microsoft video 1
-
-
-Font Types:
-----------
-
-FONT_UNKNOWN 0 // Use file signature header to determine format
-FONT_TTF 1 // Windows TrueType
-FONT_PFB 2 // PostScript Type 1 Font Binary
-FONT_PFM 3 // PostScript Type 1 Font Metric
-FONT_AMIGA 4 // Amiga Bitmapped
-FONT_AGFA 5 // CompuGraphic Fonts
-
-
-Sound Types:
------------
-
-SOUND_UNKNOWN 0 // Use file signature header to determine format
-SOUND_MOD 1 // MOD format
-SOUND_VOC 2 // Sound Blaster VOC format
-SOUND_WAV 3 // Windows 3.1 WAV RIFF format
-SOUND_MID 4 // MIDI format
-SOUND_GMID 5 // General MIDI format (standardized patches)
-SOUND_SMP 6 // Turtle Beach SampleVision format
-SOUND_SF 7 // IRCAM format
-SOUND_AU 8 // Sun Microsystems AU format
-SOUND_IFF 9 // Amiga Interchange File Format
-
-Application Data Types:
-----------------------
-
-APPDATA_UNKNOWN 0 // Use file signature header to determine format
-APPDATA_WORDPERFECT 1 // WordPerfect Document
-APPDATA_WKS 2 // Lotus 123 Worksheet (?)
-APPDATA_WK1 3 // Lotus 123 Worksheet rev 1
-APPDATA_WK2 4 // Lotus 123 Worksheet rev 2
-APPDATA_WK3 5 // Lotus 123 Worksheet rev 3
-APPDATA_DBF 6 // dBase III data file
-APPDATA_PDX 7 // Paradox data file
-APPDATA_EXCEL 8 // Excel data file
-APPDATA_QUATRO 9 // Borland Quatro Pro file
-APPDATA_WORD 10 // Microsoft Word
-
-Message Storage Pseudo Code
-===========================
-&&Message Storage Pseudo Code
-$$STORPCOD
-
-The following is a "C like" pseudo code listing example of adding a message to
-an SMB message base. SMBLIB contains C functions to do most of the following
-operations. We are supplying this pseudo code as a general definition of the
-order of required operations in writing to the message base. Many details have
-been left out to simplify the code and to demonstrate only the basic
-principles.
-
-shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
-sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-
-lock ( shd , smbhdr )
-read ( shd , smbstatus )
-
-if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.hdr.offset = filelength ( sdt )
-
-else {
- number_of_blocks = length_of_message_data / SDT_BLOCK_LEN
- if ( length_of_message_data % SDT_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1
-
- sda = open ( MSGBASE.SDA , READ/WRITE/DENY_ALL )
-
- if ( fast_allocation_mode )
- seek ( sda , END_OF_FILE )
-
- else {
- seek ( sda , BEGINNING_OF_FILE )
- while ( not end_of_file ( sda ) ) {
- read ( sda , allocated , number_of_blocks * 2 )
- if ( allocated = 0 ) {
- seek_backwards ( sda , number_of_blocks * 2 )
- break
- }
- }
- }
-
- msg.hdr.offset = ( current_position ( sda ) / 2 ) * SDT_BLOCK_LEN
-
- allocated = 1
-
- write ( sda , allocated , number_of_blocks * 2 )
-
- close ( sda )
-}
-
-seek ( sdt , msg.hdr.offset )
-
-write ( sdt , message_data )
-
-if ( smbstatus.attr & SMB_HYPERALLOC )
- msg.idx.offset = filelength ( shd )
-
-else {
- number_of_blocks = length_of_message_header / SHD_BLOCK_LEN
- if ( length_of_message_header % SHD_BLOCK_LEN ) /* unevenly divisible */
- number_of_blocks = number_of_blocks + 1
-
- sha = open ( MSGBASE.SHA , READ/WRITE/DENY_ALL )
-
- if ( fast_allocation_mode )
- seek ( sha , END_OF_FILE )
-
- else {
- seek ( sha , BEGINNING_OF_FILE )
- while ( not end_of_file ( sha ) ) {
- read ( sha , allocated , number_of_blocks )
- if ( allocated = 0 ) {
- seek_backwards ( sha , number_of_blocks )
- break
- }
- }
- }
-
- msg.idx.offset = ( current_position ( sha ) * SHD_BLOCK_LEN )
- msg.idx.offset = msg.idx.offset + smbstatus.header_offset
-
- allocated = 1
-
- write ( sha , allocated , number_of_blocks )
-
- close ( sha )
-}
-
-seek ( shd , msg.idx.offset )
-
-msg.hdr.number = smbstatus.last_msg+1
-
-write ( shd , msg.hdr )
-
-smbstatus.total_msgs = smbstatus.total_msgs + 1
-smbstatus.last_msg = msg.hdr.number
-
-write ( shd , smbstatus )
-
-write ( sid , msg.idx )
-
-unlock ( shd , smbstatus )
-
-Message Retrieval Pseudo Code
-=============================
-&&Message Retrieval Pseudo Code
-$$READPCOD
-
-shd = open ( MSGBASE.SHD , READ/WRITE/DENY_NONE )
-sdt = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-sid = open ( MSGBASE.SDT , READ/WRITE/DENY_NONE )
-
-read ( sid , msg.idx )
-
-seek ( shd , msg.idx.offset )
-
-lock ( shd , msg.hdr )
-
-read ( shd , msg.hdr )
-
-seek ( sdt , msg.hdr.offset )
-
-read ( sdt , msg.hdr.data_length )
-
-unlock ( shd , msg.hdr )
-
-SMBUTIL
-=======
-&&SMBUTIL
-$$SMBUTIL_
-
-SMBUTIL is a utility that can perform various functions on an SMB message base.
-The primary purpose of SMBUTIL is as an example to C programmers of how to use
-the SMBLIB functions to access and modify an SMB message base. The complete C
-source code for SMBUTIL is included and functions from it can be used or
-modified by developers at their own discretion. The following files make up
-SMBUTIL:
-
-SMBUTIL.EXE Compiled and linked for 16-bit DOS (ready to run)
-SMBUTIL.C C functions
-SMBUTIL.H C definitions and variable prototypes
-SMBUTIL.WAT Makefile for Watcom C/C++ (type wmake -f smbutil.wat)
-SMBUTIL.BOR Makefile for Borland C/C++ (type make -f smbutil.bor)
-
-The usage syntax is as follows:
-
-SMBUTIL [/opts] cmd smb_filespec.shd
-
-where cmd is one or more of the following:
-
- l[n] = list msgs starting at number n
- r[n] = read msgs starting at number n
- v[n] = view msg headers starting at number n
- k[n] = kill (delete) n msgs
- i<f> = import from text file f
- s = display msg base status
- c = change msg base status
- m = maintain msg base - delete old msgs and msgs over max
- p[k] = pack msg base (k specifies minimum packable Kbytes)
-
-where opts is one or more of the following:
-
- a = always (force) packing
- z<n> = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)
-
-and smb_filespec is the base filename or file specification (wildcards) for the
-message base. If wildcards are used, the ".SHD" extension must be specified.
-
-An example command line:
-
-SMBUTIL MP C:\SBBS\DATA\SUBS\*.SHD
-
-would maintain and pack all the message bases found in the C:\SBBS\DATA\SUBS
-directory.
-
-CHKSMB
-======
-&&CHKSMB
-$$CHKSMB__
-
-CHKSMB is a utility that performs a comprehensive analysis of a message base
-to find any possible errors and calculate the number of packable bytes. It does
-not "fix" a message base if any errors are found, it only reports the specific
-errors (and exits with a non-zero error level). If any errors are reported,
-packing the message base with SMBUTIL may rebuild the damaged files. If that
-doesn't work, then use FIXSMB as a last resort.
-
-C source code for CHKSMB is also included as an example to programmers of how
-to use SMBLIB functions.
-
-The usage syntax is as follows:
-
-CHKSMB [/opts] smb_filespec.shd
-
-where opts is one or more of the following:
-
- q = quiet mode (no beeps)
- s = stop after an errored message base (for use with wildcards)
- p = pause after an errored message base (wait for key press)
- t = don't check for unsupported translation strings (faster)
- e = display extended information on corrupted messages
-
-An example command line:
-
-CHKSMB /QP C:\SBBS\DATA\SUBS\*.SHD
-
-would check all the message bases in the C:\SBBS\DATA\SUBS directory, without
-beeping on errors, and pausing after an errored message base.
-
-FIXSMB
-======
-&&FIXSMB
-$$FIXSMB__
-
-FIXSMB is a utility that will rebuild the index and allocation files for a
-message base. Since the message headers are not necessarily stored
-sequentially, the order of the messages in the index may be changed when the
-index is rebuilt. Messages are also re-numbered, so only use this program if
-the index is corrupted and the messages are extremely important.
-
-C source code for FIXSMB is also included as an example to programmers of how
-to use SMBLIB functions.
-
-The usage syntax is as follows:
-
-FIXSMB [/M] smb_file
-
-An example command line:
-
-FIXSMB \SBBS\DATA\MAIL
-
-Only use the "/M" command line switch if fixing an older Synchronet e-mail
-message base (created with SBBS v2.1 or earlier). Once the SMB_EMAIL status
-attr is set ("SMBUTIL S" will report a status attr of 1), the "/M" is not
-required.
-
-SMBLIB
-======
-&&SMBLIB
-$$SMBLIB__
-
-SMBLIB is a library of C functions for accessing and storing messages in an
-SMB format message base. It can eliminate much of the development time for
-developers that wish to use the library in whole or in part, or use the
-functions as examples for their own message base function library. The library
-consists of the following files:
-
-SMBDEFS.H Constant definitions, macros, and data types
-SMBLIB.H Library constants and function prototypes
-SMBLIB.C Function definitions
-SMBVARS.C Global variable definitions (doubles as declaration file)
-
-For developers to use this library with their program, they must include the
-"SMBLIB.H" header file at the top of each C file that uses any of the library
-functions, global variables, data types, macros, and constants. This can be
-done by simply adding the following line to each .C file:
-
-#include "smblib.h"
-
-If SMBLIB.H is included, there is no need to include SMBDEFS.H or SMBVARS.C.
-
-To link the library functions and variables with a main program, the files
-SMBVARS.OBJ and SMBLIB.OBJ must be linked with the main program .OBJ files.
-If the operating system is DOS, be sure that all .OBJ files are compiled for
-the same memory model.
-
-Example MAKEFILEs for compiling and linking SMBUTIL with Borland C/C++
-(SMBUTIL.BOR) and Watcom C/C++ (SMBUTIL.WAT) are included.
-
-SMBDEFS.H
-=========
-&&SMBDEFS.H
-$$SMBDEFS_
-
-The SMBDEFS.H file contains important constant definitions and data types (also
-defined in this document). If ever this document and SMBDEFS.H are inconsistent
-with each other, then SMBDEFS.H is to be considered correct and this document
-in error. If such a discrepency is found, please notifiy Digital Dynamics so it
-can be corrected in a future revision of the specification.
-
-Most notable of the data types is a structure called smbmsg_t (not defined
-in this document). It contains the fixed and variable portions of a message's
-header record as well as convenience pointers to the sender's name
-(smbmsg_t.to), recipient's name (smbmsg_t.from), network addresses, and more.
-If multiple SENDER header fields are included (for example), then smbmsg_t.to
-will point to the last SENDER header field in the header record. Convenience
-pointers for other data items work in the same fasion if multiple header fields
-of the same type exist in the header record.
-
-Variables of the smbmsg_t data type (and pointers to variables of smbmsg_t
-type) are used as arguments to many of the SMBLIB functions.
-
-SMBVARS.C
-=========
-&&SMBVARS.C
-$$SMBVARS_
-
-The SMBVARS.C file contains definitions of the global variables used by the
-SMBLIB functions. It is a fairly small file since there are a small number of
-global variables (by design). This file is used for both definitions and
-declarations, so no "extern" declarations need to be made in developers source
-code as long as SMBVARS.C or (preferably) SMBLIB.H is included in the source
-code.
-
-SMBLIB.H
-=======
-&&SMBLIB.H
-$$SMBLIB.H
-
-The SMBLIB.H file contains prototypes of all the functions in the SMBLIB.C
-file. It is necessary to include this file in C source code if any of the
-SMBLIB functions are used. The following C source line will include this file:
-
-#include "smblib.h"
-
-and should be placed near the top of all C source files that use SMBLIB
-functions, variables, constants, or data types.
-
-Function prototypes are necessary for compilers to know the correct calling
-syntax of a function and detect incorrect usage. Prototypes are also useful
-as a quick reference for programmers as to the correct calling syntax of a
-specific function.
-
-SMBLIB.C
-=======
-&&SMBLIB.C
-$$SMBLIB.C
-
-The SMBLIB.C file contains the actual SMBLIB library functions. This source
-file is not a stand alone program, but instead must be compiled and linked
-with a main source file to create the executable program.
-
-The functions in this file are organized in a logical order, but their order
-is actually irrelevant to the compiling, linking, and execution of the
-resulting program.
-
-A comment block preceeds each function, explaining what the function does,
-how the passed parameters are used, and what the return code (if any)
-indicates. A more detailed explanation of each function is included here:
-
-int smb_open(int retry_time)
-----------------------------
-The smb_open() function must be called before the message base is accessed
-(read from or written to). The parameter, retry_time, is the maximum number
-of seconds to wait while retrying to lock the message base header. If
-retry_time is 0, then the message base header is not locked or read (this is
-called "Fast Open" and should only be used when speed is more important than
-checking for compatibility and validity upon opening). The global variable
-smb_file must be initialized with the path and base filename of the message
-base. This function returns 0 on success, 1 if the .SDT file could not be
-opened, 2 if the .SHD file could not be opened, and 3 if the .SID file could
-not be opened. If the message base header could not be locked, this function
-returns -1. If the message base ID is incorrect, it returns -2. And if the
-message base is of an incompatible version, it returns -3.
-
-The errno global variable (standard of most C libraries) will most likely
-contain the error code for open failure.
-
-int smb_open_da(int retry_time)
--------------------------------
-The smb_open_da() function is used to open the data block allocation file for
-writing messages to a message base. The parameter, retry_time, is the maximum
-number of seconds to wait while retrying to open the file. This function
-returns 0 on success. -1 is returned if an open error other than "Access
-Denied" is returned from the operating system, and the global variable errno
-will contain the error code. -2 is returned if the retry_time has been
-reached, and -3 is returned if the file descriptor could not be converted to
-a stream by the fdopen() function.
-
-fclose(sda_fp) should be called immediately after all necessary file access
-has been completed.
-
-This function is not used with the Hyper Allocation storage method.
-
-int smb_open_ha(int retry_time)
--------------------------------
-The smb_open_ha() function is used to open the header block allocation file for
-writing messages to a message base. The parameter, retry_time, is the maximum
-number of seconds to wait while retrying to open the file. This function
-returns 0 on success. -1 is returned if an open error other than "Access
-Denied" is returned from the operating system, and the global variable errno
-will contain the error code. -2 is returned if the retry_time has been
-reached, and -3 is returned if the file descriptor could not be converted to
-a stream by the fdopen() function.
-
-fclose(sha_fp) should be called immediately after all necessary file access
-has been completed.
-
-This function is not used with the Hyper Allocation storage method.
-
-int smb_create(ulong max_crcs, ulong max_msgs, ushort max_age, ushort attr
- ,int retry_time)
---------------------------------------------------------------------------
-The smb_create() function is used to create a new message base or reset an
-existing message base. The parameters max_crcs, max_msgs, max_age, and attr
-are used to set the initial status of the message base status header. The
-parameter, retry_time is the maximum number of seconds to wait while retrying
-to lock the message base header. This functions returns 0 on success or 1 if
-the message base header could not be locked.
-
-int smb_trunchdr(int retry_time)
---------------------------------
-The smb_trunchdr() function is used to truncate the header file when packing
-the message base and writing the new header information back to the header
-file. The parameter, retry_time is the maximum number of seconds to wait while
-retrying to truncate the header file. Returns 0 on success, -1 if error was
-other than "Access Denied", or -2 if retry_time reached.
-
-int smb_locksmbhdr(int retry_time)
-----------------------------------
-The smb_locksmbhdr() function is used to lock the first message base (status)
-header. The parameter, retry_time is the number of seconds to wait while
-retrying to lock the header. The smb_unlocksmbhdr() function should always be
-used to unlock the header after accessing the message base header (usually
-with smb_getstatus() and/or smb_putstatus()). Returns 0 if successful, -1 if
-unsuccessful.
-
-int smb_unlocksmbhdr()
-----------------------
-The smb_unlocksmbhdr() function is used to unlock a previously locked message
-base header (using smb_lockmsghdr()). Returns 0 on success, non-zero on
-failure.
-
-int smb_getstatus(smbstatus_t *hdr)
------------------------------------
-The smb_getstatus() function is used to read the status message base header
-into the hdr structure. Returns 0 on success, 1 on failure.
-
-int smb_putstatus(smbstatus_t hdr)
-----------------------------------
-The smb_putstatus() function is used to write the status information to the
-first message base header. The parameter hdr, contains the status information
-to be written. Returns 0 on success, 1 on failure.
-
-int smb_getmsgidx(smbmsg_t *msg)
---------------------------------
-The smb_getmsgidx() function is used to get the byte offset for a specific
-message header in the message header file based on the message base index.
-
-If msg->hdr.number is non-zero when this function is called, then the index
-will be searched for this message number. If the message number is found in
-the index, the msg->idx.offset is set to the byte offset of the message header
-record in the header file and msg->offset is set to the record offset of the
-index record in the index file, and the function returns 0. If the message
-number is not found in the index, the function returns 1.
-
-If msg->hdr.number is zero, msg->idx.offset and msg->idx.number are obtained
-from the index record at record offset msg->offset. If msg->offset is an
-invalid record offset when this function is called, the function returns 1.
-Otherwise, the function returns 0.
-
-int smb_getlastidx(idxrec_t *idx)
----------------------------------
-Reads the last index record of the currently open message base into the
-idxrec_t structure pointed to by idx. Returns 0 if successful, -1 if the index
-is empty or unopened, or -2 if the record can't be read.
-
-int smb_getmsghdrlen(smbmsg_t msg)
-----------------------------------
-The smb_getmsghdrlen() function is used to calculate the total length of
-message header msg including both fixed and variable length portions. This
-function returns the length of the header record in bytes.
-
-long smb_getmsgdatlen(smbmsg_t msg)
------------------------------------
-The smb_getmsgdatlen() function is used to calculate the total length of the
-data for message msg. This function returns the length of all data fields
-combined.
-
-int smb_lockmsghdr(smbmsg_t msg, int retry_time)
-------------------------------------------------
-The smb_lockmsghdr() function is used to lock the header record for message
-msg. The parameter retry_time is the maximum number of seconds to wait while
-retrying to lock the header. Returns 0 on success, -1 on failure. The function
-smb_unlockmsghdr() should immediately be called after accessing the message
-header (usually with smb_getmsghdr() or smb_putmsghdr()).
-
-int smb_getmsghdr(smbmsg_t *msg)
---------------------------------
-The function smb_getmsghdr() is used to read the header record for message
-msg. msg->idx.offset must be initialized to the byte offset of the header
-record in the header file before this function is called. The function
-smb_freemsgmem() must be called to free the memory allocated by this function
-for the header and data felds. This function returns 0 on success, -1 if
-the fixed portion of the message header record could not be read, -2 if the
-message header ID was incorrect, -3 if memory could not be allocated, -4
-if a data field could not be read, -5 if the fixed length portion of a header
-field could not be read, -6 if the variable length portion of a header field
-could not be read, -7 if one or more of the mandatory header fields (SENDER,
-RECIPIENT, or SUBJECT) are missing, -8 if total_dfields extends beyond the
-end of the header record, or -9 if incompatible header version.
-
-Several convenience pointers in the msg structure are initialized by this
-function to point to the last occurance of the SENDER (msg->from), RECIPIENT
-(msg->to), SUBJECT (msg->subj), etc.
-
-int smb_unlockmsghdr(smbmsg_t msg)
-----------------------------------
-The smb_unlockmsghdr() function is used to unlock a previously locked message
-header (with smb_lockmsghdr()). This function returns 0 on success, non-zero
-on failure.
-
-int smb_addcrc(ulong max_crcs, ulong crc, int retry_time)
----------------------------------------------------------
-The smb_addcrc() function is used to add a CRC-32 to the CRC history file
-for a message base, automatically checking for duplicates. The parameter
-max_crcs should be the max_crcs defined in the status header of the message
-base. The parameter crc, is the CRC-32 of the TEXT_BODY and TEXT_SOUL data
-fields for the message. The parameter retry_time is the maximum number of
-seconds to wait when retrying to open the CRC history file.
-
-This function returns -1 if there was an open error, -2 if the retry_time
-was reached, -3 if there was a memory allocation error, 1 if the CRC already
-exists in the CRC history file (indicating a duplicate message), or 0 on
-success (and no duplicate).
-
-int smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)
----------------------------------------------------------------------
-The smb_hfield() function is used to add a header field to the structure msg.
-The parameters type, length, and data, must be specified according to the
-header field values listed in this specification. This function returns 0
-on success, non-zero on memory allocation error. The function smb_freemsgmem()
-must be called to free the memory allocated by this function.
-
-int smb_dfield(smbmsg_t *msg, ushort type, ulong length)
---------------------------------------------------------
-The smb_dfield() function is used to add a data field to the structure msg.
-The parameters type and length must be specified according to the data field
-values listed in this specification. This function returns 0 on success,
-non-zero on memory allocation error. The function smb_freemsgmem() must be
-called to free the memory allocated by this function.
-
-int smb_addmsghdr(smbmsg_t *msg,smbstatus_t *status,int storage,int retry_time)
--------------------------------------------------------------------------------
-The smb_addmsghdr() function is used to add a new message header to the message
-header file and update the index file. The msg and status structures are
-updated to reflect the new total messages, last message number, etc. The
-storage parameter is used to indicate the storage method to use (either
-SMB_SELFPACK, SMB_FASTALLOC, or SMB_HYPERALLOC). If the storage type is
-SMB_SELFPACK, the header block allocation file will be searched for unused
-block(s) to store this header. If the storage type is SMB_FASTALLOC or
-SMB_HYPERALLOC, the header is stored at the end of the header file. Returns 0
-on success, non-zero on failure. The parameter retry_time is the maximum number
-of seconds to wait while retrying to lock and open files.
-
-int smb_putmsg(smbmsg_t msg)
-----------------------------
-The smb_putmsg() function calls both the smb_putmsghdr() and smb_putmsgidx()
-functions to write the header and index elements of a message to the
-appropriate files. Returns 0 on success, non-zero on failure.
-
-int smb_putmsgidx(smbmsg_t msg)
--------------------------------
-The smb_putmsgidx() function is used to store a message index in the message
-index file. The message index can be for a new message or an existing
-message. Returns 0 on success, non-zero on failure.
-
-int smb_putmsghdr(smbmsg_t msg)
--------------------------------
-The smb_putmsghdr() function is used to store a message header in the message
-header file. The message header can be for a new message or an existing
-message. Returns 0 on success, non-zero on failure.
-
-void smb_freemsgmem(smbmsg_t msg)
----------------------------------
-Frees allocated memory for the header and data fields in the msg structure.
-This function must be called to free the memory allocated by the functions
-smb_hfield(), smb_dfield(), and smb_getmsghdr().
-
-long smb_hdrblocks(ulong length)
---------------------------------
-The smb_hdrblocks() function is used to calculate the number of blocks
-required to store a message header of length size (in bytes). This function
-returns the number of blocks required.
-
-long smb_datblocks(ulong length)
---------------------------------
-The smb_datblocks() function is used to calculate the number of blocks
-required to store message data of length size (in byte). This function returns
-the number of blocks required.
-
-long smb_allochdr(ulong length)
--------------------------------
-The smb_allochdr() function is used to search for free blocks to store a
-message header of length bytes and mark the free blocks as allocated in the
-header allocation file. This function returns the byte offset to the header
-record or a negative number on error. The function smb_open_ha() should be
-called prior to calling this function and fclose(sha_fp) should be called
-after. The function is called from smb_addmsghdr(), so you probably have no
-need to call this function directly.
-
-long smb_fallochdr(ulong length)
---------------------------------
-The smb_fallochdr() function works exactly the same as the smb_allochdr()
-function except it is much faster because the header allocation file is not
-searched for free blocks. The function is called from smb_addmsghdr(), so you
-probably have no need to call this function directly.
-
-long smb_hallochdr(ulong header_offset)
----------------------------------------
-This smb_hallochdr() functions works exactly the same as the smb_fallochdr()
-function except the status.header_offset is passed as the argument and the
-header allocation (.SHA) file is not updated so smb_open_ha() need not be
-called. The function is called from smb_addmsghdr(), so you probably have no
-need to call this function directly.
-
-long smb_allocdat(ulong length, ushort headers)
------------------------------------------------
-The smb_allocdat() function is used to search for free blocks to store length
-amount of data for a message. The parameter headers, indicates the number of
-message headers that are associated with this data. Normally, the headers
-parameter will be 1, unless this message is part of a mass mailing. The offset
-to the allocated data blocks is returned, or a negative value on error. The
-function smb_open_da() should be called prior to calling this function and
-fclose(sda_fp) should be called after.
-
-long smb_fallocdat(ulong length, ushort headers)
-------------------------------------------------
-The smb_fallocdat() function works exactly the same as the smb_allocdat()
-function except it is much faster because the data allocation file is not
-searched for free blocks.
-
-long smb_hallocdat()
---------------------
-The smb_hallocdat() function works exactly the same as the smb_hallocdat()
-function except no argument is passed and the data allocation file (.SDA) is
-not updated so smb_open_da() need not be called.
-
-int smb_incdat(ulong offset, ulong length, ushort headers)
-----------------------------------------------------------
-The smb_incdat() function is used to increment the header counter in the data
-allocation file for the data starting at the byte offset and length size in
-bytes. The parameter headers, indicates the number of headers to add to the
-current allocation value in the data allocation file. Returns 0 on success,
-non-zero on failure.
-
-int smb_freemsg(smbmsg_t msg, smbstatus_t status)
--------------------------------------------------
-The smb_freemsg() function is used to free the disk space allocated for the
-header and data fields of the message msg. Returns 0 on success, non-zero on
-failure. The parameter, status, must be the current status from the message
-base header for this message base.
-
-int smb_freemsgdat(ulong offset, ulong length, ushort headers)
---------------------------------------------------------------
-The smb_freemsgdat() function is used to decrement the data block allocation
-records in the data allocation file associated with the data in the data file
-by the value of the headers parameter (normally 1). The parameter offset
-indicates the byte offset to the beginning of the message data in the data
-file and the parameter length is the total length of the message data.
-Returns 0 on success, non-zero on failure.
-
-int smb_freemsghdr(ulong offset, ulong length)
-----------------------------------------------
-The smb_freemsghdr() function is used to set the header block allocation
-records in the header allocation file to 0 (indicated non-allocated block).
-The parameter offset indicates the byte offset to the beginning of the header
-record being freed and the parameter length indicates the total length of the
-header record. Returns 0 on success, non-zero on failure.
-
-int smb_stack(int op)
----------------------
-The smb_stack() function is used to save and restore message base information
-so that multiple message bases can be open simultaneously. The stack can
-save up to 4 message bases (allowing 5 simultaneously open message bases).
-The stack is a "last in, first out" storage area for open message bases.
-If the op parameter is SMB_STACK_PUSH, smb_stack() will save (push) the current
-message base onto the stack. Calling smb_stack(SMB_STACK_POP) will restore
-(pop) the most recently pushed message base off the stack. Calling
-smb_stack(SMB_STACK_XCHNG) will exchange the most recently pushed message base
-and the current message base (replacing the top of the stack with the current
-message base).
-
-void smb_close()
-----------------
-Closes the header, data, and index files for the currently open message base.
-
-
-Miscellaneous SMBLIB Files
-==========================
-&&Miscellaneous SMBLIB Files
-$$SMB_MISC
-
-CRC32.H C header file for CRC-32 calculations
------------------------------------------------------
-This file contains a static 32-bit CRC table (crc32tbl[]) and a macro (ucrc32)
-that uses this table to calculate 32-bit CRCs one byte at a time.
-
-Example:
-
- ulong crc=0xffffffff;
-
-for(i=0;i<length;i++)
- crc=ucrc32(buf[i],crc);
-crc=~crc;
-
-
-CRC16.C C functions for 16-bit CRC calculations
--------------------------------------------------------
-This file contains a function (ucrc16), to calculate 16-bit CRCs one byte at a
-time and a function (crc16) that uses the ucrc16() function to calculate the
-16-bit CRC of an ASCIIZ character string.
-
-Example:
-
- ushort crc;
-
-crc=crc16("Text");
-
-LZH.H Function prototypes for LZH.C
----------------------------------------------
-This file contains function prototypes for the two most important functions
-in LZH.C, lzh_encode() and lzh_decode().
-
-Example:
-
- uchar str[256],lzh[512];
- long length;
-
-strcpy(str,"This is a string of text");
-length=lzh_encode(str,strlen(str),lzh);
-lzh_decode(lzh,length,str);
-
-
-LZH.C C functions for LZH encoding (compression/decompression)
-------------------------------------------------------------------------
-This file contains the functions for encoding and decoding LZH compressed
-data. If the macro LZH_DYNAMIC_BUF is defined when this file is compiled,
-temporary buffers will be dynamically allocated as opposed to static. This
-may be slower than the static buffer method, but frees the allocated memory
-after encoding or decoding. If free memory for your application is an issue,
-then define this macro when compiling this file.
-
-Example (Borland C):
-
-bcc -c -DLZH_DYNAMIC_BUF lzh
-
-Example (Watcom C):
-
-wcc -dLZH_DYNAMIC_BUF lzh
-
-SMBLIB Storage Example
-======================
-&&SMBLIB Storage Example
-$$SMB_PUT_
-
-#include "smblib.h"
-#include "crc16.c"
-
-int main(void)
-{
- char str[256] // General purpose string
- ,*msg_text="Hello, world!" // Message text
- ,nul_buf[SDT_BLOCK_LEN]={0} // NULL initialized buffer
- ;
- int i // General purpose integer
- ,storage=SMB_SELFPACK // Default storage method
- ,retry=10 // Retry for opening/locking files
- ;
- ushort max_age=0 // Default maximum age of messages
- ,xlat=XLAT_NONE // Translation string
- ,tzone=PST // Time zone
- ,copies=1 // Number of copies of this msg
- ;
- ulong max_msgs=500 // Default max number of msgs
- ,max_crcs=0 // Default max crcs
- ,length // Length of msg text
- ,offset // Offset to msg text in data file
- ;
- smbmsg_t msg; // Message structure
- smbstatus_t status; // Message base status record
-
-strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
-if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }
-
-if(!filelength(fileno(shd_fp))) // Message base not created yet
- smb_create(max_crcs // Create with default settings
- ,max_msgs
- ,max_age
- ,storage==SMB_HYPERALLOC
- ? SMB_HYPERALLOC : 0 // SMB_EMAIL if this was e-mail
- ,retry
- );
-
-if((i=smb_locksmbhdr(retry))!=0) { // Can't lock status base header
- printf("smb_locksmbhdr returned %d\n",i);
- smb_close();
- return(1); }
-
-if((i=smb_getstatus(&status))!=0) { // Can't read status base header
- smb_unlocksmbhdr();
- smb_close();
- printf("smb_getstatus returned %d\n",i);
- return(1); }
-
-if(status.attr&SMB_HYPERALLOC)
- storage=SMB_HYPERALLOC;
-else
- storage=SMB_SELFPACK;
-
-length=strlen(msg_text); // Get length of message
-length+=sizeof(xlat); // Add length of xlat string
-
-if(storage==SMB_HYPERALLOC) // Allocate space for message text
- offset=smb_hallocdat();
-else {
- if((i=smb_open_da(retry))!=0) {
- smb_unlocksmbhdr();
- printf("smb_open_da returned %d\n",i);
- smb_close();
- return(1); }
- if(storage==SMB_FASTALLOC)
- offset=smb_fallocdat(length,copies);
- else
- offset=smb_allocdat(length,copies);
- fclose(sda_fp); }
-
-fseek(sdt_fp,offset,SEEK_SET); // Seek to beginning of data block
-fwrite(&xlat,sizeof(xlat),1,sdt_fp); // Write xlat string
-fwrite(msg_text,strlen(msg_text),1,sdt_fp); // Write message text
-fwrite(nul_buf,SDT_BLOCK_LEN-length // Write NULLs out to end of block
- ,1,sdt_fp);
-fflush(sdt_fp); // Flush output buffer
-smb_unlocksmbhdr(); // Unlock status base header
-
-memset(&msg,0,sizeof(smbmsg_t)); // Initialize header to NULL
-memcpy(msg.hdr.id,"SHD\x1a",4); // Always set to SHD^Z
-msg.hdr.version=SMB_VERSION;
-msg.hdr.when_written.time=time(NULL);
-msg.hdr.when_written.zone=tzone;
-msg.hdr.when_imported.time=time(NULL);
-msg.hdr.when_imported.zone=tzone;
-msg.hdr.offset=offset;
-
-strcpy(str,"All"); // Send message to "All"
-if((i=smb_hfield(&msg,RECIPIENT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_close();
- return(1); }
-strlwr(str); // If this were e-mail, idx.to
-msg.idx.to=crc16(str); // would be the "to" user number
-
-strcpy(str,"Sysop"); // Send message from "Sysop"
-if((i=smb_hfield(&msg,SENDER,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-strlwr(str); // If this were e-mail, idx.from
-msg.idx.from=crc16(str); // would be the "from" user number
-
-strcpy(str,"This is a test"); // Set the message subject/title
-if((i=smb_hfield(&msg,SUBJECT,strlen(str),str))!=0) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-if((i=smb_dfield(&msg,TEXT_BODY,length))!=0) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-
-if((i=smb_addmsghdr(&msg,&status,storage,retry))!=0) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(offset,length,copies);
- smb_freemsgmem(msg);
- smb_close();
- return(1); }
-
-smb_freemsgmem(msg); // Unnecessary if exiting main()
-smb_close(); // Unnecessary if exiting main()
-return(0);
-}
-
-SMBLIB Retrieval Example
-========================
-&&SMBLIB Retrieval Example
-$$SMB_GET_
-
-#include "smblib.h"
-
-int main(void)
-{
- char ch; // General purpose character
- int i, // General purpose integer
- retry=10; // Retry for opening/locking files
- ushort xlat; // Translation string
- ulong l; // General purpose long integer
- smbmsg_t msg; // Message structure
-
-strcpy(smb_file,"MSGBASE"); // We'll use "MSGBASE" for the name
-if((i=smb_open(retry))!=0) { // Can't open!?!
- printf("smb_open returned %d\n",i);
- return(1); }
-
-if(!filelength(fileno(shd_fp))) { // Message base not created yet
- printf("Empty\n");
- smb_close();
- return(0); }
-
-for(msg.offset=0;!ferror(sid_fp);msg.offset++) {
-
- fseek(sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),sid_fp))
- break;
-
- if((i=smb_lockmsghdr(msg,retry))!=0) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&msg))!=0) {
- smb_unlockmsghdr(msg);
- printf("smb_getmsghdr returned %d\n",i);
- break; }
- if((i=smb_unlockmsghdr(msg))!=0) {
- smb_freemsgmem(msg);
- printf("smb_unlockmsghdr returned %d\n",i);
- break; }
-
- printf("Subj : %s\n",msg.subj);
- printf("To : %s\n",msg.to);
- printf("From : %s\n",msg.from);
- printf("Date : %s\n",ctime((time_t *)&msg.hdr.when_written.time));
-
- for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY: // Only show BODY and TAIL data fields
- case TEXT_TAIL:
- fseek(sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,sizeof(xlat),1,sdt_fp);
- if(xlat!=XLAT_NONE) // No translations supported
- continue;
- for(l=sizeof(xlat);l<msg.dfield[i].length;l++) {
- ch=fgetc(sdt_fp);
- if(ch)
- putchar(ch); }
- printf("\n");
- break; }
- printf("\n");
-
- smb_freemsgmem(msg); } // Free memory allocated by smb_getmsghdr()
-
-smb_close();
-return(0);
-}
-
-SMBLIB Performance Issues
-=========================
-&&SMBLIB Performance Issues
-$$PERFORM_
-
-Since importing messages is the usually the most time consuming task likely
-undertaken by an SMB application, it is also the most susceptable to design
-issues that effect performance.
-
-Opening and Closing
--------------------
-When importing multiple messages for a single message base, it appears logical
-to open the message base, import all the messages, then close it. This indeed
-is preferred over opening and closing the message base for each message.
-
-When importing multiple messages for possibly non-consecutive message bases,
-developers may easily make the mistake of opening and closing the message base
-for each message. This is not necessary and can considerably hinder the
-import performance. The easiest solution is to only close the message base and
-open a new one if the next message to be imported is not for the same message
-base as the previously imported message. Example:
-
-smb_file[0]=0;
-for(i=0;i<total_messages_to_be_imported;i++) {
- if(stricmp(get_messagebase_for_this_message(i),smb_file)) {
- if(smb_file[0]) /* We've already opened one */
- smb_close();
- strcpy(smb_file,get_messagebase_for_this_message(i));
- smb_open(10); }
- /* Import this message */
- }
-if(smb_file[0])
- smb_close();
-
-A more advanced method is to keep multiple message bases open at the same time.
-Due to the likely limitation of total file handles on the system, it is
-suggested to keep the number of simultaneously open message bases at or below
-3. SMBLIB includes the function smb_stack() to easily "push" and "pop" message
-bases without closing them (push is the equivalent to "save" and pop is the
-equivalent to "restore"). The downside of this function is that you cannot
-access message bases on the stack without actually popping them off (in reverse
-of the order they were pushed). You can however "exchange" the current message
-base with the message base on the top of the stack (most recently pushed).
-To intelligently juggle more than two open message bases, the developer should
-create their own equivalent of the smb_stack() function so they can access the
-message bases on the stack without popping them off. An example of keeping a
-maximum of two message bases open using smb_stack():
-
- char last_messagebase[128],new_messagebase[128];
-
-smb_file[0]=0;
-last_messagebase[0]=0;
-for(i=0;i<total_messages_to_be_imported;i++) {
- strcpy(new_messagebase,get_messagebase_for_this_message(i));
- if(stricmp(new_messagebase,smb_file)) { /* Not current message base */
- if(smb_file[0]) { /* We've already opened one */
- if(!stricmp(new_messagebase,last_messagebase)) { /* Same as last */
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_XCHNG); } /* Retore previous base */
- else {
- if(last_messagebase[0]) {
- smb_stack(SMB_STACK_XCHNG);
- smb_close();
- strcpy(last_messagebase,new_messagebase); }
- else {
- strcpy(last_messagebase,smb_file);
- smb_stack(SMB_STACK_PUSH); } /* Save current base */
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- else {
- strcpy(smb_file,new_messagebase);
- smb_open(10); } }
- /* Import this message */
- }
-if(smb_file[0])
- smb_close();
-if(last_messagebase[0]) {
- smb_stack(SMB_STACK_POP);
- smb_close(); }
-
-The second example would be of negligible performance gain over the first
-example (6 open operations versus 7) if the messages to import were in the
-following order:
-
-msg[0] --> msgbase[0] // 0 opened
-msg[1] --> msgbase[1] // 0 pushed 1 opened
-msg[2] --> msgbase[1]
-msg[3] --> msgbase[2] // 1 closed 0 popped 0 closed 2 opened
-msg[4] --> msgbase[0] // 2 pushed 0 opened
-msg[5] --> msgbase[2] // 0 pushed 2 popped (exchanged)
-msg[6] --> msgbase[3] // 2 closed 0 popped 0 closed 3 opened
-msg[7] --> msgbase[0] // 3 pushed 0 opened
-
-The second example would be of significant performance gain over the first
-example (4 open operations versus 8) if the messages to import were in the
-following order:
-
-msg[0] --> msgbase[0] // 0 opened
-msg[1] --> msgbase[1] // 0 pushed 1 opened
-msg[2] --> msgbase[0] // 1 pushed 0 popped (exchanged)
-msg[3] --> msgbase[1] // 0 pushed 1 popped (exchanged)
-msg[4] --> msgbase[0] // 1 pushed 0 popped (exchanged)
-msg[5] --> msgbase[2] // 0 pushed 1 popped (exchanged) 1 closed 2 opened
-msg[6] --> msgbase[3] // 2 pushed 0 popped (exchanged) 0 closed 3 opened
-msg[7] --> msgbase[2] // 3 pushed 2 popped (exchanged)
-
-More advanced use of "stack-like" message base file handle storage can easily
-reduce the number of open operations, therefore increasing import performance
-under more adverse message base ordering conditions.
-
-Compression
------------
-If any message data compression features are offered by the application, it
-is important the the application not unnecessarily compress data that will
-not save any storage space. While this may seem an obvious statement, please
-review the following pseudo-code example:
-
-if ( message_data_length < SDT_BLOCK_LEN )
- // Store uncompressed data
-else {
- // Compress data
- if ( ( compressed_data_length / SDT_BLOCK_LEN )
- < ( message_data_length / SDT_BLOCK_LEN ) ) // Saves a block or more
- // Store compressed data
- else
- // Store uncompressed data
- }
-
-Since the SMB format stores message data in fixed length blocks, there is no
-point in storing a message in compressed format if it requires the same number
-of blocks as the uncompressed format (i.e. a message that is two blocks in
-length in uncompressed format and only a block and a half in length when
-compressed should not be stored in compressed format since it still requires
-two full blocks of storage). It is important to note that in the above example,
-the length of the data translation string was not taken into account in
-determining the number of required blocks. Also, the smb_datblocks() function
-is normally used in determing the number of required blocks to store a given
-data length and it is a little more involved than simply dividing the length of
-the data by SDT_BLOCK_LEN.
-
-
-Bibliography
-============
-&&Bibliography
-$$BIBLIOGR
-
-Title : The C Programming Language
-Publisher : Prentice Hall
-Author : Brian W. Kernighan and Dennis M. Ritchie
-
-Document : ARPANET Request for Comments (RFC) #822
-Title : Standard for the Format of ARPA Internet text messages
-Publisher : SRI International
-Author : David H. Crocker, University of Delaware
-
-Document : FTS-0001
-Publisher : FSC
-Author : Randy Bush, Pacific Systems Group
-
-Document : FTS-0004
-Title : EchoMail Specification
-Publisher : FSC
-Author : Bob Hartman
-
-Document : FTS-0009
-Title : A standard for unique message identifiers and reply chain linkage
-Publisher : FSC
-Author : Jim Nutt
-
-Document : FSC-00046
-Title : A Product Idenfifier for FidoNet Message Handlers
-Publisher : FSC
-Author : Joaquim H. Homrighausen
-
-Document : FSC-00053
-Title : Specifications for the ^aFLAGS field
-Publisher : FSC
-Author : Joaquim H. Homrighausen
-
-
-Implementations
-===============
-&&Implementations
-$$IMPLEMEN
-
-Product : Synchronet Multinode BBS Software
-Developer : Digital Dynamics
-Level : III
-Version : 2.20
-
-Product : Synchronet/FidoNet Import/Export Utility (SBBSFIDO)
-Developer : Digital Dynamics
-Level : III
-Version : 2.23
-
-Product : Synchronet UTI (Universal Text Interface) Driver
-Developer : Digital Dynamics
-Level : III
-Version : 2.23
-
-Product : SBBSecho FidoNet Packet Tosser for Synchronet
-Developer : Digital Dynamics
-Level : III
-Version : 1.11
-
-Product : NetXpress Internet UUCP for Synchronet
-Developer : Merlin Systems
-Level : II
-Version : 1.50
-
-Product : InterEcho FidoNet Packet Tosser
-Developer : InterMail Sales Inc
-Level : II
-Version : 1.11
diff --git a/src/sbbs2/smb/docs/smb_read.me b/src/sbbs2/smb/docs/smb_read.me
deleted file mode 100644
index 9cccaf613bee5bb679ab5c0beac307537680a57f..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/docs/smb_read.me
+++ /dev/null
@@ -1,64 +0,0 @@
-Synchronet Message Base (SMB) Specification v2.01 - READ.ME -
-=============================================================
-
-Files:
-
- Miscellaneous
- -------------
- SMB_READ.ME This file
- FILE_ID.DIZ Description of archive
- SMB.HST History of changes made since v1.00
-
- Technical Specification
- -----------------------
- SMB.PRN Paginated, to be printed at 12cpi (!)
- SMB.TXT Not paginated, for online viewing
-
- Message Base C Library
- ----------------------
- SMBDEFS.H C data types and constants
- SMBLIB.H C function prototypes
- SMBLIB.C C library functions
- CRC32.H C header file for 32-bit CRC calculations
- CRC16.C C source file for 16-bit CRC calculations
- LZH.H C header file for LZH compression functions
- LZH.C C source file for LZH compression functions
-
- Message Base Utility
- --------------------
- SMBUTIL.H C header file
- SMBUTIL.C C source file
- SMBUTIL.BOR C makefile (for Borland C: make -f smbutil.bor)
- SMBUTIL.WAT C makefile (for Watcom C: wmake -f smbutil.wat
- 32-bit OS2: wmake -f smbutil.wat OS=OS2
- 32-bit DOS: wmake -f smbutil.wat OS=DOSX)
- SMBUTIL.EXE Compiled and linked for 16-bit DOS
-
- Check Message Base for Corruption
- ---------------------------------
- CHKSMB.C C source file
- CHKSMB.MAK C makefile (for Borland C: make -f chksmb)
- CHKSMB.EXE Compiled and linked for 16-bit DOS
-
- Rebuild Message Base Index and Allocation Files
- -----------------------------------------------
- FIXSMB.C C source file
- FIXSMB.MAK C makefile (for Borland C: make -f fixsmb)
- FIXSMB.EXE Compiled and linked for 16-bit DOS
-
- Convert from FidoNet (FTSC-1) to SMB
- ------------------------------------
- FIDO2SMB.C C source file
- FIDO2SMB.MAK C makefile (for Borland C: make -f fido2smb)
-
- Convert from Internet (RFC-822) to SMB
- --------------------------------------
- INET2SMB.C C source file
- INET2SMB.MAK C makefile (for Borland C: make -f inet2smb)
-
- Convert from QWK to SMB
- -----------------------
- QWK2SMB.C C source file
- QWK2SMB.MAK C makefile (for Borland C: make -f qwk2smb)
-
-/* END of SMB_READ.ME */
diff --git a/src/sbbs2/smb/fixsmb/fixsmb.c b/src/sbbs2/smb/fixsmb/fixsmb.c
deleted file mode 100644
index 4a6973822bea05dbf31d527efa448d0e9d7e0d52..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/fixsmb/fixsmb.c
+++ /dev/null
@@ -1,226 +0,0 @@
-/* FIXSMB.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Re-generates an SMB message base based on SHD and SDT files */
-
-#include "smblib.h"
-
-smb_t smb;
-
-char *usage="usage: fixsmb [/opts] <smb_file>\n"
- "\n"
- " opts:\n"
- " m - force mail format instead of sub-board format\n"
- "\n"
- " ex: FIXSMB /M MAIL\n"
- " or: FIXSMB DEBATE\n";
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-#define MAIL (1<<0)
-
-int main(int argc, char **argv)
-{
- char str[128],c;
- int i,w,mode=0;
- ulong l,length,size,n,m;
- smbmsg_t msg;
- smbstatus_t status;
-
-printf("\nFIXSMB v1.22 � Rebuild Synchronet Message Base � Developed 1995-1997 "
- "Rob Swindell\n");
-
-smb.file[0]=0;
-for(i=1;i<argc;i++)
- if(argv[i][0]=='/')
- switch(toupper(argv[i][1])) {
- case 'M':
- mode|=MAIL;
- break;
- default:
- printf(usage);
- exit(1); }
- else
- strcpy(smb.file,argv[i]);
-
-if(!smb.file[0]) {
- printf(usage);
- exit(1); }
-
-strupr(smb.file);
-smb.retry_time=30;
-
-if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- exit(1); }
-
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- printf("smb_locksmbhdr returned %d\n",i);
- exit(1); }
-
-if((i=smb_getstatus(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- printf("smb_getstatus returned %d\n",i);
- exit(1); }
-
-if(mode&MAIL && !(status.attr&SMB_EMAIL)) {
- status.attr|=SMB_EMAIL;
- if((i=smb_putstatus(&smb))!=0) {
- smb_unlocksmbhdr(&smb);
- smb_close(&smb);
- printf("smb_putstatus returned %d\n",i);
- exit(1); } }
-
-if(!(status.attr&SMB_HYPERALLOC)) {
-
- if((i=smb_open_ha(&smb))!=0) {
- smb_close(&smb);
- printf("smb_open_ha returned %d\n",i);
- exit(1); }
-
- if((i=smb_open_da(&smb))!=0) {
- smb_close(&smb);
- printf("smb_open_da returned %d\n",i);
- exit(1); }
-
- rewind(smb.sha_fp);
- chsize(fileno(smb.sha_fp),0L); /* Truncate the header allocation file */
- rewind(smb.sda_fp);
- chsize(fileno(smb.sda_fp),0L); /* Truncate the data allocation file */
- }
-
-rewind(smb.sid_fp);
-chsize(fileno(smb.sid_fp),0L); /* Truncate the index */
-
-
-if(!(status.attr&SMB_HYPERALLOC)) {
- length=filelength(fileno(smb.sdt_fp));
- w=0;
- for(l=0;l<length;l+=SDT_BLOCK_LEN) /* Init .SDA file to NULL */
- fwrite(&w,2,1,smb.sda_fp);
-
- length=filelength(fileno(smb.shd_fp));
- c=0;
- for(l=0;l<length;l+=SHD_BLOCK_LEN) /* Init .SHD file to NULL */
- fwrite(&c,1,1,smb.sha_fp); }
-else
- length=filelength(fileno(smb.shd_fp));
-
-n=1; /* messsage number */
-for(l=status.header_offset;l<length;l+=size) {
- printf("\r%2u%% ",(long)(100.0/((float)length/l)));
- msg.idx.offset=l;
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
- continue; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- printf("\n(%06lX) smb_getmsghdr returned %d\n",l,i);
- size=SHD_BLOCK_LEN;
- continue; }
- smb_unlockmsghdr(&smb,&msg);
- printf("#%-5lu (%06lX) %-25.25s ",msg.hdr.number,l,msg.from);
- if(!(msg.hdr.attr&MSG_DELETE)) { /* Don't index deleted messages */
- msg.offset=n-1;
- msg.hdr.number=n;
- msg.idx.number=n;
- msg.idx.attr=msg.hdr.attr;
- msg.idx.time=msg.hdr.when_imported.time;
- strcpy(str,msg.subj);
- strlwr(str);
- remove_re(str);
- msg.idx.subj=crc16(str);
- if(status.attr&SMB_EMAIL) {
- if(msg.to_ext)
- msg.idx.to=atoi(msg.to_ext);
- else
- msg.idx.to=0;
- if(msg.from_ext)
- msg.idx.from=atoi(msg.from_ext);
- else
- msg.idx.from=0; }
- else {
- strcpy(str,msg.to);
- strlwr(str);
- msg.idx.to=crc16(str);
- strcpy(str,msg.from);
- strlwr(str);
- msg.idx.from=crc16(str); }
- if((i=smb_putmsg(&smb,&msg))!=0) {
- printf("\nsmb_putmsg returned %d\n",i);
- continue; }
- n++; }
- else
- printf("Not indexing deleted message\n");
- size=smb_getmsghdrlen(&msg);
- while(size%SHD_BLOCK_LEN)
- size++;
-
- if(!(status.attr&SMB_HYPERALLOC)) {
- /**************************/
- /* Allocate header blocks */
- /**************************/
- fseek(smb.sha_fp,(l-status.header_offset)/SHD_BLOCK_LEN,SEEK_SET);
- if(msg.hdr.attr&MSG_DELETE) c=0; /* mark as free */
- else c=1; /* or allocated */
-
- for(i=0;i<size/SHD_BLOCK_LEN;i++)
- fputc(c,smb.sha_fp);
-
- /************************/
- /* Allocate data blocks */
- /************************/
-
- if(!(msg.hdr.attr&MSG_DELETE))
- smb_incdat(&smb,msg.hdr.offset,smb_getmsgdatlen(&msg),1);
- }
-
- smb_freemsgmem(&msg); }
-printf("\nDone.\n");
-status.total_msgs=status.last_msg=n-1;
-if((i=smb_putstatus(&smb))!=0)
- printf("\nsmb_putstatus returned %d\n",i);
-smb_unlocksmbhdr(&smb);
-smb_close(&smb);
-return(0);
-}
diff --git a/src/sbbs2/smb/fixsmb/makefile b/src/sbbs2/smb/fixsmb/makefile
deleted file mode 100644
index aaa5a8c7351f3d342cf8b501de2a7f0d255c60c4..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/fixsmb/makefile
+++ /dev/null
@@ -1,52 +0,0 @@
-###############################
-# Makefile for FIXSMB #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-
-OS = DOS
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include;..
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LFLAGS = -n -c
-
-!ifdef __OS2__
-OS = OS2
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;..
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE) -w-pro
-LFLAGS = -c -w-srf
-!endif
-
-MAIN = $(OS)\fixsmb.exe
-OBJS = $(OS)\fixsmb.obj $(OS)\smblib.obj
-HEADERS = ..\smblib.h ..\smbdefs.h ..\crc32.h
-
-# Implicit C Compile Rule
-{.;..}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# All .obj modules
-$(OS)\fixsmb.obj: $(HEADERS)
-$(OS)\smblib.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/lzh.c b/src/sbbs2/smb/lzh.c
deleted file mode 100644
index d7f2519beb997bf75d302da8049891fc49ef9acd..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/lzh.c
+++ /dev/null
@@ -1,784 +0,0 @@
-/* LZH.C */
-
-/* Rob Swindell's conversion of 1988 LZH (LHarc) encoding functions */
-/* Based on Japanese version 29-NOV-1988 */
-/* LZSS coded by Haruhiko Okumura */
-/* Adaptive Huffman Coding coded by Haruyasu Yoshizaki */
-
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#ifndef __WATCOMC__
- #include <alloc.h>
-#endif
-#include "lzh.h"
-
-/****************************************************************************/
-/* Memory allocation macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
- #if defined(__TURBOC__)
- #define REALLOC(x,y) farrealloc(x,y)
- #define LMALLOC(x) farmalloc(x)
- #define MALLOC(x) farmalloc(x)
- #define LFREE(x) farfree(x)
- #define FREE(x) farfree(x)
- #elif defined(__WATCOMC__)
- #define REALLOC realloc
- #define LMALLOC(x) halloc(x,1) /* far heap, but slow */
- #define MALLOC malloc /* far heap, but 64k max */
- #define LFREE hfree
- #define FREE free
- #else /* Other 16-bit Compiler */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
- #endif
-#else /* 32-bit Compiler or Small Memory Model */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
-#endif
-
-
-
-/* LZSS Parameters */
-
-#define LZH_N 4096 /* Size of string buffer */
-#define LZH_F 60 /* Size of look-ahead buffer */
-#define LZH_THRESHOLD 2
-#define LZH_NIL LZH_N /* End of tree's node */
-
-#ifdef LZH_DYNAMIC_BUF
-
-unsigned char *lzh_text_buf;
-short int lzh_match_position, lzh_match_length,
- *lzh_lson, *lzh_rson, *lzh_dad;
-
-#else
-
-unsigned char lzh_text_buf[LZH_N + LZH_F - 1];
-short int lzh_match_position, lzh_match_length,
- lzh_lson[LZH_N + 1], lzh_rson[LZH_N + 257], lzh_dad[LZH_N + 1];
-
-#endif
-
-
-void lzh_init_tree(void) /* Initializing tree */
-{
- short int i;
-
- for (i = LZH_N + 1; i <= LZH_N + 256; i++)
- lzh_rson[i] = LZH_NIL; /* root */
- for (i = 0; i < LZH_N; i++)
- lzh_dad[i] = LZH_NIL; /* node */
-}
-
-/******************************/
-/* Inserting node to the tree */
-/* Only used during encoding */
-/******************************/
-void lzh_insert_node(short int r)
-{
- short int i, p, cmp;
- unsigned char *key;
- unsigned c;
-
- cmp = 1;
- key = lzh_text_buf+r;
- p = LZH_N + 1 + key[0];
- lzh_rson[r] = lzh_lson[r] = LZH_NIL;
- lzh_match_length = 0;
- for ( ; ; ) {
- if (cmp >= 0) {
- if (lzh_rson[p] != LZH_NIL)
- p = lzh_rson[p];
- else {
- lzh_rson[p] = r;
- lzh_dad[r] = p;
- return;
- }
- } else {
- if (lzh_lson[p] != LZH_NIL)
- p = lzh_lson[p];
- else {
- lzh_lson[p] = r;
- lzh_dad[r] = p;
- return;
- }
- }
- for (i = 1; i < LZH_F; i++)
- if ((cmp = key[i] - lzh_text_buf[p + i]) != 0)
- break;
- if (i > LZH_THRESHOLD) {
- if (i > lzh_match_length) {
- lzh_match_position = ((r - p) & (LZH_N - 1)) - 1;
- if ((lzh_match_length = i) >= LZH_F)
- break;
- }
- if (i == lzh_match_length) {
- if ((c = ((r - p) & (LZH_N - 1)) - 1) < lzh_match_position) {
- lzh_match_position = c;
- }
- }
- }
- }
- lzh_dad[r] = lzh_dad[p];
- lzh_lson[r] = lzh_lson[p];
- lzh_rson[r] = lzh_rson[p];
- lzh_dad[lzh_lson[p]] = r;
- lzh_dad[lzh_rson[p]] = r;
- if (lzh_rson[lzh_dad[p]] == p)
- lzh_rson[lzh_dad[p]] = r;
- else
- lzh_lson[lzh_dad[p]] = r;
- lzh_dad[p] = LZH_NIL; /* remove p */
-}
-
-void lzh_delete_node(short int p) /* Deleting node from the tree */
-{
- short int q;
-
- if (lzh_dad[p] == LZH_NIL)
- return; /* unregistered */
- if (lzh_rson[p] == LZH_NIL)
- q = lzh_lson[p];
- else
- if (lzh_lson[p] == LZH_NIL)
- q = lzh_rson[p];
- else {
- q = lzh_lson[p];
- if (lzh_rson[q] != LZH_NIL) {
- do {
- q = lzh_rson[q];
- } while (lzh_rson[q] != LZH_NIL);
- lzh_rson[lzh_dad[q]] = lzh_lson[q];
- lzh_dad[lzh_lson[q]] = lzh_dad[q];
- lzh_lson[q] = lzh_lson[p];
- lzh_dad[lzh_lson[p]] = q;
- }
- lzh_rson[q] = lzh_rson[p];
- lzh_dad[lzh_rson[p]] = q;
- }
- lzh_dad[q] = lzh_dad[p];
- if (lzh_rson[lzh_dad[p]] == p)
- lzh_rson[lzh_dad[p]] = q;
- else
- lzh_lson[lzh_dad[p]] = q;
- lzh_dad[p] = LZH_NIL;
-}
-
-/* Huffman coding parameters */
-
-#define LZH_N_CHAR (256 - LZH_THRESHOLD + LZH_F)
- /* character code (= 0..LZH_N_CHAR-1) */
-#define LZH_T (LZH_N_CHAR * 2 - 1) /* Size of table */
-#define LZH_R (LZH_T - 1) /* root position */
-#define MAX_FREQ 0x8000
- /* update when cumulative frequency */
- /* reaches to this value */
-
-/*
- * Tables for encoding/decoding upper 6 bits of
- * sliding dictionary pointer
- */
-/* encoder table */
-uchar lzh_p_len[64] = {
- 0x03, 0x04, 0x04, 0x04, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08
-};
-
-uchar lzh_p_code[64] = {
- 0x00, 0x20, 0x30, 0x40, 0x50, 0x58, 0x60, 0x68,
- 0x70, 0x78, 0x80, 0x88, 0x90, 0x94, 0x98, 0x9C,
- 0xA0, 0xA4, 0xA8, 0xAC, 0xB0, 0xB4, 0xB8, 0xBC,
- 0xC0, 0xC2, 0xC4, 0xC6, 0xC8, 0xCA, 0xCC, 0xCE,
- 0xD0, 0xD2, 0xD4, 0xD6, 0xD8, 0xDA, 0xDC, 0xDE,
- 0xE0, 0xE2, 0xE4, 0xE6, 0xE8, 0xEA, 0xEC, 0xEE,
- 0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,
- 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF
-};
-
-/* decoder table */
-uchar lzh_d_code[256] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02,
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x09, 0x09, 0x09, 0x09, 0x09, 0x09, 0x09, 0x09,
- 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A,
- 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B, 0x0B,
- 0x0C, 0x0C, 0x0C, 0x0C, 0x0D, 0x0D, 0x0D, 0x0D,
- 0x0E, 0x0E, 0x0E, 0x0E, 0x0F, 0x0F, 0x0F, 0x0F,
- 0x10, 0x10, 0x10, 0x10, 0x11, 0x11, 0x11, 0x11,
- 0x12, 0x12, 0x12, 0x12, 0x13, 0x13, 0x13, 0x13,
- 0x14, 0x14, 0x14, 0x14, 0x15, 0x15, 0x15, 0x15,
- 0x16, 0x16, 0x16, 0x16, 0x17, 0x17, 0x17, 0x17,
- 0x18, 0x18, 0x19, 0x19, 0x1A, 0x1A, 0x1B, 0x1B,
- 0x1C, 0x1C, 0x1D, 0x1D, 0x1E, 0x1E, 0x1F, 0x1F,
- 0x20, 0x20, 0x21, 0x21, 0x22, 0x22, 0x23, 0x23,
- 0x24, 0x24, 0x25, 0x25, 0x26, 0x26, 0x27, 0x27,
- 0x28, 0x28, 0x29, 0x29, 0x2A, 0x2A, 0x2B, 0x2B,
- 0x2C, 0x2C, 0x2D, 0x2D, 0x2E, 0x2E, 0x2F, 0x2F,
- 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
- 0x38, 0x39, 0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F,
-};
-
-uchar lzh_d_len[256] = {
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
- 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08,
-};
-
-#ifdef LZH_DYNAMIC_BUF
-
-unsigned short *lzh_freq=NULL; /* cumulative freq table */
-
-/*
- * pointing parent nodes.
- * area [LZH_T..(LZH_T + LZH_N_CHAR - 1)] are pointers for leaves
- */
-short int *lzh_prnt=NULL;
-
-/* pointing children nodes (son[], son[] + 1)*/
-short int *lzh_son=NULL;
-
-#else /* STATIC */
-
-unsigned short lzh_freq[LZH_T + 1]; /* cumulative freq table */
-short int lzh_prnt[LZH_T + LZH_N_CHAR];
-short int lzh_son[LZH_T + 1]; /* bug fixed by Digital Dynamics */
-
-#endif
-
-
-unsigned short lzh_getbuf = 0; /* Was just "unsigned" fixed 04/12/95 */
-uchar lzh_getlen = 0;
-
-int lzh_getbit(uchar *inbuf, long *incnt, long inlen) /* get one bit */
-{
- short int i;
-
- while (lzh_getlen <= 8) {
- if((*incnt)>=inlen)
- i=0;
- else
- i=inbuf[(*incnt)++];
- lzh_getbuf |= i << (8 - lzh_getlen);
- lzh_getlen += 8;
- }
- i = lzh_getbuf;
- lzh_getbuf <<= 1;
- lzh_getlen--;
- return (i < 0);
-}
-
-short int lzh_getbyte(uchar *inbuf, long *incnt, long inlen) /* get a byte */
-{
- unsigned short i;
-
- while (lzh_getlen <= 8) {
- if((*incnt)>=inlen)
- i=0;
- else
- i=inbuf[(*incnt)++];
- lzh_getbuf |= i << (8 - lzh_getlen);
- lzh_getlen += 8;
- }
- i = lzh_getbuf;
- lzh_getbuf <<= 8;
- lzh_getlen -= 8;
- return i >> 8;
-}
-
-unsigned lzh_putbuf = 0;
-uchar lzh_putlen = 0;
-
-/* output c bits */
-void lzh_putcode(short int l, unsigned short c, uchar *outbuf, long *outlen)
-{
- lzh_putbuf |= c >> lzh_putlen;
- if ((lzh_putlen += l) >= 8) {
- outbuf[(*outlen)++]=(lzh_putbuf >> 8);
- if ((lzh_putlen -= 8) >= 8) {
- outbuf[(*outlen)++]=lzh_putbuf;
- lzh_putlen -= 8;
- lzh_putbuf = c << (l - lzh_putlen);
- } else {
- lzh_putbuf <<= 8;
- }
- }
-}
-
-
-/* initialize freq tree */
-
-void lzh_start_huff()
-{
- short int i, j;
-
-lzh_getbuf = 0; /* Added by Digital Dynamics for repeating operations */
-lzh_getlen = 0;
-lzh_putbuf = 0;
-lzh_putlen = 0;
-
- for (i = 0; i < LZH_N_CHAR; i++) {
- lzh_freq[i] = 1;
- lzh_son[i] = i + LZH_T;
- lzh_prnt[i + LZH_T] = i;
- }
- i = 0; j = LZH_N_CHAR;
- while (j <= LZH_R) {
- lzh_freq[j] = lzh_freq[i] + lzh_freq[i + 1];
- lzh_son[j] = i;
- lzh_prnt[i] = lzh_prnt[i + 1] = j;
- i += 2; j++;
- }
- lzh_freq[LZH_T] = 0xffff;
- lzh_prnt[LZH_R] = 0;
-}
-
-
-/* reconstruct freq tree */
-
-void lzh_reconst()
-{
- short int i, j, k;
- unsigned short f, l;
-
- /* halven cumulative freq for leaf nodes */
- j = 0;
- for (i = 0; i < LZH_T; i++) {
- if (lzh_son[i] >= LZH_T) {
- lzh_freq[j] = (lzh_freq[i] + 1) / 2;
- lzh_son[j] = lzh_son[i];
- j++;
- }
- }
- /* make a tree : first, connect children nodes */
- for (i = 0, j = LZH_N_CHAR; j < LZH_T; i += 2, j++) {
- k = i + 1;
- f = lzh_freq[j] = lzh_freq[i] + lzh_freq[k];
- for (k = j - 1; f < lzh_freq[k]; k--);
- k++;
- l = (j - k) * 2;
-
- /* movmem() is Turbo-C dependent
- rewritten to memmove() by Kenji */
-
- /* movmem(&lzh_freq[k], &lzh_freq[k + 1], l); */
- (void)memmove(lzh_freq+k+1,lzh_freq+k, l);
- lzh_freq[k] = f;
- /* movmem(&lzh_son[k], &lzh_son[k + 1], l); */
- (void)memmove(lzh_son+k+1,lzh_son+k, l);
- lzh_son[k] = i;
- }
- /* connect parent nodes */
- for (i = 0; i < LZH_T; i++) {
- if ((k = lzh_son[i]) >= LZH_T) {
- lzh_prnt[k] = i;
- } else {
- lzh_prnt[k] = lzh_prnt[k + 1] = i;
- }
- }
-}
-
-/* update freq tree */
-
-void lzh_update(short int c)
-{
- short int i, j, k, l;
-
- if (lzh_freq[LZH_R] == MAX_FREQ) {
- lzh_reconst();
- }
- c = lzh_prnt[c + LZH_T];
- do {
- k = ++lzh_freq[c];
-
- /* swap nodes to keep the tree freq-ordered */
- if (k > lzh_freq[l = c + 1]) {
- while (k > lzh_freq[++l]);
- l--;
- lzh_freq[c] = lzh_freq[l];
- lzh_freq[l] = k;
-
- i = lzh_son[c];
- lzh_prnt[i] = l;
- if (i < LZH_T) lzh_prnt[i + 1] = l;
-
- j = lzh_son[l];
- lzh_son[l] = i;
-
- lzh_prnt[j] = c;
- if (j < LZH_T) lzh_prnt[j + 1] = c;
- lzh_son[c] = j;
-
- c = l;
- }
- } while ((c = lzh_prnt[c]) != 0); /* do it until reaching the root */
-}
-
-unsigned short lzh_code, lzh_len;
-
-void lzh_encode_char(unsigned short c, uchar *outbuf, long *outlen)
-{
- unsigned short i;
- short int j, k;
-
- i = 0;
- j = 0;
- k = lzh_prnt[c + LZH_T];
-
- /* search connections from leaf node to the root */
- do {
- i >>= 1;
-
- /*
- if node's address is odd, output 1
- else output 0
- */
- if (k & 1) i += 0x8000;
-
- j++;
- } while ((k = lzh_prnt[k]) != LZH_R);
- lzh_putcode(j, i, outbuf, outlen);
- lzh_code = i;
- lzh_len = j;
- lzh_update(c);
-}
-
-void lzh_encode_position(unsigned short c, uchar *outbuf, long *outlen)
-{
- unsigned short i;
-
- /* output upper 6 bits with encoding */
- i = c >> 6;
- lzh_putcode(lzh_p_len[i], (unsigned)lzh_p_code[i] << 8, outbuf, outlen);
-
- /* output lower 6 bits directly */
- lzh_putcode(6, (c & 0x3f) << 10, outbuf, outlen);
-}
-
-void lzh_encode_end(uchar *outbuf, long *outlen)
-{
- if (lzh_putlen) {
- outbuf[(*outlen)++]=(lzh_putbuf >> 8);
- }
-}
-
-short int lzh_decode_char(uchar *inbuf, long *incnt, long inlen)
-{
- unsigned short c;
-
- c = lzh_son[LZH_R];
-
- /*
- * start searching tree from the root to leaves.
- * choose node #(lzh_son[]) if input bit == 0
- * else choose #(lzh_son[]+1) (input bit == 1)
- */
- while (c < LZH_T) {
- c += lzh_getbit(inbuf,incnt,inlen);
- c = lzh_son[c];
- }
- c -= LZH_T;
- lzh_update(c);
- return c;
-}
-
-short int lzh_decode_position(uchar *inbuf, long *incnt, long inlen)
-{
- unsigned short i, j, c;
-
- /* decode upper 6 bits from given table */
- i = lzh_getbyte(inbuf,incnt,inlen);
- c = (unsigned)lzh_d_code[i] << 6;
- j = lzh_d_len[i];
-
- /* input lower 6 bits directly */
- j -= 2;
- while (j--) {
- i = (i << 1) + lzh_getbit(inbuf,incnt,inlen);
- }
- return c | i & 0x3f;
-}
-
-/* Compression */
-
-/* Encoding/Compressing */
-/* Returns length of outbuf */
-long LZHCALL lzh_encode(uchar *inbuf, long inlen, uchar *outbuf)
-{
- short int i, c, len, r, s, last_match_length;
- long incnt,outlen; /* textsize=0; */
-
-#ifdef LZH_DYNAMIC_BUF
-
- if((lzh_text_buf=(uchar *)MALLOC(LZH_N + LZH_F - 1))==NULL)
- return(-1);
- if((lzh_freq=(unsigned short*)MALLOC((LZH_T + 1)*sizeof(unsigned short)))==NULL) {
- FREE(lzh_text_buf);
- return(-1); }
- if((lzh_prnt=(short *)MALLOC((LZH_T + LZH_N_CHAR)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_son=(short *)MALLOC((LZH_T + 1) * sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_lson=(short *)MALLOC((LZH_N + 1)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- return(-1); }
- if((lzh_rson=(short *)MALLOC((LZH_N + 257)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- return(-1); }
- if((lzh_dad=(short *)MALLOC((LZH_N + 1)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- return(-1); }
-#endif
-
- incnt=0;
- memcpy(outbuf,&inlen,sizeof(inlen));
- outlen=sizeof(inlen);
- if(!inlen) {
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- FREE(lzh_dad);
-#endif
- return(outlen); }
- lzh_start_huff();
- lzh_init_tree();
- s = 0;
- r = LZH_N - LZH_F;
- for (i = s; i < r; i++)
- lzh_text_buf[i] = ' ';
- for (len = 0; len < LZH_F && incnt<inlen; len++)
- lzh_text_buf[r + len] = inbuf[incnt++];
- /* textsize = len; */
- for (i = 1; i <= LZH_F; i++)
- lzh_insert_node(r - i);
- lzh_insert_node(r);
- do {
- if (lzh_match_length > len)
- lzh_match_length = len;
- if (lzh_match_length <= LZH_THRESHOLD) {
- lzh_match_length = 1;
- lzh_encode_char(lzh_text_buf[r],outbuf,&outlen);
- } else {
- lzh_encode_char(255 - LZH_THRESHOLD + lzh_match_length
- ,outbuf,&outlen);
- lzh_encode_position(lzh_match_position
- ,outbuf,&outlen);
- }
- last_match_length = lzh_match_length;
- for (i = 0; i < last_match_length && incnt<inlen; i++) {
- lzh_delete_node(s);
- c=inbuf[incnt++];
- lzh_text_buf[s] = c;
- if (s < LZH_F - 1)
- lzh_text_buf[s + LZH_N] = c;
- s = (s + 1) & (LZH_N - 1);
- r = (r + 1) & (LZH_N - 1);
- lzh_insert_node(r);
- }
-/***
- if ((textsize += i) > printcount) {
- printf("%12ld\r", textsize);
- printcount += 1024;
- }
-***/
- while (i++ < last_match_length) {
- lzh_delete_node(s);
- s = (s + 1) & (LZH_N - 1);
- r = (r + 1) & (LZH_N - 1);
- if (--len) lzh_insert_node(r);
- }
- } while (len > 0);
- lzh_encode_end(outbuf,&outlen);
-/*
- printf("input: %ld (%ld) bytes\n", inlen,textsize);
- printf("output: %ld bytes\n", outlen);
- printf("output/input: %.3f\n", (double)outlen / inlen);
-*/
-
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
- FREE(lzh_lson);
- FREE(lzh_rson);
- FREE(lzh_dad);
-#endif
-
- return(outlen);
-}
-
-/* Decoding/Uncompressing */
-/* Returns length of outbuf */
-long LZHCALL lzh_decode(uchar *inbuf, long inlen, uchar *outbuf)
-{
- short int i, j, k, r, c;
- unsigned long int count;
- long incnt,textsize;
-
-#ifdef LZH_DYNAMIC_BUF
-
- if((lzh_text_buf=(uchar *)MALLOC((LZH_N + LZH_F - 1)*2))==NULL)
- return(-1);
- if((lzh_freq=(unsigned short *)MALLOC((LZH_T + 1)*sizeof(unsigned short)))
- ==NULL) {
- FREE(lzh_text_buf);
- return(-1); }
- if((lzh_prnt=(short *)MALLOC((LZH_T + LZH_N_CHAR)*sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_freq);
- return(-1); }
- if((lzh_son=(short *)MALLOC((LZH_T + 1) * sizeof(short)))==NULL) {
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- return(-1); }
-
-#endif
-
- incnt=0;
- memcpy(&textsize,inbuf,sizeof(textsize));
- incnt+=sizeof(textsize);
- if (textsize == 0) {
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
-#endif
- return(textsize); }
- lzh_start_huff();
- for (i = 0; i < LZH_N - LZH_F; i++)
- *(lzh_text_buf+i) = ' ';
- r = LZH_N - LZH_F;
- for (count = 0; count < textsize; ) {
- c = lzh_decode_char(inbuf,&incnt,inlen);
- if (c < 256) {
- outbuf[count]=c;
-#if 0
- if(r>(LZH_N + LZH_F - 1) || r<0) {
- printf("Overflow! (%d)\n",r);
- getch();
- exit(-1); }
-#endif
- *(lzh_text_buf+r) = c;
- r++;
- r &= (LZH_N - 1);
- count++;
- } else {
- i = (r - lzh_decode_position(inbuf,&incnt,inlen) - 1)
- & (LZH_N - 1);
- j = c - 255 + LZH_THRESHOLD;
- for (k = 0; k < j && count<textsize; k++) {
- c = lzh_text_buf[(i + k) & (LZH_N - 1)];
- outbuf[count]=c;
-#if 0
- if(r>(LZH_N + LZH_F - 1) || r<0) {
- printf("Overflow! (%d)\n",r);
- exit(-1); }
-#endif
- *(lzh_text_buf+r) = c;
- r++;
- r &= (LZH_N - 1);
- count++;
- }
- }
- }
-/***
- printf("%12ld\n", count);
-***/
-
-#ifdef LZH_DYNAMIC_BUF
- FREE(lzh_text_buf);
- FREE(lzh_prnt);
- FREE(lzh_freq);
- FREE(lzh_son);
-#endif
-
-return(count);
-}
-
-
diff --git a/src/sbbs2/smb/lzh.h b/src/sbbs2/smb/lzh.h
deleted file mode 100644
index 4972cc3a1aa09bb8ab9875b84779716e0292e4f1..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/lzh.h
+++ /dev/null
@@ -1,21 +0,0 @@
-/* LZH.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifdef __NT__
-#define LZHCALL _pascal
-#else
-#define LZHCALL
-#endif
-
-#ifndef uchar
-#define uchar unsigned char
-#endif
-
-long LZHCALL lzh_encode(uchar *inbuf, long inlen, uchar *outbuf);
-long LZHCALL lzh_decode(uchar *inbuf, long inlen, uchar *outbuf);
-
-#ifdef __WATCOMC__ /* Use MSC standard (prepended underscore) */
-#pragma aux lzh_encode "_*"
-#pragma aux lzh_decode "_*"
-#endif
diff --git a/src/sbbs2/smb/smbdefs.h b/src/sbbs2/smb/smbdefs.h
deleted file mode 100644
index 2e845c0fd25b1eb2ba7d70ddd3cb7b2ccd864f20..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smbdefs.h
+++ /dev/null
@@ -1,476 +0,0 @@
-/* SMBDEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _SMBDEFS_H
-#define _SMBDEFS_H
-
-#include <stdio.h>
-
-/**********/
-/* Macros */
-/**********/
-
- /* Control characters */
-#define TAB 0x09 /* Horizontal tabulation ^I */
-#define LF 0x0a /* Line feed ^J */
-#define FF 0x0c /* Form feed ^L */
-#define CR 0x0d /* Carriage return ^M */
-#define ESC 0x1b /* Escape ^[ */
-#define SP 0x20 /* Space */
-
-#define ulong unsigned long
-#define ushort unsigned short
-#define uchar unsigned char
-#define uint unsigned int
-
-/****************************************************************************/
-/* Memory allocation macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
-# define HUGE16 huge
-# define FAR16 far
-# if defined(__TURBOC__)
-# define REALLOC(x,y) farrealloc(x,y)
-# define LMALLOC(x) farmalloc(x)
-# define MALLOC(x) farmalloc(x)
-# define LFREE(x) farfree(x)
-# define FREE(x) farfree(x)
-# elif defined(__WATCOMC__)
-# define REALLOC realloc
-# define LMALLOC(x) halloc(x,1) /* far heap, but slow */
-# define MALLOC malloc /* far heap, but 64k max */
-# define LFREE hfree
-# define FREE free
-# else /* Other 16-bit Compiler */
-# define REALLOC realloc
-# define LMALLOC malloc
-# define MALLOC malloc
-# define LFREE free
-# define FREE free
-# endif
-#else /* 32-bit Compiler or Small Memory Model */
-# define HUGE16
-# define FAR16
-# define REALLOC realloc
-# define LMALLOC malloc
-# define MALLOC malloc
-# define LFREE free
-# define FREE free
-#endif
-
-
-#define SDT_BLOCK_LEN 256 /* Size of data blocks */
-#define SHD_BLOCK_LEN 256 /* Size of header blocks */
-
-#define SMB_SELFPACK 0 /* Self-packing storage allocation */
-#define SMB_FASTALLOC 1 /* Fast allocation */
-#define SMB_HYPERALLOC 2 /* No allocation */
-
-#define SMB_EMAIL 1 /* User numbers stored in Indexes */
-
- /* Time zone macros for when_t.zone */
-#define DAYLIGHT 0x8000 /* Daylight savings is active */
-#define US_ZONE 0x4000 /* U.S. time zone */
-#define WESTERN_ZONE 0x2000 /* Non-standard zone west of UT */
-#define EASTERN_ZONE 0x1000 /* Non-standard zone east of UT */
-
- /* US Time Zones (standard) */
-#define AST 0x40F0 // Atlantic (-04:00)
-#define EST 0x412C // Eastern (-05:00)
-#define CST 0x4168 // Central (-06:00)
-#define MST 0x41A4 // Mountain (-07:00)
-#define PST 0x41E0 // Pacific (-08:00)
-#define YST 0x421C // Yukon (-09:00)
-#define HST 0x4258 // Hawaii/Alaska (-10:00)
-#define BST 0x4294 // Bering (-11:00)
-
- /* US Time Zones (daylight) */
-#define ADT 0xC0F0 // Atlantic (-03:00)
-#define EDT 0xC12C // Eastern (-04:00)
-#define CDT 0xC168 // Central (-05:00)
-#define MDT 0xC1A4 // Mountain (-06:00)
-#define PDT 0xC1E0 // Pacific (-07:00)
-#define YDT 0xC21C // Yukon (-08:00)
-#define HDT 0xC258 // Hawaii/Alaska (-09:00)
-#define BDT 0xC294 // Bering (-10:00)
-
- /* Non-standard Time Zones */
-#define MID 0x2294 // Midway (-11:00)
-#define VAN 0x21E0 // Vancouver (-08:00)
-#define EDM 0x21A4 // Edmonton (-07:00)
-#define WIN 0x2168 // Winnipeg (-06:00)
-#define BOG 0x212C // Bogota (-05:00)
-#define CAR 0x20F0 // Caracas (-04:00)
-#define RIO 0x20B4 // Rio de Janeiro (-03:00)
-#define FER 0x2078 // Fernando de Noronha (-02:00)
-#define AZO 0x203C // Azores (-01:00)
-#define LON 0x1000 // London (+00:00)
-#define BER 0x103C // Berlin (+01:00)
-#define ATH 0x1078 // Athens (+02:00)
-#define MOS 0x10B4 // Moscow (+03:00)
-#define DUB 0x10F0 // Dubai (+04:00)
-#define KAB 0x110E // Kabul (+04:30)
-#define KAR 0x112C // Karachi (+05:00)
-#define BOM 0x114A // Bombay (+05:30)
-#define KAT 0x1159 // Kathmandu (+05:45)
-#define DHA 0x1168 // Dhaka (+06:00)
-#define BAN 0x11A4 // Bangkok (+07:00)
-#define HON 0x11E0 // Hong Kong (+08:00)
-#define TOK 0x121C // Tokyo (+09:00)
-#define SYD 0x1258 // Sydney (+10:00)
-#define NOU 0x1294 // Noumea (+11:00)
-#define WEL 0x12D0 // Wellington (+12:00)
-
- /* Valid hfield_t.types */
-#define SENDER 0x00
-#define SENDERAGENT 0x01
-#define SENDERNETTYPE 0x02
-#define SENDERNETADDR 0x03
-#define SENDEREXT 0x04
-#define SENDERPOS 0x05
-#define SENDERORG 0x06
-
-#define AUTHOR 0x10
-#define AUTHORAGENT 0x11
-#define AUTHORNETTYPE 0x12
-#define AUTHORNETADDR 0x13
-#define AUTHOREXT 0x14
-#define AUTHORPOS 0x15
-#define AUTHORORG 0x16
-
-#define REPLYTO 0x20
-#define REPLYTOAGENT 0x21
-#define REPLYTONETTYPE 0x22
-#define REPLYTONETADDR 0x23
-#define REPLYTOEXT 0x24
-#define REPLYTOPOS 0x25
-#define REPLYTOORG 0x26
-
-#define RECIPIENT 0x30
-#define RECIPIENTAGENT 0x31
-#define RECIPIENTNETTYPE 0x32
-#define RECIPIENTNETADDR 0x33
-#define RECIPIENTEXT 0x34
-#define RECIPIENTPOS 0x35
-#define RECIPIENTORG 0x36
-
-#define FORWARDTO 0x40
-#define FORWARDTOAGENT 0x41
-#define FORWARDTONETTYPE 0x42
-#define FORWARDTONETADDR 0x43
-#define FORWARDTOEXT 0x44
-#define FORWARDTOPOS 0x45
-#define FORWARDTOORG 0x46
-
-#define FORWARDED 0x48
-
-#define RECEIVEDBY 0x50
-#define RECEIVEDBYAGENT 0x51
-#define RECEIVEDBYNETTYPE 0x52
-#define RECEIVEDBYNETADDR 0x53
-#define RECEIVEDBYEXT 0x54
-#define RECEIVEDBYPOS 0x55
-#define RECEIVEDBYORG 0x56
-
-#define RECEIVED 0x58
-
-#define SUBJECT 0x60
-#define SUMMARY 0x61
-#ifndef COMMENT
-#define COMMENT 0x62
-#endif
-#define CARBONCOPY 0x63
-#define GROUP 0x64
-#define EXPIRATION 0x65
-#define PRIORITY 0x66
-
-#define FILEATTACH 0x70
-#define DESTFILE 0x71
-#define FILEATTACHLIST 0x72
-#define DESTFILELIST 0x73
-#define FILEREQUEST 0x74
-#define FILEPASSWORD 0x75
-#define FILEREQUESTLIST 0x76
-#define FILEPASSWORDLIST 0x77
-
-#define IMAGEATTACH 0x80
-#define ANIMATTACH 0x81
-#define FONTATTACH 0x82
-#define SOUNDATTACH 0x83
-#define PRESENTATTACH 0x84
-#define VIDEOATTACH 0x85
-#define APPDATAATTACH 0x86
-
-#define IMAGETRIGGER 0x90
-#define ANIMTRIGGER 0x91
-#define FONTTRIGGER 0x92
-#define SOUNDTRIGGER 0x93
-#define PRESENTTRIGGER 0x94
-#define VIDEOTRIGGER 0x95
-#define APPDATATRIGGER 0x96
-
-#define FIDOCTRL 0xa0
-#define FIDOAREA 0xa1
-#define FIDOSEENBY 0xa2
-#define FIDOPATH 0xa3
-#define FIDOMSGID 0xa4
-#define FIDOREPLYID 0xa5
-#define FIDOPID 0xa6
-#define FIDOFLAGS 0xa7
-
-#define RFC822HEADER 0xb0
-#define RFC822MSGID 0xb1
-#define RFC822REPLYID 0xb2
-
-#define UNKNOWN 0xf1
-#define UNKNOWNASCII 0xf2
-#define UNUSED 0xff
-
- /* Valid dfield_t.types */
-#define TEXT_BODY 0x00
-#define TEXT_SOUL 0x01
-#define TEXT_TAIL 0x02
-#define TEXT_WING 0x03
-#define IMAGEEMBED 0x20
-#define ANIMEMBED 0x21
-#define FONTEMBED 0x22
-#define SOUNDEMBED 0x23
-#define PRESENTEMBED 0x24
-#define VIDEOEMBED 0x25
-#define APPDATAEMBED 0x26
-#define UNUSED 0xff
-
-
- /* Message attributes */
-#define MSG_PRIVATE (1<<0)
-#define MSG_READ (1<<1)
-#define MSG_PERMANENT (1<<2)
-#define MSG_LOCKED (1<<3)
-#define MSG_DELETE (1<<4)
-#define MSG_ANONYMOUS (1<<5)
-#define MSG_KILLREAD (1<<6)
-#define MSG_MODERATED (1<<7)
-#define MSG_VALIDATED (1<<8)
-#define MSG_REPLIED (1<<9) // User replied to this message
-
- /* Auxillary header attributes */
-#define MSG_FILEREQUEST (1<<0) // File request
-#define MSG_FILEATTACH (1<<1) // File(s) attached to Msg
-#define MSG_TRUNCFILE (1<<2) // Truncate file(s) when sent
-#define MSG_KILLFILE (1<<3) // Delete file(s) when sent
-#define MSG_RECEIPTREQ (1<<4) // Return receipt requested
-#define MSG_CONFIRMREQ (1<<5) // Confirmation receipt requested
-#define MSG_NODISP (1<<6) // Msg may not be displayed to user
-
- /* Message network attributes */
-#define MSG_LOCAL (1<<0) // Msg created locally
-#define MSG_INTRANSIT (1<<1) // Msg is in-transit
-#define MSG_SENT (1<<2) // Sent to remote
-#define MSG_KILLSENT (1<<3) // Kill when sent
-#define MSG_ARCHIVESENT (1<<4) // Archive when sent
-#define MSG_HOLD (1<<5) // Hold for pick-up
-#define MSG_CRASH (1<<6) // Crash
-#define MSG_IMMEDIATE (1<<7) // Send Msg now, ignore restrictions
-#define MSG_DIRECT (1<<8) // Send directly to destination
-#define MSG_GATE (1<<9) // Send via gateway
-#define MSG_ORPHAN (1<<10) // Unknown destination
-#define MSG_FPU (1<<11) // Force pickup
-#define MSG_TYPELOCAL (1<<12) // Msg is for local use only
-#define MSG_TYPEECHO (1<<13) // Msg is for conference distribution
-#define MSG_TYPENET (1<<14) // Msg is direct network mail
-
-
-enum {
- NET_NONE
- ,NET_UNKNOWN
- ,NET_FIDO
- ,NET_POSTLINK
- ,NET_QWK
- ,NET_INTERNET
- ,NET_WWIV
- ,NET_MHS
-
-/* Add new ones here */
-
- ,NET_TYPES
- };
-
-enum {
- AGENT_PERSON
- ,AGENT_PROCESS
-
-/* Add new ones here */
-
- ,AGENT_TYPES
- };
-
-enum {
- XLAT_NONE // No translation/End of translation list
- ,XLAT_ENCRYPT // Encrypted data
- ,XLAT_ESCAPED // 7-bit ASCII escaping for ctrl and 8-bit data
- ,XLAT_HUFFMAN // Static and adaptive Huffman coding compression
- ,XLAT_LZW // Limpel/Ziv/Welch compression
- ,XLAT_MLZ78 // Modified LZ78 compression
- ,XLAT_RLE // Run length encoding compression
- ,XLAT_IMPLODE // Implode compression (PkZIP)
- ,XLAT_SHRINK // Shrink compression (PkZIP)
- ,XLAT_LZH // LHarc (LHA) Dynamic Huffman coding
-
-/* Add new ones here */
-
- ,XLAT_TYPES
- };
-
-
-/************/
-/* Typedefs */
-/************/
-
-#ifdef _WIN32 /* necessary for compatibility with SBBS v2 */
-#pragma pack(push)
-#pragma pack(1)
-#endif
-
-typedef struct { // Time with time-zone
-
- ulong time; // Local time (unix format)
- short zone; // Time zone
-
- } when_t;
-
-typedef struct { // Index record
-
- ushort to; // 16-bit CRC of recipient name (lower case)
- ushort from; // 16-bit CRC of sender name (lower case)
- ushort subj; // 16-bit CRC of subject (lower case, w/o RE:)
- ushort attr; // attributes (read, permanent, etc.)
- ulong offset; // offset into header file
- ulong number; // number of message (1 based)
- ulong time; // time/date message was imported/posted
-
- } idxrec_t;
-
-typedef struct { // Message base header (fixed portion)
-
- uchar id[4]; // text or binary unique hdr ID
- ushort version; // version number (initially 100h for 1.00)
- ushort length; // length including this struct
-
- } smbhdr_t;
-
-typedef struct { // Message base status header
-
- ulong last_msg; // last message number
- ulong total_msgs; // total messages
- ulong header_offset; // byte offset to first header record
- ulong max_crcs; // Maximum number of CRCs to keep in history
- ulong max_msgs; // Maximum number of message to keep in sub
- ushort max_age; // Maximum age of message to keep in sub (in days)
- ushort attr; // Attributes for this message base (SMB_HYPER,etc)
-
- } smbstatus_t;
-
-typedef struct { // Message header
-
- uchar id[4]; // SHD<^Z>
- ushort type; // Message type (normally 0)
- ushort version; // Version of type (initially 100h for 1.00)
- ushort length; // Total length of fixed record + all fields
- ushort attr; // Attributes (bit field) (duped in SID)
- ulong auxattr; // Auxillary attributes (bit field)
- ulong netattr; // Network attributes
- when_t when_written; // Time message was written (unix format)
- when_t when_imported; // Time message was imported
- ulong number; // Message number
- ulong thread_orig; // Original message number in thread
- ulong thread_next; // Next message in thread
- ulong thread_first; // First reply to this message
- uchar reserved[16]; // Reserved for future use
- ulong offset; // Offset for buffer into data file (0 or mod 256)
- ushort total_dfields; // Total number of data fields
-
- } msghdr_t;
-
-typedef struct { // Data field
-
- ushort type; // Type of data field
- ulong offset; // Offset into buffer
- ulong length; // Length of data field
-
- } dfield_t;
-
-typedef struct { // Header field
-
- ushort type;
- ushort length; // Length of buffer
-
- } hfield_t;
-
-typedef struct { // FidoNet address (zone:net/node.point)
-
- ushort zone;
- ushort net;
- ushort node;
- ushort point;
-
- } fidoaddr_t;
-
-typedef struct { // Network (type and address)
-
- ushort type;
- void *addr;
-
- } net_t;
-
-typedef struct { // Message
-
- idxrec_t idx; // Index
- msghdr_t hdr; // Header record (fixed portion)
- char *to, // To name
- *to_ext, // To extension
- *from, // From name
- *from_ext, // From extension
- *replyto, // Reply-to name
- *replyto_ext, // Reply-to extension */
- *subj; // Subject
- ushort to_agent, // Type of agent message is to
- from_agent, // Type of agent message is from
- replyto_agent; // Type of agent replies should be sent to
- net_t to_net, // Destination network type and address
- from_net, // Origin network address
- replyto_net; // Network type and address for replies
- ushort total_hfields; // Total number of header fields
- hfield_t *hfield; // Header fields (fixed length portion)
- void **hfield_dat; // Header fields (variable length portion)
- dfield_t *dfield; // Data fields (fixed length portion)
- ulong offset; // Offset (number of records) into index
- uchar forwarded; // Forwarded from agent to another
- when_t expiration; // Message will exipre on this day (if >0)
-
- } smbmsg_t;
-
-typedef struct { // Message base
-
- char file[128]; // Path and base filename (no extension)
- FILE *sdt_fp; // File pointer for data (.sdt) file
- FILE *shd_fp; // File pointer for header (.shd) file
- FILE *sid_fp; // File pointer for index (.sid) file
- FILE *sda_fp; // File pointer for data allocation (.sda) file
- FILE *sha_fp; // File pointer for header allocation (.sha) file
- ulong retry_time; // Maximum number of seconds to retry opens/locks
- smbstatus_t status; // Status header record
- char shd_buf[SHD_BLOCK_LEN]; // File I/O buffer for header file
-
- } smb_t;
-
-#ifdef _WIN32
-#pragma pack(pop) /* original packing */
-#endif
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/smb/smblib.c b/src/sbbs2/smb/smblib.c
deleted file mode 100644
index e414456e22729bbd1bc67b42d84276ea5259b392..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smblib.c
+++ /dev/null
@@ -1,1383 +0,0 @@
-/* SMBLIB.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "smblib.h"
-
-/* Use smb_ver() and smb_lib_ver() to obtain these values */
-#define SMBLIB_VERSION "2.10" /* SMB library version */
-#define SMB_VERSION 0x0121 /* SMB format version */
- /* High byte major, low byte minor */
-
-#ifdef _MSC_VER /* Microsoft C */
-#define sopen(f,o,s,p) _sopen(f,o,s,p)
-#define close(f) _close(f)
-#define SH_DENYNO _SH_DENYNO
-#define SH_DENYRW _SH_DENYRW
-
-#include <sys/locking.h>
-
-int lock(int file, long offset, int size)
-{
- int i;
- long pos;
-
- pos=tell(file);
- if(offset!=pos)
- lseek(file, offset, SEEK_SET);
- i=locking(file,LK_NBLCK,size);
- if(offset!=pos)
- lseek(file, pos, SEEK_SET);
- return(i);
-}
-
-int unlock(int file, long offset, int size)
-{
- int i;
- long pos;
-
- pos=tell(file);
- if(offset!=pos)
- lseek(file, offset, SEEK_SET);
- i=locking(file,LK_UNLCK,size);
- if(offset!=pos)
- lseek(file, pos, SEEK_SET);
- return(i);
-}
-
-#endif /* _MSC_VER */
-
-
-int SMBCALL smb_ver(void)
-{
- return(SMB_VERSION);
-}
-
-char * SMBCALL smb_lib_ver(void)
-{
- return(SMBLIB_VERSION);
-}
-
-/****************************************************************************/
-/* Open a message base of name 'smb->file' */
-/* Opens files for READing messages or updating message indices only */
-/****************************************************************************/
-int SMBCALL smb_open(smb_t *smb)
-{
- int file;
- char str[128];
- smbhdr_t hdr;
-
-if(!smb->retry_time)
- smb->retry_time=10;
-smb->shd_fp=smb->sdt_fp=smb->sid_fp=NULL;
-sprintf(str,"%s.SHD",smb->file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (smb->shd_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- return(2); }
-
-if(filelength(file)>=sizeof(smbhdr_t)) {
- setvbuf(smb->shd_fp,smb->shd_buf,_IONBF,SHD_BLOCK_LEN);
- if(smb_locksmbhdr(smb)) {
- smb_close(smb);
- return(-1); }
- memset(&hdr,0,sizeof(smbhdr_t));
- fread(&hdr,sizeof(smbhdr_t),1,smb->shd_fp);
- if(memcmp(hdr.id,"SMB\x1a",4)) {
- smb_close(smb);
- return(-2); }
- if(hdr.version<0x110) { /* Compatibility check */
- smb_close(smb);
- return(-3); }
- if(fread(&(smb->status),1,sizeof(smbstatus_t),smb->shd_fp)
- !=sizeof(smbstatus_t)) {
- smb_close(smb);
- return(-4); }
- smb_unlocksmbhdr(smb);
- rewind(smb->shd_fp); }
-
-setvbuf(smb->shd_fp,smb->shd_buf,_IOFBF,SHD_BLOCK_LEN);
-
-sprintf(str,"%s.SDT",smb->file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (smb->sdt_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- smb_close(smb);
- return(1); }
-setvbuf(smb->sdt_fp,NULL,_IOFBF,2*1024);
-
-sprintf(str,"%s.SID",smb->file);
-if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYNO,S_IWRITE|S_IREAD))==-1
- || (smb->sid_fp=fdopen(file,"r+b"))==NULL) {
- if(file!=-1)
- close(file);
- smb_close(smb);
- return(3); }
-setvbuf(smb->sid_fp,NULL,_IOFBF,2*1024);
-
-return(0);
-}
-
-/****************************************************************************/
-/* Closes the currently open message base */
-/****************************************************************************/
-void SMBCALL smb_close(smb_t *smb)
-{
-if(smb->shd_fp!=NULL) {
- smb_unlocksmbhdr(smb); /* In case it's been locked */
- fclose(smb->shd_fp); }
-if(smb->sid_fp!=NULL)
- fclose(smb->sid_fp);
-if(smb->sdt_fp!=NULL)
- fclose(smb->sdt_fp);
-smb->sid_fp=smb->shd_fp=smb->sdt_fp=NULL;
-}
-
-/****************************************************************************/
-/* Opens the data block allocation table message base 'smb->file' */
-/* Retrys for retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int SMBCALL smb_open_da(smb_t *smb)
-{
- int file;
- char str[128];
- ulong start=0;
-
-sprintf(str,"%s.SDA",smb->file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(!start)
- start=time(NULL);
- else
- if(time(NULL)-start>=smb->retry_time)
- return(-2); }
-if((smb->sda_fp=fdopen(file,"r+b"))==NULL) {
- close(file);
- return(-3); }
-setvbuf(smb->sda_fp,NULL,_IOFBF,2*1024);
-return(0);
-}
-
-void SMBCALL smb_close_da(smb_t *smb)
-{
-if(smb->sda_fp!=NULL)
- fclose(smb->sda_fp);
-smb->sda_fp=NULL;
-}
-
-/****************************************************************************/
-/* Opens the header block allocation table for message base 'smb.file' */
-/* Retrys for smb.retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int SMBCALL smb_open_ha(smb_t *smb)
-{
- int file;
- char str[128];
- ulong start=0;
-
-sprintf(str,"%s.SHA",smb->file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(!start)
- start=time(NULL);
- else
- if(time(NULL)-start>=smb->retry_time)
- return(-2); }
-if((smb->sha_fp=fdopen(file,"r+b"))==NULL) {
- close(file);
- return(-3); }
-setvbuf(smb->sha_fp,NULL,_IOFBF,2*1024);
-return(0);
-}
-
-void SMBCALL smb_close_ha(smb_t *smb)
-{
-if(smb->sha_fp!=NULL)
- fclose(smb->sha_fp);
-smb->sha_fp=NULL;
-}
-
-
-/****************************************************************************/
-/* If the parameter 'push' is non-zero, this function stores the currently */
-/* open message base to the "virtual" smb stack. Up to SMB_STACK_LEN */
-/* message bases may be stored (defined in SMBDEFS.H). */
-/* The parameter 'op' is the operation to perform on the stack. Either */
-/* SMB_STACK_PUSH, SMB_STACK_POP, or SMB_STACK_XCHNG */
-/* If the operation is SMB_STACK_POP, this function restores a message base */
-/* previously saved with a SMB_STACK_PUSH call to this same function. */
-/* If the operation is SMB_STACK_XCHNG, then the current message base is */
-/* exchanged with the message base on the top of the stack (most recently */
-/* pushed. */
-/* If the current message base is not open, the SMB_STACK_PUSH and */
-/* SMB_STACK_XCHNG operations do nothing */
-/* Returns 0 on success, non-zero if stack full. */
-/* If operation is SMB_STACK_POP or SMB_STACK_XCHNG, it always returns 0. */
-/****************************************************************************/
-int SMBCALL smb_stack(smb_t *smb, int op)
-{
- static char stack_file[SMB_STACK_LEN][128];
- static FILE *stack_sdt[SMB_STACK_LEN],
- *stack_shd[SMB_STACK_LEN],
- *stack_sid[SMB_STACK_LEN],
- *stack_sda[SMB_STACK_LEN],
- *stack_sha[SMB_STACK_LEN];
- static int stack_idx;
- char tmp_file[128];
- FILE *tmp_sdt,
- *tmp_shd,
- *tmp_sid,
- *tmp_sda,
- *tmp_sha;
-
-if(op==SMB_STACK_PUSH) {
- if(stack_idx>=SMB_STACK_LEN)
- return(1);
- if(smb->shd_fp==NULL || smb->sdt_fp==NULL || smb->sid_fp==NULL)
- return(0); /* Msg base not open */
- memcpy(stack_file[stack_idx],smb->file,128);
- stack_sdt[stack_idx]=smb->sdt_fp;
- stack_shd[stack_idx]=smb->shd_fp;
- stack_sid[stack_idx]=smb->sid_fp;
- stack_sda[stack_idx]=smb->sda_fp;
- stack_sha[stack_idx]=smb->sha_fp;
- stack_idx++;
- return(0); }
-/* pop or xchng */
-if(!stack_idx) /* Nothing on the stack, so do nothing */
- return(0);
-if(op==SMB_STACK_XCHNG) {
- if(!smb->shd_fp)
- return(0);
- memcpy(tmp_file,smb->file,128);
- tmp_sdt=smb->sdt_fp;
- tmp_shd=smb->shd_fp;
- tmp_sid=smb->sid_fp;
- tmp_sda=smb->sda_fp;
- tmp_sha=smb->sha_fp; }
-
-stack_idx--;
-memcpy(smb->file,stack_file[stack_idx],128);
-smb->sdt_fp=stack_sdt[stack_idx];
-smb->shd_fp=stack_shd[stack_idx];
-smb->sid_fp=stack_sid[stack_idx];
-smb->sda_fp=stack_sda[stack_idx];
-smb->sha_fp=stack_sha[stack_idx];
-if(op==SMB_STACK_XCHNG) {
- stack_idx++;
- memcpy(stack_file[stack_idx-1],tmp_file,128);
- stack_sdt[stack_idx-1]=tmp_sdt;
- stack_shd[stack_idx-1]=tmp_shd;
- stack_sid[stack_idx-1]=tmp_sid;
- stack_sda[stack_idx-1]=tmp_sda;
- stack_sha[stack_idx-1]=tmp_sha; }
-return(0);
-}
-
-/****************************************************************************/
-/* Truncates header file */
-/* Retrys for smb.retry_time number of seconds */
-/* Return 0 on success, non-zero otherwise */
-/****************************************************************************/
-int SMBCALL smb_trunchdr(smb_t *smb)
-{
- ulong start=0;
-
-rewind(smb->shd_fp);
-while(1) {
- if(!chsize(fileno(smb->shd_fp),0L))
- break;
- if(errno!=EACCES)
- return(-1);
- if(!start)
- start=time(NULL);
- else
- if(time(NULL)-start>=smb->retry_time) /* Time-out */
- return(-2); }
-return(0);
-}
-
-/*********************************/
-/* Message Base Header Functions */
-/*********************************/
-
-/****************************************************************************/
-/* Attempts for smb.retry_time number of seconds to lock the msg base hdr */
-/****************************************************************************/
-int SMBCALL smb_locksmbhdr(smb_t *smb)
-{
- ulong start=0;
-
-while(1) {
- if(!lock(fileno(smb->shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)))
- return(0);
- if(!start)
- start=time(NULL);
- else
- if(time(NULL)-start>=smb->retry_time)
- break; /* Incase we've already locked it */
- unlock(fileno(smb->shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)); }
-return(-1);
-}
-
-/****************************************************************************/
-/* Read the SMB header from the header file and place into smb.status */
-/****************************************************************************/
-int SMBCALL smb_getstatus(smb_t *smb)
-{
- int i;
-
-setvbuf(smb->shd_fp,smb->shd_buf,_IONBF,SHD_BLOCK_LEN);
-clearerr(smb->shd_fp);
-fseek(smb->shd_fp,sizeof(smbhdr_t),SEEK_SET);
-i=fread(&(smb->status),1,sizeof(smbstatus_t),smb->shd_fp);
-setvbuf(smb->shd_fp,smb->shd_buf,_IOFBF,SHD_BLOCK_LEN);
-if(i==sizeof(smbstatus_t))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Writes message base header */
-/****************************************************************************/
-int SMBCALL smb_putstatus(smb_t *smb)
-{
- int i;
-
-clearerr(smb->shd_fp);
-fseek(smb->shd_fp,sizeof(smbhdr_t),SEEK_SET);
-i=fwrite(&(smb->status),1,sizeof(smbstatus_t),smb->shd_fp);
-fflush(smb->shd_fp);
-if(i==sizeof(smbstatus_t))
- return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Unlocks previously locks message base header */
-/****************************************************************************/
-int SMBCALL smb_unlocksmbhdr(smb_t *smb)
-{
-return(unlock(fileno(smb->shd_fp),0L,sizeof(smbhdr_t)+sizeof(smbstatus_t)));
-}
-
-/********************************/
-/* Individual Message Functions */
-/********************************/
-
-/****************************************************************************/
-/* Attempts for smb.retry_time number of seconds to lock the hdr for 'msg' */
-/****************************************************************************/
-int SMBCALL smb_lockmsghdr(smb_t *smb, smbmsg_t *msg)
-{
- ulong start=0;
-
-while(1) {
- if(!lock(fileno(smb->shd_fp),msg->idx.offset,sizeof(msghdr_t)))
- return(0);
- if(!start)
- start=time(NULL);
- else
- if(time(NULL)-start>=smb->retry_time)
- break;
- unlock(fileno(smb->shd_fp),msg->idx.offset,sizeof(msghdr_t)); }
-return(-1);
-}
-
-/****************************************************************************/
-/* Fills msg->idx with message index based on msg->hdr.number */
-/* OR if msg->hdr.number is 0, based on msg->offset (record offset). */
-/* if msg.hdr.number does not equal 0, then msg->offset is filled too. */
-/* Either msg->hdr.number or msg->offset must be initialized before */
-/* calling this function */
-/* Returns 1 if message number wasn't found, 0 if it was */
-/****************************************************************************/
-int SMBCALL smb_getmsgidx(smb_t *smb, smbmsg_t *msg)
-{
- idxrec_t idx;
- ulong l,length,total,bot,top;
-
-clearerr(smb->sid_fp);
-if(!msg->hdr.number) {
- fseek(smb->sid_fp,msg->offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg->idx,sizeof(idxrec_t),1,smb->sid_fp))
- return(1);
- return(0); }
-
-length=filelength(fileno(smb->sid_fp));
-if(!length)
- return(1);
-total=length/sizeof(idxrec_t);
-if(!total)
- return(1);
-
-bot=0;
-top=total;
-l=total/2; /* Start at middle index */
-while(1) {
- fseek(smb->sid_fp,l*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&idx,sizeof(idxrec_t),1,smb->sid_fp))
- return(1);
- if(bot==top-1 && idx.number!=msg->hdr.number)
- return(1);
- if(idx.number>msg->hdr.number) {
- top=l;
- l=bot+((top-bot)/2);
- continue; }
- if(idx.number<msg->hdr.number) {
- bot=l;
- l=top-((top-bot)/2);
- continue; }
- break; }
-msg->idx=idx;
-msg->offset=l;
-return(0);
-}
-
-/****************************************************************************/
-/* Reads the last index record in the open message base */
-/****************************************************************************/
-int SMBCALL smb_getlastidx(smb_t *smb, idxrec_t *idx)
-{
- long length;
-
-clearerr(smb->sid_fp);
-length=filelength(fileno(smb->sid_fp));
-if(length<sizeof(idxrec_t))
- return(-1);
-fseek(smb->sid_fp,length-sizeof(idxrec_t),SEEK_SET);
-if(!fread(idx,sizeof(idxrec_t),1,smb->sid_fp))
- return(-2);
-return(0);
-}
-
-/****************************************************************************/
-/* Figures out the total length of the header record for 'msg' */
-/* Returns length */
-/****************************************************************************/
-uint SMBCALL smb_getmsghdrlen(smbmsg_t *msg)
-{
- int i;
-
-/* fixed portion */
-msg->hdr.length=sizeof(msghdr_t);
-/* data fields */
-msg->hdr.length+=msg->hdr.total_dfields*sizeof(dfield_t);
-/* header fields */
-for(i=0;i<msg->total_hfields;i++) {
- msg->hdr.length+=sizeof(hfield_t);
- msg->hdr.length+=msg->hfield[i].length; }
-return(msg->hdr.length);
-}
-
-/****************************************************************************/
-/* Figures out the total length of the data buffer for 'msg' */
-/* Returns length */
-/****************************************************************************/
-ulong SMBCALL smb_getmsgdatlen(smbmsg_t *msg)
-{
- int i;
- ulong length=0L;
-
-for(i=0;i<msg->hdr.total_dfields;i++)
- length+=msg->dfield[i].length;
-return(length);
-}
-
-/****************************************************************************/
-/* Read header information into 'msg' structure */
-/* msg->idx.offset must be set before calling this function */
-/* Must call smb_freemsgmem() to free memory allocated for var len strs */
-/* Returns 0 on success, non-zero if error */
-/****************************************************************************/
-int SMBCALL smb_getmsghdr(smb_t *smb, smbmsg_t *msg)
-{
- void *vp,**vpp;
- ushort i;
- ulong l,offset;
- idxrec_t idx;
-
-rewind(smb->shd_fp);
-fseek(smb->shd_fp,msg->idx.offset,SEEK_SET);
-idx=msg->idx;
-offset=msg->offset;
-memset(msg,0,sizeof(smbmsg_t));
-msg->idx=idx;
-msg->offset=offset;
-if(!fread(&msg->hdr,sizeof(msghdr_t),1,smb->shd_fp))
- return(-1);
-if(memcmp(msg->hdr.id,"SHD\x1a",4))
- return(-2);
-if(msg->hdr.version<0x110)
- return(-9);
-l=sizeof(msghdr_t);
-if(msg->hdr.total_dfields && (msg->dfield
- =(dfield_t *)MALLOC(sizeof(dfield_t)*msg->hdr.total_dfields))==NULL) {
- smb_freemsgmem(msg);
- return(-3); }
-i=0;
-while(i<msg->hdr.total_dfields && l<msg->hdr.length) {
- if(!fread(&msg->dfield[i],sizeof(dfield_t),1,smb->shd_fp)) {
- smb_freemsgmem(msg);
- return(-4); }
- i++;
- l+=sizeof(dfield_t); }
-if(i<msg->hdr.total_dfields) {
- smb_freemsgmem(msg);
- return(-8); }
-
-while(l<msg->hdr.length) {
- i=msg->total_hfields;
- if((vpp=(void **)REALLOC(msg->hfield_dat,sizeof(void *)*(i+1)))==NULL) {
- smb_freemsgmem(msg);
- return(-3); }
- msg->hfield_dat=vpp;
- if((vp=(hfield_t *)REALLOC(msg->hfield,sizeof(hfield_t)*(i+1)))==NULL) {
- smb_freemsgmem(msg);
- return(-3); }
- msg->hfield=vp;
- msg->total_hfields++;
- if(!fread(&msg->hfield[i],sizeof(hfield_t),1,smb->shd_fp)) {
- smb_freemsgmem(msg);
- return(-5); }
- l+=sizeof(hfield_t);
- if((msg->hfield_dat[i]=(char *)MALLOC(msg->hfield[i].length+1))
- ==NULL) { /* Allocate 1 extra for NULL terminator */
- smb_freemsgmem(msg); /* or 0 length field */
- return(-3); }
- memset(msg->hfield_dat[i],0,msg->hfield[i].length+1); /* init to NULL */
- if(msg->hfield[i].length
- && !fread(msg->hfield_dat[i],msg->hfield[i].length,1,smb->shd_fp)) {
- smb_freemsgmem(msg);
- return(-6); }
-
- switch(msg->hfield[i].type) { /* convenience variables */
- case SENDER:
- if(!msg->from) {
- msg->from=msg->hfield_dat[i];
- break; }
- case FORWARDED: /* fall through */
- msg->forwarded=1;
- break;
- case SENDERAGENT:
- if(!msg->forwarded)
- msg->from_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case SENDEREXT:
- if(!msg->forwarded)
- msg->from_ext=msg->hfield_dat[i];
- break;
- case SENDERNETTYPE:
- if(!msg->forwarded)
- msg->from_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case SENDERNETADDR:
- if(!msg->forwarded)
- msg->from_net.addr=msg->hfield_dat[i];
- break;
- case REPLYTO:
- msg->replyto=msg->hfield_dat[i];
- break;
- case REPLYTOEXT:
- msg->replyto_ext=msg->hfield_dat[i];
- break;
- case REPLYTOAGENT:
- msg->replyto_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case REPLYTONETTYPE:
- msg->replyto_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case REPLYTONETADDR:
- msg->replyto_net.addr=msg->hfield_dat[i];
- break;
- case RECIPIENT:
- msg->to=msg->hfield_dat[i];
- break;
- case RECIPIENTEXT:
- msg->to_ext=msg->hfield_dat[i];
- break;
- case RECIPIENTAGENT:
- msg->to_agent=*(ushort *)msg->hfield_dat[i];
- break;
- case RECIPIENTNETTYPE:
- msg->to_net.type=*(ushort *)msg->hfield_dat[i];
- break;
- case RECIPIENTNETADDR:
- msg->to_net.addr=msg->hfield_dat[i];
- break;
- case SUBJECT:
- msg->subj=msg->hfield_dat[i];
- break; }
- l+=msg->hfield[i].length; }
-
-if(!msg->from || !msg->to || !msg->subj) {
- smb_freemsgmem(msg);
- return(-7); }
-return(0);
-}
-
-/****************************************************************************/
-/* Frees memory allocated for 'msg' */
-/****************************************************************************/
-void SMBCALL smb_freemsgmem(smbmsg_t *msg)
-{
- ushort i;
-
- if(msg->dfield) {
- FREE(msg->dfield);
- msg->dfield=NULL;
- }
- for(i=0;i<msg->total_hfields;i++)
- if(msg->hfield_dat[i]) {
- FREE(msg->hfield_dat[i]);
- msg->hfield_dat[i]=NULL;
- }
- msg->total_hfields=0;
- if(msg->hfield) {
- FREE(msg->hfield);
- msg->hfield=NULL;
- }
- if(msg->hfield_dat) {
- FREE(msg->hfield_dat);
- msg->hfield_dat=NULL;
- }
-}
-
-/****************************************************************************/
-/* Unlocks header for 'msg' */
-/****************************************************************************/
-int SMBCALL smb_unlockmsghdr(smb_t *smb, smbmsg_t *msg)
-{
-return(unlock(fileno(smb->shd_fp),msg->idx.offset,sizeof(msghdr_t)));
-}
-
-
-/****************************************************************************/
-/* Adds a header field to the 'msg' structure (in memory only) */
-/****************************************************************************/
-int SMBCALL smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data)
-{
- void *vp,**vpp;
- int i;
-
-i=msg->total_hfields;
-if((vp=(hfield_t *)REALLOC(msg->hfield,sizeof(hfield_t)*(i+1)))==NULL)
- return(1);
-msg->hfield=vp;
-if((vpp=(void **)REALLOC(msg->hfield_dat,sizeof(void *)*(i+1)))==NULL)
- return(2);
-msg->hfield_dat=vpp;
-msg->total_hfields++;
-msg->hfield[i].type=type;
-msg->hfield[i].length=length;
-if(length) {
- if((msg->hfield_dat[i]=(void *)MALLOC(length))==NULL)
- return(4);
- memcpy(msg->hfield_dat[i],data,length); }
-else
- msg->hfield_dat[i]=NULL;
-return(0);
-}
-
-/****************************************************************************/
-/* Adds a data field to the 'msg' structure (in memory only) */
-/* Automatically figures out the offset into the data buffer from existing */
-/* dfield lengths */
-/****************************************************************************/
-int SMBCALL smb_dfield(smbmsg_t *msg, ushort type, ulong length)
-{
- void *vp;
- int i,j;
-
-i=msg->hdr.total_dfields;
-if((vp=(dfield_t *)REALLOC(msg->dfield,sizeof(dfield_t)*(i+1)))==NULL)
- return(1);
-msg->dfield=vp;
-msg->hdr.total_dfields++;
-msg->dfield[i].type=type;
-msg->dfield[i].length=length;
-for(j=msg->dfield[i].offset=0;j<i;j++)
- msg->dfield[i].offset+=msg->dfield[j].length;
-return(0);
-}
-
-/****************************************************************************/
-/* Checks CRC history file for duplicate crc. If found, returns 1. */
-/* If no dupe, adds to CRC history and returns 0, or negative if error. */
-/****************************************************************************/
-int SMBCALL smb_addcrc(smb_t *smb, ulong crc)
-{
- char str[128];
- int file;
- long length;
- ulong l,*buf;
- ulong start=0;
-
-if(!smb->status.max_crcs)
- return(0);
-
-sprintf(str,"%s.SCH",smb->file);
-while(1) {
- if((file=sopen(str,O_RDWR|O_CREAT|O_BINARY,SH_DENYRW,S_IWRITE|S_IREAD))!=-1)
- break;
- if(errno!=EACCES)
- return(-1);
- if(!start)
- start=time(NULL);
- else
- if(time(NULL)-start>=smb->retry_time)
- return(-2); }
-
-length=filelength(file);
-if(length<0L) {
- close(file);
- return(-4); }
-if((buf=(ulong *)MALLOC(smb->status.max_crcs*4))==NULL) {
- close(file);
- return(-3); }
-if(length>=smb->status.max_crcs*4) { /* Reached or exceeds max crcs */
- read(file,buf,smb->status.max_crcs*4);
- for(l=0;l<smb->status.max_crcs;l++)
- if(crc==buf[l])
- break;
- if(l<smb->status.max_crcs) { /* Dupe CRC found */
- close(file);
- FREE(buf);
- return(1); }
- chsize(file,0L); /* truncate it */
- lseek(file,0L,SEEK_SET);
- write(file,buf+4,(smb->status.max_crcs-1)*4); }
-
-else if(length/4) { /* Less than max crcs */
- read(file,buf,length);
- for(l=0;l<length/4;l++)
- if(crc==buf[l])
- break;
- if(l<length/4) { /* Dupe CRC found */
- close(file);
- FREE(buf);
- return(1); } }
-
-lseek(file,0L,SEEK_END);
-write(file,&crc,4); /* Write to the end */
-FREE(buf);
-close(file);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Creates a new message header record in the header file. */
-/* If storage is SMB_SELFPACK, self-packing conservative allocation is used */
-/* If storage is SMB_FASTALLOC, fast allocation is used */
-/* If storage is SMB_HYPERALLOC, no allocation tables are used (fastest) */
-/****************************************************************************/
-int SMBCALL smb_addmsghdr(smb_t *smb, smbmsg_t *msg, int storage)
-{
- int i;
- long l;
-
-if(smb_locksmbhdr(smb))
- return(1);
-if(smb_getstatus(smb))
- return(2);
-
-if(storage!=SMB_HYPERALLOC && (i=smb_open_ha(smb))!=0)
- return(i);
-
-msg->hdr.length=smb_getmsghdrlen(msg);
-if(storage==SMB_HYPERALLOC)
- l=smb_hallochdr(smb);
-else if(storage==SMB_FASTALLOC)
- l=smb_fallochdr(smb,msg->hdr.length);
-else
- l=smb_allochdr(smb,msg->hdr.length);
-if(l==-1L) {
- smb_unlocksmbhdr(smb);
- smb_close_ha(smb);
- return(-1); }
-
-smb->status.last_msg++;
-msg->idx.number=msg->hdr.number=smb->status.last_msg;
-msg->idx.offset=smb->status.header_offset+l;
-msg->idx.time=msg->hdr.when_imported.time;
-msg->idx.attr=msg->hdr.attr;
-msg->offset=smb->status.total_msgs;
-smb->status.total_msgs++;
-smb_putstatus(smb);
-
-if(storage!=SMB_HYPERALLOC)
- smb_close_ha(smb);
-i=smb_putmsg(smb,msg);
-smb_unlocksmbhdr(smb);
-return(i);
-}
-
-/****************************************************************************/
-/* Writes both header and index information for msg 'msg' */
-/****************************************************************************/
-int SMBCALL smb_putmsg(smb_t *smb, smbmsg_t *msg)
-{
- int i;
-
-i=smb_putmsghdr(smb,msg);
-if(i)
- return(i);
-return(smb_putmsgidx(smb,msg));
-}
-
-/****************************************************************************/
-/* Writes index information for 'msg' */
-/* msg->idx */
-/* and msg->offset must be set prior to calling to this function */
-/* Returns 0 if everything ok */
-/****************************************************************************/
-int SMBCALL smb_putmsgidx(smb_t *smb, smbmsg_t *msg)
-{
-
-clearerr(smb->sid_fp);
-fseek(smb->sid_fp,msg->offset*sizeof(idxrec_t),SEEK_SET);
-if(!fwrite(&msg->idx,sizeof(idxrec_t),1,smb->sid_fp))
- return(1);
-fflush(smb->sid_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Writes header information for 'msg' */
-/* msg->hdr.length */
-/* msg->idx.offset */
-/* and msg->offset must be set prior to calling to this function */
-/* Returns 0 if everything ok */
-/****************************************************************************/
-int SMBCALL smb_putmsghdr(smb_t *smb, smbmsg_t *msg)
-{
- ushort i;
- ulong l;
-
-clearerr(smb->shd_fp);
-if(fseek(smb->shd_fp,msg->idx.offset,SEEK_SET))
- return(-1);
-
-/************************************************/
-/* Write the fixed portion of the header record */
-/************************************************/
-if(!fwrite(&msg->hdr,sizeof(msghdr_t),1,smb->shd_fp))
- return(-2);
-
-/************************************************/
-/* Write the data fields (each is fixed length) */
-/************************************************/
-for(i=0;i<msg->hdr.total_dfields;i++)
- if(!fwrite(&msg->dfield[i],sizeof(dfield_t),1,smb->shd_fp))
- return(-3);
-
-/*******************************************/
-/* Write the variable length header fields */
-/*******************************************/
-for(i=0;i<msg->total_hfields;i++) {
- if(!fwrite(&msg->hfield[i],sizeof(hfield_t),1,smb->shd_fp))
- return(-4);
- if(msg->hfield[i].length /* more then 0 bytes long */
- && !fwrite(msg->hfield_dat[i],msg->hfield[i].length,1,smb->shd_fp))
- return(-5); }
-
-l=smb_getmsghdrlen(msg);
-while(l%SHD_BLOCK_LEN) {
- if(fputc(0,smb->shd_fp)==EOF)
- return(-6); /* pad block with NULL */
- l++; }
-fflush(smb->shd_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Creates a sub-board's initial header file */
-/* Truncates and deletes other associated SMB files */
-/****************************************************************************/
-int SMBCALL smb_create(smb_t *smb)
-{
- char str[128];
- smbhdr_t hdr;
-
-if(filelength(fileno(smb->shd_fp))>=sizeof(smbhdr_t)+sizeof(smbstatus_t)
- && smb_locksmbhdr(smb)) /* header exists, so lock it */
- return(1);
-memset(&hdr,0,sizeof(smbhdr_t));
-memcpy(hdr.id,"SMB\x1a",4); /* <S> <M> <B> <^Z> */
-hdr.version=SMB_VERSION;
-hdr.length=sizeof(smbhdr_t)+sizeof(smbstatus_t);
-smb->status.last_msg=smb->status.total_msgs=0;
-smb->status.header_offset=sizeof(smbhdr_t)+sizeof(smbstatus_t);
-rewind(smb->shd_fp);
-fwrite(&hdr,1,sizeof(smbhdr_t),smb->shd_fp);
-fwrite(&(smb->status),1,sizeof(smbstatus_t),smb->shd_fp);
-rewind(smb->shd_fp);
-chsize(fileno(smb->shd_fp),sizeof(smbhdr_t)+sizeof(smbstatus_t));
-fflush(smb->shd_fp);
-
-rewind(smb->sdt_fp);
-chsize(fileno(smb->sdt_fp),0L);
-rewind(smb->sid_fp);
-chsize(fileno(smb->sid_fp),0L);
-
-sprintf(str,"%s.SDA",smb->file);
-remove(str); /* if it exists, delete it */
-sprintf(str,"%s.SHA",smb->file);
-remove(str); /* if it exists, delete it */
-sprintf(str,"%s.SCH",smb->file);
-remove(str);
-smb_unlocksmbhdr(smb);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns number of data blocks required to store "length" amount of data */
-/****************************************************************************/
-ulong SMBCALL smb_datblocks(ulong length)
-{
- ulong blocks;
-
-blocks=length/SDT_BLOCK_LEN;
-if(length%SDT_BLOCK_LEN)
- blocks++;
-return(blocks);
-}
-
-/****************************************************************************/
-/* Returns number of header blocks required to store "length" size header */
-/****************************************************************************/
-ulong SMBCALL smb_hdrblocks(ulong length)
-{
- ulong blocks;
-
-blocks=length/SHD_BLOCK_LEN;
-if(length%SHD_BLOCK_LEN)
- blocks++;
-return(blocks);
-}
-
-/****************************************************************************/
-/* Finds unused space in data file based on block allocation table and */
-/* marks space as used in allocation table. */
-/* File must be opened read/write DENY ALL */
-/* Returns offset to beginning of data (in bytes, not blocks) */
-/* Assumes smb_open_da() has been called */
-/* smb_close_da() should be called after */
-/* Returns negative on error */
-/****************************************************************************/
-long SMBCALL smb_allocdat(smb_t *smb, ulong length, ushort headers)
-{
- ushort i,j;
- ulong l,blocks,offset=0L;
-
-blocks=smb_datblocks(length);
-j=0; /* j is consecutive unused block counter */
-fflush(smb->sda_fp);
-rewind(smb->sda_fp);
-while(!feof(smb->sda_fp)) {
- if(!fread(&i,2,1,smb->sda_fp))
- break;
- offset+=SDT_BLOCK_LEN;
- if(!i) j++;
- else j=0;
- if(j==blocks) {
- offset-=(blocks*SDT_BLOCK_LEN);
- break; } }
-clearerr(smb->sda_fp);
-fseek(smb->sda_fp,(offset/SDT_BLOCK_LEN)*2L,SEEK_SET);
-for(l=0;l<blocks;l++)
- if(!fwrite(&headers,2,1,smb->sda_fp))
- return(-1);
-fflush(smb->sda_fp);
-return(offset);
-}
-
-/****************************************************************************/
-/* Allocates space for data, but doesn't search for unused blocks */
-/* Returns negative on error */
-/****************************************************************************/
-long SMBCALL smb_fallocdat(smb_t *smb, ulong length, ushort headers)
-{
- ulong l,blocks,offset;
-
-fflush(smb->sda_fp);
-clearerr(smb->sda_fp);
-blocks=smb_datblocks(length);
-fseek(smb->sda_fp,0L,SEEK_END);
-offset=(ftell(smb->sda_fp)/2L)*SDT_BLOCK_LEN;
-for(l=0;l<blocks;l++)
- if(!fwrite(&headers,2,1,smb->sda_fp))
- break;
-fflush(smb->sda_fp);
-if(l<blocks)
- return(-1L);
-return(offset);
-}
-
-/****************************************************************************/
-/* De-allocates space for data */
-/* Returns non-zero on error */
-/****************************************************************************/
-int SMBCALL smb_freemsgdat(smb_t *smb, ulong offset, ulong length
- , ushort headers)
-{
- int da_opened=0;
- ushort i;
- ulong l,blocks;
-
-blocks=smb_datblocks(length);
-
-if(smb->sda_fp==NULL) {
- if((i=smb_open_da(smb))!=0)
- return(i);
- da_opened=1;
-}
-
-clearerr(smb->sda_fp);
-for(l=0;l<blocks;l++) {
- if(fseek(smb->sda_fp,((offset/SDT_BLOCK_LEN)+l)*2L,SEEK_SET))
- return(1);
- if(!fread(&i,2,1,smb->sda_fp))
- return(2);
- if(headers>i)
- i=0; /* don't want to go negative */
- else
- i-=headers;
- if(fseek(smb->sda_fp,-2L,SEEK_CUR))
- return(3);
- if(!fwrite(&i,2,1,smb->sda_fp))
- return(4); }
-fflush(smb->sda_fp);
-if(da_opened)
- smb_close_da(smb);
-return(0);
-}
-
-/****************************************************************************/
-/* Adds to data allocation records for blocks starting at 'offset' */
-/* Returns non-zero on error */
-/****************************************************************************/
-int SMBCALL smb_incdat(smb_t *smb, ulong offset, ulong length, ushort headers)
-{
- ushort i;
- ulong l,blocks;
-
-clearerr(smb->sda_fp);
-blocks=smb_datblocks(length);
-for(l=0;l<blocks;l++) {
- fseek(smb->sda_fp,((offset/SDT_BLOCK_LEN)+l)*2L,SEEK_SET);
- if(!fread(&i,2,1,smb->sda_fp))
- return(1);
- i+=headers;
- fseek(smb->sda_fp,-2L,SEEK_CUR);
- if(!fwrite(&i,2,1,smb->sda_fp))
- return(2); }
-fflush(smb->sda_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* De-allocates blocks for header record */
-/* Returns non-zero on error */
-/****************************************************************************/
-int SMBCALL smb_freemsghdr(smb_t *smb, ulong offset, ulong length)
-{
- uchar c=0;
- ulong l,blocks;
-
-clearerr(smb->sha_fp);
-blocks=smb_hdrblocks(length);
-fseek(smb->sha_fp,offset/SHD_BLOCK_LEN,SEEK_SET);
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,smb->sha_fp))
- return(1);
-fflush(smb->sha_fp);
-return(0);
-}
-
-/****************************************************************************/
-/* Frees all allocated header and data blocks for 'msg' */
-/****************************************************************************/
-int SMBCALL smb_freemsg(smb_t *smb, smbmsg_t *msg)
-{
- int i;
- ushort x;
-
-if(smb->status.attr&SMB_HYPERALLOC) /* Nothing to do */
- return(0);
-
-for(x=0;x<msg->hdr.total_dfields;x++) {
- if((i=smb_freemsgdat(smb,msg->hdr.offset+msg->dfield[x].offset
- ,msg->dfield[x].length,1))!=0)
- return(i); }
-return(smb_freemsghdr(smb,msg->idx.offset-smb->status.header_offset
- ,msg->hdr.length));
-}
-
-/****************************************************************************/
-/* Finds unused space in header file based on block allocation table and */
-/* marks space as used in allocation table. */
-/* File must be opened read/write DENY ALL */
-/* Returns offset to beginning of header (in bytes, not blocks) */
-/* Assumes smb_open_ha() has been called */
-/* smb_close_ha() should be called after */
-/* Returns -1L on error */
-/****************************************************************************/
-long SMBCALL smb_allochdr(smb_t *smb, ulong length)
-{
- uchar c;
- ushort i;
- ulong l,blocks,offset=0;
-
-blocks=smb_hdrblocks(length);
-i=0; /* i is consecutive unused block counter */
-fflush(smb->sha_fp);
-rewind(smb->sha_fp);
-while(!feof(smb->sha_fp)) {
- if(!fread(&c,1,1,smb->sha_fp))
- break;
- offset+=SHD_BLOCK_LEN;
- if(!c) i++;
- else i=0;
- if(i==blocks) {
- offset-=(blocks*SHD_BLOCK_LEN);
- break; } }
-clearerr(smb->sha_fp);
-fseek(smb->sha_fp,offset/SHD_BLOCK_LEN,SEEK_SET);
-c=1;
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,smb->sha_fp))
- return(-1L);
-fflush(smb->sha_fp);
-return(offset);
-}
-
-/****************************************************************************/
-/* Allocates space for index, but doesn't search for unused blocks */
-/* Returns -1L on error */
-/****************************************************************************/
-long SMBCALL smb_fallochdr(smb_t *smb, ulong length)
-{
- uchar c=1;
- ulong l,blocks,offset;
-
-blocks=smb_hdrblocks(length);
-fflush(smb->sha_fp);
-clearerr(smb->sha_fp);
-fseek(smb->sha_fp,0L,SEEK_END);
-offset=ftell(smb->sha_fp)*SHD_BLOCK_LEN;
-for(l=0;l<blocks;l++)
- if(!fwrite(&c,1,1,smb->sha_fp))
- return(-1L);
-fflush(smb->sha_fp);
-return(offset);
-}
-
-/************************************************************************/
-/* Allocate header blocks using Hyper Allocation */
-/* this function should be most likely not be called from anywhere but */
-/* smb_addmsghdr() */
-/************************************************************************/
-long SMBCALL smb_hallochdr(smb_t *smb)
-{
- ulong l;
-
-fflush(smb->shd_fp);
-fseek(smb->shd_fp,0L,SEEK_END);
-l=ftell(smb->shd_fp);
-if(l<smb->status.header_offset) /* Header file truncated?!? */
- return(smb->status.header_offset);
-while((l-smb->status.header_offset)%SHD_BLOCK_LEN) /* Even block boundry */
- l++;
-return(l-smb->status.header_offset);
-}
-
-/************************************************************************/
-/* Allocate data blocks using Hyper Allocation */
-/* smb_locksmbhdr() should be called before this function and not */
-/* unlocked until all data fields for this message have been written */
-/* to the SDT file */
-/************************************************************************/
-long SMBCALL smb_hallocdat(smb_t *smb)
-{
- long l;
-
-fflush(smb->sdt_fp);
-fseek(smb->sdt_fp,0L,SEEK_END);
-l=ftell(smb->sdt_fp);
-if(l<=0)
- return(l);
-while(l%SDT_BLOCK_LEN) /* Make sure even block boundry */
- l++;
-return(l);
-}
-
-
-int SMBCALL smb_feof(FILE *fp)
-{
-return(feof(fp));
-}
-
-int SMBCALL smb_ferror(FILE *fp)
-{
-return(ferror(fp));
-}
-
-int SMBCALL smb_fflush(FILE *fp)
-{
-return(fflush(fp));
-}
-
-int SMBCALL smb_fgetc(FILE *fp)
-{
-return(fgetc(fp));
-}
-
-int SMBCALL smb_fputc(int ch, FILE *fp)
-{
-return(fputc(ch,fp));
-}
-
-int SMBCALL smb_fseek(FILE *fp, long offset, int whence)
-{
-return(fseek(fp,offset,whence));
-}
-
-long SMBCALL smb_ftell(FILE *fp)
-{
-return(ftell(fp));
-}
-
-long SMBCALL smb_fgetlength(FILE *fp)
-{
-return(filelength(fileno(fp)));
-}
-
-int SMBCALL smb_fsetlength(FILE *fp, long length)
-{
-return(chsize(fileno(fp),length));
-}
-
-void SMBCALL smb_rewind(FILE *fp)
-{
-rewind(fp);
-}
-
-void SMBCALL smb_clearerr(FILE *fp)
-{
-clearerr(fp);
-}
-
-long SMBCALL smb_fread(void HUGE16 *buf, long bytes, FILE *fp)
-{
-#ifdef __FLAT__
- return(fread(buf,1,bytes,fp));
-#else
- long count;
-
-for(count=bytes;count>0x7fff;count-=0x7fff,(char*)buf+=0x7fff)
- if(fread((char *)buf,1,0x7fff,fp)!=0x7fff)
- return(bytes-count);
-if(fread((char *)buf,1,(size_t)count,fp)!=(size_t)count)
- return(bytes-count);
-return(bytes);
-#endif
-}
-
-long SMBCALL smb_fwrite(void HUGE16 *buf, long bytes, FILE *fp)
-{
-#ifdef __FLAT__
- return(fwrite(buf,1,bytes,fp));
-#else
- long count;
-
-for(count=bytes;count>0x7fff;count-=0x7fff,(char*)buf+=0x7fff)
- if(fwrite((char *)buf,1,0x7fff,fp)!=0x7fff)
- return(bytes-count);
-if(fwrite((char *)buf,1,(size_t)count,fp)!=(size_t)count)
- return(bytes-count);
-return(bytes);
-#endif
-}
-
-#ifdef SMB_GETMSGTXT
-
-char HUGE16 * SMBCALL smb_getmsgtxt(smb_t *smb, smbmsg_t *msg, ulong mode)
-{
- char HUGE16 *buf=NULL,HUGE16 *lzhbuf,HUGE16 *p;
- ushort xlat;
- int i,lzh;
- long l=0,lzhlen,length;
-
-for(i=0;i<msg->hdr.total_dfields;i++) {
- if(!(msg->dfield[i].type==TEXT_BODY
- || (mode&GETMSGTXT_TAILS && msg->dfield[i].type==TEXT_TAIL))
- || msg->dfield[i].length<=2L)
- continue;
- fseek(smb->sdt_fp,msg->hdr.offset+msg->dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,smb->sdt_fp);
- lzh=0;
- if(xlat==XLAT_LZH) {
- lzh=1;
- fread(&xlat,2,1,smb->sdt_fp); }
- if(xlat!=XLAT_NONE) /* no other translations currently supported */
- continue;
-
- length=msg->dfield[i].length-2L;
- if(lzh) {
- length-=2;
- if(length<1)
- continue;
- if((lzhbuf=LMALLOC(length))==NULL)
- return(buf);
- smb_fread(lzhbuf,length,smb->sdt_fp);
- lzhlen=*(long *)lzhbuf;
- if((p=REALLOC(buf,l+lzhlen+3L))==NULL) {
- FREE(lzhbuf);
- return(buf); }
- buf=p;
- lzh_decode((char *)lzhbuf,length,(char *)buf+l);
- FREE(lzhbuf);
- l+=lzhlen; }
- else {
- if((p=REALLOC(buf,l+length+3L))==NULL)
- return(buf);
- buf=p;
- p=buf+l;
- l+=fread(p,1,length,smb->sdt_fp);
- }
- if(!l)
- continue;
- l--;
- while(l && buf[l]==0) l--;
- l++;
- *(buf+l)=CR;
- l++;
- *(buf+l)=LF;
- l++;
- *(buf+l)=0; }
-return(buf);
-}
-
-void SMBCALL smb_freemsgtxt(char HUGE16 *buf)
-{
-if(buf!=NULL)
- FREE(buf);
-}
-
-#endif
-
-/* End of SMBLIB.C */
diff --git a/src/sbbs2/smb/smblib.h b/src/sbbs2/smb/smblib.h
deleted file mode 100644
index beab8210bbe223e01b9bc105cc53e67f3714cda2..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smblib.h
+++ /dev/null
@@ -1,205 +0,0 @@
-/* SMBLIB.H */
-
-/* Developed 1990-2000 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#ifndef _SMBLIB_H
-#define _SMBLIB_H
-
-#include "lzh.h"
-
-#if defined(__WATCOMC__) || defined(__TURBOC__) || defined(_MSC_VER)
-# include <io.h>
-# include <share.h>
-#endif
-
-#if defined(__WATCOMC__) || defined(__TURBOC__)
-# include <mem.h>
-#else
-# include <memory.h>
-#endif
-
-#if defined(__WATCOMC__)
-# include <dos.h>
-#elif defined(__TURBOC__)
-# include <dir.h>
-#endif
-
-#if defined(_WIN32)
-# ifndef __FLAT__
-# define __FLAT__
-# endif
-# define SMBCALL __stdcall /* VB Compatible */
-# if defined (EXPORT32)
-# undef EXPORT32
-# endif
-# if defined(SMBDLL)
-# define EXPORT32 __declspec( dllexport )
-# else
-# define EXPORT32 __declspec( dllimport )
-# endif
-#elif defined(__FLAT__)
-# if defined(SMBDLL)
-# define SMBCALL _pascal
-# define EXPORT32 _export
-# else
-# define SMBCALL
-# define EXPORT32
-# endif
-#
-#else
-# define SMBCALL
-# define EXPORT32
-#endif
-
-#include <malloc.h>
-#include <time.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#include "smbdefs.h"
-
-#define SMB_STACK_LEN 4 /* Max msg bases in smb_stack() */
-#define SMB_STACK_POP 0 /* Pop a msg base off of smb_stack() */
-#define SMB_STACK_PUSH 1 /* Push a msg base onto smb_stack() */
-#define SMB_STACK_XCHNG 2 /* Exchange msg base w/last pushed */
-
-#define GETMSGTXT_TAILS 1 /* Get message tail(s) too */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-EXPORT32 int SMBCALL smb_ver(void);
-EXPORT32 char * SMBCALL smb_lib_ver(void);
-EXPORT32 int SMBCALL smb_open(smb_t *smb);
-EXPORT32 void SMBCALL smb_close(smb_t *smb);
-EXPORT32 int SMBCALL smb_open_da(smb_t *smb);
-EXPORT32 void SMBCALL smb_close_da(smb_t *smb);
-EXPORT32 int SMBCALL smb_open_ha(smb_t *smb);
-EXPORT32 void SMBCALL smb_close_ha(smb_t *smb);
-EXPORT32 int SMBCALL smb_create(smb_t *smb);
-EXPORT32 int SMBCALL smb_stack(smb_t *smb, int op);
-EXPORT32 int SMBCALL smb_trunchdr(smb_t *smb);
-EXPORT32 int SMBCALL smb_locksmbhdr(smb_t *smb);
-EXPORT32 int SMBCALL smb_getstatus(smb_t *smb);
-EXPORT32 int SMBCALL smb_putstatus(smb_t *smb);
-EXPORT32 int SMBCALL smb_unlocksmbhdr(smb_t *smb);
-EXPORT32 int SMBCALL smb_getmsgidx(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_getlastidx(smb_t *smb, idxrec_t *idx);
-EXPORT32 uint SMBCALL smb_getmsghdrlen(smbmsg_t *msg);
-EXPORT32 ulong SMBCALL smb_getmsgdatlen(smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_lockmsghdr(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_getmsghdr(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_unlockmsghdr(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_addcrc(smb_t *smb, ulong crc);
-EXPORT32 int SMBCALL smb_hfield(smbmsg_t *msg, ushort type, ushort length, void *data);
-EXPORT32 int SMBCALL smb_dfield(smbmsg_t *msg, ushort type, ulong length);
-EXPORT32 int SMBCALL smb_addmsghdr(smb_t *smb, smbmsg_t *msg,int storage);
-EXPORT32 int SMBCALL smb_putmsg(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_putmsgidx(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_putmsghdr(smb_t *smb, smbmsg_t *msg);
-EXPORT32 void SMBCALL smb_freemsgmem(smbmsg_t *msg);
-EXPORT32 ulong SMBCALL smb_hdrblocks(ulong length);
-EXPORT32 ulong SMBCALL smb_datblocks(ulong length);
-EXPORT32 long SMBCALL smb_allochdr(smb_t *smb, ulong length);
-EXPORT32 long SMBCALL smb_fallochdr(smb_t *smb, ulong length);
-EXPORT32 long SMBCALL smb_hallochdr(smb_t *smb);
-EXPORT32 long SMBCALL smb_allocdat(smb_t *smb, ulong length, ushort headers);
-EXPORT32 long SMBCALL smb_fallocdat(smb_t *smb, ulong length, ushort headers);
-EXPORT32 long SMBCALL smb_hallocdat(smb_t *smb);
-EXPORT32 int SMBCALL smb_incdat(smb_t *smb, ulong offset, ulong length, ushort headers);
-EXPORT32 int SMBCALL smb_freemsg(smb_t *smb, smbmsg_t *msg);
-EXPORT32 int SMBCALL smb_freemsgdat(smb_t *smb, ulong offset, ulong length, ushort headers);
-EXPORT32 int SMBCALL smb_freemsghdr(smb_t *smb, ulong offset, ulong length);
-EXPORT32 void SMBCALL smb_freemsgtxt(char HUGE16 *buf);
-EXPORT32 char HUGE16 * SMBCALL smb_getmsgtxt(smb_t *smb, smbmsg_t *msg, ulong mode);
-
-/* FILE pointer I/O functions */
-
-EXPORT32 int SMBCALL smb_feof(FILE *fp);
-EXPORT32 int SMBCALL smb_ferror(FILE *fp);
-EXPORT32 int SMBCALL smb_fflush(FILE *fp);
-EXPORT32 int SMBCALL smb_fgetc(FILE *fp);
-EXPORT32 int SMBCALL smb_fputc(int ch, FILE *fp);
-EXPORT32 int SMBCALL smb_fseek(FILE *fp, long offset, int whence);
-EXPORT32 long SMBCALL smb_ftell(FILE *fp);
-EXPORT32 long SMBCALL smb_fread(void HUGE16 *buf, long bytes, FILE *fp);
-EXPORT32 long SMBCALL smb_fwrite(void HUGE16 *buf, long bytes, FILE *fp);
-EXPORT32 long SMBCALL smb_fgetlength(FILE *fp);
-EXPORT32 int SMBCALL smb_fsetlength(FILE *fp, long length);
-EXPORT32 void SMBCALL smb_rewind(FILE *fp);
-EXPORT32 void SMBCALL smb_clearerr(FILE *fp);
-
-#ifdef __cplusplus
-}
-#endif
-
-#ifdef __WATCOMC__ /* Use MSC standard (prepended underscore) */
-#pragma aux smb_ver "_*"
-#pragma aux smb_lib_ver "_*"
-#pragma aux smb_open "_*"
-#pragma aux smb_close "_*"
-#pragma aux smb_open_da "_*"
-#pragma aux smb_close_da "_*"
-#pragma aux smb_open_ha "_*"
-#pragma aux smb_close_ha "_*"
-#pragma aux smb_create "_*"
-#pragma aux smb_stack "_*"
-#pragma aux smb_trunchdr "_*"
-#pragma aux smb_locksmbhdr "_*"
-#pragma aux smb_getstatus "_*"
-#pragma aux smb_putstatus "_*"
-#pragma aux smb_unlocksmbhdr "_*"
-#pragma aux smb_getmsgidx "_*"
-#pragma aux smb_getlastidx "_*"
-#pragma aux smb_getmsghdrlen "_*"
-#pragma aux smb_getmsgdatlen "_*"
-#pragma aux smb_lockmsghdr "_*"
-#pragma aux smb_getmsghdr "_*"
-#pragma aux smb_unlockmsghdr "_*"
-#pragma aux smb_addcrc "_*"
-#pragma aux smb_hfield "_*"
-#pragma aux smb_dfield "_*"
-#pragma aux smb_addmsghdr "_*"
-#pragma aux smb_putmsg "_*"
-#pragma aux smb_putmsgidx "_*"
-#pragma aux smb_putmsghdr "_*"
-#pragma aux smb_freemsgmem "_*"
-#pragma aux smb_hdrblocks "_*"
-#pragma aux smb_datblocks "_*"
-#pragma aux smb_allochdr "_*"
-#pragma aux smb_fallochdr "_*"
-#pragma aux smb_hallochdr "_*"
-#pragma aux smb_allocdat "_*"
-#pragma aux smb_fallocdat "_*"
-#pragma aux smb_hallocdat "_*"
-#pragma aux smb_incdat "_*"
-#pragma aux smb_freemsg "_*"
-#pragma aux smb_freemsgdat "_*"
-#pragma aux smb_freemsghdr "_*"
-#pragma aux smb_getmsgtxt "_*"
-#pragma aux smb_freemsgtxt "_*"
-#pragma aux smb_feof "_*"
-#pragma aux smb_ferror "_*"
-#pragma aux smb_fflush "_*"
-#pragma aux smb_fgetc "_*"
-#pragma aux smb_fputc "_*"
-#pragma aux smb_fseek "_*"
-#pragma aux smb_ftell "_*"
-#pragma aux smb_fread "_*"
-#pragma aux smb_fwrite "_*"
-#pragma aux smb_fgetlength "_*"
-#pragma aux smb_fsetlength "_*"
-#pragma aux smb_rewind "_*"
-#pragma aux smb_clearerr "_*"
-#pragma aux lzh_encode "_*"
-#pragma aux lzh_decode "_*"
-#endif /* Watcom */
-
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/smb/smbutil/makeall.bat b/src/sbbs2/smb/smbutil/makeall.bat
deleted file mode 100755
index e4036c97725e6ff1dba6dd95b5d24bc31b6335be..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smbutil/makeall.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-@echo off
-wmake OS=DOS %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=DOS4G %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=OS2 %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=NT %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-:end
-
diff --git a/src/sbbs2/smb/smbutil/makefile b/src/sbbs2/smb/smbutil/makefile
deleted file mode 100644
index 5877440fa58436e32ba91fefcc5b28cefc71cde4..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smbutil/makefile
+++ /dev/null
@@ -1,73 +0,0 @@
-#########################################################################
-# Makefile for SMBUTIL #
-# For use with Watcom C #
-# Tabstop=8 #
-# #
-# To use this makefile, you must create the following sub-directories: #
-# DOS, OS2, and DOSX. #
-# #
-# *** IMPORTANT NOTE ***
-# You must also copy the file \WATCOM\SRC\STARTUP\WILDARGV.C into the #
-# current directory. #
-#########################################################################
-
-# Macros
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc -ml
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-MAIN = $(OS)\smbutil.exe
-OBJS = $(OS)\smbutil.obj $(OS)\smblib.obj $(OS)\lzh.obj $(OS)\wildargv.obj
-HEADERS = smbutil.h smblib.h smbdefs.h crc32.h lzh.h
-
-!ifeq OS DOS
-CFLAGS = -I=\watcom\h;.. -bt=$(OS) -fo=$(OS)\ -DSMB_GETMSGTXT
-!else
-CFLAGS = -I=\watcom\h;.. -bt=$(OS) -fo=$(OS)\ -DSMB_GETMSGTXT -DLZH_DYNAMIC_BUF
-!endif
-
-!ifeq OS NT
-SYSTEM = NT
-!endif
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOS4G
-SYSTEM = DOS4G
-!endif
-
-LFLAGS = system $(SYSTEM)
-
-
-# Implicit C Compile Rule
-.obj: $(OS)
-.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# All .obj modules
-$(OS)\smbutil.obj:: $(HEADERS)
-
-$(OS)\smblib.obj: ..\smblib.c ..\smblib.h ..\smbdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) -DSMB_GETMSGTXT $(CFLAGS) $[@
-
-$(OS)\lzh.obj: ..\lzh.c ..\lzh.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
diff --git a/src/sbbs2/smb/smbutil/makefile.bc b/src/sbbs2/smb/smbutil/makefile.bc
deleted file mode 100644
index 993c75da1d0a0e154cce43e950ed73f2a6bb5c87..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smbutil/makefile.bc
+++ /dev/null
@@ -1,57 +0,0 @@
-###############################
-# Makefile for SMBUTIL #
-# For use with Borland C++ #
-# Tabstop=8 #
-###############################
-
-# ATTN: To use this MAKEFILE, you must create a directory "l" off of the
-# current directory to store the large model .OBJ files
-
-# Macros
-OS = DOS
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include;..
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -N -C -m$(MODEL) -I$(INCLUDE) -DLZH_DYNAMIC_BUF -DSMB_GETMSGTXT -w-pro
-LFLAGS = -n -c
-
-!ifdef __OS2__
-OS = OS2
-CC = c:\bcos2\bin\bcc
-LD = c:\bcos2\bin\tlink
-INCLUDE = c:\bcos2\include;..
-LIB = c:\bcos2\lib
-MODEL = os2
-CFLAGS = -d -C -I$(INCLUDE) -DSMB_GETMSGTXT -w-pro
-LFLAGS = -c -w-srf
-!endif
-
-HEADERS = smbutil.h ..\smblib.h ..\smbdefs.h ..\crc32.h ..\lzh.h
-MAIN = $(OS)\smbutil.exe
-OBJS = $(OS)\smbutil.obj $(OS)\smblib.obj $(OS)\lzh.obj
-
-
-# Implicit C Compile Rule
-{.;..}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS) $(LIB)\wildargs.obj
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# All .obj modules
-$(OS)\smbutil.obj: $(HEADERS)
-$(OS)\smblib.obj: $(HEADERS)
-$(OS)\lzh.obj: $(HEADERS)
diff --git a/src/sbbs2/smb/smbutil/smbutil.c b/src/sbbs2/smb/smbutil/smbutil.c
deleted file mode 100644
index 3a37a9391488f81658fe346fb521d34e62a27711..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smbutil/smbutil.c
+++ /dev/null
@@ -1,1428 +0,0 @@
-/* SMBUTIL.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Synchronet Message Base Utility */
-
-#define SMBUTIL_VER "2.01"
-
-#include "smblib.h"
-#include "smbutil.h"
-#include "crc32.h"
-#include "crc16.c"
-
-#ifdef __WATCOMC__
- #include <dos.h>
-#endif
-
-/********************/
-/* Global variables */
-/********************/
-
-smb_t smb;
-ulong mode=0L;
-ushort tzone=PST;
-char filein[128];
-char attach[128];
-
-/************************/
-/* Program usage/syntax */
-/************************/
-
-char *usage=
-"usage: smbutil [/opts] cmd <filespec.SHD>\n"
-"\n"
-"cmd:\n"
-" l[n] = list msgs starting at number n\n"
-" r[n] = read msgs starting at number n\n"
-" v[n] = view msg headers starting at number n\n"
-" i<f> = import msg from text file f\n"
-" e<f> = import e-mail from text file f\n"
-" n<f> = import netmail from text file f\n"
-" s = display msg base status\n"
-" c = change msg base status\n"
-" m = maintain msg base - delete old msgs and msgs over max\n"
-" p[k] = pack msg base (k specifies minimum packable Kbytes)\n"
-"opts:\n"
-" a = always pack msg base (disable compression analysis)\n"
-" z[n] = set time zone (n=min +/- from UT or 'EST','EDT','CST',etc)\n"
-;
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
-#ifdef __WATCOMC__
- return(f.size);
-#else
- return(f.ff_fsize);
-#endif
-return(-1L);
-}
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Adds a new message to the message base */
-/****************************************************************************/
-void postmsg(char type)
-{
- char str[128],buf[SDT_BLOCK_LEN];
- ushort xlat,net;
- int i,j,k,file;
- long length;
- ulong offset,crc=0xffffffffUL;
- FILE *instream;
- smbmsg_t msg;
-
-length=flength(filein);
-if(length<1L) {
- printf("Invalid file size for '%s'\n",filein);
- exit(1); }
-length+=2; /* for translation string */
-if(!(smb.status.attr&SMB_HYPERALLOC)) {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length,1);
- smb_close_da(&smb); }
-else
- offset=smb_hallocdat(&smb);
-
-if((file=open(filein,O_RDONLY|O_BINARY))==-1
- || (instream=fdopen(file,"rb"))==NULL) {
- printf("Error opening %s for read\n",filein);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-setvbuf(instream,NULL,_IOFBF,32*1024);
-fseek(smb.sdt_fp,offset,SEEK_SET);
-xlat=XLAT_NONE;
-fwrite(&xlat,2,1,smb.sdt_fp);
-k=SDT_BLOCK_LEN-2;
-while(!feof(instream)) {
- memset(buf,0,k);
- j=fread(buf,1,k,instream);
- if(smb.status.max_crcs)
- for(i=0;i<j;i++)
- crc=ucrc32(buf[i],crc);
- fwrite(buf,k,1,smb.sdt_fp);
- k=SDT_BLOCK_LEN; }
-fflush(smb.sdt_fp);
-fclose(instream);
-crc=~crc;
-
-memset(&msg,0,sizeof(smbmsg_t));
-memcpy(msg.hdr.id,"SHD\x1a",4);
-msg.hdr.version=SMB_VERSION;
-msg.hdr.when_written.time=time(NULL);
-msg.hdr.when_written.zone=tzone;
-msg.hdr.when_imported=msg.hdr.when_written;
-
-if(smb.status.max_crcs) {
- i=smb_addcrc(&smb,crc);
- if(i) {
- printf("smb_addcrc returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); } }
-
-msg.hdr.offset=offset;
-
-printf("To User Name: ");
-gets(str);
-i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
-if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-if(type=='E' || type=='N')
- smb.status.attr|=SMB_EMAIL;
-if(smb.status.attr&SMB_EMAIL) {
- printf("To User Number (0=QWKnet or Internet): ");
- gets(str);
- i=smb_hfield(&msg,RECIPIENTEXT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- msg.idx.to=atoi(str); }
-else {
- strlwr(str);
- msg.idx.to=crc16(str); }
-
-if(type=='N') {
- printf("To Address: ");
- gets(str);
- if(*str) {
- if(strchr(str,'.'))
- net=NET_INTERNET;
- else
- net=NET_QWK;
- i=smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- i=smb_hfield(&msg,RECIPIENTNETADDR,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); } } }
-
-printf("From User Name: ");
-gets(str);
-i=smb_hfield(&msg,SENDER,strlen(str),str);
-if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-if(smb.status.attr&SMB_EMAIL) {
- printf("From User Number: ");
- gets(str);
- i=smb_hfield(&msg,SENDEREXT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- msg.idx.from=atoi(str); }
-else {
- strlwr(str);
- msg.idx.from=crc16(str); }
-
-printf("Subject: ");
-gets(str);
-i=smb_hfield(&msg,SUBJECT,strlen(str),str);
-if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-remove_re(str);
-strlwr(str);
-msg.idx.subj=crc16(str);
-
-i=smb_dfield(&msg,TEXT_BODY,length);
-if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
-i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
-
-if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-smb_freemsgmem(&msg);
-
-}
-
-/****************************************************************************/
-/* Shows the message base header */
-/****************************************************************************/
-void showstatus()
-{
- int i;
-
-i=smb_locksmbhdr(&smb);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&smb);
-smb_unlocksmbhdr(&smb);
-if(i) {
- printf("smb_getstatus returned %d\n",i);
- return; }
-printf("last_msg =%lu\n"
- "total_msgs =%lu\n"
- "header_offset =%lu\n"
- "max_crcs =%lu\n"
- "max_msgs =%lu\n"
- "max_age =%u\n"
- "attr =%04Xh\n"
- ,smb.status.last_msg
- ,smb.status.total_msgs
- ,smb.status.header_offset
- ,smb.status.max_crcs
- ,smb.status.max_msgs
- ,smb.status.max_age
- ,smb.status.attr
- );
-}
-
-/****************************************************************************/
-/* Configure message base header */
-/****************************************************************************/
-void config()
-{
- char max_msgs[128],max_crcs[128],max_age[128],header_offset[128],attr[128];
- int i;
-
-i=smb_locksmbhdr(&smb);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&smb);
-smb_unlocksmbhdr(&smb);
-if(i) {
- printf("smb_getstatus returned %d\n",i);
- return; }
-printf("Header offset =%-5lu New value (CR=No Change): "
- ,smb.status.header_offset);
-gets(header_offset);
-printf("Max msgs =%-5lu New value (CR=No Change): "
- ,smb.status.max_msgs);
-gets(max_msgs);
-printf("Max crcs =%-5lu New value (CR=No Change): "
- ,smb.status.max_crcs);
-gets(max_crcs);
-printf("Max age =%-5u New value (CR=No Change): "
- ,smb.status.max_age);
-gets(max_age);
-printf("Attributes =%-5u New value (CR=No Change): "
- ,smb.status.attr);
-gets(attr);
-i=smb_locksmbhdr(&smb);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&smb);
-if(i) {
- printf("smb_getstatus returned %d\n",i);
- smb_unlocksmbhdr(&smb);
- return; }
-if(isdigit(max_msgs[0]))
- smb.status.max_msgs=atol(max_msgs);
-if(isdigit(max_crcs[0]))
- smb.status.max_crcs=atol(max_crcs);
-if(isdigit(max_age[0]))
- smb.status.max_age=atoi(max_age);
-if(isdigit(header_offset[0]))
- smb.status.header_offset=atol(header_offset);
-if(isdigit(attr[0]))
- smb.status.attr=atoi(attr);
-i=smb_putstatus(&smb);
-smb_unlocksmbhdr(&smb);
-if(i)
- printf("smb_putstatus returned %d\n",i);
-}
-
-/****************************************************************************/
-/* Lists messages' to, from, and subject */
-/****************************************************************************/
-void listmsgs(ulong start, ulong count)
-{
- int i;
- ulong l=0;
- smbmsg_t msg;
- idxrec_t idxrec;
-
-if(!start)
- start=1;
-fseek(smb.sid_fp,(start-1L)*sizeof(idxrec_t),SEEK_SET);
-while(l<count) {
- if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
- break;
- i=smb_lockmsghdr(&smb,&msg);
- if(i) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- i=smb_getmsghdr(&smb,&msg);
- smb_unlockmsghdr(&smb,&msg);
- if(i) {
- printf("smb_getmsghdr returned %d\n",i);
- break; }
- printf("%4lu %-25.25s %-25.25s %.20s\n"
- ,msg.hdr.number,msg.from,msg.to,msg.subj);
- smb_freemsgmem(&msg);
- l++; }
-}
-
-/****************************************************************************/
-/* Returns an ASCII string for FidoNet address 'addr' */
-/****************************************************************************/
-char *faddrtoa(fidoaddr_t addr)
-{
- static char str[25];
- char point[25];
-
-sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
-if(addr.point) {
- sprintf(point,".%u",addr.point);
- strcat(str,point); }
-return(str);
-}
-
-char *binstr(uchar *buf, ushort length)
-{
- static char str[128];
- char tmp[128];
- int i;
-
-str[0]=0;
-for(i=0;i<length;i++)
- if(buf[i] && (buf[i]<SP || buf[i]>=0x7f))
- break;
-if(i==length) /* not binary */
- return(buf);
-for(i=0;i<length;i++) {
- sprintf(tmp,"%02X ",buf[i]);
- strcat(str,tmp); }
-return(str);
-}
-
-/****************************************************************************/
-/* Generates a 24 character ASCII string that represents the time_t pointer */
-/* Used as a replacement for ctime() */
-/****************************************************************************/
-char *timestr(time_t *intime)
-{
- static char str[256];
- char mer[3],hour;
- struct tm *gm;
-
-printf("before localtime\n");
-gm=localtime(intime);
-printf("after\n");
-if(gm==NULL) {
- strcpy(str,"Invalid Time");
- return(str); }
-if(gm->tm_hour>=12) {
- if(gm->tm_hour==12)
- hour=12;
- else
- hour=gm->tm_hour-12;
- strcpy(mer,"pm"); }
-else {
- if(gm->tm_hour==0)
- hour=12;
- else
- hour=gm->tm_hour;
- strcpy(mer,"am"); }
-sprintf(str,"%s %s %02d %4d %02d:%02d %s"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
- ,hour,gm->tm_min,mer);
-return(str);
-}
-
-
-/****************************************************************************/
-/* Converts when_t.zone into ASCII format */
-/****************************************************************************/
-char *zonestr(short zone)
-{
- static char str[32];
-
-switch((ushort)zone) {
- case 0: return("UT");
- case AST: return("AST");
- case EST: return("EST");
- case CST: return("CST");
- case MST: return("MST");
- case PST: return("PST");
- case YST: return("YST");
- case HST: return("HST");
- case BST: return("BST");
- case ADT: return("ADT");
- case EDT: return("EDT");
- case CDT: return("CDT");
- case MDT: return("MDT");
- case PDT: return("PDT");
- case YDT: return("YDT");
- case HDT: return("HDT");
- case BDT: return("BDT");
- case MID: return("MID");
- case VAN: return("VAN");
- case EDM: return("EDM");
- case WIN: return("WIN");
- case BOG: return("BOG");
- case CAR: return("CAR");
- case RIO: return("RIO");
- case FER: return("FER");
- case AZO: return("AZO");
- case LON: return("LON");
- case BER: return("BER");
- case ATH: return("ATH");
- case MOS: return("MOS");
- case DUB: return("DUB");
- case KAB: return("KAB");
- case KAR: return("KAR");
- case BOM: return("BOM");
- case KAT: return("KAT");
- case DHA: return("DHA");
- case BAN: return("BAN");
- case HON: return("HON");
- case TOK: return("TOK");
- case SYD: return("SYD");
- case NOU: return("NOU");
- case WEL: return("WEL");
- }
-
-sprintf(str,"%02d:%02u",zone/60,zone<0 ? (-zone)%60 : zone%60);
-return(str);
-}
-
-
-/****************************************************************************/
-/* Displays message header information */
-/****************************************************************************/
-void viewmsgs(ulong start, ulong count)
-{
- char when_written[128]
- ,when_imported[128];
- int i;
- ulong l=0;
- smbmsg_t msg;
- idxrec_t idxrec;
-
-if(!start)
- start=1;
-fseek(smb.sid_fp,(start-1L)*sizeof(idxrec_t),SEEK_SET);
-while(l<count) {
- if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
- break;
- i=smb_lockmsghdr(&smb,&msg);
- if(i) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- i=smb_getmsghdr(&smb,&msg);
- smb_unlockmsghdr(&smb,&msg);
- if(i) {
- printf("smb_getmsghdr returned %d\n",i);
- break; }
-
- sprintf(when_written,"%.24s %s"
- ,timestr((time_t *)msg.hdr.when_written.time)
- ,zonestr(msg.hdr.when_written.zone));
- sprintf(when_imported,"%.24s %s"
- ,timestr((time_t *)msg.hdr.when_imported.time)
- ,zonestr(msg.hdr.when_imported.zone));
-
- printf( "%-20.20s %s\n"
- "%-20.20s %s\n"
- "%-20.20s %s\n"
- "%-20.20s %04Xh\n"
- "%-20.20s %04Xh\n"
- "%-20.20s %u\n"
- "%-20.20s %04Xh\n"
- "%-20.20s %08lXh\n"
- "%-20.20s %08lXh\n"
- "%-20.20s %s\n"
- "%-20.20s %s\n"
- "%-20.20s %ld (%ld)\n"
- "%-20.20s %ld\n"
- "%-20.20s %ld\n"
- "%-20.20s %ld\n"
- "%-20.20s %s\n"
- "%-20.20s %06lXh\n"
- "%-20.20s %u\n",
-
- "subj",
- msg.subj,
-
- "from",
- msg.from,
-
- "to",
- msg.to,
-
- "type",
- msg.hdr.type,
-
- "version",
- msg.hdr.version,
-
- "length",
- msg.hdr.length,
-
- "attr",
- msg.hdr.attr,
-
- "auxattr",
- msg.hdr.auxattr,
-
- "netattr",
- msg.hdr.netattr,
-
- "when_written",
- when_written,
-
- "when_imported",
- when_imported,
-
- "number",
- msg.hdr.number,
- ftell(smb.sid_fp)/sizeof(idxrec_t),
-
- "thread_orig",
- msg.hdr.thread_orig,
-
- "thread_next",
- msg.hdr.thread_next,
-
- "thread_first",
- msg.hdr.thread_first,
-
- "reserved[16]",
- binstr(msg.hdr.reserved,16),
-
- "offset",
- msg.hdr.offset,
-
- "total_dfields",
- msg.hdr.total_dfields
- );
- for(i=0;i<msg.hdr.total_dfields;i++)
- printf("dfield[%02u].type %02Xh\n"
- "dfield[%02u].offset %lu\n"
- "dfield[%02u].length %lu\n"
- ,i,msg.dfield[i].type
- ,i,msg.dfield[i].offset
- ,i,msg.dfield[i].length);
-
- for(i=0;i<msg.total_hfields;i++)
- printf("hfield[%02u].type %02Xh\n"
- "hfield[%02u].length %d\n"
- "hfield[%02u]_dat %s\n"
- ,i,msg.hfield[i].type
- ,i,msg.hfield[i].length
- ,i,binstr(msg.hfield_dat[i],msg.hfield[i].length));
-
- if(msg.from_net.type)
- printf("from_net.type %02Xh\n"
- "from_net.addr %s\n"
- ,msg.from_net.type
- ,msg.from_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.from_net.addr) : msg.from_net.addr);
-
- if(msg.to_net.type)
- printf("to_net.type %02Xh\n"
- "to_net.addr %s\n"
- ,msg.to_net.type
- ,msg.to_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.to_net.addr) : msg.to_net.addr);
-
- if(msg.replyto_net.type)
- printf("replyto_net.type %02Xh\n"
- "replyto_net.addr %s\n"
- ,msg.replyto_net.type
- ,msg.replyto_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.replyto_net.addr)
- : msg.replyto_net.addr);
-
- printf("from_agent %02Xh\n"
- "to_agent %02Xh\n"
- "replyto_agent %02Xh\n"
- ,msg.from_agent
- ,msg.to_agent
- ,msg.replyto_agent);
-
- printf("\n");
- smb_freemsgmem(&msg);
- l++; }
-}
-
-/****************************************************************************/
-/* Maintain message base - deletes messages older than max age (in days) */
-/* or messages that exceed maximum */
-/****************************************************************************/
-void maint(void)
-{
- int i;
- ulong l,m,n,f,flagged=0;
- time_t now;
- smbmsg_t msg;
- idxrec_t HUGE16 *idx;
-
-printf("Maintaining %s\r\n",smb.file);
-now=time(NULL);
-i=smb_locksmbhdr(&smb);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&smb);
-if(i) {
- smb_unlocksmbhdr(&smb);
- printf("smb_getstatus returned %d\n",i);
- return; }
-if(!smb.status.total_msgs) {
- smb_unlocksmbhdr(&smb);
- printf("Empty\n");
- return; }
-printf("Loading index...\n");
-if((idx=(idxrec_t *)LMALLOC(sizeof(idxrec_t)*smb.status.total_msgs))
- ==NULL) {
- smb_unlocksmbhdr(&smb);
- printf("can't allocate %lu bytes of memory\n"
- ,sizeof(idxrec_t)*smb.status.total_msgs);
- return; }
-fseek(smb.sid_fp,0L,SEEK_SET);
-for(l=0;l<smb.status.total_msgs;l++) {
- printf("%lu of %lu\r"
- ,l+1,smb.status.total_msgs);
- if(!fread(&idx[l],1,sizeof(idxrec_t),smb.sid_fp))
- break; }
-printf("\nDone.\n\n");
-
-printf("Scanning for pre-flagged messages...\n");
-for(m=0;m<l;m++) {
- printf("\r%2u%%",m ? (long)(100.0/((float)l/m)) : 0);
- if(idx[m].attr&MSG_DELETE)
- flagged++; }
-printf("\r100%% (%lu pre-flagged for deletion)\n",flagged);
-
-if(smb.status.max_age) {
- printf("Scanning for messages more than %u days old...\n"
- ,smb.status.max_age);
- for(m=f=0;m<l;m++) {
- printf("\r%2u%%",m ? (long)(100.0/((float)l/m)) : 0);
- if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
- continue;
- if(now>idx[m].time && (now-idx[m].time)/(24L*60L*60L)
- >smb.status.max_age) {
- f++;
- flagged++;
- idx[m].attr|=MSG_DELETE; } } /* mark for deletion */
- printf("\r100%% (%lu flagged for deletion)\n",f); }
-
-printf("Scanning for read messages to be killed...\n");
-for(m=f=0;m<l;m++) {
- printf("\r%2u%%",m ? (long)(100.0/((float)l/m)) : 0);
- if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
- continue;
- if((idx[m].attr&(MSG_READ|MSG_KILLREAD))==(MSG_READ|MSG_KILLREAD)) {
- f++;
- flagged++;
- idx[m].attr|=MSG_DELETE; } }
-printf("\r100%% (%lu flagged for deletion)\n",f);
-
-if(l-flagged>smb.status.max_msgs) {
- printf("Flagging excess messages for deletion...\n");
- for(m=n=0,f=flagged;l-flagged>smb.status.max_msgs && m<l;m++) {
- if(idx[m].attr&(MSG_PERMANENT|MSG_DELETE))
- continue;
- printf("%lu of %lu\r",++n,(l-f)-smb.status.max_msgs);
- flagged++;
- idx[m].attr|=MSG_DELETE; } /* mark for deletion */
- printf("\nDone.\n\n"); }
-
-if(!flagged) { /* No messages to delete */
- LFREE(idx);
- smb_unlocksmbhdr(&smb);
- return; }
-
-if(!(mode&NOANALYSIS)) {
-
- printf("Freeing allocated header and data blocks for deleted messages...\n");
- if(!(smb.status.attr&SMB_HYPERALLOC)) {
- i=smb_open_da(&smb);
- if(i) {
- smb_unlocksmbhdr(&smb);
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- i=smb_open_ha(&smb);
- if(i) {
- smb_unlocksmbhdr(&smb);
- printf("smb_open_ha returned %d\n",i);
- exit(1); } }
-
- for(m=n=0;m<l;m++) {
- if(idx[m].attr&MSG_DELETE) {
- printf("%lu of %lu\r",++n,flagged);
- msg.idx=idx[m];
- msg.hdr.number=msg.idx.number;
- if((i=smb_getmsgidx(&smb,&msg))!=0) {
- printf("\nsmb_getmsgidx returned %d\n",i);
- continue; }
- i=smb_lockmsghdr(&smb,&msg);
- if(i) {
- printf("\nsmb_lockmsghdr returned %d\n",i);
- break; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- printf("\nsmb_getmsghdr returned %d\n",i);
- break; }
- msg.hdr.attr|=MSG_DELETE; /* mark header as deleted */
- if((i=smb_putmsg(&smb,&msg))!=0) {
- smb_freemsgmem(&msg);
- smb_unlockmsghdr(&smb,&msg);
- printf("\nsmb_putmsg returned %d\n",i);
- break; }
- smb_unlockmsghdr(&smb,&msg);
- if((i=smb_freemsg(&smb,&msg))!=0) {
- smb_freemsgmem(&msg);
- printf("\nsmb_freemsg returned %d\n",i);
- break; }
- smb_freemsgmem(&msg); } }
- if(!(smb.status.attr&SMB_HYPERALLOC)) {
- smb_close_ha(&smb);
- smb_close_da(&smb); }
- printf("\nDone.\n\n"); }
-
-printf("Re-writing index...\n");
-rewind(smb.sid_fp);
-if(chsize(fileno(smb.sid_fp),0L))
- printf("chsize failed!\n");
-for(m=n=0;m<l;m++) {
- if(idx[m].attr&MSG_DELETE)
- continue;
- printf("%lu of %lu\r",++n,l-flagged);
- fwrite(&idx[m],sizeof(idxrec_t),1,smb.sid_fp); }
-printf("\nDone.\n\n");
-fflush(smb.sid_fp);
-
-LFREE(idx);
-smb.status.total_msgs-=flagged;
-smb_putstatus(&smb);
-smb_unlocksmbhdr(&smb);
-}
-
-
-typedef struct {
- ulong old,new;
- } datoffset_t;
-
-/****************************************************************************/
-/* Removes all unused blocks from SDT and SHD files */
-/****************************************************************************/
-void packmsgs(ulong packable)
-{
- uchar str[128],buf[SDT_BLOCK_LEN],ch,fname[128],tmpfname[128];
- int i,file,size;
- ulong l,m,n,datoffsets=0,length,total,now;
- FILE *tmp_sdt,*tmp_shd,*tmp_sid;
- smbhdr_t hdr;
- smbmsg_t msg;
- datoffset_t *datoffset=NULL;
-
-now=time(NULL);
-printf("Packing %s\n",smb.file);
-i=smb_locksmbhdr(&smb);
-if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return; }
-i=smb_getstatus(&smb);
-if(i) {
- smb_unlocksmbhdr(&smb);
- printf("smb_getstatus returned %d\n",i);
- return; }
-
-if(!(smb.status.attr&SMB_HYPERALLOC)) {
- i=smb_open_ha(&smb);
- if(i) {
- smb_unlocksmbhdr(&smb);
- printf("smb_open_ha returned %d\n",i);
- return; }
- i=smb_open_da(&smb);
- if(i) {
- smb_unlocksmbhdr(&smb);
- smb_close_ha(&smb);
- printf("smb_open_da returned %d\n",i);
- return; } }
-
-if(!smb.status.total_msgs) {
- printf("Empty\n");
- rewind(smb.shd_fp);
- chsize(fileno(smb.shd_fp),smb.status.header_offset);
- rewind(smb.sdt_fp);
- chsize(fileno(smb.sdt_fp),0L);
- rewind(smb.sid_fp);
- chsize(fileno(smb.sid_fp),0L);
- if(!(smb.status.attr&SMB_HYPERALLOC)) {
- rewind(smb.sha_fp);
- chsize(fileno(smb.sha_fp),0L);
- rewind(smb.sda_fp);
- chsize(fileno(smb.sda_fp),0L);
- smb_close_ha(&smb);
- smb_close_da(&smb); }
- smb_unlocksmbhdr(&smb);
- return; }
-
-
-if(!(smb.status.attr&SMB_HYPERALLOC) && !(mode&NOANALYSIS)) {
- printf("Analyzing data blocks...\n");
-
- length=filelength(fileno(smb.sda_fp));
-
- fseek(smb.sda_fp,0L,SEEK_SET);
- for(l=m=0;l<length;l+=2) {
- printf("\r%2u%% ",l ? (long)(100.0/((float)length/l)) : 0);
- i=0;
- if(!fread(&i,2,1,smb.sda_fp))
- break;
- if(!i)
- m++; }
-
- printf("\rAnalyzing header blocks...\n");
-
- length=filelength(fileno(smb.sha_fp));
-
- fseek(smb.sha_fp,0L,SEEK_SET);
- for(l=n=0;l<length;l++) {
- printf("\r%2u%% ",l ? (long)(100.0/((float)length/l)) : 0);
- ch=0;
- if(!fread(&ch,1,1,smb.sha_fp))
- break;
- if(!ch)
- n++; }
-
- if(!m && !n) {
- printf("\rAlready compressed.\n\n");
- smb_close_ha(&smb);
- smb_close_da(&smb);
- smb_unlocksmbhdr(&smb);
- return; }
-
- if(packable && (m*SDT_BLOCK_LEN)+(n*SHD_BLOCK_LEN)<packable*1024L) {
- printf("\rLess than %luk compressable bytes.\n\n",packable);
- smb_close_ha(&smb);
- smb_close_da(&smb);
- smb_unlocksmbhdr(&smb);
- return; }
-
- printf("\rCompressing %lu data blocks (%lu bytes)\n"
- " and %lu header blocks (%lu bytes)\n"
- ,m,m*SDT_BLOCK_LEN,n,n*SHD_BLOCK_LEN); }
-
-if(!(smb.status.attr&SMB_HYPERALLOC)) {
- rewind(smb.sha_fp);
- chsize(fileno(smb.sha_fp),0L); /* Reset both allocation tables */
- rewind(smb.sda_fp);
- chsize(fileno(smb.sda_fp),0L); }
-
-if(smb.status.attr&SMB_HYPERALLOC && !(mode&NOANALYSIS)) {
- printf("Analyzing %s\n",smb.file);
-
- length=filelength(fileno(smb.shd_fp));
- m=n=0;
- for(l=smb.status.header_offset;l<length;l+=size) {
- printf("\r%2u%% ",(long)(100.0/((float)length/l)));
- msg.idx.offset=l;
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- printf("\n(%06lX) smb_lockmsghdr returned %d\n",l,i);
- size=SHD_BLOCK_LEN;
- continue; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- m++;
- size=SHD_BLOCK_LEN;
- continue; }
- smb_unlockmsghdr(&smb,&msg);
- if(msg.hdr.attr&MSG_DELETE) {
- m+=smb_hdrblocks(msg.hdr.length);
- total=0;
- for(i=0;i<msg.hdr.total_dfields;i++)
- total+=msg.dfield[i].length;
- n+=smb_datblocks(total); }
- size=smb_getmsghdrlen(&msg);
- if(size<1) size=SHD_BLOCK_LEN;
- while(size%SHD_BLOCK_LEN)
- size++;
- smb_freemsgmem(&msg); }
-
-
- if(!m && !n) {
- printf("\rAlready compressed.\n\n");
- smb_unlocksmbhdr(&smb);
- return; }
-
- if(packable && (n*SDT_BLOCK_LEN)+(m*SHD_BLOCK_LEN)<packable*1024L) {
- printf("\rLess than %luk compressable bytes.\n\n",packable);
- smb_unlocksmbhdr(&smb);
- return; }
-
- printf("\rCompressing %lu data blocks (%lu bytes)\n"
- " and %lu header blocks (%lu bytes)\n"
- ,n,n*SDT_BLOCK_LEN,m,m*SHD_BLOCK_LEN); }
-
-sprintf(fname,"%s.SD$",smb.file);
-tmp_sdt=fopen(fname,"wb");
-sprintf(fname,"%s.SH$",smb.file);
-tmp_shd=fopen(fname,"wb");
-sprintf(fname,"%s.SI$",smb.file);
-tmp_sid=fopen(fname,"wb");
-if(!tmp_sdt || !tmp_shd || !tmp_sid) {
- smb_unlocksmbhdr(&smb);
- if(!(smb.status.attr&SMB_HYPERALLOC)) {
- smb_close_ha(&smb);
- smb_close_da(&smb); }
- printf("error opening temp file\n");
- return; }
-setvbuf(tmp_sdt,NULL,_IOFBF,2*1024);
-setvbuf(tmp_shd,NULL,_IOFBF,2*1024);
-setvbuf(tmp_sid,NULL,_IOFBF,2*1024);
-if(!(smb.status.attr&SMB_HYPERALLOC)
- && (datoffset=(datoffset_t *)LMALLOC(sizeof(datoffset_t)*smb.status.total_msgs))
- ==NULL) {
- smb_unlocksmbhdr(&smb);
- smb_close_ha(&smb);
- smb_close_da(&smb);
- fclose(tmp_sdt);
- fclose(tmp_shd);
- fclose(tmp_sid);
- printf("error allocating mem\n");
- return; }
-fseek(smb.shd_fp,0L,SEEK_SET);
-fread(&hdr,1,sizeof(smbhdr_t),smb.shd_fp);
-fwrite(&hdr,1,sizeof(smbhdr_t),tmp_shd);
-fwrite(&(smb.status),1,sizeof(smbstatus_t),tmp_shd);
-for(l=sizeof(smbhdr_t)+sizeof(smbstatus_t);l<smb.status.header_offset;l++) {
- fread(&ch,1,1,smb.shd_fp); /* copy additional base header records */
- fwrite(&ch,1,1,tmp_shd); }
-fseek(smb.sid_fp,0L,SEEK_SET);
-total=0;
-for(l=0;l<smb.status.total_msgs;l++) {
- printf("%lu of %lu\r",l+1,smb.status.total_msgs);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
- break;
- if(msg.idx.attr&MSG_DELETE) {
- printf("\nDeleted index.\n");
- continue; }
- i=smb_lockmsghdr(&smb,&msg);
- if(i) {
- printf("\nsmb_lockmsghdr returned %d\n",i);
- continue; }
- i=smb_getmsghdr(&smb,&msg);
- smb_unlockmsghdr(&smb,&msg);
- if(i) {
- printf("\nsmb_getmsghdr returned %d\n",i);
- continue; }
- if(msg.hdr.attr&MSG_DELETE) {
- printf("\nDeleted header.\n");
- smb_freemsgmem(&msg);
- continue; }
- if(msg.expiration.time && msg.expiration.time<=now) {
- printf("\nExpired message.\n");
- smb_freemsgmem(&msg);
- continue; }
- for(m=0;m<datoffsets;m++)
- if(msg.hdr.offset==datoffset[m].old)
- break;
- if(m<datoffsets) { /* another index pointed to this data */
- printf("duplicate index\n");
- msg.hdr.offset=datoffset[m].new;
- smb_incdat(&smb,datoffset[m].new,smb_getmsgdatlen(&msg),1); }
- else {
-
- if(!(smb.status.attr&SMB_HYPERALLOC))
- datoffset[datoffsets].old=msg.hdr.offset;
-
- fseek(smb.sdt_fp,msg.hdr.offset,SEEK_SET);
-
- m=smb_getmsgdatlen(&msg);
- if(m>16L*1024L*1024L) {
- printf("\nInvalid data length (%lu)\n",m);
- continue; }
-
- if(!(smb.status.attr&SMB_HYPERALLOC)) {
- datoffset[datoffsets].new=msg.hdr.offset
- =smb_fallocdat(&smb,m,1);
- datoffsets++;
- fseek(tmp_sdt,msg.hdr.offset,SEEK_SET); }
- else {
- fseek(tmp_sdt,0L,SEEK_END);
- msg.hdr.offset=ftell(tmp_sdt); }
-
- /* Actually copy the data */
-
- n=smb_datblocks(m);
- for(m=0;m<n;m++) {
- fread(buf,1,SDT_BLOCK_LEN,smb.sdt_fp);
- if(!m && *(ushort *)buf!=XLAT_NONE && *(ushort *)buf!=XLAT_LZH) {
- printf("\nUnsupported translation type (%04X)\n"
- ,*(ushort *)buf);
- break; }
- fwrite(buf,1,SDT_BLOCK_LEN,tmp_sdt); }
- if(m<n)
- continue; }
-
- /* Write the new index entry */
- length=smb_getmsghdrlen(&msg);
- if(smb.status.attr&SMB_HYPERALLOC)
- msg.idx.offset=ftell(tmp_shd);
- else
- msg.idx.offset=smb_fallochdr(&smb,length)+smb.status.header_offset;
- msg.idx.number=msg.hdr.number;
- msg.idx.attr=msg.hdr.attr;
- msg.idx.time=msg.hdr.when_imported.time;
- sprintf(str,"%.128s",msg.subj);
- strlwr(str);
- remove_re(str);
- msg.idx.subj=crc16(str);
- if(smb.status.attr&SMB_EMAIL) {
- if(msg.to_ext)
- msg.idx.to=atoi(msg.to_ext);
- else
- msg.idx.to=0;
- if(msg.from_ext)
- msg.idx.from=atoi(msg.from_ext);
- else
- msg.idx.from=0; }
- else {
- sprintf(str,"%.128s",msg.to);
- strlwr(str);
- msg.idx.to=crc16(str);
- sprintf(str,"%.128s",msg.from);
- strlwr(str);
- msg.idx.from=crc16(str); }
- fwrite(&msg.idx,1,sizeof(idxrec_t),tmp_sid);
-
- /* Write the new header entry */
- fseek(tmp_shd,msg.idx.offset,SEEK_SET);
- fwrite(&msg.hdr,1,sizeof(msghdr_t),tmp_shd);
- for(n=0;n<msg.hdr.total_dfields;n++)
- fwrite(&msg.dfield[n],1,sizeof(dfield_t),tmp_shd);
- for(n=0;n<msg.total_hfields;n++) {
- fwrite(&msg.hfield[n],1,sizeof(hfield_t),tmp_shd);
- fwrite(msg.hfield_dat[n],1,msg.hfield[n].length,tmp_shd); }
- while(length%SHD_BLOCK_LEN) { /* pad with NULLs */
- fputc(0,tmp_shd);
- length++; }
- total++;
- smb_freemsgmem(&msg); }
-
-if(datoffset)
- LFREE(datoffset);
-if(!(smb.status.attr&SMB_HYPERALLOC)) {
- smb_close_ha(&smb);
- smb_close_da(&smb); }
-
-/* Change *.SH$ into *.SHD */
-fclose(smb.shd_fp);
-fclose(tmp_shd);
-sprintf(fname,"%s.SHD",smb.file);
-remove(fname);
-sprintf(tmpfname,"%s.SH$",smb.file);
-rename(tmpfname,fname);
-
-/* Change *.SD$ into *.SDT */
-fclose(smb.sdt_fp);
-fclose(tmp_sdt);
-sprintf(fname,"%s.SDT",smb.file);
-remove(fname);
-sprintf(tmpfname,"%s.SD$",smb.file);
-rename(tmpfname,fname);
-
-/* Change *.SI$ into *.SID */
-fclose(smb.sid_fp);
-fclose(tmp_sid);
-sprintf(fname,"%s.SID",smb.file);
-remove(fname);
-sprintf(tmpfname,"%s.SI$",smb.file);
-rename(tmpfname,fname);
-
-if((i=smb_open(&smb))!=0) {
- printf("Error %d reopening %s\n",i,smb.file);
- return; }
-
-smb.status.total_msgs=total;
-if((i=smb_putstatus(&smb))!=0)
- printf("\nsmb_putstatus returned %d\n",i);
-printf("\nDone.\n\n");
-}
-
-
-/****************************************************************************/
-/* Read messages in message base */
-/****************************************************************************/
-void readmsgs(ulong start)
-{
- char str[128],HUGE16 *inbuf,*outbuf;
- int i,ch,done=0,domsg=1,lzh;
- ushort xlat;
- ulong l,count,outlen;
- smbmsg_t msg;
-
-if(start)
- msg.offset=start-1;
-else
- msg.offset=0;
-while(!done) {
- if(domsg) {
- fseek(smb.sid_fp,msg.offset*sizeof(idxrec_t),SEEK_SET);
- if(!fread(&msg.idx,1,sizeof(idxrec_t),smb.sid_fp))
- break;
- i=smb_lockmsghdr(&smb,&msg);
- if(i) {
- printf("smb_lockmsghdr returned %d\n",i);
- break; }
- i=smb_getmsghdr(&smb,&msg);
- if(i) {
- printf("smb_getmsghdr returned %d\n",i);
- break; }
-
- printf("\n%lu (%lu)\n",msg.hdr.number,msg.offset+1);
- printf("Subj : %s\n",msg.subj);
- printf("To : %s",msg.to);
- if(msg.to_net.type)
- printf(" (%s)",msg.to_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.to_net.addr) : msg.to_net.addr);
- printf("\nFrom : %s",msg.from);
- if(msg.from_net.type)
- printf(" (%s)",msg.from_net.type==NET_FIDO
- ? faddrtoa(*(fidoaddr_t *)msg.from_net.addr)
- : msg.from_net.addr);
-#if 1
- printf("\nDate : %.24s %s"
- ,timestr((time_t *)msg.hdr.when_written.time)
- ,zonestr(msg.hdr.when_written.zone));
-#endif
- printf("\n\n");
-#if 0
- for(i=0;i<msg.hdr.total_dfields;i++)
- switch(msg.dfield[i].type) {
- case TEXT_BODY:
- case TEXT_TAIL:
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,smb.sdt_fp);
- l=2;
- lzh=0;
- while(xlat!=XLAT_NONE) {
- if(xlat==XLAT_LZH)
- lzh=1;
- fread(&xlat,2,1,smb.sdt_fp);
- l+=2; }
- if(lzh) {
- if((inbuf=(char *)LMALLOC(msg.dfield[i].length))
- ==NULL) {
- printf("Malloc error of %lu\n"
- ,msg.dfield[i].length);
- exit(1); }
- fread(inbuf,msg.dfield[i].length-l,1,smb.sdt_fp);
- outlen=*(long *)inbuf;
- if((outbuf=(char *)LMALLOC(outlen))==NULL) {
- printf("Malloc error of lzh %lu\n"
- ,outlen);
- exit(1); }
- lzh_decode(inbuf,msg.dfield[i].length-l,outbuf);
- LFREE(inbuf);
- for(l=0;l<outlen;l++)
- putchar(outbuf[l]);
- LFREE(outbuf); }
- else {
- for(;l<msg.dfield[i].length;l++) {
- ch=fgetc(smb.sdt_fp);
- if(ch)
- putchar(ch); } }
- printf("\n");
- break; }
-#else
- if((inbuf=smb_getmsgtxt(&smb,&msg,GETMSGTXT_TAILS))!=NULL) {
- printf("%s",inbuf);
- FREE(inbuf); }
-#endif
- i=smb_unlockmsghdr(&smb,&msg);
- if(i) {
- printf("smb_unlockmsghdr returned %d\n",i);
- break; }
- smb_freemsgmem(&msg); }
- domsg=1;
- printf("\nReading %s (?=Menu): ",smb.file);
- switch(toupper(getch())) {
- case '?':
- printf("\n"
- "\n"
- "(R)e-read current message\n"
- "(L)ist messages\n"
- "(T)en more titles\n"
- "(V)iew message headers\n"
- "(Q)uit\n"
- "(+/-) Forward/Backward\n"
- "\n");
- domsg=0;
- break;
- case 'Q':
- printf("Quit\n");
- done=1;
- break;
- case 'R':
- printf("Re-read\n");
- break;
- case '-':
- printf("Backwards\n");
- if(msg.offset)
- msg.offset--;
- break;
- case 'T':
- printf("Ten titles\n");
- listmsgs(msg.offset+2,10);
- msg.offset+=10;
- domsg=0;
- break;
- case 'L':
- printf("List messages\n");
- listmsgs(1,-1);
- domsg=0;
- break;
- case 'V':
- printf("View message headers\n");
- viewmsgs(1,-1);
- domsg=0;
- break;
- case CR:
- case '+':
- printf("Next\n");
- msg.offset++;
- break; } }
-}
-
-/***************/
-/* Entry point */
-/***************/
-int main(int argc, char **argv)
-{
- char cmd[128]="",*p,*s;
- int i,j,x,y;
- ulong l;
-
-#ifdef __TURBOC__
- timezone=0; /* Fix for Borland C++ EST default */
- daylight=0; /* Fix for Borland C++ EDT default */
-#elif defined(__WATCOMC__)
- putenv("TZ=UCT0"); /* Fix for Watcom C++ EDT default */
-#endif
-setvbuf(stdout,0,_IONBF,0);
-
-smb.file[0]=0;
-printf("\nSMBUTIL Version %s (%s) SMBLIB %s � Synchronet Message Base "\
- "Utility\n\n"
- ,SMBUTIL_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- ,SMBLIB_VERSION
- );
-for(x=1;x<argc;x++) {
- if(argv[x][0]=='/') {
- for(j=1;argv[x][j];j++)
- switch(toupper(argv[x][j])) {
- case 'A':
- mode|=NOANALYSIS;
- break;
- case 'Z':
- if(isdigit(argv[x][j+1]))
- tzone=atoi(argv[x]+j+1);
- else if(!stricmp(argv[x]+j+1,"EST"))
- tzone=EST;
- else if(!stricmp(argv[x]+j+1,"EDT"))
- tzone=EDT;
- else if(!stricmp(argv[x]+j+1,"CST"))
- tzone=CST;
- else if(!stricmp(argv[x]+j+1,"CDT"))
- tzone=CDT;
- else if(!stricmp(argv[x]+j+1,"MST"))
- tzone=MST;
- else if(!stricmp(argv[x]+j+1,"MDT"))
- tzone=MDT;
- else if(!stricmp(argv[x]+j+1,"PST"))
- tzone=PST;
- else if(!stricmp(argv[x]+j+1,"PDT"))
- tzone=PDT;
- j=strlen(argv[x])-1;
- break;
- default:
- printf("\nUnknown opt '%c'\n",argv[x][j]);
- case '?':
- printf("%s",usage);
- exit(1);
- break; } }
- else {
- if(!cmd[0])
- strcpy(cmd,argv[x]);
- else {
- sprintf(smb.file,"%.64s",argv[x]);
- p=strrchr(smb.file,'.');
- s=strrchr(smb.file,'\\');
- if(p>s) *p=0;
- strupr(smb.file);
- smb.retry_time=30;
- printf("Opening %s\r\n",smb.file);
- if((i=smb_open(&smb))!=0) {
- printf("error %d opening %s message base\n",i,smb.file);
- exit(1); }
- if(!filelength(fileno(smb.shd_fp))) {
- printf("Empty\n");
- smb_close(&smb);
- continue; }
- for(y=0;cmd[y];y++)
- switch(toupper(cmd[y])) {
- case 'I':
- case 'E':
- case 'N':
- strcpy(filein,cmd+1);
- i=smb_locksmbhdr(&smb);
- if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return(1); }
- postmsg(toupper(cmd[y]));
- y=strlen(cmd)-1;
- break;
- case 'S':
- showstatus();
- break;
- case 'C':
- config();
- break;
- case 'L':
- listmsgs(atol(cmd+1),-1L);
- y=strlen(cmd)-1;
- break;
- case 'P':
- packmsgs(atol(cmd+y+1));
- y=strlen(cmd)-1;
- break;
- case 'R':
- readmsgs(atol(cmd+1));
- y=strlen(cmd)-1;
- break;
- case 'V':
- viewmsgs(atol(cmd+1),-1L);
- y=strlen(cmd)-1;
- break;
- case 'M':
- maint();
- break;
- default:
- printf("%s",usage);
- break; }
- smb_close(&smb); } } }
-if(!cmd[0])
- printf("%s",usage);
-return(0);
-}
diff --git a/src/sbbs2/smb/smbutil/smbutil.h b/src/sbbs2/smb/smbutil/smbutil.h
deleted file mode 100644
index 4b5462b12a18e132a3a55b92048d67e2282c5d62..0000000000000000000000000000000000000000
--- a/src/sbbs2/smb/smbutil/smbutil.h
+++ /dev/null
@@ -1,12 +0,0 @@
-/* SMBUTIL.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#define NOANALYSIS (1L<<0)
-
-#ifdef __WATCOMC__
- #define ffblk find_t
- #define findfirst(x,y,z) _dos_findfirst(x,z,y)
- #define findnext(x) _dos_findnext(x)
-#endif
-
diff --git a/src/sbbs2/smbactiv/makeall.bat b/src/sbbs2/smbactiv/makeall.bat
deleted file mode 100755
index d68900c3d3397527fe45f8723f77457287880eda..0000000000000000000000000000000000000000
--- a/src/sbbs2/smbactiv/makeall.bat
+++ /dev/null
@@ -1,11 +0,0 @@
-@echo off
-wmake OS=DOS %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=DOSX %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=OS2 %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-wmake OS=NT %1 %2 %3 %4 %5
-if errorlevel 1 goto end
-:end
-
diff --git a/src/sbbs2/smbactiv/makefile b/src/sbbs2/smbactiv/makefile
deleted file mode 100644
index e2a9ad55aa8bd12a022842902e19a26087442c60..0000000000000000000000000000000000000000
--- a/src/sbbs2/smbactiv/makefile
+++ /dev/null
@@ -1,92 +0,0 @@
-############################################
-# Makefile for Synchronet SMBACTIV Utility #
-# For use with Watcom C/C++ #
-############################################
-
-!ifndef OS
-OS = DOS
-!endif
-
-!ifeq OS DOS
-CC = *wcc
-!else
-CC = *wcc386
-!endif
-
-LD = *wlink
-INCLUDE = \watcom\h;\watcom\h\os2;..;..\smb;..\rio
-
-
-!ifeq OS DOS
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\ -ml
-!else
-CFLAGS = -I$(INCLUDE) -s -fh=$*.pch -bt=$(OS) -fo=$(OS)\
-!endif
-
-!ifeq OS DOS
-SYSTEM = DOS
-!endif
-!ifeq OS OS2
-SYSTEM = OS2V2
-!endif
-!ifeq OS DOSX
-SYSTEM = DOS4G
-!endif
-!ifeq OS NT
-SYSTEM = NT
-!endif
-
-LFLAGS = option stack=16k system $(SYSTEM)
-
-MAIN = $(OS)\smbactiv.exe
-OBJS = $(OS)\smbactiv.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj &
- $(OS)\ars.obj $(OS)\scfglib2.obj $(OS)\smblib.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\gen_defs.h ..\scfgvars.c &
- ..\smb\smbdefs.h ..\smb\smblib.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling (I) $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
-# @echo Linking $< ...
- $(LD) $(LFLAGS) file { $(OBJS) }
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# ARS
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
-# Shared Functions
-$(OS)\scfglib2.obj: ..\scfglib2.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c &
- ..\scfglib.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) &
--DNO_TEXT_CFG &
--DNO_XTRN_CFG &
--DNO_CMDS_CFG &
--DNO_CHAT_CFG &
-$[@
-
-$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling $[@ to $^@ ...
- $(CC) $(CFLAGS) $[@
-
diff --git a/src/sbbs2/smbactiv/makefile.bc b/src/sbbs2/smbactiv/makefile.bc
deleted file mode 100644
index 65e62529f4df2aa89b4606d17564a05b576c41a6..0000000000000000000000000000000000000000
--- a/src/sbbs2/smbactiv/makefile.bc
+++ /dev/null
@@ -1,78 +0,0 @@
-############################################
-# Makefile for Synchronet DEADSUBS Utility #
-# For use with Borland C++ for DOS or OS/2 #
-############################################
-
-# Macros
-CC = bcc
-LD = tlink
-!ifdef __OS2__
-OS = OS2
-INCLUDE = c:\bcos2\include;..;..\smb;..\rio
-LIB = c:\bcos2\lib
-CFLAGS = -d -C -I$(INCLUDE) -w-pro
-LFLAGS = -c
-!else
-OS = DOS
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -N -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LFLAGS = -n -c
-!endif
-MAIN = $(OS)\smbactiv.exe
-OBJS = $(OS)\smbactiv.obj $(OS)\scfgvars.obj $(OS)\scfglib1.obj \
- $(OS)\scfglib2.obj $(OS)\smblib.obj $(OS)\ars.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c \
- ..\smb\smbdefs.h ..\smb\smblib.h
-
-# Implicit C Compile Rule
-{.}.c.obj:
- @echo Compiling (I) $< to $@ ...
- $(CC) $(CFLAGS) -n$(OS) -c $<
-
-# Main EXE Link Rule
-$(MAIN): $(OBJS)
- @echo Linking $< ...
-!ifdef __OS2__
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c02.obj $(OBJS)
-+, $*, $*, $(LIB)\os2.lib $(LIB)\c2.lib
-!else
- $(LD) $(LFLAGS) @&&+
-$(LIB)\c0$(MODEL) $(OBJS)
-+, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-!endif
-
-# Global Variables
-$(OS)\scfgvars.obj: ..\scfgvars.c ..\sbbsdefs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c -n$(OS) ..\$&.c
-
-# Shared Functions
-$(OS)\scfglib1.obj: ..\scfglib1.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c \
- ..\scfglib.h
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_FILE_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-$(OS)\scfglib2.obj: ..\scfglib2.c ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c \
- ..\scfglib.h
- $(CC) $(CFLAGS) -c -n$(OS) @&&!
--DNO_FILE_CFG
--DNO_XTRN_CFG
--DNO_CMDS_CFG
--DNO_CHAT_CFG
-! ..\$&.c
-
-$(OS)\smblib.obj: ..\smb\smblib.c ..\smb\smblib.h ..\smb\smbdefs.h
- @echo Compiling SMBLIB ...
- $(CC) $(CFLAGS) -n$(OS) -c ..\smb\smblib.c
-
-$(OS)\ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -n$(OS) -c ..\ars.c
-
diff --git a/src/sbbs2/smbactiv/smbactiv.c b/src/sbbs2/smbactiv/smbactiv.c
deleted file mode 100644
index d932b8c31bcee5fcad3f98e86c191a562583b15a..0000000000000000000000000000000000000000
--- a/src/sbbs2/smbactiv/smbactiv.c
+++ /dev/null
@@ -1,273 +0,0 @@
-/* SMBACTIV.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <share.h>
-#include "sbbs.h"
-
-#define SMBACTIV_VER "1.01"
-
-typedef struct {
- ulong read;
- ulong firstmsg;
-} sub_status_t;
-
-smb_t smb;
-
-ulong first_msg()
-{
- smbmsg_t msg;
-
-msg.offset=0;
-msg.hdr.number=0;
-if(smb_getmsgidx(&smb,&msg)) /* Get first message index */
- return(0);
-return(msg.idx.number);
-}
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-long lputs(char FAR16 *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stderr));
-}
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
-while(((file=sopen(str,O_BINARY|access,share,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(access&O_WRONLY) access|=O_RDWR; /* fdopen can't open WRONLY */
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&(O_RDONLY|O_RDWR))
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&(O_WRONLY|O_RDWR))
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...)
-{
- va_list argptr;
- char sbuf[256];
- int chcount;
-
-va_start(argptr,fmat);
-chcount=vsprintf(sbuf,fmat,argptr);
-va_end(argptr);
-lputs(sbuf);
-return(chcount);
-}
-void bail(int code)
-{
-exit(code);
-}
-
-void main(int argc, char **argv)
-{
- char str[256],*p;
- int i,j,file;
- ulong l,length,max_users=0xffffffff;
- sub_status_t *sub_status;
- read_cfg_text_t txt;
- struct find_t f;
- FILE *stream;
-
- _fmode=O_BINARY;
- txt.openerr="\7\r\nError opening %s for read.\r\n";
- txt.reading="\r\nReading %s...";
- txt.readit="\rRead %s ";
- txt.allocerr="\7\r\nError allocating %u bytes of memory\r\n";
- txt.error="\7\r\nERROR: Offset %lu in %s\r\n\r\n";
-
-fprintf(stderr,"\nSMBACTIV Version %s (%s) - Synchronet Message Base Activity "
- "Monitor\n"
- ,SMBACTIV_VER
-#if defined(__OS2__)
- ,"OS/2"
-#elif defined(__NT__)
- ,"Win32"
-#elif defined(__DOS4G__)
- ,"DOS4G"
-#elif defined(__FLAT__)
- ,"DOS32"
-#else
- ,"DOS16"
-#endif
- );
-
- if(argc>1 && (!stricmp(argv[1],"/?") || !stricmp(argv[1],"?"))) {
- lprintf("\nusage: SMBACTIV [max_users]\n\n");
- lprintf("max_users = limit output to subs read by this many users "
- "or less\n");
- exit(0); }
-
- if(argc>1)
- max_users=atol(argv[1]);
-
- if(!node_dir[0]) {
- p=getenv("SBBSNODE");
- if(p==NULL) {
- printf("\7\nSBBSNODE environment variable not set.\n");
- exit(1); }
- strcpy(node_dir,p); }
-
- strupr(node_dir);
-
- if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
- read_node_cfg(txt);
- if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str);
- if(_fullpath(str,ctrl_dir,40))
- strcpy(ctrl_dir,str); }
- backslash(ctrl_dir);
-
- read_main_cfg(txt);
- if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str);
- if(_fullpath(str,data_dir,40))
- strcpy(data_dir,str); }
- backslash(data_dir);
- if(text_dir[0]=='.') { /* Relative path */
- strcpy(str,text_dir);
- sprintf(text_dir,"%s%s",node_dir,str);
- if(_fullpath(str,text_dir,40))
- strcpy(text_dir,str); }
- backslash(text_dir);
- read_msgs_cfg(txt);
-
- if((sub_status=(sub_status_t *)MALLOC
- (total_subs*sizeof(sub_status_t)))==NULL) {
- printf("ERROR Allocating memory for sub_status\r\n");
- exit(1); }
-
- lprintf("\nReading sub-board ");
- for(i=0;i<total_subs;i++) {
- lprintf("%5d of %-5d\b\b\b\b\b\b\b\b\b\b\b\b\b\b",i+1,total_subs);
- sprintf(smb.file,"%s%s",sub[i]->data_dir,sub[i]->code);
- if((j=smb_open(&smb))!=0) {
- lprintf("Error %d opening %s\r\n",j,smb.file);
- sub_status[i].read=0;
- sub_status[i].firstmsg=0L;
- continue; }
- sub_status[i].read=0;
- sub_status[i].firstmsg=first_msg();
- smb_close(&smb); }
-
- sprintf(str,"%sUSER\\PTRS\\*.IXB",data_dir);
- if(_dos_findfirst(str,0,&f)) {
- lprintf("Unable to find any user pointer files.\n");
- FREE(sub_status);
- exit(1); }
-
- j=0;
- lprintf("\nComparing user pointers ");
- while(1) {
- lprintf("%-5d\b\b\b\b\b",++j);
- sprintf(str,"%sUSER\\PTRS\\%s",data_dir,f.name);
- if((file=nopen(str,O_RDONLY))==-1) {
- if(_dos_findnext(&f))
- break;
- continue; }
- length=filelength(file);
- for(i=0;i<total_subs;i++) {
- if(sub_status[i].read>max_users)
- continue;
- if(length<(sub[i]->ptridx+1)*10L)
- continue;
- else {
- lseek(file,((long)sub[i]->ptridx*10L)+4L,SEEK_SET);
- read(file,&l,4); }
- if(l>sub_status[i].firstmsg)
- sub_status[i].read++; }
- close(file);
- if(_dos_findnext(&f))
- break; }
-
- printf("NumUsers Sub-board\n");
- printf("-------- -------------------------------------------------"
- "-----------\n");
- for(i=0;i<total_subs;i++) {
- if(sub_status[i].read>max_users)
- continue;
- printf("%8lu %-*s %-*s\n"
- ,sub_status[i].read
- ,LEN_GSNAME,grp[sub[i]->grp]->sname
- ,LEN_SLNAME,sub[i]->lname); }
-
-}
diff --git a/src/sbbs2/smbfuncs.c b/src/sbbs2/smbfuncs.c
deleted file mode 100644
index 8c8215138b8f285809e1cb51d226b022ab6d3c71..0000000000000000000000000000000000000000
--- a/src/sbbs2/smbfuncs.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/* SMBFUNCS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "smbdefs.h"
-
-int SMBCALL (smb_ver)(void);
-char * SMBCALL (smb_lib_ver)(void);
-int SMBCALL (smb_open)(smb_t *smb);
-void SMBCALL (smb_close)(smb_t *smb);
-int SMBCALL (smb_open_da)(smb_t *smb);
-void SMBCALL (smb_close_da)(smb_t *smb);
-int SMBCALL (smb_open_ha)(smb_t *smb);
-void SMBCALL (smb_close_ha)(smb_t *smb);
-int SMBCALL (smb_create)(smb_t *smb);
-int SMBCALL (smb_stack)(smb_t *smb, int op);
-int SMBCALL (smb_trunchdr)(smb_t *smb);
-int SMBCALL (smb_locksmbhdr)(smb_t *smb);
-int SMBCALL (smb_getstatus)(smb_t *smb);
-int SMBCALL (smb_putstatus)(smb_t *smb);
-int SMBCALL (smb_unlocksmbhdr)(smb_t *smb);
-int SMBCALL (smb_getmsgidx)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_getlastidx)(smb_t *smb, idxrec_t *idx);
-uint SMBCALL (smb_getmsghdrlen)(smbmsg_t *msg);
-ulong SMBCALL (smb_getmsgdatlen)(smbmsg_t *msg);
-int SMBCALL (smb_lockmsghdr)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_getmsghdr)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_unlockmsghdr)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_addcrc)(smb_t *smb, ulong crc);
-int SMBCALL (smb_hfield)(smbmsg_t *msg, ushort type, ushort length
- ,void *data);
-int SMBCALL (smb_dfield)(smbmsg_t *msg, ushort type, ulong length);
-int SMBCALL (smb_addmsghdr)(smb_t *smb, smbmsg_t *msg,int storage);
-int SMBCALL (smb_putmsg)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_putmsgidx)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_putmsghdr)(smb_t *smb, smbmsg_t *msg);
-void SMBCALL (smb_freemsgmem)(smbmsg_t *msg);
-ulong SMBCALL (smb_hdrblocks)(ulong length);
-ulong SMBCALL (smb_datblocks)(ulong length);
-long SMBCALL (smb_allochdr)(smb_t *smb, ulong length);
-long SMBCALL (smb_fallochdr)(smb_t *smb, ulong length);
-long SMBCALL (smb_hallochdr)(smb_t *smb);
-long SMBCALL (smb_allocdat)(smb_t *smb, ulong length, ushort headers);
-long SMBCALL (smb_fallocdat)(smb_t *smb, ulong length, ushort headers);
-long SMBCALL (smb_hallocdat)(smb_t *smb);
-int SMBCALL (smb_incdat)(smb_t *smb, ulong offset, ulong length
- ,ushort headers);
-int SMBCALL (smb_freemsg)(smb_t *smb, smbmsg_t *msg);
-int SMBCALL (smb_freemsgdat)(smb_t *smb, ulong offset, ulong length
- ,ushort headers);
-int SMBCALL (smb_freemsghdr)(smb_t *smb, ulong offset, ulong length);
-char HUGE16 * SMBCALL smb_getmsgtxt(smb_t *smb, smbmsg_t *msg, ulong mode);
-void SMBCALL (smb_freemsgtxt)(char HUGE16 *buf);
-
-/* FILE pointer I/O functions */
-
-int SMBCALL (smb_feof(FILE *fp);
-int SMBCALL (smb_ferror(FILE *fp);
-int SMBCALL (smb_fflush(FILE *fp);
-int SMBCALL (smb_fgetc(FILE *fp);
-int SMBCALL (smb_fputc(int ch, FILE *fp);
-int SMBCALL (smb_fseek(FILE *fp, long offset, int whence);
-long SMBCALL (smb_ftell(FILE *fp);
-long SMBCALL (smb_fread(char HUGE16 *buf, long bytes, FILE *fp);
-long SMBCALL (smb_fwrite(char HUGE16 *buf, long bytes, FILE *fp);
-long SMBCALL (smb_fgetlength(FILE *fp);
-int SMBCALL (smb_fsetlength(FILE *fp, long length);
-void SMBCALL (smb_rewind(FILE *fp);
-void SMBCALL (smb_clearerr(FILE *fp);
-
-/* LZH functions */
-
-long SMBCALL (lzh_encode(uchar *inbuf, long inlen, uchar *outbuf);
-long SMBCALL (lzh_decode(uchar *inbuf, long inlen, uchar *outbuf);
-
-#endif /* Don't add anything after this #endif statement */
diff --git a/src/sbbs2/smm/addphoto.c b/src/sbbs2/smm/addphoto.c
deleted file mode 100644
index 6f4294579c4e6659c6ad04c88e2f54a9b421208e..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/addphoto.c
+++ /dev/null
@@ -1,310 +0,0 @@
-/* ADDPHOTO.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <io.h>
-#include <dos.h>
-#include <bios.h>
-#include <time.h>
-#include <ctype.h>
-#include <stdio.h>
-#include <share.h>
-#include <conio.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <malloc.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#include "gen_defs.h"
-#include "crc32.h"
-#include "smmdefs.h"
-
-extern int daylight=0;
-extern long timezone=0L;
-
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC)==0)
- return(1);
-return(0);
-}
-
-#define MV_BUFLEN 4096
-
-/****************************************************************************/
-/* Moves or copies a file from one dir to another */
-/* both 'src' and 'dest' must contain full path and filename */
-/* returns 0 if successful, -1 if error */
-/****************************************************************************/
-int mv(char *src, char *dest, char copy)
-{
- char str[256],*buf;
- int ind,outd;
- long length,chunk=MV_BUFLEN,l;
- struct ftime ftime;
- FILE *inp,*outp;
-
-if(copy)
- printf("Copying %s to %s\n",src,dest);
-else
- printf("Moving %s to %s\n",src,dest);
-if(!stricmp(src,dest)) /* source and destination are the same! */
- return(0);
-if(!fexist(src))
- return(1);
-if(!copy && fexist(dest))
- return(2);
-if(!copy && ((src[1]!=':' && dest[1]!=':')
- || (src[1]==':' && dest[1]==':' && toupper(src[0])==toupper(dest[0])))) {
- if(rename(src,dest)) /* same drive, so move */
- return(3);
- return(0); }
-if((ind=open(src,O_RDONLY|O_BINARY))==-1)
- return(4);
-if((inp=fdopen(ind,"rb"))==NULL) {
- close(ind);
- return(5); }
-setvbuf(inp,NULL,_IOFBF,32*1024);
-if((outd=open(dest,O_WRONLY|O_CREAT|O_TRUNC|O_BINARY,S_IWRITE|S_IREAD))==-1) {
- fclose(inp);
- return(6); }
-if((outp=fdopen(outd,"wb"))==NULL) {
- close(outd);
- fclose(inp);
- return(7); }
-setvbuf(outp,NULL,_IOFBF,8*1024);
-length=filelength(ind);
-if(!length) {
- fclose(inp);
- fclose(outp);
- return(8); }
-if((buf=(char *)MALLOC(MV_BUFLEN))==NULL) {
- fclose(inp);
- fclose(outp);
- return(9); }
-l=0L;
-while(l<length) {
- if(l+chunk>length)
- chunk=length-l;
- if(fread(buf,1,chunk,inp)!=chunk) {
- FREE(buf);
- fclose(inp);
- fclose(outp);
- return(10); }
- if(fwrite(buf,1,chunk,outp)!=chunk) {
- FREE(buf);
- fclose(inp);
- fclose(outp);
- return(11); }
- l+=chunk; }
-getftime(ind,&ftime);
-setftime(outd,&ftime);
-FREE(buf);
-fclose(inp);
-fclose(outp);
-if(!copy && remove(src))
- return(12);
-return(0);
-}
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-
-int main(int argc, char **argv)
-{
- char str[128],fname[128],path[128],tmp[128],*p;
- int i,file;
- FILE *index, *stream;
- ulong number,crc;
- user_t user;
- ixb_t ixb;
-
-printf("\nADDPHOTO v1.01 - Synchronet Match Maker Photograph Addition\n\n");
-
-if(checktime()) {
- printf("Time problem!\n");
- exit(1); }
-
-if(argc<4) {
- printf("usage: addphoto filename.ext user_number system_name\n");
- exit(1); }
-
-strupr(argv[1]);
-if(!fexist(argv[1])) {
- printf("%s doesn't exist\n",argv[1]);
- exit(1); }
-
-if((file=open("SMM.DAB",O_RDWR|O_BINARY|O_DENYNONE|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- printf("\n\7Error opening/creating SMM.DAB\n");
- exit(1); }
-if((stream=fdopen(file,"w+b"))==NULL) {
- printf("\n\7Error converting SMM.DAB file handle to stream\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,4096);
-
-if((file=open("SMM.IXB",O_RDWR|O_BINARY|O_DENYNONE|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- printf("\n\7Error opening/creating SMM.IXB\n");
- exit(1); }
-if((index=fdopen(file,"w+b"))==NULL) {
- printf("\n\7Error converting SMM.IXB file handle to stream\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,1024);
-
-number=atol(argv[2]);
-str[0]=0;
-for(i=3;i<argc;i++) {
- if(str[0])
- strcat(str," ");
- strcat(str,argv[i]); }
-
-strupr(str);
-str[25]=0;
-
-crc=crc32(str);
-rewind(index);
-i=0;
-while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.system!=crc || ixb.number!=number)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- i=1;
- break; }
-if(!i) {
- printf("\7User #%lu @ %s not found!\n",number,str);
- exit(2); }
-
-for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
-if(!user.system[i])
- fname[0]='~';
-else
- fname[0]=user.system[i];
-for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
-if(i<=0)
- fname[1]='~';
-else
- fname[1]=user.system[i];
-fname[2]=0;
-strupr(user.system);
-strcat(fname,base41(crc16(user.system),tmp));
-strcat(fname,base41(user.number,tmp));
-p=strrchr(argv[1],'.');
-if(p)
- strcat(fname,p);
-strupr(fname);
-mkdir("PHOTO");
-sprintf(path,"PHOTO\\%s",fname);
-if((i=mv(argv[1],path,1))!=0) {
- printf("\7ERROR %d copying %s to %s\n",i,argv[1],path);
- exit(3); }
-
-user.misc|=USER_PHOTO;
-user.updated=time(NULL);
-user.photo=0;
-fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
-fwrite(&user,sizeof(user_t),1,stream);
-ixb.updated=user.updated;
-fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
-fwrite(&ixb,sizeof(ixb_t),1,index);
-
-printf("%s added successfully!\n",argv[1]);
-return(0);
-}
-
diff --git a/src/sbbs2/smm/delphoto.c b/src/sbbs2/smm/delphoto.c
deleted file mode 100644
index 6934b2d96ecfb964e7d57923ad56b1b1ea3326ba..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/delphoto.c
+++ /dev/null
@@ -1,223 +0,0 @@
-/* DELPHOTO.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <io.h>
-#include <dos.h>
-#include <dir.h>
-#include <bios.h>
-#include <time.h>
-#include <ctype.h>
-#include <stdio.h>
-#include <share.h>
-#include <conio.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <malloc.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#include "gen_defs.h"
-#include "crc32.h"
-#include "smmdefs.h"
-
-extern int daylight=0;
-extern long timezone=0L;
-
-
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-
-int main(int argc, char **argv)
-{
- char str[128],fname[128],path[128],tmp[128];
- int i,file;
- FILE *index, *stream;
- ulong number,crc;
- user_t user;
- ixb_t ixb;
- struct ffblk ff;
-
-printf("\nDELPHOTO v1.00 - Synchronet Match Maker Photograph Deletion\n\n");
-
-if(checktime()) {
- printf("Time problem!\n");
- exit(1); }
-
-if(argc<3) {
- printf("usage: delphoto user_number system_name\n");
- exit(1); }
-
-if((file=open("SMM.DAB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- printf("\n\7Error opening/creating SMM.DAB\n");
- exit(1); }
-if((stream=fdopen(file,"w+b"))==NULL) {
- printf("\n\7Error converting SMM.DAB file handle to stream\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,4096);
-
-if((file=open("SMM.IXB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- printf("\n\7Error opening/creating SMM.IXB\n");
- exit(1); }
-if((index=fdopen(file,"w+b"))==NULL) {
- printf("\n\7Error converting SMM.IXB file handle to stream\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,1024);
-
-number=atol(argv[1]);
-str[0]=0;
-for(i=2;i<argc;i++) {
- if(str[0])
- strcat(str," ");
- strcat(str,argv[i]); }
-
-strupr(str);
-str[25]=0;
-
-crc=crc32(str);
-rewind(index);
-i=0;
-while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.system!=crc || ixb.number!=number)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- i=1;
- break; }
-if(!i) {
- printf("\7User #%lu @ %s not found!\n",number,str);
- exit(2); }
-
-if(!(user.misc&USER_PHOTO)) {
- printf("\7User #%lu @ %s doesn't have a photo attached to their profile.\n"
- ,number,str);
- exit(3); }
-
-for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
-if(!user.system[i])
- fname[0]='~';
-else
- fname[0]=user.system[i];
-for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
-if(i<=0)
- fname[1]='~';
-else
- fname[1]=user.system[i];
-fname[2]=0;
-strupr(user.system);
-strcat(fname,base41(crc16(user.system),tmp));
-strcat(fname,base41(user.number,tmp));
-strcat(fname,".*");
-strupr(fname);
-sprintf(path,"PHOTO\\%s",fname);
-i=findfirst(path,&ff,0);
-if(i)
- printf("\7%s doesn't exist!\n",path);
-else {
- sprintf(path,"PHOTO\\%s",ff.ff_name);
- if(remove(path))
- printf("\7%s couldn't be removed!\n",path); }
-
-user.misc&=~USER_PHOTO;
-user.updated=time(NULL);
-user.photo=0;
-fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
-fwrite(&user,sizeof(user_t),1,stream);
-ixb.updated=user.updated;
-fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
-fwrite(&ixb,sizeof(ixb_t),1,index);
-
-printf("Photo removed successfully from database.\n");
-return(0);
-}
-
diff --git a/src/sbbs2/smm/lstphoto.c b/src/sbbs2/smm/lstphoto.c
deleted file mode 100644
index 3d5a4e908ea3efece8ac09cdb424e3501793c590..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/lstphoto.c
+++ /dev/null
@@ -1,182 +0,0 @@
-/* LSTPHOTO.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <io.h>
-#include <dos.h>
-#include <dir.h>
-#include <bios.h>
-#include <time.h>
-#include <ctype.h>
-#include <stdio.h>
-#include <share.h>
-#include <conio.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <malloc.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#include "gen_defs.h"
-#include "crc32.h"
-#include "smmdefs.h"
-
-extern int daylight=0;
-extern long timezone=0L;
-
-
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct time curtime;
- struct date date;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-
-int main()
-{
- char str[128],fname[128],tmp[128];
- int i,file;
- FILE *stream;
- user_t user;
-
-printf("\nLSTPHOTO v1.00 - Synchronet Match Maker Photograph List\n\n");
-
-if(checktime()) {
- printf("Time problem!\n");
- exit(1); }
-
-if((file=open("SMM.DAB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- printf("\n\7Error opening/creating SMM.DAB\n");
- exit(1); }
-if((stream=fdopen(file,"w+b"))==NULL) {
- printf("\n\7Error converting SMM.DAB file handle to stream\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,4096);
-
-while(!feof(stream)) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(!(user.misc&USER_PHOTO) || user.misc&USER_DELETED || !user.number)
- continue;
-
- printf("%-25.25s %5lu %-25.25s %s ",user.system,user.number,user.name
- ,unixtodstr(user.photo,tmp));
- for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
- if(!user.system[i])
- fname[0]='~';
- else
- fname[0]=user.system[i];
- for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
- if(i<=0)
- fname[1]='~';
- else
- fname[1]=user.system[i];
- fname[2]=0;
- strupr(fname);
- strupr(user.system);
- strcat(fname,base41(crc16(user.system),tmp));
- strcat(fname,base41(user.number,tmp));
- printf("%s\n",fname); }
-
-return(0);
-}
-
diff --git a/src/sbbs2/smm/makefile b/src/sbbs2/smm/makefile
deleted file mode 100644
index af70052dfb57c2746ed40dec40a3d8a9e0bdc7d1..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/makefile
+++ /dev/null
@@ -1,35 +0,0 @@
-# Macros
-CC = \bc31\bin\bcc
-LD = \bc31\bin\tlink
-SDK = ..\sdk
-MSWAIT = ..\..\mswait\dos
-INCLUDE = \bc31\include;$(SDK);..\smb
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-prot
-LFLAGS = /n /c
-OBJS = xsdk.obj xsdkvars.obj $(MSWAIT)\mswait$(MODEL).obj ..\DOS\rciol.obj
-HEADERS = $(SDK)\xsdk.h $(SDK)\xsdkdefs.h $(SDK)\xsdkvars.c smmdefs.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling $*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $*.c
-
-# Main EXE Link Rule
-smm.exe: $(OBJS) smm.obj
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) smm.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-# All .obj modules
-smm.obj: $(HEADERS)
-
-xsdk.obj: $(SDK)\xsdk.c $(HEADERS)
- @echo Compiling $(SDK)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c -w+pro $(SDK)\$*.c
-
-xsdkvars.obj: $(SDK)\xsdkvars.c $(SDK)\xsdkdefs.h
- @echo Compiling $(SDK)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c -w+pro $(SDK)\$*.c
diff --git a/src/sbbs2/smm/makeio.bat b/src/sbbs2/smm/makeio.bat
deleted file mode 100755
index 27cf74041635401a784cbbe809b59b906ad2bc73..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/makeio.bat
+++ /dev/null
@@ -1,7 +0,0 @@
-@echo off
-bcc -w-pro -N -ml -C -n. -DSMB_GETMSGTXT -I..;..\smb smb2smm.c ..\smb\smblib.c ..\smb\lzh.c
-if errorlevel 1 goto end
-bcc -w-pro -N -ml -C -n. -I..;..\smb smm2smb.c ..\smb\smblib.c
-if errorlevel 1 goto end
-bcc -w-pro -N -ml -C -n. -I..;..\smb outphoto.c ..\smb\smblib.c
-:end
diff --git a/src/sbbs2/smm/makemsg.c b/src/sbbs2/smm/makemsg.c
deleted file mode 100644
index b2c00433944db55ee44a11e8d3acedbb4f50f5ad..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/makemsg.c
+++ /dev/null
@@ -1,70 +0,0 @@
-/* MAKEMSG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <dos.h>
-#include <stdio.h>
-#include <time.h>
-#include "gen_defs.h"
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
- struct date date;
- struct time curtime;
-
-if(!strcmp(str,"00/00/00") || !str[0])
- return(NULL);
-curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
-if(str[6]<'7')
- date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
-else
- date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
-date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
-date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
-return(dostounix(&date,&curtime));
-}
-
-uchar cryptchar(uchar ch, ulong seed)
-{
-if(ch==1)
- return(0xfe);
-if(ch<0x20 || ch&0x80) /* Ctrl chars and ex-ASCII are not xlated */
- return(ch);
-return(ch^(seed&0x1f));
-}
-
-int main(int argc, char **argv)
-{
- char str[256];
- FILE *in,*out;
- int i,j;
- long l;
-
-if(argc<4) {
- printf("usage: makemsg infile outfile mm/dd/yy\n");
- exit(1); }
-
-if((in=fopen(argv[1],"rb"))==NULL) {
- printf("error opening %s\n",argv[1]);
- exit(1); }
-
-if((out=fopen(argv[2],"wb"))==NULL) {
- printf("error opening %s\n",argv[2]);
- exit(1); }
-
-l=dstrtounix(argv[3]);
-if(!l) {
- printf("Invalid date %s\n",argv[3]);
- exit(1); }
-fprintf(out,"%lx\r\n",l^0x305F6C81UL);
-i=ftell(out);
-while(!feof(in)) {
- if(!fgets(str,128,in))
- break;
- for(j=0;str[j];j++,i++)
- fputc(cryptchar(str[j],l^(i&7)),out); }
-return(0);
-}
diff --git a/src/sbbs2/smm/makephot.bat b/src/sbbs2/smm/makephot.bat
deleted file mode 100755
index 9b6388a531c1721b0e3ce4c59c90b2ad1561df9c..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/makephot.bat
+++ /dev/null
@@ -1,7 +0,0 @@
-@echo off
-bcc -I..;..\smb -w-pro -N -C -ml addphoto.c
-if errorlevel 1 goto end
-bcc -I..;..\smb -w-pro -N -C -ml delphoto.c
-if errorlevel 1 goto end
-bcc -I..;..\smb -w-pro -N -C -ml lstphoto.c
-:end
diff --git a/src/sbbs2/smm/makeutil.bat b/src/sbbs2/smm/makeutil.bat
deleted file mode 100755
index 53649bc7fd0dfe6cf651b550dfeec84e34202899..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/makeutil.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -w-pro -ml -I..;..\smb smmutil.c
diff --git a/src/sbbs2/smm/outphoto.c b/src/sbbs2/smm/outphoto.c
deleted file mode 100644
index 1a1894b787eacec8b3bda1dbee9ad679744ed841..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/outphoto.c
+++ /dev/null
@@ -1,347 +0,0 @@
-/* OUTPHOTO.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Scans SMM database and posts any photographs into the an SMB base */
-
-#define uint unsigned int
-
-#include <dos.h>
-#include <share.h>
-#include "smblib.h"
-#include "smmdefs.h"
-#include "crc32.h"
-
-#define DAYS 15L // Hatch every 15 days
-
-smb_t smb;
-extern int daylight=0;
-extern long timezone=0L;
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-#define BUF_LEN 8192
-
-int main(int argc, char **argv)
-{
- uchar str[128],tmp[128],buf[BUF_LEN],fname[64],path[128],*p,ch;
- int i,j,file,in,linelen,all=0;
- ushort xlat;
- long length,l;
- ulong offset,crc;
- time_t now;
- struct ffblk ff;
- user_t user;
- smbmsg_t msg;
- FILE *stream;
-
-fprintf(stderr,"\nOUTPHOTO %s - Write SMM photos to SMB - Copyright 2002 "
- "Rob Swindell\n\n",__DATE__);
-
-if(checktime()) {
- printf("Time problem!\n");
- return(-1); }
-
-if(argc<3) {
- fprintf(stderr,"usage: outphoto <smm.dab> <smb_file>\n\n");
- fprintf(stderr,"example: outphoto c:\\sbbs\\xtrn\\smm\\smm.dab "
- "c:\\sbbs\\data\\subs\\syncdata\n");
- return(1); }
-
-for(i=3;i<argc;i++)
- if(!stricmp(argv[i],"/ALL"))
- all=1;
-
-strcpy(smb.file,argv[2]);
-strupr(smb.file);
-
-strcpy(str,argv[1]);
-strupr(str);
-if((file=open(str,O_RDWR|O_BINARY|O_DENYNONE))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if((stream=fdopen(file,"w+b"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
-setvbuf(stream,NULL,_IOFBF,4096);
-
-sprintf(str,"%s.SHD",smb.file);
-if(!fexist(str)) {
- printf("%s doesn't exist\n",smb.file);
- return(0); }
-fprintf(stderr,"Opening %s\n",smb.file);
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- return(1); }
-
-now=time(NULL);
-while(!feof(stream)) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
-
- if(user.misc&(USER_DELETED|USER_FROMSMB) || !(user.misc&USER_PHOTO))
- continue;
-
- printf("Photo: %-25.25s %.24s "
- ,user.name,ctime(&user.photo));
-
- if(user.photo && now-user.photo<DAYS*24L*60L*60L && !all) {
- printf("skipping\n");
- continue; }
- printf("hatching\n");
-
- for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
- if(!user.system[i])
- fname[0]='~';
- else
- fname[0]=user.system[i];
- for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
- if(i<=0)
- fname[1]='~';
- else
- fname[1]=user.system[i];
- fname[2]=0;
- strcpy(str,user.system);
- strupr(str);
- strcat(fname,base41(crc16(str),tmp));
- strcat(fname,base41(user.number,tmp));
- strcpy(path,argv[1]);
- p=strchr(path,'\\');
- if(p) *(p+1)=0;
- else path[0]=0;
- sprintf(str,"%sPHOTO\\%s.*",path,fname);
- if(findfirst(str,&ff,0)) {
- printf("%s doesn't exist!\n",str);
- continue; }
- strcpy(fname,ff.ff_name);
- strcpy(path,argv[1]);
- p=strchr(path,'\\');
- if(p) *(p+1)=0;
- else path[0]=0;
- sprintf(str,"%sPHOTO\\%s",path,fname);
-
- printf("Exporting %s",str);
- if((in=open(str,O_RDONLY|O_BINARY|SH_DENYWR))==-1) {
- printf("\nError opening %s\n",str);
- continue; }
-
- memset(buf,0,BUF_LEN);
- crc=0xffffffffUL;
- linelen=0;
- sprintf(buf,"%lx\r\n",filelength(in)^4096);
- l=strlen(buf);
- while(l<(BUF_LEN-128)) {
- if(!read(in,&ch,1))
- break;
- crc=ucrc32(ch,crc);
- if(ch=='`') {
- buf[l++]='`';
- buf[l++]='`';
- linelen++; }
- else if(ch==0xff)
- buf[l++]='\xee';
- else if(ch<0xf)
- buf[l++]=ch|0xf0;
- else if(ch<0x20) {
- buf[l++]='`';
- buf[l++]=ch+'@';
- linelen++; }
- else if(ch>=0xf0) {
- sprintf(str,"`%x",ch&0xf);
- buf[l++]=str[0];
- buf[l++]=str[1];
- linelen++; }
- else if(ch==0xe3) {
- buf[l++]='`';
- buf[l++]='g';
- linelen++; }
- else if(ch==0x8d) {
- buf[l++]='`';
- buf[l++]='h';
- linelen++; }
- else if(ch==0xee) {
- buf[l++]='`';
- buf[l++]='i';
- linelen++; }
- else
- buf[l++]=ch;
- linelen++;
- if(linelen>=70) {
- buf[l++]=CR;
- buf[l++]=LF;
- linelen=0; } }
- buf[l]=0;
- crc=~crc;
- sprintf(str,"%lx\r\n--- OUTPHOTO %s",time(NULL),__DATE__);
- strcat(buf,str);
- printf("\n");
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=smb_ver();
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM PHOTO");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,user.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- sprintf(tmp,"%.25s",user.system);
- strupr(tmp);
- sprintf(str,"%04lx%08lx%08lx%.3s"
- ,user.number^0x191L,crc32(tmp)^0x90120e71L,crc^0x05296328L,fname+9);
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg);
- fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
- user.photo=time(NULL);
- fwrite(&user,sizeof(user_t),1,stream);
- fseek(stream,ftell(stream),SEEK_SET); }
-return(0);
-}
-
diff --git a/src/sbbs2/smm/smb2smm.c b/src/sbbs2/smm/smb2smm.c
deleted file mode 100644
index 6afddcc1178d6eda1c82553baf6eebe5f99edb42..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smb2smm.c
+++ /dev/null
@@ -1,968 +0,0 @@
-/* SMB2SMM */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Scans SMB message base for messages to "SMM" and adds them to the SMM */
-/* database. */
-
-#define uint unsigned int
-
-#define LOOP_NOPEN 500
-
-#include <dos.h>
-#include "smblib.h"
-#include "smmdefs.h"
-#include "nodedefs.h"
-#include "crc32.h"
-
-#define VERSION "2.01"
-
-extern int daylight=0;
-extern long timezone=0L;
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-char data_dir[128];
-
-smb_t smb;
-FILE *trashfile=NULL;
-
-uchar cryptchar(uchar ch, ulong seed)
-{
-if(ch==0xfe)
- return(1);
-if(ch<0x20 || ch&0x80) /* Ctrl chars and ex-ASCII are not xlated */
- return(ch);
-return(ch^(seed&0x1f));
-}
-
-void decrypt(char *str, ulong seed)
-{
- char out[1024];
- int i,j;
-
-j=strlen(str);
-for(i=0;i<j;i++)
- out[i]=cryptchar(str[i],seed^(i&7));
-out[i]=0;
-strcpy(str,out);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-/***************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first CR */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\r")]=0;
-c=strlen(str);
-while(c && (uchar)str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while(*str>' ' && (l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(f.ff_fsize);
-return(-1L);
-}
-
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
- struct date date;
- struct time curtime;
-
-if(!strncmp(str,"00/00/00",8))
- return(0);
-curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
-if(str[6]<'7')
- date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
-else
- date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
-date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
-date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
-return(dostounix(&date,&curtime));
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns the age derived from the string 'birth' in the format MM/DD/YY */
-/****************************************************************************/
-char getage(char *birth)
-{
- char age;
- struct date date;
-
-if(birth[0]<=SP)
- return(0);
-getdate(&date);
-age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf));
-if(age>90)
- age-=90;
-if(atoi(birth)>12 || atoi(birth+3)>31)
- return(0);
-if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon ||
- (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon &&
- ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day))
- age--;
-if(age<0)
- return(0);
-return(age);
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access&O_DENYNONE) share=O_DENYNONE;
-else if(access==O_RDONLY) share=O_DENYWRITE;
-else share=O_DENYALL;
-while(((file=open(str,O_BINARY|share|access,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN)
- if(count>10)
- delay(55);
-if(file==-1 && errno==EACCES)
- puts("\7\nNOPEN: ACCESS DENIED\n\7");
-return(file);
-}
-
-
-/****************************************************************************/
-/* Creates a short message for 'usernumber' than contains 'strin' */
-/****************************************************************************/
-void putsmsg(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
- struct ffblk ff;
- node_t node;
-
-sprintf(str,"%sMSGS\\%4.4u.MSG",data_dir,usernumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- printf("\7Error opening/creating %s for creat/append access\n",str);
- return; }
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- printf("\7Error writing %u bytes to %s\n",i,str);
- return; }
-close(file);
-}
-
-void puttgram(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
- struct ffblk ff;
- node_t node;
-
-sprintf(str,"%4.4u.MSG",usernumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- printf("\7Error opening/creating %s for creat/append access\n",str);
- return; }
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- printf("\7Error writing %u bytes to %s\n",i,str);
- return; }
-close(file);
-}
-
-int trash(char *instr)
-{
- char str[1024],word[128];
-
-if(!trashfile)
- return(0);
-strcpy(str,instr);
-strupr(str);
-rewind(trashfile);
-while(!ferror(trashfile)) {
- if(!fgets(word,125,trashfile))
- break;
- truncsp(word);
- if(!word[0])
- continue;
- strupr(word);
- if(strstr(str,word))
- return(1); }
-return(0);
-}
-
-int main(int argc, char **argv)
-{
- uchar str[256],system[128],telegram[1024],HUGE16 *buf,HUGE16 *hp, *p
- ,min_age,fname[64],path[128],tmp[128],ch;
- char sys[128];
- int i,j,file,out,wallfile,msgfile,tgramonly=0,wallonly=0,esc;
- ulong l,m,last,high,system_crc,crc,length;
- ushort smm,smm_photo,touser;
- user_t user;
- wall_t wall;
- time_t now;
- smbmsg_t msg;
- FILE *stream,*index,*tmpfile;
- ixb_t ixb;
- struct tm* tm;
-
-fprintf(stderr,"\nSMB2SMM v%s - Updates SMM via SMB - Developed 1995-1997 "
- "Rob Swindell\n\n",VERSION);
-
-if(argc<3) {
- fprintf(stderr,"usage: smb2smm <smb_file> <smm.dab>\n\n");
- fprintf(stderr,"example: smb2smm c:\\sbbs\\data\\subs\\syncdata "
- "c:\\sbbs\\xtrn\\smm\\smm.dab\n");
- return(1); }
-
-p=getenv("SBBSNODE");
-if(p==NULL) {
- printf("\7\nSBBSNODE environment variable not set.\n");
- exit(1); }
-strcpy(str,p);
-if(str[strlen(str)-1]!='\\')
- strcat(str,"\\");
-strcat(str,"XTRN.DAT");
-if((file=nopen(str,O_RDONLY))==-1 || (stream=fdopen(file,"rb"))==NULL) {
- printf("\7\nCan't open %s\n",str);
- exit(1); }
-fgets(str,81,stream); /* user name */
-fgets(system,81,stream); /* system name */
-truncsp(system);
-fgets(str,81,stream); /* sysop name */
-fgets(str,81,stream); /* guru name */
-fgets(str,81,stream); /* ctrl dir */
-fgets(str,81,stream); /* data dir */
-truncsp(str);
-if(str[0]=='.') {
- strcpy(data_dir,p); /* node dir */
- if(data_dir[strlen(data_dir)-1]!='\\')
- strcat(data_dir,"\\");
- strcat(data_dir,str); }
-else
- strcpy(data_dir,str);
-fclose(stream);
-
-if(argc>3 && !stricmp(argv[3],"/t"))
- tgramonly=1;
-
-if(argc>3 && !stricmp(argv[3],"/w"))
- wallonly=1;
-
-strcpy(smb.file,argv[1]);
-strupr(smb.file);
-
-strcpy(str,argv[2]);
-strupr(str);
-if((file=open(str,O_RDWR|O_BINARY|O_DENYNONE|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if((stream=fdopen(file,"r+b"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
-setvbuf(stream,NULL,_IOFBF,4096);
-
-p=strrchr(str,'.');
-if(!p) p=str;
-else p++;
-strcpy(p,"IXB");
-if((file=open(str,O_RDWR|O_BINARY|O_DENYNONE|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if((index=fdopen(file,"r+b"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
-setvbuf(index,NULL,_IOFBF,1024);
-
-p=strrchr(str,'.');
-if(!p) p=str;
-else p++;
-strcpy(p,"CAN");
-trashfile=NULL;
-if((file=open(str,O_RDONLY|O_DENYNONE))!=-1) {
- trashfile=fdopen(file,"rb");
- setvbuf(trashfile,NULL,_IOFBF,4096); }
-
-p=strrchr(str,'.');
-if(!p) p=str;
-else p++;
-strcpy(p,"CFG");
-if((file=nopen(str,O_RDONLY))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if((tmpfile=fdopen(file,"rb"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
-fgets(str,128,tmpfile); /* Min purity age */
-fgets(str,128,tmpfile); /* Min profile age */
-truncsp(str);
-min_age=atoi(str);
-fclose(tmpfile);
-
-sprintf(str,"%s.SMM",smb.file);
-if((file=open(str,O_RDWR|O_BINARY|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if(read(file,&last,4)!=4)
- last=0;
-high=last;
-
-sprintf(str,"%s.SHD",smb.file);
-if(!fexist(str)) {
- printf("%s doesn't exist\n",smb.file);
- return(0); }
-sprintf(str,"%s.SID",smb.file);
-if(!flength(str)) {
- printf("%s is empty\n",smb.file);
- return(0); }
-fprintf(stderr,"Opening %s\n",smb.file);
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- return(1); }
-
-smm=crc16("smm");
-smm_photo=crc16("smm photo");
-
-if((i=smb_locksmbhdr(&smb))!=0) { /* Be sure noone deletes or */
- printf("Error locking %d\n",i); /* adds while we're reading */
- return(1); }
-
-now=time(NULL);
-tm=localtime(&now);
-rewind(smb.sid_fp);
-while(!feof(smb.sid_fp) && !ferror(smb.sid_fp)) {
- if(!fread(&msg.idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- fprintf(stderr,"\r#%-5lu ",msg.idx.number);
- if(msg.idx.to!=smm && msg.idx.to!=smm_photo)
- continue;
- if(msg.idx.number<=last || msg.idx.attr&MSG_DELETE)
- continue;
- high=msg.idx.number;
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- printf("\7Error %d locking msg #%lu\n",i,msg.idx.number);
- continue; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- printf("\7Error %d reading msg #%lu\n",i,msg.idx.number);
- continue; }
-
- smb_unlockmsghdr(&smb,&msg);
- if(!msg.from_net.type || !strnicmp(msg.from,system,25)) { // ignore local msg
- smb_freemsgmem(&msg);
- continue; }
-
- printf("%02u/%02u/%02u "
- ,tm->tm_mon+1,tm->tm_mday,TM_YEAR(tm->tm_year));
-
- printf("From: %-25.25s To: %-25.25s Subj: %s\n"
- ,msg.from,msg.to,msg.subj);
-
- if(msg.idx.to==smm_photo) {
- buf=smb_getmsgtxt(&smb,&msg,0);
- if(!buf) {
- smb_freemsgmem(&msg);
- continue; }
- sprintf(str,"%.4s",msg.subj);
- l=ahtoul(str);
- l^=0x0191;
- sprintf(sys,"%.8s",msg.subj+4);
- system_crc=ahtoul(sys);
- system_crc^=0x90120e71;
- fprintf(stderr,"Searching...");
-
- rewind(index);
- memset(&user,0,sizeof(user_t));
- while(1) {
- if(!fread(&ixb,sizeof(ixb_t),1,index)) {
- memset(&user,0,sizeof(user_t));
- break; }
- if(ixb.number==l && ixb.system==system_crc) {
- fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
- fseek(stream,(ftell(index)/sizeof(ixb_t))*sizeof(user_t)
- ,SEEK_SET);
- fread(&user,sizeof(user_t),1,stream);
- break; } }
- fprintf(stderr,"\n");
-
- if(!user.number) {
- printf("Profile (%ld@%s) Not found\n",l,sys);
- smb_freemsgmem(&msg);
- continue; }
-
- for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
- if(!user.system[i])
- fname[0]='~';
- else
- fname[0]=user.system[i];
- for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
- if(i<=0)
- fname[1]='~';
- else
- fname[1]=user.system[i];
- fname[2]=0;
- strcpy(str,user.system);
- strupr(str);
- strcat(fname,base41(crc16(str),tmp));
- strcat(fname,base41(user.number,tmp));
- sprintf(str,".%.3s",msg.subj+20);
- strcat(fname,str);
- strupr(fname);
-
- if((out=nopen(fname,O_CREAT|O_WRONLY|O_TRUNC))==-1) {
- printf("Error opening %s\n",fname);
- smb_freemsgmem(&msg);
- continue; }
-
- crc=0xffffffffUL;
- esc=0;
- for(l=0;buf[l]!=CR;l++)
- ;
- buf[l]=0;
- length=ahtoul((char *)buf)^4096;
- l+=2; /* Skip CRLF */
- for(m=0;buf[l] && m<length;l++) {
- ch=buf[l];
- if(ch<SP)
- continue;
- if(ch=='`') {
- if(esc) {
- write(out,&ch,1);
- m++;
- crc=ucrc32(ch,crc);
- esc=0; }
- else
- esc=1;
- continue; }
- if(esc) {
- if(isalpha(ch)) {
- if(isupper(ch))
- ch-='@';
- else if(ch=='g')
- ch=0xe3;
- else if(ch=='h')
- ch=0x8d;
- else if(ch=='i')
- ch=0xee;
- else
- ch=0xfa+(ch-'a'); }
- else
- ch=0xf0+(ch-'0');
- write(out,&ch,1);
- m++;
- crc=ucrc32(ch,crc);
- esc=0;
- continue; }
- if(ch>=0xf0)
- ch&=0xf;
- if(ch==0xee)
- ch=0xff;
- write(out,&ch,1);
- m++;
- crc=ucrc32(ch,crc); }
- close(out);
- crc=~crc;
- crc^=0x05296328L;
- sprintf(str,"%.8s",msg.subj+12);
- smb_freemsgmem(&msg);
- if(crc!=ahtoul(str)) {
- printf("CRC error (%lx != %lx) in %s!\n"
- ,crc, ahtoul(str), fname);
- /* remove(fname); */
- continue;
- }
- sprintf(path,"PHOTO\\%s",fname);
- remove(path); /* remove existing photo with same name */
- mkdir("PHOTO");
- if(rename(fname,path)) {
- printf("Error renaming %s to %s!\n",fname,path);
- /* remove(fname); */
- continue;
- }
- user.misc|=USER_PHOTO;
- fseek(stream,(ftell(index)/sizeof(ixb_t))*sizeof(user_t),SEEK_SET);
- fwrite(&user,sizeof(user_t),1,stream);
- if(!strnicmp(user.system,system,25))
- putsmsg(user.number
- ,"\1n\1h\1mYour photo has been imported into "
- "\1wMatch Maker\1n\7\r\n");
- continue; }
-
- if(!stricmp(msg.subj,"->WALL<-")) {
- buf=smb_getmsgtxt(&smb,&msg,0);
- smb_freemsgmem(&msg);
- if(!buf)
- continue;
- memset(&wall,0,sizeof(wall_t));
- hp=buf;
- while(*hp && *hp<SP) hp++;
- for(i=0;*hp>=SP && i<25;i++,hp++)
- wall.name[i]=*hp;
- wall.name[i]=0;
- hp+=2; /* Skip CRLF */
- for(i=0;*hp>=SP && i<40;i++,hp++)
- wall.system[i]=*hp;
- wall.system[i]=0;
- hp+=2; /* Skip CRLF */
- for(i=0;i<5;i++) {
- for(j=0;*hp>=SP && j<70;j++,hp++)
- wall.text[i][j]=*hp;
- wall.text[i][j]=0;
- hp+=2; }
-
- wall.written=ahtoul((char *)hp);
- wall.imported=time(NULL);
- FREE((char *)buf);
- decrypt(wall.name,wall.written);
- decrypt(wall.system,wall.written);
- for(i=0;i<5;i++) {
- decrypt(wall.text[i],wall.written);
- if(trash(wall.text[i])) {
- printf("Rejected: Wall writing found in trash!\n");
- break; } }
- if(i<5)
- continue;
- if((wallfile=sopen("WALL.DAB",O_WRONLY|O_BINARY|O_CREAT,SH_DENYNO
- ,S_IWRITE|S_IREAD))==-1) {
- printf("Couldn't open WALL.DAB!\n");
- continue; }
- lseek(wallfile,0L,SEEK_END);
- write(wallfile,&wall,sizeof(wall_t));
- close(wallfile);
- continue; }
-
- if(wallonly) {
- smb_freemsgmem(&msg);
- continue; }
-
- if(!stricmp(msg.subj,"->ALL<-")
- || !stricmp(msg.subj,"->SYS<-")
- || !stricmp(msg.subj,"->ONE<-")) {
- sprintf(str,"%.3s%05lu.MSG",msg.subj+2,msg.idx.number);
- buf=smb_getmsgtxt(&smb,&msg,0);
- smb_freemsgmem(&msg);
- if(!buf)
- continue;
- l=ahtoul((char *)buf);
- if(!l)
- continue;
- for(i=0;buf[i];i++)
- if(buf[i]==LF)
- break;
- if(buf[i]!=LF)
- continue;
- if((msgfile=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- printf("error opening %s\n",str);
- continue; }
- if((tmpfile=fdopen(msgfile,"wb"))==NULL) {
- close(msgfile);
- printf("error fdopening %s\n",str);
- continue; }
- fprintf(tmpfile,"%08lx\r\n",l);
- l^=0x305F6C81UL;
- for(i++;buf[i];i++)
- fputc(cryptchar(buf[i],l^(i&7)),tmpfile);
- fclose(tmpfile);
- putsmsg(1,"\1n\1h\1mNew announcement in \1wMatch Maker\1n\7\r\n");
- continue; }
-
-
- j=strlen(msg.subj);
- for(i=0;i<j;i++)
- if(!isdigit(msg.subj[i]))
- break;
- if(i<j) { /* at least one non-digit, must be telegram */
- if(strnicmp(msg.subj,system,25)) {
- smb_freemsgmem(&msg);
- continue; }
- buf=smb_getmsgtxt(&smb,&msg,0);
- smb_freemsgmem(&msg);
- if(!buf)
- continue;
- l=0;
- while(buf[l] && buf[l]!='}') /* Find first text on line */
- l++;
- if(!buf[l] || !buf[++l]) {
- FREE(buf);
- continue; }
- touser=ahtoul((char *)buf+l);
- while(buf[l] && buf[l]>=SP) /* Go to end of line */
- l++;
- while(buf[l] && buf[l]<=SP) /* next line */
- l++;
- i=0;
- while(buf[l]) {
- if(buf[l]==LF && buf[l+1]==CR) { /* blank line */
- telegram[i++]=LF;
- break; }
- telegram[i++]=buf[l++]; }
- telegram[i]=0;
- decrypt(telegram,touser);
- printf("Telegram to %u\n",touser);
- if(trash(telegram))
- printf("Rejected: Contents in trash!\n");
- else {
- putsmsg(touser,TGRAM_NOTICE);
- puttgram(touser,telegram); }
- FREE(buf);
- continue;
- }
-
- if(tgramonly) {
- smb_freemsgmem(&msg);
- continue; }
-
- if(!msg.from[0]) {
- smb_freemsgmem(&msg);
- printf("Blank 'from' field.\n");
- continue; }
-
- l=atol(msg.subj);
- if(!l || l>65535L) {
- smb_freemsgmem(&msg);
- printf("Invalid profile.\n");
- continue; }
- fprintf(stderr,"Searching for %lu @ %s",l,msg.from);
- sprintf(str,"%.25s",msg.from);
- strupr(str);
- system_crc=crc32(str);
-
- rewind(index);
- memset(&user,0,sizeof(user_t));
- while(1) {
- if(!fread(&ixb,sizeof(ixb_t),1,index)) {
- memset(&user,0,sizeof(user_t));
- break; }
- if(ixb.number==l && ixb.system==system_crc) {
- fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
- fseek(stream,(ftell(index)/sizeof(ixb_t))*sizeof(user_t),SEEK_SET);
- fread(&user,sizeof(user_t),1,stream);
- if(!(user.misc&USER_FROMSMB)) {
- memset(&user,0,sizeof(user_t));
- fread(&ixb,sizeof(ixb_t),1,index);
- continue; }
- break; } }
- fprintf(stderr,"\n");
-
- if(!user.number) {
- fprintf(stderr,"Searching for unused record...");
- rewind(index);
- while(1) { /* Find deleted record */
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(ixb.number==0) {
- fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
- break; } }
- user.created=time(NULL);
- user.number=l;
- sprintf(user.system,"%-.40s",msg.from);
- fprintf(stderr,"\n"); }
-
- fseek(stream,(ftell(index)/sizeof(ixb_t))*sizeof(user_t),SEEK_SET);
- user.updated=time(NULL);
- user.misc|=USER_FROMSMB;
- buf=smb_getmsgtxt(&smb,&msg,0);
- l=0;
- while(buf[l]) {
- while(buf[l] && buf[l]<=SP) /* Find first text on line */
- l++;
- if(!strnicmp((char *)buf+l,"0:",2)) {
- l+=2;
- sprintf(user.name,"%-.25s",(char *)buf+l);
- truncsp(user.name);
- decrypt(user.name,user.number); }
- if(!strnicmp((char *)buf+l,"1:",2)) {
- l+=2;
- sprintf(user.realname,"%-.25s",(char *)buf+l);
- truncsp(user.realname);
- decrypt(user.realname,user.number); }
- if(!strnicmp((char *)buf+l,"2:",2)) {
- l+=2;
- sprintf(user.birth,"%-.8s",(char *)buf+l);
- decrypt(user.birth,user.number); }
- if(!strnicmp((char *)buf+l,"3:",2)) {
- l+=2;
- sprintf(user.location,"%-.30s",(char *)buf+l);
- truncsp(user.location);
- decrypt(user.location,user.number); }
- if(!strnicmp((char *)buf+l,"4:",2)) {
- l+=2;
- sprintf(user.zipcode,"%-.10s",(char *)buf+l);
- truncsp(user.zipcode);
- decrypt(user.zipcode,user.number); }
- if(!strnicmp((char *)buf+l,"5:",2)) {
- l+=2;
- sprintf(user.min_zipcode,"%-.10s",(char *)buf+l);
- truncsp(user.min_zipcode);
- decrypt(user.min_zipcode,user.number); }
- if(!strnicmp((char *)buf+l,"6:",2)) {
- l+=2;
- sprintf(user.max_zipcode,"%-.10s",(char *)buf+l);
- truncsp(user.max_zipcode);
- decrypt(user.max_zipcode,user.number); }
- if(!strnicmp((char *)buf+l,"7:",2)) {
- l+=2;
- sprintf(user.mbtype,"%-.4s",(char *)buf+l);
- truncsp(user.mbtype);
- decrypt(user.mbtype,user.number); }
-
- if(!strnicmp((char *)buf+l,"A:",2)) {
- l+=2;
- sprintf(user.note[0],"%-.50s",(char *)buf+l);
- truncsp(user.note[0]);
- decrypt(user.note[0],user.number); }
- if(!strnicmp((char *)buf+l,"B:",2)) {
- l+=2;
- sprintf(user.note[1],"%-.50s",(char *)buf+l);
- truncsp(user.note[1]);
- decrypt(user.note[1],user.number); }
- if(!strnicmp((char *)buf+l,"C:",2)) {
- l+=2;
- sprintf(user.note[2],"%-.50s",(char *)buf+l);
- truncsp(user.note[2]);
- decrypt(user.note[2],user.number); }
- if(!strnicmp((char *)buf+l,"D:",2)) {
- l+=2;
- sprintf(user.note[3],"%-.50s",(char *)buf+l);
- truncsp(user.note[3]);
- decrypt(user.note[3],user.number); }
- if(!strnicmp((char *)buf+l,"E:",2)) {
- l+=2;
- sprintf(user.note[4],"%-.50s",(char *)buf+l);
- truncsp(user.note[4]);
- decrypt(user.note[4],user.number); }
-
- if(!strnicmp((char *)buf+l,"F:",2)) {
- l+=2;
- user.sex=buf[l];
- user.pref_sex=buf[l+1]; }
-
- if(!strnicmp((char *)buf+l,"G:",2)) {
- l+=2;
- user.marital=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"H:",2)) {
- l+=2;
- user.pref_marital=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"I:",2)) {
- l+=2;
- user.race=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"J:",2)) {
- l+=2;
- user.pref_race=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"K:",2)) {
- l+=2;
- user.hair=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"L:",2)) {
- l+=2;
- user.pref_hair=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"M:",2)) {
- l+=2;
- user.eyes=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"N:",2)) {
- l+=2;
- user.pref_eyes=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"O:",2)) {
- l+=2;
- user.weight=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"P:",2)) {
- l+=2;
- user.min_weight=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"Q:",2)) {
- l+=2;
- user.max_weight=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"R:",2)) {
- l+=2;
- user.height=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"S:",2)) {
- l+=2;
- user.min_height=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"T:",2)) {
- l+=2;
- user.max_height=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"U:",2)) {
- l+=2;
- user.min_age=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"V:",2)) {
- l+=2;
- user.max_age=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"W:",2)) {
- l+=2;
- user.purity=ahtoul((char *)buf+l); }
-
- if(!strnicmp((char *)buf+l,"X:",2)) {
- l+=2;
- user.income=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"Y:",2)) {
- l+=2;
- user.min_income=ahtoul((char *)buf+l); }
- if(!strnicmp((char *)buf+l,"Z:",2)) {
- l+=2;
- user.max_income=ahtoul((char *)buf+l); }
-
- if(toupper(buf[l])=='*' && isdigit(buf[l+1])) { /* Questionnaires */
- i=buf[l+1]-'0';
- l+=2;
- sprintf(user.queans[i].name,"%-.8s",(char *)buf+l);
- truncsp(user.queans[i].name);
- decrypt(user.queans[i].name,user.number);
- while(buf[l] && buf[l]>=SP) l++; /* Go to end of line */
- for(j=0;j<20;j++) {
- while(buf[l] && buf[l]<=SP) l++;
- user.queans[i].self[j]=ahtoul((char *)buf+l);
- l+=5;
- user.queans[i].pref[j]=ahtoul((char *)buf+l);
- l+=5; } }
-
- while(buf[l] && buf[l]>=SP) /* Go to end of line */
- l++; }
-
- if(getage(user.birth)<min_age) /* Too young */
- printf("Rejected: User's age (%u) less than minimum age (%u)\n"
- ,getage(user.birth),min_age);
- else if(user.name[0]<SP || user.realname[0]<SP || user.system[0]<SP
- || user.location[0]<SP || user.zipcode[0]<SP || user.birth[0]<SP)
- printf("Rejected: Invalid user string\n");
- else if(trash(user.name))
- printf("Rejected: User's name (%s) in trash!\n",user.name);
- else if(trash(user.location))
- printf("Rejected: User's location (%s) in trash!\n",user.location);
- else if(trash(user.note[0]) || trash(user.note[1]) || trash(user.note[2])
- || trash(user.note[3]) || trash(user.note[4]))
- printf("Rejected: User's personal text in trash!\n");
- else {
- fwrite(&user,sizeof(user_t),1,stream);
- strupr(user.name);
- ixb.name=crc32(user.name);
- strupr(user.system);
- user.system[25]=0;
- ixb.system=crc32(user.system);
- ixb.number=user.number;
- ixb.updated=user.updated;
- fwrite(&ixb,sizeof(ixb_t),1,index); }
- FREE((char *)buf);
- smb_freemsgmem(&msg);
- }
-
-lseek(file,0L,SEEK_SET);
-write(file,&high,4);
-close(file);
-return(0);
-}
-
diff --git a/src/sbbs2/smm/smm.c b/src/sbbs2/smm/smm.c
deleted file mode 100644
index d71d05826691f6b6268664d0f8c18317f4a9c590..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smm.c
+++ /dev/null
@@ -1,3993 +0,0 @@
-/* SMM.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Synchronet Match Maker */
-
-#include "xsdk.h"
-#include "crc32.h"
-#include "smmdefs.h"
-#include "smmvars.c"
-
-/* RCIOLL.ASM */
-
-int rioini(int com,int irq); /* initialize com,irq */
-int setbaud(int rate); /* set baud rate */
-int rioctl(int action); /* remote i/o control */
-int dtr(char onoff); /* set/reset dtr */
-int outcom(int ch); /* send character */
-int incom(void); /* receive character */
-int ivhctl(int intcode); /* local i/o redirection */
-
-/************************/
-/* Remote I/O Constants */
-/************************/
-
- /* i/o mode and state flags */
-#define CTSCK 0x1000 /* check cts (mode only) */
-#define RTSCK 0x2000 /* check rts (mode only) */
-#define TXBOF 0x0800 /* transmit buffer overflow (outcom only) */
-#define ABORT 0x0400 /* check for ^C (mode), aborting (state) */
-#define PAUSE 0x0200 /* check for ^S (mode), pausing (state) */
-#define NOINP 0x0100 /* input buffer empty (incom only) */
-
- /* status flags */
-#define RIODCD 0x80 /* DCD on */
-#define RI 0x40 /* Ring indicate */
-#define DSR 0x20 /* Dataset ready */
-#define CTS 0x10 /* CTS on */
-#define FERR 0x08 /* Frameing error */
-#define PERR 0x04 /* Parity error */
-#define OVRR 0x02 /* Overrun */
-#define RXLOST 0x01 /* Receive buffer overflow */
-
-/* rioctl() arguments */
-/* returns mode or state flags in high 8 bits, status flags in low 8 bits */
-
- /* the following return mode in high 8 bits */
-#define IOMODE 0 /* no operation */
-#define IOSM 1 /* i/o set mode flags */
-#define IOCM 2 /* i/o clear mode flags */
- /* the following return state in high 8 bits */
-#define IOSTATE 4 /* no operation */
-#define IOSS 5 /* i/o set state flags */
-#define IOCS 6 /* i/o clear state flags */
-#define IOFB 0x308 /* i/o buffer flush */
-#define IOFI 0x208 /* input buffer flush */
-#define IOFO 0x108 /* output buffer flush */
-#define IOCE 9 /* i/o clear error flags */
-
- /* return count (16bit) */
-#define RXBC 0x0a /* get receive buffer count */
-#define TXBC 0x0b /* get transmit buffer count */
-#define TXSYNC 0x0c /* sync transmition (seconds<<8|0x0c) */
-#define IDLE 0x0d /* suspend communication routines */
-#define RESUME 0x10d /* return from suspended state */
-#define RLERC 0x000e /* read line error count and clear */
-#define CPTON 0x0110 /* set input translation flag for ctrl-p on */
-#define CPTOFF 0x0010 /* set input translation flag for ctrl-p off */
-#define GETCPT 0x8010 /* return the status of ctrl-p translation */
-#define MSR 0x0011 /* read modem status register */
-#define FIFOCTL 0x0012 /* FIFO UART control */
-#define TSTYPE 0x0013 /* Time-slice API type */
-#define GETTST 0x8013 /* Get Time-slice API type */
-
-
-#define I14DB 0x001d /* DigiBoard int 14h driver */
-#define I14PC 0x011d /* PC int 14h driver */
-#define I14PS 0x021d /* PS/2 int 14h driver */
-#define I14FO 0x031d /* FOSSIL int 14h driver */
-
-
- /* ivhctl() arguments */
-#define INT29R 1 /* copy int 29h output to remote */
-#define INT29L 2 /* Use _putlc for int 29h */
-#define INT16 0x10 /* return remote chars to int 16h calls */
-#define INTCLR 0 /* release int 16h, int 29h */
-
-#define CLREOL 256 /* Character to erase to end of line */
-#define HIGH 8 /* High intensity for curatr */
-
-extern uint riobp;
-extern int mswtyp;
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-int cbreakh(void); /* ctrl-break handler */
-
-char getage(char *birth);
-char long_user_info(user_t user);
-void main_user_info(user_t user);
-
-char *nulstr="";
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-char tmp[256],door_sys[128];
-
-char io_int=0;
-struct date date;
-struct time curtime;
-time_t now;
-int smm_pause=1,node_scrnlen;
-questionnaire_t *que[5];
-int total_ques;
-user_t useron,tmpuser;
-ixb_t ixb;
-ulong useron_record,system_crc;
-FILE *stream,*index,*trashfile;
-
-char *PrevReadSendQuitOrMore="\r\n\1n\1b\1h[\1cP\1b]revious screen, "
- "[\1cR\1b]ead profile, [\1cS\1b]end telegram, [\1cQ\1b]uit, or "
- "[\1cM\1b]ore: \1w";
-
-int intocm(int in)
-{
-return(in*2.538071);
-}
-
-int cmtoin(int cm)
-{
- int i;
-
-i=cm*0.394;
-if(((float)cm*0.394)-(float)i>=.5)
- i++;
-return(i);
-}
-
-int kgtolp(int kg)
-{
-return(kg*2.2046);
-}
-
-int lptokg(int lp)
-{
- int i;
-
-i=lp*0.453597;
-if(((float)lp*0.453597)-(float)i>=.5)
- i++;
-return(i);
-}
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...) {
- char sbuf[256];
- int chcount;
-
-chcount=vsprintf(sbuf,fmat,_va_ptr);
-lputs(sbuf);
-return(chcount);
-}
-
-/*****************************************************************************/
-/* Returns command line generated from instr with %c replacments */
-/*****************************************************************************/
-char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr)
-{
- static char static_cmd[128];
- char str[256],str2[128],*cmd;
- int i,j,len;
-
-if(outstr==NULL)
- cmd=static_cmd;
-else
- cmd=outstr;
-len=strlen(instr);
-for(i=j=0;i<len && j<128;i++) {
- if(instr[i]=='%') {
- i++;
- cmd[j]=0;
- switch(toupper(instr[i])) {
- case 'A': /* User alias */
- strcat(cmd,user_name);
- break;
- case 'B': /* Baud (DTE) Rate */
- strcat(cmd,ultoa(com_rate,str,10));
- break;
- case 'C': /* Connect Description */
- strcat(cmd,ultoa(user_dce,str,10));
- break;
- case 'F': /* File path */
- strcat(cmd,fpath);
- break;
- case 'G': /* Temp directory */
- strcat(cmd,temp_dir);
- break;
- case 'I': /* UART IRQ Line */
- strcat(cmd,itoa(com_irq,str,10));
- break;
- case 'J':
- strcat(cmd,data_dir);
- break;
- case 'K':
- strcat(cmd,ctrl_dir);
- break;
- case 'N': /* Node Directory (same as SBBSNODE environment var) */
- strcat(cmd,node_dir);
- break;
- case 'O': /* SysOp */
- strcat(cmd,sys_op);
- break;
- case 'P': /* COM Port */
- strcat(cmd,itoa(com_port,str,10));
- break;
- case 'Q': /* QWK ID */
- strcat(cmd,sys_id);
- break;
- case 'R': /* Rows */
- strcat(cmd,itoa(user_rows,str,10));
- break;
- case 'S': /* File Spec */
- strcat(cmd,fspec);
- break;
- case 'T': /* Time left in seconds */
- strcat(cmd,itoa(time(NULL)-starttime,str,10));
- break;
- case 'U': /* UART I/O Address (in hex) */
- strcat(cmd,itoa(com_base,str,16));
- break;
- case 'W': /* Time-slice API type (mswtype) */
-#ifndef __OS2__
- strcat(cmd,itoa(mswtyp,str,10));
-#endif
- break;
- case '&': /* Address of msr */
- sprintf(str,"%lu",&riobp-1);
- strcat(cmd,str);
- break;
- case 'Z':
- strcat(cmd,text_dir);
- break;
- case '!': /* EXEC Directory */
- strcat(cmd,exec_dir);
- break;
- case '#': /* Node number (same as SBBSNNUM environment var) */
- sprintf(str,"%d",node_num);
- strcat(cmd,str);
- break;
- case '*':
- sprintf(str,"%03d",node_num);
- strcat(cmd,str);
- break;
- case '$': /* Credits */
- strcat(cmd,ultoa(user_cdt,str,10));
- break;
- case '%': /* %% for percent sign */
- strcat(cmd,"%");
- break;
- default: /* unknown specification */
- if(isdigit(instr[i])) {
- sprintf(str,"%0*d",instr[i]&0xf,user_number);
- strcat(cmd,str); }
- break; }
- j=strlen(cmd); }
- else
- cmd[j++]=instr[i]; }
-cmd[j]=0;
-
-return(cmd);
-}
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-int cdt_warning(long cdt)
-{
-if(cdt==0)
- return(1);
-if(cdt>0) {
- bprintf("\1m\1hYou will receive \1w%luk\1m in credits for this action!\r\n"
- ,cdt/1024L);
- return(1); }
-
-bprintf("\1m\1hThis action will cost you \1w%luk\1m in credits.",(-cdt)/1024L);
-if(user_cdt+cdt_adjustment<-cdt) {
- bprintf("\r\n\r\n\1r\1hSorry, you only have \1w%luk\1m in credits.\r\n"
- ,(user_cdt+cdt_adjustment)/1024L);
- return(0); }
-return(!noyes(" Continue"));
-}
-
-void adjust_cdt(long cdt)
-{
-if(cdt==0)
- return;
-cdt_adjustment+=cdt;
-}
-
-int got_flags(char *req, char *got)
-{
- int i,j;
-
-for(i=0;req[i];i++) {
- for(j=0;got[j];j++)
- if(req[i]==got[j])
- break;
- if(!got[j])
- break; }
-if(!req[i])
- return(1);
-return(0);
-}
-
-int can_add()
-{
- uchar age=getage(user_birth);
-
-if(user_level<min_level || (age && getage(user_birth)<min_age)
- || !got_flags(req_flags1,user_flags1)
- || !got_flags(req_flags2,user_flags2)
- || !got_flags(req_flags3,user_flags3)
- || !got_flags(req_flags4,user_flags4)
- )
- return(0);
-return(1);
-}
-
-
-int trash(char *instr)
-{
- char str[128],word[128];
-
-if(!trashfile)
- return(0);
-strcpy(str,instr);
-strupr(str);
-rewind(trashfile);
-while(!ferror(trashfile)) {
- if(!fgets(word,125,trashfile))
- break;
- truncsp(word);
- if(!word[0])
- continue;
- strupr(word);
- if(strstr(str,word))
- return(1); }
-return(0);
-}
-
-long fdate_dir(char *filespec)
-{
- struct ffblk f;
- struct date fd;
- struct time ft;
-
-if(findfirst(filespec,&f,FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC)==NULL) {
- fd.da_day=f.ff_fdate&0x1f;
- fd.da_mon=(f.ff_fdate>>5)&0xf;
- fd.da_year=1980+((f.ff_fdate>>9)&0x7f);
- ft.ti_hour=(f.ff_ftime>>11)&0x1f;
- ft.ti_min=(f.ff_ftime>>5)&0x3f;
- ft.ti_sec=(f.ff_ftime&0xf)*2;
- return(dostounix(&fd,&ft)); }
-else return(NULL);
-}
-
-/****************************************************************************/
-/* Generates a 24 character ASCII string that represents the time_t pointer */
-/* Used as a replacement for ctime() */
-/****************************************************************************/
-char *timestr(time_t *intime)
-{
- static char str[256];
- char mer[3],hour;
- struct tm *gm;
-
-gm=localtime(intime);
-if(gm->tm_hour>=12) {
- if(gm->tm_hour==12)
- hour=12;
- else
- hour=gm->tm_hour-12;
- strcpy(mer,"pm"); }
-else {
- if(gm->tm_hour==0)
- hour=12;
- else
- hour=gm->tm_hour;
- strcpy(mer,"am"); }
-sprintf(str,"%s %s %02d %4d %02d:%02d %s"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
- ,hour,gm->tm_min,mer);
-return(str);
-}
-
-
-void puttgram(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
-
-sprintf(str,"%4.4u.MSG",usernumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- printf("\7Error opening/creating %s for creat/append access\n",str);
- return; }
-i=strlen(strin);
-if(write(file,strin,i)!=i) {
- close(file);
- printf("\7Error writing %u bytes to %s\n",i,str);
- return; }
-close(file);
-}
-
-
-int send_telegram(user_t user)
-{
- uchar str[256],line[256],buf[1024];
- int i;
-
-if(!useron.number) {
- bputs("\r\n\1h\1rYou must create a profile first.\r\n");
- pause();
- return(1); }
-
-if(user_level<telegram_level) {
- bputs("\r\n\1h\1rYou have insufficient access to send telegrams."
- "\r\n");
- pause();
- return(1); }
-
-main_user_info(user);
-CRLF;
-if(!cdt_warning(telegram_cdt))
- return(0);
-if(telegram_cdt)
- CRLF;
-bprintf("\1n\1hSending a telegram to \1y%s\1w:\r\n\r\n"
- ,user.name);
-now=time(NULL);
-memset(buf,0,512);
-sprintf(buf,"\1n\1c\1hMatch Maker\1b telegram from \1c%s\1b "
- "on %s:\1y\r\n"
- ,useron.name,timestr(&now));
-for(i=0;i<5 && !aborted;i++) {
- bprintf("\1n\1h\1g%u of 5: \1n\1g",i+1);
- if(!getstr(line,70,i==4 ? K_MSG:K_MSG|K_WRAP))
- break;
- sprintf(str,"\1n\1g%4s%s\r\n",nulstr,line);
- strcat(buf,str); }
-if(!i || aborted || !yesno("\r\nSave"))
- return(0);
-if(!(user.misc&USER_FROMSMB)) {
- putsmsg(user.number,TGRAM_NOTICE);
- puttgram(user.number,buf); }
-else {
- if((i=nopen("TELEGRAM.DAB",O_WRONLY|O_CREAT|O_APPEND|SH_DENYNO))
- ==-1) {
- bprintf("\r\n\1r\1h\1iError writing telegram!\r\n");
- pause();
- return(1); }
- write(i,useron.system,sizeof(useron.system));
- write(i,user.system,sizeof(user.system));
- write(i,&user.number,sizeof(user.number));
- write(i,buf,512);
- close(i); }
-adjust_cdt(telegram_cdt);
-if(notify_user && notify_user!=user_number) {
- sprintf(str,"\1n\1hSMM: \1y%s\1m sent a telegram to \1y%s\1m "
- "from the Match Maker\r\n",user_name,user.name);
- if(node_dir[0])
- putsmsg(notify_user,str);
- else
- puttgram(notify_user,str); }
-return(1);
-}
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
-
-if(!strcmp(str,"00/00/00") || !str[0])
- return(NULL);
-curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
-if(str[6]<'7')
- date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
-else
- date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
-date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
-date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
-return(dostounix(&date,&curtime));
-}
-
-/****************************************************************************/
-/* Returns the age derived from the string 'birth' in the format MM/DD/YY */
-/****************************************************************************/
-char getage(char *birth)
-{
- char age;
-
-if(birth[0]<=SP)
- return(0);
-getdate(&date);
-age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf));
-if(age>90)
- age-=90;
-if(atoi(birth)>12 || atoi(birth+3)>31)
- return(0);
-if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon ||
- (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon &&
- ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day))
- age--;
-if(age<0)
- return(0);
-return(age);
-}
-
-char marital_ch(char user_marital)
-{
-switch(user_marital) {
- case MARITAL_SINGLE:
- return('S');
- case MARITAL_DIVORCED:
- return('D');
- case MARITAL_MARRIED:
- return('M');
- case MARITAL_WIDOWED:
- return('W');
- case MARITAL_OTHER:
- return('O'); }
-if(user_marital)
- return('*');
-return(SP);
-}
-
-char race_ch(char user_race)
-{
-switch(user_race) {
- case RACE_WHITE:
- return('W');
- case RACE_BLACK:
- return('B');
- case RACE_HISPANIC:
- return('H');
- case RACE_AMERINDIAN:
- return('I');
- case RACE_ASIAN:
- return('A');
- case RACE_MIDEASTERN:
- return('M');
- case RACE_OTHER:
- return('O'); }
-if(user_race)
- return('*');
-return(SP);
-}
-
-char *hair(char user_hair)
-{
-switch(user_hair) {
- case HAIR_BLONDE:
- return("BLN");
- case HAIR_BROWN:
- return("BRN");
- case HAIR_RED:
- return("RED");
- case HAIR_BLACK:
- return("BLK");
- case HAIR_GREY:
- return("GRY");
- case HAIR_OTHER:
- return("OTH"); }
-if(user_hair)
- return("*");
-return(nulstr);
-}
-
-char *eyes(char user_eyes)
-{
-switch(user_eyes) {
- case EYES_BLUE:
- return("BLU");
- case EYES_BROWN:
- return("BRN");
- case EYES_GREEN:
- return("GRN");
- case EYES_HAZEL:
- return("HAZ");
- case EYES_OTHER:
- return("OTH"); }
-if(user_eyes)
- return("*");
-return(nulstr);
-}
-
-char *marital(char user_marital)
-{
-switch(user_marital) {
- case MARITAL_SINGLE:
- return("Single");
- case MARITAL_MARRIED:
- return("Married");
- case MARITAL_DIVORCED:
- return("Divorced");
- case MARITAL_WIDOWED:
- return("Widowed");
- case MARITAL_OTHER:
- return("Other"); }
-if(user_marital)
- return("*");
-return(nulstr);
-}
-
-char *race(char user_race)
-{
-switch(user_race) {
- case RACE_WHITE:
- return("White");
- case RACE_BLACK:
- return("Black");
- case RACE_HISPANIC:
- return("Hispanic");
- case RACE_ASIAN:
- return("Asian");
- case RACE_AMERINDIAN:
- return("American Indian");
- case RACE_MIDEASTERN:
- return("Middle Eastern");
- case RACE_OTHER:
- return("Other"); }
-if(user_race)
- return("*");
-return(nulstr);
-}
-
-ushort getzodiac(char *birth)
-{
-if((!strncmp(birth,"03",2) && atoi(birth+3)>=21)
- || (!strncmp(birth,"04",2) && atoi(birth+3)<=19))
- return(ZODIAC_ARIES);
-if((!strncmp(birth,"04",2) && atoi(birth+3)>=20)
- || (!strncmp(birth,"05",2) && atoi(birth+3)<=20))
- return(ZODIAC_TAURUS);
-if((!strncmp(birth,"05",2) && atoi(birth+3)>=21)
- || (!strncmp(birth,"06",2) && atoi(birth+3)<=20))
- return(ZODIAC_GEMINI);
-if((!strncmp(birth,"06",2) && atoi(birth+3)>=21)
- || (!strncmp(birth,"07",2) && atoi(birth+3)<=22))
- return(ZODIAC_CANCER);
-if((!strncmp(birth,"07",2) && atoi(birth+3)>=23)
- || (!strncmp(birth,"08",2) && atoi(birth+3)<=22))
- return(ZODIAC_LEO);
-if((!strncmp(birth,"08",2) && atoi(birth+3)>=23)
- || (!strncmp(birth,"09",2) && atoi(birth+3)<=22))
- return(ZODIAC_VIRGO);
-if((!strncmp(birth,"09",2) && atoi(birth+3)>=23)
- || (!strncmp(birth,"10",2) && atoi(birth+3)<=22))
- return(ZODIAC_LIBRA);
-if((!strncmp(birth,"10",2) && atoi(birth+3)>=23)
- || (!strncmp(birth,"11",2) && atoi(birth+3)<=21))
- return(ZODIAC_SCORPIO);
-if((!strncmp(birth,"11",2) && atoi(birth+3)>=22)
- || (!strncmp(birth,"12",2) && atoi(birth+3)<=21))
- return(ZODIAC_SAGITTARIUS);
-if((!strncmp(birth,"12",2) && atoi(birth+3)>=22)
- || (!strncmp(birth,"01",2) && atoi(birth+3)<=19))
- return(ZODIAC_CAPRICORN);
-if((!strncmp(birth,"01",2) && atoi(birth+3)>=20)
- || (!strncmp(birth,"02",2) && atoi(birth+3)<=18))
- return(ZODIAC_AQUARIUS);
-if((!strncmp(birth,"02",2) && atoi(birth+3)>=19)
- || (!strncmp(birth,"03",2) && atoi(birth+3)<=20))
- return(ZODIAC_PISCES);
-return(0xff);
-}
-
-char *zodiac(short user_zodiac)
-{
-switch(user_zodiac)
-{
- case ZODIAC_ARIES:
- return("Aries");
- case ZODIAC_TAURUS:
- return("Taurus");
- case ZODIAC_GEMINI:
- return("Gemini");
- case ZODIAC_CANCER:
- return("Cancer");
- case ZODIAC_LEO:
- return("Leo");
- case ZODIAC_VIRGO:
- return("Virgo");
- case ZODIAC_LIBRA:
- return("Libra");
- case ZODIAC_SCORPIO:
- return("Scorpio");
- case ZODIAC_SAGITTARIUS:
- return("Sagittarius");
- case ZODIAC_CAPRICORN:
- return("Capricorn");
- case ZODIAC_AQUARIUS:
- return("Aquarius");
- case ZODIAC_PISCES:
- return("Pisces"); }
-return(nulstr);
-}
-
-short ans2bits(char *str)
-{
- int i,j;
- ushort bits=0;
-
-j=strlen(str);
-for(i=0;i<j;i++) {
- if(str[i]=='*')
- return(0xffff);
- bits|=(1<<str[i]-'A'); }
-return(bits);
-}
-
-uchar ans2uchar(char *str)
-{
- int i,j;
- uchar bits=0;
-
-j=strlen(str);
-for(i=0;i<j;i++) {
- if(str[i]=='*')
- return(0xff);
- bits|=(1<<str[i]-'A'); }
-return(bits);
-}
-
-
-void bits2ans(ushort bits, char *str)
-{
- char tmp[25];
- int i;
-
-str[0]=0;
-if(bits==0xffff) {
- strcpy(str,"*");
- return; }
-for(i=0;i<16;i++)
- if(bits&(1<<i)) {
- tmp[0]='A'+i;
- tmp[1]=0;
- strcat(str,tmp); }
-}
-
-void bits2str(ushort user, char *str)
-{
- int i;
-
-str[0]=0;
-if(user==0xffff) {
- strcpy(str,"*");
- return; }
-for(i=0;i<16;i++)
- if(user&(1<<i))
- str[i]='A'+i;
- else
- str[i]=SP;
-str[i]=0;
-}
-
-void uchar2ans(uchar bits, char *str)
-{
- char tmp[25];
- int i;
-
-str[0]=0;
-if(bits==0xff) {
- strcpy(str,"*");
- return; }
-for(i=0;i<8;i++)
- if(bits&(1<<i)) {
- tmp[0]='A'+i;
- tmp[1]=0;
- strcat(str,tmp); }
-}
-
-int basic_match(user_t user, user_t mate)
-{
- int max=0,match=0,age=getage(mate.birth),zodiac=getzodiac(mate.birth);
-
-if(user.pref_sex!='*' && user.pref_sex!=mate.sex
- && !(user.misc&USER_FRIEND))
- return(0);
-
-if(zodiac&user.pref_zodiac) match++;
-else if(user.misc&USER_REQZODIAC)
- return(0);
-if(zodiac==user.pref_zodiac) match++;
-max+=2;
-
-if(stricmp(mate.zipcode,user.min_zipcode)>=0
- && stricmp(mate.zipcode,user.max_zipcode)<=0) match+=2;
-else if(user.misc&USER_REQZIP) return(0);
-max+=2;
-
-if(mate.marital&user.pref_marital) match++;
-else if(user.misc&USER_REQMARITAL)
- return(0);
-if(mate.marital==user.pref_marital) match++;
-max+=2;
-
-if(mate.race&user.pref_race) match++;
-else if(user.misc&USER_REQRACE)
- return(0);
-if(mate.race==user.pref_race) match++;
-max+=2;
-
-if(mate.hair&user.pref_hair) match++;
-else if(user.misc&USER_REQHAIR)
- return(0);
-if(mate.hair==user.pref_hair) match++;
-max+=2;
-
-if(mate.eyes&user.pref_eyes) match++;
-else if(user.misc&USER_REQEYES)
- return(0);
-if(mate.eyes==user.pref_eyes) match++;
-max+=2;
-
-if(age>=user.min_age
- && (!user.max_age || age<=user.max_age)) match+=2;
-else {
- if(user.misc&USER_REQAGE) return(0);
- if(age<user.min_age-((user.max_age-user.min_age)/2)
- || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/2)))
- match-=4;
- else if(age<user.min_age-((user.max_age-user.min_age)/3)
- || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/3)))
- match-=3;
- else if(age<user.min_age-((user.max_age-user.min_age)/4)
- || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/4)))
- match-=2;
- else if(age<user.min_age-((user.max_age-user.min_age)/5)
- || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/5)))
- match--; }
-
-max+=2;
-
-if(mate.weight>=user.min_weight
- && (!user.max_weight || mate.weight<=user.max_weight)) match+=2;
-else {
- if(user.misc&USER_REQWEIGHT) return(0);
- if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/2)
- || (user.max_weight
- && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/2)))
- match-=4;
- else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/3)
- || (user.max_weight
- && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/3)))
- match-=3;
- else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/4)
- || (user.max_weight
- && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/4)))
- match-=2;
- else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/5)
- || (user.max_weight
- && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/5)))
- match--; }
-max+=2;
-
-if(mate.height>=user.min_height
- && (!user.max_height || mate.height<=user.max_height)) match+=2;
-else {
- if(user.misc&USER_REQHEIGHT) return(0);
- if(mate.height<user.min_height-((user.max_height-user.min_height)/2)
- || (user.max_height
- && mate.height>user.max_height+((user.max_height-user.min_height)/2)))
- match-=4;
- else if(mate.height<user.min_height-((user.max_height-user.min_height)/3)
- || (user.max_height
- && mate.height>user.max_height+((user.max_height-user.min_height)/3)))
- match-=3;
- else if(mate.height<user.min_height-((user.max_height-user.min_height)/4)
- || (user.max_height
- && mate.height>user.max_height+((user.max_height-user.min_height)/4)))
- match-=2;
- else if(mate.height<user.min_height-((user.max_height-user.min_height)/5)
- || (user.max_height
- && mate.height>user.max_height+((user.max_height-user.min_height)/5)))
- match--; }
-max+=2;
-
-if(mate.income>=user.min_income
- && (!user.max_income || mate.income==0xffffffffUL
- || mate.income<=user.max_income)) match++;
-else {
- if(user.misc&USER_REQINCOME) return(0);
- if(mate.income<user.min_income-((user.max_income-user.min_income)/2)
- || (user.max_income
- && mate.income>user.max_income+((user.max_income-user.min_income)/2)))
- match-=4;
- else if(mate.income<user.min_income-((user.max_income-user.min_income)/3)
- || (user.max_income
- && mate.income>user.max_income+((user.max_income-user.min_income)/3)))
- match-=3;
- else if(mate.income<user.min_income-((user.max_income-user.min_income)/4)
- || (user.max_income
- && mate.income>user.max_income+((user.max_income-user.min_income)/4)))
- match-=2;
- else if(mate.income<user.min_income-((user.max_income-user.min_income)/5)
- || (user.max_income
- && mate.income>user.max_income+((user.max_income-user.min_income)/5)))
- match--; }
-max++;
-
-if(match<=0)
- return(0);
-
-return(((float)match/max)*100.0);
-}
-
-int sys_quenum(char *name)
-{
- int i;
-
-for(i=0;i<total_ques;i++)
- if(!stricmp(que[i]->name,name))
- break;
-if(i<total_ques)
- return(i);
-return(-1);
-}
-
-int user_quenum(char *name, user_t user)
-{
- int i;
-
-for(i=0;i<5;i++)
- if(!stricmp(user.queans[i].name,name))
- break;
-if(i<5)
- return(i);
-return(-1);
-}
-
-int total_match(user_t user, user_t mate)
-{
- int i,j,s,u,match1,match2,quematches=0,quemax=0,quematch;
-
-match1=basic_match(user,mate);
-if(!match1) return(0);
-match2=basic_match(mate,user);
-if(!match2) return(0);
-
-for(i=0;i<5;i++) {
- if(!user.queans[i].name[0])
- continue;
- s=sys_quenum(user.queans[i].name);
- if(s==-1)
- continue;
- u=user_quenum(user.queans[i].name,mate);
- if(u==-1)
- continue;
- for(j=0;j<que[s]->total_ques;j++) {
- if(user.queans[u].pref[j]&mate.queans[i].self[j]) quematches+=4;
- if(user.queans[u].pref[j]==mate.queans[i].self[j]) quematches+=2;
- if(user.queans[u].self[j]&mate.queans[i].pref[j]) quematches+=2;
- if(user.queans[u].self[j]==mate.queans[i].pref[j]) quematches++;
- quemax+=9; } }
-
-if(!quemax) /* no questionnaires in common */
- return((match1+match1+match1+match1+match2+match2)/6);
-
-quematch=((float)quematches/quemax)*100.0;
-return((match1+match1+match1+match1+match2+match2+quematch)/7);
-}
-
-
-void main_user_info(user_t user)
-{
- char str[128],min[64],max[64];
- int i;
-
-attr(LIGHTGRAY);
-cls();
-if(SYSOP)
- bprintf("\1n\1gReal: \1h%.25s #%lu (%.40s)\r\n"
- ,user.realname,user.number,user.system);
-bprintf("\1n\1gName: \1h%-25.25s \1b%-10s \1c%-15s \1m%s\r\n"
- ,user.name
- ,marital(user.marital),race(user.race)
- ,user.sex=='M' ? "Male":"Female");
-if(smm_misc&SMM_METRIC)
- sprintf(str," %-4u",intocm(user.height));
-else
- sprintf(str,"%2u'%-2u",user.height/12,user.height%12);
-bprintf("\1n\1gHair: \1h%3s \1n\1gEyes: \1h%3s \1n\1gHeight:"
- "\1h%s \1n\1gWeight: \1h%-3u \1n\1gAge: \1h%-3u "
- "\1n\1gZodiac: \1h%s\r\n"
- ,hair(user.hair),eyes(user.eyes),str
- ,smm_misc&SMM_METRIC ? lptokg(user.weight) : user.weight
- ,getage(user.birth),zodiac(getzodiac(user.birth)));
-bprintf("\1n\1gFrom: \1h%-30.30s \1n\1gZip: \1h%-10.10s "
- "\1n\1gIncome: \1h$%sK\1n\1g/year\r\n"
- ,user.location,user.zipcode
- ,user.income==0xffffffffUL ? "?":ultoa(user.income/1000UL,tmp,10));
-if(smm_misc&SMM_METRIC) {
- sprintf(min,"%u",intocm(user.min_height));
- sprintf(max,"%u",intocm(user.max_height)); }
-else {
- sprintf(min,"%u'%u",user.min_height/12,user.min_height%12);
- sprintf(max,"%u'%u",user.max_height/12,user.max_height%12); }
-bprintf("\1n\1gPref: \1h\1%c%c\1%c%c\1m%c \1%c%3u\1n\1g-\1h\1%c%u\1n\1h "
- "\1%c%s \1n\1ghair \1h\1%c%s \1n\1geyes \1h\1%c%s\1n\1g-\1h\1%c%s "
- "\1%c%u\1n\1g-\1h\1%c%u\1n\1glbs \1h\1%c$%luK\1n\1g-\1h\1%c%luK\1n\1%c "
- "\1h%.3s\r\n"
- ,user.misc&USER_REQMARITAL ? 'w':'b'
- ,marital_ch(user.pref_marital)
- ,user.misc&USER_REQRACE ? 'w':'g'
- ,race_ch(user.pref_race)
- ,user.pref_sex
- ,user.misc&USER_REQAGE ? 'w':'g'
- ,user.min_age
- ,user.misc&USER_REQAGE ? 'w':'g'
- ,user.max_age
- ,user.misc&USER_REQHAIR ? 'w':'g'
- ,hair(user.pref_hair)
- ,user.misc&USER_REQEYES ? 'w':'g'
- ,eyes(user.pref_eyes)
- ,user.misc&USER_REQHEIGHT ? 'w':'g'
- ,min
- ,user.misc&USER_REQHEIGHT ? 'w':'g'
- ,max
- ,user.misc&USER_REQWEIGHT ? 'w':'g'
- ,smm_misc&SMM_METRIC ? lptokg(user.min_weight) : user.min_weight
- ,user.misc&USER_REQWEIGHT ? 'w':'g'
- ,smm_misc&SMM_METRIC ? lptokg(user.max_weight) : user.max_weight
- ,user.misc&USER_REQINCOME ? 'w':'g'
- ,user.min_income/1000L
- ,user.misc&USER_REQINCOME ? 'w':'g'
- ,user.max_income/1000L
- ,user.misc&USER_REQZODIAC ? 'w':'g'
- ,zodiac(user.pref_zodiac));
-
-bprintf("\1r\1i%s\1n\1w\1h\r\n",user.misc&USER_PHOTO ? "PHOTO":nulstr);
-for(i=0;i<5;i++) {
- if(!user.note[i][0])
- break;
- bprintf("%15s%.50s\r\n",nulstr,user.note[i]); }
-}
-
-char long_user_info(user_t user)
-{
- char str[128],fname[128],path[128],ch;
- int i,j,k,s,u,max,match1,match2,user_match,mate_match;
-
-while(1) {
-checkline();
-main_user_info(user);
-
-CRLF;
-/**
-if(user.misc&USER_FROMSMB)
- bprintf("\1r\1hImported via message base from \1w%s\1r.\r\n"
- ,user.system);
-**/
-bprintf("\1h\1mThis user meets your profile preferences:\1w%3u%% "
- ,match1=basic_match(useron,user));
-bprintf("\1n\1gCreated: \1h%s\r\n",unixtodstr(user.created,str));
-bprintf("\1h\1mYou meet this user's profile preferences:\1w%3u%% "
- ,match2=basic_match(user,useron));
-bprintf("\1n\1gUpdated: \1h%s\r\n",unixtodstr(user.updated,str));
-
-if(!smm_pause)
- lncntr=0;
-
-CRLF;
-bputs("\1n\1b\1hQuestionnaires:\r\n");
-for(i=0;i<5;i++) {
- max=mate_match=user_match=0;
- if(!user.queans[i].name[0])
- continue;
- s=sys_quenum(user.queans[i].name);
- if(s==-1)
- continue;
- if(que[s]->req_age>getage(useron.birth))
- continue;
- if(match1 && match2)
- u=user_quenum(user.queans[i].name,useron);
- else
- u=-1;
- bprintf("\1h\1c%-25s ",que[s]->desc);
- if(u==-1) {
- CRLF;
- continue; }
- for(j=0;j<que[s]->total_ques;j++) {
- if(useron.queans[u].pref[j]&user.queans[i].self[j]) user_match+=2;
- if(useron.queans[u].pref[j]==user.queans[i].self[j]) user_match++;
- if(useron.queans[u].self[j]&user.queans[i].pref[j]) mate_match+=2;
- if(useron.queans[u].self[j]==user.queans[i].pref[j]) mate_match++;
- max+=3; }
- bprintf("\1n\1c%s matches your pref:\1h%3u%% "
- "\1n\1cYou match %s pref:\1h%3u%%\r\n"
- ,user.sex=='M' ? "He":"She"
- ,(int)(((float)user_match/max)*100.0)
- ,user.sex=='M' ? "his":"her"
- ,(int)(((float)mate_match/max)*100.0)); }
-
-bprintf("\r\n\1r\1hOverall match: \1w%u%%",total_match(useron,user));
-if(user.purity)
- bprintf(" \1r\1hPurity test: \1w%u%%",user.purity);
-if(user.mbtype[0])
- bprintf(" \1r\1hPersonality type: \1w%s",user.mbtype);
-CRLF;
-
-if(aborted) {
- aborted=0;
- return(0); }
-if(!smm_pause) {
- if(kbhit())
- return(0);
- return(1); }
-nodesync();
-if(lncntr>=user_rows-2)
- lncntr=0;
-CRLF;
-bputs("\1h\1b[\1cV\1b]iew questionnaires, ");
-if(user.misc&USER_PHOTO)
- bputs("[\1cD\1b]ownload photo, ");
-bputs("[\1cS\1b]end telegram, [\1cQ\1b]uit, or [Next]: \1c");
-strcpy(str,"VSQN\r");
-if(user.misc&USER_PHOTO)
- strcat(str,"D");
-if(SYSOP)
- strcat(str,"+");
-switch(getkeys(str,0)) {
- case '+':
- user.misc|=USER_PHOTO;
- break;
- case 'Q':
- return(0);
- case CR:
- case 'N':
- return(1);
- case 'D':
- if(!useron.number) {
- bputs("\r\n\1h\1rYou must create a profile first.\r\n");
- pause();
- break; }
- if(!(useron.misc&USER_PHOTO)) {
- bputs("\r\n\1h\1rYou cannot download photos until your photo is "
- "added.\r\n");
- pause();
- break; }
- for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
- if(!user.system[i])
- fname[0]='~';
- else
- fname[0]=user.system[i];
- for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
- if(i<=0)
- fname[1]='~';
- else
- fname[1]=user.system[i];
- fname[2]=0;
- strupr(user.system);
- strcat(fname,base41(crc16(user.system),tmp));
- strcat(fname,base41(user.number,tmp));
- strcat(fname,".JPG");
- strupr(fname);
- sprintf(path,"PHOTO\\%s",fname);
- if(!fexist(path)) {
- bputs("\r\n\1n\1hUnpacking...");
- sprintf(str,"%spkunzip photo %s photo",exec_dir,fname);
- system(str);
- bputs("\r\n");
- if(!fexist(path)) {
- bputs("\r\n\1n\1h\1i\1rUnpacking failed!\1n\r\n");
- pause();
- break; } }
- if(com_port) {
- cmdstr(zmodem_send,path,path,str);
- ivhctl(INTCLR);
- ivhctl(INT29L);
- system(str);
- ivhctl(INTCLR);
- i=INT29L;
- i|=(INT29R|INT16);
- ivhctl(i); }
- else
- system(cmdstr(local_view,path,path,str));
- pause();
- break;
-
-
- case 'S':
- send_telegram(user);
- break;
- case 'V':
-
- if(user_level<que_level) {
- bputs("\r\n\1h\1rYou have insufficient access to read "
- "questoinnaires.\r\n");
- pause();
- break; }
-
- for(i=0;i<5;i++) {
- aborted=0;
- if(!user.queans[i].name[0])
- continue;
- s=sys_quenum(user.queans[i].name);
- if(s==-1)
- continue;
- if(que[s]->req_age>getage(useron.birth))
- continue;
- if(match1 && match2)
- u=user_quenum(user.queans[i].name,useron);
- else
- u=-1;
- sprintf(str,"\r\nDo you wish to view the \1w%s\1b questionnaire"
- ,que[s]->desc);
- if(!yesno(str))
- continue;
- if(!cdt_warning(que_cdt))
- continue;
- adjust_cdt(que_cdt);
- for(j=0;j<que[s]->total_ques && !aborted;) {
- cls();
- bprintf("\1n\1m\1hQuestionnaire: \1y%-25s \1mQuestion: "
- "\1y%d \1mof \1y%d \1h\1b(Ctrl-C to Abort)\r\n\r\n"
- ,que[s]->desc,j+1,que[s]->total_ques);
- bprintf("\1w\1h%s\r\n\r\n",que[s]->que[j].txt);
- for(k=0;k<que[s]->que[j].answers;k++)
- bprintf("\1h\1b%c\1w) \1g%s\r\n",'A'+k
- ,que[s]->que[j].ans[k]);
- bits2str(user.queans[i].self[j],str);
- bprintf("\1n\1g\r\n%25s: \1h%-16s "
- ,user.name,str);
- bits2str(user.queans[i].pref[j],str);
- bprintf("\1n\1g %15s: \1h%s","Preferred mate",str);
- if(u!=-1) {
- bits2str(useron.queans[u].pref[j],str);
- bprintf("\1n\1g\r\n%25s: \1h%-16s "
- ,"Your preferred mate",str);
- bits2str(useron.queans[u].self[j],str);
- bprintf("\1n\1g %15s: \1h%s","You",str); }
- CRLF;
- if(!aborted) {
- lncntr=0;
- bputs("\r\n\1h\1b[\1cP\1b]revious, [\1cQ\1b]uit, "
- "or [Next]: \1c");
- ch=getkeys("PQN\r",0);
- if(ch=='P') {
- if(j) j--;
- continue; }
- if(ch=='Q')
- break;
- j++; } } }
- break;
-
- } }
-return(0);
-}
-
-
-/* Returns 0 if aborted, 1 if continue, negative if previous */
-int short_user_info(user_t user)
-{
- char str[128],height[64],ch;
- int i,match;
- int records;
- ulong name_crc;
- static char name[26],lastname[26],highmatch;
- static long topixb,topdab,lastixb,lastdab;
- static int count;
-
-if(!lncntr && smm_pause) {
- topdab=ftell(stream)-sizeof(user_t);
- topixb=ftell(index)-sizeof(ixb_t);
- if(!topdab)
- lastdab=lastixb=0;
- count=0;
- printfile("LIST_HDR.ASC");
- strcpy(lastname,name);
- name[0]=highmatch=0; }
-if(user.number) {
- match=total_match(useron,user);
- if(!match) str[0]=0;
- else if(match>=90) sprintf(str,"\1w%u%%",match);
- else if(match>=80) sprintf(str,"\1c%u%%",match);
- else if(match>=70) sprintf(str,"\1y%u%%",match);
- else if(match>=60) sprintf(str,"\1g%u%%",match);
- else if(match>=50) sprintf(str,"\1m%u%%",match);
- else if(match>=40) sprintf(str,"\1r%u%%",match);
- else if(match>=30) sprintf(str,"\1b%u%%",match);
- else if(match>=20) sprintf(str,"\1n\1g%u%%",match);
- else if(match>=10) sprintf(str,"\1n\1c%u%%",match);
- else sprintf(str,"\1n%u%%",match);
- if(smm_misc&SMM_METRIC)
- sprintf(height," %-4u",intocm(user.height));
- else
- sprintf(height,"%2u'%-2u",user.height/12,user.height%12);
- bprintf("\1n\1h%c\1n\1g%c\1h\1c%c\1b%3u \1g%3s \1m%3s\1r%s \1y%-3u "
- "\1n\1g%-25.25s\1r\1h\1i%c\1n\1h%-25.25s%s\r\n"
- ,user.sex==user.pref_sex ? 'G':user.sex=='*' ? 'B'
- : marital_ch(user.marital)
- ,race_ch(user.race)
- ,user.sex
- ,getage(user.birth)
- ,hair(user.hair)
- ,eyes(user.eyes)
- ,height
- ,smm_misc&SMM_METRIC ? lptokg(user.weight) : user.weight
- ,user.location
- ,user.misc&USER_PHOTO ? '+':SP
- ,user.name
- ,str
- );
- if(match &&
- (!name[0] || !stricmp(name,lastname)
- || (stricmp(user.name,lastname) && match>highmatch))) {
- highmatch=match;
- sprintf(name,"%.25s",user.name);
- strupr(name); }
- }
-
-if(lncntr>=user_rows-2 || !user.number) {
- lncntr=0;
- bputs(PrevReadSendQuitOrMore);
- ch=getkey(K_UPPER);
- if(ch=='Q') {
- cls();
- aborted=1; }
- else if(ch=='P') {
- cls();
- records=((ftell(stream)-topdab)/sizeof(user_t));
- fseek(stream,lastdab,SEEK_SET);
- fseek(index,lastixb,SEEK_SET);
- lastdab-=(records)*sizeof(user_t);
- lastixb-=(records)*sizeof(ixb_t);
- if(lastdab<0) lastdab=0;
- if(lastixb<0) lastixb=0;
- return(-count); }
- else if(ch=='R' || ch=='G' || ch=='S') {
- bprintf("\1n\r\1>\1y\1hUser name: ");
- if(getstr(name,25,K_NOCRLF|K_LINE|K_EDIT|K_AUTODEL|K_UPPER)) {
- truncsp(name);
- name_crc=crc32(name);
- cls();
- rewind(index);
- while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.name!=name_crc)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(ch=='S' && send_telegram(user))
- break;
- if(ch!='S' && !long_user_info(user))
- break; } }
- fseek(stream,topdab,SEEK_SET);
- fseek(index,topixb,SEEK_SET);
- cls();
- return(-1); }
- else {
- lastixb=topixb;
- lastdab=topdab;
- cls(); } }
-
-count++;
-if(aborted)
- return(0);
-return(1);
-}
-
-
-int get_your_det(user_t *user)
-{
- char str[128],*p,*hdr;
- int i;
-
-while(1) {
-checkline();
-cls();
-bputs("\1h\0014 Your Detailed Personal Information \1n \1h\1b"
- "(Ctrl-C to Abort)\r\n\r\n");
-
-nodesync();
-bputs("\1h\1bPlease enter your name or alias: ");
-strcpy(str,user->name);
-if(!getstr(str,25,K_LINE|K_EDIT|K_AUTODEL|K_UPRLWR))
- return(0);
-truncsp(str);
-if(trash(str)) {
- bprintf("\r\n\1h\1rSorry, you can't use that name.\r\n\r\n\1p");
- continue; }
-strcpy(user->name,str);
-
-CRLF;
-nodesync();
-bprintf("\1h\1gPlease enter your height in %s: "
- ,smm_misc&SMM_METRIC ? "centimeters" : "feet'inches (example: 5'7)");
-if(user->height) {
- if(smm_misc&SMM_METRIC)
- sprintf(str,"%u",intocm(user->height));
- else
- sprintf(str,"%u'%u",user->height/12,user->height%12); }
-else
- str[0]=0;
-if(!getstr(str,4,K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-if(smm_misc&SMM_METRIC)
- user->height=cmtoin(atoi(str));
-else {
- user->height=atoi(str)*12;
- p=strchr(str,'\'');
- if(p) user->height+=atoi(p+1); }
-
-CRLF;
-nodesync();
-bprintf("\1h\1mPlease enter your weight (in %s): "
- ,smm_misc&SMM_METRIC ? "kilograms":"pounds");
-if(user->weight)
- sprintf(str,"%u"
- ,smm_misc&SMM_METRIC ? lptokg(user->weight) : user->weight);
-else
- str[0]=0;
-if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL|K_LINE))
- return(0);
-if(smm_misc&SMM_METRIC)
- user->weight=kgtolp(atoi(str));
-else
- user->weight=atoi(str);
-
-CRLF;
-nodesync();
-bputs("\1h\1rPlease enter your annual income in dollars (ENTER=undisclosed): ");
-if(user->income && user->income!=0xffffffff)
- sprintf(str,"%luK",user->income/1000);
-else
- str[0]=0;
-getstr(str,6,K_UPPER|K_EDIT|K_AUTODEL|K_LINE);
-if(aborted)
- return(0);
-if(strchr(str,'K'))
- user->income=atol(str)*1000L;
-else if(str[0]==0)
- user->income=0xffffffffUL;
-else
- user->income=atol(str);
-
-CRLF;
-nodesync();
-bputs("\1h\1cPlease enter your location (city, state): ");
-strcpy(str,user->location);
-if(!getstr(str,30,K_LINE|K_EDIT|K_AUTODEL|K_UPRLWR))
- return(0);
-truncsp(str);
-if(trash(str)) {
- bprintf("\r\n\1r\1hSorry, you can't use that location.\r\n\r\n\1p");
- continue; }
-strcpy(user->location,str);
-
-
-CRLF;
-nodesync();
-bputs("\1h\1gPlease enter your zip/postal code: ");
-if(!getstr(user->zipcode,10,K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-
-CRLF;
-nodesync();
-for(i=0;i<5;i++) {
- bprintf("\1n\1gPersonal text - Line %u of 5: ",i+1);
- if(wordwrap[0])
- user->note[i][0]=0;
- strcpy(str,user->note[i]);
- if(!getstr(str,50,i==4 ? K_LINE|K_EDIT:K_LINE|K_EDIT|K_WRAP))
- break;
- if(trash(str)) {
- bprintf("\r\n\1r\1hSorry, you can't use that text.\r\n\r\n");
- i--;
- continue; }
- strcpy(user->note[i],str); }
-while(i++<5)
- user->note[i][0]=0;
-aborted=0;
-nodesync();
-if(yesno("\r\nIs the above information correct"))
- break; }
-return(1);
-}
-
-int get_pref_det(user_t *user)
-{
- char str[128],*p,*hdr;
- int i;
-
-while(1) {
-checkline();
-cls();
-bputs("\1h\0014 Detailed Information on Your Preferred Mate \1n "
- "\1h\1b(Ctrl-C to Abort)\r\n\r\n");
-
-nodesync();
-bputs("\1n\1cPlease enter the minimum age of your preferred mate: \1h");
-if(user->min_age)
- sprintf(str,"%u",user->min_age);
-else
- str[0]=0;
-getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
-if(aborted)
- return(0);
-user->min_age=atoi(str);
-
-nodesync();
-bputs("\1h\1cPlease enter the maximum age of your preferred mate: \1h");
-if(user->max_age)
- sprintf(str,"%u",user->max_age);
-else
- str[0]=0;
-getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
-if(aborted)
- return(0);
-user->max_age=atoi(str);
-if(user->min_age) {
- strcpy(str,"Do you require your mate's age fall within this range");
- if(user->misc&USER_REQAGE)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQAGE;
- else
- user->misc&=~USER_REQAGE; }
-else
- user->misc&=~USER_REQAGE;
-if(aborted)
- return(0);
-
-CRLF;
-nodesync();
-bprintf("\1n\1gPlease enter the minimum height of your preferred mate "
- "in %s: \1w\1h",smm_misc&SMM_METRIC ? "centimeters":"feet'inches");
-if(user->min_height) {
- if(smm_misc&SMM_METRIC)
- sprintf(str,"%u",intocm(user->min_height));
- else
- sprintf(str,"%u'%u",user->min_height/12,user->min_height%12); }
-else
- str[0]=0;
-getstr(str,4,K_EDIT|K_AUTODEL);
-if(aborted)
- return(0);
-if(smm_misc&SMM_METRIC)
- user->min_height=cmtoin(atoi(str));
-else {
- user->min_height=atoi(str)*12;
- p=strchr(str,'\'');
- if(p) user->min_height+=atoi(p+1); }
-nodesync();
-bprintf("\1h\1gPlease enter the maximum height of your preferred mate "
- "in %s: \1w",smm_misc&SMM_METRIC ? "centimeters":"feet'inches");
-if(user->max_height) {
- if(smm_misc&SMM_METRIC)
- sprintf(str,"%u",intocm(user->max_height));
- else
- sprintf(str,"%u'%u",user->max_height/12,user->max_height%12); }
-else
- str[0]=0;
-getstr(str,4,K_EDIT|K_AUTODEL);
-if(aborted)
- return(0);
-if(smm_misc&SMM_METRIC)
- user->max_height=cmtoin(atoi(str));
-else {
- user->max_height=atoi(str)*12;
- p=strchr(str,'\'');
- if(p) user->max_height+=atoi(p+1); }
-strcpy(str,"Do you require your mate's height fall within this range");
-if(user->misc&USER_REQHEIGHT)
- i=yesno(str);
-else
- i=!noyes(str);
-if(i)
- user->misc|=USER_REQHEIGHT;
-else
- user->misc&=~USER_REQHEIGHT;
-if(aborted)
- return(0);
-
-
-CRLF;
-nodesync();
-bprintf("\1n\1mPlease enter the minimum weight of your preferred mate in %s:"
- " \1w\1h",smm_misc&SMM_METRIC ? "kilograms":"pounds");
-if(user->min_weight) {
- if(smm_misc&SMM_METRIC)
- sprintf(str,"%u",lptokg(user->min_weight));
- else
- sprintf(str,"%u",user->min_weight); }
-else
- str[0]=0;
-getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
-if(aborted)
- return(0);
-if(smm_misc&SMM_METRIC)
- user->min_weight=kgtolp(atoi(str));
-else
- user->min_weight=atoi(str);
-
-nodesync();
-bprintf("\1h\1mPlease enter the maximum weight of your preferred mate in %s:"
- " \1w",smm_misc&SMM_METRIC ? "kilograms":"pounds");
-if(user->max_weight) {
- if(smm_misc&SMM_METRIC)
- sprintf(str,"%u",lptokg(user->max_weight));
- else
- sprintf(str,"%u",user->max_weight); }
-else
- str[0]=0;
-getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
-if(aborted)
- return(0);
-if(smm_misc&SMM_METRIC)
- user->max_weight=kgtolp(atoi(str));
-else
- user->max_weight=atoi(str);
-if(user->max_weight) {
- strcpy(str,"Do you require your mate's weight fall within this range");
- if(user->misc&USER_REQWEIGHT)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQWEIGHT;
- else
- user->misc&=~USER_REQWEIGHT; }
-else
- user->misc&=~USER_REQWEIGHT;
-if(aborted)
- return(0);
-
-
-CRLF;
-nodesync();
-bputs("\1h\1cPlease enter the lowest zip/postal code of your preferred "
- "mate: \1w");
-getstr(user->min_zipcode,10,K_EDIT|K_AUTODEL|K_UPPER);
-if(aborted)
- return(0);
-bputs("\1h\1bPlease enter the highest zip/postal code of your preferred "
- "mate: \1w");
-getstr(user->max_zipcode,10,K_EDIT|K_AUTODEL|K_UPPER);
-if(aborted)
- return(0);
-strcpy(str,"Do you require your mate's zip/postal code fall within this range");
-if(user->misc&USER_REQZIP)
- i=yesno(str);
-else
- i=!noyes(str);
-if(i)
- user->misc|=USER_REQZIP;
-else
- user->misc&=~USER_REQZIP;
-if(aborted)
- return(0);
-
-
-CRLF;
-nodesync();
-bputs("\1h\1gPlease enter the minimum annual income of your "
- "mate in dollars: \1w");
-if(user->min_income)
- sprintf(str,"%lu",user->min_income);
-else
- str[0]=0;
-getstr(str,6,K_NUMBER|K_EDIT|K_AUTODEL);
-if(aborted) return(0);
-user->min_income=atol(str);
-
-nodesync();
-bputs("\1h\1yPlease enter the maximum annual income of your "
- "mate in dollars: \1w");
-if(user->max_income)
- sprintf(str,"%lu",user->max_income);
-else
- str[0]=0;
-getstr(str,6,K_NUMBER|K_EDIT|K_AUTODEL);
-if(aborted) return(0);
-user->max_income=atol(str);
-if(user->min_income) {
- strcpy(str,"Do you require that your mate's income fall within this range");
- if(user->misc&USER_REQINCOME)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQINCOME;
- else
- user->misc&=~USER_REQINCOME; }
-else
- user->misc&=~USER_REQINCOME;
-if(aborted)
- return(0);
-
-
-nodesync();
-if(yesno("\r\nIs the above information correct"))
- break; }
-return(1);
-}
-
-int get_your_multi(user_t *user)
-{
- char str[128],*hdr,*p;
-
-while(1) {
-checkline();
-hdr="\1n\1l\1h\0014 Your Profile \1n \1h\1b(Ctrl-C to Abort)\r\n\r\n";
-bputs(hdr);
-bputs("\1n\1h\1cYour Marital Status:\r\n\r\n");
-mnemonics("~A) Single\r\n~B) Married\r\n~C) Divorced\r\n~D) Widowed\r\n"
- "~E) Other\r\n");
-nodesync();
-bputs("\r\n\1y\1hWhich: \1w");
-uchar2ans(user->marital,str);
-if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
- return(0);
-if(str[0]<='E')
- break; }
-user->marital=ans2uchar(str);
-
-while(1) {
-checkline();
-bputs(hdr);
-bputs("\1n\1h\1cYour Race:\r\n\r\n");
-mnemonics("~A) White\r\n~B) Black\r\n~C) Hispanic\r\n~D) Asian\r\n"
- "~E) American Indian\r\n~F) Middle Eastern\r\n~G) Other\r\n");
-nodesync();
-bputs("\r\n\1y\1hWhich: \1w");
-uchar2ans(user->race,str);
-if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
- return(0);
-if(str[0]<='G')
- break; }
-user->race=ans2uchar(str);
-
-while(1) {
-checkline();
-bputs(hdr);
-bputs("\1n\1h\1cYour Hair Color:\r\n\r\n");
-mnemonics("~A) Blonde\r\n~B) Brown\r\n~C) Red\r\n~D) Black\r\n"
- "~E) Grey\r\n~F) Other\r\n");
-nodesync();
-bputs("\r\n\1y\1hWhich: \1w");
-uchar2ans(user->hair,str);
-if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
- return(0);
-if(str[0]<='F')
- break; }
-user->hair=ans2uchar(str);
-
-while(1) {
-checkline();
-bputs(hdr);
-bputs("\1n\1h\1cYour Eye Color:\r\n\r\n");
-mnemonics("~A) Blue\r\n~B) Green\r\n~C) Hazel\r\n~D) Brown\r\n"
- "~E) Other\r\n");
-nodesync();
-bputs("\r\n\1y\1hWhich: \1w");
-uchar2ans(user->eyes,str);
-if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
- return(0);
-if(str[0]<='E')
- break; }
-user->eyes=ans2uchar(str);
-return(1);
-}
-
-int get_pref_multi(user_t *user)
-{
- char str[128],*hdr,*p;
- int i;
-
-while(1) {
-checkline();
-hdr="\1n\1l\1h\0014 Profile of Your Preferred Mate \1n \1h\1b"
- "(Ctrl-C to Abort)\r\n\r\n";
-bputs(hdr);
-bputs("\1n\1h\1cSex of Your Preferred (Intimate/Romantic) Mate:\r\n\r\n");
-mnemonics("~M) Male\r\n~F) Female\r\n~*) Either\r\n");
-nodesync();
-bputs("\r\n\1y\1hWhich: ");
-str[0]=user->pref_sex;
-str[1]=0;
-if(!getstr(str,1,K_UPPER|K_EDIT|K_AUTODEL|K_LINE))
- break;
-if(user->sex==str[0] && noyes("\r\nYou are homosexual"))
- continue;
-if(str[0]=='M' || str[0]=='F' || str[0]=='*')
- break; }
-user->pref_sex=str[0];
-if(aborted) return(0);
-
-strcpy(str,"\r\nAre you seeking an any-sex (non-romantic) friendship");
-if(user->misc&USER_FRIEND)
- i=yesno(str);
-else
- i=!noyes(str);
-if(i)
- user->misc|=USER_FRIEND;
-else
- user->misc&=~USER_FRIEND;
-
-bputs(hdr);
-bputs("\1n\1h\1cMarital Status of Your Preferred Mate:\r\n\r\n");
-mnemonics("~A) Single\r\n~B) Married\r\n~C) Divorced\r\n~D) Widowed\r\n"
- "~E) Other\r\n~*) Any of the above\r\n");
-nodesync();
-bputs("\r\n\1y\1hPlease enter up to 4 answers: ");
-uchar2ans(user->pref_marital,str);
-if(!getstr(str,4,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-user->pref_marital=ans2uchar(str);
-if(user->pref_marital!=0xff) {
- strcpy(str,"\r\nDo you require your mate have the martial status you "
- "indicated");
- if(user->misc&USER_REQMARITAL)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQMARITAL;
- else
- user->misc&=~USER_REQMARITAL; }
-else
- user->misc&=~USER_REQMARITAL;
-if(aborted) return(0);
-
-bputs(hdr);
-bputs("\1n\1h\1cRace of Your Preferred Mate:\r\n\r\n");
-mnemonics("~A) White\r\n~B) Black\r\n~C) Hispanic\r\n~D) Asian\r\n"
- "~E) American Indian\r\n~F) Middle Eastern\r\n~G) Other\r\n"
- "~*) Any of the above\r\n");
-nodesync();
-bputs("\r\n\1y\1hPlease enter up to 6 answers: ");
-uchar2ans(user->pref_race,str);
-if(!getstr(str,6,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-user->pref_race=ans2uchar(str);
-if(user->pref_race!=0xff) {
- strcpy(str,"\r\nDo you require your mate be of the race"
- " you indicated");
- if(user->misc&USER_REQRACE)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQRACE;
- else
- user->misc&=~USER_REQRACE; }
-else
- user->misc&=~USER_REQRACE;
-if(aborted) return(0);
-
-bputs(hdr);
-bputs("\1n\1h\1cHair Color of Your Preferred Mate:\r\n\r\n");
-mnemonics("~A) Blonde\r\n~B) Brown\r\n~C) Red\r\n~D) Black\r\n"
- "~E) Grey\r\n~F) Other\r\n~*) Any of the Above\r\n");
-nodesync();
-bputs("\r\n\1y\1hPlease enter up to 5 answers: ");
-uchar2ans(user->pref_hair,str);
-if(!getstr(str,5,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-user->pref_hair=ans2uchar(str);
-if(user->pref_hair!=0xff) {
- strcpy(str,"\r\nDo you require your mate have the hair color"
- " you indicated");
- if(user->misc&USER_REQHAIR)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQHAIR;
- else
- user->misc&=~USER_REQHAIR; }
-else
- user->misc&=~USER_REQHAIR;
-if(aborted) return(0);
-
-
-bputs(hdr);
-bputs("\1n\1h\1cEye Color of Your Preferred Mate:\r\n\r\n");
-mnemonics("~A) Blue\r\n~B) Green\r\n~C) Hazel\r\n~D) Brown\r\n"
- "~E) Other\r\n~*) Any of the above\r\n");
-nodesync();
-bputs("\r\n\1y\1hPlease enter up to 4 answers: ");
-uchar2ans(user->pref_eyes,str);
-if(!getstr(str,4,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-user->pref_eyes=ans2uchar(str);
-if(user->pref_eyes!=0xff) {
- strcpy(str,"\r\nDo you require your mate have the eye color"
- " you indicated");
- if(user->misc&USER_REQEYES)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQEYES;
- else
- user->misc&=~USER_REQEYES; }
-else
- user->misc&=~USER_REQEYES;
-if(aborted) return(0);
-
-bputs(hdr);
-bputs("\1n\1h\1cZodiac Sign of Your Preferred Mate:\r\n\r\n");
-mnemonics("~A) Aries\r\n~B) Taurus\r\n~C) Gemini\r\n~D) Cancer\r\n"
- "~E) Leo\r\n~F) Virgo\r\n~G) Libra\r\n~H) Scorpio\r\n");
-mnemonics("~I) Sagittarius\r\n~J) Capricorn\r\n~K) Aquarius\r\n"
- "~L) Pisces\r\n~*) Any of the above\r\n");
-nodesync();
-bputs("\r\n\1y\1hPlease enter up to 11 answers: ");
-bits2ans(user->pref_zodiac,str);
-if(!getstr(str,11,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- return(0);
-user->pref_zodiac=ans2bits(str);
-if(user->pref_zodiac!=0xffff) {
- strcpy(str,"\r\nDo you require your mate have the zodiac sign"
- " you indicated");
- if(user->misc&USER_REQZODIAC)
- i=yesno(str);
- else
- i=!noyes(str);
- if(i)
- user->misc|=USER_REQZODIAC;
- else
- user->misc&=~USER_REQZODIAC; }
-else
- user->misc&=~USER_REQZODIAC;
-if(aborted) return(0);
-
-return(1);
-}
-
-void mbtype_desc(char *mbtype)
-{
- char str[128],type[128];
-
-while(1) {
- checkline();
- cls();
- printfile("MB-TYPE.ASC");
- nodesync();
- bprintf("\r\n\1y\1hYour Type: \1w%s\r\n",mbtype);
- bputs("\1y\1hLetter or Type to define: ");
- memset(type,0,5);
- if(!getstr(type,4,K_ALPHA|K_UPPER|K_LINE))
- break;
- sprintf(str,"MB-%s.ASC",type);
- if(!fexist(str)) {
- bputs("\r\nInvalid Letter or Type!\r\n\r\n");
- pause();
- continue; }
- cls();
- printfile(str);
- if(lncntr && !aborted)
- pause(); }
-}
-
-
-int get_mbtype(user_t *user)
-{
- char str[256];
- int file,i=0,e=0,n=0,s=0,f=0,t=0,p=0,j=0,q=0,ch;
- FILE *stream;
-
-aborted=0;
-cls();
-printfile("MB-INTRO.ASC");
-if(aborted)
- return(0);
-bputs("\1n\1hYour answers will be kept secret.\r\n\r\n"
- "Only your personality type will be visible to other users.\r\n\r\n");
-nodesync();
-if(!yesno("Continue with test"))
- return(0);
-
-if((file=nopen("MB-TYPE.QUE",O_RDONLY))==-1 ||
- (stream=fdopen(file,"r"))==NULL) {
- bputs("\7\r\i\hCan't open MBTYPE.QUE\r\n\1p");
- return(0); }
-while(!feof(stream)) {
- if(!fgets(str,200,stream))
- break;
- str[57]=0;
- truncsp(str);
- if(!str[0])
- break;
- cls();
- nodesync();
- bprintf("\1y\1hMyers-Briggs Personality Test \1bQuestion #\1w%u "
- "\1b(Ctrl-C to Abort)\r\n"
- "\r\n%s:\r\n\r\n"
- "[\1wA\1b] %.44s\r\n"
- "[\1wB\1b] %.44s\r\n"
- "[\1wC\1b] cannot decide\r\n\r\n"
- "Which: \1w"
- ,q+1,str,str+58,str+102);
- ch=getkeys("ABC",0);
- if(aborted) {
- fclose(stream);
- return(0); }
- if(ch=='C') {
- q++;
- continue; }
-
- if(ch=='A')
- ch=str[146];
- else
- ch=str[147];
-
- switch(ch) {
- case 'E':
- e++;
- break;
- case 'I':
- i++;
- break;
- case 'S':
- s++;
- break;
- case 'N':
- n++;
- break;
- case 'T':
- t++;
- break;
- case 'F':
- f++;
- break;
- case 'J':
- j++;
- break;
- case 'P':
- p++;
- break; }
- q++; }
-
-fclose(stream);
-
-if(i>e)
- user->mbtype[0]='I';
-else if(i==e)
- user->mbtype[0]='*';
-else
- user->mbtype[0]='E';
-
-if(s>n)
- user->mbtype[1]='S';
-else if(s==n)
- user->mbtype[1]='*';
-else
- user->mbtype[1]='N';
-
-if(t>f)
- user->mbtype[2]='T';
-else if(t==f)
- user->mbtype[2]='*';
-else
- user->mbtype[2]='F';
-
-if(p>j)
- user->mbtype[3]='P';
-else if(p==j)
- user->mbtype[3]='*';
-else
- user->mbtype[3]='J';
-
-bprintf("\1l\1y\1hYour Myers-Briggs Personality Type is \1w%s\r\n\r\n"
- ,user->mbtype);
-
-if(yesno("Would you like to see the personality type descriptions"))
- mbtype_desc(user->mbtype);
-return(1);
-}
-
-
-int get_purity(user_t *user)
-{
- char str[128];
- int file,no_ans=0,pos_ans=0;
- FILE *stream;
-
-aborted=0;
-if(!fexist("PURITY.QUE") || purity_age>getage(user->birth))
- return(0);
-cls();
-printfile("PURITY.ASC");
-if(aborted)
- return(0);
-bputs("\1n\1hYour answers will be kept secret.\r\n\r\n"
- "Only your purity score will be visible to other users.\r\n\r\n");
-nodesync();
-if(!yesno("Continue with test"))
- return(0);
-if((file=nopen("PURITY.QUE",O_RDONLY))==-1 ||
- (stream=fdopen(file,"r"))==NULL) {
- bputs("\7\r\i\hCan't open PURITY.QUE\r\n\1p");
- return(0); }
-while(!feof(stream)) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- cls();
- if(str[0]=='*') {
- printfile(str+1);
- if(lncntr && !aborted)
- pause();
- if(aborted)
- break;
- continue; }
- nodesync();
- bprintf("\1y\1hPurity Test \1bQuestion #\1w%u \1b(Ctrl-C to Abort)\r\n"
- "\r\nHave you ever:\r\n\r\n"
- ,++pos_ans);
- if(noyes(str))
- no_ans++;
- if(aborted)
- break; }
-
-fclose(stream);
-if(aborted)
- return(0);
-
-user->purity=((float)no_ans/pos_ans)*100.0;
-bprintf("\1l\1y\1hCongratulations, you are \1w%u%%\1y pure!\r\n\r\n"
- ,user->purity);
-pause();
-return(1);
-}
-
-int get_que(int i, user_t *inuser)
-{
- char str[128];
- int j,k,x,y,u;
- user_t user=*inuser;
-
-if(que[i]->req_age>getage(inuser->birth))
- return(0);
-for(j=0;j<que[i]->total_ques && !aborted;j++) {
-
- u=user_quenum(que[i]->name,user);
- if(u==-1) { /* not already answered */
- for(u=0;u<5;u++) /* search for unused questionnaire slot */
- if(sys_quenum(user.queans[u].name)==-1)
- break;
- if(u==5) { /* All questionnaire slots used!?? */
- bputs("\r\n\7Questionnaire error, inform sysop!\r\n");
- pause();
- return(0); } }
- strcpy(user.queans[u].name,que[i]->name);
- cls();
- bprintf("\1n\1m\1hQuestionnaire: \1y%-25s \1mQuestion: "
- "\1y%d \1mof \1y%d \1h\1b(Ctrl-C to Abort)\r\n\r\n"
- ,que[i]->desc,j+1,que[i]->total_ques);
- bprintf("\1w\1h%s\r\n\r\n",que[i]->que[j].txt);
- for(k=0;k<que[i]->que[j].answers;k++)
- bprintf("\1h\1b%c\1w) \1g%s\r\n",'A'+k,que[i]->que[j].ans[k]);
- nodesync();
- bprintf("\1n\1g\r\nChoose %s%d answer%s to describe "
- "\1hyourself\1n\1g%s: "
- ,que[i]->que[j].allowed > 1 ? "up to ":""
- ,que[i]->que[j].allowed,que[i]->que[j].allowed > 1 ? "s":""
- ,j ? " or \1h-\1n\1g to go back" : "");
- bits2ans(user.queans[u].self[j],str);
- getstr(str,que[i]->que[j].allowed,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
- if(aborted)
- return(0);
- truncsp(str);
- if(!str[0]) {
- j--;
- continue; }
- if(str[0]=='-') {
- if(j) j-=2;
- else j--;
- continue; }
- y=strlen(str);
- for(x=0;x<y;x++)
- if(!isalpha(str[x]) || str[x]-'A'>que[i]->que[j].answers-1)
- break;
- if(x<y) {
- j--;
- continue; }
- user.queans[u].self[j]=ans2bits(str);
- nodesync();
- bprintf("\1n\1g\r\n%s%d answer%s to describe your \1hpreferred mate"
- "\1n\1g or \1h*\1n\1g for any: "
- ,que[i]->que[j].answers > 1 ? "Up to ":""
- ,que[i]->que[j].answers,que[i]->que[j].answers > 1 ? "s":"");
- if(user.queans[u].pref[j])
- bits2ans(user.queans[u].pref[j],str);
- getstr(str,que[i]->que[j].answers,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
- if(aborted)
- return(0);
- truncsp(str);
- if(!str[0]) {
- j--;
- continue; }
- y=strlen(str);
- for(x=0;x<y;x++)
- if(isalpha(str[x]) && str[x]-'A'>que[i]->que[j].answers-1)
- break;
- if(x<y) {
- j--;
- continue; }
- user.queans[u].pref[j]=ans2bits(str); }
-*inuser=user;
-return(1);
-}
-
-/* Gets/updates profile from user. Returns 0 if aborted. */
-
-char get_user_info(user_t *user)
-{
- char str[128],*p,*hdr;
- int i,j,k,x,y;
-
-while(1) {
- checkline();
- timeleft=0xffff;
- aborted=0;
- main_user_info(*user);
- CRLF;
- bputs("\1n\1h");
- bputs("\1b[\1wA\1b] Your name, height, weight, income, location, and "
- "text\r\n"
- "\1b[\1wB\1b] Your marital status, race, hair color, and eye "
- "color\r\n"
- "\1b[\1wC\1b] Preferred age, height, weight, location, and income\r\n"
- "\1b[\1wD\1b] Preferred sex, marital status, race, hair color, eye "
- "color, and zodiac\r\n"
- );
- for(i=0;i<total_ques;i++) {
- if(que[i]->req_age>getage(user->birth))
- continue;
- bprintf("\1b[\1w%u\1b] \1w%s \1bquestionnaire\1b (%u questions) \1w%s\r\n"
- ,i+1,que[i]->desc,que[i]->total_ques
- ,user_quenum(que[i]->name,*user)==-1 ? "[Unanswered]":"[Answered]");
- }
- bprintf("\1b[\1wM\1b] Myers-Briggs personality test (70 questions) "
- "\1w[%s]\r\n",user->mbtype[0] ? user->mbtype : "Unanswered");
- if(fexist("PURITY.QUE") && purity_age<=getage(user->birth))
- bprintf("\1b[\1wP\1b] Purity test \1w(%u%% pure)\r\n"
- ,user->purity);
- bputs("\r\n\1bWhich or [\1wQ\1b]uit: \1w");
- i=getkeys("ABCDMPQ",total_ques);
- if(i&0x8000) {
- i&=~0x8000;
- i--;
- get_que(i,user);
- continue; }
-
- switch(i) {
- case 'A':
- get_your_det(user);
- break;
- case 'C':
- get_pref_det(user);
- break;
- case 'B':
- get_your_multi(user);
- break;
- case 'D':
- get_pref_multi(user);
- break;
- case 'M':
- get_mbtype(user);
- break;
- case 'P':
- get_purity(user);
- break;
- case 'Q':
- return(1); } }
-}
-
-void write_user()
-{
- char str[256];
-
-if(auto_update && time(NULL)-useron.updated>(long)auto_update*24L*60L*60L)
- useron.updated=time(NULL);
-fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
-fwrite(&useron,sizeof(user_t),1,stream);
-fflush(stream);
-
-ixb.updated=useron.updated;
-if(useron.misc&USER_DELETED)
- ixb.number=0;
-else
- ixb.number=useron.number;
-strcpy(str,useron.name);
-strupr(str);
-ixb.name=crc32(str);
-ixb.system=system_crc;
-fseek(index,useron_record*sizeof(ixb_t),SEEK_SET);
-fwrite(&ixb,sizeof(ixb_t),1,index);
-fflush(index);
-if(!ixb.number) {
- sprintf(str,"%04u.MSG",useron.number);
- remove(str); }
-}
-
-
-void add_userinfo()
-{
- static user_t user;
- char str[128];
- ushort tleft=timeleft;
- int i;
-
-if(!cdt_warning(profile_cdt))
- return;
-timeleft=0xffff;
-user.number=user_number;
-user.sex=user_sex;
-strcpy(user.name,user_name);
-strcpy(user.realname,user_name);
-strcpy(user.system,system_name);
-strcpy(user.birth,user_birth);
-strcpy(user.zipcode,user_zipcode);
-sprintf(user.min_zipcode,"%c0000",user_zipcode[0]);
-sprintf(user.max_zipcode,"%c9999",user_zipcode[0]);
-strcpy(user.location,user_location);
-if(user.sex!='M' && user.sex!='F') {
- if(yesno("Are you of male gender"))
- user.sex='M';
- else
- user.sex='F'; }
-if(!getage(user.birth))
- while(1) {
- checkline();
- cls();
- bputs("\1l\1y\1hYour birthdate (MM/DD/YY): ");
- if(!getstr(user.birth,8,K_UPPER|K_LINE))
- return;
- if(getage(user.birth))
- break; }
-
-user.pref_sex=user.sex=='M' ? 'F' : 'M';
-user.created=time(NULL);
-if(!get_your_det(&user) || !get_your_multi(&user) || !get_pref_multi(&user)
- || !get_pref_det(&user)) {
- timeleft=tleft;
- return; }
-for(i=0;i<total_ques;i++) {
- aborted=0;
- if(que[i]->req_age>getage(user.birth))
- continue;
- timeleft=0xffff;
- cls();
- bprintf("\1w\1h%s Questionnaire: \1y%u questions\r\n\r\n"
- "\1cAnswers will be viewable by other users.\r\n\r\n"
- ,que[i]->desc,que[i]->total_ques);
- if(yesno("Continue with questionnaire"))
- get_que(i,&user); }
-timeleft=0xffff;
-get_mbtype(&user);
-timeleft=0xffff;
-get_purity(&user);
-if(!get_user_info(&user)) {
- timeleft=tleft;
- return; }
-user.updated=time(NULL);
-useron=user;
-bputs("\1n\1h\r\nSaving...");
-rewind(index);
-while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) { /* Deleted User */
- fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
- break; } }
-
-useron_record=ftell(index)/sizeof(ixb_t);
-
-write_user();
-adjust_cdt(profile_cdt);
-
-if(notify_user && notify_user!=user_number) {
- sprintf(str,"\1n\1hSMM: \1y%s \1madded %s profile to the Match Maker.\r\n"
- ,user_name,user_sex=='M' ? "his":"her");
- if(node_dir[0])
- putsmsg(notify_user,str);
- else
- puttgram(notify_user,str); }
-
-timeleft=tleft;
-}
-
-void delphoto(user_t user)
-{
- char fname[64],path[128];
- int i;
- struct ffblk ff;
-
-if(!(user.misc&USER_PHOTO))
- return;
-for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
-if(!user.system[i])
- fname[0]='~';
-else
- fname[0]=user.system[i];
-for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
-if(i<=0)
- fname[1]='~';
-else
- fname[1]=user.system[i];
-fname[2]=0;
-strupr(user.system);
-strcat(fname,base41(crc16(user.system),tmp));
-strcat(fname,base41(user.number,tmp));
-strcat(fname,".*");
-strupr(fname);
-sprintf(path,"PHOTO\\%s",fname);
-i=findfirst(path,&ff,0);
-if(i)
- return;
-sprintf(path,"PHOTO\\%s",ff.ff_name);
-if(remove(path))
- bprintf("\1r\1h\7%s couldn't be removed!\1n\r\n",path);
-else
- bprintf("\1r\1hPhoto removed.\r\n");
-}
-
-
-void smm_exit()
-{
- char str[128];
- int i;
- FILE *in,*out;
-
-if(io_int) {
- io_int=0;
- ivhctl(0); }
-if(com_port) {
- for(i=0;i<5;i++)
- if(!rioctl(TXBC)) /* wait for rest of output */
- break;
- else
- mswait(1000);
- rioini(0,0); }
-if(useron.number) {
- useron.lastin=time(NULL);
- write_user(); }
-if(stream)
- fclose(stream);
-if(cdt_adjustment) {
- if(node_dir[0]) {
- sprintf(str,"%sMODUSER.DAT",node_dir);
- if((out=fopen(str,"wt"))==NULL) {
- bprintf("Error opening %s for write\r\n",str);
- return; }
- fprintf(out,"%ld",cdt_adjustment);
- fclose(out); }
- else { /* Write back credits to DOOR.SYS */
- strcpy(str,door_sys);
- str[strlen(str)-1]='_';
- remove(str);
- rename(door_sys,str);
- if((in=fopen(str,"rb"))==NULL) {
- bprintf("Error opening %s for read\r\n",str);
- return; }
- if((out=fopen(door_sys,"wb"))==NULL) {
- bprintf("Error opening %s for write\r\n",door_sys);
- return; }
- for(i=0;!feof(in);i++) {
- if(!fgets(tmp,128,in))
- break;
- if(i+1==30)
- fprintf(out,"%ld\r\n",-(cdt_adjustment/1024L));
- else if(i+1==31)
- fprintf(out,"%ld\r\n",(user_cdt+cdt_adjustment)/1024L);
- else
- fprintf(out,"%s",tmp); }
- fclose(in);
- fclose(out);
- remove(str);
- } }
-}
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-void statusline(void)
-{
- int col,row;
-
-col=lclwx();
-row=lclwy();
-lclxy(1,node_scrnlen);
-lclatr(CYAN|HIGH|(BLUE<<4));
-lputs(" ");
-lprintf("%-25.25s %02d %-25.25s %02d %c %s"
- ,user_name,user_level,user_realname[0] ? user_realname : user_location
- ,getage(user_birth)
- ,user_sex ? user_sex : SP
- ,user_phone);
-lputc(CLREOL);
-lclatr(LIGHTGRAY);
-lclxy(col,row);
-}
-
-
-int minor_protection(user_t user)
-{
-if(!user_number || !age_split || SYSOP)
- return(0);
-if(getage(user_birth)<age_split && getage(user.birth)>=age_split)
- return(1);
-if(getage(user_birth)>=age_split && getage(user.birth)<age_split)
- return(1);
-return(0);
-}
-
-void main(int argc, char **argv)
-{
- char str[512],name[128],desc[128],gotoname[128],*p,ext,ch;
- int i,j,k,file,match,found;
- uint base=0xffff;
- ushort tleft;
- long l,offset;
- ulong name_crc,sys_crc,*crc_lst,ul;
- FILE *fp,*que_lst;
- user_t user;
- wall_t wall;
- struct ffblk ff;
-
-nodefile=-1;
-node_misc=NM_LOWPRIO;
-com_port=-1;
-com_base=0;
-com_irq=com_rate=0;
-node_dir[0]=exec_dir[0]=temp_dir[0]=ctrl_dir[0]=door_sys[0]=system_name[0]=0;
-sys_name[0]=0;
-
-p=getenv("SBBSNODE");
-if(p) {
- strcpy(node_dir,p);
- if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
- initdata(); }
-
-gotoname[0]=0;
-for(i=1;i<argc;i++) {
- if(argv[i][0]=='/') {
- switch(toupper(argv[i][1])) {
- case 'P':
- com_port=atoi(argv[i]+2);
- break;
- case 'I':
- com_irq=atoi(argv[i]+2);
- break;
- case 'C':
- com_base=ahtoul(argv[i]+2);
- break;
- case 'R':
- com_rate=atol(argv[i]+2);
- break;
- case 'T':
- mswtyp=atoi(argv[i]+2);
- break;
- case 'N':
- node_dir[0]=0;
- break;
- default:
- printf("\nusage: SMM [DOOR.SYS] [/option] [/option] [...] [user name]\n");
- printf("\n");
- printf("where:\n");
- printf(" DOOR.SYS is the path and filename of DOOR.SYS\n");
- printf("\n");
- printf(" /p# sets com port\n");
- printf(" /i# sets com irq\n");
- printf(" /c# sets com I/O address (or DIGI or FOSSIL)\n");
- printf(" /r# sets com rate\n");
- printf(" /t# sets time-slice API support\n");
- printf("\n");
- printf(" user name (if specified) is user to look-up\n");
- exit(1); }
- continue; }
- if(!node_dir[0] && !door_sys[0]) {
- strcpy(door_sys,argv[i]);
- continue; }
- if(gotoname[0])
- strcat(gotoname," ");
- strcat(gotoname,argv[i]); }
-
-if(!node_dir[0] && !door_sys[0]) {
- printf("\n\7SBBSNODE environment variable not set and DOOR.SYS not "
- "specified.\n");
- exit(1); }
-
-if(door_sys[0]) {
- #ifdef __TURBOC__
- ctrlbrk(cbreakh);
- #endif
-
- #ifdef __WATCOMC__
- putenv("TZ=UCT0");
- setvbuf(stdout,NULL,_IONBF,0);
- setvbuf(stderr,NULL,_IONBF,0);
- #endif
-
- if(setmode(fileno(stderr),O_BINARY)==-1) { /* eliminate LF expansion */
- printf("\n\7Can't set stderr to BINARY\n");
- exit(1); }
-
- starttime=time(NULL); /* initialize start time stamp */
- wordwrap[0]=0; /* set wordwrap to null */
- attr(LIGHTGRAY); /* initialize color and curatr to plain */
- mnehigh=LIGHTGRAY|HIGH; /* mnemonics highlight color */
- mnelow=GREEN; /* mnemonics normal text color */
- sec_warn=180; /* seconds till inactivity warning */
- sec_timeout=300; /* seconds till inactivity timeout */
- tos=lncntr=0; /* init topofscreen and linecounter to 0 */
- lastnodemsg=0; /* Last node to send message to */
- aborted=0; /* Ctrl-C hit flag */
-
- fp=fopen(door_sys,"rb");
- if(!fp) {
- printf("\n\7ERROR opening %s\n",door_sys);
- exit(2); }
- user_misc=user_flags2[0]=user_flags3[0]=user_flags4[0]=0;
- user_rest[0]=user_exempt[0]=0;
- user_sex=user_address[0]=user_zipcode[0]=user_realname[0]=0;
- str[0]=0;
- fgets(str,81,fp); // 01: COM port - if local
- if(com_port==-1)
- com_port=atoi(str+3);
- str[0]=0;
- fgets(str,81,fp); // 02: DCE Rate
- user_dce=atoi(str);
- fgets(str,81,fp); // 03: Data bits
- str[0]=0;
- fgets(str,81,fp); // 04: Node num
- node_num=atoi(str);
- str[0]=0;
- fgets(str,81,fp); // 05: DTE rate
- if(!com_rate)
- com_rate=atol(str);
- fgets(str,81,fp); // 06: Screen display
- fgets(str,81,fp); // 07: Printer toggle
- fgets(str,81,fp); // 08: Page bell
- fgets(str,81,fp); // 09: Caller alarm
- str[0]=0;
- fgets(str,81,fp); // 10: User name
- sprintf(user_name,"%.25s",str);
- truncsp(user_name);
- str[0]=0;
- fgets(str,81,fp); // 11: User location
- sprintf(user_location,"%.30s",str);
- truncsp(user_location);
- str[0]=0;
- fgets(str,81,fp); // 12: Home phone
- sprintf(user_phone,"%.12s",str);
- truncsp(user_phone);
- fgets(str,81,fp); // 13: Work phone
- fgets(str,81,fp); // 14: Password
- str[0]=0;
- fgets(str,81,fp); // 15: Security Level
- user_level=atoi(str);
- fgets(str,81,fp); // 16: Total logons
- fgets(str,81,fp); // 17: Last on date
- str[0]=0;
- fgets(str,81,fp); // 18: Time left in seconds
- timeleft=atoi(str);
- fgets(str,81,fp); // 19: Time left in minutes
- str[0]=0;
- fgets(str,81,fp); // 20: Graphics
- if(!strnicmp(str,"GR",2))
- user_misc|=(COLOR|ANSI);
- str[0]=0;
- fgets(str,81,fp); // 21: Screen length
- user_rows=atoi(str);
- if(user_rows<10)
- user_rows=24;
- fgets(str,81,fp); // 22: Expert?
- str[0]=0;
- fgets(str,81,fp); // 23: Registered conferences
- sprintf(user_flags1,"%.26s",str);
- truncsp(user_flags1);
- fgets(str,81,fp); // 24: Conference came from
- str[0]=0;
- fgets(str,81,fp); // 25: User's expiration date
- user_expire=dstrtounix(str);
- str[0]=0;
- fgets(str,81,fp); // 26: User's number
- user_number=atoi(str);
- fgets(str,81,fp); // 27: Default protocol
- fgets(str,81,fp); // 28: Total uploads
- fgets(str,81,fp); // 29: Total downloads
- fgets(str,81,fp); // 30: Kbytes downloaded today
- str[0]=0;
- fgets(str,81,fp); // 31: Max Kbytes to download today
- user_cdt=atol(str)*1024UL;
- str[0]=0;
- fgets(str,81,fp); // 32: Birthday
- truncsp(str);
- sprintf(user_birth,"%.8s",str);
- fgets(str,81,fp); // 33: Path to MAIN
- fgets(str,81,fp); // 34: Path to GEN
- str[0]=0;
- fgets(str,81,fp); // 35: Sysop's name
- sprintf(sys_op,"%.40s",str);
- truncsp(sys_op);
- fclose(fp);
- con_fp=stderr;
- if(setmode(fileno(con_fp),O_BINARY)==-1) { /* eliminate LF expansion */
- printf("Can't set console output to BINARY\n");
- exit(1); }
- }
-
-if(!user_number) {
- printf("\7\nERROR: Invalid user number (%u)\n",user_number);
- exit(5); }
-
-if(*(&riobp-1)!=23) {
- printf("Wrong rciol.obj\n");
- exit(1); }
-
-node_scrnlen=lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
-lclini(node_scrnlen-1);
-
-if(com_port) {
- lprintf("\r\nInitializing COM port %u: ",com_port);
- switch(com_base) {
- case 0xb:
- lputs("PC BIOS");
- rioctl(I14PC);
- if(!com_irq) com_irq=com_port-1;
- break;
- case 0xffff:
- case 0xd:
- lputs("DigiBoard");
- rioctl(I14DB);
- if(!com_irq) com_irq=com_port-1;
- break;
- case 0xe:
- lputs("PS/2 BIOS");
- rioctl(I14PS);
- if(!com_irq) com_irq=com_port-1;
- break;
- case 0xf:
- lputs("FOSSIL");
- rioctl(I14FO);
- if(!com_irq) com_irq=com_port-1;
- break;
- case 0:
- base=com_port;
- lputs("UART I/O (BIOS), ");
- if(com_irq)
- lprintf("IRQ %d",com_irq);
- else lputs("default IRQ");
- break;
- default:
- base=com_base;
- lprintf("UART I/O %Xh, ",com_base);
- if(com_irq)
- lprintf("IRQ %d",com_irq);
- else lputs("default IRQ");
- break; }
-
- if(base==0xffff)
- lprintf(" channel %u",com_irq);
- i=rioini(base,com_irq);
- if(i) {
- lprintf(" - Failed! (%d)\r\n",i);
- exit(1); }
- if(mdm_misc&MDM_FLOWCTRL)
- rioctl(IOSM|CTSCK|RTSCK); /* set rts/cts chk */
- if(com_rate)
- setbaud((uint)(com_rate&0xffffL));
- msr=&riobp-1; }
-
-/* STATUS LINE */
-statusline();
-
-rioctl(TSTYPE|mswtyp); /* set time-slice API type */
-
-rioctl(CPTON); /* ctrl-p translation */
-
-i=INT29L;
-if(com_port)
- i|=(INT29R|INT16);
-ivhctl(i);
-io_int=1;
-
-atexit(smm_exit);
-
-printf("\r\nSynchronet Match Maker v%s Developed 1995-1997 Rob Swindell\n\n"
- ,SMM_VER);
-
-if(checktime()) {
- printf("Time problem!\n");
- return; }
-
-if((file=nopen("SMM.CFG",O_RDONLY))==-1) {
- bprintf("\r\n\7Error opening/creating SMM.DAB\r\n");
- exit(1); }
-if((stream=fdopen(file,"w+b"))==NULL) {
- bprintf("\r\n\7Error converting SMM.DAB file handle to stream\r\n");
- exit(1); }
-str[0]=0;
-fgets(str,128,stream);
-purity_age=atoi(str);
-str[0]=0;
-fgets(str,128,stream);
-min_age=atoi(str);
-str[0]=0;
-fgets(str,128,stream);
-min_level=atoi(str);
-
-req_flags1[0]=0;
-fgets(req_flags1,128,stream);
-req_flags1[27]=0;
-truncsp(req_flags1);
-
-req_flags2[0]=0;
-fgets(req_flags2,128,stream);
-req_flags2[27]=0;
-truncsp(req_flags2);
-
-req_flags3[0]=0;
-fgets(req_flags3,128,stream);
-req_flags3[27]=0;
-truncsp(req_flags3);
-
-req_flags4[0]=0;
-fgets(req_flags4,128,stream);
-req_flags4[27]=0;
-truncsp(req_flags4);
-
-str[0]=0;
-fgets(str,128,stream);
-profile_cdt=atol(str);
-str[0]=0;
-fgets(str,128,stream);
-telegram_cdt=atol(str);
-str[0]=0;
-fgets(str,128,stream);
-auto_update=atoi(str);
-str[0]=0;
-fgets(str,128,stream);
-notify_user=atoi(str);
-
-fgets(str,128,stream); // regnum
-
-str[0]=0;
-fgets(str,128,stream);
-telegram_level=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-que_level=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-wall_level=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-wall_cdt=atol(str);
-
-str[0]=0;
-fgets(str,128,stream);
-que_cdt=atol(str);
-
-fgets(zmodem_send,128,stream);
-if(!zmodem_send[0])
- strcpy(zmodem_send,DEFAULT_ZMODEM_SEND);
-truncsp(zmodem_send);
-
-str[0]=0;
-fgets(str,128,stream);
-smm_misc=atol(str);
-
-fgets(str,128,stream);
-sprintf(system_name,"%.40s",str);
-truncsp(system_name);
-
-fgets(local_view,128,stream);
-truncsp(local_view);
-
-str[0]=0;
-fgets(str,128,stream);
-sysop_level=atoi(str);
-if(!sysop_level)
- sysop_level=90;
-
-str[0]=0;
-fgets(str,128,stream);
-wall_age=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-age_split=atoi(str);
-
-fclose(stream);
-
-if(!system_name[0] && sys_name[0])
- strcpy(system_name,sys_name);
-if(!system_name[0]) {
- printf("\7\nERROR: System name not specified\n");
- exit(3) ; }
-
-sprintf(str,"%.25s",system_name);
-strupr(str);
-system_crc=crc32(str);
-
-if((file=open("SMM.DAB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- bprintf("\r\n\7Error opening/creating SMM.DAB\r\n");
- exit(1); }
-if((stream=fdopen(file,"w+b"))==NULL) {
- bprintf("\r\n\7Error converting SMM.DAB file handle to stream\r\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,4096);
-
-if((file=open("SMM.IXB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
- ,S_IWRITE|S_IREAD))==-1) {
- bprintf("\r\n\7Error opening/creating SMM.IXB\r\n");
- exit(1); }
-if((index=fdopen(file,"w+b"))==NULL) {
- bprintf("\r\n\7Error converting SMM.IXB file handle to stream\r\n");
- exit(1); }
-setvbuf(stream,0L,_IOFBF,1024);
-
-trashfile=NULL;
-if((file=open("SMM.CAN",O_RDONLY|SH_DENYNO))!=-1) {
- trashfile=fdopen(file,"rb");
- setvbuf(trashfile,NULL,_IOFBF,4096); }
-
-total_ques=0;
-i=nopen("QUE.LST",O_RDONLY);
-if(i!=-1)
- que_lst=fdopen(i,"rb");
-else
- que_lst=NULL;
-i=0;
-while(que_lst && !feof(que_lst) && i<5) {
- if(!fgets(name,81,que_lst))
- break;
- truncsp(name);
- strupr(name);
- sprintf(str,"%s.QUE",name);
- if(!fgets(desc,81,que_lst))
- break;
- truncsp(desc);
- if(!fgets(tmp,81,que_lst))
- break;
- truncsp(tmp);
- if((file=nopen(str,O_RDONLY))!=-1) {
- fp=fdopen(file,"rb");
- total_ques++;
- if((que[i]=(questionnaire_t *)MALLOC(sizeof(questionnaire_t)))==NULL) {
- bprintf("Can't malloc questionnaires!\r\n");
- exit(1); }
- sprintf(que[i]->name,"%.8s",name);
- sprintf(que[i]->desc,"%.25s",desc);
- que[i]->req_age=atoi(tmp);
- fgets(str,128,fp);
- que[i]->total_ques=atoi(str);
- if(que[i]->total_ques<1 || que[i]->total_ques>20) {
- bprintf("Invalid number of questions (%d) in questionnaire #%d\r\n"
- ,que[i]->total_ques,i+1);
- exit(1); }
- for(j=0;j<que[i]->total_ques;j++) {
- if(!fgets(str,128,fp))
- break;
- truncsp(str);
- if(!str[0])
- break;
- str[80]=0;
- strcpy(que[i]->que[j].txt,str);
- fgets(str,128,fp);
- que[i]->que[j].answers=atoi(str);
- if(que[i]->que[j].answers<1 || que[i]->que[j].answers>16) {
- bprintf("Invalid number of answers (%d) in question #%d "
- "of questionnaire #%d\r\n"
- ,que[i]->que[j].answers,j+1,i+1);
- exit(1); }
- fgets(str,128,fp);
- que[i]->que[j].allowed=atoi(str);
- for(k=0;k<que[i]->que[j].answers;k++) {
- if(!fgets(str,128,fp))
- break;
- truncsp(str);
- if(!str[0])
- break;
- str[60]=0;
- strcpy(que[i]->que[j].ans[k],str); }
- que[i]->que[j].answers=k; }
-
- que[i]->total_ques=j; }
- fclose(fp);
- i++; }
-fclose(que_lst);
-
-lncntr=0;
-getsmsg(user_number);
-if(lncntr)
- pause();
-
-memset(&useron,0,sizeof(user_t));
-
-atexit(smm_exit);
-
-bputs("\1n\1hSearching for your profile...");
-rewind(index);
-while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(ixb.system==system_crc && ixb.number==user_number) {
- useron_record=(ftell(index)-sizeof(ixb_t))/sizeof(ixb_t);
- fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
- fread(&user,sizeof(user_t),1,stream);
- if(stricmp(user.realname,user_name)) { /* new name, so delete it */
- user.misc|=USER_DELETED;
- fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
- fwrite(&user,sizeof(user_t),1,stream);
- fseek(stream,0,SEEK_CUR);
- fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
- ixb.number=0;
- fwrite(&ixb,sizeof(ixb_t),1,index);
- sprintf(str,"%04u.MSG",user_number);
- remove(str);
- continue; }
- useron=user; /* name matches, same user */
- break; } }
-fflush(stream);
-fflush(index);
-CRLF;
-
-if(useron.number && useron.sex!='M' && useron.sex!='F') {
- if(yesno("Are you of male gender"))
- useron.sex='M';
- else
- useron.sex='F';
- write_user();
- user_sex=useron.sex; }
-
-if(!useron.number && user_sex!='M' && user_sex!='F' && can_add()) {
- if(yesno("Are you of male gender"))
- user_sex='M';
- else
- user_sex='F'; }
-
-if(!useron.number && can_add()) {
- sprintf(str,"%04u.MSG",user_number);
- remove(str);
- printfile("SMM_LOGO.ASC");
- if(yesno("\r\nYour profile doesn't exist. Create it now"))
- add_userinfo(); }
-
-if(gotoname[0]) {
- strupr(gotoname);
- name_crc=crc32(gotoname);
- rewind(index);
- i=0;
- while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.name!=name_crc)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(minor_protection(user))
- continue;
- i=1;
- if(!long_user_info(user))
- break; }
- if(!i) {
- bprintf("\r\n\1n\1h%s \1rnot found.\r\n",gotoname);
- pause(); }
- return; }
-
-/*********************************************/
-/* ALL User Messages (from Digital Dynamics) */
-/*********************************************/
-for(i=findfirst("ALL*.MSG",&ff,0);!i;i=findnext(&ff)) {
- if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
- bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
- pause();
- continue; }
- if((fp=fdopen(j,"rb"))==NULL) {
- bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
- pause();
- continue; }
- str[0]=0;
- fgets(str,128,fp);
- truncsp(str);
- ul=ahtoul(str); /* Expiration date */
- ul^=0x305F6C81UL;
- attr(LIGHTGRAY);
- cls();
- while(!feof(fp)) {
- if(!fgets(str,128,fp))
- break;
- bputs(str); }
- fclose(fp);
- CRLF;
- if(ul<=time(NULL))
- remove(ff.ff_name); }
-
-/**************************************************/
-/* One-time User Messages (from Digital Dynamics) */
-/**************************************************/
-for(i=findfirst("ONE*.MSG",&ff,0);!i;i=findnext(&ff)) {
- if(fdate_dir(ff.ff_name)<useron.lastin)
- continue;
- if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
- bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
- pause();
- continue; }
- if((fp=fdopen(j,"rb"))==NULL) {
- bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
- pause();
- continue; }
- str[0]=0;
- fgets(str,128,fp);
- truncsp(str);
- ul=ahtoul(str); /* Expiration date */
- ul^=0x305F6C81UL;
- attr(LIGHTGRAY);
- cls();
- while(!feof(fp)) {
- if(!fgets(str,128,fp))
- break;
- bputs(str); }
- fclose(fp);
- CRLF;
- if(ul<=time(NULL))
- remove(ff.ff_name); }
-
-/******************************************/
-/* Sysop Messages (from Digital Dynamics) */
-/******************************************/
-for(i=findfirst("SYS*.MSG",&ff,0);SYSOP && !i;i=findnext(&ff)) {
- if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
- bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
- pause();
- continue; }
- if((fp=fdopen(j,"rb"))==NULL) {
- bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
- pause();
- continue; }
- str[0]=0;
- fgets(str,128,fp);
- truncsp(str);
- ul=ahtoul(str); /* Expiration date */
- ul^=0x305F6C81UL;
- attr(LIGHTGRAY);
- cls();
- while(!feof(fp)) {
- if(!fgets(str,128,fp))
- break;
- bputs(str); }
- fclose(fp);
- CRLF;
- if(ul<=time(NULL) || !noyes("Delete message"))
- remove(ff.ff_name); }
-
-statusline();
-while(1) {
- checkline();
- aborted=0;
- attr(LIGHTGRAY);
- cls();
-
- bprintf("\1n \1b\1hSynchronet \1cMatch Maker \1bv%s (XSDK v%s) "
- "Developed 1995-1997 Rob Swindell\1n\r\n\r\n",SMM_VER,xsdk_ver);
- printfile("SMM_LOGO.ASC");
- CRLF;
-
- l=filelength(fileno(stream));
- if(l<0) l=0;
- sprintf(str,"\1n\1cThere are \1h%lu\1n\1c entries in the user profile "
- "database.\r\n",l/(long)sizeof(user_t));
- center(str);
-
- sprintf(str,"%04u.MSG",user_number);
- if(fexist(str))
- center("\1h\1mYou have awaiting telegrams!\r\n");
-
- if(flength("WALL.DAB")>0)
- center("\1h\1cThere is writing on the Wall.\r\n");
-
- if(!useron.number)
- center("\1h\1rYou have not yet created a profile!\r\n");
-
- printfile("SMM_MAIN.ASC");
-
- nodesync(); /* Display any waiting messages */
-
- bprintf("\r\n%32s\1b\1hWhich or [\1wQ\1b]uit: \1h\1w",nulstr);
- ch=getkey(K_UPPER);
-// bprintf("%c\r\n",ch);
- bputs("\r\1>");
- switch(ch) {
- case '?':
- break;
- case '*':
- if(!SYSOP)
- break;
- bputs("\1n\1hSearching...");
- rewind(stream);
- while(!feof(stream) && !aborted) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&USER_DELETED) {
- sprintf(str,"\r\nUndelete \1c%s \1b(\1c%s@%s\1b)"
- ,user.name,user.realname,user.system);
- if(!yesno(str))
- continue;
- fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
- user.misc&=~USER_DELETED;
- fwrite(&user,sizeof(user_t),1,stream);
- fseek(stream,0,SEEK_CUR);
- fseek(index
- ,((ftell(stream)-sizeof(user_t))/sizeof(user_t))
- *sizeof(ixb_t),SEEK_SET);
- strcpy(str,user.name);
- strupr(str);
- ixb.name=crc32(str);
- sprintf(str,"%.25s",user.system);
- strupr(str);
- ixb.system=crc32(str);
- ixb.updated=user.updated;
- ixb.number=user.number;
- fwrite(&ixb,sizeof(ixb_t),1,index);
- } }
- fflush(stream);
- fflush(index);
- break;
- case '!':
- if(!SYSOP)
- break;
- cls();
- bputs("\1n\1hSystems Participating in Your Database:\r\n\r\n\1m");
- crc_lst=NULL;
- j=0;
- rewind(stream);
- while(!feof(stream) && !aborted) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&USER_DELETED || !(user.misc&USER_FROMSMB))
- continue;
- if(!smm_pause)
- lncntr=0;
- sprintf(str,"%.25s",user.system);
- strupr(str);
- sys_crc=crc32(str);
- for(i=0;i<j;i++)
- if(sys_crc==crc_lst[i])
- break;
- if(i==j) {
- crc_lst=REALLOC(crc_lst,(j+1)*sizeof(ulong));
- if(crc_lst==NULL) {
- printf("REALLOC error!\n");
- pause();
- break; }
- crc_lst[j++]=sys_crc;
- bprintf("%s\r\n",user.system); } }
- if(crc_lst)
- FREE(crc_lst);
- if(j)
- bprintf("\1n\r\n\1h%u systems listed.\r\n",j);
- pause();
- break;
- case '\\':
- if(!SYSOP)
- break;
- bprintf("Rebuilding Index...");
- rewind(stream);
- rewind(index);
- while(!feof(stream)) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&USER_DELETED)
- ixb.number=0;
- else
- ixb.number=user.number;
- strupr(user.name);
- ixb.name=crc32(user.name);
- strupr(user.system);
- user.system[25]=0;
- ixb.system=crc32(user.system);
- ixb.updated=user.updated;
- fwrite(&ixb,sizeof(ixb_t),1,index); }
- break;
- case 'R':
- if(useron.number) {
- bputs("\1y\1hMinimum match percentage: \1w");
- sprintf(str,"%u",useron.min_match);
- if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
- break;
- useron.min_match=atoi(str);
- if(useron.min_match>100)
- useron.min_match=100; }
- rewind(stream);
- bprintf("\1n\1l\1hSearching...");
- while(!feof(stream) && !aborted) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&USER_DELETED)
- continue;
- if(minor_protection(user))
- continue;
- if(useron.min_match && useron.number) {
- match=total_match(useron,user);
- if(match<useron.min_match)
- continue; }
- if(!long_user_info(user))
- break;
- if(!smm_pause)
- lncntr=0;
- bprintf("\1n\1l\1hSearching..."); }
- break;
- case 'F':
- bputs("\1y\1hText to search for: ");
- if(!getstr(str,25,K_UPPER|K_LINE))
- break;
- ext=yesno("\r\nDisplay extended profiles");
- cls();
- if(!smm_pause && !ext)
- printfile("LIST_HDR.ASC");
- rewind(stream);
- i=0;
- while(!aborted) {
- bprintf("\1n\1l\1hSearching...");
- while(!feof(stream) && !aborted) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&USER_DELETED)
- continue;
- if(minor_protection(user))
- continue;
- tmpuser=user;
- sprintf(tmp,"%lu",user.number);
- strupr(user.name);
- strupr(user.realname);
- strupr(user.system);
- strupr(user.location);
- strupr(user.note[0]);
- strupr(user.note[1]);
- strupr(user.note[2]);
- strupr(user.note[3]);
- strupr(user.note[4]);
- if(strstr(user.name,str)
- || strstr(user.location,str)
- || strstr(user.mbtype,str)
- || strstr(user.note[0],str)
- || strstr(user.note[1],str)
- || strstr(user.note[2],str)
- || strstr(user.note[3],str)
- || strstr(user.note[4],str)
- || (SYSOP && strstr(user.realname,str))
- || (SYSOP && strstr(user.system,str))
- || (SYSOP && !strcmp(tmp,str))
- ) {
- i=1;
- if(ext && !long_user_info(tmpuser))
- break;
- if(!ext && short_user_info(tmpuser)==0)
- break;
- if(!smm_pause)
- lncntr=0; } }
- if(aborted || ext || !lncntr)
- break;
- user.number=0;
- if(short_user_info(user)>=0)
- break; }
- if(!i)
- bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
- break;
- case 'G':
- bputs("\1y\1hUser name: ");
- if(!getstr(str,25,K_UPPER|K_LINE))
- break;
- truncsp(str);
- name_crc=crc32(str);
- rewind(index);
- i=0;
- while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.name!=name_crc)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(minor_protection(user))
- continue;
- i=1;
- if(!long_user_info(user))
- break; }
- if(!i)
- bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
- break;
- case 'L':
- if(useron.number) {
- bputs("\1y\1hMinimum match percentage: \1w");
- sprintf(str,"%u",useron.min_match);
- if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
- break;
- useron.min_match=atoi(str);
- if(useron.min_match>100)
- useron.min_match=100; }
- cls();
- if(!smm_pause)
- printfile("LIST_HDR.ASC");
- rewind(stream);
- while(!aborted) {
- while(!feof(stream) && !aborted) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&USER_DELETED)
- continue;
- if(minor_protection(user))
- continue;
- if(useron.min_match && useron.number) {
- match=total_match(useron,user);
- if(match<useron.min_match)
- continue; }
- if(!short_user_info(user))
- break;
- if(!smm_pause)
- lncntr=0; }
- if(aborted || !lncntr)
- break;
- user.number=0;
- if(short_user_info(user)>=0)
- break; }
- break;
-
- case 'N':
- while(1) {
- checkline();
- bputs("\1y\1hLast update (MM/DD/YY): ");
- if(useron.number)
- unixtodstr(useron.lastin,str);
- else
- str[0]=0;
- if(!getstr(str,8,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- break;
- if(isdigit(str[0]) && isdigit(str[1]) && str[2]=='/'
- && isdigit(str[3]) && isdigit(str[4]) && str[5]=='/'
- && isdigit(str[6]) && isdigit(str[7]))
- break;
- bputs("\r\n\1h\1rInvalid date!\r\n\r\n"); }
- if(!str[0] || aborted)
- break;
- l=dstrtounix(str);
- if(useron.number) {
- bputs("\1y\1h\r\nMinimum match percentage: \1w");
- sprintf(str,"%u",useron.min_match);
- if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
- break;
- useron.min_match=atoi(str);
- if(useron.min_match>100)
- useron.min_match=100; }
- ext=!noyes("\r\nDisplay extended profiles");
- if(aborted)
- break;
- cls();
- if(!ext && !smm_pause)
- printfile("LIST_HDR.ASC");
- rewind(index);
- while(!aborted) {
- while(!feof(index) && !aborted) {
- if(!smm_pause)
- lncntr=0;
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.updated>=l) {
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(minor_protection(user))
- continue;
- if(useron.min_match && useron.number) {
- match=total_match(useron,user);
- if(match<useron.min_match)
- continue; }
- if(ext && !long_user_info(user))
- break;
- if(!ext && short_user_info(user)==0)
- break;
- continue; } }
- if(aborted || ext || !lncntr)
- break;
- user.number=0;
- if(short_user_info(user)>=0)
- break; }
- break;
-
- case 'U':
- case 'W': /* Create/Edit Profile */
- if(!can_add()) {
- bprintf("\1h\1rYou have insufficient access to create a "
- "profile.\r\n\r\n");
- break; }
-
- if(!useron.number) {
- add_userinfo();
- break; }
-
- user=useron;
- tleft=timeleft;
- if(!get_user_info(&user)) {
- timeleft=tleft;
- break; }
-
- if(!memcmp(&user,&useron,sizeof(user_t))) {
- timeleft=tleft;
- break; }
-
- if(!yesno("Save changes")) {
- timeleft=tleft;
- break; }
- timeleft=tleft;
- user.updated=time(NULL);
- useron=user;
- write_user();
- break;
-
- case 'D':
- if(SYSOP) {
- bputs("Name to Delete: ");
- if(useron.number) {
- strcpy(str,useron.name);
- strupr(str); }
- else
- str[0]=0;
- getstr(str,25,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
- rewind(stream);
- while(!feof(stream)) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- strcpy(tmp,user.name);
- strupr(tmp);
- if(!(user.misc&USER_DELETED) && strstr(tmp,str)) {
- sprintf(tmp,"Delete %s (%s@%s)"
- ,user.name,user.realname,user.system);
- i=noyes(tmp);
- if(aborted)
- break;
- if(i)
- continue;
- fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
- fseek(index
- ,((ftell(stream)-sizeof(user_t))/sizeof(user_t))
- *sizeof(ixb_t),SEEK_SET);
- user.misc|=USER_DELETED;
- fwrite(&user,sizeof(user_t),1,stream);
- fseek(stream,0,SEEK_CUR);
- memset(&ixb,0,sizeof(ixb_t));
- fwrite(&ixb,sizeof(ixb_t),1,index);
- fflush(stream);
- fflush(index);
- delphoto(user);
- if(user.number==user_number
- && !stricmp(user.system,system_name))
- useron.number=0;
- break; } }
- if(aborted)
- break;
- break; }
- if(!useron.number) {
- bputs("\1h\1rYour profile doesn't exist.\r\n\r\n");
- break; }
- if(noyes("Are you sure you want to delete your profile"))
- break;
- if(!cdt_warning(-profile_cdt))
- break;
- sprintf(str,"%04u.MSG",user_number);
- remove(str);
- fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
- useron.misc|=USER_DELETED;
- fwrite(&useron,sizeof(user_t),1,stream);
- fflush(stream);
- memset(&ixb,0,sizeof(ixb_t));
- fseek(index,useron_record*sizeof(ixb_t),SEEK_SET);
- fwrite(&ixb,sizeof(ixb_t),1,index);
- fflush(index);
- delphoto(user);
- useron.number=0;
- aborted=0;
- bputs("\r\n\1h\1r\1iProfile deleted.\r\n");
- adjust_cdt(-profile_cdt);
- break;
- case 'P':
- smm_pause=!smm_pause;
- bprintf("\1r\1hScreen pause is now \1w%s\r\n\r\n"
- ,smm_pause ? "ON":"OFF");
- break;
- case 'M':
- mbtype_desc(useron.mbtype);
- break;
- case 'H':
- cls();
- printfile("SMM_HELP.ASC");
- break;
- case 'O':
- if(noyes("Hang-up now"))
- break;
- dtr(5);
- if(node_dir) {
- sprintf(str,"%sHANGUP.NOW",node_dir);
- fopen(str,"wb");
- nodesync(); }
- return;
- case 'S':
- bputs("\1y\1hUser name: ");
- if(!getstr(str,25,K_UPPER|K_LINE))
- break;
- truncsp(str);
- name_crc=crc32(str);
- rewind(index);
- i=0;
- while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.name!=name_crc)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(minor_protection(user))
- continue;
- i=1;
- if(send_telegram(user))
- break; }
- if(!i)
- bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
- break;
- case 'T':
- sprintf(str,"%04u.MSG",user_number);
- if(!fexist(str)) {
- bputs("\1r\1hYou have no telegrams waiting.\r\n\r\n");
- break; }
- cls();
- printfile(str);
- if(noyes("\r\nDelete all telegrams waiting for you"))
- break;
- remove(str);
- break;
- case 'V': /* Visit the wall */
- if(getage(user_birth)<wall_age && !SYSOP) {
- bputs("\1r\1hSorry, you're too young to view the wall.\r\n");
- pause();
- break; }
- while(1) {
- checkline();
- bputs("\1y\1hView writing since (MM/DD/YY): ");
- if(useron.number)
- unixtodstr(useron.lastin,str);
- else
- str[0]=0;
- if(!getstr(str,8,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
- break;
- if(isdigit(str[0]) && isdigit(str[1]) && str[2]=='/'
- && isdigit(str[3]) && isdigit(str[4]) && str[5]=='/'
- && isdigit(str[6]) && isdigit(str[7]))
- break;
- bputs("\r\n\1h\1rInvalid date!\r\n\r\n"); }
- if(aborted)
- break;
- l=dstrtounix(str);
- ext=yesno("\r\nDisplay extended information when available");
- if(aborted)
- break;
- strcpy(str,"WALL.DAB");
- if((file=sopen(str,O_RDWR|O_BINARY|O_CREAT,SH_DENYNO
- ,S_IREAD|S_IWRITE))==-1) {
- bprintf("\r\nError opening %s\r\n",str);
- break; }
- cls();
- offset=0L;
- while(!eof(file) && !aborted) {
- if(read(file,&wall,sizeof(wall_t))!=sizeof(wall_t))
- break;
- if(wall.imported<l)
- continue;
- strcpy(str,wall.name);
- strupr(str);
- name_crc=crc32(str);
- sprintf(str,"%.25s",wall.system);
- strupr(str);
- sys_crc=crc32(str);
- rewind(index);
- i=0;
- user.sex=0;
- while(ext && !feof(index) && !aborted) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.name!=name_crc || ixb.system!=sys_crc)
- continue;
- fseek(stream
- ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(minor_protection(user))
- break;
- main_user_info(user);
- if(useron.number) {
- CRLF;
- bprintf("\1h\1mThis user meets your profile "
- "preferences:\1w%3u%% "
- ,basic_match(useron,user));
- bprintf("\1n\1gCreated: \1h%s\r\n"
- ,unixtodstr(user.created,str));
- bprintf("\1h\1mYou meet this user's profile "
- "preferences:\1w%3u%% "
- ,basic_match(user,useron));
- bprintf("\1n\1gUpdated: \1h%s\r\n"
- ,unixtodstr(user.updated,str)); }
-
- i=1;
- CRLF;
- break; }
- if(!i) {
- if(ext)
- cls();
- bprintf("\1n\1h%s ",wall.name); }
- bprintf("\1n\1h\1cWrote on %s:\r\n"
- ,timestr(&wall.written));
- for(j=0;j<5;j++) {
- if(!wall.text[j][0])
- break;
- bprintf("\1n\1%c%5s%s\r\n"
- ,user.sex=='F'?'m':'g',"",wall.text[j]); }
- if(aborted)
- break;
- if(ext) {
- nodesync();
- if(i) {
- bputs(PrevReadSendQuitOrMore);
- ch=getkey(K_UPPER);
- if(ch=='R')
- long_user_info(user);
- if(ch=='S')
- send_telegram(user);
- if(ch=='R' || ch=='S') /* Don't move forward */
- lseek(file,tell(file)-sizeof(wall_t),SEEK_SET); }
- else {
- bputs("\r\n\1n\1hProfile not found.\r\n\r\n");
- bputs("\1b[\1cP\1b]revious, [\1cQ\1b]uit, "
- "or [\1cM\1b]ore: \1c");
- ch=getkey(K_UPPER); }
- if(ch=='P') {
- lseek(file,offset,SEEK_SET);
- if(tell(file))
- lseek(file,tell(file)-sizeof(wall_t),SEEK_SET);
- offset=tell(file);
- continue; }
- if(ch=='Q') {
- cls();
- break; }
- offset=tell(file); }
- else if(lncntr+7>=user_rows || eof(file)) {
- lncntr=0;
- bputs(PrevReadSendQuitOrMore);
- ch=getkey(K_UPPER);
- if(ch=='Q')
- break;
- else if(ch=='S' || ch=='R') {
- bprintf("\1n\r\1>\1y\1hUser name: ");
- if(getstr(name,25,K_UPPER|K_LINE|K_NOCRLF)) {
- truncsp(name);
- name_crc=crc32(name);
- rewind(index);
- i=0;
- while(!feof(index)) {
- if(!fread(&ixb,sizeof(ixb_t),1,index))
- break;
- if(!ixb.number) /* DELETED */
- continue;
- if(ixb.name!=name_crc)
- continue;
- fseek(stream
- ,((ftell(index)
- -sizeof(ixb_t))/sizeof(ixb_t))
- *sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,stream))
- continue;
- if(minor_protection(user))
- continue;
- i=1;
- if(ch=='S' && send_telegram(user))
- break;
- if(ch=='R' && !long_user_info(user))
- break; }
- if(!i)
- bprintf("\r\n\1n\1h%s \1rnot found.\r\n",name);
- }
- lseek(file,offset,SEEK_SET); }
- else if(ch=='P') {
- lseek(file,offset,SEEK_SET);
- for(i=0;i<4;i++)
- if(tell(file))
- lseek(file,tell(file)-sizeof(wall_t),SEEK_SET);
- }
- cls();
- offset=tell(file); } }
- cls();
- if(user_level<wall_level) {
- close(file);
- bputs("\r\n\1h\1rYou have insufficient access to write on the "
- "wall.\r\n");
- pause();
- break; }
- if(aborted || noyes("Write on the Wall")) {
- close(file);
- break; }
- if(!useron.number) {
- bputs("\r\n\1h\1rYou must create a profile first.\r\n");
- close(file);
- break; }
- if(!cdt_warning(wall_cdt)) {
- close(file);
- break; }
- memset(&wall,0,sizeof(wall_t));
- strcpy(wall.name,useron.name);
- strcpy(wall.system,system_name);
- wall.written=wall.imported=time(NULL);
- bputs("\1l\1n\1hWriting on the Wall:\r\n\r\n");
- for(i=0;i<5 && !aborted;i++) {
- bprintf("\1n\1h\1%c%u of 5: \1n\1%c"
- ,useron.sex=='F'?'m':'g',i+1,useron.sex=='F'?'m':'g');
- if(!getstr(wall.text[i],70,i==4 ? K_MSG:K_MSG|K_WRAP))
- break;
- if(trash(wall.text[i])) {
- bprintf("\r\n\1r\1hSorry, you can't use that text."
- "\r\n\r\n");
- i--;
- continue; } }
- if(!i || aborted || !yesno("\r\nSave")) {
- close(file);
- break; }
- lseek(file,0L,SEEK_END);
- write(file,&wall,sizeof(wall_t));
- close(file);
- adjust_cdt(wall_cdt);
- if(notify_user && notify_user!=user_number) {
- sprintf(str,"\1n\1hSMM: \1y%s\1m wrote on the Match Maker "
- "Wall\r\n",user_name);
- if(node_dir[0])
- putsmsg(notify_user,str);
- else
- puttgram(notify_user,str); }
- break;
- case 'Q':
- return; } }
-}
-
-/* End of SMM.C */
diff --git a/src/sbbs2/smm/smm2msg.c b/src/sbbs2/smm/smm2msg.c
deleted file mode 100644
index 6e9a05da3ccde266f7de3f90778989a0d8585c26..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smm2msg.c
+++ /dev/null
@@ -1,539 +0,0 @@
-/* SMM2MSG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Scans SMM database and posts any additions/updates into an MSG file */
-
-#define uint unsigned int
-
-#include <dos.h>
-#include "smblib.h"
-#include "smmdefs.h"
-
-#define VERSION "1.00�"
-
-smb_t smb;
-extern int daylight=0;
-extern long timezone=0L;
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-uchar cryptchar(uchar ch, ulong seed)
-{
-if(ch==1)
- return(0xfe);
-if(ch<0x20 || ch&0x80) /* Ctrl chars and ex-ASCII are not xlated */
- return(ch);
-return(ch^(seed&0x1f));
-}
-
-char *encrypt(uchar *str, ulong seed)
-{
- static uchar out[1024];
- int i,j;
-
-j=strlen(str);
-for(i=0;i<j;i++)
- out[i]=cryptchar(str[i],seed^(i&7));
-out[i]=0;
-return(out);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct time curtime;
- struct date date;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-#define BUF_LEN 8192
-
-int main(int argc, char **argv)
-{
- uchar str[128],tmp[128],msg_dir[128],buf[BUF_LEN],telegram[513],*p;
- int i,j,file;
- ushort xlat;
- long length;
- ulong offset;
- time_t last,t;
- user_t user,from;
- wall_t wall;
- smbmsg_t msg;
- FILE *stream;
-
-fprintf(stderr,"\nSMM2MSG v%s - Write SMM data to MSG - Developed 1995-1997 "
- "Rob Swindell\n\n",VERSION);
-
-if(checktime()) {
- printf("Time problem!\n");
- return(-1); }
-
-if(argc<3) {
- fprintf(stderr,"usage: smm2msg <smm.dab> <msg_dir>\n\n");
- fprintf(stderr,"example: smm2msg c:\\sbbs\\xtrn\\smm\\smm.dab "
- "c:\\im\\mail\n");
- return(1); }
-
-
-strcpy(msg_dir,argv[2]);
-strupr(msg_dir);
-
-strcpy(str,argv[1]);
-strupr(str);
-if((file=open(str,O_RDONLY|O_BINARY|O_DENYNONE))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if((stream=fdopen(file,"rb"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
-setvbuf(stream,NULL,_IOFBF,4096);
-
-strcpy(tmp,str);
-p=strrchr(tmp,'.');
-if(p) {
- (*p)=0;
- strcat(tmp,"2MSG.DAB");
- if((file=open(tmp,O_RDWR|O_BINARY|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
- t=time(NULL);
- if(read(file,&last,sizeof(time_t))!=sizeof(time_t))
- last=0;
- lseek(file,0L,SEEK_SET);
- write(file,&t,sizeof(time_t));
- close(file); }
-
-//sprintf(str,"%s.SHD",smb.file);
-//if(!fexist(str)) {
-// printf("%s doesn't exist\n",smb.file);
-// return(0); }
-//fprintf(stderr,"Opening %s\n",smb.file);
-//smb.retry_time=30;
-//if((i=smb_open(&smb))!=0) {
-// printf("smb_open returned %d\n",i);
-// return(1); }
-
-strcpy(str,argv[1]);
-strupr(str);
-p=strrchr(str,'\\');
-if(p) p++;
-else p=str;
-strcpy(p,"TELEGRAM.DAB");
-if((file=open(str,O_RDWR|O_DENYNONE|O_BINARY))!=-1) {
- while(!eof(file)) {
- read(file,from.system,sizeof(user.system));
- read(file,user.system,sizeof(user.system));
- read(file,&user.number,sizeof(user.number));
- printf("Telegram to: %lu@%s\n",user.number,user.system);
- read(file,telegram,512);
- telegram[512]=0;
- sprintf(buf,"}%lx\r\n%s",user.number,encrypt(telegram,user.number));
- strcat(buf,"\r\n"); /* blank line terminates telegram */
- strcat(buf,"\r\n--- SMM2MSG v");
- strcat(buf,VERSION);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,from.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- strcpy(str,user.system);
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
- chsize(file,0L);
- close(file); }
-
-strcpy(str,argv[1]);
-strupr(str);
-p=strrchr(str,'\\');
-if(p) p++;
-else p=str;
-strcpy(p,"WALL.DAB");
-if((file=sopen(str,O_RDONLY|O_BINARY,SH_DENYNO))!=-1) {
- while(!eof(file)) {
- if(!read(file,&wall,sizeof(wall_t)))
- break;
- if(last && wall.imported<last)
- continue;
-
- if(wall.imported!=wall.written) /* Imported from SMB */
- continue;
-
- printf("Wall writing from: %s\n",wall.name);
- sprintf(buf,"%s\r\n",encrypt(wall.name,wall.written));
- sprintf(str,"%s\r\n",encrypt(wall.system,wall.written));
- strcat(buf,str);
- for(i=0;i<5;i++) {
- sprintf(str,"%s\r\n",encrypt(wall.text[i],wall.written));
- strcat(buf,str); }
- sprintf(str,"%lx\r\n",wall.written);
- strcat(buf,str);
- strcat(buf,"\r\n--- SMM2SMB v");
- strcat(buf,VERSION);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,wall.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- strcpy(str,"->WALL<-");
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
- close(file); }
-
-
-while(!feof(stream)) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&(USER_FROMSMB|USER_DELETED)
- || (last && user.updated<last && user.created<last)
- || user.number&0xffff0000L
- || user.number==0
- || user.system[0]<SP
- || user.name[0]<SP
- || user.realname[0]<SP
- || user.location[0]<SP
- || user.zipcode[0]<SP
- || user.birth[0]<SP)
- continue;
-
- printf("Profile: %s\n",user.name);
- memset(buf,0,BUF_LEN);
-
- sprintf(str,"0:%.25s\r\n",encrypt(user.name,user.number));
- strcat(buf,str);
- sprintf(str,"1:%.25s\r\n",encrypt(user.realname,user.number));
- strcat(buf,str);
-
- sprintf(str,"2:%.8s\r\n",encrypt(user.birth,user.number));
- strcat(buf,str);
-
- sprintf(str,"3:%.30s\r\n",encrypt(user.location,user.number));
- strcat(buf,str);
-
- sprintf(str,"4:%.10s\r\n",encrypt(user.zipcode,user.number));
- strcat(buf,str);
- sprintf(str,"5:%.10s\r\n",encrypt(user.min_zipcode,user.number));
- strcat(buf,str);
- sprintf(str,"6:%.10s\r\n",encrypt(user.max_zipcode,user.number));
- strcat(buf,str);
- sprintf(str,"7:%.4s\r\n",encrypt(user.mbtype,user.number));
- strcat(buf,str);
-
- sprintf(str,"A:%.50s\r\n",encrypt(user.note[0],user.number));
- strcat(buf,str);
- sprintf(str,"B:%.50s\r\n",encrypt(user.note[1],user.number));
- strcat(buf,str);
- sprintf(str,"C:%.50s\r\n",encrypt(user.note[2],user.number));
- strcat(buf,str);
- sprintf(str,"D:%.50s\r\n",encrypt(user.note[3],user.number));
- strcat(buf,str);
- sprintf(str,"E:%.50s\r\n",encrypt(user.note[4],user.number));
- strcat(buf,str);
-
- sprintf(str,"F:%c%c\r\n",user.sex,user.pref_sex);
- strcat(buf,str);
-
- sprintf(str,"G:%x\r\n",user.marital);
- strcat(buf,str);
- sprintf(str,"H:%x\r\n",user.pref_marital);
- strcat(buf,str);
-
- sprintf(str,"I:%x\r\n",user.race);
- strcat(buf,str);
- sprintf(str,"J:%x\r\n",user.pref_race);
- strcat(buf,str);
-
- sprintf(str,"K:%x\r\n",user.hair);
- strcat(buf,str);
- sprintf(str,"L:%x\r\n",user.pref_hair);
- strcat(buf,str);
-
- sprintf(str,"M:%x\r\n",user.eyes);
- strcat(buf,str);
- sprintf(str,"N:%x\r\n",user.pref_eyes);
- strcat(buf,str);
-
- sprintf(str,"O:%x\r\nP:%x\r\nQ:%x\r\n"
- ,user.weight,user.min_weight,user.max_weight);
- strcat(buf,str);
-
- sprintf(str,"R:%x\r\nS:%x\r\nT:%x\r\n"
- ,user.height,user.min_height,user.max_height);
- strcat(buf,str);
-
- sprintf(str,"U:%x\r\nV:%x\r\nW:%x\r\n"
- ,user.min_age,user.max_age,user.purity);
- strcat(buf,str);
-
- sprintf(str,"X:%lx\r\nY:%lx\r\nZ:%lx\r\n!:%lx\r\n"
- ,user.income,user.min_income,user.max_income,time(NULL));
- strcat(buf,str);
-
- for(i=0;i<5;i++) {
- if(!user.queans[i].name[0])
- continue;
- sprintf(str,"*%d%.8s\r\n",i,encrypt(user.queans[i].name,user.number));
- strcat(buf,str);
- for(j=0;j<20;j++) {
- sprintf(str," %04x %04x"
- ,user.queans[i].self[j]
- ,user.queans[i].pref[j]);
- strcat(buf,str);
- if(!((j+1)%7))
- strcat(buf,"\r\n"); }
- strcat(buf,"\r\n"); }
-
- strcat(buf,"\r\n--- SMM2MSG v");
- strcat(buf,VERSION);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,user.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- sprintf(str,"%lu",user.number);
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
-return(0);
-}
-
diff --git a/src/sbbs2/smm/smm2smb.c b/src/sbbs2/smm/smm2smb.c
deleted file mode 100644
index dc69db33e94f4d68290118c54d72bd1e4e65a95e..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smm2smb.c
+++ /dev/null
@@ -1,540 +0,0 @@
-/* SMM2SMB.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Scans SMM database and posts any additions/updates into the an SMB base */
-
-#define uint unsigned int
-
-#include <dos.h>
-#include "smblib.h"
-#include "smmdefs.h"
-
-#define VERSION "2.01"
-
-smb_t smb;
-extern int daylight=0;
-extern long timezone=0L;
-
-unsigned _stklen=16000;
-
-uchar cryptchar(uchar ch, ulong seed)
-{
-if(ch==1)
- return(0xfe);
-if(ch<0x20 || ch&0x80) /* Ctrl chars and ex-ASCII are not xlated */
- return(ch);
-return(ch^(seed&0x1f));
-}
-
-char *encrypt(uchar *str, ulong seed)
-{
- static uchar out[1024];
- int i,j;
-
-j=strlen(str);
-for(i=0;i<j;i++)
- out[i]=cryptchar(str[i],seed^(i&7));
-out[i]=0;
-return(out);
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==0)
- return(1);
-return(0);
-}
-
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct time curtime;
- struct date date;
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-time_t checktime()
-{
- struct tm tm;
-
-memset(&tm,0,sizeof(tm));
-tm.tm_year=94;
-tm.tm_mday=1;
-return(mktime(&tm)^0x2D24BD00L);
-}
-
-#define BUF_LEN 8192
-
-int main(int argc, char **argv)
-{
- uchar str[128],tmp[128],buf[BUF_LEN],telegram[513],*p;
- int i,j,file;
- ushort xlat;
- long length;
- ulong offset;
- time_t last,t;
- user_t user,from;
- wall_t wall;
- smbmsg_t msg;
- FILE *stream;
-
-fprintf(stderr,"\nSMM2SMB v%s - Write SMM data to SMB - Developed 1994-1997 "
- "Rob Swindell\n\n",VERSION);
-
-if(checktime()) {
- printf("Time problem!\n");
- return(-1); }
-
-if(argc<3) {
- fprintf(stderr,"usage: smm2smb <smm.dab> <smb_file>\n\n");
- fprintf(stderr,"example: smm2smb c:\\sbbs\\xtrn\\smm\\smm.dab "
- "c:\\sbbs\\data\\subs\\syncdata\n");
- return(1); }
-
-
-strcpy(smb.file,argv[2]);
-strupr(smb.file);
-
-strcpy(str,argv[1]);
-strupr(str);
-if((file=open(str,O_RDONLY|O_BINARY|O_DENYNONE))==-1) {
- printf("error opening %s\n",str);
- return(1); }
-if((stream=fdopen(file,"rb"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
-setvbuf(stream,NULL,_IOFBF,4096);
-
-strcpy(tmp,str);
-p=strrchr(tmp,'.');
-if(p) {
- (*p)=0;
- strcat(tmp,"2SMB.DAB");
- if((file=open(tmp,O_RDWR|O_BINARY|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
- t=time(NULL);
- if(read(file,&last,sizeof(time_t))!=sizeof(time_t))
- last=0;
- lseek(file,0L,SEEK_SET);
- write(file,&t,sizeof(time_t));
- close(file); }
-
-sprintf(str,"%s.SHD",smb.file);
-if(!fexist(str)) {
- printf("%s doesn't exist\n",smb.file);
- return(0); }
-fprintf(stderr,"Opening %s\n",smb.file);
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- return(1); }
-
-strcpy(str,argv[1]);
-strupr(str);
-p=strrchr(str,'\\');
-if(p) p++;
-else p=str;
-strcpy(p,"TELEGRAM.DAB");
-if((file=open(str,O_RDWR|O_DENYNONE|O_BINARY))!=-1) {
- while(!eof(file)) {
- read(file,from.system,sizeof(user.system));
- read(file,user.system,sizeof(user.system));
- read(file,&user.number,sizeof(user.number));
- printf("Telegram to: %lu@%s\n",user.number,user.system);
- read(file,telegram,512);
- telegram[512]=0;
- sprintf(buf,"}%lx\r\n%s",user.number,encrypt(telegram,user.number));
- strcat(buf,"\r\n"); /* blank line terminates telegram */
- strcat(buf,"\r\n--- SMM2SMB v");
- strcat(buf,VERSION);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=smb_ver();
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,from.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- strcpy(str,user.system);
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
- chsize(file,0L);
- close(file); }
-
-strcpy(str,argv[1]);
-strupr(str);
-p=strrchr(str,'\\');
-if(p) p++;
-else p=str;
-strcpy(p,"WALL.DAB");
-if((file=sopen(str,O_RDONLY|O_BINARY,SH_DENYNO))!=-1) {
- while(!eof(file)) {
- if(!read(file,&wall,sizeof(wall_t)))
- break;
- if(last && wall.imported<last)
- continue;
-
- if(wall.imported!=wall.written) /* Imported from SMB */
- continue;
-
- printf("Wall writing from: %s\n",wall.name);
- sprintf(buf,"%s\r\n",encrypt(wall.name,wall.written));
- sprintf(str,"%s\r\n",encrypt(wall.system,wall.written));
- strcat(buf,str);
- for(i=0;i<5;i++) {
- sprintf(str,"%s\r\n",encrypt(wall.text[i],wall.written));
- strcat(buf,str); }
- sprintf(str,"%lx\r\n",wall.written);
- strcat(buf,str);
- strcat(buf,"\r\n--- SMM2SMB v");
- strcat(buf,VERSION);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=smb_ver();
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,wall.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- strcpy(str,"->WALL<-");
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
- close(file); }
-
-
-while(!feof(stream)) {
- if(!fread(&user,sizeof(user_t),1,stream))
- break;
- if(user.misc&(USER_FROMSMB|USER_DELETED)
- || (last && user.updated<last && user.created<last)
- || user.number&0xffff0000L
- || user.number==0
- || user.system[0]<SP
- || user.name[0]<SP
- || user.realname[0]<SP
- || user.location[0]<SP
- || user.zipcode[0]<SP
- || user.birth[0]<SP)
- continue;
-
- printf("Profile: %s\n",user.name);
- memset(buf,0,BUF_LEN);
-
- sprintf(str,"0:%.25s\r\n",encrypt(user.name,user.number));
- strcat(buf,str);
- sprintf(str,"1:%.25s\r\n",encrypt(user.realname,user.number));
- strcat(buf,str);
-
- sprintf(str,"2:%.8s\r\n",encrypt(user.birth,user.number));
- strcat(buf,str);
-
- sprintf(str,"3:%.30s\r\n",encrypt(user.location,user.number));
- strcat(buf,str);
-
- sprintf(str,"4:%.10s\r\n",encrypt(user.zipcode,user.number));
- strcat(buf,str);
- sprintf(str,"5:%.10s\r\n",encrypt(user.min_zipcode,user.number));
- strcat(buf,str);
- sprintf(str,"6:%.10s\r\n",encrypt(user.max_zipcode,user.number));
- strcat(buf,str);
- sprintf(str,"7:%.4s\r\n",encrypt(user.mbtype,user.number));
- strcat(buf,str);
-
- sprintf(str,"A:%.50s\r\n",encrypt(user.note[0],user.number));
- strcat(buf,str);
- sprintf(str,"B:%.50s\r\n",encrypt(user.note[1],user.number));
- strcat(buf,str);
- sprintf(str,"C:%.50s\r\n",encrypt(user.note[2],user.number));
- strcat(buf,str);
- sprintf(str,"D:%.50s\r\n",encrypt(user.note[3],user.number));
- strcat(buf,str);
- sprintf(str,"E:%.50s\r\n",encrypt(user.note[4],user.number));
- strcat(buf,str);
-
- sprintf(str,"F:%c%c\r\n",user.sex,user.pref_sex);
- strcat(buf,str);
-
- sprintf(str,"G:%x\r\n",user.marital);
- strcat(buf,str);
- sprintf(str,"H:%x\r\n",user.pref_marital);
- strcat(buf,str);
-
- sprintf(str,"I:%x\r\n",user.race);
- strcat(buf,str);
- sprintf(str,"J:%x\r\n",user.pref_race);
- strcat(buf,str);
-
- sprintf(str,"K:%x\r\n",user.hair);
- strcat(buf,str);
- sprintf(str,"L:%x\r\n",user.pref_hair);
- strcat(buf,str);
-
- sprintf(str,"M:%x\r\n",user.eyes);
- strcat(buf,str);
- sprintf(str,"N:%x\r\n",user.pref_eyes);
- strcat(buf,str);
-
- sprintf(str,"O:%x\r\nP:%x\r\nQ:%x\r\n"
- ,user.weight,user.min_weight,user.max_weight);
- strcat(buf,str);
-
- sprintf(str,"R:%x\r\nS:%x\r\nT:%x\r\n"
- ,user.height,user.min_height,user.max_height);
- strcat(buf,str);
-
- sprintf(str,"U:%x\r\nV:%x\r\nW:%x\r\n"
- ,user.min_age,user.max_age,user.purity);
- strcat(buf,str);
-
- sprintf(str,"X:%lx\r\nY:%lx\r\nZ:%lx\r\n!:%lx\r\n"
- ,user.income,user.min_income,user.max_income,time(NULL));
- strcat(buf,str);
-
- for(i=0;i<5;i++) {
- if(!user.queans[i].name[0])
- continue;
- sprintf(str,"*%d%.8s\r\n",i,encrypt(user.queans[i].name,user.number));
- strcat(buf,str);
- for(j=0;j<20;j++) {
- sprintf(str," %04x %04x"
- ,user.queans[i].self[j]
- ,user.queans[i].pref[j]);
- strcat(buf,str);
- if(!((j+1)%7))
- strcat(buf,"\r\n"); }
- strcat(buf,"\r\n"); }
-
- strcat(buf,"\r\n--- SMM2SMB v");
- strcat(buf,VERSION);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=smb_ver();
- msg.hdr.when_written.time=time(NULL);
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SMM");
- i=smb_hfield(&msg,RECIPIENT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,user.system);
- i=smb_hfield(&msg,SENDER,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- sprintf(str,"%lu",user.number);
- i=smb_hfield(&msg,SUBJECT,strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
-return(0);
-}
-
-/* End of SMM2SMB.C */
diff --git a/src/sbbs2/smm/smmcfg.c b/src/sbbs2/smm/smmcfg.c
deleted file mode 100644
index b4e5003e0712c9283f53da2e164d8ccce527f65f..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smmcfg.c
+++ /dev/null
@@ -1,616 +0,0 @@
-/* SMMCFG.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <uifc.h>
-#include <sys\stat.h>
-#include "gen_defs.h"
-#include "smmdefs.h"
-#include "smmvars.c"
-
-char **opt;
-
-void bail(int code);
-void main();
-char fexist(char *filespec);
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-void bail(int code)
-{
-
-if(code)
- getch();
-uifcbail();
-exit(code);
-}
-
-void main()
-{
- char str[256];
- int i,j,k,file,dflt,sysop_level;
- FILE *stream;
-
-savnum=0;
-if((opt=(char **)MALLOC(sizeof(char *)*300))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-for(i=0;i<300;i++)
- if((opt[i]=(char *)MALLOC(MAX_OPLN))==NULL) {
- cputs("memory allocation error\r\n");
- bail(1); }
-uifcini();
-sprintf(str,"Synchronet Match Maker v%s",SMM_VER);
-uscrn(str);
-
-if((file=open("SMM.CFG",O_RDONLY|O_BINARY|O_DENYNONE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening SMM.CFG\r\n");
- bail(1); }
-if((stream=fdopen(file,"rb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen SMM.CFG\r\n");
- bail(1); }
-
-str[0]=0;
-fgets(str,128,stream);
-purity_age=atoi(str);
-str[0]=0;
-fgets(str,128,stream);
-min_age=atoi(str);
-str[0]=0;
-fgets(str,128,stream);
-min_level=atoi(str);
-
-req_flags1[0]=0;
-fgets(req_flags1,128,stream);
-req_flags1[27]=0;
-truncsp(req_flags1);
-
-req_flags2[0]=0;
-fgets(req_flags2,128,stream);
-req_flags2[27]=0;
-truncsp(req_flags2);
-
-req_flags3[0]=0;
-fgets(req_flags3,128,stream);
-req_flags3[27]=0;
-truncsp(req_flags3);
-
-req_flags4[0]=0;
-fgets(req_flags4,128,stream);
-req_flags4[27]=0;
-truncsp(req_flags4);
-
-str[0]=0;
-fgets(str,128,stream);
-profile_cdt=atol(str);
-str[0]=0;
-fgets(str,128,stream);
-telegram_cdt=atol(str);
-str[0]=0;
-fgets(str,128,stream);
-auto_update=atoi(str);
-str[0]=0;
-fgets(str,128,stream);
-notify_user=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream); // regnum
-
-str[0]=0;
-fgets(str,128,stream);
-telegram_level=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-que_level=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-wall_level=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-wall_cdt=atol(str);
-
-str[0]=0;
-fgets(str,128,stream);
-que_cdt=atol(str);
-
-zmodem_send[0]=0;
-fgets(zmodem_send,128,stream);
-if(!zmodem_send[0])
- strcpy(zmodem_send,DEFAULT_ZMODEM_SEND);
-truncsp(zmodem_send);
-
-str[0]=0;
-fgets(str,128,stream);
-smm_misc=atol(str);
-
-str[0]=0;
-fgets(str,128,stream);
-sprintf(system_name,"%.25s",str);
-truncsp(system_name);
-
-local_view[0]=0;
-fgets(local_view,128,stream);
-truncsp(local_view);
-
-str[0]=0;
-fgets(str,128,stream);
-sysop_level=atoi(str);
-if(!sysop_level)
- sysop_level=90;
-
-str[0]=0;
-fgets(str,128,stream);
-wall_age=atoi(str);
-
-str[0]=0;
-fgets(str,128,stream);
-age_split=atoi(str);
-
-fclose(stream);
-
-
-dflt=0;
-while(1) {
- helpbuf=
-" Synchronet Match Maker Configuration \r\n\r\n"
-"Move through the various options using the arrow keys. Select the\r\n"
-"highlighted options by pressing ENTER.\r\n\r\n";
- j=0;
- sprintf(opt[j++],"%-40.40s %s","System Name",system_name);
- sprintf(opt[j++],"Wall Security...");
- sprintf(opt[j++],"Profile Database Security...");
- sprintf(str,"Credit %s for Adding Profile"
- ,profile_cdt>0 ? "Bonus":"Cost");
- sprintf(opt[j++],"%-40.40s %ldk",str
- ,profile_cdt>0 ? profile_cdt/1024L : (-profile_cdt)/1024L);
- sprintf(str,"Credit %s for Sending Telegram"
- ,telegram_cdt>0 ? "Bonus":"Cost");
- sprintf(opt[j++],"%-40.40s %ldk",str
- ,telegram_cdt>0 ? telegram_cdt/1024L : (-telegram_cdt)/1024L);
- sprintf(str,"Credit %s for Writing on the Wall"
- ,wall_cdt>0 ? "Bonus":"Cost");
- sprintf(opt[j++],"%-40.40s %ldk",str
- ,wall_cdt>0 ? wall_cdt/1024L : (-wall_cdt)/1024L);
- sprintf(str,"Credit %s for Reading Questionnaire"
- ,que_cdt>0 ? "Bonus":"Cost");
- sprintf(opt[j++],"%-40.40s %ldk",str
- ,que_cdt>0 ? que_cdt/1024L : (-que_cdt)/1024L);
- sprintf(opt[j++],"%-40.40s %u","Minimum Level to Send Telegrams"
- ,telegram_level);
- sprintf(opt[j++],"%-40.40s %u","Minimum Level to Read Questionnaires"
- ,que_level);
- sprintf(opt[j++],"%-40.40s %s","Minor Segregation (Protection) Age"
- ,age_split ? itoa(age_split,str,10):"Disabled");
- sprintf(opt[j++],"%-40.40s %u","Sysop Level",sysop_level);
- sprintf(opt[j++],"%-40.40s %s","Auto-Update Profiles"
- ,auto_update ? itoa(auto_update,str,10):"Disabled");
- sprintf(opt[j++],"%-40.40s %s","Notify User of Activity"
- ,notify_user ? itoa(notify_user,str,10):"Disabled");
- sprintf(opt[j++],"%-40.40s %s","Use Metric System"
- ,smm_misc&SMM_METRIC ? "Yes":"No");
- sprintf(opt[j++],"%-40.40s %.25s","Zmodem Send Command"
- ,zmodem_send);
- sprintf(opt[j++],"%-40.40s %.25s","Local Photo Viewer"
- ,local_view);
- opt[j][0]=NULL;
- switch(ulist(WIN_ORG|WIN_MID|WIN_ACT|WIN_ESC,0,0,60,&dflt,0
- ,"Synchronet Match Maker Configuration",opt)) {
- case 0:
-helpbuf=
-" System Name \r\n\r\n"
-"This is your BBS name. Once you have configured your BBS name here, you\r\n"
-"will not be able to change it, without losing all of your local users'\r\n"
-"profiles in your database.\r\n"
-"\r\n"
-"It is highly recommended that you do not change your BBS name here,\r\n"
-"even if you decide to change your actual BBS name in the future.\r\n"
-"\r\n"
-"All BBS names in a match maker network must be unique.";
- uinput(WIN_MID,0,0,"System Name"
- ,system_name,40,K_EDIT|K_UPPER);
- break;
- case 1:
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"%-40.40s %u"
- ,"Minimum User Age to Access Wall"
- ,wall_age);
- sprintf(opt[k++],"%-40.40s %u"
- ,"Minimum Security Level to Write on Wall"
- ,wall_level);
- opt[k][0]=NULL;
-helpbuf=
-" Wall Security \r\n\r\n"
-"This menu allows you to specify which users can access the wall.\r\n";
-
- j=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,0,0,0,&j,0
- ,"Wall Security",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
-helpbuf=
-" Minimum User Age \r\n\r\n"
-"This is the minimum user age that will be allowed to access (read or\r\n"
-"write) the wall.";
- sprintf(str,"%u",wall_age);
- uinput(WIN_L2R|WIN_SAV,0,0,
- "Minimum Age to Access Wall"
- ,str,2,K_EDIT|K_NUMBER);
- wall_age=atoi(str);
- break;
- case 1:
-helpbuf=
-" Minimum User Level \r\n\r\n"
-"This is the minimum user level required to write on the wall.\r\n";
- sprintf(str,"%u",wall_level);
- uinput(WIN_L2R|WIN_SAV,0,0,
- "Minimum Level to Write on Wall"
- ,str,2,K_EDIT|K_NUMBER);
- wall_level=atoi(str);
- break; } }
- break;
- case 2:
- j=0;
- while(1) {
- k=0;
- sprintf(opt[k++],"%-40.40s %u"
- ,"Minimum User Age to Add Profile"
- ,min_age);
- sprintf(opt[k++],"%-40.40s %u"
- ,"Minimum User Age to Take Purity Test"
- ,purity_age);
- sprintf(opt[k++],"%-40.40s %u"
- ,"Minimum Security Level to Add Profile"
- ,min_level);
- sprintf(opt[k++],"%-40.40s %s"
- ,"Required Flags (Set 1) to Add Profile"
- ,req_flags1);
- sprintf(opt[k++],"%-40.40s %s"
- ,"Required Flags (Set 2) to Add Profile"
- ,req_flags2);
- sprintf(opt[k++],"%-40.40s %s"
- ,"Required Flags (Set 3) to Add Profile"
- ,req_flags3);
- sprintf(opt[k++],"%-40.40s %s"
- ,"Required Flags (Set 4) to Add Profile"
- ,req_flags4);
- opt[k][0]=NULL;
-helpbuf=
-" Profile Security \r\n\r\n"
-"This menu allows you to specify which users can create profiles\r\n"
-"and take the purity test.";
-
- j=ulist(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,0,0,0,&j,0
- ,"Profile Database Security",opt);
- if(j==-1)
- break;
- switch(j) {
- case 0:
-helpbuf=
-" Minimum User Age \r\n\r\n"
-"This is the minimum user age that will be allowed to add a profile to\r\n"
-"the database.";
- sprintf(str,"%u",min_age);
- uinput(WIN_L2R|WIN_SAV,0,0,
- "Minimum Age",str,2,K_EDIT|K_NUMBER);
- min_age=atoi(str);
- break;
- case 1:
-helpbuf=
-" Minimum User Age for Purity Test\r\n\r\n"
-"This is the minimum user age that will be allowed to take the purity\r\n"
-"test.";
- sprintf(str,"%u",purity_age);
- uinput(WIN_L2R|WIN_SAV,0,0,
- "Minimum Age for Purity Test"
- ,str,2,K_EDIT|K_NUMBER);
- purity_age=atoi(str);
- break;
- case 2:
-helpbuf=
-" Minimum Security Level \r\n\r\n"
-"This is the minimum security level that is required to add a profile\r\n"
-"to the database.";
- sprintf(str,"%u",min_level);
- uinput(WIN_L2R|WIN_SAV,0,0,
- "Security Level",str,3,K_EDIT|K_NUMBER);
- min_level=atoi(str);
- break;
- case 3:
-helpbuf=
-" Required Flags from Flag Set 1 \r\n\r\n"
-"These are the flags that a required for the user to add a profile\r\n"
-"to the database.";
- uinput(WIN_L2R|WIN_SAV,0,0,"Flag Set 1"
- ,req_flags1
- ,26,K_EDIT|K_UPPER|K_ALPHA);
- break;
- case 4:
-helpbuf=
-" Required Flags from Flag Set 2 \r\n\r\n"
-"These are the flags that a required for the user to add a profile\r\n"
-"to the database.";
- uinput(WIN_L2R|WIN_SAV,0,0,"Flag Set 2"
- ,req_flags2
- ,26,K_EDIT|K_UPPER|K_ALPHA);
- break;
- case 5:
-helpbuf=
-" Required Flags from Flag Set 3 \r\n\r\n"
-"These are the flags that a required for the user to add a profile\r\n"
-"to the database.";
- uinput(WIN_L2R|WIN_SAV,0,0,"Flag Set 3"
- ,req_flags3
- ,26,K_EDIT|K_UPPER|K_ALPHA);
- break;
- case 6:
-helpbuf=
-" Required Flags from Flag Set 4 \r\n\r\n"
-"These are the flags that a required for the user to add a profile\r\n"
-"to the database.";
- uinput(WIN_L2R|WIN_SAV,0,0,"Flag Set 4"
- ,req_flags4
- ,26,K_EDIT|K_UPPER|K_ALPHA);
- break; } }
- break;
- case 3:
-helpbuf=
-" Credit Adjustment for Adding Profile \r\n\r\n"
-"You can have Synchronet Match Maker either give credits to or take\r\n"
-"credits from the user for adding a profile to the database.";
- strcpy(opt[0],"Add Credits");
- strcpy(opt[1],"Remove Credits");
- opt[2][0]=0;
- i=1;
- i=ulist(WIN_L2R|WIN_BOT|WIN_ACT,0,0,0,&i,0
- ,"Credit Adjustment for Adding Profile",opt);
- if(i==-1)
- break;
- sprintf(str,"%ld",profile_cdt<0 ? -profile_cdt:profile_cdt);
- uinput(WIN_MID,0,0,"Credits (K=1024)"
- ,str,10,K_EDIT|K_UPPER);
- if(strchr(str,'K'))
- profile_cdt=atol(str)*1024L;
- else
- profile_cdt=atol(str);
- if(i==1)
- profile_cdt=-profile_cdt;
- break;
- case 4:
-helpbuf=
-" Credit Adjustment for Sending Telegram \r\n\r\n"
-"You can have Synchronet Match Maker either give credits to or take\r\n"
-"credits from the user for sending a telegram to another user in SMM.";
- strcpy(opt[0],"Add Credits");
- strcpy(opt[1],"Remove Credits");
- opt[2][0]=0;
- i=1;
- i=ulist(WIN_L2R|WIN_BOT|WIN_ACT,0,0,0,&i,0
- ,"Credit Adjustment for Sending Telegram",opt);
- if(i==-1)
- break;
- sprintf(str,"%ld",telegram_cdt<0 ? -telegram_cdt:telegram_cdt);
- uinput(WIN_MID,0,0,"Credits (K=1024)"
- ,str,10,K_EDIT|K_UPPER);
- if(strchr(str,'K'))
- telegram_cdt=atol(str)*1024L;
- else
- telegram_cdt=atol(str);
- if(i==1)
- telegram_cdt=-telegram_cdt;
- break;
- case 5:
-helpbuf=
-" Credit Adjustment for Writing on the Wall \r\n\r\n"
-"You can have Synchronet Match Maker either give credits to or take\r\n"
-"credits from the user for writing on the wall.";
- strcpy(opt[0],"Add Credits");
- strcpy(opt[1],"Remove Credits");
- opt[2][0]=0;
- i=1;
- i=ulist(WIN_L2R|WIN_BOT|WIN_ACT,0,0,0,&i,0
- ,"Credit Adjustment for Writing on the Wall",opt);
- if(i==-1)
- break;
- sprintf(str,"%ld",wall_cdt<0 ? -wall_cdt:wall_cdt);
- uinput(WIN_MID,0,0,"Credits (K=1024)"
- ,str,10,K_EDIT|K_UPPER);
- if(strchr(str,'K'))
- wall_cdt=atol(str)*1024L;
- else
- wall_cdt=atol(str);
- if(i==1)
- wall_cdt=-wall_cdt;
- break;
- case 6:
-helpbuf=
-" Credit Adjustment for Reading Questionnaire \r\n\r\n"
-"You can have Synchronet Match Maker either give credits to or take\r\n"
-"credits from the user when reading another user's questionnaire";
- strcpy(opt[0],"Add Credits");
- strcpy(opt[1],"Remove Credits");
- opt[2][0]=0;
- i=1;
- i=ulist(WIN_L2R|WIN_BOT|WIN_ACT,0,0,0,&i,0
- ,"Credit Adjustment for Reading Questionnaire",opt);
- if(i==-1)
- break;
- sprintf(str,"%ld",que_cdt<0 ? -que_cdt:que_cdt);
- uinput(WIN_MID,0,0,"Credits (K=1024)"
- ,str,10,K_EDIT|K_UPPER);
- if(strchr(str,'K'))
- que_cdt=atol(str)*1024L;
- else
- que_cdt=atol(str);
- if(i==1)
- que_cdt=-que_cdt;
- break;
- case 7:
-helpbuf=
-" Minimum Level to Send Telegrams \r\n\r\n"
-"Use this option to restrict the sending of telegrams to users of a\r\n"
-"specific security level or higher.";
- sprintf(str,"%u",telegram_level);
- uinput(WIN_MID,0,0,"Minimum Level to Send Telegrams"
- ,str,3,K_EDIT|K_NUMBER);
- telegram_level=atoi(str);
- break;
- case 8:
-helpbuf=
-" Minimum Level to Read Questionnaires \r\n\r\n"
-"Users will only be allowed to read other users' questionnaires if\r\n"
-"their security level is this value or higher.";
- sprintf(str,"%u",que_level);
- uinput(WIN_MID,0,0,"Minimum Level to Read Questionnaires"
- ,str,3,K_EDIT|K_NUMBER);
- que_level=atoi(str);
- break;
- case 9:
-helpbuf=
-" Minor Segregation (Protection) Age \r\n\r\n"
-"This option (if enabled) separates all users into two groups:\r\n"
-"\r\n"
-"Minors: Those users below the specified age (normally 18)\r\n"
-"Adults: Those users at or above the specified age\r\n"
-"\r\n"
-"If enabled, adults cannot see minors' profiles or send telegrams to\r\n"
-"minors and vice versa.\r\n"
-"\r\n"
-"If disabled, all users can see eachother's profiles regardless of age.\r\n";
- sprintf(str,"%u",age_split);
- uinput(WIN_MID,0,0,"Minor Segregation Age (0=Disabled)"
- ,str,2,K_EDIT|K_NUMBER);
- age_split=atoi(str);
- break;
- case 10:
-helpbuf=
-" Sysop Level \r\n\r\n"
-"Every user of this level or higher will be given access to sysop\r\n"
-"commands in the match maker.";
- sprintf(str,"%u",sysop_level);
- uinput(WIN_MID,0,0,"Sysop Level",str,3,K_EDIT|K_NUMBER);
- sysop_level=atoi(str);
- break;
-
- case 11:
-helpbuf=
-" Auto-Update Profiles \r\n\r\n"
-"If you would like to have Synchronet Match Maker automatically send\r\n"
-"a network update message for a user that is active in SMM, but hasn't\r\n"
-"actually made any changes to his or her profile, set this option to the\r\n"
-"number of days between Auto-Updates (e.g. 30 days is a good value).\r\n"
-"\r\n"
-"Setting this option to 0 disables this feature.";
- sprintf(str,"%u",auto_update);
- uinput(WIN_MID,0,0,"Auto-Update Profiles (in Days)"
- ,str,3,K_EDIT|K_NUMBER);
- auto_update=atoi(str);
- break;
- case 12:
-helpbuf=
-" Notify User of Activity \r\n\r\n"
-"If you would like to have Synchronet Match Maker automatically send\r\n"
-"a message to a specific user (most commonly the sysop) whenever a user\r\n"
-"adds a profile to the database or sends a telegram from SMM, set this\r\n"
-"option to the number of that user (e.g. 1 would indicate user #1).\r\n"
-"\r\n"
-"Setting this option to 0 disables this feature.";
- sprintf(str,"%u",notify_user);
- uinput(WIN_MID,0,0,"Notify User Number (0=disabled)"
- ,str,5,K_EDIT|K_NUMBER);
- notify_user=atoi(str);
- break;
- case 13:
-helpbuf=
-" Use Metric System \r\n\r\n"
-"If you wish to use centimeters and kilograms instead of inches and\r\n"
-"pounds for height and weight measurements, set this option to Yes.";
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=1;
- i=ulist(WIN_MID|WIN_ACT,0,0,0,&i,0
- ,"Use Metric Measurement System",opt);
- if(i==-1)
- break;
- if(i==1)
- smm_misc&=~SMM_METRIC;
- else
- smm_misc|=SMM_METRIC;
- break;
-
- case 14:
-helpbuf=
-" Zmodem Send Command \r\n\r\n"
-"This is the command line to execute to send files to remote user.\r\n";
- uinput(WIN_MID,0,0,"Zmodem Send"
- ,zmodem_send,50,K_EDIT);
- break;
- case 15:
-helpbuf=
-" Local Photo Viewer \r\n\r\n"
-"This is the command line to execute to view photos when logged on\r\n"
-"locally.\r\n";
- uinput(WIN_MID,0,0,"Local Viewer"
- ,local_view,50,K_EDIT);
- break;
- case -1:
-helpbuf=
-" Save Configuration File \r\n\r\n"
-"Select Yes to save the config file, No to quit without saving,\r\n"
-"or hit ESC to go back to the menu.\r\n\r\n";
- i=0;
- strcpy(opt[0],"Yes");
- strcpy(opt[1],"No");
- opt[2][0]=0;
- i=ulist(WIN_MID,0,0,0,&i,0,"Save Config File",opt);
- if(i==-1) break;
- if(i) bail(0);
- if((file=open("SMM.CFG"
- ,O_WRONLY|O_BINARY|O_CREAT|O_DENYALL|O_TRUNC,S_IWRITE))==-1) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error opening SMM.CFG\r\n");
- bail(1); }
- if((stream=fdopen(file,"wb"))==NULL) {
- textattr(LIGHTGRAY);
- clrscr();
- lprintf("Error fdopen SMM.CFG\r\n");
- bail(1); }
- fprintf(stream,"%u\r\n%u\r\n%u\r\n%s\r\n%s\r\n%s\r\n%s\r\n"
- ,purity_age,min_age,min_level
- ,req_flags1,req_flags2,req_flags3,req_flags4);
- fprintf(stream,"%ld\r\n%ld\r\n%u\r\n%u\r\n%s\r\n%u\r\n%u\r\n"
- ,profile_cdt,telegram_cdt,auto_update,notify_user,""
- ,telegram_level,que_level);
- fprintf(stream,"%u\r\n%ld\r\n%ld\r\n%s\r\n%ld\r\n%s\r\n"
- ,wall_level,wall_cdt,que_cdt,zmodem_send,smm_misc,system_name);
- fprintf(stream,"%s\r\n%u\r\n%u\r\n%u\r\n"
- ,local_view,sysop_level,wall_age,age_split);
- fclose(stream);
- bail(0);
- }
-}
-}
-/****************************************************************************/
-/* Checks the disk drive for the existance of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==NULL)
- return(1);
-return(0);
-}
diff --git a/src/sbbs2/smm/smmcfg.mak b/src/sbbs2/smm/smmcfg.mak
deleted file mode 100644
index eeb956f5cbb2b9882aeb89fd32eded0af62d1e3b..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smmcfg.mak
+++ /dev/null
@@ -1,35 +0,0 @@
-
-# Macros
-CC = bcc
-LD = tlink
-SDK = ..\sdk
-UIFC = ..\..\uifc
-MSWAIT = ..\..\mswait
-INCLUDE = \bc45\include;$(UIFC);..
-LIB = \bc45\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LDFLAGS = /n /c
-OBJS = $(MSWAIT)\dos\mswait$(MODEL).obj uifc.obj
-HEADERS = $(UIFC)\uifc.h smmdefs.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling $*.c to $*.obj ...
- $(CC) $(CFLAGS) -c $*.c
-
-# Main EXE Link Rule
-smmcfg.exe: $(OBJS) smmcfg.obj
- @echo Linking $< ...
- $(LD) $(LDFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) smmcfg.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-
-# All .obj modules
-smmcfg.obj: $(HEADERS)
-
-uifc.obj: $(UIFC)\uifc.h $(UIFC)\uifc.c
- @echo Compiling $(UIFC)\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c -DSCFG $(UIFC)\$*.c
-
diff --git a/src/sbbs2/smm/smmdefs.h b/src/sbbs2/smm/smmdefs.h
deleted file mode 100644
index 24237f3dcf20414627065eea80edd3c8dafeb709..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smmdefs.h
+++ /dev/null
@@ -1,161 +0,0 @@
-/* SMMDEFS.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#define SMM_VER "2.10"
-
-#define SMM_METRIC (1<<0) /* Use metric measurements */
-
-#define USER_DELETED (1<<0) /* Bits for user.misc field */
-#define USER_FROMSMB (1<<1) /* Imported from SMB */
-#define USER_REQZIP (1<<2) /* Require mate in zip range */
-#define USER_REQAGE (1<<3) /* Require mate in age range */
-#define USER_REQWEIGHT (1<<4) /* Require mate in weight range */
-#define USER_REQHEIGHT (1<<5) /* Require mate in height range */
-#define USER_REQINCOME (1<<6) /* Require mate in income range */
-#define USER_REQMARITAL (1<<7) /* Require marital status */
-#define USER_REQZODIAC (1<<8) /* Require zodiac */
-#define USER_REQRACE (1<<9) /* Require race */
-#define USER_REQHAIR (1<<10) /* Require hair */
-#define USER_REQEYES (1<<11) /* Require eyes */
-#define USER_FRIEND (1<<12) /* Seeking same-sex friendship */
-#define USER_PHOTO (1<<13) /* Photo attached to profile */
-
-
-#define ZODIAC_ARIES (1<<0) /* Mar 21 - Apr 19 */
-#define ZODIAC_TAURUS (1<<1) /* Apr 20 - May 20 */
-#define ZODIAC_GEMINI (1<<2) /* May 21 - Jun 20 */
-#define ZODIAC_CANCER (1<<3) /* Jun 21 - Jul 22 */
-#define ZODIAC_LEO (1<<4) /* Jul 23 - Aug 22 */
-#define ZODIAC_VIRGO (1<<5) /* Aug 23 - Sep 22 */
-#define ZODIAC_LIBRA (1<<6) /* Sep 23 - Oct 22 */
-#define ZODIAC_SCORPIO (1<<7) /* Oct 23 - Nov 21 */
-#define ZODIAC_SAGITTARIUS (1<<8) /* Nov 22 - Dec 21 */
-#define ZODIAC_CAPRICORN (1<<9) /* Dec 22 - Jan 19 */
-#define ZODIAC_AQUARIUS (1<<10) /* Jan 20 - Feb 18 */
-#define ZODIAC_PISCES (1<<11) /* Feb 19 - Mar 20 */
-
-#define HAIR_BLONDE (1<<0)
-#define HAIR_BROWN (1<<1)
-#define HAIR_RED (1<<2)
-#define HAIR_BLACK (1<<3)
-#define HAIR_GREY (1<<4)
-#define HAIR_OTHER (1<<5)
-
-#define EYES_BLUE (1<<0)
-#define EYES_GREEN (1<<1)
-#define EYES_HAZEL (1<<2)
-#define EYES_BROWN (1<<3)
-#define EYES_OTHER (1<<4)
-
-#define RACE_WHITE (1<<0)
-#define RACE_BLACK (1<<1)
-#define RACE_HISPANIC (1<<2)
-#define RACE_ASIAN (1<<3)
-#define RACE_AMERINDIAN (1<<4)
-#define RACE_MIDEASTERN (1<<5)
-#define RACE_OTHER (1<<6)
-
-#define MARITAL_SINGLE (1<<0)
-#define MARITAL_MARRIED (1<<1)
-#define MARITAL_DIVORCED (1<<2)
-#define MARITAL_WIDOWED (1<<3)
-#define MARITAL_OTHER (1<<4)
-
-typedef struct {
-
- uchar txt[82];
- uchar answers; /* Total answers */
- uchar allowed; /* number of answers allowed for self */
- uchar ans[16][62]; /* Answers */
-
- } question_t;
-
-typedef struct {
-
- uchar name[9];
- uchar desc[26];
- uchar req_age;
- uchar total_ques;
- question_t que[20];
-
- } questionnaire_t;
-
-typedef struct {
-
- uchar name[9]; /* Name of questionnaire */
- ushort self[20]; /* Answers to questions */
- ushort pref[20]; /* Preferred partner's answer(s) */
-
- } queans_t;
-
-typedef struct {
-
- ulong number; /* User's number on BBS */
- ulong system; /* CRC-32 of system name */
- ulong name;
- ulong updated;
-
- } ixb_t;
-
-typedef struct {
-
- uchar name[26]; /* User's name or alias */
- uchar realname[26]; /* User's name or alias on the BBS */
- uchar system[41]; /* BBS name */
- ulong number; /* User's number on BBS */
- uchar birth[9]; /* MM/DD/YY format */
- uchar zipcode[11]; /* Zip code */
- uchar location[31]; /* City, state */
- ushort pref_zodiac; /* Preferred zodiac sign */
- uchar sex; /* 'M' or 'F' */
- uchar pref_sex;
- uchar marital;
- uchar pref_marital;
- uchar race;
- uchar pref_race;
- uchar hair; /* hair color */
- uchar pref_hair; /* preferred hair color */
- uchar eyes; /* eye color */
- uchar pref_eyes; /* preferred eye color */
- ushort weight; /* Sad, we have to use 16-bits! */
- uchar height; /* in inches */
- ushort min_weight;
- ushort max_weight;
- uchar min_height;
- uchar max_height;
- uchar min_age;
- uchar max_age;
- uchar min_zipcode[11];
- uchar max_zipcode[11];
- ulong income;
- ulong min_income;
- ulong max_income;
- time_t created;
- time_t updated;
- uchar note[5][51];
- ulong misc;
- time_t lastin;
- uchar min_match;
- uchar purity; /* Purity % */
- uchar mbtype[5]; /* Myers-Briggs personality type */
- time_t photo; /* Date last photo hatched */
- uchar filler[60]; /* Available for future use */
- queans_t queans[5];
-
- } user_t;
-
-typedef struct {
-
- uchar name[26]; /* User's name or alias */
- uchar system[41]; /* BBS name */
- uchar text[5][71]; /* Writing */
- time_t written; /* Date/time created */
- time_t imported;
-
- } wall_t;
-
-#define TGRAM_NOTICE "\1n\1h\1mNew telegram in \1wMatch Maker \1mfor you!" \
- "\7\1n\r\n"
-#define DEFAULT_ZMODEM_SEND "%!dsz portx %u,%i sz %f"
-#define TM_YEAR(yy) ((yy)%100)
diff --git a/src/sbbs2/smm/smmutil.c b/src/sbbs2/smm/smmutil.c
deleted file mode 100644
index 5ecc1907d78b0751bec14a7748c38a9d83c7b7e1..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smmutil.c
+++ /dev/null
@@ -1,660 +0,0 @@
-/* SMMUTIL.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <stdio.h>
-#include <time.h>
-#include <stdlib.h>
-#include <io.h>
-#include <dos.h>
-#include <fcntl.h>
-#include <sys\stat.h>
-#include <malloc.h>
-#include <stdarg.h>
-#include "gen_defs.h"
-#include "smmdefs.h"
-#include "crc32.h"
-
-struct date date;
-struct time curtime;
-
-FILE *log=NULL;
-
-/****************************************************************************/
-/* Returns 32-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ulong crc32(char *str)
-{
- int i=0;
- ulong crc=0xffffffffUL;
-
- while(str[i])
- crc=ucrc32(str[i++],crc);
- crc=~crc;
- return(crc);
-}
-
-/****************************************************************************/
-/* Returns the age derived from the string 'birth' in the format MM/DD/YY */
-/****************************************************************************/
-char getage(char *birth)
-{
- char age;
-
-if(birth[0]<=SP)
- return(0);
-getdate(&date);
-age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf));
-if(age>90)
- age-=90;
-if(atoi(birth)>12 || atoi(birth+3)>31)
- return(0);
-if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon ||
- (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon &&
- ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day))
- age--;
-if(age<0)
- return(0);
-return(age);
-}
-
-/**********************/
-/* Log print function */
-/**********************/
-void logprintf(char *str, ...)
-{
- va_list argptr;
- char buf[256];
- time_t now;
- struct tm *gm;
-
-va_start(argptr,str);
-vsprintf(buf,str,argptr);
-va_end(argptr);
-fprintf(stderr,"\n%s",buf);
-if(!log) return;
-now=time(NULL);
-gm=localtime(&now);
-fseek(log,0L,SEEK_END);
-fprintf(log,"%02u/%02u/%02u %02u:%02u:%02u %s\r\n"
- ,gm->tm_mon+1,gm->tm_mday,TM_YEAR(gm->tm_year),gm->tm_hour,gm->tm_min,gm->tm_sec
- ,buf);
-fflush(log);
-}
-
-
-char *base41(unsigned int i, char *str)
-{
- char c;
- unsigned int j=41*41,k;
-
-for(c=0;c<3;c++) {
- k=i/j;
- str[c]='0'+k;
- i-=(k*j);
- j/=41;
- if(str[c]>=':')
- str[c]='A'+(str[c]-':');
- if(str[c]>='[')
- str[c]='#'+(str[c]-'['); }
-str[c]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-void delphoto(user_t user)
-{
- char fname[64],path[128],tmp[128];
- int i;
- struct ffblk ff;
-
-if(!(user.misc&USER_PHOTO))
- return;
-for(i=0;user.system[i];i++)
- if(isalnum(user.system[i]))
- break;
-if(!user.system[i])
- fname[0]='~';
-else
- fname[0]=user.system[i];
-for(i=strlen(user.system)-1;i>0;i--)
- if(isalnum(user.system[i]))
- break;
-if(i<=0)
- fname[1]='~';
-else
- fname[1]=user.system[i];
-fname[2]=0;
-strupr(user.system);
-strcat(fname,base41(crc16(user.system),tmp));
-strcat(fname,base41(user.number,tmp));
-strcat(fname,".*");
-strupr(fname);
-sprintf(path,"PHOTO\\%s",fname);
-i=findfirst(path,&ff,0);
-if(i)
- return;
-sprintf(path,"PHOTO\\%s",ff.ff_name);
-if(remove(path))
- logprintf("Photo (%s) couldn't be removed!",path);
-else
- logprintf("Photo (%s) removed",path);
-}
-
-
-int main(int argc, char **argv)
-{
- int i,file,max_age=0,max_wall=0,age;
- long l,m,total_ixbs=0
- ,users=0,photos=0,networked=0
- ,male_straight=0
- ,male_gay=0
- ,male_bi=0
- ,female_straight=0
- ,female_gay=0
- ,female_bi=0
- ,age12=0
- ,age15=0
- ,age20=0,age25=0
- ,age30=0,age35=0
- ,age40=0,age45=0
- ,age50=0,age55=0
- ,age60=0,age65=0
- ,age70=0,age71=0
- ,zodiac_aries=0
- ,zodiac_taurus=0
- ,zodiac_gemini=0
- ,zodiac_cancer=0
- ,zodiac_leo=0
- ,zodiac_virgo=0
- ,zodiac_libra=0
- ,zodiac_scorpio=0
- ,zodiac_sagittarius=0
- ,zodiac_capricorn=0
- ,zodiac_aquarius=0
- ,zodiac_pisces=0
- ,hair_blonde=0
- ,hair_brown=0
- ,hair_red=0
- ,hair_black=0
- ,hair_grey=0
- ,hair_other=0
- ,eyes_blue=0
- ,eyes_green=0
- ,eyes_hazel=0
- ,eyes_brown=0
- ,eyes_other=0
- ,race_white=0
- ,race_black=0
- ,race_hispanic=0
- ,race_asian=0
- ,race_amerindian=0
- ,race_mideastern=0
- ,race_other=0
- ,marital_single=0
- ,marital_married=0
- ,marital_divorced=0
- ,marital_widowed=0
- ,marital_other=0
- ;
- FILE *ixb_fp,*dab_fp,*tmp_fp;
- ixb_t huge *ixb=NULL,ixbrec;
- user_t user;
- wall_t wall;
- time_t now;
-
-fprintf(stderr,"\nSMMUTIL - Synchronet Match Maker Utility - v2.02\n\n");
-
-for(i=1;i<argc;i++)
- if(isdigit(argv[i][0])) {
- if(max_age)
- max_wall=atoi(argv[i]);
- else
- max_age=atoi(argv[i]); }
- else {
- printf("usage: SMMUTIL max_profile_age_in_days "
- "max_wall_writing_age_in_days\n");
- printf("\n");
- printf("example: SMMUTIL 90 7\n");
- exit(1); }
-
-if((file=open("SMM.IXB",O_RDWR|O_BINARY|O_CREAT|O_DENYNONE
- ,S_IWRITE|S_IREAD))==-1
- || (ixb_fp=fdopen(file,"r+b"))==NULL) {
- printf("Error opening SMM.IXB\n");
- exit(1); }
-
-if((file=open("SMM.DAB",O_RDWR|O_BINARY|O_DENYNONE))==-1
- || (dab_fp=fdopen(file,"r+b"))==NULL) {
- printf("Error opening SMM.DAB\n");
- exit(1); }
-
-if((file=open("SMM.TMP",O_WRONLY|O_CREAT|O_TRUNC|O_BINARY|O_DENYALL
- ,S_IWRITE|S_IREAD))==-1
- || (tmp_fp=fdopen(file,"r+b"))==NULL) {
- printf("Error opening SMM.TMP\n");
- exit(1); }
-
-if((file=open("SMMUTIL.LOG",O_WRONLY|O_CREAT|O_APPEND|O_BINARY|O_DENYALL
- ,S_IWRITE|S_IREAD))==-1
- || (log=fdopen(file,"w+b"))==NULL) {
- printf("Error opening SMMUTIL.LOG\n");
- exit(1); }
-
-fprintf(stderr,"Reading profile data...");
-rewind(dab_fp);
-while(!feof(dab_fp)) {
- if(!fread(&user,sizeof(user_t),1,dab_fp))
- break;
- if((ixb=REALLOC(ixb,sizeof(ixb_t)*(total_ixbs+1)))==NULL) {
- printf("Malloc error\n");
- exit(1); }
- user.name[25]=0;
- strupr(user.name);
- ixb[total_ixbs].name=crc32(user.name);
- user.system[25]=0;
- strupr(user.system);
- ixb[total_ixbs].system=crc32(user.system);
- ixb[total_ixbs].updated=user.updated;
- if(user.misc&USER_DELETED)
- ixb[total_ixbs].number=0;
- else
- ixb[total_ixbs].number=user.number;
- total_ixbs++; }
-fprintf(stderr,"\n");
-
-now=time(NULL);
-fprintf(stderr,"Creating new profile index and data files...");
-chsize(fileno(ixb_fp),0);
-rewind(ixb_fp);
-rewind(tmp_fp);
-for(l=0;l<total_ixbs;l++) {
- fseek(dab_fp,l*sizeof(user_t),SEEK_SET);
- if(!fread(&user,sizeof(user_t),1,dab_fp)) {
- logprintf("%04lX Couldn't read user record",l);
- continue; }
-
- /* Make sure all strings are NULL terminated */
- user.name[25]=user.realname[25]=user.system[40]=user.birth[8]=0;
- user.zipcode[10]=user.location[30]=0;
- user.min_zipcode[10]=user.max_zipcode[10]=0;
- for(i=0;i<5;i++)
- user.note[i][50]=0;
-
- if(!ixb[l].number) {
- logprintf("%04lX %5lu %-25s Deleted user"
- ,l,user.number,user.system);
- delphoto(user);
- continue; }
- if(ixb[l].number&0xffff0000UL) {
- logprintf("%04lX %5lu %-25s Invalid user number"
- ,l,ixb[l].number,user.system);
- delphoto(user);
- continue; }
- if(max_age
- && now>ixb[l].updated // Not in the future
- && (now-ixb[l].updated)/(24UL*60UL*60UL)>max_age) {
- logprintf("%04lX %5lu %-25s Not updated in %lu days"
- ,l,user.number,user.system,(now-ixb[l].updated)/(24UL*60UL*60UL));
- delphoto(user);
- continue; }
- for(m=l+1;m<total_ixbs;m++)
- if(ixb[l].number
- && ixb[l].number==ixb[m].number && ixb[l].system==ixb[m].system)
- break;
- if(m<total_ixbs) { /* Duplicate found! */
- logprintf("%04lX %5lu %-25s Duplicate user"
- ,l,user.number,user.system);
- delphoto(user);
- continue; }
-
- if(user.name[0]<SP || user.realname[0]<SP || user.system[0]<SP
- || user.location[0]<SP || user.zipcode[0]<SP || user.birth[0]<SP) {
- logprintf("%04lX %5lu %-25s Invalid user string"
- ,l,user.number,user.system);
- delphoto(user);
- continue; }
- if(!user.sex || !user.marital || !user.race || !user.hair || !user.eyes) {
- logprintf("%04lX %5lu %-25s Null field"
- ,l,user.number,user.system);
- delphoto(user);
- continue; }
- if(user.sex=='M') {
- if(user.pref_sex=='F')
- male_straight++;
- else if(user.pref_sex=='M')
- male_gay++;
- else
- male_bi++; }
- else if(user.sex=='F') {
- if(user.pref_sex=='M')
- female_straight++;
- else if(user.pref_sex=='F')
- female_gay++;
- else
- female_bi++; }
- else {
- logprintf("%04lX %5lu %-25s Invalid sex (%02X)"
- ,l,user.number,user.system,user.sex);
- delphoto(user);
- continue; }
- users++;
- if(user.misc&USER_PHOTO)
- photos++;
- if(user.misc&USER_FROMSMB)
- networked++;
- age=getage(user.birth);
- if(age<13) age12++;
- else if(age<16) age15++;
- else if(age<21) age20++;
- else if(age<26) age25++;
- else if(age<31) age30++;
- else if(age<36) age35++;
- else if(age<41) age40++;
- else if(age<46) age45++;
- else if(age<51) age50++;
- else if(age<56) age55++;
- else if(age<61) age60++;
- else if(age<66) age65++;
- else if(age<71) age70++;
- else age71++;
- switch(user.hair) {
- case HAIR_BLONDE:
- hair_blonde++;
- break;
- case HAIR_BROWN:
- hair_brown++;
- break;
- case HAIR_RED:
- hair_red++;
- break;
- case HAIR_BLACK:
- hair_black++;
- break;
- case HAIR_GREY:
- hair_grey++;
- break;
- default:
- hair_other++;
- break; }
-
- switch(user.eyes) {
- case EYES_BLUE:
- eyes_blue++;
- break;
- case EYES_BROWN:
- eyes_brown++;
- break;
- case EYES_GREEN:
- eyes_green++;
- break;
- case EYES_HAZEL:
- eyes_hazel++;
- break;
- default:
- eyes_other++;
- break; }
- switch(user.marital) {
- case MARITAL_SINGLE:
- marital_single++;
- break;
- case MARITAL_MARRIED:
- marital_married++;
- break;
- case MARITAL_DIVORCED:
- marital_divorced++;
- break;
- case MARITAL_WIDOWED:
- marital_widowed++;
- break;
- default:
- marital_other++;
- break; }
-
- switch(user.race) {
- case RACE_WHITE:
- race_white++;
- break;
- case RACE_BLACK:
- race_black++;
- break;
- case RACE_HISPANIC:
- race_hispanic++;
- break;
- case RACE_ASIAN:
- race_asian++;
- break;
- case RACE_AMERINDIAN:
- race_amerindian++;
- break;
- case RACE_MIDEASTERN:
- race_mideastern++;
- break;
- default:
- race_other++;
- break; }
-
- if((!strncmp(user.birth,"03",2) && atoi(user.birth+3)>=21)
- || (!strncmp(user.birth,"04",2) && atoi(user.birth+3)<=19))
- zodiac_aries++;
- else if((!strncmp(user.birth,"04",2) && atoi(user.birth+3)>=20)
- || (!strncmp(user.birth,"05",2) && atoi(user.birth+3)<=20))
- zodiac_taurus++;
- else if((!strncmp(user.birth,"05",2) && atoi(user.birth+3)>=21)
- || (!strncmp(user.birth,"06",2) && atoi(user.birth+3)<=20))
- zodiac_gemini++;
- else if((!strncmp(user.birth,"06",2) && atoi(user.birth+3)>=21)
- || (!strncmp(user.birth,"07",2) && atoi(user.birth+3)<=22))
- zodiac_cancer++;
- else if((!strncmp(user.birth,"07",2) && atoi(user.birth+3)>=23)
- || (!strncmp(user.birth,"08",2) && atoi(user.birth+3)<=22))
- zodiac_leo++;
- else if((!strncmp(user.birth,"08",2) && atoi(user.birth+3)>=23)
- || (!strncmp(user.birth,"09",2) && atoi(user.birth+3)<=22))
- zodiac_virgo++;
- else if((!strncmp(user.birth,"09",2) && atoi(user.birth+3)>=23)
- || (!strncmp(user.birth,"10",2) && atoi(user.birth+3)<=22))
- zodiac_libra++;
- else if((!strncmp(user.birth,"10",2) && atoi(user.birth+3)>=23)
- || (!strncmp(user.birth,"11",2) && atoi(user.birth+3)<=21))
- zodiac_scorpio++;
- else if((!strncmp(user.birth,"11",2) && atoi(user.birth+3)>=22)
- || (!strncmp(user.birth,"12",2) && atoi(user.birth+3)<=21))
- zodiac_sagittarius++;
- else if((!strncmp(user.birth,"12",2) && atoi(user.birth+3)>=22)
- || (!strncmp(user.birth,"01",2) && atoi(user.birth+3)<=19))
- zodiac_capricorn++;
- else if((!strncmp(user.birth,"01",2) && atoi(user.birth+3)>=20)
- || (!strncmp(user.birth,"02",2) && atoi(user.birth+3)<=18))
- zodiac_aquarius++;
- else if((!strncmp(user.birth,"02",2) && atoi(user.birth+3)>=19)
- || (!strncmp(user.birth,"03",2) && atoi(user.birth+3)<=20))
- zodiac_pisces++;
-
- fwrite(&ixb[l],sizeof(ixb_t),1,ixb_fp);
- fwrite(&user,sizeof(user_t),1,tmp_fp);
- }
-fprintf(stderr,"\n");
-fcloseall();
-remove("SMM.DAB");
-rename("SMM.TMP","SMM.DAB");
-
-printf("Synchronet Match Maker Statistics\n");
-printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
-printf("\n");
-printf("%-25s : %lu\n","Total",users);
-printf("%-25s : %lu\n","Photos",photos);
-printf("%-25s : %lu\n","Networked",networked);
-
-if(users) { /* divide-by-zero fix, Jan-2003 */
- printf("%-25s (%4.1f%%) : %lu\n","Sex: male (hetero)"
- ,(((float)male_straight/users)*100.0),male_straight);
- printf("%-25s (%4.1f%%) : %lu\n","Sex: male (gay)"
- ,(((float)male_gay/users)*100.0),male_gay);
- printf("%-25s (%4.1f%%) : %lu\n","Sex: male (bi)"
- ,(((float)male_bi/users)*100.0),male_bi);
- printf("%-25s (%4.1f%%) : %lu\n","Sex: female (hetero)"
- ,(((float)female_straight/users)*100.0),female_straight);
- printf("%-25s (%4.1f%%) : %lu\n","Sex: female (gay)"
- ,(((float)female_gay/users)*100.0),female_gay);
- printf("%-25s (%4.1f%%) : %lu\n","Sex: female (bi)"
- ,(((float)female_bi/users)*100.0),female_bi);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 12 and younger"
- ,(((float)age12/users)*100.0),age12);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 13 to 15 years old"
- ,(((float)age15/users)*100.0),age15);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 16 to 20 years old"
- ,(((float)age20/users)*100.0),age20);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 21 to 25 years old"
- ,(((float)age25/users)*100.0),age25);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 26 to 30 years old"
- ,(((float)age30/users)*100.0),age30);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 31 to 35 years old"
- ,(((float)age35/users)*100.0),age35);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 36 to 40 years old"
- ,(((float)age40/users)*100.0),age40);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 41 to 45 years old"
- ,(((float)age45/users)*100.0),age45);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 46 to 50 years old"
- ,(((float)age50/users)*100.0),age50);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 51 to 55 years old"
- ,(((float)age55/users)*100.0),age55);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 56 to 60 years old"
- ,(((float)age60/users)*100.0),age60);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 61 to 65 years old"
- ,(((float)age65/users)*100.0),age65);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 66 to 70 years old"
- ,(((float)age70/users)*100.0),age70);
- printf("%-25s (%4.1f%%) : %lu\n","Age: 71 and older"
- ,(((float)age71/users)*100.0),age71);
- printf("%-25s (%4.1f%%) : %lu\n","Hair: blonde"
- ,(((float)hair_blonde/users)*100.0),hair_blonde);
- printf("%-25s (%4.1f%%) : %lu\n","Hair: brown"
- ,(((float)hair_brown/users)*100.0),hair_brown);
- printf("%-25s (%4.1f%%) : %lu\n","Hair: black"
- ,(((float)hair_black/users)*100.0),hair_black);
- printf("%-25s (%4.1f%%) : %lu\n","Hair: red"
- ,(((float)hair_red/users)*100.0),hair_red);
- printf("%-25s (%4.1f%%) : %lu\n","Hair: grey"
- ,(((float)hair_grey/users)*100.0),hair_grey);
- printf("%-25s (%4.1f%%) : %lu\n","Hair: other"
- ,(((float)hair_other/users)*100.0),hair_other);
- printf("%-25s (%4.1f%%) : %lu\n","Eyes: blue"
- ,(((float)eyes_blue/users)*100.0),eyes_blue);
- printf("%-25s (%4.1f%%) : %lu\n","Eyes: brown"
- ,(((float)eyes_brown/users)*100.0),eyes_brown);
- printf("%-25s (%4.1f%%) : %lu\n","Eyes: green"
- ,(((float)eyes_green/users)*100.0),eyes_green);
- printf("%-25s (%4.1f%%) : %lu\n","Eyes: hazel"
- ,(((float)eyes_hazel/users)*100.0),eyes_hazel);
- printf("%-25s (%4.1f%%) : %lu\n","Eyes: other"
- ,(((float)eyes_other/users)*100.0),eyes_other);
- printf("%-25s (%4.1f%%) : %lu\n","Race: white"
- ,(((float)race_white/users)*100.0),race_white);
- printf("%-25s (%4.1f%%) : %lu\n","Race: black"
- ,(((float)race_black/users)*100.0),race_black);
- printf("%-25s (%4.1f%%) : %lu\n","Race: asian"
- ,(((float)race_asian/users)*100.0),race_asian);
- printf("%-25s (%4.1f%%) : %lu\n","Race: amerindian"
- ,(((float)race_amerindian/users)*100.0),race_amerindian);
- printf("%-25s (%4.1f%%) : %lu\n","Race: mideastern"
- ,(((float)race_mideastern/users)*100.0),race_mideastern);
- printf("%-25s (%4.1f%%) : %lu\n","Race: hispanic"
- ,(((float)race_hispanic/users)*100.0),race_hispanic);
- printf("%-25s (%4.1f%%) : %lu\n","Race: other"
- ,(((float)race_other/users)*100.0),race_other);
- printf("%-25s (%4.1f%%) : %lu\n","Marital: single"
- ,(((float)marital_single/users)*100.0),marital_single);
- printf("%-25s (%4.1f%%) : %lu\n","Marital: married"
- ,(((float)marital_married/users)*100.0),marital_married);
- printf("%-25s (%4.1f%%) : %lu\n","Marital: divorced"
- ,(((float)marital_divorced/users)*100.0),marital_divorced);
- printf("%-25s (%4.1f%%) : %lu\n","Marital: widowed"
- ,(((float)marital_widowed/users)*100.0),marital_widowed);
- printf("%-25s (%4.1f%%) : %lu\n","Marital: other"
- ,(((float)marital_other/users)*100.0),marital_other);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: aries"
- ,(((float)zodiac_aries/users)*100.0),zodiac_aries);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: taurus"
- ,(((float)zodiac_taurus/users)*100.0),zodiac_taurus);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: gemini"
- ,(((float)zodiac_gemini/users)*100.0),zodiac_gemini);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: cancer"
- ,(((float)zodiac_cancer/users)*100.0),zodiac_cancer);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: leo"
- ,(((float)zodiac_leo/users)*100.0),zodiac_leo);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: virgo"
- ,(((float)zodiac_virgo/users)*100.0),zodiac_virgo);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: libra"
- ,(((float)zodiac_libra/users)*100.0),zodiac_libra);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: scorpio"
- ,(((float)zodiac_scorpio/users)*100.0),zodiac_scorpio);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: sagittarius"
- ,(((float)zodiac_sagittarius/users)*100.0),zodiac_sagittarius);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: capricorn"
- ,(((float)zodiac_capricorn/users)*100.0),zodiac_capricorn);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: aquarius"
- ,(((float)zodiac_aquarius/users)*100.0),zodiac_aquarius);
- printf("%-25s (%4.1f%%) : %lu\n","Zodiac: pisces"
- ,(((float)zodiac_pisces/users)*100.0),zodiac_pisces);
-}
-if(!max_wall)
- return(0);
-
-if((file=open("WALL.DAB",O_RDWR|O_BINARY|O_DENYNONE))==-1
- || (dab_fp=fdopen(file,"r+b"))==NULL) {
- return(0);
-}
-
-if((file=open("WALL.TMP",O_WRONLY|O_CREAT|O_TRUNC|O_BINARY|O_DENYALL
- ,S_IWRITE|S_IREAD))==-1
- || (tmp_fp=fdopen(file,"r+b"))==NULL) {
- printf("Error opening WALL.TMP\n");
- exit(1); }
-
-fprintf(stderr,"Reading wall data...");
-rewind(dab_fp);
-while(!feof(dab_fp)) {
- if(!fread(&wall,sizeof(wall_t),1,dab_fp))
- break;
- if((now-wall.imported)/(24UL*60UL*60UL)<=max_wall)
- fwrite(&wall,sizeof(wall_t),1,tmp_fp); }
-
-fprintf(stderr,"\n");
-fcloseall();
-remove("WALL.DAB");
-rename("WALL.TMP","WALL.DAB");
-
-return(0);
-}
diff --git a/src/sbbs2/smm/smmvars.c b/src/sbbs2/smm/smmvars.c
deleted file mode 100644
index 0e828145b47872cfe91a13cf3e5b26e69654e616..0000000000000000000000000000000000000000
--- a/src/sbbs2/smm/smmvars.c
+++ /dev/null
@@ -1,27 +0,0 @@
-/* SMMVARS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-uchar purity_age=18;
-uchar min_age=15;
-uint min_level=0;
-uchar req_flags1[128]="";
-uchar req_flags2[128]="";
-uchar req_flags3[128]="";
-uchar req_flags4[128]="";
-uchar zmodem_send[128]="";
-uchar local_view[128]="";
-uint auto_update=0;
-long profile_cdt=0;
-long telegram_cdt=0;
-uint telegram_level=0;
-long wall_cdt=0;
-uint wall_level=0;
-uchar wall_age=0;
-uchar age_split=0;
-uint que_level=0;
-long que_cdt=0;
-long cdt_adjustment=0;
-uint notify_user=0;
-ulong smm_misc=0;
-uchar system_name[41]="";
diff --git a/src/sbbs2/str.c b/src/sbbs2/str.c
deleted file mode 100644
index 6d4e2ade02e8377f346e98829bc1876020a4b982..0000000000000000000000000000000000000000
--- a/src/sbbs2/str.c
+++ /dev/null
@@ -1,1080 +0,0 @@
-#line 1 "STR.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*****************************************************/
-/* Functions that perform lengthy string i/o rotines */
-/*****************************************************/
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Lists all users who have access to the current sub. */
-/****************************************************************************/
-void userlist(char mode)
-{
- uchar name[256],sort=0;
- int i,j,k,users=0;
- uchar *line[1000];
- user_t user;
-
-if(lastuser()<=1000)
- sort=yesno(text[SortAlphaQ]);
-if(sort) {
- bputs(text[CheckingSlots]); }
-else {
- CRLF; }
-j=0;
-k=lastuser();
-for(i=1;i<=k && !msgabort();i++) {
- if(sort && (online==ON_LOCAL || !rioctl(TXBC)))
- bprintf("%-4d\b\b\b\b",i);
- user.number=i;
- getuserdat(&user);
- if(user.misc&(DELETED|INACTIVE))
- continue;
- users++;
- if(mode==UL_SUB) {
- if(!usrgrps)
- continue;
- if(!chk_ar(grp[usrgrp[curgrp]]->ar,user))
- continue;
- if(!chk_ar(sub[usrsub[curgrp][cursub[curgrp]]]->ar,user)
- || (sub[usrsub[curgrp][cursub[curgrp]]]->read_ar[0]
- && !chk_ar(sub[usrsub[curgrp][cursub[curgrp]]]->read_ar,user)))
- continue; }
- else if(mode==UL_DIR) {
- if(user.rest&FLAG('T'))
- continue;
- if(!usrlibs)
- continue;
- if(!chk_ar(lib[usrlib[curlib]]->ar,user))
- continue;
- if(!chk_ar(dir[usrdir[curlib][curdir[curlib]]]->ar,user))
- continue; }
- if(sort) {
- if((line[j]=(char *)MALLOC(128))==0) {
- errormsg(WHERE,ERR_ALLOC,nulstr,83);
- for(i=0;i<j;i++)
- FREE(line[i]);
- return; }
- sprintf(name,"%s #%d",user.alias,i);
- sprintf(line[j],text[UserListFmt],name
- ,sys_misc&SM_LISTLOC ? user.location : user.note
- ,unixtodstr(user.laston,tmp)
- ,user.modem); }
- else {
- sprintf(name,"%s #%u",user.alias,i);
- bprintf(text[UserListFmt],name
- ,sys_misc&SM_LISTLOC ? user.location : user.note
- ,unixtodstr(user.laston,tmp)
- ,user.modem); }
- j++; }
-if(i<=k) { /* aborted */
- if(sort)
- for(i=0;i<j;i++)
- FREE(line[i]);
- return; }
-if(!sort) {
- CRLF; }
-bprintf(text[NTotalUsers],users);
-if(mode==UL_SUB)
- bprintf(text[NUsersOnCurSub],j);
-else if(mode==UL_DIR)
- bprintf(text[NUsersOnCurDir],j);
-if(!sort)
- return;
-CRLF;
-qsort((void *)line,j,sizeof(line[0])
- ,(int(*)(const void*, const void*))pstrcmp);
-for(i=0;i<j && !msgabort();i++)
- bputs(line[i]);
-for(i=0;i<j;i++)
- FREE(line[i]);
-}
-
-/****************************************************************************/
-/* SIF input function. See SIF.DOC for more info */
-/****************************************************************************/
-void sif(char *fname, char *answers, long len)
-{
- char str[256],template[256],HUGE16 *buf,t,max,min,mode,cr;
- int file;
- ulong length,l=0,m,top,a=0;
-
-sprintf(str,"%s%s.SIF",text_dir,strupr(fname));
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- answers[0]=0;
- return; }
-length=filelength(file);
-if((buf=(char *)MALLOC(length))==0) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- answers[0]=0;
- return; }
-if(lread(file,buf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,length);
- answers[0]=0;
- return; }
-close(file);
-while(l<length && online) {
- mode=min=max=t=cr=0;
- top=l;
- while(l<length && buf[l++]!=STX);
- for(m=l;m<length;m++)
- if(buf[m]==ETX || !buf[m]) {
- buf[m]=0;
- break; }
- if(l>=length) break;
- if(online==ON_REMOTE) {
- rioctl(IOCM|ABORT);
- rioctl(IOCS|ABORT); }
- putmsg(buf+l,P_SAVEATR);
- m++;
- if(toupper(buf[m])!='C' && toupper(buf[m])!='S')
- continue;
- SYNC;
- if(online==ON_REMOTE)
- rioctl(IOSM|ABORT);
- if(a>=len) {
- errormsg(WHERE,ERR_LEN,fname,len);
- break; }
- if((buf[m]&0xdf)=='C') {
- if((buf[m+1]&0xdf)=='U') { /* Uppercase only */
- mode|=K_UPPER;
- m++; }
- else if((buf[m+1]&0xdf)=='N') { /* Numbers only */
- mode|=K_NUMBER;
- m++; }
- if((buf[m+1]&0xdf)=='L') { /* Draw line */
- if(useron.misc&COLOR)
- attr(color[clr_inputline]);
- else
- attr(BLACK|(LIGHTGRAY<<4));
- bputs(" \b");
- m++; }
- if((buf[m+1]&0xdf)=='R') { /* Add CRLF */
- cr=1;
- m++; }
- if(buf[m+1]=='"') {
- m+=2;
- for(l=m;l<length;l++)
- if(buf[l]=='"') {
- buf[l]=0;
- break; }
- answers[a++]=getkeys((char *)buf+m,0); }
- else {
- answers[a]=getkey(mode);
- outchar(answers[a++]);
- attr(LIGHTGRAY);
- CRLF; }
- if(cr) {
- answers[a++]=CR;
- answers[a++]=LF; } }
- else if((buf[m]&0xdf)=='S') { /* String */
- if((buf[m+1]&0xdf)=='U') { /* Uppercase only */
- mode|=K_UPPER;
- m++; }
- else if((buf[m+1]&0xdf)=='F') { /* Force Upper/Lowr case */
- mode|=K_UPRLWR;
- m++; }
- else if((buf[m+1]&0xdf)=='N') { /* Numbers only */
- mode|=K_NUMBER;
- m++; }
- if((buf[m+1]&0xdf)=='L') { /* Draw line */
- mode|=K_LINE;
- m++; }
- if((buf[m+1]&0xdf)=='R') { /* Add CRLF */
- cr=1;
- m++; }
- if(isdigit(buf[m+1])) {
- max=buf[++m]&0xf;
- if(isdigit(buf[m+1]))
- max=max*10+(buf[++m]&0xf); }
- if(buf[m+1]=='.' && isdigit(buf[m+2])) {
- m++;
- min=buf[++m]&0xf;
- if(isdigit(buf[m+1]))
- min=min*10+(buf[++m]&0xf); }
- if(buf[m+1]=='"') {
- m++;
- mode&=~K_NUMBER;
- while(buf[++m]!='"' && t<80)
- template[t++]=buf[m];
- template[t]=0;
- max=strlen(template); }
- if(t) {
- if(gettmplt(str,template,mode)<min) {
- l=top;
- continue; } }
- else {
- if(!max)
- continue;
- if(getstr(str,max,mode)<min) {
- l=top;
- continue; } }
- if(!cr) {
- for(cr=0;str[cr];cr++)
- answers[a+cr]=str[cr];
- while(cr<max)
- answers[a+cr++]=ETX;
- a+=max; }
- else {
- putrec(answers,a,max,str);
- putrec(answers,a+max,2,crlf);
- a+=max+2; } } }
-answers[a]=0;
-FREE((char *)buf);
-}
-
-/****************************************************************************/
-/* SIF output function. See SIF.DOC for more info */
-/****************************************************************************/
-void sof(char *fname, char *answers, long len)
-{
- char str[256],HUGE16 *buf,max,min,cr;
- int file;
- ulong length,l=0,m,a=0;
-
-sprintf(str,"%s%s.SIF",text_dir,strupr(fname));
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- answers[0]=0;
- return; }
-length=filelength(file);
-if((buf=(char *)MALLOC(length))==0) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- answers[0]=0;
- return; }
-if(lread(file,buf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,length);
- answers[0]=0;
- return; }
-close(file);
-while(l<length && online) {
- min=max=cr=0;
- while(l<length && buf[l++]!=STX);
- for(m=l;m<length;m++)
- if(buf[m]==ETX || !buf[m]) {
- buf[m]=0;
- break; }
- if(l>=length) break;
- if(online==ON_REMOTE) {
- rioctl(IOCM|ABORT);
- rioctl(IOCS|ABORT); }
- putmsg(buf+l,P_SAVEATR);
- m++;
- if(toupper(buf[m])!='C' && toupper(buf[m])!='S')
- continue;
- SYNC;
- if(online==ON_REMOTE)
- rioctl(IOSM|ABORT);
- if(a>=len) {
- bprintf("\r\nSOF: %s defined more data than buffer size "
- "(%lu bytes)\r\n",fname,len);
- break; }
- if((buf[m]&0xdf)=='C') {
- if((buf[m+1]&0xdf)=='U') /* Uppercase only */
- m++;
- else if((buf[m+1]&0xdf)=='N') /* Numbers only */
- m++;
- if((buf[m+1]&0xdf)=='L') { /* Draw line */
- if(useron.misc&COLOR)
- attr(color[clr_inputline]);
- else
- attr(BLACK|(LIGHTGRAY<<4));
- bputs(" \b");
- m++; }
- if((buf[m+1]&0xdf)=='R') { /* Add CRLF */
- cr=1;
- m++; }
- outchar(answers[a++]);
- attr(LIGHTGRAY);
- CRLF;
- if(cr)
- a+=2; }
- else if((buf[m]&0xdf)=='S') { /* String */
- if((buf[m+1]&0xdf)=='U')
- m++;
- else if((buf[m+1]&0xdf)=='F')
- m++;
- else if((buf[m+1]&0xdf)=='N') /* Numbers only */
- m++;
- if((buf[m+1]&0xdf)=='L') {
- if(useron.misc&COLOR)
- attr(color[clr_inputline]);
- else
- attr(BLACK|(LIGHTGRAY<<4));
- m++; }
- if((buf[m+1]&0xdf)=='R') {
- cr=1;
- m++; }
- if(isdigit(buf[m+1])) {
- max=buf[++m]&0xf;
- if(isdigit(buf[m+1]))
- max=max*10+(buf[++m]&0xf); }
- if(buf[m+1]=='.' && isdigit(buf[m+2])) {
- m++;
- min=buf[++m]&0xf;
- if(isdigit(buf[m+1]))
- min=min*10+(buf[++m]&0xf); }
- if(buf[m+1]=='"') {
- max=0;
- m++;
- while(buf[++m]!='"' && max<80)
- max++; }
- if(!max)
- continue;
- getrec(answers,a,max,str);
- bputs(str);
- attr(LIGHTGRAY);
- CRLF;
- if(!cr)
- a+=max;
- else
- a+=max+2; } }
-FREE((char *)buf);
-}
-
-/****************************************************************************/
-/* Creates data file 'datfile' from input via sif file 'siffile' */
-/****************************************************************************/
-void create_sif_dat(char *siffile, char *datfile)
-{
- char *buf;
- int file;
-
-if((buf=(char *)MALLOC(SIF_MAXBUF))==NULL) {
- errormsg(WHERE,ERR_ALLOC,siffile,SIF_MAXBUF);
- return; }
-memset(buf,SIF_MAXBUF,0); /* initialize to null */
-sif(siffile,buf,SIF_MAXBUF);
-if((file=nopen(datfile,O_WRONLY|O_TRUNC|O_CREAT))==-1) {
- FREE(buf);
- errormsg(WHERE,ERR_OPEN,datfile,O_WRONLY|O_TRUNC|O_CREAT);
- return; }
-write(file,buf,strlen(buf));
-close(file);
-FREE(buf);
-}
-
-/****************************************************************************/
-/* Reads data file 'datfile' and displays output via sif file 'siffile' */
-/****************************************************************************/
-void read_sif_dat(char *siffile, char *datfile)
-{
- char *buf;
- int file;
- long length;
-
-if((file=nopen(datfile,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,datfile,O_RDONLY);
- return; }
-length=filelength(file);
-if(!length) {
- close(file);
- return; }
-if((buf=(char *)MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,datfile,length);
- return; }
-read(file,buf,length);
-close(file);
-sof(siffile,buf,length);
-FREE(buf);
-}
-
-/****************************************************************************/
-/* Get string by template. A=Alpha, N=Number, !=Anything */
-/* First character MUST be an A,N or !. */
-/* Modes - K_LINE and K_UPPER are supported. */
-/****************************************************************************/
-char gettmplt(char *strout,char *template,int mode)
-{
- uchar t=strlen(template),c=0,ch,str[256];
-
-sys_status&=~SS_ABORT;
-strupr(template);
-if(useron.misc&ANSI) {
- if(mode&K_LINE) {
- if(useron.misc&COLOR)
- attr(color[clr_inputline]);
- else
- attr(BLACK|(LIGHTGRAY<<4)); }
- while(c<t) {
- if(template[c]=='N' || template[c]=='A' || template[c]=='!')
- outchar(SP);
- else
- outchar(template[c]);
- c++; }
- bprintf("\x1b[%dD",t); }
-c=0;
-if(mode&K_EDIT) {
- strcpy(str,strout);
- bputs(str);
- c=strlen(str); }
-while((ch=getkey(mode))!=CR && online && !(sys_status&SS_ABORT)) {
- if(ch==BS) {
- if(!c)
- continue;
- for(ch=1,c--;c;c--,ch++)
- if(template[c]=='N' || template[c]=='A' || template[c]=='!')
- break;
- if(useron.misc&ANSI)
- bprintf("\x1b[%dD",ch);
- else while(ch--)
- outchar(BS);
- bputs(" \b");
- continue; }
- if(ch==24) { /* Ctrl-X */
- for(c--;c!=0xff;c--) {
- outchar(BS);
- if(template[c]=='N' || template[c]=='A' || template[c]=='!')
- bputs(" \b"); }
- c=0; }
- else if(c<t) {
- if(template[c]=='N' && !isdigit(ch))
- continue;
- if(template[c]=='A' && !isalpha(ch))
- continue;
- outchar(ch);
- str[c++]=ch;
- while(c<t && template[c]!='N' && template[c]!='A' && template[c]!='!'){
- str[c]=template[c];
- outchar(template[c++]); } } }
-str[c]=0;
-attr(LIGHTGRAY);
-CRLF;
-if(!(sys_status&SS_ABORT))
- strcpy(strout,str);
-return(c);
-}
-
-/*****************************************************************************/
-/* Accepts a user's input to change a new-scan time pointer */
-/* Returns 0 if input was aborted or invalid, 1 if complete */
-/*****************************************************************************/
-char inputnstime(time_t *dt)
-{
- int hour;
- struct date tmpdate;
- struct time tmptime;
- char pm,str[256];
-
-bputs(text[NScanDate]);
-bputs(timestr(dt));
-CRLF;
-unixtodos(*dt,&tmpdate,&tmptime);
-bputs(text[NScanYear]);
-itoa(tmpdate.da_year,str,10);
-if(!getstr(str,4,K_EDIT|K_AUTODEL|K_NUMBER|K_NOCRLF) || sys_status&SS_ABORT) {
- CRLF;
- return(0); }
-tmpdate.da_year=atoi(str);
-if(tmpdate.da_year<1970) {
- CRLF;
- return(0); }
-bputs(text[NScanMonth]);
-itoa(tmpdate.da_mon,str,10);
-if(!getstr(str,2,K_EDIT|K_AUTODEL|K_NUMBER|K_NOCRLF) || sys_status&SS_ABORT) {
- CRLF;
- return(0); }
-tmpdate.da_mon=atoi(str);
-if(tmpdate.da_mon<1 || tmpdate.da_mon>12) {
- CRLF;
- return(0); }
-bputs(text[NScanDay]);
-itoa(tmpdate.da_day,str,10);
-if(!getstr(str,2,K_EDIT|K_AUTODEL|K_NUMBER|K_NOCRLF) || sys_status&SS_ABORT) {
- CRLF;
- return(0); }
-tmpdate.da_day=atoi(str);
-if(tmpdate.da_day<1 || tmpdate.da_day>31) {
- CRLF;
- return(0); }
-bputs(text[NScanHour]);
-if(sys_misc&SM_MILITARY)
- hour=tmptime.ti_hour;
-else {
- if(tmptime.ti_hour==0) { /* 12 midnite */
- pm=0;
- hour=12; }
- else if(tmptime.ti_hour>12) {
- hour=tmptime.ti_hour-12;
- pm=1; }
- else {
- hour=tmptime.ti_hour;
- pm=0; } }
-itoa(hour,str,10);
-if(!getstr(str,2,K_EDIT|K_AUTODEL|K_NUMBER|K_NOCRLF) || sys_status&SS_ABORT) {
- CRLF;
- return(0); }
-
-tmptime.ti_hour=atoi(str);
-if(tmptime.ti_hour>24) {
- CRLF;
- return(0); }
-bputs(text[NScanMinute]);
-itoa(tmptime.ti_min,str,10);
-if(!getstr(str,2,K_EDIT|K_AUTODEL|K_NUMBER|K_NOCRLF) || sys_status&SS_ABORT) {
- CRLF;
- return(0); }
-
-tmptime.ti_min=atoi(str);
-if(tmptime.ti_min>59) {
- CRLF;
- return(0); }
-tmptime.ti_sec=0;
-if(!(sys_misc&SM_MILITARY) && tmptime.ti_hour && tmptime.ti_hour<13) {
- if(pm && yesno(text[NScanPmQ])) {
- if(tmptime.ti_hour<12)
- tmptime.ti_hour+=12; }
- else if(!pm && !yesno(text[NScanAmQ])) {
- if(tmptime.ti_hour<12)
- tmptime.ti_hour+=12; }
- else if(tmptime.ti_hour==12)
- tmptime.ti_hour=0; }
-else {
- CRLF; }
-*dt=dostounix(&tmpdate,&tmptime);
-return(1);
-}
-
-/*****************************************************************************/
-/* Checks a password for uniqueness and validity */
-/*****************************************************************************/
-char chkpass(char *pass, user_t user)
-{
- char c,d,first[128],last[128],sysop[41],sysname[41],*p;
-
-if(strlen(pass)<4) {
- bputs(text[PasswordTooShort]);
- return(0); }
-if(!strcmp(pass,user.pass)) {
- bputs(text[PasswordNotChanged]);
- return(0); }
-d=strlen(pass);
-for(c=1;c<d;c++)
- if(pass[c]!=pass[c-1])
- break;
-if(c==d) {
- bputs(text[PasswordInvalid]);
- return(0); }
-for(c=0;c<3;c++) /* check for 1234 and ABCD */
- if(pass[c]!=pass[c+1]+1)
- break;
-if(c==3) {
- bputs(text[PasswordObvious]);
- return(0); }
-for(c=0;c<3;c++) /* check for 4321 and ZYXW */
- if(pass[c]!=pass[c+1]-1)
- break;
-if(c==3) {
- bputs(text[PasswordObvious]);
- return(0); }
-strupr(user.name);
-strupr(user.alias);
-strcpy(first,user.alias);
-p=strchr(first,SP);
-if(p) {
- *p=0;
- strcpy(last,p+1); }
-else
- last[0]=0;
-strupr(user.handle);
-strcpy(sysop,sys_op);
-strupr(sysop);
-strcpy(sysname,sys_name);
-strupr(sysname);
-if((user.pass[0]
- && (strstr(pass,user.pass) || strstr(user.pass,pass)))
- || (user.name[0]
- && (strstr(pass,user.name) || strstr(user.name,pass)))
- || strstr(pass,user.alias) || strstr(user.alias,pass)
- || strstr(pass,first) || strstr(first,pass)
- || (last[0]
- && (strstr(pass,last) || strstr(last,pass)))
- || strstr(pass,user.handle) || strstr(user.handle,pass)
- || (user.zipcode[0]
- && (strstr(pass,user.zipcode) || strstr(user.zipcode,pass)))
- || (sysname[0]
- && (strstr(pass,sysname) || strstr(sysname,pass)))
- || (sysop[0]
- && (strstr(pass,sysop) || strstr(sysop,pass)))
- || (sys_id[0]
- && (strstr(pass,sys_id) || strstr(sys_id,pass)))
- || (node_phone[0] && strstr(pass,node_phone))
- || (user.phone[0] && strstr(user.phone,pass))
- || !strncmp(pass,"QWER",3)
- || !strncmp(pass,"ASDF",3)
- || !strncmp(pass,"!@#$",3)
- )
- {
- bputs(text[PasswordObvious]);
- return(0); }
-return(1);
-}
-
-/****************************************************************************/
-/* Prompts user for detailed information regarding their computer */
-/* and places that information into 'computer' */
-/* Called from function newuser */
-/****************************************************************************/
-void getcomputer(char *computer)
-{
- char str[256];
-
-if(!(uq&UQ_MC_COMP)) {
- while(online) {
- bputs(text[EnterYourComputer]);
- if(getstr(computer,LEN_COMP,K_LINE))
- break; }
- return; }
-bputs(text[ComputerTypeMenu]);
-bputs(text[ComputerTypePrompt]);
-switch(getkeys("ABCDE",0)) {
- case 'A':
- sif("COMPUTER",str,8);
- if(!online) return;
- switch(str[0]) {
- case 'A':
- strcpy(computer,"XT");
- break;
- case 'B':
- strcpy(computer,"286");
- break;
- case 'C':
- strcpy(computer,"386SX");
- break;
- case 'D':
- strcpy(computer,"386DX");
- break;
- case 'E':
- strcpy(computer,"486");
- break; }
- switch(str[1]) {
- case 'A':
- strcat(computer,"-4 ");
- break;
- case 'B':
- strcat(computer,"-6 ");
- break;
- case 'C':
- strcat(computer,"-8 ");
- break;
- case 'D':
- strcat(computer,"-10 ");
- break;
- case 'E':
- strcat(computer,"-12 ");
- break;
- case 'F':
- strcat(computer,"-16 ");
- break;
- case 'G':
- strcat(computer,"-20 ");
- break;
- case 'H':
- strcat(computer,"-25 ");
- break;
- case 'I':
- strcat(computer,"-33 ");
- break;
- case 'J':
- strcat(computer,"-40 ");
- break;
- case 'K':
- strcat(computer,"-50 ");
- break; }
- switch(str[2]) {
- case 'A':
- strcat(computer,"8bit ");
- break;
- case 'B':
- strcat(computer,"ISA ");
- break;
- case 'C':
- strcat(computer,"MCA ");
- break;
- case 'D':
- strcat(computer,"EISA ");
- break; }
- switch(str[3]) {
- case 'A':
- strcat(computer,"MDA ");
- break;
- case 'B':
- strcat(computer,"HERC ");
- break;
- case 'C':
- strcat(computer,"CGA ");
- break;
- case 'D':
- strcat(computer,"EGA ");
- break;
- case 'E':
- strcat(computer,"MCGA ");
- break;
- case 'F':
- strcat(computer,"VGA ");
- break;
- case 'G':
- strcat(computer,"SVGA ");
- break;
- case 'H':
- strcat(computer,"MVGA ");
- break;
- case 'I':
- strcat(computer,"8514 ");
- break;
- case 'J':
- strcat(computer,"XGA ");
- break;
- case 'K':
- strcat(computer,"TIGA ");
- break; }
- switch(str[4]) {
- case 'A':
- strcat(computer,"<1 ");
- break;
- case 'B':
- strcat(computer,"1 ");
- break;
- case 'C':
- strcat(computer,"2 ");
- break;
- case 'D':
- strcat(computer,"3 ");
- break;
- case 'E':
- strcat(computer,"4 ");
- break;
- case 'F':
- strcat(computer,"5 ");
- break;
- case 'G':
- strcat(computer,"6 ");
- break;
- case 'H':
- strcat(computer,"8 ");
- break;
- case 'I':
- strcat(computer,"10 ");
- break;
- case 'J':
- strcat(computer,"12 ");
- break;
- case 'K':
- strcat(computer,"16 ");
- break;
- case 'L':
- strcat(computer,"18 ");
- break;
- case 'M':
- strcat(computer,"24 ");
- break;
- case 'N':
- strcat(computer,"32 ");
- break;
- case 'O':
- strcat(computer,"64 ");
- break; }
- switch(str[5]) {
- case 'A':
- strcat(computer,"0 ");
- break;
- case 'B':
- strcat(computer,"10 ");
- break;
- case 'C':
- strcat(computer,"20 ");
- break;
- case 'D':
- strcat(computer,"30 ");
- break;
- case 'E':
- strcat(computer,"40 ");
- break;
- case 'F':
- strcat(computer,"60 ");
- break;
- case 'G':
- strcat(computer,"80 ");
- break;
- case 'H':
- strcat(computer,"100 ");
- break;
- case 'I':
- strcat(computer,"120 ");
- break;
- case 'J':
- strcat(computer,"150 ");
- break;
- case 'K':
- strcat(computer,"200 ");
- break;
- case 'L':
- strcat(computer,"250 ");
- break;
- case 'M':
- strcat(computer,"300 ");
- break;
- case 'N':
- strcat(computer,"400 ");
- break;
- case 'O':
- strcat(computer,"500 ");
- break;
- case 'P':
- strcat(computer,"600 ");
- break;
- case 'Q':
- strcat(computer,"700 ");
- break;
- case 'R':
- strcat(computer,"800 ");
- break;
- case 'S':
- strcat(computer,"900 ");
- break;
- case 'T':
- strcat(computer,"1GB ");
- break; }
- switch(str[6]) {
- case 'A':
- strcat(computer,"ST506");
- break;
- case 'B':
- strcat(computer,"SCSI");
- break;
- case 'C':
- strcat(computer,"SCSI2");
- break;
- case 'D':
- strcat(computer,"ESDI");
- break;
- case 'E':
- strcat(computer,"IDE"); }
- break;
- case 'B':
- sprintf(computer,"%.*s",LEN_COMP,text[ComputerTypeB]);
- return;
- case 'C':
- sprintf(computer,"%.*s",LEN_COMP,text[ComputerTypeC]);
- return;
- case 'D':
- sprintf(computer,"%.*s",LEN_COMP,text[ComputerTypeD]);
- return;
- case 'E':
- sprintf(computer,"%.*s",LEN_COMP,text[ComputerTypeE]);
- return; }
-}
-
-/****************************************************************************/
-/* Displays information about sub-board subnum */
-/****************************************************************************/
-void subinfo(uint subnum)
-{
- char str[256];
-
-bputs(text[SubInfoHdr]);
-bprintf(text[SubInfoLongName],sub[subnum]->lname);
-bprintf(text[SubInfoShortName],sub[subnum]->sname);
-bprintf(text[SubInfoQWKName],sub[subnum]->qwkname);
-bprintf(text[SubInfoMaxMsgs],sub[subnum]->maxmsgs);
-if(sub[subnum]->misc&SUB_QNET)
- bprintf(text[SubInfoTagLine],sub[subnum]->tagline);
-if(sub[subnum]->misc&SUB_FIDO)
- bprintf(text[SubInfoFidoNet]
- ,sub[subnum]->origline
- ,faddrtoa(sub[subnum]->faddr));
-sprintf(str,"%s%s.MSG",sub[subnum]->data_dir,sub[subnum]->code);
-if(fexist(str) && yesno(text[SubInfoViewFileQ]))
- printfile(str,0);
-}
-
-/****************************************************************************/
-/* Displays information about transfer directory dirnum */
-/****************************************************************************/
-void dirinfo(uint dirnum)
-{
- char str[256];
-
-bputs(text[DirInfoHdr]);
-bprintf(text[DirInfoLongName],dir[dirnum]->lname);
-bprintf(text[DirInfoShortName],dir[dirnum]->sname);
-if(dir[dirnum]->exts[0])
- bprintf(text[DirInfoAllowedExts],dir[dirnum]->exts);
-bprintf(text[DirInfoMaxFiles],dir[dirnum]->maxfiles);
-sprintf(str,"%s%s.MSG",dir[dirnum]->data_dir,dir[dirnum]->code);
-if(fexist(str) && yesno(text[DirInfoViewFileQ]))
- printfile(str,0);
-}
-
-/****************************************************************************/
-/* Searches the file <name>.CAN in the TEXT directory for matches */
-/* Returns 1 if found in list, 0 if not. */
-/****************************************************************************/
-char trashcan(char *insearch, char *name)
-{
- char str[256],search[256],c,found=0;
- int file;
- FILE *stream;
-
-sprintf(str,"%s%s.CAN",text_dir,name);
-if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- if(fexist(str))
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
-strcpy(search,insearch);
-strupr(search);
-while(!feof(stream) && !ferror(stream) && !found) {
- if(!fgets(str,81,stream))
- break;
- truncsp(str);
- c=strlen(str);
- if(c) {
- c--;
- strupr(str);
- if(str[c]=='~') {
- str[c]=0;
- if(strstr(search,str))
- found=1; }
-
- else if(str[c]=='^') {
- str[c]=0;
- if(!strncmp(str,search,c))
- found=1; }
-
- else if(!strcmp(str,search))
- found=1; } }
-fclose(stream);
-if(found) {
- sprintf(str,"%sBAD%s.MSG",text_dir,name);
- if(fexist(str))
- printfile(str,0);
- return(1); }
-return(0);
-}
-
-/****************************************************************************/
-/* Error handling routine. Prints to local and remote screens the error */
-/* information, function, action, object and access and then attempts to */
-/* write the error information into the file ERROR.LOG and NODE.LOG */
-/****************************************************************************/
-void errormsg(int line, char *source, char action, char *object, ulong access)
-{
- char str[512];
- char actstr[256];
-
-switch(action) {
- case ERR_OPEN:
- strcpy(actstr,"opening");
- break;
- case ERR_CLOSE:
- strcpy(actstr,"closing");
- break;
- case ERR_FDOPEN:
- strcpy(actstr,"fdopen");
- break;
- case ERR_READ:
- strcpy(actstr,"reading");
- break;
- case ERR_WRITE:
- strcpy(actstr,"writing");
- break;
- case ERR_REMOVE:
- strcpy(actstr,"removing");
- break;
- case ERR_ALLOC:
- strcpy(actstr,"allocating memory");
- break;
- case ERR_CHK:
- strcpy(actstr,"checking");
- break;
- case ERR_LEN:
- strcpy(actstr,"checking length");
- break;
- case ERR_EXEC:
- strcpy(actstr,"executing");
- break;
- case ERR_CHDIR:
- strcpy(actstr,"changing directory");
- break;
- case ERR_CREATE:
- strcpy(actstr,"creating");
- break;
- case ERR_LOCK:
- strcpy(actstr,"locking");
- break;
- case ERR_UNLOCK:
- strcpy(actstr,"unlocking");
- break;
- default:
- strcpy(actstr,"UNKNOWN"); }
-bprintf("\7\r\nERROR - action: %s",actstr); /* tell user about error */
-bprintf("\7\r\n object: %s",object);
-bprintf("\7\r\n access: %ld",access);
-if(access>9 && (long)access!=-1 && (short)access!=-1 && (char)access!=-1)
- bprintf(" (%lXh)",access);
-if(sys_misc&SM_ERRALARM) {
- beep(500,220); beep(250,220);
- beep(500,220); beep(250,220);
- beep(500,220); beep(250,220);
- nosound(); }
-bputs("\r\n\r\nThe sysop has been notified. <Hit a key>");
-getkey(0);
-CRLF;
-sprintf(str,"\r\n file: %s\r\n line: %d\r\n action: %s\r\n"
- " object: %s\r\n access: %ld"
- ,source,line,actstr,object,access);
-if(access>9 && (long)access!=-1 && (short)access!=-1 && (char)access!=-1) {
- sprintf(tmp," (%lXh)",access);
- strcat(str,tmp); }
-if(errno) {
- sprintf(tmp,"\r\n errno: %d",errno);
- strcat(str,tmp); }
-if(_doserrno && _doserrno!=errno) {
- sprintf(tmp,"\r\n doserrno: %d",_doserrno);
- strcat(str,tmp); }
-errno=_doserrno=0;
-errorlog(str);
-}
-
-/*****************************************************************************/
-/* Error logging to NODE.LOG and DATA\ERROR.LOG function */
-/*****************************************************************************/
-void errorlog(char *text)
-{
- static char inside;
- char hdr[256],str[256],tmp2[256];
- int file;
-
-if(inside) /* let's not go recursive on this puppy */
- return;
-inside=1;
-getnodedat(node_num,&thisnode,1);
-criterrs=++thisnode.errors;
-putnodedat(node_num,thisnode);
-now=time(NULL);
-logline("!!",text);
-sprintf(str,"%sERROR.LOG",data_dir);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- sprintf(tmp2,"ERROR opening/creating %s",str);
- logline("!!",tmp2);
- inside=0;
- return; }
-sprintf(hdr,"%s Node %2d: %s #%d"
- ,timestr(&now),node_num,useron.alias,useron.number);
-write(file,hdr,strlen(hdr));
-write(file,crlf,2);
-write(file,text,strlen(text));
-write(file,"\r\n\r\n",4);
-close(file);
-inside=0;
-}
-
diff --git a/src/sbbs2/text.h b/src/sbbs2/text.h
deleted file mode 100644
index c1b29aa404540d72fd1f4b5dfe966de43cc1d4fd..0000000000000000000000000000000000000000
--- a/src/sbbs2/text.h
+++ /dev/null
@@ -1,737 +0,0 @@
-/* TEXT.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/****************************************************************************/
-/* Macros for elements of the array of pointers (text[]) to static text */
-/* Should correlate with CTRL\TEXT.DAT */
-/****************************************************************************/
-
-#ifndef _TEXT_H
-#define _TEXT_H
-
-enum {
- MsgSubj
-,MsgAttr
-,MsgTo
-,MsgToExt
-,MsgToNet
-,MsgFrom
-,MsgFromExt
-,MsgFromNet
-,MsgDate
-,Email
-,Post
-,TooManyEmailsToday
-,TooManyPostsToday
-,CantAddToQueue
-,R_Email
-,R_Post
-,R_Feedback
-,Emailing
-,Posting
-,NewFile
-,TitlePrompt
-,EnterMsgNow
-,EnterMsgNowRaw
-,NoMoreLines
-,OnlyNLinesLeft
-,OutOfBytes
-,InvalidLineNumber
-,MsgCleared
-,WithLineNumbers
-,Aborted
-,AnonymousQ
-,Anonymous
-,Saving
-,SavedNBytes
-,WritingIndx
-,Emailed
-,Posted
-,EmailNodeMsg
-,R_Forward
-,ForwardedFrom
-,Forwarded
-,AutoMsgBy
-,AutoMsg
-,R_AutoMsg
-,NoMailWaiting
-,MailWaitingLstHdr
-,MailWaitingLstFmt
-,StartWithN
-,ReadingMail
-,CantReplyToAnonMsg
-,Regarding
-,RegardingBy
-,RegardingByTo
-,DeleteMailQ
-,OK
-,ForwardMailTo
-,SaveMsgToFile
-,FileToWriteTo
-,NoMailSent
-,MailSentLstHdr
-,ReadingSentMail
-,CantDelForwardedMail
-,NoMailOnSystem
-,ReadingAllMail
-,MailOnSystemLstHdr
-,MailOnSystemLstFmt
-,NScanStatusFmt
-,SearchSubFmt
-,NoMsgsOnSub
-,ZScanPostHdr
-,ReadingSub
-,YouDidntPostMsgN
-,DeletePostQ
-,DeletingPost
-,DeletedPost
-,SearchStringPrompt
-,SubMsgLstHdr
-,SubMsgLstFmt
-,ChangeMsgPurgeQ
-,NoTextSections
-,TextSectionLstHdr
-,TextSectionLstFmt
-,WhichTextSection
-,TextFilesLstHdr
-,TextFilesLstFmt
-,WhichTextFileSysop
-,WhichTextFile
-,AddTextFileBeforeWhich
-,AddTextFilePath
-,AddTextFileDesc
-,RemoveWhichTextFile
-,DeleteTextFileQ
-,EditWhichTextFile
-,NScanAllGrpsQ
-,SScanAllGrpsQ
-,AreYouSureQ
-,R_Chat
-,ReFeedback
-,SiHdr
-,SiSysName
-,SiSysID
-,SiSysFaddr
-,SiSysPsite
-,SiSysLocation
-,SiSysop
-,SiSysNodes
-,SiNodeNumberName
-,SiNodePhone
-,SiTotalLogons
-,SiLogonsToday
-,SiTotalTime
-,SiTimeToday
-,ViewSysInfoFileQ
-,ViewLogonMsgQ
-,R_ReadSentMail
-,MessageScan
-,MessageScanComplete
-,MessageScanAborted
-,LogOffQ
-,CantPostOnSub
-,R_TransferSection
-,NoOtherActiveNodes
-,R_ExternalPrograms
-,UserStats
-,SubLstHdr
-,SubLstFmt
-,GrpLstHdr
-,GrpLstFmt
-,NScanCfgWhichGrp
-,SScanCfgWhichGrp
-,CfgSubLstHdr
-,CfgSubLstFmt
-,CfgGrpLstHdr
-,CfgGrpLstFmt
-,NScanCfgWhichSub
-,SScanCfgWhichSub
-,SubPtrLstFmt
-,WhichOrAll
-,RawMsgInputModeIsNow
-,OFF
-,ON
-,LineStatus
-,SystemStatsHdr
-,NodeStatsHdr
-,StatsTotalLogons
-,StatsLogonsToday
-,StatsTotalTime
-,StatsTimeToday
-,StatsUploadsToday
-,StatsDownloadsToday
-,StatsPostsToday
-,StatsEmailsToday
-,StatsFeedbacksToday
-,ChUserPrompt
-,ChUserPwPrompt
-,NBytesFreeMemory
-,ErrorLogHdr
-,DeleteErrorLogQ
-,NoErrorLogExists
-,ClearErrCounter
-,InvalidNode
-,RerunThisNodeNowQ
-,DeleteGuruLogQ
-,NScanAllLibsQ
-,R_Download
-,SearchingAllDirs
-,SearchingAllLibs
-,NFilesListed
-,EmptyDir
-,NScanHdr
-,R_RemoveFiles
-,DirFull
-,R_Upload
-,CantUploadHere
-,FileSpec
-,UserTransferStats
-,NoSysopDir
-,CantUploadToSysop
-,DirLstHdr
-,DirLstFmt
-,LibLstHdr
-,LibLstFmt
-,BatDownloadFlagIsNow
-,TransferPolicyHdr
-,TpCreditValue
-,TpUpload
-,TpDownload
-,NoUserDir
-,NoFilesForYou
-,UserDirFull
-,CantUploadToUser
-,BoxHdrLib
-,BoxHdrDir
-,BoxHdrFiles
-,ShortHdrLib
-,ShortHdrDir
-,BatchDlFlags
-,BatchDlQueueIsFull
-,FileSpecStarDotStar
-,LowDiskSpace
-,DiskNBytesFree
-,Filename
-,BadFilename
-,UploadToSysopDirQ
-,UploadToUserDirQ
-,UploadToCurDirQ
-,FileAlreadyThere
-,FileOnDiskAddQ
-,FileNotOnDisk
-,TheseFileExtsOnly
-,FileAlreadyOnline
-,EnterAfterLastDestUser
-,SendFileToUser
-,DuplicateUser
-,UserWontBeAbleToDl
-,CantSendYourselfFiles
-,UserAddedToDestList
-,RateThisFile
-,Rated
-,MultipleDiskQ
-,HowManyDisksTotal
-,NumberOfFile
-,FileOneOfTen
-,FileOneOfTwo
-,EnterDescNow
-,NoDescription
-,ProtocolOrQuit
-,ProtocolBatchOrQuit
-,BatchUlQueueIsFull
-,FileAddedToUlQueue
-,UserToUserXferNodeMsg
-,FileInfoPrompt
-,QuitOrNext
-,RExemptRemoveFilePrompt
-,MoveToLibLstFmt
-,MoveToLibPrompt
-,MoveToDirLstFmt
-,MoveToDirPrompt
-,MovedFile
-,CloseFileRecordQ
-,SysopRemoveFilePrompt
-,UserRemoveFilePrompt
-,FileNotThere
-,CouldntRemoveFile
-,DeleteFileQ
-,AddToOfflineDirQ
-,RemoveCreditsQ
-,UserNotFound
-,CreditsToRemove
-,FileRemovedUserMsg
-,EditFilename
-,CouldntRenameFile
-,FileRenamed
-,EditDescription
-,DeleteExtDescriptionQ
-,EditUploader
-,EditCreditValue
-,EditTimesDownloaded
-,EditOpenCount
-,EditAltPath
-,YouOnlyHaveNCredits
-,NotEnoughCredits
-,NotEnoughTimeToDl
-,ProtocolBatchQuitOrNext
-,BulkUpload
-,BulkUploadDescPrompt
-,NoFilesInBatchQueue
-,BatchMenuPrompt
-,ClearUploadQueueQ
-,UploadQueueCleared
-,ClearDownloadQueueQ
-,DownloadQueueCleared
-,DownloadQueueIsEmpty
-,UploadQueueLstHdr
-,UploadQueueLstFmt
-,DownloadQueueLstHdr
-,DownloadQueueLstFmt
-,DownloadQueueTotals
-,RemoveWhichFromUlQueue
-,RemoveWhichFromDlQueue
-,UploadQueueIsEmpty
-,HangUpAfterXferQ
-,StartXferNow
-,Disconnecting
-,Disconnected
-,FileNotSent
-,RemovingTempFiles
-,ExtractFrom
-,UnextractableFile
-,FileNotFound
-,ExtractFilesPrompt
-,TempDirPrompt
-,TempFileNotCreatedYet
-,TempFileInfo
-,TempDirTotal
-,NFilesRemoved
-,ResortWarning
-,ResortLineFmt
-,ResortEmptyDir
-,Sorting
-,Sorted
-,Compressed
-,FileAlreadyInQueue
-,FileIsNotOnline
-,FileAddedToBatDlQueue
-,NonviewableFile
-,FileNotReceived
-,FileHadErrors
-,FileZeroLength
-,FileNBytesReceived
-,FileNBytesSent
-,DownloadUserMsg
-,Partially
-,FiLib
-,FiDir
-,FiFilename
-,FiFileSize
-,FiCredits
-,FiDescription
-,FiUploadedBy
-,FiFileDate
-,FiDateUled
-,FiDateDled
-,FiTimesDled
-,FiTransferTime
-,FiAlternatePath
-,InvalidAlternatePathN
-,FileIsOpen
-,HappyBirthday
-,TimeToChangePw
-,NewPasswordQ
-,NewPassword
-,VerifyPassword
-,Wrong
-,PasswordChanged
-,NoMoreLogons
-,R_Logons
-,EnterYourAlias
-,EnterYourRealName
-,EnterYourCompany
-,EnterYourHandle
-,EnterYourSex
-,EnterYourAddress
-,EnterYourPhoneNumber
-,EnterYourBirthday
-,EnterYourCityState
-,EnterYourZipCode
-,EnterYourComputer
-,CallingFromNorthAmericaQ
-,UserInfoCorrectQ
-,LiUserNumberName
-,LiLogonsToday
-,LiTimeonToday
-,LiMailWaiting
-,LiSysopIs
-,LiSysopAvailable
-,LiSysopNotAvailable
-,UserOnTwoNodes
-,CriticalErrors
-,UserXferForYou
-,UnreceivedUserXfer
-,ReadYourMailNowQ
-,NoNewUsers
-,NewUserPasswordPrompt
-,AutoTerminalQ
-,AnsiTerminalQ
-,ColorTerminalQ
-,RipTerminalQ
-,ExAsciiTerminalQ
-,YouCantUseThatName
-,YourPasswordIs
-,NewUserPasswordVerify
-,IncorrectPassword
-,MagicWordPrompt
-,FailedMagicWord
-,SystemFull
-,NewUserFeedbackHdr
-,NoFeedbackWarning
-,NoXtrnPrograms
-,XtrnProgLstHdr
-,XtrnProgLstTitles
-,XtrnProgLstUnderline
-,XtrnProgLstFmt
-,WhichXtrnProg
-,UserRunningXtrn
-,RemoveNodeLockQ
-,MinimumModemSpeed
-,NoNodeAccess
-,NodeLocked
-,UnknownUser
-,InvalidLogon
-,SlogFmt
-,Locally
-,SortAlphaQ
-,CheckingSlots
-,UserListFmt
-,NTotalUsers
-,NUsersOnCurSub
-,NUsersOnCurDir
-,NScanDate
-,NScanYear
-,NScanMonth
-,NScanDay
-,NScanHour
-,NScanMinute
-,NScanPmQ
-,NScanAmQ
-,PasswordTooShort
-,PasswordNotChanged
-,PasswordInvalid
-,PasswordObvious
-,ComputerTypeMenu
-,ComputerTypePrompt
-,ComputerTypeB
-,ComputerTypeC
-,ComputerTypeD
-,ComputerTypeE
-,NoUserData
-,Deleted
-,Inactive
-,UeditAliasPassword
-,UeditRealNamePhone
-,UeditAddressBirthday
-,UeditLocationZipcode
-,UeditNoteHandle
-,UeditComputerModem
-,UeditCommentLine
-,UserDates
-,UserTimes
-,UserLogons
-,UserEmails
-,UserNetMail
-,UserUploads
-,UserDownloads
-,UserLeech
-,UserCredits
-,UserMinutes
-,UeditSecLevel
-,UeditFlags
-,UeditExempts
-,UeditPrompt
-,UeditRestoreQ
-,UeditActivateQ
-,UeditDeleteQ
-,UeditReadUserMailWQ
-,UeditReadUserMailSQ
-,UeditDeactivateUserQ
-,ChangeExemptionQ
-,FlagEditing
-,GoToUser
-,UeditLastOn
-,UeditFirstOn
-,UeditExpire
-,UeditPwModDate
-,UeditML
-,UeditNote
-,UeditComment
-,UeditUlBytes
-,UeditUploads
-,UeditDlBytes
-,UeditDownloads
-,UeditLeech
-,QuickValidateFmt
-,QuickValidatePrompt
-,UeditPassword
-,UeditCredits
-,UeditMinutes
-,UeditCopyUserQ
-,UeditCopyUserToSlot
-,ChangeRestrictsQ
-,ModifyCredits
-,ModifyMinutes
-,DeleteQuestionaireQ
-,UserDefaultsHdr
-,UserDefaultsTerminal
-,UserDefaultsXeditor
-,UserDefaultsRows
-,UserDefaultsMenuMode
-,UserDefaultsPause
-,UserDefaultsHotKey
-,UserDefaultsCursor
-,UserDefaultsCLS
-,UserDefaultsAskNScan
-,UserDefaultsAskSScan
-,UserDefaultsANFS
-,UserDefaultsRemember
-,UserDefaultsBatFlag
-,UserDefaultsNetMail
-,UserDefaultsCommandSet
-,UserDefaultsQuiet
-,UserDefaultsPassword
-,UserDefaultsArcType
-,UserDefaultsProtocol
-,UserDefaultsWhich
-,On
-,Off
-,HowManyRows
-,CurrentPassword
-,ForwardMailQ
-,EnterNetMailAddress
-,SelectItemHdr
-,SelectItemFmt
-,SelectItemWhich
-,SysopIsHere
-,EndOfChat
-,ChatPrompt
-,AnonUserChatHandle
-,WelcomeToMultiChat
-,WelcomeToChannelN
-,NodeInMultiChatLocally
-,YoureOnTheAir
-,NodeJoinedMultiChat
-,NodeLeftMultiChat
-,MultiChatCommandPrompt
-,PasswordProtected
-,CorrectPassword
-,WrongPassword
-,PasswordProtectChanQ
-,PasswordPrompt
-,ChatLineFmt
-,SysopPageIsNow
-,SysopIsNotAvailable
-,ChatWithGuruInsteadQ
-,PrivateMsgPrompt
-,NodeToPrivateChat
-,NodeNAlreadyInPChat
-,NodeNIsNotInUse
-,NoNeedToPageSelf
-,CantPageNode
-,NodePageMsg
-,AllNodePageMsg
-,NodePChatPageMsg
-,R_SendMessages
-,NodeToSendMsgTo
-,NoNeedToSendMsgToSelf
-,NodeMsgPrompt
-,NodeMsgFmt
-,AllNodeMsgFmt
-,PagingGuru
-,WaitingForNodeInPChat
-,NodeJoinedPrivateChat
-,NodeLeftPrivateChat
-,NoOneHasLoggedOnToday
-,LastFewCallers
-,LastFewCallersFmt
-,CallersToday
-,DoYouMeanThisUserQ
-,UNKNOWN_USER
-,TimesUp
-,NodeLoggedOff
-,NodeLoggedOnAtNbps
-,TiLogon
-,TiNow
-,TiTimeon
-,TiTimeLeft
-,ControlKeyMenu
-,TakenTooLongToLogon
-,CallBackWhenYoureThere
-,YesNoQuestion
-,Yes
-,No
-,NoYesQuestion
-,Pause
-,Wait
-,SysStatsLogHdr
-,NodeStatsLogHdr
-,ReducedTime
-,EventInfo
-,UploadBeforeEvent
-,QWKPrompt
-,QWKCtrlACodes
-,QWKPackingSubboard
-,QWKPackedSubboard
-,QWKPackingEmail
-,QWKPackedEmail
-,QWKUnpacking
-,QWKUnpacked
-,QWKNoNewMessages
-,QWKCompressionFailed
-,QWKExtractionFailed
-,QWKReplyNotReceived
-,QWKInvalidConferenceN
-,CreatingFileList
-,CreatedFileList
-,NoFiles
-,MsgPtrsInitialized
-,ConversionRate
-,CreditsToMin
-,YouHaveTooManyMinutes
-,BillingNodeMsg
-,Convert100ktoNminQ
-,CreditedAccount
-,ANSICaptureIsNow
-,RetrievingFile
-,AltULPathIsNow
-,PrivatePostQ
-,PostTo
-,NoToUser
-,UsingRealName
-,PostingPrivately
-,PostingAnonymously
-,CantDeletePosts
-,SubInfoHdr
-,SubInfoLongName
-,SubInfoShortName
-,SubInfoQWKName
-,SubInfoMaxMsgs
-,SubInfoTagLine
-,SubInfoFidoNet
-,SubInfoViewFileQ
-,DirInfoHdr
-,DirInfoLongName
-,DirInfoShortName
-,DirInfoAllowedExts
-,DirInfoMaxFiles
-,DirInfoViewFileQ
-,NoNetMailAllowed
-,NetMailCostContinueQ
-,NetMailing
-,RemoveFromNewScanQ
-,SubGroupOrAll
-,DirLibOrAll
-,EnterPath
-,SearchExtendedQ
-,DisplayTitlesOnlyQ
-,EchoIsNow
-,WelcomeToPrivateChat
-,UploadingREP
-,ReceivedFileViaQWK
-,QWKmsgLimitReached
-,PrivatePostsNotAllowed
-,LoadingMsgPtrs
-,LoadedMsgPtrs
-,QuoteMessageQ
-,QuoteLinesPrompt
-,ChatChanLstHdr
-,ChatChanLstTitles
-,ChatChanLstUnderline
-,ChatChanLstFmt
-,CantAccessThatChannel
-,CantDownloadFromDir
-,SearchingForDupes
-,SearchedForDupes
-,AccountWillExpireInNDays
-,AccountHasExpired
-,DownloadBatchQ
-,WaitingForDeviceN
-,UserSentYouMail
-,UserSentYouFile
-,UserReadYourMail
-,UserReadYourMailNodeMsg
-,JoinWhichGrp
-,JoinWhichSub
-,JoinWhichLib
-,JoinWhichDir
-,CfgDirLstHdr
-,CfgDirLstFmt
-,CfgLibLstHdr
-,CfgLibLstFmt
-,BatchFlagPrompt
-,FileListBatchCommands
-,DownloadAttachedFileQ
-,FreeMinLeft
-,FreeMinToDeposit
-,EmailFilesNotAllowed
-,CantRunThatProgram
-,OnlyXminutesLeft
-,AreYouThere
-,NoAccessLevel
-,NoAccessAge
-,NoAccessBPS
-,NoAccessCredit
-,NoAccessNode
-,NoAccessUser
-,NoAccessExpire
-,NoAccessTimeLeft
-,NoAccessTimeUsed
-,NoAccessTime
-,NoAccessPCR
-,NoAccessUDR
-,NoAccessUDFR
-,NoAccessFlag1
-,NoAccessFlag2
-,NoAccessFlag3
-,NoAccessFlag4
-,NoAccessSex
-,NoAccessExempt
-,NoAccessRest
-,NoAccessDay
-,NoAccessGroup
-,NoAccessSub
-,NoAccessLib
-,NoAccessDir
-,NodeLstHdr
-,NodeActionMain
-,NodeActionReadMsgs
-,NodeActionReadMail
-,NodeActionSendMail
-,NodeActionReadTxt
-,NodeActionReadSentMail
-,NodeActionPostMsg
-,NodeActionAutoMsg
-,NodeActionXtrn
-,NodeActionDefaults
-,NodeActionXfer
-,NodeActionDLing
-,NodeActionULing
-,NodeActionBiXfer
-,NodeActionListFiles
-,NodeActionLoggingOn
-,NodeActionLocalChat
-,NodeActionMultiChat
-,NodeActionGuruChat
-,NodeActionChatSec
-,NodeActionSysopAct
-,NodeActionQWK
-,NodeActionPrivateChat
-,NodeActionPaging
-,NodeActionRetrieving
-,YN
-
-,TOTAL_TEXT };
-
-#endif
diff --git a/src/sbbs2/text_sec.c b/src/sbbs2/text_sec.c
deleted file mode 100644
index a63c2689449fc7bf9efe00be4a9038bae294a599..0000000000000000000000000000000000000000
--- a/src/sbbs2/text_sec.c
+++ /dev/null
@@ -1,200 +0,0 @@
-#line 1 "TEXT_SEC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-#define MAX_TXTSECS 500 /* Maximum number of text file sections */
-#define MAX_TXTFILES 500 /* Maximum number of text files per section */
-
-/****************************************************************************/
-/* General Text File Section. */
-/* Called from function main_sec */
-/* Returns 1 if no text sections available, 0 otherwise. */
-/****************************************************************************/
-char text_sec()
-{
- char str[256],usrsec[MAX_TXTSECS],usrsecs,cursec,usemenu
- ,*file[MAX_TXTFILES],addpath[83],addstr[83],*buf,ch;
- long i,j;
- long l,length;
- FILE *stream;
-
-// ch=getage(useron.birth); Removed 05/19/96
-for(i=j=0;i<total_txtsecs;i++) {
- if(!chk_ar(txtsec[i]->ar,useron))
- continue;
- usrsec[j++]=i; }
-usrsecs=j;
-if(!usrsecs) {
- bputs(text[NoTextSections]);
- return(1); }
-action=NODE_RTXT;
-while(online) {
- sprintf(str,"%sMENU\\TEXT_SEC.*",text_dir);
- if(fexist(str))
- menu("TEXT_SEC");
- else {
- bputs(text[TextSectionLstHdr]);
- for(i=0;i<usrsecs && !msgabort();i++) {
- sprintf(str,text[TextSectionLstFmt],i+1,txtsec[usrsec[i]]->name);
- if(i<9) outchar(SP);
- bputs(str); } }
- ASYNC;
- mnemonics(text[WhichTextSection]);
- if((cursec=getnum(usrsecs))<1)
- break;
- cursec--;
- while(online) {
- sprintf(str,"%sMENU\\TEXT%u.*",text_dir,cursec+1);
- if(fexist(str)) {
- sprintf(str,"TEXT%u",cursec+1);
- menu(str);
- usemenu=1; }
- else {
- bprintf(text[TextFilesLstHdr],txtsec[usrsec[cursec]]->name);
- usemenu=0; }
- sprintf(str,"%sTEXT\\%s.IXT",data_dir,txtsec[usrsec[cursec]]->code);
- j=0;
- if(fexist(str)) {
- if((stream=fnopen((int *)&i,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
- while(!ferror(stream) && !msgabort()) { /* file open too long */
- if(!fgets(str,81,stream))
- break;
- str[strlen(str)-2]=0; /* chop off CRLF */
- if((file[j]=MALLOC(strlen(str)+1))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,strlen(str)+1);
- continue; }
- strcpy(file[j],str);
- fgets(str,81,stream);
- if(!usemenu) bprintf(text[TextFilesLstFmt],j+1,str);
- j++; }
- fclose(stream); }
- ASYNC;
- if(SYSOP) {
- strcpy(str,"QARE?");
- mnemonics(text[WhichTextFileSysop]); }
- else {
- strcpy(str,"Q?");
- mnemonics(text[WhichTextFile]); }
- i=getkeys(str,j);
- if(!(i&0x80000000L)) { /* no file number */
- for(l=0;l<j;l++)
- FREE(file[l]);
- if((i=='E' || i=='R') && !j)
- continue; }
- if(i=='Q' || !i)
- break;
- if(i==-1) { /* ctrl-c */
- for(i=0;i<j;i++)
- FREE(file[i]);
- return(0); }
- if(i=='?') /* ? means re-list */
- continue;
- if(i=='A') { /* Add text file */
- if(j) {
- bputs(text[AddTextFileBeforeWhich]);
- i=getnum(j+1);
- if(i<1)
- continue;
- i--; /* number of file entries to skip */ }
- else
- i=0;
- bprintf(text[AddTextFilePath]
- ,data_dir,txtsec[usrsec[cursec]]->code);
- if(!getstr(addpath,80,K_UPPER))
- continue;
- strcat(addpath,crlf);
- bputs(text[AddTextFileDesc]);
- if(!getstr(addstr,74,0))
- continue;
- strcat(addstr,crlf);
- sprintf(str,"%sTEXT\\%s.IXT"
- ,data_dir,txtsec[usrsec[cursec]]->code);
- if(i==j) { /* just add to end */
- if((i=nopen(str,O_WRONLY|O_APPEND|O_CREAT))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_APPEND|O_CREAT);
- return(0); }
- write(i,addpath,strlen(addpath));
- write(i,addstr,strlen(addstr));
- close(i);
- continue; }
- j=i; /* inserting in middle of file */
- if((stream=fnopen((int *)&i,str,O_RDWR))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDWR);
- return(0); }
- length=filelength(i);
- for(i=0;i<j;i++) { /* skip two lines for each entry */
- fgets(tmp,81,stream);
- fgets(tmp,81,stream); }
- l=ftell(stream);
- if((buf=(char *)MALLOC(length-l))==NULL) {
- fclose(stream);
- errormsg(WHERE,ERR_ALLOC,str,length-l);
- return(0); }
- fread(buf,1,length-l,stream);
- fseek(stream,l,SEEK_SET); /* go back to where we need to insert */
- fputs(addpath,stream);
- fputs(addstr,stream);
- fwrite(buf,1,length-l,stream);
- fclose(stream);
- FREE(buf);
- continue; }
- if(i=='R' || i=='E') { /* Remove or Edit text file */
- ch=i;
- if(ch=='R')
- bputs(text[RemoveWhichTextFile]);
- else
- bputs(text[EditWhichTextFile]);
- i=getnum(j);
- if(i<1)
- continue;
- sprintf(str,"%sTEXT\\%s.IXT"
- ,data_dir,txtsec[usrsec[cursec]]->code);
- j=i-1;
- if((stream=fnopen((int *)&i,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
- // length=filelength(i); Removed 05/19/96
- for(i=0;i<j;i++) { /* skip two lines for each entry */
- fgets(tmp,81,stream);
- fgets(tmp,81,stream); }
- fgets(addpath,81,stream);
- truncsp(addpath);
- fclose(stream);
- if(!strchr(addpath,'\\'))
- sprintf(tmp,"%sTEXT\\%s\\%s"
- ,data_dir,txtsec[usrsec[cursec]]->code,addpath);
- else
- strcpy(tmp,addpath);
- if(ch=='R') { /* Remove */
- if(fexist(tmp)) {
- sprintf(str,text[DeleteTextFileQ],tmp);
- if(!noyes(str))
- if(remove(tmp)) errormsg(WHERE,ERR_REMOVE,tmp,0); }
- sprintf(str,"%sTEXT\\%s.IXT"
- ,data_dir,txtsec[usrsec[cursec]]->code);
- removeline(str,addpath,2,0); }
- else { /* Edit */
- strcpy(str,tmp);
- editfile(str); }
- continue; }
- i=(i&~0x80000000L)-1;
- if(!strchr(file[i],'\\'))
- sprintf(str,"%sTEXT\\%s\\%s"
- ,data_dir,txtsec[usrsec[cursec]]->code,file[i]);
- else
- strcpy(str,file[i]);
- attr(LIGHTGRAY);
- printfile(str,0);
- sprintf(str,"Read Text File: %s",file[i]);
- logline("T-",str);
- pause();
- sys_status&=~SS_ABORT;
- for(i=0;i<j;i++)
- FREE(file[i]); } }
-return(0);
-}
-
diff --git a/src/sbbs2/un_qwk.c b/src/sbbs2/un_qwk.c
deleted file mode 100644
index d8cfe2b6c70b3f1e0aa158c707d6c648fb97af05..0000000000000000000000000000000000000000
--- a/src/sbbs2/un_qwk.c
+++ /dev/null
@@ -1,200 +0,0 @@
-#line 1 "UN_QWK.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "qwk.h"
-
-/****************************************************************************/
-/* Unpacks .QWK packet, hubnum is the number of the QWK net hub */
-/****************************************************************************/
-void unpack_qwk(char *packet,uint hubnum)
-{
- uchar str[256],fname[128],block[128],ch;
- int k,file;
- uint i,j,n,msgs,lastsub=INVALID_SUB;
- long l,size,misc;
- time_t t;
- struct ffblk ff;
- FILE *qwk;
-
-useron.number=1;
-getuserdat(&useron);
-console=CON_L_ECHO;
-i=external(cmdstr(qhub[hubnum]->unpack,packet,"*.*",NULL),EX_OUTL);
-if(i) {
- errormsg(WHERE,ERR_EXEC,cmdstr(qhub[hubnum]->unpack,packet,"*.*",NULL),i);
- return; }
-sprintf(str,"%sMESSAGES.DAT",temp_dir);
-if(!fexist(str)) {
- sprintf(str,"%s.QWK doesn't contain MESSAGES.DAT",qhub[hubnum]->id);
- errorlog(str);
- return; }
-if((qwk=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-size=filelength(file);
-/********************/
-/* Process messages */
-/********************/
-bputs(text[QWKUnpacking]);
-
-for(l=128;l<size;l+=i*128) {
- fseek(qwk,l,SEEK_SET);
- fread(block,128,1,qwk);
- sprintf(tmp,"%.6s",block+116);
- i=atoi(tmp); /* i = number of 128 byte records */
- if(i<2) {
- i=1;
- continue; }
- /*********************************/
- /* public message on a sub-board */
- /*********************************/
- n=(uint)block[123]|(((uint)block[124])<<8); /* conference number */
-
- if(!n) { /* NETMAIL */
- sprintf(str,"%25.25s",block+21);
- truncsp(str);
- if(!stricmp(str,"NETMAIL")) { /* QWK to FidoNet NetMail */
- qwktonetmail(qwk,block,NULL,hubnum+1);
- continue; }
- if(strchr(str,'@')) {
- qwktonetmail(qwk,block,str,hubnum+1);
- continue; }
- j=atoi(str);
- if(j && j>lastuser())
- j=0;
- if(!j && !stricmp(str,"SYSOP"))
- j=1;
- if(!j)
- j=matchuser(str);
- if(!j && !stricmp(str,sys_id))
- j=1;
- if(!j) {
- bputs(text[UnknownUser]);
- continue; }
-
- getuserrec(j,U_MISC,8,str);
- misc=ahtoul(str);
- if(misc&NETMAIL && sys_misc&SM_FWDTONET) {
- getuserrec(j,U_NETMAIL,LEN_NETMAIL,str);
- qwktonetmail(qwk,block,str,hubnum+1);
- continue; }
-
- smb_stack(&smb,SMB_STACK_PUSH);
- sprintf(smb.file,"%sMAIL",data_dir);
- smb.retry_time=smb_retry_time;
- if((k=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,k);
- smb_stack(&smb,SMB_STACK_POP);
- continue; }
- if(!filelength(fileno(smb.shd_fp))) {
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_age=mail_maxage;
- smb.status.attr=SMB_EMAIL;
- if((k=smb_create(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_CREATE,smb.file,k);
- smb_stack(&smb,SMB_STACK_POP);
- continue; } }
- if((k=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,k);
- smb_stack(&smb,SMB_STACK_POP);
- continue; }
- if((k=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,k);
- smb_stack(&smb,SMB_STACK_POP);
- continue; }
- smb_unlocksmbhdr(&smb);
- qwktomsg(qwk,block,hubnum+1,INVALID_SUB,j);
- smb_close(&smb);
- smb_stack(&smb,SMB_STACK_POP);
- sprintf(tmp,"%-25.25s",block+46);
- truncsp(tmp);
- sprintf(str,text[UserSentYouMail],tmp);
- putsmsg(j,str);
- continue;
- }
-
- for(j=0;j<qhub[hubnum]->subs;j++)
- if(qhub[hubnum]->conf[j]==n)
- break;
- if(j>=qhub[hubnum]->subs) /* ignore messages for subs not in config */
- continue;
-
- j=qhub[hubnum]->sub[j];
-
- if(j!=lastsub) {
- if(lastsub!=INVALID_SUB)
- smb_close(&smb);
- lastsub=INVALID_SUB;
- sprintf(smb.file,"%s%s",sub[j]->data_dir,sub[j]->code);
- smb.retry_time=smb_retry_time;
- if((k=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,k);
- continue; }
- if(!filelength(fileno(smb.shd_fp))) {
- smb.status.max_crcs=sub[j]->maxcrcs;
- smb.status.max_msgs=sub[j]->maxmsgs;
- smb.status.max_age=sub[j]->maxage;
- smb.status.attr=sub[j]->misc&SUB_HYPER ? SMB_HYPERALLOC :0;
- if((k=smb_create(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_CREATE,smb.file,k);
- continue; } }
- if((k=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,k);
- continue; }
- if((k=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,k);
- continue; }
- smb_unlocksmbhdr(&smb);
- lastsub=j; }
-
- if(!qwktomsg(qwk,block,hubnum+1,j,0))
- continue;
-
- if(sub[j]->misc&SUB_FIDO && sub[j]->echomail_sem[0]) /* update semaphore */
- if((file=nopen(sub[j]->echomail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
- bprintf(text[Posted],grp[sub[j]->grp]->sname,sub[j]->lname); }
-
-update_qwkroute(NULL); /* Write ROUTE.DAT */
-
-fclose(qwk);
-if(lastsub!=INVALID_SUB)
- smb_close(&smb);
-
-delfiles(temp_dir,"*.NDX");
-sprintf(str,"%sMESSAGES.DAT",temp_dir);
-remove(str);
-sprintf(str,"%sDOOR.ID",temp_dir);
-remove(str);
-sprintf(str,"%sCONTROL.DAT",temp_dir);
-remove(str);
-sprintf(str,"%sNETFLAGS.DAT",temp_dir);
-remove(str);
-
-sprintf(str,"%s*.*",temp_dir);
-i=findfirst(str,&ff,0);
-if(!i) {
- sprintf(str,"%sQNET\\%s.IN",data_dir,qhub[hubnum]->id);
- mkdir(str); }
-while(!i) {
- sprintf(str,"%s%s",temp_dir,ff.ff_name);
- sprintf(fname,"%sQNET\\%s.IN\\%s",data_dir,qhub[hubnum]->id,ff.ff_name);
- mv(str,fname,1);
- sprintf(str,text[ReceivedFileViaQWK],ff.ff_name,qhub[hubnum]->id);
- putsmsg(1,str);
- i=findnext(&ff); }
-
-bputs(text[QWKUnpacked]);
-CRLF;
-remove(packet);
-
-}
diff --git a/src/sbbs2/un_rep.c b/src/sbbs2/un_rep.c
deleted file mode 100644
index c26bc8ca3421163f86b4e831ebfa99f13471e041..0000000000000000000000000000000000000000
--- a/src/sbbs2/un_rep.c
+++ /dev/null
@@ -1,382 +0,0 @@
-#line 1 "UN_REP.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "qwk.h"
-
-/****************************************************************************/
-/* Unpacks .REP packet, 'repname' is the path and filename of the packet */
-/****************************************************************************/
-void unpack_rep()
-{
- uchar ch,str[256],fname[128],block[128]
- ,*AttemptedToUploadREPpacket="Attempted to upload REP packet";
- int file;
- uint h,i,j,k,msgs,lastsub=INVALID_SUB;
- ulong n;
- long l,size,misc,crc;
- node_t node;
- time_t t;
- file_t f;
- struct ffblk ff;
- FILE *rep;
-
-sprintf(str,"%s%s.REP",temp_dir,sys_id);
-if(!fexist(str)) {
- bputs(text[QWKReplyNotReceived]);
- logline("U!",AttemptedToUploadREPpacket);
- logline(nulstr,"REP file not received");
- return; }
-for(k=0;k<total_fextrs;k++)
- if(!stricmp(fextr[k]->ext,useron.tmpext) && chk_ar(fextr[k]->ar,useron))
- break;
-if(k>=total_fextrs)
- k=0;
-i=external(cmdstr(fextr[k]->cmd,str,"*.*",NULL),EX_OUTL|EX_OUTR);
-if(i) {
- bputs(text[QWKExtractionFailed]);
- logline("U!",AttemptedToUploadREPpacket);
- logline(nulstr,"Extraction failed");
- return; }
-sprintf(str,"%s%s.MSG",temp_dir,sys_id);
-if(!fexist(str)) {
- bputs(text[QWKReplyNotReceived]);
- logline("U!",AttemptedToUploadREPpacket);
- logline(nulstr,"MSG file not received");
- return; }
-if((rep=fnopen(&file,str,O_RDONLY))==NULL) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return; }
-size=filelength(file);
-fread(block,128,1,rep);
-if(strncmpi(block,sys_id,strlen(sys_id))) {
- fclose(rep);
- bputs(text[QWKReplyNotReceived]);
- logline("U!",AttemptedToUploadREPpacket);
- logline(nulstr,"Incorrect BBSID");
- return; }
-logline("U+","Uploaded REP packet");
-/********************/
-/* Process messages */
-/********************/
-bputs(text[QWKUnpacking]);
-
-for(l=128;l<size;l+=i*128) {
- lncntr=0; /* defeat pause */
- fseek(rep,l,SEEK_SET);
- fread(block,128,1,rep);
- sprintf(tmp,"%.6s",block+116);
- i=atoi(tmp); /* i = number of 128 byte records */
- if(i<2) {
- sprintf(tmp,"%s blocks",str);
- errormsg(WHERE,ERR_CHK,tmp,i);
- i=1;
- continue; }
- if(atoi(block+1)==0) { /**********/
- if(useron.rest&FLAG('E')) { /* E-mail */
- bputs(text[R_Email]); /**********/
- continue; }
-
- sprintf(str,"%25.25s",block+21);
- truncsp(str);
- if(!stricmp(str,"NETMAIL")) { /* QWK to FidoNet NetMail */
- qwktonetmail(rep,block,NULL,0);
- continue; }
- if(strchr(str,'@')) {
- qwktonetmail(rep,block,str,0);
- continue; }
- if(!stricmp(str,"SBBS")) { /* to SBBS, config stuff */
- qwkcfgline(block+71,INVALID_SUB);
- continue; }
-
- if(useron.etoday>=level_emailperday[useron.level]
- && !(useron.rest&FLAG('Q'))) {
- bputs(text[TooManyEmailsToday]);
- continue; }
- j=atoi(str);
- if(j && j>lastuser())
- j=0;
- if(!j &&
- (!stricmp(str,"SYSOP")
- || !stricmp(str,sys_id)
- || !stricmp(str,sys_op)))
- j=1;
- if(!j)
- j=matchuser(str);
- if(!j) {
- bputs(text[UnknownUser]);
- continue; }
- if(j==1 && useron.rest&FLAG('S')) {
- bprintf(text[R_Feedback],sys_op);
- continue; }
-
- getuserrec(j,U_MISC,8,str);
- misc=ahtoul(str);
- if(misc&NETMAIL && sys_misc&SM_FWDTONET) {
- getuserrec(j,U_NETMAIL,LEN_NETMAIL,str);
- qwktonetmail(rep,block,str,0);
- continue; }
-
- sprintf(smb.file,"%sMAIL",data_dir);
- smb.retry_time=smb_retry_time;
-
- if(lastsub!=INVALID_SUB) {
- smb_close(&smb);
- lastsub=INVALID_SUB; }
-
- if((k=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,k);
- continue; }
-
- if(!filelength(fileno(smb.shd_fp))) {
- smb.status.max_crcs=mail_maxcrcs;
- smb.status.max_msgs=MAX_SYSMAIL;
- smb.status.max_age=mail_maxage;
- smb.status.attr=SMB_EMAIL;
- if((k=smb_create(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_CREATE,smb.file,k);
- continue; } }
-
- if((k=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,k);
- continue; }
-
- if((k=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,k);
- continue; }
-
- smb_unlocksmbhdr(&smb);
-
- if(!qwktomsg(rep,block,0,INVALID_SUB,j)) {
- smb_close(&smb);
- continue; }
- smb_close(&smb);
-
- if(j==1) {
- useron.fbacks++;
- logon_fbacks++;
- putuserrec(useron.number,U_FBACKS,5
- ,itoa(useron.fbacks,tmp,10)); }
- else {
- useron.emails++;
- logon_emails++;
- putuserrec(useron.number,U_EMAILS,5
- ,itoa(useron.emails,tmp,10)); }
- useron.etoday++;
- putuserrec(useron.number,U_ETODAY,5
- ,itoa(useron.etoday,tmp,10));
- bprintf(text[Emailed],username(j,tmp),j);
- sprintf(str,"E-mailed %s #%d",username(j,tmp),j);
- logline("E+",str);
- if(useron.rest&FLAG('Q')) {
- sprintf(tmp,"%-25.25s",block+46);
- truncsp(tmp); }
- else
- strcpy(tmp,useron.alias);
- for(k=1;k<=sys_nodes;k++) { /* Tell user, if online */
- getnodedat(k,&node,0);
- if(node.useron==j && !(node.misc&NODE_POFF)
- && (node.status==NODE_INUSE
- || node.status==NODE_QUIET)) {
- sprintf(str,text[EmailNodeMsg]
- ,node_num,tmp);
- putnmsg(k,str);
- break; } }
- if(k>sys_nodes) {
- sprintf(str,text[UserSentYouMail],tmp);
- putsmsg(j,str); } } /* end of email */
-
- /**************************/
- else { /* message on a sub-board */
- /**************************/
- n=atol((char *)block+1); /* conference number */
- for(j=0;j<usrgrps;j++) {
- for(k=0;k<usrsubs[j];k++)
- if(sub[usrsub[j][k]]->qwkconf==n)
- break;
- if(k<usrsubs[j])
- break; }
-
- if(j>=usrgrps) {
- if(n<1000) { /* version 1 method, start at 101 */
- j=n/100;
- k=n-(j*100); }
- else { /* version 2 method, start at 1001 */
- j=n/1000;
- k=n-(j*1000); }
- j--; /* j is group */
- k--; /* k is sub */
- if(j>=usrgrps || k>=usrsubs[j]) {
- bprintf(text[QWKInvalidConferenceN],n);
- sprintf(str,"Invalid conference number %d",n);
- logline("P!",str);
- continue; } }
-
- n=usrsub[j][k];
-
- /* if posting, add to new-scan config for QWKnet nodes automatically */
- if(useron.rest&FLAG('Q'))
- sub[n]->misc|=SUB_NSCAN;
-
- sprintf(str,"%-25.25s","SBBS");
- if(!strnicmp((char *)block+21,str,25)) { /* to SBBS, config stuff */
- qwkcfgline((char *)block+71,n);
- continue; }
-
- if(!SYSOP && sub[n]->misc&SUB_QNET) { /* QWK Netted */
- sprintf(str,"%-25.25s","DROP"); /* Drop from new-scan? */
- if(!strnicmp((char *)block+71,str,25)) /* don't allow post */
- continue;
- sprintf(str,"%-25.25s","ADD"); /* Add to new-scan? */
- if(!strnicmp((char *)block+71,str,25)) /* don't allow post */
- continue; }
-
- if(useron.rest&FLAG('Q') && !(sub[n]->misc&SUB_QNET)) {
- bputs(text[CantPostOnSub]);
- logline("P!","Attempted to post on non-QWKnet sub");
- continue; }
-
- if(useron.rest&FLAG('P')) {
- bputs(text[R_Post]);
- logline("P!","Post attempted");
- continue; }
-
- if(useron.ptoday>=level_postsperday[useron.level]
- && !(useron.rest&FLAG('Q'))) {
- bputs(text[TooManyPostsToday]);
- continue; }
-
- if(useron.rest&FLAG('N')
- && sub[n]->misc&(SUB_FIDO|SUB_PNET|SUB_QNET|SUB_INET)) {
- bputs(text[CantPostOnSub]);
- logline("P!","Networked post attempted");
- continue; }
-
- if(!chk_ar(sub[n]->post_ar,useron)) {
- bputs(text[CantPostOnSub]);
- logline("P!","Post attempted");
- continue; }
-
- if((block[0]=='*' || block[0]=='+')
- && !(sub[n]->misc&SUB_PRIV)) {
- bputs(text[PrivatePostsNotAllowed]);
- logline("P!","Private post attempt");
- continue; }
-
- if(block[0]=='*' || block[0]=='+' /* Private post */
- || sub[n]->misc&SUB_PONLY) {
- sprintf(str,"%-25.25s",nulstr);
- sprintf(tmp,"%-25.25s","ALL");
- if(!strnicmp((char *)block+21,str,25)
- || !strnicmp((char *)block+21,tmp,25)) { /* to blank */
- bputs(text[NoToUser]); /* or all */
- continue; } }
-
- if(!SYSOP && !(useron.rest&FLAG('Q'))) {
- sprintf(str,"%-25.25s","SYSOP");
- if(!strnicmp((char *)block+21,str,25)) {
- sprintf(str,"%-25.25s",username(1,tmp));
- memcpy((char *)block+21,str,25); } } /* change from sysop */
- /* to user #1 */
-
-#if 0 /* TWIT FILTER */
- sprintf(str,"%25.25s",block+46); /* From user */
- truncsp(str);
-
- if(!stricmp(str,"Lee Matherne")
- || !stricmp(str,"Big Joe")
- ) {
- bprintf(text[Posted],grp[sub[n]->grp]->sname
- ,sub[n]->lname);
- continue; }
-#endif
-
- if(n!=lastsub) {
- if(lastsub!=INVALID_SUB)
- smb_close(&smb);
- lastsub=INVALID_SUB;
- sprintf(smb.file,"%s%s",sub[n]->data_dir,sub[n]->code);
- smb.retry_time=smb_retry_time;
- if((j=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,j);
- continue; }
-
- if(!filelength(fileno(smb.shd_fp))) {
- smb.status.max_crcs=sub[n]->maxcrcs;
- smb.status.max_msgs=sub[n]->maxmsgs;
- smb.status.max_age=sub[n]->maxage;
- smb.status.attr=sub[n]->misc&SUB_HYPER ? SMB_HYPERALLOC:0;
- if((j=smb_create(&smb))!=0) {
- smb_close(&smb);
- lastsub=INVALID_SUB;
- errormsg(WHERE,ERR_CREATE,smb.file,j);
- continue; } }
-
- if((j=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- lastsub=INVALID_SUB;
- errormsg(WHERE,ERR_LOCK,smb.file,j);
- continue; }
- if((j=smb_getstatus(&smb))!=0) {
- smb_close(&smb);
- lastsub=INVALID_SUB;
- errormsg(WHERE,ERR_READ,smb.file,j);
- continue; }
- smb_unlocksmbhdr(&smb);
- lastsub=n; }
-
- if(!qwktomsg(rep,block,0,n,0))
- continue;
-
- useron.ptoday++;
- useron.posts++;
-// if(!(useron.rest&FLAG('Q')))
- logon_posts++;
- putuserrec(useron.number,U_POSTS,5,itoa(useron.posts,str,10));
- putuserrec(useron.number,U_PTODAY,5,itoa(useron.ptoday,str,10));
- bprintf(text[Posted],grp[sub[n]->grp]->sname
- ,sub[n]->lname);
- sprintf(str,"Posted on %s %s",grp[sub[n]->grp]->sname
- ,sub[n]->lname);
- if(sub[n]->misc&SUB_FIDO && sub[n]->echomail_sem[0]) /* semaphore */
- if((file=nopen(sub[n]->echomail_sem,O_WRONLY|O_CREAT|O_TRUNC))!=-1)
- close(file);
- logline("P+",str); } } /* end of public message */
-
-update_qwkroute(NULL); /* Write ROUTE.DAT */
-
-if(lastsub!=INVALID_SUB)
- smb_close(&smb);
-fclose(rep);
-
-if(useron.rest&FLAG('Q')) { /* QWK Net Node */
- sprintf(str,"%s%s.MSG",temp_dir,sys_id);
- remove(str);
- sprintf(str,"%s%s.REP",temp_dir,sys_id);
- remove(str);
-
- sprintf(str,"%s*.*",temp_dir);
- i=findfirst(str,&ff,0);
- if(!i) {
- sprintf(str,"%sQNET\\%s.IN",data_dir,useron.alias);
- mkdir(str); }
- while(!i) { /* Extra files */
- sprintf(str,"%s%s",temp_dir,ff.ff_name);
- sprintf(fname,"%sQNET\\%s.IN\\%s",data_dir,useron.alias,ff.ff_name);
- mv(str,fname,1);
- sprintf(str,text[ReceivedFileViaQWK],ff.ff_name,useron.alias);
- putsmsg(1,str);
- i=findnext(&ff); } }
-
-bputs(text[QWKUnpacked]);
-CRLF;
-/**********************************************/
-/* Hang-up now if that's what the user wanted */
-/**********************************************/
-autohangup();
-
-}
diff --git a/src/sbbs2/useredit.c b/src/sbbs2/useredit.c
deleted file mode 100644
index 0b3c4fbd9f7134658a43237b9ae04cfb39fe48d5..0000000000000000000000000000000000000000
--- a/src/sbbs2/useredit.c
+++ /dev/null
@@ -1,966 +0,0 @@
-#line 1 "USEREDIT.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*******************************************************************/
-/* The function useredit(), and functions that are closely related */
-/*******************************************************************/
-
-#include "sbbs.h"
-
-#define SEARCH_TXT 0
-#define SEARCH_ARS 1
-
-int searchup(char *search,int usernum);
-int searchdn(char *search,int usernum);
-
-/****************************************************************************/
-/* Edits user data. Can only edit users with a Main Security Level less */
-/* than or equal to the current user's Main Security Level */
-/* Called from functions waitforcall, main_sec, xfer_sec and inkey */
-/****************************************************************************/
-void useredit(int usernumber, int local)
-{
- uchar str[256],tmp2[256],tmp3[256],c,stype=SEARCH_TXT;
- uchar search[256]={""},artxt[128]={""},*ar=NULL;
- int i,j,k;
- long l;
- user_t user;
-
-if(online==ON_REMOTE && console&(CON_R_ECHO|CON_R_INPUT) && !chksyspass(local))
- return;
-if(online==ON_LOCAL) {
- if(!(sys_misc&SM_L_SYSOP))
- return;
- if(node_misc&NM_SYSPW && !chksyspass(local))
- return; }
-if(usernumber)
- user.number=usernumber;
-else
- user.number=useron.number;
-action=NODE_SYSP;
-if(sys_status&SS_INUEDIT)
- return;
-sys_status|=SS_INUEDIT;
-while(online) {
- CLS;
- attr(LIGHTGRAY);
- getuserdat(&user);
- if(!user.number) {
- user.number=1;
- getuserdat(&user);
- if(!user.number) {
- bputs(text[NoUserData]);
- getkey(0);
- sys_status&=~SS_INUEDIT;
- return; } }
- unixtodstr(time(NULL),str);
- unixtodstr(user.laston,tmp);
- if(strcmp(str,tmp) && user.ltoday) {
- user.ltoday=user.ttoday=user.ptoday=user.etoday=user.textra=0;
- user.freecdt=level_freecdtperday[user.level];
- putuserdat(user); } /* Leave alone */
- if(user.misc&DELETED)
- bputs(text[Deleted]);
- else if(user.misc&INACTIVE)
- bputs(text[Inactive]);
- bprintf(text[UeditAliasPassword]
- ,user.alias, (user.level>useron.level && console&CON_R_ECHO)
- || !(sys_misc&SM_ECHO_PW) ? "XXXXXXXX" : user.pass
- , unixtodstr(user.pwmod,tmp));
- bprintf(text[UeditRealNamePhone]
- ,user.level>useron.level && console&CON_R_ECHO
- ? "XXXXXXXX" : user.name
- ,user.level>useron.level && console&CON_R_ECHO
- ? "XXX-XXX-XXXX" : user.phone);
- bprintf(text[UeditAddressBirthday]
- ,user.address,getage(user.birth),user.sex,user.birth);
- bprintf(text[UeditLocationZipcode],user.location,user.zipcode);
- bprintf(text[UeditNoteHandle],user.note,user.handle);
- bprintf(text[UeditComputerModem],user.comp,user.modem);
- sprintf(str,"%sUSER\\%4.4u.MSG",data_dir,user.number);
- i=fexist(str);
- if(user.comment[0] || i)
- bprintf(text[UeditCommentLine],i ? '+' : SP
- ,user.comment);
- else
- CRLF;
- unixtodos(user.laston,&date,&curtime);
- bprintf(text[UserDates]
- ,unixtodstr(user.firston,str),unixtodstr(user.expire,tmp)
- ,unixtodstr(user.laston,tmp2),curtime.ti_hour,curtime.ti_min);
- bprintf(text[UserTimes]
- ,user.timeon,user.ttoday,level_timeperday[user.level]
- ,user.tlast,level_timepercall[user.level],user.textra);
- if(user.posts)
- i=user.logons/user.posts;
- else
- i=0;
- bprintf(text[UserLogons]
- ,user.logons,user.ltoday,level_callsperday[user.level],user.posts
- ,i ? 100/i : user.posts>user.logons ? 100 : 0
- ,user.ptoday);
- bprintf(text[UserEmails]
- ,user.emails,user.fbacks,getmail(user.number,0),user.etoday);
- if(user.misc&NETMAIL)
- bprintf(text[UserNetMail],user.netmail);
- else
- CRLF;
- bprintf(text[UserUploads],ultoac(user.ulb,tmp),user.uls);
- if(user.leech)
- sprintf(str,text[UserLeech],user.leech);
- else
- str[0]=0;
- bprintf(text[UserDownloads],ultoac(user.dlb,tmp),user.dls,str);
- bprintf(text[UserCredits],ultoac(user.cdt,tmp)
- ,ultoac(user.freecdt,tmp2),ultoac(level_freecdtperday[user.level],str));
- bprintf(text[UserMinutes],ultoac(user.min,tmp));
- bprintf(text[UeditSecLevel],user.level);
- bprintf(text[UeditFlags],ltoaf(user.flags1,tmp),ltoaf(user.flags3,tmp2)
- ,ltoaf(user.flags2,tmp3),ltoaf(user.flags4,str));
- bprintf(text[UeditExempts],ltoaf(user.exempt,tmp),ltoaf(user.rest,tmp2));
- l=lastuser();
- ASYNC;
- if(lncntr>=rows-2)
- lncntr=0;
- bprintf(text[UeditPrompt],user.number,l);
- if(user.level>useron.level && console&CON_R_INPUT)
- strcpy(str,"QG[]?/{},");
- else
- strcpy(str,"ABCDEFGHIJKLMNOPQRSTUVWXYZ+[]?/{}~*$#");
- l=getkeys(str,l);
- if(l&0x80000000L) {
- user.number=l&~0x80000000L;
- continue; }
- switch(l) {
- case 'A':
- bputs(text[EnterYourAlias]);
- getstr(user.alias,LEN_ALIAS,K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_ALIAS,LEN_ALIAS,user.alias);
- if(!(user.misc&DELETED))
- putusername(user.number,user.alias);
- bputs(text[EnterYourHandle]);
- getstr(user.handle,LEN_HANDLE,K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_HANDLE,LEN_HANDLE,user.handle);
- break;
- case 'B':
- bputs(text[EnterYourBirthday]);
- gettmplt(user.birth,"nn/nn/nn",K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_BIRTH,LEN_BIRTH,user.birth);
- break;
- case 'C':
- bputs(text[EnterYourComputer]);
- getstr(user.comp,LEN_COMP,K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_COMP,LEN_COMP,user.comp);
- break;
- case 'D':
- if(user.misc&DELETED) {
- if(!noyes(text[UeditRestoreQ])) {
- putuserrec(user.number,U_MISC,8
- ,ultoa(user.misc&~DELETED,str,16));
- putusername(user.number,user.alias); }
- break; }
- if(user.misc&INACTIVE) {
- if(!noyes(text[UeditActivateQ]))
- putuserrec(user.number,U_MISC,8
- ,ultoa(user.misc&~INACTIVE,str,16));
- break; }
- if(!noyes(text[UeditDeleteQ])) {
- getsmsg(user.number);
- if(getmail(user.number,0)) {
- if(yesno(text[UeditReadUserMailWQ]))
- readmail(user.number,MAIL_YOUR); }
- if(getmail(user.number,1)) {
- if(yesno(text[UeditReadUserMailSQ]))
- readmail(user.number,MAIL_SENT); }
- putuserrec(user.number,U_MISC,8
- ,ultoa(user.misc|DELETED,str,16));
- putusername(user.number,nulstr);
- break; }
- if(!noyes(text[UeditDeactivateUserQ])) {
- if(getmail(user.number,0)) {
- if(yesno(text[UeditReadUserMailWQ]))
- readmail(user.number,MAIL_YOUR); }
- if(getmail(user.number,1)) {
- if(yesno(text[UeditReadUserMailSQ]))
- readmail(user.number,MAIL_SENT); }
- putuserrec(user.number,U_MISC,8
- ,ultoa(user.misc|INACTIVE,str,16));
- break; }
- break;
- case 'E':
- if(!yesno(text[ChangeExemptionQ]))
- break;
- while(online) {
- bprintf(text[FlagEditing],ltoaf(user.exempt,tmp));
- c=getkeys("ABCDEFGHIJKLMNOPQRSTUVWXYZ?\r",0);
- if(sys_status&SS_ABORT)
- break;
- if(c==CR) break;
- if(c=='?') {
- menu("EXEMPT");
- continue; }
- if(!(useron.exempt&FLAG(c)) && console&CON_R_INPUT)
- continue;
- user.exempt^=FLAG(c);
- putuserrec(user.number,U_EXEMPT,8,ultoa(user.exempt,tmp,16)); }
- break;
- case 'F':
- i=1;
- while(online) {
- bprintf("\r\nFlag Set #%d\r\n",i);
- switch(i) {
- case 1:
- bprintf(text[FlagEditing],ltoaf(user.flags1,tmp));
- break;
- case 2:
- bprintf(text[FlagEditing],ltoaf(user.flags2,tmp));
- break;
- case 3:
- bprintf(text[FlagEditing],ltoaf(user.flags3,tmp));
- break;
- case 4:
- bprintf(text[FlagEditing],ltoaf(user.flags4,tmp));
- break; }
- c=getkeys("ABCDEFGHIJKLMNOPQRSTUVWXYZ?1234\r",0);
- if(sys_status&SS_ABORT)
- break;
- if(c==CR) break;
- if(c=='?') {
- sprintf(str,"FLAGS%d",i);
- menu(str);
- continue; }
- if(isdigit(c)) {
- i=c&0xf;
- continue; }
- if(console & CON_R_INPUT)
- switch(i) {
- case 1:
- if(!(useron.flags1&FLAG(c)))
- continue;
- break;
- case 2:
- if(!(useron.flags2&FLAG(c)))
- continue;
- break;
- case 3:
- if(!(useron.flags3&FLAG(c)))
- continue;
- break;
- case 4:
- if(!(useron.flags4&FLAG(c)))
- continue;
- break; }
- switch(i) {
- case 1:
- user.flags1^=FLAG(c);
- putuserrec(user.number,U_FLAGS1,8
- ,ultoa(user.flags1,tmp,16));
- break;
- case 2:
- user.flags2^=FLAG(c);
- putuserrec(user.number,U_FLAGS2,8
- ,ultoa(user.flags2,tmp,16));
- break;
- case 3:
- user.flags3^=FLAG(c);
- putuserrec(user.number,U_FLAGS3,8
- ,ultoa(user.flags3,tmp,16));
- break;
- case 4:
- user.flags4^=FLAG(c);
- putuserrec(user.number,U_FLAGS4,8
- ,ultoa(user.flags4,tmp,16));
- break; } }
- break;
- case 'G':
- bputs(text[GoToUser]);
- if(getstr(str,LEN_ALIAS,K_UPPER|K_LINE)) {
- if(isdigit(str[0])) {
- i=atoi(str);
- if(i>lastuser())
- break;
- if(i) user.number=i; }
- else {
- i=finduser(str);
- if(i) user.number=i; } }
- break;
- case 'H': /* edit user's information file */
- attr(LIGHTGRAY);
- sprintf(str,"%sUSER\\%4.4u.MSG",data_dir,user.number);
- editfile(str);
- break;
- case 'I':
- maindflts(user);
- break;
- case 'J': /* Edit Minutes */
- bputs(text[UeditMinutes]);
- ultoa(user.min,str,10);
- if(getstr(str,10,K_NUMBER|K_LINE))
- putuserrec(user.number,U_MIN,10,str);
- break;
- case 'K': /* date changes */
- bputs(text[UeditLastOn]);
- unixtodstr(user.laston,str);
- gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
- if(sys_status&SS_ABORT)
- break;
- user.laston=dstrtounix(str);
- putuserrec(user.number,U_LASTON,8,ultoa(user.laston,tmp,16));
- bputs(text[UeditFirstOn]);
- unixtodstr(user.firston,str);
- gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
- if(sys_status&SS_ABORT)
- break;
- user.firston=dstrtounix(str);
- putuserrec(user.number,U_FIRSTON,8,ultoa(user.firston,tmp,16));
- bputs(text[UeditExpire]);
- unixtodstr(user.expire,str);
- gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
- if(sys_status&SS_ABORT)
- break;
- user.expire=dstrtounix(str);
- putuserrec(user.number,U_EXPIRE,8,ultoa(user.expire,tmp,16));
- bputs(text[UeditPwModDate]);
- unixtodstr(user.pwmod,str);
- gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
- if(sys_status&SS_ABORT)
- break;
- user.pwmod=dstrtounix(str);
- putuserrec(user.number,U_PWMOD,8,ultoa(user.pwmod,tmp,16));
- break;
- case 'L':
- bputs(text[EnterYourAddress]);
- getstr(user.address,LEN_ADDRESS,K_LINE|K_EDIT|K_AUTODEL);
- if(sys_status&SS_ABORT)
- break;
- putuserrec(user.number,U_ADDRESS,LEN_ADDRESS,user.address);
- bputs(text[EnterYourCityState]);
- getstr(user.location,LEN_LOCATION,K_LINE|K_EDIT|K_AUTODEL);
- if(sys_status&SS_ABORT)
- break;
- putuserrec(user.number,U_LOCATION,LEN_LOCATION,user.location);
- bputs(text[EnterYourZipCode]);
- getstr(user.zipcode,LEN_ZIPCODE,K_LINE|K_EDIT|K_AUTODEL|K_UPPER);
- if(sys_status&SS_ABORT)
- break;
- putuserrec(user.number,U_ZIPCODE,LEN_ZIPCODE,user.zipcode);
- break;
- case 'M':
- bputs(text[UeditML]);
- itoa(user.level,str,10);
- if(getstr(str,2,K_NUMBER|K_LINE))
- if(!(atoi(str)>useron.level && console&CON_R_INPUT))
- putuserrec(user.number,U_LEVEL,2,str);
- break;
- case 'N':
- bputs(text[UeditNote]);
- getstr(user.note,LEN_NOTE,K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_NOTE,LEN_NOTE,user.note);
- break;
- case 'O':
- bputs(text[UeditComment]);
- getstr(user.comment,60,K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_COMMENT,60,user.comment);
- break;
- case 'P':
- bputs(text[EnterYourPhoneNumber]);
- getstr(user.phone,LEN_PHONE,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_PHONE,LEN_PHONE,user.phone);
- break;
- case 'Q':
- CLS;
- sys_status&=~SS_INUEDIT;
- if(ar)
- FREE(ar);
- return;
- case 'R':
- bputs(text[EnterYourRealName]);
- getstr(user.name,LEN_NAME,K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_NAME,LEN_NAME,user.name);
- break;
- case 'S':
- bputs(text[EnterYourSex]);
- if(getstr(str,1,K_UPPER|K_LINE))
- putuserrec(user.number,U_SEX,1,str);
- break;
- case 'T': /* Text Search */
- bputs(text[SearchStringPrompt]);
- if(getstr(search,30,K_UPPER|K_LINE))
- stype=SEARCH_TXT;
- break;
- case 'U':
- bputs(text[UeditUlBytes]);
- ultoa(user.ulb,str,10);
- if(getstr(str,10,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
- putuserrec(user.number,U_ULB,10,str);
- if(sys_status&SS_ABORT)
- break;
- bputs(text[UeditUploads]);
- sprintf(str,"%u",user.uls);
- if(getstr(str,5,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
- putuserrec(user.number,U_ULS,5,str);
- if(sys_status&SS_ABORT)
- break;
- bputs(text[UeditDlBytes]);
- ultoa(user.dlb,str,10);
- if(getstr(str,10,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
- putuserrec(user.number,U_DLB,10,str);
- if(sys_status&SS_ABORT)
- break;
- bputs(text[UeditDownloads]);
- sprintf(str,"%u",user.dls);
- if(getstr(str,5,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
- putuserrec(user.number,U_DLS,5,str);
- break;
- case 'V':
- CLS;
- attr(LIGHTGRAY);
- for(i=0;i<10;i++) {
- bprintf(text[QuickValidateFmt]
- ,i,val_level[i],ltoaf(val_flags1[i],str)
- ,ltoaf(val_exempt[i],tmp)
- ,ltoaf(val_rest[i],tmp3)); }
- ASYNC;
- bputs(text[QuickValidatePrompt]);
- c=getkey(0);
- if(!isdigit(c))
- break;
- i=c&0xf;
- user.level=val_level[i];
- user.flags1=val_flags1[i];
- user.flags2=val_flags2[i];
- user.flags3=val_flags3[i];
- user.flags4=val_flags4[i];
- user.exempt=val_exempt[i];
- user.rest=val_rest[i];
- user.cdt+=val_cdt[i];
- now=time(NULL);
- if(val_expire[i]) {
- if(user.expire<now)
- user.expire=now+((long)val_expire[i]*24L*60L*60L);
- else
- user.expire+=((long)val_expire[i]*24L*60L*60L); }
- putuserdat(user);
- break;
- case 'W':
- bputs(text[UeditPassword]);
- getstr(user.pass,LEN_PASS,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
- putuserrec(user.number,U_PASS,LEN_PASS,user.pass);
- break;
- case 'X':
- attr(LIGHTGRAY);
- sprintf(str,"%sUSER\\%4.4u.MSG",data_dir,user.number);
- printfile(str,0);
- pause();
- break;
- case 'Y':
- if(!noyes(text[UeditCopyUserQ])) {
- bputs(text[UeditCopyUserToSlot]);
- i=getnum(lastuser());
- if(i>0) {
- user.number=i;
- putusername(user.number,user.alias);
- putuserdat(user); } }
- break;
- case 'Z':
- if(!yesno(text[ChangeRestrictsQ]))
- break;
- while(online) {
- bprintf(text[FlagEditing],ltoaf(user.rest,tmp));
- c=getkeys("ABCDEFGHIJKLMNOPQRSTUVWXYZ?\r",0);
- if(sys_status&SS_ABORT)
- break;
- if(c==CR) break;
- if(c=='?') {
- menu("RESTRICT");
- continue; }
- user.rest^=FLAG(c);
- putuserrec(user.number,U_REST,8,ultoa(user.rest,tmp,16)); }
- break;
- case '?':
- CLS;
- menu("UEDIT"); /* Sysop Uedit Edit Menu */
- pause();
- break;
- case '~':
- bputs(text[UeditLeech]);
- if(getstr(str,2,K_NUMBER|K_LINE))
- putuserrec(user.number,U_LEECH,2,itoa(atoi(str),tmp,16));
- break;
- case '+':
- bputs(text[ModifyCredits]);
- getstr(str,10,K_UPPER|K_LINE);
- l=atol(str);
- if(strstr(str,"M"))
- l*=0x100000L;
- else if(strstr(str,"K"))
- l*=1024;
- else if(strstr(str,"$"))
- l*=cdt_per_dollar;
- if(l<0L && l*-1 > user.cdt)
- user.cdt=0L;
- else
- user.cdt+=l;
- putuserrec(user.number,U_CDT,10,ultoa(user.cdt,tmp,10));
- break;
- case '*':
- bputs(text[ModifyMinutes]);
- getstr(str,10,K_UPPER|K_LINE);
- l=atol(str);
- if(strstr(str,"H"))
- l*=60L;
- if(l<0L && l*-1 > user.min)
- user.min=0L;
- else
- user.min+=l;
- putuserrec(user.number,U_MIN,10,ultoa(user.min,tmp,10));
- break;
- case '#': /* read new user questionaire */
- sprintf(str,"%sUSER\\%4.4u.DAT",data_dir,user.number);
- if(!new_sof[0] || !fexist(str))
- break;
- read_sif_dat(new_sof,str);
- if(!noyes(text[DeleteQuestionaireQ]))
- remove(str);
- break;
- case '$':
- bputs(text[UeditCredits]);
- ultoa(user.cdt,str,10);
- if(getstr(str,10,K_NUMBER|K_LINE))
- putuserrec(user.number,U_CDT,10,str);
- break;
- case '/':
- bputs(text[SearchStringPrompt]);
- if(getstr(artxt,40,K_UPPER|K_LINE))
- stype=SEARCH_ARS;
- if(ar && ar[0])
- FREE(ar);
- ar=arstr(0,artxt);
- break;
- case '{':
- if(stype==SEARCH_TXT)
- user.number=searchdn(search,user.number);
- else {
- if(!ar)
- break;
- k=user.number;
- for(i=k-1;i;i--) {
- user.number=i;
- getuserdat(&user);
- if(chk_ar(ar,user)) {
- outchar(7);
- break; } }
- if(!i)
- user.number=k; }
- break;
- case '}':
- if(stype==SEARCH_TXT)
- user.number=searchup(search,user.number);
- else {
- if(!ar)
- break;
- j=lastuser();
- k=user.number;
- for(i=k+1;i<=j;i++) {
- user.number=i;
- getuserdat(&user);
- if(chk_ar(ar,user)) {
- outchar(7);
- break; } }
- if(i>j)
- user.number=k; }
- break;
- case ']':
- if(user.number==lastuser())
- user.number=1;
- else user.number++;
- break;
- case '[':
- if(user.number==1)
- user.number=lastuser();
- else user.number--;
- break; } }
-sys_status&=~SS_INUEDIT;
-}
-
-/****************************************************************************/
-/* Seaches forward through the USER.DAT file for the ocurrance of 'search' */
-/* starting at the offset for usernum+1 and returning the usernumber of the */
-/* record where the string was found or the original usernumber if the */
-/* string wasn't found */
-/* Called from the function useredit */
-/****************************************************************************/
-int searchup(char *search,int usernum)
-{
- char userdat[U_LEN+1];
- int file,count;
- uint i=usernum+1;
-
-if(!search[0])
- return(usernum);
-sprintf(userdat,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(userdat,O_RDONLY|O_DENYNONE))==-1)
- return(usernum);
-lseek(file,(long)((long)usernum*U_LEN),0);
-
-while(!eof(file)) {
- count=0;
- while(count<LOOP_NODEDAB
- && lock(file,(long)((long)(i-1)*U_LEN),U_LEN)==-1) {
- if(count>10)
- mswait(55);
- count++; }
-
- if(count>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",i);
- return(usernum); }
-
- if(read(file,userdat,U_LEN)!=U_LEN) {
- unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
- close(file);
- errormsg(WHERE,ERR_READ,"USER.DAT",U_LEN);
- return(usernum); }
-
- unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
- userdat[U_LEN]=0;
- strupr(userdat);
- if(strstr(userdat,search)) {
- outchar(7);
- close(file);
- return(i); }
- i++; }
-close(file);
-return(usernum);
-}
-
-/****************************************************************************/
-/* Seaches backward through the USER.DAT file for the ocurrance of 'search' */
-/* starting at the offset for usernum-1 and returning the usernumber of the */
-/* record where the string was found or the original usernumber if the */
-/* string wasn't found */
-/* Called from the function useredit */
-/****************************************************************************/
-int searchdn(char *search,int usernum)
-{
- char userdat[U_LEN+1];
- int file,count;
- uint i=usernum-1;
-
-if(!search[0])
- return(usernum);
-sprintf(userdat,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(userdat,O_RDONLY))==-1)
- return(usernum);
-while(i) {
- lseek(file,(long)((long)(i-1)*U_LEN),0);
- count=0;
- while(count<LOOP_NODEDAB
- && lock(file,(long)((long)(i-1)*U_LEN),U_LEN)==-1) {
- if(count>10)
- mswait(55);
- count++; }
-
- if(count>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",i);
- return(usernum); }
-
- if(read(file,userdat,U_LEN)==-1) {
- unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
- close(file);
- errormsg(WHERE,ERR_READ,"USER.DAT",U_LEN);
- return(usernum); }
- unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
- userdat[U_LEN]=0;
- strupr(userdat);
- if(strstr(userdat,search)) {
- outchar(7);
- close(file);
- return(i); }
- i--; }
-close(file);
-return(usernum);
-}
-
-/****************************************************************************/
-/* This function view/edits the users main default settings. */
-/****************************************************************************/
-void maindflts(user_t user)
-{
- char str[256],ch;
- int i;
-
-action=NODE_DFLT;
-while(online) {
- CLS;
-/*
- if(user.number==useron.number && useron.rest&FLAG('G')) /* Guest */
- user=useron;
- else
-*/
- getuserdat(&user);
- if(user.rows)
- rows=user.rows;
- bprintf(text[UserDefaultsHdr],user.alias,user.number);
- sprintf(str,"%s%s%s%s%s"
- ,user.misc&AUTOTERM ? "Auto Detect ":nulstr
- ,user.misc&ANSI ? "ANSI ":"TTY "
- ,user.misc&COLOR ? "(Color) ":"(Mono) "
- ,user.misc&WIP ? "WIP" : user.misc&RIP ? "RIP "
- :nulstr
- ,user.misc&NO_EXASCII ? "ASCII Only":nulstr);
- bprintf(text[UserDefaultsTerminal],str);
- if(total_xedits)
- bprintf(text[UserDefaultsXeditor]
- ,user.xedit ? xedit[user.xedit-1]->name : "None");
- if(user.rows)
- itoa(user.rows,tmp,10);
- else
- sprintf(tmp,"Auto Detect (%d)",rows);
- bprintf(text[UserDefaultsRows],tmp);
- if(total_shells>1)
- bprintf(text[UserDefaultsCommandSet]
- ,shell[user.shell]->name);
- bprintf(text[UserDefaultsArcType]
- ,user.tmpext);
- bprintf(text[UserDefaultsMenuMode]
- ,user.misc&EXPERT ? text[On] : text[Off]);
- bprintf(text[UserDefaultsPause]
- ,user.misc&UPAUSE ? text[On] : text[Off]);
- bprintf(text[UserDefaultsHotKey]
- ,user.misc&COLDKEYS ? text[Off] : text[On]);
- bprintf(text[UserDefaultsCursor]
- ,user.misc&SPIN ? text[On] : text[Off]);
- bprintf(text[UserDefaultsCLS]
- ,user.misc&CLRSCRN ? text[On] : text[Off]);
- bprintf(text[UserDefaultsAskNScan]
- ,user.misc&ASK_NSCAN ? text[On] : text[Off]);
- bprintf(text[UserDefaultsAskSScan]
- ,user.misc&ASK_SSCAN ? text[On] : text[Off]);
- bprintf(text[UserDefaultsANFS]
- ,user.misc&ANFSCAN ? text[On] : text[Off]);
- bprintf(text[UserDefaultsRemember]
- ,user.misc&CURSUB ? text[On] : text[Off]);
- bprintf(text[UserDefaultsBatFlag]
- ,user.misc&BATCHFLAG ? text[On] : text[Off]);
- if(sys_misc&SM_FWDTONET)
- bprintf(text[UserDefaultsNetMail]
- ,user.misc&NETMAIL ? text[On] : text[Off]);
- if(useron.exempt&FLAG('Q') || user.misc&QUIET)
- bprintf(text[UserDefaultsQuiet]
- ,user.misc&QUIET ? text[On] : text[Off]);
- if(user.prot!=SP)
- sprintf(str,"%c",user.prot);
- else
- strcpy(str,"None");
- bprintf(text[UserDefaultsProtocol],str
- ,user.misc&AUTOHANG ? "(Hang-up After Xfer)":nulstr);
- if(sys_misc&SM_PWEDIT && !(user.rest&FLAG('G')))
- bputs(text[UserDefaultsPassword]);
-
- ASYNC;
- bputs(text[UserDefaultsWhich]);
- strcpy(str,"HTBALPRSYFNCQXZ\r");
- if(sys_misc&SM_PWEDIT && !(user.rest&FLAG('G')))
- strcat(str,"W");
- if(useron.exempt&FLAG('Q') || user.misc&QUIET)
- strcat(str,"D");
- if(total_xedits)
- strcat(str,"E");
- if(sys_misc&SM_FWDTONET)
- strcat(str,"M");
- if(total_shells>1)
- strcat(str,"K");
- ch=getkeys(str,0);
- switch(ch) {
- case 'T':
- if(yesno(text[AutoTerminalQ])) {
- user.misc|=AUTOTERM;
- user.misc&=~(ANSI|RIP|WIP);
- user.misc|=autoterm; }
- else
- user.misc&=~AUTOTERM;
- if(!(user.misc&AUTOTERM)) {
- if(yesno(text[AnsiTerminalQ]))
- user.misc|=ANSI;
- else
- user.misc&=~(ANSI|COLOR); }
- if(user.misc&ANSI) {
- if(yesno(text[ColorTerminalQ]))
- user.misc|=COLOR;
- else
- user.misc&=~COLOR; }
- if(!yesno(text[ExAsciiTerminalQ]))
- user.misc|=NO_EXASCII;
- else
- user.misc&=~NO_EXASCII;
- if(!(user.misc&AUTOTERM)) {
- if(!noyes(text[RipTerminalQ]))
- user.misc|=RIP;
- else
- user.misc&=~RIP; }
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'B':
- user.misc^=BATCHFLAG;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'E':
- if(noyes("Use an external editor")) {
- putuserrec(user.number,U_XEDIT,8,nulstr);
- break; }
- if(user.xedit)
- user.xedit--;
- for(i=0;i<total_xedits;i++)
- uselect(1,i,"External Editor",xedit[i]->name,xedit[i]->ar);
- if((i=uselect(0,user.xedit,0,0,0))>=0)
- putuserrec(user.number,U_XEDIT,8,xedit[i]->code);
- break;
- case 'K': /* Command shell */
- for(i=0;i<total_shells;i++)
- uselect(1,i,"Command Shell",shell[i]->name,shell[i]->ar);
- if((i=uselect(0,user.shell,0,0,0))>=0)
- putuserrec(user.number,U_SHELL,8,shell[i]->code);
- break;
- case 'A':
- for(i=0;i<total_fcomps;i++)
- uselect(1,i,"Archive Type",fcomp[i]->ext,fcomp[i]->ar);
- if((i=uselect(0,0,0,0,0))>=0)
- putuserrec(user.number,U_TMPEXT,3,fcomp[i]->ext);
- break;
- case 'L':
- bputs(text[HowManyRows]);
- if((ch=getnum(99))!=-1)
- putuserrec(user.number,U_ROWS,2,itoa(ch,tmp,10));
- break;
- case 'P':
- user.misc^=UPAUSE;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'H':
- user.misc^=COLDKEYS;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'S':
- user.misc^=SPIN;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'F':
- user.misc^=ANFSCAN;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'X':
- user.misc^=EXPERT;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'R': /* Remember current sub/dir */
- user.misc^=CURSUB;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'Y': /* Prompt for scanning message to you */
- user.misc^=ASK_SSCAN;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'N': /* Prompt for new message/files scanning */
- user.misc^=ASK_NSCAN;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'M': /* NetMail address */
- if(noyes(text[ForwardMailQ]))
- user.misc&=~NETMAIL;
- else {
- user.misc|=NETMAIL;
- bputs(text[EnterNetMailAddress]);
- if(!getstr(user.netmail,LEN_NETMAIL,K_EDIT|K_AUTODEL|K_LINE))
- break;
- putuserrec(user.number,U_NETMAIL,LEN_NETMAIL,user.netmail); }
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'C':
- user.misc^=CLRSCRN;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'D':
- user.misc^=QUIET;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- case 'W':
- if(noyes(text[NewPasswordQ]))
- break;
- bputs(text[CurrentPassword]);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- ch=getstr(str,LEN_PASS,K_UPPER);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- if(strcmp(str,user.pass)) {
- bputs(text[WrongPassword]);
- pause();
- break; }
- bputs(text[NewPassword]);
- if(!getstr(str,LEN_PASS,K_UPPER|K_LINE))
- break;
- truncsp(str);
- if(!chkpass(str,user)) {
- CRLF;
- pause();
- break; }
- bputs(text[VerifyPassword]);
- console|=CON_R_ECHOX;
- if(!(sys_misc&SM_ECHO_PW))
- console|=CON_L_ECHOX;
- getstr(tmp,LEN_PASS,K_UPPER);
- console&=~(CON_R_ECHOX|CON_L_ECHOX);
- if(strcmp(str,tmp)) {
- bputs(text[WrongPassword]);
- pause();
- break; }
- if(!online)
- break;
- putuserrec(user.number,U_PASS,LEN_PASS,str);
- now=time(NULL);
- putuserrec(user.number,U_PWMOD,8,ultoa(now,tmp,16));
- bputs(text[PasswordChanged]);
- logline(nulstr,"Changed password");
- pause();
- break;
- case 'Z':
- menu("DLPROT");
- SYNC;
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q' || sys_status&SS_ABORT) {
- ch=SP;
- putuserrec(user.number,U_PROT,1,&ch); }
- else
- putuserrec(user.number,U_PROT,1,&ch);
- if(yesno(text[HangUpAfterXferQ]))
- user.misc|=AUTOHANG;
- else
- user.misc&=~AUTOHANG;
- putuserrec(user.number,U_MISC,8,ultoa(user.misc,str,16));
- break;
- default:
- return; } }
-}
-
-void purgeuser(int usernumber)
-{
- uchar str[128];
- user_t user;
-
-user.number=usernumber;
-getuserdat(&user);
-sprintf(str,"Purged %s #%u",user.alias,usernumber);
-logentry("!*",str);
-delallmail(usernumber);
-putusername(usernumber,nulstr);
-putuserrec(usernumber,U_MISC,8,ultoa(user.misc|DELETED,str,16));
-}
diff --git a/src/sbbs2/userrec.c b/src/sbbs2/userrec.c
deleted file mode 100644
index 91fe764d726ad72b851b0b03c90e7453656e9822..0000000000000000000000000000000000000000
--- a/src/sbbs2/userrec.c
+++ /dev/null
@@ -1,194 +0,0 @@
-#line 1 "USERREC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Fills 'str' with record for usernumber starting at start for length bytes*/
-/* Called from function ??? */
-/****************************************************************************/
-void getuserrec(int usernumber,int start, char length, char *str)
-{
- char c,path[256];
- int i,file;
-
-if(!usernumber) {
- errormsg(WHERE,ERR_CHK,"user number",0);
- return; }
-sprintf(path,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(path,O_RDONLY|O_DENYNONE))==-1) {
- errormsg(WHERE,ERR_OPEN,path,O_RDONLY);
- return; }
-if(usernumber<1
- || filelength(file)<(long)((long)(usernumber-1L)*U_LEN)+(long)start) {
- close(file);
- errormsg(WHERE,ERR_CHK,"user number",usernumber);
- return; }
-lseek(file,(long)((long)(usernumber-1)*U_LEN)+start,SEEK_SET);
-
-i=0;
-while(i<LOOP_NODEDAB
- && lock(file,(long)((long)(usernumber-1)*U_LEN)+start,length)==-1) {
- if(i>10)
- mswait(55);
- i++; }
-
-if(i>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",usernumber);
- return; }
-
-if(read(file,str,length)!=length) {
- unlock(file,(long)((long)(usernumber-1)*U_LEN)+start,length);
- close(file);
- errormsg(WHERE,ERR_READ,"USER.DAT",length);
- return; }
-
-unlock(file,(long)((long)(usernumber-1)*U_LEN)+start,length);
-close(file);
-for(c=0;c<length;c++)
- if(str[c]==ETX || str[c]==CR) break;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Places into USER.DAT at the offset for usernumber+start for length bytes */
-/* Called from various locations */
-/****************************************************************************/
-void putuserrec(int usernumber,int start, char length, char *str)
-{
- char c,str2[256];
- int file,i;
- node_t node;
-
-if(usernumber<1) {
- errormsg(WHERE,ERR_CHK,"user number",usernumber);
- return; }
-sprintf(str2,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(str2,O_WRONLY|O_DENYNONE))==-1) {
- errormsg(WHERE,ERR_OPEN,str2,O_WRONLY);
- return; }
-strcpy(str2,str);
-if(strlen(str2)<length) {
- for(c=strlen(str2);c<length;c++)
- str2[c]=ETX;
- str2[c]=0; }
-lseek(file,(long)((long)((long)((long)usernumber-1)*U_LEN)+start),SEEK_SET);
-
-i=0;
-while(i<LOOP_NODEDAB
- && lock(file,(long)((long)(usernumber-1)*U_LEN)+start,length)==-1) {
- if(i>10)
- mswait(55);
- i++; }
-
-if(i>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",usernumber);
- return; }
-
-write(file,str2,length);
-unlock(file,(long)((long)(usernumber-1)*U_LEN)+start,length);
-close(file);
-for(i=1;i<=sys_nodes;i++) { /* instant user data update */
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.useron==usernumber && (node.status==NODE_INUSE
- || node.status==NODE_QUIET)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_UDAT;
- putnodedat(i,node);
- break; } }
-}
-
-/****************************************************************************/
-/* Updates user 'usernumber's record (numeric string) by adding 'adj' to it */
-/* returns the new value. */
-/****************************************************************************/
-ulong adjustuserrec(int usernumber,int start, char length, long adj)
-{
- char str[256],c,path[256];
- int i,file;
- ulong val;
- node_t node;
-
-if(usernumber<1) {
- errormsg(WHERE,ERR_CHK,"user number",usernumber);
- return(0UL); }
-sprintf(path,"%sUSER\\USER.DAT",data_dir);
-if((file=nopen(path,O_RDWR|O_DENYNONE))==-1) {
- errormsg(WHERE,ERR_OPEN,path,O_RDWR);
- return(0UL); }
-lseek(file,(long)((long)(usernumber-1)*U_LEN)+start,SEEK_SET);
-
-i=0;
-while(i<LOOP_NODEDAB
- && lock(file,(long)((long)(usernumber-1)*U_LEN)+start,length)==-1) {
- if(i>10)
- mswait(55);
- i++; }
-
-if(i>=LOOP_NODEDAB) {
- close(file);
- errormsg(WHERE,ERR_LOCK,"USER.DAT",usernumber);
- return(0); }
-
-if(read(file,str,length)!=length) {
- unlock(file,(long)((long)(usernumber-1)*U_LEN)+start,length);
- close(file);
- errormsg(WHERE,ERR_READ,path,length);
- return(0UL); }
-for(c=0;c<length;c++)
- if(str[c]==ETX || str[c]==CR) break;
-str[c]=0;
-val=atol(str);
-if(adj<0L && val<-adj) /* don't go negative */
- val=0UL;
-else val+=adj;
-lseek(file,(long)((long)(usernumber-1)*U_LEN)+start,SEEK_SET);
-putrec(str,0,length,ultoa(val,tmp,10));
-if(write(file,str,length)!=length) {
- unlock(file,(long)((long)(usernumber-1)*U_LEN)+start,length);
- close(file);
- errormsg(WHERE,ERR_WRITE,path,length);
- return(val); }
-unlock(file,(long)((long)(usernumber-1)*U_LEN)+start,length);
-close(file);
-for(i=1;i<=sys_nodes;i++) { /* instant user data update */
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if(node.useron==usernumber && (node.status==NODE_INUSE
- || node.status==NODE_QUIET)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_UDAT;
- putnodedat(i,node);
- break; } }
-return(val);
-}
-
-/****************************************************************************/
-/* Subtract credits from the current user online, accounting for the new */
-/* "free credits" field. */
-/****************************************************************************/
-void subtract_cdt(long amt)
-{
- long mod;
-
-if(!amt)
- return;
-if(useron.freecdt) {
- if(amt>useron.freecdt) { /* subtract both credits and */
- mod=amt-useron.freecdt; /* free credits */
- putuserrec(useron.number,U_FREECDT,10,"0");
- useron.freecdt=0;
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,-mod); }
- else { /* subtract just free credits */
- useron.freecdt-=amt;
- putuserrec(useron.number,U_FREECDT,10
- ,ultoa(useron.freecdt,tmp,10)); } }
-else /* no free credits */
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,-amt);
-}
diff --git a/src/sbbs2/uti/makefile b/src/sbbs2/uti/makefile
deleted file mode 100644
index fc92d412c3a7fd6717e95f22278c27f82059b8a3..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/makefile
+++ /dev/null
@@ -1,90 +0,0 @@
-###############################
-# Makefile for Synchronet UTI #
-# For use with Turbo C++ #
-# Tabstop=8 #
-###############################
-
-# Macros
-CC = bcc
-LD = tlink
-INCLUDE = \bc31\include;..;..\smb;..\rio
-LIB = \bc31\lib
-MODEL = l
-CFLAGS = -d -C -m$(MODEL) -I$(INCLUDE) -w-pro
-LFLAGS = /n /c
-OBJS = scfgvars.obj scfglib1.obj uti.obj ars.obj
-SMB = smblib.obj
-LZH = lzh.obj
-HEADERS = ..\sbbs.h ..\sbbsdefs.h ..\scfgvars.c \
- ..\smb\smblib.h ..\smb\smbdefs.h
-
-# Implicit C Compile Rule
-.c.obj:
- @echo Compiling $*.c to $*.obj ...
- $(CC) $(CFLAGS) -o$*.obj -c $*.c
-
-all: utilist.exe utihigh.exe utiexprt.exe utilstrd.exe utiimprt.exe utiver.exe
-
-utilist.exe: $(OBJS) utilist.obj
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) utilist.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-utihigh.exe: $(OBJS) $(SMB) utihigh.obj
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) $(SMB) utihigh.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-utiexprt.exe: $(OBJS) $(SMB) $(LZH) utiexprt.obj
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) $(SMB) $(LZH) utiexprt.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-utiimprt.exe: $(OBJS) $(SMB) $(LZH) utiimprt.obj
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) $(SMB) $(LZH) utiimprt.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-utilstrd.exe: $(OBJS) utilstrd.obj
- @echo Linking $< ...
- $(LD) $(LFLAGS) @&&!
-$(LIB)\c0$(MODEL) $(OBJS) utilstrd.obj
-!, $*, $*, $(LIB)\c$(MODEL).lib $(LIB)\math$(MODEL).lib $(LIB)\emu.lib
-
-utiver.exe: uti.h utiver.obj utiver.c
- bcc -w-pro utiver.c
-
-# SMBLIB Functions
-smblib.obj: ..\smb\smblib.c ..\smb\smbdefs.h ..\smb\smblib.h
- @echo Compiling ..\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c ..\smb\$*.c
-
-# SMB LZH Functions
-lzh.obj: ..\smb\lzh.c ..\smb\lzh.h
- @echo Compiling ..\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c ..\smb\$*.c
-
-# Global Variables
-scfgvars.obj: ..\scfgvars.c ..\smb\smbdefs.h
- @echo Compiling ..\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c ..\$*.c
-
-ars.obj: ..\ars.c ..\ars_defs.h
- @echo Compiling ..\$&.c to $< ...
- $(CC) $(CFLAGS) -c ..\ars.c
-
-
-# Shared Functions
-scfglib1.obj: ..\sbbs.h ..\sbbsdefs.h ..\scfglib1.c ..\scfgvars.c ..\scfglib.h
- @echo Compiling ..\$*.c to $*.obj ...
- $(CC) $(CFLAGS) -c ..\$*.c
-
-utiimprt.obj: uti.h
-utiexprt.obj: uti.h
-utilstrd.obj: uti.h
-utihigh.obj: uti.h
-utilist.obj: uti.h
diff --git a/src/sbbs2/uti/uti.c b/src/sbbs2/uti/uti.c
deleted file mode 100644
index fb290e0a3313ec0656cda46b083c3de32912d501..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/uti.c
+++ /dev/null
@@ -1,298 +0,0 @@
-#line 1 "UTI.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Shared routines for most of the UTI driver programs */
-
-#include "sbbs.h"
-#include "uti.h"
-
-#define bputs lputs
-#define bprintf lprintf
-
-int logfile;
-char scrnbuf[4000],tmp[256];
-struct text_info txtinfo;
-
-/****************************************************************************/
-/* Performs printf() through local assembly routines */
-/* Called from everywhere */
-/****************************************************************************/
-int lprintf(char *fmat, ...) {
- char sbuf[256];
- int chcount;
-
-chcount=vsprintf(sbuf,fmat,_va_ptr);
-lputs(sbuf);
-return(chcount);
-}
-
-long lputs(char far *str)
-{
- char tmp[256];
- int i,j,k;
-
-j=strlen(str);
-for(i=k=0;i<j;i++) /* remove CRs */
- if(str[i]==CR && str[i+1]==LF)
- continue;
- else
- tmp[k++]=str[i];
-tmp[k]=0;
-return(fputs(tmp,stdout));
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
-str[strcspn(str,"\t")]=0;
-c=strlen(str);
-while(c && str[c-1]<=SP) c--;
-str[c]=0;
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
-i=strlen(str);
-if(i && str[i-1]!='\\') {
- str[i]='\\'; str[i+1]=0; }
-}
-
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into an ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
-while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
-return(val);
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char logstr[256];
- int file,share,count=0;
-
-if(access==O_RDONLY) share=O_DENYWRITE;
- else share=O_DENYALL;
-while(((file=open(str,O_BINARY|share|access,S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN);
-if(count>(LOOP_NOPEN/2))
- lprintf("NOPEN COLLISION - File: %s Count: %d"
- ,str,count);
-if(file==-1 && errno==EACCES)
- lputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
-return(file);
-}
-
-/****************************************************************************/
-/* This function performs an nopen, but returns a file stream with a buffer */
-/* allocated. */
-/****************************************************************************/
-FILE *fnopen(int *file, char *str, int access)
-{
- char mode[128];
- FILE *stream;
-
-if(((*file)=nopen(str,access))==-1)
- return(NULL);
-
-if(access&O_APPEND) {
- if(access&O_RDONLY)
- strcpy(mode,"a+");
- else
- strcpy(mode,"a"); }
-else {
- if(access&O_WRONLY)
- strcpy(mode,"r+");
- else
- strcpy(mode,"r"); }
-stream=fdopen((*file),mode);
-if(stream==NULL) {
- close(*file);
- return(NULL); }
-setvbuf(stream,NULL,_IOFBF,16*1024);
-return(stream);
-}
-
-
-/****************************************************************************/
-/* Returns the length of the file in 'filespec' */
-/****************************************************************************/
-long flength(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==NULL)
- return(f.ff_fsize);
-return(-1L);
-}
-
-
-/****************************************************************************/
-/* Error handling routine. Prints to local and remote screens the error */
-/* information, function, action, object and access and then attempts to */
-/* write the error information into the file ERROR.LOG and NODE.LOG */
-/****************************************************************************/
-void errormsg(int line, char *source, char action, char *object, ulong access)
-{
- char str[512];
- char actstr[256];
-
-switch(action) {
- case ERR_OPEN:
- strcpy(actstr,"opening");
- break;
- case ERR_CLOSE:
- strcpy(actstr,"closeing");
- break;
- case ERR_FDOPEN:
- strcpy(actstr,"fdopen");
- break;
- case ERR_READ:
- strcpy(actstr,"reading");
- break;
- case ERR_WRITE:
- strcpy(actstr,"writing");
- break;
- case ERR_REMOVE:
- strcpy(actstr,"removing");
- break;
- case ERR_ALLOC:
- strcpy(actstr,"allocating memory");
- break;
- case ERR_CHK:
- strcpy(actstr,"checking");
- break;
- case ERR_LEN:
- strcpy(actstr,"checking length");
- break;
- case ERR_EXEC:
- strcpy(actstr,"executing");
- break;
- default:
- strcpy(actstr,"UNKNOWN"); }
-lprintf("\7\r\nERROR - file: %s",source);
-lprintf("\7\r\n line: %u",line);
-lprintf("\7\r\n action: %s",actstr); /* tell user about error */
-lprintf("\7\r\n object: %s",object);
-lprintf("\7\r\n access: %lu (%lxh)",access,access);
-lputs("\r\n\r\n<Hit any key>");
-getch();
-lputs("\r\n");
-}
-
-
-void allocfail(uint size)
-{
-lprintf("\7Error allocating %u bytes of memory.\r\n",size);
-exit(1);
-}
-
-void bail(int code)
-{
- char str[256];
- time_t t;
- struct time curtime;
- struct date date;
-
-if(!code) {
- puttext(1,1,80,25,scrnbuf); /* restore screen if no error */
- textattr(txtinfo.attribute);
- gotoxy(txtinfo.curx,txtinfo.cury); }
-t=time(NULL);
-unixtodos(t,&date,&curtime);
-sprintf(str,"%02u/%02u/%u %02u:%02u:%02u Exiting (%d)\r\n\r\n"
- ,date.da_mon,date.da_day,date.da_year
- ,curtime.ti_hour,curtime.ti_min,curtime.ti_sec
- ,code);
-write(logfile,str,strlen(str));
-exit(code);
-}
-
-int getsubnum(char *code)
-{
- int i;
-
-for(i=0;i<total_subs;i++) {
-// printf("%s vs %s\n",code,sub[i]->code);
- if(!stricmp(code,sub[i]->code))
- return(i); }
-return(-1);
-}
-
-void uti_init(char *name, int argc, char **argv)
-{
- char str[256],*p;
- int i;
- read_cfg_text_t txt;
- time_t t;
- struct tm *tm;
-
-setvbuf(stdout,NULL,_IONBF,0);
-putenv("TZ=UTC0");
-
-txt.openerr="\7\r\nError opening %s for read.\r\n";
-txt.reading="\r\nReading %s...";
-txt.readit="\rRead %s ";
-txt.allocerr="\7\r\nError allocating %u bytes of memory\r\n";
-txt.error="\7\r\nERROR: Offset %lu in %s\r\n\r\n";
-
-p=getenv("SBBSNODE");
-if(p==NULL) {
- printf("\7\nSBBSNODE environment variable not set.\n");
- exit(1); }
-strcpy(node_dir,p);
-
-strupr(node_dir);
-
-if(node_dir[strlen(node_dir)-1]!='\\')
- strcat(node_dir,"\\");
-
-read_node_cfg(txt);
-if(ctrl_dir[0]=='.') { /* Relative path */
- strcpy(str,ctrl_dir);
- sprintf(ctrl_dir,"%s%s",node_dir,str); }
-read_main_cfg(txt);
-if(data_dir[0]=='.') { /* Relative path */
- strcpy(str,data_dir);
- sprintf(data_dir,"%s%s",node_dir,str); }
-read_msgs_cfg(txt);
-sprintf(str,"%sUTI.LOG",data_dir);
-if((logfile=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- printf("\7\nCan't open %s\n",str);
- exit(-1); }
-t=time(NULL);
-tm=gmtime(&t);
-sprintf(str,"%02u/%02u/%02u %02u:%02u:%02u %-8s %s \""
- ,tm->tm_mon+1,tm->tm_mday,TM_YEAR(tm->tm_year)
- ,tm->tm_hour,tm->tm_min,tm->tm_sec
- ,name,VER);
-printf("\n\n");
-for(i=1;i<argc;i++) {
- if(i>1)
- strcat(str," ");
- strcat(str,argv[i]);
- printf("%s ",argv[i]); }
-strcat(str,"\"");
-write(logfile,str,strlen(str));
-write(logfile,"\r\n",2);
-printf("\n\nWorking...");
-}
diff --git a/src/sbbs2/uti/uti.h b/src/sbbs2/uti/uti.h
deleted file mode 100644
index a5e0ba278639897aa538d59b3e99fe0b3ca2acdf..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/uti.h
+++ /dev/null
@@ -1,14 +0,0 @@
-/* UTI.H */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-extern char scrnbuf[4000];
-extern struct text_info txtinfo;
-extern int logfile;
-
-#define PREPSCREEN gettext(1,1,80,25,scrnbuf); gettextinfo(&txtinfo); \
- textattr(LIGHTGRAY); clrscr()
-
-#define VER "2.30"
-
-void uti_init(char *name,int argc, char **argv);
diff --git a/src/sbbs2/uti/utiexprt.c b/src/sbbs2/uti/utiexprt.c
deleted file mode 100644
index a5a44daf2b38c22dceac8f15cad9da31b3c8caf3..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/utiexprt.c
+++ /dev/null
@@ -1,228 +0,0 @@
-/* UTIEXPRT.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "uti.h"
-#include "post.h"
-
-char *nulstr="";
-smb_t smb;
-
-ulong loadmsgs(post_t huge **post, ulong ptr)
-{
- int i;
- long l=0;
- idxrec_t idx;
-
-
-if((i=smb_locksmbhdr(&smb))!=0) { /* Be sure noone deletes or */
- errormsg(WHERE,ERR_LOCK,smb.file,i); /* adds while we're reading */
- return(0L); }
-
-fseek(smb.sid_fp,0L,SEEK_SET);
-while(!feof(smb.sid_fp)) {
- if(!fread(&idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
-
- if(idx.number<ptr || idx.attr&MSG_DELETE)
- continue;
-
- if(idx.attr&MSG_MODERATED && !(idx.attr&MSG_VALIDATED))
- break;
-
- if(((*post)=(post_t huge *)REALLOC((*post),sizeof(post_t)*(l+1)))
- ==NULL) {
- smb_unlocksmbhdr(&smb);
- errormsg(WHERE,ERR_ALLOC,smb.file,sizeof(post_t)*(l+1));
- return(l); }
- (*post)[l].offset=idx.offset;
- (*post)[l].number=idx.number;
- l++; }
-smb_unlocksmbhdr(&smb);
-return(l);
-}
-
-
-int main(int argc, char **argv)
-{
- char str[512],*buf,ch,*outbuf;
- ushort xlat;
- int i,file,tear,cr,net=0,lzh;
- uint subnum;
- long l,m,length,buflen;
- ulong msgnum,posts,exported=0;
- FILE *stream;
- post_t huge *post;
- smbmsg_t msg;
- struct date date;
- struct time curtime;
-
-PREPSCREEN;
-
-printf("Synchronet UTIEXPRT v%s\n",VER);
-
-if(argc<3)
- exit(1);
-
-if(argc>4 && !stricmp(argv[4],"/NETWORK"))
- net=1;
-
-uti_init("UTIEXPRT",argc,argv);
-
-if((file=nopen(argv[3],O_CREAT|O_TRUNC|O_WRONLY))==-1)
- bail(2);
-if((stream=fdopen(file,"wb"))==NULL)
- bail(2);
-setvbuf(stream,0,_IOFBF,4096);
-
-subnum=getsubnum(argv[1]);
-if((int)subnum==-1)
- bail(7);
-msgnum=atol(argv[2]);
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- bail(5); }
-
-post=NULL;
-posts=loadmsgs(&post,msgnum);
-
-printf("\nExporting\n\n");
-for(l=0;l<posts;l++) {
- printf("\rScanning: %lu of %lu Exported: %lu",l+1,posts,exported);
- msg.idx.offset=post[l].offset;
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- continue; }
- i=smb_getmsghdr(&smb,&msg);
- if(i || msg.hdr.number!=post[l].number) {
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg);
-
- msg.hdr.number=post[l].number;
- if((i=smb_getmsgidx(&smb,&msg))!=0) {
- errormsg(WHERE,ERR_READ,smb.file,i);
- continue; }
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- continue; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- errormsg(WHERE,ERR_READ,smb.file,i);
- continue; } }
-
- if(net /* Network */
- && (!strncmpi(msg.subj,"NE:",3) /* No Echo */
- || msg.from_net.type==NET_POSTLINK)) { /* from PostLink */
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg);
- continue; } /* From a Fido node, ignore it */
-
- if(net && !(sub[subnum]->misc&SUB_GATE) && msg.from_net.type) {
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg);
- continue; }
-
- exported++;
-
- fprintf(stream,"%s\r\n%s\r\n%s\r\n"
- ,msg.to,msg.from,msg.subj);
- unixtodos(msg.hdr.when_written.time,&date,&curtime);
- fprintf(stream,"%lu\r\n%lu\r\n%02u/%02u/%02u\r\n%02u:%02u\r\n"
- "%s\r\n%c\r\n%c\r\nTEXT:\r\n"
- ,msg.hdr.number
- ,msg.hdr.thread_orig
- ,date.da_mon,date.da_day,TM_YEAR(date.da_year-1900)
- ,curtime.ti_hour,curtime.ti_min
- ,msg.hdr.attr&MSG_PRIVATE ? "PRIVATE" : "PUBLIC"
- ,msg.hdr.attr&MSG_READ ? 'Y':'N'
- ,strncmpi(msg.subj,"NE:",3) ? 'Y':'N');
-
- for(i=0;i<msg.hdr.total_dfields;i++) {
-
- if(msg.dfield[i].type!=TEXT_BODY
- && msg.dfield[i].type!=TEXT_TAIL)
- continue; /* skip non-text data fields */
-
- if(msg.dfield[i].length<3) /* need at least 3 bytes */
- continue;
-
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset,SEEK_SET);
-
- lzh=0;
- fread(&xlat,2,1,smb.sdt_fp);
- if(xlat==XLAT_LZH) {
- lzh=1;
- fread(&xlat,2,1,smb.sdt_fp); }
- if(xlat!=XLAT_NONE) /* no translations supported */
- continue;
-
- length=msg.dfield[i].length-2;
- if(lzh)
- length-=2;
-
- if((buf=MALLOC(length))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,length);
- continue; }
-
- fread(buf,length,1,smb.sdt_fp);
-
- if(lzh) {
- buflen=*(long *)buf;
- if((outbuf=MALLOC(buflen))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"lzh",buflen);
- FREE(buf);
- continue; }
- length=lzh_decode(buf,length,outbuf);
- FREE(buf);
- buf=outbuf; }
-
- tear=0;
- for(m=0,cr=1;m<length;m++) {
- if(buf[m]==1) { /* Ctrl-A, so skip it and the next char */
- m++;
- continue; }
- if(buf[m]==0) /* Ignore line feeds */
- continue;
-
- if(m+3<length && cr && buf[m]=='-' && buf[m+1]=='-'
- && buf[m+2]=='-' && (buf[m+3]==CR || buf[m+3]==SP))
- tear=1;
-
- if(buf[m]==LF)
- cr=1;
- else
- cr=0;
-
- if(sub[subnum]->misc&SUB_ASCII) {
- if(buf[m]<SP && buf[m]!=CR) /* Ctrl ascii */
- buf[m]='.'; /* converted to '.' */
- if((uchar)buf[m]>0x7f) /* extended ASCII */
- buf[m]='*'; } /* converted to '*' */
- fputc(buf[m],stream); }
- fprintf(stream,"\r\n");
- FREE(buf); }
-
- if(!(sub[subnum]->misc&SUB_NOTAG)) {
- if(!tear) /* No previous tear line */
- fprintf(stream,"---\r\n"); /* so add one */
- if(sub[subnum]->misc&SUB_ASCII) ch='*';
- else ch='�';
- fprintf(stream," %c Synchronet UTI v%s\r\n",ch,VER); }
-
- fprintf(stream,"\xff\r\n");
- smb_unlockmsghdr(&smb,&msg);
- smb_freemsgmem(&msg); }
-
-sprintf(str,"%20s Scanned %lu, Exported %lu\r\n"
- ,"",posts,exported);
-write(logfile,str,strlen(str));
-printf("\nDone.\n");
-smb_close(&smb);
-FREE(post);
-bail(0);
-return(0);
-}
diff --git a/src/sbbs2/uti/utihigh.c b/src/sbbs2/uti/utihigh.c
deleted file mode 100644
index 49e29ebca02622547828caf4e0127c657c11ed28..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/utihigh.c
+++ /dev/null
@@ -1,86 +0,0 @@
-/* UTIHIGH.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "uti.h"
-
-smb_t smb;
-
-/****************************************************************************/
-/* Returns the total number of msgs in the sub-board and sets 'ptr' to the */
-/* number of the last message in the sub (0) if no messages. */
-/****************************************************************************/
-ulong getlastmsg(uint subnum, ulong *ptr, time_t *t)
-{
- char str[256];
- int i;
- ulong total;
- idxrec_t idx;
-
-if(ptr)
- (*ptr)=0;
-if(t)
- (*t)=0;
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- return(0); }
-
-if(!filelength(fileno(smb.sid_fp))) { /* Empty base */
- smb_close(&smb);
- return(0); }
-if((i=smb_locksmbhdr(&smb))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- return(0); }
-if((i=smb_getlastidx(&smb,&idx))!=0) {
- smb_close(&smb);
- errormsg(WHERE,ERR_READ,smb.file,i);
- return(0); }
-total=filelength(fileno(smb.sid_fp))/sizeof(idxrec_t);
-smb_unlocksmbhdr(&smb);
-smb_close(&smb);
-if(ptr)
- (*ptr)=idx.number;
-if(t)
- (*t)=idx.time;
-return(total);
-}
-
-
-int main(int argc, char **argv)
-{
- char str[256];
- int file,subnum,i;
- ulong ptr;
-
-PREPSCREEN;
-
-printf("Synchronet UTIHIGH v%s\n",VER);
-
-
-if(argc<3)
- exit(1);
-
-uti_init("UTIHIGH",argc,argv);
-
-subnum=getsubnum(argv[1]);
-if((int)subnum==-1)
- bail(7);
-getlastmsg(subnum,&ptr,0);
-
-if((file=nopen(argv[2],O_CREAT|O_TRUNC|O_WRONLY))==-1)
- bail(2);
-
-sprintf(str,"%lu",ptr);
-write(file,str,strlen(str));
-close(file);
-sprintf(str,"%20s Last message #%lu\r\n","",ptr);
-write(logfile,str,strlen(str));
-printf("\nDone.\n");
-bail(0);
-return(0);
-}
diff --git a/src/sbbs2/uti/utiimprt.c b/src/sbbs2/uti/utiimprt.c
deleted file mode 100644
index acfac0697e964cdb5202401fe9172d69a296378b..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/utiimprt.c
+++ /dev/null
@@ -1,335 +0,0 @@
-/* UTIIMPRT.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "uti.h"
-#include "crc32.h"
-
-smb_t smb;
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-#define PRIVATE 0
-#define PUBLIC 1
-
-#define DEBUG 0
-
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-
-void remove_re(char *str)
-{
-while(!strnicmp(str,"RE:",3)) {
- strcpy(str,str+3);
- while(str[0]==SP)
- strcpy(str,str+1); }
-}
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
- struct time curtime;
- struct date date;
-
-#if DEBUG
-printf("\rdstrtounix ");
-#endif
-
-curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
-date.da_year=((str[6]&0xf)*10)+(str[7]&0xf);
-if(date.da_year<Y2K_2DIGIT_WINDOW)
- date.da_year+=100;
-date.da_year+=1900;
-date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
-date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
-return(dostounix(&date,&curtime));
-}
-
-/****************************************************************************/
-/* Checks the disk drive for the existence of a file. Returns 1 if it */
-/* exists, 0 if it doesn't. */
-/* Called from upload */
-/****************************************************************************/
-char fexist(char *filespec)
-{
- struct ffblk f;
-
-if(findfirst(filespec,&f,0)==NULL)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* This function reads files that are potentially larger than 32k. */
-/* Up to one megabyte of data can be read with each call. */
-/****************************************************************************/
-long lread(int file, char huge *buf,long bytes)
-{
- long count;
-
-for(count=bytes;count>32767;count-=32767,buf+=32767)
- if(read(file,(char *)buf,32767)!=32767)
- return(-1L);
-if(read(file,(char *)buf,(int)count)!=count)
- return(-1L);
-return(bytes);
-}
-
-
-int main(int argc, char **argv)
-{
- char str[256],to[256],from[256],title[256],*p,*buf,*outbuf;
- ushort xlat,net=0;
- int i,j,file,lzh,storage;
- uint subnum,imported=0;
- ulong l,length,lzhlen,offset,crc;
- FILE *stream;
- smbmsg_t msg;
- smbstatus_t status;
-
-PREPSCREEN;
-
-printf("Synchronet UTIIMPRT v%s\n",VER);
-
-if(argc<3)
- exit(1);
-
-if((argc>3 && !stricmp(argv[3],"/NETWORK"))
- || (argc>4 && !stricmp(argv[4],"/NETWORK")))
- net=NET_POSTLINK;
-
-uti_init("UTIIMPRT",argc,argv);
-
-if((file=nopen(argv[2],O_RDONLY))==-1)
- bail(2);
-if((stream=fdopen(file,"rb"))==NULL)
- bail(2);
-
-subnum=getsubnum(argv[1]);
-if((int)subnum==-1)
- bail(7);
-
-sprintf(smb.file,"%s%s",sub[subnum]->data_dir,sub[subnum]->code);
-smb.retry_time=30;
-if((i=smb_open(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- bail(5); }
-
-if(filelength(fileno(smb.shd_fp))<1) { /* Create it if it doesn't exist */
- smb.status.max_crcs=sub[subnum]->maxcrcs;
- smb.status.max_msgs=sub[subnum]->maxmsgs;
- smb.status.max_age=sub[subnum]->maxage;
- smb.status.attr=sub[subnum]->misc&SUB_HYPER ? SMB_HYPERALLOC : 0;
- if((i=smb_create(&smb))!=0) {
- errormsg(WHERE,ERR_CREATE,smb.file,i);
- bail(5); } }
-
-printf("\r\nImporting ");
-
-while(!feof(stream) && !ferror(stream)) {
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=SMB_VERSION;
- msg.hdr.when_imported.time=time(NULL);
- msg.hdr.when_imported.zone=sys_timezone;
- if(sub[subnum]->misc&SUB_AONLY)
- msg.hdr.attr|=MSG_ANONYMOUS;
-
- if(!fgets(to,250,stream))
- break;
- if(!fgets(from,250,stream))
- break;
- if(!fgets(title,250,stream))
- break;
- imported++;
- printf("%-5u\b\b\b\b\b",imported);
- truncsp(to);
- truncsp(from);
- truncsp(title);
-
- smb_hfield(&msg,RECIPIENT,strlen(to),to);
- strlwr(to);
- msg.idx.to=crc16(to);
-
- smb_hfield(&msg,SENDER,strlen(from),from);
- strlwr(from);
- msg.idx.from=crc16(from);
-
- if(net)
- i=smb_hfield(&msg,SENDERNETTYPE,2,&net);
-
- i=smb_hfield(&msg,SUBJECT,strlen(title),title);
- strlwr(title);
- remove_re(title);
- msg.idx.subj=crc16(title);
-
- fgets(str,128,stream); /* skip msg # */
- fgets(str,128,stream); /* ref # */
- msg.hdr.thread_orig=atol(str);
- fgets(str,128,stream); /* date */
- msg.hdr.when_written.time=dstrtounix(str);
- fgets(str,128,stream); /* time */
- msg.hdr.when_written.time+=atoi(str)*60*60; /* hours */
- p=strchr(str,':');
- if(p)
- msg.hdr.when_written.time+=atoi(p+1)*60; /* mins */
- fgets(str,128,stream); /* private/public */
- if(!stricmp(str,"PRIVATE"))
- msg.hdr.attr|=MSG_PRIVATE;
- fgets(str,128,stream); /* Read? Y/N */
- if(toupper(str[0])=='Y')
- msg.hdr.attr|=MSG_READ;
- fgets(str,128,stream); /* Net? Y/N - ignore */
- if(toupper(str[0])=='Y')
- msg.hdr.netattr|=MSG_TYPELOCAL;
- while(!feof(stream) && !ferror(stream)) {
- fgets(str,128,stream);
- if(!strcmp(str,"TEXT:\r\n"))
- break; }
-
- buf=NULL;
- length=0;
- crc=0xffffffff;
- while(!feof(stream) && !ferror(stream)) {
- fgets(str,128,stream);
- if(!strcmp(str,"\xff\r\n")) /* end of text */
- break;
- j=strlen(str);
- if((buf=REALLOC(buf,length+j+1))==NULL) {
- errormsg(WHERE,ERR_ALLOC,argv[1],length+j+1);
- bail(3); }
- if(sub[subnum]->maxcrcs) {
- for(i=0;i<j;i++)
- crc=ucrc32(str[i],crc); }
- strcpy(buf+length,str);
- length+=strlen(str); }
- crc=~crc;
-
- if((i=smb_locksmbhdr(&smb))!=0) {
- errormsg(WHERE,ERR_LOCK,smb.file,i);
- bail(11); }
-
- if((i=smb_getstatus(&smb))!=0) {
- errormsg(WHERE,ERR_READ,smb.file,i);
- bail(12); }
-
- if(sub[subnum]->maxcrcs) {
- i=smb_addcrc(&smb,crc);
- if(i) {
- printf("\nDuplicate message!\n");
- FREE(buf);
- smb_unlocksmbhdr(&smb);
- smb_freemsgmem(&msg);
- continue; } }
-
- if(length>=2 && buf[length-1]==LF && buf[length-2]==CR)
- length-=2;
- if(length>=2 && buf[length-1]==LF && buf[length-2]==CR)
- length-=2;
-
- lzh=0;
- if(sub[subnum]->misc&SUB_LZH && length+2>=SDT_BLOCK_LEN) {
- if((outbuf=(char *)MALLOC(length*2))==NULL) {
- errormsg(WHERE,ERR_ALLOC,"lzh",length*2);
- smb_unlocksmbhdr(&smb);
- smb_freemsgmem(&msg);
- bail(3); }
- lzhlen=lzh_encode(buf,length,outbuf);
- if(lzhlen>1
- && smb_datblocks(lzhlen+4)
- <smb_datblocks(length+2)) { /* Compressable */
- length=lzhlen+2;
- FREE(buf);
- lzh=1;
- buf=outbuf; }
- else /* Uncompressable */
- FREE(outbuf); }
-
- length+=2; /* for translation string */
-
- if(status.attr&SMB_HYPERALLOC) {
- offset=smb_hallocdat(&smb);
- storage=SMB_HYPERALLOC; }
- else {
- if((i=smb_open_da(&smb))!=0) {
- errormsg(WHERE,ERR_OPEN,smb.file,i);
- bail(5); }
- if(sub[subnum]->misc&SUB_FAST) {
- offset=smb_fallocdat(&smb,length,1);
- storage=SMB_FASTALLOC; }
- else {
- offset=smb_allocdat(&smb,length,1);
- storage=SMB_SELFPACK; }
- fclose(smb.sda_fp); }
-
- msg.hdr.offset=offset;
-
- smb_dfield(&msg,TEXT_BODY,length);
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- if(lzh) {
- xlat=XLAT_LZH;
- fwrite(&xlat,2,1,smb.sdt_fp); }
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- j=SDT_BLOCK_LEN-2; /* Don't read/write more than 255 */
- if(lzh)
- j-=2;
- l=0;
- length-=2;
- if(lzh)
- length-=2;
- while(l<length) {
- if(l+j>length)
- j=length-l;
- fwrite(buf+l,j,1,smb.sdt_fp);
- l+=j;
- j=SDT_BLOCK_LEN; }
- fflush(smb.sdt_fp);
- FREE(buf);
- smb_unlocksmbhdr(&smb);
- smb_addmsghdr(&smb,&msg,storage);
- smb_freemsgmem(&msg); }
-
-sprintf(str,"%20s Imported %u\r\n","",imported);
-write(logfile,str,strlen(str));
-printf("\nDone.\n");
-bail(0);
-return(0);
-}
-
diff --git a/src/sbbs2/uti/utilist.c b/src/sbbs2/uti/utilist.c
deleted file mode 100644
index a880ba429be49c1b1fa77dcdf4f8e567cee0ae45..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/utilist.c
+++ /dev/null
@@ -1,37 +0,0 @@
-/* UTILIST.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "uti.h"
-
-int main(int argc, char **argv)
-{
- char str[256];
- int i,j,file;
-
-PREPSCREEN;
-
-printf("Synchronet UTILIST v%s\n",VER);
-
-if(argc<2)
- exit(1);
-
-uti_init("UTILIST",argc,argv);
-
-if((file=nopen(argv[1],O_CREAT|O_TRUNC|O_WRONLY))==-1)
- exit(2);
-
-for(j=0;j<total_grps;j++)
- for(i=0;i<total_subs;i++) {
- if(sub[i]->grp!=j)
- continue;
- sprintf(str,"%s\r\n%s\r\n",sub[i]->code,sub[i]->code);
- write(file,str,strlen(str));
- sprintf(str,"%s\r\n",sub[i]->lname);
- write(file,str,strlen(str)); }
-close(file);
-printf("\nDone.\n");
-bail(0);
-return(0);
-}
diff --git a/src/sbbs2/uti/utilstrd.c b/src/sbbs2/uti/utilstrd.c
deleted file mode 100644
index 1c8bf05222ef44b2beeb8adec86e773b358fd855..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/utilstrd.c
+++ /dev/null
@@ -1,86 +0,0 @@
-/* UTILSTRD.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-#include "uti.h"
-
-#define READ 1
-#define WRITE 2
-
-int main(int argc, char **argv)
-{
- char *p,str[256],name[256],mode=0;
- int i,file;
- uint usernumber;
- time_t ptr;
- FILE *stream;
-
-PREPSCREEN;
-
-printf("Synchronet UTILSTRD v%s\n",VER);
-
-if(argc<4)
- exit(1);
-
-if(!stricmp(argv[1],"READ"))
- mode=READ;
-else if(!stricmp(argv[1],"WRITE"))
- mode=WRITE;
-if(!mode)
- exit(1);
-
-uti_init("UTILSTRD",argc,argv);
-
-if(mode==READ) {
- if((file=nopen(argv[2],O_CREAT|O_TRUNC|O_WRONLY))==-1)
- exit(2); }
-else {
- if((file=nopen(argv[2],O_RDONLY))==-1)
- exit(2); }
-
-if((stream=fdopen(file,"wb"))==NULL)
- exit(2);
-
-
-strcpy(name,argv[3]); /* build the user name */
-for(i=4;i<argc;i++) {
- strcat(name," ");
- strcat(name,argv[i]); }
-
-sprintf(str,"%sUSER\\NAME.DAT",data_dir);
-if((file=nopen(str,O_RDONLY))==-1)
- exit(8);
-
-usernumber=1;
-while(!eof(file)) {
- read(file,str,LEN_ALIAS+2);
- str[25]=0;
- p=strchr(str,3);
- if(p) *p=0;
- if(!stricmp(str,name))
- break;
- usernumber++; }
-if(stricmp(str,name)) {
- printf("Username '%s' not found.\n",name);
- exit(9); }
-close(file);
-
-sprintf(str,"%sUSER\\PTRS\\%4.4u.IXB",data_dir,usernumber);
-if((file=nopen(str,mode==READ ? O_RDONLY : O_WRONLY|O_CREAT))==-1)
- exit(10);
-for(i=0;i<total_subs;i++) {
- lseek(file,((long)sub[i]->ptridx)*10L,SEEK_SET);
- if(mode==READ) {
- read(file,&ptr,4);
- fprintf(stream,"%lu\r\n",ptr); }
- else {
- fgets(str,81,stream);
- ptr=atol(str);
- write(file,&ptr,4); } }
-close(file);
-printf("\nDone.\n");
-bail(0);
-return(0);
-}
-
diff --git a/src/sbbs2/uti/utiver.c b/src/sbbs2/uti/utiver.c
deleted file mode 100644
index 6f0111f25b01c53b7a22f8338eeec5e21ed1839a..0000000000000000000000000000000000000000
--- a/src/sbbs2/uti/utiver.c
+++ /dev/null
@@ -1,26 +0,0 @@
-/* UTIVER.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <stdio.h>
-#include <conio.h>
-#include <io.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-#include "uti.h"
-
-int main(int argc, char **argv)
-{
- char str[1024];
- int file;
-
-sprintf(str,"2\r\nSynchronet UTI Driver v%s - "
- "Developed 1995-1997 Rob Swindell\r\n",VER);
-if(argc<2)
- exit(1);
-if((file=open(argv[1],O_WRONLY|O_CREAT|O_TRUNC,S_IWRITE))==-1)
- exit(2);
-write(file,str,strlen(str));
-close(file);
-return(0);
-}
diff --git a/src/sbbs2/vars.c b/src/sbbs2/vars.c
deleted file mode 100644
index 5fb3e2bc222b0c26f5d0c2309341b366c98dafef..0000000000000000000000000000000000000000
--- a/src/sbbs2/vars.c
+++ /dev/null
@@ -1,154 +0,0 @@
-/* VARS.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*************************************************************/
-/* External (Global/Public) Variables for use only with SBBS */
-/*************************************************************/
-
-#include <stdio.h>
-#include <dos.h>
-
-#ifndef GLOBAL
-#define GLOBAL
-unsigned _stklen=22000; /* Set stack size in code, not header */
- /* 20k, NOT enough */
-#endif
-
-#include "sbbsdefs.h"
-#include "smbdefs.h"
-#include "text.h"
-
-GLOBAL char *envp[128]; /* Original environment */
-
-GLOBAL char menu_dir[128]; /* Over-ride default menu dir */
-GLOBAL char menu_file[128]; /* Over-ride menu file */
-
-GLOBAL user_t useron; /* User currently online */
-GLOBAL node_t thisnode; /* Node information */
-GLOBAL smb_t smb; /* Currently open message base */
-
- /* Batch download queue */
-GLOBAL char **batdn_name; /* Filenames */
-GLOBAL ushort *batdn_alt; /* Alternate path */
-GLOBAL uint *batdn_dir, /* Directory for each file */
- batdn_total; /* Total files */
-GLOBAL long *batdn_offset; /* Offset for data */
-GLOBAL ulong *batdn_size; /* Size of file in bytes */
-GLOBAL ulong *batdn_cdt; /* Credit value of file */
-
- /* Batch upload queue */
-GLOBAL char **batup_desc, /* Description for each file */
- **batup_name, /* Filenames */
- *batup_misc; /* Miscellaneous bits */
-GLOBAL ushort *batup_alt; /* Alternate path */
-GLOBAL uint *batup_dir, /* Directory for each file */
- batup_total; /* Total files */
-
-/*********************************/
-/* Color Configuration Variables */
-/*********************************/
-GLOBAL char *text[TOTAL_TEXT]; /* Text from CTRL\TEXT.DAT */
-GLOBAL char *text_sav[TOTAL_TEXT]; /* Text from CTRL\TEXT.DAT */
-GLOBAL int directvideo; /* Turbo C's video flag - direct or bios */
-GLOBAL char qoc; /* Quit after one caller */
-GLOBAL long freedosmem; /* Amount of free DOS memory */
-GLOBAL char orgcmd[129]; /* Original command to execute bbs */
-GLOBAL char dszlog[127]; /* DSZLOG enviornment variable */
-GLOBAL char debug; /* Flag to allow debug writes */
-GLOBAL int keybuftop,keybufbot; /* Keyboard input buffer pointers */
-GLOBAL char keybuf[KEY_BUFSIZE]; /* Keyboard input buffer */
-GLOBAL char connection[LEN_MODEM+1];/* Connection Description */
-GLOBAL ulong cur_rate; /* Current Connection (DCE) Rate */
-GLOBAL ulong cur_cps; /* Current Average Transfer CPS */
-GLOBAL ulong dte_rate; /* Current COM Port (DTE) Rate */
-GLOBAL time_t timeout; /* User inactivity timeout reference */
-GLOBAL char timeleft_warn; /* low timeleft warning flag */
-GLOBAL char curatr; /* Current Text Attributes Always */
-GLOBAL long lncntr; /* Line Counter - for PAUSE */
-GLOBAL long tos; /* Top of Screen */
-GLOBAL long rows; /* Current Rows for User */
-GLOBAL long autoterm; /* Autodetected terminal type */
-GLOBAL char slbuf[SAVE_LINES][LINE_BUFSIZE+1]; /* Saved for redisplay */
-GLOBAL char slatr[SAVE_LINES]; /* Starting attribute of each line */
-GLOBAL char slcnt; /* Number of lines currently saved */
-GLOBAL char lbuf[LINE_BUFSIZE+1];/* Temp storage for each line output */
-GLOBAL int lbuflen; /* Number of characters in line buffer */
-GLOBAL char latr; /* Starting attribute of line buffer */
-GLOBAL ulong console; /* Defines current Console settings */
-GLOBAL char tmp[256]; /* Used all over as temp string */
-GLOBAL char *nulstr; /* Null string pointer */
-GLOBAL char *crlf; /* CRLF string pointer */
-GLOBAL char wordwrap[81]; /* Word wrap buffer */
-GLOBAL time_t now, /* Used to store current time in Unix format */
- answertime, /* Time call was answered */
- logontime, /* Time user logged on */
- starttime, /* Time stamp to use for time left calcs */
- ns_time, /* File new-scan time */
- last_ns_time; /* Most recent new-file-scan this call */
-GLOBAL uchar action; /* Current action of user */
-GLOBAL char statline; /* Current Status Line number */
-GLOBAL long online; /* Remote/Local or not online */
-GLOBAL long sys_status; /* System Status */
-GLOBAL char *sub_misc; /* Save misc and ptrs for subs */
-GLOBAL ulong *sub_ptr; /* for fast pointer update */
-GLOBAL ulong *sub_last; /* last read message pointer */
-
-GLOBAL ulong logon_ulb, /* Upload Bytes This Call */
- logon_dlb, /* Download Bytes This Call */
- logon_uls, /* Uploads This Call */
- logon_dls, /* Downloads This Call */
- logon_posts, /* Posts This Call */
- logon_emails, /* Emails This Call */
- logon_fbacks; /* Feedbacks This Call */
-GLOBAL uchar logon_ml; /* ML of the user apon logon */
-
-GLOBAL int node_disk; /* Number of Node's disk */
-GLOBAL uint main_cmds; /* Number of Main Commands this call */
-GLOBAL uint xfer_cmds; /* Number of Xfer Commands this call */
-GLOBAL ulong posts_read; /* Number of Posts read this call */
-GLOBAL char temp_uler[31]; /* User who uploaded the files to temp dir */
-GLOBAL char temp_file[41]; /* Origin of extracted temp files */
-GLOBAL long temp_cdt; /* Credit value of file that was extracted */
-GLOBAL char autohang; /* Used for auto-hangup after transfer */
-GLOBAL char cap_fname[41]; /* Capture filename - default is CAPTURE.TXT */
-GLOBAL FILE *capfile; /* File string to use for capture file */
-GLOBAL int inputfile; /* File handle to use for input */
-GLOBAL int logfile; /* File handle for node.log */
-GLOBAL int nodefile; /* File handle for node.dab */
-GLOBAL int node_ext; /* File handle for node.exb */
-GLOBAL char logcol; /* Current column of log file */
-GLOBAL uint criterrs; /* Critical error counter */
-GLOBAL struct date date; /* Used for DOS compatible date pointer */
-GLOBAL struct time curtime; /* Used for DOS compatible time pointer */
-
-GLOBAL uint curgrp, /* Current group */
- *cursub, /* Current sub-board for each group */
- curlib, /* Current library */
- *curdir; /* Current directory for each library */
-GLOBAL uint *usrgrp, /* Real group numbers */
- usrgrps; /* Number groups this user has access to */
-GLOBAL uint *usrlib, /* Real library numbers */
- usrlibs; /* Number of libs this user can access */
-GLOBAL uint **usrsub, /* Real sub numbers */
- *usrsubs; /* Num of subs with access for each grp */
-GLOBAL uint **usrdir, /* Real dir numbers */
- *usrdirs; /* Num of dirs with access for each lib */
-GLOBAL int cursubnum; /* For ARS */
-GLOBAL int curdirnum; /* For ARS */
-GLOBAL long timeleft; /* Number of seconds user has left online */
-GLOBAL uchar sbbsnode[81]; /* Environment var to contain node dir path */
-GLOBAL uchar sbbsnnum[81]; /* Environment var to contain node num */
-GLOBAL char *comspec; /* Pointer to environment variable COMSPEC */
-GLOBAL ushort altul; /* Upload to alternate path flag */
-GLOBAL uint inDV; /* DESQview version, or 0 if not under DV */
-GLOBAL uchar lastnodemsg; /* Number of node last message was sent to */
-GLOBAL char color[TOTAL_COLORS]; /* Different colors for the BBS */
-GLOBAL time_t next_event; /* Next event time - from front-end */
-GLOBAL char lastuseron[LEN_ALIAS+1]; /* Name of user last online */
-GLOBAL char cid[LEN_CID+1]; /* Caller ID of current caller */
-GLOBAL uint emshandle; /* EMS handle for overlay swap */
-GLOBAL char emsver; /* Version of EMS installed */
-GLOBAL char *noaccess_str; /* Why access was denied via ARS */
-GLOBAL long noaccess_val; /* Value of parameter not met in ARS */
-GLOBAL int errorlevel; /* Error level of external program */
diff --git a/src/sbbs2/ver.c b/src/sbbs2/ver.c
deleted file mode 100644
index caac3f66c7d47b8ea712c53adc6b973ae523c2c3..0000000000000000000000000000000000000000
--- a/src/sbbs2/ver.c
+++ /dev/null
@@ -1,91 +0,0 @@
-/* VER.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include <dos.h>
-#include "sbbs.h"
-#include "riolib.h"
-#include "riodefs.h"
-#include "etext.h"
-
-extern uint inDV;
-extern uint asmrev;
-extern uint emshandle;
-extern char emsver;
-
-char *compile_time=__TIME__,*compile_date=__DATE__;
-
-char *decrypt(ulong [], char *str);
-
-void ver()
-{
- char str[128],tmp[128];
- int i;
-
-i=rioctl(FIFOCTL);
-CRLF;
-#if defined(__OS2__)
-strcpy(str,decrypt(VersionNoticeOS2,0));
-#elif defined(__WIN32__)
-strcpy(str,decrypt(VersionNoticeW32,0));
-#else
-strcpy(str,decrypt(VersionNoticeDOS,0));
-#endif
-center(str);
-CRLF;
-
-sprintf(str,"Revision %c%s %s %.5s "
-#ifdef __FLAT__
- "RIOLIB %u.%02u"
-#else
- "RCIOL %u"
-#endif
- " SMBLIB %s BCC %X.%02X"
- ,REVISION,BETA,compile_date,compile_time
-#ifdef __FLAT__
- ,rioctl(GVERS)/100,rioctl(GVERS)%100
-#else
- ,rioctl(GVERS)
-#endif
- ,smb_lib_ver()
- ,__BORLANDC__>>8
- ,__BORLANDC__&0xff);
-center(str);
-CRLF;
-
-center(decrypt(CopyrightAddress,0));
-CRLF;
-
-#if defined(__OS2__)
-
-sprintf(str,"OS/2 %u.%u (%u.%u)",_osmajor/10,_osminor/10,_osmajor,_osminor);
-
-#elif defined(__WIN32__)
-
-sprintf(str,"Win32 %u.%02u",_osmajor,_osminor);
-
-#else /* DOS */
-
-sprintf(str,"DOS %u.%02u",_osmajor,_osminor);
-if(inDV) {
- sprintf(tmp," DESQview %u.%02u",inDV>>8,inDV&0xff);
- strcat(str,tmp); }
-if(emsver) {
- sprintf(tmp," EMS %u.%u",(emsver&0xf0)>>4,emsver&0xf);
- strcat(str,tmp);
- if(emshandle!=0xffff)
- strcat(str," (overlay)"); }
-
-#endif
-
-if(i&0xc0) {
- strcat(str," 16550 UART");
- if(i&0xc)
- strcat(str," FIFO"); }
-#if DEBUG
- i=open("NODE.CFG",0);
- bprintf(" Files (%d)",i);
- close(i);
-#endif
-center(str);
-}
diff --git a/src/sbbs2/viewfile.c b/src/sbbs2/viewfile.c
deleted file mode 100644
index 24c234f674f442cb87b9686ccdfcee683dc4d02a..0000000000000000000000000000000000000000
--- a/src/sbbs2/viewfile.c
+++ /dev/null
@@ -1,73 +0,0 @@
-#line 1 "VIEWFILE.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-void viewfilecontents(file_t f)
-{
- char str[128],cmd[128];
- int i;
-
-if(f.size<=0L) {
- bputs(text[FileNotThere]);
- return; }
-
-sprintf(str,"%s%s",f.altpath > 0 && f.altpath<=altpaths
- ? altpath[f.altpath-1] : dir[f.dir]->path
- ,unpadfname(f.name,tmp));
-strcpy(tmp,f.name);
-truncsp(tmp);
-for(i=0;i<total_fviews;i++) {
- if(!stricmp(tmp+9,fview[i]->ext)
- && chk_ar(fview[i]->ar,useron)) {
- strcpy(cmd,fview[i]->cmd);
- break; } }
-if(i==total_fviews)
- bprintf(text[NonviewableFile],tmp+9);
-else
- if((i=external(cmdstr(cmd,str,str,NULL)
- ,EX_OUTL|EX_OUTR|EX_INR|EX_CC))!=0)
- errormsg(WHERE,ERR_EXEC,cmdstr(cmd,str,str,NULL),i);
-}
-
-/****************************************************************************/
-/* Views file with: */
-/* (B)atch download, (V)iew file (E)xtended info, (Q)uit, or [Next]: */
-/* call with ext=1 for default to extended info, or 0 for file view */
-/* Returns -1 for Batch, 1 for Next, or 0 for Quit */
-/****************************************************************************/
-int viewfile(file_t f, int ext)
-{
- char ch,str[256];
- int i;
-
-curdirnum=f.dir; /* for ARS */
-while(online) {
- if(ext)
- fileinfo(f);
- else
- viewfilecontents(f);
- ASYNC;
- CRLF;
- sprintf(str,text[FileInfoPrompt],unpadfname(f.name,tmp));
- mnemonics(str);
- ch=getkeys("BEVQ\r",0);
- if(ch=='Q' || sys_status&SS_ABORT)
- return(0);
- switch(ch) {
- case 'B':
- addtobatdl(f);
- CRLF;
- return(-1);
- case 'E':
- ext=1;
- continue;
- case 'V':
- ext=0;
- continue;
- case CR:
- return(1); } }
-return(0);
-}
-
diff --git a/src/sbbs2/xfer_hi.c b/src/sbbs2/xfer_hi.c
deleted file mode 100644
index 78e8f36bc7114b5f280b4f1b09aa8343c3a108f8..0000000000000000000000000000000000000000
--- a/src/sbbs2/xfer_hi.c
+++ /dev/null
@@ -1,1516 +0,0 @@
-#line 1 "XFER_HI.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-uint temp_dirnum;
-
-/****************************************************************************/
-/* Uploads files */
-/****************************************************************************/
-void upload(uint dirnum)
-{
- static char lastdesc[59];
- uchar str[256],src[256]={""},descbeg[25]={""},descend[25]={""},path[256]
- ,fname[13],keys[256],ch,*p;
- time_t start,end;
- int i,j,file,destuser[MAX_USERXFER],destusers=0;
- uint k;
- file_t f;
- struct dfree d;
- user_t user;
- node_t node;
-
-if(sys_status&SS_EVENT && online==ON_REMOTE && !dir_op(dirnum))
- bprintf(text[UploadBeforeEvent],timeleft/60);
-if(altul)
- strcpy(path,altpath[altul-1]);
-else
- strcpy(path,dir[dirnum]->path);
-if(path[1]==':')
- i=path[0]-'A'+1;
-else i=0;
-getdfree(i,&d);
-if(d.df_sclus==0xffff)
- errormsg(WHERE,ERR_CHK,path,0);
-if((ulong)d.df_bsec*(ulong)d.df_sclus
- *(ulong)d.df_avail<(ulong)min_dspace*1024L) {
- bputs(text[LowDiskSpace]);
- sprintf(str,"Diskspace is low: %s",path);
- errorlog(str);
- if(!dir_op(dirnum))
- return; }
-bprintf(text[DiskNBytesFree],ultoac((ulong)d.df_bsec
- *(ulong)d.df_sclus*(ulong)d.df_avail,tmp));
-f.dir=curdirnum=dirnum;
-f.misc=0;
-f.altpath=altul;
-bputs(text[Filename]);
-if(!getstr(fname,12,K_UPPER) || strchr(fname,'?') || strchr(fname,'*')
- || !checkfname(fname) || (trashcan(fname,"FILE") && !dir_op(dirnum))) {
- if(fname[0])
- bputs(text[BadFilename]);
- return; }
-if(dirnum==sysop_dir)
- sprintf(str,text[UploadToSysopDirQ],fname);
-else if(dirnum==user_dir)
- sprintf(str,text[UploadToUserDirQ],fname);
-else
- sprintf(str,text[UploadToCurDirQ],fname,lib[dir[dirnum]->lib]->sname
- ,dir[dirnum]->sname);
-if(!yesno(str)) return;
-action=NODE_ULNG;
-padfname(fname,f.name);
-sprintf(str,"%s%s",path,fname);
-if(fexist(str)) { /* File is on disk */
- if(!dir_op(dirnum) && online!=ON_LOCAL) { /* local users or sysops */
- bprintf(text[FileAlreadyThere],fname);
- return; }
- if(!yesno(text[FileOnDiskAddQ]))
- return; }
-else if(online==ON_LOCAL) {
- bputs(text[FileNotOnDisk]);
- bputs(text[EnterPath]);
- if(!getstr(tmp,60,K_LINE|K_UPPER))
- return;
- backslash(tmp);
- sprintf(src,"%s%s",tmp,fname); }
-strcpy(str,dir[dirnum]->exts);
-strcpy(tmp,f.name);
-truncsp(tmp);
-j=strlen(str);
-for(i=0;i<j;i+=ch+1) { /* Check extension of upload with allowable exts */
- p=strchr(str+i,',');
- if(p!=NULL)
- *p=0;
- ch=strlen(str+i);
- if(!strcmp(tmp+9,str+i))
- break; }
-if(j && i>=j) {
- bputs(text[TheseFileExtsOnly]);
- bputs(dir[dirnum]->exts);
- CRLF;
- if(!dir_op(dirnum)) return; }
-bputs(text[SearchingForDupes]);
-for(i=k=0;i<usrlibs;i++)
- for(j=0;j<usrdirs[i];j++,k++) {
- outchar('.');
- if(k && !(k%5))
- bputs("\b\b\b\b\b \b\b\b\b\b");
- if((usrdir[i][j]==dirnum || dir[usrdir[i][j]]->misc&DIR_DUPES)
- && findfile(usrdir[i][j],f.name)) {
- bputs(text[SearchedForDupes]);
- bprintf(text[FileAlreadyOnline],f.name);
- if(!dir_op(dirnum))
- return; /* File is in database for another dir */
- if(usrdir[i][j]==dirnum)
- return; } } /* don't allow duplicates */
-bputs(text[SearchedForDupes]);
-if(dirnum==user_dir) { /* User to User transfer */
- bputs(text[EnterAfterLastDestUser]);
- while((!dir_op(dirnum) && destusers<max_userxfer) || destusers<MAX_USERXFER) {
- bputs(text[SendFileToUser]);
- if(!getstr(str,LEN_ALIAS,K_UPRLWR))
- break;
- if((user.number=finduser(str))!=0) {
- if(!dir_op(dirnum) && user.number==useron.number) {
- bputs(text[CantSendYourselfFiles]);
- continue; }
- for(i=0;i<destusers;i++)
- if(user.number==destuser[i])
- break;
- if(i<destusers) {
- bputs(text[DuplicateUser]);
- continue; }
- getuserdat(&user);
- if((user.rest&(FLAG('T')|FLAG('D')))
- || !chk_ar(lib[dir[user_dir]->lib]->ar,user)
- || !chk_ar(dir[user_dir]->dl_ar,user)) {
- bprintf(text[UserWontBeAbleToDl],user.alias); }
- else {
- bprintf(text[UserAddedToDestList],user.alias);
- destuser[destusers++]=user.number; } }
- else {
- CRLF; } }
- if(!destusers)
- return; }
-if(dir[dirnum]->misc&DIR_RATE) {
- SYNC;
- bputs(text[RateThisFile]);
- ch=getkey(K_ALPHA);
- if(!isalpha(ch) || sys_status&SS_ABORT)
- return;
- CRLF;
- sprintf(descbeg,text[Rated],toupper(ch)); }
-if(dir[dirnum]->misc&DIR_ULDATE) {
- now=time(NULL);
- if(descbeg[0])
- strcat(descbeg," ");
- sprintf(str,"%s ",unixtodstr(now,tmp));
- strcat(descbeg,str); }
-if(dir[dirnum]->misc&DIR_MULT) {
- SYNC;
- if(!noyes(text[MultipleDiskQ])) {
- bputs(text[HowManyDisksTotal]);
- if((i=getnum(99))<2)
- return;
- bputs(text[NumberOfFile]);
- if((j=getnum(i))<1)
- return;
- if(j==1)
- lastdesc[0]=0;
- if(i>9)
- sprintf(descend,text[FileOneOfTen],j,i);
- else
- sprintf(descend,text[FileOneOfTwo],j,i); }
- else
- lastdesc[0]=0; }
-else
- lastdesc[0]=0;
-bputs(text[EnterDescNow]);
-i=LEN_FDESC-(strlen(descbeg)+strlen(descend));
-getstr(lastdesc,i,K_LINE|K_EDIT|K_AUTODEL);
-if(sys_status&SS_ABORT)
- return;
-if(descend[0]) /* end of desc specified, so pad desc with spaces */
- sprintf(f.desc,"%s%-*s%s",descbeg,i,lastdesc,descend);
-else /* no end specified, so string ends at desc end */
- sprintf(f.desc,"%s%s",descbeg,lastdesc);
-
-if(dir[dirnum]->misc&DIR_ANON && !(dir[dirnum]->misc&DIR_AONLY)
- && (dir_op(dirnum) || useron.exempt&FLAG('A'))) {
- if(!noyes(text[AnonymousQ]))
- f.misc|=FM_ANON; }
-sprintf(str,"%s%s",path,fname);
-if(src[0]) { /* being copied from another local dir */
- bprintf(text[RetrievingFile],fname);
- if(mv(src,str,1))
- return;
- CRLF; }
-if(fexist(str)) { /* File is on disk */
- if(!uploadfile(&f))
- return; }
-else {
- menu("ULPROT");
- SYNC;
- strcpy(keys,"Q");
- if(dirnum==user_dir || !max_batup) /* no batch user to user xfers */
- mnemonics(text[ProtocolOrQuit]);
- else {
- mnemonics(text[ProtocolBatchOrQuit]);
- strcat(keys,"B"); }
- for(i=0;i<total_prots;i++)
- if(prot[i]->ulcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(keys,tmp); }
- ch=getkeys(keys,0);
- if(ch=='Q')
- return;
- if(ch=='B') {
- if(batup_total>=max_batup)
- bputs(text[BatchUlQueueIsFull]);
- else {
- for(i=0;i<batup_total;i++)
- if(!strcmp(batup_name[i],f.name)) {
- bprintf(text[FileAlreadyInQueue],f.name);
- return; }
- strcpy(batup_name[batup_total],f.name);
- strcpy(batup_desc[batup_total],f.desc);
- batup_dir[batup_total]=dirnum;
- batup_misc[batup_total]=f.misc;
- batup_alt[batup_total]=altul;
- batup_total++;
- bprintf(text[FileAddedToUlQueue]
- ,f.name,batup_total,max_batup); } }
- else {
- for(i=0;i<total_prots;i++)
- if(prot[i]->ulcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- start=time(NULL);
- protocol(cmdstr(prot[i]->ulcmd,str,nulstr,NULL),0);
- end=time(NULL);
- if(!(dir[dirnum]->misc&DIR_ULTIME)) /* Don't deduct upload time */
- starttime+=end-start;
- ch=uploadfile(&f);
- autohangup();
- if(!ch) /* upload failed, don't process user to user xfer */
- return; } } }
-if(dirnum==user_dir) { /* Add files to XFER.IXT in INDX dir */
- sprintf(str,"%sXFER.IXT",data_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- return; }
- for(j=0;j<destusers;j++) {
- for(i=1;i<=sys_nodes;i++) { /* Tell user, if online */
- getnodedat(i,&node,0);
- if(node.useron==destuser[j] && !(node.misc&NODE_POFF)
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)) {
- sprintf(str,text[UserToUserXferNodeMsg],node_num,useron.alias);
- putnmsg(i,str);
- break; } }
- if(i>sys_nodes) { /* User not online */
- sprintf(str,text[UserSentYouFile],useron.alias);
- putsmsg(destuser[j],str); }
- sprintf(str,"%4.4u %12.12s %4.4u\r\n"
- ,destuser[j],f.name,useron.number);
- write(file,str,strlen(str)); }
- close(file); }
-}
-
-/****************************************************************************/
-/* Checks directory for 'dir' and prompts user to enter description for */
-/* the files that aren't in the database. */
-/* Returns 1 if the user aborted, 0 if not. */
-/****************************************************************************/
-char bulkupload(uint dirnum)
-{
- char done,str[256];
- struct ffblk ff;
- file_t f;
-
-memset(&f,0,sizeof(file_t));
-f.dir=dirnum;
-f.altpath=altul;
-bprintf(text[BulkUpload],lib[dir[dirnum]->lib]->sname,dir[dirnum]->sname);
-sprintf(str,"%s*.*",altul>0 && altul<=altpaths ? altpath[altul-1]
- : dir[dirnum]->path);
-done=findfirst(str,&ff,0);
-action=NODE_ULNG;
-SYNC;
-while(!done && !msgabort()) {
- if(gettotalfiles(dirnum)>dir[dirnum]->maxfiles) {
- bputs(text[DirFull]);
- return(0); }
- strupr(ff.ff_name);
- padfname(ff.ff_name,str);
- if(findfile(f.dir,str)==0) {
- strcpy(f.name,str);
- f.cdt=ff.ff_fsize;
- bprintf(text[BulkUploadDescPrompt],f.name,f.cdt);
- getstr(f.desc,LEN_FDESC,K_LINE);
- if(sys_status&SS_ABORT)
- return(1);
- uploadfile(&f); } /* used to abort here if the file failed upload */
- done=findnext(&ff); }
-return(0);
-}
-
-
-
-/****************************************************************************/
-/* This is the batch menu section */
-/****************************************************************************/
-void batchmenu()
-{
- char str[129],tmp2[250],done=0,ch;
- uint i,j,xfrprot,xfrdir;
- ulong totalcdt,totalsize,totaltime;
- time_t start,end;
- int file,n;
- file_t f;
-
-if(!batdn_total && !batup_total && upload_dir==INVALID_DIR) {
- bputs(text[NoFilesInBatchQueue]);
- return; }
-if(useron.misc&(RIP|WIP) && !(useron.misc&EXPERT))
- menu("BATCHXFR");
-lncntr=0;
-while(online && !done && (batdn_total || batup_total
- || upload_dir!=INVALID_DIR)) {
- if(!(useron.misc&(EXPERT|RIP|WIP))) {
- sys_status&=~SS_ABORT;
- if(lncntr) {
- SYNC;
- CRLF;
- if(lncntr) /* CRLF or SYNC can cause pause */
- pause(); }
- menu("BATCHXFR"); }
- ASYNC;
- bputs(text[BatchMenuPrompt]);
- ch=getkeys("BCDLQRU?\r",0);
- if(ch>SP)
- logch(ch,0);
- switch(ch) {
- case '?':
- if(useron.misc&(EXPERT|RIP|WIP))
- menu("BATCHXFR");
- break;
- case CR:
- case 'Q':
- lncntr=0;
- done=1;
- break;
- case 'B': /* Bi-directional transfers */
- if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- break; }
- if(useron.rest&FLAG('U')) {
- bputs(text[R_Upload]);
- break; }
- if(!batdn_total) {
- bputs(text[DownloadQueueIsEmpty]);
- break; }
- if(!batup_total && upload_dir==INVALID_DIR) {
- bputs(text[UploadQueueIsEmpty]);
- break; }
- for(i=0,totalcdt=0;i<batdn_total;i++)
- totalcdt+=batdn_cdt[i];
- if(!(useron.exempt&FLAG('D'))
- && totalcdt>useron.cdt+useron.freecdt) {
- bprintf(text[YouOnlyHaveNCredits]
- ,ultoac(useron.cdt+useron.freecdt,tmp));
- break; }
- for(i=0,totalsize=totaltime=0;i<batdn_total;i++) {
- totalsize+=batdn_size[i];
- if(!(dir[batdn_dir[i]]->misc&DIR_TFREE) && cur_cps)
- totaltime+=batdn_size[i]/(ulong)cur_cps; }
- if(!(useron.exempt&FLAG('T')) && !SYSOP && totaltime>timeleft) {
- bputs(text[NotEnoughTimeToDl]);
- break; }
- menu("BIPROT");
- if(!create_batchdn_lst())
- break;
- if(!create_batchup_lst())
- break;
- if(!create_bimodem_pth())
- break;
- SYNC;
- mnemonics(text[ProtocolOrQuit]);
- strcpy(tmp2,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->bicmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(tmp2,tmp); }
- ungetkey(useron.prot);
- ch=getkeys(tmp2,0);
- if(ch=='Q')
- break;
- for(i=0;i<total_prots;i++)
- if(prot[i]->bicmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- xfrprot=i;
- action=NODE_BXFR;
- SYNC;
- for(i=0;i<batdn_total;i++)
- if(dir[batdn_dir[i]]->seqdev) {
- lncntr=0;
- unpadfname(batdn_name[i],tmp);
- sprintf(tmp2,"%s%s",temp_dir,tmp);
- if(!fexist(tmp2)) {
- seqwait(dir[batdn_dir[i]]->seqdev);
- bprintf(text[RetrievingFile],tmp);
- sprintf(str,"%s%s"
- ,batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1]
- : dir[batdn_dir[i]]->path
- ,tmp);
- mv(str,tmp2,1); /* copy the file to temp dir */
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=0xff;
- putnodedat(node_num,thisnode);
- CRLF; } }
- sprintf(str,"%sBATCHDN.LST",node_dir);
- sprintf(tmp2,"%sBATCHUP.LST",node_dir);
- start=time(NULL);
- protocol(cmdstr(prot[xfrprot]->bicmd,str,tmp2,NULL),0);
- end=time(NULL);
- for(i=0;i<batdn_total;i++)
- if(dir[batdn_dir[i]]->seqdev) {
- unpadfname(batdn_name[i],tmp);
- sprintf(tmp2,"%s%s",temp_dir,tmp);
- remove(tmp2); }
- batch_upload();
- batch_download(xfrprot);
- if(batdn_total) /* files still in queue, not xfered */
- notdownloaded(totalsize,start,end);
- autohangup(); }
- break;
- case 'C':
- if(batup_total) {
- if(!noyes(text[ClearUploadQueueQ])) {
- batup_total=0;
- bputs(text[UploadQueueCleared]); } }
- if(batdn_total) {
- if(!noyes(text[ClearDownloadQueueQ])) {
- for(i=0;i<batdn_total;i++) {
- f.dir=batdn_dir[i];
- f.datoffset=batdn_offset[i];
- f.size=batdn_size[i];
- strcpy(f.name,batdn_name[i]);
- closefile(f); }
- batdn_total=0;
- bputs(text[DownloadQueueCleared]); } }
- break;
- case 'D':
- if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- break; }
- if(!batdn_total) {
- bputs(text[DownloadQueueIsEmpty]);
- break; }
- start_batch_download();
- break;
- case 'L':
- if(batup_total) {
- bputs(text[UploadQueueLstHdr]);
- for(i=0;i<batup_total;i++)
- bprintf(text[UploadQueueLstFmt],i+1,batup_name[i]
- ,batup_desc[i]); }
- if(batdn_total) {
- bputs(text[DownloadQueueLstHdr]);
- for(i=0,totalcdt=0,totalsize=0;i<batdn_total;i++) {
- bprintf(text[DownloadQueueLstFmt],i+1
- ,batdn_name[i],ultoac(batdn_cdt[i],tmp)
- ,ultoac(batdn_size[i],str)
- ,cur_cps
- ? sectostr(batdn_size[i]/(ulong)cur_cps,tmp2)
- : "??:??:??");
- totalsize+=batdn_size[i];
- totalcdt+=batdn_cdt[i]; }
- bprintf(text[DownloadQueueTotals]
- ,ultoac(totalcdt,tmp),ultoac(totalsize,str),cur_cps
- ? sectostr(totalsize/(ulong)cur_cps,tmp2)
- : "??:??:??"); }
- break; /* Questionable line ^^^, see note above function */
- case 'R':
- if(batup_total) {
- bprintf(text[RemoveWhichFromUlQueue],batup_total);
- n=getnum(batup_total);
- if(n>=1) {
- n--;
- batup_total--;
- while(n<batup_total) {
- batup_dir[n]=batup_dir[n+1];
- batup_misc[n]=batup_misc[n+1];
- batup_alt[n]=batup_alt[n+1];
- strcpy(batup_name[n],batup_name[n+1]);
- strcpy(batup_desc[n],batup_desc[n+1]);
- n++; }
- if(!batup_total)
- bputs(text[UploadQueueCleared]); } }
- if(batdn_total) {
- bprintf(text[RemoveWhichFromDlQueue],batdn_total);
- n=getnum(batdn_total);
- if(n>=1) {
- n--;
- f.dir=batdn_dir[n];
- strcpy(f.name,batdn_name[n]);
- f.datoffset=batdn_offset[n];
- f.size=batdn_size[n];
- closefile(f);
- batdn_total--;
- while(n<batdn_total) {
- strcpy(batdn_name[n],batdn_name[n+1]);
- batdn_dir[n]=batdn_dir[n+1];
- batdn_cdt[n]=batdn_cdt[n+1];
- batdn_alt[n]=batdn_alt[n+1];
- batdn_size[n]=batdn_size[n+1];
- batdn_offset[n]=batdn_offset[n+1];
- n++; }
- if(!batdn_total)
- bputs(text[DownloadQueueCleared]); } }
- break;
- case 'U':
- if(useron.rest&FLAG('U')) {
- bputs(text[R_Upload]);
- break; }
- if(!batup_total && upload_dir==INVALID_DIR) {
- bputs(text[UploadQueueIsEmpty]);
- break; }
- menu("BATUPROT");
- if(!create_batchup_lst())
- break;
- if(!create_bimodem_pth())
- break;
- ASYNC;
- mnemonics(text[ProtocolOrQuit]);
- strcpy(str,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->batulcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(str,tmp); }
- ch=getkeys(str,0);
- if(ch=='Q')
- break;
- for(i=0;i<total_prots;i++)
- if(prot[i]->batulcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- sprintf(str,"%sBATCHUP.LST",node_dir);
- xfrprot=i;
- if(batup_total)
- xfrdir=batup_dir[0];
- else
- xfrdir=upload_dir;
- action=NODE_ULNG;
- SYNC;
- if(online==ON_REMOTE) {
- delfiles(temp_dir,"*.*");
- start=time(NULL);
- protocol(cmdstr(prot[xfrprot]->batulcmd,str,nulstr,NULL),1);
- end=time(NULL);
- if(!(dir[xfrdir]->misc&DIR_ULTIME))
- starttime+=end-start; }
- batch_upload();
- delfiles(temp_dir,"*.*");
- autohangup(); }
- break; } }
-delfiles(temp_dir,"*.*");
-}
-
-/****************************************************************************/
-/* Download files from batch queue */
-/****************************************************************************/
-void start_batch_download()
-{
- char ch,str[256],tmp2[256],tmp3[128],fname[64];
- int j;
- uint i,xfrprot;
- ulong totalcdt,totalsize,totaltime;
- time_t start,end;
- file_t f;
-
-if(useron.rest&FLAG('D')) { /* Download restriction */
- bputs(text[R_Download]);
- return; }
-for(i=0,totalcdt=0;i<batdn_total;i++)
- totalcdt+=batdn_cdt[i];
-if(!(useron.exempt&FLAG('D'))
- && totalcdt>useron.cdt+useron.freecdt) {
- bprintf(text[YouOnlyHaveNCredits]
- ,ultoac(useron.cdt+useron.freecdt,tmp));
- return; }
-
-if(online==ON_LOCAL) { /* Local download */
- bputs(text[EnterPath]);
- if(!getstr(str,60,K_LINE|K_UPPER))
- return;
- backslash(str);
- for(i=0;i<batdn_total;i++) {
- curdirnum=batdn_dir[i]; /* for ARS */
- lncntr=0;
- unpadfname(batdn_name[i],tmp);
- sprintf(tmp2,"%s%s",str,tmp);
- seqwait(dir[batdn_dir[i]]->seqdev);
- bprintf(text[RetrievingFile],tmp);
- sprintf(tmp3,"%s%s"
- ,batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1]
- : dir[batdn_dir[i]]->path
- ,tmp);
- j=mv(tmp3,tmp2,1);
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=30; /* clear the seq dev # */
- putnodedat(node_num,thisnode);
- CRLF;
- if(j) /* copy unsuccessful */
- return;
- for(j=0;j<total_dlevents;j++)
- if(!stricmp(dlevent[j]->ext,batdn_name[i]+9)
- && chk_ar(dlevent[j]->ar,useron)) {
- bputs(dlevent[j]->workstr);
- external(cmdstr(dlevent[j]->cmd,tmp2,nulstr,NULL),EX_OUTL);
- CRLF; }
- }
- for(i=0;i<batdn_total;i++) {
- curdirnum=batdn_dir[i]; /* for ARS */
- f.dir=batdn_dir[i];
- strcpy(f.name,batdn_name[i]);
- f.datoffset=batdn_offset[i];
- f.size=batdn_size[i];
- f.altpath=batdn_alt[i];
- downloadfile(f);
- closefile(f); }
- batdn_total=0;
- return; }
-
-for(i=0,totalsize=totaltime=0;i<batdn_total;i++) {
- totalsize+=batdn_size[i];
- if(!(dir[batdn_dir[i]]->misc&DIR_TFREE) && cur_cps)
- totaltime+=batdn_size[i]/(ulong)cur_cps; }
-if(!(useron.exempt&FLAG('T')) && !SYSOP && totaltime>timeleft) {
- bputs(text[NotEnoughTimeToDl]);
- return; }
-menu("BATDPROT");
-if(!create_batchdn_lst())
- return;
-if(!create_bimodem_pth())
- return;
-ASYNC;
-mnemonics(text[ProtocolOrQuit]);
-strcpy(tmp2,"Q");
-for(i=0;i<total_prots;i++)
- if(prot[i]->batdlcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(tmp2,tmp); }
-ungetkey(useron.prot);
-ch=getkeys(tmp2,0);
-if(ch=='Q' || sys_status&SS_ABORT)
- return;
-for(i=0;i<total_prots;i++)
- if(prot[i]->batdlcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
-if(i<total_prots) {
- xfrprot=i;
- /* delfiles(temp_dir,"*.*"); fix for CD-ROM */
- for(i=0;i<batdn_total;i++) {
- curdirnum=batdn_dir[i]; /* for ARS */
- unpadfname(batdn_name[i],fname);
- if(dir[batdn_dir[i]]->seqdev) {
- lncntr=0;
- sprintf(tmp2,"%s%s",temp_dir,fname);
- if(!fexist(tmp2)) {
- seqwait(dir[batdn_dir[i]]->seqdev);
- bprintf(text[RetrievingFile],fname);
- sprintf(str,"%s%s"
- ,batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1]
- : dir[batdn_dir[i]]->path
- ,fname);
- mv(str,tmp2,1); /* copy the file to temp dir */
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=40; /* clear the seq dev # */
- putnodedat(node_num,thisnode);
- CRLF; } }
- else
- sprintf(tmp2,"%s%s"
- ,batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1]
- : dir[batdn_dir[i]]->path
- ,fname);
- sprintf(str,"total_dlevents=%d",total_dlevents);
-// logline("dl",str);
- for(j=0;j<total_dlevents;j++) {
-// logline("dl",dlevent[j]->ext);
- // logline("dl",dlevent[j]->cmd);
- // logline("dl",tmp2);
- if(stricmp(dlevent[j]->ext,batdn_name[i]+9))
- continue;
-// logline("dl","chkar");
- if(!chk_ar(dlevent[j]->ar,useron))
- continue;
-// logline("dl","bputs");
- bputs(dlevent[j]->workstr);
-// logline("dl","external");
- external(cmdstr(dlevent[j]->cmd,tmp2,nulstr,NULL),EX_OUTL);
-// logline("dl","crlf");
- CRLF; }
-// logline("dl","after dlevents");
- }
-
- sprintf(str,"%sBATCHDN.LST",node_dir);
- getnodedat(node_num,&thisnode,1);
- action=NODE_DLNG;
- if(cur_cps)
- unixtodos(now+(totalsize/(ulong)cur_cps)
- ,&date,&curtime);
- thisnode.aux=(curtime.ti_hour*60)+curtime.ti_min;
- thisnode.action=action;
- putnodedat(node_num,thisnode); /* calculate ETA */
- start=time(NULL);
- protocol(cmdstr(prot[xfrprot]->batdlcmd,str,nulstr,NULL),0);
- end=time(NULL);
- batch_download(xfrprot);
- if(batdn_total)
- notdownloaded(totalsize,start,end);
- /* delfiles(temp_dir,"*.*"); fix for CD-ROM */
- autohangup(); }
-}
-
-/*****************************************************************************/
-/* Temp directory section. Files must be extracted here and both temp_uler */
-/* and temp_uler fields should be filled before entrance. */
-/*****************************************************************************/
-void temp_xfer()
-{
- char str[256],tmp2[256],done=0,ch;
- uint i,dirnum=total_dirs,j,files;
- ulong bytes;
- time_t start,end;
- struct ffblk ff;
- struct dfree d;
- file_t f;
-
-if(!usrlibs)
- return;
-if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- return; }
-/*************************************/
-/* Create TEMP directory information */
-/*************************************/
-if((dir[dirnum]=(dir_t *)MALLOC(sizeof(dir_t)))==0) {
- errormsg(WHERE,ERR_ALLOC,"temp_dir",sizeof(dir_t));
- return; }
-memset(dir[dirnum],0,sizeof(dir_t));
-dir[dirnum]->lname="Temporary";
-dir[dirnum]->sname="Temp";
-strcpy(dir[dirnum]->code,"TEMP");
-dir[dirnum]->path=temp_dir;
-dir[dirnum]->maxfiles=MAX_FILES;
-dir[dirnum]->data_dir=dir[0]->data_dir;
-dir[dirnum]->op_ar=nulstr;
-temp_dirnum=curdirnum=usrdir[curlib][curdir[curlib]];
-total_dirs++;
-
-/****************************/
-/* Fill filedat information */
-/****************************/
-sprintf(f.name,"TEMP_%3.3d.%s",node_num,useron.tmpext);
-strcpy(f.desc,"Temp File");
-f.dir=dirnum;
-f.misc=f.timesdled=f.dateuled=f.datedled=0L;
-
-if(useron.misc&(RIP|WIP) && !(useron.misc&EXPERT))
- menu("TEMPXFER");
-lncntr=0;
-while(online && !done) {
- if(!(useron.misc&(EXPERT|RIP|WIP))) {
- sys_status&=~SS_ABORT;
- if(lncntr) {
- SYNC;
- CRLF;
- if(lncntr) /* CRLF or SYNC can cause pause */
- pause(); }
- menu("TEMPXFER"); }
- ASYNC;
- bputs(text[TempDirPrompt]);
- strcpy(f.uler,temp_uler);
- ch=getkeys("ADEFNILQRVX?\r",0);
- if(ch>SP)
- logch(ch,0);
- switch(ch) {
- case 'A': /* add to temp file */
- if(temp_dir[1]==':')
- i=temp_dir[0]-'A'+1;
- else i=0;
- getdfree(i,&d);
- if(d.df_sclus==0xffff)
- errormsg(WHERE,ERR_CHK,temp_dir,0);
- if((ulong)d.df_bsec*(ulong)d.df_sclus
- *(ulong)d.df_avail<(ulong)min_dspace*1024L) {
- bputs(text[LowDiskSpace]);
- sprintf(str,"Diskspace is low: %s",temp_dir);
- errorlog(str);
- if(!dir_op(dirnum))
- break; }
- bprintf(text[DiskNBytesFree],ultoac((ulong)d.df_bsec
- *(ulong)d.df_sclus*(ulong)d.df_avail,tmp));
- if(!getfilespec(str))
- break;
- if(!checkfname(str))
- break;
- sprintf(tmp2,"Added %s to %s",str,f.name);
- logline(nulstr,tmp2);
- sprintf(tmp2,"%s%s",temp_dir,str);
- sprintf(str,"%s%s",temp_dir,f.name);
- external(cmdstr(temp_cmd(),str,tmp2,NULL),EX_CC|EX_OUTL|EX_OUTR);
- break;
- case 'D': /* download from temp dir */
- sprintf(str,"%s%s",temp_dir,f.name);
- if(!fexist(str)) {
- bprintf(text[TempFileNotCreatedYet],f.name);
- break; }
- f.size=f.cdt=flength(str);
- f.opencount=0;
- if(temp_cdt) /* if file was not free */
- f.cdt=f.size;
- else
- f.cdt=0;
- if(!(useron.exempt&FLAG('D'))
- && f.cdt>useron.cdt+useron.freecdt) {
- bprintf(text[YouOnlyHaveNCredits]
- ,ultoac(useron.cdt+useron.freecdt,tmp));
- break; } /* f.cdt must equal size here */
- if(!(useron.exempt&FLAG('T')) && !dir_op(dirnum)
- && !(dir[temp_dirnum]->misc&DIR_TFREE) && cur_cps
- && f.size/(ulong)cur_cps>timeleft) {
- bputs(text[NotEnoughTimeToDl]);
- break; }
- if(!chk_ar(dir[temp_dirnum]->dl_ar,useron)) {
- bputs(text[CantDownloadFromDir]);
- break; }
- addfiledat(&f);
- menu("DLPROT");
- SYNC;
- mnemonics(text[ProtocolOrQuit]);
- strcpy(tmp2,"Q");
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(tmp2,tmp); }
- ungetkey(useron.prot);
- ch=getkeys(tmp2,0);
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- getnodedat(node_num,&thisnode,1);
- action=NODE_DLNG;
- if(cur_cps)
- unixtodos(now+(f.size/(ulong)cur_cps)
- ,&date,&curtime);
- thisnode.aux=(curtime.ti_hour*60)+curtime.ti_min;
- putnodedat(node_num,thisnode); /* calculate ETA */
- start=time(NULL);
- j=protocol(cmdstr(prot[i]->dlcmd,str,nulstr,NULL),0);
- end=time(NULL);
- if(dir[temp_dirnum]->misc&DIR_TFREE)
- starttime+=end-start;
- if(prot[i]->misc&PROT_DSZLOG) {
- if(checkprotlog(f))
- downloadfile(f);
- else
- notdownloaded(f.size,start,end); }
- else {
- if(!j)
- downloadfile(f);
- else {
- bprintf(text[FileNotSent],f.name);
- notdownloaded(f.size,start,end); } }
- autohangup(); }
- removefiledat(f);
- break;
- case 'E':
- extract(usrdir[curlib][curdir[curlib]]);
- sys_status&=~SS_ABORT;
- break;
- case 'F': /* Create a file list */
- delfiles(temp_dir,"*.*");
- create_filelist("FILELIST.TXT",0);
- if(!(sys_status&SS_ABORT))
- logline(nulstr,"Created list of all files");
- CRLF;
- sys_status&=~SS_ABORT;
- break;
- case 'I': /* information on what's here */
- bprintf(text[TempFileInfo],f.uler,temp_file);
- break;
- case 'L': /* list files in dir */
- if(!getfilespec(str))
- break;
- if(!checkfname(str))
- break;
- bytes=files=0L;
- CRLF;
- sprintf(tmp2,"%s%s",temp_dir,str);
- i=findfirst(tmp2,&ff,0);
- while(!i && !msgabort()) {
- bprintf("%s %10s\r\n",padfname(ff.ff_name,str)
- ,ultoac(ff.ff_fsize,tmp));
- files++;
- bytes+=ff.ff_fsize;
- i=findnext(&ff); }
- if(!files)
- bputs(text[EmptyDir]);
- else if(files>1)
- bprintf(text[TempDirTotal],ultoac(bytes,tmp),files);
- break;
- case 'N': /* Create a list of new files */
- delfiles(temp_dir,"*.*");
- create_filelist("NEWFILES.TXT",FL_ULTIME);
- if(!(sys_status&SS_ABORT))
- logline(nulstr,"Created list of new files");
- CRLF;
- sys_status&=~SS_ABORT;
- break;
- case 'R': /* Remove files from dir */
- if(!getfilespec(str))
- break;
- // padfname(str,tmp); Removed 04/14/96
- bprintf(text[NFilesRemoved],delfiles(temp_dir,tmp));
- break;
- case 'V': /* view files in dir */
- bputs(text[FileSpec]);
- if(!getstr(str,12,K_UPPER) || !checkfname(str))
- break;
- viewfiles(dirnum,str);
- break;
- case CR:
- case 'Q': /* quit */
- done=1;
- break;
- case 'X': /* extract from archive in temp dir */
- extract(dirnum);
- sys_status&=~SS_ABORT;
- break;
- case '?': /* menu */
- if(useron.misc&(EXPERT|RIP|WIP))
- menu("TEMPXFER");
- break; }
- if(sys_status&SS_ABORT)
- break; }
-FREE(dir[dirnum]);
-total_dirs--;
-}
-
-
-/****************************************************************************/
-/* Re-sorts file directory 'dirnum' according to dir[dirnum]->sort type */
-/****************************************************************************/
-void resort(uint dirnum)
-{
- char str[25],ixbfname[128],datfname[128],exbfname[128],txbfname[128]
- ,ext[512],nulbuf[512];
- uchar HUGE16 *ixbbuf, HUGE16 *datbuf;
- uchar HUGE16 *ixbptr[MAX_FILES];
- int ixbfile,datfile,exbfile,txbfile,i,j;
- ulong ixblen,datlen,offset,newoffset,l;
-
-memset(nulbuf,0,512);
-bprintf(text[ResortLineFmt],lib[dir[dirnum]->lib]->sname,dir[dirnum]->sname);
-sprintf(ixbfname,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-sprintf(datfname,"%s%s.DAT",dir[dirnum]->data_dir,dir[dirnum]->code);
-sprintf(exbfname,"%s%s.EXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-sprintf(txbfname,"%s%s.TXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-
-if(flength(ixbfname)<1L || flength(datfname)<1L) {
- remove(exbfname);
- remove(txbfname);
- remove(ixbfname);
- remove(datfname);
- bputs(text[ResortEmptyDir]);
- return; }
-bputs(text[Sorting]);
-if((ixbfile=nopen(ixbfname,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,ixbfname,O_RDONLY);
- return; }
-if((datfile=nopen(datfname,O_RDONLY))==-1) {
- close(ixbfile);
- errormsg(WHERE,ERR_OPEN,datfname,O_RDONLY);
- return; }
-ixblen=filelength(ixbfile);
-datlen=filelength(datfile);
-if((ixbbuf=MALLOC(ixblen))==NULL) {
- close(ixbfile);
- close(datfile);
- errormsg(WHERE,ERR_ALLOC,ixbfname,ixblen);
- return; }
-if((datbuf=MALLOC(datlen))==NULL) {
- close(ixbfile);
- close(datfile);
- FREE((char *)ixbbuf);
- errormsg(WHERE,ERR_ALLOC,datfname,datlen);
- return; }
-if(lread(ixbfile,ixbbuf,ixblen)!=ixblen) {
- close(ixbfile);
- close(datfile);
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- errormsg(WHERE,ERR_READ,ixbfname,ixblen);
- return; }
-if(lread(datfile,datbuf,datlen)!=datlen) {
- close(ixbfile);
- close(datfile);
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- errormsg(WHERE,ERR_READ,datfname,datlen);
- return; }
-close(ixbfile);
-close(datfile);
-if((ixbfile=nopen(ixbfname,O_WRONLY|O_TRUNC))==-1) {
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- errormsg(WHERE,ERR_OPEN,ixbfname,O_WRONLY|O_TRUNC);
- return; }
-if((datfile=nopen(datfname,O_WRONLY|O_TRUNC))==-1) {
- close(ixbfile);
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- errormsg(WHERE,ERR_OPEN,datfname,O_WRONLY|O_TRUNC);
- return; }
-for(l=0,i=0;l<ixblen && i<MAX_FILES;l+=F_IXBSIZE,i++)
- ixbptr[i]=ixbbuf+l;
-switch(dir[dirnum]->sort) {
- case SORT_NAME_A:
- qsort((void *)ixbptr,ixblen/F_IXBSIZE,sizeof(ixbptr[0])
- ,(int(*)(const void*, const void*))fnamecmp_a);
- break;
- case SORT_NAME_D:
- qsort((void *)ixbptr,ixblen/F_IXBSIZE,sizeof(ixbptr[0])
- ,(int(*)(const void*, const void*))fnamecmp_d);
- break;
- case SORT_DATE_A:
- qsort((void *)ixbptr,ixblen/F_IXBSIZE,sizeof(ixbptr[0])
- ,(int(*)(const void*, const void*))fdatecmp_a);
- break;
- case SORT_DATE_D:
- qsort((void *)ixbptr,ixblen/F_IXBSIZE,sizeof(ixbptr[0])
- ,(int(*)(const void*, const void*))fdatecmp_d);
- break; }
-
-if((exbfile=nopen(exbfname,O_RDWR|O_CREAT))==-1) {
- close(ixbfile);
- close(datfile);
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- errormsg(WHERE,ERR_OPEN,exbfname,O_RDWR|O_CREAT);
- return; }
-if((txbfile=nopen(txbfname,O_RDWR|O_CREAT))==-1) {
- close(exbfile);
- close(datfile);
- close(exbfile);
- FREE((char *)ixbbuf);
- FREE((char *)datbuf);
- errormsg(WHERE,ERR_OPEN,txbfname,O_RDWR|O_CREAT);
- return; }
-
-for(i=0;i<ixblen/F_IXBSIZE;i++) {
- offset=ixbptr[i][11]|((long)ixbptr[i][12]<<8)|((long)ixbptr[i][13]<<16);
- lwrite(datfile,&datbuf[offset],F_LEN);
-
- newoffset=(ulong)i*(ulong)F_LEN;
-
- j=datbuf[offset+F_MISC]; /* misc bits */
- if(j!=ETX) j-=SP;
- if(j&FM_EXTDESC) { /* extended description */
- lseek(exbfile,(offset/F_LEN)*512L,SEEK_SET);
- memset(ext,0,512);
- read(exbfile,ext,512);
- while(filelength(txbfile)<(newoffset/F_LEN)*512L) {
-// lseek(txbfile,0L,SEEK_END);
- write(txbfile,nulbuf,512); }
- lseek(txbfile,(newoffset/F_LEN)*512L,SEEK_SET);
- write(txbfile,ext,512); }
-
- str[0]=newoffset&0xff; /* Get offset within DAT file for IXB file */
- str[1]=(newoffset>>8)&0xff;
- str[2]=(newoffset>>16)&0xff;
- lwrite(ixbfile,ixbptr[i],11); /* filename */
- lwrite(ixbfile,str,3); /* offset */
- lwrite(ixbfile,ixbptr[i]+14,8); } /* upload and download times */
-close(exbfile);
-close(txbfile);
-close(ixbfile);
-close(datfile);
-remove(exbfname);
-rename(txbfname,exbfname);
-if(!flength(exbfname))
- remove(exbfname);
-FREE((char *)ixbbuf);
-FREE((char *)datbuf);
-if(ixblen/F_IXBSIZE==datlen/F_LEN)
- bputs(text[Sorted]);
-else
- bprintf(text[Compressed]
- ,(uint)((datlen/F_LEN)-(ixblen/F_IXBSIZE))
- ,ultoac(((datlen/F_LEN)-(ixblen/F_IXBSIZE))*F_LEN,tmp));
-}
-
-/*****************************************************************************/
-/* Handles extraction from a normal transfer file to the temp directory */
-/*****************************************************************************/
-void extract(uint dirnum)
-{
- char fname[13],str[256],excmd[256],path[256],done
- ,files[256],tmp[256],intmp=0;
- int i,j;
- struct ffblk ff;
- file_t f;
- struct dfree d;
-
-temp_dirnum=curdirnum=dirnum;
-if(!strcmp(dir[dirnum]->code,"TEMP"))
- intmp=1;
-if(temp_dir[1]==':')
- i=temp_dir[0]-'A'+1;
-else i=0;
-getdfree(i,&d);
-if(d.df_sclus==0xffff)
- errormsg(WHERE,ERR_CHK,temp_dir,0);
-if((ulong)d.df_bsec*(ulong)d.df_sclus
- *(ulong)d.df_avail<(ulong)min_dspace*1024L) {
- bputs(text[LowDiskSpace]);
- sprintf(str,"Diskspace is low: %s",temp_dir);
- errorlog(str);
- if(!dir_op(dirnum))
- return; }
-else if(!intmp) { /* not in temp dir */
- CRLF; }
-bprintf(text[DiskNBytesFree],ultoac((ulong)d.df_bsec
- *(ulong)d.df_sclus*(ulong)d.df_avail,tmp));
-if(!intmp) { /* not extracting FROM temp directory */
- sprintf(str,"%s*.*",temp_dir);
- if(fexist(str)) {
- bputs(text[RemovingTempFiles]);
- done=findfirst(str,&ff,0);
- while(!done) {
- sprintf(str,"%s%s",temp_dir,ff.ff_name);
- remove(str);
- done=findnext(&ff); }
- CRLF; } }
-bputs(text[ExtractFrom]);
-if(!getstr(fname,12,K_UPPER) || !checkfname(fname) || strchr(fname,'*')
- || strchr(fname,'?'))
- return;
-padfname(fname,f.name);
-strcpy(str,f.name);
-truncsp(str);
-for(i=0;i<total_fextrs;i++)
- if(!strcmp(str+9,fextr[i]->ext) && chk_ar(fextr[i]->ar,useron)) {
- strcpy(excmd,fextr[i]->cmd);
- break; }
-if(i==total_fextrs) {
- bputs(text[UnextractableFile]);
- return; }
-if(!intmp && !findfile(dirnum,f.name)) { /* not temp dir */
- bputs(text[SearchingAllDirs]);
- for(i=0;i<usrdirs[curlib] && !msgabort();i++) {
- if(i==dirnum) continue;
- if(findfile(usrdir[curlib][i],f.name))
- break; }
- if(i==usrdirs[curlib]) { /* not found in cur lib */
- bputs(text[SearchingAllLibs]);
- for(i=0;i<usrlibs;i++) {
- if(i==curlib) continue;
- for(j=0;j<usrdirs[i] && !msgabort();j++)
- if(findfile(usrdir[i][j],f.name))
- break;
- if(j<usrdirs[i])
- break; }
- if(i==usrlibs) {
- bputs(text[FileNotFound]); /* not in database */
- return; }
- dirnum=usrdir[i][j]; }
- else
- dirnum=usrdir[curlib][i]; }
-if(sys_status&SS_ABORT)
- return;
-sprintf(path,"%s%s",dir[dirnum]->path,fname);
-if(!intmp) { /* not temp dir, so get temp_file info */
- f.datoffset=f.dateuled=f.datedled=0L;
- f.dir=dirnum;
- getfileixb(&f);
- if(!f.datoffset && !f.dateuled && !f.datedled) /* error reading ixb */
- return;
- f.size=0;
- getfiledat(&f);
- fileinfo(f);
- if(f.altpath>0 && f.altpath<=altpaths)
- sprintf(path,"%s%s",altpath[f.altpath-1],fname);
- temp_dirnum=dirnum;
- if(dir[f.dir]->misc&DIR_FREE)
- temp_cdt=0L;
- else
- temp_cdt=f.cdt;
- strcpy(temp_uler,f.uler);
- strcpy(temp_file,f.name); } /* padded filename */
-if(!fexist(path)) {
- bputs(text[FileNotThere]); /* not on disk */
- return; }
-done=0;
-while(online && !done) {
- mnemonics(text[ExtractFilesPrompt]);
- switch(getkeys("EVQ",0)) {
- case 'E':
- if(!getfilespec(str))
- break;
- if(!checkfname(str))
- break;
- if((i=external(cmdstr(excmd,path,str,NULL)
- ,EX_INR|EX_OUTL|EX_OUTR|EX_CC))!=0) {
- errormsg(WHERE,ERR_EXEC,cmdstr(excmd,path,str,NULL),i);
- return; }
- sprintf(tmp,"Extracted %s from %s",str,path);
- logline(nulstr,tmp);
- CRLF;
- break;
- case 'V':
- viewfiles(dirnum,fname);
- break;
- default:
- done=1;
- break; } }
-}
-
-/****************************************************************************/
-/* Creates the file BATCHDN.LST in the node directory. Returns 1 if */
-/* everything goes okay. 0 if not. */
-/****************************************************************************/
-int create_batchdn_lst()
-{
- char str[256];
- int i,file;
-
-sprintf(str,"%sBATCHDN.LST",node_dir);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return(0); }
-for(i=0;i<batdn_total;i++) {
- if(batdn_dir[i]>=total_dirs || dir[batdn_dir[i]]->seqdev)
- strcpy(str,temp_dir);
- else
- strcpy(str,batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1] : dir[batdn_dir[i]]->path);
- write(file,str,strlen(str));
- unpadfname(batdn_name[i],str);
- strcat(str,crlf);
- write(file,str,strlen(str)); }
-close(file);
-return(1);
-}
-
-/****************************************************************************/
-/* Creates the file BATCHUP.LST in the node directory. Returns 1 if */
-/* everything goes okay. 0 if not. */
-/* This list is not used by any protocols to date. */
-/****************************************************************************/
-int create_batchup_lst()
-{
- char str[256];
- int i,file;
-
-sprintf(str,"%sBATCHUP.LST",node_dir);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return(0); }
-for(i=0;i<batup_total;i++) {
- if(batup_dir[i]>=total_dirs)
- strcpy(str,temp_dir);
- else
- strcpy(str,batup_alt[i]>0 && batup_alt[i]<=altpaths
- ? altpath[batup_alt[i]-1] : dir[batup_dir[i]]->path);
- write(file,str,strlen(str));
- unpadfname(batup_name[i],str);
- strcat(str,crlf);
- write(file,str,strlen(str)); }
-close(file);
-return(1);
-}
-
-/****************************************************************************/
-/* Creates the file BIMODEM.PTH in the node directory. Returns 1 if */
-/* everything goes okay. 0 if not. */
-/****************************************************************************/
-int create_bimodem_pth()
-{
- char str[256],tmp2[512];
- int i,file;
-
-sprintf(str,"%sBIMODEM.PTH",node_dir); /* Create bimodem file */
-if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return(0); }
-for(i=0;i<batup_total;i++) {
- sprintf(str,"%s%s",batup_dir[i]>=total_dirs ? temp_dir
- : batup_alt[i]>0 && batup_alt[i]<=altpaths
- ? altpath[batup_alt[i]-1] : dir[batup_dir[i]]->path
- ,unpadfname(batup_name[i],tmp));
- sprintf(tmp2,"D %-80.80s%-160.160s"
- ,unpadfname(batup_name[i],tmp),str);
- write(file,tmp2,248); }
-for(i=0;i<batdn_total;i++) {
- sprintf(str,"%s%s"
- ,(batdn_dir[i]>=total_dirs || dir[batdn_dir[i]]->seqdev)
- ? temp_dir : batdn_alt[i]>0 && batdn_alt[i]<=altpaths
- ? altpath[batdn_alt[i]-1] : dir[batdn_dir[i]]->path
- ,unpadfname(batdn_name[i],tmp));
- sprintf(tmp2,"U %-240.240s",str);
- write(file,tmp2,248); }
-close(file);
-return(1);
-}
-
-/****************************************************************************/
-/* Processes files that were supposed to be received in the batch queue */
-/****************************************************************************/
-void batch_upload()
-{
- char str1[256],str2[256];
- int i,j,x,y;
- file_t f;
- struct ffblk ff;
-
-for(i=0;i<batup_total;) {
- curdirnum=batup_dir[i]; /* for ARS */
- lncntr=0; /* defeat pause */
- unpadfname(batup_name[i],tmp);
- sprintf(str1,"%s%s",temp_dir,tmp);
- sprintf(str2,"%s%s",dir[batup_dir[i]]->path,tmp);
- if(fexist(str1) && fexist(str2)) { /* file's in two places */
- bprintf(text[FileAlreadyThere],batup_name[i]);
- remove(str1); /* this is the one received */
- i++;
- continue; }
- if(fexist(str1))
- mv(str1,str2,0);
- strcpy(f.name,batup_name[i]);
- strcpy(f.desc,batup_desc[i]);
- f.dir=batup_dir[i];
- f.misc=batup_misc[i];
- f.altpath=batup_alt[i];
- if(uploadfile(&f)) {
- batup_total--;
- for(j=i;j<batup_total;j++) {
- batup_dir[j]=batup_dir[j+1];
- batup_alt[j]=batup_alt[j+1];
- batup_misc[j]=batup_misc[j+1];
- strcpy(batup_name[j],batup_name[j+1]);
- strcpy(batup_desc[j],batup_desc[j+1]); } }
- else i++; }
-if(upload_dir==INVALID_DIR)
- return;
-sprintf(str1,"%s*.*",temp_dir);
-i=findfirst(str1,&ff,0);
-while(!i) {
- memset(&f,0,sizeof(file_t));
- f.dir=upload_dir;
- padfname(ff.ff_name,f.name);
- strupr(f.name);
- sprintf(str1,"%s%s",temp_dir,ff.ff_name);
- for(x=0;x<usrlibs;x++) {
- for(y=0;y<usrdirs[x];y++)
- if(dir[usrdir[x][y]]->misc&DIR_DUPES
- && findfile(usrdir[x][y],f.name))
- break;
- if(y<usrdirs[x])
- break; }
- sprintf(str2,"%s%s",dir[f.dir]->path,ff.ff_name);
- if(x<usrlibs || fexist(str2)) {
- bprintf(text[FileAlreadyOnline],f.name);
- remove(str1); }
- else {
- mv(str1,str2,0);
- uploadfile(&f); }
- i=findnext(&ff); }
-}
-
-/****************************************************************************/
-/* Processes files that were supposed to be sent from the batch queue */
-/* xfrprot is -1 if downloading files from within QWK (no DSZLOG) */
-/****************************************************************************/
-void batch_download(int xfrprot)
-{
- int i,j;
- file_t f;
-
-for(i=0;i<batdn_total;) {
- lncntr=0; /* defeat pause */
- f.dir=curdirnum=batdn_dir[i];
- strcpy(f.name,batdn_name[i]);
- f.datoffset=batdn_offset[i];
- f.size=batdn_size[i];
-/* Removed 05/18/95
- if(dir[f.dir]->misc&DIR_TFREE && cur_cps) Looks like it gave back double
- starttime+=f.size/(ulong)cur_cps;
-*/
- f.altpath=batdn_alt[i];
- if(xfrprot==-1 || (prot[xfrprot]->misc&PROT_DSZLOG && checkprotlog(f))
- || !(prot[xfrprot]->misc&PROT_DSZLOG)) {
- if(dir[f.dir]->misc&DIR_TFREE && cur_cps)
- starttime+=f.size/(ulong)cur_cps;
- downloadfile(f);
- closefile(f);
- batdn_total--;
- for(j=i;j<batdn_total;j++) {
- strcpy(batdn_name[j],batdn_name[j+1]);
- batdn_dir[j]=batdn_dir[j+1];
- batdn_cdt[j]=batdn_cdt[j+1];
- batdn_alt[j]=batdn_alt[j+1];
- batdn_size[j]=batdn_size[j+1];
- batdn_offset[j]=batdn_offset[j+1]; } }
- else i++; }
-}
-
-/****************************************************************************/
-/* Adds a list of files to the batch download queue */
-/****************************************************************************/
-void batch_add_list(char *list)
-{
- char str[128];
- int file,i,j,k;
- FILE *stream;
- file_t f;
-
-if((stream=fnopen(&file,list,O_RDONLY))!=NULL) {
- bputs(text[SearchingAllLibs]);
- while(!feof(stream)) {
- checkline();
- if(!online)
- break;
- if(!fgets(str,127,stream))
- break;
- truncsp(str);
- sprintf(f.name,"%.12s",str);
- strupr(f.name);
- lncntr=0;
- for(i=k=0;i<usrlibs;i++) {
- for(j=0;j<usrdirs[i];j++,k++) {
- outchar('.');
- if(k && !(k%5))
- bputs("\b\b\b\b\b \b\b\b\b\b");
- if(findfile(usrdir[i][j],f.name))
- break; }
- if(j<usrdirs[i])
- break; }
- if(i<usrlibs) {
- f.dir=usrdir[i][j];
- getfileixb(&f);
- f.size=0;
- getfiledat(&f);
- if(f.size==-1L)
- bprintf(text[FileIsNotOnline],f.name);
- else
- addtobatdl(f); } }
- fclose(stream);
- remove(list);
- CRLF; }
-}
-
-/****************************************************************************/
-/* Creates a text file named NEWFILES.DAT in the temp directory that */
-/* all new files since p-date. Returns number of files in list. */
-/****************************************************************************/
-ulong create_filelist(char *name, char mode)
-{
- char str[256];
- int i,j,d,file;
- ulong l,k;
-
-bprintf(text[CreatingFileList],name);
-sprintf(str,"%s%s",temp_dir,name);
-if((file=nopen(str,O_CREAT|O_WRONLY|O_APPEND))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_CREAT|O_WRONLY|O_APPEND);
- return(0); }
-k=0;
-if(mode&FL_ULTIME) {
- sprintf(str,"New files since: %s\r\n",timestr(&ns_time));
- write(file,str,strlen(str)); }
-for(i=d=0;i<usrlibs;i++) {
- for(j=0;j<usrdirs[i];j++,d++) {
- outchar('.');
- if(d && !(d%5))
- bputs("\b\b\b\b\b \b\b\b\b\b");
- if(mode&FL_ULTIME /* New-scan */
- && (lib[usrlib[i]]->offline_dir==usrdir[i][j]
- || dir[usrdir[i][j]]->misc&DIR_NOSCAN))
- continue;
- l=listfiles(usrdir[i][j],nulstr,file,mode);
- if((long)l==-1)
- break;
- k+=l; }
- if(j<usrdirs[i])
- break; }
-if(k>1) {
- sprintf(str,"\r\n%d Files Listed.\r\n",k);
- write(file,str,strlen(str)); }
-close(file);
-if(k)
- bprintf(text[CreatedFileList],name);
-else {
- bputs(text[NoFiles]);
- sprintf(str,"%s%s",temp_dir,name);
- remove(str); }
-strcpy(temp_file,name);
-strcpy(temp_uler,"File List");
-return(k);
-}
-
diff --git a/src/sbbs2/xfer_lo.c b/src/sbbs2/xfer_lo.c
deleted file mode 100644
index 21fb1e7f96c68628c259060db81fbc989eec13c6..0000000000000000000000000000000000000000
--- a/src/sbbs2/xfer_lo.c
+++ /dev/null
@@ -1,209 +0,0 @@
-#line 1 "XFER_LO.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* Prompts user for file specification. <CR> is *.* and .* is assumed. */
-/* Returns padded file specification. */
-/* Returns NULL if input was aborted. */
-/****************************************************************************/
-char *getfilespec(char *str)
-{
-bputs(text[FileSpecStarDotStar]);
-if(!getstr(str,12,K_UPPER))
- strcpy(str,"*.*");
-else if(!strchr(str,'.') && strlen(str)<=8)
- strcat(str,".*");
-if(sys_status&SS_ABORT)
- return(0);
-return(str);
-}
-
-/****************************************************************************/
-/* Turns FILE.EXT into FILE .EXT */
-/****************************************************************************/
-char *padfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0;c<8;c++)
- if(filename[c]=='.' || !filename[c]) break;
- else str[c]=filename[c];
-d=c;
-if(filename[c]=='.') c++;
-while(d<8)
- str[d++]=SP;
-str[d++]='.';
-while(d<12)
- if(!filename[c]) break;
- else str[d++]=filename[c++];
-while(d<12)
- str[d++]=SP;
-str[d]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Turns FILE .EXT into FILE.EXT */
-/****************************************************************************/
-char *unpadfname(char *filename, char *str)
-{
- char c,d;
-
-for(c=0,d=0;c<strlen(filename);c++)
- if(filename[c]!=SP) str[d++]=filename[c];
-str[d]=0;
-return(str);
-}
-
-/****************************************************************************/
-/* Checks to see if filename matches filespec. Returns 1 if yes, 0 if no */
-/****************************************************************************/
-char filematch(char *filename, char *filespec)
-{
- char c;
-
-for(c=0;c<8;c++) /* Handle Name */
- if(filespec[c]=='*') break;
- else if(filespec[c]=='?') continue;
- else if(filename[c]!=filespec[c]) return(0);
-for(c=9;c<12;c++)
- if(filespec[c]=='*') break;
- else if(filespec[c]=='?') continue;
- else if(filename[c]!=filespec[c]) return(0);
-return(1);
-}
-
-/****************************************************************************/
-/* Deletes all files in dir 'path' that match file spec 'spec' */
-/****************************************************************************/
-int delfiles(char *inpath, char *spec)
-{
- char str[256],path[128],done;
- int files=0;
- struct ffblk ff;
-
-strcpy(path,inpath);
-backslash(path);
-sprintf(str,"%s%s",path,spec);
-done=findfirst(str,&ff,0);
-while(!done) {
- sprintf(str,"%s%s",path,ff.ff_name);
- _chmod(str,1,FA_NORMAL); // Incase it's been marked RDONLY
- if(remove(str))
- errormsg(WHERE,ERR_REMOVE,str,0);
- else
- files++;
- done=findnext(&ff); }
-return(files);
-}
-
-/*****************************************************************************/
-/* Checks the filename 'fname' for invalid symbol or character sequences */
-/*****************************************************************************/
-char checkfname(char *fname)
-{
- char str[256],c=0,d;
-
-if(strcspn(fname,"\\/|<>+[]:=\";,%")!=strlen(fname)) {
- sprintf(str,"Suspicious filename attempt: '%s'",fname);
- errorlog(str);
- return(0); }
-if(strstr(fname,".."))
- return(0);
-if(strcspn(fname,".")>8)
- return(0);
-d=strlen(fname);
-while(c<d) {
- if(fname[c]<=SP || fname[c]&0x80)
- return(0);
- c++; }
-return(1);
-}
-
-/**************************************************************************/
-/* Add file 'f' to batch download queue. Return 1 if successful, 0 if not */
-/**************************************************************************/
-char addtobatdl(file_t f)
-{
- char str[256],tmp2[256];
- uint i;
- ulong totalcdt, totalsize, totaltime;
-
-if(useron.rest&FLAG('D')) {
- bputs(text[R_Download]);
- return(0); }
-/***
-sprintf(str,"%s%s",f.altpath>0 && f.altpath<=altpaths ? altpath[f.altpath-1]
- : dir[f.dir]->path,unpadfname(f.name,tmp));
-***/
-for(i=0;i<batdn_total;i++) {
- if(!strcmp(batdn_name[i],f.name) && f.dir==batdn_dir[i]) {
- bprintf(text[FileAlreadyInQueue],f.name);
- return(0); } }
-if(f.size<=0 /* !fexist(str) */) {
- bprintf(text[CantAddToQueue],f.name);
- bputs(text[FileIsNotOnline]);
- return(0); }
-if(batdn_total>=max_batdn) {
- bprintf(text[CantAddToQueue],f.name);
- bputs(text[BatchDlQueueIsFull]);
- return(0); }
-for(i=0,totalcdt=0;i<batdn_total;i++)
- totalcdt+=batdn_cdt[i];
-if(dir[f.dir]->misc&DIR_FREE) f.cdt=0L;
-totalcdt+=f.cdt;
-if(!(useron.exempt&FLAG('D')) && totalcdt>useron.cdt+useron.freecdt) {
- bprintf(text[CantAddToQueue],f.name);
- bprintf(text[YouOnlyHaveNCredits],ultoac(useron.cdt+useron.freecdt,tmp));
- return(0); }
-if(!chk_ar(dir[f.dir]->dl_ar,useron)) {
- bprintf(text[CantAddToQueue],f.name);
- bputs(text[CantDownloadFromDir]);
- return(0); }
-for(i=0,totalsize=totaltime=0;i<batdn_total;i++) {
- totalsize+=batdn_size[i];
- if(!(dir[batdn_dir[i]]->misc&DIR_TFREE) && cur_cps)
- totaltime+=batdn_size[i]/(ulong)cur_cps; }
-totalsize+=f.size;
-if(!(dir[f.dir]->misc&DIR_TFREE) && cur_cps)
- totaltime+=f.size/(ulong)cur_cps;
-if(!(useron.exempt&FLAG('T')) && totaltime>timeleft) {
- bprintf(text[CantAddToQueue],f.name);
- bputs(text[NotEnoughTimeToDl]);
- return(0); }
-strcpy(batdn_name[batdn_total],f.name);
-batdn_dir[batdn_total]=f.dir;
-batdn_cdt[batdn_total]=f.cdt;
-batdn_offset[batdn_total]=f.datoffset;
-batdn_size[batdn_total]=f.size;
-batdn_alt[batdn_total]=f.altpath;
-batdn_total++;
-openfile(f);
-bprintf(text[FileAddedToBatDlQueue]
- ,f.name,batdn_total,max_batdn,ultoac(totalcdt,tmp)
- ,ultoac(totalsize,tmp2)
- ,sectostr(totalsize/(ulong)cur_cps,str));
-return(1);
-}
-
-/****************************************************************************/
-/* This function returns the command line for the temp file extension for */
-/* current user online. */
-/****************************************************************************/
-char *temp_cmd(void)
-{
- int i;
-
-if(!total_fcomps) {
- errormsg(WHERE,ERR_CHK,"compressable file types",0);
- return(nulstr); }
-for(i=0;i<total_fcomps;i++)
- if(!stricmp(useron.tmpext,fcomp[i]->ext)
- && chk_ar(fcomp[i]->ar,useron))
- return(fcomp[i]->cmd);
-return(fcomp[0]->cmd);
-}
-
diff --git a/src/sbbs2/xfer_mid.c b/src/sbbs2/xfer_mid.c
deleted file mode 100644
index 4d1cbfe6ce5ec44eedbadb6a573f6c255d507234..0000000000000000000000000000000000000000
--- a/src/sbbs2/xfer_mid.c
+++ /dev/null
@@ -1,792 +0,0 @@
-#line 1 "XFER_MID.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-/****************************************************************************/
-/* This function is called when a file is unsuccessfully downloaded. */
-/* It logs the tranfer time and checks for possible leech protocol use. */
-/****************************************************************************/
-void notdownloaded(ulong size, time_t start, time_t end)
-{
- char str[256],tmp2[256];
-
-sprintf(str,"Estimated Time: %s Transfer Time: %s"
- ,sectostr(cur_cps ? size/cur_cps : 0,tmp)
- ,sectostr((uint)end-start,tmp2));
-logline(nulstr,str);
-if(leech_pct && cur_cps /* leech detection */
- && end-start>=leech_sec
- && end-start>=(double)(size/cur_cps)*(double)leech_pct/100.0) {
- sprintf(str,"Possible use of leech protocol (leech=%u downloads=%u)"
- ,useron.leech+1,useron.dls);
- errorlog(str);
- useron.leech=adjustuserrec(useron.number,U_LEECH,2,1); }
-}
-
-/****************************************************************************/
-/* List detailed information about the files in 'filespec'. Prompts for */
-/* action depending on 'mode.' */
-/* Returns number of files matching filespec that were found */
-/****************************************************************************/
-int listfileinfo(uint dirnum, char *filespec, char mode)
-{
- uchar str[258],path[258],dirpath[256],done=0,ch,fname[13],ext[513];
- uchar HUGE16 *ixbbuf,*usrxfrbuf=NULL,*p;
- int i,j,found=0,file;
- ulong l,m,usrcdt,usrxfrlen;
- time_t start,end;
- file_t f;
-
-sprintf(str,"%sXFER.IXT",data_dir);
-if(mode==FI_USERXFER && flength(str)>0L) {
- if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
- return(0); }
- usrxfrlen=filelength(file);
- if((usrxfrbuf=MALLOC(usrxfrlen))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,usrxfrlen);
- return(0); }
- if(read(file,usrxfrbuf,usrxfrlen)!=usrxfrlen) {
- close(file);
- FREE(usrxfrbuf);
- errormsg(WHERE,ERR_READ,str,usrxfrlen);
- return(0); }
- close(file); }
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1)
- return(0);
-l=filelength(file);
-if(!l) {
- close(file);
- return(0); }
-if((ixbbuf=(char *)MALLOC(l))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,l);
- return(0); }
-if(lread(file,ixbbuf,l)!=l) {
- close(file);
- errormsg(WHERE,ERR_READ,str,l);
- FREE((char *)ixbbuf);
- if(usrxfrbuf)
- FREE(usrxfrbuf);
- return(0); }
-close(file);
-sprintf(str,"%s%s.DAT",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1) {
- errormsg(WHERE,ERR_READ,str,O_RDONLY);
- FREE((char *)ixbbuf);
- if(usrxfrbuf)
- FREE(usrxfrbuf);
- return(0); }
-close(file);
-m=0;
-while(online && !done && m<l) {
- if(mode==FI_REMOVE && dir_op(dirnum))
- action=NODE_SYSP;
- else action=NODE_LFIL;
- if(msgabort()) {
- found=-1;
- break; }
- for(i=0;i<12 && m<l;i++)
- if(i==8)
- str[i]='.';
- else
- str[i]=ixbbuf[m++]; /* Turns FILENAMEEXT into FILENAME.EXT */
- str[i]=0;
- unpadfname(str,fname);
- if(filespec[0] && !filematch(str,filespec)) {
- m+=11;
- continue; }
- f.datoffset=ixbbuf[m]|((long)ixbbuf[m+1]<<8)|((long)ixbbuf[m+2]<<16);
- f.dateuled=ixbbuf[m+3]|((long)ixbbuf[m+4]<<8)
- |((long)ixbbuf[m+5]<<16)|((long)ixbbuf[m+6]<<24);
- f.datedled=ixbbuf[m+7]|((long)ixbbuf[m+8]<<8)
- |((long)ixbbuf[m+9]<<16)|((long)ixbbuf[m+10]<<24);
- m+=11;
- if(mode==FI_OLD && f.datedled>ns_time)
- continue;
- if((mode==FI_OLDUL || mode==FI_OLD) && f.dateuled>ns_time)
- continue;
- f.dir=curdirnum=dirnum;
- strcpy(f.name,str);
- f.size=0;
- getfiledat(&f);
- if(mode==FI_OFFLINE && f.size>=0)
- continue;
- if(f.altpath>0 && f.altpath<=altpaths)
- strcpy(dirpath,altpath[f.altpath-1]);
- else
- strcpy(dirpath,dir[f.dir]->path);
- if(mode==FI_CLOSE && !f.opencount)
- continue;
- if(mode==FI_USERXFER) {
- for(p=usrxfrbuf;p<usrxfrbuf+usrxfrlen;p+=24) {
- sprintf(str,"%17.17s",p); /* %4.4u %12.12s */
- if(!strcmp(str+5,f.name) && useron.number==atoi(str))
- break; }
- if(p>=usrxfrbuf+usrxfrlen) /* file wasn't found */
- continue; }
- if((mode==FI_REMOVE) && (!dir_op(dirnum) && strcmpi(f.uler
- ,useron.alias) && !(useron.exempt&FLAG('R'))))
- continue;
- found++;
- if(mode==FI_INFO) {
- if(!viewfile(f,1)) {
- done=1;
- found=-1; } }
- else
- fileinfo(f);
- if(mode==FI_CLOSE) {
- if(!noyes(text[CloseFileRecordQ])) {
- f.opencount=0;
- putfiledat(f); } }
- else if(mode==FI_REMOVE || mode==FI_OLD || mode==FI_OLDUL
- || mode==FI_OFFLINE) {
- SYNC;
- CRLF;
- if(f.opencount) {
- mnemonics(text[QuitOrNext]);
- strcpy(str,"Q\r"); }
- else if(dir_op(dirnum)) {
- mnemonics(text[SysopRemoveFilePrompt]);
- strcpy(str,"VEFMCQR\r"); }
- else if(useron.exempt&FLAG('R')) {
- mnemonics(text[RExemptRemoveFilePrompt]);
- strcpy(str,"VEMQR\r"); }
- else {
- mnemonics(text[UserRemoveFilePrompt]);
- strcpy(str,"VEQR\r"); }
- switch(getkeys(str,0)) {
- case 'V':
- viewfilecontents(f);
- CRLF;
- ASYNC;
- pause();
- m-=F_IXBSIZE;
- continue;
- case 'E': /* edit file information */
- if(dir_op(dirnum)) {
- bputs(text[EditFilename]);
- strcpy(str,fname);
- getstr(str,12,K_EDIT|K_AUTODEL|K_UPPER);
- if(strcmp(str,fname)) { /* rename */
- padfname(str,path);
- if(findfile(f.dir,path))
- bprintf(text[FileAlreadyThere],path);
- else {
- sprintf(path,"%s%s",dirpath,fname);
- sprintf(tmp,"%s%s",dirpath,str);
- if(rename(path,tmp))
- bprintf(text[CouldntRenameFile],path,tmp);
- else {
- bprintf(text[FileRenamed],path,tmp);
- strcpy(fname,str);
- removefiledat(f);
- strcpy(f.name,padfname(str,tmp));
- addfiledat(&f); } } } }
- bputs(text[EditDescription]);
- getstr(f.desc,LEN_FDESC,K_LINE|K_EDIT|K_AUTODEL);
- if(f.misc&FM_EXTDESC) {
- if(!noyes(text[DeleteExtDescriptionQ])) {
- remove(str);
- f.misc&=~FM_EXTDESC; } }
- if(!dir_op(dirnum)) {
- putfiledat(f);
- break; }
- bputs(text[EditUploader]);
- getstr(f.uler,LEN_ALIAS,K_UPRLWR|K_EDIT|K_AUTODEL);
- ultoa(f.cdt,str,10);
- bputs(text[EditCreditValue]);
- getstr(str,7,K_NUMBER|K_EDIT|K_AUTODEL);
- f.cdt=atol(str);
- itoa(f.timesdled,str,10);
- bputs(text[EditTimesDownloaded]);
- getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL);
- f.timesdled=atoi(str);
- if(f.opencount) {
- itoa(f.opencount,str,10);
- bputs(text[EditOpenCount]);
- getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
- f.opencount=atoi(str); }
- if(altpaths || f.altpath) {
- itoa(f.altpath,str,10);
- bputs(text[EditAltPath]);
- getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
- f.altpath=atoi(str);
- if(f.altpath>altpaths)
- f.altpath=0; }
- putfiledat(f);
- inputnstime(&f.dateuled);
- update_uldate(f);
- break;
- case 'F': /* delete file only */
- sprintf(str,"%s%s",dirpath,fname);
- if(!fexist(str))
- bputs(text[FileNotThere]);
- else {
- if(!noyes(text[AreYouSureQ])) {
- if(remove(str))
- bprintf(text[CouldntRemoveFile],str);
- else {
- sprintf(tmp,"Deleted %s",str);
- logline(nulstr,tmp); } } }
- break;
- case 'R': /* remove file from database */
- if(noyes(text[AreYouSureQ]))
- break;
- removefiledat(f);
- sprintf(str,"Removed %s from %s %s",f.name
- ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
- logline("U-",str);
- sprintf(str,"%s%s",dirpath,fname);
- if(fexist(str)) {
- if(dir_op(dirnum)) {
- if(!noyes(text[DeleteFileQ])) {
- if(remove(str))
- bprintf(text[CouldntRemoveFile],str);
- else {
- sprintf(tmp,"Deleted %s",str);
- logline(nulstr,tmp); } } }
- else if(remove(str)) /* always remove if not sysop */
- bprintf(text[CouldntRemoveFile],str); }
- if(dir_op(dirnum) || useron.exempt&FLAG('R')) {
- i=lib[dir[f.dir]->lib]->offline_dir;
- if(i!=dirnum && i!=(int)INVALID_DIR
- && !findfile(i,f.name)) {
- sprintf(str,text[AddToOfflineDirQ]
- ,fname,lib[dir[i]->lib]->sname,dir[i]->sname);
- if(yesno(str)) {
- getextdesc(f.dir,f.datoffset,ext);
- f.dir=i;
- addfiledat(&f);
- if(f.misc&FM_EXTDESC)
- putextdesc(f.dir,f.datoffset,ext); } } }
- if(dir_op(dirnum) || strcmpi(f.uler,useron.alias)) {
- if(noyes(text[RemoveCreditsQ]))
-/* Fall through */ break; }
- case 'C': /* remove credits only */
- if((i=matchuser(f.uler))==0) {
- bputs(text[UnknownUser]);
- break; }
- if(dir_op(dirnum)) {
- usrcdt=(ulong)(f.cdt*(dir[f.dir]->up_pct/100.0));
- if(f.timesdled) /* all downloads */
- usrcdt+=(ulong)((long)f.timesdled
- *f.cdt*(dir[f.dir]->dn_pct/100.0));
- ultoa(usrcdt,str,10);
- bputs(text[CreditsToRemove]);
- getstr(str,10,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL);
- f.cdt=atol(str); }
- usrcdt=adjustuserrec(i,U_CDT,10,-f.cdt);
- if(i==useron.number)
- useron.cdt=usrcdt;
- sprintf(str,text[FileRemovedUserMsg]
- ,f.name,f.cdt ? ultoac(f.cdt,tmp) : text[No]);
- putsmsg(i,str);
- usrcdt=adjustuserrec(i,U_ULB,10,-f.size);
- if(i==useron.number)
- useron.ulb=usrcdt;
- usrcdt=adjustuserrec(i,U_ULS,5,-1);
- if(i==useron.number)
- useron.uls=usrcdt;
- break;
- case 'M': /* move the file to another dir */
- CRLF;
- for(i=0;i<usrlibs;i++)
- bprintf(text[MoveToLibLstFmt],i+1,lib[usrlib[i]]->lname);
- SYNC;
- bprintf(text[MoveToLibPrompt],dir[dirnum]->lib+1);
- if((i=getnum(usrlibs))==-1)
- continue;
- if(!i)
- i=dir[dirnum]->lib;
- else
- i--;
- CRLF;
- for(j=0;j<usrdirs[i];j++)
- bprintf(text[MoveToDirLstFmt]
- ,j+1,dir[usrdir[i][j]]->lname);
- SYNC;
- bprintf(text[MoveToDirPrompt],usrdirs[i]);
- if((j=getnum(usrdirs[i]))==-1)
- continue;
- if(!j)
- j=usrdirs[i]-1;
- else j--;
- CRLF;
- if(findfile(usrdir[i][j],f.name)) {
- bprintf(text[FileAlreadyThere],f.name);
- break; }
- getextdesc(f.dir,f.datoffset,ext);
- removefiledat(f);
- if(f.dir==upload_dir || f.dir==sysop_dir)
- f.dateuled=time(NULL);
- f.dir=usrdir[i][j];
- addfiledat(&f);
- bprintf(text[MovedFile],f.name
- ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
- sprintf(str,"Moved %s to %s %s",f.name
- ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
- logline(nulstr,str);
- if(!f.altpath) { /* move actual file */
- sprintf(str,"%s%s",dir[dirnum]->path,fname);
- if(fexist(str)) {
- sprintf(path,"%s%s",dir[f.dir]->path,fname);
- mv(str,path,0); } }
- if(f.misc&FM_EXTDESC)
- putextdesc(f.dir,f.datoffset,ext);
- break;
- case 'Q': /* quit */
- found=-1;
- done=1;
- break; } }
- else if(mode==FI_DOWNLOAD || mode==FI_USERXFER) {
- sprintf(path,"%s%s",dirpath,fname);
- if(f.size<1L) { /* getfiledat will set this to -1 if non-existant */
- SYNC; /* and 0 byte files shouldn't be d/led */
- mnemonics(text[QuitOrNext]);
- if(getkeys("\rQ",0)=='Q') {
- found=-1;
- break; }
- continue; }
- if(!(dir[f.dir]->misc&DIR_FREE) && !(useron.exempt&FLAG('D'))
- && f.cdt>(useron.cdt+useron.freecdt)) {
- SYNC;
- bprintf(text[YouOnlyHaveNCredits]
- ,ultoac(useron.cdt+useron.freecdt,tmp));
- mnemonics(text[QuitOrNext]);
- if(getkeys("\rQ",0)=='Q') {
- found=-1;
- break; }
- continue; }
- if(!chk_ar(dir[f.dir]->dl_ar,useron)) {
- SYNC;
- bputs(text[CantDownloadFromDir]);
- mnemonics(text[QuitOrNext]);
- if(getkeys("\rQ",0)=='Q') {
- found=-1;
- break; }
- continue; }
- if(!(dir[f.dir]->misc&DIR_TFREE) && f.timetodl>timeleft && !dir_op(dirnum)
- && !(useron.exempt&FLAG('T'))) {
- SYNC;
- bputs(text[NotEnoughTimeToDl]);
- mnemonics(text[QuitOrNext]);
- if(getkeys("\rQ",0)=='Q') {
- found=-1;
- break; }
- continue; }
- menu("DLPROT");
- openfile(f);
- SYNC;
- mnemonics(text[ProtocolBatchQuitOrNext]);
- strcpy(str,"BQ\r");
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0]
- && chk_ar(prot[i]->ar,useron)) {
- sprintf(tmp,"%c",prot[i]->mnemonic);
- strcat(str,tmp); }
-// ungetkey(useron.prot);
- ch=getkeys(str,0);
- if(ch=='Q') {
- found=-1;
- done=1; }
- else if(ch=='B') {
- if(!addtobatdl(f)) {
- closefile(f);
- break; } }
- else if(ch!=CR) {
- for(i=0;i<total_prots;i++)
- if(prot[i]->dlcmd[0] && prot[i]->mnemonic==ch
- && chk_ar(prot[i]->ar,useron))
- break;
- if(i<total_prots) {
- if(online==ON_LOCAL) {
- bputs(text[EnterPath]);
- if(getstr(path,60,K_UPPER|K_LINE)) {
- backslash(path);
- strcat(path,fname);
- sprintf(str,"%s%s",dirpath,fname);
- if(!mv(str,path,1))
- downloadfile(f);
- for(j=0;j<total_dlevents;j++)
- if(!stricmp(dlevent[j]->ext,f.name+9)
- && chk_ar(dlevent[j]->ar,useron)) {
- bputs(dlevent[j]->workstr);
- external(cmdstr(dlevent[j]->cmd,path,nulstr
- ,NULL)
- ,EX_OUTL);
- CRLF; }
- } }
- else {
- delfiles(temp_dir,"*.*");
- if(dir[f.dir]->seqdev) {
- lncntr=0;
- seqwait(dir[f.dir]->seqdev);
- bprintf(text[RetrievingFile],fname);
- sprintf(str,"%s%s",dirpath,fname);
- sprintf(path,"%s%s",temp_dir,fname);
- mv(str,path,1); /* copy the file to temp dir */
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=0xf0;
- putnodedat(node_num,thisnode);
- CRLF; }
- for(j=0;j<total_dlevents;j++)
- if(!stricmp(dlevent[j]->ext,f.name+9)
- && chk_ar(dlevent[j]->ar,useron)) {
- bputs(dlevent[j]->workstr);
- external(cmdstr(dlevent[j]->cmd,path,nulstr,NULL)
- ,EX_OUTL);
- CRLF; }
- getnodedat(node_num,&thisnode,1);
- action=NODE_DLNG;
- unixtodos(now+f.timetodl,&date,&curtime);
- thisnode.aux=(curtime.ti_hour*60)+curtime.ti_min;
- putnodedat(node_num,thisnode); /* calculate ETA */
- start=time(NULL);
- j=protocol(cmdstr(prot[i]->dlcmd,path,nulstr,NULL),0);
- end=time(NULL);
- if(dir[f.dir]->misc&DIR_TFREE)
- starttime+=end-start;
- if(prot[i]->misc&PROT_DSZLOG) {
- if(checkprotlog(f))
- downloadfile(f);
- else
- notdownloaded(f.size,start,end); }
- else {
- if(!j)
- downloadfile(f);
- else {
- bprintf(text[FileNotSent],f.name);
- notdownloaded(f.size,start,end); } }
- delfiles(temp_dir,"*.*");
- autohangup(); } } }
- closefile(f); }
- if(filespec[0] && !strchr(filespec,'*') && !strchr(filespec,'?')) break; }
-FREE((char *)ixbbuf);
-if(usrxfrbuf)
- FREE(usrxfrbuf);
-return(found);
-}
-
-
-/****************************************************************************/
-/* Checks directory data file for 'filename' (must be padded). If found, */
-/* it returns the 1, else returns 0. */
-/* Called from upload and bulkupload */
-/****************************************************************************/
-char findfile(uint dirnum, char *filename)
-{
- char str[256],c,fname[13],HUGE16 *ixbbuf;
- int file;
- ulong length,l;
-
-sprintf(fname,"%.12s",filename);
-strupr(fname);
-for(c=8;c<12;c++) /* Turn FILENAME.EXT into FILENAMEEXT */
- fname[c]=fname[c+1];
-sprintf(str,"%s%s.IXB",dir[dirnum]->data_dir,dir[dirnum]->code);
-if((file=nopen(str,O_RDONLY))==-1) return(0);
-length=filelength(file);
-if(!length) {
- close(file);
- return(0); }
-if((ixbbuf=(char *)MALLOC(length))==NULL) {
- close(file);
- errormsg(WHERE,ERR_ALLOC,str,length);
- return(0); }
-if(lread(file,ixbbuf,length)!=length) {
- close(file);
- errormsg(WHERE,ERR_READ,str,length);
- FREE((char *)ixbbuf);
- return(0); }
-close(file);
-for(l=0;l<length;l+=F_IXBSIZE) {
- for(c=0;c<11;c++)
- if(fname[c]!=toupper(ixbbuf[l+c])) break;
- if(c==11) break; }
-FREE((char *)ixbbuf);
-if(l!=length)
- return(1);
-return(0);
-}
-
-/****************************************************************************/
-/* Prints one file's information on a single line to a file 'file' */
-/****************************************************************************/
-void listfiletofile(char *fname, char HUGE16 *buf, uint dirnum, int file)
-{
- char str[256],exist=1;
- uchar alt;
- ulong cdt;
-
-strcpy(str,fname);
-if(buf[F_MISC]!=ETX && (buf[F_MISC]-SP)&FM_EXTDESC)
- strcat(str,"+");
-else
- strcat(str," ");
-write(file,str,13);
-getrec((char *)buf,F_ALTPATH,2,str);
-alt=(uchar)ahtoul(str);
-sprintf(str,"%s%s",alt>0 && alt<=altpaths ? altpath[alt-1]
- : dir[dirnum]->path,unpadfname(fname,tmp));
-if(dir[dirnum]->misc&DIR_FCHK && !fexist(str))
- exist=0;
-getrec((char *)buf,F_CDT,LEN_FCDT,str);
-cdt=atol(str);
-if(!cdt)
- strcpy(str," FREE");
-else
- sprintf(str,"%7lu",cdt);
-if(exist)
- strcat(str," ");
-else
- strcat(str,"-");
-write(file,str,8);
-getrec((char *)buf,F_DESC,LEN_FDESC,str);
-write(file,str,strlen(str));
-write(file,crlf,2);
-}
-
-
-
-/****************************************************************************/
-/* Handles start and stop routines for transfer protocols */
-/****************************************************************************/
-int protocol(char *cmdline, int cd)
-{
- char tmp[128];
- int i;
-
-sprintf(tmp,"%sPROTOCOL.LOG",node_dir);
-remove(tmp); /* Deletes the protocol log */
-if(useron.misc&AUTOHANG)
- autohang=1;
-else
- autohang=yesno(text[HangUpAfterXferQ]);
-if(sys_status&SS_ABORT) { /* if ctrl-c */
- autohang=0;
- return(-1); }
-bputs(text[StartXferNow]);
-RIOSYNC(0);
-lprintf("%s\r\n",cmdline);
-if(cd) {
- if(temp_dir[1]==':') /* fix for DSZ */
- setdisk(toupper(temp_dir[0])-'A');
- strcpy(tmp,temp_dir);
- tmp[strlen(tmp)-1]=0; /* take off '\' */
- if(chdir(tmp))
- errormsg(WHERE,ERR_CHDIR,tmp,0); }
-i=external(cmdline,EX_OUTL); /* EX_CC removed because of error level prob */
-if(online==ON_REMOTE)
- rioctl(IOFB);
-CRLF;
-if(autohang) sys_status|=SS_PAUSEOFF; /* Pause off after download */
-return(i);
-}
-
-/****************************************************************************/
-/* Invokes the timed auto-hangup after transfer routine */
-/****************************************************************************/
-void autohangup()
-{
- char a,c,k;
-
-SYNC;
-sys_status&=~SS_PAUSEOFF; /* turn pause back on */
-rioctl(IOFI);
-if(!autohang) return;
-lncntr=0;
-bputs(text[Disconnecting]);
-attr(GREEN);
-outchar('[');
-for(c=9,a=0;c>-1 && online && !a;c--) {
- checkline();
- attr(LIGHTGRAY|HIGH);
- bputs(itoa(c,tmp,10));
- attr(GREEN);
- outchar(']');
- while((k=inkey(0))!=0 && online) {
- if(toupper(k)=='H') {
- c=0;
- break; }
- if(toupper(k)=='A') {
- a=1;
- break; } }
- mswait(DELAY_AUTOHG);
- if(!a) {
- outchar(BS);
- outchar(BS); } }
-if(c==-1) {
- bputs(text[Disconnected]);
- hangup(); }
-else
- CRLF;
-}
-
-/****************************************************************************/
-/* Checks dsz compatible log file for errors in transfer */
-/* Returns 1 if the file in the struct file_t was successfuly transfered */
-/****************************************************************************/
-char checkprotlog(file_t f)
-{
- char str[256],size[128];
- int file;
- FILE *stream;
-
-sprintf(str,"%sPROTOCOL.LOG",node_dir);
-if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
- bprintf(text[FileNotSent],f.name);
- if(f.dir<total_dirs)
- sprintf(str,"Attempted to download %s (%s) from %s %s"
- ,f.name,ultoac(f.size,size)
- ,lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
- else if(f.dir==total_dirs)
- strcpy(str,"Attempted to download QWK packet");
- else if(f.dir==total_dirs+1)
- sprintf(str,"Attempted to download attached file: %s",f.name);
- logline("D!",str);
- return(0); }
-unpadfname(f.name,tmp);
-if(tmp[strlen(tmp)-1]=='.') /* DSZ log uses FILE instead of FILE. */
- tmp[strlen(tmp)-1]=0; /* when there isn't an extension. */
-while(!ferror(stream)) {
- if(!fgets(str,256,stream))
- break;
- if(str[strlen(str)-2]==CR)
- str[strlen(str)-2]=0; /* chop off CRLF */
- strupr(str);
- if(strstr(str,tmp)) { /* Only check for name, Bimodem doesn't put path */
- logline(nulstr,str);
- if(str[0]=='E' || str[0]=='L' || (str[6]==SP && str[7]=='0'))
- break; /* E for Error or L for Lost Carrier */
- fclose(stream); /* or only sent 0 bytes! */
- return(1); } }
-fclose(stream);
-bprintf(text[FileNotSent],f.name);
-if(f.dir<total_dirs)
- sprintf(str,"Attempted to download %s (%s) from %s %s",f.name
- ,ultoac(f.size,tmp),lib[dir[f.dir]->lib]->sname,dir[f.dir]->sname);
-else
- strcpy(str,"Attempted to download QWK packet");
-logline("D!",str);
-return(0);
-}
-
-/*****************************************************************************/
-/* View viewable file types from dir 'dirnum' */
-/* 'fspec' must be padded */
-/*****************************************************************************/
-void viewfiles(uint dirnum, char *fspec)
-{
- char viewcmd[256];
- int i;
-
-curdirnum=dirnum; /* for ARS */
-sprintf(viewcmd,"%s%s",dir[dirnum]->path,fspec);
-if(!fexist(viewcmd)) {
- bputs(text[FileNotFound]);
- return; }
-padfname(fspec,tmp);
-truncsp(tmp);
-for(i=0;i<total_fviews;i++)
- if(!strcmp(tmp+9,fview[i]->ext) && chk_ar(fview[i]->ar,useron)) {
- strcpy(viewcmd,fview[i]->cmd);
- break; }
-if(i==total_fviews) {
- bprintf(text[NonviewableFile],tmp+9);
- return; }
-sprintf(tmp,"%s%s",dir[dirnum]->path,fspec);
-if((i=external(cmdstr(viewcmd,tmp,tmp,NULL),EX_OUTL|EX_OUTR|EX_INR|EX_CC))!=0)
- errormsg(WHERE,ERR_EXEC,viewcmd,i); /* must of EX_CC to ^C */
-}
-
-/****************************************************************************/
-/* Compares filenames for ascending name sort */
-/****************************************************************************/
-int fnamecmp_a(char **str1, char **str2)
-{
-return(strncmp(*str1,*str2,11));
-}
-
-/****************************************************************************/
-/* Compares filenames for descending name sort */
-/****************************************************************************/
-int fnamecmp_d(char **str1, char **str2)
-{
-return(strncmp(*str2,*str1,11));
-}
-
-/****************************************************************************/
-/* Compares file upload dates for ascending date sort */
-/****************************************************************************/
-int fdatecmp_a(uchar **buf1, uchar **buf2)
-{
- time_t date1,date2;
-
-date1=((*buf1)[14]|((long)(*buf1)[15]<<8)|((long)(*buf1)[16]<<16)
- |((long)(*buf1)[17]<<24));
-date2=((*buf2)[14]|((long)(*buf2)[15]<<8)|((long)(*buf2)[16]<<16)
- |((long)(*buf2)[17]<<24));
-if(date1>date2) return(1);
-if(date1<date2) return(-1);
-return(0);
-}
-
-/****************************************************************************/
-/* Compares file upload dates for descending date sort */
-/****************************************************************************/
-int fdatecmp_d(uchar **buf1, uchar **buf2)
-{
- time_t date1,date2;
-
-date1=((*buf1)[14]|((long)(*buf1)[15]<<8)|((long)(*buf1)[16]<<16)
- |((long)(*buf1)[17]<<24));
-date2=((*buf2)[14]|((long)(*buf2)[15]<<8)|((long)(*buf2)[16]<<16)
- |((long)(*buf2)[17]<<24));
-if(date1>date2) return(-1);
-if(date1<date2) return(1);
-return(0);
-}
-
-/************************************************************************/
-/* Wait (for a limited period of time) for sequential dev to become */
-/* available for file retrieval */
-/************************************************************************/
-void seqwait(uint devnum)
-{
- char loop=0;
- int i;
- time_t start;
- node_t node;
-
-
-if(!devnum)
- return;
-for(start=now=time(NULL);online && now-start<90;now=time(NULL)) {
- if(msgabort()) /* max wait ^^^^ sec */
- break;
- getnodedat(node_num,&thisnode,1); /* open and lock this record */
- for(i=1;i<=sys_nodes;i++) {
- if(i==node_num) continue;
- getnodedat(i,&node,1);
- if((node.status==NODE_INUSE || node.status==NODE_QUIET)
- && node.action==NODE_RFSD && node.aux==devnum) {
- putnodedat(i,node);
- break; }
- putnodedat(i,node); }
- if(i>sys_nodes) {
- thisnode.action=NODE_RFSD;
- thisnode.aux=devnum;
- putnodedat(node_num,thisnode); /* write devnum, unlock, and ret */
- return; }
- putnodedat(node_num,thisnode);
- if(!loop)
- bprintf(text[WaitingForDeviceN],devnum);
- loop=1;
- mswait(100); }
-
-}
diff --git a/src/sbbs2/xfer_sec.c b/src/sbbs2/xfer_sec.c
deleted file mode 100644
index 4b3ec2afec904aa763ec79c1bcf593e146f6e21f..0000000000000000000000000000000000000000
--- a/src/sbbs2/xfer_sec.c
+++ /dev/null
@@ -1,134 +0,0 @@
-#line 1 "XFER_SEC.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/*****************************************************/
-/* This file contains the single function xfer_sec() */
-/*****************************************************/
-
-#include "sbbs.h"
-
-void xfer_cfg_cmd();
-void xfer_ext_cmd(char ch);
-void xfer_str_cmd(char *str);
-
-void scandirs(char mode);
-
-extern char no_rip_menu;
-
-/****************************************************************************/
-/* Used to scan single or multiple directories. 'mode' is the scan type. */
-/****************************************************************************/
-void scandirs(char mode)
-{
- char ch,str[256];
- int s;
- uint i,k;
-
-if(!usrlibs) return;
-mnemonics(text[DirLibOrAll]);
-ch=getkeys("DLA\r",0);
-if(sys_status&SS_ABORT || ch==CR) {
- lncntr=0;
- return; }
-if(ch!='A') {
- if(mode&FL_ULTIME) { /* New file scan */
- bprintf(text[NScanHdr],timestr(&ns_time));
- str[0]=0; }
- else if(mode==FL_NO_HDR) { /* Search for a string */
- if(!getfilespec(tmp))
- return;
- padfname(tmp,str); }
- else if(mode==FL_FINDDESC) { /* Find text in description */
- if(!noyes(text[SearchExtendedQ]))
- mode=FL_EXFIND;
- if(sys_status&SS_ABORT) {
- lncntr=0;
- return; }
- bputs(text[SearchStringPrompt]);
- if(!getstr(str,40,K_LINE|K_UPPER)) {
- lncntr=0;
- return; } } }
-if(ch=='D') {
- if((s=listfiles(usrdir[curlib][curdir[curlib]],str,0,mode))==-1)
- return;
- bputs("\r\1>");
- if(s>1)
- bprintf(text[NFilesListed],s);
- else if(!s && !(mode&FL_ULTIME))
- bputs(text[FileNotFound]);
- return; }
-if(ch=='L') {
- k=0;
- for(i=0;i<usrdirs[curlib] && !msgabort();i++) {
- attr(LIGHTGRAY);
- outchar('.');
- if(i && !(i%5))
- bputs("\b\b\b\b\b \b\b\b\b\b");
- if(mode&FL_ULTIME /* New-scan */
- && (lib[usrlib[curlib]]->offline_dir==usrdir[curlib][i]
- || dir[usrdir[curlib][i]]->misc&DIR_NOSCAN))
- continue;
- else if((s=listfiles(usrdir[curlib][i],str,0,mode))==-1)
- return;
- else k+=s; }
- bputs("\r\1>");
- if(k>1)
- bprintf(text[NFilesListed],k);
- else if(!k && !(mode&FL_ULTIME))
- bputs(text[FileNotFound]);
- return; }
-
-scanalldirs(mode);
-}
-
-/****************************************************************************/
-/* Scan all directories in all libraries for files */
-/****************************************************************************/
-void scanalldirs(char mode)
-{
- char str[256];
- int s;
- uint i,j,k,d;
-
-if(!usrlibs) return;
-k=0;
-if(mode&FL_ULTIME) { /* New file scan */
- bprintf(text[NScanHdr],timestr(&ns_time));
- str[0]=0; }
-else if(mode==FL_NO_HDR) { /* Search for a string */
- if(!getfilespec(tmp))
- return;
- padfname(tmp,str); }
-else if(mode==FL_FINDDESC) { /* Find text in description */
- if(!noyes(text[SearchExtendedQ]))
- mode=FL_EXFIND;
- if(sys_status&SS_ABORT) {
- lncntr=0;
- return; }
- bputs(text[SearchStringPrompt]);
- if(!getstr(str,40,K_LINE|K_UPPER)) {
- lncntr=0;
- return; } }
-for(i=d=0;i<usrlibs;i++) {
- for(j=0;j<usrdirs[i] && !msgabort();j++,d++) {
- attr(LIGHTGRAY);
- outchar('.');
- if(d && !(d%5))
- bputs("\b\b\b\b\b \b\b\b\b\b");
- if(mode&FL_ULTIME /* New-scan */
- && (lib[usrlib[i]]->offline_dir==usrdir[i][j]
- || dir[usrdir[i][j]]->misc&DIR_NOSCAN))
- continue;
- else if((s=listfiles(usrdir[i][j],str,0,mode))==-1)
- return;
- else k+=s; }
- if(j<usrdirs[i]) /* aborted */
- break; }
-bputs("\r\1>");
-if(k>1)
- bprintf(text[NFilesListed],k);
-else if(!k && !(mode&FL_ULTIME))
- bputs(text[FileNotFound]);
-}
-
diff --git a/src/sbbs2/xtrn.c b/src/sbbs2/xtrn.c
deleted file mode 100644
index d7a1d14c93b6a3031db226cdaa8ff1bd56ac85df..0000000000000000000000000000000000000000
--- a/src/sbbs2/xtrn.c
+++ /dev/null
@@ -1,500 +0,0 @@
-#line 1 "XTRN.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/***************************************************************************/
-/* Functions that pertain to external programs (other EXE or COM programs) */
-/***************************************************************************/
-
-#include "sbbs.h"
-#include "cmdshell.h"
-
-#ifndef __FLAT__
-
-#include "spawno.h"
-
-void interrupt (*oldfunc)(void);
-
-/*****************************************************************************/
-/* Interrupt routine to expand WWIV Ctrl-C# codes into ANSI escape sequences */
-/*****************************************************************************/
-void interrupt wwiv_expand()
-{
- char str[256],al;
- static int ctrl_c;
- int i,j;
-
-al=_AL;
-if(al!=3 && !ctrl_c)
- oldfunc();
-else if(al!=3 && ctrl_c) {
- ctrl_c=0;
- if(useron.misc&ANSI) {
- switch(al) {
- default:
- strcpy(str,"\x1b[0m"); /* low grey */
- break;
- case '1':
- strcpy(str,"\x1b[0;1;36m"); /* high cyan */
- break;
- case '2':
- strcpy(str,"\x1b[0;1;33m"); /* high yellow */
- break;
- case '3':
- strcpy(str,"\x1b[0;35m"); /* low magenta */
- break;
- case '4':
- strcpy(str,"\x1b[0;1;44m"); /* white on blue */
- break;
- case '5':
- strcpy(str,"\x1b[0;32m"); /* low green */
- break;
- case '6':
- strcpy(str,"\x1b[0;1;5;31m"); /* high blinking red */
- break;
- case '7':
- strcpy(str,"\x1b[0;1;34m"); /* high blue */
- break;
- case '8':
- strcpy(str,"\x1b[0;34m"); /* low blue */
- break;
- case '9':
- strcpy(str,"\x1b[0;36m"); /* low cyan */
- break; }
- j=strlen(str);
- for(i=0;i<j;i++) {
- _AL=str[i];
- oldfunc(); } } }
-else
- ctrl_c=1;
-}
-#endif
-
-/****************************************************************************/
-/* Runs an external program directly using spawnvp */
-/****************************************************************************/
-int external(char *cmdline,char mode)
-{
- char c,d,cmdlen,*arg[30],str[256],str2[256],fname[128],*p,x,y;
- int i,file,rmode=0;
- long l;
- FILE *fp;
-#ifdef __OS2__
- RESULTCODES rc;
-#endif
-
-if(cmdline[0]=='*') { /* Baja module */
- strcpy(str,cmdline+1);
- p=strchr(str,SP);
- if(p) {
- strcpy(main_csi.str,p+1);
- *p=0; }
- return(exec_bin(str,&main_csi)); }
-
-#ifdef __MSDOS__
-nosound(); /* if page is on, turn off sound */
-#endif
-attr(LIGHTGRAY); /* set attributes to normal text */
-
-strcpy(str,cmdline); /* Set str to program name only */
-p=strchr(str,SP);
-if(p) *p=0;
-strcpy(fname,str);
-
-
-if(!(mode&EX_CC)) {
- if(strcspn(cmdline,"<>|")!=strlen(cmdline))
- mode|=EX_CC; /* DOS I/O redirection; so, use command.com */
- else {
- i=strlen(str);
- if(i>4 && !stricmp(str+(i-4),".BAT")) /* specified .BAT file */
- mode|=EX_CC;
- else {
- strcat(str,".BAT");
- if(fexist(str)) /* and it's a .BAT file */
- mode|=EX_CC; } } }
-
-p=strrchr(fname,'\\');
-if(!p) p=strchr(fname,':');
-if(!p) p=fname;
-else p++;
-
-#ifndef __FLAT__
-
-for(i=0;i<total_swaps;i++)
- if(!stricmp(p,swap[i]->cmd))
- break;
-if(i<total_swaps)
- mode|=EX_SWAP;
-
-#else
-
-for(i=0;i<total_os2pgms;i++)
- if(!stricmp(p,os2pgm[i]->name))
- break;
-if(i<total_os2pgms) {
- mode|=EX_OS2;
- if(os2pgm[i]->misc&OS2_POPEN)
- mode|=EX_POPEN; }
-
-#endif
-
-#ifndef __FLAT__
-
-if(node_swap&SWAP_NONE || mode&EX_WWIV)
- mode&=~EX_SWAP;
-
-if(mode&EX_SWAP) {
- if(lclwy()>1 || lclwx()>1)
- lputs(crlf);
- lputs("Swapping...\r\n"); }
-
-#endif
-
-
-if(!(mode&EX_OS2) && mode&EX_CC)
- sprintf(str,"%s /C %s",
-#ifdef __OS2__
- node_comspec // Only used node_comspec for OS/2 ver
-#else
- comspec
-#endif
- ,cmdline);
-
-else strcpy(str,cmdline);
-if(!(mode&EX_OS2) && strlen(str)>126) {
- errormsg(WHERE,ERR_LEN,str,strlen(str));
- errorlevel=-1;
- return(-1); }
-
-#ifndef __FLAT__
-
-arg[0]=str; /* point to the beginning of the string */
-cmdlen=strlen(str);
-for(c=0,d=1;c<cmdlen;c++) /* Break up command line */
- if(str[c]==SP) {
- str[c]=0; /* insert nulls */
- arg[d++]=str+c+1; } /* point to the beginning of the next arg */
-arg[d]=0;
-
-#endif
-
-if(mode&EX_OUTR && (console&CON_R_ECHO))
- rmode|=INT29R;
-if(mode&EX_OUTL)
- rmode|=INT29L;
-if(mode&EX_INR && (console&CON_R_INPUT))
- rmode|=INT16;
-
-#ifndef __FLAT__
-
-if(rmode)
- ivhctl(rmode); /* set DOS output interception vectors */
-
-if(mode&EX_WWIV) { /* WWIV code expansion */
- rioctl(CPTOFF); /* turn off ctrl-p translation */
- oldfunc=getvect(0x29);
- setvect(0x29,wwiv_expand); }
-
-if(com_port && sys_status&SS_COMISR && !(mode&(EX_OUTR|EX_INR))) {
- riosync(0);
- rioini(0,0);
- sys_status&=~SS_COMISR; }
-
-if(!rmode) { /* clear the status line */
- lclini(node_scrnlen);
- x=lclwx();
- y=lclwy();
- STATUSLINE;
- lclxy(1,node_scrnlen);
- lputc(CLREOL);
- TEXTWINDOW;
- lclxy(x,y); }
-
-if(mode&EX_SWAP) { /* set the resident size */
- if(rmode)
- __spawn_resident=7000; /* was 6000 */
- else
- __spawn_resident=0;
- i=spawnvpeo(node_swapdir,arg[0],(const char **)arg
- ,(const char **)environ); }
-else
- i=spawnvpe(P_WAIT,arg[0],arg,environ);
-
-#else //lif defined(__OS2__)
-
-if(com_port && !(mode&EX_POPEN)
- && sys_status&SS_COMISR) { /* Uninstall COM routines */
- riosync(0);
- rioini(0,0);
- sys_status&=~SS_COMISR; }
-
-textattr(LIGHTGRAY); // Redundant
-if(!(mode&EX_OS2)) { /* DOS pgm */
- if(lclwy()>1 || lclwx()>1)
- lputs(crlf);
- lprintf("Executing DOS program: %s\r\n",str);
- sprintf(str2,"%sEXECDOS.DAT",node_dir);
- if((file=nopen(str2,O_WRONLY|O_TRUNC|O_CREAT))!=-1) {
- sprintf(str2,"V1.00\r\n%X\r\n%lu\r\n%u\r\n%X\r\n%X\r\n%lX\r\n%u\r\n"
- "%s\r\n"
- ,online==ON_REMOTE ? com_base:0
- ,com_irq,dte_rate,rmode,mode,useron.misc,node_num,str);
- write(file,str2,strlen(str2));
- sprintf(str2,"%u\r\nDSZLOG=%s\r\n"
- ,1 /* Total env vars to setup */
- ,getenv("DSZLOG"));
- write(file,str2,strlen(str2));
- if(online) {
- sprintf(str2,"%s\r\n%s\r\n%u\r\n%u\r\n%c\r\n%s\r\n%s\r\n"
- ,useron.alias
- ,useron.name
- ,useron.level
- ,getage(useron.birth)
- ,useron.sex
- ,useron.phone
- ,useron.location);
- write(file,str2,strlen(str2)); }
- close(file); }
-
- sprintf(str,"%sEXECDOS.EXE %s",exec_dir,node_dir);
-
- x=wherex();
- y=wherey();
- i=system(str);
- gotoxy(x,y); }
-else { /* OS/2 pgm */
- window(1,1,80,node_scrnlen);
- x=lclwx();
- y=lclwy();
- lclxy(1,node_scrnlen);
- lputc(CLREOL);
- lclxy(x,y);
- i=system(cmdline);
- lputs(crlf);
- lputs(crlf);
- lclxy(1,node_scrnlen-1);
- }
-
-#ifdef __OS2__
-fixkbdmode();
-#endif
-textattr(LIGHTGRAY);
-
-#endif
-
-#ifndef __WIN32__
-while(lkbrd(0)) /* suck up any chars in the keyboard buffer */
- ;
-#endif
-
-#ifdef __MSDOS__
-setcbrk(0);
-
-lclatr(LIGHTGRAY);
-c=wherey();
-if(c>=node_scrnlen)
- c=node_scrnlen-1;
-lclxy(wherex(),c); /* put the cursor where BIOS thinks it is */
-
-#endif
-
-if(com_port && !(mode&EX_POPEN)
-#ifndef __OS2__
- && !(mode&(EX_OUTR|EX_INR))
-#endif
- ) {
- comini();
- setrate();
- rioctl(IOSM|PAUSE|ABORT); }
-
-rioctl(CPTON); /* turn on ctrl-p translation */
-
-#ifndef __FLAT__
-if(mode&EX_WWIV)
- setvect(0x29,oldfunc);
-
-if(rmode)
- ivhctl(0); /* replace DOS output interrupt vectors */
-#endif
-
-setdisk(node_disk);
-strcpy(str,node_dir);
-str[strlen(str)-1]=0;
-if(chdir(str))
- errormsg(WHERE,ERR_CHDIR,str,0);
-
-#ifndef __FLAT__
-lclini(node_scrnlen-1);
-#endif
-
-lncntr=0;
-if(online)
- statusline(); /* Replace status line after calling external program */
-errorlevel=i;
-return(i);
-}
-
-#ifndef __FLAT__
-extern uint riobp;
-extern mswtyp;
-#endif
-
-uint fakeriobp=0xffff;
-
-/*****************************************************************************/
-/* Returns command line generated from instr with %c replacments */
-/*****************************************************************************/
-char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr)
-{
- static char static_cmd[128];
- char str[256],str2[128],*cmd;
- int i,j,len;
-
-if(outstr==NULL)
- cmd=static_cmd;
-else
- cmd=outstr;
-len=strlen(instr);
-for(i=j=0;i<len && j<128;i++) {
- if(instr[i]=='%') {
- i++;
- cmd[j]=0;
- switch(toupper(instr[i])) {
- case 'A': /* User alias */
- strcat(cmd,useron.alias);
- break;
- case 'B': /* Baud (DTE) Rate */
- strcat(cmd,ultoa(dte_rate,str,10));
- break;
- case 'C': /* Connect Description */
- strcat(cmd,connection);
- break;
- case 'D': /* Connect (DCE) Rate */
- strcat(cmd,ultoa((ulong)cur_rate,str,10));
- break;
- case 'E': /* Estimated Rate */
- strcat(cmd,ultoa((ulong)cur_cps*10,str,10));
- break;
- case 'F': /* File path */
- strcat(cmd,fpath);
- break;
- case 'G': /* Temp directory */
- strcat(cmd,temp_dir);
- break;
- case 'H': /* Port Handle or Hardware Flow Control */
-#ifdef __OS2__
- strcat(cmd,itoa(rio_handle,str,10));
-#else
- if(mdm_misc&MDM_CTS)
- strcat(cmd,"Y");
- else
- strcat(cmd,"N");
-#endif
- break;
- case 'I': /* UART IRQ Line */
- strcat(cmd,itoa(com_irq,str,10));
- break;
- case 'J':
- strcat(cmd,data_dir);
- break;
- case 'K':
- strcat(cmd,ctrl_dir);
- break;
- case 'L': /* Lines per message */
- strcat(cmd,itoa(level_linespermsg[useron.level],str,10));
- break;
- case 'M': /* Minutes (credits) for user */
- strcat(cmd,ultoa(useron.min,str,10));
- break;
- case 'N': /* Node Directory (same as SBBSNODE environment var) */
- strcat(cmd,node_dir);
- break;
- case 'O': /* SysOp */
- strcat(cmd,sys_op);
- break;
- case 'P': /* COM Port */
- strcat(cmd,itoa(online==ON_LOCAL ? 0:com_port,str,10));
- break;
- case 'Q': /* QWK ID */
- strcat(cmd,sys_id);
- break;
- case 'R': /* Rows */
- strcat(cmd,itoa(rows,str,10));
- break;
- case 'S': /* File Spec */
- strcat(cmd,fspec);
- break;
- case 'T': /* Time left in seconds */
- gettimeleft();
- strcat(cmd,itoa(timeleft,str,10));
- break;
- case 'U': /* UART I/O Address (in hex) */
- strcat(cmd,itoa(com_base,str,16));
- break;
- case 'V': /* Synchronet Version */
- sprintf(str,"%s%c",VERSION,REVISION);
- break;
- case 'W': /* Time-slice API type (mswtype) */
-#ifndef __FLAT__
- strcat(cmd,itoa(mswtyp,str,10));
-#endif
- break;
- case 'X':
- strcat(cmd,shell[useron.shell]->code);
- break;
- case '&': /* Address of msr */
-#ifndef __FLAT__
- sprintf(str,"%lu",sys_status&SS_DCDHIGH ? &fakeriobp
- : online==ON_REMOTE ? &riobp-1 : 0);
- strcat(cmd,str);
-#else
- strcat(cmd,"%&");
-#endif
- break;
- case 'Y':
- strcat(cmd,
-#ifdef __OS2__
- node_comspec
-#else
- comspec
-#endif
- );
- break;
- case 'Z':
- strcat(cmd,text_dir);
- break;
- case '!': /* EXEC Directory */
- strcat(cmd,exec_dir);
- break;
- case '#': /* Node number (same as SBBSNNUM environment var) */
- sprintf(str,"%d",node_num);
- strcat(cmd,str);
- break;
- case '*':
- sprintf(str,"%03d",node_num);
- strcat(cmd,str);
- break;
- case '$': /* Credits */
- strcat(cmd,ultoa(useron.cdt+useron.freecdt,str,10));
- break;
- case '%': /* %% for percent sign */
- strcat(cmd,"%");
- break;
- default: /* unknown specification */
- if(isdigit(instr[i])) {
- sprintf(str,"%0*d",instr[i]&0xf,useron.number);
- strcat(cmd,str); }
-/*
- else
- errormsg(WHERE,ERR_CHK,instr,i);
-*/
- break; }
- j=strlen(cmd); }
- else
- cmd[j++]=instr[i]; }
-cmd[j]=0;
-
-return(cmd);
-}
-
diff --git a/src/sbbs2/xtrn_ovl.c b/src/sbbs2/xtrn_ovl.c
deleted file mode 100644
index 3066305eb9778d1bb7a4bdfbbd4cba62889715ce..0000000000000000000000000000000000000000
--- a/src/sbbs2/xtrn_ovl.c
+++ /dev/null
@@ -1,1459 +0,0 @@
-#line 1 "XTRN_OVL.C"
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-#include "sbbs.h"
-
-char *hungupstr="\1n\1h%s\1n hung up on \1h%s\1n %s\r\n";
-
-#ifndef __FLAT__
-extern uint riobp;
-#endif
-
-extern mswtyp;
-extern uint fakeriobp;
-
-/****************************************************************************/
-/* Convert C string to pascal string */
-/****************************************************************************/
-void str2pas(char *instr, char *outstr)
-{
- int i;
-
-outstr[0]=strlen(instr);
-for(i=0;i<outstr[0];i++)
- outstr[i+1]=instr[i];
-}
-
-/****************************************************************************/
-/* Convert from unix time (seconds since 1/70) to julian (days since 1900) */
-/****************************************************************************/
-int unixtojulian(time_t unix)
-{
- int days[12]={0,31,59,90,120,151,181,212,243,273,304,334};
- long j;
- struct date d;
- struct time t;
-
-unixtodos(unix,&d,&t);
-j=36525L*d.da_year;
-if(!(j%100) && d.da_mon<3)
- j--;
-j=(j-(1900*36525))/100;
-j+=d.da_day+days[d.da_mon-1];
-return(j);
-}
-
-/****************************************************************************/
-/* Convert julian date into unix format */
-/****************************************************************************/
-time_t juliantounix(ulong j)
-{
- int days[2][12] = {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334,
- 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335};
- long temp;
- int leap,counter;
-
- if(!j) return(0L);
-
- date.da_year=(100L*j)/36525L;
- temp=(long)date.da_year*36525L;
- date.da_year+=1900;
- j-=temp/100L;
-
- if (!(temp%100)) {
- j++;
- leap=1; }
- else leap=0;
-
- for(date.da_mon=counter=0;counter<12;counter++)
- if(days[leap][counter]<j)
- date.da_mon=counter;
-
- date.da_day=j-days[leap][date.da_mon];
- date.da_mon++; /* go from 0 to 1 based */
-
- curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
- return(dostounix(&date,&curtime));
-}
-
-/****************************************************************************/
-/* Creates various types of xtrn (Doors, Chains, etc.) data files. */
-/****************************************************************************/
-void xtrndat(char *name, char *dropdir, uchar type, ulong tleft)
-{
- char str[1024],tmp2[128],c,*p;
- int i,file;
- long l;
- ushort w;
- FILE * stream;
- struct time lastcall;
- stats_t stats;
-
-if(type==XTRN_SBBS) { /* SBBS XTRN.DAT file */
- sprintf(str,"%sXTRN.DAT",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- sprintf(str,"%s\r\n%s\r\n%s\r\n%s\r\n"
- ,name /* User name */
- ,sys_name /* System name */
- ,sys_op /* Sysop name */
- ,sys_guru); /* Guru name */
- write(file,str,strlen(str));
-
- sprintf(str,"%s\r\n%s\r\n%u\r\n%u\r\n%lu\r\n%s\r\n%lu\r\n%lu\r\n"
- ,ctrl_dir /* Ctrl dir */
- ,data_dir /* Data dir */
- ,sys_nodes /* Total system nodes */
- ,node_num /* Current node */
- ,tleft /* User Timeleft in seconds */
- ,useron.misc&ANSI /* User ANSI ? (Yes/Mono/No) */
- ? useron.misc&COLOR
- ? "Yes":"Mono":"No"
- ,rows /* User Screen lines */
- ,useron.cdt+useron.freecdt); /* User Credits */
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n%u\r\n%s\r\n%c\r\n%u\r\n%s\r\n"
- ,useron.level /* User main level */
- ,useron.level /* User transfer level */
- ,useron.birth /* User birthday */
- ,useron.sex /* User sex (M/F) */
- ,useron.number /* User number */
- ,useron.phone); /* User phone number */
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n%u\r\n%x\r\n%lu\r\n%s\r\n%s\r\n"
- "%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n%lu\r\n"
- ,online==ON_LOCAL ? 0:com_port /* Com port or 0 if local */
- ,com_irq /* Com IRQ */
- ,com_base /* Com base in hex */
- ,dte_rate /* Com rate */
- ,mdm_misc&MDM_CTS ? "Yes":"No" /* Hardware flow ctrl Y/N */
- ,mdm_misc&MDM_STAYHIGH ? "Yes":"No" /* Locked DTE rate Y/N */
- ,mdm_init /* Modem initialization string */
- ,mdm_spec /* Modem special init string */
- ,mdm_term /* Modem terminal mode init str */
- ,mdm_dial /* Modem dial string */
- ,mdm_offh /* Modem off-hook string */
- ,mdm_answ /* Modem answer string */
-#ifndef __FLAT__
- ,sys_status&SS_DCDHIGH ? &fakeriobp : &riobp-1 /* Modem status register */
-#else
- ,0
-#endif
- );
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n",total_xtrns);
- write(file,str,strlen(str)); /* Total external programs */
-
- for(i=0;i<total_xtrns;i++) { /* Each program's name */
- if(SYSOP || chk_ar(xtrn[i]->ar,useron))
- strcpy(str,xtrn[i]->name);
- else
- str[0]=0; /* Blank if no access */
- strcat(str,crlf);
- write(file,str,strlen(str)); }
-
- sprintf(str,"%s\r\n%s\r\n"
- ,ltoaf(useron.flags1,tmp) /* Main flags */
- ,ltoaf(useron.flags2,tmp2) /* Transfer flags */
- );
- write(file,str,strlen(str));
-
- sprintf(str,"%s\r\n%s\r\n%lx\r\n%s\r\n%s\r\n%s\r\n"
- ,ltoaf(useron.exempt,tmp) /* Exemptions */
- ,ltoaf(useron.rest,tmp2) /* Restrictions */
- ,useron.expire /* Expiration date in unix form */
- ,useron.address /* Address */
- ,useron.location /* City/State */
- ,useron.zipcode /* Zip/Postal code */
- );
- write(file,str,strlen(str));
-
- sprintf(str,"%s\r\n%s\r\n%d\r\n%s\r\n%lu\r\n%s\r\n%s\r\n%s\r\n%s\r\n"
- "%lx\r\n%d\r\n"
- ,ltoaf(useron.flags3,tmp) /* Flag set #3 */
- ,ltoaf(useron.flags4,tmp2) /* Flag set #4 */
- ,mswtyp /* Time-slice type */
- ,useron.name /* Real name/company */
- ,cur_rate /* DCE rate */
- ,exec_dir
- ,text_dir
- ,temp_dir
- ,sys_id
- ,node_misc
-#ifdef __FLAT__
- ,rio_handle
-#else
- ,-1
-#endif
- );
- write(file,str,strlen(str));
-
- close(file); }
-
-else if(type==XTRN_WWIV) { /* WWIV CHAIN.TXT File */
- sprintf(str,"%sCHAIN.TXT",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- sprintf(str,"%u\r\n%s\r\n%s\r\n%s\r\n%u\r\n%c\r\n"
- ,useron.number /* User number */
- ,name /* User name */
- ,useron.name /* User real name */
- ,nulstr /* User call sign */
- ,getage(useron.birth) /* User age */
- ,useron.sex); /* User sex (M/F) */
- strupr(str);
- write(file,str,strlen(str));
-
- sprintf(str,"%lu\r\n%s\r\n%u\r\n%lu\r\n%u\r\n%u\r\n%u\r\n%u\r\n%u\r\n"
- ,useron.cdt+useron.freecdt /* Gold */
- ,unixtodstr(useron.laston,tmp) /* User last on date */
- ,80 /* User screen width */
- ,rows /* User screen length */
- ,useron.level /* User SL */
- ,0 /* Cosysop? */
- ,SYSOP /* Sysop? (1/0) */
- ,(useron.misc&ANSI) ? 1:0 /* ANSI ? (1/0) */
- ,online==ON_REMOTE); /* Remote (1/0) */
- write(file,str,strlen(str));
-
- sprintf(str,"%lu\r\n%s\r\n%s\r\n%s\r\n%lu\r\n%d\r\n%s\r\n%s\r\n"
- "%u\r\n%u\r\n%lu\r\n%u\r\n%lu\r\n%u\r\n%s\r\n"
- ,tleft /* Time left in seconds */
- ,node_dir /* Gfiles dir (log dir) */
- ,data_dir /* Data dir */
- ,"NODE.LOG" /* Name of log file */
- ,dte_rate /* DTE rate */
- ,com_port /* COM port number */
- ,sys_name /* System name */
- ,sys_op /* Sysop name */
- ,0 /* Logon time (sec past 12am) */
- ,0 /* Current time (sec past 12am) */
- ,useron.ulb/1024UL /* User uploaded kbytes */
- ,useron.uls /* User uploaded files */
- ,useron.dlb/1024UL /* User downloaded kbytes */
- ,useron.dls /* User downloaded files */
- ,"8N1"); /* Data, parity, stop bits */
- write(file,str,strlen(str));
-
- close(file); }
-
-else if(type==XTRN_GAP) { /* Gap DOOR.SYS File */
- sprintf(str,"%sDOOR.SYS",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- sprintf(str,"COM%d:\r\n%lu\r\n%u\r\n%u\r\n%lu\r\n%c\r\n%c\r\n%c\r\n%c\r\n"
- ,online==ON_REMOTE ? com_port:0 /* 01: COM port - 0 if Local */
- ,cur_rate /* 02: DCE rate */
- ,8 /* 03: Data bits */
- ,node_num /* 04: Node number */
- ,dte_rate /* 05: DTE rate */
- ,console&CON_L_ECHO ? 'Y':'N' /* 06: Screen display */
- ,'Y' /* 07: Printer toggle */
- ,'Y' /* 08: Page bell */
- ,'Y'); /* 09: Caller alarm */
- write(file,str,strlen(str));
-
- sprintf(str,"%s\r\n%s\r\n%s\r\n%s\r\n%s\r\n"
- ,name /* 10: User name */
- ,useron.location /* 11: User location */
- ,useron.phone /* 12: User home phone */
- ,useron.phone /* 13: User work/data phone */
- ,useron.pass); /* 14: User password */
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n%u\r\n%s\r\n%lu\r\n%lu\r\n%s\r\n"
- ,useron.level /* 15: User security level */
- ,useron.logons /* 16: User total logons */
- ,unixtodstr(useron.laston,tmp) /* 17: User last on date */
- ,tleft /* 18: User time left in sec */
- ,tleft/60 /* 19: User time left in min */
- ,useron.misc&NO_EXASCII /* 20: GR if COLOR ANSI */
- ? "7E" : (useron.misc&(ANSI|COLOR))==(ANSI|COLOR) ? "GR" : "NG");
- write(file,str,strlen(str));
-
- sprintf(str,"%lu\r\n%c\r\n%s\r\n%u\r\n%s\r\n%u\r\n%c\r\n%u\r\n%u\r\n"
- ,rows /* 21: User screen length */
- ,useron.misc&EXPERT ? 'Y':'N' /* 22: Expert? (Y/N) */
- ,ltoaf(useron.flags1,tmp2) /* 23: Registered conferences */
- ,0 /* 24: Conference came from */
- ,unixtodstr(useron.expire,tmp) /* 25: User expiration date */
- ,useron.number /* 26: User number */
- ,'Y' /* 27: Default protocol */
- ,useron.uls /* 28: User total uploads */
- ,useron.dls); /* 29: User total downloads */
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n%lu\r\n%s\r\n%s\r\n%s\r\n%s"
- "\r\n%s\r\n%02d:%02d\r\n%c\r\n"
- ,0 /* 30: Kbytes downloaded today */
- ,(useron.cdt+useron.freecdt)/1024UL /* 31: Max Kbytes to download today */
- ,useron.birth /* 32: User birthday */
- ,node_dir /* 33: Path to MAIN directory */
- ,data_dir /* 34: Path to GEN directory */
- ,sys_op /* 35: Sysop name */
- ,nulstr /* 36: Alias name */
- ,0 // sys_eventtime/60 /* 37: Event time HH:MM */
- ,0 // sys_eventtime%60
- ,'Y'); /* 38: Error correcting connection */
- write(file,str,strlen(str));
-
- unixtodos(ns_time,&date,&curtime);
- sprintf(str,"%c\r\n%c\r\n%u\r\n%lu\r\n%02d/%02d/%02d\r\n"
- ,(useron.misc&(NO_EXASCII|ANSI|COLOR))==ANSI
- ? 'Y':'N' /* 39: ANSI supported but NG mode */
- ,'Y' /* 40: Use record locking */
- ,14 /* 41: BBS default color */
- ,useron.min /* 42: Time credits in minutes */
- ,date.da_mon /* 43: File new-scan date */
- ,date.da_day
- ,TM_YEAR(date.da_year-1900));
- write(file,str,strlen(str));
-
- unixtodos(logontime,&date,&curtime);
- unixtodos(useron.laston,&date,&lastcall);
- sprintf(str,"%02d:%02d\r\n%02d:%02d\r\n%u\r\n%u\r\n%lu\r\n"
- "%lu\r\n%s\r\n%u\r\n%u\r\n"
- ,curtime.ti_hour /* 44: Time of this call */
- ,curtime.ti_min
- ,lastcall.ti_hour /* 45: Time of last call */
- ,lastcall.ti_min
- ,999 /* 46: Max daily files available */
- ,0 /* 47: Files downloaded so far today */
- ,useron.ulb/1024UL /* 48: Total Kbytes uploaded */
- ,useron.dlb/1024UL /* 49: Total Kbytes downloaded */
- ,useron.comment /* 50: User comment */
- ,0 /* 51: Total doors opened */
- ,useron.posts); /* 52: User message left */
- write(file,str,strlen(str));
-
- close(file); }
-
-else if(type==XTRN_RBBS || type==XTRN_RBBS1) {
- if(type==XTRN_RBBS)
- sprintf(str,"%sDORINFO%X.DEF",dropdir,node_num); /* support 1-F */
- else
- sprintf(str,"%sDORINFO1.DEF",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- strcpy(tmp,sys_op);
- p=strchr(tmp,SP);
- if(p)
- *(p++)=0;
- else
- p=nulstr;
-
- sprintf(str,"%s\r\n%s\r\n%s\r\nCOM%d\r\n%lu BAUD,N,8,1\r\n%u\r\n"
- ,sys_name /* Name of BBS */
- ,tmp /* Sysop's firstname */
- ,p /* Sysop's lastname */
- ,online==ON_REMOTE ? com_port:0 /* COM port number, 0 if local */
- ,dte_rate /* DTE rate */
- ,0); /* Network type */
- strupr(str);
- write(file,str,strlen(str));
-
- strcpy(tmp,name);
- p=strchr(tmp,SP);
- if(p)
- *(p++)=0;
- else
- p=nulstr;
- sprintf(str,"%s\r\n%s\r\n%s\r\n%u\r\n%u\r\n%lu\r\n"
- ,tmp /* User's firstname */
- ,p /* User's lastname */
- ,useron.location /* User's city */
- ,(useron.misc&ANSI)==ANSI /* 1=ANSI 0=ASCII */
- ,useron.level /* Security level */
- ,tleft/60); /* Time left in minutes */
- strupr(str);
- write(file,str,strlen(str));
-
- close(file);
-
- sprintf(str,"%sEXITINFO.BBS",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
- w=dte_rate;
- write(file,&w,sizeof(short)); /* BaudRate */
- /* SysInfo */
- getstats(0,&stats);
- write(file,&stats.logons,sizeof(long)); /* CallCount */
- write(file,nulstr,36); /* LastCallerName */
- write(file,nulstr,36); /* LastCallerAlias */
- write(file,nulstr,92); /* ExtraSpace */
- /* TimeLogInfo */
- write(file,nulstr,9); /* StartDate */
- write(file,nulstr,24*sizeof(short)); /* BusyPerHour */
- write(file,nulstr,7*sizeof(short)); /* BusyPerDay */
- /* UserInfo */
- str2pas(name,str); /* Name */
- write(file,str,36);
- str2pas(useron.location,str);
- write(file,str,26); /* City */
- str2pas(useron.pass,str);
- write(file,str,16); /* Pwd */
- str2pas(useron.phone,str);
- write(file,str,13); /* DataPhone */
- write(file,str,13); /* HomePhone */
- unixtodos(useron.laston,&date,&lastcall);
- sprintf(tmp,"%02d:%02d",lastcall.ti_hour,lastcall.ti_min);
- str2pas(tmp,str);
- write(file,str,6); /* LastTime */
- unixtodstr(useron.laston,tmp);
- str2pas(tmp,str);
- write(file,str,9); /* LastDate */
- c=0;
- if(useron.misc&DELETED) c|=(1<<0);
- if(useron.misc&CLRSCRN) c|=(1<<1);
- if(useron.misc&UPAUSE) c|=(1<<2);
- if(useron.misc&ANSI) c|=(1<<3);
- if(useron.sex=='F') c|=(1<<7);
- write(file,&c,1); /* Attrib */
- write(file,&useron.flags1,4); /* Flags */
- i=0;
- w=0;
- write(file,&w,sizeof(short)); /* Credit */
- write(file,&w,sizeof(short)); /* Pending */
- write(file,&useron.posts,sizeof(short)); /* TimesPosted */
- write(file,&w,sizeof(short)); /* HighMsgRead */
- w=useron.level;
- write(file,&w,sizeof(short)); /* SecLvl */
- w=0;
- write(file,&w,sizeof(short)); /* Times */
- write(file,&useron.uls,sizeof(short)); /* Ups */
- write(file,&useron.dls,sizeof(short)); /* Downs */
- w=useron.ulb/1024UL;
- write(file,&w,sizeof(short)); /* UpK */
- w=useron.dlb/1024UL;
- write(file,&w,sizeof(short)); /* DownK */
- w=logon_dlb/1024UL;
- write(file,&w,sizeof(short)); /* TodayK */
- w=0;
- write(file,&w,sizeof(short)); /* Elapsed */
- write(file,&w,sizeof(short)); /* Len */
- write(file,&w,sizeof(short)); /* CombinedPtr */
- write(file,&w,sizeof(short)); /* AliasPtr */
- l=0;
- write(file,&l,sizeof(long)); /* Birthday (as a long?) */
- /* EventInfo */
- c=0;
- write(file,&c,sizeof(char)); /* Status */
- write(file,&l /* sys_eventtime */,sizeof(long)); /* RunTime */
- write(file,&c,sizeof(char)); /* ErrorLevel */
- c=0xff;
- write(file,&c,sizeof(char)); /* Days */
- // c=sys_eventnode==node_num || sys_misc&SM_TIMED_EX ? 1 : 0;
- c=0;
- write(file,&c,sizeof(char)); /* Forced */
- if(!total_events)
- l=0;
- else
- l=event[0]->last;
- write(file,&l,sizeof(long)); /* LastTimeRun */
- memset(str,0,40);
- write(file,str,7); /* Spare */
-
- c=0;
- write(file,&c,1); /* NetMailEntered */
- write(file,&c,1); /* EchoMailEntered */
-
- unixtodos(logontime,&date,&curtime);
- sprintf(tmp,"%02d:%02d",curtime.ti_hour,curtime.ti_min);
- str2pas(tmp,str);
- write(file,str,6); /* LoginTime */
- unixtodstr(logontime,tmp);
- str2pas(tmp,str);
- write(file,str,9); /* LoginDate */
- write(file,&level_timepercall[useron.level],sizeof(short)); /* TmLimit */
- write(file,&logontime,sizeof(long)); /* LoginSec */
- write(file,&useron.cdt,sizeof(long)); /* Credit */
- write(file,&useron.number,sizeof(short)); /* UserRecNum */
- write(file,&i,2); /* ReadThru */
- write(file,&i,2); /* PageTimes */
- write(file,&i,2); /* DownLimit */
- c=sys_status&SS_SYSPAGE ? 1:0;
- write(file,&c,1); /* WantChat */
- c=0;
- write(file,&c,1); /* GosubLevel */
-
- memset(str,0,255);
- for(i=1;i<20;i++)
- write(file,str,9); /* GosubData */
- write(file,str,9); /* Menu */
- c=useron.misc&CLRSCRN ? 1:0;
- write(file,&c,1); /* ScreenClear */
- c=useron.misc&UPAUSE ? 1:0;
- write(file,&c,1); /* MorePrompts */
- c=useron.misc&NO_EXASCII ? 0:1;
- write(file,&c,1); /* GraphicsMode */
- c=useron.xedit ? 1:0;
- write(file,&c,1); /* ExternEdit */
- i=rows;
- write(file,&i,2); /* ScreenLength */
- c=1;
- write(file,&c,1); /* MNP_Connect */
- write(file,str,49); /* ChatReason */
- c=0;
- write(file,&c,1); /* ExternLogoff */
- c=useron.misc&ANSI ? 1:0;
- write(file,&c,1); /* ANSI_Capable */
- close(file);
- }
-
-else if(type==XTRN_WILDCAT) { /* WildCat CALLINFO.BBS File */
- sprintf(str,"%sCALLINFO.BBS",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- if(online==ON_LOCAL) i=5;
- else
- switch(dte_rate) {
- case 300:
- i=1;
- break;
- case 1200:
- i=2;
- break;
- case 2400:
- i=0;
- break;
- case 9600:
- i=3;
- break;
- case 19200:
- i=4;
- break;
- case 38400:
- i=6;
- break;
- default:
- i=7;
- break; }
- sprintf(str,"%s\r\n%u\r\n%s\r\n%u\r\n%lu\r\n%s\r\n%s\r\n%u\r\n"
- ,name /* User name */
- ,i /* DTE rate */
- ,useron.location /* User location */
- ,useron.level /* Security level */
- ,tleft/60 /* Time left in min */
- ,useron.misc&ANSI ? "COLOR":"MONO" /* ANSI ??? */
- ,useron.pass /* Password */
- ,useron.number); /* User number */
- write(file,str,strlen(str));
-
- unixtodos(now,&date,&curtime);
- sprintf(str,"%lu\r\n%02d:%02d\r\n%02d:%02d %02d/%02d/%02d\r\n%s\r\n"
- ,tleft /* Time left in seconds */
- ,curtime.ti_hour,curtime.ti_min /* Current time HH:MM */
- ,curtime.ti_hour,curtime.ti_min /* Current time and date HH:MM */
- ,date.da_mon,date.da_day /* MM/DD/YY */
- ,TM_YEAR(date.da_year-1900)
- ,nulstr); /* Conferences with access */
- write(file,str,strlen(str));
-
- unixtodos(useron.laston,&date,&lastcall);
- sprintf(str,"%u\r\n%u\r\n%u\r\n%u\r\n%s\r\n%s %02u:%02u\r\n"
- ,0 /* Daily download total */
- ,0 /* Max download files */
- ,0 /* Daily download k total */
- ,0 /* Max download k total */
- ,useron.phone /* User phone number */
- ,unixtodstr(useron.laston,tmp) /* Last on date and time */
- ,lastcall.ti_hour /* MM/DD/YY HH:MM */
- ,lastcall.ti_min);
- write(file,str,strlen(str));
-
- unixtodos(ns_time,&date,&curtime);
- sprintf(str,"%s\r\n%s\r\n%02d/%02d/%02d\r\n%u\r\n%lu\r\n%u"
- "\r\n%u\r\n%u\r\n"
- ,useron.misc&EXPERT /* Expert or Novice mode */
- ? "EXPERT":"NOVICE"
- ,"All" /* Transfer Protocol */
- ,date.da_mon,date.da_day /* File new-scan date */
- ,TM_YEAR(date.da_year-1900) /* in MM/DD/YY */
- ,useron.logons /* Total logons */
- ,rows /* Screen length */
- ,0 /* Highest message read */
- ,useron.uls /* Total files uploaded */
- ,useron.dls); /* Total files downloaded */
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n%s\r\nCOM%u\r\n%s\r\n%lu\r\n%s\r\n%s\r\n"
- ,8 /* Data bits */
- ,online==ON_LOCAL?"LOCAL":"REMOTE" /* Online local or remote */
- ,com_port /* COMx port */
- ,useron.birth /* User birthday */
- ,dte_rate /* DTE rate */
- ,"FALSE" /* Already connected? */
- ,"Normal Connection"); /* Normal or ARQ connect */
- write(file,str,strlen(str));
-
- sprintf(str,"%02d/%02d/%02d %02d:%02d\r\n%u\r\n%u\r\n"
- ,date.da_mon,date.da_day /* Current date MM/DD/YY */
- ,TM_YEAR(date.da_year-1900)
- ,curtime.ti_hour,curtime.ti_min /* Current time HH:MM */
- ,node_num /* Node number */
- ,0); /* Door number */
- write(file,str,strlen(str));
-
- close(file); }
-
-else if(type==XTRN_PCBOARD) { /* PCBoard Files */
- sprintf(str,"%sPCBOARD.SYS",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- sprintf(str,"%2d%2d%2d%2d%c%2d%c%c%5u%-5.5s"
- ,-1 /* Display on/off */
- ,0 /* Printer on/off */
- ,sys_status&SS_SYSPAGE ? -1:0 /* Page Bell on/off */
- ,node_misc&NM_ANSALARM ? -1:0 /* Caller Alarm on/off */
- ,SP /* Sysop next flag */
- ,0 /* Error corrected */
- ,useron.misc&NO_EXASCII ? '7' /* Graphics mode */
- : (useron.misc&(COLOR|ANSI))==(COLOR|ANSI) ? 'Y':'N'
- ,'A' /* Node chat status */
- ,(uint)dte_rate /* DTE Port Speed */
- ,connection /* Connection description */
- );
- write(file,str,23);
-
- write(file,&useron.number,2); /* User record number */
-
- strcpy(tmp,name);
- p=strchr(tmp,SP);
- if(p) *p=0;
- sprintf(str,"%-15.15s%-12s"
- ,tmp /* User's first name */
- ,useron.pass); /* User's password */
- write(file,str,27);
-
- unixtodos(logontime,&date,&curtime);
- i=(curtime.ti_hour*60)+curtime.ti_min;
- write(file,&i,2); /* Logon time in min since mid */
-
- now=time(NULL);
- i=-(((now-starttime)/60)+useron.ttoday); /* Negative minutes used */
- write(file,&i,2);
-
- sprintf(str,"%02d:%02d",curtime.ti_hour,curtime.ti_min);
- write(file,str,5);
-
- i=level_timepercall[useron.level]; /* Time allowed on */
- write(file,&i,2);
-
- i=0; /* Allowed K-bytes for D/L */
- write(file,&i,2);
- write(file,&i,1); /* Conference user was in */
- write(file,&i,2); /* Conferences joined */
- write(file,&i,2); /* "" */
- write(file,&i,2); /* "" */
- write(file,&i,2); /* Conferences scanned */
- write(file,&i,2); /* "" */
- write(file,&i,2); /* Conference add time */
- write(file,&i,2); /* Upload/Sysop Chat time min */
-
- strcpy(str," ");
- write(file,str,4); /* Language extension */
-
- sprintf(str,"%-25.25s",name); /* User's full name */
- write(file,str,25);
-
- i=(tleft/60);
- write(file,&i,2); /* Minutes remaining */
-
- write(file,&node_num,1); /* Node number */
-
- sprintf(str,"%02d:%02d%2d%2d" /* Scheduled Event time */
- ,0 // sys_eventtime/60
- ,0 // sys_eventtime%60
- ,0 // sys_timed[0] ? -1:0 /* Event active ? */
- ,0 /* Slide event ? */
- );
- write(file,str,9);
-
- l=0L;
- write(file,&l,4); /* Memorized message number */
-
- sprintf(str,"%d%c%c%d%s%c%c%d%d%d%c%c"
- ,com_port /* COM Port number */
- ,SP /* Reserved */
- ,SP /* "" */
- ,(useron.misc&ANSI)==ANSI /* 1=ANSI 0=NO ANSI */
- ,"01-01-80" /* last event date */
- ,0,0 /* last event minute */
- ,0 /* caller exited to dos */
- ,sys_status&SS_EVENT ? 1:0 /* event up coming */
- ,0 /* stop uploads */
- ,0,0 /* conference user was in */
- );
- write(file,str,19);
-
- close(file); /* End of PCBOARD.SYS creation */
-
- sprintf(str,"%sUSERS.SYS",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- /* Write goof-ball header */
-
- i=145;
- write(file,&i,2); /* PCBoard version number (i.e. 145) */
- l=useron.number;
- write(file,&l,4); /* Record number for USER's file */
- i=218;
- write(file,&i,2); /* Size of "fixed" user record */
- i=1;
- write(file,&i,2); /* Number of conference areas */
- i=7;
- write(file,&i,2); /* Number of bit map fields for conferences */
- i=5;
- write(file,&i,2); /* Size of each bit map field */
- memset(str,0,15);
- write(file,str,15); /* Name of Third Party Application (if any) */
- i=0;
- write(file,&i,2); /* Version number for application (if any) */
- write(file,&i,2); /* Size of a "fixed length" record (if any) */
- write(file,&i,2); /* Size of conference record (if any) */
- l=0;
- write(file,&l,4); /* Offset of AppRec into USERS.INF (if any) */
- i=0;
- write(file,&i,1); /* 1, if USERS.SYS file has been updated */
-
- /* Write fixed record portion */
-
- write(file,name,26); /* Name */
- sprintf(str,"%.24s",useron.location);
- write(file,str,25); /* Location */
- write(file,useron.pass,13); /* Password */
- write(file,useron.phone,14); /* Business or Data Phone */
- write(file,useron.phone,14); /* Home or Voice Phone */
- i=unixtojulian(useron.laston);
- write(file,&i,2); /* Date last on */
- unixtodos(useron.laston,&date,&curtime);
- sprintf(str,"%02d:%02d",curtime.ti_hour,curtime.ti_min);
- write(file,str,6); /* Last time on */
- if(useron.misc&EXPERT)
- i=1;
- else
- i=0;
- write(file,&i,1); /* Expert mode */
- i='Z';
- write(file,&i,1); /* Protocol (A-Z) */
- if(useron.misc&CLRSCRN)
- i=2;
- else
- i=0;
- write(file,&i,1); /* bit packed flags */
- i=0;
- write(file,&i,2); /* DOS date for last DIR Scan */
- i=useron.level;
- write(file,&i,2); /* Security level */
- write(file,&useron.logons,2); /* Number of times caller has connected */
- c=rows;
- write(file,&c,1); /* Page length */
- write(file,&useron.uls,2); /* Number of uploads */
- write(file,&useron.dls,2); /* Number of downloads */
- l=0;
- write(file,&l,4); /* Number of download bytes today */
- write(file,&useron.note,31); /* Comment #1 */
- write(file,&useron.comp,31); /* Comment #2 */
- i=(now-starttime)/60;
- write(file,&i,2); /* Minutes online (this logon?) */
- i=unixtojulian(useron.expire);
- write(file,&i,2); /* Expiration date */
- i=expired_level;
- write(file,&i,2); /* Expired security level */
- i=1;
- write(file,&i,2); /* Current conference */
- write(file,&useron.dlb,4); /* Bytes downloaded */
- write(file,&useron.ulb,4); /* Bytes uploaded */
- if(useron.misc&DELETED)
- i=1;
- else
- i=0;
- write(file,&i,1); /* Deleted? */
- l=useron.number;
- write(file,&l,4); /* Record number in USERS.INF file */
- l=0;
- memset(str,0,9);
- write(file,str,9); /* Reserved */
- write(file,&l,4); /* Number of messages read */
- l=useron.posts+useron.emails+useron.fbacks;
- write(file,&l,4); /* Number of messages left */
- close(file);
-
- /* End of USERS.SYS creation */
-
- }
-
-else if(type==XTRN_SPITFIRE) { /* SpitFire SFDOORS.DAT File */
- sprintf(str,"%sSFDOORS.DAT",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- now=time(NULL);
- unixtodos(now,&date,&curtime);
- l=((((long)curtime.ti_hour*60L)+(long)curtime.ti_min)*60L)
- +(long)curtime.ti_sec;
-
- strcpy(tmp,name);
- if((p=strchr(tmp,SP))!=NULL)
- *p=0;
-
- sprintf(str,"%u\r\n%s\r\n%s\r\n%s\r\n%lu\r\n%u\r\n%lu\r\n%lu\r\n"
- ,useron.number /* User number */
- ,name /* User name */
- ,useron.pass /* Password */
- ,tmp /* User's first name */
- ,dte_rate /* DTE Rate */
- ,com_port /* COM Port */
- ,tleft/60 /* Time left in minutes */
- ,l /* Seconds since midnight (now) */
- );
- write(file,str,strlen(str));
-
- unixtodos(logontime,&date,&curtime);
- l=((((long)curtime.ti_hour*60L)+(long)curtime.ti_min)*60L)
- +(long)curtime.ti_sec;
-
- sprintf(str,"%s\r\n%s\r\n%u\r\n%u\r\n%u\r\n%u\r\n%lu\r\n%lu\r\n%s\r\n"
- "%s\r\n%s\r\n%lu\r\n%s\r\n%u\r\n%u\r\n%u\r\n%u\r\n%u\r\n%lu\r\n%u\r\n"
- "%lu\r\n%lu\r\n%s\r\n%s\r\n"
- ,dropdir
- ,useron.misc&ANSI ? "TRUE":"FALSE" /* ANSI ? True or False */
- ,useron.level /* Security level */
- ,useron.uls /* Total uploads */
- ,useron.dls /* Total downloads */
- ,level_timepercall[useron.level] /* Minutes allowed this call */
- ,l /* Secs since midnight (logon) */
- ,starttime-logontime /* Extra time in seconds */
- ,"FALSE" /* Sysop next? */
- ,"FALSE" /* From Front-end? */
- ,"FALSE" /* Software Flow Control? */
- ,dte_rate /* DTE Rate */
- ,"FALSE" /* Error correcting connection? */
- ,0 /* Current conference */
- ,0 /* Current file dir */
- ,node_num /* Node number */
- ,15 /* Downloads allowed per day */
- ,0 /* Downloads already this day */
- ,100000 /* Download bytes allowed/day */
- ,0 /* Downloaded bytes already today */
- ,useron.ulb/1024L /* Kbytes uploaded */
- ,useron.dlb/1024L /* Kbytes downloaded */
- ,useron.phone /* Phone Number */
- ,useron.location /* City, State */
- );
- write(file,str,strlen(str));
-
- close(file); }
-
-else if(type==XTRN_UTI) { /* UTI v2.1 - UTIDOOR.TXT */
- sprintf(str,"%sUTIDOOR.TXT",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- strcpy(tmp,name);
- strupr(tmp);
- sprintf(str,"%s\r\n%lu\r\n%u\r\n%lu\r\n%lu\r\n"
- ,tmp /* User name */
- ,cur_rate /* Actual BPS rate */
- ,online==ON_LOCAL ? 0: com_port /* COM Port */
- ,dte_rate /* DTE rate */
- ,tleft); /* Time left in sec */
- write(file,str,strlen(str));
-
- close(file); }
-
-else if(type==XTRN_SR) { /* Solar Realms DOORFILE.SR */
- sprintf(str,"%sDOORFILE.SR",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- sprintf(str,"%s\r\n%d\r\n%d\r\n%lu\r\n%lu\r\n%u\r\n%lu\r\n"
- ,name /* Complete name of user */
- ,useron.misc&ANSI ? 1:0 /* ANSI ? */
- ,useron.misc&NO_EXASCII ? 0:1 /* IBM characters ? */
- ,rows /* Page length */
- ,dte_rate /* Baud rate */
- ,online==ON_LOCAL ? 0:com_port /* COM port */
- ,tleft/60 /* Time left (in minutes) */
- );
- write(file,str,strlen(str));
- close(file); }
-
-else if(type==XTRN_TRIBBS) { /* TRIBBS.SYS */
- sprintf(str,"%sTRIBBS.SYS",dropdir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_TRUNC);
- return; }
-
- sprintf(str,"%u\r\n%s\r\n%s\r\n%u\r\n%c\r\n%c\r\n%lu\r\n%s\r\n%s\r\n%s\r\n"
- ,useron.number /* User's record number */
- ,name /* User's name */
- ,useron.pass /* User's password */
- ,useron.level /* User's level */
- ,useron.misc&EXPERT ? 'Y':'N' /* Expert? */
- ,useron.misc&ANSI ? 'Y':'N' /* ANSI? */
- ,tleft/60 /* Minutes left */
- ,useron.phone /* User's phone number */
- ,useron.location /* User's city and state */
- ,useron.birth /* User's birth date */
- );
- write(file,str,strlen(str));
-
- sprintf(str,"%u\r\n%u\r\n%lu\r\n%lu\r\n%c\r\n%c\r\n%s\r\n%s\r\n%s\r\n"
- ,node_num /* Node number */
- ,com_port /* Serial port */
- ,online==ON_LOCAL ? 0L:cur_rate /* Baud rate */
- ,dte_rate /* Locked rate */
- ,mdm_misc&(MDM_RTS|MDM_CTS) ? 'Y':'N'
- ,'Y' /* Error correcting connection */
- ,sys_name /* Board's name */
- ,sys_op /* Sysop's name */
- ,useron.handle /* User's alias */
- );
- write(file,str,strlen(str));
- close(file); }
-
-else if(type)
- errormsg(WHERE,ERR_CHK,"Drop file type",type);
-
-}
-
-/****************************************************************************/
-/* Reads in MODUSER.DAT, EXITINFO.BBS, or DOOR.SYS and modify the current */
-/* user's values. */
-/****************************************************************************/
-void moduserdat(uint xtrnnum)
-{
- char str[256],path[256],c,startup[128];
- uint i;
- long mod;
- int file;
- FILE *stream;
-
-sprintf(startup,"%s\\",xtrn[xtrnnum]->path);
-if(xtrn[xtrnnum]->type==XTRN_RBBS) {
- sprintf(path,"%sEXITINFO.BBS"
- ,xtrn[xtrnnum]->misc&STARTUPDIR ? startup : node_dir);
- if((file=nopen(path,O_RDONLY))!=-1) {
- lseek(file,361,SEEK_SET);
- read(file,&useron.flags1,4); /* Flags */
- putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,tmp,16));
- lseek(file,373,SEEK_SET);
- read(file,&i,2); /* SecLvl */
- if(i<90) {
- useron.level=i;
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,tmp,10)); }
- close(file);
- remove(path); }
- return; }
-else if(xtrn[xtrnnum]->type==XTRN_GAP) {
- sprintf(path,"%sDOOR.SYS"
- ,xtrn[xtrnnum]->misc&STARTUPDIR ? startup : node_dir);
- if((stream=fopen(path,"rb"))!=NULL) {
- for(i=0;i<15;i++) /* skip first 14 lines */
- if(!fgets(str,128,stream))
- break;
- if(i==15 && isdigit(str[0])) {
- mod=atoi(str);
- if(mod<90) {
- useron.level=mod;
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,tmp,10)); } }
-
- for(;i<23;i++)
- if(!fgets(str,128,stream))
- break;
- if(i==23) { /* set main flags */
- useron.flags1=aftol(str);
- putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,tmp,16)); }
-
- for(;i<25;i++)
- if(!fgets(str,128,stream))
- break;
- if(i==25 && isdigit(str[0]) && isdigit(str[1])
- && (str[2]=='/' || str[2]=='-') /* xx/xx/xx or xx-xx-xx */
- && isdigit(str[3]) && isdigit(str[4])
- && (str[5]=='/' || str[5]=='-')
- && isdigit(str[6]) && isdigit(str[7])) { /* valid expire date */
- useron.expire=dstrtounix(str);
- putuserrec(useron.number,U_EXPIRE,8,ultoa(useron.expire,tmp,16)); }
-
- for(;i<29;i++) /* line 29, total downloaded files */
- if(!fgets(str,128,stream))
- break;
- if(i==29) {
- truncsp(str);
- useron.dls=atoi(str);
- putuserrec(useron.number,U_DLS,5,str); }
-
- if(fgets(str,128,stream)) { /* line 30, Kbytes downloaded today */
- i++;
- truncsp(str);
- mod=atol(str)*1024L;
- if(mod) {
- useron.dlb=adjustuserrec(useron.number,U_DLB,10,mod);
- subtract_cdt(mod); } }
-
- for(;i<42;i++)
- if(!fgets(str,128,stream))
- break;
- if(i==42 && isdigit(str[0])) { /* Time Credits in Minutes */
- useron.min=atol(str);
- putuserrec(useron.number,U_MIN,10,ultoa(useron.min,tmp,10)); }
-
- fclose(stream); }
- return; }
-
-else if(xtrn[xtrnnum]->type==XTRN_PCBOARD) {
- sprintf(path,"%sUSERS.SYS"
- ,xtrn[xtrnnum]->misc&STARTUPDIR ? startup : node_dir);
- if((file=nopen(path,O_RDONLY))!=-1) {
- lseek(file,39,SEEK_SET);
- read(file,&c,1);
- if(c==1) { /* file has been updated */
- lseek(file,105,SEEK_CUR); /* read security level */
- read(file,&i,2);
- if(i<90) {
- useron.level=i;
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,tmp,10)); }
- lseek(file,75,SEEK_CUR); /* read in expiration date */
- read(file,&i,2); /* convert from julian to unix */
- useron.expire=juliantounix(i);
- putuserrec(useron.number,U_EXPIRE,8,ltoa(useron.expire,tmp,16)); }
- close(file); }
- return; }
-
-sprintf(path,"%sMODUSER.DAT"
- ,xtrn[xtrnnum]->misc&STARTUPDIR ? startup : node_dir);
-if((stream=fopen(path,"rb"))!=NULL) { /* File exists */
- if(fgets(str,81,stream) && (mod=atol(str))!=0) {
- ultoac(mod>0L ? mod : -mod,tmp); /* put commas in the # */
- strcpy(str,"Credit Adjustment: ");
- if(mod<0L)
- strcat(str,"-"); /* negative, put '-' */
- strcat(str,tmp);
- if(mod>0L)
- strcpy(tmp,"$+");
- else
- strcpy(tmp,"$-");
- logline(tmp,str);
- if(mod>0L) /* always add to real cdt */
- useron.cdt=adjustuserrec(useron.number,U_CDT,10,mod);
- else
- subtract_cdt(-mod); } /* subtract from free cdt first */
- if(fgets(str,81,stream)) { /* main level */
- mod=atoi(str);
- if(isdigit(str[0]) && mod<90) {
- useron.level=mod;
- putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,tmp,10)); } }
- fgets(str,81,stream); /* was transfer level, now ignored */
- if(fgets(str,81,stream)) { /* flags #1 */
- if(strchr(str,'-')) /* remove flags */
- useron.flags1&=~aftol(str);
- else /* add flags */
- useron.flags1|=aftol(str);
- putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,tmp,16)); }
-
- if(fgets(str,81,stream)) { /* flags #2 */
- if(strchr(str,'-')) /* remove flags */
- useron.flags2&=~aftol(str);
- else /* add flags */
- useron.flags2|=aftol(str);
- putuserrec(useron.number,U_FLAGS2,8,ultoa(useron.flags2,tmp,16)); }
-
- if(fgets(str,81,stream)) { /* exemptions */
- if(strchr(str,'-'))
- useron.exempt&=~aftol(str);
- else
- useron.exempt|=aftol(str);
- putuserrec(useron.number,U_EXEMPT,8,ultoa(useron.exempt,tmp,16)); }
- if(fgets(str,81,stream)) { /* restrictions */
- if(strchr(str,'-'))
- useron.rest&=~aftol(str);
- else
- useron.rest|=aftol(str);
- putuserrec(useron.number,U_REST,8,ultoa(useron.rest,tmp,16)); }
- if(fgets(str,81,stream)) { /* Expiration date */
- if(isxdigit(str[0]))
- putuserrec(useron.number,U_EXPIRE,8,str); }
- if(fgets(str,81,stream)) { /* additional minutes */
- mod=atol(str);
- if(mod) {
- sprintf(str,"Minute Adjustment: %s",ultoac(mod,tmp));
- logline("*+",str);
- useron.min=adjustuserrec(useron.number,U_MIN,10,mod); } }
-
- if(fgets(str,81,stream)) { /* flags #3 */
- if(strchr(str,'-')) /* remove flags */
- useron.flags3&=~aftol(str);
- else /* add flags */
- useron.flags3|=aftol(str);
- putuserrec(useron.number,U_FLAGS3,8,ultoa(useron.flags3,tmp,16)); }
-
- if(fgets(str,81,stream)) { /* flags #4 */
- if(strchr(str,'-')) /* remove flags */
- useron.flags4&=~aftol(str);
- else /* add flags */
- useron.flags4|=aftol(str);
- putuserrec(useron.number,U_FLAGS4,8,ultoa(useron.flags4,tmp,16)); }
-
- if(fgets(str,81,stream)) { /* flags #1 to REMOVE only */
- useron.flags1&=~aftol(str);
- putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,tmp,16)); }
- if(fgets(str,81,stream)) { /* flags #2 to REMOVE only */
- useron.flags2&=~aftol(str);
- putuserrec(useron.number,U_FLAGS2,8,ultoa(useron.flags2,tmp,16)); }
- if(fgets(str,81,stream)) { /* flags #3 to REMOVE only */
- useron.flags3&=~aftol(str);
- putuserrec(useron.number,U_FLAGS3,8,ultoa(useron.flags3,tmp,16)); }
- if(fgets(str,81,stream)) { /* flags #4 to REMOVE only */
- useron.flags4&=~aftol(str);
- putuserrec(useron.number,U_FLAGS4,8,ultoa(useron.flags4,tmp,16)); }
- if(fgets(str,81,stream)) { /* exemptions to remove */
- useron.exempt&=~aftol(str);
- putuserrec(useron.number,U_EXEMPT,8,ultoa(useron.exempt,tmp,16)); }
- if(fgets(str,81,stream)) { /* restrictions to remove */
- useron.rest&=~aftol(str);
- putuserrec(useron.number,U_REST,8,ultoa(useron.rest,tmp,16)); }
-
- fclose(stream);
- remove(path); }
-}
-
-/****************************************************************************/
-/* This is the external programs (doors) section of the bbs */
-/* Return 1 if no externals available, 0 otherwise. */
-/****************************************************************************/
-char xtrn_sec()
-{
- char str[256];
- int file,j,k,xsec,*usrxtrn,usrxtrns,*usrxsec,usrxsecs;
- uint i;
-
-if(!total_xtrns || !total_xtrnsecs) {
- bputs(text[NoXtrnPrograms]);
- return(1); }
-
-if((usrxtrn=(int *)MALLOC(total_xtrns*sizeof(int)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_xtrns);
- return(1); }
-if((usrxsec=(int *)MALLOC(total_xtrnsecs*sizeof(int)))==NULL) {
- errormsg(WHERE,ERR_ALLOC,nulstr,total_xtrnsecs);
- FREE(usrxtrn);
- return(1); }
-
-while(online) {
- for(i=0,usrxsecs=0;i<total_xtrnsecs;i++)
- if(chk_ar(xtrnsec[i]->ar,useron))
- usrxsec[usrxsecs++]=i;
- if(!usrxsecs) {
- bputs(text[NoXtrnPrograms]);
- FREE(usrxtrn);
- FREE(usrxsec);
- return(1); }
- if(usrxsecs>1) {
- sprintf(str,"%sMENU\\XTRN_SEC.*",text_dir);
- if(fexist(str)) {
- menu("XTRN_SEC");
- xsec=getnum(usrxsecs);
- if(xsec<=0)
- break;
- xsec--;
- xsec=usrxsec[xsec]; }
- else {
- for(i=0;i<total_xtrnsecs;i++)
- uselect(1,i,"External Program Section"
- ,xtrnsec[i]->name,xtrnsec[i]->ar);
- xsec=uselect(0,0,0,0,0); }
- if(xsec==-1)
- break; }
- else
- xsec=0;
-
- while(!chk_ar(xtrnsec[xsec]->ar,useron))
- xsec++;
-
- if(xsec>=total_xtrnsecs) {
- bputs(text[NoXtrnPrograms]);
- FREE(usrxtrn);
- FREE(usrxsec);
- return(1); }
-
- while(online) {
- for(i=0,usrxtrns=0;i<total_xtrns; i++) {
- if(xtrn[i]->sec!=xsec)
- continue;
- if(xtrn[i]->misc&EVENTONLY)
- continue;
- if(!chk_ar(xtrn[i]->ar,useron))
- continue;
- usrxtrn[usrxtrns++]=i; }
- if(!usrxtrns) {
- bputs(text[NoXtrnPrograms]);
- pause();
- break; }
- sprintf(str,"%sMENU\\XTRN%u.*",text_dir,xsec+1);
- if(fexist(str)) {
- sprintf(str,"XTRN%u",xsec+1);
- menu(str); }
- else {
- bprintf(text[XtrnProgLstHdr],xtrnsec[xsec]->name);
- bputs(text[XtrnProgLstTitles]);
- if(usrxtrns>=10) {
- bputs(" ");
- bputs(text[XtrnProgLstTitles]); }
- CRLF;
- bputs(text[XtrnProgLstUnderline]);
- if(usrxtrns>=10) {
- bputs(" ");
- bputs(text[XtrnProgLstUnderline]); }
- CRLF;
- if(usrxtrns>=10)
- j=(usrxtrns/2)+(usrxtrns&1);
- else
- j=usrxtrns;
- for(i=0;i<j && !msgabort();i++) {
- bprintf(text[XtrnProgLstFmt],i+1
- ,xtrn[usrxtrn[i]]->name,xtrn[usrxtrn[i]]->cost);
- if(usrxtrns>=10) {
- k=(usrxtrns/2)+i+(usrxtrns&1);
- if(k<usrxtrns) {
- bputs(" ");
- bprintf(text[XtrnProgLstFmt],k+1
- ,xtrn[usrxtrn[k]]->name
- ,xtrn[usrxtrn[k]]->cost); } }
- CRLF; }
- ASYNC;
- mnemonics(text[WhichXtrnProg]); }
- getnodedat(node_num,&thisnode,1);
- thisnode.aux=0; /* aux is 0, only if at menu */
- putnodedat(node_num,thisnode);
- action=NODE_XTRN;
- SYNC;
- if((j=getnum(usrxtrns))<1)
- break;
- exec_xtrn(usrxtrn[j-1]); }
- if(usrxsecs<2)
- break; }
-FREE(usrxtrn);
-FREE(usrxsec);
-return(0);
-}
-
-/****************************************************************************/
-/* This function handles configured external program execution. */
-/****************************************************************************/
-void exec_xtrn(uint xtrnnum)
-{
- char str[256],str2[256],path[256],dropdir[128],name[32],c,e,mode;
- int file;
- uint i;
- long mod;
- ulong tleft;
- FILE *stream;
- node_t node;
- time_t start,end;
-
-
-if(!chk_ar(xtrn[xtrnnum]->run_ar,useron)
- || !chk_ar(xtrnsec[xtrn[xtrnnum]->sec]->ar,useron)) {
- bputs(text[CantRunThatProgram]);
- return; }
-
-if(xtrn[xtrnnum]->cost && !(useron.exempt&FLAG('X'))) { /* costs */
- if(xtrn[xtrnnum]->cost>useron.cdt+useron.freecdt) {
- bputs(text[NotEnoughCredits]);
- pause();
- return; }
- subtract_cdt(xtrn[xtrnnum]->cost); }
-
-if(!(xtrn[xtrnnum]->misc&MULTIUSER)) {
- for(i=1;i<=sys_nodes;i++) {
- getnodedat(i,&node,0);
- c=i;
- if((node.status==NODE_INUSE || node.status==NODE_QUIET)
- && node.action==NODE_XTRN && node.aux==(xtrnnum+1)) {
- if(node.status==NODE_QUIET) {
- strcpy(str,sys_guru);
- c=sys_nodes+1; }
- else if(node.misc&NODE_ANON)
- strcpy(str,"UNKNOWN USER");
- else
- username(node.useron,str);
- bprintf(text[UserRunningXtrn],str
- ,xtrn[xtrnnum]->name,c);
- pause();
- break; } }
- if(i<=sys_nodes)
- return; }
-
-sprintf(str,"%s\\",xtrn[xtrnnum]->path);
-strcpy(path,xtrn[xtrnnum]->misc&STARTUPDIR ? str : node_dir);
-strcpy(dropdir,xtrn[xtrnnum]->misc&STARTUPDIR ? str : node_dir);
-
-switch(xtrn[xtrnnum]->type) {
- case XTRN_WWIV:
- strcat(path,"CHAIN.TXT");
- break;
- case XTRN_GAP:
- strcat(path,"DOOR.SYS");
- break;
- case XTRN_RBBS:
- sprintf(str,"DORINFO%X.DEF",node_num);
- strcat(path,str);
- break;
- case XTRN_RBBS1:
- strcat(path,"DORINFO1.DEF");
- break;
- case XTRN_WILDCAT:
- strcat(path,"CALLINFO.BBS");
- break;
- case XTRN_PCBOARD:
- strcat(path,"PCBOARD.SYS");
- break;
- case XTRN_UTI:
- strcat(path,"UTIDOOR.TXT");
- break;
- case XTRN_SR:
- strcat(path,"DOORFILE.SR");
- break;
- default:
- strcat(path,"XTRN.DAT");
- break; }
-getnodedat(node_num,&thisnode,1);
-thisnode.aux=xtrnnum+1;
-thisnode.action=NODE_XTRN;
-putnodedat(node_num,thisnode);
-
-if(xtrn[xtrnnum]->misc&REALNAME)
- strcpy(name,useron.name);
-else
- strcpy(name,useron.alias);
-
-gettimeleft();
-tleft=timeleft+(xtrn[xtrnnum]->textra*60);
-if(xtrn[xtrnnum]->maxtime && tleft>xtrn[xtrnnum]->maxtime)
- tleft=(xtrn[xtrnnum]->maxtime*60);
-xtrndat(name,dropdir,xtrn[xtrnnum]->type,tleft);
-if(!online)
- return;
-sprintf(str,"Ran external: %s",xtrn[xtrnnum]->name);
-logline("X-",str);
-if(xtrn[xtrnnum]->cmd[0]!='*' && sys_status&SS_LOGOPEN) {
- close(logfile);
- sys_status&=~SS_LOGOPEN; }
-
-sprintf(str,"%sINTRSBBS.DAT"
- ,xtrn[xtrnnum]->path[0] ? xtrn[xtrnnum]->path : node_dir);
-remove(str);
-sprintf(str,"%sHANGUP.NOW",node_dir);
-remove(str);
-sprintf(str,"%sFILE\\%04u.DWN",data_dir,useron.number);
-remove(str);
-
-mode=0; /* EX_CC */
-if(xtrn[xtrnnum]->misc&IO_INTS)
- mode|=(EX_OUTR|EX_INR|EX_OUTL);
-if(xtrn[xtrnnum]->misc&WWIVCOLOR)
- mode|=EX_WWIV;
-if(xtrn[xtrnnum]->misc&SWAP)
- mode|=EX_SWAP;
-if(xtrn[xtrnnum]->misc&MODUSERDAT) { /* Delete MODUSER.DAT */
- sprintf(str,"%sMODUSER.DAT",dropdir); /* if for some weird */
- remove(str); } /* reason it's there */
-
-if(xtrn[xtrnnum]->path[0]) {
- if(xtrn[xtrnnum]->path[1]==':') /* drive letter specified */
- setdisk(toupper(xtrn[xtrnnum]->path[0])-'A');
- if(chdir(xtrn[xtrnnum]->path))
- errormsg(WHERE,ERR_CHDIR,xtrn[xtrnnum]->path,0); }
-
-start=time(NULL);
-external(cmdstr(xtrn[xtrnnum]->cmd,path,dropdir,NULL),mode);
-end=time(NULL);
-if(xtrn[xtrnnum]->misc&FREETIME)
- starttime+=end-start;
-if(xtrn[xtrnnum]->clean[0]) {
- if(xtrn[xtrnnum]->path[0]) {
- if(xtrn[xtrnnum]->path[1]==':') /* drive letter specified */
- setdisk(toupper(xtrn[xtrnnum]->path[0])-'A');
- if(chdir(xtrn[xtrnnum]->path))
- errormsg(WHERE,ERR_CHDIR,xtrn[xtrnnum]->path,0); }
- external(cmdstr(xtrn[xtrnnum]->clean,path,nulstr,NULL)
- ,mode&~EX_INR); }
-/* Re-open the logfile */
-if(!(sys_status&SS_LOGOPEN)) {
- sprintf(str,"%sNODE.LOG",node_dir);
- if((logfile=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1)
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- else
- sys_status|=SS_LOGOPEN; }
-
-sprintf(str,"%sFILE\\%04u.DWN",data_dir,useron.number);
-batch_add_list(str);
-
-sprintf(str,"%sHANGUP.NOW",node_dir);
-if(fexist(str)) {
- remove(str);
- hangup(); }
-if(online==ON_REMOTE) {
- checkline();
- if(!online) {
- sprintf(str,"%sHUNGUP.LOG",data_dir);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_APPEND);
- return; }
- getnodedat(node_num,&thisnode,0);
- now=time(NULL);
- sprintf(str,hungupstr,useron.alias,xtrn[thisnode.aux-1]->name
- ,timestr(&now));
- write(file,str,strlen(str));
- close(file); } }
-if(xtrn[xtrnnum]->misc&MODUSERDAT) { /* Modify user data */
- moduserdat(xtrnnum);
- statusline(); }
-
-getnodedat(node_num,&thisnode,1);
-thisnode.aux=0; /* aux is 0, only if at menu */
-putnodedat(node_num,thisnode);
-}
-
-/****************************************************************************/
-/* This function will execute an external program if it is configured to */
-/* run during the event specified. */
-/****************************************************************************/
-void user_event(char event)
-{
- uint i;
-
-for(i=0;i<total_xtrns;i++) {
- if(xtrn[i]->event!=event)
- continue;
- if(!chk_ar(xtrn[i]->ar,useron)
- || !chk_ar(xtrnsec[xtrn[i]->sec]->ar,useron))
- continue;
- exec_xtrn(i); }
-}
-
-
diff --git a/src/stp/make.bat b/src/stp/make.bat
deleted file mode 100755
index b5599dd46221790121e22b78d772138ef41566ff..0000000000000000000000000000000000000000
--- a/src/stp/make.bat
+++ /dev/null
@@ -1 +0,0 @@
-bcc32 -I..\xpdev;..\sbbs3 stp.c zmodem.c ..\xpdev\dirwrap.c ..\xpdev\genwrap.c ..\xpdev\sockwrap.c ..\sbbs3\crc16.c ..\sbbs3\crc32.c ..\sbbs3\telnet.c
diff --git a/src/stp/rciols.obj b/src/stp/rciols.obj
deleted file mode 100644
index 1103dcd172d4b32820e0783ff1b1fccc9d3ee1ca..0000000000000000000000000000000000000000
Binary files a/src/stp/rciols.obj and /dev/null differ
diff --git a/src/stp/stp.c b/src/stp/stp.c
deleted file mode 100644
index be3e7039b54f075cefbcc4d0fb37dfbe081a101f..0000000000000000000000000000000000000000
--- a/src/stp/stp.c
+++ /dev/null
@@ -1,1755 +0,0 @@
-/* stp.c */
-
-/* Synchronet X/Y/ZMODEM Transfer Protocols */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2003 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-/*
- * ZMODEM code based on zmtx/zmrx v1.02 (C) Mattheij Computer Service 1994
- * by Jacques Mattheij <jacquesm@hacktic.nl>
- */
-
-#include <time.h>
-#include <stdio.h>
-#include <errno.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <sys/stat.h>
-
-#include "conwrap.h"
-#include "genwrap.h"
-#include "dirwrap.h"
-#include "filewrap.h"
-#include "sockwrap.h"
-
-#include "crc16.h"
-
-#include "telnet.h"
-
-#define MAXERRORS 10
-
-#define DLE CTRL_P /* Data link escape */
-#define XON CTRL_Q /* Resume transmission */
-#define XOFF CTRL_S /* Pause transmission */
-
-#define SOH CTRL_A /* Start of header */
-#define EOT CTRL_D /* End of transmission */
-
-#define ACK CTRL_F /* Acknowledge */
-#define NAK CTRL_U /* Negative Acknowledge */
-#define CAN CTRL_X /* Cancel */
-
-#define CPMEOF CTRL_Z /* CP/M End of file (^Z) */
-#define LOC_ABORT 0x2e03 /* Local abort key (^C) */
-
-#define SEND (1<<0) /* Sending file(s) */
-#define RECV (1<<1) /* Receiving file(s) */
-#define XMODEM (1<<2) /* Use Xmodem */
-#define YMODEM (1<<3) /* Use Ymodem */
-#define ZMODEM (1<<4) /* Use Zmodem */
-#define CRC (1<<5) /* Use CRC error correction */
-#define GMODE (1<<6) /* For Qmodem-G and Ymodem-G */
-#define DIR (1<<7) /* Directory specified to download to */
-#define DEBUG (1<<8) /* Debug output */
-#define OVERWRITE (1<<9) /* Overwrite receiving files */
-#define IGNORE_DCD (1<<10) /* Ignore DCD */
-#define ALARM (1<<11) /* Alarm when starting and stopping xfer */
-#define NO_LOCAL (1<<12) /* Don't check local keyboard */
-#define PAUSE_ABEND (1<<13) /* Pause on abnormal exit */
-#define TELNET (1<<14) /* Telnet IAC escaping */
-
- /* Zmodem mode bits */
-#define CTRL_ESC (1<<0) /* Escape all control chars */
-#define VAR_HDRS (1<<1) /* Use variable headers */
-
-#include "zmodem.h"
-
-#define LOOP_NOPEN 50
-
-#define MAX_FNAMES 100 /* Up to 100 filenames */
-
-/************************/
-/* Remote I/O Constants */
-/************************/
-
- /* i/o mode and state flags */
-#define NOINP 0x0100 /* input buffer empty (incom only) */
-
-void cancel(void);
-
-/***************/
-/* Global Vars */
-/***************/
-long mode=PAUSE_ABEND|TELNET; /* Program mode */
-long zmode=0L; /* Zmodem mode */
-uchar block[1024]; /* Block buffer */
-uint block_size; /* Block size (128 or 1024) */
-ulong block_num; /* Block number */
-ulong last_block_num; /* Last block number sent */
-uint flows=0; /* Number of flow controls */
-time_t startall;
-
-FILE* errfp;
-FILE* statfp;
-
-/**************************************/
-/* Zmodem specific, from Chuck's RZSZ */
-/**************************************/
-char Txhdr[ZMAXHLEN]; /* Zmodem transmit header */
-char Rxhdr[ZMAXHLEN]; /* Zmodem receive header */
-char attn[ZATTNLEN]; /* Attention string for sender */
-char zconv;
-char zmanag;
-char ztrans;
-int tryzhdrtype;
-int Rxtimeout = 100; /* Tenths of seconds to wait for something */
-int Rxframeind; /* ZBIN ZBIN32, or ZHEX type of frame */
-int Rxtype; /* Type of header received */
-int Rxhlen; /* Length of header received */
-int Rxcount; /* Count of data bytes received */
-
-SOCKET sock;
-#define DCDHIGH socket_check(sock, NULL, NULL, 0)
-
-#ifdef _WINSOCKAPI_
-
-WSADATA WSAData;
-static BOOL WSAInitialized=FALSE;
-
-static BOOL winsock_startup(void)
-{
- int status; /* Status Code */
-
- if((status = WSAStartup(MAKEWORD(1,1), &WSAData))==0) {
- fprintf(statfp,"%s %s\n",WSAData.szDescription, WSAData.szSystemStatus);
- WSAInitialized=TRUE;
- return(TRUE);
- }
-
- fprintf(errfp,"!WinSock startup ERROR %d\n", status);
- return(FALSE);
-}
-
-#else /* No WINSOCK */
-
-#define winsock_startup() (TRUE)
-
-#endif
-
-/********/
-/* Code */
-/********/
-
-void newline(void)
-{
- fprintf(statfp,"\n");
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(char *str)
-{
- char c;
-
- c=strlen(str);
- while(c && str[c-1]<=SP) c--;
- str[c]=0;
-}
-
-/**************/
-/* Exit Point */
-/**************/
-void bail(int code)
-{
-
- if(mode&ALARM) {
- BEEP(2000,500);
- BEEP(1000,500);
- }
- newline();
- fprintf(statfp,"Exiting - Error level: %d",code);
- if(flows)
- fprintf(statfp," Flow restraint count: %u",flows);
- fprintf(statfp,"\n");
-
- if(/* code && */ mode&PAUSE_ABEND) {
- printf("Hit enter to continue...");
- getchar();
- }
-
- exit(code);
-}
-
-char *chr(uchar ch)
-{
- static char str[25];
-
- switch(ch) {
- case SOH:
- return("SOH");
- case STX:
- return("STX");
- case ETX:
- return("ETX");
- case EOT:
- return("EOT");
- case ACK:
- return("ACK");
- case NAK:
- return("NAK");
- case CAN:
- return("CAN");
- default:
- if(ch>=' ' && ch<='~')
- sprintf(str,"'%c' (%02Xh)",ch,ch);
- else
- sprintf(str,"%u (%02Xh)",ch,ch);
- return(str);
- }
-}
-
-void send_telnet_cmd(SOCKET sock, uchar cmd, uchar opt)
-{
- uchar buf[3];
-
- buf[0]=TELNET_IAC;
- buf[1]=cmd;
- buf[2]=opt;
-
- fprintf(statfp,"\nSending telnet command: %s %s"
- ,telnet_cmd_desc(buf[1]),telnet_opt_desc(buf[2]));
- if(send(sock,buf,sizeof(buf),0)==sizeof(buf))
- fprintf(statfp,"\n");
- else
- fprintf(statfp," FAILED!\n");
-}
-
-#define DEBUG_TELNET FALSE
-
-/****************************************************************************/
-/* Receive a byte from remote */
-/****************************************************************************/
-uint recv_byte(SOCKET sock, int timeout, long mode)
-{
- int i;
- uchar ch;
- fd_set socket_set;
- struct timeval tv;
- static uchar telnet_cmd;
- static int telnet_cmdlen;
-
- while(1) {
-
- FD_ZERO(&socket_set);
- FD_SET(sock,&socket_set);
- tv.tv_sec=timeout;
- tv.tv_usec=0;
-
- if(select(sock+1,&socket_set,NULL,NULL,&tv)<1) {
- if(timeout) {
- newline();
- fprintf(statfp,"Input timeout\n");
- }
- return(NOINP);
- }
-
- i=recv(sock,&ch,sizeof(ch),0);
-
- if(i!=sizeof(ch)) {
- newline();
- if(i==0)
- fprintf(statfp,"No carrier\n");
- else
- fprintf(statfp,"!recv error %d (%d)\n",i,ERROR_VALUE);
- bail(1);
- }
-
- if(mode&TELNET) {
- if(ch==TELNET_IAC) {
-#if DEBUG_TELNET
- fprintf(statfp,"T<%s> ",telnet_cmd_desc(ch));
-#endif
- if(telnet_cmdlen==0) {
- telnet_cmdlen=1;
- continue;
- }
- if(telnet_cmdlen==1) {
- telnet_cmdlen=0;
- return(TELNET_IAC);
- }
- }
- if(telnet_cmdlen) {
- telnet_cmdlen++;
-#if DEBUG_TELNET
- if(telnet_cmdlen==2)
- fprintf(statfp,"T<%s> ",telnet_cmd_desc(ch));
- else
- fprintf(statfp,"T<%s> ",telnet_opt_desc(ch));
-#endif
- if(telnet_cmdlen==3 && telnet_cmd==TELNET_DO)
- send_telnet_cmd(sock, TELNET_WILL,ch);
- /*
- else if(telnet_cmdlen==3 && telnet_cmd==TELNET_WILL)
- send_telnet_cmd(sock, TELNET_DO,ch);
- */
- telnet_cmd=ch;
- if((telnet_cmdlen==2 && ch<TELNET_WILL) || telnet_cmdlen>2)
- telnet_cmdlen=0;
- continue;
- }
- }
- return(ch);
- }
-
- return(NOINP);
-}
-
-#define getcom(t) recv_byte(sock,t,mode)
-
-/*************************/
-/* Send a byte to remote */
-/*************************/
-int send_byte(SOCKET sock, uchar ch, int timeout, long mode)
-{
- uchar buf[2] = { TELNET_IAC, TELNET_IAC };
- int len=1;
- int i;
- fd_set socket_set;
- struct timeval tv;
-
- FD_ZERO(&socket_set);
- FD_SET(sock,&socket_set);
- tv.tv_sec=timeout;
- tv.tv_usec=0;
-
- if(select(sock+1,NULL,&socket_set,NULL,&tv)<1)
- return(ERROR_VALUE);
-
- if(mode&TELNET && ch==TELNET_IAC) /* escape IAC char */
- len=2;
- else
- buf[0]=ch;
-
- i=send(sock,buf,len,0);
-
- if(i==len)
- return(0);
-
- return(-1);
-}
-
-#define putcom(ch) send_byte(sock,ch,10,mode)
-
-int send_str(SOCKET sock, char* str, int timeout, long mode)
-{
- char* p;
- int i;
-
- for(p=str;*p;p++) {
- if((i=send_byte(sock,*p,timeout,mode))!=0)
- return(i);
- }
- return(0);
-}
-
-void xmodem_put_nak(SOCKET sock, long mode)
-{
- while(getcom(1)!=NOINP && (mode&NO_LOCAL || kbhit()!=LOC_ABORT))
- ; /* wait for any trailing data */
- putcom(NAK);
-}
-
-void xmodem_cancel(SOCKET sock, long mode)
-{
- int i;
-
- for(i=0;i<8;i++)
- putcom(CAN);
- for(i=0;i<10;i++)
- putcom('\b');
-}
-
-/****************************************************************************/
-/* Receive a X/Ymodem block (sector) from COM port */
-/* hdrblock is 1 if attempting to get Ymodem header block, 0 if data block */
-/* Returns blocknum if all went well, -1 on error or CAN, and -EOT if EOT */
-/****************************************************************************/
-int xmodem_get_block(SOCKET sock, uchar* block, uint block_size, BOOL hdrblock
- ,long mode, FILE* statfp)
-{
- uchar block_num; /* Block number received in header */
- uchar chksum,calc_chksum;
- int i,errors,eot=0,can=0;
- uint b;
- ushort crc,calc_crc;
-
- for(errors=0;errors<MAXERRORS;errors++) {
- i=getcom(10);
- if(eot && i!=EOT)
- eot=0;
- if(can && i!=CAN)
- can=0;
- switch(i) {
- case SOH: /* 128 byte blocks */
- block_size=128;
- break;
- case STX: /* 1024 byte blocks */
- block_size=1024;
- break;
- case EOT:
- if((mode&(YMODEM|GMODE))==YMODEM && !eot) {
- eot=1;
- xmodem_put_nak(sock,mode); /* chuck's double EOT trick */
- continue;
- }
- return(-EOT);
- case CAN:
- newline();
- if(!can) { /* must get two CANs in a row */
- can=1;
- fprintf(statfp,"Received CAN Expected SOH, STX, or EOT\n");
- continue;
- }
- fprintf(statfp,"Cancelled remotely\n");
- bail(-1);
- break;
- case NOINP: /* Nothing came in */
- continue;
- default:
- newline();
- fprintf(statfp,"Received %s Expected SOH, STX, or EOT\n",chr((uchar)i));
- if(hdrblock) /* Trying to get Ymodem header block */
- return(-1);
- xmodem_put_nak(sock,mode);
- continue;
- }
- i=getcom(1);
- if(i==NOINP) {
- xmodem_put_nak(sock,mode);
- continue;
- }
- block_num=i;
- i=getcom(1);
- if(i==NOINP) {
- xmodem_put_nak(sock,mode);
- continue;
- }
- if(block_num!=(uchar)~i) {
- newline();
- fprintf(statfp,"Block number error\n");
- xmodem_put_nak(sock,mode);
- continue;
- }
- calc_crc=calc_chksum=0;
- for(b=0;b<block_size;b++) {
- i=getcom(1);
- if(i==NOINP)
- break;
- block[b]=i;
- if(mode&CRC)
- calc_crc=ucrc16(block[b],calc_crc);
- else
- calc_chksum+=block[b];
- }
-
- if(b<block_size) {
- xmodem_put_nak(sock,mode);
- continue;
- }
-
- if(mode&CRC) {
- crc=getcom(1)<<8;
- crc|=getcom(1);
- }
- else
- chksum=getcom(1);
-
- if(mode&CRC) {
- if(crc==calc_crc)
- break;
- newline();
- fprintf(statfp,"CRC error\n");
- }
- else /* CHKSUM */
- {
- if(chksum==calc_chksum)
- break;
- newline();
- fprintf(statfp,"Checksum error\n");
- }
-
- if(mode&GMODE) { /* Don't bother sending a NAK. He's not listening */
- xmodem_cancel(sock,mode);
- bail(1);
- }
- xmodem_put_nak(sock,mode);
- }
-
- if(errors>=MAXERRORS) {
- newline();
- fprintf(statfp,"Too many errors\n");
- return(-1);
- }
- return(block_num);
-}
-
-/*****************/
-/* Sends a block */
-/*****************/
-void xmodem_put_block(SOCKET sock, char* block, uint block_size, ulong block_num, long mode)
-{
- uchar ch,chksum;
- uint i;
- ushort crc;
-
- if(block_size==128)
- putcom(SOH);
- else /* 1024 */
- putcom(STX);
- ch=(block_num&0xff);
- putcom(ch);
- putcom((uchar)~ch);
- chksum=crc=0;
- for(i=0;i<block_size;i++) {
- putcom(block[i]);
- if(mode&CRC)
- crc=ucrc16(block[i],crc);
- else
- chksum+=block[i];
- }
-
- if(mode&CRC) {
- putcom((uchar)(crc >> 8));
- putcom((uchar)(crc&0xff));
- }
- else
- putcom(chksum);
- YIELD();
-}
-
-/************************************************************/
-/* Gets an acknowledgement - usually after sending a block */
-/* Returns 1 if ack received, 0 otherwise. */
-/************************************************************/
-int xmodem_get_ack(int tries)
-{
- int i,errors,can=0;
-
- for(errors=0;errors<tries;errors++) {
-
- if(mode&GMODE) { /* Don't wait for ACK on Ymodem-G */
- if(getcom(0)==CAN) {
- newline();
- fprintf(statfp,"Cancelled remotely\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- return(1);
- }
-
- i=getcom(10);
- if(can && i!=CAN)
- can=0;
- if(i==ACK)
- return(1);
- if(i==CAN) {
- if(can) {
- newline();
- fprintf(statfp,"Cancelled remotely\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- can=1;
- }
- if(i!=NOINP) {
- newline();
- fprintf(statfp,"Received %s Expected ACK\n",chr((uchar)i));
- if(i!=CAN)
- return(0);
- }
- }
-
- return(0);
-}
-
-/****************************************************************************/
-/* Returns the number of blocks required to send len bytes */
-/****************************************************************************/
-long num_blocks(long len, long block_size)
-{
- long blocks;
-
- blocks=len/block_size;
- if(len%block_size)
- blocks++;
- return(blocks);
-}
-
-#if 0
-
-/****************************************/
-/* Zmodem specific functions start here */
-/****************************************/
-
-/**********************************************/
-/* Output single byte as two hex ASCII digits */
-/**********************************************/
-void putzhex(uchar val)
-{
- char *digits="0123456789abcdef";
-
- putcom(digits[(val&0xF0)>>4]);
- putcom(digits[val&0xF]);
-}
-
-/***********************/
-/* Output a hex header */
-/***********************/
-void putzhhdr(char type)
-{
- uint i;
- ushort crc=0;
-
- putcom(ZPAD);
- putcom(ZPAD);
- putcom(ZDLE);
- if(zmode&VAR_HDRS) {
- putcom(ZVHEX);
- putzhex(4);
- }
- else
- putcom(ZHEX);
- putzhex(type);
-// crc=ucrc16(type,crc);
- for(i=0;i<4;i++) {
- putzhex(Txhdr[i]);
- crc=ucrc16(Txhdr[i],crc);
- }
-// crc=ucrc16(0,crc);
-// crc=ucrc16(0,crc);
- putzhex(crc>>8);
- putzhex(crc&0xff);
- putcom(CR);
- putcom(LF); /* Chuck's RZ.C sends LF|0x80 for some unknown reason */
- if(type!=ZFIN && type!=ZACK)
- putcom(XON);
-}
-
-/****************************************************************************/
-/* Stores a long in the Zmodem transmit header (usually position offset) */
-/****************************************************************************/
-void ltohdr(long l)
-{
-
- Txhdr[ZP0] = l;
- Txhdr[ZP1] = l>>8;
- Txhdr[ZP2] = l>>16;
- Txhdr[ZP3] = l>>24;
-}
-
-/****************************************************************************/
-/* Outputs single Zmodem character, escaping with ZDLE when appropriate */
-/****************************************************************************/
-void putzcom(uchar ch)
-{
- static lastsent;
-
- if(ch&0x60) /* not a control char */
- putcom(lastsent=ch);
- else
- switch(ch) {
- case DLE:
- case DLE|0x80: /* even if high-bit set */
- case XON:
- case XON|0x80:
- case XOFF:
- case XOFF|0x80:
- case ZDLE:
- putcom(ZDLE);
- ch^=0x40;
- putcom(lastsent=ch);
- break;
- case CR:
- case CR|0x80:
- if(!(zmode&CTRL_ESC) && (lastsent&0x7f)!='@')
- putcom(lastsent=ch);
- else {
- putcom(ZDLE);
- ch^=0x40;
- putcom(lastsent=ch);
- }
- break;
- default:
- if(zmode&CTRL_ESC && !(ch&0x60)) { /* it's a ctrl char */
- putcom(ZDLE);
- ch^=0x40;
- }
- putcom(lastsent=ch);
- break;
- }
-}
-
-/*
- * Read a byte, checking for ZMODEM escape encoding
- * including CAN*5 which represents a quick abort
- */
-int getzcom()
-{
- int i;
-
- while(1) {
- /* Quick check for non control characters */
- if((i=getcom(Rxtimeout))&0x60)
- return(i);
- if(i==ZDLE)
- break;
- if((i&0x7f)==XOFF || (i&0x7f)==XON)
- continue;
- if(zmode&CTRL_ESC && !(i&0x60))
- continue;
- return(i);
- }
-
- while(1) { /* Escaped characters */
- if((i=getcom(Rxtimeout))<0)
- return(i);
- if(i==CAN && (i=getcom(Rxtimeout))<0)
- return(i);
- if(i==CAN && (i=getcom(Rxtimeout))<0)
- return(i);
- if(i==CAN && (i=getcom(Rxtimeout))<0)
- return(i);
- switch (i) {
- case CAN:
- return(GOTCAN);
- case ZCRCE:
- case ZCRCG:
- case ZCRCQ:
- case ZCRCW:
- return(i|GOTOR);
- case ZRUB0:
- return(0x7f);
- case ZRUB1:
- return(0xff);
- case XON:
- case XON|0x80:
- case XOFF:
- case XOFF|0x80:
- continue;
- default:
- if (zmode&CTRL_ESC && !(i&0x60))
- continue;
- if ((i&0x60)==0x40)
- return(i^0x40);
- break;
- }
- break;
- }
- return(ERROR);
-}
-
-
-
-/*
- * Read a character from the modem line with timeout.
- * Eat parity, XON and XOFF characters.
- */
-int getcom7()
-{
- int i;
-
- while(1) {
- i=getcom(10);
- switch(i) {
- case XON:
- case XOFF:
- continue;
- case CR:
- case LF:
- case NOINP:
- case ZDLE:
- return(i);
- default:
- if(!(i&0x60) && zmode&CTRL_ESC)
- continue;
- return(i);
- }
- }
-}
-
-#endif
-
-/************************************************/
-/* Dump the current block contents - for debug */
-/************************************************/
-void dump_block()
-{
- uint l;
-
- for(l=0;l<block_size;l++)
- fprintf(statfp,"%02X ",block[l]);
- fprintf(statfp,"\n");
-}
-
-void send_files(char** fname, uint fnames, FILE* log)
-{
- char path[MAX_PATH+1];
- int ch;
- int i;
- uint errors;
- uint fnum;
- uint cps;
- glob_t g;
- int gi;
- BOOL can;
- BOOL success;
- long b,l,m;
- long fsize;
- uint total_files=0,sent_files=0;
- ulong total_bytes=0,sent_bytes=0;
- time_t t,startfile,ftime;
- FILE* fp;
- zmodem_t zm;
-
- /****************************************************/
- /* Search through all to find total files and bytes */
- /****************************************************/
- for(fnum=0;fnum<fnames;fnum++) {
- if(glob(fname[fnum],0,NULL,&g)) {
- fprintf(statfp,"%s not found\n",fname[fnum]);
- continue;
- }
- for(i=0;i<(int)g.gl_pathc;i++) {
- if(isdir(g.gl_pathv[i]))
- continue;
- total_files++;
- total_bytes+=flength(g.gl_pathv[i]);
- }
- globfree(&g);
- }
-
- if(fnames>1)
- fprintf(statfp,"Sending %u files (%lu bytes total)\n"
- ,total_files,total_bytes);
-
- memset(&zm,0,sizeof(zm));
- zm.sock=sock;
- zm.mode=mode;
- zm.n_files_remaining = total_files;
- zm.n_bytes_remaining = total_bytes;
-
- /***********************************************/
- /* Send every file matching names or filespecs */
- /***********************************************/
- for(fnum=0;fnum<fnames;fnum++) {
- if(glob(fname[fnum],0,NULL,&g)) {
- fprintf(statfp,"%s not found\n",fname[fnum]);
- continue;
- }
- for(gi=0;gi<(int)g.gl_pathc;gi++) {
- SAFECOPY(path,g.gl_pathv[gi]);
- if(isdir(path))
- continue;
-
- if((fp=fopen(path,"rb"))==NULL) {
- fprintf(statfp,"!Error %d opening %s for read\n",errno,path);
- continue;
- }
-
- if(mode&ZMODEM) {
-
- for(errors=0;errors<MAXERRORS;errors++) {
- fprintf(statfp,"\nSending ZRQINIT\n");
- i = zmodem_get_zrinit(&zm);
- if(i == ZRINIT) {
- zmodem_parse_zrinit(&zm);
- break;
- }
- fprintf(statfp,"\n!RX header: %d 0x%02X\n", i, i);
- }
-
- } else { /* X/Ymodem */
-
- mode&=~GMODE;
- flows=0;
- for(errors=can=0;errors<MAXERRORS;errors++) {
- i=getcom(10);
- if(can && i!=CAN)
- can=0;
- if(i==NAK) { /* csum */
- mode&=~CRC;
- break;
- }
- if(i=='C') {
- mode|=CRC;
- break;
- }
- if(i=='G') {
- mode|=(GMODE|CRC);
- break;
- }
- if(i==CAN) {
- if(can) {
- newline();
- fprintf(statfp,"Cancelled remotely\n");
- bail(1);
- }
- can=1;
- }
-#if 0
- rioctl(IOFB); /* flush buffers cause we have crap-o-la */
-#endif
- if(i!=NOINP) {
- newline();
- fprintf(statfp,"Received %s Expected NAK, C, or G\n"
- ,chr((uchar)i));
- }
- }
- }
-
- if(errors==MAXERRORS) {
- fprintf(statfp,"\n!Timeout waiting for receiver to start/accept file transfer\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
-
- fsize=filelength(fileno(fp));
-
- fprintf(statfp,"\nSending %s (%lu bytes) via %s %s\n"
- ,path,fsize
- ,mode&XMODEM ? "Xmodem" : mode&YMODEM ? mode&GMODE ? "Ymodem-G"
- : "Ymodem" : "Zmodem"
- ,mode&ZMODEM ? (zm.can_fcs_32 ? "CRC-32" : "CRC-16")
- : mode&CRC ? "CRC-16":"Checksum");
-
- errors=0;
- success=0;
- startfile=time(NULL);
-
- if(mode&ZMODEM) {
- if(zmodem_send_file(&zm,getfname(path),fp)==0) {
- sent_files++;
- sent_bytes+=fsize;
-
- t=time(NULL)-startfile;
- if(!t) t=1;
- fprintf(statfp,"\rSuccesssful - Time: %lu:%02lu CPS: %lu\n"
- ,t/60,t%60,fsize/t);
- success=1;
- }
- else {
- newline();
- fprintf(statfp,"Unsuccessful!\n");
- t=time(NULL)-startfile;
- if(!t) t=1;
- }
-
- } else { /* X/Ymodem */
-
- if(!(mode&XMODEM)) {
- t=fdate(path);
- memset(block,0,sizeof(block));
- SAFECOPY(block,getfname(path));
- sprintf(block+strlen(block)+1,"%lu %lo 0 0 %d %ld"
- ,fsize,t,total_files-sent_files,total_bytes-sent_bytes);
- /*
- fprintf(statfp,"Sending Ymodem block '%s'\n",block+strlen(block)+1);
- */
- for(errors=0;errors<MAXERRORS;errors++) {
- xmodem_put_block(sock, block, 128 /* block_size */, 0 /* block_num */, mode);
- if(xmodem_get_ack(1))
- break;
- }
- if(errors==MAXERRORS) {
- newline();
- fprintf(statfp,"Failed to send header block\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- mode&=~GMODE;
- for(errors=can=0;errors<MAXERRORS;errors++) {
- i=getcom(10);
- if(can && i!=CAN)
- can=0;
- if(i==NAK) { /* csum */
- mode&=~CRC;
- break;
- }
- if(i=='C') {
- mode|=CRC;
- break;
- }
- if(i=='G') {
- mode|=(GMODE|CRC);
- break;
- }
- if(i==CAN) {
- if(can) {
- newline();
- fprintf(statfp,"Cancelled remotely\n");
- bail(1);
- }
- can=1;
- }
- #if 0
- rioctl(IOFB);
- #endif
- if(i!=NOINP) {
- newline();
- fprintf(statfp,"Received %s Expected NAK, C, or G\n"
- ,chr((uchar)i));
- }
- }
- if(errors==MAXERRORS) {
- newline();
- fprintf(statfp,"Too many errors waiting for receiver\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- }
- last_block_num=block_num=1;
- errors=0;
- while((block_num-1)*(long)block_size<fsize && errors<MAXERRORS) {
- if(last_block_num==block_num) { /* block_num didn't increment */
- fseek(fp,(block_num-1)*(long)block_size,SEEK_SET);
- i=fread(block,1,block_size,fp);
- while(i<block_size)
- block[i++]=CPMEOF;
- }
- last_block_num=block_num;
- xmodem_put_block(sock, block, block_size, block_num, mode);
- i=fread(block,1,block_size,fp); /* read next block from disk */
- while(i<block_size)
- block[i++]=CPMEOF;
- t=time(NULL)-startfile;
- if(!t) t=1; /* t is time so far */
- cps=(uint)((block_num*(long)block_size)/t); /* cps so far */
- if(!cps) cps=1;
- l=fsize/cps; /* total transfer est time */
- l-=t; /* now, it's est time left */
- if(l<0) l=0;
- b=num_blocks(fsize,block_size);
- fprintf(statfp,"\rBlock (%lu%s): %lu/%lu Byte: %lu "
- "Time: %lu:%02lu/%lu:%02lu CPS: %u %lu%% "
- ,block_size%1024L ? block_size: block_size/1024L
- ,block_size%1024L ? "" : "k"
- ,block_num
- ,b
- ,block_num*(long)block_size
- ,t/60L
- ,t%60L
- ,l/60L
- ,l%60L
- ,cps
- ,(long)(((float)block_num/(float)b)*100.0)
- );
- if(!xmodem_get_ack(5))
- errors++;
- else
- block_num++;
- }
- fclose(fp);
- if((long)(block_num-1)*(long)block_size>=fsize) {
- sent_files++;
- sent_bytes+=fsize;
- fprintf(statfp,"\n");
-
- for(i=0;i<10;i++) {
- fprintf(statfp,"\rSending EOT (%d)",i+1);
- #if 0
- rioctl(IOFI);
- #endif
- putcom(EOT);
- ch=getcom(10);
- if(ch==ACK)
- break;
- if(ch==NAK && i==0 && (mode&(YMODEM|GMODE))==YMODEM)
- continue; /* chuck's double EOT trick so don't complain */
- if(ch!=NOINP) {
- newline();
- fprintf(statfp,"Received %s Expected ACK\n"
- ,chr((uchar)ch));
- }
- }
- if(i==3)
- fprintf(statfp,"\rNo ACK on EOT \n");
- t=time(NULL)-startfile;
- if(!t) t=1;
- fprintf(statfp,"\rSuccesssful - Time: %lu:%02lu CPS: %lu\n"
- ,t/60,t%60,fsize/t);
- success=1;
- }
- else {
- newline();
- fprintf(statfp,"Unsuccessful!\n");
- t=time(NULL)-startfile;
- if(!t) t=1;
- }
- }
-
- if(total_files>1 && total_files-sent_files>1)
- fprintf(statfp,"Remaining - Time: %lu:%02lu Files: %u Bytes: %lu\n"
- ,((total_bytes-sent_bytes)/cps)/60
- ,((total_bytes-sent_bytes)/cps)%60
- ,total_files-sent_files
- ,total_bytes-sent_bytes
- );
-
- /* DSZLOG entry */
- if(log) {
- if(mode&ZMODEM)
- l=fsize;
- else {
- l=(block_num-1)*(long)block_size;
- if(l>fsize)
- l=fsize;
- }
- fprintf(log,"%c %6lu %5u bps %4lu cps %3u errors %5u %4u "
- "%s -1\n"
- ,success ? (mode&ZMODEM ? 'z':'S') : 'E'
- ,l
- ,30000 /* baud */
- ,l/t
- ,errors
- ,flows
- ,block_size
- ,path);
- }
- }
- }
- if(mode&XMODEM)
- bail(0);
- if(mode&ZMODEM)
- zmodem_send_zfin(&zm);
- else { /* YMODEM */
- mode&=~GMODE;
- i=getcom(10);
- if(i==NAK)
- mode&=~CRC;
- else if(i=='C')
- mode|=CRC;
- else if(i=='G')
- mode|=(GMODE|CRC);
- if(i!=NOINP && i!=NAK && i!='C' && i!='G') {
- newline();
- fprintf(statfp,"Received %s Expected NAK, C, or G\n",chr((uchar)i));
- }
- else if(i!=NOINP) {
- block[0]=0;
- xmodem_put_block(sock, block, 128 /* block_size */, 0 /* block_num */, mode);
- if(!xmodem_get_ack(6)) {
- newline();
- fprintf(statfp,"Failed to receive ACK after terminating block\n");
- }
- }
- }
- if(total_files>1) {
- t=time(NULL)-startall;
- if(!t) t=1;
- newline();
- fprintf(statfp,"Overall - Time %02lu:%02lu Bytes: %lu CPS: %lu\n"
- ,t/60,t%60,sent_bytes,sent_bytes/t);
- }
-}
-
-void receive_files(char** fname, uint fnames, FILE* log)
-{
- char str[MAX_PATH+1];
- int i;
- uint errors;
- uint total_files;
- uint fnum=0;
- uint cps;
- uint hdr_block_num;
- long b,l,m;
- long serial_num;
- ulong file_bytes=0,file_bytes_left=0;
- ulong total_bytes=0;
- FILE* fp;
- time_t t,startfile,ftime;
-
- if(fnames>1)
- fprintf(statfp,"Receiving %u files\n",fnames);
- while(1) {
- if(mode&XMODEM) {
- SAFECOPY(str,fname[0]);
- file_bytes=file_bytes_left=0x7fffffff;
- serial_num=-1;
- }
-
- else if(mode&YMODEM) {
- fprintf(statfp,"Fetching Ymodem header block\n");
- for(errors=0;errors<MAXERRORS;errors++) {
- if(errors>3 && mode&CRC && !(mode&GMODE))
- mode&=~CRC;
- if(mode&GMODE) /* G for Ymodem-G */
- putcom('G');
- else if(mode&CRC) /* C for CRC */
- putcom('C');
- else /* NAK for checksum */
- putcom(NAK);
-#if 0
- for(i=60;i;i--) {
- if(rioctl(RXBC)) /* no chars in-bound */
- break;
- SLEEP(100); /* so wait */
- }
- if(!i) { /* none after 6 secs */
- if(errors)
- fprintf(statfp,"Ymodem header timeout (%d)\n",errors);
- continue;
- }
-#endif
- if(xmodem_get_block(sock, block,block_size,TRUE,mode,statfp)==0) { /* block received successfully */
- putcom(ACK);
- break;
- }
- }
- if(errors==MAXERRORS) {
- fprintf(statfp,"Error fetching Ymodem header block\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- if(!block[0]) {
- fprintf(statfp,"Received Ymodem termination block\n");
- bail(0);
- }
- sscanf(block+strlen(block)+1,"%ld %lo %lo %lo %d %ld"
- ,&file_bytes /* file size (decimal) */
- ,&ftime /* file time (octal unix format) */
- ,&m /* file mode (not used) */
- ,&serial_num /* program serial number */
- ,&total_files /* remaining files to be sent */
- ,&total_bytes /* remaining bytes to be sent */
- );
- if(!file_bytes)
- file_bytes=0x7fffffff;
- file_bytes_left=file_bytes;
- if(!total_files)
- total_files=fnames-fnum;
- if(!total_files)
- total_files=1;
- if(total_bytes<file_bytes)
- total_bytes=file_bytes;
- if(!serial_num)
- serial_num=-1;
- fprintf(statfp,"Incoming filename: %.64s ",block);
- if(mode&DIR)
- sprintf(str,"%s%s",fname[0],getfname(block));
- else {
- SAFECOPY(str,getfname(block));
- for(i=0;i<fnames;i++) {
- if(!fname[i][0]) /* name blank or already used */
- continue;
- if(!stricmp(getfname(fname[i]),str)) {
- SAFECOPY(str,fname[i]);
- fname[i][0]=0;
- break;
- }
- }
- if(i==fnames) { /* Not found in list */
- if(fnames)
- fprintf(statfp," - Not in receive list!");
- if(!fnames || fnum>=fnames || !fname[fnum][0])
- SAFECOPY(str,getfname(block)); /* worst case */
- else {
- SAFECOPY(str,fname[fnum]);
- fname[fnum][0]=0;
- }
- }
- }
- fprintf(statfp,"\n");
- }
-
- else { /* Zmodem */
-#if 0
- tryzhdrtype=ZRINIT;
- while(1) {
- Txhdr[ZF0]=(CANFC32|CANFDX|CANOVIO|CANRLE);
- /* add CANBRK if we can send break signal */
- if(zmode&CTRL_ESC)
- Txhdr[ZF0]|=TESCCTL;
- Txhdr[ZF1]=CANVHDR;
- Txhdr[ZP0]=0;
- Txhdr[ZP1]=0;
- putzhhdr(tryzhdrtype);
- done=0;
- while(!done) {
- done=1;
- switch(getzhdr()) {
- case ZRQINIT:
- if(Rxhdr[ZF3]&0x80)
- zmode|=VAR_HDRS; /* we can var header */
- break;
- case ZFILE:
- zconv=Rxhdr[ZF0];
- zmanag=Rxhdr[ZF1];
- ztrans=Rxhdr[ZF2];
- if(Rxhdr[ZF3]&ZCANVHDR)
- zmode|=VAR_HDRS;
- tryzhdrtype=ZRINIT;
- if(getzdata(block, 1024)==GOTCRCW) {
- /* something */
- done=1;
- }
- putzhhdr(ZNAK);
- done=0;
- break;
- case ZSINIT:
- if(Rxhdr[ZF0]&TESCCTL)
- zmode|=CTRL_ESC;
- if (getzdata(attn,ZATTNLEN)==GOTCRCW) {
- ltohdr(1L);
- putzhhdr(ZACK);
- }
- else
- putzhhdr(ZNAK);
- done=0;
- break;
- case ZFREECNT:
- ltohdr(0); /* should be free disk space */
- putzhhdr(ZACK);
- done=0;
- break;
- case ZCOMMAND:
-/***
- cmdzack1flg = Rxhdr[ZF0];
- if(getzdata(block,1024)==GOTCRCW) {
- if (cmdzack1flg & ZCACK1)
- ltohdr(0L);
- else
- ltohdr((long)sys2(block));
- purgeline(); /* dump impatient questions */
- do {
- zshhdr(4,ZCOMPL, Txhdr);
- }
- while (++errors<20 && zgethdr(Rxhdr,1)!=ZFIN);
- ackbibi();
- if (cmdzack1flg & ZCACK1)
- exec2(block);
- return ZCOMPL;
- }
-***/
- putzhhdr(ZNAK);
- done=0;
- break;
- case ZCOMPL:
- done=0;
- break;
- case ZFIN:
- ackbibi();
- return ZCOMPL;
- case ZCAN:
- return ERROR;
- }
- }
-#endif
- }
-
- fnum++;
-
- if(!(mode&DIR) && fnames && fnum>fnames) {
- newline();
- fprintf(statfp,"Attempt to send more files than specified\n");
- xmodem_cancel(sock,mode);
- break;
- }
-
- if(fexist(str) && !(mode&OVERWRITE)) {
- fprintf(statfp,"%s already exists\n",str);
- xmodem_cancel(sock,mode);
- bail(1);
- }
- if((fp=fopen(str,"wb"))==NULL) {
- fprintf(statfp,"Error creating %s\n",str);
- xmodem_cancel(sock,mode);
- bail(1);
- }
- setvbuf(fp,NULL,_IOFBF,8*1024);
- startfile=time(NULL);
- fprintf(statfp,"Receiving %s (%lu bytes) via %s %s\n"
- ,str
- ,mode&XMODEM ? 0 : file_bytes
- ,mode&XMODEM ? "Xmodem" : mode&YMODEM ? mode&GMODE ? "Ymodem-G"
- : "Ymodem" :"Zmodem"
- ,mode&CRC ? "CRC-16":"Checksum");
-
- errors=0;
- block_num=0;
- if(mode&GMODE) /* G for Ymodem-G */
- putcom('G');
- else if(mode&CRC) /* C for CRC */
- putcom('C');
- else /* NAK for checksum */
- putcom(NAK);
- while(errors<MAXERRORS) {
- if(block_num && !(mode&GMODE))
- putcom(ACK);
- i=xmodem_get_block(sock, block,block_size,FALSE,mode,statfp); /* returns block num */
- if(i<0) {
- if(i==-EOT) /* end of transfer */
- break;
- /* other error */
- xmodem_cancel(sock,mode);
- bail(1);
- }
- hdr_block_num=i;
- if(file_bytes_left<=0L) { /* No more bytes to send */
- newline();
- fprintf(statfp,"Attempt to send more than header specified\n");
- break;
- }
- if(hdr_block_num==(uchar)((block_num+1)&0xff)) { /* correct block */
- block_num++;
- if(file_bytes_left<block_size) {
- if(fwrite(block,1,file_bytes_left,fp)
- !=file_bytes_left) {
- newline();
- fprintf(statfp,"Error writing to file\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- }
- else {
- if(fwrite(block,1,block_size,fp)
- !=block_size) {
- newline();
- fprintf(statfp,"Error writing to file\n");
- xmodem_cancel(sock,mode);
- bail(1);
- }
- }
- file_bytes_left-=block_size;
- }
- else {
- newline();
- fprintf(statfp,"Block number %u instead of %u\n"
- ,hdr_block_num,(block_num+1)&0xff);
- // dump_block();
- errors++;
- }
- t=time(NULL)-startfile;
- if(!t) t=1;
- cps=(uint)((block_num*(long)block_size)/t); /* cps so far */
- if(!cps) cps=1;
- l=file_bytes/cps; /* total transfer est time */
- l-=t; /* now, it's est time left */
- if(l<0) l=0;
- b=num_blocks(file_bytes, block_size);
- if(mode&YMODEM)
- fprintf(statfp,"\rBlock (%lu%s): %lu/%lu Byte: %lu Time: %lu:%02lu/"
- "%lu:%02lu CPS: %u %lu%% "
- ,block_size%1024L ? block_size: block_size/1024L
- ,block_size%1024L ? "" : "k"
- ,block_num
- ,b
- ,block_num*(long)block_size
- ,t/60L
- ,t%60L
- ,l/60L
- ,l%60L
- ,cps
- ,(long)(((float)block_num/(float)b)*100.0)
- );
- else /* Xmodem */
- fprintf(statfp,"\rBlock (%lu%s): %lu Byte: %lu Time: %lu:%02lu "
- "CPS: %u "
- ,block_size%1024L ? block_size: block_size/1024L
- ,block_size%1024L ? "" : "k"
- ,block_num
- ,block_num*(long)block_size
- ,t/60L
- ,t%60L
- ,cps
- );
- }
-
- putcom(ACK);
- if(!(mode&XMODEM) && ftime)
- setfdate(str,ftime);
- /* Use correct file size */
- fflush(fp);
- if(file_bytes < filelength(fileno(fp)));
- chsize(fileno(fp),file_bytes);
- fclose(fp);
- t=time(NULL)-startfile;
- if(!t) t=1;
- l=(block_num-1)*(long)block_size;
- if(l>file_bytes)
- l=file_bytes;
- newline();
- fprintf(statfp,"Successsful - Time: %lu:%02lu CPS: %lu\n"
- ,t/60,t%60,l/t);
- if(log) {
- fprintf(log,"%c %6lu %5u bps %4lu cps %3u errors %5u %4u "
- "%s %d\n"
- ,mode&ZMODEM ? 'Z' : 'R'
- ,l
- ,30000 /* baud */
- ,l/t
- ,errors
- ,flows
- ,block_size
- ,str
- ,serial_num);
- }
- if(mode&XMODEM)
- break;
- total_files--;
- total_bytes-=file_bytes;
- if(total_files>1 && total_bytes)
- fprintf(statfp,"Remaining - Time: %lu:%02lu Files: %u Bytes: %lu\n"
- ,(total_bytes/cps)/60
- ,(total_bytes/cps)%60
- ,total_files
- ,total_bytes
- );
- }
-}
-
-static const char* usage=
- "usage: STP <socket> [opts] <cmd> [file | path | +list]\n\n"
- "where:\n\n"
- "socket = TCP socket descriptor\n"
- "opts = o to overwrite files when receiving\n"
- " d to disable dropped carrier detection\n"
- " a to sound alarm at start and stop of transfer\n"
- " p to pause after abnormal exit (error)\n"
- " l to disable local keyboard (Ctrl-C) checking\n"
- "cmd = sx to send Xmodem rx to recv Xmodem\n"
- " sX to send Xmodem-1k rc to recv Xmodem-CRC\n"
- " sy to send Ymodem ry to recv Ymodem\n"
- " sY to send Ymodem-1k rg to recv Ymodem-G\n"
- " sz to send Zmodem rz to recv Zmodem\n"
- "file = filename to send or receive\n"
- "path = path to receive files into\n"
- "list = name of text file with list of filenames to send or receive\n";
-
-/***************/
-/* Entry Point */
-/***************/
-int main(int argc, char **argv)
-{
- char str[256],tmp[256],*p,*p2,first_block
- ,*fname[MAX_FNAMES],fnum;
- int ch,i,j,k,last;
- uint fnames=0;
- ulong val;
- FILE* fp;
- FILE* log=NULL;
-
- errfp=stderr;
- statfp=stdout;
-
- fprintf(statfp,"\nSynchronet Transfer Protocols v1.00"
- " Copyright 2003 Rob Swindell\n\n");
-
- fprintf(statfp,"Command line: ");
- for(i=1;i<argc;i++)
- fprintf(statfp,"%s ",argv[i]);
- fprintf(statfp,"\n",statfp);
-
- if(argc<3) {
- fprintf(errfp,usage);
- exit(1);
- }
-
- sock=atoi(argv[1]);
- if(sock==INVALID_SOCKET || sock<1) {
- fprintf(errfp,usage);
- exit(1);
- }
-
- for(i=2;i<argc;i++) {
-
- if(!(mode&(SEND|RECV))) {
- if(toupper(argv[i][0])=='S' || toupper(argv[i][0])=='R') { /* cmd */
- if(toupper(argv[i][0])=='R')
- mode|=RECV;
- else
- mode|=SEND;
-
- block_size=1024;
-
- switch(argv[i][1]) {
- case 'c':
- case 'C':
- mode|=CRC;
- case 'x':
- block_size=128;
- case 'X':
- mode|=XMODEM;
- break;
- case 'y':
- block_size=128;
- case 'Y':
- mode|=(YMODEM|CRC);
- break;
- case 'g':
- case 'G':
- mode|=(YMODEM|CRC|GMODE);
- break;
- case 'z':
- case 'Z':
- mode|=(ZMODEM|CRC);
- break;
- default:
- fprintf(statfp,"Unrecognized command '%s'\n\n",argv[i]);
- fprintf(statfp,usage);
- exit(1);
- }
- }
-
- else if(toupper(argv[i][0])=='O')
- mode|=OVERWRITE;
-
- else if(toupper(argv[i][0])=='D')
- mode|=IGNORE_DCD;
-
- else if(toupper(argv[i][0])=='A')
- mode|=ALARM;
-
- else if(toupper(argv[i][0])=='L')
- mode|=NO_LOCAL;
-
- else if(toupper(argv[i][0])=='P')
- mode|=PAUSE_ABEND;
-
- else if(argv[i][0]=='*')
- mode|=DEBUG;
- }
-
- else if(argv[i][0]=='+') {
- if(mode&DIR) {
- fprintf(statfp,"Cannot specify both directory and filename\n");
- exit(1);
- }
- sprintf(str,"%s",argv[i]+1);
- if((fp=fopen(str,"r"))==NULL) {
- fprintf(statfp,"Error %d opening filelist: %s\n",errno,str);
- exit(1);
- }
- while(!feof(fp) && !ferror(fp) && fnames<MAX_FNAMES) {
- if(!fgets(str,sizeof(str),fp))
- break;
- truncsp(str);
- if((fname[fnames]=(char *)malloc(strlen(str)+1))==NULL) {
- fprintf(statfp,"Error allocating memory for filename\n");
- exit(1);
- }
- strcpy(fname[fnames++],str);
- }
- fclose(fp);
- }
-
- else if(mode&(SEND|RECV)){
- if((fname[fnames]=(char *)malloc(strlen(argv[i])+1))==NULL) {
- fprintf(statfp,"Error allocating memory for filename\n");
- exit(1);
- }
- strcpy(fname[fnames],argv[i]);
- if(isdir(fname[fnames])) { /* is a directory */
- if(mode&DIR) {
- fprintf(statfp,"Only one directory can be specified\n");
- exit(1);
- }
- if(fnames) {
- fprintf(statfp,"Cannot specify both directory and filename\n");
- exit(1);
- }
- if(mode&SEND) {
- fprintf(statfp,"Cannot send directory '%s'\n",fname[fnames]);
- exit(1);
- }
- mode|=DIR;
- }
- fnames++;
- }
- }
-
- if(!(mode&(SEND|RECV))) {
- fprintf(statfp,"No command specified\n");
- fprintf(statfp,usage);
- exit(1);
- }
-
- if(mode&(SEND|XMODEM) && !fnames) { /* Sending with any or recv w/Xmodem */
- fprintf(statfp,"Must specify filename or filelist\n");
- fprintf(statfp,usage);
- exit(1);
- }
-
-
- if(mode&DIR)
- backslash(fname[0]);
-
- if(mode&ALARM) {
- BEEP(1000,500);
- BEEP(2000,500);
- }
-
- if(!winsock_startup())
- bail(2);
-#if 0
- /* Non-blocking socket I/O */
- val=1;
- ioctlsocket(sock,FIONBIO,&val);
-#endif
- if(!DCDHIGH) {
- newline();
- fprintf(statfp,"No carrier\n");
- bail(1);
- }
-
- p=getenv("DSZLOG");
- if(p) {
- if((log=fopen(p,"w"))==NULL) {
- fprintf(statfp,"Error opening DSZLOG file: %s\n",p);
- bail(1);
- }
- }
-
- startall=time(NULL);
-
- if(mode&RECV)
- receive_files(fname, fnames, log);
- else
- send_files(fname, fnames, log);
-
- bail(0);
- return(0);
-}
-
diff --git a/src/stp/zmodem.c b/src/stp/zmodem.c
deleted file mode 100644
index 5618bc91f45234f1c7735077e79bd82192359664..0000000000000000000000000000000000000000
--- a/src/stp/zmodem.c
+++ /dev/null
@@ -1,1644 +0,0 @@
-/******************************************************************************/
-/* Project : Unite! File : zmodem general Version : 1.02 */
-/* */
-/* (C) Mattheij Computer Service 1994 */
-/* */
-/* contact us through (in order of preference) */
-/* */
-/* email: jacquesm@hacktic.nl */
-/* mail: MCS */
-/* Prinses Beatrixlaan 535 */
-/* 2284 AT RIJSWIJK */
-/* The Netherlands */
-/* voice phone: 31+070-3936926 */
-/******************************************************************************/
-
-/*
- * zmodem primitives and other code common to zmtx and zmrx
- */
-
-#include <stdio.h>
-#include <sys/stat.h> /* struct stat */
-
-#include "genwrap.h"
-#include "sockwrap.h"
-
-#include "zmodem.h"
-#include "crc16.h"
-#include "crc32.h"
-
-#define UPDCRC16 ucrc16
-#define UPDCRC32 ucrc32
-
-#if 1
-#define DEBUG
-#endif
-
-#define ENDOFFRAME 2
-#define FRAMEOK 1
-#define TIMEOUT -1 /* rx routine did not receive a character within timeout */
-#define INVHDR -2 /* invalid header received; but within timeout */
-#define INVDATA -3 /* invalid data subpacket received */
-#define ZDLEESC 0x8000 /* one of ZCRCE; ZCRCG; ZCRCQ or ZCRCW was received; ZDLE escaped */
-
-#define HDRLEN 5 /* size of a zmodem header */
-
-
-int opt_v = TRUE; /* show progress output */
-int opt_d = TRUE; /* show debug output */
-
-/*
- * read bytes as long as rdchk indicates that
- * more data is available.
- */
-
-void
-zmodem_rx_purge(zmodem_t* zm)
-
-{
- while(recv_byte(zm->sock,0,zm->mode)<=0xff);
-}
-
-/*
- * transmit a character.
- * this is the raw modem interface
- */
-
-void
-zmodem_tx_raw(zmodem_t* zm, unsigned char ch)
-{
-
-#ifdef DEBUG
- if (zm->raw_trace) {
- fprintf(stderr,"%02x ",ch);
- }
-#endif
-
- if(send_byte(zm->sock,ch,10,zm->mode))
- fprintf(stderr,"!Send error: %u\n",ERROR_VALUE);
-
- zm->last_sent = ch;
-}
-
-/*
- * transmit a character ZDLE escaped
- */
-
-void
-zmodem_tx_esc(zmodem_t* zm, unsigned char c)
-
-{
- zmodem_tx_raw(zm, ZDLE);
- /*
- * exclusive or; not an or so ZDLE becomes ZDLEE
- */
- zmodem_tx_raw(zm, (uchar)(c ^ 0x40));
-}
-
-/*
- * transmit a character; ZDLE escaping if appropriate
- */
-
-void
-zmodem_tx(zmodem_t* zm, unsigned char c)
-
-{
- switch (c) {
- case ZDLE:
- zmodem_tx_esc(zm, c);
- return;
- case 0x8d:
- case 0x0d:
- if (zm->escape_all_control_characters && (zm->last_sent&0x7f) == '@') {
- zmodem_tx_esc(zm, c);
- return;
- }
- break;
- case 0x10:
- case 0x90:
- case 0x11:
- case 0x91:
- case 0x13:
- case 0x93:
- zmodem_tx_esc(zm, c);
- return;
- default:
- if (zm->escape_all_control_characters && (c & 0x60) == 0) {
- zmodem_tx_esc(zm, c);
- return;
- }
- break;
- }
- /*
- * anything that ends here is so normal we might as well transmit it.
- */
- zmodem_tx_raw(zm, c);
-}
-
-/*
- * transmit a hex header.
- * these routines use tx_raw because we're sure that all the
- * characters are not to be escaped.
- */
-
-void
-zmodem_tx_nibble(zmodem_t* zm, int n)
-
-{
- n &= 0x0f;
- if (n < 10) {
- n += '0';
- }
- else {
- n += 'a' - 10;
- }
-
- zmodem_tx_raw(zm, (uchar)n);
-}
-
-void
-zmodem_tx_hex(zmodem_t* zm, int h)
-
-{
- zmodem_tx_nibble(zm, h >> 4);
- zmodem_tx_nibble(zm, h);
-}
-
-void
-zmodem_tx_hex_header(zmodem_t* zm, unsigned char * p)
-
-{
- int i;
- unsigned short int crc;
-
-#ifdef DEBUG
- fprintf(stderr,"tx_hheader : ");
-#endif
-
- zmodem_tx_raw(zm, ZPAD);
- zmodem_tx_raw(zm, ZPAD);
- zmodem_tx_raw(zm, ZDLE);
-
- if (zm->use_variable_headers) {
- zmodem_tx_raw(zm, ZVHEX);
- zmodem_tx_hex(zm, HDRLEN);
- }
- else {
- zmodem_tx_raw(zm, ZHEX);
- }
-
- /*
- * initialise the crc
- */
-
- crc = 0;
-
- /*
- * transmit the header
- */
-
- for (i=0;i<HDRLEN;i++) {
- zmodem_tx_hex(zm, *p);
- crc = UPDCRC16(*p, crc);
- p++;
- }
-
- /*
- * update the crc as though it were zero
- */
-
-// crc = UPDCRC16(0,crc);
-// crc = UPDCRC16(0,crc);
-
- /*
- * transmit the crc
- */
-
- zmodem_tx_hex(zm, crc >> 8);
- zmodem_tx_hex(zm, crc&0xff);
-
- /*
- * end of line sequence
- */
-
- zmodem_tx_raw(zm, '\r');
- zmodem_tx_raw(zm, '\n');
-
- zmodem_tx_raw(zm, XON);
-
-
-#ifdef DEBUG
- fprintf(stderr,"\n");
-#endif
-}
-
-/*
- * Send ZMODEM binary header hdr
- */
-
-void
-zmodem_tx_bin32_header(zmodem_t* zm, unsigned char * p)
-
-{
- int i;
- unsigned long crc;
-
-#ifdef DEBUG
- fprintf(stderr,"tx binary header 32 bits crc\n");
-// zm->raw_trace = 1;
-#endif
-
- zmodem_tx_raw(zm, ZPAD);
- zmodem_tx_raw(zm, ZPAD);
- zmodem_tx_raw(zm, ZDLE);
-
- if (zm->use_variable_headers) {
- zmodem_tx_raw(zm, ZVBIN32);
- zmodem_tx(zm, HDRLEN);
- }
- else {
- zmodem_tx_raw(zm, ZBIN32);
- }
-
- crc = 0xffffffffL;
-
- for (i=0;i<HDRLEN;i++) {
- crc = UPDCRC32(*p,crc);
- zmodem_tx(zm, *p++);
- }
-
- crc = ~crc;
-
- zmodem_tx(zm, (uchar)((crc ) & 0xff));
- zmodem_tx(zm, (uchar)((crc >> 8) & 0xff));
- zmodem_tx(zm, (uchar)((crc >> 16) & 0xff));
- zmodem_tx(zm, (uchar)((crc >> 24) & 0xff));
-}
-
-void
-zmodem_tx_bin16_header(zmodem_t* zm, unsigned char * p)
-
-{
- int i;
- unsigned int crc;
-
-#ifdef DEBUG
- fprintf(stderr,"tx binary header 16 bits crc\n");
-#endif
-
- zmodem_tx_raw(zm, ZPAD);
- zmodem_tx_raw(zm, ZPAD);
- zmodem_tx_raw(zm, ZDLE);
-
- if (zm->use_variable_headers) {
- zmodem_tx_raw(zm, ZVBIN);
- zmodem_tx(zm, HDRLEN);
- }
- else {
- zmodem_tx_raw(zm, ZBIN);
- }
-
- crc = 0;
-
- for (i=0;i<HDRLEN;i++) {
- crc = UPDCRC16(*p,crc);
- zmodem_tx(zm, *p++);
- }
-
-// crc = UPDCRC16(0,crc);
-// crc = UPDCRC16(0,crc);
-
- zmodem_tx(zm, (uchar)(crc >> 8));
- zmodem_tx(zm, (uchar)(crc&0xff));
-}
-
-
-/*
- * transmit a header using either hex 16 bit crc or binary 32 bit crc
- * depending on the receivers capabilities
- * we dont bother with variable length headers. I dont really see their
- * advantage and they would clutter the code unneccesarily
- */
-
-void
-zmodem_tx_header(zmodem_t* zm, unsigned char * p)
-
-{
- if (zm->can_fcs_32) {
- if (!zm->want_fcs_16) {
- zmodem_tx_bin32_header(zm, p);
- }
- else {
- zmodem_tx_bin16_header(zm, p);
- }
- }
- else {
- zmodem_tx_hex_header(zm, p);
- }
-}
-
-/*
- * data subpacket transmission
- */
-
-void
-zmodem_tx_32_data(zmodem_t* zm, uchar sub_frame_type, unsigned char * p, int l)
-
-{
- unsigned long crc;
-
-#ifdef DEBUG
- fprintf(stderr,"tx_32_data\n");
-#endif
-
- crc = 0xffffffffl;
-
- while (l > 0) {
- crc = UPDCRC32(*p,crc);
- zmodem_tx(zm, *p++);
- l--;
- }
-
- crc = UPDCRC32(sub_frame_type, crc);
-
- zmodem_tx_raw(zm, ZDLE);
- zmodem_tx_raw(zm, sub_frame_type);
-
- crc = ~crc;
-
- zmodem_tx(zm, (uchar) ((crc ) & 0xff));
- zmodem_tx(zm, (uchar) ((crc >> 8 ) & 0xff));
- zmodem_tx(zm, (uchar) ((crc >> 16) & 0xff));
- zmodem_tx(zm, (uchar) ((crc >> 24) & 0xff));
-}
-
-void
-zmodem_tx_16_data(zmodem_t* zm, uchar sub_frame_type,unsigned char * p,int l)
-
-{
- unsigned short crc;
-
-#ifdef DEBUG
- fprintf(stderr,"tx_16_data\n");
-#endif
-
- crc = 0;
-
- while (l > 0) {
- crc = UPDCRC16(*p,crc);
- zmodem_tx(zm, *p++);
- l--;
- }
-
- crc = UPDCRC16(sub_frame_type,crc);
-
- zmodem_tx_raw(zm, ZDLE);
- zmodem_tx_raw(zm, sub_frame_type);
-
-// crc = UPDCRC16(0,crc);
-// crc = UPDCRC16(0,crc);
-
- zmodem_tx(zm, (uchar)(crc >> 8));
- zmodem_tx(zm, (uchar)(crc&0xff));
-}
-
-/*
- * send a data subpacket using crc 16 or crc 32 as desired by the receiver
- */
-
-void
-zmodem_tx_data(zmodem_t* zm, uchar sub_frame_type,unsigned char * p, int l)
-
-{
- if (!zm->want_fcs_16 && zm->can_fcs_32) {
- zmodem_tx_32_data(zm, sub_frame_type,p,l);
- }
- else {
- zmodem_tx_16_data(zm, sub_frame_type,p,l);
- }
-
- if (sub_frame_type == ZCRCW) {
- zmodem_tx_raw(zm, XON);
- }
-
-}
-
-void
-zmodem_tx_pos_header(zmodem_t* zm, int type,long pos)
-
-{
- char header[5];
-
- header[0] = type;
- header[ZP0] = pos & 0xff;
- header[ZP1] = (pos >> 8) & 0xff;
- header[ZP2] = (pos >> 16) & 0xff;
- header[ZP3] = (pos >> 24) & 0xff;
-
- zmodem_tx_hex_header(zm, header);
-}
-
-void
-zmodem_tx_znak(zmodem_t* zm)
-
-{
- fprintf(stderr,"tx_znak\n");
-
- zmodem_tx_pos_header(zm, ZNAK, zm->ack_file_pos);
-}
-
-void
-zmodem_tx_zskip(zmodem_t* zm)
-
-{
- zmodem_tx_pos_header(zm, ZSKIP, 0L);
-}
-
-/*
- * receive any style header within timeout milliseconds
- */
-
-int
-zmodem_rx_poll(zmodem_t* zm)
-{
- int rd=0;
-
- socket_check(zm->sock,&rd,NULL,0);
-
- return(rd);
-}
-
-/*
- * rx_raw ; receive a single byte from the line.
- * reads as many are available and then processes them one at a time
- * check the data stream for 5 consecutive CAN characters;
- * and if you see them abort. this saves a lot of clutter in
- * the rest of the code; even though it is a very strange place
- * for an exit. (but that was wat session abort was all about.)
- */
-
-int
-zmodem_rx_raw(zmodem_t* zm, int to)
-
-{
- int n;
- int c;
-
- if((c=recv_byte(zm->sock,to,zm->mode)) > 0xff)
- return TIMEOUT;
-
-// fprintf(stdout,"%02X ",c);
-
- if (c == CAN) {
- zm->n_cans++;
- if (zm->n_cans == 5) {
- fprintf(stderr,"\nCancelled Remotely\n");
- bail(CAN);
- }
- }
- else {
- zm->n_cans = 0;
- }
-
- return c;
-}
-
-/*
- * rx; receive a single byte undoing any escaping at the
- * sending site. this bit looks like a mess. sorry for that
- * but there seems to be no other way without incurring a lot
- * of overhead. at least like this the path for a normal character
- * is relatively short.
- */
-
-
-int
-zmodem_rx(zmodem_t* zm, int to)
-
-{
- int c;
-
- /*
- * outer loop for ever so for sure something valid
- * will come in; a timeout will occur or a session abort
- * will be received.
- */
-
- while (TRUE) {
-
- /*
- * fake do loop so we may continue
- * in case a character should be dropped.
- */
-
- do {
- c = zmodem_rx_raw(zm, to);
- if (c == TIMEOUT) {
- return c;
- }
-
- switch (c) {
- case ZDLE:
- break;
- case 0x11:
- case 0x91:
- case 0x13:
- case 0x93:
- continue;
- default:
- /*
- * if all control characters should be escaped and
- * this one wasnt then its spurious and should be dropped.
- */
- if (zm->escape_all_control_characters && (c & 0x60) == 0) {
- continue;
- }
- /*
- * normal character; return it.
- */
- return c;
- }
- } while (FALSE);
-
- /*
- * ZDLE encoded sequence or session abort.
- * (or something illegal; then back to the top)
- */
-
- do {
- c = zmodem_rx_raw(zm, to);
-
- if (c == 0x11 || c == 0x13 || c == 0x91 || c == 0x93 || c == ZDLE) {
- /*
- * these can be dropped.
- */
- continue;
- }
-
- switch (c) {
- /*
- * these four are really nasty.
- * for convenience we just change them into
- * special characters by setting a bit outside the
- * first 8. that way they can be recognized and still
- * be processed as characters by the rest of the code.
- */
- case ZCRCE:
- case ZCRCG:
- case ZCRCQ:
- case ZCRCW:
- return (c | ZDLEESC);
- case ZRUB0:
- return 0x7f;
- case ZRUB1:
- return 0xff;
- default:
- if (zm->escape_all_control_characters && (c & 0x60) == 0) {
- /*
- * a not escaped control character; probably
- * something from a network. just drop it.
- */
- continue;
- }
- /*
- * legitimate escape sequence.
- * rebuild the orignal and return it.
- */
- if ((c & 0x60) == 0x40) {
- return c ^ 0x40;
- }
- break;
- }
- } while (FALSE);
- }
-
- /*
- * not reached.
- */
-
- return 0;
-}
-
-/*
- * receive a data subpacket as dictated by the last received header.
- * return 2 with correct packet and end of frame
- * return 1 with correct packet frame continues
- * return 0 with incorrect frame.
- * return TIMEOUT with a timeout
- * if an acknowledgement is requested it is generated automatically
- * here.
- */
-
-/*
- * data subpacket reception
- */
-
-int
-zmodem_rx_32_data(zmodem_t* zm, unsigned char * p,int * l)
-
-{
- int c;
- unsigned long rxd_crc;
- unsigned long crc;
- int sub_frame_type;
-
-#ifdef DEBUG
- fprintf(stderr,"rx_32_data\n");
-#endif
-
- crc = 0xffffffffl;
-
- do {
- c = zmodem_rx(zm, 1);
-
- if (c == TIMEOUT) {
- return TIMEOUT;
- }
- if (c < 0x100) {
- crc = UPDCRC32(c,crc);
- *p++ = c;
- (*l)++;
- continue;
- }
- } while (c < 0x100);
-
- sub_frame_type = c & 0xff;
-
- crc = UPDCRC32(sub_frame_type, crc);
-
- crc = ~crc;
-
- rxd_crc = zmodem_rx(zm, 1);
- rxd_crc |= zmodem_rx(zm, 1) << 8;
- rxd_crc |= zmodem_rx(zm, 1) << 16;
- rxd_crc |= zmodem_rx(zm, 1) << 24;
-
- if (rxd_crc != crc) {
- return FALSE;
- }
-
- zm->ack_file_pos += *l;
-
- return sub_frame_type;
-}
-
-int
-zmodem_rx_16_data(zmodem_t* zm, register unsigned char * p,int * l)
-
-{
- register int c;
- int sub_frame_type;
- register unsigned short crc;
- unsigned short rxd_crc;
-
-#ifdef DEBUG
- fprintf(stderr,"rx_16_data\n");
-#endif
-
- crc = 0;
-
- do {
- c = zmodem_rx(zm, 5);
-
- if (c == TIMEOUT) {
- return TIMEOUT;
- }
- if (c < 0x100) {
- crc = UPDCRC16(c,crc);
- *p++ = c;
- (*l)++;
- }
- } while (c < 0x100);
-
- sub_frame_type = c & 0xff;
-
- crc = UPDCRC16(sub_frame_type,crc);
-
-// crc = UPDCRC16(0,crc);
-// crc = UPDCRC16(0,crc);
-
- rxd_crc = zmodem_rx(zm, 1) << 8;
- rxd_crc |= zmodem_rx(zm, 1);
-
- if (rxd_crc != crc) {
- return FALSE;
- }
-
- zm->ack_file_pos += *l;
-
- return sub_frame_type;
-}
-
-int
-zmodem_rx_data(zmodem_t* zm, unsigned char * p, int * l)
-
-{
- unsigned char zack_header[] = { ZACK, 0, 0, 0, 0 };
- int sub_frame_type;
- long pos;
-
- /*
- * fill in the file pointer in case acknowledgement is requested.
- * the ack file pointer will be updated in the subpacket read routine;
- * so we need to get it now
- */
-
- pos = zm->ack_file_pos;
-
- /*
- * receive the right type of frame
- */
-
- *l = 0;
-
- if (zm->receive_32_bit_data) {
- sub_frame_type = zmodem_rx_32_data(zm, p,l);
- }
- else {
- sub_frame_type = zmodem_rx_16_data(zm, p,l);
- }
-
- switch (sub_frame_type) {
- case TIMEOUT:
- return TIMEOUT;
- /*
- * frame continues non-stop
- */
- case ZCRCG:
- return FRAMEOK;
- /*
- * frame ends
- */
- case ZCRCE:
- return ENDOFFRAME;
- /*
- * frame continues; ZACK expected
- */
- case ZCRCQ:
- zmodem_tx_pos_header(zm, ZACK, pos);
- return FRAMEOK;
- /*
- * frame ends; ZACK expected
- */
- case ZCRCW:
- zmodem_tx_pos_header(zm, ZACK, pos);
- return ENDOFFRAME;
- }
-
- return FALSE;
-}
-
-int
-zmodem_rx_nibble(zmodem_t* zm, int to)
-
-{
- int c;
-
- c = zmodem_rx(zm, to);
-
- if (c == TIMEOUT) {
- return c;
- }
-
- if (c > '9') {
- if (c < 'a' || c > 'f') {
- /*
- * illegal hex; different than expected.
- * we might as well time out.
- */
- return TIMEOUT;
- }
-
- c -= 'a' - 10;
- }
- else {
- if (c < '0') {
- /*
- * illegal hex; different than expected.
- * we might as well time out.
- */
- return TIMEOUT;
- }
- c -= '0';
- }
-
- return c;
-}
-
-int
-zmodem_rx_hex(zmodem_t* zm, int to)
-
-{
- int n1;
- int n0;
-
- n1 = zmodem_rx_nibble(zm, to);
-
- if (n1 == TIMEOUT) {
- return n1;
- }
-
- n0 = zmodem_rx_nibble(zm, to);
-
- if (n0 == TIMEOUT) {
- return n0;
- }
-
- return (n1 << 4) | n0;
-}
-
-/*
- * receive routines for each of the six different styles of header.
- * each of these leaves zm->rxd_header_len set to 0 if the end result is
- * not a valid header.
- */
-
-void
-zmodem_rx_bin16_header(zmodem_t* zm, int to)
-
-{
- int c;
- int n;
- unsigned short int crc;
- unsigned short int rxd_crc;
-
-#ifdef DEBUG
- fprintf(stderr,"rx binary header 16 bits crc\n");
-#endif
-
- crc = 0;
-
- for (n=0;n<5;n++) {
- c = zmodem_rx(zm, to);
- if (c == TIMEOUT) {
-#ifdef DEBUG
- fprintf(stderr,"timeout\n");
-#endif
- return;
- }
- crc = UPDCRC16(c,crc);
- zm->rxd_header[n] = c;
- }
-
-// crc = UPDCRC16(0,crc);
-// crc = UPDCRC16(0,crc);
-
- rxd_crc = zmodem_rx(zm, 1) << 8;
- rxd_crc |= zmodem_rx(zm, 1);
-
- if (rxd_crc != crc) {
-#ifdef DEBUG
- fprintf(stderr,"bad crc %4.4x %4.4x\n",rxd_crc,crc);
-#endif
- return;
- }
-
- zm->rxd_header_len = 5;
-}
-
-void
-zmodem_rx_hex_header(zmodem_t* zm, int to)
-
-{
- int c;
- int i;
- unsigned short int crc = 0;
- unsigned short int rxd_crc;
-
-#ifdef DEBUG
- fprintf(stderr,"rx_hex_header : ");
-#endif
- for (i=0;i<5;i++) {
- c = zmodem_rx_hex(zm, to);
- if (c == TIMEOUT) {
- return;
- }
- crc = UPDCRC16(c,crc);
-
- zm->rxd_header[i] = c;
- }
-
-// crc = UPDCRC16(0,crc);
-// crc = UPDCRC16(0,crc);
-
- /*
- * receive the crc
- */
-
- c = zmodem_rx_hex(zm, to);
-
- if (c == TIMEOUT) {
- return;
- }
-
- rxd_crc = c << 8;
-
- c = zmodem_rx_hex(zm, to);
-
- if (c == TIMEOUT) {
- return;
- }
-
- rxd_crc |= c;
-
- if (rxd_crc == crc) {
- zm->rxd_header_len = 5;
- }
-#ifdef DEBUG
- else {
- fprintf(stderr,"\n!BAD CRC-16: 0x%hX, expected: 0x%hX\n", rxd_crc, crc);
- }
-#endif
-
- /*
- * drop the end of line sequence after a hex header
- */
- c = zmodem_rx(zm, to);
- if (c == CR) {
- /*
- * both are expected with CR
- */
- zmodem_rx(zm, to); /* drop LF */
- }
-}
-
-void
-zmodem_rx_bin32_header(zmodem_t* zm, int to)
-
-{
- int c;
- int n;
- unsigned long crc;
- unsigned long rxd_crc;
-
-#ifdef DEBUG
- fprintf(stderr,"rx binary header 32 bits crc\n");
-#endif
-
- crc = 0xffffffffL;
-
- for (n=0;n<to;n++) {
- c = zmodem_rx(zm, 1);
- if (c == TIMEOUT) {
- return;
- }
- crc = UPDCRC32(c,crc);
- zm->rxd_header[n] = c;
- }
-
- crc = ~crc;
-
- rxd_crc = zmodem_rx(zm, 1);
- rxd_crc |= zmodem_rx(zm, 1) << 8;
- rxd_crc |= zmodem_rx(zm, 1) << 16;
- rxd_crc |= zmodem_rx(zm, 1) << 24;
-
- if (rxd_crc != crc) {
- return;
- }
-
- zm->rxd_header_len = 5;
-}
-
-/*
- * receive any style header
- * if the errors flag is set than whenever an invalid header packet is
- * received INVHDR will be returned. otherwise we wait for a good header
- * also; a flag (receive_32_bit_data) will be set to indicate whether data
- * packets following this header will have 16 or 32 bit data attached.
- * variable headers are not implemented.
- */
-
-int
-zmodem_rx_header_raw(zmodem_t* zm, int to,int errors)
-
-{
- int c;
-
-#ifdef DEBUG
- fprintf(stderr,"rx header : ");
-#endif
- zm->rxd_header_len = 0;
-
- do {
- do {
- c = zmodem_rx_raw(zm, to);
- if (c == TIMEOUT) {
- fprintf(stderr,"\n%s %d\n",__FILE__,__LINE__);
- return c;
- }
- } while (c != ZPAD);
-
- c = zmodem_rx_raw(zm, to);
- if (c == TIMEOUT) {
- fprintf(stderr,"\n%s %d\n",__FILE__,__LINE__);
- return c;
- }
-
- if (c == ZPAD) {
- c = zmodem_rx_raw(zm, to);
- if (c == TIMEOUT) {
- fprintf(stderr,"\n%s %d\n",__FILE__,__LINE__);
- return c;
- }
- }
-
- /*
- * spurious ZPAD check
- */
-
- if (c != ZDLE) {
-#ifdef DEBUG
- fprintf(stderr,"expected ZDLE; got %c\n",c);
-#endif
- continue;
- }
-
- /*
- * now read the header style
- */
-
- c = zmodem_rx(zm, to);
-
- if (c == TIMEOUT) {
- fprintf(stderr,"\n%s %d\n",__FILE__,__LINE__);
- return c;
- }
-
-#ifdef DEBUG
- fprintf(stderr,"\n");
-#endif
- switch (c) {
- case ZBIN:
- zmodem_rx_bin16_header(zm, to);
- zm->receive_32_bit_data = FALSE;
- break;
- case ZHEX:
- zmodem_rx_hex_header(zm, to);
- zm->receive_32_bit_data = FALSE;
- break;
- case ZBIN32:
- zmodem_rx_bin32_header(zm, to);
- zm->receive_32_bit_data = TRUE;
- break;
- default:
- /*
- * unrecognized header style
- */
-#ifdef DEBUG
- fprintf(stderr,"unrecognized header style %c\n",c);
-#endif
- if (errors) {
- return INVHDR;
- }
-
- continue;
- }
- if (errors && zm->rxd_header_len == 0) {
- return INVHDR;
- }
-
- } while (zm->rxd_header_len == 0);
-
- /*
- * this appears to have been a valid header.
- * return its type.
- */
-
- if (zm->rxd_header[0] == ZDATA) {
- zm->ack_file_pos = zm->rxd_header[ZP0] | (zm->rxd_header[ZP1] << 8) |
- (zm->rxd_header[ZP2] << 16) | (zm->rxd_header[ZP3] << 24);
- }
-
- if (zm->rxd_header[0] == ZFILE) {
- zm->ack_file_pos = 0l;
- }
-
-#ifdef DEBUG
- fprintf(stderr,"type %d\n",zm->rxd_header[0]);
-#endif
-
- return zm->rxd_header[0];
-}
-
-int
-zmodem_rx_header(zmodem_t* zm, int timeout)
-
-{
- return zmodem_rx_header_raw(zm, timeout, FALSE);
-}
-
-int
-zmodem_rx_header_and_check(zmodem_t* zm, int timeout)
-
-{
- int type;
- while (TRUE) {
- type = zmodem_rx_header_raw(zm, timeout,TRUE);
-
- if (type != INVHDR) {
- break;
- }
-
- zmodem_tx_znak(zm);
- }
-
- return type;
-}
-
-void zmodem_parse_zrinit(zmodem_t* zm)
-{
- zm->can_full_duplex = (zm->rxd_header[ZF0] & ZF0_CANFDX) != 0;
- zm->can_overlap_io = (zm->rxd_header[ZF0] & ZF0_CANOVIO) != 0;
- zm->can_break = (zm->rxd_header[ZF0] & ZF0_CANBRK) != 0;
- zm->can_fcs_32 = (zm->rxd_header[ZF0] & ZF0_CANFC32) != 0;
- zm->escape_all_control_characters = (zm->rxd_header[ZF0] & ZF0_ESCCTL) != 0;
- zm->escape_8th_bit = (zm->rxd_header[ZF0] & ZF0_ESC8) != 0;
-
- zm->use_variable_headers = (zm->rxd_header[ZF1] & ZF1_CANVHDR) != 0;
-}
-
-int zmodem_get_zrinit(zmodem_t* zm)
-{
- unsigned char zrqinit_header[] = { ZRQINIT, 0, 0, 0, 0 };
-
- zmodem_tx_raw(zm,'r');
- zmodem_tx_raw(zm,'z');
- zmodem_tx_raw(zm,'\r');
- zmodem_tx_hex_header(zm,zrqinit_header);
-
- return zmodem_rx_header(zm,7);
-}
-
-int zmodem_send_zfin(zmodem_t* zm)
-{
- int type;
- unsigned char zfin_header[] = { ZFIN, 0, 0, 0, 0 };
-
- zmodem_tx_hex_header(zm,zfin_header);
- do {
- type = zmodem_rx_header(zm,10);
- } while (type != ZFIN && type != TIMEOUT);
-
- /*
- * these Os are formally required; but they don't do a thing
- * unfortunately many programs require them to exit
- * (both programs already sent a ZFIN so why bother ?)
- */
-
- if (type != TIMEOUT) {
- zmodem_tx_raw(zm,'O');
- zmodem_tx_raw(zm,'O');
- }
-
- return 0;
-}
-
-/*
- * show the progress of the transfer like this:
- * zmtx: sending file "garbage" 4096 bytes ( 20%)
- */
-
-void
-show_progress(zmodem_t* zm, FILE * fp)
-
-{
- time_t duration;
- int cps;
- int percentage;
-
- if (zm->current_file_size > 0) {
- percentage = (ftell(fp) * 100) / zm->current_file_size;
- }
- else {
- percentage = 100;
- }
-
- duration = time(NULL) - zm->transfer_start;
-
- if (duration == 0l) {
- duration = 1l;
- }
-
- cps = ftell(fp) / duration;
-
- fprintf(stderr,"zmtx: %8ld bytes (%3d %%/%5d cps) \r",
- ftell(fp),percentage,cps);
-}
-
-/*
- * send from the current position in the file
- * all the way to end of file or until something goes wrong.
- * (ZNAK or ZRPOS received)
- * the name is only used to show progress
- */
-
-int
-send_from(zmodem_t* zm, FILE * fp)
-
-{
- int n;
- long pos;
- uchar type = ZCRCG;
- char zdata_frame[] = { ZDATA, 0, 0, 0, 0 };
-
- /*
- * put the file position in the ZDATA frame
- */
-
- pos = ftell(fp);
- zdata_frame[ZP0] = pos & 0xff;
- zdata_frame[ZP1] = (pos >> 8) & 0xff;
- zdata_frame[ZP2] = (pos >> 16) & 0xff;
- zdata_frame[ZP3] = (pos >> 24) & 0xff;
-
- zmodem_tx_header(zm, zdata_frame);
- /*
- * send the data in the file
- */
-
- while (!feof(fp)) {
- if (opt_v) {
- show_progress(zm, fp);
- }
-
- /*
- * read a block from the file
- */
- n = fread(zm->tx_data_subpacket,1,sizeof(zm->tx_data_subpacket),fp);
-
- if (n == 0) {
- /*
- * nothing to send ?
- */
- break;
- }
-
- /*
- * at end of file wait for an ACK
- */
- if (ftell(fp) == zm->current_file_size) {
- type = ZCRCW;
- }
-
- zmodem_tx_data(zm, type, zm->tx_data_subpacket, n);
-
- if (type == ZCRCW) {
- int type;
- do {
- type = zmodem_rx_header(zm, 10);
- if (type == ZNAK || type == ZRPOS) {
- return type;
- }
- } while (type != ZACK);
-
- if (ftell(fp) == zm->current_file_size) {
- if (opt_d) {
- fprintf(stderr,"end of file\n");
- }
- return ZACK;
- }
- }
-
- /*
- * characters from the other side
- * check out that header
- */
-
- while (zmodem_rx_poll(zm)) {
- int type;
- int c;
- c = zmodem_rx_raw(zm, 1);
- if (c == ZPAD) {
- type = zmodem_rx_header(zm, 1);
- if (type != TIMEOUT && type != ACK) {
- return type;
- }
- }
- }
- }
-
- /*
- * end of file reached.
- * should receive something... so fake ZACK
- */
-
- return ZACK;
-}
-
-/*
- * send a file; returns true when session is aborted.
- * (using ZABORT frame)
- */
-
-int
-zmodem_send_file(zmodem_t* zm, char* name, FILE* fp)
-
-{
- long pos;
- struct stat s;
- unsigned char * p;
- char zfile_frame[] = { ZFILE, 0, 0, 0, 0 };
- char zeof_frame[] = { ZEOF, 0, 0, 0, 0 };
- int wait_for_header;
- int type;
- char * n;
-
- fstat(fileno(fp),&s);
- zm->current_file_size = s.st_size;
-
- /*
- * the file exists. now build the ZFILE frame
- */
-
- /*
- * set conversion option
- * (not used; always binary)
- */
-
- zfile_frame[ZF0] = ZF0_ZCBIN;
-
- /*
- * management option
- */
-
- if (zm->management_protect) {
- zfile_frame[ZF1] = ZF1_ZMPROT;
- if (opt_d) {
- fprintf(stderr,"zmtx: protecting destination\n");
- }
- }
-
- if (zm->management_clobber) {
- zfile_frame[ZF1] = ZF1_ZMCLOB;
- if (opt_d) {
- fprintf(stderr,"zmtx: overwriting destination\n");
- }
- }
-
- if (zm->management_newer) {
- zfile_frame[ZF1] = ZF1_ZMNEW;
- if (opt_d) {
- fprintf(stderr,"zmtx: overwriting destination if newer\n");
- }
- }
-
- /*
- * transport options
- * (just plain normal transfer)
- */
-
- zfile_frame[ZF2] = ZF2_ZTNOR;
-
- /*
- * extended options
- */
-
- zfile_frame[ZF3] = 0;
-
- /*
- * now build the data subpacket with the file name and lots of other
- * useful information.
- */
-
- /*
- * first enter the name and a 0
- */
-
- p = zm->tx_data_subpacket;
-
- strcpy(p,name);
-
- p += strlen(p) + 1;
-
- sprintf(p,"%lu %lo %lo %d %u %lu %d"
- ,s.st_size
- ,s.st_mtime
- ,0 /* file mode */
- ,0 /* serial number */
- ,zm->n_files_remaining
- ,zm->n_bytes_remaining
- ,0 /* file type */
- );
-
- p += strlen(p) + 1;
-
- do {
- /*
- * send the header and the data
- */
-
- zmodem_tx_header(zm,zfile_frame);
- zmodem_tx_data(zm,ZCRCW,zm->tx_data_subpacket,p - zm->tx_data_subpacket);
-
- /*
- * wait for anything but an ZACK packet
- */
-
- do {
- type = zmodem_rx_header(zm,10);
- } while (type == ZACK);
-
- if (opt_d) {
- fprintf(stderr,"type : %d\n",type);
- }
-
- if (type == ZSKIP) {
- fclose(fp);
- if (opt_v) {
- fprintf(stderr,"zmtx: skipped file \"%s\" \n",name);
- }
- return -1;
- }
-
- } while (type != ZRPOS);
-
- zm->transfer_start = time(NULL);
-
- do {
- /*
- * fetch pos from the ZRPOS header
- */
-
- if (type == ZRPOS) {
- pos = zm->rxd_header[ZP0] | (zm->rxd_header[ZP1] << 8) | (zm->rxd_header[ZP2] << 16) | (zm->rxd_header[ZP3] << 24);
- }
-
- /*
- * seek to the right place in the file
- */
- fseek(fp,pos,0);
-
- /*
- * and start sending
- */
-
- type = send_from(zm,fp);
-
- if (type == ZFERR || type == ZABORT) {
- fclose(fp);
- return -1;
- }
-
- } while (type == ZRPOS || type == ZNAK);
-
- /*
- * file sent. send end of file frame
- * and wait for zrinit. if it doesnt come then try again
- */
-
- zeof_frame[ZP0] = s.st_size & 0xff;
- zeof_frame[ZP1] = (s.st_size >> 8) & 0xff;
- zeof_frame[ZP2] = (s.st_size >> 16) & 0xff;
- zeof_frame[ZP3] = (s.st_size >> 24) & 0xff;
-
- do {
- zmodem_tx_hex_header(zm,zeof_frame);
- type = zmodem_rx_header(zm,10);
- } while (type != ZRINIT);
-
- /*
- * and close the input file
- */
-
- if (opt_v) {
- fprintf(stderr,"zmtx: sent file \"%s\" \n",name);
- }
-
- fclose(fp);
-
- return 0;
-}
-
-#if 0
-
-zmodem_send_files(char** fname, int total_files)
-{
- int i;
- int fnum;
- char * s;
-
- /*
- * clear the input queue from any possible garbage
- * this also clears a possible ZRINIT from an already started
- * zmodem receiver. this doesn't harm because we reinvite to
- * receive again below and it may be that the receiver whose
- * ZRINIT we are about to wipe has already died.
- */
-
- zmodem_rx_purge();
-
- /*
- * establish contact with the receiver
- */
-
- if (opt_v) {
- fprintf(stderr,"zmtx: establishing contact with receiver\n");
- }
-
- i = 0;
- do {
- unsigned char zrqinit_header[] = { ZRQINIT, 0, 0, 0, 0 };
- i++;
- if (i > 10) {
- fprintf(stderr,"zmtx: can't establish contact with receiver\n");
- bail(3);
- }
-
- zmodem_tx_raw('r');
- zmodem_tx_raw('z');
- zmodem_tx_raw('\r');
- zmodem_tx_hex_header(zrqinit_header);
- } while (zmodem_rx_header(7) != ZRINIT);
-
- if (opt_v) {
- fprintf(stderr,"zmtx: contact established\n");
- fprintf(stderr,"zmtx: starting file transfer\n");
- }
-
- /*
- * decode receiver capability flags
- * forget about encryption and compression.
- */
-
- zmodem_can_full_duplex = (zm->rxd_header[ZF0] & ZF0_CANFDX) != 0;
- zmodem_can_overlap_io = (zm->rxd_header[ZF0] & ZF0_CANOVIO) != 0;
- zmodem_can_break = (zm->rxd_header[ZF0] & ZF0_CANBRK) != 0;
- zmodem_can_fcs_32 = (zm->rxd_header[ZF0] & ZF0_CANFC32) != 0;
- zmodem_escape_all_control_characters = (zm->rxd_header[ZF0] & ZF0_ESCCTL) != 0;
- zmodem_escape_8th_bit = (zm->rxd_header[ZF0] & ZF0_ESC8) != 0;
-
- zm->use_variable_headers = (zm->rxd_header[ZF1] & ZF1_CANVHDR) != 0;
-
- if (opt_d) {
- fprintf(stderr,"receiver %s full duplex\n" ,zmodem_can_full_duplex ? "can" : "can't");
- fprintf(stderr,"receiver %s overlap io\n" ,zmodem_can_overlap_io ? "can" : "can't");
- fprintf(stderr,"receiver %s break\n" ,zmodem_can_break ? "can" : "can't");
- fprintf(stderr,"receiver %s fcs 32\n" ,zmodem_can_fcs_32 ? "can" : "can't");
- fprintf(stderr,"receiver %s escaped control chars\n",zmodem_escape_all_control_characters ? "requests" : "doesn't request");
- fprintf(stderr,"receiver %s escaped 8th bit\n" ,zmodem_escape_8th_bit ? "requests" : "doesn't request");
- fprintf(stderr,"receiver %s use variable headers\n" ,zm->use_variable_headers ? "can" : "can't");
- }
-
- /*
- * and send each file in turn
- */
-
- n_files_remaining = total_files;
-
- for(fnum=0;fnum<total_files;fnum++) {
- if(send_file(fname[fnum])) {
- if (opt_v) {
- fprintf(stderr,"zmtx: remote aborted.\n");
- }
- break;
- }
- n_files_remaining--;
- }
-
- /*
- * close the session
- */
-
- if (opt_v) {
- fprintf(stderr,"zmtx: closing the session\n");
- }
-
- {
- int type;
- unsigned char zfin_header[] = { ZFIN, 0, 0, 0, 0 };
-
- zmodem_tx_hex_header(zfin_header);
- do {
- type = zmodem_rx_header(10);
- } while (type != ZFIN && type != TIMEOUT);
-
- /*
- * these Os are formally required; but they don't do a thing
- * unfortunately many programs require them to exit
- * (both programs already sent a ZFIN so why bother ?)
- */
-
- if (type != TIMEOUT) {
- zmodem_tx_raw('O');
- zmodem_tx_raw('O');
- }
- }
-
- /*
- * c'est fini
- */
-
- if (opt_d) {
- fprintf(stderr,"zmtx: cleanup and exit\n");
- }
-
- return 0;
-}
-
-
-
-
-
-
-#endif
\ No newline at end of file
diff --git a/src/stp/zmodem.h b/src/stp/zmodem.h
deleted file mode 100644
index 4e2ef4463623b3b7e28f96566cec8491451c5ac8..0000000000000000000000000000000000000000
--- a/src/stp/zmodem.h
+++ /dev/null
@@ -1,248 +0,0 @@
-/*
- * zmodem.h
- * zmodem constants
- * (C) Mattheij Computer Service 1994
- */
-
-#ifndef _ZMODEM_H
-
-#define _ZMODEM_H
-
-/*
- * ascii constants
- */
-
-#ifndef SOH
-#define SOH 0x01
-#define STX 0x02
-#define EOT 0x04
-#define ENQ 0x05
-#define ACK 0x06
-#if 0
-#define LF 0x0a
-#define CR 0x0d
-#endif
-#define XON 0x11
-#define XOFF 0x13
-#define NAK 0x15
-#define CAN 0x18
-#endif
-
-/*
- * zmodem constants
- */
-
-#define ZMAXHLEN 0x10 /* maximum header information length */
-#define ZMAXSPLEN 0x400 /* maximum subpacket length */
-
-
-#define ZPAD 0x2a /* pad character; begins frames */
-#define ZDLE 0x18 /* ctrl-x zmodem escape */
-#define ZDLEE 0x58 /* escaped ZDLE */
-
-#define ZBIN 0x41 /* binary frame indicator (CRC16) */
-#define ZHEX 0x42 /* hex frame indicator */
-#define ZBIN32 0x43 /* binary frame indicator (CRC32) */
-#define ZBINR32 0x44 /* run length encoded binary frame (CRC32) */
-
-#define ZVBIN 0x61 /* binary frame indicator (CRC16) */
-#define ZVHEX 0x62 /* hex frame indicator */
-#define ZVBIN32 0x63 /* binary frame indicator (CRC32) */
-#define ZVBINR32 0x64 /* run length encoded binary frame (CRC32) */
-
-#define ZRESC 0x7e /* run length encoding flag / escape character */
-
-/*
- * zmodem frame types
- */
-
-#define ZRQINIT 0x00 /* request receive init (s->r) */
-#define ZRINIT 0x01 /* receive init (r->s) */
-#define ZSINIT 0x02 /* send init sequence (optional) (s->r) */
-#define ZACK 0x03 /* ack to ZRQINIT ZRINIT or ZSINIT (s<->r) */
-#define ZFILE 0x04 /* file name (s->r) */
-#define ZSKIP 0x05 /* skip this file (r->s) */
-#define ZNAK 0x06 /* last packet was corrupted (?) */
-#define ZABORT 0x07 /* abort batch transfers (?) */
-#define ZFIN 0x08 /* finish session (s<->r) */
-#define ZRPOS 0x09 /* resume data transmission here (r->s) */
-#define ZDATA 0x0a /* data packet(s) follow (s->r) */
-#define ZEOF 0x0b /* end of file reached (s->r) */
-#define ZFERR 0x0c /* fatal read or write error detected (?) */
-#define ZCRC 0x0d /* request for file CRC and response (?) */
-#define ZCHALLENGE 0x0e /* security challenge (r->s) */
-#define ZCOMPL 0x0f /* request is complete (?) */
-#define ZCAN 0x10 /* pseudo frame;
- other end cancelled session with 5* CAN */
-#define ZFREECNT 0x11 /* request free bytes on file system (s->r) */
-#define ZCOMMAND 0x12 /* issue command (s->r) */
-#define ZSTDERR 0x13 /* output data to stderr (??) */
-
-/*
- * ZDLE sequences
- */
-
-#define ZCRCE 0x68 /* CRC next, frame ends, header packet follows */
-#define ZCRCG 0x69 /* CRC next, frame continues nonstop */
-#define ZCRCQ 0x6a /* CRC next, frame continuous, ZACK expected */
-#define ZCRCW 0x6b /* CRC next, frame ends, ZACK expected */
-#define ZRUB0 0x6c /* translate to rubout 0x7f */
-#define ZRUB1 0x6d /* translate to rubout 0xff */
-
-/*
- * frame specific data.
- * entries are prefixed with their location in the header array.
- */
-
-/*
- * Byte positions within header array
- */
-
-#define FTYPE 0 /* frame type */
-
-#define ZF0 4 /* First flags byte */
-#define ZF1 3
-#define ZF2 2
-#define ZF3 1
-
-#define ZP0 1 /* Low order 8 bits of position */
-#define ZP1 2
-#define ZP2 3
-#define ZP3 4 /* High order 8 bits of file position */
-
-/*
- * ZRINIT frame
- * zmodem receiver capability flags
- */
-
-#define ZF0_CANFDX 0x01 /* Receiver can send and receive true full duplex */
-#define ZF0_CANOVIO 0x02 /* receiver can receive data during disk I/O */
-#define ZF0_CANBRK 0x04 /* receiver can send a break signal */
-#define ZF0_CANCRY 0x08 /* Receiver can decrypt DONT USE */
-#define ZF0_CANLZW 0x10 /* Receiver can uncompress DONT USE */
-#define ZF0_CANFC32 0x20 /* Receiver can use 32 bit Frame Check */
-#define ZF0_ESCCTL 0x40 /* Receiver expects ctl chars to be escaped */
-#define ZF0_ESC8 0x80 /* Receiver expects 8th bit to be escaped */
-
-#define ZF1_CANVHDR 0x01 /* Variable headers OK */
-
-/*
- * ZSINIT frame
- * zmodem sender capability
- */
-
-#define ZF0_TESCCTL 0x40 /* Transmitter expects ctl chars to be escaped */
-#define ZF0_TESC8 0x80 /* Transmitter expects 8th bit to be escaped */
-
-#define ZATTNLEN 0x20 /* Max length of attention string */
-#define ALTCOFF ZF1 /* Offset to alternate canit string, 0 if not used */
-
-/*
- * ZFILE frame
- */
-
-/*
- * Conversion options one of these in ZF0
- */
-
-#define ZF0_ZCBIN 1 /* Binary transfer - inhibit conversion */
-#define ZF0_ZCNL 2 /* Convert NL to local end of line convention */
-#define ZF0_ZCRESUM 3 /* Resume interrupted file transfer */
-
-/*
- * Management include options, one of these ored in ZF1
- */
-
-#define ZF1_ZMSKNOLOC 0x80 /* Skip file if not present at rx */
-#define ZF1_ZMMASK 0x1f /* Mask for the choices below */
-#define ZF1_ZMNEWL 1 /* Transfer if source newer or longer */
-#define ZF1_ZMCRC 2 /* Transfer if different file CRC or length */
-#define ZF1_ZMAPND 3 /* Append contents to existing file (if any) */
-#define ZF1_ZMCLOB 4 /* Replace existing file */
-#define ZF1_ZMNEW 5 /* Transfer if source newer */
-#define ZF1_ZMDIFF 6 /* Transfer if dates or lengths different */
-#define ZF1_ZMPROT 7 /* Protect destination file */
-#define ZF1_ZMCHNG 8 /* Change filename if destination exists */
-
-/*
- * Transport options, one of these in ZF2
- */
-
-#define ZF2_ZTNOR 0 /* no compression */
-#define ZF2_ZTLZW 1 /* Lempel-Ziv compression */
-#define ZF2_ZTRLE 3 /* Run Length encoding */
-
-/*
- * Extended options for ZF3, bit encoded
- */
-
-#define ZF3_ZCANVHDR 0x01 /* Variable headers OK */
- /* Receiver window size override */
-#define ZF3_ZRWOVR 0x04 /* byte position for receive window override/256 */
-#define ZF3_ZXSPARS 0x40 /* encoding for sparse file operations */
-
-/*
- * ZCOMMAND frame
- */
-
-#define ZF0_ZCACK1 0x01 /* Acknowledge, then do command */
-
-typedef struct {
-
- SOCKET sock; /* socket descriptor */
-
- unsigned char rxd_header[ZMAXHLEN]; /* last received header */
- int rxd_header_len; /* last received header size */
-
- /*
- * receiver capability flags
- * extracted from the ZRINIT frame as received
- */
-
- int can_full_duplex;
- int can_overlap_io;
- int can_break;
- int can_fcs_32;
- int want_fcs_16;
- int escape_all_control_characters; /* guess */
- int escape_8th_bit;
-
- int use_variable_headers; /* use variable length headers */
-
- /*
- * file management options.
- * only one should be on
- */
-
- int management_newer;
- int management_clobber;
- int management_protect;
-
- /* from zmtx.c */
-
- #define MAX_SUBPACKETSIZE 1024
-
- int n_files_remaining;
- int n_bytes_remaining;
- unsigned char tx_data_subpacket[MAX_SUBPACKETSIZE];
-
- long current_file_size;
- time_t transfer_start;
-
- int receive_32_bit_data;
- int raw_trace;
- int use_crc16;
- long ack_file_pos; /* file position used in acknowledgement of correctly */
- /* received data subpackets */
-
- int last_sent;
-
- int n_cans;
-
- long mode;
-
-} zmodem_t;
-
-#endif
-
-
diff --git a/src/tone/Makefile b/src/tone/Makefile
deleted file mode 100644
index c6111eb31ac41bbd87182aac2344bb6400bfa4b9..0000000000000000000000000000000000000000
--- a/src/tone/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-
-tone: tone.o
- gcc -lm tone.o -o tone
-
-tone.o: tone.c
- gcc -c -o tone.o tone.c
-
-
-all:
- tone
-
-clean:
- rm -f *.o tone
-
-
-
diff --git a/src/tone/cvt$$a.c b/src/tone/cvt$$a.c
deleted file mode 100644
index 07589cc3c2ab966b448797096d1dbfa0a2a02b3d..0000000000000000000000000000000000000000
--- a/src/tone/cvt$$a.c
+++ /dev/null
@@ -1,66 +0,0 @@
-/* CVT$$A*/
-
-/* Converts OS/2 tune editor files to tone format */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-void main()
-{
- char str[128]
- ,*note="abcdefgabcdefgabcdefgabcdefg"
- ,*flat="GABCDEFGABCDEFGABCDEFGABCDEFG";
- unsigned int bt=200,o,n,t,i;
-
-while(1) {
- fprintf(stderr,"top\n");
- if(!fgets(str,81,stdin))
- break;
- if(str[1]==':') {
- printf("%s",str+1);
- continue; }
- if(str[2]!=' ') {
- str[4]=0;
- bt=atoi(str);
- continue; }
- t=atoi(str);
- if(!t)
- continue;
- fprintf(stderr,"rest\n");
- if(t>=10) {
- if(t==10)
- t=bt*4;
- else if(t==11)
- t=bt*2;
- else if(t==12)
- t=bt;
- else if(t==13)
- t=bt/2;
- else if(t==14)
- t=bt/4;
- else if(t==14)
- t=bt/8;
- printf("r %u\n",t);
- continue; }
- fprintf(stderr,"time\n");
- t=(bt*4)/t;
- i=atoi(str+3);
- o=2;
- fprintf(stderr,"note\n");
- if(i<=20) {
- n=note[20-i];
- if(20-i)
- o+=((20-i)/7); }
- else if(i<=41) { /* flats */
- n=flat[41-i];
- if(41-i)
- o+=((41-i)/7); }
- else {
- n=toupper(note[62-i]);
- if(62-i)
- o+=((62-i)/7); }
- if(toupper(n)=='A' || toupper(n)=='B' || n=='G')
- o--;
- printf("%c%u %u\n",n,o,t); }
-}
-
diff --git a/src/tone/make.bat b/src/tone/make.bat
deleted file mode 100755
index 7d0c2958d7488abc028409cf31789545d435ff20..0000000000000000000000000000000000000000
--- a/src/tone/make.bat
+++ /dev/null
@@ -1,2 +0,0 @@
-@echo off
-bcc -P-c -w-prot tone ..\mswait\dos\mswaits.obj
diff --git a/src/tone/tone.c b/src/tone/tone.c
deleted file mode 100644
index b501d7898f6dac21d8706e38738ebfabb6848abf..0000000000000000000000000000000000000000
--- a/src/tone/tone.c
+++ /dev/null
@@ -1,250 +0,0 @@
-/* tone.c */
-
-/* Tone Generation Utility (using PC speaker, not sound card) */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2003 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#include <math.h>
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <ctype.h>
-
-#include "genwrap.h" /* BEEP */
-#include "dirwrap.h" /* getfname */
-#include "conwrap.h" /* kbhit */
-
-#define NOT_ABORTABLE (1<<0)
-#define SHOW_DOT (1<<1)
-#define SHOW_FREQ (1<<2)
-#define NO_VISUAL (1<<3)
-
-int mode=0; /* Optional modes */
-int t=1; /* Timing */
-int s=0; /* Stacato */
-int octave=4; /* Default octave */
-
-double pitch=523.50/32.0; /* low 'C' */
-
-void play(char *freq, char *dur)
-{
- char* notes="c d ef g a b";
- char* sharp="BC D EF G A ";
- int i,n,o,d;
- int len;
- double f;
-
- if(dur==NULL)
- dur="0";
-
- if(freq==NULL)
- freq="0";
-
- d=atoi(dur);
- if(isdigit(*freq))
- f=atoi(freq);
- else
- switch(toupper(*freq)) {
- case 'O': /* default octave */
- if(isdigit(*dur))
- octave=d;
- else
- octave+=d;
- return;
- case 'P': /* pitch variation */
- if(isdigit(*dur))
- pitch=atof(dur)/32.0;
- else
- pitch+=atof(dur);
- return;
- case 'Q': /* quit */
- exit(0);
- case 'R': /* rest */
- f=0;
- break;
- case 'S': /* stacato */
- if(isdigit(*dur))
- s=d;
- else
- s+=d;
- return;
- case 'T': /* time adjust */
- t=d;
- return;
- case 'V':
- if(mode&NO_VISUAL)
- return;
- n=strlen(dur);
- while(n && dur[n]<=' ')
- n--;
- dur[n+1]=0;
- if(dur[n]=='\\') {
- dur[n]=0;
- printf("%s",dur);
- } else
- printf("%s\r\n",dur);
- return;
- case 'X': /* exit */
- exit(1);
- default:
- for(n=0;notes[n];n++)
- if(*freq==notes[n] || *freq==sharp[n])
- break;
- if(isdigit(freq[1]))
- o=(freq[1]&0xf);
- else
- o=octave;
- f=pitch*pow(2,o+(double)n/12);
- break;
- }
-
- if(f && mode&SHOW_FREQ) {
- for(i=0;freq[i]>' ';i++)
- ;
- freq[i]=0;
- printf("%-4.4s",freq);
- }
- if(mode&SHOW_DOT)
- printf(".");
- if(t>10)
- len=(d*t)-(d*s);
- else
- len=(d*t);
- if(f)
- BEEP(f,len);
- else
- SLEEP(len);
- if(s) {
- if(t>10)
- SLEEP(d*s);
- else
- SLEEP(s);
- }
-}
-
-void usage(void)
-{
- printf("usage: tone [-opts] [(note[oct]|freq) dur | (cmd val) [...]] "
- "[+filename]\n\n");
- printf("where: note = a,b,c,d,e,f, or g (naturals) or A,B,C,D,E,F, or "
- "G (sharps)\n");
- printf(" oct = octave 1 through 9 (default=%d)\n",octave);
- printf(" freq = frequency (in Hz) or 0 for silence\n");
- printf(" dur = duration (in timer counts)\n");
- printf(" cmd = o set default octave (+/- to adjust) "
- "(default=%d)\n",octave);
- printf(" p set middle c pitch (+/- to adjust) "
- "(default=%.2f)\n",pitch*32.0);
- printf(" q quit program immediately\n");
- printf(" r rest (silence) for val timer counts\n");
- printf(" s set stacato duration (in ms) (+/- to adjust) "
- "(default=%d)\n",s);
- printf(" t set timer count value (in ms) "
- "(default=%d)\n",t);
- printf(" v visual text diplay of val (no val=cr/lf)\n");
- printf(" x quit program immediately (leave tone on)\n");
- printf(" opts = d display dot for each note\n");
- printf(" f display frequency or note value\n");
- printf(" n not abortable with key-stroke\n");
- printf(" v disable visual text commands\n");
- exit(0);
-}
-
-int main(int argc, char **argv)
-{
- char* p;
- char str[128];
- char revision[16];
- int i,j;
- FILE* stream;
-
- sscanf("$Revision$", "%*s %s", revision);
-
- printf("\nTone Generation Utility %s Copyright 2003 Rob Swindell\n\n", revision);
-
- if(argc<2)
- usage();
-
- for(i=1;i<argc;i++) {
- if(argv[i][0]=='-') {
- for(j=1;argv[i][j];j++)
- switch(toupper(argv[i][j])) {
- case 'D':
- mode^=SHOW_DOT;
- break;
- case 'F':
- mode^=SHOW_FREQ;
- break;
- case 'N':
- mode^=NOT_ABORTABLE;
- break;
- case 'V':
- mode^=NO_VISUAL;
- break;
- default:
- usage();
- break;
- }
- continue;
- }
- if(argv[i][0]=='+') {
- if((stream=fopen(argv[i]+1,"rb"))==NULL) {
- /* Check directory of executable if file/path not found */
- strcpy(str,argv[0]);
- *getfname(str)=0;
- strcat(str,argv[i]+1);
- if((stream=fopen(str,"rb"))==NULL) {
- printf("\7Error opening %s\n",argv[i]+1);
- continue;
- }
- }
- while(mode&NOT_ABORTABLE || !kbhit()) {
- if(!fgets(str,sizeof(str),stream))
- break;
- if(!isalnum(*str))
- continue;
- p=str;
- FIND_WHITESPACE(p);
- SKIP_WHITESPACE(p);
- play(str,p);
- }
- fclose(stream);
- continue;
- }
- play(argv[i],argv[i++]);
- }
-
- return(0);
-}
-
diff --git a/src/tone/tone.dsp b/src/tone/tone.dsp
deleted file mode 100644
index 60a5efeac9197790b60ed248d6bac5d1b4a7f1cd..0000000000000000000000000000000000000000
--- a/src/tone/tone.dsp
+++ /dev/null
@@ -1,96 +0,0 @@
-# Microsoft Developer Studio Project File - Name="tone" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=tone - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "tone.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "tone.mak" CFG="tone - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "tone - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "tone - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "tone - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "Release"
-# PROP Intermediate_Dir "Release"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /W3 /GX /O2 /I "..\xpdev" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "tone - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "Debug"
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "..\xpdev" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "tone - Win32 Release"
-# Name "tone - Win32 Debug"
-# Begin Source File
-
-SOURCE=..\xpdev\dirwrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\xpdev\genwrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=.\tone.c
-# End Source File
-# End Target
-# End Project
diff --git a/text/answer.asc b/text/answer.asc
deleted file mode 100644
index d758727896adb3d01d6f17da8478ac40f9649756..0000000000000000000000000000000000000000
--- a/text/answer.asc
+++ /dev/null
@@ -1,12 +0,0 @@
-nhCLIENT >>>>,<<<<ncCONN: h@CONN@
-nh >>>>,<<<<ncADDR: h@HOST@ [@IP@]
-nhSERVER >>>>,<<<<ncNAME: hy@BBS@
-nh >>>>,<<<<ncADDR: h@HOSTNAME@
-nh >>>>,<<<<ncNODE: h@NODE@ nc(of h@TNODE@nc)
-nh >>>>,<<<<ncDATE: h@DATE@
-nh >>>>,<<<<ncTIME: h@TIME@
-nh >>>>,<<<<ncADMN: h@SYSOP@
-
-bIf you are a new user to the system, type c"New"b now.
-Otherwise, enter your user name or number now.
-yh
\ No newline at end of file
diff --git a/text/answer.wip b/text/answer.wip
deleted file mode 100644
index 1440290a3ca8b53fdfc448996d4dc87dc96090fc..0000000000000000000000000000000000000000
--- a/text/answer.wip
+++ /dev/null
@@ -1,18 +0,0 @@
- $00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=@BBS@
-!|L=2505
-!|T=105
-!|W=3750
-!|H=5100
-!|B=16777215
-!|
-!|[Form]
-!|001=0B`c`70`265`100`30`1`Login to BBS`0`12632256`MS Sans Serif`8.25`Continue`
-!|002=0T`text`1`20`240`40`1``0`16777215`MS Sans Serif`8.25`Synchronet BBS Software Version @VER@|mDeveloped 1990-1997 Rob Swindell`1`0
-!|003=0P`wiplogo`45`65`150`180`3``-2147483643`WIPLOGO.BMP
-!|
-$0E
diff --git a/text/bullseye.asc b/text/bullseye.asc
deleted file mode 100644
index eab020d7638957001a8e939d9190527ce28aa378..0000000000000000000000000000000000000000
--- a/text/bullseye.asc
+++ /dev/null
@@ -1,14 +0,0 @@
-l0nc4��������������k�0
-4c� hyBulletins nk4�0
-4c�k��������������b0������������������������������������������������
-���
-� hy1 ngStatistics for h@BBS-L....................................@nb�
-� hy2 ngNew user instructions b�
-� hy3 ngAbout this version of Synchronet BBS Software b�
-� hy4 ngNew features added in Synchronet v3.0 b�
-� hy5 ngNew features added in Synchronet v3.1 b�
-� hy6 ngFrequently asked questions re: configuring Synchronet v3 b�
-� hy7 ngBuilding and running Synchronet for Unix b�
-� hy8 ngWhat is DOVE-Net? b�
-� hy9 ngSynchronet Match Maker database statistics b�
-���������������������������������������������������������������n
diff --git a/text/bullseye.cfg b/text/bullseye.cfg
deleted file mode 100644
index 66924933229a7851e3740c3538cde4d567fea36b..0000000000000000000000000000000000000000
--- a/text/bullseye.cfg
+++ /dev/null
@@ -1,10 +0,0 @@
-0
-../text/system.msg
-../text/newuser.msg
-../text/sbbs.msg
-../docs/v300_new.txt
-../docs/v310_new.txt
-../docs/v3cfgfaq.txt
-../docs/sbbsunix.txt
-../docs/dove-net.txt
-../xtrn/smm/smmstats.txt
\ No newline at end of file
diff --git a/text/computer.sif b/text/computer.sif
deleted file mode 100644
index 13bac67083f31ffc984e273b419de566ff3c4a00..0000000000000000000000000000000000000000
--- a/text/computer.sif
+++ /dev/null
@@ -1,109 +0,0 @@
-This is the Synchronet Computer Information Questionaire.
-
-
-n
-hMicroprocessorn
-
-A) 8088 (XT)
-B) 80286 (AT)
-C) 80386SX
-D) 80386DX
-E) 80486
-
-yhWhich:n c"ABCDE"
-
-hClock Speedn
-
-A) 4.77mhz
-B) 6mhz
-C) 8mhz
-D) 10mhz
-E) 12mhz
-F) 16mhz
-G) 20mhz
-H) 25mhz
-I) 33mhz
-J) 40mhz
-K) 50mhz
-
-yhWhich: nc"ABCDEFGHIJK"
-
-hArchitecturen
-
-A) 8bit (XT)
-B) ISA (AT)
-C) MCA (PS/2)
-D) EISA
-
-yhWhich: nc"ABCD"
-
-hDisplayn
-
-A) MDA (Monochrome - no graphics)
-B) Hercules (Monochrome - graphics)
-C) CGA
-D) EGA
-E) MCGA
-F) VGA
-G) SVGA (640x480x256)
-H) MVGA (Monochrome VGA)
-I) 8514/A (1024x768x256)
-J) XGA
-K) TIGA (34010)
-
-yhWhich: nc"ABCDEFGHIJK"
-
-hSystem RAMn
-
-A) <1mb
-B) 1mb
-C) 2mb
-D) 3mb
-E) 4mb
-F) 5mb
-G) 6mb
-H) 8mb
-I) 10mb
-J) 12mb
-K) 16mb
-L) 18mb
-M) 24mb
-N) 32mb
-O) 64mb
-
-yhWhich: nc"ABCDEFGHIJKLMNO"
-
-hTotal Hard Disk Capacityn
-
-A) None
-B) 10mb
-C) 20mb
-D) 30mb
-E) 40mb
-F) 60mb
-G) 80mb
-H) 100mb
-I) 120mb
-J) 150mb
-K) 200mb
-L) 250mb
-M) 300mb
-N) 400mb
-O) 500mb
-P) 600mb
-Q) 700mb
-R) 800mb
-S) 900mb
-T) 1gb or more
-
-yhWhich: nc"ABCDEFGHIJKLMNOPQRST"
-
-hHard Disk Interfacen
-
-A) ST506 (Standard)
-B) SCSI
-C) SCSI2
-D) ESDI
-E) IDE
-
-yhWhich: nc"ABCDE"
diff --git a/text/email.can b/text/email.can
deleted file mode 100644
index a988f177a6358565d409b8bfaaf2b47b86918297..0000000000000000000000000000000000000000
--- a/text/email.can
+++ /dev/null
@@ -1,3 +0,0 @@
-; Enter disallowed (source or destination) e-mail addresses in this file
-; Wildcard characters (*, ^, ~) are allowed and ! negates the match
-; Rejection message file: text/bademail.msg
\ No newline at end of file
diff --git a/text/example.sif b/text/example.sif
deleted file mode 100644
index e8af4378cfe40081b8b5f5c69e7f5c7477bd26cd..0000000000000000000000000000000000000000
--- a/text/example.sif
+++ /dev/null
@@ -1,68 +0,0 @@
-This is an example of the Synchronet Interface File (SIF) Format:
-
-To execute this SIF, yype ;SIF at the main prompt and enter EXAMPLE as the
-filename.
-
-Only text between STX (Start of text / Ctrl-B) and ETX (End of text / Ctrl-C)
-will be displayed to the user. After each ETX is the input mode specifier
-('c'haracter or 's'tring), then an optional mode modifier ('u'ppercase,
-'n'umeric, or 'f'orced captialization), then an optional 'l' for an input line
-to be displayed, then an optional 'r' if the data file should contain a CRLF
-after this field, then the maximum length of the string (if 's'tring mode and a
-template isn't specified), then an optional . followed by the minimum length
-of the string, and last an optional string in double-quotes that either
-specifies what keys will be accepted ('c'haracter mode) or an input template
-('s'tring mode).
-
-Inside the text area, we should use Synchronet Ctrl-A sequences for changing
-the text attributes and clearing the screen. Embeded ANSI sequences can be used
-but are not suggested as they will be displayed to ALL users (ANSI or not), and
-Ctrl-A sequences are filtered for non-ANSI users, and modified for Monochrome
-ANSI users. See SBBS\TEXT\MENU\ATTR.ALL for more information on Ctrl-A codes.
-
-Text is going to start here:
-n
-Hello, this is an example hSIFn file.
-
-Please answer the following input prompts.
-
-mhSelect Onen
-
-A) Selection A
-B) Selection B
-C) Selection C
-
-yhWhich: nc"ABC" Text in this area is just for comments
-
-yhEnter any character: rc
-
-yhEnter any character (converted to uppercase automatically): ncu
-
-yhEnter any number (allows CR): cnl
-
-yhEnter any number (disallows CR): bc"0123456789"
-
-bhEnter a string: ws30
-
-yhEnter a string of at least 4 characters: sl8.4
-
-yhEnter a string (converted to uppercase automatically): nsu10
-
-yhEnter a numeric value of at least one digit: snl5.1
-
-yhEnter your name (forced capitalization): nsf30
-
-yhEnter your phone number (must be complete): ws.12"NNN-NNN-NNNN"
- ^ notice that the max
- length wasn't needed because the template was specified
-
-yhEnter your birthdate (can be incomplete): sl"NN/NN/NN"
-
-bhAre you sure (Y/N) ? wc"YN"
-
-chAll done!
-
-everything after this point doesn't matter..... (cause we're not between STX
-and ETX)
-
-See Customization chapter in the sysop manual for more information.
diff --git a/text/feedback.msg b/text/feedback.msg
deleted file mode 100644
index 83f2e75b9c10fe1745ec4e07c62e885764627f09..0000000000000000000000000000000000000000
--- a/text/feedback.msg
+++ /dev/null
@@ -1,10 +0,0 @@
-hy
-As a new user, your access to some of the system's facilities will be
-restricted until the letter you are about to write has been reviewed by a
-sysop and your account has been "validated."
-
-ngPlease include in your letter:
-
- ho ngWhere you found the address or phone number of this BBS
- ho ngWhat prompted you to call/login
- ho ngWhat your expectations are
diff --git a/text/file.can b/text/file.can
deleted file mode 100644
index a850f0edc97575a2979c6d42f0d2acc629855114..0000000000000000000000000000000000000000
--- a/text/file.can
+++ /dev/null
@@ -1,3 +0,0 @@
-; Enter filtered (disallowed) file names in this file
-; Wildcard characters (*, ^, ~) are allowed and ! negates the match
-; Rejection message file: text/badfile.msg
\ No newline at end of file
diff --git a/text/host.can b/text/host.can
deleted file mode 100644
index 433f8d9c4e20027f335ca16574ab7843c5a2ee70..0000000000000000000000000000000000000000
--- a/text/host.can
+++ /dev/null
@@ -1,3 +0,0 @@
-; Enter filtered (disallowed) host names in this file
-; Wildcard characters (*, ^, ~) are allowed and ! negates the match
-; Rejection message file: text/badhost.msg
\ No newline at end of file
diff --git a/text/ip-silent.can b/text/ip-silent.can
deleted file mode 100644
index a67120a0d1cefe2083a30bf04dc63e31627b04d9..0000000000000000000000000000000000000000
--- a/text/ip-silent.can
+++ /dev/null
@@ -1,2 +0,0 @@
-; Enter silently filtered (disallowed) IP addresses in this file
-; Wildcard characters (*, ^, ~) are allowed and ! negates the match
\ No newline at end of file
diff --git a/text/ip.can b/text/ip.can
deleted file mode 100644
index b45f44c0611b54f336a7449a27e2697f76cccc88..0000000000000000000000000000000000000000
--- a/text/ip.can
+++ /dev/null
@@ -1,3 +0,0 @@
-; Enter filtered (disallowed) IP addresses in this file
-; Wildcard characters (*, ^, ~) are allowed and ! negates the match
-; Rejection message file: text/badip.msg
\ No newline at end of file
diff --git a/text/ircmotd.txt b/text/ircmotd.txt
deleted file mode 100644
index 13ca81a3ce888325879afa5380461651033bad99..0000000000000000000000000000000000000000
--- a/text/ircmotd.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-
-Welcome to the Synchronet IRC daemon!
-This is an example MOTD (Message of the Day) that is displayed
-when users first connect, and should be changed to something
-more original. :)
-
diff --git a/text/menu/allmail.asc b/text/menu/allmail.asc
deleted file mode 100644
index 6bd691f938d5d88471f29df8d7c959088e1732c4..0000000000000000000000000000000000000000
--- a/text/menu/allmail.asc
+++ /dev/null
@@ -1,9 +0,0 @@
- yh��� wReading All Mail y���
-�����������������������������������������������������������������������������ͻ
-�w<CR> bNext Message wR bReread Last Message y�
-� w- bPrevious Message wD bDelete Last Message y�
-� wL bList All Messages wS bSave Last Message to File y�
-� wT bList Ten More Messages wE bEdit Last Message y�
-� wU bEdit Author of Last Message wC bChange Last Message's Flag y�
-� wQ bQuit to Main Section w# bGo to Message # y�
-�����������������������������������������������������������������������������ͼ
diff --git a/text/menu/attr.asc b/text/menu/attr.asc
deleted file mode 100644
index ca29b7d6f749fe0a4b57eb1095c3cc3adcc459e4..0000000000000000000000000000000000000000
--- a/text/menu/attr.asc
+++ /dev/null
@@ -1,18 +0,0 @@
- Synchronet Text Attribute Menu
- (All attribute codes must be preceeded by a Ctrl-A)
-
- Foreground Background
-Black K k(Low) h(High)n 0 hWhite on Blackn
-Red R r(Low) h(High)n 1 k1Black on Redn
-Green G g(Low) h(High)n 2 k2Black on Greenn
-Yellow Y y(Low) h(High)n 3 k3Black on Yellown
-Blue B b(Low) h(High)n 4 wh4White on Bluen
-Magenta M m(Low) h(High)n 5 wh5White on Magentan
-Cyan C c(Low) h(High)n 6 k6Black on Cyann
-White W w(Low) h(High)n 7 k7Black on Whiten
-
-High H hHigh Intensityn
-Blink I iBlinkingn
-Normal N No Special Attributes
-Pause P Insert a Pause Prompt into message
-CLS L Insert a Form Feed into message
diff --git a/text/menu/batchxfr.asc b/text/menu/batchxfr.asc
deleted file mode 100644
index 59ad69c75930c1d0df9febbb5ec523fe959c77b0..0000000000000000000000000000000000000000
--- a/text/menu/batchxfr.asc
+++ /dev/null
@@ -1,13 +0,0 @@
-0lnc4���������������������������k�0
-4c� hyBatch/Bidirectional Menu nk4�0
-4c�k���������������������������0
-4b0�����4 0�4 hwUpload/Downloadnb�hw4Filesnb�����������������4 hwBatch Queue Managementnb���������
-�����
-� hyU ngUpload files in upload queue�b� hyL ngList files in batch queues�b�
-� hyD ngDownload files in download queue b� hyR ngRemove files from batch queues b�
-��� hyC ngClear batch queues�b�
-�������4 hwBidirectional Transfersnb������������
-�����������������������������������������
-� hyB ngBidirectional file transfer�b� hyQ ngQuit to File Transfer menu�b�
-�����
-4 hyAnytime: cCtrl-U nc4Who's online hCtrl-P nc4Send private msg hCtrl-C nc4Abort cmd/text n
diff --git a/text/menu/batchxfr.rip b/text/menu/batchxfr.rip
deleted file mode 100644
index 466931069f9e0a383c0bb98f07c5babe0480fa5e..0000000000000000000000000000000000000000
--- a/text/menu/batchxfr.rip
+++ /dev/null
@@ -1,13 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Batch Transfers<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2S0000<><>
-!|1B0000020QPC010E000F080200000000000000|Y00000100|1U0M161K1G0000<>U<>U
-!|1U0M1K1K1U0000<>D<>D|1U0M1Y1K280000<>B<>B
-!|1B0000020QPE010E000F080400000000000000|1U0M2C1K2M0000<>Q<>Q
-!|1B0000020QPC010E000F080200000000000000|1U9616A41G0000<>L<>L
-!|1U961KA41U0000<>R<>R|1U961YA4280000<>C<>C|c00|@1Y16Upload|@1Y1KDownload
-!|@1Y1YBidirectional Transfer|@1Y2CQuit to the Transfer Section
-!|@AK1YClear Batch Queue|@AK16List Files in Batch Queue
-!|@AK1KRemove Files from Batch Queue|w000G271610|10000$ETW$|#|#|#
-
diff --git a/text/menu/batflag.asc b/text/menu/batflag.asc
deleted file mode 100644
index 6300697723bb10cffb8ba9da2a5e9c9b8fca41e4..0000000000000000000000000000000000000000
--- a/text/menu/batflag.asc
+++ /dev/null
@@ -1,23 +0,0 @@
-lnhcFile Listing:
-
-�nc���������If nhc+ ncthen extended description exists, but not displayed
-����������File flag for fast tagging
-�Filename �� ���File size
-� Extension��� � �If nhc- ncthen file is offline
-����� � ���Description
-nhbSBBS200G.ZIP+ngA nm851k-ngSynchronet v2.00g Multinode BBS Software
-
-nhcBatch Flagging Commands:
-
-nhb[nhcBnhb]atch Download�ncAdd file(s) to batch download queue
-nhb[nhcVnhb]iew Files�ncView archive listing or contents of file(s)
-nhb[nhcEnhb]xtended Info�ncDisplay extended information on file(s)
-nhb[nhcSnhb]kip Directory�ncSkip this directory (during scans)
-nhb[nhcPnhb]revious�ncMove backwards through this directory
-nhb[nhcQnhb]uit�ncStop listing files
-(
-nhcSysop Commands:
-
-nhb[nhcDnhb]elete Files�ncDelete file(s) from disk and/or database
-nhb[nhcMnhb]ove Files�ncMove file(s) to another directoryn
-)
diff --git a/text/menu/chat.asc b/text/menu/chat.asc
deleted file mode 100644
index 17dc8ac8650f228f10f3f82713be27517b6b9280..0000000000000000000000000000000000000000
--- a/text/menu/chat.asc
+++ /dev/null
@@ -1,14 +0,0 @@
-nlc4��������������������nk4�0
-nc4� nhy4Chat Command Menu nk4�0
-nc4�nk4��������������������0
-nb��������������������nb4 nh4Join a Chat nb�����������������������nb4 nb����nb4 nh4Togglesnb����������
-�����
-� nhyJ ngJoin/initiate multinode chat�nb� nhyD ngAllow paging off/on�nb�
-� nhyP ngJoin/initiate private node to node chat�nb� nhyA ngActivity alerts off/on nb�
-� nhyC ngChat with the sysop�nb� nhyS ngSplit screen pvt chat nb�
-� nhyT ngTalk with the system Guru (Artificial Person) nb�����������������������������
-� nhyF ngFinger (Query) a remote user or system nb� �
-� nhyR ngInternet Relay Chat (irc.thebbs.org) nb� �
-� nhyI ngInter-BBS Instant Message module nb� nhyQ ngQuit from Chat section nb�
-�����
-nb4 nhy4Anytime: nhc4Ctrl-U nc4Who's online nhc4Ctrl-P nc4Send private msg nhc4Ctrl-C nc4Abort cmd/text n
diff --git a/text/menu/chat.rip b/text/menu/chat.rip
deleted file mode 100644
index ee1325867524e001406b6c9f25f6d018995755ac..0000000000000000000000000000000000000000
--- a/text/menu/chat.rip
+++ /dev/null
@@ -1,14 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Chat Section<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2S0000<><>
-!|1B0000020QPC010E000F080500000000000000|Y00000100|1U0M161K1G0000<>D<>D
-!|1U0M1K1K1U0000<>A<>A|1U0M1Y1K280000<>J<>J
-!|1B0000020QPE010E000F080400000000000000|1U0M2C1K2M0000<>Q<>Q
-!|1B0000020QPC010E000F080500000000000000|1U9616A41G0000<>T<>T
-!|1U961KA41U0000<>P<>P|1U961YA4280000<>C<>C|w000E271610|c00
-!|@1Y16Disable/Enable Paging|@1Y1KActivity Alert Disable/Enable
-!|@1Y1YJoin/Initiate Multinode Chat|@1Y2CQuit from Chat Section
-!|@AK16Talk with the Guru|@AK1KPrivate Node to Node Chat|@AK1YChat with Sysop
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/chat.wip b/text/menu/chat.wip
deleted file mode 100644
index 5e5d48173bb6c8b7ca381716b07787e9e02fccab..0000000000000000000000000000000000000000
--- a/text/menu/chat.wip
+++ /dev/null
@@ -1,23 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=Chat
-!|L=1665
-!|T=555
-!|W=4050
-!|H=4500
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`p`20`20`100`60`1`Private User-to-User Chat`0`12632256`MS Sans Serif`8.25`Private`ORDER.ICO
-!|002=0B`j`140`20`100`60`2``0`12632256`MS Sans Serif`8.25`Multinode`EAR.ICO
-!|003=0B`c`20`100`100`60`3``0`12632256`MS Sans Serif`8.25`Sysop`CONTACT.ICO
-!|004=0B`t`140`100`100`60`4``0`12632256`MS Sans Serif`8.25`Guru`SOUND.ICO
-!|005=0B`d`20`180`100`30`5``0`12632256`MS Sans Serif`8.25`Pager`
-!|006=0B`a`20`225`100`30`6``0`12632256`MS Sans Serif`8.25`Activity`
-!|007=0B`s`140`180`100`30`7``0`12632256`MS Sans Serif`8.25`Split-screen`
-!|008=0B`q`140`225`100`30`8``0`12632256`MS Sans Serif`8.25`Quit`
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/e-mail.asc b/text/menu/e-mail.asc
deleted file mode 100644
index 6e61c7ffb688a2d528aa6ce5f7943a35345eade9..0000000000000000000000000000000000000000
--- a/text/menu/e-mail.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-0lnc4�����������������������k�0
-4c� hyElectronic Mail Menu nk4�0
-4c�k�����������������������0
-b��������4 hwSend Mail nb���������������4 hwRead Mail nb��������
-�����
-� hyS ngSend mail�b� hyR ngRead mail sent to you b�
-��hy0N ngSend NetMail�b� hyK ngRead mail you have sent b�
-������������������������������������������������������������
-� hyF ngSend feedback to the sysop b� hyQ ngQuit back to Main menu b�
-� hyU ngUpload file to a mailbox b���
-������������������������������������������������������������n
diff --git a/text/menu/e-mail.rip b/text/menu/e-mail.rip
deleted file mode 100644
index f98a4b507a5216829d8574c9f8676e8d7633ad43..0000000000000000000000000000000000000000
--- a/text/menu/e-mail.rip
+++ /dev/null
@@ -1,12 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Electronic Mail Menu<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2E0000<><>
-!|1B0000020QPE010E000F080200000000000000|Y00000100|1U0M161K1G0000<>S<>S
-!|1U0M1K1K1U0000<>N<>N|1U9616A41G0000<>R<>R|1U961KA41U0000<>K<>K
-!|1U0M1Y1K280000<>F<>F|1B0000020QPE010E000F080400000000000000
-!|1U961YA4280000<>Q<>Q|c00|@1Y16Send Mail|@1Y1KSend NetMail
-!|@1Y1YSend Feedback to the Sysop|@AK16Read Your Mail
-!|@AK1KRead Mail You Have Sent|@AK1YQuit to the Main Menu|w000C271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/e-mail.wip b/text/menu/e-mail.wip
deleted file mode 100644
index 451e6cacfa5e612fd491ec9ebec1326c0ae4a0ba..0000000000000000000000000000000000000000
--- a/text/menu/e-mail.wip
+++ /dev/null
@@ -1,21 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=E-mail
-!|L=1425
-!|T=195
-!|W=4050
-!|H=4350
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`s`20`20`100`60`1``0`12632256`MS Sans Serif`8.25`Send E-mail`EDIT.ICO
-!|002=0B`r`140`20`100`60`2``0`12632256`MS Sans Serif`8.25`Read E-mail`DETAIL.ICO
-!|003=0B`k`140`100`100`60`3``0`12632256`MS Sans Serif`8.25`Read Sent E-mail`SEARCH.ICO
-!|004=0B`f`20`100`100`60`4``0`12632256`MS Sans Serif`8.25`Feedback`CONTACT.ICO
-!|005=0B`n`20`180`100`60`5``0`12632256`MS Sans Serif`8.25`Send NetMail`EDIT.ICO
-!|006=0B`q`140`180`100`60`6``0`12632256`MS Sans Serif`8.25`Quit`EXIT.ICO
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/editor.asc b/text/menu/editor.asc
deleted file mode 100644
index 19604f739a3de75cfed375aedae0b445ef31fae9..0000000000000000000000000000000000000000
--- a/text/menu/editor.asc
+++ /dev/null
@@ -1,19 +0,0 @@
-hy Synchronet Message Editor Commands
- (* ANSI users only)
-w
-/? This Menu Ctrl-C Cancel Line
-/S Save Message Ctrl-L Center Line
-/L List Message Ctrl-R Redraw Line
-/Lx List Message from Line x Ctrl-X Delete Line
-/E Edit Last Line Ctrl-Y * Delete to End of Line
-/Ex Edit Line x Ctrl-W Delete Word Left
-/D Delete Last Line Ctrl-D * Delete Word Right
-/Dx Delete Line x Ctrl-B * Move to Beginning of Line
-/I Insert Line Before Last Ctrl-E * Move to End of Line
-/Ix Insert Line Before Line x Ctrl-N * Move to Next Word
-/T Edit Message Title Ctrl-\ * Move to Previous Word
- Ctrl-F * Move Cursor Position Forward
-/ABT Abort Message Ctrl-[ * Move Cursor Position Backward
-/CLR Clear Message (Start Over) Ctrl-V * Toggle Insert/Overwrite Mode
-/ATTR Menu for ^Ax Sequences Ctrl-Ax * Type /ATTR for more info
-n
\ No newline at end of file
diff --git a/text/menu/exempt.asc b/text/menu/exempt.asc
deleted file mode 100644
index 17790cf67754e23307279c3e16515f7dcb4ff1bb..0000000000000000000000000000000000000000
--- a/text/menu/exempt.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-A=Anonymous H=Inactivity O=QWK Packet Size V=AutoLogon Via IP
-B= I=Interrupt Nodes P=Permanent W=
-C=Chat Page J=Chat Cost Q=Quiet/Anon Node X=Xtrn Program Cost
-D=Download Cost K= R=Remove Files Y=
-E=Expire by Time L=Logons S=NetMail Cost Z=
-F=CR/FR/RR NetMail M=Modem Rate T=Time Online
-G=Multiple Nodes N=Node Locking U=
diff --git a/text/menu/flags1.asc b/text/menu/flags1.asc
deleted file mode 100644
index 582f3b131c593b2a08e327b6555ce4dbafd35312..0000000000000000000000000000000000000000
--- a/text/menu/flags1.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-A= H= O= V=
-B= I= P= W=
-C= J= Q= X=
-D= K= R= Y=
-E= L= S= Z=
-F= M= T=
-G= N= U=
diff --git a/text/menu/flags2.asc b/text/menu/flags2.asc
deleted file mode 100644
index 582f3b131c593b2a08e327b6555ce4dbafd35312..0000000000000000000000000000000000000000
--- a/text/menu/flags2.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-A= H= O= V=
-B= I= P= W=
-C= J= Q= X=
-D= K= R= Y=
-E= L= S= Z=
-F= M= T=
-G= N= U=
diff --git a/text/menu/flags3.asc b/text/menu/flags3.asc
deleted file mode 100644
index 582f3b131c593b2a08e327b6555ce4dbafd35312..0000000000000000000000000000000000000000
--- a/text/menu/flags3.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-A= H= O= V=
-B= I= P= W=
-C= J= Q= X=
-D= K= R= Y=
-E= L= S= Z=
-F= M= T=
-G= N= U=
diff --git a/text/menu/flags4.asc b/text/menu/flags4.asc
deleted file mode 100644
index 582f3b131c593b2a08e327b6555ce4dbafd35312..0000000000000000000000000000000000000000
--- a/text/menu/flags4.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-A= H= O= V=
-B= I= P= W=
-C= J= Q= X=
-D= K= R= Y=
-E= L= S= Z=
-F= M= T=
-G= N= U=
diff --git a/text/menu/info.wip b/text/menu/info.wip
deleted file mode 100644
index 3e5f12920cfdfd18ade091074f136f3b56b63351..0000000000000000000000000000000000000000
--- a/text/menu/info.wip
+++ /dev/null
@@ -1,21 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=Information
-!|L=4590
-!|T=180
-!|W=4050
-!|H=4350
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`t`20`20`100`60`1`Text Files`0`12632256`MS Sans Serif`8.25`Text Files`DETAIL.ICO
-!|002=0B`y`140`20`100`60`2`Your Statistics`0`12632256`MS Sans Serif`8.25`Your Stats`CATPLUS.ICO
-!|003=0B`i`20`100`100`60`3`System Information`0`12632256`MS Sans Serif`8.25`System`INFO.ICO
-!|004=0B`l`140`100`101`59`4``0`12632256`MS Sans Serif`8.25`Calls Today`PHONE.ICO
-!|005=0B`u`20`180`100`60`5`List Users`0`12632256`MS Sans Serif`8.25`List Users`LIST.ICO
-!|006=0B`q`140`180`100`60`6`Quit to Main Menu`0`12632256`MS Sans Serif`8.25`Quit`EXIT.ICO
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/keyboard.wip b/text/menu/keyboard.wip
deleted file mode 100644
index a26ff6777023a8706c926d3ddc472d22af127c10..0000000000000000000000000000000000000000
--- a/text/menu/keyboard.wip
+++ /dev/null
@@ -1,42 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=8
-!|M=Keyboard
-!|L=2910
-!|T=1440
-!|W=4725
-!|H=1875
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`q`10`10`20`20`1``0`255`MS Sans Serif`8.25`Q`
-!|002=0B`w`40`10`20`20`2``0`12632256`MS Sans Serif`8.25`W`
-!|003=0B`E`70`10`20`20`3``0`12632256`MS Sans Serif`8.25`E`
-!|004=0B`r`100`10`20`20`4``0`12632256`MS Sans Serif`8.25`R`
-!|005=0B`T`130`10`20`20`5``0`12632256`MS Sans Serif`8.25`T`
-!|006=0B`y`160`10`20`20`5``0`12632256`MS Sans Serif`8.25`Y`
-!|007=0B`u`190`10`20`20`6``0`12632256`MS Sans Serif`8.25`U`
-!|008=0B`i`220`10`20`20`7``0`12632256`MS Sans Serif`8.25`I`
-!|009=0B`o`250`10`20`20`8``0`12632256`MS Sans Serif`8.25`O`
-!|010=0B`p`280`10`20`20`9``0`12632256`MS Sans Serif`8.25`P`
-!|011=0B`a`20`40`20`20`10``0`12632256`MS Sans Serif`8.25`A`
-!|012=0B`S`50`40`20`20`11``0`12632256`MS Sans Serif`8.25`S`
-!|013=0B`d`80`40`20`20`12``0`12632256`MS Sans Serif`8.25`D`
-!|014=0B`f`110`40`20`20`13``0`12632256`MS Sans Serif`8.25`F`
-!|015=0B`g`140`40`20`20`14``0`12632256`MS Sans Serif`8.25`G`
-!|016=0B`h`170`40`20`20`15``0`12632256`MS Sans Serif`8.25`H`
-!|017=0B`j`200`40`20`20`16``0`12632256`MS Sans Serif`8.25`J`
-!|018=0B`k`230`40`20`20`17``0`12632256`MS Sans Serif`8.25`K`
-!|019=0B`l`260`40`20`20`18``0`12632256`MS Sans Serif`8.25`L`
-!|020=0B`Z`30`70`20`20`20``0`12632256`MS Sans Serif`8.25`Z`
-!|021=0B`x`60`70`20`20`21``0`12632256`MS Sans Serif`8.25`X`
-!|022=0B`c`90`70`20`20`22``0`12632256`MS Sans Serif`8.25`C`
-!|023=0B`v`120`70`20`20`23``0`12632256`MS Sans Serif`8.25`V`
-!|024=0B`b`150`70`20`20`24``0`12632256`MS Sans Serif`8.25`B`
-!|025=0B`n`180`70`20`20`25``0`12632256`MS Sans Serif`8.25`N`
-!|026=0B`m`210`70`20`20`26``0`12632256`MS Sans Serif`8.25`M`
-!|027=0B`|M`240`70`40`20`27``0`12632256`MS Sans Serif`8.25`Enter`
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/login.wip b/text/menu/login.wip
deleted file mode 100644
index 66a7da29d3553c8d628bbaf2b899287dc387435e..0000000000000000000000000000000000000000
--- a/text/menu/login.wip
+++ /dev/null
@@ -1,20 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=@BBS@
-!|L=1650
-!|T=525
-!|W=4050
-!|H=3225
-!|B=12632256
-!|
-!|[Form]
-!|001=0T`rate`20`20`220`20`1``0`12632256`MS Sans Serif`8.25`Connected at @BPS@bps`1`2
-!|002=0B`l`20`60`100`60`0`Test`0`12632256`MS Sans Serif`8.25`Login`WELCOME.ICO
-!|003=0B`h`140`60`100`60`1`Test`0`12632256`MS Sans Serif`8.25`Hang-up`CANCEL.ICO
-!|004=0B`g`20`140`100`30`2`Test`0`12632256`MS Sans Serif`8.25`Guest`
-!|005=0B`n`140`140`100`30`3`Test`0`12632256`MS Sans Serif`8.25`New Account`
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/logoff.asc b/text/menu/logoff.asc
deleted file mode 100644
index f647e2067eb5909d37c40941e5d2964ce2ef3a4c..0000000000000000000000000000000000000000
--- a/text/menu/logoff.asc
+++ /dev/null
@@ -1,8 +0,0 @@
-lnbhLog off requested on c@DATE@b at c@TIME@
-
-Time used: w@TUSED@
-
-gThank you for calling y@BBS@g, another fine Synchronet BBS...
-
-For a list of active Synchronet systems, see http://synchro.net/sbbslist.html
-n
diff --git a/text/menu/logoff.msg b/text/menu/logoff.msg
deleted file mode 100644
index d0e0fe764a021a902ae522b1c8e2d3e331b70e9e..0000000000000000000000000000000000000000
--- a/text/menu/logoff.msg
+++ /dev/null
@@ -1,28 +0,0 @@
-l
-nk0c1��3��1�y7�������hr2�w1���ny7��hr6�w3��r7��w3��r7�w3�y5�r7�y5����7�5���w1�y5�����������������������������������������nk
-h3��nc3�1�y7�c3�y7�������hw1�����r6�w3��y5�w3��y5���w3�y5��w1�y5�����w1�y5��������������������������������������r7�y5���nk
-h1���3�1�3�nc1���3�y7���r�y�r�y���hw1��r7�6�w3��y5�w3�����y5�r7�y5�w3�y5����w3�y5������w3�y5��������w3�y5���������r7�y5�����������r7�y5�nk
-h0�1��0��r�k1��������3�ny7�c3�1�hk3�nc1�y7�c3�y7���r�y��hr6�ny7�hw1�ny7�hw1�3�����y5�w3����y5�r7�w3����r7�w3�r7�w3�r7����y5����������������������nk
-h0��r�k�nk3�h0�1��0��nk3��h1��������3�1��3��1��3�1�3�nc1���3�1��r7�y��c3�y7�r�y������hw1��r2�w1��r6��w1�r6�7��w3�r7�w3�y5����������w3��y5��w3�y5��nk
-h1������0�1�����0�1����0����1���0���nk3�����h0�nk3�h0�nk3��hr0�k��r�k1�������3�1�3�����nc1�r7��y��hr2�w1�r6�7�w3�y5�r7��w3�y5�r7�w3�y5����r7�y5��nk
-h3�nc1�hk3�1�3��1�3���1�������0���1��0�1�0�1�0��nk3�h0�����nk3�h0���nk3��h0���nk3��h0�r�nk3��hr0�k�1�������nc1�3�r7�y��hr6�w3�r7�w3�r7�w3�r7�w3�y5�r7����w3�y5��nk
-h3������1��3�1�3�����nc1�hk�3�1��������0����nk3��������h0���nk3�h0�r�k����r�k�1���r0�k1��r0�k1����3�nc1�r7�y�hw1�r6�w3�r7��y5�r7��y5��r7��y5��nk
-h3�nc1�hk3�nc1�hk3���1�����r0���nk3�h0�nk3�h0���nk0������������������h�nk0��������h�����nk3��h0�1��3���nc1�hk3�nc1�r7�y����hr6��7��y5��w3�r7�y5��nk
-h1�����r0���k�nk3��h0��nk0����������������h����nk0�h����������nk0�����h�����������1�3�nc1��y7�c3�r7�y�����hw1�r7���y5��w3�nk
-hr0������nk3�h0����nk0��h�nk0�����������h��n�r6�c7�w�nk7�h0���4���6�w�n�0�7�nc7�hk0�nk0�����h��6�4��0��7�c1�w3�r7�ny7�r�c1��3�r7��y���r�y��r�hw1�3�r7�y5�nk
-hr0���nk3��h0�������nk0����������h��nk7�y�hw3�6�0�7�0�k7�4������0�4��0�nk0�������h��4�nb7�hk6�4�0�nk7�hr�w�y�w1��y5�w3��nw7�hn�y7�nr7�y�hw1�r6����w1�r6�w3��nk
-hr0��nk3�hr0�nk3��h0�����nk0���������h��3�ny7�hw3�7�����6�c7�nk7�h4���nb7���hk4�0����nk0��h���4�nb7�hk4�6�nb7�hk6�nk7�c�hw�1��3�1�7�1�nw7�h1��3�y5��w1�r6�7�y5�r6�y5�w3��r7�nk
-hr0�k1�r0��nk3��h0���nk0�������h���nk3�h�nr7�y�hw�0�1����7�1�7��c1�k6�4��nb7�hk4�nb7�hk6�4���6�4�����6�4���r6�w7�1�7��1�7�1�y7�w1�3�r6��7�y5�r6�7�w3��y5����w1�y5�nk
-h3�1�r0�nk3��h0����nk0�����h�nk3�h�nc1�hk�r0�k3�r6�7�w3�1�0�1��3�7��1�7����r6�k7�4��nb7�hk4�nb7��hk6�4����6�4�7�nw7�h0�7�1���3�r7�w3�r7�ny7�r�y�hr6���y5��w1�3�1������3�nk
-y7���hk3��1��r0�k1�r0�k����nk3��hr0��k3�ny7���r�h�w3��7�0��1��7�������6�0�7��c���nc7�hw6�7���1�0�7�1�r7�y5�r7�w3�r6��7����y5�w1���3��1��3�1���y5�w1�y5�nk
-hr7�6�w1�r6�2�w1�nc1�hk���3�1�r0�nk3�h0��nk3��hr0�k1�3�nc3�y7�r�h6�7��nw7�h1�nw7�h��0��7��0�7���0���7�0��7��1�r7�6�ny7�hw1�ny7�r�h6�7�w1�r7�w1�r7��y5�w1�r7�y5��w1��r7�y5����r7��y5�w1��nk
-hw3���r7�6�7�w3�nr7�h6�y5�r6�ny7�c1�hk3�1�r0�nk3�h0�����r�k1��3�nc3�1�r7����h6�w3�nr7��h6��nr7�h6�c1�nr7�c1�k7�h1��3�ny7�r��c1�r7�hw1�nc1�hw3�r6�7�w3��nr7�h6��w3�y5�w3�r6�w1�r6�w3�r6�w3��r7�w1������nk
-hw3�y5�r7�w3�y5�r7�y5�r7�w3���nr7�y���hk3�nc3�hk1��0�nk3�h0���nk3�h0�nk3���h0��nk3���h0��nk3�h�1�nc3�hk1�3��ny7�c1�hk3�nr7�y��hw1�3�r7�w1�3�nr7�y�hr6�ny7�hr6��w1�r6�w3�1�3���r7�y5��w1��3��1�3��1��nk
-hw3��y5��w3�y5�w3�y5��r7�w3����ny7�hw3�nc3�1���3�hk�1���nk3�h1���nc1�hk��0�1�3���w�nr7�hk3�r6�ny7��hw1�nr7�y�hw1�nr7���h6�nr7�h6�7��6�nr7�h6���7�6�7���w3��1����3���1��7�1��nk
-hr7��w3�y5���w3�y5��r7�w3�r7��w3���1�ny7�hw3�1�ny7�r�hw3�ny7��hw1��nr7�hy5�r7�ny7�hw3�ny7�hr6�ny7���hw1�ny7�r�hw3�1�ny7�r�h6�nr7�h6�ny7�hr6���ny7�hw1�r6��w1�r6�w1�3���y5��r7��w1����������3�1���nk
-hr7��w3�y5�������r7�y5�r7�y5�w3�y5�w3�r7�y5�w3���r6��w3��1��r6�w1�ny7�hr6��w1�r7�6�w1�r6��ny7�hw1��3��1�r6���w1�r6��w1�3�r6�7�w3��r7�y5��w1�y5��w1��y5�w1��3�1�7�1�3��1�3�1�3�1�nk
-hr7�6�7�w3�r7�w3�y5��r7�w3�r7�y5�r7�y5���r7��y5���nw7�hr�y5�r7�w3�r7�w3����r7�w3����r7�6�w3����r6�w3�r7�w3��r6�7�w3�r7�y5�w1�y5�r7�y5���w1�y5�w1����y5�w1�����3��1�������nk
-hw�r7���w3�r7�w3��y5�r7�y5��w3�y5�w1�y5��w1�y5��r7�y5��w1�r7�y5�r7���y5�r7��w3���r7�w3����r7�w3�r7��w3�r7��y5�w1�r7�y5�r7�y5�w1��������������������������nk
-hr6�w1�r7�y5�r7��y5�w3�y5�w3��r7�y5������w1�y5����w1�y5���nw7�hy5��r7�y5��w1����y5��w1��3�r7��w3�r7�y5�r7�y5�r7�w1����y5�w1�y5��w1������3�1�3�1����3�1������3�nk
-nw0
-lhyBig Brother is watching...
diff --git a/text/menu/logon.asc b/text/menu/logon.asc
deleted file mode 100644
index f7ba48894212bd652a2478da6d4e892bf951ab88..0000000000000000000000000000000000000000
--- a/text/menu/logon.asc
+++ /dev/null
@@ -1,23 +0,0 @@
-nl
-�hk n�b�hb�n b�
-w�hw y n�b�w b�ܰ4k�0w�b hb��n�hkgj/��
-�n hwsynchronetn hk��n hk�n b�w�b ߲���w b�� hb�nb�
-w�b�w b�w����hw���n�b�����4hb� �nb����4k�0b�� �4hb��nb���hb�6�nb w�hk�n�7hw�����n� b�w b����
-w�hb�nb�w �hw�7�0��7��۱0�n b�4hb��0���nb�w ��� b�4hb�nb��w ��� b�4hb�nb�4g�6b�0hb��nb�c w 7hk�w����0�n ������ hb��
-n hb �nb�w hw�7�������۲n� hb�6�7�6�0�n 7hw����0�n hb�4�nb�w�7hw���۲n� 6b�0hb�n hk�n�7hw�����n��7hw��۲0�n �7hw�۰n b��hb���nb�
-�6k�0b hk�7w�����n� �7hw��n�� hb��nb hb�n 7hw���0�n�hb�6�n hk�n��7hw����0�n �7hw���������n 7hk�w���0�n �7hw�۲n�b�4hb�0�7��0�nb��w b�
- hb nb��4hb�nb�w hk�n�7hw�����n� hk�n���hw�k�b�n 7hw���0��n�c�w b�w �7hw�۲�n hw�7��������0�n� hk�7w��۱n���7hw��0���n�hw�n�� � hb�n4k�
-0b �4hb��nb 4hb�0�n6b�0��w ��7hw���n� 7hw����n� hk�7w���0��7���0�n�b hw 7��� 0k�7w����n� hw�7���n b� hw�7�������۲�n b�hb�nc�hb�nb��hb�nb�
- �4c�6b�0hb����n ��� b�w ��7hw�n�hw�7����n��7hw�۲n�7hw�������n�7hw���n�hk�7w��۱n b �hk�n�hw��k n �7hw���n� �7hw���n� b�hb��6�
-nb �hb�6߲0�n�7k�0w�hw�n����7hw 0��7 n�7hk�0w�7�����۱n 7hw����n hw��7�۲�n� 7hk�w���n�� b��w ܱhk�n �7hw��n�b��w�7hw���n� 4hc�0b��
-nb�hb nb w�7k�0w���7hw۲��� n���7hk�0�n �7hw���n���7hw��n�� hw��7۱�n� �7hw 0��7 �n�7hw�n�۲hw�nb�w�7hw�n�hw�b�n4c�0w�7hw���n�hw�nc��
-w�c�6k�0w hw�7���0�n����� hb��nb��w �7hw���n hw���7���0�nb�hb�n hw�7��0�n� b�w ����7k�0w�hw��n ��hw�nb 4c�0w hw�n��7k�0hw�n hc�
-n�c�w c�w c��hc�nc���hc�4�n4c�0b��w�7hy n�7hy�0�k�n�7k�0w b�w hw�n hc�6b�0��n hw�����n b� ��� w b hw�n�hw�n hb�n ���hw��
-n�b w b�w b�4k�0w hw�7�y�۲�0w���y�n b ��4c �߰0b�hb��n�����b �
-w�hy����n�b �hbݰn4k�0w hk ybbsn software
-�hk�n hy��w�n hk�n b�w b�
-w�hc�w�y��
-n�hy��
-n�hy�
-
-n
\ No newline at end of file
diff --git a/text/menu/mailread.asc b/text/menu/mailread.asc
deleted file mode 100644
index 5cc28f6cecc17592637dd264c2ee8350bf03b3cc..0000000000000000000000000000000000000000
--- a/text/menu/mailread.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-0lnc4������������������������k�0
-4c� hyReading Mail Menu nk4�0
-4c�k������������������������b0��������������������������
-�����
-� hy<CR> ngNext message�b� hy@MSGREPLY@ ngReply to last message b�
-� hy- ngPrevious message b� hyF ngForward mail�b�
-� hyL ngList messages b� hyD ngDelete last message b�
-� hy@MSGREREAD@ ngReread last msg b���������������������������
-� hy# ngGo to message # b� b�
-� hyN ngNext unread msg b� hyQ ngQuit to Main section b�
-���������������������������������������������������n
diff --git a/text/menu/mailread.rip b/text/menu/mailread.rip
deleted file mode 100644
index bdd8279207e8ec8c3e8acdca348388e8a0e582aa..0000000000000000000000000000000000000000
--- a/text/menu/mailread.rip
+++ /dev/null
@@ -1,15 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Reading Mail<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL360000<><>
-!|1B0000020QPC010E000F080900000000000000|Y00000100|1U0M161K1G0000<><CR><>^M
-!|1U0M1K1K1U0000<>-<>-|1U0M1Y1K280000<>L<>L
-!|1B0000020QPE010E000F080400000000000000|1U0M2Q1K300000<>Q<>Q
-!|1B0000020QPC010E000F080900000000000000|1U0M2C1K2M0000<>#<>+
-!|1U9616A41G0000<>R<>R|1U961KA41U0000<>A<>A|1U961YA4280000<>F<>F
-!|1U962CA42M0000<>D<>D|c00|@1Y16Next Message|@1Y1KPrevious Message
-!|@1Y1YList Message Titles and Authors|@1Y2QQuit to Main Section
-!|@1Y2CGo to Message Number|@AK16Reread Last Message
-!|@AK1KAuto-Reply to Last Message|@AK1YForward Mail to Another User
-!|@AK2CDelete Last Message|w000F271610|10000$ETW$|#|#|#
-
diff --git a/text/menu/mailread.wip b/text/menu/mailread.wip
deleted file mode 100644
index 348d8ae5f90f5a8aa56ce174520bc5dcf1b0b75e..0000000000000000000000000000000000000000
--- a/text/menu/mailread.wip
+++ /dev/null
@@ -1,29 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=4
-!|M=Reading E-mail
-!|L=3885
-!|T=3960
-!|W=5550
-!|H=1470
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`-`10`10`40`40`1`Previous Message`0`12632256`MS Sans Serif`8.25``PREV.ICO
-!|002=0B`|M`60`10`40`40`2`Next Message`0`12632256`MS Sans Serif`8.25``NEXT.ICO
-!|003=0B`l`160`10`40`40`3``0`12632256`MS Sans Serif`8.25``LIST.ICO
-!|004=0B`r`110`10`40`40`4``0`12632256`MS Sans Serif`8.25``BACK.ICO
-!|005=0B`a`210`10`40`40`5`Reply to Last E-mail Message`0`12632256`MS Sans Serif`8.25``EDIT.ICO
-!|006=0B`q`310`10`40`40`7`Delete Last E-mail Message`0`12632256`MS Sans Serif`8.25``EXIT.ICO
-!|007=0B`d`260`10`40`40`7``0`12632256`MS Sans Serif`8.25``DELETE.ICO
-!|008=0T`prev`10`50`40`15`8``0`12632256`MS Sans Serif`8.25`Prev`1`0
-!|009=0T`Next`60`50`40`15`9``0`12632256`MS Sans Serif`8.25`Next`1`0
-!|010=0T`reread`110`50`40`15`10``0`12632256`MS Sans Serif`8.25`Again`1`0
-!|011=0T`list`160`50`40`15`11``0`12632256`MS Sans Serif`8.25`List`1`0
-!|012=0T`reply`210`50`40`15`12``0`12632256`MS Sans Serif`8.25`Reply`1`0
-!|013=0T`delete`260`50`40`15`13``0`12632256`MS Sans Serif`8.25`Delete`1`0
-!|014=0T`quit`310`50`40`15`14``0`12632256`MS Sans Serif`8.25`Quit`1`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/main.asc b/text/menu/main.asc
deleted file mode 100644
index d490a512c3e047fa612e41a0fcd95533eaad831d..0000000000000000000000000000000000000000
--- a/text/menu/main.asc
+++ /dev/null
@@ -1,20 +0,0 @@
-0lnc4�����������������������k�0
-4c� hySynchronet Main Menu nk4�0
-4c�k�����������������������0
-4b0����4 hwRead/Post Messages nb����4 hwMessage Area Selection nb�����4 hwElectronic Mail nb�����
-�������
-� hyN ngNew message scan�b� hyJ ngJump to new msg area b� hyE ngRead/Send E-mail�b�
-� hyR ngRead message prompt b�����������������������������
-� hyZ ngContinuous new scan b��hy* ngList sub-boards b������4 hwOther Commands nb�����
-� hyB ngBrowse new scan�b��hy/* ngList groups�b���
-� hyQ ngQWK packet transfer b� hy{ } # ngSelect sub-board b� hyD ngDefault user config b�
-��������������������������� hy[ ] /# ngSelect group�b� hy& ngMessage scan config b�
-� hyP ngPost a message�b��� hyU ngUser lists�b�
-� hyA ngPost auto-message�b����������4 hwGo to nb���������� hyI ngInformation�b�
-����� hyM ngMinute Bank�b�
-������4 hwMessage Search nb����� hyT ngFile Transfer section b� hy/L ngNode activity�b�
-��� hyG ngText file section�b� hy^K ngCtrl-key Menu�b�
-� hyF ngFind text in messages b� hyC ngChat section�b���������������������������
-� hyS ngScan for msgs to you b� hyX ngExternal programs�b� hyO ngLogoff BBS (or /O) b�
-�������
-4 hyAnytime: cCtrl-U nc4Who's online hCtrl-P nc4Send private msg hCtrl-C nc4Abort cmd/text n
diff --git a/text/menu/main.rip b/text/menu/main.rip
deleted file mode 100644
index 3333ca77f916a4b7d60d6ccc8401fa8c6e714812..0000000000000000000000000000000000000000
--- a/text/menu/main.rip
+++ /dev/null
@@ -1,48 +0,0 @@
-
-!|1K|w0010271610|W00|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Synchronet Main Menu<>|1B0000020PWW050E000F080700000000000000
-!|1U0710HL7T0000<><>|c00|Y00000100|1B0000020QPI010E000F080900000000000000
-!|1U0Y1E1W1O2800<> P <>P|1U0Y1S1W222A00<> R <>R
-!|1U0Y261W2G2600<> N <>((Make a choice::ns@_S_ub-board,ng@_G_roup,na@_A_ll,^\
-M@_Q_uit))
-!|1U0Y2K1W2U2I00<> Z <>((Make a choice::zs@_S_ub-board,zg@_G_roup,za@_A_ll,^\
-M@_Q_uit))
-!|1U0Y2Y1W381U00<> B <>((Make a choice::bs@_S_ub-board,bg@_G_roup,ba@_A_ll,^\
-M@_Q_uit))
-!|1U0Y3C1W3M2900<> Q <>Q
-!|1U0Y3Q1W401YY0<> F <>((Make a choice::fs@_S_ub-board,fg@_G_roup,fa@_A_ll,^\
-M@_Q_uit))
-!|1U0Y441W4E2B00<> S <>((Make a choice::ss@_S_ub-board,sg@_G_roup,sa@_A_ll,^\
-M@_Q_uit))
-!|1U0Y4I1W4S1T00<> A <>((Choose one::ar@_R_ead,aw@_W_rite,^M@_Q_uit))
-!|1B0000020QPI010E000F080100000000000000|1U0Y5A1W5K1600<> * <>*
-!|1U0Y5O1W5Y2500<> M <>/*
-!|1U0Y621W6C2100<> I <>((Choose one::ii@_S_ystem,iv@_V_ersion,iy@_Y_our Stat\
-s,is@S_u_b-board,^M@_Q_uit))
-!|1U0Y6G1W6Q2D00<> U <>((Choose one::ul@_L_ogons Today,us@_S_ub-board,ua@_A_\
-ll,^M@_Q_uit))
-!|1U0Y6U1W742400<> L <>/L|1U0Y781W7I2200<> J <>J
-!|1B0000020QPI010E000F080300000000000000|1U8W1E9U1O1200<>&<>&
-!|1U8W1S9U222700<>O<>O$MKILL$|1U8W269U2G0L00<> ^U <>^U
-!|1U8W2K9U2U0G00<> ^P <>^P|1U8W2Y9U380B00<> ^K <>^K
-!|1B0000020QPE010E000F080C00000000000000|1U7U3Y8S483G00<>{<>{
-!|1U8W3Y9U483I00<>}<>}|1U7U4C8S4M2K00<>[<>[|1U8W4C9U4M2L00<>]<>]
-!|1B0000020QPI010E000F080200000000000000|1U8W5A9U5K1X00<> E <>E
-!|1U8W5O9U5Y2C00<> T <>T|1U8W629U6C1Z00<> G <>G|1U8W6G9U6Q2G00<> X <>X
-!|1U8W6U9U741V00<> C <>C|1U8W789U7I1W00<> D <>D|@2S11Message Functions|c0F
-!|@2T12Message Functions|c00|@B111Control Functions|c0F|@B212Control Functions
-!|c00|@2N4VListing Functions|c0F|@2O4WListing Functions|c00
-!|@AV3HSub-board Selection|c0F|@AW3ISub-board Selection|c00
-!|@B44VOther Selections|c0F|@B54WOther Selections|c00|@281FPost Message
-!|@281TRead Messages|@2827New Message Scan|@282LContinuous Message Scan
-!|@282ZBrowse Message Scan|@283DQWK Packet Transfer|@283RFind Text in Messages
-!|@2845Search for Your Messages|@284JRead/Write Auto-Message
-!|@285BSub-boards within Group|@285PMessage Groups|@2863Information Commands
-!|@286HUser Lists|@286VList All Nodes|@2879Jump to a Message Area
-!|@AA1FConfiguration Commands|@AA1TLogoff (also /0)
-!|@AA27List Users Online (Anywhere)|@AA2LSend Message to Another Node
-!|@AA2ZControl Key Command Menu|@AA3YChange Sub, or Type Number
-!|@AA4CChange Group, or Type /Number|@AA5BElectronic Mail Commands
-!|@AA5PFile Transfers|@AA63General Text File Sections|@AA6HExternal Programs
-!|@AA6VChat Commands|@AA79Account Default Configuration|100AC$ETW$|#|#|#
-
diff --git a/text/menu/maincfg.asc b/text/menu/maincfg.asc
deleted file mode 100644
index f7182823ce01904e04d8eb21eb352cf67c6dde85..0000000000000000000000000000000000000000
--- a/text/menu/maincfg.asc
+++ /dev/null
@@ -1,8 +0,0 @@
-lnc4�����������������������������k�0
-4c� hyMessage Scan Configuration nk4�0
-4c�k�����������������������������b0������������������������������������
-�����
-� hyN ngNew-scan configuration�b� hyS ngYour message scan config b�
-� hyP ngSet new-scan pointers�b�������������������������������
-� hyI ngReinitialize new-scan pointers b� hyQ ngQuit to Main menu�b�
-������������������������������������������������������������������n
diff --git a/text/menu/maincfg.rip b/text/menu/maincfg.rip
deleted file mode 100644
index dacf7d2e587f4267d21f85870344d4891aa71843..0000000000000000000000000000000000000000
--- a/text/menu/maincfg.rip
+++ /dev/null
@@ -1,12 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Configuration Menu<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2E0000<><>
-!|1B0000020QPE010E000F080300000000000000|Y00000100|1U0M161K1G0000<>C<>C
-!|1U0M1K1K1U0000<>R<>R|1U9616A41G0000<>N<>N|1U961KA41U0000<>P<>P
-!|1U961YA4280000<>I<>I|1B0000020QPE010E000F080400000000000000
-!|1U0M1Y1K280000<>Q<>Q|c00|@1Y16Convert Credits to Minutes
-!|@1Y1KUnfiltered (Raw) Input Mode|@AK1YReinitialize Message Pointers
-!|@AK16New Message Scan Configuration|@AK1KNew Message Scan Pointers
-!|@1Y1YQuit to the Main Menu|w000C271610|10000$ETW$|#|#|#
-
diff --git a/text/menu/maininfo.asc b/text/menu/maininfo.asc
deleted file mode 100644
index 40c0627e204a2eefc4372c40fdce6c6e2b640181..0000000000000000000000000000000000000000
--- a/text/menu/maininfo.asc
+++ /dev/null
@@ -1,8 +0,0 @@
-0lnc4��������������������������������k�0
-4c� hyMain Section Information Menu nk4�0
-4c�k��������������������������������b0���������������������������
-�����
-� hyI ngSystem information�b� hyY ngYour statistics b�
-��hy0V ngSynchronet version information b�����������������������
-� hyS ngInformation on current sub-board b� hyQ ngQuit to Main menu b�
-������������������������������������������������������������n
diff --git a/text/menu/maininfo.rip b/text/menu/maininfo.rip
deleted file mode 100644
index 9c1ce1d85b91bd8d5b29b8631166091f2c23ea14..0000000000000000000000000000000000000000
--- a/text/menu/maininfo.rip
+++ /dev/null
@@ -1,10 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Information Menu<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2E0000<><>
-!|1B0000020QPC010E000F080100000000000000|Y00000100|1U0M161K1G0000<>I<>I
-!|1U0M1K1K1U0000<>V<>V|1U961KA41U0000<>S<>S|1U9616A41G0000<>Y<>Y
-!|1B0000020QPE010E000F080400000000000000|1U0M1Y1K280000<>Q<>Q|c00|@1Y16System
-!|@1Y1KVersion|@AK1KSub-board|@AK16Your Statistics|@1Y1YQuit to the Main Menu
-!|w000F271610|10000$ETW$|#|#|#
-
diff --git a/text/menu/major/email.asc b/text/menu/major/email.asc
deleted file mode 100644
index 8d4c1495b9dec942254eb8e0254353814f2f026c..0000000000000000000000000000000000000000
--- a/text/menu/major/email.asc
+++ /dev/null
@@ -1,10 +0,0 @@
-ghThe following E-mail services are available:
-
-c R y=> Read message(s)
-c W y=> Write a message
-c E y=> Erase a message
-
-c S y=> Send NetMail
-c U y=> Upload a file attachment
-cs
-Select a letter from this list, or X to exit: n
\ No newline at end of file
diff --git a/text/menu/major/file.asc b/text/menu/major/file.asc
deleted file mode 100644
index 61780b1b3aaed2ff7fbf47813267b6687239da78..0000000000000000000000000000000000000000
--- a/text/menu/major/file.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-ghThe following Library services are available:
-
-c F y=> File directory
-c D y=> Download a file
-c U y=> Upload a file
-c S y=> Select a LIB
-cs
-Current LIB: @LIB@ @DIR@
-Select a letter from this list (or X to exit): n
\ No newline at end of file
diff --git a/text/menu/major/main.asc b/text/menu/major/main.asc
deleted file mode 100644
index 912196055758d654dca65f4ca99dee774fddaeed..0000000000000000000000000000000000000000
--- a/text/menu/major/main.asc
+++ /dev/null
@@ -1,15 +0,0 @@
-ghPlease select one of the following:
-
-c T y... Teleconference
-c I y... Information Center
-c F y... Forums (Public Message Bases)
-c E y... Electronic Mail
-c L y... Library of Files
-c D y... Doors (External Programs)
-c A y... Account Display/Edit
-c R y... Registry of Users
-(c S y... System Management
-)c X y... Exit System (Logoff)
-cs
-(TOP)
-Make your selection (T,I,F,E,L,A,P,R,S,? for help, or X to exit): n
\ No newline at end of file
diff --git a/text/menu/major/msg.asc b/text/menu/major/msg.asc
deleted file mode 100644
index 673753a6ccd26d29d9bb6a274794aca42b27d04f..0000000000000000000000000000000000000000
--- a/text/menu/major/msg.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-ghWelcome, @NAME@, to @GRP@ @SUB@
-
-c R y... Read messages
-c W y... Write a message
-c Q y... Quickscan Menu
-c T y... Teleconference
-c S y... Select a new Forum
-cs
-Select a letter from this list, or X to exit: n
\ No newline at end of file
diff --git a/text/menu/major/quickscn.asc b/text/menu/major/quickscn.asc
deleted file mode 100644
index 6282734acf854a54e4765b67f2bc1bc711da26f6..0000000000000000000000000000000000000000
--- a/text/menu/major/quickscn.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-ghQuickscan functions:
-
-c S y... scan through messages
-c L y... list messages to you
-c K y... keyword-search for messages
-
-c C y... configure your quickscan
-cs
-Select a letter from the above list, or X to exit: n
\ No newline at end of file
diff --git a/text/menu/major/userdefs.asc b/text/menu/major/userdefs.asc
deleted file mode 100644
index 355f83e3b7aa43ab648794abf09f004a9f95541f..0000000000000000000000000000000000000000
--- a/text/menu/major/userdefs.asc
+++ /dev/null
@@ -1,6 +0,0 @@
-gh User-ID: @NAME@
-
-c S y=> Display statistics on your account
-c A y=> Display or edit account information
-cs
-Your choice (or 'X' to exit): n
\ No newline at end of file
diff --git a/text/menu/msgattr.asc b/text/menu/msgattr.asc
deleted file mode 100644
index 7d8a91ea6302243a9a3cda661e3690ce8bbc5e1d..0000000000000000000000000000000000000000
--- a/text/menu/msgattr.asc
+++ /dev/null
@@ -1 +0,0 @@
-nhb[nhRnhb]ead, [nhPnhb]rivate, [nhAnhb]non, [nhKnhb]ill, [nhMnhb]oderated, [nhVnhb]alidated, [nhNnhb]on-purgable:n z
diff --git a/text/menu/msgs.wip b/text/menu/msgs.wip
deleted file mode 100644
index b76df9a9c1e118784b283b9bb2b5feb9440d8568..0000000000000000000000000000000000000000
--- a/text/menu/msgs.wip
+++ /dev/null
@@ -1,21 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=Messages
-!|L=1770
-!|T=345
-!|W=4050
-!|H=4350
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`r`20`20`100`60`1`Read Messages`0`12632256`MS Sans Serif`8.25`Read`DETAIL.ICO
-!|002=0B`p`140`20`100`60`2`Post Message`0`12632256`MS Sans Serif`8.25`Post`EDIT.ICO
-!|003=0B`s`20`100`100`60`3`Search Messages for Specific Text`0`12632256`MS Sans Serif`8.25`Text Search`SEARCH.ICO
-!|004=0B`n`140`100`100`60`4`Search for New Messages`0`12632256`MS Sans Serif`8.25`New`FIND.ICO
-!|005=0B`q`20`180`100`60`5`QWK Message Upload/Download for Offline Readers`0`12632256`MS Sans Serif`8.25`QWK`SAVE.ICO
-!|006=0B`x`140`180`100`60`6`Quit to Main Menu`0`12632256`MS Sans Serif`8.25`Quit`EXIT.ICO
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/msgscan.asc b/text/menu/msgscan.asc
deleted file mode 100644
index ab43324f8a9aa076d3856c7bfed067e321f0f1d2..0000000000000000000000000000000000000000
--- a/text/menu/msgscan.asc
+++ /dev/null
@@ -1,19 +0,0 @@
-0lnc4������������������������k�0
-4c� hyReading Messages Menu nk4�0
-4c�k������������������������0
-4b0������4 hwRead Messages nb��������4 hwPost/Reply Messages nb������4 hwMessage Threading nb����
-�������
-� hy<CR> ngNext message�b� hyP ngPost a message�b� hy< > ng-/+ by Title�b�
-� hy- ngPrevious message b� hyD ngDelete a message�b� hy{ } ng-/+ by Author�b�
-� hyC ngContiunous read b��������������������������� hy[ ] ng-/+ by 'To User' b�
-� hy@MSGREREAD@ ngReread last msg b� hy@MSGREPLY@ ngReply to last message b���
-� hy# ngGo to message # b� hyM ngReply in mail to last b������4 hwOther Commands nb�����
-�������
-�������4 hwList Titles nb�������������4 hwSearch/Find nb������� hyB ngBypass current sub b�
-����� hyI ngInformation on sub b�
-� hyL ngTitles and authors b� hyY ngMessages to you�b���������������������������
-� hyT ngNext ten msg titles b� hyF ngFind text in messages b� hyQ ngQuit to Main menu�b�
-�������
-4 hyAnytime: cCtrl-U nc4Who's online hCtrl-P nc4Send private msg hCtrl-C nc4Abort cmd/text n
-(
- hyO ngOperator Commandsn
diff --git a/text/menu/msgscan.rip b/text/menu/msgscan.rip
deleted file mode 100644
index 65985a8162c251a7821b3e7f113084749c201e63..0000000000000000000000000000000000000000
--- a/text/menu/msgscan.rip
+++ /dev/null
@@ -1,20 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0O0000<>Reading Messages<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL4G0000<><>
-!|1B0000020QPE010E000F080900000000000000|Y00000100|1U0M161K1G0000<><CR><>^M
-!|1U0M1K1K1U0000<>-<>-|1U0M1Y1K280000<>L<>L|1U0M2C1K2M0000<>T<>T
-!|1U0M2Q1K300000<>B<>B|1U9616A41G0000<>R<>R|1U961KA41U0000<>A<>A
-!|1U961YA4280000<>M<>M|1U962CA42M0000<>Y<>Y|1U0M341K3E0000<>C<>C
-!|1B0000020QPC010E000F080400000000000000|1U0M3W1K460000<>Q<>Q
-!|1B0000020QPC010E000F080900000000000000|1U0M3I1K3S0000<>#<>
-!|1U962QA4300000<>F<>F|1U9634A43E0000<>D<>D|1U963IA43S0000<>P<>P
-!|1U963WA4460000<>I<>I|c00|@1Y16Next Message|@1Y1KPrevious Message
-!|@1Y1YList Message Titles and Authors|@1Y2CTitles of Next Ten Messages
-!|@1Y2QBypass Current Sub-Board|@1Y34Continuous Read|@1Y3WQuit to Main Section
-!|@1Y3IGo to Message Number|@AK16Reread Last Message|@AK1KReply to Last Message
-!|@AK1YReply in Mail to Last Message|@AK2CTitles of Your Messages
-!|@AK2QFind Text in All Messages|@AK34Delete Message|@AK3IPost a Message
-!|@AK3WInformation on Sub-board|w000L271610|L1V2Z1V2Z|L1D2U1D2U|100AC$ETW$|#|#
-!|#
-
diff --git a/text/menu/msgscan.wip b/text/menu/msgscan.wip
deleted file mode 100644
index 9cacaacd7958247d311c41057a57aed5e6310fe3..0000000000000000000000000000000000000000
--- a/text/menu/msgscan.wip
+++ /dev/null
@@ -1,39 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=4
-!|M=Reading Messages
-!|L=90
-!|T=3960
-!|W=9300
-!|H=1500
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`-`10`10`40`40`1`Previous Message`0`12632256`MS Sans Serif`8.25``PREV.ICO
-!|002=0B`|M`60`10`40`40`2`Next Message`0`12632256`MS Sans Serif`8.25``NEXT.ICO
-!|003=0B`l`210`10`40`40`3``0`12632256`MS Sans Serif`8.25``LIST.ICO
-!|004=0B`r`110`10`40`40`4``0`12632256`MS Sans Serif`8.25``BACK.ICO
-!|005=0B`a`260`10`40`40`5`Reply to Last E-mail Message`0`12632256`MS Sans Serif`8.25``EDIT.ICO
-!|006=0B`m`360`10`40`40`7`Delete Last E-mail Message`0`12632256`MS Sans Serif`8.25``NOTEPAD.ICO
-!|007=0B`d`310`10`40`40`7``0`12632256`MS Sans Serif`8.25``DELETE.ICO
-!|008=0T`prev`10`50`40`15`8``0`12632256`MS Sans Serif`8.25`Prev`1`0
-!|009=0T`Next`60`50`40`15`9``0`12632256`MS Sans Serif`8.25`Next`1`0
-!|010=0T`reread`110`50`40`15`10``0`12632256`MS Sans Serif`8.25`Again`1`0
-!|011=0T`list`210`50`40`15`11``0`12632256`MS Sans Serif`8.25`List`1`0
-!|012=0T`reply`260`50`40`15`12``0`12632256`MS Sans Serif`8.25`Reply`1`0
-!|013=0T`delete`310`50`40`15`13``0`12632256`MS Sans Serif`8.25`Delete`1`0
-!|014=0T`e-mail`360`50`40`15`14``0`12632256`MS Sans Serif`8.25`E-mail`1`0
-!|015=0B`t`160`10`40`40`15``0`12632256`MS Sans Serif`8.25``2NDPAGE.ICO
-!|016=0T`ten`160`50`40`15`16``0`12632256`MS Sans Serif`8.25`Titles`1`0
-!|017=0B`p`410`10`40`40`17``0`12632256`MS Sans Serif`8.25``EDIT.ICO
-!|018=0T`post`410`50`40`15`18``0`12632256`MS Sans Serif`8.25`Post`1`0
-!|019=0B`y`460`10`40`40`19``0`12632256`MS Sans Serif`8.25``CONTACT.ICO
-!|020=0T`yours`460`50`40`15`20``0`12632256`MS Sans Serif`8.25`Yours`1`0
-!|021=0B`f`510`10`40`40`21``0`12632256`MS Sans Serif`8.25``SEARCH.ICO
-!|022=0T`find`510`50`40`15`22``0`12632256`MS Sans Serif`8.25`Find`1`0
-!|023=0B`q`560`10`40`40`23``0`12632256`MS Sans Serif`8.25``EXIT.ICO
-!|024=0T`quit`560`50`40`15`24``0`12632256`MS Sans Serif`8.25`Quit`1`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/multchat.asc b/text/menu/multchat.asc
deleted file mode 100644
index bb022f20289e59131d012cce14062d26744a588f..0000000000000000000000000000000000000000
--- a/text/menu/multchat.asc
+++ /dev/null
@@ -1,10 +0,0 @@
-nlc4����������������������k�0
-4c� hyMultinode Chat Menu nk4�0
-4c�k����������������������b0��������������������������������������������������������
-�����
-� hy/W ngWhisper to another user �b� hy/E ngToggle echo status�b�
-� hy/L ngList all node activity�b� hy/A ngToggle action commands b�
-� hy/* ngList Chat channels�b� hy/C ngList action commands b�
-� hy/# ngChange Chat channel (# is channel number) b� hy/Q ngQuit multinode chat b�
-�����
-4 hyAnytime: cCtrl-U nc4Who's online hCtrl-P nc4Send private msg hCtrl-C nc4Abort cmd/text n
diff --git a/text/menu/multchat.rip b/text/menu/multchat.rip
deleted file mode 100644
index bd0e9484c9ea660485380741ff42c3af7caabea9..0000000000000000000000000000000000000000
--- a/text/menu/multchat.rip
+++ /dev/null
@@ -1,13 +0,0 @@
-
-!|1K|*|e|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Multinode Chat<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2S0000<><>
-!|1B0000020QPE010E000F080500000000000000|Y00000100|1U0M161K1G0000<>/W<>^M/P
-!|1U0M1K1K1U0000<>/L<>^M/L|1U961KA41U0000<>/#<>|1U961YA4280000<>^U<>^U
-!|1U962CA42M0000<>^P<>^P|1U0M1Y1K280000<>/E<>^M/E|1U9616A41G0000<>/*<>^M/*
-!|1B0000020QPE010E000F080400000000000000|1U0M2C1K2M0000<>/Q<>^M/Q|c00
-!|@1Y16Whisper to another user|@1Y1KList All Nodes|@1Y1YToggle Echo Status
-!|@1Y2CQuit Chat Session|@AK16List Channels|@AK1KChange Channel Number
-!|@AK1YList Users Online|@AK2CSend Message to Another Node|w000E271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/namepass.wip b/text/menu/namepass.wip
deleted file mode 100644
index 1965ae1c11164759ed64c7f8b59276533607ac71..0000000000000000000000000000000000000000
--- a/text/menu/namepass.wip
+++ /dev/null
@@ -1,20 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=8
-!|M=Login
-!|L=3555
-!|T=225
-!|W=3375
-!|H=3375
-!|B=12632256
-!|
-!|[Form]
-!|001=1T`name`10`30`200`30`1``0`12632256`MS Sans Serif`8.25`0`2
-!|002=0T`label`10`10`200`20`2``0`12632256`MS Sans Serif`8.25`Please enter your user name`0`0
-!|003=0B`|M`60`130`100`60`3``0`12632256`MS Sans Serif`8.25`Login`WELCOME.ICO
-!|004=1T`password`10`90`200`30`2``12632256`12632256`MS Sans Serif`8.25`0`2
-!|005=0T`enter pass`10`70`160`20`5``0`12632256`MS Sans Serif`8.25`Please enter your password`0`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/noyes.wip b/text/menu/noyes.wip
deleted file mode 100644
index cccb3c7a7322879f5701ffb0a1cf5c12381f11cb..0000000000000000000000000000000000000000
--- a/text/menu/noyes.wip
+++ /dev/null
@@ -1,20 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=8
-!|M=No or Yes
-!|L=1815
-!|T=510
-!|W=3000
-!|H=2100
-!|B=12632256
-!|
-!|[Form]
-!|001=0T`question`10`10`170`35`1``0`12632256`MS Sans Serif`8.25`@QUESTION@`1`0
-!|002=0B`n`50`50`40`40`2``0`12632256`MS Sans Serif`8.25``CANCEL.ICO
-!|003=0B`y`100`50`40`40`3``0`12632256`MS Sans Serif`8.25``DONE.ICO
-!|004=0T`no`50`90`40`15`4``0`12632256`MS Sans Serif`8.25`No`1`0
-!|005=0T`yes`100`90`40`15`5``0`12632256`MS Sans Serif`8.25`Yes`1`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/number.wip b/text/menu/number.wip
deleted file mode 100644
index 0730b2f393ad1ee34fa5ffff43fcec7042a477e2..0000000000000000000000000000000000000000
--- a/text/menu/number.wip
+++ /dev/null
@@ -1,26 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=8
-!|M=Pick a Number
-!|L=1605
-!|T=555
-!|W=1575
-!|H=2475
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`1`10`10`20`20`1``0`12632256`MS Sans Serif`8.25`1`
-!|002=0B`2`40`10`20`20`2``0`12632256`MS Sans Serif`8.25`2`
-!|003=0B`3`70`10`20`20`3``0`12632256`MS Sans Serif`8.25`3`
-!|004=0B`4`10`40`20`20`4``0`12632256`MS Sans Serif`8.25`4`
-!|005=0B`5`40`40`20`20`5``0`12632256`MS Sans Serif`8.25`5`
-!|006=0B`6`70`40`20`20`6``0`12632256`MS Sans Serif`8.25`6`
-!|007=0B`7`10`70`20`20`7``0`12632256`MS Sans Serif`8.25`7`
-!|008=0B`8`40`70`20`20`8``0`12632256`MS Sans Serif`8.25`8`
-!|009=0B`9`70`70`20`20`9``0`12632256`MS Sans Serif`8.25`9`
-!|010=0B`q`10`100`32`32`10``0`12632256`MS Sans Serif`8.25``CANCEL.ICO
-!|011=0B`|M`60`100`32`32`11``0`12632256`MS Sans Serif`8.25``DONE.ICO
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/pause.wip b/text/menu/pause.wip
deleted file mode 100644
index 5f4a9dadd993a10a488d848b3e9d023e9add9127..0000000000000000000000000000000000000000
--- a/text/menu/pause.wip
+++ /dev/null
@@ -1,15 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=12
-!|M=Continue
-!|L=1695
-!|T=615
-!|W=2925
-!|H=1275
-!|B=12632256
-!|[Form]
-!|001=0B`|M`10`10`80`40`1``0`12632256`MS Sans Serif`8.25`OK`
-!|002=0B`n`100`10`80`40`2``0`12632256`MS Sans Serif`8.25`Cancel`
-$0E
\ No newline at end of file
diff --git a/text/menu/pcboard/brdm.asc b/text/menu/pcboard/brdm.asc
deleted file mode 100644
index 67c74c8c1f0edc290eff047aa3edbc2cad62a9ab..0000000000000000000000000000000000000000
--- a/text/menu/pcboard/brdm.asc
+++ /dev/null
@@ -1,21 +0,0 @@
-nlk4������������������������������������������������������������������������������nhb4�0
-nk4� nhc4Date: nhg4@SYSDATE@ nh4M a i n M e n u nhc4Time: nhg4@SYSTIME@0nhb4 �0
-nk4�nc4� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �nhb4�0
-nk4� nh4(nhr4Fnh4)ile Directories (nhr4Lnh4)ocate a filename (nhr4EXTnh4)ended file info nhb4�0
-nk4� nh4(nhr4Dnh4)ownload a file (nhr4Nnh4)ew file scan (nhr4VIEWnh4) a file before d/l nhb4�0
-nk4� nh4(nhr4Unh4)pload a file (nhr4Znh4)ippy Text Search (nhr4BATCHnh4) transfer menu nhb4�0
-nk4� nh4(nhr4Tnh4)emp archive menu (nhr4REMOVEnh4) or edit a file nhb4�0
-nk4� nhb4�0
-nk4� nh4(nhr4Jnh4)oin a conference (nhr4Anh4)djust pointers (nhr4TSnh4) Text search msgs. nhb4�0
-nk4� nh4(nhr4Enh4)nter a message (nhr4Cnh4)omment to SysOp (nhr4QWKnh4) Transfer QWK mail nhb4�0
-nk4� nh4(nhr4Rnh4)ead messages (nhr4Ynh4)our messages (nhr4AUTOnh4) message nhb4�0
-nk4� nh4(nhr4RNnh4) Read New messages (nhr4RCnh4) Read New Continuous (nhr4SELECTnh4) confs. to scan nhb4�0
-nk4� nhb4�0
-nk4� nh4(nhr4Mnh4)ail Send/Receive (nhr4Xnh4)pert mode toggle (nhr4Onh4) Page SysOp nhb4�0
-nk4� nh4(nhr4Bnh4)ulletins (nhr4Gnh4)oodbye (Logoff) (nhr4Inh4)nitial logon screen nhb4�0
-nk4� nh4(nhr4Snh4)ystem Information (nhr4Wnh4) Change your info (nhr4Pnh4)rivate node message nhb4�0
-nk4� nh4(nhr4Vnh4)iew your statistics nhb4�0
-nk4� nhb4�0
-nk4� nh4(nhy4CHATnh4) with other users (nhy4OPENnh4) a door nhb4�0
-nk4� nh4(nhy4NEWSnh4) Display system news (nhy4USERnh4) List conference members nhb4�0
-nk4�nhb4������������������������������������������������������������������������������n
diff --git a/text/menu/pcboard/welcome.asc b/text/menu/pcboard/welcome.asc
deleted file mode 100644
index 9a52c68c2483941461960d3c4e068caeca2655a5..0000000000000000000000000000000000000000
--- a/text/menu/pcboard/welcome.asc
+++ /dev/null
@@ -1,22 +0,0 @@
-nl
-nh�n������������������������������������������
-�������������������������������������������
-�������������������������������������������
-�������������������������������������������
- nk5�����������������������������������������������������������������������nhm5�0
-nhnh nh nh nh nk5� nh5���� ��� ���� ��� � nhm5�0
-nhnh nh nh nh nk5� nh5� � � � � � � � � nhm5�0
-nhnh nh nh nh nk5� nh5S Y N C H R O N E T ���� � ���� � � ���� ���� ���� nhm5�0
-nhnh nh nh nh nk5� V e r s i o n 2 nh5� � � � � � � � � � � � ��� nhm5�0
-nhnh nh nh nh nk5� nh5��� ��� ���� ��� � �� � � �� nhm5�0
-nhnh nh nh nh nk5�nhm5�����������������������������������������������������������������������0
-nh�nhk������������������������������������������
-�������������������������������������������
-�n������������������������������������������
-�������������������������������������������
-�������������������������������������������
-
-�nhk2�����������������������������������������nhg2�0
-nh�nhk2� nh2Your SysOp is: { this space for rent } nhg2�0
-nh�nhk2�nhg2�����������������������������������������0
-n
\ No newline at end of file
diff --git a/text/menu/privchat.asc b/text/menu/privchat.asc
deleted file mode 100644
index c3fc712358b52e1eee0acb250c710fb786a84328..0000000000000000000000000000000000000000
--- a/text/menu/privchat.asc
+++ /dev/null
@@ -1,8 +0,0 @@
-0lnc4��������������������k�0
-4c� hyPrivate Chat Menu nk4�0
-4c�k��������������������b0���������������������������������������
-�����
-� hy/L ngList all node activity b� hyCtrl-U ngWho's online�b�
-� hy/E ngToggle echo status�b� hyCtrl-P ngSend private message b�
-� hy/Q ngQuit private chat�b���
-������������������������������������������������������������n
diff --git a/text/menu/privchat.rip b/text/menu/privchat.rip
deleted file mode 100644
index 1bde8bc1487f41ab6b69bd755c1c2fd679f471ca..0000000000000000000000000000000000000000
--- a/text/menu/privchat.rip
+++ /dev/null
@@ -1,11 +0,0 @@
-
-!|1K|*|e|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Private Chat<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2E0000<><>
-!|1B0000020QPE010E000F080500000000000000|Y00000100|1U0M161K1G0000<>/L<>^M/L
-!|1U9616A41G0000<>^U<>^U|1U961KA41U0000<>^P<>^P|1U0M1K1K1U0000<>/E<>^M/E
-!|1B0000020QPE010E000F080400000000000000|1U0M1Y1K280000<>/Q<>^M/Q|c00
-!|@1Y16List All Nodes|@1Y1KToggle Echo Status|@1Y1YQuit Chat Session
-!|@AK16List Users Online|@AK1KSend Message to Another Node|w000E271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/qwk.asc b/text/menu/qwk.asc
deleted file mode 100644
index c0d080a10105760cd3383a5956eb3f34d379edea..0000000000000000000000000000000000000000
--- a/text/menu/qwk.asc
+++ /dev/null
@@ -1,13 +0,0 @@
-lnc4����������������������������k�0
-4c� hyQWK Offline Reader Menu nk4�0
-4c�k����������������������������b0�������
-���
-� hyC ngChange Packet Configuration b�
-� hyS ngSelect Message Areas to Scan b�
-� hyP ngModify New-message Pointers b�
-� hyU ngUpload REP reply packet�b�
-� hyD ngDownload QWK message packet b�
-� hyB ngBidirectional REP/QWK transfer b�
-������������������������������������
-� hyQ ngQuit back to Main menu�b�
-������������������������������������n
diff --git a/text/menu/qwk.rip b/text/menu/qwk.rip
deleted file mode 100644
index 9834eb1cbc784349f7e05f789d2603d6c79f31d2..0000000000000000000000000000000000000000
--- a/text/menu/qwk.rip
+++ /dev/null
@@ -1,11 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>QWK Packet Transfer Menu<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL200000<><>
-!|1B0000020QPE010E000F080100000000000000|Y00000100|1U0M161K1G0000<>U<>U
-!|1U0M1K1K1U0000<>D<>D|1U9616A51G0000<>B<>B
-!|1B0000020QPE010E000F080400000000000000|1U961KA51U0000<>Q<>Q|c00
-!|@1Y16Upload REP Reply Packet|@1Y1KDownload QWK Message Packet
-!|@AK16Bidirectional REP/QWK Transfer|@AK1KQuit to the Main Menu|w000A271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/qwk.wip b/text/menu/qwk.wip
deleted file mode 100644
index 8f93eed81a89bf9e66acd25ad00c1cd9238be879..0000000000000000000000000000000000000000
--- a/text/menu/qwk.wip
+++ /dev/null
@@ -1,21 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=QWK Offline Reader
-!|L=1425
-!|T=195
-!|W=4050
-!|H=4350
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`d`20`20`100`60`1``0`12632256`MS Sans Serif`8.25`Download QWK`DOWNLOAD.ICO
-!|002=0B`u`140`20`100`60`2``0`12632256`MS Sans Serif`8.25`Upload REP`EDIT.ICO
-!|003=0B`s`140`100`100`60`3``0`12632256`MS Sans Serif`8.25`Select Areas`LIST.ICO
-!|004=0B`c`20`100`100`60`4``0`12632256`MS Sans Serif`8.25`Setup`DETAIL.ICO
-!|005=0B`p`20`180`100`60`5``0`12632256`MS Sans Serif`8.25`MSG Pointers`CATPLUS.ICO
-!|006=0B`q`140`180`100`60`6``0`12632256`MS Sans Serif`8.25`Quit`EXIT.ICO
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/renegade/email.asc b/text/menu/renegade/email.asc
deleted file mode 100644
index aa27a7d26da0cfca426558b852ec11fcf6411334..0000000000000000000000000000000000000000
--- a/text/menu/renegade/email.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-�nhr������������������������������������������������������Ŀ
-��4 wSynchronet Reneclone Email System Menu r0�
-���������������������������������������������������������
- c4��������������������������������������������������������������������������Ŀ0
- 4� [yRc]ead Email [yEc]nter Email �0
- 4� [yVc]iew Outgoing [yQc]uit to Main [yGc]oodbye [y/Gc]oodbye Fast! �0
- 4����������������������������������������������������������������������������0n
diff --git a/text/menu/renegade/main.asc b/text/menu/renegade/main.asc
deleted file mode 100644
index 03aa3e1342eac9673eef1de3ec64358a01da0593..0000000000000000000000000000000000000000
--- a/text/menu/renegade/main.asc
+++ /dev/null
@@ -1,10 +0,0 @@
-�nhr������������������������������������������������������Ŀ
-��4 wSynchronet Reneclone Main System Menu r0�
-���������������������������������������������������������
- c4��������������������������������������������������������������������������Ŀ0
- 4� [yMc]essage System [yFc]ile System [yOc]nline System [yEc]mail System �0
- 4� [ySc]ystem Bulletins [yUc]ser Listing [yYc]our Info [yAc]uto-message �0
- 4� [yWc]ho's online [yLc]ist of Callers [y!c]Offline Mail [yPc]ersonal Info �0
- 4� [yNc]ote to SysOp [yCc]hat System [yIc]nfo on System [yXc]pert Toggle �0
- 4� [yGc]oodbye & Logoff [y/Gc]oodbye Fast! [y$c]Time Bank [y/Lc]ist Nodes �0
- 4����������������������������������������������������������������������������0n
diff --git a/text/menu/renegade/message.asc b/text/menu/renegade/message.asc
deleted file mode 100644
index 8fcb58d5e94de600f73ea5f331c89506e2eb38b4..0000000000000000000000000000000000000000
--- a/text/menu/renegade/message.asc
+++ /dev/null
@@ -1,10 +0,0 @@
-�nhr������������������������������������������������������Ŀ
-��4 wSynchronet Reneclone Message System Menu r0�
-���������������������������������������������������������
- c4�������������������������������������������������������������������������Ŀ0
- 4� [y#c]Sub Change [y/#c]Group Change [y[c]Previous Sub [y]c]Next Sub �0
- 4� [yCc]hat System [yRc]ead Messages [ySc]can Messages [yPc]ost Message �0
- 4� [yFc]ile Menu [yGc]oodbye [y/Gc]oodbye [yUc]sers w/Access �0
- 4� [yNc]ew Message Scan [yQc]uit to Main [yEc]nter Email [yZc]Set Scan Areas�0
- 4� [yAc]rea List [yJc]ump to Area [y/Lc]ist Nodes [yYc]our Messages �0
- 4���������������������������������������������������������������������������0n
diff --git a/text/menu/renegade/transfer.asc b/text/menu/renegade/transfer.asc
deleted file mode 100644
index 8f8fb5007d7c5b468c7df308a08cf67dea32322a..0000000000000000000000000000000000000000
--- a/text/menu/renegade/transfer.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-�nhr������������������������������������������������������Ŀ
-��4 wSynchronet Reneclone File System Menu r0�
-���������������������������������������������������������
- c4��������������������������������������������������������������������������Ŀ0
- 4� [y#c]Dir Change [y/#c]Lib Change [y[c]Previous Dir [y]c]Next Dir �0
- 4� [y/Ac]rchive Menu [yAc]rea List [yCc]hat System [yDc]ownload �0
- 4� [yEc]nter Batch Mode [yFc]ind Description [yGc]oodbye [y/Gc]oodbye �0
- 4� [yPc]ointer Date [yLc]ist Files [yMc]essage Menu [yNc]ew Files �0
- 4� [yUc]pload! [yQc]uit to Main [yVc]iew Archive [ySc]earch Filespec �0
- 4� [yYc]our File info [yJc]ump to Area [y/Lc]ist Nodes �0
- 4����������������������������������������������������������������������������0n
diff --git a/text/menu/restrict.asc b/text/menu/restrict.asc
deleted file mode 100644
index 0877da6d720df2f2156d9beb7bacc2be3722b03b..0000000000000000000000000000000000000000
--- a/text/menu/restrict.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-A=ANSI H= O= V=
-B=Beep I= P=Post W=Auto-message
-C=Chat J=Quoting Q=QWK Network Node X=External Programs
-D=Download K=Read Mail Sent R=Remove Files Y=
-E=E-mail L=Logon one/day S=Email Sysop Z=
-F=Forward mail M=Networked Mail T=Transfers
-G=Edit Defaults N=Networked Subs U=Upload
diff --git a/text/menu/sdos/files.asc b/text/menu/sdos/files.asc
deleted file mode 100644
index 4ebd352de512a0f14151f2388ad0b2fec9e14803..0000000000000000000000000000000000000000
--- a/text/menu/sdos/files.asc
+++ /dev/null
@@ -1,21 +0,0 @@
- Volume in drive C is BBS
- Volume Serial Number is 8317-6BE8
- Directory of C:\FILES
-
-. <DIR> 08/01/94 02:34 pm
-.. <DIR> 08/01/94 02:34 pm
-DOWNLOAD EXE 24343 06/02/94 08:36 am
-UPLOAD EXE 48321 06/02/94 08:36 am
-REMOVE COM 2377 06/04/94 04:55 pm
-BATCH EXE 30566 06/02/94 08:36 am
-VIEW EXE 10485 06/02/94 08:36 am
-TEMP EXE 114705 06/02/94 08:37 am
-LIST EXE 81380 06/04/94 04:56 pm
-NEWSCAN COM 3146 06/02/94 08:36 am
-EXTENDED EXE 287347 06/04/94 04:56 pm
-SEARCH COM 1969 06/04/94 04:56 pm
-FIND COM 5193 06/04/94 04:57 pm
-AREA COM 905 06/02/94 08:35 am
-CONFIG COM 2517 06/02/94 08:35 am
- 15 file(s) 1350784 bytes
- @FREESPACE@ bytes free
diff --git a/text/menu/sdos/mail.asc b/text/menu/sdos/mail.asc
deleted file mode 100644
index 45afc742f950766166e9ba58d52127ee68416c4e..0000000000000000000000000000000000000000
--- a/text/menu/sdos/mail.asc
+++ /dev/null
@@ -1,21 +0,0 @@
- Volume in drive C is BBS
- Volume Serial Number is 8317-6BE8
- Directory of C:\MAIL
-
-. <DIR> 08/01/94 02:34 pm
-.. <DIR> 08/01/94 02:34 pm
-SEND EXE 54343 06/02/94 08:36 am
-SENDFILE EXE 58981 06/02/94 08:36 am
-NETMAIL EXE 30566 06/02/94 08:36 am
-READ EXE 102485 06/02/94 08:36 am
-READSENT EXE 114705 06/02/94 08:37 am
-POST EXE 81380 06/04/94 04:56 pm
-NEWSCAN COM 3146 06/02/94 08:36 am
-READMSGS EXE 287347 06/04/94 04:56 pm
-YOURMSGS COM 1969 06/04/94 04:56 pm
-FIND COM 5193 06/04/94 04:57 pm
-QWK EXE 159876 06/02/94 08:35 am
-AREA COM 905 06/02/94 08:35 am
-CONFIG COM 2517 06/02/94 08:35 am
- 15 file(s) 1350784 bytes
- @FREESPACE@ bytes free
diff --git a/text/menu/sdos/root.asc b/text/menu/sdos/root.asc
deleted file mode 100644
index f8896a1aa2cc846441300d9aeb92f1d4254d40e4..0000000000000000000000000000000000000000
--- a/text/menu/sdos/root.asc
+++ /dev/null
@@ -1,20 +0,0 @@
- Volume in drive C is BBS
- Volume Serial Number is 8317-6BE8
- Directory of C:\
-
-FILES <DIR> 08/01/94 02:34 pm
-MAIL <DIR> 08/01/94 02:34 pm
-SETUP EXE 54343 06/02/94 08:36 am
-CHAT EXE 102485 06/02/94 08:36 am
-AUTOMSG COM 894 06/04/94 04:55 pm
-DOORS EXE 326501 07/11/94 11:01 am
-GFILES EXE 31024 06/02/94 08:36 am
-LOGOFF COM 2193 05/22/94 04:27 pm
-NODES TXT 593 @LASTDATEON@ @LASTTIMEON@
-LOGON LST 1984 @LASTDATEON@ @LASTTIMEON@
-USERS LST 148394 @LASTDATEON@ @LASTTIMEON@
-SYSTEM NFO 733 04/01/94 06:30 am
-YOUR NFO 252 @LASTDATEON@ @LASTTIMEON@
-(SYSOP EXE 208419 01/01/80 00:00 am
-) 13 file(s) 1350784 bytes
- @FREESPACE@ bytes free
diff --git a/text/menu/sentmail.asc b/text/menu/sentmail.asc
deleted file mode 100644
index c6a942c0ba3987b8a9c605c8cfcd4bd1a8e43d4e..0000000000000000000000000000000000000000
--- a/text/menu/sentmail.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-0lnc4������������������������k�0
-4c� hyRead Sent Mail Menu nk4�0
-4c�k������������������������b0��������������������������
-�����
-� hy<CR> ngNext message�b� hyD ngDelete last message b�
-� hy- ngPrevious message b� hyR ngReread last message b�
-� hyL ngList messages b� hyE ngEdit last message b�
-� hy# ngGo to message # b� hyQ ngQuit to Main section b�
-���������������������������������������������������n
diff --git a/text/menu/sentmail.rip b/text/menu/sentmail.rip
deleted file mode 100644
index 3fe25f80ee522102cc9df841f70b21d1cad2a7c5..0000000000000000000000000000000000000000
--- a/text/menu/sentmail.rip
+++ /dev/null
@@ -1,13 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Reading Sent Mail<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2S0000<><>
-!|1B0000020QPC010E000F080900000000000000|Y00000100|1U0M161K1G0000<><CR><>^M
-!|1U0M1K1K1U0000<>-<>-|1U0M1Y1K280000<>L<>L
-!|1B0000020QPE010E000F080400000000000000|1U0M2C1K2M0000<>Q<>Q
-!|1B0000020QPC010E000F080900000000000000|1U961YA4280000<>#<>+
-!|1U9616A41G0000<>R<>R|1U961KA41U0000<>D<>D|c00|@1Y16Next Message
-!|@1Y1KPrevious Message|@1Y1YList Messages|@1Y2CQuit to Main Section
-!|@AK1YGo to Message #|@AK16Reread Last Message|@AK1KDelete Last Message
-!|w000G271610|10000$ETW$|#|#|#
-
diff --git a/text/menu/sentmail.wip b/text/menu/sentmail.wip
deleted file mode 100644
index 8e71d3444f732a4dde7e6953e48f08a0e4bee357..0000000000000000000000000000000000000000
--- a/text/menu/sentmail.wip
+++ /dev/null
@@ -1,29 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=4
-!|M=Reading Sent E-mail
-!|L=3885
-!|T=3960
-!|W=5550
-!|H=1470
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`-`10`10`40`40`1`Previous Message`0`12632256`MS Sans Serif`8.25``PREV.ICO
-!|002=0B`|M`60`10`40`40`2`Next Message`0`12632256`MS Sans Serif`8.25``NEXT.ICO
-!|003=0B`l`160`10`40`40`3``0`12632256`MS Sans Serif`8.25``LIST.ICO
-!|004=0B`r`110`10`40`40`4``0`12632256`MS Sans Serif`8.25``BACK.ICO
-!|005=0B`e`210`10`40`40`5`Reply to Last E-mail Message`0`12632256`MS Sans Serif`8.25``EDIT.ICO
-!|006=0B`q`310`10`40`40`7`Delete Last E-mail Message`0`12632256`MS Sans Serif`8.25``EXIT.ICO
-!|007=0B`d`260`10`40`40`7``0`12632256`MS Sans Serif`8.25``DELETE.ICO
-!|008=0T`prev`10`50`40`15`8``0`12632256`MS Sans Serif`8.25`Prev`1`0
-!|009=0T`Next`60`50`40`15`9``0`12632256`MS Sans Serif`8.25`Next`1`0
-!|010=0T`reread`110`50`40`15`10``0`12632256`MS Sans Serif`8.25`Again`1`0
-!|011=0T`list`160`50`40`15`11``0`12632256`MS Sans Serif`8.25`List`1`0
-!|012=0T`edit`210`50`40`15`12``0`12632256`MS Sans Serif`8.25`Edit`1`0
-!|013=0T`delete`260`50`40`15`13``0`12632256`MS Sans Serif`8.25`Delete`1`0
-!|014=0T`quit`310`50`40`15`14``0`12632256`MS Sans Serif`8.25`Quit`1`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/simple/filelist.asc b/text/menu/simple/filelist.asc
deleted file mode 100644
index 0b0e8f3654958aa1742603e59f4b9288b0c5a2b2..0000000000000000000000000000000000000000
--- a/text/menu/simple/filelist.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-nhm�nhc� nhySynchronet Listing Files nhc�
-�nhg2����������������������������������������ķ0
-nhm�nhg2� nhy2Anh2) All files in a directory nhg2�0
-nhm�nhg2� �0
-nhm�nhg2� nhy2Nnh2) New since @NEWFILETIME@ nhg2 �0
-nhm�nhg2� nhy2Snh2) Search for a filename nhg2�0
-nhm�nhg2� nhy2Fnh2) Find text in file descriptions nhg2�0
-nhm�nhg2� �0
-�nhg2� nhy2Qnh2) Quit to Main Menu nhg2�0
\ No newline at end of file
diff --git a/text/menu/simple/main.asc b/text/menu/simple/main.asc
deleted file mode 100644
index f399de8eaafdc1fc44c790b7e6d8df3ca867e878..0000000000000000000000000000000000000000
--- a/text/menu/simple/main.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-nh�nhc� nhySynchronet Main nhc�
-�nhg2����������������������������������������ķ0
-nh�nhg2� nhy2Fnh2)ile list nhy2Rnh2)ead messages/mail nhg2�0
-nh�nhg2� nhy2Dnh2)ownload file nhy2Snh2)end messages/mail nhg2�0
-�nhg2� nhy2Unh2)pload a file nhy2Lnh2)ist users online nhg2�0
-nh�nhg2� nhy2Qnh2)WK offline msgs nhy2Pnh2)age user nhg2�0
-nh�nhg2� �0
-nh�nhg2� nhy2Onh2)nline programs nhy2Cnh2)hat menu nhg2�0
-nh�nhg2� �0
-nh�nhg2� nhy2Anh2)ccount configuration nhg2�0
-�nhg2� nhy2Gnh2)ood-bye (hang-up) nhg2�0
\ No newline at end of file
diff --git a/text/menu/simple/prompt.ans b/text/menu/simple/prompt.ans
deleted file mode 100644
index c098e78e0e716f1bcb7b1b4dd2d183e129740c7f..0000000000000000000000000000000000000000
--- a/text/menu/simple/prompt.ans
+++ /dev/null
@@ -1,2 +0,0 @@
-�nhg2����������������������������������������Ķ
-�nhg2� n hg2 �[B[�nhg2����������������������������������������Ľ[A[[22CnmhCommand: n
\ No newline at end of file
diff --git a/text/menu/simple/prompt.asc b/text/menu/simple/prompt.asc
deleted file mode 100644
index e2f3b7e7907771044511df72a1af5d7e80ba48c0..0000000000000000000000000000000000000000
--- a/text/menu/simple/prompt.asc
+++ /dev/null
@@ -1,2 +0,0 @@
-�nhg2����������������������������������������Ľ
-� mhCommand: n
\ No newline at end of file
diff --git a/text/menu/simple/readmsg.asc b/text/menu/simple/readmsg.asc
deleted file mode 100644
index 73f3c6f4ebf65836b69dfbc0272a0642f6e07316..0000000000000000000000000000000000000000
--- a/text/menu/simple/readmsg.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-nhm�nhc� nhySynchronet Reading Messages nhc�
-�nhg2����������������������������������������ķ0
-nhm�nhg2� nhy2Enh2) Email TO: YOU nhy2Fnh2) Email FROM: YOU nhg2�0
-nhm�nhg2� �0
-nhm�nhg2� nhy2Bnh2) Bulletins nhg2�0
-nhm�nhg2� nhy2Anh2) All messages in a conference nhg2�0
-nhm�nhg2� nhy2Nnh2) New messages in all conferences nhg2�0
-nhm�nhg2� nhy2Ynh2) New messages TO: YOU in all conf's nhg2�0
-nhm�nhg2� nhy2Cnh2) Configure new message scan nhg2�0
-nhm�nhg2� �0
-�nhg2� nhy2Qnh2) Quit to Main Menu nhg2�0
\ No newline at end of file
diff --git a/text/menu/simple/sendmsg.asc b/text/menu/simple/sendmsg.asc
deleted file mode 100644
index f0914a8b43ddd18855fc5a4ad65310b06e3056cb..0000000000000000000000000000000000000000
--- a/text/menu/simple/sendmsg.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-nhm�nhc� nhySynchronet Sending Messages nhc�
-�nhy2����������������������������������������ķ0
-nhm�nhy2� Enh2) Send Email nhy2Nnh2) Send Netmail nhy2�0
-nhm�nhy2� �0
-nhm�nhy2� Pnh2) Post a message in a conference nhy2�0
-nhm�nhy2� �0
-nhm�nhy2� Qnh2) Quit to Main Menu nhy2�0
\ No newline at end of file
diff --git a/text/menu/sysmailr.asc b/text/menu/sysmailr.asc
deleted file mode 100644
index 0c92196b89019845fe0de2a1dab7df9d98cafa8b..0000000000000000000000000000000000000000
--- a/text/menu/sysmailr.asc
+++ /dev/null
@@ -1,4 +0,0 @@
-nk4������������������������������������������������������������������������������c�0
-4k� hyS n4Save/Append last message to file hyU n4Edit author of last message c�0
-4k� hyC n4Change attributes of last message hyP n4Purge author of last message c�0
-4k�c������������������������������������������������������������������������������n
diff --git a/text/menu/sysmain.asc b/text/menu/sysmain.asc
deleted file mode 100644
index 9bda1e705309765e8812ddcde5ba8d68d33af700..0000000000000000000000000000000000000000
--- a/text/menu/sysmain.asc
+++ /dev/null
@@ -1,22 +0,0 @@
-0l�nhSynchronet Sysop Main Menu
- b(All commands preceeded by a 'w;b')�(Optional parameters shown in m[]b)
- (Required parameters shown in r<>b)�(Required exemptions shown in y()b)
-
-yNode Display/Control:�Editing:
-wNODE m[args] cNode Utility�wUEDIT m[user] cEdit User Account
-wDOWN r<nodes> cToggle Down Flag�wEDIT�cEdit Text/MSG File
-wLOCK r<nodes> cLock/Unlock m(N)
-wINTR r<nodes> cToggle Interrupt m(I)�yViewing:
-wANON�cToggle Anonymous m(Q)�wLIST m[file] cView Text/ANSI/MSG File
-wQUIET�cToggle Quiet�m(Q)�wLOG�cToday's Log
-�wYLOG�cYesterday's Log
-yMiscellaneous:�wNS m[node]�cNode Statistics
-wCHUSER�cChange into Another User wSS�cSystem Statistics
-wBULKMAIL�cSend Bulk E-mail�wNLOG�cNode Statistics Log
-wSHELL�cOS Command Shell�wSLOG�cSystem Statistics Log
-wCALL r<hub> cForce QWKnet Call-out�wERR�cCritical Error Log
-wCHAT�cPage sysop m(C)�wGURU�cDiscussions w/The Guru
-wLOAD r<file> cLoad alternate text.dat wMAIL�cAll Mail on System
-wEXEC r<cmd> cExecute DOS Program�wSPY m[node] cSpy/control Node
-wEXEC *r<mod> cExecute Baja Module
-wFOSSIL r<cmd> cExecute FOSSIL Program
diff --git a/text/menu/sysmscan.asc b/text/menu/sysmscan.asc
deleted file mode 100644
index 16846c01a321ffd3775f71b9bc56bcde40df2bb5..0000000000000000000000000000000000000000
--- a/text/menu/sysmscan.asc
+++ /dev/null
@@ -1,15 +0,0 @@
-nlc4����������������������������k�0
-4c� hySub-board Operator Menu nk4�0
-4c�k����������������������������b0�������
-���
-� hyC ngChange Message Attributes�b�
-� hyE ngEdit Message Text�b�
-� hyH ngView Message Header�b�
-� hyM ngMove Message to Another Sub b�
-� hyS ngSave Message to Text File�b�
-� hyU ngEdit Author's User Account�b�
-� hyP ngPurge Author's User Account b�
-� hyV ngValidate Previous Message�b�
-������������������������������������
-� hyQ ngQuit back to Main menu�b�
-������������������������������������n
diff --git a/text/menu/syssmail.asc b/text/menu/syssmail.asc
deleted file mode 100644
index b2484e597e4fa0501ee92a002f8aad2934edbe64..0000000000000000000000000000000000000000
--- a/text/menu/syssmail.asc
+++ /dev/null
@@ -1,3 +0,0 @@
-nk4������������������������������������������������������������������������������c�0
-4k� hwE n4Edit Last Message c�0
-4k�c������������������������������������������������������������������������������n
diff --git a/text/menu/sysxfer.asc b/text/menu/sysxfer.asc
deleted file mode 100644
index 895c330e0c149f0559a6727a652655433165a84e..0000000000000000000000000000000000000000
--- a/text/menu/sysxfer.asc
+++ /dev/null
@@ -1,15 +0,0 @@
- Synchronet Sysop Transfer Menu
- (All commands are preceeded by a ';')
-
-PUT [s] Direct upload file s to any drive or directory (remote)
-GET [s] Direct download file s from any drive or directory (remote)
-OLD * Remove, Edit, or Move files not downloaded since new-scan date
-OLDUL * Remove, Edit, or Move files uploaded before new-scan date
-CLOSE * Search for and optionally close open file records
-ALTUL [x] Perform uploads using alternate file path number x
-UPLOAD * Bulk local upload - add files on disk to database
-RESORT * Re-sort files by sort value and compress empty slots
-OFFLINE * Remove, Edit, or Move files in database that aren't on disk
-
-* Commands can be followed by LIB or ALL to specify the action to take place
-on all directories of the current library, or all directories in all libraries.
diff --git a/text/menu/tempxfer.asc b/text/menu/tempxfer.asc
deleted file mode 100644
index dbf5a8fa465a49a1934da62d3fc5cfa11b406cb4..0000000000000000000000000000000000000000
--- a/text/menu/tempxfer.asc
+++ /dev/null
@@ -1,14 +0,0 @@
-0lnc4������������������������������k�0
-4c� hyTemp Directory Command Menu nk4�0
-4c�k������������������������������0
-4b0����������������hw4Extract from Archive nb������������������hw4Other Commands nb������
-�����
-� hyE ngExtract from archive in any directory�b� hyL ngList files in temp dir b�
-� hyX ngExtract from archive in temp directory�b������������������������������
-��� hyI ngInformation on files�b�
-�������hw4Create Listnb�����������4 hwTemp Archive nb����� hyV ngView archive contents b�
-����� hyR ngRemove files from temp b�
-� hyN ngList of new files b� hyA ngCreate/add to archive b������������������������������
-� hyF ngList of all files b� hyD ngDownload temp archive b� hyQ ngQuit to transfer menu b�
-�������
-4 hyAnytime: cCtrl-U nc4Who's online hCtrl-P nc4Send private msg hCtrl-C nc4Abort cmd/text n
diff --git a/text/menu/tempxfer.rip b/text/menu/tempxfer.rip
deleted file mode 100644
index d246bb9210b84abd9c65c9e4664de4227788584e..0000000000000000000000000000000000000000
--- a/text/menu/tempxfer.rip
+++ /dev/null
@@ -1,17 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Temp Directory<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL3K0000<><>
-!|1B0000020QPC010E000F080100000000000000|Y00000100|1U0M161K1G0000<>E<>E
-!|1U0M1K1K1U0000<>N<>N|1U0M1Y1K280000<>F<>F|1U0M2C1K2M0000<>A<>A
-!|1U0M2Q1K300000<>D<>D|1B0000020QPE010E000F080400000000000000
-!|1U0M341K3E0000<>Q<>Q|1B0000020QPC010E000F080100000000000000
-!|1U9616A41G0000<>I<>I|1U961KA41U0000<>V<>V|1U961YA4280000<>L<>L
-!|1U962CA42M0000<>X<>X|1U962QA4300000<>R<>R|c00|@1Y16Extract from an Archive
-!|@1Y1KCreate a List of New Files|@1Y1YCreate a List of All Files
-!|@1Y2CAdd to/Create Temp Archive|@1Y2QDownload Temp Archive
-!|@1Y34Quit to the Transfer Section|@AK1YList Files in Temp Directory
-!|@AK16Information on Files|@AK1KView Contents in Archives
-!|@AK2CExtract From Archive in Temp|@AK2QRemove Files from Temp|w000G271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/transfer.asc b/text/menu/transfer.asc
deleted file mode 100644
index 416807d7fc13f4b9361b9fd66fb536d3627f3bf0..0000000000000000000000000000000000000000
--- a/text/menu/transfer.asc
+++ /dev/null
@@ -1,19 +0,0 @@
-0lnc4��������������������������������k�0
-4c� hySynchronet File Transfer Menu nk4�0
-4c�k��������������������������������0
-4b0�����4 hwList/Flag Files nb�������4 hwFile Area Selection nb���������4 hwFile Search nb������
-�������
-� hyL ngList files in dir�b� hyJ ngJump to new file area b� hyF ngFind text in descrp b�
-� hyN ngNew file scan�b��������������������������� hyS ngSearch for filename b�
-� hyE ngExtended file info b��hy* ngList directories b���
-����hy/* ngList libraries b������4 hwOther Commands nb�����
-�����4 hwUpload/Download nb����� hy{ } # ngSelect directory b���
-��� hy[ ] /# ngSelect library b� hy& ngFile scan config�b�
-� hyD ngDownload file�b��� hyR ngRemove/edit file�b�
-� hyU ngUpload file�b����������4 hwGo to nb���������� hyI ngInformation�b�
-� hy/D ngDownload from user b��� hyV ngView file contents b�
-� hy/U ngUpload to user�b� hyQ ngMain/Message section b� hy/L ngNode activity�b�
-� hyZ ngUpload to sysop�b� hyC ngChat section�b� hy^K ngCtrl-key menu�b�
-� hyB ngBatch/Bi-dir xfers b� hyT ngTemp dir/Archive cmds b� hyO ngLogoff BBS (or /O) b�
-�������
-4 hyAnytime: cCtrl-U nc4Who's online hCtrl-P nc4Send private msg hCtrl-C nc4Abort cmd/text n
diff --git a/text/menu/transfer.rip b/text/menu/transfer.rip
deleted file mode 100644
index 1501d23d4be84fc7b21a22ac9883f1a8bf6900bd..0000000000000000000000000000000000000000
--- a/text/menu/transfer.rip
+++ /dev/null
@@ -1,37 +0,0 @@
-
-!|1K|w0010271610|W00|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Synchronet File Transfer Menu<>
-!|1B0000020PWW050E000F080700000000000000|1U0710HL7T0000<><>|c00|Y00000100
-!|1B0000020QPI010E000F080900000000000000|1U0Y1E1W1O1600<>*<>*
-!|1U0Y1S1W221T00<> A <>/*|1U0Y261W2G2400<>L<>L|1U0Y2K1W2U1X00<>E<>E
-!|1U0Y2Y1W382E00<>V<>V|1U0Y3C1W3M2600<>N<>N|1U0Y3Q1W402BY0<>S<>S
-!|1U0Y441W4E1Y00<>F<>F|1U0Y4I1W4S2100<>I<>I|1U0Y4W1W560000<> /L <>/L
-!|1U0Y5A1W5K2200<>J<>J|1B0000020QPI010E000F080100000000000000
-!|1U0Y6G1W6Q2C00<>T<>T|1U0Y6U1W741V00<>C<>C
-!|1B0000020QPI010E000F080400000000000000|1U0Y781W7I2900<>Q<>Q
-!|1B0000020QPI010E000F080300000000000000|1U8W1E9U1O1200<>&<>&
-!|1U8W1S9U222A00<> R <>R|1B0000020QPE010E000F080300000000000000
-!|1U8W269U2G2700<>O<>O$MKILL$|1B0000020QPI010E000F080300000000000000
-!|1U8W2K9U2U0L00<> ^U <>^U|1U8W2Y9U380G00<> ^P <>^P|1U8W3C9U3M0B00<> ^K <>^K
-!|1B0000020QPE010E000F080C00000000000000|1U7U3Y8S483G00<>{<>{
-!|1U8W3Y9U483I00<>}<>}|1U7U4C8S4M2K00<>[<>[|1U8W4C9U4M2M00<>]<>]
-!|1B0000020QPI010E000F080200000000000000|1U8W5A9U5K1W00<> D <>D
-!|1U8W5O9U5Y0000<> /D <>/D|1U8W629U6C1U00<>B<>B|1U8W6G9U6Q2D00<>U<>U
-!|1U8W6U9U740000<> /U <>/U|1U8W789U7I2I00<>Z<>Z|@2S11Listing Functions|c0F
-!|@2T12Listing Functions|c00|@B111Control Functions|c0F|@B212Control Functions
-!|c00|@2N62Other Sections|c0F|@2O63Other Sections|c00|@B44VTransfer Functions
-!|c0F|@B54WTransfer Functions|c00|@281EDirectories within Library
-!|@281SFile Libraries|@2826Files in Current Directory
-!|@282KExtended File Information|@282YView Contents of File|@283CNew File Scan
-!|@283QSearch for Filename|@2844Find Text in Description
-!|@284IInformation Commands|@284WList All Nodes|@285AJump to a File Area
-!|@286GTemp Dir/Archive Commands|@286UChat Commands|@2878Quit to Main Menu
-!|@AA1EConfiguration Commands|@AA1SRemove/Edit File, Any Directory
-!|@AA26Logoff (also /O)|@AA2KList Users Online (Anywhere)
-!|@AA2YSend Message to Another Node|@AA3CControl Key Command Menu
-!|@AA3YChange Directory, or Type Number|@A94BChange Library, or Type /Number
-!|@AA5ADownload File from Any Directory|@AA5ODownload User to User
-!|@AA62Batch/Bidirectional|@AA6GUpload File to Current Directory
-!|@AA6UUpload File User to User|@AA78Upload File to Sysop Directory|10000$ETW$
-!|#|#|#
-
diff --git a/text/menu/uedit.asc b/text/menu/uedit.asc
deleted file mode 100644
index 1ccf24a2b8bd82a580611b4dad2f72de8f995c27..0000000000000000000000000000000000000000
--- a/text/menu/uedit.asc
+++ /dev/null
@@ -1,21 +0,0 @@
- yh��� wUser Edit Menu y���
-�����������������������������������������������������������������������������Ŀ
-� wA bAlias and Handle wS bSex (Gender) y�
-� wB bBirthday wT bSet Text Search String y�
-� wC bComputer wU bUpload and Download Stats y�
-� wD bDelete/Deactivate/Restore wV bQuick-Validate User y�
-� wE bExemptions wW bPassword y�
-� wF bFlags wX bView Extended Comment y�
-� wG bGo to a User wY bCopy User to Another Slot y�
-� wH bEdit/Create Extended Comment wZ bRestrictions y�
-� wI bInspect/Edit User's Defaults w] bGo Up One User y�
-� wJ bEdit Minutes w[ bGo Down One User y�
-� wK bEdit Dates w} bSearch Up (Text or ARS) y�
-� wL bLocation, Address, and Zip Code w{ bSearch Down (Text or ARS) y�
-� wM bMain Security Level w/ bSet AR String for Search y�
-� wN bNote w~ bSet Leech Download Counter y�
-� wO bComment w+ bAdjust Credits y�
-� wP bPhone Number w* bAdjust Minutes y�
-� wQ bQuit w$ bEdit Credits y�
-� wR bReal Name w# bView User Questionnaire y�
-�������������������������������������������������������������������������������
diff --git a/text/menu/wfc.asc b/text/menu/wfc.asc
deleted file mode 100644
index 5ab9a55135fac81d2763e3ed0dbfaa72dfbd1ba8..0000000000000000000000000000000000000000
--- a/text/menu/wfc.asc
+++ /dev/null
@@ -1,3 +0,0 @@
-�nc4�������������������������������k�0
-47������������������������c4� hSynchronet Multinode BBS nk4�7�����������������������hw�nk7� c4� hyWaiting for Call nk4�7 hw�nk7� c4�k�������������������������������7 hw�nk7� hw�nk7� hw����nk7� hw����nk7� hw����nk7� hw�nk7� hw� yL nk7� bToday's caller log hw� yC nk7� bConfigure BBS hw� yM nk7� bRead all mail hw�nk7� hw�nk7���� hw�nk7���� hw�nk7���� hw�nk7� hw����nk7� hw����nk7� hw����nk7� hw�nk7� hw� yY nk7� bYesterday's log hw� yU nk7� bUser editor hw� yR nk7� bRead feedback hw�nk7� hw�nk7���� hw�nk7���� hw�nk7���� hw�nk7� hw����nk7� hw����nk7� hw����nk7� hw�nk7� hw� yN nk7� bNode statistics hw� yT nk7� bTerminal mode hw� yE nk7� bSend mail/netmail hw�nk7� hw�nk7���� hw�nk7���� hw�nk7���� hw�nk7� hw����nk7� hw����nk7� hw����nk7� hw�nk7� hw� yS nk7� bSystem statistics hw� yD nk7� bDOS shell hw� yX nk7� bQuit (on-hook) hw�nk7� hw�nk7���� hw�nk7���� hw�nk7���� hw�nk7� hw����nk7� hw����nk7� hw����nk7� hw�nk7� hw� yA nk7� bForce answer hw� yF nk7� bForce QWKnet hw� yQ nk7� bQuit (off-hook) hw�nk7� hw�nk7���� hw�nk7���� hw�nk7���� hw�nk7� hw�nk7� c4�������������������������k�7 hw�nk7�hw��������������������������nc4� hySpace Bar n4to logon k�hw7���������������������������nk.�c4�k�������������������������0
-g0Synchronet BBS Version 2�(C) 1995 Digital Dynamicsn
\ No newline at end of file
diff --git a/text/menu/wildcat/file.asc b/text/menu/wildcat/file.asc
deleted file mode 100644
index 7a12f146af960c5d24a8896c141be29e4a0a3c74..0000000000000000000000000000000000000000
--- a/text/menu/wildcat/file.asc
+++ /dev/null
@@ -1,20 +0,0 @@
-0
-nh�nh��������������������������������������������������Ŀ
-�� ���ķ��ķ�ķ��
-�� ��� � � ��ķ ��ķ � �� � ��ķ ��ķ � � �
-�� � � � ��� ��ķ � ӽ � ��� � � � � �
-�� � � ��Ľ ��Ľ ��Ľ � � ��Ľ � � ��Ľ �
-����������������������������������������������������������������Ĵn���nh����������
-nhg��������������nh��nhySynchronet Wildclone�nh�ng���nhg����������
-nhy��������������nh����������������������������������������������������n���nhy����������
-nhc������������������nc���������������������������������������������������nhc����������
-nhb���nh��������������������Ŀnhb�nh�������������������������Ŀnhb�nh��������������������Ŀnb���
-nh��ܳ nhyQ nhuit to Main��ܳ nhyL nhist Available Files �ܳ nhyD nhownload a File �n���
-nhg���nh� nhyU nhpload a File��nhg�nh� nhyN nhew Files Since [N] �nhg�nh� nhyV nhiew a ZIP File �ng���
-nhy���nh� nhyM nhessage Menu��nhy�nh� nhyS nhearch for Files��nhy�nh� nhyG nhoodbye & Logoff �n���
- nh� nhyI nhnfo on a File � � nhyJ nhoin a Conference�� � nhyP nhersonal Stats �
- � nhyE nhdit Marked List � � nhyF nhile Transfer Info�� � nhyH nhelp Level��
- ���������������������� ��������������������������� ����������������������
- (nhy1 nhSysop Menu )
-nhyConference: nh@LIB@ @DIR@ nhyTime On: nh@TIMEON@ nhyTime Remaining: nh@LEFT@
-n
\ No newline at end of file
diff --git a/text/menu/wildcat/main.asc b/text/menu/wildcat/main.asc
deleted file mode 100644
index 9c17a85ced5869820a2bcce2a1dc6f2baebc2dcb..0000000000000000000000000000000000000000
--- a/text/menu/wildcat/main.asc
+++ /dev/null
@@ -1,20 +0,0 @@
-0
-nh�nh��������������������������������������������������Ŀ
-�� �ķ�ķ��ķ�ķ��
-�� � �� � ��ķ � ��ķ � �� � ��ķ ��ķ � � �
-�� � ӽ � ��Ķ � � � � ӽ � ��� � � � � �
-�� � � � � � � � � � ��Ľ � � ��Ľ �
-����������������������������������������������������������������Ĵn���nh����������
-nhg��������������nh��nhySynchronet Wildclone�nh�ng���nhg����������
-nhy��������������nh����������������������������������������������������n���nhy����������
-nhc������������������nc���������������������������������������������������nhc����������
-nhb���nh������������������Ŀnhb�nh�������������Ŀnhb�nh�������������Ŀnhb�nh������������������Ŀnb���
-nh��ܳ nhyM nhessage Menu �ܳ nhyE nhmail��ܳ nhyU nhser List �ܳ nhyA nhuto-message �n���
-nhg���nh� nhyC nhomments��nhg�nh� nhyN nhewsletter �nhg�nh� nhyF nhiles Menu �nhg�nh� nhyT nhalk to Nodes �ng���
-nhy���nh� nhyJ nhoin Conference �nhy�nh� nhyG nhoodbye �nhy�nh� nhyP nhage Sysop �nhy�nh� nhyI nhnitial Welcome �n���
- nh� nhyY nhour Settings � � nhyW nhhos Online� � nhyV nherify User� � nhyR nhead Your Stats �
- � nhyS nhystem Stats � � nhyB nhulletins � � nhyD nhoors�� � nhyH nhelp Level��
- �������������������� ��������������� ��������������� ��������������������
-� (nhy1 nhSysop Menu )
- nhyConference: nh@CONF@ nhyTime On: nh@TIMEON@ nhyTime Remaining: nh@LEFT@
-n
\ No newline at end of file
diff --git a/text/menu/wildcat/msg.asc b/text/menu/wildcat/msg.asc
deleted file mode 100644
index 4405ba83e05520dfedae449c98737afb5bf2ff85..0000000000000000000000000000000000000000
--- a/text/menu/wildcat/msg.asc
+++ /dev/null
@@ -1,18 +0,0 @@
-0
-nh�nh��������������������������������������������������������������Ŀ
-�� �ķ�ķ��ķ�ķ��
-�� � �� � ��ķ ��ķ ��ķ ��ķ ��ķ ��ķ � �� � ��ķ ��ķ � � �
-�� � ӽ � ��� ��ķ ��ķ ��Ķ � ķ ��� � ӽ � ��� � � � � �
-�� � � ��Ľ ��Ľ ��Ľ � � ��Ľ ��Ľ � � ��Ľ � � ��Ľ �
-����������������������������������������������������������������������Ĵn���nh����
-nhg��������nh��nhySynchronet Wildclone�nh�ng���nhg����
-nhy��������nh����������������������������������������������������������������n���nhy����
-nhc������������nc���������������������������������������������������������������nhc����
-nhb���nh��������������������Ŀnhb�nh�������������������������Ŀnhb�nh��������������������Ŀnb���
-nh��ܳ nhyR nhead Messages��ܳ nhyE nhnter a New Message �ܳ nhyF nhiles Section��n���
-nhg���nh� nhyS nhearch Messages �nhg�nh� nhyQ nhuit to Main Menu��nhg�nh� nhyG nhoodbye & Logoff �ng���
-nhy���nh� nhyC nhheck Personal Msg�nhy�nh� nhyU nhpdate Conf Scan/Read �nhy�nh� nhyH nhelp Level��n���
- nh� nhyJ nhoin a Conference � � nhyT nhQWK Message Menu�� � nhy? nhCommand Help��
- ���������������������� ��������������������������� ����������������������
- (nhy1 nhSysop Menu )
- nhyConference: nh@CONF@ nhyTime On: nh@TIMEON@ nhyTime Remaining: nh@LEFT@n
diff --git a/text/menu/wildcat/sysop.asc b/text/menu/wildcat/sysop.asc
deleted file mode 100644
index ce3537ade8f8ae11f9392c9fbaba4d19bba25cec..0000000000000000000000000000000000000000
--- a/text/menu/wildcat/sysop.asc
+++ /dev/null
@@ -1,16 +0,0 @@
-�nh����������������������������������������������������Ŀ
-�� ���ķ��ķ�ķ��
-�� ���ķ � � ��ķ ��ķ ��ķ � �� � ��ķ ��ķ � � �
-���� ��Ľ ��ķ � � ��Ľ � ӽ � ��� � � � � �
-�� ���Ľ � ��Ľ ��Ľ ��� � ��Ľ � � ��Ľ �
-�����������������������������������������������������������������Ĵn���nh���������
-nhg�������������nh��nhySynchronet Wildclone�nh�ng���nhg���������
-nhy�������������nh������������������������������������������������������n���nhy���������
-nhc�����������������nc���������nh�������������������������Ŀnc�����������������nhc���������
-nhb���nh��������������������Ŀnhb�nh� nhyJ nhoin Conference��nhb�nh��������������������Ŀnb���
-nh��ܳ nhyU nhser Database��ܳ nhyQ nhuit to Main Menu��ܳ nhy? nhCommand Help��n���
-nhg���nh� nhyN nhode Management �nhg�nh� nhyA nhctivity Log Listing �nhg�nh� nhy1 nhMessage Menu��ng���
-nhy���nh� nhyD nhrop to DOS��nhy�nh� nhy2 nhFile Menu��nhy�nh� nhyG nhoodbye & Logoff �n���
- nh���������������������� ��������������������������� ����������������������
- nhyConference: nh@CONF@ nhyTime On: nh@TIMEON@ nhyTime Remaining: nh@LEFT@
-n
\ No newline at end of file
diff --git a/text/menu/wipfile.wip b/text/menu/wipfile.wip
deleted file mode 100644
index 76ad5bc648e13a5dde42241040a041b1558cbe3f..0000000000000000000000000000000000000000
--- a/text/menu/wipfile.wip
+++ /dev/null
@@ -1,27 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=File Transfers
-!|L=2055
-!|T=360
-!|W=5175
-!|H=4725
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`d`10`10`100`60`1`Read/Write E-mail Messages`0`12632256`MS Sans Serif`8.25`Download`SAVE.ICO
-!|002=0B`l`120`10`100`60`2``0`12632256`MS Sans Serif`8.25`List Files`LIST.ICO
-!|003=0B`u`230`10`100`60`3``0`12632256`MS Sans Serif`8.25`Upload`ADD.ICO
-!|004=0B`b`10`80`100`60`4``0`12632256`MS Sans Serif`8.25`Batch Queue`DOWNLOAD.ICO
-!|005=0B`n`120`80`100`60`5``0`12632256`MS Sans Serif`8.25`New Files`DONE.ICO
-!|006=0B`c`230`80`100`60`6``0`12632256`MS Sans Serif`8.25`Setup`DETAIL.ICO
-!|007=0B`v`10`150`100`60`7``0`12632256`MS Sans Serif`8.25`View File`PCAL.ICO
-!|008=0B`s`120`150`100`60`8``0`12632256`MS Sans Serif`8.25`Find Filename`FIND.ICO
-!|009=0B`e`230`150`100`60`9``0`12632256`MS Sans Serif`8.25`File Info`NOTEPAD.ICO
-!|010=0B`r`10`220`100`60`10``0`12632256`MS Sans Serif`8.25`Remove File`CANCEL.ICO
-!|011=0B`f`120`220`100`60`11``0`12632256`MS Sans Serif`8.25`Find Text`SEARCH.ICO
-!|012=0B`q`230`220`100`60`12``0`12632256`MS Sans Serif`8.25`Quit`EXIT.ICO
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/wipmain.wip b/text/menu/wipmain.wip
deleted file mode 100644
index 07f2b70992206efd8fba13047c3d27f328f630ab..0000000000000000000000000000000000000000
--- a/text/menu/wipmain.wip
+++ /dev/null
@@ -1,33 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=15
-!|M=Main Menu
-!|L=570
-!|T=3855
-!|W=8400
-!|H=1650
-!|B=12632256
-!|
-!|[Form]
-!|001=0B`e`10`10`50`50`1`Read/Write E-mail Messages`0`12632256`MS Sans Serif`8.25``EDIT.ICO
-!|002=0B`f`70`10`50`50`2`File Transfers (Upload/Download)`0`12632256`MS Sans Serif`8.25``DOWNLOAD.ICO
-!|003=0B`c`130`10`50`50`3``0`12632256`MS Sans Serif`8.25``ORDER.ICO
-!|004=0B`m`190`10`50`50`4``0`12632256`MS Sans Serif`8.25``NEWS.ICO
-!|005=0B`s`250`10`50`50`5``0`12632256`MS Sans Serif`8.25``MMD.ICO
-!|006=0B`i`310`10`50`50`6``0`12632256`MS Sans Serif`8.25``INFO.ICO
-!|007=0B`x`370`10`50`50`7`Run External Programs (doors)`0`12632256`MS Sans Serif`8.25``WELCOME.ICO
-!|008=0B`d`430`10`50`50`8``0`12632256`MS Sans Serif`8.25``DETAIL.ICO
-!|009=0B`o`490`10`50`50`9``0`12632256`MS Sans Serif`8.25``EXITSGN.ICO
-!|010=0T`email`10`60`50`15`10``0`12632256`MS Sans Serif`8.25`E-mail`1`0
-!|011=0T`files`70`60`50`15`11``0`12632256`MS Sans Serif`8.25`Files`1`0
-!|012=0T`chat`130`60`50`15`11``0`12632256`MS Sans Serif`8.25`Chat`1`0
-!|013=0T`msgs`190`60`50`15`12``0`12632256`MS Sans Serif`8.25`Msgs`1`0
-!|014=0T`match`250`60`50`15`13``0`12632256`MS Sans Serif`8.25`Match`1`0
-!|015=0T`info`310`60`50`15`14``0`12632256`MS Sans Serif`8.25`Info`1`0
-!|016=0T`doors`370`60`50`15`16``0`12632256`MS Sans Serif`8.25`Doors`1`0
-!|017=0T`config`430`60`50`15`17``0`12632256`MS Sans Serif`8.25`Setup`1`0
-!|018=0T`logoff`490`60`50`15`18``0`12632256`MS Sans Serif`8.25`Logoff`1`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/menu/wwiv/credits.txt b/text/menu/wwiv/credits.txt
deleted file mode 100644
index 466bd52d5049bba110d12d1693c1514ad64da5ed..0000000000000000000000000000000000000000
--- a/text/menu/wwiv/credits.txt
+++ /dev/null
@@ -1,9 +0,0 @@
- These files will allow you to add WWIV to your command shells. Create
-a WWIV subdirectory in your \SBBS\TEXT\MENU directory and put all of the .ASC
-files in it. Put the WWIV.SRC file in your \SBBS\EXEC dir and compile it with
-the command BAJA WWIV. Go into SCFG, select Command Shells, hit the <ins>
-key, type in WWIV, and save the changes. You also need to have Synchronet BBS
-List installed with the internal code of SBL, I don't know what it will do if
-someone tries to hit the BBS List key and it's not installed. If you have any
-problems or have comments, I can be reached either at my BBS, The Matrix, at
-(804) 323-6635 or through FidoNet as Kitsune@1:264/227.
diff --git a/text/menu/wwiv/main.asc b/text/menu/wwiv/main.asc
deleted file mode 100644
index 81f5f4e93b3fef0654747370a0e5f19092e2e37f..0000000000000000000000000000000000000000
--- a/text/menu/wwiv/main.asc
+++ /dev/null
@@ -1,2 +0,0 @@
-�nh4 WWIV Main Menu 0
-nhb������������������������������������������������������������������������������ͻ����nh4nh4 nh4Miscellaneous nhb��������nh4nh4 nh4System Features nhb�������nh4nh4 nh4Message Base Commands nhb����Ķ�nhcA nhyAuto Message�nhb�nhcE nhyE-Mail Menu�nhb�nhcN nhyNew Message Scan�nhb��nhcL nhyBBS List�nhb�nhcD nhyDefault Section�nhb�nhcP nhyPost Message�nhb��nhcI nhySystem Info�nhb�nhcG nhyText File Section nhb�nhcQ nhyQuick Scan Current Msg Base nhb��nhcO nhyLog Off�nhb�nhcT nhyTransfer Area�nhb�nhcS nhyScan Current Message Base nhb��nhc/O nhyFast Logoff�nhb�nhc. nhyOn-Line Programs nhb�nhcZ nhyScan New Messages Non-Stop nhb��nhcU nhyUser List�nhb�nhcM nhyQWK Mail Packer�nhb�nhc* nhyList Msg Base Titles�nhb������nh4nh4 nh4Message Scansnhb���Ĵnhc& nhyMessage Base Config nhb�nhc/* nhyList Msg Area Titles�nhb��nhcY nhyScan for Your Msgs nhb�nhcC nhyChat Area�nhb�nhc} nhyMove One Msg Base Higher nhb��nhcF nhyFind Text in Msgs nhb�nhcJ nhyJump to Msg Base nhb�nhc] nhyMove One Msg Area Higher nhb�����������������������Ĵnhc$ nhyTime/Credit Bank nhb�nhc{ nhyMove One Msg Base Lower�nhb�� nhcCTRL-U nhyWho's Online nhb�����������������������Ĵnhc[ nhyMove One Msg Area Lower�nhb�� nhcCTRL-P nhyPage/Send Message to Another User nhb�nhc# nhyEnter number of Msg Base nhb�� nhcCTRL-C nhyAbort Command/Menu�nhb�nhc/# nhyEnter Number of Msg Area nhb�������������������������������������������������������������������������������ͼn
\ No newline at end of file
diff --git a/text/menu/wwiv/transfer.asc b/text/menu/wwiv/transfer.asc
deleted file mode 100644
index 8e4920fc73bf7e234b7b1550619b93a92547b534..0000000000000000000000000000000000000000
--- a/text/menu/wwiv/transfer.asc
+++ /dev/null
@@ -1,2 +0,0 @@
-�nh4 WWIV Transfer Menu 0
-ng����������ng4 nh4File Transfers ng�����������������������ng4 nh4File Searches ng��������������ķ� nhbD nhc> nhyDownload a File�ng� nhbF nhc> nhySearch by File Description�ng�� nhbR nhc> nhyRemove a File You Uploaded�ng� nhbS nhc> nhySearch by File Name�ng�� nhbU nhc> nhyUpload a File�ng� nhbL nhc> nhyList Files - Current Directory�ng�� nhbZ nhc> nhyUpload a File to Sysop�ng� nhbN nhc> nhyList all New Files�ng�� nhbE nhc> nhyExtended File Info�ng� nhb* nhc> nhyList all Directories in Library ng�� nhbB nhc> nhyBatch Download/Upload�ng�nhb/* nhc> nhyList all Libraries�ng��nhb/D nhc> nhyDownload from user�ng� nhb# nhc> nhySelect Directory�ng��nhb/U nhc> nhyUpload to User�ng�nhb/# nhc> nhySelect Library�ng�����������ng4 nh4Miscellaneous ng������������Ķ nhb> nhc> nhyMove Forward One Directory�ng�� nhbC nhc> nhyChat Menu�ng� nhb+ nhc> nhyMove Forward One Directory�ng�� nhbO nhc> nhyLog Off�ng� nhb] nhc> nhyMove Forward One Library�ng��nhb/O nhc> nhyFast Log Off�ng� nhb< nhc> nhyMove Backward One Directory�ng�� nhbP nhc> nhySet New Search Date�ng� nhb- nhc> nhyMove Backward One Directory�ng�� nhbQ nhc> nhyQuit to Main Menu�ng� nhb[ nhc> nhyMove Backward One Library�ng�� nhbT nhc> nhySet Transfer Options�ng� nhbJ nhc> nhyJump to New File Area�ng�� nhbY nhc> nhyYour Transfer Stats�ng����������������������������������������Ķ����������ng4 nh4Archive Commands ng���������Ķ nhcCtrl U - Who's Online�ng�� nhbV nhc> nhyList Files in Archive�ng� nhcCtrl P - Send Private Message�ng�� nhbG nhc> nhyAccess Archive Command Menu�ng� nhcCtrl K - Ctrl-key Menu�ng�������������������������������������������������������������������������������Ľ
\ No newline at end of file
diff --git a/text/menu/xfercfg.asc b/text/menu/xfercfg.asc
deleted file mode 100644
index dd85dbbf4cfb03e3f3065d0fa4a694c98639f97f..0000000000000000000000000000000000000000
--- a/text/menu/xfercfg.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-0lnc4��������������������������k�0
-4c� hyFile Scan Configuration nk4�0
-4c�k��������������������������b0������������
-���
-� hyP ngSet new-scan pointer �b�
-��hy0B ngToggle batch file flagging on/off b�
-� hyE ngToggle extended descriptions b�
-� hyQ ngQuit to File Transfer menu�b�
-���������������������������������������n
diff --git a/text/menu/xfercfg.rip b/text/menu/xfercfg.rip
deleted file mode 100644
index 48a36c55fd2bf609435804978db89adc2e6719a6..0000000000000000000000000000000000000000
--- a/text/menu/xfercfg.rip
+++ /dev/null
@@ -1,10 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Transfer Configuration Menu<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL200000<><>
-!|1B0000020QPE010E000F080300000000000000|Y00000100|1U0M161K1G0000<>B<>B
-!|1U9616A41G0000<>P<>P|1B0000020QPE010E000F080400000000000000
-!|1U0M1K1K1U0000<>Q<>Q|c00|@1Y16Batch Download File Flagging
-!|@AK16New File Scan Pointers|@1Y1KQuit to the Main Menu|w000A271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/xferinfo.asc b/text/menu/xferinfo.asc
deleted file mode 100644
index 8ed16973bb1137a59d68e6f53c42ed914c665ffe..0000000000000000000000000000000000000000
--- a/text/menu/xferinfo.asc
+++ /dev/null
@@ -1,8 +0,0 @@
-0lnc4��������������������������������k�0
-4c� hyFile Section Information Menu nk4�0
-4c�k����������������������������������b0�������������������������������������
-�����
-� hyT ngFile transfer policy�b� hyY ngYour file transfer statistics b�
-��hy0D ngInformation on current directory b�����������������������������������
-� hyU ngUsers with access to current dir b� hyQ ngQuit to File Transfer menu b�
-������������������������������������������������������������������������n
diff --git a/text/menu/xferinfo.rip b/text/menu/xferinfo.rip
deleted file mode 100644
index 94ad01176a86031dffffb432c0a312bbee201786..0000000000000000000000000000000000000000
--- a/text/menu/xferinfo.rip
+++ /dev/null
@@ -1,11 +0,0 @@
-
-!|1K|w0010271610|W0|=00000001|1B0000020PX4050E000F080700000000000000
-!|1U0707HL0P0000<>Transfer Information Menu<>|c0F|S0107
-!|1B0000020PWW050E000F080700000000000000|1U0710HL2E0000<><>
-!|1B0000020QPE010E000F080900000000000000|Y00000100|1U0M161K1G0000<>T<>T
-!|1U0M1K1K1U0000<>D<>D|1U9616A41G0000<>U<>U|1U961KA41U0000<>Y<>Y
-!|1B0000020QPE010E000F080400000000000000|1U0M1Y1K280000<>Q<>Q|c00
-!|@1Y16Transfer Policy|@1Y1KDirectory|@AK16Users with Access to Directory
-!|@AK1KYour Transfer Statistics|@1Y1YQuit to the Main Menu|w000C271610
-!|10000$ETW$|#|#|#
-
diff --git a/text/menu/yesno.wip b/text/menu/yesno.wip
deleted file mode 100644
index b1c077883c993c2e22cffb8e42597732118d50ed..0000000000000000000000000000000000000000
--- a/text/menu/yesno.wip
+++ /dev/null
@@ -1,20 +0,0 @@
-$00000D
-!|[Startup]
-!|V=1.10
-!|D=`
-!|O=8
-!|M=Yes or No
-!|L=1815
-!|T=510
-!|W=3000
-!|H=2100
-!|B=12632256
-!|
-!|[Form]
-!|001=0T`question`10`10`170`35`5``0`12632256`MS Sans Serif`8.25`@QUESTION@`1`0
-!|002=0B`y`50`50`40`40`1``0`12632256`MS Sans Serif`8.25``DONE.ICO
-!|003=0B`n`100`50`40`40`2``0`12632256`MS Sans Serif`8.25``CANCEL.ICO
-!|004=0T`yes`50`90`40`15`3``0`12632256`MS Sans Serif`8.25`Yes`1`0
-!|005=0T`no`100`90`40`15`4``0`12632256`MS Sans Serif`8.25`No`1`0
-!|
-$0E
\ No newline at end of file
diff --git a/text/name.can b/text/name.can
deleted file mode 100644
index d3d3f64b572244a1d1ba7cda83cd120fc8d34444..0000000000000000000000000000000000000000
--- a/text/name.can
+++ /dev/null
@@ -1,36 +0,0 @@
-; Enter disallowed user names (aliases) in this file
-; Wildcard characters (*, ~, ^) are allowed
-; Rejection message file: text/badname.msg
-new
-all
-sysop~
-netmail
-@~
-#~
-!~
-a
-b
-c
-d
-e
-f
-g
-h
-i
-j
-k
-l
-m
-n
-o
-p
-q
-r
-s
-t
-u
-v
-w
-x
-y
-z
diff --git a/text/newuser.msg b/text/newuser.msg
deleted file mode 100644
index 438f0789069bd50e2340631630155245763e6190..0000000000000000000000000000000000000000
--- a/text/newuser.msg
+++ /dev/null
@@ -1,22 +0,0 @@
-ncYour Internet e-mail address here on @BBS@ is:
-<h@EMAILADDR@nc>
-
-You can access the file areas using any hyFTPnc client by pointing
-it at h@HOSTNAME@nc (port 21)
-and logging in with your username and password. If the sysop
-has a Guest/Anonymous user account configured, you can point
-a web browser at hftp://@HOSTNAME@/00index.htmlnc
-for a nice HTML interface to the file areas.
-
-You can retrieve your e-mail using any Internet (POP3) hye-mailnc client
-by pointing it at h@HOSTNAME@nc (port 110)
-and logging in with your username and password. The sysop may
-even allow relaying of mail through the SMTP server (port 25),
-ask h@SYSOP@nc for details.
-
-You can access the message areas using any yhNewsgroupnc (NNTP) reader
-by pointing it at h@HOSTNAME@nc (port 119)
-and logging in with your username and password.
-
-You may also use hyGophernc (port 70) and yhFingernc (port 79) clients
-to access many read-only facilities on this BBS.
diff --git a/text/phone.can b/text/phone.can
deleted file mode 100644
index fd0e4ad79cb65ed27155eb3b43db1a30225665fa..0000000000000000000000000000000000000000
--- a/text/phone.can
+++ /dev/null
@@ -1,3 +0,0 @@
-; Enter disallowed phone numbers in this file
-; Wildcard characters (*, ~, ^) are allowed
-; Rejection message file: text/badphone.msg
\ No newline at end of file
diff --git a/text/sbbs.msg b/text/sbbs.msg
deleted file mode 100644
index cdb5385f9c5ff0f4135d3cd961c6650f830e3a8d..0000000000000000000000000000000000000000
--- a/text/sbbs.msg
+++ /dev/null
@@ -1,39 +0,0 @@
-@CLS@nhcThis BBS is running...
-
-y .|'''.| '|| .
-y ||.. ' .... ..... ... .... || .. ... .. ... .. ... .... .||.
-y ''|||. '|. | || || .| '' ||' || ||' ''.| '|. || || .|...|| ||
-y. '|| '|.| || || || || || || || || || || || ||
-y|'....|' '| .||. ||. '|...'.||. ||..||. '|..|' .||. ||. '|...' '|.'
-y .. |
-y ''
-w Synchronet BBS for @PLATFORM@ - Version @FULL_VER@
-w @COPYRIGHT@ - http://www.synchro.net
-gh
-32-bit Multi-threaded Bulletin Board System Software for the Internet Age
-ng
-Integerated TCP/IP Servers: hong Telnet/RLogin
- hong SMTP/POP3 (inbound and outbound e-mail)
- hong FTP (with dynamic ASCII and HTML index files)
- hong Network News Transfer Protocol (USENET)
- hong Finger (with real-time node listings)
- hong Gopher (browse message areas online)
-h
-Native versions for Win32 and Unix x86 (Linux, FreeBSD, and OpenBSD) platforms
-n@CLS@-----------------------------------------------------------------------------
-hRemembering these keys will help you enjoy your cSynchronetw Telnet experience:
-n-----------------------------------------------------------------------------
-c
-At hr[Hit a key]nc prompts, you can hit hCtrl-Cnc or 'hQnc' to stop listing text.
-
-Hitting hDown Arrownc (or Ctrl-J) at auto-hrpausenc prompts will scroll one line at a
-time, while hitting any other key will continue one page at a time.
-
-The global rhABORTnc-operation key sequence is: hCtrl-Cnc.
-
-Other global control-key sequences include: hCtrl-Uy: List users onlinenc
- hCtrl-Py: Send a private messagenc
- hCtrl-Ty: Show time informationnc
- hCtrl-Oy: Toggle auto-pause Off/Onnc
-
-Use 'h?nc' to display help menus, and use 'hQnc' to quit.
diff --git a/text/subject.can b/text/subject.can
deleted file mode 100644
index d8ff631764089969e3dc952dea844e7d93c9c5f2..0000000000000000000000000000000000000000
--- a/text/subject.can
+++ /dev/null
@@ -1,2 +0,0 @@
-; Enter filtered (disallowed) message subjects in this file
-; Wildcard characters (*, ^, ~) are allowed and ! negates the match
diff --git a/text/system.msg b/text/system.msg
deleted file mode 100644
index da3daa88710e3de1b5688d5baaf33d8248277750..0000000000000000000000000000000000000000
--- a/text/system.msg
+++ /dev/null
@@ -1,16 +0,0 @@
-nhwThis is y@BBS@w located in y@LOCATION@w
-with your sysop, y@SYSOP@w here to serve you.
-
-y@HOSTNAME@w is running y@OS_VER@w
-and has been online continuously for y@UPTIME@w hours.
-
-ySystem Totals:w
-
-Users: m@TUSER-L.......@w today: m@STATS.NUSERS@w
-Logons: m@STATS.LOGONS-L@w today: m@STATS.LTODAY@w
-Timeused: m@STATS.TIMEON-L@w today: m@STATS.TTODAY@w
-Messages: m@TMSG-L........@w today: m@STATS.PTODAY@w
-E-mail: m@MAILW:0-L.....@w today: m@STATS.ETODAY@w
-Feedback: m@MAILW:1-L.....@w today: m@STATS.FTODAY@w
-Files: m@TFILE-L.......@w today: m@STATS.ULS@w
- Downloaded today: m@STATS.DLS@w (m@STATS.DLB@w nbytesh)
diff --git a/text/welcome.msg b/text/welcome.msg
deleted file mode 100644
index 7193277abbcd6c52d33ba5ad642b9a66a693e60d..0000000000000000000000000000000000000000
--- a/text/welcome.msg
+++ /dev/null
@@ -1 +0,0 @@
-@SYSOP@ welcomes you to @BBS@!
\ No newline at end of file
diff --git a/text/zipmsg.txt b/text/zipmsg.txt
deleted file mode 100644
index 8a21da2660fed42552ba5de9b62a04b5ec941421..0000000000000000000000000000000000000000
--- a/text/zipmsg.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-
-
-This file was downloaded from a Synchronet BBS.
-For a complete list of active Synchronet systems,
-see http://synchro.net/sbbslist.html
-
diff --git a/xtrn/sbj/GNUmakefile b/xtrn/sbj/GNUmakefile
deleted file mode 100644
index ba5e96f82c44c8eeedd24a7dc8fed34a86b43886..0000000000000000000000000000000000000000
--- a/xtrn/sbj/GNUmakefile
+++ /dev/null
@@ -1,68 +0,0 @@
-# Makefile.gnu
-
-#########################################################################
-# Makefile for Synchronet Blackjack #
-# For use with GNU make and GNU C Compiler #
-# @format.tab-size 4, @format.use-tabs true #
-# #
-# Linux: make -f Makefile.gnu #
-# Win32: make -f Makefile.gnu os=win32 #
-# FreeBSD: make -f Makefile.gnu os=freebsd #
-#########################################################################
-
-# $Id$
-
-# Macros
-CC = gcc
-LD = ld
-XSDK = ../sdk
-
-vpath %.c $(XPDEV) $(XSDK)
-
-ifndef os
- os = $(shell uname)
- $(warning OS not specified on command line, setting to '$(os)'.)
-endif
-os := $(shell echo $(os) | tr "[A-Z]" "[a-z]")
-# remove '/' from "os/2"
-os := $(shell echo $(os) | tr -d "/")
-
-
-LIBDIR := /usr/lib
-DELETE := rm -f -v
-ifeq ($(os),freebsd) # FreeBSD
- LIBS += -pthread
-else
- ifeq ($(os),openbsd) # OpenBSD
- LIBS += -pthread
- else
- ifeq ($(os),netbsd) #NetBSD
- CFLAGS += -D__unix__ -I/usr/pkg/include -I../../src/xpdev
- LIBS += -L/usr/pkg/lib -lpthread
- else
- ifeq ($(os),qnx) # QNX
- LIBS += -lsocket
- else # Linux / Generic UNIX
- LIBS += -lpthread
- endif
- endif #! QNX
- endif #! OpenBSD
-endif #! FreeBSD
-
-CFLAGS += -I$(XSDK)
-
-OBJS = xsdk.o xsdkvars.o xsdkwrap.o
-ifeq ($(os),netbsd)
- OBJS += sem.o
-endif
-
-all: sbj sbjclean
-
-sbj: sbj.o $(OBJS)
- $(CC) $(CFLAGS) $^ -o $@ $(LIBS)
-
-sbjclean: sbjclean.o $(OBJS)
- $(CC) $(CFLAGS) $^ -o $@ $(LIBS)
-
-clean:
- rm -f sbj sbjclean *.o
diff --git a/xtrn/sbj/Makefile b/xtrn/sbj/Makefile
deleted file mode 100644
index 5631bcd5bbb0335ce3a17e0b3e86422f0b18dfc8..0000000000000000000000000000000000000000
--- a/xtrn/sbj/Makefile
+++ /dev/null
@@ -1,38 +0,0 @@
-##################################################################
-# Makefile for SBJ (Synchronet Blackjack External Program) #
-# For use with Borland C++ or C++ Builder (for Win32) #
-# Tabstop=8 #
-##################################################################
-
-# Macros
-CC = bcc32
-LD = ilink32
-XSDK = ..\sdk
-CFLAGS = -I$(XSDK)
-CFLAGS = $(CFLAGS) -q -d -H -X- -w-csu -w-pch -w-ccc -w-rch -w-par -w-8004
-OBJS = xsdk.obj xsdkvars.obj xsdkwrap.obj
-
-.path.c = .;$(XSDK)
-
-# Enable auto-dependency checking
-.autodepend
-.cacheautodepend
-
-# Implicit C Compile Rule
-.c.obj:
- @$(CC) $(CFLAGS) -WM -c $<
-
-all: sbj.exe sbjclean.exe
-
-# Main EXE Link Rule
-sbj.exe: $(OBJS) sbj.obj
- @echo Linking $@
- @$(CC) $(CFLAGS) -WM -e$@ $**
-
-# Main EXE Link Rule
-sbjclean.exe: xsdkwrap.obj sbjclean.obj
- @echo Linking $@
- @$(CC) $(CFLAGS) -e$@ $**
-
-clean:
- del $(OBJS)
\ No newline at end of file
diff --git a/xtrn/sbj/sbj.bpf b/xtrn/sbj/sbj.bpf
deleted file mode 100644
index d58a17ed049e8bdecb3deca77f67e27f1b2369a4..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.bpf
+++ /dev/null
@@ -1,8 +0,0 @@
-USEUNIT("Sbj.c");
-USEUNIT("..\SDK\Xsdkvars.c");
-USEUNIT("..\SDK\Xsdk.c");
-USEUNIT("..\sdk\xsdkwrap.c");
-//---------------------------------------------------------------------------
-This file is used by the project manager only and should be treated like the project file
-
-
main
\ No newline at end of file
diff --git a/xtrn/sbj/sbj.bpr b/xtrn/sbj/sbj.bpr
deleted file mode 100644
index 71b1ef5126b3fa23bfc20cc38f2222ec8ace3ef4..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.bpr
+++ /dev/null
@@ -1,96 +0,0 @@
-<?xml version='1.0' encoding='utf-8' ?>
-<!-- C++Builder XML Project -->
-<PROJECT>
- <MACROS>
- <VERSION value="BCB.05.03"/>
- <PROJECT value="sbj.exe"/>
- <OBJFILES value="Sbj.obj ..\SDK\Xsdkvars.obj ..\SDK\Xsdk.obj ..\sdk\xsdkwrap.obj"/>
- <RESFILES value=""/>
- <IDLFILES value=""/>
- <IDLGENFILES value=""/>
- <DEFFILE value=""/>
- <RESDEPEN value="$(RESFILES)"/>
- <LIBFILES value=""/>
- <LIBRARIES value=""/>
- <SPARELIBS value=""/>
- <PACKAGES value="VCL50.bpi VCLX50.bpi bcbsmp50.bpi VCLDB50.bpi VCLADO50.bpi ibsmp50.bpi
- VCLBDE50.bpi VCLDBX50.bpi QRPT50.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi
- DSS50.bpi TEEQR50.bpi VCLIB50.bpi VCLMID50.bpi VCLIE50.bpi INETDB50.bpi
- INET50.bpi NMFAST50.bpi WEBMID50.bpi bcbie50.bpi dclocx50.bpi"/>
- <PATHCPP value=".;..\SDK"/>
- <PATHPAS value=".;"/>
- <PATHRC value=".;"/>
- <PATHASM value=".;"/>
- <DEBUGLIBPATH value="$(BCB)\lib\debug"/>
- <RELEASELIBPATH value="$(BCB)\lib\release"/>
- <LINKER value="tlink32"/>
- <USERDEFINES value="_DEBUG"/>
- <SYSDEFINES value="NO_STRICT;_NO_VCL"/>
- <MAINSOURCE value="sbj.bpf"/>
- <INCLUDEPATH value="..\SDK;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\SDK;$(BCB)\lib\obj;$(BCB)\lib"/>
- <WARNINGS value="-w-par"/>
- </MACROS>
- <OPTIONS>
- <IDLCFLAGS value="-I..\SDK -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
- <CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -tWC
- -tWM -c"/>
- <PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
- <RFLAGS value=""/>
- <AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-D"" -ap -Tpe -x -Gn -v"/>
- </OPTIONS>
- <LINKER>
- <ALLOBJ value="c0x32.obj $(OBJFILES)"/>
- <ALLRES value="$(RESFILES)"/>
- <ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cw32mt.lib"/>
- </LINKER>
- <IDEOPTIONS>
-[Version Info]
-IncludeVerInfo=0
-AutoIncBuild=0
-MajorVer=1
-MinorVer=0
-Release=0
-Build=0
-Debug=0
-PreRelease=0
-Special=0
-Private=0
-DLL=0
-Locale=1033
-CodePage=1252
-
-[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
-LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
-
-[Debugging]
-DebugSourceDirs=$(BCB)\source\vcl
-
-[Parameters]
-RunParams=
-HostApplication=
-RemoteHost=
-RemotePath=
-RemoteDebug=0
-
-[Compiler]
-ShowInfoMsgs=0
-LinkDebugVcl=0
-LinkCGLIB=0
-
-[CORBA]
-AddServerUnit=1
-AddClientUnit=1
-PrecompiledHeaders=1
- </IDEOPTIONS>
-</PROJECT>
\ No newline at end of file
diff --git a/xtrn/sbj/sbj.c b/xtrn/sbj/sbj.c
deleted file mode 100644
index d9270aa311aea712e1d280dbab0242fa0a8805a4..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.c
+++ /dev/null
@@ -1,1907 +0,0 @@
-/* SBJ.C */
-
-/* $Id$ */
-
-/************************/
-/* Synchronet Blackjack */
-/************************/
-
-/*******************************************************/
-/* Multiuser Blackjack game for Synchronet BBS systems */
-/*******************************************************/
-
-/****************************************************************************/
-/* This source code is completely Public Domain and can be modified and */
-/* distributed freely (as long as changes are documented). */
-/* It is meant as an example to programmers of how to use the XSDK */
-/****************************************************************************/
-
-/***********/
-/* History */
-/****************************************************************************\
-
- Many bugs. Especially multiplayer.
-v1.0
- Many bugs fixed. Timing problems still exist.
-v1.01
- Fixed yet more bugs. No more timing problems. Appears bullet-proof.
-v1.02
- Fixed dealer card up always showing card symbol (even when symbols off).
- Added ctrl-e answer detection and user notification.
- Fixed three 7's bug.
- Raised maximum number of decks to 100 for large multinode systems.
- Fixed /<CR> bug.
- Fixed multiple split bug.
- Fixed non-symbols being sent to other nodes bug.
- Changed this node's hands to say "You" instead of the user name.
-v1.03
- Changed the warning and timeout times
-v1.04
- Fixed symbols being displayed on dealer's hand even when disabled.
- Made different inactivity warning and timeout values for the main
- menu and when in play.
-v1.05
- Fixed invalid (usually negative) card bug. THELP random() doc error.
- Card now actually contains all the cards minus one.
- Fixed multinode play join and hang bug.
-v1.06
- If player gets blackjack and dealer gets 21, player wins. Used to push.
-v1.07
- Fixed split, then double bug.
-v1.08
- Replaced bioskey(1) calls with inkey() and used XSDK v2.0 with node
- intercommunication with users on BBS or in other external programs.
-v2.00
- Fixed problem with loosing first character of chat lines
- Added DESQview awareness
-v2.01
- Replaced all calls to delay() with fdelay()
-v2.02
- Listing users now displays what external program they're running.
- Fixed problem with max bet being too small when users have over
- 65mb of credit.
-v2.02
- XSDK (and consequently SBJ) now supports shrinking Synchronet to run
- (available in v1b r1).
- SBBSNODE environment variable will be used for the current node's dir
- if the node dir is not specified on the command line.
-v2.03
- XSDK and SBJ now support the new message services of Synchronet
- (added in v1b r2) for more full-proof internode messaging.
-v2.10
- New XSDK that supports new file retrieval node status display.
-v2.11
- Changed getnodemsg to eliminate tiny void where messages could fall.
-
-
-\****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <ctype.h>
-
-#include "xsdk.h"
-
-#define MAX_DECKS 100
-#define MAX_CARDS 10 /* maximum number of cards per hand */
-#define MAX_HANDS 4 /* maximum number of hands per player */
-
-#define DEBUG 0
-
-#define J 11 /* jack */
-#define Q 12 /* queen */
-#define K 13 /* king */
-#define A 14 /* ace */
-
-#define H 0 /* heart */
-#define D 1 /* diamond */
-#define C 2 /* club */
-#define S 3 /* spade */
- /* bits used in misc variable */
-#define INPLAY (1<<0) /* hand in play */
-
-enum { /* values for status bytes */
- BET /* betting */
- ,WAIT /* waiting for turn */
- ,PLAY /* playing his hand */
- ,SYNC_P /* In sync area - player */
- ,SYNC_D /* In sync area - dealer */
- };
-
-typedef struct { char value, suit; } card_t;
-
-card_t newdeck[52]={
- 2,H, 2,D, 2,C, 2,S,
- 3,H, 3,D, 3,C, 3,S,
- 4,H, 4,D, 4,C, 4,S,
- 5,H, 5,D, 5,C, 5,S,
- 6,H, 6,D, 6,C, 6,S,
- 7,H, 7,D, 7,C, 7,S,
- 8,H, 8,D, 8,C, 8,S,
- 9,H, 9,D, 9,C, 9,S,
- 10,H,10,D,10,C,10,S,
- J,H, J,D, J,C, J,S,
- Q,H, Q,D, Q,C, Q,S,
- K,H, K,D, K,C, K,S,
- A,H, A,D, A,C, A,S };
-
-uchar misc;
-uchar curplayer;
-uchar total_decks,sys_decks;
-uchar total_nodes;
-int cur_card;
-uchar dc;
-card_t dealer[MAX_CARDS];
-int gamedab; /* file handle for data file */
-card_t card[MAX_DECKS*52];
-card_t player[MAX_HANDS][MAX_CARDS];
-char hands,pc[MAX_HANDS];
-uchar total_players;
-uchar symbols=1;
-char autoplay=0;
-int logit=0,tutor=0;
-uint node[MAX_NODES]; /* the usernumber in each node */
-char status[MAX_NODES];
-ulong credits;
-uint bet[MAX_HANDS],ibet,min_bet,max_bet;
-char tmp[81];
-char *UserSays="\1n\1m\1h%s \1n\1msays \"\1c\1h%s\1n\1m\"\r\n";
-char *UserWhispers="\1n\1m\1h%s \1n\1mwhispers \"\1c\1h%s\1n\1m\"\r\n";
-char *ShoeStatus="\r\n\1_\1w\1hShoe: %u/%u\r\n";
-
-void play(void);
-char *cardstr(card_t card);
-char hand(card_t card[MAX_CARDS], char count);
-char soft(card_t card[MAX_CARDS], char count);
-char pair(card_t card[MAX_CARDS], char count);
-void getgamedat(char lockit);
-void putgamedat(void);
-void getcarddat(void);
-void putcarddat(void);
-void shuffle(void);
-void waitturn(void);
-void nextplayer(void);
-char lastplayer(void);
-char firstplayer(void);
-void getnodemsg(void);
-void putnodemsg(char *msg, uint nodenumber);
-void putallnodemsg(char *msg);
-void syncplayer(void);
-void syncdealer(void);
-void moduserdat(void);
-char *hit(void);
-char *stand(void);
-char *doubit(void);
-char *split(void);
-void open_gamedab(void);
-void create_gamedab(void);
-char *activity(char status_type);
-void chat(void);
-void listplayers(void);
-char *joined(void);
-char *left(void);
-void strip_symbols(char *str);
-void debug(void);
-
-#ifndef SBJCLEAN
-
-int my_random(int n)
-{
- float f;
-
- if(n<2)
- return(0);
- f=(float)rand()/(float)RAND_MAX;
-
- return((int)(n*f));
-}
-
-/****************************************************************************/
-/* Entry point */
-/****************************************************************************/
-int main(int argc, char **argv)
-{
- char str[81],compiler[32],*p;
- int i,file;
- FILE *stream;
-
- node_dir[0]=0;
- for(i=1;i<argc;i++)
- if(!stricmp(argv[i],"/L"))
- logit=1;
- else if(!stricmp(argv[i],"/T"))
- tutor=2;
- else if(!stricmp(argv[i],"/S"))
- tutor=1;
- else strcpy(node_dir,argv[i]);
-
- p=getenv("SBBSNODE");
- if(!node_dir[0] && p)
- strcpy(node_dir,p);
-
- if(!node_dir[0]) { /* node directory not specified */
- printf("usage: sbj <node directory> [/options]\r\n");
- printf("\r\noptions: L = log wins/losses for each day\r\n");
- getch();
- return(1); }
-
- if(node_dir[strlen(node_dir)-1]!='\\'
- && node_dir[strlen(node_dir)-1]!='/') /* make sure node_dir ends in '\' */
- strcat(node_dir,"/");
-
- initdata(); /* read XTRN.DAT and more */
- credits=user_cdt;
- total_nodes=sys_nodes;
-
- remove("debug.log");
-
- if((file=nopen("sbj.cfg",O_RDONLY))==-1) { /* open config file */
- bputs("Error opening sbj.cfg\r\n");
- pause();
- return(1); }
- if((stream=fdopen(file,"rb"))==NULL) { /* convert to stream */
- bputs("Error converting sbj.cfg handle to stream\r\n");
- pause();
- return(1); }
- fgets(str,81,stream); /* number of decks in shoe */
- total_decks=sys_decks=atoi(str);
- fgets(str,81,stream); /* min bet (in k) */
- min_bet=atoi(str);
- fgets(str,81,stream); /* max bet (in k) */
- max_bet=atoi(str);
- fgets(str,81,stream); /* default bet (in k) */
- ibet=atoi(str);
- fclose(stream);
- if(!total_decks || total_decks>MAX_DECKS) {
- bputs("Invalid number of decks in sbj.cfg\r\n");
- pause();
- return(1); }
- if(!max_bet) {
- bputs("Invalid max bet in sbj.cfg\r\n");
- pause();
- return(1); }
- if(min_bet>max_bet) {
- bputs("Invalid min bet in sbj.cfg\r\n");
- pause();
- return(1); }
- if(ibet>max_bet || ibet<min_bet) {
- bputs("Invalid default bet in sbj.cfg\r\n");
- pause();
- return(1); }
-
- if(!fexist("card.dab")) {
- cur_card=0;
- dc=0;
- memset(dealer,0,sizeof(dealer));
- memset(card,0,sizeof(card));
- putcarddat(); }
- else {
- getcarddat();
- if(total_decks!=sys_decks) {
- remove("card.dab");
- total_decks=sys_decks;
- putcarddat(); } }
-
- if(!fexist("game.dab")) /* File's not there */
- create_gamedab();
-
- open_gamedab();
-
- getgamedat(0);
- if(total_nodes!=sys_nodes) { /* total nodes changed */
- close(gamedab);
- total_nodes=sys_nodes;
- create_gamedab();
- open_gamedab(); }
-
- srand((unsigned)time(NULL));
-
-#ifdef __16BIT__
- while(_bios_keybrd(1)) /* clear input buffer */
- _bios_keybrd(0);
-#endif
-
- putchar(5); /* ctrl-e */
- mswait(500);
- if(keyhit()) {
-#ifdef __16BIT__
- while(_bios_keybrd(1))
- _bios_keybrd(0);
-#else
- getkey(0);
-#endif
- bputs("\r\n\1r\1h\1i*** ATTENTION ***\1n\1h\r\n");
- bputs("\r\nSynchronet Blackjack uses Ctrl-E (ENQ) for the 'club' card "
- "symbol.");
- bputs("\r\nYour terminal responded to this control character with an "
- "answerback string.");
- bputs("\r\nYou will need to disable all Ctrl-E (ENQ) answerback "
- "strings (Including \r\nCompuserve Quick B transfers) if you wish to "
- "toggle card symbols on.\r\n\r\n");
- symbols=0;
- pause(); }
-
- getgamedat(1);
- node[node_num-1]=0;
- putgamedat();
-
- /* Override default mnemonic colors */
- mnehigh=RED|HIGH;
- mnelow=CYAN|HIGH;
-
- /* Override default inactivity timeout values */
- sec_warn=120;
- sec_timeout=180;
-
- COMPILER_DESC(compiler);
-
-#define SBJ_INDENT " "
- while(1) {
- cls();
- sprintf(str,"\1n\1h\1cSynchronet \1rBlackjack! \1cv3.20 for %s\r\n"
- ,PLATFORM_DESC);
- center(str);
- sprintf(str,"\1w(XSDK v%s %s %s)\r\n\r\n"
- ,xsdk_ver,compiler,__DATE__);
- center(str);
-
- aborted=0;
- mnemonics(SBJ_INDENT"~Instructions\r\n");
- mnemonics(SBJ_INDENT"~Join/Begin Game\r\n");
- mnemonics(SBJ_INDENT"~List Players\r\n");
- mnemonics(SBJ_INDENT"~Rules of the Game\r\n");
- mnemonics(SBJ_INDENT"~Toggle Card Symbols\r\n");
- sprintf(str,SBJ_INDENT"~Quit to %s\r\n",sys_name);
- mnemonics(str);
- nodesync();
- bprintf("\1_\r\n"SBJ_INDENT"\1y\1hWhich: \1n");
- switch(getkeys("IJBLRTQ|!",0)) {
- #if DEBUG
- case '!':
- if(!com_port)
- autoplay=1;
- break;
- case '|':
- debug();
- break;
- #endif
- case 'I':
- cls();
- printfile("sbj.msg");
- break;
- case 'L':
- listplayers();
- bprintf(ShoeStatus,cur_card,total_decks*52);
- break;
- case 'R':
- bprintf("\1n\1c\r\nMinimum bet: \1h%uk",min_bet);
- bprintf("\1n\1c\r\nMaximum bet: \1h%uk\r\n",max_bet);
- bprintf("\1w\1h\r\nCard decks in shoe: \1h%u\r\n",sys_decks);
- break;
- case 'T':
- symbols=!symbols;
- bprintf("\1_\1w\r\nCard symbols now: %s\r\n",symbols ? "ON":"OFF");
- break;
- case 'Q':
- exit(0);
- case 'J':
- case 'B':
- sec_warn=60; /* Override default inactivity timeout values */
- sec_timeout=90;
- play();
- sec_warn=120;
- sec_timeout=180;
- break;
- }
- }
-}
-
-#if DEBUG
-void debug()
-{
- int i;
-
-if(user_level<90)
- return;
-getgamedat(0);
-getcarddat();
-
-bprintf("\r\nDeck (%d) Current: %d\r\n\r\n",total_decks,cur_card);
-for(i=0;i<total_decks*52;i++) {
- if(!(i%11))
- bputs("\r\n");
- bprintf("%3d:%-11s",i,cardstr(card[i])); }
-
-pause();
-bprintf("\1n\r\nDealer (%d)\r\n\r\n",dc);
-for(i=0;i<dc;i++)
- bprintf("%s ",cardstr(dealer[i]));
-bprintf("\1n\r\nNodes (%d) Current: %d\r\n\r\n"
- ,total_nodes,curplayer);
-for(i=0;i<total_nodes;i++)
- bprintf("%d: node=%d status=%d %s\r\n",i+1,node[i]
- ,status[i],activity(status[i]));
-}
-
-void debugline(char *line)
-{
- char str[256];
- int file;
- time_t now;
- struct dosdate_t date;
- struct dostime_t curtime;
-
-#if 1
-now=time(NULL);
-unixtodos(now,&date,&curtime);
-if((file=nopen("debug.log",O_WRONLY|O_APPEND|O_CREAT))==-1)
- return;
-sprintf(str,"%d %02u:%02u:%02u %s\r\n"
- ,node_num,curtime.ti_hour,curtime.ti_min,curtime.ti_sec,line);
-write(file,str,strlen(str));
-close(file);
-#endif
-}
-
-#endif
-
-void suggest(char action)
-{
-bputs("Dealer suggests you ");
-switch(action) {
- case 'H':
- bputs("hit");
- break;
- case 'S':
- bputs("stand");
- break;
- case 'D':
- bputs("double");
- break;
- case 'P':
- bputs("split");
- break; }
-bputs("\r\n");
-}
-
-void wrong(char action)
-{
-#ifdef __16BIT__
-sound(100);
-mswait(500);
-nosound();
-#endif
-bputs("Dealer says you should have ");
-switch(action) {
- case 'H':
- bputs("hit");
- break;
- case 'S':
- bputs("stood");
- break;
- case 'D':
- bputs("doubled");
- break;
- case 'P':
- bputs("split");
- break; }
-bputs("\r\n");
-}
-
-/****************************************************************************/
-/* This function is the actual game playing loop. */
-/****************************************************************************/
-void play()
-{
- char str[256],str2[256],log[81],done,doub,dh,split_card,suggestion
- ,*YouWereDealt="\1n\1k\0015 You \1n\1m were dealt: %s\r\n"
- ,*UserWasDealt="\1n\1m\1h%s\1n\1m was dealt: %s\r\n"
- ,*YourHand="\1n\1k\0015 You \1n\1m (%2d) %s"
- ,*UserHand="\1n\1m\1h%-25s \1n\1m(%2d) %s"
- ,*DealerHand="\1n\1hDealer \1n\1m(%2d) "
- ,*Bust="\1n\1r\1hBust\1n\r\n"
- ,*Natural="\1g\1h\1iNatural "
- ,*Three7s="\1r\1h\1iThree 7's "
- ,*Blackjack="\1n\0011\1k Blackjack! \1n\r\n"
- ,*TwentyOne="\1n\0012\1k Twenty-one \1n\r\n";
- int h,i,j,file;
- uint max;
- long val;
- time_t start,now;
- struct tm* tm;
-
-sprintf(str,"MESSAGE.%d",node_num); /* remove message if waiting */
-if(fexist(str))
- remove(str);
-
-getgamedat(0);
-if(node[node_num-1]) {
- getgamedat(1);
- node[node_num-1]=0;
- putgamedat();
- getgamedat(0); }
-
-if(total_players && misc&INPLAY) {
- bputs("\r\n\1hWaiting for end of hand (^A to abort)...\1n");
- start=now=time(NULL);
- getgamedat(0);
- while(total_players && misc&INPLAY) {
- if((i=inkey(0))!=0) { /* if key was hit */
- if(i==1) { /* if ctrl-a */
- bputs("\r\n");
- return; } } /* return */
- mswait(100);
- getgamedat(0);
- now=time(NULL);
- if(now-start>300) { /* only wait up to 5 minutes */
- bputs("\r\ntimeout\r\n");
- return; } }
- bputs("\r\n"); }
-
-getgamedat(1);
-node[node_num-1]=user_number;
-putgamedat();
-
-if(!total_players)
- shuffle();
-else
- listplayers();
-
-sprintf(str,"\1n\1m\1h%s \1n\1m%s\r\n",user_name,joined());
-putallnodemsg(str);
-
-while(1) {
- aborted=0;
- #if DEBUG
- debugline("top of loop");
- #endif
- if(autoplay)
- lncntr=0;
- bprintf(ShoeStatus,cur_card,total_decks*52);
- if(cur_card>(total_decks*52)-(total_players*10)-10 && lastplayer())
- shuffle();
- getgamedat(1);
- misc&=~INPLAY;
- status[node_num-1]=BET;
- node[node_num-1]=user_number;
- putgamedat();
-
- bprintf("\r\n\1n\1cYou have \1h%s\1n\1ck credits\r\n"
- ,ultoac(credits/1024L,str));
- if(credits<min_bet/1024) {
- bprintf("\1n\1cMinimum bet: \1h%uk\r\n",min_bet);
- bputs("\1n\1r\1hCome back when you have more credits.\r\n");
- break; }
- if(credits/1024L>(ulong)max_bet)
- max=max_bet;
- else
- max=credits/1024L;
- sprintf(str,"\r\nBet amount (in kilobytes) or ~Quit [%u]: "
- ,ibet<credits/1024L ? ibet : credits/1024L);
- chat();
- mnemonics(str);
- if(autoplay && keyhit())
- autoplay=0;
- if(autoplay)
- i=ibet;
- else
- i=getnum(max);
- if(i==-1) /* if user hit ^C or 'Q' */
- break;
- bputs("\r\n");
- if(i) /* if user entered a value */
- bet[0]=i;
- else /* if user hit enter */
- bet[0]=ibet<credits/1024L ? ibet : credits/1024L;
- if(bet[0]<min_bet) {
- bprintf("\1n\1cMinimum bet: \1h%uk\r\n",min_bet);
- bputs("\1n\1r\1hCome back when you're ready to bet more.\r\n");
- break; }
- ibet=bet[0];
- getgamedat(0); /* to get all new arrivals */
- sprintf(str,"\1m\1h%s\1n\1m bet \1n\1h%u\1n\1mk\r\n",user_name,bet[0]);
- putallnodemsg(str);
-
- pc[0]=2; /* init player's 1st hand to 2 cards */
- for(i=1;i<MAX_HANDS;i++) /* init player's other hands to 0 cards */
- pc[i]=0;
- hands=1; /* init total player's hands to 1 */
-
- getgamedat(1); /* first come first serve to be the */
- for(i=0;i<total_nodes;i++) /* dealer in control of sync */
- if(node[i] && status[i]==SYNC_D)
- break;
- if(i==total_nodes) {
- #if DEBUG
- debugline("syncdealer");
- #endif
- syncdealer(); } /* all players meet here */
- else { /* first player is current after here */
- #if DEBUG
- debugline("syncplayer");
- #endif
- syncplayer(); } /* game is closed (INPLAY) at this point */
-
- #if DEBUG
- debugline("waitturn 1");
- #endif
- waitturn();
- getnodemsg();
- /* Initial deal card #1 */
- getcarddat();
- player[0][0]=card[cur_card++];
- putcarddat();
- sprintf(str,YouWereDealt,cardstr(card[cur_card-1]));
- if(!symbols)
- strip_symbols(str);
- bputs(str);
- sprintf(str,UserWasDealt,user_name,cardstr(card[cur_card-1]));
- putallnodemsg(str);
-
- if(lastplayer()) {
- getcarddat();
- dealer[0]=card[cur_card++];
- dc=1;
- putcarddat(); }
- nextplayer();
- #if DEBUG
- debugline("waitturn 2");
- #endif
- waitturn();
- getnodemsg();
-
- getcarddat(); /* Initial deal card #2 */
- player[0][1]=card[cur_card++];
- putcarddat();
- sprintf(str,YouWereDealt,cardstr(card[cur_card-1]));
- if(!symbols)
- strip_symbols(str);
- bputs(str);
- sprintf(str,UserWasDealt,user_name,cardstr(card[cur_card-1]));
- putallnodemsg(str);
-
- if(lastplayer()) {
- getcarddat();
- dealer[1]=card[cur_card++];
- dc=2;
- putcarddat(); }
- nextplayer();
- #if DEBUG
- debugline("waitturn 3");
- #endif
- waitturn();
- getnodemsg();
- getcarddat();
-
- for(i=0;i<hands;i++) {
- if(autoplay)
- lncntr=0;
- done=doub=0;
- while(!done && pc[i]<MAX_CARDS && cur_card<total_decks*52) {
- h=hand(player[i],pc[i]);
- str[0]=0;
- for(j=0;j<pc[i];j++) {
- strcat(str,cardstr(player[i][j]));
- strcat(str," "); }
- j=bstrlen(str);
- while(j++<19)
- strcat(str," ");
- if(h>21) {
- strcat(str,Bust);
- sprintf(str2,YourHand,h,str);
- if(!symbols)
- strip_symbols(str2);
- bputs(str2);
- sprintf(str2,UserHand,user_name,h,str);
- putallnodemsg(str2);
- break; }
- if(h==21) {
- if(pc[i]==2) { /* blackjack */
- if(player[i][0].suit==player[i][1].suit)
- strcat(str,Natural);
- strcat(str,Blackjack); }
- else {
- if(player[i][0].value==7
- && player[i][1].value==7
- && player[i][2].value==7)
- strcat(str,Three7s);
- strcat(str,TwentyOne); }
- sprintf(str2,YourHand,h,str);
- if(!symbols)
- strip_symbols(str2);
- bputs(str2);
- sprintf(str2,UserHand,user_name,h,str);
- putallnodemsg(str2);
- // fdelay(500);
- break; }
- strcat(str,"\r\n");
- sprintf(str2,YourHand,h,str);
- if(!symbols)
- strip_symbols(str2);
- bputs(str2);
- sprintf(str2,UserHand,user_name,h,str);
- putallnodemsg(str2);
- if(doub)
- break;
- sprintf(str,"\1n\1hDealer\1n\1m card up: %s\r\n"
- ,cardstr(dealer[1]));
- if(!symbols)
- strip_symbols(str);
- bputs(str);
-
- if(tutor) {
- if(pc[i]==2)
- split_card=pair(player[i],pc[i]);
- else
- split_card=0;
- if(split_card==A
- || (split_card==9 && (dealer[1].value<7
- || (dealer[1].value>7 && dealer[1].value<10)))
- || split_card==8
- || (split_card==7 && dealer[1].value<9)
- || (split_card==6 && dealer[1].value<7)
- || (split_card==4 && dealer[1].value==5)
- || (split_card && split_card<4 && dealer[1].value<8))
- suggestion='P';
- else if(soft(player[i],pc[i])) {
- if(h>18)
- suggestion='S';
- else if(pc[i]==2
- && ((h==18
- && dealer[1].value>3 && dealer[1].value<7)
- || (h==17
- && dealer[1].value>2 && dealer[1].value<7)
- || (h>13
- && dealer[1].value>3 && dealer[1].value<7)
- || (h==12
- && dealer[1].value>4 && dealer[1].value<7)))
- suggestion='D';
- else
- suggestion='H'; }
- else { /* hard */
- if(h>16 || (h>13 && dealer[1].value<7)
- || (h==12 && dealer[1].value>3 && dealer[1].value<7))
- suggestion='S';
- else if(pc[i]==2
- && (h==11 || (h==10 && dealer[1].value<10)
- || (h==9 && dealer[1].value<7)))
- suggestion='D';
- else
- suggestion='H'; } }
-
- if(tutor==1)
- suggest(suggestion);
- strcpy(str,"\r\n~Hit");
- strcpy(tmp,"H\r");
- if(bet[i]+ibet<=credits/1024L && pc[i]==2) {
- strcat(str,", ~Double");
- strcat(tmp,"D"); }
- if(bet[i]+ibet<=credits/1024L && pc[i]==2 && hands<MAX_HANDS
- && player[i][0].value==player[i][1].value) {
- strcat(str,", ~Split");
- strcat(tmp,"S"); }
- strcat(str,", or [Stand]: ");
- chat();
- mnemonics(str);
- if(autoplay && keyhit())
- autoplay=0;
-
-
- if(autoplay) {
- lncntr=0;
- bputs("\r\n");
- strcpy(str,stand());
- bputs(str);
- putallnodemsg(str);
- done=1; }
- else
- switch(getkeys(tmp,0)) {
- case 'H': /* hit */
- if(tutor==2 && suggestion!='H')
- wrong(suggestion);
- strcpy(str,hit());
- bputs(str);
- putallnodemsg(str);
- getcarddat();
- player[i][pc[i]++]=card[cur_card++];
- putcarddat();
- break;
- case 'D': /* double down */
- if(tutor==2 && suggestion!='D')
- wrong(suggestion);
- strcpy(str,doubit());
- bputs(str);
- putallnodemsg(str);
- getcarddat();
- player[i][pc[i]++]=card[cur_card++];
- putcarddat();
- doub=1;
- bet[i]+=ibet;
- break;
- case 'S': /* split */
- if(tutor==2 && suggestion!='P')
- wrong(suggestion);
- strcpy(str,split());
- bputs(str);
- putallnodemsg(str);
- player[hands][0]=player[i][1];
- getcarddat();
- player[i][1]=card[cur_card++];
- player[hands][1]=card[cur_card++];
- putcarddat();
- pc[hands]=2;
- bet[hands]=ibet;
- hands++;
- break;
- case CR:
- if(tutor==2 && suggestion!='S')
- wrong(suggestion);
- strcpy(str,stand());
- bputs(str);
- putallnodemsg(str);
- done=1;
- break; } } }
-
- if(lastplayer()) { /* last player plays the dealer's hand */
- getcarddat();
- while(hand(dealer,dc)<17 && dc<MAX_CARDS && cur_card<total_decks*52)
- dealer[dc++]=card[cur_card++];
- putcarddat(); }
-
- nextplayer();
- #if DEBUG
- debugline("waitturn 4");
- #endif
- waitturn();
- getnodemsg();
-
- if(firstplayer()==node_num) {
- strcpy(str,"\1n\0014\1h Final \1n\r\n");
- bputs(str);
- putallnodemsg(str); }
- getcarddat();
- dh=hand(dealer,dc); /* display dealer's hand */
- sprintf(str,DealerHand,dh);
- for(i=0;i<dc;i++) {
- strcat(str,cardstr(dealer[i]));
- strcat(str," "); }
- i=bstrlen(str);
- while(i++<50) /* was 50 */
- strcat(str," ");
- if(dh>21) {
- strcat(str,Bust);
- if(!symbols)
- strip_symbols(str);
- bputs(str); }
- else if(dh==21) {
- if(dc==2) { /* blackjack */
- if(dealer[0].suit==dealer[1].suit)
- strcat(str,Natural);
- strcat(str,Blackjack); }
- else { /* twenty-one */
- if(dc==3 && dealer[0].value==7 && dealer[1].value==7
- && dealer[2].value==7)
- strcat(str,Three7s);
- strcat(str,TwentyOne); }
- if(!symbols)
- strip_symbols(str);
- bputs(str); }
- else {
- if(!symbols)
- strip_symbols(str);
- bprintf("%s\r\n",str); }
-
- for(i=0;i<hands;i++) { /* display player's hand(s) */
- h=hand(player[i],pc[i]);
- str[0]=0;
- for(j=0;j<pc[i];j++) {
- strcat(str,cardstr(player[i][j]));
- strcat(str," "); }
- j=bstrlen(str);
- while(j++<19)
- strcat(str," ");
- if(logit) {
- now=time(NULL);
- tm=localtime(&now);
- sprintf(log,"%02d%02d%02d.log" /* log winnings */
- ,tm->tm_mon+1,tm->tm_mday,tm->tm_year%100);
- if((file=nopen(log,O_RDONLY))!=-1) {
- read(file,tmp,filelength(file));
- tmp[filelength(file)]=0;
- val=atol(tmp);
- close(file); }
- else
- val=0L;
- if((file=nopen(log,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- bprintf("error opening %s\r\n",log);
- return; } }
- if(h<22 && (h>dh || dh>21 /* player won */
- || (h==21 && pc[i]==2 && dh==21 && dh>2))) { /* blackjack */
- j=bet[i]; /* and dealer got 21 */
- if(h==21 && /* natural blackjack or three 7's */
- ((player[i][0].value==7 && player[i][1].value==7
- && player[i][2].value==7)
- || (pc[i]==2 && player[i][0].suit==player[i][1].suit)))
- j*=2;
- else if(h==21 && pc[i]==2) /* regular blackjack */
- j*=1.5; /* blackjack pays 1 1/2 to 1 */
- sprintf(tmp,"\1n\1h\1m\1iWon!\1n\1h %u\1n\1mk",j);
- strcat(str,tmp);
- credits+=j*1024L;
- val-=j*1024L;
- moduserdat(); }
- else if(h<22 && h==dh)
- strcat(str,"\1n\1hPush");
- else {
- strcat(str,"\1nLost");
- credits-=bet[i]*1024L;
- val+=bet[i]*1024L;
- moduserdat(); }
- if(logit) {
- sprintf(tmp,"%ld",val);
- write(file,tmp,strlen(tmp));
- close(file); } /* close winning log */
- strcat(str,"\1n\r\n");
- sprintf(str2,YourHand,h,str);
- if(!symbols)
- strip_symbols(str2);
- bputs(str2);
- sprintf(str2,UserHand,user_name,h,str);
- putallnodemsg(str2); }
-
- nextplayer();
- if(!lastplayer()) {
- #if DEBUG
- debugline("lastplayer waitturn");
- #endif
- waitturn();
- nextplayer(); }
- #if DEBUG
- debugline("end of loop");
- #endif
- getnodemsg(); }
-
-getgamedat(1);
-node[node_num-1]=0;
-putgamedat();
-sprintf(str,"\1n\1m\1h%s \1n\1m%s\r\n",user_name,left());
-putallnodemsg(str);
-}
-
-/****************************************************************************/
-/* This function returns a static string that describes the status byte */
-/****************************************************************************/
-char *activity(char status_type)
-{
- static char str[50];
-
-switch(status_type) {
- case BET:
- strcpy(str,"betting");
- break;
- case WAIT:
- strcpy(str,"waiting for turn");
- break;
- case PLAY:
- strcpy(str,"playing");
- break;
- case SYNC_P:
- strcpy(str,"synchronizing");
- break;
- case SYNC_D:
- strcpy(str,"synchronizing (dealer)");
- break;
- default:
- strcat(str,"UNKNOWN");
- break; }
-return(str);
-}
-
-/****************************************************************************/
-/* This function returns the string that represents a playing card. */
-/****************************************************************************/
-char *cardstr(card_t card)
-{
- static char str[20];
- char tmp[20];
-
-strcpy(str,"\1n\0017"); /* card color - background always white */
-if(card.suit==H || card.suit==D)
- strcat(str,"\1r"); /* hearts and diamonds - foreground red */
-else
- strcat(str,"\1k"); /* spades and clubs - foreground black */
-if(card.value>10) /* face card */
- switch(card.value) {
- case J:
- strcat(str,"J");
- break;
- case Q:
- strcat(str,"Q");
- break;
- case K:
- strcat(str,"K");
- break;
- case A:
- strcat(str,"A");
- break; }
-else {
- sprintf(tmp,"%d",card.value);
- strcat(str,tmp); }
-switch(card.suit) { /* suit */
- case H:
- strcat(str,"\3");
- break;
- case D:
- strcat(str,"\4");
- break;
- case C:
- strcat(str,"\5");
- break;
- case S:
- strcat(str,"\6");
- break; }
-strcat(str,"\1n");
-return(str);
-}
-
-
-/****************************************************************************/
-/* This function returns the best value of a given hand. */
-/****************************************************************************/
-char hand(card_t card[MAX_CARDS],char count)
-{
- char c,total=0,ace=0;
-
-for(c=0;c<count;c++) {
- if(card[c].value==A) { /* Ace */
- if(total+11>21)
- total++;
- else {
- ace++;
- total+=11; } }
- else if(card[c].value>=J) /* Jack, Queen, King */
- total+=10;
- else /* Number cards */
- total+=card[c].value; }
-while(total>21 && ace) { /* ace is low if bust */
- total-=10;
- ace--; }
-return(total);
-}
-
-/****************************************************************************/
-/* This function returns number of soft aces in a given hand */
-/****************************************************************************/
-char soft(card_t card[MAX_CARDS],char count)
-{
- char c,total=0,ace=0;
-
-for(c=0;c<count;c++) {
- if(card[c].value==A) { /* Ace */
- if(total+11>21)
- total++;
- else {
- ace++;
- total+=11; } }
- else if(card[c].value>=J) /* Jack, Queen, King */
- total+=10;
- else /* Number cards */
- total+=card[c].value; }
-while(total>21 && ace) { /* ace is low if bust */
- total-=10;
- ace--; }
-return(ace);
-}
-
-/****************************************************************************/
-/* This function returns card that is paired in the hand */
-/****************************************************************************/
-char pair(card_t card[MAX_CARDS],char count)
-{
- char c,d;
-
-for(c=0;c<count;c++)
- for(d=c+1;d<count;d++)
- if(card[c].value==card[d].value) /* Ace */
- return(card[c].value);
-return(0);
-}
-
-
-/****************************************************************************/
-/* This function shuffles the deck. */
-/****************************************************************************/
-void shuffle()
-{
- char str[81];
- uint i,j;
- card_t shufdeck[52*MAX_DECKS];
-
-
-getcarddat();
-
-sprintf(str,"\1_\1w\1h\r\nShuffling %d Deck Shoe...",total_decks);
-bputs(str);
-strcat(str,"\r\n"); /* add crlf for other nodes */
-putallnodemsg(str);
-
-for(i=0;i<total_decks;i++)
- memcpy(shufdeck+(i*52),newdeck,sizeof(newdeck)); /* fresh decks */
-
-i=0;
-while(i<(uint)(total_decks*52)-1) {
- j=my_random((total_decks*52)-1);
- if(!shufdeck[j].value) /* card already used */
- continue;
- card[i]=shufdeck[j];
- shufdeck[j].value=0; /* mark card as used */
- i++; }
-
-cur_card=0;
-for(i=0;i<MAX_HANDS;i++)
- pc[i]=0;
-hands=0;
-dc=0;
-putcarddat();
-bputs("\r\n");
-}
-
-/****************************************************************************/
-/* This function reads and displays a message waiting for this node, if */
-/* there is one. */
-/****************************************************************************/
-void getnodemsg()
-{
- char str[81], *buf;
- int file;
- ulong length;
-
-nodesync();
-sprintf(str,"message.%d",node_num);
-if(flength(str)<1L) /* v1.02 fix */
- return;
-if((file=nopen(str,O_RDWR))==-1) {
- bprintf("Couldn't open %s\r\n",str);
- return; }
-length=filelength(file);
-if((buf=malloc(length+1L))==NULL) {
- close(file);
- bprintf("\7\r\ngetnodemsg: Error allocating %lu bytes of memory for %\r\n"
- ,length+1L,str);
- return; }
-buf[read(file,buf,length)]=0;
-chsize(file,0);
-close(file);
-if(!symbols)
- strip_symbols(buf);
-bputs(buf);
-free(buf);
-}
-
-/****************************************************************************/
-/* This function creates a message for a certain node. */
-/****************************************************************************/
-void putnodemsg(char *msg, uint nodenumber)
-{
- char str[81];
- int file;
-
-sprintf(str,"message.%d",nodenumber);
-if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- bprintf("\r\n\7putnodemsg: error opening/creating %s\r\n",str);
- return; }
-write(file,msg,strlen(msg));
-close(file);
-}
-
-/****************************************************************************/
-/* This function creates a message for all nodes in the game. */
-/****************************************************************************/
-void putallnodemsg(char *msg)
-{
- int i;
-
-for(i=0;i<total_nodes;i++)
- if(node[i] && i+1!=node_num)
- putnodemsg(msg,i+1);
-}
-
-/****************************************************************************/
-/* This function waits until it is the current player. */
-/****************************************************************************/
-void waitturn()
-{
- time_t start,now;
-
-start=now=time(NULL);
-getgamedat(1);
-status[node_num-1]=WAIT;
-putgamedat();
-while(curplayer!=node_num) {
- chat();
- mswait(100);
- getgamedat(0);
- if(curplayer && !node[curplayer-1] /* || status[curplayer-1]==BET */ )
- nextplayer(); /* current player is not playing? */
-
- if(!node[node_num-1]) { /* current node not in game? */
- getgamedat(1);
- node[node_num-1]=user_number; /* fix it */
- putgamedat(); }
-
- now=time(NULL);
- if(now-start>300) { /* only wait upto 5 minutes */
- bputs("\r\nwaitturn: timeout\r\n");
- break; } }
-getgamedat(1);
-status[node_num-1]=PLAY;
-putgamedat();
-}
-
-/****************************************************************************/
-/* This is the function that is called to see if the user has hit a key, */
-/* and if so, read in a line of chars and send them to the other nodes. */
-/****************************************************************************/
-void chat()
-{
- char str1[150],str2[256],ch;
- int i;
-
-aborted=0;
-if((ch=inkey(0))!=0 || wordwrap[0]) {
- if(ch=='/') {
- bputs("\1n\1y\1hCommand: \1n");
- ch=getkeys("?LS|%\r",0);
- switch(ch) {
- case CR:
- return;
- #if DEBUG
- case '|':
- debug();
- return;
- #endif
- case '%':
- if(!com_port) /* only if local */
- exit(0);
- break;
- case '?':
- mnemonics("\r\n~List Players");
- mnemonics("\r\n~Send Private Message to Player");
- bputs("\r\n");
- return;
- case 'L':
- listplayers();
- bprintf(ShoeStatus,cur_card,total_decks*52);
- return;
- case 'S':
- listplayers();
- bputs("\1n\r\n\1y\1hWhich node: \1n");
- i=getnum(sys_nodes);
- getgamedat(0);
- if(i>0 && i!=node_num && node[i-1]) {
- bputs("\r\n\1n\1y\1hMessage: ");
- if(getstr(str1,50,K_LINE)) {
- sprintf(str2,UserWhispers,user_name
- ,str1);
- putnodemsg(str2,i); } }
- else
- bputs("\1n\r\n\1r\1hInvalid node.\1n\r\n");
- return; } }
- ungetkey(ch);
- if(!getstr(str1,50,K_CHAT|K_WRAP))
- return;
- sprintf(str2,UserSays,user_name,str1);
- putallnodemsg(str2); }
-getnodemsg();
-}
-
-/****************************************************************************/
-/* This function returns 1 if the current node is the highest (or last) */
-/* node in the game, or 0 if there is another node with a higher number */
-/* in the game. Used to determine if this node is to perform the dealer */
-/* function */
-/****************************************************************************/
-char lastplayer()
-{
- int i;
-
-getgamedat(0);
-if(total_players==1 && node[node_num-1]) /* if only player, definetly */
- return(1); /* the last */
-
-for(i=node_num;i<total_nodes;i++) /* look for a higher number */
- if(node[i])
- break;
-if(i<total_nodes) /* if one found, return 0 */
- return(0);
-return(1); /* else return 1 */
-}
-
-/****************************************************************************/
-/* Returns the node number of the lower player in the game */
-/****************************************************************************/
-char firstplayer()
-{
- int i;
-
-for(i=0;i<total_nodes;i++)
- if(node[i])
- break;
-if(i==total_nodes)
- return(0);
-return(i+1);
-}
-
-/****************************************************************************/
-/* This function is only run on the highest node number in the game. It */
-/* waits until all other nodes are waiting in their sync routines, and then */
-/* releases them by changing the status byte from SYNC_P to PLAY */
-/* it is assumed that getgamedat(1) is called immediately prior. */
-/****************************************************************************/
-void syncdealer()
-{
- char *Dealing="\1n\1hDealing...\r\n\1n";
- int i;
- time_t start,now;
-
-status[node_num-1]=SYNC_D;
-putgamedat();
-start=now=time(NULL);
-// fdelay(1000); /* wait for stragglers to join game v1.02 */
-getgamedat(0);
-while(total_players) {
- for(i=0;i<total_nodes;i++)
- if(i!=node_num-1 && node[i] && status[i]!=SYNC_P)
- break;
- if(i==total_nodes) /* all player nodes are waiting */
- break;
- chat();
- mswait(100);
- getgamedat(0);
- if(!node[node_num-1]) { /* current node not in game? */
- getgamedat(1);
- node[node_num-1]=user_number; /* fix it */
- putgamedat(); }
- now=time(NULL);
- if(now-start>300) { /* only wait upto 5 minutes */
- bputs("\r\nsyncdealer: timeout\r\n");
- break; } }
-
-getgamedat(1);
-misc|=INPLAY;
-curplayer=firstplayer();
-putgamedat();
-
-getnodemsg();
-bputs(Dealing);
-putallnodemsg(Dealing);
-
-getgamedat(1);
-for(i=0;i<total_nodes;i++) /* release player nodes */
- if(node[i])
- status[i]=PLAY;
-putgamedat();
-}
-
-
-/****************************************************************************/
-/* This function halts this node until the dealer releases it by changing */
-/* the status byte from SYNC_P to PLAY */
-/* it is assumed that getgamedat(1) is called immediately prior. */
-/****************************************************************************/
-void syncplayer()
-{
- time_t start,now;
-
-status[node_num-1]=SYNC_P;
-putgamedat();
-start=now=time(NULL);
-while(node[node_num-1] && status[node_num-1]==SYNC_P) {
- chat();
- mswait(100);
- getgamedat(0);
- if(!node[node_num-1]) { /* current node not in game? */
- getgamedat(1);
- node[node_num-1]=user_number; /* fix it */
- putgamedat(); }
- now=time(NULL);
- if(now-start>300) { /* only wait upto 5 minutes */
- bputs("\r\nsyncplayer: timeout\r\n");
- break; } }
-}
-
-/****************************************************************************/
-/* Updates the MODUSER.DAT file that SBBS reads to ajust the user's credits */
-/* This function is called whenever the user's credits are adjust so that */
-/* the file will be current in any event. */
-/****************************************************************************/
-void moduserdat()
-{
- char str[128];
- FILE *stream;
-
-sprintf(str,"%sMODUSER.DAT",node_dir);
-if((stream=fopen(str,"wt"))==NULL) {
- bprintf("Error opening %s for write\r\n",str);
- return; }
-fprintf(stream,"%ld",credits-user_cdt);
-fclose(stream);
-
-}
-
-/****************************************************************************/
-/* This function reads the entire shoe of cards and the dealer's hand from */
-/* the card database file (CARD.DAB) */
-/****************************************************************************/
-void getcarddat()
-{
- int file;
-
-if((file=nopen("card.dab",O_RDONLY))==-1) {
- bputs("getcarddat: Error opening card.dab\r\n");
- return; }
-read(file,&dc,1);
-read(file,dealer,sizeof(dealer));
-read(file,&total_decks,1);
-read(file,&cur_card,2);
-read(file,card,total_decks*52*sizeof(card_t));
-close(file);
-}
-
-/****************************************************************************/
-/* This function writes the entire shoe of cards and the dealer's hand to */
-/* the card database file (CARD.DAB) */
-/****************************************************************************/
-void putcarddat()
-{
- int file;
-
-if((file=nopen("card.dab",O_WRONLY|O_CREAT))==-1) {
- bputs("putcarddat: Error opening card.dab\r\n");
- return; }
-write(file,&dc,1);
-write(file,dealer,sizeof(dealer));
-write(file,&total_decks,1);
-write(file,&cur_card,2);
-write(file,card,total_decks*52*sizeof(card_t));
-close(file);
-}
-
-/****************************************************************************/
-/* This function creates random ways to say "hit" */
-/****************************************************************************/
-char *hit()
-{
- static char str[81];
-
-strcpy(str,"\1n\1r\1h");
-switch(rand()%10) {
- case 1:
- strcat(str,"Hit it.");
- break;
- case 2:
- strcat(str,"Hit me, Baby!");
- break;
- case 3:
- strcat(str,"Give me an ace.");
- break;
- case 4:
- strcat(str,"One more.");
- break;
- case 5:
- strcat(str,"Just one more.");
- break;
- case 6:
- strcat(str,"Give me a baby card.");
- break;
- case 7:
- strcat(str,"Hit it, Dude.");
- break;
- case 8:
- strcat(str,"Hit.");
- break;
- case 9:
- strcat(str,"Um... Hit.");
- break;
- case 10:
- strcat(str,"Thank you Sir, may I have another.");
- break;
- default:
- strcat(str,"Face card, please.");
- break; }
-strcat(str,"\1n\r\n");
-return(str);
-}
-
-/****************************************************************************/
-/* This function creates random ways to say "double" */
-/****************************************************************************/
-char *doubit()
-{
- static char str[81];
-
-strcpy(str,"\1n\1b\1h");
-switch(rand()%10) {
- case 1:
- strcat(str,"Double.");
- break;
- case 2:
- strcat(str,"Double Down, Man.");
- break;
- case 3:
- strcat(str,"Double it, Dude.");
- break;
- case 4:
- strcat(str,"One more card for double the dough.");
- break;
- case 5:
- strcat(str,"Double me.");
- break;
- case 6:
- strcat(str,"Oh yeah... Double!");
- break;
- case 7:
- strcat(str,"I shouldn't do it, but... Double!");
- break;
- case 8:
- strcat(str,"Double my bet and give me one more card.");
- break;
- case 9:
- strcat(str,"Um... Double.");
- break;
- case 10:
- strcat(str,"Thank you Sir, may I Double?");
- break;
- default:
- strcat(str,"Double - face card, please.");
- break; }
-strcat(str,"\1n\r\n");
-return(str);
-}
-
-/****************************************************************************/
-/* This function creates random ways to say "stand" */
-/****************************************************************************/
-char *stand()
-{
- static char str[81];
-
-strcpy(str,"\1n\1c\1h");
-switch(rand()%10) {
- case 1:
- strcat(str,"Stand.");
- break;
- case 2:
- strcat(str,"Stay.");
- break;
- case 3:
- strcat(str,"No more.");
- break;
- case 4:
- strcat(str,"Just right.");
- break;
- case 5:
- strcat(str,"I should hit, but I'm not gonna.");
- break;
- case 6:
- strcat(str,"Whoa!");
- break;
- case 7:
- strcat(str,"Hold it.");
- break;
- case 8:
- strcat(str,"No way, Jose!");
- break;
- case 9:
- strcat(str,"Um... Stand.");
- break;
- case 10:
- strcat(str,"Thanks, but no thanks.");
- break;
- default:
- strcat(str,"No card, no bust.");
- break; }
-strcat(str,"\1n\r\n");
-return(str);
-}
-
-/****************************************************************************/
-/* This function creates random ways to say "split" */
-/****************************************************************************/
-char *split()
-{
- static char str[81];
-
-strcpy(str,"\1n\1y\1h");
-switch(rand()%10) {
- case 1:
- strcat(str,"Split.");
- break;
- case 2:
- strcat(str,"Split 'em.");
- break;
- case 3:
- strcat(str,"Split it.");
- break;
- case 4:
- strcat(str,"Split, please.");
- break;
- case 5:
- strcat(str,"I should hit, but I'm gonna split instead.");
- break;
- case 6:
- strcat(str,"Whoa! Split them puppies...");
- break;
- case 7:
- strcat(str,"Split 'em, Dude.");
- break;
- case 8:
- strcat(str,"Double the cards, for double the money.");
- break;
- case 9:
- strcat(str,"Um... Split.");
- break;
- case 10:
- strcat(str,"Thank you Sir, I think I'll split 'em.");
- break;
- default:
- strcat(str,"Banana Split.");
- break; }
-strcat(str,"\1n\r\n");
-return(str);
-}
-
-/****************************************************************************/
-/* This function creates random ways to say "joined" */
-/****************************************************************************/
-char *joined()
-{
- static char str[81];
-
-switch(rand()%10) {
- case 1:
- strcpy(str,"joined.");
- break;
- case 2:
- strcpy(str,"sat down to play.");
- break;
- case 3:
- strcpy(str,"plopped on the chair next to you.");
- break;
- case 4:
- strcpy(str,"belched loudly to announce his entrance.");
- break;
- case 5:
- strcpy(str,"dropped in.");
- break;
- case 6:
- strcpy(str,"joined our game.");
- break;
- case 7:
- strcpy(str,"fell on his face entering the casino!");
- break;
- case 8:
- strcpy(str,"slams a roll of credits on the table.");
- break;
- case 9:
- strcpy(str,"rolled in to join the game.");
- break;
- case 10:
- strcpy(str,"smiles widely as he takes your wife's seat.");
- break;
- default:
- strcpy(str,"spills a drink on your pants while sitting down.");
- break; }
-return(str);
-}
-
-/****************************************************************************/
-/* This function creates random ways to say "left" */
-/****************************************************************************/
-char *left()
-{
- static char str[81];
-
-switch(rand()%10) {
- case 1:
- strcpy(str,"left abruptly.");
- break;
- case 2:
- strcpy(str,"sneaked away.");
- break;
- case 3:
- strcpy(str,"took the credits and ran.");
- break;
- case 4:
- strcpy(str,"fell out of the chair.");
- break;
- case 5:
- strcpy(str,"left the game.");
- break;
- case 6:
- strcpy(str,"slipped out the door.");
- break;
- case 7:
- strcpy(str,"giggled as he left the table.");
- break;
- case 8:
- strcpy(str,"left clenching empty pockets.");
- break;
- case 9:
- strcpy(str,"went to the pawn shop to hawk a watch.");
- break;
- case 10:
- strcpy(str,"bailed out the back door.");
- break;
- default:
- strcpy(str,"made like a train and left.");
- break; }
-return(str);
-}
-
-/****************************************************************************/
-/* This function creates the file "GAME.DAB" in the current directory. */
-/****************************************************************************/
-void create_gamedab()
-{
-
-if((gamedab=sopen("game.dab"
- ,O_WRONLY|O_CREAT|O_BINARY,SH_DENYNO,S_IREAD|S_IWRITE))==-1) {
- bputs("Error creating game.dab\r\n");
- pause();
- exit(1); }
-misc=0;
-curplayer=0;
-memset(node,0,sizeof(node));
-memset(status,0,sizeof(status));
-write(gamedab,&misc,1);
-write(gamedab,&curplayer,1);
-write(gamedab,&total_nodes,1);
-write(gamedab,node,total_nodes*2);
-write(gamedab,status,total_nodes);
-close(gamedab);
-}
-
-/****************************************************************************/
-/* This function opens the file "GAME.DAB" in the current directory and */
-/* leaves it open with deny none access. This file uses record locking */
-/* for shared access. */
-/****************************************************************************/
-void open_gamedab()
-{
-if((gamedab=sopen("game.dab",O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- bputs("Error opening game.dab\r\n"); /* open deny none */
- pause();
- exit(1); }
-}
-
-/****************************************************************************/
-/* Lists the players currently in the game and the status of the shoe. */
-/****************************************************************************/
-void listplayers()
-{
- int i;
-
-getgamedat(0);
-bputs("\r\n");
-if(!total_players) {
- bputs("\1_\1w\1hNo game in progress\r\n");
- return; }
-for(i=0;i<total_nodes;i++)
- if(node[i])
- bprintf("\1-\1mNode %2d: \1h%s \1n\1m%s\r\n"
- ,i+1,username(node[i]),activity(status[i]));
-getcarddat();
-/***
-bprintf("\r\nCurrent player=Node %d user #%d\r\n",curplayer,node[curplayer-1]);
-***/
-}
-
-/****************************************************************************/
-/* This function replaces the card symbols in 'str' with letters to */
-/* represent the different suits. */
-/****************************************************************************/
-void strip_symbols(char *str)
-{
- int i,j;
-
-j=strlen(str);
-for(i=0;i<j;i++)
- if(str[i]>=3 && str[i]<=6)
- switch(str[i]) {
- case 3:
- str[i]='H';
- break;
- case 4:
- str[i]='D';
- break;
- case 5:
- str[i]='C';
- break;
- case 6:
- str[i]='S';
- break; }
-}
-
-#endif /* end of function not needed for SBJCLEAN.C */
-
-/****************************************************************************/
-/* Reads information from GAME.DAB file. If 'lockit' is 1, the file is */
-/* and putgamedat must be called to unlock it. If your updating the info */
-/* in GAME.DAB, you must first call getgamedat(1), then putgamedat(). */
-/****************************************************************************/
-void getgamedat(char lockit)
-{
- int i=0;
-
-/* retry 100 times taking at least 3 seconds */
-while(lock(gamedab,0L,filelength(gamedab))==-1 && i++<100)
- mswait(30); /* lock the whole thing */
-if(i>=100) {
-// printf("gamedab=%d %04X:%p %04X\r\n",gamedab,_psp,&gamedab,_DS);
- printf("\7getgamedat: error locking game.dab\r\n"); }
-
-lseek(gamedab,0L,SEEK_SET);
-read(gamedab,&misc,1);
-read(gamedab,&curplayer,1);
-read(gamedab,&total_nodes,1);
-read(gamedab,node,total_nodes*2); /* user number playing for each node */
-read(gamedab,status,total_nodes); /* the status of the player */
-total_players=0;
-for(i=0;i<total_nodes;i++)
- if(node[i])
- total_players++;
-if(!lockit)
- unlock(gamedab,0L,filelength(gamedab));
-}
-
-/****************************************************************************/
-/* Writes information to GAME.DAB file. getgamedat(1) MUST be called before */
-/* this function is called. */
-/****************************************************************************/
-void putgamedat()
-{
-
-lseek(gamedab,0L,SEEK_SET);
-write(gamedab,&misc,1);
-write(gamedab,&curplayer,1);
-write(gamedab,&total_nodes,1);
-write(gamedab,node,total_nodes*2);
-write(gamedab,status,total_nodes);
-unlock(gamedab,0L,filelength(gamedab));
-}
-
-/***************************************************************/
-/* This function makes the next active node the current player */
-/***************************************************************/
-void nextplayer()
-{
- int i;
-
-getgamedat(1); /* get current info and lock */
-
-if((!curplayer /* if no current player */
- || total_players==1) /* or only one player in game */
- && node[node_num-1]) { /* and this node is in the game */
- curplayer=node_num; /* make this node current player */
- putgamedat(); /* write data and unlock */
- return; } /* and return */
-
-for(i=curplayer;i<total_nodes;i++) /* search for the next highest node */
- if(node[i]) /* that is active */
- break;
-if(i>=total_nodes) { /* if no higher active nodes, */
- for(i=0;i<curplayer-1;i++) /* start at bottom and go up */
- if(node[i])
- break;
- if(i==curplayer-1) /* if no active nodes found */
- curplayer=0; /* make current player 0 */
- else
- curplayer=i+1; }
-else
- curplayer=i+1; /* else active node current player */
-
-putgamedat(); /* write info and unlock */
-}
-
-/* End of SBJ.C */
diff --git a/xtrn/sbj/sbj.cfg b/xtrn/sbj/sbj.cfg
deleted file mode 100644
index 9e5236e6ed78c03c3743f109abd513151bd2308a..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.cfg
+++ /dev/null
@@ -1,4 +0,0 @@
-6 Number of decks
-10 Minimum bet (in kilobytes)
-1000 Maximum bet (in kilobytes)
-100 Default bet (in kilobytes)
diff --git a/xtrn/sbj/sbj.doc b/xtrn/sbj/sbj.doc
deleted file mode 100644
index 1414a4577f72fcbbacc36696b4c87cd307c56dfb..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.doc
+++ /dev/null
@@ -1,49 +0,0 @@
-Synchronet Blackjack v3.20 Documentation
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-Add (if it doesn't already exist), SBJ to SCFG->External Programs
-->Online Programs->Games->Available Online Programs:
-
-Name Synchronet Blackjack!
-Internal Code SBJ
-Start-up Directory ..\xtrn\sbj
-Command Line sbj%.
-Clean-up Command Line sbjclean%.
-Execution Cost None
-Access Requirements
-Execution Requirements
-Multiple Concurrent Users Yes
-Intercept Standard I/O No
-Native (32-bit) Executable Yes
-Use Shell to Execute No
-Modify User Data Yes or No (your choice)
-Execute on Event No
-BBS Drop File Type Synchronet XTRN.DAT
-Place Drop File In Node Directory
-
-If you wish to add a second game of Blackjack that will not actually change the
-user's credits in the bbs (No Risk), make an exact copy of the above
-configuration, but make the name "Synchronet Blackjack! (No Risk)", remove the
-"/l" from the "Command Line" option, and change the option "Modify User Data"
-to "No".
-
-
-The configuration file (SBJ.CFG) is an ascii text file with the following
-options:
-
-Line Description Suggested Value
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-1 Number of decks in Shoe 6
-2 Minimum bet in k 10
-3 Maximum bet in k 1000
-4 Default bet in k 100
-
-
-Log Files
-~~~~~~~~~
-If the command line switch '/L' is used, there will be log files created in the
-SBJ directory in the format MMDDYY.LOG that contain a single signed long
-integer that reflects winnings for the BBS (positive number) or losses
-(negative numbers) for every day that the program has been executed.
-
-/* END of SBJ.DOC */
diff --git a/xtrn/sbj/sbj.dsp b/xtrn/sbj/sbj.dsp
deleted file mode 100644
index 82538b13ab6e2c5c7ad541eef779a532efafe4a7..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.dsp
+++ /dev/null
@@ -1,102 +0,0 @@
-# Microsoft Developer Studio Project File - Name="sbj" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=sbj - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "sbj.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "sbj.mak" CFG="sbj - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "sbj - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "sbj - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "sbj - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.release"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MT /W3 /GX /O2 /I "..\sdk" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib wsock32.lib /nologo /subsystem:console /map /machine:I386
-
-!ELSEIF "$(CFG)" == "sbj - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.debug"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /I "..\sdk" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib wsock32.lib /nologo /subsystem:console /map /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "sbj - Win32 Release"
-# Name "sbj - Win32 Debug"
-# Begin Source File
-
-SOURCE=.\Sbj.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\Sdk\Xsdk.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\Sdk\Xsdkvars.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\sdk\xsdkwrap.c
-# End Source File
-# End Target
-# End Project
diff --git a/xtrn/sbj/sbj.msg b/xtrn/sbj/sbj.msg
deleted file mode 100644
index 3c4d55db67eeec6b6162b336a0e406e15b9d6e84..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbj.msg
+++ /dev/null
@@ -1,23 +0,0 @@
- chSynchronet
- r Blackjack!
-w
- As you might have guessed, this is a blackjack game. But not just any
-blackjack game. With Synchronet Blackjack, you play against the house for
-credits and your friends can play along side you simultaneously from the same
-card shoe. You can even carry on a conversation while a hand is in play!
-
- Beware, you are gambling with your credits if you choose to play, but
-the odds are pretty good. House pays double on a natural blackjack or three
-sevens, 1� to 1 on regular blackjack, even money on other winning hands and
-ties (pushes) break even. You can double down if you have enough dough and even
-split pairs!
-
- If you choose to play, note that it is much more enjoyable with a
-friend at the table with you. While the dealer is fast and curteous, he doesn't
-make a very good conversationalist.
-
- If you notice that you're not seeing the card symbols for 'clubs' you
-may have Compuserve Quick B transfers enabled or another answerback to Ctrl-E.
-This should be disabled, or you should toggle card symbols OFF.
-
-
diff --git a/xtrn/sbj/sbjclean.c b/xtrn/sbj/sbjclean.c
deleted file mode 100644
index c40fe8dea113cc7bb3c55edb1bfae50caf1c1864..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbjclean.c
+++ /dev/null
@@ -1,46 +0,0 @@
-/* sbjclean.c */
-
-/* Clean-up program for Synchronet Blackjack Online External Program */
-
-/* $Id$ */
-
-#define SBJCLEAN
-
-#include "sbj.c" /* Just for a couple of functions we need */
-
-uchar node_num;
-
-int main(int argc, char **argv)
-{
- char* p;
- char node_dir[MAX_PATH+1];
-
- if((p=getenv("SBBSNODE"))==NULL) {
- fprintf(stderr,"!Need SBBSNODE env var\n");
- return(-1);
- }
- strcpy(node_dir,p);
-
- if((p=getenv("SBBSNNUM"))==NULL) {
- fprintf(stderr,"!Need SBBSNNUM env var\n");
- return(-1);
- }
- node_num=atoi(p);
-
- if(node_dir[strlen(node_dir)-1]!='\\'
- && node_dir[strlen(node_dir)-1]!='/') /* make sure node_dir ends in '/' */
- strcat(node_dir,"/");
-
- if((gamedab=sopen("GAME.DAB",O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- fprintf(stderr,"Error opening GAME.DAB\r\n"); /* open deny none */
- return(1);
- }
- getgamedat(1);
- node[node_num-1]=0;
- status[node_num-1]=0;
- putgamedat();
- if(curplayer==node_num)
- nextplayer();
- close(gamedab);
- return(0);
-}
diff --git a/xtrn/sbj/sbjclean.dsp b/xtrn/sbj/sbjclean.dsp
deleted file mode 100644
index c3bcef00032a92e8ad331338715c6af43d573451..0000000000000000000000000000000000000000
--- a/xtrn/sbj/sbjclean.dsp
+++ /dev/null
@@ -1,92 +0,0 @@
-# Microsoft Developer Studio Project File - Name="sbjclean" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=sbjclean - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "sbjclean.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "sbjclean.mak" CFG="sbjclean - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "sbjclean - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "sbjclean - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "sbjclean - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.release"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /W3 /GX /O2 /I "..\sdk" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "sbjclean - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "..\sdk" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "sbjclean - Win32 Release"
-# Name "sbjclean - Win32 Debug"
-# Begin Source File
-
-SOURCE=.\sbjclean.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\sdk\xsdkwrap.c
-# End Source File
-# End Target
-# End Project
diff --git a/xtrn/sbl/GNUmakefile b/xtrn/sbl/GNUmakefile
deleted file mode 100644
index d031d48d70d915a805eaa9a0b43365f938549ec8..0000000000000000000000000000000000000000
--- a/xtrn/sbl/GNUmakefile
+++ /dev/null
@@ -1,83 +0,0 @@
-# Makefile.gnu
-
-#########################################################################
-# Makefile for Synchronet BBS List #
-# For use with GNU make and GNU C Compiler #
-# @format.tab-size 4, @format.use-tabs true #
-# #
-# Linux: make -f Makefile.gnu #
-# Win32: make -f Makefile.gnu os=win32 #
-# FreeBSD: make -f Makefile.gnu os=freebsd #
-#########################################################################
-
-# $Id$
-
-# Macros
-CC = gcc
-LD = ld
-XSDK = ../sdk
-ifndef XPDEV
- XPDEV = ../../src/xpdev
-endif
-ifndef SBBS_SRC
- SBBS_SRC = ../../src/sbbs3
-endif
-
-vpath %.c $(XPDEV) $(XSDK) $(SBBS_SRC)
-
-ifndef os
- os = $(shell uname)
- $(warning OS not specified on command line, setting to '$(os)'.)
-endif
-os := $(shell echo $(os) | tr "[A-Z]" "[a-z]")
-# remove '/' from "os/2"
-os := $(shell echo $(os) | tr -d "/")
-
-LIBDIR := /usr/lib
-DELETE := rm -f -v
-ifeq ($(os),freebsd) # FreeBSD
- CFLAGS += -D_THREAD_SAFE
- LFLAGS := -pthread
- BSD = 1
-else
- ifeq ($(os),openbsd) # OpenBSD
- CFLAGS += -D_THREAD_SAFE
- LFLAGS := -pthread
- BSD = 1
- else
- ifeq ($(os),netbsd) # NetBSD
- CFLAGS += -D_THREAD_SAFE -D__unix__ -D_NEED_SEM -I/usr/pkg/include
- LFLAGS := -lpth -lpthread -L/usr/pkg/lib
- else
- ifeq ($(os),qnx) # QNX
- CFLAGS += -D_THREAD_SAFE
- LFLAGS :=
- else # Linux / Other UNIX
- ifdef bcc
- LFLAGS := libpthread.a
- else
- LFLAGS := -lpthread
- endif
- endif
- endif
- endif
-endif
-
-
-CFLAGS += -I$(XSDK) -I$(XPDEV) -I$(SBBS_SRC)
-
-all: sbl sbl2smb smb2sbl sblpack
-
-sbl: sbl.o xsdk.o xsdkvars.o xsdkwrap.o
- $(CC) $(CFLAGS) $(LFLAGS) $^ -o $@ $(LIBS)
-
-SMBIO = genwrap.o filewrap.o dirwrap.o smblib.o lzh.o
-
-sbl2smb: sbl2smb.o $(SMBIO)
-
-smb2sbl: smb2sbl.o $(SMBIO)
-
-sblpack: sblpack.o filewrap.o
-
-clean:
- rm -f sbl sbl2smb smb2sbl sblpack *.o
diff --git a/xtrn/sbl/Makefile b/xtrn/sbl/Makefile
deleted file mode 100644
index b9dac2a8daf980a7dbdedc4c9ad4b429f26d3bd4..0000000000000000000000000000000000000000
--- a/xtrn/sbl/Makefile
+++ /dev/null
@@ -1,53 +0,0 @@
-##################################################################
-# Makefile for SBL (Synchronet BBS List Online External Program) #
-# For use with Borland C++ or C++ Builder (for Win32) #
-# Tabstop=8 #
-##################################################################
-
-# Macros
-CC = bcc32
-LD = ilink32
-XSDK = ..\sdk
-!ifndef XPDEV
- XPDEV = ../../src/xpdev
-!endif
-!ifndef SBBS_SRC
- SBBS_SRC = ../../src/sbbs3
-!endif
-CFLAGS = -WM -I$(XSDK);$(XPDEV);$(SBBS_SRC)
-CFLAGS = $(CFLAGS) -q -d -H -X- -w-csu -w-pch -w-ccc -w-rch -w-par -w-8004
-OBJS = xsdk.obj xsdkvars.obj xsdkwrap.obj
-
-.path.c = .;$(XSDK);$(XPDEV);$(SBBS_SRC)
-
-# Enable auto-dependency checking
-.autodepend
-.cacheautodepend
-
-# Implicit C Compile Rule
-.c.obj:
- @$(CC) $(CFLAGS) -c $<
-
-all: sbl.exe smb2sbl.exe sbl2smb.exe sblpack.exe
-
-# Main EXE Link Rule
-sbl.exe: $(OBJS) sbl.obj
- @echo Linking $@
- @$(CC) $(CFLAGS) -e$@ $**
-
-SMBIO = genwrap.obj filewrap.obj dirwrap.obj smblib.obj lzh.obj
-
-sbl2smb.exe: sbl2smb.obj $(SMBIO)
- @echo Linking $@
- @$(CC) $(CFLAGS) -e$@ $**
-
-smb2sbl.exe: smb2sbl.obj $(SMBIO)
- @echo Linking $@
- @$(CC) $(CFLAGS) -e$@ $**
-
-sblpack.exe: sblpack.obj
- @echo Linking $@
- @$(CC) $(CFLAGS) -e$@ $**
-
-clean:
- del $(OBJS) $(SMBIO)
\ No newline at end of file
diff --git a/xtrn/sbl/sbbslist.c b/xtrn/sbl/sbbslist.c
deleted file mode 100644
index 2c4e8d31d507fd953351de10cb33e807d124cdac..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbbslist.c
+++ /dev/null
@@ -1,1003 +0,0 @@
-/* SBBSLIST.C */
-
-/* Developed 1990-2003 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Converts Synchronet BBS List (SBL.DAB) to HTML file */
-
-#include "xsdk.h"
-#include "telnet.h"
-#include "sbldefs.h"
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-char *nulstr="";
-char tmp[256];
-
-extern int daylight=0;
-extern long timezone=0L;
-
-#undef ERROR_VALUE
-#define ERROR_VALUE (GetLastError()-WSABASEERR)
-
-#define SORT TRUE
-#define VERIFY TRUE
-
-typedef struct {
-
- time_t date;
- ulong count;
- ulong attempts;
- short offset;
-
- } sort_t;
-
-
-int sort_cmp(sort_t **str1, sort_t **str2)
-{
- int diff;
-
- /* sort descending by date */
- diff=((*str2)->date&0xffff0000)-((*str1)->date&0xffff0000);
-
- if(diff)
- return(diff);
-
- /* sort descending by verfication counter */
- diff=(((*str2)->count)-((*str1)->count));
-
- if(diff)
- return(diff);
-
- /* sort ascending by verification attempts */
- return(((*str1)->attempts)-((*str2)->attempts));
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' */
-/****************************************************************************/
-void truncsp(uchar *str)
-{
- uint c;
-
- c=strlen(str);
- while(c && (uchar)str[c-1]<=SP) c--;
- str[c]=0;
-}
-
-/****************************************************************************/
-/* Generates a 24 character ASCII string that represents the time_t pointer */
-/* Used as a replacement for ctime() */
-/****************************************************************************/
-char *timestr(time_t *intime)
-{
- static char str[256];
- char mer[3],hour;
- struct tm *gm;
-
- gm=localtime(intime);
-
- if(gm==NULL) {
- sprintf(str,"Invalid time: %08lX",*intime);
- return(str);
- }
-
- if(gm->tm_hour>=12) {
- if(gm->tm_hour==12)
- hour=12;
- else
- hour=gm->tm_hour-12;
- strcpy(mer,"pm"); }
- else {
- if(gm->tm_hour==0)
- hour=12;
- else
- hour=gm->tm_hour;
- strcpy(mer,"am"); }
- sprintf(str,"%s %s %02d %4d %02d:%02d %s"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
- ,hour,gm->tm_min,mer);
- return(str);
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
- struct tm* tm;
-
- if(!unix)
- strcpy(str,"00/00/00");
- else {
- tm=gmtime(&unix);
- if(tm==NULL)
- strcpy(str,"00/00/00");
- else {
- if(tm->tm_mon>11) { /* DOS leap year bug */
- tm->tm_mon=0;
- tm->tm_year++; }
- if(tm->tm_mday>31)
- tm->tm_mday=1;
- sprintf(str,"%02u/%02u/%02u",tm->tm_mon+1,tm->tm_mday
- ,tm->tm_year%100); }
- }
- return(str);
-}
-
-char* html_encode(char *src)
-{
- static char buf[1024];
- int i;
-
- for(i=0;*src;src++)
- i+=sprintf(buf+i,"&#%u;",*src);
-
- return(buf);
-}
-
-void long_bbs_info(FILE *out, bbs_t bbs)
-{
- int i;
-
-fprintf(out,"BBS Name: %s since %s\r\n"
- ,bbs.name,unixtodstr(bbs.birth,tmp));
-fprintf(out,"Operator: ");
-for(i=0;i<bbs.total_sysops && i<MAX_SYSOPS;i++) {
- if(i) {
- if(bbs.total_sysops>2)
- fprintf(out,", ");
- else
- fputc(SP,out);
- if(!(i%4))
- fprintf(out,"\r\n ");
- if(i+1==bbs.total_sysops)
- fprintf(out,"and "); }
- fprintf(out,"%s",bbs.sysop[i]); }
-fprintf(out,"\r\n");
-fprintf(out,"Software: %-15.15s Nodes: %-5u "
- "Users: %-5u Doors: %u\r\n"
- ,bbs.software,bbs.nodes,bbs.users,bbs.xtrns);
-fprintf(out,"Download: %lu files in %u directories of "
- "%luMB total space\r\n"
- ,bbs.files,bbs.dirs,bbs.megs);
-fprintf(out,"Messages: %lu messages in %u sub-boards\r\n"
- ,bbs.msgs,bbs.subs);
-fprintf(out,"Networks: ");
-for(i=0;i<bbs.total_networks && i<MAX_NETS;i++) {
- if(i) {
- if(bbs.total_networks>2)
- fprintf(out,", ");
- else
- fputc(SP,out);
- if(!(i%3))
- fprintf(out,"\r\n ");
- if(i+1==bbs.total_networks)
- fprintf(out,"and "); }
- fprintf(out,"%s [%s]",bbs.network[i],bbs.address[i]); }
-fprintf(out,"\r\n");
-fprintf(out,"Terminal: ");
-for(i=0;i<bbs.total_terminals && i<MAX_TERMS;i++) {
- if(i) {
- if(bbs.total_terminals>2)
- fprintf(out,", ");
- else
- fputc(SP,out);
- if(i+1==bbs.total_terminals)
- fprintf(out,"and "); }
- fprintf(out,"%s",bbs.terminal[i]); }
-fprintf(out,"\r\n\r\n");
-for(i=0;i<bbs.total_numbers && i<MAX_NUMBERS;i++) {
- fprintf(out,"%-30.30s "
- ,i && !strcmp(bbs.number[i].modem.location,bbs.number[i-1].modem.location)
- ? nulstr : bbs.number[i].modem.location);
- if(bbs.number[i].modem.min_rate==0xffff)
- fprintf(out,"%s:%d\r\n"
- ,bbs.number[i].telnet.addr
- ,bbs.number[i].telnet.port);
- else
- fprintf(out,"%12.12s %5u %-15.15s "
- "Minimum: %u\r\n"
- ,bbs.number[i].modem.number
- ,bbs.number[i].modem.max_rate,bbs.number[i].modem.desc
- ,bbs.number[i].modem.min_rate);
-}
-fprintf(out,"\r\n");
-for(i=0;i<5;i++) {
- if(!bbs.desc[i][0])
- break;
- fprintf(out,"%15s%s\r\n",nulstr,bbs.desc[i]); }
-
-fprintf(out,"\r\n");
-fprintf(out,"Entry created on %s by %s\r\n"
- ,timestr(&bbs.created),bbs.user);
-if(bbs.updated && bbs.userupdated[0])
- fprintf(out," Last updated on %s by %s\r\n"
- ,timestr(&bbs.updated),bbs.userupdated);
-if(bbs.verified && bbs.userverified[0])
- fprintf(out,"Last verified on %s by %s\r\n"
- ,timestr(&bbs.verified),bbs.userverified);
-}
-
-#if 0 /* old way */
-u_long resolve_ip(char *addr)
-{
- HOSTENT* host;
-
- if(isdigit(addr[0]))
- return(inet_addr(addr));
- if ((host=gethostbyname(addr))==NULL) {
-// printf("!ERROR resolving hostname: %s\n",addr);
- return(0);
- }
- return(*((ulong*)host->h_addr_list[0]));
-}
-#else
-u_long resolve_ip(char *addr)
-{
- HOSTENT* host;
- char* p;
-
- if(*addr==0)
- return(INADDR_NONE);
-
- for(p=addr;*p;p++)
- if(*p!='.' && !isdigit(*p))
- break;
- if(!(*p))
- return(inet_addr(addr));
- if((host=gethostbyname(addr))==NULL)
- return(INADDR_NONE);
- return(*((ulong*)host->h_addr_list[0]));
-}
-#endif
-
-int telnet_negotiate(SOCKET sock, uchar* buf, int rd, int max_rd)
-{
- int i;
- int rsplen;
- uchar rsp[512];
-
- return(rd);
-
- do {
- rsplen=0;
- for(i=0; i<rd && rsplen<sizeof(rsp)-2;i++) {
- if(buf[i]!=TELNET_IAC)
- continue;
- i++;
- printf("telnet cmd: %02X %02X\n"
- ,buf[i],buf[i+1]);
- if(buf[i]==TELNET_DO) {
- rsp[rsplen++]=TELNET_IAC;
- rsp[rsplen++]=TELNET_WILL;
- rsp[rsplen++]=buf[i+1];
- }
- if(buf[i]==TELNET_DONT) {
- rsp[rsplen++]=TELNET_IAC;
- rsp[rsplen++]=TELNET_WONT;
- rsp[rsplen++]=buf[i+1];
- }
- i++;
- }
- if(!rsplen)
- break;
- printf("telnet rsp: ");
- for(i=0; i<rsplen; i++)
- printf("%02X ",rsp[i]);
- printf("\n");
- send(sock,rsp,rsplen,0);
- Sleep(3000);
- rd=recv(sock,buf,max_rd,0);
-
- } while(rd>0);
-
- return(rd);
-
-}
-
-int sockreadline(SOCKET socket, char* buf, int len, int timeout)
-{
- char ch;
- int i,rd=0;
- time_t start;
- fd_set socket_set;
- struct timeval tv;
-
- start=time(NULL);
- while(rd<len-1) {
-
- tv.tv_sec=0;
- tv.tv_usec=0;
-
- FD_ZERO(&socket_set);
- FD_SET(socket,&socket_set);
-
- i=select(socket+1,&socket_set,NULL,NULL,&tv);
-
- if(i<1) {
- if(i==0) {
- if((time(NULL)-start)>=timeout)
- return(0);
- mswait(1);
- continue;
- }
- return(0);
- }
- i=recv(socket, &ch, 1, 0);
- if(i<1)
- return(0);
- if(ch=='\n' && rd>=1) {
- break;
- }
- buf[rd++]=ch;
- }
- buf[rd-1]=0;
-
- return(rd);
-}
-
-
-BOOL check_imsg_support(ulong ip_addr)
-{
- char buf[128];
- BOOL success=FALSE;
- int rd;
- SOCKET sock;
- SOCKADDR_IN addr;
-
- printf("\r\nFinger: ");
- if((sock = socket(AF_INET,SOCK_STREAM,IPPROTO_IP)) == INVALID_SOCKET) {
- printf("!Error %d opening socket\n",ERROR_VALUE);
- return(FALSE);
- }
-
- memset(&addr,0,sizeof(addr));
- addr.sin_family = AF_INET;
-
- if(bind(sock, (struct sockaddr *) &addr, sizeof (addr))!=0) {
- printf("!bind error %d\n",ERROR_VALUE);
- closesocket(sock);
- return(FALSE);
- }
-
- memset(&addr,0,sizeof(addr));
- addr.sin_addr.S_un.S_addr = ip_addr;
- addr.sin_family = AF_INET;
- addr.sin_port = htons(79); /* finger */
-
- if(connect(sock, (struct sockaddr *)&addr, sizeof(addr))!=0) {
- printf("!connect error %d\n",ERROR_VALUE);
- closesocket(sock);
- return(FALSE);
- }
-
- /* Send query */
- strcpy(buf,"?ver\r\n");
- send(sock,buf,strlen(buf),0);
-
- /* Get response */
- while((rd=sockreadline(sock,buf,sizeof(buf),60))>0) {
- printf("%s\n",buf);
- if(strstr(buf,"Synchronet")) {
- success=TRUE;
- break;
- }
- }
-
- closesocket(sock);
-
- if(success==FALSE)
- return(FALSE);
-
- /* Check SMTP server */
- printf("SMTP: ");
- success=FALSE;
-
- if((sock = socket(AF_INET,SOCK_STREAM,IPPROTO_IP)) == INVALID_SOCKET) {
- printf("!Error %d opening socket\n",ERROR_VALUE);
- return(FALSE);
- }
-
- memset(&addr,0,sizeof(addr));
- addr.sin_family = AF_INET;
-
- if(bind(sock, (struct sockaddr *) &addr, sizeof (addr))!=0) {
- printf("!bind error %d\n",ERROR_VALUE);
- closesocket(sock);
- return(FALSE);
- }
-
- memset(&addr,0,sizeof(addr));
- addr.sin_addr.S_un.S_addr = ip_addr;
- addr.sin_family = AF_INET;
- addr.sin_port = htons(25); /* SMTP */
-
- if(connect(sock, (struct sockaddr *)&addr, sizeof(addr))!=0) {
- printf("!connect error %d\n",ERROR_VALUE);
- closesocket(sock);
- return(FALSE);
- }
-
- /* Get response */
- while((rd=sockreadline(sock,buf,sizeof(buf),60))>0) {
- printf("%s\r\n",buf);
- if(strstr(buf,"Synchronet")) {
- success=TRUE;
- break;
- }
- }
-
- closesocket(sock);
-
- return(success);
-}
-
-int main(int argc, char **argv)
-{
- char str[128],name[128],*location,nodes[32],*sysop;
- char* mail_to = "mailto:"; /* encoded "mailto:" */
- char sysop_email[1024];
- char buf[256];
- char verify_result[128];
- char version[128];
- char* p;
- char* sp;
- char* tp;
- char* for_os;
- char* fontstr="<FONT FACE=\"Arial\" SIZE=\"-1\">";
- char telnet_addr_buf[128];
- char* telnet_addr;
- char telnet_portstr[32];
- ushort telnet_port;
- BOOL fingered;
- BOOL verified;
- ushort index;
- int i,j,file,ff,rd;
- long l;
- ulong ip_addr;
- ulong total_systems;
- ulong total_attempts=0;
- ulong total_verified=0;
- FILE *in,*shrt,*lng,*html,*mail;
- FILE* ibbs;
- ulong ip_list[1000];
- ulong ip_total=0;
- ulong ip;
- bbs_t bbs;
- sort_t **sort=NULL;
- time_t now;
-
- /* socket stuff */
- SOCKET sock;
- SOCKADDR_IN addr;
- int status; /* Status Code */
- WSADATA WSAData;
-
- if((status = WSAStartup(MAKEWORD(1,1), &WSAData))!=0) {
- printf("!WinSock startup ERROR %d\n", status);
- return(1);
- }
-
-#if 0
- if(_putenv("TZ=UCT0"))
- printf("!putenv() FAILED");
- tzset();
-#endif
- now=time(NULL);
-
- if((i=_sopen("SBL.DAB",O_RDWR|O_BINARY,SH_DENYNO,S_IREAD|S_IWRITE))==-1) {
- printf("error opening SBL.DAB\n");
- return(1); }
-
- if((in=fdopen(i,"rb"))==NULL) {
- printf("error opening SBL.DAB\n");
- return(1); }
-
- if((shrt=fopen("SBBS.LST","wb"))==NULL) {
- printf("error opening/creating SBBS.LST\n");
- return(1); }
-
- if((lng=fopen("SBBS_DET.LST","wb"))==NULL) {
- printf("error opening/creating SBBS_DET.LST\n");
- return(1); }
-
- if((html=fopen("sbbslist.html","w"))==NULL) {
- printf("error opening/creating sbbslist.html\n");
- return(1); }
-
- if((ibbs=fopen("sbbsimsg.lst","w"))==NULL) {
- printf("error opening/creating sbbsimsg.lst\n");
- return(1); }
-
- if((mail=fopen("sysop.lst","w"))==NULL) {
- printf("error opening/creating sysop.lst\n");
- return(1); }
-
- fprintf(shrt,"Synchronet BBS List exported from Vertrauen on %s\r\n"
- "======================================================="
- "\r\n\r\n"
- ,unixtodstr(time(NULL),str));
-
- fprintf(lng,"Detailed Synchronet BBS List exported from Vertrauen on %s\r\n"
- "================================================================"
- "\r\n\r\n"
- ,unixtodstr(time(NULL),str));
-
- fprintf(html,"<HTML><HEAD><TITLE>Synchronet BBS List</TITLE></HEAD>\n");
- fprintf(html,"<BODY><FONT FACE=\"Arial\" SIZE=\"-1\">\n");
-
- printf("Sorting...");
- fseek(in,0L,SEEK_SET);
- i=j=0;
- while(1) {
- if(!fread(&bbs,sizeof(bbs_t),1,in))
- break;
- j++;
- printf("%4u\b\b\b\b",j);
- if(!bbs.name[0] || strnicmp(bbs.software,"SYNCHRONET",10)) {
-// printf("%s\n",bbs.software);
- continue;
- }
- i++;
- if((sort=(sort_t **)REALLOC(sort
- ,sizeof(sort_t *)*i))==NULL) {
- printf("\r\n\7Memory allocation error\r\n");
- return(1); }
- if((sort[i-1]=(sort_t *)LMALLOC(sizeof(sort_t)
- ))==NULL) {
- printf("\r\n\7Memory allocation error\r\n");
- return(1); }
- sort[i-1]->date=bbs.verified;
- sort[i-1]->count=bbs.verification_count;
- sort[i-1]->attempts=bbs.verification_attempts;
- sort[i-1]->offset=j-1;
- }
- total_systems=i;
-
-#if SORT
- qsort((void *)sort,total_systems,sizeof(sort[0])
- ,(int(*)(const void *, const void *))sort_cmp);
-#endif
- printf(" Done.\n");
-
- printf("Creating index...");
- sprintf(str,"SBBSSORT.NDX");
- if((file=open(str,O_RDWR|O_CREAT|O_TRUNC|O_BINARY,S_IWRITE|S_IREAD))==-1) {
- printf("\n\7Error creating %s\n",str);
- return(1); }
- for(j=0;j<(int)total_systems;j++)
- write(file,&sort[j]->offset,2);
- lseek(file,0L,SEEK_SET);
- printf(" Done.\n");
-
-
- printf("Creating lists...\n");
-
- fprintf(html,"<CENTER>");
- fprintf(html,"<H1><I><A HREF=http://www.synchro.net>Synchronet"
- "</A> BBS List</H1></I>\n");
-
- fprintf(html,"(%d systems) exported from "
- "<B><A HREF=http://vert.synchro.net>Vertrauen</A></B> on %s\n"
- ,total_systems ,timestr(&now));
-
- fprintf(html,"<P></CENTER>\n");
-
- fprintf(html,"<TABLE WIDTH=\"100%%\">\n");
- fprintf(html,"<COLGROUP ALIGN=LEFT><COLGROUP ALIGN=LEFT>"
- "<COLGROUP ALIGN=CENTER><COLGROUP ALIGN=CENTER>"
- "<COLGROUP ALIGN=RIGHT><COLGROUP ALIGN=CENTER>\n");
- fprintf(html,"<TR BGCOLOR=\"#000000\">\n");
- fprintf(html,"<TH><FONT FACE=\"Arial\" SIZE=\"-1\" COLOR=\"#FFFFFF\">BBS Name\n");
- fprintf(html,"<TH><FONT FACE=\"Arial\" SIZE=\"-1\" COLOR=\"#FFFFFF\">Sysop\n");
- fprintf(html,"<TH><FONT FACE=\"Arial\" SIZE=\"-1\" COLOR=\"#FFFFFF\">Location\n");
- fprintf(html,"<TH><FONT FACE=\"Arial\" SIZE=\"-1\" COLOR=\"#FFFFFF\">Nodes\n");
- fprintf(html,"<TH><FONT FACE=\"Arial\" SIZE=\"-1\" COLOR=\"#FFFFFF\">Modem/Telnet Address\n");
- fprintf(html,"<TH><FONT FACE=\"Arial\" SIZE=\"-1\" COLOR=\"#FFFFFF\">Verification Results\n");
- ff=0;
- while(1) {
- if(read(file,&index,2)!=2)
- break;
- fseek(in,(long)index*sizeof(bbs_t),SEEK_SET);
- if(!fread(&bbs,sizeof(bbs_t),1,in))
- break;
- long_bbs_info(lng,bbs);
- if(ff)
- fprintf(lng,"\x0c\r\n");
- else
- fprintf(lng,"\r\n---------------------------------------------"
- "----------------------------------\r\n\r\n");
- ff=!ff;
- verified=FALSE;
- fingered=FALSE;
- total_attempts++;
- for(i=0;i<bbs.total_numbers && i<MAX_NUMBERS;i++) {
- if(!i) {
- if(strchr(bbs.sysop_email,'@')) {
- sprintf(sysop_email,"<A HREF=%s%s>%s</A>"
- ,mail_to,html_encode(bbs.sysop_email),bbs.sysop[0]);
- sysop=sysop_email;
- } else
- sysop=bbs.sysop[0];
- sprintf(nodes,"%u",bbs.nodes);
- } else {
- sysop="";
- nodes[0]=0;
- }
- if(bbs.number[i].modem.min_rate==0xffff) {
-
- telnet_port=bbs.number[i].telnet.port;
- if(telnet_port==0)
- telnet_port=23;
- strcpy(telnet_addr_buf,bbs.number[i].telnet.addr);
- telnet_addr=telnet_addr_buf;
-
- if(!strnicmp(telnet_addr,"TELNET:",7))
- telnet_addr+=7;
- if(!strnicmp(telnet_addr,"//",2))
- telnet_addr+=2;
- p=strchr(telnet_addr,':');
- if(p!=NULL) {
- *p=0;
- telnet_port=atoi(p+1);
- }
- printf("Resolving IP address for: %s",telnet_addr);
- ip_addr=resolve_ip(telnet_addr);
- printf("\n");
-
- if(i) {
- if(ip_addr==0 || ip_addr==INADDR_NONE)
- continue; /* bad hostname/IP, ignore */
- for(ip=0;ip<ip_total;ip++)
- if(ip_addr==ip_list[ip])
- break;
- if(ip<ip_total) /* already verified, ignore */
- continue;
- }
- }
-
- if(i && !stricmp(bbs.number[i].modem.number,bbs.number[i-1].modem.number))
- continue; // duplicate
- if(i && !stricmp(bbs.number[i].modem.location,bbs.number[i-1].modem.location))
- location="";
- else
- location=bbs.number[i].modem.location;
- fprintf(shrt,"%-25.25s %-25.25s %s\r\n"
- ,i ? "" : bbs.name, location
- ,bbs.number[i].modem.number);
- if(!i) {
- fprintf(html,"<A NAME=\"%s.index\">",bbs.name);
- fprintf(html,"<TR BGCOLOR=\"#EEEEEE\">");
- } else
- fprintf(html,"<TR>");
- sprintf(name,"<A HREF=\"#%s\">%s</A>",bbs.name,bbs.name);
-
- if(bbs.number[i].modem.min_rate==0xffff) {
-
-#if 0 // moved
- telnet_port=bbs.number[i].telnet.port;
- if(telnet_port==0)
- telnet_port=23;
- strcpy(telnet_addr_buf,bbs.number[i].telnet.addr);
- telnet_addr=telnet_addr_buf;
-
- if(!strnicmp(telnet_addr,"TELNET:",7))
- telnet_addr+=7;
- if(!strnicmp(telnet_addr,"//",2))
- telnet_addr+=2;
- p=strchr(telnet_addr,':');
- if(p!=NULL) {
- *p=0;
- telnet_port=atoi(p+1);
- }
-#endif
-
-#if !VERIFY /* set to 1 for no-verification */
- verified=TRUE;
- strcpy(verify_result,"<B>v3.00x for Win32</B>");
-#else
- printf("Verifying %d/%d %s:%d "
- ,total_attempts,total_systems,telnet_addr,telnet_port);
-
-// ip_addr=resolve_ip(telnet_addr); /* already done above */
- if(!ip_addr || ip_addr==INADDR_NONE)
- strcpy(verify_result,"bad hostname");
- else {
-
- if((sock = socket(AF_INET,SOCK_STREAM,IPPROTO_IP)) == INVALID_SOCKET) {
- printf("\n\7Error %d opening socket",ERROR_VALUE);
- return(1);
- }
-
- memset(&addr,0,sizeof(addr));
- addr.sin_family = AF_INET;
-
- if(bind(sock, (struct sockaddr *) &addr, sizeof (addr))!=0) {
- closesocket(sock);
- printf("!ERROR %d binding to socket %d",ERROR_VALUE, sock);
- return(1);
- }
-
- memset(&addr,0,sizeof(addr));
- addr.sin_addr.S_un.S_addr = ip_addr;
- addr.sin_family = AF_INET;
- addr.sin_port = htons(telnet_port);
-
- if(connect(sock, (struct sockaddr *)&addr, sizeof(addr))!=0)
- sprintf(verify_result,"no connect (%ld)"
- ,ERROR_VALUE);
- else {
- l=1;
- ioctlsocket(sock, FIONBIO, &l);
- Sleep(3000);
-
- buf[0]=0;
- rd=recv(sock,buf,sizeof(buf)-1,0);
- if((rd=telnet_negotiate(sock,buf,rd,sizeof(buf)-1))<1)
- sprintf(verify_result,"no data (%ld)"
- ,rd==SOCKET_ERROR ? ERROR_VALUE : rd);
- else {
-
- buf[rd]=0;
- sp=buf+(rd-1);
- while(*sp && sp!=buf) sp--; // Skip garbage (with null)
- if(*sp==0)
- sp++;
- p=strstr(sp,"Synchronet");
- if(p!=NULL) {
- verified=TRUE;
- for_os=strstr(sp," for ");
- if(for_os==NULL)
- for_os="";
- p=strstr(sp,"Version ");
- if(p==NULL)
- version[0]=0;
- else {
- p+=8; /* skip "version" */
- tp=strchr(p,'\r');
- if(tp!=NULL) *tp=0;
- truncsp(p);
- for_os[12]=0;
- tp=strchr(for_os+5,' ');
- if(tp!=NULL) *tp=0;
- truncsp(for_os);
- sprintf(version,"v%s%s",p,for_os);
- }
- sprintf(verify_result,"<B>%s</B>"
- ,version[0] ? version : "Verified");
- } else {
- printf("rd=%d buf='%s' sp='%s'\n",rd,buf,sp);
- sprintf(verify_result,"non-Synchronet");
- }
- /* Check Finger */
- if(!fingered) { /* not already checked */
- for(ip=0;ip<ip_total;ip++)
- if(ip_addr==ip_list[ip])
- break;
- if(ip>=ip_total && check_imsg_support(ip_addr)) {
- fingered=TRUE;
- printf("[IM]");
- fprintf(ibbs,"%-63s %s\n"
- ,telnet_addr, inet_ntoa(addr.sin_addr));
- }
- }
- }
- }
-
- ip_list[ip_total++]=ip_addr;
- closesocket(sock);
- }
-
- printf("%s\n",verify_result);
- bbs.verification_attempts++;
-#endif
-
- if(telnet_port==23)
- telnet_portstr[0]=0;
- else
- sprintf(telnet_portstr,":%d",telnet_port);
-
- fprintf(html,"<TD><B>%s%s</B><TD>%s%s<TD>%s%s<TD>%s%s<TD%s>"
- "<A HREF=telnet://%s%s>%s%s%s%s%s</A><TD%s>%s%s\n"
- ,fontstr,i ? "":name
- ,fontstr,sysop
- ,fontstr,location
- ,fontstr,nodes
- ,i ? " BGCOLOR=\"#EEEEEE\"":""
- ,telnet_addr, telnet_portstr
- ,fontstr
- ,verified ? "<B>":"", telnet_addr, telnet_portstr
- , verified ? "</B>":""
- ,i ? " BGCOLOR=\"#EEEEEE\"":""
- ,fontstr,verify_result);
- } else
- fprintf(html,"<TD><B>%s%s</B><TD>%s%s<TD>%s%s<TD>%s%s<TD%s>%s%s"
- "<TD%s>%s%s\n"
- ,fontstr,i ? "":name
- ,fontstr,sysop
- ,fontstr,location
- ,fontstr,nodes
- ,i ? " BGCOLOR=\"#EEEEEE\"":""
- ,fontstr,bbs.number[i].modem.number
- ,i ? " BGCOLOR=\"#EEEEEE\"":""
- ,fontstr,"N/A");
- } /* for(numbers) */
-#if VERIFY
- if(verified) {
- total_verified++;
- bbs.verified=time(NULL);
- bbs.verification_count++;
- strcpy(bbs.userverified,"SBBS List Verifier");
- }
- fseek(in,(long)index*sizeof(bbs_t),SEEK_SET);
- fwrite(&bbs,sizeof(bbs_t),1,in);
-#endif
- }
- fprintf(html,"</TABLE>\n");
-
- now=time(NULL);
- fprintf(html,"<CENTER>\n");
- fprintf(html,"%d systems verified from "
- "<B><A HREF=http://vert.synchro.net>Vertrauen</A></B> on %s\n"
- ,total_verified ,timestr(&now));
- fprintf(html,"<H1><I>Detailed Synchronet BBS List</I></H1>\n");
- fprintf(html,"</CENTER>\n");
-
- /* Generate Detailed List */
- lseek(file,0L,SEEK_SET);
- while(1) {
- if(read(file,&index,2)!=2)
- break;
- fseek(in,(long)index*sizeof(bbs_t),SEEK_SET);
- if(!fread(&bbs,sizeof(bbs_t),1,in))
- break;
-
- fprintf(html,"<P><A NAME=\"%s\">\n",bbs.name);
-
- fprintf(html,"<H2><A HREF=\"#%s.index\">%s</A></H2>",bbs.name,bbs.name);
- fprintf(html,"<FONT FACE=\"Arial\" SIZE=\"-1\">\n");
-
- fprintf(html,"Online since: %s<BR>\n",unixtodstr(bbs.birth,tmp));
-
- if(strchr(bbs.sysop_email,'@')) {
- fprintf(mail,"%s\n",bbs.sysop_email);
- sprintf(sysop_email,"<A HREF=%s%s>%s</A>"
- ,mail_to,html_encode(bbs.sysop_email),bbs.sysop[0]);
- sysop=sysop_email;
- } else
- sysop=bbs.sysop[0];
-
- fprintf(html,"Operator: %s", sysop);
-
- for(i=1;i<bbs.total_sysops && i<MAX_SYSOPS;i++) {
- if(bbs.total_sysops>2)
- fprintf(html,", ");
- else
- fputc(SP,html);
- if(i+1==bbs.total_sysops)
- fprintf(html,"and ");
- fprintf(html,"%s",bbs.sysop[i]);
- }
- fprintf(html,"<BR>\n");
-
- if(bbs.web_url[0])
- fprintf(html,"Web-site: <A HREF=http://%s>%s</A><BR>\n",bbs.web_url,bbs.web_url);
-
- fprintf(html,"Nodes: %u, "
- "Users: %u, Doors: %u<BR>\n"
- ,bbs.nodes,bbs.users,bbs.xtrns);
- fprintf(html,"Download: %lu files in %u directories of "
- "%luMB total space<BR>\n"
- ,bbs.files,bbs.dirs,bbs.megs);
- fprintf(html,"Messages: %lu messages in %u sub-boards<BR>\n"
- ,bbs.msgs,bbs.subs);
-
- if(bbs.total_networks) {
- fprintf(html,"Networks: ");
- for(i=0;i<bbs.total_networks && i<MAX_NETS;i++) {
- if(i) {
- if(bbs.total_networks>2)
- fprintf(html,", ");
- else
- fputc(SP,html);
- if(!(i%2))
- fprintf(html,"<BR>");
- if(i+1==bbs.total_networks)
- fprintf(html,"and ");
- }
- fprintf(html,"%s [%s]",bbs.network[i],bbs.address[i]); }
- fprintf(html,"<BR>\n");
- }
-
- if(bbs.total_terminals) {
- fprintf(html,"Terminal: ");
- for(i=0;i<bbs.total_terminals && i<MAX_TERMS;i++) {
- if(i) {
- if(bbs.total_terminals>2)
- fprintf(html,", ");
- else
- fputc(SP,html);
- if(i+1==bbs.total_terminals)
- fprintf(html,"and "); }
- fprintf(html,"%s",bbs.terminal[i]); }
- fprintf(html,"<BR>\n");
- }
-
- fprintf(html,"<BR>\n");
- for(i=0;i<bbs.total_numbers && i<MAX_NUMBERS;i++) {
- if(bbs.number[i].modem.min_rate==0xffff) {
-
- telnet_port=bbs.number[i].telnet.port;
- if(telnet_port==0)
- telnet_port=23;
- strcpy(telnet_addr_buf,bbs.number[i].telnet.addr);
- telnet_addr=telnet_addr_buf;
-
- if(!strnicmp(telnet_addr,"TELNET:",7))
- telnet_addr+=7;
- if(!strnicmp(telnet_addr,"//",2))
- telnet_addr+=2;
- p=strchr(telnet_addr,':');
- if(p!=NULL) {
- *p=0;
- telnet_port=atoi(p+1);
- }
-
- if(telnet_port==23)
- telnet_portstr[0]=0;
- else
- sprintf(telnet_portstr,":%d",telnet_port);
-
- fprintf(html,"<A HREF=telnet://%s%s>telnet://%s%s</A>"
- ,telnet_addr
- ,telnet_portstr
- ,telnet_addr
- ,telnet_portstr);
- } else
- fprintf(html,"%s %u %s "
- "Minimum: %u"
- ,bbs.number[i].modem.number
- ,bbs.number[i].modem.max_rate,bbs.number[i].modem.desc
- ,bbs.number[i].modem.min_rate);
-
- fprintf(html," %s<BR>\n"
- ,i && !strcmp(bbs.number[i].modem.location,bbs.number[i-1].modem.location)
- ? nulstr : bbs.number[i].modem.location);
- }
- fprintf(html,"<BR>\n");
-
- fprintf(html,"<BLOCKQUOTE>\n");
- for(i=0;i<5;i++) {
- if(!bbs.desc[i][0])
- break;
- fprintf(html,"%s<BR>\n",bbs.desc[i]);
- }
- fprintf(html,"</BLOCKQUOTE>\n");
-
- fprintf(html,"<PRE>\n");
- fprintf(html,"Entry created on %s by %s\n"
- ,timestr(&bbs.created),bbs.user);
- if(bbs.updated && bbs.userupdated[0])
- fprintf(html," Last updated on %s by %s\n"
- ,timestr(&bbs.updated),bbs.userupdated);
- if(bbs.verified && bbs.userverified[0])
- fprintf(html,"Last verified on %s by %s\n"
- ,timestr(&bbs.verified),bbs.userverified);
-
- fprintf(html,"</PRE></P>\n");
- }
- fprintf(html,"<CENTER><H1>End</H1></CENTER>\n");
-
- fprintf(html,"<P>If you are a sysop of a <B>Synchronet BBS</B> and you would "
- "like to add your system to this list, please do one of the following:\n");
- fprintf(html,"<UL>\n");
- fprintf(html,"<LI>Install <I>Synchronet BBS List <B>v2.00+</B></I> on your BBS and "
- "link it into the <B>SYNCDATA</B> message conference (on <B>DOVE-Net</B> or <B>FidoNet</B>)\n");
- fprintf(html,"<LI><B>OR</B> log on to <A HREF=telnet://vert.synchro.net>Vertrauen</A> and "
- "manually add your system into the online BBS List database.\n");
- fprintf(html,"</UL>\n");
- fprintf(html,"</BODY></HTML>\n");
- printf(" Done.\n");
- return(0);
-}
diff --git a/xtrn/sbl/sbl.bpf b/xtrn/sbl/sbl.bpf
deleted file mode 100644
index 4d4d9faa08980844713ed3f91c478a19f80780b7..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl.bpf
+++ /dev/null
@@ -1,9 +0,0 @@
-USEUNIT("Sbl.c");
-USEUNIT("..\SDK\Xsdkvars.c");
-USEUNIT("..\SDK\Xsdk.c");
-USELIB("D:\Borland\CBuilder5\Lib\ws2_32.lib");
-USEUNIT("..\sdk\xsdkwrap.c");
-//---------------------------------------------------------------------------
-This file is used by the project manager only and should be treated like the project file
-
-
main
\ No newline at end of file
diff --git a/xtrn/sbl/sbl.bpr b/xtrn/sbl/sbl.bpr
deleted file mode 100644
index 00d8b4fdb9483164008b8b7b2af217ff88fb58c5..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl.bpr
+++ /dev/null
@@ -1,120 +0,0 @@
-<?xml version='1.0' encoding='utf-8' ?>
-<!-- C++Builder XML Project -->
-<PROJECT>
- <MACROS>
- <VERSION value="BCB.05.03"/>
- <PROJECT value="sbl.exe"/>
- <OBJFILES value="Sbl.obj ..\SDK\Xsdkvars.obj ..\SDK\Xsdk.obj ..\sdk\xsdkwrap.obj"/>
- <RESFILES value=""/>
- <IDLFILES value=""/>
- <IDLGENFILES value=""/>
- <DEFFILE value=""/>
- <RESDEPEN value="$(RESFILES)"/>
- <LIBFILES value="D:\Borland\CBuilder5\Lib\ws2_32.lib"/>
- <LIBRARIES value=""/>
- <SPARELIBS value=""/>
- <PACKAGES value="VCL50.bpi VCLX50.bpi bcbsmp50.bpi VCLDB50.bpi VCLADO50.bpi ibsmp50.bpi
- VCLBDE50.bpi VCLDBX50.bpi QRPT50.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi
- DSS50.bpi TEEQR50.bpi VCLIB50.bpi VCLMID50.bpi VCLIE50.bpi INETDB50.bpi
- INET50.bpi NMFAST50.bpi WEBMID50.bpi bcbie50.bpi dclocx50.bpi"/>
- <PATHCPP value=".;..\SDK"/>
- <PATHPAS value=".;"/>
- <PATHRC value=".;"/>
- <PATHASM value=".;"/>
- <DEBUGLIBPATH value="$(BCB)\lib\debug"/>
- <RELEASELIBPATH value="$(BCB)\lib\release"/>
- <LINKER value="tlink32"/>
- <USERDEFINES value="_DEBUG"/>
- <SYSDEFINES value="NO_STRICT;_NO_VCL"/>
- <MAINSOURCE value="sbl.bpf"/>
- <INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\sdk"/>
- <LIBPATH value="..\SDK;$(BCB)\lib\obj;$(BCB)\lib"/>
- <WARNINGS value="-w-par"/>
- </MACROS>
- <OPTIONS>
- <IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -I..\sdk -src_suffix cpp -D_DEBUG -boa"/>
- <CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -tWC
- -tWM -c"/>
- <PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
- <RFLAGS value=""/>
- <AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-D"" -ap -Tpe -x -Gn -v"/>
- </OPTIONS>
- <LINKER>
- <ALLOBJ value="c0x32.obj $(OBJFILES)"/>
- <ALLRES value="$(RESFILES)"/>
- <ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cw32mt.lib"/>
- </LINKER>
- <IDEOPTIONS>
-[Version Info]
-IncludeVerInfo=0
-AutoIncBuild=0
-MajorVer=1
-MinorVer=0
-Release=0
-Build=0
-Debug=0
-PreRelease=0
-Special=0
-Private=0
-DLL=0
-Locale=1033
-CodePage=1252
-
-[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
-LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
-
-[HistoryLists\hlIncludePath]
-Count=3
-Item0=$(BCB)\include;$(BCB)\include\vcl;..\sdk
-Item1=$(BCB)\include;$(BCB)\include\vcl;c:\sbbs\xtrn\sdk
-Item2=$(BCB)\include;$(BCB)\include\vcl
-
-[HistoryLists\hlLibraryPath]
-Count=2
-Item0=..\SDK;$(BCB)\lib\obj;$(BCB)\lib
-Item1=$(BCB)\lib\obj;$(BCB)\lib
-
-[HistoryLists\hlDebugSourcePath]
-Count=1
-Item0=$(BCB)\source\vcl
-
-[HistoryLists\hlConditionals]
-Count=1
-Item0=_DEBUG
-
-[Debugging]
-DebugSourceDirs=$(BCB)\source\vcl
-
-[Parameters]
-RunParams=
-HostApplication=
-RemoteHost=
-RemotePath=
-RemoteDebug=0
-
-[Compiler]
-ShowInfoMsgs=0
-LinkDebugVcl=0
-LinkCGLIB=0
-
-[CORBA]
-AddServerUnit=1
-AddClientUnit=1
-PrecompiledHeaders=1
-
-[Language]
-ActiveLang=
-ProjectLang=
-RootDir=
- </IDEOPTIONS>
-</PROJECT>
\ No newline at end of file
diff --git a/xtrn/sbl/sbl.c b/xtrn/sbl/sbl.c
deleted file mode 100644
index 185ebc6afd61924010ec1f76b6e8dd96148ed6ae..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl.c
+++ /dev/null
@@ -1,1546 +0,0 @@
-/* sbl.c */
-
-/* Synchronet BBS List Door */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-/***********
- * History *
- ***********
-
-******************
-* RELEASE: v1.00 *
-******************
-
-07/03/93 03:16am
-Fixed bug with "Auto-deleting" already deleted entries. This would cause a
-long list of "Auto-deletion" messages once a day.
-
-07/03/93 03:30am
-The name of the user who last updated the entry is now stored and displayed.
-
-07/03/93 03:45am
-Adding/Updating entries is now much easier and user friendly.
-
-07/03/93 04:00am
-Added support for user "verification" of BBS entries.
-
-07/03/93 04:10am
-Users may now update or remove entries using partial system names.
-
-07/03/93 04:30am
-Sysops may now un-delete purged entries with the '*' key.
-
-******************
-* RELEASE: v1.10 *
-******************
-
-10/18/93 06:04pm
-Fixed bug that would cause entries to be purged almost immediately.
-
-10/18/93 07:01pm
-(F)ind text now searches user names who last updated and verified.
-
-10/19/93 01:34am
-Added option for users to change the format of BBS listings.
-
-******************
-* RELEASE: v1.20 *
-******************
-
-10/20/93 04:44pm
-Fixed cosmetic problem with opening menu (for users, not sysop).
-
-******************
-* RELEASE: v1.21 *
-******************
-
-11/29/93 09:40pm
-More cosmetic changes. Added "Saving..." message.
-
-******************
-* RELEASE: v1.22 *
-******************
-
-02/02/94
-Added warning for pending auto-deletion of BBS entries.
-
-02/02/94
-Added option for turning screen pause off/on.
-
-02/03/94
-Added option in SBL.CFG for sysop/co-sysop notification of changes made to
-BBS list by users.
-
-02/03/94
-Converted all file operations from handles to streams for buffered i/o (speed).
-
-02/09/94
-Added options for generating a sort index and displaying sorted list based on
-various criteria.
-
-02/09/94
-Added nodesync() calls to display any messages waiting for this user/node.
-
-02/10/94
-Added search for duplicate names when adding new BBS entries.
-
-02/10/94
-Notification notice of actual auto-deletion sent to author of BBS entry upon
-auto-deletion.
-
-******************
-* RELEASE: v1.30 *
-******************
-
-03/14/94
-Added /M switch to force daily maintenance.
-
-03/22/94
-Fixed occasional double pause after listings.
-
-03/22/94
-Added total entries found to find text listings.
-
-03/22/94
-If a user verifies an entry, the user who created the entry is notified.
-
-03/29/94
-Sysop can define/change the "owner" of an entry when adding or updating.
-
-04/18/94
-Fixed bug in the sort-by-string functions that caused lock-ups when sorting
-more than 312 entries.
-
-04/18/94
-Lowered memory requirements for all sort functions.
-
-******************
-* RELEASE: v1.31 *
-******************
-
-08/23/94
-BBS entries now know whether they were created by a user or by SMB2SBL (via
-message base).
-
-08/23/94
-Fixed problem with hitting Ctrl-C locally during regular (not extended)
-listing. Returning to main menu would not clear screen or have correct colors.
-'aborted' variable is now reset in main() loop.
-
-******************
-* RELEASE: v1.32 *
-******************
-
-08/30/94
-Fixed stack overflow that would cause periodic lock-ups on some systems.
-
-******************
-* RELEASE: v1.33 *
-******************
-
-09/08/94
-When deleting an entry, the name of the BBS deleted wasn't being printed.
-
-02/01/95
-Import utility made mistake of ignoring READ messages to SBL. This has been
-fixed.
-
-12/16/99
-Fixed Y2K window bug in dstrtounix().
-
-12/16/99
-Fixed bug that caused SMB imported entries to never be autodeleted.
-
-06/01/00
-Added support for XSDK 3.0
-
-06/01/00
-Added support for MSVC 5+
-
-06/01/00
-Changed cosmetic appearance of main menu a bit
-
-06/14/99
-Added support for C++Builder 5
-*/
-
-#include <stddef.h> /* offsetof() macro */
-#include <xsdk.h>
-#include "sbldefs.h"
-
-unsigned _stklen=16000; /* Set stack size in code, not header */
-
-#define Y2K_2DIGIT_WINDOW 70
-#define VERIFICATION_MOD FALSE
-
-typedef struct {
-
- char str[32];
- short offset;
-
- } sortstr_t;
-
-typedef struct {
-
- long i;
- short offset;
-
- } sortint_t;
-
-char *nulstr="";
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-char tmp[256];
-char list_fmt[128];
-uint del_days,add_ml,update_ml,remove_ml,verify_ml,sbl_pause=1,notify_user;
-time_t now;
-
-/****************************************************************************/
-/* Generates a 24 character ASCII string that represents the time_t pointer */
-/* Used as a replacement for ctime() */
-/****************************************************************************/
-char *timestr(time_t *intime)
-{
- static char str[256];
- char mer[3],hour;
- struct tm *gm;
-
-gm=localtime(intime);
-if(gm->tm_hour>=12) {
- if(gm->tm_hour==12)
- hour=12;
- else
- hour=gm->tm_hour-12;
- strcpy(mer,"pm"); }
-else {
- if(gm->tm_hour==0)
- hour=12;
- else
- hour=gm->tm_hour;
- strcpy(mer,"am"); }
-sprintf(str,"%s %s %02d %4d %02d:%02d %s"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
- ,hour,gm->tm_min,mer);
-return(str);
-}
-
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *str)
-{
- struct tm tm;
-
- if(!strncmp(str,"00/00/00",8))
- return(0);
- memset(&tm,0,sizeof(tm));
- tm.tm_year=((str[6]&0xf)*10)+(str[7]&0xf);
- if (tm.tm_year<Y2K_2DIGIT_WINDOW)
- tm.tm_year+=100;
- tm.tm_mon=((str[0]&0xf)*10)+(str[1]&0xf);
- tm.tm_mday=((str[3]&0xf)*10)+(str[4]&0xf);
- if (tm.tm_mon)
- tm.tm_mon--; /* zero-based month field */
- return(mktime(&tm));
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char * unixtodstr(time_t t, char *str)
-{
- struct tm* tm;
-
- if(t==0)
- strcpy(str,"00/00/00");
- else {
- tm=gmtime(&t);
- if(tm==NULL) {
- strcpy(str,"00/00/00");
- return(str);
- }
- if(tm->tm_mon>11) { /* DOS leap year bug */
- tm->tm_mon=0;
- tm->tm_year++; }
- if(tm->tm_mday>31)
- tm->tm_mday=1;
- sprintf(str,"%02u/%02u/%02u",tm->tm_mon+1,tm->tm_mday
- ,tm->tm_year%100); }
- return(str);
-}
-
-void dots(int show)
-{
- static int i;
-
-if(!show) { /* reset */
- i=0;
- return; }
-if(++i>5) {
- bputs("\b\b\b\b\b \b\b\b\b\b");
- i=0;
- return; }
-outchar('.');
-}
-
-
-/* Displays short information about BBS. Returns 0 if aborted. */
-
-char short_bbs_info(bbs_t bbs)
-{
- char str[128];
- int i,j;
-
- for(i=0;i<bbs.total_numbers && i<MAX_NUMBERS;i++) {
- for(j=0;list_fmt[j];j++) {
- if(j) bputs(" ");
- switch(toupper(list_fmt[j])) {
- case 'N':
- bprintf("\1h\1m%-25.25s",i ? nulstr : bbs.name);
- break;
- case 'S':
- bprintf("\1h\1c%-15.15s",i ? nulstr : bbs.software);
- break;
- case 'P':
- if(bbs.number[i].modem.min_rate==0xffff) {
- if(bbs.number[i].telnet.port!=0
- && bbs.number[i].telnet.port!=IPPORT_TELNET)
- sprintf(str,"%s:%hu"
- ,bbs.number[i].telnet.addr
- ,bbs.number[i].telnet.port);
- else
- strcpy(str,bbs.number[i].telnet.addr);
- bprintf("\1h\1b%-28.28s",str);
- } else
- bprintf("\1n\1g%12.12s",bbs.number[i].modem.number);
- break;
- case 'B':
- if(bbs.number[i].modem.min_rate!=0xffff)
- bprintf("\1h\1g%5u",bbs.number[i].modem.max_rate);
- break;
- case 'M':
- if(bbs.number[i].modem.min_rate!=0xffff)
- bprintf("\1h\1b%-15.15s",bbs.number[i].modem.desc);
- break;
- case 'Y':
- bprintf("\1h\1y%-25.25s",i ? nulstr : bbs.sysop[0]);
- break;
- case 'T':
- if(i) bputs(" ");
- else bprintf("\1y\1h%3u",bbs.nodes);
- break;
- case 'U':
- if(i) bputs(" ");
- else bprintf("\1n\1r%5u",bbs.users);
- break;
- case 'H':
- if(i) bprintf("%10.10s",nulstr);
- else bprintf("\1h\1r%10u",bbs.megs);
- break;
- case 'L':
- bprintf("\1n\1c%-20.20s",bbs.number[i].modem.location);
- break;
- case 'F':
- bprintf("\1n\1b%s",i ? nulstr : unixtodstr(bbs.birth,tmp));
- break;
- case 'V':
- bprintf("\1n\1m%s",i ? nulstr : unixtodstr(bbs.verified,tmp));
- break;
- case 'D':
- bprintf("\1n%s",i ? nulstr : unixtodstr(bbs.updated,tmp));
- break;
- case 'C':
- bprintf("\1n\1y%s",i ? nulstr : unixtodstr(bbs.created,tmp));
- break;
- default:
- bprintf("%c",list_fmt[j]);
- break;
- } }
- bputs("\r\n"); }
-#if 0
- if(kbhit())
- return(0);
-#endif
- return(1);
-}
-
-char long_bbs_info(bbs_t bbs)
-{
- int i;
-
-cls();
-bprintf("\1n\1gBBS Name: \1h%s \1n\1gsince \1h%s\r\n"
- ,bbs.name,unixtodstr(bbs.birth,tmp));
-bprintf("\1n\1gOperator: ");
-for(i=0;i<bbs.total_sysops && i<MAX_SYSOPS;i++) {
- if(i) {
- if(bbs.total_sysops>2)
- bputs(", ");
- else
- outchar(SP);
- if(!(i%4))
- bputs("\r\n ");
- if(i+1==bbs.total_sysops)
- bputs("and "); }
- bprintf("\1h%s\1n\1g",bbs.sysop[i]);
- if(!i && bbs.sysop_email[0])
- bprintf(" <\1h%s\1n\1g>", bbs.sysop_email);
-}
-CRLF;
-bprintf("\1n\1gSoftware: \1h%-15.15s \1n\1gNodes: \1h%-5u \1n\1g"
- "Users: \1h%-5u \1n\1gDoors: \1h%u\r\n"
- ,bbs.software,bbs.nodes,bbs.users,bbs.xtrns);
-bprintf("\1n\1gDownload: \1h%lu \1n\1gfiles in \1h%u \1n\1gdirectories of \1h"
- "%luMB \1n\1gtotal space\r\n"
- ,bbs.files,bbs.dirs,bbs.megs);
-bprintf("Messages: \1h%lu \1n\1gmessages in \1h%u \1n\1gsub-boards\r\n"
- ,bbs.msgs,bbs.subs);
-bprintf("Networks: ");
-for(i=0;i<bbs.total_networks && i<MAX_NETS;i++) {
- if(i) {
- if(bbs.total_networks>2)
- bputs(", ");
- else
- outchar(SP);
- if(!(i%3))
- bputs("\r\n ");
- if(i+1==bbs.total_networks)
- bputs("and "); }
- bprintf("\1h%s [%s]\1n\1g",bbs.network[i],bbs.address[i]); }
-CRLF;
-bprintf("Terminal: ");
-for(i=0;i<bbs.total_terminals && i<MAX_TERMS;i++) {
- if(i) {
- if(bbs.total_terminals>2)
- bputs(", ");
- else
- outchar(SP);
- if(i+1==bbs.total_terminals)
- bputs("and "); }
- bprintf("\1h%s\1n\1g",bbs.terminal[i]); }
-CRLF;
-if(bbs.web_url[0])
- bprintf("Web-site: http://\1h%s\r\n",bbs.web_url);
-CRLF;
-for(i=0;i<bbs.total_numbers && i<MAX_NUMBERS;i++) {
- bprintf("\1h\1b%-30.30s "
- ,i && !strcmp(bbs.number[i].modem.location,bbs.number[i-1].modem.location)
- ? nulstr : bbs.number[i].modem.location);
- if(bbs.number[i].modem.min_rate==0xffff) {
- if(bbs.number[i].telnet.port!=0
- && bbs.number[i].telnet.port!=IPPORT_TELNET)
- bprintf("\1n\1mtelnet://\1h%s:%hu\r\n"
- ,bbs.number[i].telnet.addr
- ,bbs.number[i].telnet.port);
- else
- bprintf("\1n\1mtelnet://\1h%s\r\n"
- ,bbs.number[i].telnet.addr);
- } else
- bprintf("\1n\1g%12.12s \1h%5u \1b%-15.15s \1n\1cMinimum: \1h%u\r\n"
- ,bbs.number[i].modem.number
- ,bbs.number[i].modem.max_rate
- ,bbs.number[i].modem.desc
- ,bbs.number[i].modem.min_rate);
-}
-bputs("\r\n\1w\1h");
-for(i=0;i<DESC_LINES;i++) {
- if(!bbs.desc[i][0])
- break;
- bprintf("%15s%s\r\n",nulstr,bbs.desc[i]); }
-
-CRLF;
-if(bbs.misc&FROM_SMB)
- bputs("\1r\1hImported from message base.\r\n");
-bprintf("\1n\1cEntry created on \1h%s\1n\1c by \1h%s\r\n"
- ,timestr(&bbs.created),bbs.user);
-if(bbs.updated && bbs.userupdated[0])
- bprintf("\1n\1c Last updated on \1h%s\1n\1c by \1h%s\r\n"
- ,timestr(&bbs.updated),bbs.userupdated);
-if(bbs.verified && bbs.userverified[0])
- bprintf("\1n\1cLast verified on \1h%s\1n\1c by \1h%s"
-#if VERIFICATION_MOD
- " \1y(%d/%d)"
-#endif
- "\r\n"
- ,timestr(&bbs.verified),bbs.userverified
- ,bbs.verification_count,bbs.verification_attempts);
-CRLF;
-if(aborted) {
- aborted=0;
- return(0); }
-if(!sbl_pause) {
-#if 0
- if(kbhit())
- return(0);
-#endif
- return(1); }
-nodesync();
-#if VERIFICATION_MOD
- bputs("More? Y/N/V ");
-switch(getkeys("YNV\r",0)) {
- case '\r':
- case 'Y':
- return(1);
- case 'V':
- return(2);
- default:
- return(0);
-}
-#else
- return(yesno("More"));
-#endif
-}
-
-/* Gets/updates BBS info from user. Returns 0 if aborted. */
-
-char get_bbs_info(bbs_t *bbs)
-{
- char str[128];
- int i;
-
-aborted=0;
-if(!(bbs->user[0]))
- strcpy(bbs->user,user_name);
-if(SYSOP) {
- bputs("\1y\1hUser Name (Creator/Owner of Entry): ");
- if(!getstr(bbs->user,25,K_EDIT|K_LINE|K_AUTODEL))
- return(0); }
-bputs("\1y\1hSystem Name: ");
-if(getstr(bbs->name,25,K_EDIT|K_LINE|K_AUTODEL)<2)
- return(0);
-if(!bbs->software[0])
- strcpy(bbs->software,"Synchronet");
-bprintf("\1y\1hSoftware: \1w",bbs->software);
-if(!getstr(bbs->software,15,K_AUTODEL|K_EDIT))
- return(0);
-
-for(i=0;i<MAX_SYSOPS && !aborted;i++) {
- bprintf("\1y\1hName of System Operator #%d [\1wNone\1y]: ",i+1);
- if(!getstr(bbs->sysop[i],25,K_EDIT|K_LINE|K_AUTODEL))
- break;
- if(!i) {
- bprintf("\1y\1hInternet E-mail Address [\1wNone\1y]:\1w ");
- getstr(bbs->sysop_email,40,K_EDIT|K_AUTODEL);
- }
-}
-bbs->total_sysops=i;
-if(aborted)
- return(0);
-
-unixtodstr(bbs->birth,str);
-bprintf("\1y\1hFirst Day Online (MM/DD/YY): \1w");
-if(getstr(str,8,K_UPPER|K_EDIT|K_AUTODEL))
- bbs->birth=dstrtounix(str);
-if(aborted) return(0);
-
-for(i=0;i<MAX_NETS && !aborted;i++) {
- bprintf("\1y\1hName of Message Network #%d [\1wNone\1y]: ",i+1);
- if(!getstr(bbs->network[i],15,K_EDIT|K_AUTODEL|K_LINE))
- break;
- bprintf("\1y\1hNetwork Message \1wAddress\1y #%d [\1wNone\1y]: \1w",i+1);
- getstr(bbs->address[i],25,K_EDIT|K_AUTODEL); }
-bbs->total_networks=i;
-if(aborted) return(0);
-
-for(i=0;i<MAX_TERMS && !aborted;i++) {
- bprintf("\1y\1hSupported Terminal Type #%d (i.e. TTY, ANSI, RIP) "
- "[\1wNone\1y]: ",i+1);
- if(!getstr(bbs->terminal[i],15,K_EDIT|K_AUTODEL|K_LINE))
- break; }
-bbs->total_terminals=i;
-if(aborted) return(0);
-
-bprintf("\1y\1hWeb-site [\1wNone\1y] http://\1w");
-getstr(bbs->web_url,60,K_EDIT|K_AUTODEL);
-
-if(!bbs->nodes)
- bbs->nodes=1;
-bprintf("\1y\1hNodes (maximum number of simultaneous REMOTE users): \1w");
-sprintf(str,"%u",bbs->nodes);
-if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->nodes=atoi(str);
-if(!bbs->nodes)
- bbs->nodes=1;
-if(aborted) return(0);
-
-for(i=0;i<MAX_NUMBERS;i++) {
-#if 0
- if(!i && !bbs->number[i].modem.number[0])
- sprintf(bbs->number[i].modem.number,"%.8s",user_phone);
-#endif
- bprintf("\1y\1hPhone Number or \1mTelnet address\1y #%d [\1wNone\1y]: ",i+1);
- if(!getstr(bbs->number[i].telnet.addr,28,K_EDIT|K_LINE))
- break;
- if(!bbs->number[i].modem.location[0]) {
- if(!i)
- strcpy(bbs->number[i].modem.location,user_location);
- else
- strcpy(bbs->number[i].modem.location,bbs->number[i-1].modem.location); }
- if(aborted) return(0);
- if(isalpha(bbs->number[i].telnet.addr[0])
- || yesno("Is the above a Telnet address")) {
- bbs->number[i].modem.min_rate=0xffff;
- if(bbs->number[i].telnet.port==0)
- bbs->number[i].telnet.port=IPPORT_TELNET;
- bprintf("\1y\1hTCP Port: \1w");
- sprintf(str,"%u",bbs->number[i].telnet.port);
- if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->number[i].telnet.port=atoi(str);
- if(aborted) return(0);
-
- } else {
- if(bbs->number[i].modem.min_rate==0xffff)
- bbs->number[i].modem.min_rate=300;
- bbs->number[i].modem.number[13]=0;
- if(!bbs->number[i].modem.min_rate) {
- if(i)
- bbs->number[i].modem.min_rate=bbs->number[i-1].modem.min_rate;
- else
- bbs->number[i].modem.min_rate=300; }
- bprintf("\1y\1hMinimum Connect Rate: \1w");
- sprintf(str,"%u",bbs->number[i].modem.min_rate);
- if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->number[i].modem.min_rate=atoi(str);
- if(aborted) return(0);
-
- if(!bbs->number[i].modem.max_rate) {
- if(i)
- bbs->number[i].modem.max_rate=bbs->number[i-1].modem.max_rate;
- else
- bbs->number[i].modem.max_rate=2400; }
- if(bbs->number[i].modem.max_rate<bbs->number[i].modem.min_rate)
- bbs->number[i].modem.max_rate=bbs->number[i].modem.min_rate;
- bprintf("\1y\1hMaximum Connect Rate (i.e. 2400, 9600, 14400, etc): \1w");
- sprintf(str,"%u",bbs->number[i].modem.max_rate);
- if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->number[i].modem.max_rate=atoi(str);
- if(aborted) return(0);
- bprintf("\1y\1hModem Description (i.e. Hayes, HST, V.32, etc): \1w");
- getstr(bbs->number[i].modem.desc,15,K_EDIT|K_AUTODEL);
- }
-
- bprintf("\1y\1hLocation (City, State): \1w");
- if(!getstr(bbs->number[i].modem.location,30,K_EDIT|K_AUTODEL))
- break;
-
-}
-if(!i)
- return(0);
-bbs->total_numbers=i;
-if(aborted)
- return(0);
-
-if(!bbs->users)
- bbs->users=100;
-bprintf("\1y\1hTotal Number of Users: \1w");
-sprintf(str,"%u",bbs->users);
-if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->users=atoi(str);
-if(aborted) return(0);
-
-if(!bbs->subs)
- bbs->subs=10;
-bprintf("\1y\1hTotal Number of Sub-boards (Message Areas): \1w");
-sprintf(str,"%u",bbs->subs);
-if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->subs=atoi(str);
-if(aborted) return(0);
-
-if(!bbs->msgs)
- bbs->msgs=500;
-bprintf("\1y\1hTotal Number of Public Messages: \1w");
-sprintf(str,"%lu",bbs->msgs);
-if(getstr(str,10,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->msgs=atol(str);
-if(aborted) return(0);
-
-if(!bbs->dirs)
- bbs->dirs=5;
-bprintf("\1y\1hTotal Number of Directories (File Areas): \1w");
-sprintf(str,"%u",bbs->dirs);
-if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->dirs=atoi(str);
-if(aborted) return(0);
-
-if(!bbs->files)
- bbs->files=250;
-bprintf("\1y\1hTotal Number of Downloadable Files: \1w");
-sprintf(str,"%lu",bbs->files);
-if(getstr(str,10,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->files=atol(str);
-if(aborted) return(0);
-
-if(!bbs->xtrns)
- bbs->xtrns=5;
-bprintf("\1y\1hTotal Number of External Programs (Doors): \1w");
-sprintf(str,"%u",bbs->xtrns);
-if(getstr(str,5,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->xtrns=atoi(str);
-if(aborted) return(0);
-
-if(!bbs->megs)
- bbs->megs=40;
-bprintf("\1y\1hTotal Storage Space (in Megabytes): \1w");
-sprintf(str,"%lu",bbs->megs);
-if(getstr(str,10,K_NUMBER|K_EDIT|K_AUTODEL))
- bbs->megs=atol(str);
-if(aborted) return(0);
-
-for(i=0;i<DESC_LINES;i++) {
- bprintf("\1y\1hBBS Description (%d of %d): ",i+1,DESC_LINES);
- if(!getstr(bbs->desc[i],50,K_EDIT|K_AUTODEL|K_LINE))
- break; }
-
-return(1);
-}
-
-char partname(char *inname, char *inpart)
-{
- char name[128],part[128],str[256];
-
-strcpy(name,inname);
-strupr(name);
-strcpy(part,inpart);
-strupr(part);
-if(inname[0] && (strstr(name,part) || strstr(part,name))) {
- sprintf(str,"\r\nDo you mean %s",inname);
- if(yesno(str))
- return(1); }
-return(0);
-}
-
-int sortint_cmp(sortint_t *int1, sortint_t *int2)
-{
-
-if(int1->i>int2->i)
- return(-1);
-if(int1->i<int2->i)
- return(1);
-return(0);
-}
-
-int sortstr_cmp(sortstr_t *str1, sortstr_t *str2)
-{
-return(stricmp(str1->str,str2->str));
-}
-
-int main(int argc, char **argv)
-{
- char str[512],name[128],*p,ch;
- char* database="sbl.dab";
- short i,j,file,done,sort_by_str;
- int maint=0;
- long l,found;
- bbs_t bbs,tmpbbs;
- FILE *stream;
- sortstr_t *sortstr;
- sortint_t *sortint;
-
- for(i=1;i<argc;i++)
- if(
-#ifndef __unix__
- argv[i][0]=='/' ||
-#endif
- argv[i][0]=='-') {
- switch(toupper(argv[i][1])) {
- case 'M':
- maint=1;
- xsdk_mode&=~XSDK_MODE_NOCONSOLE;
- break;
- case 'W':
- xsdk_mode&=~XSDK_MODE_NOCONSOLE;
- break;
- }
- } else
- database=argv[i];
-
- p=getenv("SBBSNODE");
- if(p)
- strcpy(node_dir,p);
- else {
- printf("\nSBBSNODE environment variable must be set\n");
- exit(0); }
-
- if(node_dir[strlen(node_dir)-1]!='\\' && node_dir[strlen(node_dir)-1]!='/')
- strcat(node_dir,"/");
-
- strcpy(str,"sbl.cfg");
- if((file=sopen(str,O_RDONLY,SH_DENYNO))==-1) {
- printf("error opening %s\r\n",str);
- exit(1); }
- if((stream=fdopen(file,"rb"))==NULL) {
- printf("fdopen error with %s\r\n",str);
- exit(1); }
- fgets(str,81,stream);
- del_days=atoi(str);
- fgets(str,81,stream);
- add_ml=atoi(str);
- fgets(str,81,stream);
- update_ml=atoi(str);
- fgets(str,81,stream);
- remove_ml=atoi(str);
- fgets(str,81,stream);
- verify_ml=atoi(str);
- fgets(str,81,stream);
- notify_user=atoi(str);
- fclose(stream);
-
- initdata();
- if(maint)
- client_socket=INVALID_SOCKET;
-
- mnehigh=HIGH|LIGHTGRAY;
- mnelow=HIGH|YELLOW;
- if(maint)
- user_misc=(ANSI|COLOR);
-
- if((file=sopen(database,O_RDWR|O_BINARY|O_CREAT,SH_DENYNO,S_IREAD|S_IWRITE))==-1) {
- bprintf("\r\n\7Error opening/creating %s\r\n",database);
- exit(1); }
- if((stream=fdopen(file,"w+b"))==NULL) {
- bprintf("\r\n\7Error converting %s file handle to stream\r\n",database);
- exit(1); }
- setvbuf(stream,0L,_IOFBF,2048);
-
- if(del_days) {
- now=time(NULL);
- strcpy(str,"sblpurge.dab");
- if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
- printf("Error creating %s\r\n",str);
- exit(1); }
- l=0;
- read(file,&l,4);
- if(now-l>(24L*60L*60L) || maint) { /* more than a day since update */
- bputs("\r\n\1n\1hRunning daily maintenance for Synchronet BBS List...");
- lseek(file,0L,SEEK_SET);
- write(file,&now,4);
- close(file);
- fseek(stream,0L,SEEK_SET);
- while(!feof(stream)) {
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(bbs.name[0]) {
- if((now-bbs.updated)/(24L*60L*60L)>(time_t)del_days
- && (now-bbs.created)/(24L*60L*60L)>(time_t)del_days
- && (now-bbs.verified)/(24L*60L*60L)>(time_t)del_days) {
- lncntr=0;
- bprintf("\r\n\1n\1hAuto-deleting \1m%s\r\n",bbs.name);
- if(!(bbs.misc&FROM_SMB)) {
- sprintf(str,"\1n\1hSBL: \1mYour BBS entry for \1y%s\1m\r\n"
- " was auto-deleted from the \1cSynchronet BBS "
- "List\r\n",bbs.name);
- i=usernumber(bbs.user);
- if(i) putsmsg(i,str);
- }
- bbs.name[0]=0;
- fseek(stream,-(long)(sizeof(bbs_t)),SEEK_CUR);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- } else if (!(bbs.misc&FROM_SMB)) { /* Warn user */
- l=bbs.created;
- if(l<bbs.updated)
- l=bbs.updated;
- if(l<bbs.verified)
- l=bbs.verified;
- if((now-l)/(24L*60L*60L)>=(time_t)(del_days/2)) {
- bprintf("\r\n\1n\1hWarning \1y%s\r\n",bbs.user);
- lncntr=0;
- sprintf(str,"\1n\1hSBL: \1mPlease verify your BBS "
- "entry for \1y%s\1m\r\n "
- "in the \1cSynchronet BBS List "
- "\1mor it will be deleted in \1i\1r%u "
- "\1n\1h\1mdays.\r\n"
- ,bbs.name
- ,del_days-((now-l)/(24L*60L*60L)));
- i=usernumber(bbs.user);
- if(i) putsmsg(i,str); } } } } }
- else
- close(file); }
-
- if(maint)
- return(0);
-
- strcpy(list_fmt,DEF_LIST_FMT);
- while(1) {
- aborted=0;
- attr(LIGHTGRAY);
- cls();
- COMPILER_DESC(str);
- bprintf("\1n\1m\1hSynchronet \1wBBS List \1mv3.20 for %s\r\n (XSDK v%s %s %s) "
- "\r\n\r\n"
- ,PLATFORM_DESC
- ,xsdk_ver
- ,str
- ,__DATE__
- );
-
- #define SBL_INDENT " "
- sprintf(str,SBL_INDENT"~List all systems (condensed)\r\n"
- SBL_INDENT"~Change list format\r\n"
- SBL_INDENT"~Extended information on all systems\r\n"
- SBL_INDENT"~Turn screen pause %s\r\n"
- SBL_INDENT"~Find text in BBS entries\r\n"
- SBL_INDENT"~Generate sorted list\r\n"
- SBL_INDENT"~Display sorted list\r\n"
- SBL_INDENT"~New entry scan\r\n"
- SBL_INDENT"~Add a BBS entry\r\n"
- SBL_INDENT"~Update a BBS entry\r\n"
- SBL_INDENT"~Verify a BBS entry\r\n"
- SBL_INDENT"~Remove a BBS entry\r\n"
- SBL_INDENT"~Quit back to BBS\r\n"
- ,sbl_pause ? "OFF" : "ON");
- mnemonics(str);
- if(SYSOP)
- mnemonics(SBL_INDENT"~* Undelete entries\r\n");
-
- bputs("\r\n");
-
- l=filelength(fileno(stream));
- if(l>0)
- bprintf(SBL_INDENT"\1n\1cThere are \1h%lu\1n\1c entries in the online BBS list "
- "database.\r\n",l/(long)sizeof(bbs_t));
-
- if(del_days) {
- bprintf(SBL_INDENT"\1n\1cEntries are auto-deleted \1h%u\1n\1c days after "
- "last update or verification.\r\n",del_days);
- bputs(SBL_INDENT"Users are encouraged to \1hV\1n\1cerify (vouch for) any listed "
- "systems they call.\r\n"); }
-
- nodesync(); /* Display any waiting messages */
-
- bputs("\r\n"SBL_INDENT"\1y\1hWhich: \1w");
- switch(getkeys("CLGDEFSNAURTQV!*",0)) {
- case '!':
- bprintf("\r\nsizeof(bbs_t)=%u\r\n",sizeof(bbs_t));
- bprintf("\r\noffsetof(verification_count=%x)\r\n",offsetof(bbs_t,verification_count));
- pause();
- break;
- case '*':
- cls();
- if(!SYSOP)
- break;
- fseek(stream,0L,SEEK_SET);
- while(!feof(stream) && !aborted) {
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0] && bbs.total_numbers>0) {
- bbs.name[0]='?';
- bbs.verified=time(NULL);
- sprintf(bbs.userverified,"%.25s",user_name);
- if(yesno(bbs.name)) {
- bprintf("\1n\1gFirst char: \1h");
- bbs.name[0]=getkey(0);
- bprintf("%s\r\n",bbs.name);
- fseek(stream,-(long)sizeof(bbs_t),SEEK_CUR);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- }
- }
- }
- break;
- case 'L':
- cls();
- fseek(stream,0L,SEEK_SET);
- i=0;
- while(!feof(stream) && !aborted) {
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0] || bbs.total_numbers<1)
- continue;
- i++;
- if(!short_bbs_info(bbs))
- break;
- if(!sbl_pause)
- lncntr=0; }
- bprintf("\r\n\1n\1h%u systems listed.\r\n",i);
-#if 0
- if(kbhit())
- getch();
-#endif
- if(lncntr)
- pause();
- break;
- case 'C':
- cls();
- bputs("\1n\1c\1hList Format Specifier Definitions:\1n\r\n\r\n");
- bputs("\1h\1w(\1mN\1w) \1n\1mName of System\r\n");
- bputs("\1h\1w(\1mS\1w) \1n\1mSoftware Used\r\n");
- bputs("\1h\1w(\1mP\1w) \1n\1mPhone Number\r\n");
- bputs("\1h\1w(\1mB\1w) \1n\1mMaximum Connect Rate (in bps)\r\n");
- bputs("\1h\1w(\1mM\1w) \1n\1mModem Type\r\n");
- bputs("\1h\1w(\1mY\1w) \1n\1mSysop's Name\r\n");
- bputs("\1h\1w(\1mT\1w) \1n\1mTotal Number of Nodes\r\n");
- bputs("\1h\1w(\1mU\1w) \1n\1mTotal Number of Users\r\n");
- bputs("\1h\1w(\1mH\1w) \1n\1mTotal Storage Capacity (in megabytes)\r\n");
- bputs("\1h\1w(\1mL\1w) \1n\1mLocation (City, State)\r\n");
- bputs("\1h\1w(\1mF\1w) \1n\1mDate System was First Online\r\n");
- bputs("\1h\1w(\1mC\1w) \1n\1mDate Entry was Created\r\n");
- bputs("\1h\1w(\1mV\1w) \1n\1mDate Entry was Last Verified\r\n");
- bputs("\1h\1w(\1mD\1w) \1n\1mDate Entry was Last Updated\r\n");
- bprintf("\r\n\1n\1gDefault Format: \1h%s",DEF_LIST_FMT);
- bprintf("\r\n\1n\1gCurrent Format: \1h%s\r\n",list_fmt);
- bprintf("\r\n\1y\1hNew Format: ");
- if(getstr(tmp,10,K_UPPER|K_LINE)) {
- if(!strchr(tmp,'P') || !strchr(tmp,'N')) {
- bputs("\r\n\1h\1mP\1n\1mhone and \1hN\1n\1mame specifiers "
- "must be present in format.\r\n\r\n");
- pause(); }
- else
- strcpy(list_fmt,tmp); }
- break;
- case 'E':
- fseek(stream,0L,SEEK_SET);
- while(!feof(stream) && !aborted) {
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0] || bbs.total_numbers<1)
- continue;
- i=long_bbs_info(bbs);
- if(bbs.name[0] && !i)
- break;
-#if VERIFICATION_MOD
- if(i==2) {
- bbs.verification_count++;
- fseek(stream,-(int)sizeof(bbs_t),SEEK_CUR);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- fseek(stream,-(int)sizeof(bbs_t),SEEK_CUR);
- }
-#endif
- if(!sbl_pause)
- lncntr=0; }
- break;
- case 'F': /* Find text */
- cls();
- bputs("\1y\1hText to search for: ");
- if(!getstr(name,25,K_UPPER|K_LINE))
- break;
- ch=yesno("\r\nDisplay extended information");
-
- found=0;
- bputs("\1n\1h\r\nSearching...\r\n\r\n");
- fseek(stream,0L,SEEK_SET);
- while(!feof(stream) && !aborted) {
- if(!sbl_pause)
- lncntr=0;
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0] || bbs.total_numbers<1)
- continue;
- tmpbbs=bbs;
- strupr(tmpbbs.name);
- strupr(tmpbbs.user);
- strupr(tmpbbs.software);
- strupr(tmpbbs.userverified);
- strupr(tmpbbs.userupdated);
- strupr(tmpbbs.web_url);
- for(i=0;i<DESC_LINES;i++) {
- strupr(tmpbbs.desc[i]);
- if(strstr(tmpbbs.desc[i],name))
- break;
- }
- if(i<DESC_LINES
- || strstr(tmpbbs.name,name)
- || strstr(tmpbbs.user,name)
- || strstr(tmpbbs.software,name)
- || strstr(tmpbbs.userverified,name)
- || strstr(tmpbbs.userupdated,name)
- || strstr(tmpbbs.web_url,name)
- ) {
- found++;
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break;
- continue; }
-
- for(i=0;i<tmpbbs.total_sysops;i++) {
- strupr(tmpbbs.sysop[i]);
- if(strstr(tmpbbs.sysop[i],name))
- break; }
- if(i<tmpbbs.total_sysops) {
- found++;
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break;
- continue; }
-
- for(i=0;i<tmpbbs.total_networks;i++) {
- strupr(tmpbbs.network[i]);
- strupr(tmpbbs.address[i]);
- if(strstr(tmpbbs.network[i],name)
- || strstr(tmpbbs.address[i],name))
- break; }
- if(i<tmpbbs.total_networks) {
- found++;
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break;
- continue; }
-
- for(i=0;i<tmpbbs.total_terminals;i++) {
- strupr(tmpbbs.terminal[i]);
- if(strstr(tmpbbs.terminal[i],name))
- break; }
- if(i<tmpbbs.total_terminals) {
- found++;
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break;
- continue; }
-
- for(i=0;i<tmpbbs.total_numbers;i++) {
- strupr(tmpbbs.number[i].modem.number);
- strupr(tmpbbs.number[i].modem.desc);
- strupr(tmpbbs.number[i].modem.location);
- if(strstr(tmpbbs.number[i].modem.number,name)
- || strstr(tmpbbs.number[i].modem.desc,name)
- || strstr(tmpbbs.number[i].modem.location,name))
- break; }
- if(i<tmpbbs.total_numbers) {
- found++;
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break;
- continue; } }
- if(!ch || !found) {
- CRLF;
-#if 0
- if(kbhit())
- getch();
-#endif
- if(found)
- bprintf("\1n\1h%u systems listed.\r\n",found);
- pause(); }
- break;
- case 'G': /* Generated sorted list */
- cls();
- if(!filelength(fileno(stream))) {
- bprintf("No BBS list exists.\r\n");
- pause();
- break; }
- bputs("\1n\1c\1hSort Options:\1n\r\n\r\n");
- bputs("\1h\1w(\1mN\1w) \1n\1mName of System\r\n");
- bputs("\1h\1w(\1mS\1w) \1n\1mSoftware Used\r\n");
- bputs("\1h\1w(\1mP\1w) \1n\1mPhone Number\r\n");
- bputs("\1h\1w(\1mB\1w) \1n\1mMaximum Connect Rate (in bps)\r\n");
- bputs("\1h\1w(\1mM\1w) \1n\1mModem Type\r\n");
- bputs("\1h\1w(\1mY\1w) \1n\1mSysop's Name\r\n");
- bputs("\1h\1w(\1mT\1w) \1n\1mTotal Number of Nodes\r\n");
- bputs("\1h\1w(\1mU\1w) \1n\1mTotal Number of Users\r\n");
- bputs("\1h\1w(\1mH\1w) \1n\1mTotal Storage Capacity (in megabytes)\r\n");
- bputs("\1h\1w(\1mL\1w) \1n\1mLocation (City, State)\r\n");
- bputs("\1h\1w(\1mF\1w) \1n\1mDate System was First Online\r\n");
- bputs("\1h\1w(\1mC\1w) \1n\1mDate Entry was Created\r\n");
- bputs("\1h\1w(\1mV\1w) \1n\1mDate Entry was Last Verified\r\n");
- bputs("\1h\1w(\1mD\1w) \1n\1mDate Entry was Last Updated\r\n");
- bprintf("\r\n\1y\1hSort by (\1wQ\1y=Quit): \1w");
- ch=getkeys("NSPBMYTUHLFCVDQ",0);
- if(!ch || ch=='Q')
- break;
- cls();
- bputs("\1n\1hSorting... \1m");
- fseek(stream,0L,SEEK_SET);
- i=j=done=0;
- sort_by_str=0;
- sortstr=NULL;
- sortint=NULL;
- while(!feof(stream) && !done) {
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- j++;
- bprintf("\b\b\b\b%4u",j);
- if(!bbs.name[0]) /* don't sort deleted entries */
- continue;
- if(bbs.total_numbers<1) /* don't sort corrupted entries */
- continue;
- i++;
- switch(ch) {
- case 'N':
- sprintf(str,"%.30s",bbs.name);
- sort_by_str=1;
- break;
- case 'S':
- sprintf(str,"%.30s",bbs.software);
- sort_by_str=1;
- break;
- case 'P':
- sprintf(str,"%.30s",bbs.number[0].modem.number);
- sort_by_str=1;
- break;
- case 'M':
- sprintf(str,"%.30s",bbs.number[0].modem.desc);
- sort_by_str=1;
- break;
- case 'Y':
- sprintf(str,"%.30s",bbs.sysop[0]);
- sort_by_str=1;
- break;
- case 'L':
- sprintf(str,"%.30s",bbs.number[0].modem.location);
- sort_by_str=1;
- break;
- case 'B':
- l=bbs.number[0].modem.max_rate;
- break;
- case 'T':
- l=bbs.nodes;
- break;
- case 'U':
- l=bbs.users;
- break;
- case 'H':
- l=bbs.megs;
- break;
- case 'F':
- l=bbs.birth;
- break;
- case 'C':
- l=bbs.created;
- break;
- case 'V':
- l=bbs.verified;
- break;
- case 'D':
- l=bbs.updated;
- break; }
- if(sort_by_str) {
- if((sortstr=(sortstr_t *)REALLOC(sortstr
- ,sizeof(sortstr_t)*i))==NULL) {
- bprintf("\r\n\7Memory allocation error\r\n");
- LFREE(sortstr);
- done=1;
- continue; }
- strcpy(sortstr[i-1].str,str);
- sortstr[i-1].offset=j-1; }
- else {
- if((sortint=(sortint_t *)REALLOC(sortint
- ,sizeof(sortint_t)*i))==NULL) {
- bprintf("\r\n\7Memory allocation error\r\n");
- LFREE(sortint);
- done=1;
- continue; }
- sortint[i-1].i=l;
- sortint[i-1].offset=j-1; } }
-
- if(done) {
- pause();
- break; }
-
- if(sort_by_str)
- qsort((void *)sortstr,i,sizeof(sortstr[0])
- ,(int(*)(const void *, const void *))sortstr_cmp);
- else
- qsort((void *)sortint,i,sizeof(sortint[0])
- ,(int(*)(const void *, const void *))sortint_cmp);
-
- bprintf("\r\n\r\n\1h\1gCreating index...");
- sprintf(str,"sort_%03d.ndx",node_num);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_TRUNC))==-1) {
- bprintf("\r\n\7Error creating %s\r\n",str);
- if(sort_by_str)
- LFREE(sortstr);
- else
- LFREE(sortint);
- pause();
- break; }
- for(j=0;j<i;j++)
- if(sort_by_str)
- write(file,&sortstr[j].offset,2);
- else
- write(file,&sortint[j].offset,2);
- close(file);
- if(sort_by_str)
- LFREE(sortstr);
- else
- LFREE(sortint);
- bputs("\r\n\r\n\1n\1hDone.\r\n");
- pause();
- break;
- case 'D':
- cls();
- sprintf(str,"sort_%03d.ndx",node_num);
- if((file=nopen(str,O_RDONLY))==-1) {
- bputs("\1n\1r\1hSorted list not generated.\r\n");
- pause(); }
- ch=yesno("Display extended information");
- cls();
- while(/* !eof(file) && not on unix */ !aborted) {
- if(read(file,&i,2)!=2)
- break;
- fseek(stream,(long)i*sizeof(bbs_t),SEEK_SET);
- if(!sbl_pause)
- lncntr=0;
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0] || bbs.total_numbers<1)
- continue;
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break; }
- close(file);
-#if 0
- if(kbhit())
- getch();
-#endif
- if(lncntr)
- pause();
- break;
- case 'N': /* New (updated) entry scan */
- cls();
- bputs("\1y\1hLast update (MM/DD/YY): ");
- if(!getstr(str,8,K_UPPER|K_LINE))
- break;
- l=dstrtounix(str);
- ch=yesno("\r\nDisplay extended information");
- found=0;
- bputs("\1n\1h\r\nSearching...\r\n\r\n");
- fseek(stream,0L,SEEK_SET);
- while(!feof(stream) && !aborted) {
- if(!sbl_pause)
- lncntr=0;
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0] || bbs.total_numbers<1)
- continue;
- if(bbs.updated>=l || bbs.created>=l) {
- if(ch && !long_bbs_info(bbs))
- break;
- if(!ch && !short_bbs_info(bbs))
- break;
- found++;
- continue; } }
- if(!ch || !found) {
- CRLF;
- pause(); }
- break;
- case 'A':
- cls();
- if((uint)user_level<add_ml) {
- bprintf("\1h\1rYou have insufficient access.\r\n\r\n");
- pause();
- break; }
- bputs("\1g\1hAdding a BBS entry:\1n\r\n\r\n");
- bputs("\1n\1gHit ENTER for unknown data items.\r\n\r\n");
- memset(&bbs,0,sizeof(bbs_t));
- if(!get_bbs_info(&bbs))
- break;
- bputs("\1n\1h\r\nSearching for duplicates...");
- fseek(stream,0L,SEEK_SET);
- i=0;
- dots(0);
- while(!feof(stream) && !i) {
- dots(1);
- if(!fread(&tmpbbs,sizeof(bbs_t),1,stream))
- break;
- if(!stricmp(tmpbbs.name,bbs.name)) i=1; }
- if(i) {
- bprintf("\7\1n\1h\1r\1i\r\n\r\n%s \1n\1h\1ralready exists!"
- "\r\n\r\n"
- ,bbs.name);
- pause();
- break; }
-
- bputs("\1n\1h\r\nSaving...");
- fseek(stream,0L,SEEK_SET);
- dots(0);
- while(!feof(stream)) {
- dots(1);
- if(!fread(&ch,1,1,stream))
- break;
- if(!ch) { /* first byte is null */
- fseek(stream,-1L,SEEK_CUR);
- break; }
- fseek(stream,(long)sizeof(bbs_t)-1L,SEEK_CUR); }
- bbs.created=time(NULL);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- if(notify_user && notify_user!=user_number) {
- sprintf(str,"\1n\1hSBL: \1y%s \1madded \1c%s\1m "
- "to the BBS List\r\n",user_name,bbs.name);
- putsmsg(notify_user,str); }
- break;
- case 'R': /* Remove an entry */
- cls();
- if((uint)user_level<remove_ml) {
- bprintf("\1h\1rYou have insufficient access.\r\n\r\n");
- pause();
- break; }
- bprintf("\1y\1hRemove which system: ");
- if(!getstr(name,25,K_LINE|K_UPPER))
- break;
- bputs("\1n\1h\r\nSearching...");
- fseek(stream,0L,SEEK_SET);
- found=0;
- dots(0);
- while(!feof(stream) && !aborted) {
- dots(1);
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!stricmp(bbs.name,name) || partname(bbs.name,name)) {
- found=1;
- for(i=0;i<bbs.total_sysops && i<MAX_SYSOPS;i++)
- if(!stricmp(bbs.sysop[i],user_name))
- break;
- if(SYSOP || !stricmp(bbs.user,user_name)
- || i<bbs.total_sysops) {
- fseek(stream,-(long)(sizeof(bbs_t)),SEEK_CUR);
- strcpy(tmp,bbs.name);
- bbs.name[0]=0;
- bbs.updated=time(NULL);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- bprintf("\r\n\r\n\1m%s\1c deleted."
- ,tmp);
- if(notify_user && notify_user!=user_number) {
- sprintf(str,"\1n\1hSBL: \1y%s \1mremoved \1c%s\1m "
- "from the BBS List\r\n",user_name,tmp);
- putsmsg(notify_user,str); } }
- else
- bprintf("\r\n\r\n\1rYou did not create \1m%s\1n."
- ,bbs.name);
- break; } }
- if(!found)
- bprintf("\r\n\r\n\1m%s\1c not found.",name);
- CRLF;
- CRLF;
- pause();
- break;
- case 'T':
- sbl_pause=!sbl_pause;
- break;
- case 'V': /* Verify an entry */
- cls();
- if((uint)user_level<verify_ml) {
- bprintf("\1h\1rYou have insufficient access.\r\n\r\n");
- pause();
- break; }
- bprintf("\1y\1hVerify which system: ");
- if(!getstr(name,25,K_LINE|K_UPPER))
- break;
- bputs("\1n\1h\r\nSearching...");
- fseek(stream,0L,SEEK_SET);
- found=0;
- dots(0);
- while(!feof(stream) && !aborted) {
- dots(1);
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!stricmp(bbs.name,name) || partname(bbs.name,name)) {
- found=1;
- bbs.verified=time(NULL);
- sprintf(bbs.userverified,"%.25s",user_name);
- fseek(stream,-(long)(sizeof(bbs_t)),SEEK_CUR);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- bprintf("\r\n\r\n\1m%s\1c verified. \1r\1h\1iThank you!"
- ,bbs.name);
- sprintf(str,"\1n\1hSBL: \1y%s \1mverified \1c%s\1m "
- "in the BBS List\r\n",user_name,bbs.name);
- if(notify_user && notify_user!=user_number)
- putsmsg(notify_user,str);
- if(stricmp(bbs.user,user_name)) {
- i=usernumber(bbs.user);
- if(i && i!=(int)user_number) putsmsg(i,str); }
- break; } }
- if(!found)
- bprintf("\r\n\r\n\1m%s\1c not found.",name);
- CRLF;
- CRLF;
- pause();
- break;
- case 'U': /* Update an entry */
- cls();
- if((uint)user_level<update_ml) {
- bprintf("\1h\1rYou have insufficient access.\r\n\r\n");
- pause();
- break; }
- bprintf("\1y\1hUpdate which system: ");
- if(!getstr(name,25,K_LINE|K_UPPER))
- break;
- bputs("\1n\1h\r\nSearching...");
- fseek(stream,0L,SEEK_SET);
- found=0;
- dots(0);
- while(!feof(stream) && !aborted) {
- dots(1);
- l=ftell(stream);
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!stricmp(bbs.name,name) || partname(bbs.name,name)) {
- found=1;
- break; } }
- if(found) {
- for(i=0;i<bbs.total_sysops && i<MAX_SYSOPS;i++)
- if(!bbs.sysop[i][0] || !stricmp(bbs.sysop[i],user_name))
- break;
- if(SYSOP || !stricmp(bbs.user,user_name)
- || i<bbs.total_sysops) {
- CRLF;
- CRLF;
- if(get_bbs_info(&bbs)) {
- bbs.misc&=~FROM_SMB;
- bbs.updated=time(NULL);
- sprintf(bbs.userupdated,"%.25s",user_name);
- fseek(stream,l,SEEK_SET);
- fwrite(&bbs,sizeof(bbs_t),1,stream);
- fflush(stream);
- bprintf("\r\n\1h\1m%s\1c updated.",bbs.name);
- if(notify_user && notify_user!=user_number) {
- sprintf(str,"\1n\1hSBL: \1y%s \1mupdated \1c%s\1m "
- "in the BBS List\r\n",user_name,bbs.name);
- putsmsg(notify_user,str); } } }
- else
- bprintf("\r\n\r\n\1h\1rYou did not create \1m%s\1n."
- ,bbs.name); }
- else
- bprintf("\r\n\r\n\1h\1m%s\1c not found.",name);
- CRLF;
- CRLF;
- pause();
- break;
- case 'Q':
- return(0); } }
- return(-1);
-}
-
-/* End of SBL.C */
diff --git a/xtrn/sbl/sbl.cfg b/xtrn/sbl/sbl.cfg
deleted file mode 100644
index 32aceba935d8b29f554121da667024cb15d2c4ec..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl.cfg
+++ /dev/null
@@ -1,6 +0,0 @@
-30 Days to keep non-updated entries
-50 Minimum security level to add
-50 Minimum security level to update
-50 Minimum security level to remove
-10 Minimum security level to verify
-1 User to notify of changes (0=none)
diff --git a/xtrn/sbl/sbl.doc b/xtrn/sbl/sbl.doc
deleted file mode 100644
index 1d89b4eeb770f5be956385484aa9de2e61376aa8..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl.doc
+++ /dev/null
@@ -1,96 +0,0 @@
-Synchronet BBS List v3.20 (native 32-bit for Win32 and Unix)
-=========================
-
-Create the directory: SBL off of your Synchronet XTRN directory.
-(Example: C:\SBBS\XTRN\SBL)
-
-Make sure SBL.CFG are is this directory.
-
-Use an ASCII editor to edit the Synchronet BBS List config file (SBL.CFG) to
-your liking.
-
-Under SCFG->External Programs->Online Programs->Main, hit INS (if it doesn't
-already exist) and add Synchronet BBS List with the following configuration:
-
-Name Synchronet BBS List
-Internal Code SBL
-Start-up Directory ..\xtrn\sbl
-Command Line sbl%.
-Clean-up Command Line
-Execution Cost None
-Access Requirements
-Execution Requirements
-Multiple Concurrent Users Yes
-Intercept Standard I/O No
-Native (32-bit) Executable Yes
-Use Shell to Execute No
-Modify User Data No
-Execute on Event No
-BBS Drop File Type Synchronet XTRN.DAT
-Place Drop File In Node Directory
-
-SBL Utilities
-=============
-
-SBLPACK Remove deleted entries to save disk space and speed up listings
-
-Networking the Synchronet BBS List
-==================================
-
-If you wish to link your SBL database with other Synchronet BBSes, you must
-carry the Synchronet Data echo via DOVE-Net, FidoNet, or RIME and add
-the following two events in SCFG->External Programs->Timed Events:
-
-Internal Code SMB2SBL
-Start-up Directory ..\xtrn\sbl
-Command Line smb2sbl%. %jsubs\syncdata sbl.dab
-Execution Node 1
-Execution Days of Month Any
-Execution Days of Week All
-Execution Time 00:00
-Requires Exclusive Execution No
-Force Users Off-line For Event No
-Native (32-bit) Executable Yes
-Use Shell to Execute No
-Background Execution No
-
-Internal Code SBL2SMB
-Start-up Directory ..\xtrn\sbl
-Command Line sbl2smb%. sbl.dab %jsubs\syncdata
-Execution Node 11
-Execution Days of Month Any
-Execution Days of Week All
-Execution Time 00:00
-Requires Exclusive Execution No
-Force Users Off-line For Event No
-Native (32-bit) Executable Yes
-Use Shell to Execute No
-Background Execution No
-
-Change "SYNCDATA" to the internal code of the Synchronet Data sub-board on
-your BBS. We used SYNCDATA, since that is the example given in the Synchronet
-manual for the DOVE-Net Synchronet Data sub-board internal code. It is okay
-if you used a completely different internal code, as long as you specify that
-code instead of "SYNCDATA" on the above command lines.
-
-Make note that all networked SBL entries will be deleted from Vertrauen
-(Home of the Synchronet BBS List) after 90 days unless the entry is
-retransmitted in the message base or updated manually on Vertrauen in that
-time. To cause a retransmission from your BBS, you must (U)pdate the entry
-using SBL and then SBL2SMB will re-export it automatically next time it is run
-(via Timed Event). (V)erified entries are not re-exported by SBL2SMB, only new
-and updated entries. You can also create a BBS entry message by hand (not
-using SBL). Download SBBSLIST.ZIP from Vertrauen for more details.
-
-Source Code
-===========
-
-If you are a C programmer, you may find the included source code interesting
-and/or useful as an example for writing your own XSDK and/or SMB utilities.
-
-Makefile is for use with Borland C++ or C++Builder and the Synchronet XSDK
-to create SBL.EXE. GNUmakefile is for use with the GNU C Compiler.
-And sbl.dsp is for use with Microsoft Visual C++ v6.0.
-
-/* End of SBL.DOC */
-
\ No newline at end of file
diff --git a/xtrn/sbl/sbl.dsp b/xtrn/sbl/sbl.dsp
deleted file mode 100644
index f697b91ee4a32d449ea6996c27a0009011678b86..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl.dsp
+++ /dev/null
@@ -1,106 +0,0 @@
-# Microsoft Developer Studio Project File - Name="sbl" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=sbl - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "sbl.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "sbl.mak" CFG="sbl - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "sbl - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "sbl - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "sbl - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "sbl___Win32_Release"
-# PROP BASE Intermediate_Dir "sbl___Win32_Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.release"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MT /W3 /GX /O2 /I "..\sdk" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib wsock32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "sbl - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "sbl___Win32_Debug"
-# PROP BASE Intermediate_Dir "sbl___Win32_Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.debug"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /I "..\sdk" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib wsock32.lib /nologo /subsystem:console /map /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "sbl - Win32 Release"
-# Name "sbl - Win32 Debug"
-# Begin Source File
-
-SOURCE=.\sbl.c
-# End Source File
-# Begin Source File
-
-SOURCE=.\sbldefs.h
-# End Source File
-# Begin Source File
-
-SOURCE=..\Sdk\xsdk.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\Sdk\xsdkvars.c
-# End Source File
-# Begin Source File
-
-SOURCE=..\sdk\xsdkwrap.c
-# End Source File
-# End Target
-# End Project
diff --git a/xtrn/sbl/sbl2smb.c b/xtrn/sbl/sbl2smb.c
deleted file mode 100644
index 6f72fcaf613cab4c012a2b8fa2aa4c3e71781c4e..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl2smb.c
+++ /dev/null
@@ -1,421 +0,0 @@
-/* sbl2smb.c */
-
-/* Scans SBL database and posts any additions/updates into the an SMB base */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#ifdef _WIN32
- #include <windows.h>
- #include <io.h> /* access */
- #include <share.h>
-#endif
-
-#include <time.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-
-#include "genwrap.h"
-#include "filewrap.h"
-#include "dirwrap.h"
-#include "sbbsdefs.h"
-#include "smblib.h"
-#include "sbldefs.h"
-
-smb_t smb;
-char revision[16];
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' */
-/****************************************************************************/
-static void truncsp(char *str)
-{
- uint c;
-
- c=strlen(str);
- while(c && (uchar)str[c-1]<=SP) c--;
- str[c]=0;
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char* unixtodstr(time_t unix_time, char *str)
-{
- struct tm* tm;
-
- if(!unix_time)
- strcpy(str,"00/00/00");
- else {
- tm=gmtime(&unix_time);
- if(tm==NULL) {
- strcpy(str,"00/00/00");
- return(str);
- }
- if(tm->tm_mon>11) { /* DOS leap year bug */
- tm->tm_mon=0;
- tm->tm_year++; }
- if(tm->tm_mday>31)
- tm->tm_mday=1;
- sprintf(str,"%02u/%02u/%02u",tm->tm_mday,tm->tm_mon+1
- ,TM_YEAR(tm->tm_year));
- }
- return(str);
-}
-
-
-
-#define BUF_LEN (32*1024)
-
-int main(int argc, char **argv)
-{
- uchar str[128],tmp[128],*buf,*p,software[128];
- int i,file;
- ushort xlat;
- long length;
- ulong offset;
- time_t last,now;
- bbs_t bbs;
- smbmsg_t msg;
- FILE *stream;
-
- sscanf("$Revision$" + 11, "%s", revision);
-
- fprintf(stderr,"\nSBL2SMB v2.%s-%s - Write SBL to SMB - Coyright 2002 "
- "Rob Swindell\n\n",revision,PLATFORM_DESC);
- if(argc<3) {
- fprintf(stderr,"usage: sbl2smb <sbl.dab> <smb_file> [/s:software]\n\n");
- fprintf(stderr,"ex: sbl2smb /sbbs/xtrn/sbl/sbl.dab "
- "/sbbs/data/subs/syncdata\n");
- return(1);
- }
-
- if((buf = malloc(BUF_LEN)) == NULL) {
- fprintf(stderr,"!malloc failure\n");
- return(2);
- }
- now=time(NULL);
-
- software[0]=0;
- if(argc>3 && !strnicmp(argv[3],"/S:",3))
- SAFECOPY(software,argv[3]+3);
-
- SAFECOPY(smb.file,argv[2]);
-
- SAFECOPY(str,argv[1]);
- if((file=sopen(str,O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- printf("error opening %s\n",str);
- return(1); }
- if((stream=fdopen(file,"rb"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
- strcpy(tmp,str);
- p=strrchr(tmp,'.');
- if(p) {
- (*p)=0;
- strcat(tmp,"2smb.dab");
- if((file=open(tmp,O_RDWR|O_BINARY|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
- if(read(file,&last,sizeof(time_t))!=sizeof(time_t))
- last=0;
- lseek(file,0L,SEEK_SET);
- write(file,&now,sizeof(now));
- close(file); }
-
- sprintf(str,"%s.shd",smb.file);
- if(!fexist(str)) {
- printf("%s doesn't exist\n",smb.file);
- return(0); }
- fprintf(stderr,"Opening %s\n",smb.file);
- smb.retry_time=30;
- if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- return(1); }
- i=smb_locksmbhdr(&smb);
- if(i) {
- printf("smb_locksmbhdr returned %d\n",i);
- return(1); }
- i=smb_getstatus(&smb);
- smb_unlocksmbhdr(&smb);
- if(i) {
- printf("smb_getstatus returned %d\n",i);
- return(1); }
-
- while(!feof(stream)) {
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(bbs.total_numbers<1 /* corrupted? */
- || bbs.total_numbers>MAX_NUMBERS)
- continue;
- truncsp(bbs.name);
- if(bbs.name[0]<=' ' /* corrupted? */
- || bbs.misc&FROM_SMB
- || (bbs.updated<last && bbs.created<last
- && bbs.verified<last))
- continue;
- if(software[0] && strnicmp(software,bbs.software,strlen(software)))
- continue;
-
- truncsp(bbs.user);
- if(bbs.user[0]<=' ') /* corrupted? */
- continue;
- truncsp(bbs.software);
- if(bbs.software[0]<=' ') /* corrupted? */
- continue;
-
- printf("%s\r\n",bbs.name);
- memset(buf,0,BUF_LEN);
-
- sprintf(str,"%-15.15s%s\r\n"
- ,"Name:",bbs.name);
- strcat(buf,str);
-
- sprintf(str,"%-15.15s%s\r\n"
- ,"Birth:",unixtodstr(bbs.birth,tmp));
- strcat(buf,str);
-
- sprintf(str,"%-15.15s%s\r\n"
- ,"Software:",bbs.software);
- strcat(buf,str);
-
- for(i=0;i<bbs.total_sysops;i++) {
- truncsp(bbs.sysop[i]);
- sprintf(str,"%-15.15s%s\r\n"
- ,"Sysop:",bbs.sysop[i]);
- strcat(buf,str); }
-
- strcat(buf,"\r\n");
-
- truncsp(bbs.sysop_email);
- if(bbs.sysop_email[0]) {
- sprintf(str,"%-15.15s%s\r\n"
- ,"E-mail:",bbs.sysop_email);
- strcat(buf,str);
- }
-
- truncsp(bbs.web_url);
- if(bbs.web_url[0]) {
- sprintf(str,"%-15.15s%s\r\n"
- ,"Web-site:",bbs.web_url);
- strcat(buf,str);
- }
-
- strcat(buf,"\r\n");
-
- for(i=0;i<bbs.total_numbers;i++) {
- truncsp(bbs.number[i].modem.number);
- sprintf(str,"%-15.15s%s\r\n"
- ,"Number:",bbs.number[i].modem.number);
- strcat(buf,str);
-
- sprintf(str,"%-15.15s%u\r\n"
- ,"MinRate:",bbs.number[i].modem.min_rate);
- strcat(buf,str);
-
- sprintf(str,"%-15.15s%u\r\n"
- ,"MaxRate:",bbs.number[i].modem.max_rate);
- strcat(buf,str);
-
- if(bbs.number[i].modem.min_rate!=0xffff) {
-
- sprintf(str,"%-15.15s%s\r\n"
- ,"Modem:",bbs.number[i].modem.desc);
- strcat(buf,str);
- }
- truncsp(bbs.number[i].modem.location);
- sprintf(str,"%-15.15s%s\r\n"
- ,"Location:",bbs.number[i].modem.location);
- strcat(buf,str);
- if(i+1<bbs.total_numbers)
- strcat(buf,"\r\n"); }
-
- if(bbs.total_networks)
- strcat(buf,"\r\n");
- for(i=0;i<bbs.total_networks;i++) {
- sprintf(str,"%-15.15s%s\r\n"
- ,"Network:",bbs.network[i]);
- strcat(buf,str);
- sprintf(str,"%-15.15s%s\r\n"
- ,"Address:",bbs.address[i]);
- strcat(buf,str);
- if(i+1<bbs.total_networks)
- strcat(buf,"\r\n"); }
-
- strcat(buf,"\r\n");
- for(i=0;i<bbs.total_terminals;i++) {
- sprintf(str,"%-15.15s%s\r\n"
- ,"Terminal:",bbs.terminal[i]);
- strcat(buf,str); }
-
- strcat(buf,"\r\n");
- sprintf(str,"%-15.15s%lu\r\n"
- ,"Megs:",bbs.megs);
- strcat(buf,str);
- sprintf(str,"%-15.15s%lu\r\n"
- ,"Msgs:",bbs.msgs);
- strcat(buf,str);
- sprintf(str,"%-15.15s%lu\r\n"
- ,"Files:",bbs.files);
- strcat(buf,str);
- sprintf(str,"%-15.15s%u\r\n"
- ,"Nodes:",bbs.nodes);
- strcat(buf,str);
- sprintf(str,"%-15.15s%u\r\n"
- ,"Users:",bbs.users);
- strcat(buf,str);
- sprintf(str,"%-15.15s%u\r\n"
- ,"Subs:",bbs.subs);
- strcat(buf,str);
- sprintf(str,"%-15.15s%u\r\n"
- ,"Dirs:",bbs.dirs);
- strcat(buf,str);
- sprintf(str,"%-15.15s%u\r\n"
- ,"Xtrns:",bbs.xtrns);
- strcat(buf,str);
-
- if(bbs.desc[0][0])
- strcat(buf,"\r\n");
- for(i=0;i<5;i++) {
- if(!bbs.desc[i][0])
- break;
- sprintf(str,"%-15.15s%s\r\n"
- ,"Desc:",bbs.desc[i]);
- strcat(buf,str); }
-
- sprintf(buf+strlen(buf),"\r\n--- SBL2SMB 2.%s-%s",revision,PLATFORM_DESC);
-
- length=strlen(buf); /* +2 for translation string */
-
- if(smb.status.attr&SMB_HYPERALLOC)
- offset=smb_hallocdat(&smb);
- else {
- i=smb_open_da(&smb);
- if(i) {
- printf("smb_open_da returned %d\n",i);
- exit(1); }
- offset=smb_allocdat(&smb,length+2,1);
- fclose(smb.sda_fp); }
-
- fseek(smb.sdt_fp,offset,SEEK_SET);
- xlat=XLAT_NONE;
- fwrite(&xlat,2,1,smb.sdt_fp);
- fwrite(buf,length,1,smb.sdt_fp);
- length+=2;
-
- memset(&msg,0,sizeof(smbmsg_t));
- memcpy(msg.hdr.id,"SHD\x1a",4);
- msg.hdr.version=smb_ver();
- msg.hdr.when_written.time=now;
- msg.hdr.when_imported.time=now;
-
- msg.hdr.offset=offset;
-
- strcpy(str,"SBL");
- i=smb_hfield(&msg,RECIPIENT,(ushort)strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.to=crc16(str);
-
- strcpy(str,bbs.user);
- i=smb_hfield(&msg,SENDER,(ushort)strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.from=crc16(str);
-
- strcpy(str,bbs.name);
- i=smb_hfield(&msg,SUBJECT,(ushort)strlen(str),str);
- if(i) {
- printf("smb_hfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- strlwr(str);
- msg.idx.subj=crc16(str);
-
- i=smb_dfield(&msg,TEXT_BODY,length);
- if(i) {
- printf("smb_dfield returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
-
- i=smb_addmsghdr(&smb,&msg,smb.status.attr&SMB_HYPERALLOC);
- if(i) {
- printf("smb_addmsghdr returned %d\n",i);
- smb_freemsgdat(&smb,offset,length,1);
- exit(1); }
- smb_freemsgmem(&msg); }
- return(0);
-}
-
-/* End of SBL2SMB.C */
diff --git a/xtrn/sbl/sbl2smb.dsp b/xtrn/sbl/sbl2smb.dsp
deleted file mode 100644
index 8a722ddbfe59e2e4f22d2783159396f624ccd9e1..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl2smb.dsp
+++ /dev/null
@@ -1,104 +0,0 @@
-# Microsoft Developer Studio Project File - Name="sbl2smb" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=sbl2smb - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "sbl2smb.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "sbl2smb.mak" CFG="sbl2smb - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "sbl2smb - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "sbl2smb - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "sbl2smb - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.release"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /W3 /GX /O2 /I "c:\src\sbbs3" /I "c:\src\xpdev" /I "..\sdk" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "sbl2smb - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "sbl2smb___Win32_Debug"
-# PROP BASE Intermediate_Dir "sbl2smb___Win32_Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "c:\src\sbbs3" /I "c:\src\xpdev" /I "..\sdk" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "sbl2smb - Win32 Release"
-# Name "sbl2smb - Win32 Debug"
-# Begin Source File
-
-SOURCE=c:\src\xpdev\dirwrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=c:\src\xpdev\filewrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=c:\src\xpdev\genwrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=.\sbl2smb.c
-# End Source File
-# Begin Source File
-
-SOURCE=C:\src\sbbs3\smblib.c
-# End Source File
-# End Target
-# End Project
diff --git a/xtrn/sbl/sbl2txt.c b/xtrn/sbl/sbl2txt.c
deleted file mode 100644
index 8dd55531a0b83117236c06fe076099b8a0752a92..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbl2txt.c
+++ /dev/null
@@ -1,190 +0,0 @@
-/* SBL2TXT.C */
-
-/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
-
-/* Converts Synchronet BBS List (SBL.DAB) to text file */
-
-#include "xsdk.h"
-#include "sbldefs.h"
-
-char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
-char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
- ,"Jul","Aug","Sep","Oct","Nov","Dec"};
-char *nulstr="";
-char tmp[256];
-struct date date;
-struct time curtime;
-
-extern int daylight=0;
-extern long timezone=0L;
-
-/****************************************************************************/
-/* Generates a 24 character ASCII string that represents the time_t pointer */
-/* Used as a replacement for ctime() */
-/****************************************************************************/
-char *timestr(time_t *intime)
-{
- static char str[256];
- char mer[3],hour;
- struct tm *gm;
-
-gm=localtime(intime);
-if(gm->tm_hour>=12) {
- if(gm->tm_hour==12)
- hour=12;
- else
- hour=gm->tm_hour-12;
- strcpy(mer,"pm"); }
-else {
- if(gm->tm_hour==0)
- hour=12;
- else
- hour=gm->tm_hour;
- strcpy(mer,"am"); }
-sprintf(str,"%s %s %02d %4d %02d:%02d %s"
- ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,gm->tm_year%100
- ,hour,gm->tm_min,mer);
-return(str);
-}
-
-/****************************************************************************/
-/* Converts unix time format (long - time_t) into a char str MM/DD/YY */
-/****************************************************************************/
-char *unixtodstr(time_t unix, char *str)
-{
-
-if(!unix)
- strcpy(str,"00/00/00");
-else {
- unixtodos(unix,&date,&curtime);
- if((unsigned)date.da_mon>12) { /* DOS leap year bug */
- date.da_mon=1;
- date.da_year++; }
- if((unsigned)date.da_day>31)
- date.da_day=1;
- sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
- ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
-return(str);
-}
-
-
-void long_bbs_info(FILE *out, bbs_t bbs)
-{
- int i;
-
-fprintf(out,"BBS Name: %s since %s\r\n"
- ,bbs.name,unixtodstr(bbs.birth,tmp));
-fprintf(out,"Operator: ");
-for(i=0;i<bbs.total_sysops;i++) {
- if(i) {
- if(bbs.total_sysops>2)
- fprintf(out,", ");
- else
- fputc(SP,out);
- if(!(i%4))
- fprintf(out,"\r\n ");
- if(i+1==bbs.total_sysops)
- fprintf(out,"and "); }
- fprintf(out,"%s",bbs.sysop[i]); }
-fprintf(out,"\r\n");
-fprintf(out,"Software: %-15.15s Nodes: %-5u "
- "Users: %-5u Doors: %u\r\n"
- ,bbs.software,bbs.nodes,bbs.users,bbs.xtrns);
-fprintf(out,"Download: %lu files in %u directories of "
- "%luMB total space\r\n"
- ,bbs.files,bbs.dirs,bbs.megs);
-fprintf(out,"Messages: %lu messages in %u sub-boards\r\n"
- ,bbs.msgs,bbs.subs);
-fprintf(out,"Networks: ");
-for(i=0;i<bbs.total_networks;i++) {
- if(i) {
- if(bbs.total_networks>2)
- fprintf(out,", ");
- else
- fputc(SP,out);
- if(!(i%3))
- fprintf(out,"\r\n ");
- if(i+1==bbs.total_networks)
- fprintf(out,"and "); }
- fprintf(out,"%s [%s]",bbs.network[i],bbs.address[i]); }
-fprintf(out,"\r\n");
-fprintf(out,"Terminal: ");
-for(i=0;i<bbs.total_terminals;i++) {
- if(i) {
- if(bbs.total_terminals>2)
- fprintf(out,", ");
- else
- fputc(SP,out);
- if(i+1==bbs.total_terminals)
- fprintf(out,"and "); }
- fprintf(out,"%s",bbs.terminal[i]); }
-fprintf(out,"\r\n\r\n");
-for(i=0;i<bbs.total_numbers;i++)
- fprintf(out,"%-30.30s %12.12s %5u %-15.15s "
- "Minimum: %u\r\n"
- ,i && !strcmp(bbs.number[i].modem.location,bbs.number[i-1].modem.location)
- ? nulstr : bbs.number[i].modem.location
- ,bbs.number[i].modem.number
- ,bbs.number[i].modem.max_rate
- ,bbs.number[i].modem.desc
- ,bbs.number[i].modem.min_rate);
-
-fprintf(out,"\r\n");
-for(i=0;i<5;i++) {
- if(!bbs.desc[i][0])
- break;
- fprintf(out,"%15s%s\r\n",nulstr,bbs.desc[i]); }
-
-fprintf(out,"\r\n");
-fprintf(out,"Entry created on %s by %s\r\n"
- ,timestr(&bbs.created),bbs.user);
-fprintf(out," Last updated on %s\r\n\r\n",timestr(&bbs.updated));
-}
-
-
-void main(int argc, char **argv)
-{
- char software[16]="";
- char telnet_port[16];
- int i,in;
- FILE *out;
- bbs_t bbs;
-
-for(i=1;i<argc;i++)
- if(argv[i][0]=='s' && argv[i][1]=='=')
- sprintf(software,"%.15s",argv[i]+2);
-
-if((in=open("SBL.DAB",O_RDONLY|O_BINARY))==-1) {
- printf("error opening SBL.DAB\n");
- return; }
-
-if((out=fopen("SBL.TXT","wb"))==NULL) {
- printf("error opening/creating SBL.TXT\n");
- return; }
-
-while(!eof(in)) {
- read(in,&bbs,sizeof(bbs_t));
- if(!bbs.name[0])
- continue;
- if(software[0] && strnicmp(bbs.software,software,strlen(software)))
- continue;
- // long_bbs_info(out,bbs);
- for(i=0;i<bbs.total_numbers;i++)
- if(bbs.number[i].modem.min_rate==0xffff) {
- if(bbs.number[i].telnet.port && bbs.number[i].telnet.port!=23)
- sprintf(telnet_port,":%u",bbs.number[i].telnet.port);
- else
- telnet_port[0]=0;
- fprintf(out,"%-25.25s telnet://%s%s\r\n"
- ,bbs.name
- ,bbs.number[i].telnet.addr
- ,telnet_port);
- } else
- fprintf(out,"%-25.25s %12.12s %5u %s\r\n"
- ,bbs.name,bbs.number[i].modem.number
- ,bbs.number[i].modem.max_rate
- ,bbs.number[i].modem.desc);
- }
-close(in);
-fclose(out);
-}
diff --git a/xtrn/sbl/sbldefs.h b/xtrn/sbl/sbldefs.h
deleted file mode 100644
index ae1b7e25e465462a01afe93453f3206d2f17f459..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sbldefs.h
+++ /dev/null
@@ -1,128 +0,0 @@
-/* sbldefs.h */
-
-/* Synchronet BBS List Macros, constants, and type definitions */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#define MAX_SYSOPS 5
-#define MAX_NUMBERS 20
-#define MAX_NETS 10
-#define MAX_TERMS 5
-#define DESC_LINES 5
-#define DEF_LIST_FMT "NSTP"
-
-#ifndef IPPORT_TELNET
-#define IPPORT_TELNET 23
-#endif
-
-#define Y2K_2DIGIT_WINDOW 70
-
-/* Misc bits */
-
-#define FROM_SMB (1L<<0) /* BBS info imported from message base */
-
-#ifdef _WIN32 /* necessary for compatibility with SBL */
-#pragma pack(push)
-#pragma pack(1)
-#endif
-
-typedef union _PACK {
-
- struct {
- char number[13]; /* Phone number */
- char desc[16]; /* Modem description */
- char location[31]; /* Location of phone number */
- ushort min_rate; /* Minimum connect rate */
- ushort max_rate; /* Maximum connect rate */
- } modem;
-
- struct {
- char addr[29]; /* Telnet address */
- char location[31]; /* Location */
- ushort unused; /* 0xffff */
- ushort port; /* TCP port number */
- } telnet;
-
-} number_t;
-
-typedef struct _PACK {
- char name[26] /* System name */
- ,user[26] /* User who created entry */
- ,software[16] /* BBS software */
- ,total_sysops
- ,sysop[MAX_SYSOPS][26] /* Sysop names */
- ,total_numbers
- ,total_networks
- ,network[MAX_NETS][16] /* Network names */
- ,address[MAX_NETS][26] /* Network addresses */
- ,total_terminals
- ,terminal[MAX_TERMS][16] /* Terminals supported */
- ,desc[DESC_LINES][51] /* 5 line description */
- ;
- ushort nodes /* Total nodes */
- ,users /* Total users */
- ,subs /* Total sub-boards */
- ,dirs /* Total file dirs */
- ,xtrns /* Total external programs */
- ;
- time_t created /* Time/date entry was created */
- ,updated /* Time/date last updated */
- ,birth /* Birthdate of BBS */
- ;
- ulong megs /* Storage space in megabytes */
- ,msgs /* Total messages */
- ,files /* Total files */
- ,misc /* Miscellaneous bits */
- ;
- number_t number[MAX_NUMBERS]; /* Access numbers */
-
- char userupdated[26]; /* User who last updated */
- time_t verified; /* Time/Date last vouched for */
- char userverified[26]; /* User who last vouched */
- char web_url[61]; /* Web-site address */
- char sysop_email[61]; /* Sysop's e-mail address */
- time_t exported; /* Date last exported to SMB */
- ulong verification_count; /* Number of successful auto-verifications */
- ulong verification_attempts; /* Number of auto-verification attempts */
- char unused[310]; /* Unused space */
-} bbs_t;
-
-#ifdef _WIN32
-#pragma pack(pop) /* original packing */
-#endif
-
-
-
-/* End of SBL.H */
-
diff --git a/xtrn/sbl/sblpack.c b/xtrn/sbl/sblpack.c
deleted file mode 100644
index 8e0b28d09476f8d97aa5ccbcbb392452313e09f7..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sblpack.c
+++ /dev/null
@@ -1,101 +0,0 @@
-/* sblpack.c */
-
-/* Synchronet BBS List Database Packer */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h> /* exit() */
-#include <time.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-#include "filewrap.h" /* sopen() */
-#include "xsdkwrap.h" /* PLATFORM_DESC */
-#include "xsdkdefs.h"
-#include "sbldefs.h"
-
-int main(void)
-{
- int file;
- FILE * in;
- FILE * out;
- bbs_t bbs;
- ulong records=0;
- ulong deleted=0;
- char revision[16];
-
- sscanf("$Revision$", "%*s %s", revision);
-
- printf("\nSBLPACK %s-%s Copyright 2003 Rob Swindell\n\n"
- ,revision,PLATFORM_DESC);
-
- if((file=sopen("sbl.dab",O_RDWR|O_BINARY,SH_DENYNO))==-1) {
- printf("\n\7Error opening/creating sbl.dab\n");
- exit(1); }
- if((in=fdopen(file,"w+b"))==NULL) {
- printf("\n\7Error converting sbl.dab file handle to stream\n");
- exit(1); }
- setvbuf(in,0L,_IOFBF,2048);
- if((out=fopen("sbl.tmp","wb"))==NULL) {
- printf("\n\7Error opening sbl.tmp file\n");
- exit(1); }
-
- while(!feof(in)) {
- if(!fread(&bbs,sizeof(bbs_t),1,in))
- break;
- records++;
- putchar('.');
- if(bbs.name[0]==0
- || bbs.user[0]==0
- || bbs.total_numbers<1) {
- deleted++;
- continue;
- }
- fwrite(&bbs,sizeof(bbs_t),1,out);
- }
- fclose(in);
- fclose(out);
- putchar('\n');
- if(remove("sbl.dab")) {
- printf("\n\7Data file in use, can't remove.\n");
- remove("sbl.tmp");
- exit(1);
- }
- rename("sbl.tmp","sbl.dab");
- printf("\nDone.\n");
- printf("\n%lu records in original file, %lu deleted (packed), new total = %lu.\n"
- ,records,deleted,records-deleted);
- return(0);
-}
-
diff --git a/xtrn/sbl/sblpack.dsp b/xtrn/sbl/sblpack.dsp
deleted file mode 100644
index 435611f416b5031b6c58c02bf398feca8d7e4c5e..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sblpack.dsp
+++ /dev/null
@@ -1,89 +0,0 @@
-# Microsoft Developer Studio Project File - Name="sblpack" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=sblpack - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "sblpack.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "sblpack.mak" CFG="sblpack - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "sblpack - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "sblpack - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "sblpack - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.release"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /W3 /GX /O2 /I "..\sdk" /I "c:\src\xpdev" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "sblpack - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "sblpack___Win32_Debug"
-# PROP BASE Intermediate_Dir "sblpack___Win32_Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "..\sdk" /I "c:\src\xpdev" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "sblpack - Win32 Release"
-# Name "sblpack - Win32 Debug"
-# Begin Source File
-
-SOURCE=.\sblpack.c
-# End Source File
-# End Target
-# End Project
diff --git a/xtrn/sbl/smb2sbl.c b/xtrn/sbl/smb2sbl.c
deleted file mode 100644
index a05007278907d9499a9a8132210b7d8e899380b7..0000000000000000000000000000000000000000
--- a/xtrn/sbl/smb2sbl.c
+++ /dev/null
@@ -1,516 +0,0 @@
-/* smb2sbl.c */
-
-/* Scans SMB message base for messages to "SBL" and adds them to the SBL */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This program is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU General Public License for more details: gpl.txt or *
- * http://www.fsf.org/copyleft/gpl.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#include <time.h> /* struct tm */
-#include <fcntl.h> /* O_RDWR */
-#include <sys/stat.h> /* S_IWRITE */
-#include <ctype.h> /* isdigit */
-#include <stdlib.h> /* atoi */
-#include <string.h>
-#include <errno.h> /* errno */
-#include "smblib.h"
-#include "sbldefs.h"
-#include "genwrap.h" /* PLATFORM_DESC */
-#include "dirwrap.h" /* fexist/flength */
-#include "filewrap.h" /* O_BINARY */
-
-smb_t smb;
-char revision[16];
-
-char *loadmsgtxt(smbmsg_t msg, int tails)
-{
- char *buf=NULL,*lzhbuf;
- ushort xlat;
- int i,lzh;
- long l=0,lzhlen,length;
-
- for(i=0;i<msg.hdr.total_dfields;i++) {
- if(!(msg.dfield[i].type==TEXT_BODY
- || (tails && msg.dfield[i].type==TEXT_TAIL)))
- continue;
- fseek(smb.sdt_fp,msg.hdr.offset+msg.dfield[i].offset
- ,SEEK_SET);
- fread(&xlat,2,1,smb.sdt_fp);
- lzh=0;
- if(xlat==XLAT_LZH) {
- lzh=1;
- fread(&xlat,2,1,smb.sdt_fp); }
- if(xlat!=XLAT_NONE) /* no other translations supported */
- continue;
-
- length=msg.dfield[i].length-2;
- if(lzh) {
- length-=2;
- if((lzhbuf=MALLOC(length))==NULL) {
- printf("ERR_ALLOC lzhbuf of %lu\n",length);
- return(buf); }
- fread(lzhbuf,1,length,smb.sdt_fp);
- lzhlen=*(long *)lzhbuf;
- if((buf=REALLOC(buf,l+lzhlen+3))==NULL) {
- FREE(lzhbuf);
- printf("ERR_ALLOC lzhoutbuf of %l\n",l+lzhlen+1);
- return(buf); }
- lzh_decode(lzhbuf,length,buf+l);
- FREE(lzhbuf);
- l+=lzhlen; }
- else {
- if((buf=REALLOC(buf,l+msg.dfield[i].length+3))==NULL) {
- printf("ERR_ALLOC of %lu\n",l+msg.dfield[i].length+1);
- return(buf); }
- l+=fread(buf+l,1,length,smb.sdt_fp); }
- buf[l]=CR;
- l++;
- buf[l]=LF;
- l++;
- buf[l]=0; }
- return(buf);
-}
-
-/****************************************************************************/
-/* Converts a date string in format MM/DD/YY into unix time format */
-/****************************************************************************/
-time_t dstrtounix(char *instr)
-{
- char* p;
- char* day;
- char str[16];
- struct tm tm;
-
- if(!instr[0] || !strncmp(instr,"00/00/00",8))
- return(0);
-
- if(isdigit(instr[0]) && isdigit(instr[1])
- && isdigit(instr[3]) && isdigit(instr[4])
- && isdigit(instr[6]) && isdigit(instr[7]))
- p=instr; /* correctly formatted */
- else {
- p=instr; /* incorrectly formatted */
- while(*p && isdigit(*p)) p++;
- if(*p==0)
- return(0);
- p++;
- day=p;
- while(*p && isdigit(*p)) p++;
- if(*p==0)
- return(0);
- p++;
- sprintf(str,"%02u/%02u/%02u"
- ,atoi(instr)%100,atoi(day)%100,atoi(p)%100);
- p=str;
- }
-
- memset(&tm,0,sizeof(tm));
- tm.tm_year=((p[6]&0xf)*10)+(p[7]&0xf);
- if (tm.tm_year<Y2K_2DIGIT_WINDOW)
- tm.tm_year+=100;
- tm.tm_mon=((p[0]&0xf)*10)+(p[1]&0xf);
- tm.tm_mday=((p[3]&0xf)*10)+(p[4]&0xf);
- if (tm.tm_mon)
- tm.tm_mon--; /* zero-based month field */
- return(mktime(&tm));
-}
-
-/****************************************************************************/
-/* Updates 16-bit "rcrc" with character 'ch' */
-/****************************************************************************/
-void ucrc16(uchar ch, ushort *rcrc) {
- ushort i, cy;
- uchar nch=ch;
-
-for (i=0; i<8; i++) {
- cy=*rcrc & 0x8000;
- *rcrc<<=1;
- if (nch & 0x80) *rcrc |= 1;
- nch<<=1;
- if (cy) *rcrc ^= 0x1021; }
-}
-
-/****************************************************************************/
-/* Returns 16-crc of string (not counting terminating NULL) */
-/****************************************************************************/
-ushort crc16(char *str)
-{
- int i=0;
- ushort crc=0;
-
-ucrc16(0,&crc);
-while(str[i])
- ucrc16(str[i++],&crc);
-ucrc16(0,&crc);
-ucrc16(0,&crc);
-return(crc);
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' */
-/* This is a *special* version of truncsp that truncates at first CR char */
-/****************************************************************************/
-static void truncsp(char *str)
-{
- uint org,c;
-
- org=strlen(str);
- str[strcspn(str,"\r")]=0;
- c=strlen(str);
- memset(str+c,0,org-c); /* clear the remainder of the buffer */
- while(c && (uchar)str[c-1]<=SP) c--;
- str[c]=0;
-}
-
-int main(int argc, char **argv)
-{
- uchar str[128],*buf;
- int i,file,sysop,number,network,terminal,desc;
- ulong l,last,high;
- ushort sbl;
- bbs_t bbs;
- smbmsg_t msg;
- FILE *stream;
-
- sscanf("$Revision$", "%*s %s", revision);
-
- fprintf(stderr,"\nSMB2SBL v2.%s-%s - Updates SBL via SMB - Copyright 2003 "
- "Rob Swindell\n\n",revision,PLATFORM_DESC);
-
-#if 0
- if(putenv("TZ=UCT0"))
- fprintf(stderr,"!putenv() FAILED\n");
- tzset();
-#endif
-
- if(argc<3) {
- fprintf(stderr,"usage: smb2sbl <smb_file> <sbl.dab>\n\n");
- fprintf(stderr,"ex: smb2sbl /sbbs/data/subs/syncdata "
- "/sbbs/xtrn/sbl/sbl.dab\n");
- return(1);
- }
-
- SAFECOPY(smb.file,argv[1]);
-
- SAFECOPY(str,argv[2]);
- if((file=sopen(str,O_RDWR|O_BINARY|O_CREAT,SH_DENYNO,S_IREAD|S_IWRITE))==-1) {
- printf("error opening %s\n",str);
- return(1); }
- if((stream=fdopen(file,"r+b"))==NULL) {
- printf("error fdopening %s\n",str);
- return(1); }
- setvbuf(stream,NULL,_IOFBF,4096);
-
- sprintf(str,"%s.SBL",smb.file);
- if((file=open(str,O_RDWR|O_BINARY|O_CREAT,S_IWRITE|S_IREAD))==-1) {
- printf("error opening %s\n",str);
- return(1); }
- if(read(file,&last,4)!=4)
- last=0;
- high=last;
-
- sprintf(str,"%s.shd",smb.file);
- if(!fexist(str)) {
- printf("%s doesn't exist\n",smb.file);
- return(0); }
- sprintf(str,"%s.sid",smb.file);
- if(!flength(str)) {
- printf("%s is empty\n",smb.file);
- return(0); }
- fprintf(stderr,"Opening %s\n",smb.file);
- smb.retry_time=30;
- if((i=smb_open(&smb))!=0) {
- printf("smb_open returned %d\n",i);
- return(1); }
-
- sbl=crc16("sbl");
-
- if((i=smb_locksmbhdr(&smb))!=0) { /* Be sure noone deletes or */
- printf("Error locking %d\n",i); /* adds while we're reading */
- return(1); }
-
- while(!feof(smb.sid_fp)) {
- if(!fread(&msg.idx,sizeof(idxrec_t),1,smb.sid_fp))
- break;
- fprintf(stderr,"\r%lu ",msg.idx.number);
- if(msg.idx.number<=last || msg.idx.to!=sbl)
- continue;
- high=msg.idx.number;
- if((i=smb_lockmsghdr(&smb,&msg))!=0) {
- printf("\7Error %d locking msg #%lu\n",i,msg.idx.number);
- continue; }
- if((i=smb_getmsghdr(&smb,&msg))!=0) {
- smb_unlockmsghdr(&smb,&msg);
- printf("\7Error %d reading msg #%lu\n",i,msg.idx.number);
- continue; }
- smb_unlockmsghdr(&smb,&msg);
- if(!msg.from_net.type /* ignore local message */
- || msg.from[0]<=' ' /* corrupted? */
- || msg.subj[0]<=' ' /* corrupted */
- ) {
- smb_freemsgmem(&msg);
- continue;
- }
-
- printf("\nMessage #%lu by %s on %.24s\n"
- ,msg.hdr.number,msg.from,ctime((time_t*)&msg.hdr.when_written.time));
-
- truncsp(msg.subj);
- if(!msg.subj[0]) {
- smb_freemsgmem(&msg);
- continue; }
- fprintf(stderr,"Searching for %s...",msg.subj);
- fseek(stream,0L,SEEK_SET);
- memset(&bbs,0,sizeof(bbs_t));
- while(1) {
- l=ftell(stream);
- if(!fread(&bbs,sizeof(bbs_t),1,stream)) {
- memset(&bbs,0,sizeof(bbs_t));
- break; }
- if(msg.subj[0] && !stricmp(bbs.name,msg.subj)) {
- fseek(stream,l,SEEK_SET);
- break; } }
- fprintf(stderr,"\n");
- if(bbs.name[0] && strnicmp(bbs.user,msg.from,25)) {
- printf("%s didn't create the entry for %s\n",msg.from,msg.subj);
- smb_freemsgmem(&msg);
- continue; }
- if(!bbs.name[0]) {
- fprintf(stderr,"Searching for unused record...");
- fseek(stream,0L,SEEK_SET);
- while(1) { /* Find deleted record */
- l=ftell(stream);
- if(!fread(&bbs,sizeof(bbs_t),1,stream))
- break;
- if(!bbs.name[0]) {
- fseek(stream,l,SEEK_SET);
- break; } }
- fprintf(stderr,"\n");
- memset(&bbs,0,sizeof(bbs_t));
- bbs.created=time(NULL);
- if(!bbs.birth)
- bbs.birth=bbs.created;
- SAFECOPY(bbs.user,msg.from);
- }
- SAFECOPY(bbs.name,msg.subj);
- bbs.updated=time(NULL);
- bbs.misc|=FROM_SMB;
- SAFECOPY(bbs.userupdated,msg.from);
- buf=loadmsgtxt(msg,0);
- sysop=number=network=terminal=desc=0;
- l=0;
- while(buf[l]) {
- while(buf[l] && buf[l]<=SP) /* Find first text on line */
- l++;
- if(!strnicmp(buf+l,"NAME:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.name,buf+l);
- truncsp(bbs.name);
- }
- if(!strnicmp(buf+l,"BIRTH:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.birth=dstrtounix(buf+l); }
- if(!strnicmp(buf+l,"SOFTWARE:",9)) {
- l+=9;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.software,buf+l);
- truncsp(bbs.software); }
- if(!strnicmp(buf+l,"WEB-SITE:",9)) {
- l+=9;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.web_url,buf+l);
- truncsp(bbs.web_url); }
- if(!strnicmp(buf+l,"E-MAIL:",7)) {
- l+=7;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.sysop_email,buf+l);
- truncsp(bbs.sysop_email); }
-
- if(!strnicmp(buf+l,"SYSOP:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.sysop[sysop],buf+l);
- truncsp(bbs.sysop[sysop]);
- if(sysop<MAX_SYSOPS-1)
- sysop++; }
- if(!strnicmp(buf+l,"NUMBER:",7) || !strnicmp(buf+l,"TELNET:",7)) {
- l+=7;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.number[number].telnet.addr,buf+l);
- truncsp(bbs.number[number].telnet.addr);
- if(!strnicmp(buf+l,"TELNET:",7)) {
- bbs.number[number].telnet.unused=0xffff;
- bbs.number[number].telnet.port=23;
- }
- if(number<MAX_NUMBERS-1)
- number++;
- }
- if(!strnicmp(buf+l,"MODEM:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- i=number;
- if(i) i--;
- SAFECOPY(bbs.number[i].modem.desc,buf+l);
- truncsp(bbs.number[i].modem.desc); }
- if(!strnicmp(buf+l,"LOCATION:",9)) {
- l+=9;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- i=number;
- if(i) i--;
- SAFECOPY(bbs.number[i].modem.location,buf+l);
- truncsp(bbs.number[i].modem.location); }
- if(!strnicmp(buf+l,"MINRATE:",8)) {
- l+=8;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- i=number;
- if(i) i--;
- bbs.number[i].modem.min_rate=atoi(buf+l); }
- if(!strnicmp(buf+l,"MAXRATE:",8)) {
- l+=8;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- i=number;
- if(i) i--;
- bbs.number[i].modem.max_rate=atoi(buf+l); }
- if(!strnicmp(buf+l,"PORT:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- i=number;
- if(i) i--;
- bbs.number[i].telnet.port=atoi(buf+l); }
- if(!strnicmp(buf+l,"NETWORK:",8)) {
- l+=8;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.network[network],buf+l);
- truncsp(bbs.network[network]);
- if(network<MAX_NETS-1)
- network++; }
- if(!strnicmp(buf+l,"ADDRESS:",8)) {
- l+=8;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- i=network;
- if(i) i--;
- SAFECOPY(bbs.address[i],buf+l);
- truncsp(bbs.address[i]); }
- if(!strnicmp(buf+l,"TERMINAL:",9)) {
- l+=9;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.terminal[terminal],buf+l);
- truncsp(bbs.terminal[terminal]);
- if(terminal<MAX_TERMS-1)
- terminal++; }
- if(!strnicmp(buf+l,"DESC:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- SAFECOPY(bbs.desc[desc],buf+l);
- truncsp(bbs.desc[desc]);
- if(desc<4)
- desc++; }
-
- if(!strnicmp(buf+l,"MEGS:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.megs=atol(buf+l); }
- if(!strnicmp(buf+l,"MSGS:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.msgs=atol(buf+l); }
- if(!strnicmp(buf+l,"FILES:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.files=atol(buf+l); }
- if(!strnicmp(buf+l,"NODES:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.nodes=atoi(buf+l); }
- if(!strnicmp(buf+l,"USERS:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.users=atoi(buf+l); }
- if(!strnicmp(buf+l,"SUBS:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.subs=atoi(buf+l); }
- if(!strnicmp(buf+l,"DIRS:",5)) {
- l+=5;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.dirs=atoi(buf+l); }
- if(!strnicmp(buf+l,"XTRNS:",6)) {
- l+=6;
- while(buf[l] && buf[l]<=SP && buf[l]!=CR)
- l++;
- bbs.xtrns=atoi(buf+l); }
- while(buf[l] && buf[l]>=SP) { /* Go to end of line */
- putchar(buf[l]);
- l++;
- }
- printf("\n");
- }
- bbs.total_sysops=sysop;
- bbs.total_networks=network;
- bbs.total_terminals=terminal;
- bbs.total_numbers=number;
- if(fwrite(&bbs,1,sizeof(bbs_t),stream)!=sizeof(bbs_t))
- fprintf(stderr,"!WRITE ERROR %d\n",errno);
- FREE(buf);
- smb_freemsgmem(&msg);
- }
- lseek(file,0L,SEEK_SET);
- write(file,&high,4);
- close(file);
- return(0);
-}
-
diff --git a/xtrn/sbl/smb2sbl.dsp b/xtrn/sbl/smb2sbl.dsp
deleted file mode 100644
index 7c1e3ddfb71d18c405b8836d341d8be5577cf536..0000000000000000000000000000000000000000
--- a/xtrn/sbl/smb2sbl.dsp
+++ /dev/null
@@ -1,110 +0,0 @@
-# Microsoft Developer Studio Project File - Name="smb2sbl" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=smb2sbl - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "smb2sbl.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "smb2sbl.mak" CFG="smb2sbl - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "smb2sbl - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "smb2sbl - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "smb2sbl - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.release"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /W3 /GX /O2 /I "c:\src\sbbs3" /I "c:\src\xpdev" /I "..\sdk" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "smb2sbl - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "msvc.win32.debug"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "c:\src\sbbs3" /I "..\sdk" /I "c:\src\xpdev" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "smb2sbl - Win32 Release"
-# Name "smb2sbl - Win32 Debug"
-# Begin Source File
-
-SOURCE=C:\src\xpdev\dirwrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=C:\src\xpdev\filewrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=C:\src\xpdev\genwrap.c
-# End Source File
-# Begin Source File
-
-SOURCE=C:\src\sbbs3\lzh.c
-# End Source File
-# Begin Source File
-
-SOURCE=.\smb2sbl.c
-# End Source File
-# Begin Source File
-
-SOURCE=C:\src\sbbs3\smblib.c
-# End Source File
-# End Target
-# End Project
diff --git a/xtrn/sbl/sysop.txt b/xtrn/sbl/sysop.txt
deleted file mode 100644
index d3351eaf0abce9548b29193bd326ad60d205d670..0000000000000000000000000000000000000000
--- a/xtrn/sbl/sysop.txt
+++ /dev/null
@@ -1,139 +0,0 @@
-Synchronet BBS List Sysop Information
-=====================================
-
-This list is created and distributed every Monday. It is exported from the
-online BBS List database on Vertrauen and distributed via the SYNCMAIN FidoNet
-filebone file echo as SBBSLIST.ZIP.
-
-If you are a sysop of a Synchronet BBS and would like to have your BBS included
-in future versions of this list, do any one of the following:
-
- o Call Vertrauen at 714-529-9525 and use the Synchronet BBS List
- (external program) to add your system information.
-
- o See \SBBS\XTRN\SBL\SBL.DOC for instructions on networking your SBL
- database (v1.32+) with Vertrauen through DOVE-Net or FidoNet.
-
- o Post a message on the Synchronet Data echo (via DOVE-Net or the
- SYNCDATA echo on FidoNet backbone) in the following format:
-
-To: SBL
-Subj: bbs name
-
-Body Text:
-------------------------------------------------------------------------------
-Name: bbs name (max length: 25)
-Birth: MM/DD/YY (first day online)
-Sysop: your name (max length: 25)
-Sysop: co-sysop (up to 5 sysops)
-Software: Synchronet
-
-Desc: description (max length: 50)
-Desc: more description (up to 5 description lines)
-
-Nodes: number of nodes (numbers only)
-Megs: megabytes of storage (numbers only)
-Users: number of users (numbers only)
-Subs: message areas (numbers only)
-Msgs: total messages (numbers only)
-Dirs: file directories (numbers only)
-Files: total files online (numbers only)
-Xtrns: externals (doors) (numbers only)
-
-Network: name of network (max length: 15)
-Address: network address (max length: 25)
-Network: another network (up to 10 networks)
-Address: another address
-
-Terminal: supported terminnal (max length: 15)
-Terminal: another terminal (up to 5 terminals)
-
-Number: phone number (max length: 12)
-Location: city, state (max length: 30)
-Modem: modem description (max length: 15)
-MaxRate: maximum connect rate (numbers only)
-MinRate: minimum connect rate (numbers only)
- (up to 20 phone numbers)
--------------------------------------------------------------------------------
-
-The message must be posted to "SBL". If updating an existing entry, the message
-must be posted by the person who created the original entry. The title
-(subject) must be your BBS name. If changing the BBS name, the title must be
-the original name, and "NAME:" must be specified in the body text.
-
-All entry fields are optional. Only one field can be specified per line. The
-amount of whitespace between the colon and the data is irrelevant. All lines
-that do not begin with a valid field name and colon (like these) are ignored.
-Field names are not case sensitive (e.g. NAME: and Name: are equivalent).
-The order of the entry fields in the body text is not significant.
-
-Entries must be updated at least once every 90 days or they are automatically
-deleted. If you wish to delete your entry, send a message to SBL with the BBS
-name in the title and include a blank "Name:" field.
-
-If you want to just update an entry (to keep it from being auto-deleted), you
-do not have to specify any fields in the body text. But, it is suggested that
-you re-post all of your fields for all updates so that any new systems that are
-"watching" this sub-board can add your complete entry to their list.
-
-Up to 20 phone numbers can be specified. The number is limited to 12
-characters (so please use AAA-PPP-SSSS format), location is limited to 30
-characters, and modem description is limited to 15 characters. Do NOT put
-38400 or 57600 for maximum connect rate (MaxRate), as such standards do not
-yet exist.
-
-For all numeric files (noted as: "numbers only"), do not use commas, symbols,
-or letters. A MaxRate of 14,400bps must be specified as "14400".
-
-An example of a valid BBS post body text:
--------------------------------------------------------------------------------
-Name: Vertrauen
-Birth: 08/01/88
-Software: Synchronet
-Sysop: Digital Man
-Sysop: Ille Homine Albe
-
-Desc: Home of Synchronet Multinode BBS Software
-
-Nodes: 6
-Megs: 1800
-Users: 1600
-Subs: 100
-Msgs: 45000
-Dirs: 150
-Files: 7000
-Xtrns: 10
-
-Network: FidoNet
-Address: 1:103/705
-Network: RIME
-Address: 5115
-Network: DOVE-Net
-Address: VERT
-
-Terminal: TTY
-Terminal: ANSI
-Terminal: RIP
-
-Number: 714-529-9525
-Location: Yorba Linda, Ca
-Modem: V.32bis
-MaxRate: 14400
-MinRate: 300
-
-Number: 714-529-9547
-Location: Yorba Linda, Ca
-Modem: V.FC
-MaxRate: 28800
-MinRate: 16800
-
-Number: 714-529-9721
-Location: Yorba Linda, Ca
-Modem: ZyXEL
-MaxRate: 19200
-MinRate: 16800
--------------------------------------------------------------------------------
-
-Rob Swindell, Digital Dynamics
-(Keeper of the Synchronet BBS List)
-
diff --git a/xtrn/scb/instruct.msg b/xtrn/scb/instruct.msg
deleted file mode 100644
index 26b95fdb3681763bf2c1e4ece288c9f7c083866b..0000000000000000000000000000000000000000
--- a/xtrn/scb/instruct.msg
+++ /dev/null
@@ -1,22 +0,0 @@
-l chSynchronet Callback
-
- ngWhen you continue the automatic validation process, chSynchronet Callback
-(SCB) ngwill ask you for your phone number. This rhMUSTng be the phone number that
-your modem is connected to and it must contain all of the digits necessary for
-chSCBng to call you back (including a '1' and area code if necessary).
-
- If you choose not to continue with the validation process, answer hNOng
-to the 'hContinue with verification?ng' question that chSCBng will ask you next.
-
- After you have entered an hACCEPTABLEng phone number, chSCBng will display a
-short message, and call you back. When your phone rings you will need to
-answer it with your modem. You should see a 'hRINGng' appear on your screen
-(and you may also hear your phone ring if one is connected to the same line as
-your modem), when this happens, you will need to type 'hATAng' and press hENTERng.
-rhDO NOTng answer the phone by voice!
-
- The modems will then connect, and you will be given several chances to
-enter your correct password. Once you have entered the hCORRECTng password, chSCBng
-will display a short message notifying you of this, validate your account,
-and then disconnect. If you enter your password hINCORRECTLYng, chSCBng will rhNOTng
-validate your account.
diff --git a/xtrn/scb/ld_time.msg b/xtrn/scb/ld_time.msg
deleted file mode 100644
index cee29fdbf3194488a1f51c29ad521b8857faf822..0000000000000000000000000000000000000000
--- a/xtrn/scb/ld_time.msg
+++ /dev/null
@@ -1 +0,0 @@
-Please try again later.
diff --git a/xtrn/scb/no_one.msg b/xtrn/scb/no_one.msg
deleted file mode 100644
index 6d72f2a2f9abcdfbbf031510ba6d53b7e7681d67..0000000000000000000000000000000000000000
--- a/xtrn/scb/no_one.msg
+++ /dev/null
@@ -1 +0,0 @@
-Phone numbers beginning with '1' are not allowed.
diff --git a/xtrn/scb/no_zero.msg b/xtrn/scb/no_zero.msg
deleted file mode 100644
index 2905d1f464fbbed24d8457bc5833a9ab1099e70b..0000000000000000000000000000000000000000
--- a/xtrn/scb/no_zero.msg
+++ /dev/null
@@ -1,2 +0,0 @@
-Phone numbers beginning with '0' are not allowed.
-
\ No newline at end of file
diff --git a/xtrn/scb/phonecan.msg b/xtrn/scb/phonecan.msg
deleted file mode 100644
index 66ddf7f9f7586a07598b27fad9ff40229ee0f6bd..0000000000000000000000000000000000000000
--- a/xtrn/scb/phonecan.msg
+++ /dev/null
@@ -1,2 +0,0 @@
-The number you entered was found in a list of invalid or previously verified
-numbers.
diff --git a/xtrn/scb/refused.msg b/xtrn/scb/refused.msg
deleted file mode 100644
index 9b984fd684d8e67bc4012b31cfefb7a3c84506ca..0000000000000000000000000000000000000000
--- a/xtrn/scb/refused.msg
+++ /dev/null
@@ -1,7 +0,0 @@
-
- ngYou have chosen to refuse the callback verification process. As a
-result, you may not be given access to the BBS. If you intend to gain access
-to the system, you may wish to leave a note to the Sysop explaining that you
-refused the callback verification, and your reasons for doing so, as well as
-a number where you CAN be called at.
-
diff --git a/xtrn/scb/scb.cfg b/xtrn/scb/scb.cfg
deleted file mode 100644
index e8672699badc050c97e9fc19d81dc5ce2fb9879f..0000000000000000000000000000000000000000
--- a/xtrn/scb/scb.cfg
+++ /dev/null
@@ -1,32 +0,0 @@
-5
-NYNNNNNN
-\SBBS\TEXT\PHONE.CAN
-\SBBS\TEXT\PHONE.CAN
-
-
-
-
-
-
-
-
-
-
-
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
-0
-7
-11
-
diff --git a/xtrn/scb/scb.doc b/xtrn/scb/scb.doc
deleted file mode 100644
index 878b3e69839ee1341d9079a3956b4d5912dd11a2..0000000000000000000000000000000000000000
--- a/xtrn/scb/scb.doc
+++ /dev/null
@@ -1,329 +0,0 @@
- Synchronet Callback v1.32 Copyright 1995 Digital Dynamics
- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-
- Callback Verification Program for Synchronet Multinode BBS Software
-
-
-Installation:
-============
-
- 1. Create a directory called "SCB" off of your Synchronet XTRN directory.
-
- Example:
-
- MD C:\SBBS\XTRN\SCB
-
- 2. Copy all SCB files into this new directory.
-
- Example:
-
- COPY *.* C:\SBBS\XTRN\SCB
-
- Note, SCB files include:
-
- SCB.DOC This file
- ORDER.TXT Purchase order form
- SCB.EXE Callback verifier external program
- SCBCFG.EXE Sysop configuration program for SCB
- ALLOWED.DAT List of allowable number prefixes
- LDPREFIX.DAT List of same-area prefixes that are long dist
- SCB.MSG The opening screen for SCB
- REFUSED.MSG Verification refused
- INSTRUCT.MSG Instructions
- NO_ONE.MSG Long distance starting with 1 not allowed
- NO_ZERO.MSG Long distance starting with 0 not allowed
- NO_LD.MSG Long distance in same area code not allowed
- LD_TIME.MSG Not within long distance callback time range
- TOOSHORT.MSG Phone number less than minimum number of digits
- TOOLONG.MSG Phone number more than maximum number of digits
- PHONECAN.MSG Phone number found in trash can file
- VERIFIED.MSG Displayed to users after verification
-
- 3. Run SCFG from your NODE1 directory.
-
- 4. Go to the External Programs->Online Programs menu.
-
- 5. Hit the <INSERT> key and enter "Synchronet Callback".
-
- 6. Hit <ENTER> to edit the configuration for this new program.
-
- 7. Set the "Start-up Directory" to "..\XTRN\SCB".
-
- 8. Set "Multiuser" to "Yes".
-
- 9. Set "Modify Uesr Data" to "Yes".
-
-10. Set "BBS Drop File Type" to "Synchronet XTRN.DAT"
-
-11. If you wish to have SCB run automatically for new users or as a logon
- event for unvalidated users, set the "Execute on Event" option to the
- appropriate event type. Use "Access Requirements" if you wish SCB to be
- only available to unvalidated users (i.e. "LEVEL NOT 20").
-
-Example SCFG screen:
-
- �[�][?]���������������������������������������������������ͻ
- � Synchronet Callback �
- ����������������������������������������������������������
- � �Name Synchronet Callback �
- � �Internal Code SCB �
- � �Start-up Directory ..\XTRN\SCB �
- � �Command Line scb �
- � �Clean-up Command Line �
- � �Cost in Credits 0 �
- � �Access Requirements LEVEL NOT 20 �
- � �Execution Requirements �
- � �Multiple Concurrent Users Yes �
- � �Intercept I/O Interrupts No �
- � �Swap BBS out of Memory No �
- � �Modify User Data Yes �
- � �Execute on Event Logon �
- � �BBS Drop File Type Synchronet XTRN.DAT �
- � �Place Drop File In Node Directory �
- ����������������������������������������������������������ͼ
-
-
-Configuration:
-=============
-
- 1. Go into your SCB directory and run SCBCFG.
-
- Example:
-
- CD \SBBS\XTRN\SCB
- SCBCFG
-
- You will see a menu similar to the following:
-
- �[�][?]���������������������������������������������������ͻ
- � Synchronet Callback Configuration �
- ����������������������������������������������������������
- � �Toggle Options... �
- � �Validation Values... �
- � �Allowed Prefix List... �
- � �Long Distance Prefix List... �
- � �Long Distance Calling Times... �
- � �Phone Number Trash Can \SBBS\TEXT\PHONE.CAN �
- � �Validated Phone List \SBBS\TEXT\PHONE.CAN �
- � �Callback Attempts 4 �
- � �Minimum Phone Length 7 �
- � �Maximum Phone Length 11 �
- � �BBS Area Code 714 �
- � �Send Message to Sysop User #1 �
- � �Registration Number UNREGISTERED �
- ����������������������������������������������������������ͼ
-
- 2. If your Synchronet text directory is in a directory or drive other
- than "\SBBS\TEXT", change the Phone Can and Validated Phone List options
- to reflect the correct location of your PHONE.CAN file.
-
- If you want to allow duplicate validated phone numbers, change the
- Validated Phone List to another path and/or filename. If left blank,
- the validated phone numbers will not be written to a file at all
- (other than the SCB.LOG and possibly the user data).
-
- The phone number list(s) use the same syntax for trashcan files as
- Synchronet BBS. Appending a '~' to a line specifies that the string
- cannot be located anywhere within the phone number. Appending a '^'
- indicates that the phone number cannot begin with the string.
-
- The stock PHONE.CAN for Synchronet BBS contains the following:
-
- 0-^
- 1-^
- 000-~
- 111-~
- 123-^
- 222-^
- 333-^
- 444-^
- 555-~
- 666-^
- 777-^
- 888-^
- 999-^
- 900-^
- 411-~
- 911-~
- 976-~
- 411^
- 911^
-
- Since SCB does not allow non-numeric characters in phone numbers, all
- entries with the dash (-) character above are ignored.
-
- 3. SCB uses the dial string specified in the modem configuration in SCFG
- for each node for dialing the remote user's modem. The default dial
- string is "ATDT".
-
- 4. Use the "Toggle Options" sub-menu to configure your preferences.
-
- �[�][?]����������������������������������������������ͻ
- � Toggle Options �
- �����������������������������������������������������
- � �Validate if Unable to Verify No �
- � �Put Result in User Note Yes �
- � �Long Distance if not an Allowed Prefix No �
- � �Allow Long Distance (Starting with 0) No �
- � �Allow Long Distance (Starting with 1) Yes �
- � �Allow Long Distance (Same Area Code) Yes �
- � �U.S. Style Phone Format (AAA-PPP-SSSS) Yes �
- � �Stay Connected After Callback No �
- �����������������������������������������������������ͼ
-
- If the "Validate if Unable to Verify" option is set to "Yes", users will
- always be validated. Even if their number was not verified.
-
- If the "Put Result in User Note" option is set to "Yes", the result of
- the verification attempt will be placed in the user's note field
- (in the Synchronet BBS user database).
-
- If the "Long Distance if not an Allowed Prefix" option is set to "Yes",
- then all numbers will be considered long distance unless the prefix
- is specifically listed in the "Allowed Prefix List" off of the main
- menu. If this option is set to "Yes", the "Long Distance Prefix List"
- is not used.
-
- If the "Allow Long Distance (starting with 0)" option is set to "Yes",
- then numbers starting with '0' will be allowed. This option does not
- effect numbers included in the "Allowed Prefix List".
-
- If the "Allow Long Distance (starting with 1)" option is set to "Yes",
- then numbers starting with '1' will be allowed. This option does not
- effect numbers included in the "Allowed Prefix List".
-
- If the "Allow Long Distance (same area code)" option is set to "Yes",
- then numbers that begin with a prefix located in the "Long Distance
- Prefix List" will not be allowed. This option does not effect numbers
- included in the "Allowed Prefix List".
-
- If the "U.S. Style Phone Format" option is set to "Yes", then SCB will
- assume that phone numbers are in the AAA-PPP-SSSS format, and will
- automatically strip the BBS area code from the prefix if the user
- entered a number in the same area code as the BBS and included the
- area code (both AAA and 1AAA will be stripped).
-
- The "Stay Connected After Callback" option can be set to "Yes", "No",
- or "Local Only". SCB will not disconnect after calling the user back
- if this option is set to "Yes". If set to "Local Only", SCB will only
- remain connected if the number verfied does not begin with a '1' or '0'.
-
- 5. Use the "Validation Values" sub-menu to configure how you want validated
- users' accounts to be modified.
-
- �[�][?]�������������������������������������������������������ͻ
- � Validation Values �
- ��������������������������������������������������������������
- � �Security Level 23 �
- � �Flag Set 1 CDLN �
- � �Flag Set 2 �
- � �Flag Set 3 �
- � �Flag Set 4 -V �
- � �Exemptions �
- � �Restrictions -CX �
- � �Days to Extend Expiration 0 �
- � �Credits to Add �
- � �Minutes to Add �
- ��������������������������������������������������������������ͼ
-
- Note: The DEMO version will only set new security level and add credits.
- The other validation options are only available in the registered
- version.
-
- 6. Use the "Allowed Prefix List" sub-menu to set which prefixes will NOT be
- affected by long distance restrictions (such as long distance
- calling times, and numbers starting with 0 or 1). This option is useful
- for specifying local numbers in other area codes. For example, in the
- 714 area code, 529 prefix, the following non-714 prefixes are local (*):
-
- 1310690 1310691 1310694 1310697 1310902 1310905 1310943 1310947
- 1818330 1818333 1818336 1818369 1818810 1818854 1818855 1818912
- 1818913 1818937 1818961 1818964 1818965 1818968 1909396 1909468
- 1909594 1909595 1909598 1909860 1909861 1909869
-
- * Multiple entries per line to conserve documentation space
-
- If the "Long Distance if not an Allowed Prefix" toggle option is set to
- "Yes", then any number that is NOT included in this list will be
- considered long distance.
-
- 7. Use the "Long Distance Prefix List" sub-menu to set which SAME-AREA
- prefixes will be considered long distance. If the "Long Distance if not
- an Allowed Prefix" toggle option is set to "Yes", then this list is not
- used. For example, in the 714 area code, 529 prefix, the following
- 714 prefixes are long distance (*):
-
- 241 258 259 265 285 418 432 433 434 435 436 437 438 479 480
- 505 513 531 540 541 542 543 544 545 546 547 549 550 554 556
- 557 558 560 564 565 566 567 568 569 571 573 641 647 648 662
- 664 665 667 668 669 691 708 730 731 751 754 755 775 832 834
- 835 836 838 839 850 953 954 957 966 967 972 973 977 979
-
- * Multiple entries per line to conserve documentation space
-
- 8. Use the "Long Distance Calling Times" sub-menu to set the times on each day
- when SCB is allowed to place long distance calls. All times are entered
- in 24-hour format and ranges crossing midnight (e.g. 18:00 to 09:00) are
- valid. Numbers included in the "Allowed Prefix List" will not be limited
- to these calling times.
-
- 9. If you are a registered owner of SCB, be sure to enter your registration
- number on the main menu.
-
-10. Hit ESC from the main SCB configuration menu and select "Yes" to save
- the configuration file.
-
-
-Notes:
-=====
-
-All SCB activity is logged to the file SCB.LOG in the SCB directory in
-the format:
-
- Node 7 : Mon Sep 27 16:44:31 1993
- User Name : Digital Man
- Voice Number : 714-529-6328
- Modem Number : 5295313
- Result : Verified
-
-Results Description
-------- -----------
-Hung up User hung up before or during validation process
-Refused User refused validation
-Long Dist User is a long distance call and long distance is disallowed
-Invalid # User entered a number that is in the trashcan file, less than
- minimum length, or begins with a disallowed number (0 or 1)
-No Init Modem could not be initialized
-No Connect Modem could not connect to user's modem (possibly wrong #)
-Verified User was called, modem connected, and password verified
-Bad Pass User was called, modem connected, and incorrect password
-
-
-Customizations:
-==============
-
-The following files can be modified (optionally using Ctrl-A codes for color):
-
-SCB.MSG The opening screen for SCB
-REFUSED.MSG Verification refused
-INSTRUCT.MSG Instructions
-NO_ONE.MSG Long distance numbers starting with 1 not allowed
-NO_ZERO.MSG Long distance numbers starting with 0 not allowed
-LD_TIME.MSG Not within allowed long distance callback time range
-TOOSHORT.MSG Phone number is less than configured minimum number of digits
-PHONECAN.MSG Phone number found in trashcan file
-VERIFIED.MSG Displayed to users after verification
-
-
-Registration:
-============
-
-If you wish to order a registered copy of SCB at the same time as Synchronet,
-use the Synchronet ORDER.TXT file (in the SBBS\DOCS directory).
-
-If registering SCB after already purchasing a copy of Synchronet, call
-Digital Dynamics voice at 714-529-6328, Support BBS at 714-529-9525 (and use
-Domain Shopper), or complete the ORDER.TXT file in the SCB directory and mail
-or fax it to Digital Dynamics.
-
-/* End of SCB.DOC */
diff --git a/xtrn/scb/scb.msg b/xtrn/scb/scb.msg
deleted file mode 100644
index 617338c75d3cab422a30073429c9ce822744c7de..0000000000000000000000000000000000000000
--- a/xtrn/scb/scb.msg
+++ /dev/null
@@ -1,8 +0,0 @@
-ng Synchronet Callback can be used to verify your modem phone number.
-If your modem phone number is verified, your access on the BBS may be
-immediately upgraded or the sysop will be notified of the verification and your
-access may be upgraded later.
-
- Some BBSs may not allow long distance verification calls. If you are
-not a local call from this BBS and it doesn't allow long distance calls,
-you will be notified of this when you start the verification procedure.
diff --git a/xtrn/scb/toolong.msg b/xtrn/scb/toolong.msg
deleted file mode 100644
index 079411abdeee7b5559aa0c98c49ee77f864f5980..0000000000000000000000000000000000000000
--- a/xtrn/scb/toolong.msg
+++ /dev/null
@@ -1,2 +0,0 @@
-Your phone number is too long to be valid.
-
diff --git a/xtrn/scb/tooshort.msg b/xtrn/scb/tooshort.msg
deleted file mode 100644
index e31e216680ed482057ce281bce6cd55d9e3195ed..0000000000000000000000000000000000000000
--- a/xtrn/scb/tooshort.msg
+++ /dev/null
@@ -1 +0,0 @@
-Your phone number is too short to be valid.
diff --git a/xtrn/scb/verified.msg b/xtrn/scb/verified.msg
deleted file mode 100644
index ae5b1c8f293eec75d0eee41bee30520749295c83..0000000000000000000000000000000000000000
--- a/xtrn/scb/verified.msg
+++ /dev/null
@@ -1,5 +0,0 @@
-
-ghYour number has been verified and your access upgraded. Please call back
-to use your upgraded security!
-
-p
\ No newline at end of file
diff --git a/xtrn/scb/whats.new b/xtrn/scb/whats.new
deleted file mode 100644
index 2945099c7fe7c0d220110fea7f2dc96da2239f09..0000000000000000000000000000000000000000
--- a/xtrn/scb/whats.new
+++ /dev/null
@@ -1,21 +0,0 @@
-What's new in SCB v1.20
-=======================
-
- o Supports new communications routines, supporting UART, FOSSIL,
- BIOS (PC BIOS), EBIOS (PS/2 BIOS), and DigiBoard support.
-
-If installing over existing SCB install, just update SCB*.EXE and SCB.DOC.
-
-
-What's new in SCB v1.12
-=======================
-
- o Updated and more comprehensive documentation.
- o New "Long Distance if not an Allowed Prefix" toggle option.
- o If the user's expiration date is already set to the future, it will be
- extended by the number of days in SCBCFG. Previously, expiration dates
- would always be set to the current date plus the number of days set in
- SCBCFG.
-
-If installing over existing SCB install, just update SCB*.EXE and SCB.DOC.
-
diff --git a/xtrn/sdk/xsdk.c b/xtrn/sdk/xsdk.c
deleted file mode 100644
index 1e71bce7fa3ba14ee854027a2057819653c05b90..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdk.c
+++ /dev/null
@@ -1,2722 +0,0 @@
-/* xsdk.c */
-
-/* Synchronet External Program Software Development Kit */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-/***************************** Revision History *****************************\
-
- Initial version for use with Synchronet v1a r6
- 1.0�
- Added bgotoxy() macro
- Added mnehigh and mnelow vars for control of the mnemonic colors
- Added sys_nodes and node_num variables to xtrn_sdk.c
- Added MAX_NODES to xtrn_sdk.h
- Added printfile() function to xtrn_sdk.c
- Added rputs() (Raw put string)
- Added getstr() (Get string)
- Added redrwstr() (Redraw string)
- Added stripattr() (String attributes)
- Added sys_op var and the reading from the xtrn.dat
- Removed user_min and the reading from the xtrn.dat
- Changed read_xtrn_dat() to initdata()
- Added ctrl-break handler to xtrn_sdk
- Changed xtrn.dat format (again), adding system operator,
- guru name, user ml, tl, birthdate and sex.
- Added username() function
- Renamed xtrn_sdk.* to xsdk.* and xtrnvars.c to xsdkvars.c
- and xtrndefs.h to xsdkdefs.h
- Added fexist() function
- 1.0
- Ctrl-p is now switched into ctrl-^ by SBBS
- Fixed relative data_dir bug in username()
- 1.01
- Added flength() function and lowered disk activity
- Lowered MAX_CARDS from 20 to 10 and made the re-shuffling happen
- less often.
- 1.02
- Fixed bug in attr() for monochrome users
- 1.03
- Made warning and timeout times variables (sec_warn and sec_timeout)
- Added SYSOP macro
- Made it so sysop won't get timeout
- Added user's phone number to XTRN.DAT
- Added modem and com port information to XTRN.DAT
- Added ahtoul function
- Changed getstr commands Ctrl-L to Ctrl-R and Ctrl-P to Ctrl-\
- 1.04
- Added intercommunication between the external programs and users
- on the BBS or other external programs written with XSDK.
- Added rprintf() function
- Made many changes to getstr() function
- 2.00
- Added DESQview awareness
- Removed difftime() function calls completely
- Added ungetkey() function
- Added memory address of last modem status register for com routines
- so we can track DCD incase user hangs up.
- Added checkline function that does the checking of DCD.
- Added new bug-free fdelay() routine to replace TC's delay() that
- crashes multi-taskers such as DESQview and Windows
- 2.01
- Added external program name access for user listings.
- Added last node to send message to remembering and defaulting.
- Added MALLOC and FREE macros for memory model non-specific memory
- allocation.
- 2.02
- Added INTRSBBS.DAT support for Synchronet shrinking to run programs
- written with XSDK (new with v1b rev 01).
- Added user's main flags, transfer flags, exemptions, and
- restrictions to XTRN.DAT
- Added support for the NODE_PAGE action (paging for private chat)
- when listing nodes (printnodedat()).
- Added user expiration date support to XTRN.DAT
- 2.03
- Fixed bug with com_base variable being messed up.
- New messaging system supported (for v1b r2 and higher)
- (putnmsg and getnmsg functions).
- 2.10
- Added support for file retrieving node status display.
- NOPEN collision notice only appears after 25 retries.
- 2.11
- Changed getnmsg function to not use IXB files.
- Changed getsmsg function to not re-open for truncate.
- Added user address, location, and zip/postal code suppport.
- Added support for local arrow keys, home, end, ins, and del.
- Remote keys ^] (back one space) and ^BkSpc (del) supported now.
- Added support for high-bit Ctrl-A codes (for cursor positioning)
- Removed file locking check - slowed down initialization sometimes.
- Change user_ml to user_level, removed user_tl, changed user_mf to
- user_flags1, changed user_tf to user_flags2, and added
- user_flags3 and user_flags4.
- cls() now updates lncntr like it should have.
- Added ctrl-break handler so that users can abort printfile()
- If a ctrl-c is received by inkey, the aborted flag is set.
- Removed fdelay from XSDK and replaced with mswait for better
- multitasker performance
- 2.20
- New mswait that support OS2/Windows, DOS Idle, and non-DV modes.
- XTRN.DAT passes mode of mswait configured in node setup.
- 2.21
- Added user's real name/company name (user_realname) to XTRN.DAT
- 2.22
- Added usernumber() function to get user number from a user name.
- 2.23
- DTE rate (com_rate) now a ulong (instead of uint) to allow 115.2K
- 2.24
- New K_AUTODEL mode for getstr() function, to be used in conjunction
- with the K_EDIT mode. Makes overwriting existing strings very
- easy for users.
- Supports intelligent timeslice APIs while waiting for a key with
- getkey() and with getstr() if K_LOWPRIO mode is used.
- Hitting Ctrl-C sets the 'aborted' variable to 1.
- Time zone and daylight savings automatically initialized to 0.
- Modem strings up to 63 chars in XTRN.DAT now supported.
- Fixed 10 character zip code bug in XSDKVARS.C.
- Node directories (node_dir) up to 127 chars now supported.
- nopen() can now open DENYNONE if passed access O_DENYNONE.
- 2.30
- Added support for the following Ctrl-A codes: ;,.<>[]A
- Changed definitions of TAB, SP, etc. to hex
- 2.31
- C restriction disallows users to use Ctrl-P.
- T exemption disables "Time's up" message.
- Added center() function for outputting centered lines of text.
- Added auto-pause to cls() and outchar() functions when clearing
- the screen and lncntr is greater than 1
- Changed bstrlen() to not count control characters (CR,LF,TAB,etc)
- XSDK is now Watcom C++ compatible (although SBJ.C and SBL.C aren't)
- XSDK.H is now *.CPP compatible
- Added support for Ctrl-AQ (reset pause) and Ctrl-AZ (premature EOF)
- 2.32
- Change bstrlen(char *str) to bstrlen(uchar *str)
- Fixed bug in getstr() when word-wrapping a line that contains
- ctrl-a codes and the input string did not begin at column 1.
- Added user_dce variable (initialized by initdata from XTRN.DAT)
- Fixed printnodedat() to not show Waiting for call (M)
- Fixed typo in C restriction Ctrl-P message.
- Moved call of checkline() in getkey() to immediately abort when
- user hangs-up, even when keys are in the input buffer.
- Added setmode() call to initdata() to set stderr to binary mode
- Changed putchar() to write() in outchar() to elminate LF to CRLF
- expansion
- 2.33
- Improved cls() routine for auto-pause feature.
- Added get_term() automatic RIP and WIP terminal detection function.
- 2.34
- Added exec_dir, text_dir, and temp_dir variables to XTRN.DAT
- format and initdata() function.
- Added _fullpath() calls to initdata() to fix dir paths.
- Added sys_id (QWK ID) to XTRN.DAT format and initdat() func.
- Added node_misc to XTRN.DAT format and initdata() function.
- If NM_LOWPRIO (low priority string input) is toggled on in
- node_misc, then time-slices are always given up during input.
- XSDK is now Symantec C++ compatible
- 2.40
- node_misc was being read as a decimal number (it's stored in
- the XTRN.DAT as hex), thus causing time-slice APIs to not
- function correctly.
- 2.41
- Ctrl-T is now intercepted by inkey() and displays the time the
- program was launched, the current time, time used, and time
- left (similar to SBBS).
- Users are now warned of their last 5 minutes available (like SBBS).
- 2.42
- Added Microsoft/Borland 32-bit compiler compatibility
- Added socket (Telnet) compatibility
- Changed Ctrl-Minus (Insert key) to Ctrl-V
- Changed Ctrl-V (Center text key) to Ctrl-L
- Added support for telnet nodes (connection=0xffff)
- 3.00
- Fixed problem with clear screen (form feed) in node messages.
- checkline() now exits when the remote user disconnects on 32-bit
- programs. Use atexit() to add cleanup code.
- 3.01
- Eliminated warnings in ctrl_a() when compiled with VC++ 6.0.
- Added Linux/GCC support (xsdkwrap.c, xsdkwrap.h, and xsdkinet.h)
- 3.10
- Added COMPILER_DESC and PLATFORM_DESC macros to xsdkwrap.h
- Added support for no local console (XSDK_MODE_NOCONSOLE)
- - This is now the default mode when building 32-bit programs
- Eliminated use of ungetch() in favor of ungetkey() - more secure
- 3.11
- Added support for stdio (non-socket) communications in 32-bit builds.
- 3.20
-
-\****************************************************************************/
-
-#include "xsdk.h"
-
-#ifdef _WINSOCKAPI_
-WSADATA WSAData; // WinSock data
-#endif
-
-char *xsdk_ver="3.20";
-ulong xsdk_mode=XSDK_MODE_NOCONSOLE;
-
-/****************************************************************************/
-/* This allows users to abort the listing of text by using Ctrl-C */
-/****************************************************************************/
-int cbreakh(void) /* ctrl-break handler */
-{
- aborted=1;
- return(1); /* 1 to continue, 0 to abort */
-}
-
-/****************************************************************************/
-/* Performs printf() using bbs bputs function */
-/****************************************************************************/
-int bprintf(char *fmt, ...)
-{
- va_list argptr;
- char sbuf[1024];
- int chcount;
-
- va_start(argptr,fmt);
- chcount=vsprintf(sbuf,fmt,argptr);
- va_end(argptr);
- bputs(sbuf);
- return(chcount);
-}
-
-/****************************************************************************/
-/* Performs printf() using bbs rputs function */
-/****************************************************************************/
-int rprintf(char *fmt, ...)
-{
- va_list argptr;
- char sbuf[1024];
- int chcount;
-
- va_start(argptr,fmt);
- chcount=vsprintf(sbuf,fmt,argptr);
- va_end(argptr);
- rputs(sbuf);
- return(chcount);
-}
-
-/****************************************************************************/
-/* Outputs a NULL terminated string locally and remotely (if applicable) */
-/****************************************************************************/
-void bputs(char *str)
-{
- ulong l=0;
-
- while(str[l] && !aborted) {
- if(str[l]==1) { /* ctrl-a */
- ctrl_a(str[++l]); /* skip the ctrl-a */
- if(str[l]=='Z') /* Ctrl-AZ marks premature end of file */
- break;
- l++; } /* skip the attribute code */
- else
- outchar(str[l++]); }
-}
-
-/****************************************************************************/
-/* Outputs a NULL terminated string locally and remotely (if applicable) */
-/* Does not process ctrl-a codes (raw output) */
-/* Max length of str is 64 kbytes */
-/****************************************************************************/
-void rputs(char *str)
-{
- ulong l=0;
-
- while(str[l])
- outchar(str[l++]);
-}
-
-/****************************************************************************/
-/* Returns the number of characters in 'str' not counting ctrl-ax codes */
-/* or the null terminator */
-/****************************************************************************/
-int bstrlen(uchar *str)
-{
- int i=0;
-
- while(*str) {
- if(*str<SP) { /* ctrl char */
- if(*str==1) /* ctrl-A */
- str++;
- else if(*str!=CR && *str!=LF && *str!=FF)
- i++; }
- else
- i++;
- if(!(*str))
- break;
- str++; }
- return(i);
-}
-
-/****************************************************************************/
-/* Outputs the string 'str' centered for an 80 column display */
-/* Automatically appends "\r\n" to output */
-/****************************************************************************/
-void center(char *str)
-{
- int i,j;
-
- j=bstrlen(str);
- for(i=0;i<(80-j)/2;i++)
- outchar(SP);
- bputs(str);
-}
-
-#ifndef __16BIT__
-
-char outbuf[5000];
-ulong outbufbot=0;
-ulong outbuftop=0;
-sem_t output_sem;
-
-void output_thread(void* arg)
-{
- int i,len;
- char str[256];
-
- sem_init(&output_sem,0,0);
-
- while(client_socket!=INVALID_SOCKET) {
- if(outbufbot==outbuftop) {
- sem_init(&output_sem,0,0);
- sem_wait(&output_sem);
- continue;
- }
-
- if(outbuftop>outbufbot)
- len=outbuftop-outbufbot;
- else
- len=sizeof(outbuf)-outbufbot;
- i=send(client_socket,outbuf+outbufbot,len,0);
- if(i!=len) {
- sprintf(str,"!XSDK Error %d (%d) sending on socket %d\n"
- ,i,ERROR_VALUE,client_socket);
-#ifdef _WIN32
- OutputDebugString(str);
-#else
- fprintf(stderr,"%s",str);
-#endif
- }
- outbufbot+=len;
- if(outbufbot>=sizeof(outbuf))
- outbufbot=0;
- }
-}
-#endif
-
-/****************************************************************************/
-/* Outputs one character to the screen. Handles, pause, saving and */
-/* restoring lines, etc. */
-/****************************************************************************/
-void outchar(char ch)
-{
-
-#ifndef __16BIT__
- if(client_socket!=INVALID_SOCKET) {
- ulong top=outbuftop+1;
-
- if(top==sizeof(outbuf))
- top=0;
- if(top!=outbufbot) {
- outbuf[outbuftop++]=ch;
- if(outbuftop==sizeof(outbuf))
- outbuftop=0;
- sem_post(&output_sem);
- }
- }
-#endif
-
- if(con_fp!=NULL)
- write(fileno(con_fp),&ch,1);
-
- if(ch==LF) {
- lncntr++;
- lbuflen=0;
- tos=0;
- }
- else if(ch==FF) {
- if(lncntr>1) {
- lncntr=0;
- CRLF;
- bpause();
- }
- lncntr=0;
- lbuflen=0;
- tos=1;
- }
- else if(ch==BS) {
- if(lbuflen)
- lbuflen--;
- }
- else {
- if(!lbuflen)
- latr=curatr;
- if(lbuflen>=LINE_BUFSIZE) lbuflen=0;
- lbuf[lbuflen++]=ch;
- }
- if(lncntr==user_rows-1) {
- lncntr=0;
- bpause();
- }
-}
-
-/****************************************************************************/
-/* Prints PAUSE message and waits for a key stoke */
-/****************************************************************************/
-void bpause(void)
-{
- char ch;
- uchar tempattrs=curatr,*msg="\1_\1r\1h[Hit a key] ";
- int i,j;
-
- lncntr=0;
- bputs(msg);
- j=bstrlen(msg);
- ch=getkey(K_UPPER);
- for(i=0;i<j;i++)
- bputs("\b \b");
- attr(tempattrs);
- if(ch=='N' || ch=='Q')
- aborted=1;
-}
-
-/****************************************************************************/
-/* Prompts user for Y or N (yes or no) and CR is interpreted as a Y */
-/* Returns 1 for Y or 0 for N */
-/* Called from quite a few places */
-/****************************************************************************/
-char yesno(char *str)
-{
- char ch;
-
- bprintf("\1_\1b\1h%s (Y/n) ? \1w",str);
- while(1) {
- ch=getkey(K_UPPER);
- if(ch=='Y' || ch==CR) {
- bputs("Yes\r\n");
- return(1); }
- if(ch=='N' || aborted) {
- bputs("No\r\n");
- return(0);
- }
- }
-}
-
-/****************************************************************************/
-/* Prompts user for N or Y (no or yes) and CR is interpreted as a N */
-/* Returns 1 for N or 0 for Y */
-/* Called from quite a few places */
-/****************************************************************************/
-char noyes(char *str)
-{
- char ch;
-
- bprintf("\1_\1b\1h%s (y/N) ? \1w",str);
- while(1) {
- ch=getkey(K_UPPER);
- if(ch=='N' || ch==CR || aborted) {
- bputs("No\r\n");
- return(1); }
- if(ch=='Y') {
- bputs("Yes\r\n");
- return(0);
- }
- }
-}
-
-/****************************************************************************/
-/* Outputs a string highlighting characters preceeded by a tilde with the */
-/* color specified in mnehigh and the rest of the line is in color mnelow. */
-/* If the user doesn't have ANSI, it puts the character following the tilde */
-/* in parenthesis. */
-/****************************************************************************/
-void mnemonics(char *str)
-{
- long l;
-
- attr(mnelow);
- l=0L;
- while(str[l]) {
- if(str[l]=='~' && str[l+1]) {
- if(!(user_misc&ANSI))
- outchar('(');
- l++;
- attr(mnehigh);
- outchar(str[l]);
- l++;
- if(!(user_misc&ANSI))
- outchar(')');
- attr(mnelow);
- }
- else
- outchar(str[l++]);
- }
- attr(LIGHTGRAY);
-}
-
-#ifdef _WIN32
-int stdin_kbhit(void)
-{
- int ch;
-
- ch=getc(stdin);
- if(ch==EOF)
- return(0);
- ungetc(ch,stdin);
- return(ch);
-}
-int stdin_getch(void)
-{
- return(getc(stdin));
-}
-#else
- #define stdin_kbhit kbhit
- #define stdin_getch getch
-#endif
-
-int keyhit()
-{
-#ifndef __16BIT__
- ulong cnt=0;
- if(client_socket!=INVALID_SOCKET) {
- if(ioctlsocket(client_socket,FIONREAD,&cnt))
- return(0);
- return(cnt);
- }
- return(0);
-#else
- return(stdin_kbhit());
-#endif
-}
-
-/****************************************************************************/
-/* If a key has been pressed, the ASCII code is returned. If not, 0 is */
-/* returned. Ctrl-P and Ctrl-U are intercepted here. */
-/****************************************************************************/
-char inkey(long mode)
-{
- static in_ctrl_p;
- uchar ch=0,hour,min,sec;
- long tleft;
- int i=0;
- time_t now;
-
-#ifndef __16BIT__
- char str[256];
- ulong cnt=0;
-
- if(client_socket!=INVALID_SOCKET) {
- i=ioctlsocket(client_socket,FIONREAD,&cnt);
- if(i) {
- sprintf(str,"!XSDK Error %d (%d) checking readcnt on socket %d\n"
- ,i,ERROR_VALUE,client_socket);
-#ifdef _WIN32
- OutputDebugString(str);
-#else
- fprintf(stderr,"%s",str);
-#endif
- }
- }
-
- if(i==0 && cnt)
- recv(client_socket,&ch,1,0);
- else
-#endif
-
- if(keybufbot!=keybuftop) {
- ch=keybuf[keybufbot++];
- if(keybufbot==KEY_BUFSIZE)
- keybufbot=0; }
- else if(!(xsdk_mode&XSDK_MODE_NOCONSOLE) && stdin_kbhit()) {
- i=stdin_getch();
-#ifdef __unix__
- if(i==LF) i=CR; /* Enter key returns Ctrl-J on Unix! (ohmygod) */
-#endif
- if(i==0 || i==0xE0) { /* Local Alt or Function key hit */
- i=stdin_getch();
- switch(i) {
- case 0x47: /* Home - Same as Ctrl-B */
- return(2); /* ctrl-b beginning of line */
- case 0x4b: /* Left Arrow - same as ctrl-] */
- return(0x1d);
- case 0x4d: /* Right Arrow - same as ctrl-f */
- return(6);
- case 0x48: /* Up arrow - same as ctrl-^ */
- return(0x1e);
- case 0x50: /* Down arrow - same as CR */
- return(CR);
- case 0x4f: /* End - same as Ctrl-E */
- return(5); /* ctrl-e - end of line */
- case 0x52: /* Insert */
- return(0x1f); /* ctrl-minus - insert mode */
- case 0x53: /* Delete */
- return(0x7f); /* ctrl-bkspc - del cur char */
- }
- return(0); }
- ch=i;
- }
-
- if(ch==0x10 || ch==0x1e) { /* Ctrl-P or Ctrl-^ */
- if(in_ctrl_p || !ctrl_dir[0]) /* keep from being recursive */
- return(0);
- in_ctrl_p=1;
- SAVELINE;
- CRLF;
- nodemsg();
- CRLF;
- RESTORELINE;
- lncntr=0;
- in_ctrl_p=0;
- return(0); }
-
- if(ch==20) { /* Ctrl-T Time left online */
- SAVELINE;
- attr(LIGHTGRAY);
- now=time(NULL);
- checktimeleft();
- CRLF;
- bprintf("\r\nStart : %.24s",ctime(&starttime));
- bprintf("\r\nNow : %.24s",ctime(&now));
- i=now-starttime;
- hour=(i/60)/60;
- min=(i/60)-(hour*60);
- sec=i-((min+(hour*60))*60);
- bprintf("\r\nTime Used : %02u:%02u:%02u",hour,min,sec);
- tleft=timeleft-(now-starttime);
- hour=(tleft/60)/60;
- min=(tleft/60)-(hour*60);
- sec=tleft-((min+(hour*60))*60);
- bprintf("\r\nTime Left : %02u:%02u:%02u\r\n\r\n",hour,min,sec);
- RESTORELINE;
- lncntr=0;
- return(0); }
-
- if(ch==21) { /* Ctrl-U Users online */
- if(!ctrl_dir[0])
- return(0);
- SAVELINE;
- CRLF;
- whos_online(1);
- CRLF;
- RESTORELINE;
- lncntr=0;
- return(0); }
-
-#ifndef __16BIT__
- if(ch==LF)
- ch=0; /* Ignore LF of Telnet CR/LF sequence */
-#endif
-
- if(ch==3)
- aborted=1;
- else if(aborted)
- ch=3;
-
- if(!ch && (!(mode&K_GETSTR) || mode&K_LOWPRIO|| node_misc&NM_LOWPRIO))
- mswait(1);
- return(ch);
-}
-
-/****************************************************************************/
-/* Waits for remote or local user to hit a key. Inactivity timer is checked */
-/* and hangs up if inactive for 4 minutes. Returns key hit, or uppercase of */
-/* key hit if mode&K_UPPER or key out of KEY BUFFER. Does not print key. */
-/****************************************************************************/
-char getkey(long mode)
-{
- char ch,warn=0;
- long tleft;
- time_t timeout,now;
-
- aborted=lncntr=0;
- timeout=time(NULL);
- do {
- checkline();
- ch=inkey(mode);
- now=time(NULL);
- if(ch) {
- if(mode&K_NUMBER && isprint(ch) && !isdigit(ch))
- continue;
- if(mode&K_ALPHA && isprint(ch) && !isalpha(ch))
- continue;
- if(ch==LF) continue;
- if(mode&K_UPPER)
- return(toupper(ch));
- return(ch);
- }
- checktimeleft();
-
- tleft=timeleft-(now-starttime);
- if((tleft/60)<(5-timeleft_warn)) { /* Running out of time warning */
- timeleft_warn=5-(tleft/60);
- SAVELINE;
- bprintf("\1n\1h\r\n\7\r\nYou only have \1r\1i%u\1n\1h minute%s "
- "left.\r\n\r\n"
- ,((ushort)tleft/60)+1,(tleft/60) ? "s" : "");
- RESTORELINE;
- }
-
- if(now-timeout>=(time_t)sec_warn && !warn) /* Inactivity warning */
- for(warn=0;warn<5;warn++)
- outchar(7);
- } while(now-timeout<(time_t)sec_timeout);
-
- bputs("\r\nInactive too long.\r\n");
- exit(0);
- return(0); /* never gets here, but makes compiler happy */
-}
-
-/****************************************************************************/
-/* If remote user, checks DCD to see if user has hung up or not. */
-/****************************************************************************/
-void checkline(void)
-{
-#ifdef __16BIT__
- if(com_port && !((*msr)&DCD)) exit(0);
-#else
- char str[256];
- char ch;
- int i;
- fd_set socket_set;
- struct timeval timeout;
-
- if(client_socket!=INVALID_SOCKET) {
- FD_ZERO(&socket_set);
- FD_SET(client_socket,&socket_set);
- timeout.tv_sec=0;
- timeout.tv_usec=100;
-
- if((i=select(client_socket+1,&socket_set,NULL,NULL,&timeout))>0) {
- if((i=recv(client_socket,&ch,1,MSG_PEEK))!=1) {
- sprintf(str,"!XSDK Error %d (%d) checking state of socket %d\n"
- ,i,ERROR_VALUE,client_socket);
- #ifdef _WIN32
- OutputDebugString(str);
- #else
- fprintf(stderr,"%s",str);
- fflush(stderr);
- #endif
- exit(0);
- }
- }
- }
-#endif
-}
-
-/****************************************************************************/
-/* Waits for remote or local user to hit a key that is contained inside str.*/
-/* 'str' should contain uppercase characters only. When a valid key is hit, */
-/* it is echoed (upper case) and is the return value. */
-/* If max is non-zero and a number is hit that is not in str, it will be */
-/* returned with the high bit set. If the return of this function has the */
-/* high bit set (&0x8000), just flip the bit (^0x8000) to get the number. */
-/****************************************************************************/
-int getkeys(char *instr,int max)
-{
- char str[256];
- uchar ch,n=0;
- int i=0;
-
- sprintf(str,"%.*s",sizeof(str)-1,instr);
- strupr(str);
- while(!aborted) {
- ch=getkey(K_UPPER);
- if(max && ch>0x7f) /* extended ascii chars are digits to isdigit() */
- continue;
- if(ch && !n && (strchr(str,ch))) { /* return character if in string */
- outchar(ch);
- attr(LIGHTGRAY);
- CRLF;
- return(ch);
- }
- if(ch==CR && max) { /* return 0 if no number */
- attr(LIGHTGRAY);
- CRLF;
- if(n)
- return(i|0x8000); /* return number plus high bit */
- return(0);
- }
- if(ch==BS && n) {
- bputs("\b \b");
- i/=10;
- n--;
- }
- else if(max && isdigit(ch) && (i*10)+(ch&0xf)<=max && (ch!='0' || n)) {
- i*=10;
- n++;
- i+=ch&0xf;
- outchar(ch);
- if(i*10>max) {
- attr(LIGHTGRAY);
- CRLF;
- return(i|0x8000);
- }
- }
- }
- return(0);
-}
-
-/****************************************************************************/
-/* Hot keyed number input routine. */
-/****************************************************************************/
-int getnum(int max)
-{
- uchar ch,n=0;
- int i=0;
-
- while(1) {
- ch=getkey(K_UPPER);
- if(ch>0x7f)
- continue;
- if(ch=='Q') {
- outchar('Q');
- CRLF;
- break;
- }
- else if(ch==3) { /* ctrl-c */
- CRLF;
- break;
- }
- else if(ch==CR) {
- CRLF;
- return(i);
- }
- else if(ch==BS && n) {
- bputs("\b \b");
- i/=10;
- n--;
- }
- else if(isdigit(ch) && (i*10)+(ch&0xf)<=max && (ch!='0' || n)) {
- i*=10;
- n++;
- i+=ch&0xf;
- outchar(ch);
- if(i*10>max) {
- CRLF;
- return(i);
- }
- }
- }
- return(-1);
-}
-
-/****************************************************************************/
-/* Waits for remote or local user to input a CR terminated string. 'length' */
-/* is the maximum number of characters that getstr will allow the user to */
-/* input into the string. 'mode' specifies upper case characters are echoed */
-/* or wordwrap or if in message input (^A sequences allowed). ^W backspaces */
-/* a word, ^X backspaces a line, ^Gs, BSs, TABs are processed, LFs ignored. */
-/* ^N non-destructive BS, ^V center line. Valid keys are echoed. */
-/****************************************************************************/
-int getstr(char *strout, size_t maxlen, long mode)
-{
- size_t i,l,x,z; /* i=current position, l=length, j=printed chars */
- /* x&z=misc */
- uchar ch,str1[256],str2[256],ins=0,atr;
-
- if(mode&K_LINE && user_misc&ANSI) {
- attr(LIGHTGRAY|HIGH|(BLUE<<4)); /* white on blue */
- for(i=0;i<maxlen;i++)
- outchar(SP);
- bprintf("\x1b[%dD",maxlen);
- }
- i=l=0; /* i=total number of chars, j=number of printable chars */
- if(wordwrap[0]) {
- strcpy(str1,wordwrap);
- wordwrap[0]=0;
- }
- else str1[0]=0;
- if(mode&K_EDIT)
- strcat(str1,strout);
- if(strlen(str1)>maxlen)
- str1[maxlen]=0;
- atr=curatr;
- if(mode&K_AUTODEL && str1[0])
- attr(BLUE|(LIGHTGRAY<<4));
- rputs(str1);
- if(mode&K_EDIT && !(mode&(K_LINE|K_AUTODEL)) && user_misc&ANSI)
- bputs("\x1b[K"); /* destroy to eol */
- i=l=strlen(str1);
-
- if(mode&K_AUTODEL && str1[0]) {
- ch=getkey(mode);
- attr(atr);
- if(isprint(ch) || ch==0x7f) {
- for(i=0;i<l;i++)
- bputs("\b \b");
- i=l=0;
- }
- else {
- for(i=0;i<l;i++)
- outchar(BS);
- rputs(str1);
- i=l;
- }
- if(ch!=SP && ch!=TAB)
- ungetkey(ch);
- }
-
- while((ch=getkey(mode|K_GETSTR))!=CR && !aborted) {
- switch(ch) {
- case 1: /* Ctrl-A for ANSI */
- if(!(mode&K_MSG) || i>maxlen-3)
- break;
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- rprintf("%.*s",l-i,str1+i);
- rprintf("\x1b[%dD",l-i);
- if(i==maxlen-1)
- ins=0;
- }
- outchar(str1[i++]=1);
- break;
- case 2: /* Ctrl-B Beginning of Line */
- if(user_misc&ANSI && i) {
- bprintf("\x1b[%dD",i);
- i=0;
- }
- break;
- case 4: /* Ctrl-D Delete word right */
- if(i<l) {
- x=i;
- while(x<l && str1[x]!=SP) {
- outchar(SP);
- x++;
- }
- while(x<l && str1[x]==SP) {
- outchar(SP);
- x++;
- }
- bprintf("\x1b[%dD",x-i); /* move cursor back */
- z=i;
- while(z<l-(x-i)) { /* move chars in string */
- outchar(str1[z]=str1[z+(x-i)]);
- z++;
- }
- while(z<l) { /* write over extra chars */
- outchar(SP);
- z++;
- }
- bprintf("\x1b[%dD",z-i);
- l-=x-i; /* l=new length */
- }
- break;
- case 5: /* Ctrl-E End of line */
- if(user_misc&ANSI && i<l) {
- bprintf("\x1b[%dC",l-i); /* move cursor right one */
- i=l;
- }
- break;
- case 6: /* Ctrl-F move cursor forewards */
- if(i<l && (user_misc&ANSI)) {
- bputs("\x1b[C"); /* move cursor right one */
- i++;
- }
- break;
- case 7:
- if(!(mode&K_MSG))
- break;
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- if(i==maxlen-1)
- ins=0;
- }
- if(i<maxlen) {
- str1[i++]=7;
- outchar(7);
- }
- break;
- case 14: /* Ctrl-N Next word */
- if(i<l && (user_misc&ANSI)) {
- x=i;
- while(str1[i]!=SP && i<l)
- i++;
- while(str1[i]==SP && i<l)
- i++;
- bprintf("\x1b[%dC",i-x);
- }
- break;
- case 0x1c: /* Ctrl-\ Previous word */
- if(i && (user_misc&ANSI)) {
- x=i;
- while(str1[i-1]==SP && i)
- i--;
- while(str1[i-1]!=SP && i)
- i--;
- bprintf("\x1b[%dD",x-i);
- }
- break;
- case 18: /* Ctrl-R Redraw Line */
- redrwstr(str1,i,l,0);
- break;
- case TAB:
- if(!(i%TABSIZE)) {
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- if(i==maxlen-1)
- ins=0;
- }
- str1[i++]=SP;
- outchar(SP);
- }
- while(i<maxlen && i%TABSIZE) {
- if(ins) {
- if(l<maxlen)
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- if(i==maxlen-1)
- ins=0;
- }
- str1[i++]=SP;
- outchar(SP);
- }
- if(ins)
- redrwstr(str1,i,l,0);
- break;
- case BS:
- if(!i)
- break;
- i--;
- l--;
- if(i!=l) { /* Deleting char in middle of line */
- outchar(BS);
- z=i;
- while(z<l) { /* move the characters in the line */
- outchar(str1[z]=str1[z+1]);
- z++;
- }
- outchar(SP); /* write over the last char */
- bprintf("\x1b[%dD",(l-i)+1);
- }
- else
- bputs("\b \b");
- break;
- case 12: /* Ctrl-L Center line (used to be Ctrl-V) */
- str1[l]=0;
- l=bstrlen(str1);
- for(x=0;x<(maxlen-l)/2;x++)
- str2[x]=SP;
- str2[x]=0;
- strcat(str2,str1);
- strcpy(strout,str2);
- l=strlen(strout);
- if(mode&K_MSG)
- redrwstr(strout,i,l,K_MSG);
- else {
- while(i--)
- bputs("\b");
- bputs(strout);
- if(mode&K_LINE)
- attr(LIGHTGRAY);
- }
- CRLF;
- return(l);
- case 23: /* Ctrl-W Delete word left */
- if(i<l) {
- x=i; /* x=original offset */
- while(i && str1[i-1]==SP) {
- outchar(BS);
- i--;
- }
- while(i && str1[i-1]!=SP) {
- outchar(BS);
- i--;
- }
- z=i; /* i=z=new offset */
- while(z<l-(x-i)) { /* move chars in string */
- outchar(str1[z]=str1[z+(x-i)]);
- z++;
- }
- while(z<l) { /* write over extra chars */
- outchar(SP);
- z++;
- }
- bprintf("\x1b[%dD",z-i); /* back to new x corridnant */
- l-=x-i; /* l=new length */
- }
- else {
- while(i && str1[i-1]==SP) {
- i--;
- l--;
- bputs("\b \b");
- }
- while(i && str1[i-1]!=SP) {
- i--;
- l--;
- bputs("\b \b");
- }
- }
- break;
- case 24: /* Ctrl-X Delete entire line */
- while(i<l) {
- outchar(SP);
- i++;
- }
- while(l) {
- l--;
- bputs("\b \b");
- }
- i=0;
- break;
- case 25: /* Ctrl-Y Delete to end of line */
- if(user_misc&ANSI) {
- bputs("\x1b[s\x1b[K\x1b[u");
- l=i;
- }
- break;
- case 22: /* Ctrl-V Toggles Insert/Overwrite */
- if(!(user_misc&ANSI))
- break;
- if(ins) {
- ins=0;
- redrwstr(str1,i,l,0);
- }
- else if(i<l) {
- ins=1;
- bprintf("\x1b[s\x1b[%dC",80-i); /* save pos */
- z=curatr; /* and got to EOL */
- attr(z|BLINK|HIGH);
- outchar('�');
- attr(z);
- bputs("\x1b[u"); /* restore pos */
- }
- break;
- case 0x1d: /* Ctrl-] Reverse Cursor Movement */
- if(i && (user_misc&ANSI)) {
- bputs("\x1b[D"); /* move cursor left one */
- i--;
- }
- break;
- case 0x7f: /* Ctrl-BkSpc (DEL) Delete current char */
- if(i==l) { /* Backspace if end of line */
- if(i) {
- i--;
- l--;
- bputs("\b \b");
- }
- break;
- }
- l--;
- z=i;
- while(z<l) { /* move the characters in the line */
- outchar(str1[z]=str1[z+1]);
- z++;
- }
- outchar(SP); /* write over the last char */
- bprintf("\x1b[%dD",(l-i)+1);
- break;
- case ESC:
- if(!(user_misc&ANSI))
- break;
- if((ch=getkey(0x8000))!='[') {
- ungetkey(ch);
- break;
- }
- if((ch=getkey(0x8000))=='C') {
- if(i<l) {
- bputs("\x1b[C"); /* move cursor right one */
- i++;
- }
- }
- else if(ch=='D') {
- if(i) {
- bputs("\x1b[D"); /* move cursor left one */
- i--;
- }
- }
- else {
- while(isdigit(ch) || ch==';' || isalpha(ch)) {
- if(isalpha(ch)) {
- ch=getkey(0);
- break;
- }
- ch=getkey(0);
- }
- ungetkey(ch);
- }
- break;
- default:
- if(mode&K_WRAP && i==maxlen && ch>=SP && !ins) {
- str1[i]=0;
- if(ch==SP) { /* don't wrap a space as last char */
- strcpy(strout,str1);
- if(stripattr(strout))
- redrwstr(strout,i,l,K_MSG);
- CRLF;
- return(i);
- }
- x=i-1;
- z=1;
- wordwrap[0]=ch;
- while(str1[x]!=SP && x)
- wordwrap[z++]=str1[x--];
- if(x<(maxlen/2)) {
- wordwrap[1]=0; /* only wrap one character */
- strcpy(strout,str1);
- if(stripattr(strout))
- redrwstr(strout,i,l,K_MSG);
- CRLF;
- return(i);
- }
- wordwrap[z]=0;
- while(z--) {
- i--;
- bputs("\b \b");
- }
- strrev(wordwrap);
- str1[x]=0;
- strcpy(strout,str1);
- if(stripattr(strout))
- redrwstr(strout,i,x,mode);
- CRLF;
- return(x);
- }
- if(i<maxlen && ch>=SP) {
- if(mode&K_UPRLWR)
- if(!i || (i && (str1[i-1]==SP || str1[i-1]=='-'
- || str1[i-1]=='.' || str1[i-1]=='_')))
- ch=toupper(ch);
- else
- ch=tolower(ch);
- if(ins) {
- if(l<maxlen) /* l<maxlen */
- l++;
- for(x=l;x>i;x--)
- str1[x]=str1[x-1];
- rprintf("%.*s",l-i,str1+i);
- rprintf("\x1b[%dD",l-i);
- if(i==maxlen-1) {
- bputs(" \b\b");
- ins=0;
- }
- }
- str1[i++]=ch;
- outchar(ch);
- }
- } /* switch */
- if(i>l)
- l=i;
- if(mode&K_CHAT && !l)
- return(0);
- }
- if(i>l)
- l=i;
- str1[l]=0;
- if(!aborted) {
- strcpy(strout,str1);
- if(stripattr(strout) || ins)
- redrwstr(strout,i,l,K_MSG);
- }
- else
- l=0;
- if(mode&K_LINE) attr(LIGHTGRAY);
- if(!(mode&K_NOCRLF)) {
- outchar(CR);
- if(!(mode&K_MSG && aborted))
- outchar(LF);
- }
- return(l);
-}
-
-/****************************************************************************/
-/* Redraws str using i as current cursor position and l as length */
-/****************************************************************************/
-void redrwstr(char *strin, int i, int l, long mode)
-{
- char str[256],c;
-
- sprintf(str,"%-*.*s",l,l,strin);
- c=i;
- while(c--)
- outchar(BS);
- if(mode&K_MSG)
- bputs(str);
- else
- rputs(str);
- if(user_misc&ANSI) {
- bputs("\x1b[K");
- if(i<l)
- bprintf("\x1b[%dD",l-i);
- }
- else {
- while(c<79) { /* clear to end of line */
- outchar(SP);
- c++;
- }
- while(c>l) { /* back space to end of string */
- outchar(BS);
- c--;
- }
- }
-}
-
-/****************************************************************************/
-/* Strips invalid Ctrl-Ax sequences from str */
-/* Returns number of ^A's in line */
-/****************************************************************************/
-char stripattr(char *strin)
-{
- uchar str[81];
- uchar a,c,d,e;
-
- e=strlen(strin);
- for(a=c=d=0;c<e;c++) {
- if(strin[c]==1) {
- a++;
- switch(toupper(strin[c+1])) {
- case '-': /* clear */
- case '_': /* clear */
- case 'B': /* blue fg */
- case 'C': /* cyan fg */
- case 'G': /* green fg */
- case 'H': /* high fg */
- case 'I': /* blink */
- case 'K': /* black fg */
- case 'L': /* cls */
- case 'M': /* magenta fg */
- case 'N': /* normal */
- case 'P': /* pause */
- case 'Q': /* pause reset */
- case 'R': /* red fg */
- case 'W': /* white fg */
- case 'Y': /* yellow fg */
- case '0': /* black bg */
- case '1': /* red bg */
- case '2': /* green bg */
- case '3': /* brown bg */
- case '4': /* blue bg */
- case '5': /* magenta bg */
- case '6': /* cyan bg */
- case '7': /* white bg */
- break;
- default:
- c++;
- continue;
- }
- }
- str[d++]=strin[c];
- }
- str[d]=0;
- strcpy(strin,str);
- return(a);
-}
-
-/***************************************************************************/
-/* Changes local and remote text attributes accounting for monochrome */
-/***************************************************************************/
-void attr(int atr)
-{
-
- if(!(user_misc&ANSI) || aborted)
- return;
- if(!(user_misc&COLOR)) { /* eliminate colors if user doesn't have them */
- if(atr&LIGHTGRAY) /* if any bits set, set all */
- atr|=LIGHTGRAY;
- if(atr&(LIGHTGRAY<<4))
- atr|=(LIGHTGRAY<<4);
- if(atr&LIGHTGRAY && atr&(LIGHTGRAY<<4))
- atr&=~LIGHTGRAY; } /* if background is solid, forground is black */
- if(curatr==atr) /* attribute hasn't changed. don't send codes */
- return;
-
- if((!(atr&HIGH) && curatr&HIGH) || (!(atr&BLINK) && curatr&BLINK)
- || atr==LIGHTGRAY) {
- bprintf("\x1b[0m");
- curatr=LIGHTGRAY; }
-
- if(atr==LIGHTGRAY) { /* no attributes */
- curatr=atr;
- return; }
-
- if(atr&BLINK) { /* special attributes */
- if(!(curatr&BLINK))
- bprintf("\x1b[5m"); }
- if(atr&HIGH) {
- if(!(curatr&HIGH))
- bprintf("\x1b[1m"); }
-
- if((atr&0x7)==BLACK) { /* foreground colors */
- if((curatr&0x7)!=BLACK)
- bprintf("\x1b[30m"); }
- else if((atr&0x7)==RED) {
- if((curatr&0x7)!=RED)
- bprintf("\x1b[31m"); }
- else if((atr&0x7)==GREEN) {
- if((curatr&0x7)!=GREEN)
- bprintf("\x1b[32m"); }
- else if((atr&0x7)==BROWN) {
- if((curatr&0x7)!=BROWN)
- bprintf("\x1b[33m"); }
- else if((atr&0x7)==BLUE) {
- if((curatr&0x7)!=BLUE)
- bprintf("\x1b[34m"); }
- else if((atr&0x7)==MAGENTA) {
- if((curatr&0x7)!=MAGENTA)
- bprintf("\x1b[35m"); }
- else if((atr&0x7)==CYAN) {
- if((curatr&0x7)!=CYAN)
- bprintf("\x1b[36m"); }
- else if((atr&0x7)==LIGHTGRAY) {
- if((curatr&0x7)!=LIGHTGRAY)
- bprintf("\x1b[37m"); }
-
- if((atr&0x70)==(BLACK<<4)) { /* background colors */
- if((curatr&0x70)!=(BLACK<<4))
- bprintf("\x1b[40m"); }
- else if((atr&0x70)==(RED<<4)) {
- if((curatr&0x70)!=(RED<<4))
- bprintf("\x1b[41m"); }
- else if((atr&0x70)==(GREEN<<4)) {
- if((curatr&0x70)!=(GREEN<<4))
- bprintf("\x1b[42m"); }
- else if((atr&0x70)==(BROWN<<4)) {
- if((curatr&0x70)!=(BROWN<<4))
- bprintf("\x1b[43m"); }
- else if((atr&0x70)==(BLUE<<4)) {
- if((curatr&0x70)!=(BLUE<<4))
- bprintf("\x1b[44m"); }
- else if((atr&0x70)==(MAGENTA<<4)) {
- if((curatr&0x70)!=(MAGENTA<<4))
- bprintf("\x1b[45m"); }
- else if((atr&0x70)==(CYAN<<4)) {
- if((curatr&0x70)!=(CYAN<<4))
- bprintf("\x1b[46m"); }
- else if((atr&0x70)==(LIGHTGRAY<<4)) {
- if((curatr&0x70)!=(LIGHTGRAY<<4))
- bprintf("\x1b[47m"); }
-
- curatr=atr;
-}
-
-/****************************************************************************/
-/* Peform clear screen */
-/****************************************************************************/
-void cls(void)
-{
- if(lncntr>1 && !tos) {
- lncntr=0;
- CRLF;
- bpause();
- while(lncntr && !aborted)
- bpause(); }
-
- if(user_misc&ANSI)
- bputs("\x1b[2J\x1b[H"); /* clear screen, home cursor */
- else
- outchar(FF);
- tos=1;
- lncntr=0;
-}
-
-/****************************************************************************/
-/* performs the correct attribute modifications for the Ctrl-A code */
-/****************************************************************************/
-void ctrl_a(char x)
-{
- char atr=curatr;
- int i;
-
- if((uchar)x>=0x7f) {
- if(user_misc&ANSI)
- bprintf("\x1b[%uC",(uchar)x-0x7f);
- else
- for(i=0;i<(uchar)x-0x7f;i++)
- outchar(SP);
- return; }
-
- switch(toupper(x)) {
- case '-': /* turn off all attributes if */
- if(atr&(HIGH|BLINK|(LIGHTGRAY<<4))) /* high intensity, blink or */
- attr(LIGHTGRAY); /* background bits are set */
- break;
- case '_': /* turn off all attributes if */
- if(atr&(BLINK|(LIGHTGRAY<<4))) /* blink or background is set */
- attr(LIGHTGRAY);
- break;
- case ',': /* Delay 1/10 sec */
- mswait(100);
- break;
- case ';': /* Delay 1/2 sec */
- mswait(500);
- break;
- case '.': /* Delay 2 secs */
- mswait(2000);
- break;
- case 'P': /* Pause */
- bpause();
- break;
- case 'Q': /* Pause reset */
- lncntr=0;
- break;
- case 'L': /* CLS (form feed) */
- cls();
- break;
- case '>': /* CLREOL */
- if(user_misc&ANSI)
- bputs("\x1b[K");
-#if 0
- else {
- i=j=wherey();
- while(i++<80)
- outchar(SP);
- while(j++<80)
- outchar(BS); }
-#endif
- break;
- case '<': /* Non-destructive backspace */
- outchar(BS);
- break;
- case '[': /* Carriage return */
- outchar(CR);
- break;
- case ']': /* Line feed */
- outchar(LF);
- break;
- case 'A': /* Ctrl-A */
- outchar(1);
- break;
- case 'H': /* High intensity */
- atr|=HIGH;
- attr(atr);
- break;
- case 'I': /* Blink */
- atr|=BLINK;
- attr(atr);
- break;
- case 'N': /* Normal */
- attr(LIGHTGRAY);
- break;
- case 'R':
- atr=(atr&0xf8)|RED;
- attr(atr);
- break;
- case 'S':
- nodesync();
- break;
- case 'G':
- atr=(atr&0xf8)|GREEN;
- attr(atr);
- break;
- case 'B':
- atr=(atr&0xf8)|BLUE;
- attr(atr);
- break;
- case 'W': /* White */
- atr=(atr&0xf8)|LIGHTGRAY;
- attr(atr);
- break;
- case 'C':
- atr=(atr&0xf8)|CYAN;
- attr(atr);
- break;
- case 'M':
- atr=(atr&0xf8)|MAGENTA;
- attr(atr);
- break;
- case 'Y':
- atr=(atr&0xf8)|BROWN;
- attr(atr);
- break;
- case 'K': /* Black */
- atr=(atr&0xf8)|BLACK;
- attr(atr);
- break;
- case '0': /* Black Background */
- atr=(atr&0x8f)|(uchar)(BLACK<<4);
- attr(atr);
- break;
- case '1': /* Red Background */
- atr=(atr&0x8f)|(uchar)(RED<<4);
- attr(atr);
- break;
- case '2': /* Green Background */
- atr=(atr&0x8f)|(uchar)(GREEN<<4);
- attr(atr);
- break;
- case '3': /* Yellow Background */
- atr=(atr&0x8f)|(uchar)(BROWN<<4);
- attr(atr);
- break;
- case '4': /* Blue Background */
- atr=(atr&0x8f)|(uchar)(BLUE<<4);
- attr(atr);
- break;
- case '5': /* Magenta Background */
- atr=(atr&0x8f)|(uchar)(MAGENTA<<4);
- attr(atr);
- break;
- case '6': /* Cyan Background */
- atr=(atr&0x8f)|(uchar)(CYAN<<4);
- attr(atr);
- break;
- case '7': /* White Background */
- atr=(atr&0x8f)|(uchar)(LIGHTGRAY<<4);
- attr(atr);
- break; }
-}
-
-/****************************************************************************/
-/* Network open function. Opens all files DENYALL and retries LOOP_NOPEN */
-/* number of times if the attempted file is already open or denying access */
-/* for some other reason. All files are opened in BINARY mode. */
-/****************************************************************************/
-int nopen(char *str, int access)
-{
- char count=0;
- int file,share;
-
- if(access&SH_DENYNO) share=SH_DENYNO;
- else if(access==O_RDONLY) share=SH_DENYWR;
- else share=SH_DENYRW;
- while(((file=sopen(str,O_BINARY|access,share,S_IREAD|S_IWRITE))==-1)
- && errno==EACCES && count++<LOOP_NOPEN)
- if(count>10)
- mswait(50);
- if(count>(LOOP_NOPEN/2) && count<=LOOP_NOPEN)
- bprintf("\r\nNOPEN COLLISION - File: %s Count: %d\r\n"
- ,str,count);
- if(file==-1 && errno==EACCES)
- bputs("\7\r\nNOPEN: ACCESS DENIED\r\n\7");
- return(file);
-}
-
-/****************************************************************************/
-/* Reads data from XTRN.DAT in the node directory and fills the appropriate */
-/* global variables. */
-/* Initializes starttime variable with current time. */
-/****************************************************************************/
-void initdata(void)
-{
- char str[256],tmp[256];
- char* p;
- int i;
- FILE* stream;
-
-#ifdef _WINSOCKAPI_
- WSAStartup(MAKEWORD(1,1), &WSAData);
- client_socket=INVALID_SOCKET;
-#endif
-
-#ifdef __WATCOMC__
- putenv("TZ=UCT0");
- setvbuf(stdout,NULL,_IONBF,0);
- setvbuf(stderr,NULL,_IONBF,0);
-#endif
-
-#ifdef __SC__
- setvbuf(stdout,NULL,_IONBF,0);
- con_fp=stdout;
-#else
- con_fp=stderr;
-#endif
-
-#ifdef __16BIT__
-
-#if defined(__TURBOC__) || defined(__SC__) /* Borland or Symantec */
- ctrlbrk(cbreakh);
-#endif
-
- if(setmode(fileno(con_fp),O_BINARY)==-1) { /* eliminate LF expansion */
- printf("Can't set console output to BINARY\n");
- exit(1); }
-#endif
-
- /* Sets node_dir to node directory environment variable defined by synchronet. */
- if(node_dir[0]==0 && (p=getenv("SBBSNODE"))!=NULL)
- sprintf(node_dir,"%.*s",sizeof(node_dir)-1,p);
-
- sprintf(str,"%sXTRN.DAT",node_dir);
- if((stream=fopen(str,"rt"))==NULL) {
- printf("Can't open %s\r\n",str);
- exit(1); }
- fgets(str,81,stream); /* username */
- sprintf(user_name,"%.25s",str);
- truncsp(user_name);
- fgets(str,81,stream); /* system name */
- sprintf(sys_name,"%.40s",str);
- truncsp(sys_name);
- fgets(str,81,stream); /* system operator */
- sprintf(sys_op,"%.40s",str);
- truncsp(sys_op);
- fgets(str,81,stream); /* system guru */
- sprintf(sys_guru,"%.40s",str);
- truncsp(sys_guru);
-
- fgets(str,81,stream); /* ctrl dir */
- str[50]=0;
- if(str[0]=='.')
- sprintf(ctrl_dir,"%s%s",node_dir,str);
- else
- strcpy(ctrl_dir,str);
- truncsp(ctrl_dir);
- if(_fullpath(str,ctrl_dir,50))
- strcpy(ctrl_dir,str);
- backslash(ctrl_dir);
-
- fgets(str,81,stream); /* data dir */
- if(str[0]=='.')
- sprintf(data_dir,"%s%s",node_dir,str);
- else
- sprintf(data_dir,"%.40s",str);
- truncsp(data_dir);
- if(_fullpath(str,data_dir,50))
- strcpy(data_dir,str);
- backslash(data_dir);
-
- fgets(str,81,stream); /* total nodes */
- sys_nodes=atoi(str);
- fgets(str,81,stream); /* current node */
- node_num=atoi(str);
- fgets(str,81,stream); /* time left */
- timeleft=atoi(str);
- fgets(str,81,stream); /* ANSI? (Yes, Mono, or No) */
- user_misc=0;
- if(str[0]=='Y')
- user_misc|=(ANSI|COLOR);
- else if(str[0]=='M')
- user_misc|=ANSI;
- fgets(str,81,stream); /* screen lines */
- user_rows=atoi(str);
- fgets(str,81,stream); /* credits */
- user_cdt=atol(str);
- fgets(str,81,stream); /* level */
- user_level=atoi(str);
- fgets(str,81,stream); /* was transfer level, left for compat. */
- fgets(str,81,stream); /* birthdate */
- truncsp(str);
- sprintf(user_birth,"%.8s",str);
- fgets(str,81,stream); /* sex */
- user_sex=str[0];
- fgets(str,81,stream); /* user number */
- user_number=atoi(str);
- fgets(str,81,stream); /* user phone number */
- sprintf(user_phone,"%.12s",str);
- truncsp(user_phone);
- fgets(str,81,stream); /* com port (0 if local or no modem) */
- com_port=atoi(str);
- fgets(str,81,stream); /* com (UART) irq */
- com_irq=atoi(str);
- fgets(str,81,stream); /* com (UART) base address in hex */
- truncsp(str);
- com_base=(uint)ahtoul(str);
- fgets(str,81,stream); /* com rate */
- com_rate=(ulong)atol(str);
- fgets(str,81,stream); /* hardware flow control (Y/N) */
- if(toupper(str[0])=='Y')
- mdm_misc|=MDM_FLOWCTRL;
- fgets(str,81,stream); /* locked DTE rate (Y/N) */
- if(toupper(str[0])=='Y')
- mdm_misc|=MDM_STAYHIGH;
- fgets(str,81,stream); /* modem initialization string */
- sprintf(mdm_init,"%.63s",str);
- truncsp(mdm_init);
- fgets(str,81,stream); /* modem special init string */
- sprintf(mdm_spec,"%.63s",str);
- truncsp(mdm_spec);
- fgets(str,81,stream); /* modem terminal mode string */
- sprintf(mdm_term,"%.63s",str);
- truncsp(mdm_term);
- fgets(str,81,stream); /* modem dial string */
- sprintf(mdm_dial,"%.63s",str);
- truncsp(mdm_dial);
- fgets(str,81,stream); /* modem off-hook string */
- sprintf(mdm_offh,"%.63s",str);
- truncsp(mdm_offh);
- fgets(str,81,stream); /* modem answer string */
- sprintf(mdm_answ,"%.63s",str);
- truncsp(mdm_answ);
- fgets(str,81,stream); /* memory address of modem status register */
- msr=(uint FAR16 *)atol(str);
- if(!fgets(str,81,stream)) /* total number of external programs */
- total_xtrns=0;
- else
- total_xtrns=atoi(str);
- if(total_xtrns && (xtrn=(char **)MALLOC(sizeof(char *)*total_xtrns))==NULL) {
- printf("Allocation error 1: %u\r\n",sizeof(char *)*total_xtrns);
- exit(1); }
- for(i=0;i<(int)total_xtrns;i++) {
- fgets(str,81,stream);
- truncsp(str);
- if((xtrn[i]=(char *)MALLOC(strlen(str)+1))==NULL) {
- printf("Allocation error 2 (%u): %u\r\n",i,strlen(str)+1);
- exit(1); }
- strcpy(xtrn[i],str); }
- fgets(str,81,stream); /* user's main flags */
- sprintf(user_flags1,"%.26s",str);
- fgets(str,81,stream); /* user's xfer flags */
- sprintf(user_flags2,"%.26s",str);
- fgets(str,81,stream); /* user's exemptions */
- sprintf(user_exempt,"%.26s",str);
- fgets(str,81,stream); /* user's restrictions */
- sprintf(user_rest,"%.26s",str);
- fgets(str,81,stream); /* user's expiration date */
- truncsp(str);
- user_expire=ahtoul(str);
- str[0]=0;
- fgets(str,81,stream); /* user's address */
- sprintf(user_address,"%.30s",str);
- truncsp(user_address);
- fgets(str,81,stream); /* user's location (city, state) */
- sprintf(user_location,"%.30s",str);
- truncsp(user_location);
- fgets(str,81,stream); /* user's zip/postal code */
- sprintf(user_zipcode,"%.10s",str);
- truncsp(user_zipcode);
- str[0]=0;
- fgets(str,81,stream);
- sprintf(user_flags3,"%.26s",str);
- fgets(str,81,stream);
- sprintf(user_flags4,"%.26s",str);
- if(fgets(str,81,stream)) /* Time-slice API type */
-#ifdef __16BIT__
- mswtyp=ahtoul(str);
-#else
- ;
-#endif
- str[0]=0;
- fgets(str,81,stream);
- truncsp(str);
- sprintf(user_realname,"%.25s",str);
- str[0]=0;
- fgets(str,81,stream);
- user_dce=atol(str);
-
- str[0]=0;
- fgets(str,81,stream); /* exec dir */
- if(!str[0])
- sprintf(exec_dir,"%s../exec/",ctrl_dir);
- else {
- if(str[0]=='.')
- sprintf(exec_dir,"%s%s",node_dir,str);
- else
- sprintf(exec_dir,"%.50s",str); }
- truncsp(exec_dir);
- if(_fullpath(str,exec_dir,50))
- strcpy(exec_dir,str);
- backslash(exec_dir);
-
- str[0]=0;
- fgets(str,81,stream); /* text dir */
- if(!str[0])
- sprintf(text_dir,"%s../text/",ctrl_dir);
- else {
- if(str[0]=='.')
- sprintf(text_dir,"%s%s",node_dir,str);
- else
- sprintf(text_dir,"%.50s",str); }
- truncsp(text_dir);
- if(_fullpath(str,text_dir,50))
- strcpy(text_dir,str);
- backslash(text_dir);
-
- str[0]=0;
- fgets(str,81,stream); /* temp dir */
- if(!str[0])
- sprintf(temp_dir,"%stemp/",node_dir);
- else {
- if(str[0]!=BACKSLASH && str[1]!=':')
- sprintf(temp_dir,"%s%s",node_dir,str);
- else
- sprintf(temp_dir,"%.50s",str); }
- truncsp(temp_dir);
- if(_fullpath(str,temp_dir,50))
- strcpy(temp_dir,str);
- backslash(temp_dir);
-
- str[0]=0;
- fgets(str,81,stream);
- sprintf(sys_id,"%.8s",str);
-
- str[0]=0;
- fgets(str,81,stream);
- truncsp(str);
- if(str[0])
- node_misc=(uint)ahtoul(str);
- else
- node_misc=NM_LOWPRIO;
-
-#ifndef __16BIT__
- str[0]=0;
- fgets(str,81,stream);
- client_socket=atoi(str);
-
- if(client_socket!=INVALID_SOCKET) {
-
-#ifdef _WIN32
- output_sem=CreateEvent(
- NULL // pointer to security attributes
- ,TRUE // flag for manual-reset event
- ,FALSE // flag for initial state
- ,NULL // pointer to event-object name
- );
- if(output_sem==NULL) {
- printf("\r\n\7Error %d creating output_event\r\n",GetLastError());
- exit(1);
- }
-#else
- sem_init(&output_sem,0,0);
-#endif
- _beginthread(output_thread,0,NULL);
- }
-#endif
-
- fclose(stream);
-
- sprintf(str,"%sINTRSBBS.DAT",node_dir); /* Shrank to run! */
- if(fexist(str)) {
- if((stream=fopen(str,"rt"))==NULL) {
- printf("Can't open %s\n",str);
- exit(1);
- }
- fgets(tmp,81,stream); /* so get MSR address from file */
- msr=(uint FAR16 *)atol(tmp);
- fclose(stream);
- remove(str);
- }
-
- starttime=time(NULL); /* initialize start time stamp */
- wordwrap[0]=0; /* set wordwrap to null */
- mnehigh=LIGHTGRAY|HIGH; /* mnemonics highlight color */
- mnelow=GREEN; /* mnemonics normal text color */
- sec_warn=180; /* seconds till inactivity warning */
- sec_timeout=300; /* seconds till inactivity timeout */
- tos=lncntr=0; /* init topofscreen and linecounter to 0 */
- lastnodemsg=0; /* Last node to send message to */
- aborted=0; /* Ctrl-C hit flag */
- sysop_level=90; /* Minimum level to be considered sysop */
- timeleft_warn=0; /* Running out of time warning */
-
- sprintf(str,"%s%s",ctrl_dir,"node.dab");
- if((nodefile=sopen(str,O_BINARY|O_RDWR,SH_DENYNO,S_IREAD|S_IWRITE))==-1) {
- printf("\r\n\7Error opening %s\r\n",str);
- exit(1);
- }
-
- sprintf(str,"%suser/name.dat",data_dir);
- if((i=nopen(str,O_RDONLY))==-1) {
- printf("\r\n\7Error opening %s\r\n",str);
- exit(1);
- }
- memset(str,0,30);
- read(i,str,26);
- close(i);
- if(str[25]==CR) /* Version 1b */
- name_len=25;
- else /* Version 1a */
- name_len=30;
-
-#ifdef __unix__
- _termios_setup();
-#endif
-
- if(client_socket==INVALID_SOCKET)
- xsdk_mode&=~XSDK_MODE_NOCONSOLE;
-
- if(xsdk_mode&XSDK_MODE_NOCONSOLE) {
- con_fp=NULL;
-#ifdef _WIN32
- FreeConsole();
-#endif
- }
-
- attr(LIGHTGRAY); /* initialize color and curatr to plain */
-}
-
-/****************************************************************************/
-/* Automatic RIP & WIP terminal detection function. Sets RIP and WIP bits */
-/* in user_misc variable. Must be called AFTER initdat(), not before. */
-/****************************************************************************/
-void get_term(void)
-{
- char str[128],ch;
- int i;
-
- bputs("\r\x1b[!_\x1b[0t_\r \r");
- mswait(500);
- for(i=0;i<120;i++) {
- ch=inkey(0);
- if(!ch)
- break;
- mswait(1);
- str[i]=ch; }
- str[i]=0;
- if(strstr(str,"RIPSCRIP"))
- user_misc|=RIP;
- if(strstr(str,"DC-TERM"))
- user_misc|=WIP;
-}
-
-/****************************************************************************/
-/* Truncates white-space chars off end of 'str' and terminates at first tab */
-/****************************************************************************/
-void truncsp(uchar *str)
-{
- char c;
-
- str[strcspn(str,"\t")]=0;
- c=strlen(str);
- while(c && (uchar)str[c-1]<=SP) c--;
- str[c]=0;
-}
-
-/****************************************************************************/
-/* Puts a backslash on path strings */
-/****************************************************************************/
-void backslash(char *str)
-{
- int i;
-
- i=strlen(str);
- if(i && str[i-1]!='\\' && str[i-1]!='/') {
- str[i]=BACKSLASH;
- str[i+1]=0;
- }
-}
-
-
-/****************************************************************************/
-/* Checks the amount of time inside the external program against the amount */
-/* of time the user had left online before running the external program and */
-/* prints a message and exits the program if time has run out. */
-/****************************************************************************/
-void checktimeleft(void)
-{
- if(!SYSOP && !strchr(user_exempt,'T') && time(NULL)-starttime>timeleft) {
- bputs("\1_\n\1r\1hTime's up.\n");
- exit(0); }
-}
-
-/****************************************************************************/
-/* Prints a file remotely and locally, interpreting ^A sequences. */
-/* 'str' is the path of the file to print */
-/****************************************************************************/
-void printfile(char *str)
-{
- char *buf;
- int file;
- ulong length;
-
- if(!tos)
- CRLF;
- if((file=nopen(str,O_RDONLY))==-1) {
- bprintf("File not Found: %s\r\n",str);
- return; }
- length=filelength(file);
- if((buf=MALLOC(length+1L))==NULL) {
- close(file);
- bprintf("\7\r\nPRINTFILE: Error allocating %lu bytes of memory for %s.\r\n"
- ,length+1L,str);
- return; }
- buf[read(file,buf,length)]=0;
- close(file);
- bputs(buf);
- aborted=0;
- FREE(buf);
-}
-
-/****************************************************************************/
-/* Returns a char pointer to the name of the user that corresponds to */
-/* usernumber. Takes value directly from database. */
-/****************************************************************************/
-char *username(uint usernumber)
-{
- static char name[26];
- char str[128];
- int i,file;
-
- strcpy(name,"UNKNOWN USER");
- if(!data_dir[0])
- return(name);
- if(!usernumber) {
- bputs("\7username: called with zero usernumber\r\n");
- return(name); }
- sprintf(str,"%suser/name.dat",data_dir);
- if((file=nopen(str,O_RDONLY))==-1) {
- bprintf("\7username: couldn't open %s\r\n",str);
- return(name); }
- if(filelength(file)<(long)(usernumber-1)*((long)name_len+2L)) {
- close(file);
- return(name); }
- lseek(file,(long)(usernumber-1)*((long)name_len+2L),SEEK_SET);
- read(file,name,25);
- close(file);
- for(i=0;i<25;i++)
- if(name[i]==3)
- break;
- name[i]=0;
- if(!name[0])
- strcpy(name,"DELETED USER");
- return(name);
-}
-
-/****************************************************************************/
-/* Returns the number of the user 'username' from the NAME.DAT file. */
-/* If the username is not found, the function returns 0. */
-/****************************************************************************/
-uint usernumber(char *username)
-{
- char str[128];
- int i,file;
- FILE *stream;
-
- if(!data_dir[0])
- return(0);
- sprintf(str,"%suser/name.dat",data_dir);
- if((file=nopen(str,O_RDONLY))==-1 || (stream=fdopen(file,"rb"))==NULL) {
- if(file!=-1)
- close(file);
- bprintf("\7usernumber: couldn't open %s\r\n",str);
- return(0); }
- for(i=1;!feof(stream);i++) {
- if(!fread(str,27,1,stream))
- break;
- str[25]=0;
- truncsp(str); /* chop of trailing EOTs and spaces */
- if(!stricmp(str,username)) {
- fclose(stream);
- return(i); } }
- fclose(stream);
- return(0);
-}
-
-
-/****************************************************************************/
-/* Returns in 'string' a character representation of the number in l with */
-/* commas. Maximum value of l is 4 gigabytes. */
-/****************************************************************************/
-char *ultoac(ulong l, char *string)
-{
- char str[81];
- char i,j,k;
-
- sprintf(str,"%lu",l);
- i=strlen(str)-1;
- j=i/3+1+i;
- string[j--]=0;
- for(k=1;i>-1;k++) {
- string[j--]=str[i--];
- if(j>0 && !(k%3))
- string[j--]=','; }
- return(string);
-}
-
-/****************************************************************************/
-/* Converts an ASCII Hex string into a ulong */
-/****************************************************************************/
-ulong ahtoul(char *str)
-{
- ulong l,val=0;
-
- while((l=(*str++)|0x20)!=0x20)
- val=(l&0xf)+(l>>6&1)*9+val*16;
- return(val);
-}
-
-/****************************************************************************/
-/* Reads the data for node number 'number' into the structure 'node' */
-/* from NODE.DAB */
-/* if lockit is non-zero, locks this node's record. putnodedat() unlocks it */
-/****************************************************************************/
-void getnodedat(int number, node_t *node, char lockit)
-{
- int count=0;
-
- if(nodefile<0)
- return;
- number--; /* make zero based */
- while(count<LOOP_NODEDAB) {
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(lockit
- && lock(nodefile,(long)number*sizeof(node_t),sizeof(node_t))==-1) {
- count++;
- continue; }
- if(read(nodefile,node,sizeof(node_t))==sizeof(node_t))
- break;
- count++; }
- if(count==LOOP_NODEDAB)
- bprintf("\7Error unlocking and reading node.dab\r\n");
-}
-
-/****************************************************************************/
-/* Write the data from the structure 'node' into NODE.DAB */
-/* getnodedat(num,&node,1); must have been called before calling this func */
-/* NOTE: ------^ the indicates the node record has been locked */
-/****************************************************************************/
-void putnodedat(int number, node_t node)
-{
- if(nodefile<0)
- return;
- number--; /* make zero based */
- lseek(nodefile,(long)number*sizeof(node_t),SEEK_SET);
- if(write(nodefile,&node,sizeof(node_t))!=sizeof(node_t)) {
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
- bprintf("\7Error writing node.dab for node %u\r\n",number+1);
- return; }
- unlock(nodefile,(long)number*sizeof(node_t),sizeof(node_t));
-}
-
-/****************************************************************************/
-/* Checks for messages waiting for this node or interruption. */
-/****************************************************************************/
-void nodesync(void)
-{
- node_t node;
-
- if(!ctrl_dir[0])
- return;
- getnodedat(node_num,&node,0);
-
- if(node.misc&NODE_MSGW)
- getsmsg(user_number); /* getsmsg clears MSGW flag */
-
- if(node.misc&NODE_NMSG) /* getnmsg clears NMSG flag */
- getnmsg();
-
- if(node.misc&NODE_INTR)
- exit(0);
-
-}
-
-/****************************************************************************/
-/* Displays the information for node number 'number' contained in 'node' */
-/****************************************************************************/
-void printnodedat(int number, node_t node)
-{
- char hour,mer[3],tmp[256];
- int i;
-
- attr(LIGHTGRAY|HIGH);
- bprintf("Node %2d: ",number);
- attr(GREEN);
- switch(node.status) {
- case NODE_WFC:
- bputs("Waiting for call");
- break;
- case NODE_OFFLINE:
- bputs("Offline");
- break;
- case NODE_NETTING:
- bputs("Networking");
- break;
- case NODE_LOGON:
- bputs("At logon prompt");
- break;
- case NODE_EVENT_WAITING:
- bputs("Waiting for all nodes to become inactive");
- break;
- case NODE_EVENT_LIMBO:
- bprintf("Waiting for node %d to finish external event",node.aux);
- break;
- case NODE_EVENT_RUNNING:
- bputs("Running external event");
- break;
- case NODE_NEWUSER:
- attr(GREEN|HIGH);
- bputs("New user");
- attr(GREEN);
- bputs(" applying for access ");
- if(!node.connection)
- bputs("Locally");
- else if(node.connection==0xffff)
- bprintf("via telnet");
- else
- bprintf("at %ubps",node.connection);
- break;
- case NODE_QUIET:
- if(!SYSOP) {
- bputs("Waiting for call");
- break; }
- case NODE_INUSE:
- attr(GREEN|HIGH);
- if(node.misc&NODE_ANON && !SYSOP)
- bputs("UNKNOWN USER");
- else
- bputs(username(node.useron));
- attr(GREEN);
- bputs(" ");
- switch(node.action) {
- case NODE_MAIN:
- bputs("at main menu");
- break;
- case NODE_RMSG:
- bputs("reading messages");
- break;
- case NODE_RMAL:
- bputs("reading mail");
- break;
- case NODE_RSML:
- bputs("reading sent mail");
- break;
- case NODE_RTXT:
- bputs("reading text files");
- break;
- case NODE_PMSG:
- bputs("posting message");
- break;
- case NODE_SMAL:
- bputs("sending mail");
- break;
- case NODE_AMSG:
- bputs("posting auto-message");
- break;
- case NODE_XTRN:
- if(!node.aux)
- bputs("at external program menu");
- else {
- bputs("running ");
- i=node.aux-1;
- if(i>=(int)total_xtrns || i<0 || !xtrn[i][0])
- bputs("external program");
- else
- bputs(xtrn[i]); }
- break;
- case NODE_DFLT:
- bputs("changing defaults");
- break;
- case NODE_XFER:
- bputs("at transfer menu");
- break;
- case NODE_RFSD:
- bprintf("retrieving from device #%d",node.aux);
- break;
- case NODE_DLNG:
- bprintf("downloading");
- break;
- case NODE_ULNG:
- bputs("uploading");
- break;
- case NODE_BXFR:
- bputs("transferring bidirectional");
- break;
- case NODE_LFIL:
- bputs("listing files");
- break;
- case NODE_LOGN:
- bputs("logging on");
- break;
- case NODE_LCHT:
- bprintf("in local chat with %s",sys_op);
- break;
- case NODE_MCHT:
- if(node.aux) {
- bprintf("in multinode chat channel %d",node.aux&0xff);
- if(node.aux&0x1f00) /* password */
- outchar('*'); }
- else
- bputs("in multinode global chat channel");
- break;
- case NODE_PAGE:
- bprintf("paging node %u for private chat",node.aux);
- break;
- case NODE_PCHT:
- bprintf("in private chat with node %u",node.aux);
- break;
- case NODE_GCHT:
- bprintf("chatting with %s",sys_guru);
- break;
- case NODE_CHAT:
- bputs("in chat section");
- break;
- case NODE_TQWK:
- bputs("transferring QWK packet");
- break;
- case NODE_SYSP:
- bputs("performing sysop activities");
- break;
- default:
- bputs(ultoa(node.action,tmp,10));
- break; }
- if(!node.connection)
- bputs(" locally");
- else if(node.connection==0xffff)
- bprintf(" via telnet");
- else
- bprintf(" at %ubps",node.connection);
- if(node.action==NODE_DLNG) {
- if((node.aux/60)>12) {
- hour=(node.aux/60)-12;
- strcpy(mer,"pm"); }
- else {
- if((node.aux/60)==0) /* 12 midnite */
- hour=12;
- else hour=node.aux/60;
- strcpy(mer,"am"); }
- bprintf(" ETA %02d:%02d %s"
- ,hour,node.aux%60,mer); }
- break; }
- i=NODE_LOCK;
- if(node.status==NODE_INUSE || SYSOP)
- i|=NODE_POFF|NODE_AOFF|NODE_MSGW|NODE_NMSG;
- if(node.misc&i) {
- bputs(" (");
- if(node.misc&(i&NODE_AOFF))
- outchar('A');
- if(node.misc&NODE_LOCK)
- outchar('L');
- if(node.misc&(i&(NODE_MSGW|NODE_NMSG)))
- outchar('M');
- if(node.misc&(i&NODE_POFF))
- outchar('P');
- outchar(')'); }
- if(SYSOP && ((node.misc
- &(NODE_ANON|NODE_UDAT|NODE_INTR|NODE_RRUN|NODE_EVENT|NODE_DOWN))
- || node.status==NODE_QUIET)) {
- bputs(" [");
- if(node.misc&NODE_ANON)
- outchar('A');
- if(node.misc&NODE_INTR)
- outchar('I');
- if(node.misc&NODE_RRUN)
- outchar('R');
- if(node.misc&NODE_UDAT)
- outchar('U');
- if(node.status==NODE_QUIET)
- outchar('Q');
- if(node.misc&NODE_EVENT)
- outchar('E');
- if(node.misc&NODE_DOWN)
- outchar('D');
- outchar(']'); }
- if(node.errors && SYSOP) {
- attr(RED|HIGH|BLINK);
- bprintf(" %d error%c",node.errors, node.errors>1 ? 's' : '\0' ); }
- CRLF;
-}
-
-/****************************************************************************/
-/* Prints short messages waiting for 'usernumber', if any... */
-/* then deletes them. */
-/****************************************************************************/
-void getsmsg(int usernumber)
-{
- char str[256], *buf;
- int file;
- long length;
- node_t node;
-
- if(!data_dir[0])
- return;
- sprintf(str,"%smsgs/%4.4u.msg",data_dir,usernumber);
- if(flength(str)<1L) {
- return; }
- if((file=nopen(str,O_RDWR))==-1) {
- bprintf("\7Error opening %s for read/write access\r\n",str);
- return; }
- length=filelength(file);
- if((buf=MALLOC(length+1))==NULL) {
- close(file);
- bprintf("\7Error allocating %u bytes of memory for %s\r\n",length+1,str);
- return; }
- if(read(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- bprintf("\7Error reading %u bytes from %s\r\n",length,str);
- return; }
- chsize(file,0L);
- close(file);
- buf[length]=0;
- getnodedat(node_num,&node,0);
- if(node.action==NODE_MAIN || node.action==NODE_XFER) {
- CRLF; }
- if(node.misc&NODE_MSGW) {
- getnodedat(node_num,&node,1);
- node.misc&=~NODE_MSGW;
- putnodedat(node_num,node); }
- bputs(buf);
- FREE(buf);
-}
-
-/****************************************************************************/
-/* Creates a short message for 'usernumber' than contains 'strin' */
-/****************************************************************************/
-void putsmsg(int usernumber, char *strin)
-{
- char str[256];
- int file,i;
- node_t node;
-
- if(!data_dir[0])
- return;
- sprintf(str,"%smsgs/%4.4u.msg",data_dir,usernumber);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- bprintf("\7Error opening/creating %s for creat/append access\r\n",str);
- return; }
- i=strlen(strin);
- if(write(file,strin,i)!=i) {
- close(file);
- bprintf("\7Error writing %u bytes to %s\r\n",i,str);
- return; }
- close(file);
- for(i=1;i<=sys_nodes;i++) { /* flag node if user on that msg waiting */
- getnodedat(i,&node,0);
- if(node.useron==(ushort)usernumber
- && (node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_MSGW)) {
- getnodedat(i,&node,1);
- node.misc|=NODE_MSGW;
- putnodedat(i,node); } }
-}
-
-/****************************************************************************/
-/* Prints short messages waiting for this node, if any... */
-/****************************************************************************/
-void getnmsg(void)
-{
- char str[256], *buf;
- int file;
- long length;
- node_t thisnode;
-
- if(!data_dir[0])
- return;
- getnodedat(node_num,&thisnode,1);
- thisnode.misc&=~NODE_NMSG; /* clear the NMSG flag */
- putnodedat(node_num,thisnode);
-
- sprintf(str,"%smsgs/n%3.3u.msg",data_dir,node_num);
- if(flength(str)<1L) {
- return; }
- if((file=nopen(str,O_RDWR))==-1) {
- printf("Couldn't open %s for read/write\r\n",str);
- return; }
- length=filelength(file);
- if((buf=MALLOC(length+1))==NULL) {
- close(file);
- printf("Couldn't allocate %lu bytes for %s\r\n",length+1,str);
- return; }
- if(read(file,buf,length)!=length) {
- close(file);
- FREE(buf);
- printf("Couldn't read %lu bytes from %s\r\n",length,str);
- return; }
- chsize(file,0L);
- close(file);
- buf[length]=0;
-
- bputs(buf);
- FREE(buf);
-}
-
-/****************************************************************************/
-/* Creates a short message for node 'num' than contains 'strin' */
-/****************************************************************************/
-void putnmsg(int num, char *strin)
-{
- char str[256];
- int file,i;
- node_t node;
-
- if(!data_dir[0])
- return;
- sprintf(str,"%smsgs/n%3.3u.msg",data_dir,num);
- if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
- printf("Couldn't open %s for append\r\n",str);
- return; }
- i=strlen(strin);
- if(write(file,strin,i)!=i) {
- close(file);
- printf("Error writing %u bytes to %s\r\n",i,str);
- return; }
- close(file);
- getnodedat(num,&node,0);
- if((node.status==NODE_INUSE || node.status==NODE_QUIET)
- && !(node.misc&NODE_NMSG)) {
- getnodedat(num,&node,1);
- node.misc|=NODE_NMSG;
- putnodedat(num,node); }
-}
-
-/****************************************************************************/
-/* This function lists users that are online. */
-/* If listself is true, it will list the current node. */
-/* Returns number of active nodes (not including current node). */
-/****************************************************************************/
-int whos_online(char listself)
-{
- int i,j;
- node_t node;
-
- if(!ctrl_dir[0])
- return(0);
- CRLF;
- for(j=0,i=1;i<=sys_nodes;i++) {
- getnodedat(i,&node,0);
- if(i==node_num) {
- if(listself)
- printnodedat(i,node);
- continue; }
- if(node.status==NODE_INUSE || (SYSOP && node.status==NODE_QUIET)) {
- printnodedat(i,node);
- if(!lastnodemsg)
- lastnodemsg=i;
- j++; } }
- if(!j)
- bputs("\1nNo other active nodes.\r\n");
- return(j);
-}
-
-/****************************************************************************/
-/* Sending single line messages between nodes */
-/****************************************************************************/
-void nodemsg(void)
-{
- char line[256],buf[512];
- int i;
- node_t thisnode;
- node_t node;
-
- if(!ctrl_dir[0])
- return;
- if(strchr(user_rest,'C')) {
- bputs("You cannot send messages.\r\n");
- return; }
- getnodedat(node_num,&thisnode,0);
- wordwrap[0]=0;
- if(lastnodemsg) {
- getnodedat(lastnodemsg,&node,0);
- if(node.status!=NODE_INUSE)
- lastnodemsg=0; }
- if(!whos_online(0))
- return;
- bprintf("\r\n\1n\1gNumber of node to send message to, \1w\1hA\1n\1gll, "
- "or \1w\1hQ\1n\1guit [%u]: \1w\1h",lastnodemsg);
- i=getkeys("QA",sys_nodes);
- if(i==-1)
- return;
- if(i&0x8000 || !i) {
- if(!i)
- i=lastnodemsg;
- else {
- i^=0x8000;
- lastnodemsg=i; }
- if(!i || i>sys_nodes)
- return;
- getnodedat(i,&node,0);
- if(node.status!=NODE_INUSE && !SYSOP)
- bprintf("\r\n\1_\1w\1hNode %d is not in use.\r\n",i);
- else if(i==node_num)
- bputs("\r\nThere's no need to send a message to yourself.\r\n");
- else if(node.misc&NODE_POFF && !SYSOP)
- bprintf("\r\n\1r\1h\1iDon't bug %s.\1n\r\n"
- ,node.misc&NODE_ANON ? "UNKNOWN USER"
- : username(node.useron));
- else {
- bputs("\1_\1y\1hMessage: ");
- if(!getstr(line,70,K_LINE))
- return;
- sprintf(buf
- ,"\7\1_\1w\1hNode %2d: \1g%s\1n\1g sent you a message:\r\n"
- "\1w\1h\0014%s\1n\r\n"
- ,node_num
- ,thisnode.misc&NODE_ANON ? "UNKNOWN USER" : user_name,line);
- putnmsg(i,buf); } }
- else if(i=='A') {
- bputs("\1_\1y\1hMessage: ");
- if(!getstr(line,70,K_LINE))
- return;
- sprintf(buf
- ,"\7\1_\1w\1hNode %2d: \1g%s\1n\1g sent all nodes a message:\r\n"
- "\1w\1h\0014%s\1n\r\n"
- ,node_num
- ,thisnode.misc&NODE_ANON ? "UNKNOWN USER" : user_name,line);
- for(i=1;i<=sys_nodes;i++) {
- if(i==node_num)
- continue;
- getnodedat(i,&node,0);
- if((node.status==NODE_INUSE || (SYSOP && node.status==NODE_QUIET))
- && (SYSOP || !(node.misc&NODE_POFF)))
- putnmsg(i,buf); } }
-
-}
-
-/****************************************************************************/
-/* Puts a character into the input buffer */
-/****************************************************************************/
-void ungetkey(char ch)
-{
-
- keybuf[keybuftop++]=ch;
- if(keybuftop==KEY_BUFSIZE)
- keybuftop=0;
-}
-
diff --git a/xtrn/sdk/xsdk.h b/xtrn/sdk/xsdk.h
deleted file mode 100644
index bf15f8130699670d18a7f55e3d58d8ec76dc37b4..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdk.h
+++ /dev/null
@@ -1,284 +0,0 @@
-/* xsdk.h */
-
-/* Synchronet XSDK function prototypes */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-
-#ifndef _XSDK_H
-#define _XSDK_H
-
-/*********************************************/
-/* Standard Borland/Turbo C/C++ Header Files */
-/*********************************************/
-#ifndef __unix__
- #include <io.h>
- #include <share.h>
- #include <conio.h>
-#endif
-#ifdef __16BIT__
- #include <dos.h>
-#endif
-#ifdef _WIN32
- #include <windows.h>
-#endif
-#include <time.h>
-#include <ctype.h>
-#include <stdio.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#ifndef __unix__
- #include <malloc.h>
-#endif
-#include <sys/stat.h>
-#include <sys/types.h>
-
-#define GLOBAL extern /* turns XSDKVARS.C into a header file */
-#include "xsdkinet.h"
-#include "xsdkwrap.h"
-#include "xsdkvars.c"
-
-#ifdef __cplusplus
- extern "C" {
-#endif
-
-extern char *xsdk_ver; /* XSDK version number */
-extern ulong xsdk_mode; /* XSDK mode bits */
-extern int mswtyp; /* MSwait type */
-
-/***********************/
-/* Function Prototypes */
-/***********************/
-
-/* Initialize Data
- - Reads XTRN.DAT and initializes variables */
-void initdata(void);
-
-/* Get Terminal Type
- - Detects RIP and WIP terminal compatibility */
-void get_term(void);
-
-/* BBS Print String
- - Displays a string locally and remotely (with Ctrl-A codes) */
-void bputs(char *str);
-
-/* Raw Print String
- - Oututs a string locally and remotely (verbatim) */
-void rputs(char *str);
-
-/* BBS Print Formatted
- - Displays a formatted string locally and remotely (with Ctrl-A codes)
- - printf() equivalent */
-int bprintf(char *fmt, ...);
-
-/* Raw Print Formated
- - Displays a formatted string locally and remotely (verbatim)
- - printf() equivalent */
-int rprintf(char *fmt, ...);
-
-/* BBS String Length
- - Returns length of string, excluding Ctrl-A codes */
-int bstrlen(uchar *str);
-
-/* Output character
- - Displays a single character */
-void outchar(char ch);
-
-/* Mnemonics
- - Display a string expanding ~letter combinations to command keys
- - Automatically colorizes mnemonic letters or places them in parenthesis
- for non-ANSI users */
-void mnemonics(char *str);
-
-/* Pause prompt
- - Displays [Hit a key] and waits for the user to hit a key */
-void bpause(void);
-
-/* Yes/no Question
- - Displays a string with (Y/n) ? appended and waits for the user to hit
- 'Y', 'N' or enter
- - Returns 1 if the user hit 'Y' or enter
- - Automatic colorization */
-char yesno(char *str);
-
-/* No/yes Question
- - Displays a string with (y/N) ? appended and waits for the user to hit
- 'Y', 'N' or enter
- - Returns 1 if the user hit 'N' or enter */
-char noyes(char *str);
-
-/* Inbound Keystroke
- - If the local or remote user has struck a key, this function returns the
- key, otherwise it returns 0
- - Does not wait for a keystroke */
-char inkey(long mode);
-
-/* Key hit?
- - Returns non-zero if key hit, 0 otherwise */
-int keyhit(void);
-
-/* Get a Key
- - Waits for the local or remote user to hit a valid key
- - See K_* constants in XSDKDEFS.H for possible values of mode */
-char getkey(long mode);
-
-/* Get One of these Keys or a Number
- - Waits for the user to hit a valid key or if max is non-zero, then enter
- a number not greater than max
- - Hot-keyed input, automatically displays the struck key (in upper case)
- followed by CRLF
- - If the user entered a number, the number is ORed with 0x8000 and returned
- you must XOR (or not) this bit to get the correct number */
-int getkeys(char *str, int max);
-
-/* Get a Number
- - Waits for the user to enter a number from 0 to max, 'Q' or ENTER
- - Returns -1 if the user hit 'Q' or Ctrl-C
- - Returns 0 if the user just hit ENTER */
-int getnum(int max);
-
-/* Change Attribute
- - Sends ANSI escape sequences (if user supports ANSI) to change color
- - Valid color bits are defined in INCLUDE\CONIO.H */
-void attr(int atr);
-
-/* Clear Screen
- - Clears local and remote screen (using ANSI if appropriate)
- - Automatically pauses before clearing if lncntr is >1 */
-void cls(void);
-
-/* Process Ctrl-A Code
- - Changes color or performs special Ctrl-A function */
-void ctrl_a(char x);
-
-/* Network Open
- - Opens a file in DENYNONE or DENYWRITE mode, automatically retrying */
-int nopen(char *str, int access);
-
-/* Truncate Space
- - Removes white space characters from the end of a string */
-void truncsp(uchar *str);
-
-/* Adds Backslash
- - Adds backslash to end of string if it doesn't exist */
-void backslash(char *str);
-
-/* Check Time Left
- - Checks the amount of time the user has left and sets the timeleft
- variable
- - Automatically exits if user runs out of time */
-void checktimeleft(void);
-
-/* Print File
- - Displays contents of file (expanding Ctrl-A characters if appropriate) */
-void printfile(char *str);
-
-/* Get String
- - Waits for the user to enter a string
- - maxlen is the maximum length of the string
- - See K_* constants in XSDKDEFS.H for possible values of mode */
-int getstr(char *str, size_t maxlen, long mode);
-
-/* Redraw String
- - Redisplays a string, mainly called by getstr() */
-void redrwstr(char *strin, int i, int l, long mode);
-
-/* Strip Invalid Ctrl-A codes */
-char stripattr(char *strin);
-
-/* Returns the name of the user number passed */
-char *username(uint usernumber);
-
-/* Returns the number of the user name passed */
-uint usernumber(char *username);
-
-/* Convert unsigned long to an ASCII string with commas */
-char *ultoac(ulong l, char *string);
-
-/* Convert an ASCII string of hex digits into an unsigned long */
-ulong ahtoul(char *str);
-
-/* Display status of node */
-void printnodedat(int number, node_t node);
-
-/* Checks to see if this node has been interrupted or any messages waiting */
-void nodesync(void);
-
-/* Writes the node information to disk */
-void putnodedat(int number, node_t node);
-
-/* Reads the node information from disk */
-void getnodedat(int number, node_t *node, char lockit);
-
-/* Writes a short message (telegram) for specified user number */
-void putsmsg(int usernumber, char *strin);
-
-/* Reads and displays short message for specified user number */
-void getsmsg(int usernumber);
-
-/* Writes a node message for specified node */
-void putnmsg(int num, char *strin);
-
-/* Reads and displays node message for current node */
-void getnmsg(void);
-
-/* Displays users online */
-int whos_online(char listself);
-
-/* Send a node-message (ctrl-P) */
-void nodemsg(void);
-
-/* Put a key into the keyboard buffer */
-void ungetkey(char ch);
-
-/* Check to see if the user has hung-up */
-void checkline(void);
-
-/* Display a line (with ctrl-A codes) centered on the screen */
-void center(char *str);
-
-#ifdef _MSC_VER
-int lock(int file, long offset, int size);
-int unlock(int file, long offset, int size);
-#endif
-
-#ifdef __cplusplus
- }
-#endif
-
-
-#endif /* Don't add anything after this #endif */
diff --git a/xtrn/sdk/xsdk.txt b/xtrn/sdk/xsdk.txt
deleted file mode 100644
index 9e1183e4db3c1e881b8f63cb8d64ba3920be7691..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdk.txt
+++ /dev/null
@@ -1,127 +0,0 @@
- Synchronet External Program Software Developer's Kit (XSDK)
- Version 3.11 - March 2001 - Rob Swindell
-
-
-What is it?
-===========
-
-The Synchronet XSDK is a software development kit for C/C++ programmers that
-are interested in writing external online programs (aka "doors") for
-Synchronet BBS Software (www.synchro.net). The XSDK consists of C source and
-header files that contain functions and variables that make writing an external
-program for Synchronet much easier than "from scratch".
-
-The Synchronet XSDK can be used to create 16-bit DOS programs supported by
-all versions of Synchronet and native 32-bit programs supported by Synchronet
-Version 3.0 for Win32 and Linux.
-
-Programs written using the XSDK will automatically inherit the following
-features:
-
-o Reads Synchronet's XTRN.DAT drop file from the current node directory
- without any required command line parameters (easy configuration)
- initializing many user and system variables for the programmer to use
-
-o Automatically supports remote user I/O with dropped connection detection
-
-o Synchronet internode messaging (Ctrl-P), activity alerts, and node listings
-
-o Automatic terminal type detection
-
-o Intelligent Ctrl-A code expansion for Color/ANSI users
-
-o Automatic screen pausing based on screen length (optional)
-
-o 32-bit programs will default to no local console I/O (new in v3.11)
-
-
-Supported Compilers
-===================
-
-o All Borland 16-bit and 32-bit C/C++ compilers for DOS and Windows
- e.g. Turbo C/C++, Borland C/C++, and Borland C++ Builder
- See xtrn/sbl/sbl.bpr and xtrn/sbj/sbj.bpr for example BCB 5 XSDK projects
-
-o Microsoft Visual C++ Version 5 and 6
- (earlier 32-bit versions should work too)
- See xtrn/sbl/sbl.dsp and xtrn/sbj/sbj.dsp for example MSVC 6 XSDK projects
-
-o GNU Compiler Collection
- (including Cygwin/MinGW for Win32)
- See xtrn/sbl/Makefile.gnu and xtrn/sbj/Makefile.gnu for example XSDK projects
-
-o Watcom C/C++
-
-o Symantec C/C++
-
-o Other C/C++ compilers may be supported with slight modifications to the code
- (please share your modifications with me: sysop@vert.synchro.net)
-
-
-How do I use it?
-================
-
-1. Copy the following files into the source directory for your project (or
- copy them to and build them from your Synchronet XTRN\SDK directory):
-
- xsdk.c
- xsdk.h
- xsdkvars.c
- xsdkwrap.c -> New in XSDK v3.10
- xsdkwrap.h -> New in XSDK v3.10
- xsdkinet.h -> New in XSDK v3.10
- xsdkdefs.h
- mswaits.obj (16-bit compilers only)
- mswaitl.obj (16-bit copmilers only)
-
-2. Add the following line towards the top of your main .c file:
-
- #include "xsdk.h"
-
-3. Compile your main .c file to verify that you do not have any
- incompatibilities with the contents of xsdk.h. If you receive any
- compilation errors, you'll need to resolve these errors (possibly by
- editing xsdk*.c or xsdk*.h) before you can continue.
-
-4. Add a call to the XSDK "initdata" function to your program's entry point
- (typically main()). The XSDK "initdata" function will read in the BBS drop
- file (XTRN.DAT) and initialize the appropriate variables. See xsdk.h for a
- complete list of functions available to you and their descriptions.
-
-5. Somewhere after the call to initdata(), add the following line to your
- code:
-
- bprintf("XSDK v%s",xsdk_ver);
-
- Note: You may also want to use the COMPILER_DESC and PLATFORM_DESC macros
- (new in v3.11) to describe the compiler used and the target platform.
-
-6. Include xsdk.c, xsdkwrap.c and xsdkvars.c in your project or "make" file.
-
-7. If you are using a 16-bit compiler, you will need to include mswaits.obj
- (for small memory models) or mswaitl.obj (for large memory models) in your
- project's linked library/object list. This is the millisecond wait/
- time-slice surrender library used by the 16-bit DOS version of Synchronet.
-
-8. Compile and link your project.
-
-
-Configuring Synchronet To Run Your Program
-==========================================
-
-Make sure you have the program configured (in SCFG) to create the XTRN.DAT
-drop file in the Node Directory.
-
-16-bit Programs
----------------
-16-bit XSDK programs must have "Intercept I/O Interrupts" set to "Yes".
-
-32-bit Programs
----------------
-32-bit XSDK programs are only supported by Synchronet version 3. To configure
-a 32-bit program with Synchronet v3.0b, add the program's base filename to the
-OS/2 program list in SCFG (this will be replaced with a toggle option in the
-extenral program configuration menu in the future).
-
-
-/* End of XSDK.TXT */
diff --git a/xtrn/sdk/xsdkdefs.h b/xtrn/sdk/xsdkdefs.h
deleted file mode 100644
index 539dc9313241adee10cef55629782294456ddbf6..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdkdefs.h
+++ /dev/null
@@ -1,348 +0,0 @@
-/* xsdkdefs.h */
-
-/* Synchronet XSDK constants, macros, and type definitions */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#ifndef _XSDKDEFS_H
-#define _XSDKDEFS_H
-
-/**********/
-/* Macros */
-/**********/
-
- /* Control characters */
-#define STX 0x02 /* Start of text ^B */
-#define ETX 0x03 /* End of text ^C */
-#define BS 0x08 /* Back space ^H */
-#define TAB 0x09 /* Horizontal tabulation ^I */
-#define LF 0x0a /* Line feed ^J */
-#define FF 0x0c /* Form feed ^L */
-#define CR 0x0d /* Carriage return ^M */
-#define ESC 0x1b /* Escape ^[ */
-#define SP 0x20 /* Space */
-
-
-#define DCD 0x8000 /* Data carrier detect bit in msr */
-
-#define TABSIZE 4 /* Tabs will expand to 4 chars upon input */
-
-#define SAVE_LINES 4 /* Maximum number of lines to save */
-#define LINE_BUFSIZE 512 /* Size of line output buffer */
-
-#define HIGH 8 /* High intensity attribute bit */
-
- /* user_misc bits */
-#define ANSI (1<<0) /* user has ANSI capability */
-#define COLOR (1<<1) /* user has monochrome ANSI display */
-#define RIP (1<<2) /* RIP compatible terminal detected */
-#define WIP (1<<3) /* WIP compatible terminal detected */
-
-#ifndef MAX_PATH
- #ifdef MAXPATHLEN
- #define MAX_PATH MAXPATHLEN /* clib.h */
- #elif defined PATH_MAX
- #define MAX_PATH PATH_MAX
- #elif defined _MAX_PATH
- #define MAX_PATH _MAX_PATH
- #else
- #define MAX_PATH 260
- #endif
-#endif
-
-#ifndef uchar /* Short-hand for unsigned data types */
-#define uchar unsigned char
-#endif
-#ifndef uint
-#define uint unsigned int
-#endif
-#ifndef ushort
-#define ushort unsigned short
-#endif
-#ifndef ulong
-#define ulong unsigned long
-#endif
-
- /* Valid bits for xsdk_mode */
-#define XSDK_MODE_NOCONSOLE (1<<0) /* No Local Console */
-
- /* Bits in 'mode' for getkey and getstr */
-#define K_UPPER (1<<0) /* Converts all letters to upper case */
-#define K_UPRLWR (1<<1) /* Upper/Lower case automatically */
-#define K_NUMBER (1<<2) /* Allow numbers only */
-#define K_WRAP (1<<3) /* Allows word wrap */
-#define K_MSG (1<<4) /* Allows ANSI, ^N ^A ^G */
-#define K_SPIN (1<<5) /* Spinning cursor (same as SPIN) */
-#define K_LINE (1<<6) /* Input line (inverse color) */
-#define K_EDIT (1<<7) /* Edit string passed */
-#define K_CHAT (1<<8) /* In chat multi-chat */
-#define K_NOCRLF (1<<9) /* Don't print CRLF after string input */
-#define K_ALPHA (1<<10) /* Only allow alphabetic characters */
-#define K_AUTODEL (1<<11) /* Auto-delete text (used with K_EDIT) */
-#define K_LOWPRIO (1<<12) /* Low priority getstr() operation */
-#define K_GETSTR (1<<13) /* getkey() called from getstr() */
-
- /* Miscellaneous Modem Settings (mdm_misc) */
-#define MDM_FLOWCTRL (1<<0) /* Use flow control with modem */
-#define MDM_STAYHIGH (1<<1) /* Stay at highest DTE rate */
-
-#define LOOP_NOPEN 50 /* Retries before file access denied */
-#define LOOP_NODEDAB 100 /* Retries on NODE.DAB locking/unlocking */
-
-#define MAX_NODES 250 /* Maximum number of nodes */
-
-enum { /* Node Status */
- NODE_WFC /* Waiting for Call */
- ,NODE_LOGON /* at logon prompt */
- ,NODE_NEWUSER /* New user applying */
- ,NODE_INUSE /* In Use */
- ,NODE_QUIET /* In Use - quiet mode */
- ,NODE_OFFLINE /* Offline */
- ,NODE_NETTING /* Networking */
- ,NODE_EVENT_WAITING /* Waiting for all nodes to be inactive */
- ,NODE_EVENT_RUNNING /* Running an external event */
- ,NODE_EVENT_LIMBO /* Allowing another node to run an event */
- };
-
- /* Bit values for node.misc */
-#define NODE_ANON (1<<0) /* Anonymous User */
-#define NODE_LOCK (1<<1) /* Locked for sysops only */
-#define NODE_INTR (1<<2) /* Interrupted - hang up */
-#define NODE_MSGW (1<<3) /* Message is waiting */
-#define NODE_POFF (1<<4) /* Page disabled */
-#define NODE_AOFF (1<<5) /* Activity Alert disabled */
-#define NODE_UDAT (1<<6) /* User data has been updated */
-#define NODE_RRUN (1<<7) /* Re-run this node when log off */
-#define NODE_EVENT (1<<8) /* Must run node event after log off */
-#define NODE_DOWN (1<<9) /* Down this node after logoff */
-#define NODE_RPCHT (1<<10) /* Reset private chat */
-#define NODE_NMSG (1<<11) /* Node message waiting (new way) */
-
-
-enum { /* Node Action */
- NODE_MAIN /* Main Prompt */
- ,NODE_RMSG /* Reading Messages */
- ,NODE_RMAL /* Reading Mail */
- ,NODE_SMAL /* Sending Mail */
- ,NODE_RTXT /* Reading G-Files */
- ,NODE_RSML /* Reading Sent Mail */
- ,NODE_PMSG /* Posting Message */
- ,NODE_AMSG /* Auto-message */
- ,NODE_XTRN /* Running External Program */
- ,NODE_DFLT /* Main Defaults Section */
- ,NODE_XFER /* Transfer Prompt */
- ,NODE_DLNG /* Downloading File */
- ,NODE_ULNG /* Uploading File */
- ,NODE_BXFR /* Bidirectional Transfer */
- ,NODE_LFIL /* Listing Files */
- ,NODE_LOGN /* Logging on */
- ,NODE_LCHT /* In Local Chat with Sysop */
- ,NODE_MCHT /* In Multi-Chat with Other Nodes */
- ,NODE_GCHT /* In Local Chat with Guru */
- ,NODE_CHAT /* In Chat Section */
- ,NODE_SYSP /* Sysop Activity */
- ,NODE_TQWK /* Transferring QWK packet */
- ,NODE_PCHT /* Private node-to-node chat */
- ,NODE_PAGE /* Paging node for Private Chat */
- ,NODE_RFSD /* Retrieving file from sequential dev */
- };
-
- /* Different bits in node_misc */
-#define NM_ANSALARM (1<<0) /* Alarm locally on answer */
-#define NM_WFCSCRN (1<<1) /* Wait for call screen */
-#define NM_WFCMSGS (1<<2) /* Include total messages/files on WFC */
-#define NM_LCL_EDIT (1<<3) /* Use local editor to create messages */
-#define NM_EMSOVL (1<<4) /* Use expanded memory of overlays */
-#define NM_WINOS2 (1<<5) /* Use Windows/OS2 time slice API call */
-#define NM_INT28 (1<<6) /* Make int 28 DOS idle calls */
-#define NM_NODV (1<<7) /* Don't detect and use DESQview API */
-#define NM_NO_NUM (1<<8) /* Don't allow logons by user number */
-#define NM_LOGON_R (1<<9) /* Allow logons by user real name */
-#define NM_LOGON_P (1<<10) /* Secure logons (always ask for password) */
-#define NM_NO_LKBRD (1<<11) /* No local keyboard (at all) */
-#define NM_SYSPW (1<<12) /* Protect WFC keys and Alt keys with SY: */
-#define NM_NO_INACT (1<<13) /* No local inactivity alert/logoff */
-#define NM_NOBEEP (1<<14) /* Don't beep locally */
-#define NM_LOWPRIO (1<<15) /* Always use low priority input */
-#define NM_7BITONLY (1L<<16) /* Except 7-bit input only (E71 terminals) */
-
-#if !defined(__COLORS)
-#define __COLORS
-
- enum COLORS {
- BLACK, /* dark colors */
- BLUE,
- GREEN,
- CYAN,
- RED,
- MAGENTA,
- BROWN,
- LIGHTGRAY,
- DARKGRAY, /* light colors */
- LIGHTBLUE,
- LIGHTGREEN,
- LIGHTCYAN,
- LIGHTRED,
- LIGHTMAGENTA,
- YELLOW,
- WHITE
- };
-#endif
-
-#ifndef BLINK
-#define BLINK 128 /* blink bit */
-#endif
-
-#ifdef __WATCOMC__
-
-
- #define ffblk find_t
- #define findfirst(x,y,z) _dos_findfirst(x,z,y)
- #define findnext(x) _dos_findnext(x)
- #pragma aux mswait "_*"
-#endif
-
-/* Windows Types */
-#ifndef BYTE
-#define BYTE uchar
-#endif
-#ifndef WORD
-#define WORD ushort
-#endif
-#ifndef DWORD
-#define DWORD ulong
-#endif
-#ifndef BOOL
-#define BOOL int
-#endif
-#ifndef TRUE
-#define TRUE 1
-#define FALSE 0
-#endif
-#ifndef HANDLE
-#define HANDLE void*
-#endif
-
-/****************************************************************************/
-/* MALLOC/FREE Macros for various compilers and environments */
-/* MALLOC is used for allocations of 64k or less */
-/* FREE is used to free buffers allocated with MALLOC */
-/* LMALLOC is used for allocations of possibly larger than 64k */
-/* LFREE is used to free buffers allocated with LMALLOC */
-/* REALLOC is used to re-size a previously MALLOCed or LMALLOCed buffer */
-/* FAR16 is used to create a far (32-bit) pointer in 16-bit compilers */
-/* HUGE16 is used to create a huge (32-bit) pointer in 16-bit compilers */
-/****************************************************************************/
-#if defined(__COMPACT__) || defined(__LARGE__) || defined(__HUGE__)
- #define __16BIT__
- #define HUGE16 huge
- #define FAR16 far
- #if defined(__TURBOC__)
- #define REALLOC(x,y) farrealloc(x,y)
- #define LMALLOC(x) farmalloc(x)
- #define MALLOC(x) farmalloc(x)
- #define LFREE(x) farfree(x)
- #define FREE(x) farfree(x)
- #elif defined(__WATCOMC__)
- #define REALLOC realloc
- #define LMALLOC(x) halloc(x,1) /* far heap, but slow */
- #define MALLOC malloc /* far heap, but 64k max */
- #define LFREE hfree
- #define FREE free
- #else /* Other 16-bit Compiler */
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
- #endif
-#else /* 32-bit Compiler or Small Memory Model */
- #define HUGE16
- #define FAR16
- #define REALLOC realloc
- #define LMALLOC malloc
- #define MALLOC malloc
- #define LFREE free
- #define FREE free
-#endif
-
-#define KEY_BUFSIZE 256
-
-#define CRLF { outchar(CR); outchar(LF); }
-
-#define SYSOP (user_level>=sysop_level) /* Is current user sysop t/f macro */
-
-#define bgotoxy(x,y) bprintf("\x1b[%d;%dH",y,x) /* place the cursor at */
- /* location x,y via ANSI */
-
-#define SAVELINE { slatr[slcnt]=latr; \
- sprintf(slbuf[slcnt<SAVE_LINES ? slcnt++ : slcnt] \
- ,"%.*s",lbuflen,lbuf); \
- lbuflen=0; }
-#define RESTORELINE { lbuflen=0; attr(slatr[--slcnt]); \
- bputs(slbuf[slcnt]); }
-
-#define pause bpause /* backwards compatibility with pre-3.1 XSDK */
-
-/************/
-/* Typedefs */
-/************/
-
-#ifdef _WIN32 /* necessary for compatibility with SBBS v2 */
-#pragma pack(push)
-#pragma pack(1)
-#endif
-
-#ifdef __GNUC__
- #define _PACK __attribute__ ((packed))
-#else
- #define _PACK
-#endif
-
-typedef struct _PACK { /* Node information kept in NODE.DAB */
- uchar status, /* Current Status of Node */
- errors, /* Number of Critical Errors */
- action; /* Action User is doing on Node */
- ushort useron, /* User on Node */
- connection, /* Connection rate of Node */
- misc, /* Miscellaneous bits for node */
- aux; /* Auxillary word for node */
- ulong extaux; /* Extended aux dword for node */
- } node_t;
-
-#ifdef _WIN32
-#pragma pack(pop) /* original packing */
-#endif
-
-#endif /* Don't add anything after this endif */
diff --git a/xtrn/sdk/xsdkinet.h b/xtrn/sdk/xsdkinet.h
deleted file mode 100644
index 5e5682e30161e43bd29010b51b6c546d76b4b740..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdkinet.h
+++ /dev/null
@@ -1,109 +0,0 @@
-/* xsdkinet.h */
-
-/* Synchronet platform-specific Internet stuff */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#ifndef _XSDKINET_H
-#define _XSDKINET_H
-
-/***************/
-/* OS-specific */
-/***************/
-#if defined _WIN32 || defined __OS2__ /* Use WinSock */
-
-#include <winsock.h> /* socket/bind/etc. */
-
-/* Let's agree on a standard WinSock symbol here, people */
-#ifndef _WINSOCKAPI_
-#define _WINSOCKAPI_
-#endif
-
-#elif defined __unix__ /* Unix-variant */
-
-#include <sys/types.h> /* u_intXX_t */
-
-#include <netdb.h> /* gethostbyname */
-#include <netinet/in.h> /* IPPROTO_IP */
-#include <sys/socket.h> /* socket/bind/etc. */
-#include <sys/ioctl.h> /* FIONBIO */
-#include <sys/time.h> /* struct timeval */
-#include <arpa/inet.h> /* inet_ntoa */
-#include <unistd.h> /* close */
-#include <errno.h> /* errno */
-
-#endif
-
-/**********************************/
-/* Socket Implementation-specific */
-/**********************************/
-#ifdef _WINSOCKAPI_
-
-#undef EINTR
-#define EINTR WSAEINTR
-#undef ENOTSOCK
-#define ENOTSOCK WSAENOTSOCK
-#undef EWOULDBLOCK
-#define EWOULDBLOCK WSAEWOULDBLOCK
-#undef ECONNRESET
-#define ECONNRESET WSAECONNRESET
-#undef ECONNABORTED
-#define ECONNABORTED WSAECONNABORTED
-
-#define s_addr S_un.S_addr
-
-#define socklen_t int
-
-#define ERROR_VALUE WSAGetLastError()
-
-#else /* BSD sockets */
-
-/* WinSock-isms */
-#define HOSTENT struct hostent
-#define SOCKADDR_IN struct sockaddr_in
-#define LINGER struct linger
-#define SOCKET int
-#define SOCKET_ERROR -1
-#define INVALID_SOCKET (SOCKET)(~0)
-#define closesocket close
-#define ioctlsocket ioctl
-#define ERROR_VALUE errno
-
-#endif /* __unix__ */
-
-#ifndef SHUT_RDWR
-#define SHUT_RDWR 2 /* for shutdown() */
-#endif
-
-#endif /* Don't add anything after this line */
diff --git a/xtrn/sdk/xsdkvars.c b/xtrn/sdk/xsdkvars.c
deleted file mode 100644
index 9ffcccfadb1248a22166726a3199cbe6a6aede1b..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdkvars.c
+++ /dev/null
@@ -1,144 +0,0 @@
-/* xsdkvars.c */
-
-/* Synchronet XSDK global variables */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#include <time.h>
-#include <stdio.h>
-#include "xsdkinet.h" /* SOCKET */
-#include "xsdkdefs.h"
-
-#ifndef GLOBAL
-#define GLOBAL
-#endif
-
-#ifdef __cplusplus
- extern "C" {
-#endif
-
-/*******************************/
-/* Global Variable Definitions */
-/*******************************/
-GLOBAL char lncntr; /* Line counter */
-GLOBAL char tos; /* Top of screen */
-GLOBAL uchar curatr; /* Current attribute */
-GLOBAL char mnehigh, /* Colors for mnemonics */
- mnelow;
-GLOBAL uchar sys_nodes, /* Number of nodes on system */
- node_num; /* Current node number */
-GLOBAL ulong node_misc; /* Misc. node toggles */
-GLOBAL char sys_name[41], /* System name */
- sys_id[9], /* System QWK ID */
- sys_op[41], /* System operator name */
- sys_guru[41]; /* System guru name */
-GLOBAL ushort timeleft; /* Time left in seconds */
-GLOBAL char ctrl_dir[128], /* SBBS dirs */
- data_dir[128],
- node_dir[128],
- exec_dir[128],
- text_dir[128],
- temp_dir[128];
-GLOBAL uint user_number; /* User's number */
-GLOBAL char user_name[45], /* User's name/alias */
- user_misc, /* User's misc settings */
- user_rows, /* User's rows per screen */
- user_level, /* User's main level */
- user_flags1[27], /* User's flag set #1 */
- user_flags2[27], /* User's flag set #2 */
- user_flags3[27], /* User's flag set #3 */
- user_flags4[27], /* User's flag set #4 */
- user_exempt[27], /* User's exemptions */
- user_rest[27], /* User's restrictions */
- user_sex, /* User's sex */
- user_birth[9], /* User's birthday */
- user_phone[13], /* User's phone number */
- user_address[31], /* User's address */
- user_location[31], /* User's location */
- user_zipcode[11], /* User's zip/postal code */
- user_realname[26]; /* User's real name or company name */
-GLOBAL ulong user_cdt, /* User's credits */
- user_dce; /* User's DCE rate */
-GLOBAL time_t user_expire; /* User's expiration date */
-
- /* COM port registers: */
-GLOBAL uint com_base, /* COM base address */
- com_irq; /* irq line number */
-GLOBAL ulong com_rate; /* DTE rate in bps */
-GLOBAL char com_port; /* Number of COM port */
-
- /* Modem command strings */
-GLOBAL char mdm_init[64], /* Initialization */
- mdm_spec[64], /* Special Initialization */
- mdm_term[64], /* Terminal Initialization String */
- mdm_dial[64], /* Dial */
- mdm_offh[64], /* Off hook */
- mdm_answ[64], /* Answer */
- mdm_misc; /* Misc bits used for flags */
-
-GLOBAL time_t starttime; /* Start time-stamp */
-GLOBAL char wordwrap[81]; /* Wordwrap buffer */
-GLOBAL uint sec_warn, /* Seconds till inactivity warning */
- sec_timeout; /* Seconds till disconnect */
-GLOBAL char timeleft_warn; /* Minutes left warning */
-
-GLOBAL int nodefile; /* File descriptor for NODE.DAB */
-
-GLOBAL char slbuf[SAVE_LINES][LINE_BUFSIZE+1]; /* Saved for redisplay */
-GLOBAL char slatr[SAVE_LINES]; /* Starting attribute of each line */
-GLOBAL char slcnt; /* Number of lines currently saved */
-GLOBAL char lbuf[LINE_BUFSIZE];/* Temp storage for each line output */
-GLOBAL int lbuflen; /* Number of characters in line buffer */
-GLOBAL char latr; /* Starting attribute of line buffer */
-GLOBAL uint inDV; /* DESQview version if running under DV */
-GLOBAL int keybuftop,keybufbot; /* Keyboard input buffer pointers */
-GLOBAL char keybuf[KEY_BUFSIZE]; /* Keyboard input buffer */
-GLOBAL uint FAR16 *msr; /* Last modem status register contents */
-GLOBAL char **xtrn; /* List of external program names */
-GLOBAL uint total_xtrns; /* Total number of external programs */
-GLOBAL uchar lastnodemsg; /* Last node to send a message to */
-GLOBAL uchar name_len; /* Length of name field in NAME.DAT */
-GLOBAL char aborted; /* Aborted flag - if ctrl-c hit */
-GLOBAL char sysop_level; /* Sysop Level */
-GLOBAL FILE *con_fp; /* Console file pointer (stdout/stderr) */
-
-#ifndef __16BIT__ /* Sockets */
-
-GLOBAL SOCKET client_socket;
-
-#endif
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/xtrn/sdk/xsdkwrap.c b/xtrn/sdk/xsdkwrap.c
deleted file mode 100644
index efb4eae58a3364f38c9899073756e0fa8770b1c7..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdkwrap.c
+++ /dev/null
@@ -1,539 +0,0 @@
-/* xsdkwrap.c */
-
-/* Synchronet XSDK system-call wrappers (compiler & platform portability) */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2003 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-/* OS-specific */
-#if defined(_WIN32)
-
- #include <windows.h> /* DWORD */
-
-#elif defined(__unix__)
-
- #include <glob.h> /* glob() wildcard matching */
- #include <string.h> /* strlen() */
- #include <unistd.h> /* getpid() */
- #include <fcntl.h> /* fcntl() file/record locking */
- #include <stdlib.h>
- #include <unistd.h>
- #include <termios.h>
- #if defined(__FreeBSD__)
- #include <sys/kbio.h>
- #elif defined(__Linux__)
- #include <sys/kd.h>
- #endif
- #include <sys/time.h>
- #include <sys/types.h>
- #include <signal.h>
- #include <errno.h>
-
-#endif
-
-/* ANSI */
-#include <stdarg.h> /* va_list */
-#include <sys/types.h> /* _dev_t */
-#include <sys/stat.h> /* struct stat */
-
-/* XSDK-specific */
-#include "xsdkdefs.h" /* MAX_PATH */
-#include "xsdkwrap.h" /* Verify prototypes */
-
-#ifdef _WIN32
-#define stat(f,s) _stat(f,s)
-#define STAT struct _stat
-#else
-#define STAT struct stat
-#endif
-
-#ifdef __unix__
-
-/****************************************************************************/
-/* Wrapper for Win32 create/begin thread function */
-/* Uses POSIX threads */
-/****************************************************************************/
-#ifdef _POSIX_THREADS
-ulong _beginthread(void( *start_address )( void * )
- ,unsigned stack_size, void *arglist)
-{
- pthread_t thread;
- pthread_attr_t attr;
-
- pthread_attr_init(&attr); /* initialize attribute structure */
-
- /* set thread attributes to PTHREAD_CREATE_DETACHED which will ensure
- that thread resources are freed on exit() */
- pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);
-
- if(pthread_create(&thread
- ,&attr /* default attributes */
- /* POSIX defines this arg as "void *(*start_address)" */
- ,(void *) start_address
- ,arglist)==0)
- return((int) thread /* thread handle */);
-
- return(-1); /* error */
-}
-#else
-
-#error "Need _beginthread implementation for non-POSIX thread library."
-
-#endif
-
-/****************************************************************************/
-/* Convert ASCIIZ string to upper case */
-/****************************************************************************/
-char* strupr(char* str)
-{
- char* p=str;
-
- while(*p) {
- *p=toupper(*p);
- p++;
- }
- return(str);
-}
-/****************************************************************************/
-/* Convert ASCIIZ string to lower case */
-/****************************************************************************/
-char* strlwr(char* str)
-{
- char* p=str;
-
- while(*p) {
- *p=tolower(*p);
- p++;
- }
- return(str);
-}
-
-/****************************************************************************/
-/* Reverse chars in string */
-/****************************************************************************/
-char* strrev(char* str)
-{
- char t, *i=str, *j=str+strlen(str);
-
- while (i<j) {
- t=*i; *(i++)=*(--j); *j=t;
- }
- return str;
-}
-
-/* This is a bit of a hack, but it works */
-char* _fullpath(char* absPath, const char* relPath, size_t maxLength)
-{
- char *curdir = (char *) malloc(MAX_PATH+1);
-
- if(curdir == NULL) {
- strcpy(absPath,relPath);
- return(absPath);
- }
-
- getcwd(curdir, MAX_PATH);
- if(chdir(relPath)!=0) /* error, invalid dir */
- strcpy(absPath,relPath);
- else {
- getcwd(absPath, maxLength);
- chdir(curdir);
- }
- free(curdir);
-
- return absPath;
-}
-
-/***************************************/
-/* Console I/O Stuff (by Casey Martin) */
-/***************************************/
-
-static struct termios current; // our current term settings
-static struct termios original; // old termios settings
-static struct timeval timeout = {0, 0}; // passed in select() call
-static fd_set inp; // ditto
-static int beensetup = 0; // has _termios_setup() been called?
-
-
-/* Resets the termios to its previous state */
-void _termios_reset(void)
-{
- tcsetattr(0, TCSANOW, &original);
-}
-
-/************************************************
- This pair of functions handles Ctrl-Z presses
-************************************************/
-
-void _sighandler_stop(int sig)
-{
- // clean up the terminal
- _termios_reset();
-
- // ... and stop
- kill(getpid(), SIGSTOP);
-}
-
-void _sighandler_cont(int sig)
-{
- // restore terminal
- tcsetattr(0, TCSANOW, ¤t);
-}
-
-
-/* Prepares termios for non-blocking action */
-void _termios_setup(void)
-{
- beensetup = 1;
-
- tcgetattr(0, &original);
-
- memcpy(¤t, &original, sizeof(struct termios));
- current.c_cc[VMIN] = 1; // read() will return with one char
- current.c_cc[VTIME] = 0; // read() blocks forever
- current.c_lflag &= ~ICANON; // character mode
- current.c_lflag &= ~ECHO; // turn off echoing
- tcsetattr(0, TCSANOW, ¤t);
-
- // Let's install an exit function, also. This way, we can reset
- // the termios silently
- atexit(_termios_reset);
-
- // install the Ctrl-Z handler
- signal(SIGSTOP, _sighandler_stop);
- signal(SIGCONT, _sighandler_cont);
-}
-
-
-int kbhit(void)
-{
- if(!isatty(0))
- return(0);
-
- // set up select() args
- FD_ZERO(&inp);
- FD_SET(0, &inp);
-
- return select(1, &inp, NULL, NULL, &timeout);
-}
-
-int getch(void)
-{
- char c;
-
- if (!beensetup)
- // I hate to test for this every time, but this shouldn't be
- // called that often anyway...
- _termios_setup();
-
- // get a char out of stdin
- read(0, &c, 1);
-
- return c;
-}
-
-#endif // __unix__
-
-/**************/
-/* File Stuff */
-/**************/
-
-/****************************************************************************/
-/* Returns the length of the file in 'filename' */
-/****************************************************************************/
-long flength(char *filename)
-{
- STAT st;
-
- if(stat(filename, &st)!=0)
- return(-1L);
-
- return(st.st_size);
-}
-
-/****************************************************************************/
-/* Checks the file system for the existence of one or more files. */
-/* Returns TRUE if it exists, FALSE if it doesn't. */
-/* 'filespec' may contain wildcards! */
-/****************************************************************************/
-BOOL fexist(char *filespec)
-{
-#ifdef _WIN32
-
- long handle;
- struct _finddata_t f;
-
- if((handle=_findfirst(filespec,&f))==-1)
- return(FALSE);
-
- _findclose(handle);
-
- if(f.attrib&_A_SUBDIR)
- return(FALSE);
-
- return(TRUE);
-
-#elif defined(__unix__) /* portion by cmartin */
-
- glob_t g;
- int c;
- int l;
-
- // start the search
- glob(filespec, GLOB_MARK | GLOB_NOSORT, NULL, &g);
-
- if (!g.gl_pathc) {
- // no results
- globfree(&g);
- return FALSE;
- }
-
- // make sure it's not a directory
- c = g.gl_pathc;
- while (c--) {
- l = strlen(g.gl_pathv[c]);
- if (l && g.gl_pathv[c][l-1] != '/') {
- globfree(&g);
- return TRUE;
- }
- }
-
- globfree(&g);
- return FALSE;
-
-#else
-
-#warning "fexist() port needs to support wildcards!"
-
- return(FALSE);
-
-#endif
-}
-
-#if defined(__unix__)
-
-/****************************************************************************/
-/* Returns the length of the file in 'fd' */
-/****************************************************************************/
-long filelength(int fd)
-{
- STAT st;
-
- if(fstat(fd, &st)!=0)
- return(-1L);
-
- return(st.st_size);
-}
-
-/* Sets a lock on a portion of a file */
-int lock(int fd, long pos, long len)
-{
- #if defined(F_SANERDLCKNO) || !defined(BSD)
- struct flock alock;
-
- #ifndef F_SANEWRLCKNO
- int flags;
- if((flags=fcntl(fd,F_GETFL))==-1)
- return -1;
-
- if(flags==O_RDONLY)
- alock.l_type = F_RDLCK; /* set read lock to prevent writes */
- else
- alock.l_type = F_WRLCK; /* set write lock to prevent all access */
- #else
- alock.l_type = F_SANEWRLCKNO;
- #endif
- alock.l_whence = L_SET; /* SEEK_SET */
- alock.l_start = pos;
- alock.l_len = (int)len;
-
- if(fcntl(fd, F_SETLK, &alock)==-1 && errno != EINVAL)
- return(-1);
- #endif
-
- #if !defined(F_SANEWRLCKNO) && !defined(__QNX__)
- /* use flock (doesn't work over NFS) */
- if(flock(fd,LOCK_EX|LOCK_NB)!=0 && errno != EOPNOTSUPP)
- return(-1);
- #endif
-
- return(0);
-}
-
-/* Removes a lock from a file record */
-int unlock(int fd, long pos, long len)
-{
-
-#if defined(F_SANEUNLCK) || !defined(BSD)
- struct flock alock;
-#ifdef F_SANEUNLCK
- alock.l_type = F_SANEUNLCK; /* remove the lock */
-#else
- alock.l_type = F_UNLCK; /* remove the lock */
-#endif
- alock.l_whence = L_SET;
- alock.l_start = pos;
- alock.l_len = (int)len;
- if(fcntl(fd, F_SETLK, &alock)==-1 && errno != EINVAL)
- return(-1);
-#endif
-
-#if !defined(F_SANEUNLCK) && !defined(__QNX__)
- /* use flock (doesn't work over NFS) */
- if(flock(fd,LOCK_UN|LOCK_NB)!=0 && errno != EOPNOTSUPP)
- return(-1);
-#endif
-
- return(0);
-}
-
-/* Opens a file in specified sharing (file-locking) mode */
-#if !defined(__QNX__)
-int sopen(const char *fn, int access, int share, ...)
-{
- int pmode=S_IREAD;
- int fd;
-#ifndef F_SANEWRLCKNO
- int flock_op=LOCK_NB; /* non-blocking */
-#endif
-#if defined(F_SANEWRLCKNO) || !defined(BSD)
- struct flock alock;
-#endif
- va_list ap;
-
- if(access&O_CREAT) {
- va_start(ap,share);
- pmode = va_arg(ap,unsigned int);
- va_end(ap);
- }
-
- if ((fd = open(fn, access, pmode)) < 0)
- return -1;
-
- if (share == SH_DENYNO) /* no lock needed */
- return fd;
-#if defined(F_SANEWRLCKNO) || !defined(BSD)
- /* use fcntl (doesn't work correctly with threads) */
- alock.l_type = share;
- alock.l_whence = L_SET;
- alock.l_start = 0;
- alock.l_len = 0; /* lock to EOF */
-
- if(fcntl(fd, F_SETLK, &alock)==-1 && errno != EINVAL) { /* EINVAL means the file does not support locking */
- close(fd);
- return -1;
- }
-#endif
-
-#ifndef F_SANEWRLCKNO
- /* use flock (doesn't work over NFS) */
- if(share==SH_DENYRW)
- flock_op|=LOCK_EX;
- else /* SH_DENYWR */
- flock_op|=LOCK_SH;
- if(flock(fd,flock_op)!=0 && errno != EOPNOTSUPP) { /* That object doesn't do locks */
- if(errno==EWOULDBLOCK)
- errno=EAGAIN;
- close(fd);
- return(-1);
- }
-#endif
-
- return fd;
-}
-#endif /* !QNX */
-
-#elif defined _MSC_VER || defined __MINGW32__
-
-#include <io.h> /* tell */
-#include <stdio.h> /* SEEK_SET */
-#include <sys/locking.h> /* _locking */
-
-/* Fix MinGW locking.h typo */
-#if defined LK_UNLOCK && !defined LK_UNLCK
- #define LK_UNLCK LK_UNLOCK
-#endif
-
-int lock(int file, long offset, int size)
-{
- int i;
- long pos;
-
- pos=tell(file);
- if(offset!=pos)
- lseek(file, offset, SEEK_SET);
- i=_locking(file,LK_NBLCK,size);
- if(offset!=pos)
- lseek(file, pos, SEEK_SET);
- return(i);
-}
-
-int unlock(int file, long offset, int size)
-{
- int i;
- long pos;
-
- pos=tell(file);
- if(offset!=pos)
- lseek(file, offset, SEEK_SET);
- i=_locking(file,LK_UNLCK,size);
- if(offset!=pos)
- lseek(file, pos, SEEK_SET);
- return(i);
-}
-
-#endif /* !Unix && (MSVC || MinGW) */
-
-/****************************************************************************/
-/* Return ASCII string representation of ulong */
-/* There may be a native GNU C Library function to this... */
-/****************************************************************************/
-#if !defined _MSC_VER && !defined __BORLANDC__
-char* ultoa(unsigned long val, char* str, int radix)
-{
- switch(radix) {
- case 8:
- sprintf(str,"%lo",val);
- break;
- case 10:
- sprintf(str,"%lu",val);
- break;
- case 16:
- sprintf(str,"%lx",val);
- break;
- default:
- sprintf(str,"bad radix: %d",radix);
- break;
- }
- return(str);
-}
-#endif
diff --git a/xtrn/sdk/xsdkwrap.h b/xtrn/sdk/xsdkwrap.h
deleted file mode 100644
index 035fa1d29307d885b18597f63c87894d830ce06a..0000000000000000000000000000000000000000
--- a/xtrn/sdk/xsdkwrap.h
+++ /dev/null
@@ -1,260 +0,0 @@
-/* xsdkwrap.h */
-
-/* Synchronet XSDK system-call wrappers */
-
-/* $Id$ */
-
-/****************************************************************************
- * @format.tab-size 4 (Plain Text/Source Code File Header) *
- * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
- * *
- * Copyright 2003 Rob Swindell - http://www.synchro.net/copyright.html *
- * *
- * This library is free software; you can redistribute it and/or *
- * modify it under the terms of the GNU Lesser General Public License *
- * as published by the Free Software Foundation; either version 2 *
- * of the License, or (at your option) any later version. *
- * See the GNU Lesser General Public License for more details: lgpl.txt or *
- * http://www.fsf.org/copyleft/lesser.html *
- * *
- * Anonymous FTP access to the most recent released source is available at *
- * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
- * *
- * Anonymous CVS access to the development source and modification history *
- * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
- * (just hit return, no password is necessary) *
- * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout xtrn *
- * *
- * For Synchronet coding style and modification guidelines, see *
- * http://www.synchro.net/source.html *
- * *
- * You are encouraged to submit any modifications (preferably in Unix diff *
- * format) via e-mail to mods@synchro.net *
- * *
- * Note: If this box doesn't appear square, then you need to fix your tabs. *
- ****************************************************************************/
-
-#ifndef _XSDKWRAP_H
-#define _XSDKWRAP_H
-
-/*********************/
-/* Compiler-specific */
-/*********************/
-
-/* Compiler Description */
-#if defined(__BORLANDC__)
-
- #define COMPILER_DESC(str) sprintf(str,"BCC %X.%02X" \
- ,__BORLANDC__>>8,__BORLANDC__&0xff);
-
-#elif defined(_MSC_VER)
-
- #define COMPILER_DESC(str) sprintf(str,"MSC %u", _MSC_VER);
-
-/***
-#elif defined(__GNUC__) && defined(__GLIBC__)
-
- #define COMPILER_DESC(str) sprintf(str,"GCC %u.%02u (GLIBC %u.%u)" \
- ,__GNUC__,__GNUC_MINOR__,__GLIBC__,__GLIBC_MINOR__);
-***/
-
-#elif defined(__GNUC__)
-
- #define COMPILER_DESC(str) sprintf(str,"GCC %u.%02u" \
- ,__GNUC__,__GNUC_MINOR__);
-
-#else /* Unknown compiler */
-
- #define COMPILER_DESC(str) strcpy(str,"UNKNOWN COMPILER");
-
-#endif
-
-#if defined(__unix__)
- #define BACKSLASH '/'
-#else /* MS-DOS based OS */
- #define BACKSLASH '\\'
-#endif
-
-/* Target Platform Description */
-#if defined(_WIN32)
- #define PLATFORM_DESC "Win32"
-#elif defined(__OS2__)
- #define PLATFORM_DESC "OS/2"
-#elif defined(__MSDOS__)
- #define PLATFORM_DESC "DOS"
-#elif defined(__linux__)
- #define PLATFORM_DESC "Linux"
-#elif defined(__FreeBSD__)
- #define PLATFORM_DESC "FreeBSD"
-#elif defined(__OpenBSD__)
- #define PLATFORM_DESC "OpenBSD"
-#elif defined(__NetBSD__)
- #define PLATFORM_DESC "NetBSD"
-#elif defined(__QNX__)
- #define PLATFORM_DESC "QNX"
-#elif defined(BSD)
- #define PLATFORM_DESC "BSD"
-#elif defined(__unix__)
- #define PLATFORM_DESC "Unix"
-#else
- #warning "Need to describe target platform"
- #define PLATFORM_DESC "UNKNOWN"
-#endif
-
-#if defined(__unix__)
-
- int kbhit(void);
- int getch(void);
- #define ungetch(x) /* !need a wrapper for this */
-
-#else /* DOS-Based */
-
- #include <conio.h>
-
-#endif
-
-#if defined(_WIN32)
-
- #include <io.h> /* _sopen */
- #include <sys/stat.h> /* S_IREAD */
- #include <fcntl.h> /* O_BINARY */
- #include <windows.h> /* OF_SHARE_ */
-
- #ifndef SH_DENYNO
- #define SH_DENYNO OF_SHARE_DENY_NONE
- #define SH_DENYWR OF_SHARE_DENY_WRITE
- #define SH_DENYRW OF_SHARE_EXCLUSIVE
- #endif
- #ifndef O_DENYNONE
- #define O_DENYNONE SH_DENYNO
- #endif
-
-#elif defined(__unix__)
-
- #include <fcntl.h>
-
- #define O_BINARY 0 /* all files in binary mode on Unix */
- #define O_DENYNONE (1<<31) /* req'd for Baja/nopen compatibility */
-
-#ifndef __QNX__
- #define SH_DENYNO 2 // no locks
- #define SH_DENYRW F_WRLCK // exclusive lock
- #define SH_DENYWR F_RDLCK // shareable lock
-#endif
-
- #define stricmp(x,y) strcasecmp(x,y)
- #define strnicmp(x,y,z) strncasecmp(x,y,z)
- #define chsize(fd,size) ftruncate(fd,size)
-
-#endif
-
-#ifdef __unix__
-
- #include <pthread.h> /* POSIX threads and mutexes */
- #include <semaphore.h> /* POSIX semaphores */
- unsigned long _beginthread(void( *start_address )( void * )
- ,unsigned stack_size, void *arglist);
-
-#elif defined(_WIN32)
-
- #include <process.h> /* _beginthread() */
-
- /* POSIX semaphores */
- typedef HANDLE sem_t;
- #define sem_init(psem,ps,v) ResetEvent(*(psem))
- #define sem_wait(psem) WaitForSingleObject(*(psem),INFINITE)
- #define sem_post(psem) SetEvent(*(psem))
- #define sem_destroy(psem) CloseHandle(*(psem))
-
- /* POSIX mutexes */
- typedef HANDLE pthread_mutex_t;
- #define pthread_mutex_init(pmtx,v) *(pmtx)=CreateMutex(NULL,FALSE,NULL)
- #define pthread_mutex_lock(pmtx) WaitForSingleObject(*(pmtx),INFINITE)
- #define pthread_mutex_unlock(pmtx) ReleaseMutex(*(pmtx))
- #define pthread_mutex_destroy(pmtx) CloseHandle(*(pmtx))
-
-
-#elif defined(__MSDOS__)
-
- /* No semaphores */
-
-#else
-
- #warning "Need semaphore wrappers."
-
-#endif
-
-
-#if defined(_WIN32)
-
- #define mswait(x) Sleep(x)
-
-#elif defined(__OS2__)
-
- #define mswait(x) DosSleep(x)
-
-#elif defined(__unix__)
-
- #define mswait(x) usleep(x*1000)
- #define _mkdir(dir) mkdir(dir,0777)
- #define _rmdir(dir) rmdir(dir)
- #define tell(fd) lseek(fd,0,SEEK_CUR)
-
-#ifdef __QNX__
- #include <share.h>
- #define L_SET SEEK_SET
-#endif
-
- int sopen(const char *fn, int access, int share, ...);
- long filelength(int fd);
- char* strupr(char* str);
- char* strlwr(char* str);
-
- char* strrev(char* str);
- char* _fullpath(char* absPath, const char* relPath
- ,size_t maxLength);
-
-#elif defined(__MSDOS__)
-
- void mswait(int ms); /* Wait a specific number of milliseconds */
-
-#else /* Unsupported OS */
-
- #warning "Unsupported Target: Need some macros of function prototypes here."
-
-#endif
-
-#ifndef BOOL
- #define BOOL int
-#endif
-#ifndef TRUE
- #define TRUE 1
- #define FALSE 0
-#endif
-
-/**************/
-/* Prototypes */
-/**************/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#if !defined(__BORLANDC__)
- int lock(int fd, long pos, long len);
- int unlock(int fd, long pos, long len);
-#endif
-
-#if !defined(_MSC_VER) && !defined(__BORLANDC__)
- char* ultoa(unsigned long val, char* str, int radix);
-#endif
-
-BOOL fexist(char *filespec);
-long flength(char *filename);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* Don't add anything after this line */
diff --git a/xtrn/smm/adult.que b/xtrn/smm/adult.que
deleted file mode 100644
index dd10f2f4c89cbb22d1a74be1d85364ef45a134eb..0000000000000000000000000000000000000000
--- a/xtrn/smm/adult.que
+++ /dev/null
@@ -1,93 +0,0 @@
-20
-How old were you when you lost your virginity?
-9
-1
-I still have it
-Younger than 12
-Between 12 and 14
-Between 15 and 16
-Between 17 and 18
-Between 19 and 20
-Between 21 and 25
-Between 25 and 30
-Older than 30
-How many sexual partners have you had?
-8
-1
-None
-Between 1 and 5
-Between 6 and 10
-Between 11 and 20
-Between 21 and 30
-Between 31 and 50
-Between 51 and 100
-More than 100
-When engaged in a relationship, how often do you prefer to have sex?
-8
-1
-Never
-At least once a day
-Between 4 and 6 times a week
-Between 1 and 3 times a week
-Between 1 and 3 times a month
-Between 6 and 11 times a year
-Between 1 and 5 times a year
-Less than once a year
-What form of sexually transmitted disease protection do you prefer?
-5
-1
-I don't know
-Abstinence
-No protection
-Male condoms
-Female condoms
-Do you enjoy oral sex?
-5
-1
-I don't know
-No
-Yes, giving
-Yes, receiving
-Yes, both giving and receiving
-Do you enjoy anal sex?
-5
-1
-I don't know
-No
-Yes, giving
-Yes, receiving
-Yes, both giving and receiving
-How often do you masturbate?
-8
-1
-At least once a day
-Between 4 and 6 times a week
-Between 1 and 3 times a week
-Between 1 and 3 times a month
-Between 6 and 11 times a year
-Between 1 and 5 times a year
-Less than once a year
-Never
-Do you reach orgasm (alone or with a partner)?
-5
-1
-I don't know
-Yes, always
-Yes, occasionally
-Yes, rarely
-No
-Have you had sexual partners of your same gender?
-6
-1
-I don't know
-Yes, always
-Yes, occasionally
-Yes, rarely
-No, but I'm curious
-No, never
-Do you shave your pubic area?
-3
-1
-Yes, all of it
-Yes, some of it
-No
diff --git a/xtrn/smm/appear.que b/xtrn/smm/appear.que
deleted file mode 100644
index b7b1b7ea02a51d80816883dc50d08d9f84bed505..0000000000000000000000000000000000000000
--- a/xtrn/smm/appear.que
+++ /dev/null
@@ -1,119 +0,0 @@
-8
-Do you wear any of the following?
-16
-16
-Eye glasses
-Partial beard (goatee, five o'clock shadow, etc.)
-Full beard
-Mustache
-Side burns
-Earring(s)
-Make-up
-Body piercing (nose, tongue, naval, eyebrow, etc.)
-Visible tatoos
-Covered tatoos
-Unnaturally colored/bleached hair (blue, purple, pink, etc.)
-Brades or dreds
-Pony tail
-Long fingernails
-Painted fingernails
-None of the above
-Larger than average or smaller than average attributes?
-16
-8
-Small eyes
-Large eyes
-Small ears
-Large ears
-Small nose
-Large nose
-Small breasts
-Large breasts
-Large arms
-Large legs
-Large hips/buttocks
-Thin-lips
-Thick-lips
-Thin eyebrows
-Thick eyebrows
-None of the above
-Do you have a sun-tan?
-5
-1
-No, I'm naturally dark
-No, but I will this summer
-No, I don't try to tan
-No, I always burn
-Yes
-Your (natural) complexion?
-9
-3
-Very dark
-Medium dark (olive)
-Light dark
-White
-Whiter than white (alabaster)
-Sparse freckles
-Dense freckles
-Mild acne
-Cystic acne
-Your hair (on your head)?
-16
-5
-Gone (bald)
-Thin (balding)
-Thinner than average
-Average thickness
-Thicker than average
-Feathered
-All one length
-Curly
-Wavy
-Straight
-Partially shaved
-Completely shaved
-Short length
-Medium length
-Long length
-Very long length
-Your teeth?
-11
-4
-Very white
-Average whiteness
-Slightly stained (smoke, coffee, etc.)
-Very stained (smoke, coffee, etc.)
-Very straight
-Average straightness
-Slightly crooked
-Very crooked
-Visible missing teeth
-Visible caps (gold or silver)
-Visible braces
-Your build?
-6
-1
-Thin, wirey
-Thin, but toned
-Average
-Chunky
-Stocky
-Muscle-bound
-Physical disabilities/deformities?
-14
-5
-Missing fingers
-Gimpy or missing limbs
-Scarred face
-Scarred arms or hands
-Mongloidian eyes
-Lazy/cross/cock-eyed
-Cleft pallette
-Paraplegic
-Quadriplegic
-Blind
-Deaf
-Mute
-Other
-None
-
diff --git a/xtrn/smm/basic.que b/xtrn/smm/basic.que
deleted file mode 100644
index 9ea00201703c7d5d80cc212335e8da2c2cdcb81e..0000000000000000000000000000000000000000
--- a/xtrn/smm/basic.que
+++ /dev/null
@@ -1,179 +0,0 @@
-17
-What is your religious belief?
-9
-1
-Christian
-Jewish
-Catholic
-Buddhist
-Muslim
-Mormon
-Jehovah's Witness
-Other
-None
-Do you participate in organized religion?
-3
-1
-Yes
-No
-Sometimes
-Do you smoke tobacco?
-5
-1
-Yes, daily
-Yes, occasionally
-Yes, I'm trying to quit
-No, I quit
-No, I never smoked tobacco regularly
-Do you use forms of nicotine other than tobacco (dip, snuff, etc)?
-5
-1
-Yes, daily
-Yes, occasionally
-Yes, I'm trying to quit
-No, I quit
-No, never
-Do you drink alcohol?
-6
-1
-Yes, daily
-Yes, occasionally
-Yes, but never enough to get drunk
-Yes, I'm trying to quit
-No, I quit
-No, I never drank
-Do you dance?
-7
-1
-Yes, professionally (exotic)
-Yes, professionally (tame)
-Yes, regularly
-Yes, occasionally
-Yes, rarely
-No, not recently
-No, not ever
-Favorite types of music?
-16
-16
-Easy Listening
-New Age
-Classical
-Classic Rock
-Heavy Metal
-Punk Rock
-Alternative
-Industrial
-Techno
-Pop
-Rap
-Disco
-Rhthym and Blues
-Jazz
-Folk
-Country and Western
-Completed education?
-7
-6
-Grade school
-High school
-Trade school
-College (Associate's)
-College (Bachelor's)
-College (Master's)
-None
-Are you currently enrolled in school?
-8
-1
-Yes, grade school
-Yes, high school
-Yes, trade school
-Yes, city college
-Yes, state college
-No, but I plan to return
-No, but I plan to start
-No, and I have no plans to
-Are you currently employed?
-4
-1
-Yes, full-time
-Yes, part-time
-No, but I'm seeking employment
-No, I don't need/want to work right now
-Are you financially independant?
-5
-1
-Yes
-No, I depend on my parent(s)
-No, I depend on other relative(s)
-No, I depend on my spouse
-No, I depend on a significant other
-Do you play sports?
-5
-1
-Yes, professionally
-Yes, frequently
-Yes, occasionally
-Yes, rarely
-No
-Do you do any recreational reading?
-4
-1
-Yes, frequently
-Yes, occasionally
-Yes, rarely
-No
-Favorite out-door activities?
-16
-16
-Water (swimming, skiing, surfing, etc.)
-Snow (skiing, boarding, ice skating, etc.)
-Hiking/camping/climbing
-Roller skating/blading
-Bicycling
-Running/jogging/walking
-Team sports (baseball, basketball, football, soccer, etc.)
-Racket sports (tennis, racquetball, badminton, etc.)
-Golf
-Shooting (firearms, archery, etc.)
-Off-road (motorcycles, ATVs, etc.)
-Sky diving/bungee jumping
-Gardening
-Fishing/hunting
-Horseback riding
-None of the above
-Favorite in-home activities?
-16
-16
-Painting/drawing/sculpting/etc.
-Sewing/weaving/etc.
-Cooking
-Writing
-Reading
-Playing a musical instrument/singing
-Playing video/computer games
-Playing card/board games
-Cleaning
-Computer programming/exploring
-BBS/E-mail/Internet communications
-CB/HAM/shortwave radio communications
-Electronics/chemistry/physics experiments
-Talking on the telephone
-Watching television
-Listening to music (CDs, records, tapes, radio, etc.)
-Do you have any children?
-6
-1
-Yes, three or more
-Yes, two
-Yes, one
-No, but definitely someday
-No, but possibly someday
-No, I don't ever want children
-What kind of relationship are you seeking?
-5
-5
-Platonic friendship (no intimacy)
-Dating (no commitment)
-Long term relationship (boyfriend/girlfriend/lover)
-Marriage
-None of the above
diff --git a/xtrn/smm/file_id.diz b/xtrn/smm/file_id.diz
deleted file mode 100644
index 5b423d7a3f4db10074039113ceb646dd2842a419..0000000000000000000000000000000000000000
--- a/xtrn/smm/file_id.diz
+++ /dev/null
@@ -1,7 +0,0 @@
-Synchronet Match Maker (BBS door) v2.10
-supports any DOOR.SYS or Synchronet BBS.
-Internationally networked profiles,
-telegrams, wall, photographs, and more!
-Developed by Digital Dynamics, makers of
-Synchronet BBS Software. Perhaps the most
-comprehensive match maker available.
diff --git a/xtrn/smm/list_hdr.asc b/xtrn/smm/list_hdr.asc
deleted file mode 100644
index 5f2b187f96473e64dc5404a084abbb341e55380e..0000000000000000000000000000000000000000
--- a/xtrn/smm/list_hdr.asc
+++ /dev/null
@@ -1,5 +0,0 @@
-nlh���Marital Status or Orientation (Single, Married, Divorced, Widowed, etc)
-�ng��Race (White, Black, Hispanic, Indian, Middle Eastern, Asian, or Other)
-hw�ng�hc�Sex m �Eyes y�Weight
-w�ng�hc�bAge gHairm� rHeighty� ng�Location cPhoto�hw�Name/Alias mMatch�
-w�ng�hc� b� g� m� r� y�ng � c�hw�m �
diff --git a/xtrn/smm/material.que b/xtrn/smm/material.que
deleted file mode 100644
index 2de521f0150f61b7dd4025f43ca153597b8150ef..0000000000000000000000000000000000000000
--- a/xtrn/smm/material.que
+++ /dev/null
@@ -1,91 +0,0 @@
-16
-Do you own a passenger vehicle?
-5
-1
-Yes, more than one
-Yes
-No, but I will soon
-No, and I don't know when/if I will
-No, I don't have a driver's license
-Do you own a recreational vehicle?
-2
-1
-Yes
-No
-Do you own a home (mortage counts)?
-4
-1
-Yes, more than one
-Yes
-No, I'm renting
-No
-Do you own furniture?
-3
-1
-Yes
-No, I'm renting
-No
-Do you own a computer?
-4
-1
-Yes, more than one
-Yes
-No, I'm renting
-No
-Do you have a savings account?
-2
-1
-Yes
-No
-Do you have a checking account?
-2
-1
-Yes
-No
-Do you have a credit card?
-3
-1
-Yes, more than one
-Yes
-No
-Do you have health insurance?
-2
-1
-Yes
-No
-Do you have life insurance?
-2
-1
-Yes
-No
-Do you have car insurance?
-2
-1
-Yes
-No
-Do you have an accountant?
-2
-1
-Yes
-No
-Do you have a maid?
-2
-1
-Yes
-No
-Do you own a swimming pool (i.e. in your backyard)?
-2
-1
-Yes
-No
-Do you own an acre or more of land?
-2
-1
-Yes
-No
-Do you own any stocks or bonds?
-2
-1
-Yes
-No
-
diff --git a/xtrn/smm/mb-e.asc b/xtrn/smm/mb-e.asc
deleted file mode 100644
index 2b612f78b2f06864bce8dbc5667aa911a9904393..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-e.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-An Extrovert is energized by people. A strong extrovert feels very much alone
-without lots of people around. E's tend to talk first & think later, know a
-lot of people, don't mind having a conversation while the TV is on, are
-approachable, don't consider the telephone to be an interruption, tend to
-think out loud and use people as a sounding board for their ideas, need
-affirmation from friends about who I am & how do I look.
-About 75% of the population are type E.
diff --git a/xtrn/smm/mb-enfj.asc b/xtrn/smm/mb-enfj.asc
deleted file mode 100644
index 7dadc77fe75706a029dc3ce7ff44c9c4e806a044..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-enfj.asc
+++ /dev/null
@@ -1,134 +0,0 @@
-ENFJs in short:
-
-Responsive and responsible. Generally feel real concern for what
-others think or want, and try to handle things with due regard for
-other person's feelings. Can present a proposal or lead a group
-discussion with ease and tact. Sociable, popular, sympathetic.
-Responsive to praise and criticism.
-
-About 5% of the population.
-
-Details about ENFJs:
-
-ENFJs are outstanding leaders of groups, both task groups and
-growth groups. They have the charming characteristic of seeming to
-take for granted that they will be followed, never doubting that
-people will want to do what they suggest. And, more often than
-not, people do, because this type of has unusual charisma. ENFJs
-place a high value on cooperation from others and are most willing
-to cooperate themselves.
-
-Found in only about 5 percent of the general population, ENFJs
-place people as being of highest importance and priority. As a
-result, ENFJs may find themselves feeling responsible for the
-feelings of others to an extent which places a burden on the
-relationship.
-
-An ENFJ communicates caring, concern, and a willingness to be
-involved. Thus people turn to ENFJs for nurture and support, which
-an ENFJ is usually able to deliver. At times, however, these kinds
-of demands can overwhelm ENFJs, who find at this point that they
-lack the skills to dissociate. ENFJs do not seem able to turn away
-from these demands even when they become unreasonable. Or, if
-forced to let go of the burden through sheer unavailability of time
-or energy, ENFJs experience a guilt all out of proportion to the
-realities of the commitment to the relationship.
-
-ENFJs are vulnerable to idealize interpersonal relationships,
-raising these relationships to a plane which seldom can sustain the
-realities of human nature. Because of this tendency to raise
-interpersonal relations to the ideal, ENFJs may unwittingly
-overpower their friends, who believe that they cannot possibly live
-up to an ENFJ's perception of them. The fact is, ENFJs are
-extraordinarily tolerant of others, seldom critical, and always
-trustworthy.
-
-ENFJs take communication for granted and believe that they are
-understood and that their communications are accepted. Just as
-they themselves are accepting, so do they assume that others are
-the same. When ENFJs find that their position or beliefs were not
-comprehended or accepted, they are surprised, puzzled, and
-sometimes hurt. Fortunately, this does not happen with high
-frequency, as ENFJs have a remarkable fluency with language,
-especially in speech; they are particularly adept when
-communicating face-to-face as opposed to communicating in writing.
-
-They are influential, therefore, in groups, having no hesitation
-about speaking out, no matter how large or small the group may be.
-
-ENFJs have an unusual ability to relate to others with empathy,
-taking into themselves the characteristics, emotions, and beliefs
-of others. This can pose a danger for ENFJs, they can
-unconsciously over-identify with others and pick up their burdens
-as if they were their own. In the process, ENFJs may risk their
-own sense of identity.
-
-They have a natural ability to mimic because of this highly
-developed ability to empathize by interjection. They are likely to
-be very concerned about the problems of those close to them, but
-they also may get as deeply involved in the problems of those not
-so close and may find themselves overextended emotionally.
-
-ENFJs would do well to follow their hunches, for their intuition
-tends to be well developed. Decisions made purely on the basis of
-logic may not be so sound, and checking with a person who has a
-strong T preference might be at times advisable for the ENFJ. In
-the framework of values, however, the ENFJ is on certain ground.
-Generally, they know what they prefer and can read other people
-with outstanding accuracy. Seldom is an ENFJ wrong about the
-motivations or intents of another, hidden or not.
-
-ENFJs are socially adept and make excellent companions and mates.
-They also are deeply devoted to their children, yet tend not to be
-domineering to either the children or a mate. In fact, the ENFJ is
-so even-tempered that he or she can be victimized by a mate who
-might have become more than demanding.
-
-ENFJ mates always try to please and feel personally responsible
-when home life does not go smoothly. They are tireless in their
-efforts to see that it does, providing generously from available
-income, time and energy. This dedication often exists, however,
-side by side with an ENFJ's dream of the perfect relationship - a
-characteristic of all NFs, but one which is particularly strong in
-an ENFJ. Thus an ENFJ has that longing for the ideal which results
-in a vague dissatisfaction with whatever is in the way of
-relationships, mating as well as friendship.
-
-This longing for the perfect carries over into the careers of
-ENFJs, who experience some degree of restlessness whatever their
-jobs. And, as with ENFPs, ENFJs have a wide range of occupations
-which offer success.
-
-Being verbally adept, ENFJs contribute to an unusual level when
-dealing with people, particularly face-to-face: the media, the
-ministry, and the stage and screen are populated with successful
-ENFJs. They make superior therapists, charismatic teachers,
-excellent executives, and personalized executives. Areas that
-would not permit utilization of the interaction talents of the
-ENFJs, for example, accounting, should be avoided; otherwise,
-almost any people-to-people occupation where personal, sustained
-contact is involved capitalizes on the personality of an ENFJ.
-
-ENFJs like to have things organized and settled. They prefer to
-plan both work and social engagements ahead and tend to be
-absolutely reliable in honoring these commitments. ENFJs are very
-much at home in complex situations which require the juggling of
-much data. At the same time they can handle people with charm and
-concern.
-
-ENFJs are usually popular wherever they are. Their ability to be
-comfortable either leading or following makes them easy to have
-around, whatever the situation. A well-developed ENFJ group leader
-can provide, almost endlessly, activities for groups to play. In
-some, this can amount to genius which other types find hard to
-emulate. In this ability to organize without planning there is a
-certain, similarity to the ESFJ, but the latter acts more as a
-master of ceremonies than as a leader of groups. The ESFJ is more
-of a recreational leader, who insures that each member has fun at a
-party and that the right things are expressed at social occasions,
-especially institutional social occasions such as weddings,
-funerals, parties, and the like.
-
-ENFJs, just like ESFJs, value harmonious human relations above all
-else; but ENFJs are not so easily crushed by indifference as are
-ESFJs and are more independent of others' valuations.
diff --git a/xtrn/smm/mb-enfp.asc b/xtrn/smm/mb-enfp.asc
deleted file mode 100644
index b8bcfdb153f8419529a418c96e59c5959015c9c7..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-enfp.asc
+++ /dev/null
@@ -1,157 +0,0 @@
-ENFPs in short:
-
-Warmly enthusiastic, high-spirited, ingenious, imaginative. Able
-to do almost anything that interests them. Quick with a solution
-for any difficulty and ready to help anyone with a problem. Often
-rely on their ability to improvise instead of preparing in advance.
-Can usually find compelling reasons for whatever they want.
-
-About 5% of the population.
-
-Details on ENFPs:
-
-For ENFPs nothing occurs which does not have some significance, and
-they have an uncanny sense of the motivations of others. This
-gives them a talent for seeing life as an exciting drama, pregnant
-with possibilities for both good and evil. This type is found in
-only about 5 percent of the general population, but they have great
-influence because of their extraordinary impact on others.
-
-ENFPs strive toward the authentic, even when acting spontaneously,
-and this intent is usually communicated nonverbally to others, who
-find this characteristic attractive. ENFPs, however, find their
-own efforts of authenticity and spontaneity always lacking, and
-tend to heap coals of fire on themselves, always berating
-themselves for being so conscious of self.
-
-ENFPs consider intense emotional experiences vital; when they have
-these, however, they are made uneasy by a sense of being there but
-with a part of themselves cut off. They strive for congruency, but
-always see themselves in some danger of losing touch with their
-real feelings, which ENFPs possess in a wide range and variety.
-
-ENFPs exercise a continuous scanning of the external environment
-and nothing out of the ordinary is likely to escape their
-attention. They are keen and penetrating observers and are capable
-of intense concentration on another individual while aware of what
-is going on about them. Their attention is never passive or
-casual, never wandering, but always directed.
-
-At times, ENFPs find themselves interpreting events in terms of
-another's "hidden motive," giving special meaning to words or
-actions. This interpretation tends to be negative and, more often
-than not, inaccurately negative. In the process, an ENFP may find
-that he or she has introduced an unnecessary, toxic element into
-the relationship.
-
-While ENFPs are brilliantly perceptive, they can make serious
-mistakes in judgement, which works to their discomfort. These
-mistakes derive from their tendency to focus on data which confirm
-their own biases. They may be absolutely correct in their
-perceptions but wrong in their conclusions.
-
-Because they tend to be hypersensitive and hyperalert, they may
-suffer from muscle tension. They live in readiness for
-emergencies; because they have this facility, they assume this is
-true for others. They can become bored rather quickly with both
-situations and people, and resist repeating experiences.
-
-They enjoy the process of creating something - an idea or a project
-- but are not as interested in the follow-through. They are
-typically enthusiastic, and this is contagious. People get caught
-up and entranced by an ENFP. Yet this type is marked with a fierce
-independence, repudiating any kind of subordination, either in
-themselves or in others in relation to them.
-
-They do tend to attribute more power to authority figures than is
-there and give over to these figures an ability to "see through"
-them - which also is not apt to be there.
-
-While ENFPs resist the notion of others becoming dependent or
-having power over them, their charisma draws followers who wish to
-be shown the way. ENFPs constantly find themselves surrounded by
-others who look toward the ENFP for wisdom, inspiration, courage,
-leadership, and so on - an expectancy which, at times, weighs
-rather heavily on an ENFP.
-
-ENFPs are characteristically optimistic and are surprised when
-people and events do not turn out as anticipated. Often their
-confidence in the innate goodness of fate and human nature is a
-self-fulfilling prophecy.
-
-ENFPs have a remarkable latitude in career choices and succeed in
-many fields. As workers, they are warmly enthusiastic, high
-spirited, ingenious, imaginative, and can do almost anything that
-interests them. They can solve most problems, particularly those
-dealing with people. They are charming and at ease with
-colleagues; others enjoy their presence.
-
-ENFPs are outstanding in getting people together, and are good at
-initiating meetings and conferences, although not as talented at
-providing for the operational details of these events. They enjoy
-inventing new ways of doing things, and their projects tend to
-become a cause, quickly becoming personalized.
-
-They are imaginative themselves, but can have difficulty picking up
-on ideas and projects initiated by others. They must make these
-ideas and projects their own if ENFPs are to lend energy and
-interest. Once people or projects become routine, ENFPs are likely
-to lose interest; what 'might be' is always more fascinating than
-'what is.'
-
-ENFPs make extensive use of their intuitive powers. They usually
-have a wide range of personal and telephone contacts, expending
-energy in maintaining both career and personal relationships.
-
-ENFPs make excellent salespeople, advertising people, politicians,
-screen or play writers, and in general are attracted to the
-interpretive arts, particularly, character acting.
-People-to-people work is essential for ENFPs, who need the feedback
-of interaction with others.
-
-ENFPs may find it difficult to work within the constraints of an
-institution, especially in following rules, regulations, and
-standard operating procedures. More frequently, institutional
-procedures and policies are targets to be challenged and bent by
-the will of an ENFP. Colleagues and superiors sometimes find
-themselves in the position of having to accommodate and salvage.
-
-At times, ENFPs demonstrate impatience with others; they may get
-into difficulty in an organization by siding with its detractors,
-who find in an ENFP a sympathetic ear and a natural rescuer. In
-occupational choice, ENFPs quickly become restless if the choice
-involves painstaking detail and follow-through over a period of
-time. Variety in day-to-day operations and interactions best suits
-the talents of ENFPs, who need quite a bit of latitude in which to
-exercise their adaptive ingenuity.
-
-As mates, ENFPs tend to be charming, gentle, sympathetic, and
-nonconformist. They are not likely to be interested in the
-less-inspired routines of daily maintenance and ever will be
-seeking new outlets for their inspirations.
-
-As parents, ENFPs are devoted to their children, shifting from a
-role of "friend in need rescuer" to stern authority figure. They
-may not always be willing to enforce their impulsive
-pronouncements, but leave it to their mates to follow through.
-
-A mate of an ENFP can expect charming surprises: extravagant
-generosity punctuated by periods of frugality. Independent actions
-regarding money on the part of an ENFP's mate are not ordinarily
-welcomed, and the mate may find him or herself in an embarrassing
-situation of having to return purchases.
-
-ENFPs generally are the ones in charge of the home, and a
-conflict-free home is desired, almost demanded. When he or she is
-in charge of economic resources, the ENFPs may contain extravagant
-luxuries, while necessities may be missing. They are not always
-interested in saving for the future and may be casual in giving
-consideration to such things as life insurance, savings accounts,
-and even a ready cash supply for mate and children.
-
-ENFPs are characteristic in their pursuit of the novel, their
-strong sense of the possible, and outstanding intuitive powers. At
-the same time, they have warmth and fun with people and generally
-are unusually skilled in handling people. Their extroverted role
-tends to be well developed, as is their capacity for the novel and
-the dramatic.
diff --git a/xtrn/smm/mb-entj.asc b/xtrn/smm/mb-entj.asc
deleted file mode 100644
index a37af1d7e69f038528b89029a41d5f8606f06317..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-entj.asc
+++ /dev/null
@@ -1,105 +0,0 @@
-ENTJs in short:
-
-Hearty, frank, decisive, leaders in activities. Usually good in
-anything that requires reasoning and intelligent talk, such as
-public speaking. Are usually well-informed and enjoy adding to
-their fund of knowledge. May sometimes be more positive and
-confident than their experience in an area warrants.
-
-About 5% of the population.
-
-Details about ENTJs:
-
-If one word were used to capture ENTJ's style, it would be
-commandant. The basic driving force and need of ENTJs is to lead,
-and from an early age they can be observed taking over groups. This
-type is found in approximately 5 percent of the total population.
-
-ENTJs have a strong urge to give structure wherever they are - to
-harness people to distant goals. Their empirical, objective, and
-extroverted thinking may be highly developed; if this is the case,
-they use classification, generalization, summarization, adduction
-of evidence, and demonstration with ease.
-
-They resemble ESTJs in their tendency to establish plans for a
-task, enterprise, or organization, but ENTJs search more for policy
-and goals than for regulations and procedures.
-
-An ENTJ's introverted thinking (analysis and conservation) may be
-less well developed than the extroverted thinking processes, and
-the ENTJ leader may turn to an ENTP or INTP to provide this kind of
-input. ENTJs are similar to INTJs except that the former places
-greater trust in empirical thought than in intuition; it is the
-ENTJs own intuitive sense of coherence, however, that augments and
-supports their empirical thinking.
-
-Although ENTJs are tolerant of established procedures, they can
-abandon any procedure when it can be shown to be indifferent to the
-goal it seemingly serves. Inefficiency is especially rejected by
-ENTJs, and repetition of error causes them to become impatient. For
-the ENTJ, there must always be a reason for doing anything, and
-people's feelings usually are not sufficient reason.
-
-When in charge of an organization, ENTJs more than any other type
-desire (and generally have the ability) to visualize where the
-organization is going and seem able to communicate that vision to
-others. They are the natural organization builders, and they
-cannot not lead. They find themselves in command and sometimes are
-mystified as to how this happened.
-
-As administrators, ENTJs organize their units into a smooth
-functioning system, planning in advance, keeping both short-term
-and long-range objectives well in mind. They seek and can see
-efficiency and effectiveness in personnel. They prefer decisions
-to be based on impersonal data, want to work from well-thought-out
-plans, and like to use engineered operations - and they prefer that
-others follow suit. ENTJs will support the policy of the
-organization and will expect others to do so.
-
-ENTJs will usually rise to positions of responsibility and enjoy
-being executives. They are tireless in their devotion to their
-jobs and can easily block out other areas of life for the sake of
-work. They will be able to reduce inefficiency, ineffectiveness,
-and aimless confusion, being willing to dismiss employees who
-perpetuate such behaviors.
-
-ENTJs tend to work in organizational structures of some sort, tend
-to be in charge administratively, and rise to top levels of
-responsibility, whether in the military, business, education, or
-government.
-
-ENTJs take charge of the home. When the ENTJ is present, there
-will be little doubt as to who is in command. Because their work
-is so important to them, however, they can become increasingly
-absent, especially if male.
-
-Male or female, ENTJs expect a great deal of their mates, who need
-to possess a strong personality of their own, a well-developed
-autonomy, many and varied interests, and a healthy self-esteem. A
-career wife, however, may not be appealing to an ENTJ male, who is
-apt to view his home and family as a part of his professional
-background, a resource, and adjunct to his own career development.
-
-As a parent, an ENTJ will be thoroughly in charge, and the children
-will know what is expected of them - and will be expected to obey.
-When this does not occur, an ENTJ parent is not apt to make a
-scene; rather, there is likely to be a low-key, firm issuance of
-reprimand and a taking-for-granted of immediate obedience.
-
-While both mating and parenting are roles of importance to the
-ENTJ, they are to some degree preempted by the ENTJ's strong career
-interest. The romantic dream and the quest for the ideal mate is
-usually not a characteristic of this type.
-
-ENTJs generally do, however, expect a home to be attractive,
-well-ordered, with meals served punctually and maintenance
-accomplished on schedule - all these in the service of the larger
-goal of creating a family system where children can be reared to be
-productive and healthy and establishing a devoted, harmonious
-relationship between man and woman.
-
-An ENTJ male might expect his mate to be active in civic and
-community affairs, to be socially sophisticated, and to be as
-well-educated as he. The ENTJ female may find it difficult to
-select a mate who is not overwhelmed by her strong personality and
-will.
diff --git a/xtrn/smm/mb-entp.asc b/xtrn/smm/mb-entp.asc
deleted file mode 100644
index 4817854f1d243baddc38eb1a8359470a2327143d..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-entp.asc
+++ /dev/null
@@ -1,145 +0,0 @@
-ENTPs in short:
-
-Quick, ingenious, good at many things. Stimulating company, alert
-and outspoken. May argue for fun on either side of a question.
-Resourceful in solving new and challenging problems, but may
-neglect routine assignments. Apt to turn to one new interest after
-another. Skillful in finding logical reasons for what they want.
-
-About 5% of the population.
-
-Details about ENTPs:
-
-ENTPs wish to exercise their ingenuity in the world of people and
-things. Found in about five out of every hundred people, ENTPs
-extrovert intuition; thus they deal imaginatively with social
-relationships as well as physical and mechanical relations. They
-are very alert to what is apt to occur next, and always sensitive
-to possibilities.
-
-ENTPs are good at analysis, especially functional analysis, and
-have both a tolerance for and enjoyment of the complex. Usually
-enthusiastic, ENTPs are apt to express interest in everything, and
-thus are a source of inspiration to others, who find themselves
-caught up by the ENTP's enthusiasm. This type is delighted over
-many things and so is easy to please, often showing the
-effervescence of their NF counterpart, the ENFP.
-
-The ENTP is the most reluctant of all the types to do things in a
-particular manner just because that is the way things have always
-been done. They characteristically have an eye for a better way,
-always on the lookout for new projects, new activities, new
-procedures.
-
-ENTPs are confident in the value of their pursuits and display a
-charming capacity to ignore the standard, the traditional, and the
-authoritative. As a result of this open attitude, they often bring
-a fresh, new approach to their work and their lives. The ENTP is a
-keen judge of the pragmatics of both the social and the mechanical,
-and may become expert at directing relationships between means and
-ends.
-
-Where the introverted NTP sees design as an end in itself, the
-extroverted NTP sees design as a 'means'; the end is the invention
-that works, the prototype that is replicatable. Ideas are valuable
-when and only when they make possible actions and objects. "It
-can't be done" is a challenge to an ENFP and elicits a reaction of
-"I can do it."
-
-They are not, however, the movers of mountains as are the INTJs.
-Rather, the faith of the ENTPs is in their ability to improvise
-something, and they display an unusual talent for rising to the
-expectancy of a situation.
-
-Superficially, ENTPs resemble ESTPs in their derring-do. But the
-focus of the ENTP is on competency and the sense of power this
-gives, rather than on the feeling of freedom of action experienced
-by the ESTP.
-
-ENTPs can be fascinating conversationalists, able as they are to
-follow the complex verbalizations of others. They may deliberately
-employ debate tactics to the disadvantage of their opponents, even
-when the "opponents" are close associates and valued friends.
-
-ENTPs are the most able of all types to maintain a one-up position
-with others. They value adaptability and innovation and thus
-respond quickly and adeptly to another's shifting position. They
-may even be several jumps ahead.
-
-The ENTP, talkative and motivating, is often the life of an
-enterprise. The ENTP can be an entrepreneur and cleverly makes do
-with whatever or whoever is at hand, counting on ingenuity to solve
-problems as they arise, rather than carefully generating a detailed
-blueprint in advance. A rough draft is all an ENTP needs to feel
-confident and ready to proceed into action, counting on the ability
-to improvise as a situation develops.
-
-Because of this tendency to depend on ingenuity and improvisation,
-they may neglect very necessary preparation at times. After
-repeated failures in situations where improvising has met with
-defeat, the ENTP may develop ways of avoiding such situations as a
-substitute to thorough preparation.
-
-ENTPs can succeed in a variety of occupations, as long as the job
-does not involve too much humdrum routine. At this point, they
-become restless. If a project in which they are engaged is no
-longer challenging, they tend to lose interest in that project and
-fail to follow through - often to the discomfort of colleagues.
-
-Seldom are ENTPs conformists. ENTPs enjoy outwitting the system
-and use rules and regulations within the system to win the game -
-whatever it may be. They understand well the politics of
-institutions and deal with these realities very well, always aiming
-to understand the people within the system rather than to judge
-them.
-
-ENTPs are good at innovative projects and can administer them well
-if dull routine is not involved. They usually are outstanding
-teachers, continuously devising new participative ways to make
-learning exciting for the students.
-
-As an employee, an ENTP may work against the system just for the
-joy of being one-up. For ENTPs, to be taken-in, to be manipulated
-by another, is humiliating; this offends their joy in being masters
-of the art of one-upmanship.
-
-ENTPs are the natural engineers of human relationships and human
-systems. Their good humor and optimistic outlook tend to be
-contagious, and people seek out their company.
-
-As mates, ENTPs tend to create a lively living environment. They
-are gregarious, laugh easily and often, and are typically in good
-humor.
-
-Orderliness in the routines of daily living is not apt to inspire
-them; they usually solve this problem by mobilizing those around
-them. Tom Sawyer illustrated this talent when he solved the
-problem of getting his Aunt Polly's fence whitewashed. Life with
-ENTPs is likely to be a daring adventure; they can lead families
-into physical and economic dangers. ENTPs improvise to remain
-unaware that they do not have the necessary knowledge of the
-situation to ward off such dangers.
-
-If the mate of an ENTP is not competitive, he or she is likely to
-find the one-up/one-down transactions somewhat wearing. If the
-mate is competitive, the result might be conflict.
-
-Although usually good providers of economic necessities, ENTPs at
-times engage in brinkmanship with their careers, placing them in
-jeopardy and behaving as if unaware of the consequences; they may
-thus offer unnecessary challenges to those who have power over
-their professional success. When challenges elicit negative
-responses from superiors, ENTPs are apt to react with delight at
-having an opportunity to improvise a solution to the crisis - and,
-more often than not, they succeed in doing so.
-
-ENTPs are likely to have all sorts of hobbies and to be experts in
-unexpected areas, but they are not apt to share these hobbies with
-their mates or children in the sense of teaching them. In fact,
-ENTPs may be very inconsistent in the attention given to offspring.
-
-Usually, it is feast or famine. ENTPs have a lively circle of
-friends and are interested in their ideas and activities. They are
-usually easygoing, seldom critical or nagging. At their worst,
-they can show undependable, fickle characteristics and may be
-easily discouraged.
diff --git a/xtrn/smm/mb-esfj.asc b/xtrn/smm/mb-esfj.asc
deleted file mode 100644
index c3801a37f6f07bf4b3b308a40146e9ee33cf69b9..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-esfj.asc
+++ /dev/null
@@ -1,118 +0,0 @@
-ESFJs in short:
-
-Warmhearted, talkative, popular, conscientious, born cooperators,
-active committee members. Need harmony and may be good at creating
-it. Always doing something nice for someone. Work best with
-encouragement and praise. Little interest in abstract thinking or
-technical subjects. Main interest is in things that directly and
-visibly affect people's lives.
-
-About 13% of the population.
-
-Details about ESFJs:
-
-ESFJs, the most sociable of all the types, are energized by
-interactions with people, tending to idealize whatever or whoever
-they admire. 'Harmony' is a key to this type, which is represented
-in about 13 percent of the general population.
-
-ESFJs are the great nurturers of established institutions such as
-the home, the school, the church, and civic groups. Wherever they
-go, they promote harmony and harmonious relationships. They are
-outstanding hosts or hostesses, able to call people by name,
-usually after one introduction. At a social gathering they can be
-observed attending to the needs of others, trying to insure that
-all are comfortable and involved.
-
-Social ties matter to the ESFJs, and their conversations often
-drift to the nostalgic recounting of past memories. Traditions are
-developed, supported, and carefully observed by the ESFJ.
-
-ESFJs are hurt by indifference and need to be appreciated both for
-themselves and for the abundance, typically in the form of
-services, they give to others. They are conscious of appearances
-and take the opinions of others regarding social standards very
-seriously. Values in an ESFJ may take the form of 'shoulds' and
-'should nots' and may be freely expressed. Conscientious and
-orderly, ESFJs may become restless when isolated from people.
-
-Career selection by ESFJs may lean toward service occupations.
-They have such outgoing personalities that they are outstanding at
-selling, being an invariable winner in sales contests. They are
-apt to have seniority in any sales group within an organization.
-Observation of ESFJs at work in a sales transaction will
-demonstrate how this type personalizes the sale: The customer is
-not buying the product; he or she is buying personally from the
-ESFJ.
-
-This same characteristic causes ESFJs to be good in teaching,
-preaching, supervision, administration, coaching, and, in general,
-people-to-people jobs. They seldom become a source of irritation
-to their superiors, for they respect and obey the rules and
-regulations, are duty and service oriented. They are loyal to
-their bosses.
-
-ESFJs are likely to be aware of and enjoy discussing events and
-problems in the lives of their colleagues; but when conversations
-turn to abstractions of philosophy or science, the ESFJ may become
-restive. Analysis of the complex - for example, an attempt to find
-an explanation of events through an analysis of principles - does
-not excite their interest, as it does the NTs.
-
-ESFJ mates have a set of values which contain clear 'shoulds' and
-'should-nots', and they expect their family to abide by these.
-They are conscientious about home responsibilities, are orderly
-about the home, and prefer that other occupants be the same. They
-enjoy socializing and entertaining.
-
-ESFJs want family decisions settled efficiently and quickly and
-want family living routinized, scheduled, and correctly executed.
-They do not rebel against routine operations, and are devoted to
-the traditional values of home and hearth, respect their marriage
-vows, and are the most sympathetic of all types.
-
-They tend to be dependent on their mates and may marry to insure
-that they have a proper place in the social strata. They enjoy the
-rituals in connected with serving of good food and beverages,
-thrive on festive occasions, respect and accumulate a goodly store
-of material possessions. They take their role in the community
-seriously and are sensitive to the acknowledged, official
-decision-makers and identify with them. They are aware of status,
-and often depend on higher authority as the source of opinions and
-attitudes.
-
-ESFJs wear their hearts on their sleeves and are outgoing in their
-emotional reactions. They need to be needed, loved, and
-appreciated and may spend much energy reassuring themselves that
-this is the case. They can become melancholy and depressed and
-even suicidal if they take the blame for whatever might be wrong in
-their institution or their personal relationships - as they are
-prone to do.
-
-ESFJs usually respect and revere their parents, and as children
-were responsive and obedient pupils. They seem able to express the
-right feeling for a given situation.
-
-They are softhearted, sentimental, and usually observe with gusto
-and a flourish birthdays, anniversaries, and the like, making of
-the event a delightful, important occasion. At the same time,
-however, ESFJs can cause others undue tension by expressing
-anticipations of gloom and doom, exhibiting a bent toward the
-pessimistic that can be contagious. They need to control their
-fears that the worst is sure to happen and suppress their tendency
-toward crepe-hanging and anticipating disasters.
-
-The children of an ESFJ are seen as an extension of the family, and
-all they do reflects on the ESFJ. If things do not go well, the
-SFJ may be critical, even carping toward his or her mate and
-children.
-
-This type may marry alcoholics or others who are particularly
-needy. If a female ESFJ is married to a mate who is not a good
-provider, she can become nagging and brood over a comparison of her
-possessions and status with that of others.
-
-ESFJs, male or female, live in terms of people and things rather
-than in terms of ideas and principles. They enjoy the process of
-decision-making, particularly when focus is on the 'usefulness' of
-things and people.
diff --git a/xtrn/smm/mb-esfp.asc b/xtrn/smm/mb-esfp.asc
deleted file mode 100644
index 633ade2c9b416ce9e7b14a820623ffb6516b9c96..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-esfp.asc
+++ /dev/null
@@ -1,89 +0,0 @@
-ESFPs in short:
-
-Outgoing, easygoing, accepting, friendly, enjoy everything and make
-things more fun others by their enjoyment. Like sports and making
-things. Know what's going and join in eagerly. Find remembering
-facts easier than mastering theories. Are best in situations that
-need sound common sense and practical ability with people as well
-as with things.
-
-About 13% of the population.
-
-Details about ESFPs:
-
-ESFPs radiate attractive warmth and optimism. Smooth, witty,
-charming, clever, voluble, and open to the environment - this
-describes ESFPs who, like ESTPs, represent about 13 percent of the
-general population. They are great fun to be with and are the most
-generous of all the types. 'Performer' would be the word which
-best describes an ESFP.
-
-ESFPs will avoid being alone and seek the company of others
-whenever possible. ESFPs easily find company, for others are
-usually highly entertained by the presence of an ESFP. ESFPs love
-excitement and create it wherever they are. Their joy of living is
-contagious and generally they wear happy faces. Often outstanding
-conversationalists, their flowing banter is amusing in its wit.
-
-ESFPs have an air of sophistication and are likely to be dressed in
-the latest fashion, displaying an enjoyment of all the good things
-of life: dress, food, physical comfort, and happy times. ESFPs
-create a mood of "eat, drink, and be merry" wherever they go, and
-around them life can have a continual party-like atmosphere of
-gaiety.
-
-ESFPs make exciting, if somewhat unpredictable mates, which may
-give quieter type mates some anxiety and tension from living on the
-edge of adventure. The home of an ESFP is likely to be filled with
-people all having a good time. Problems will not be allowed to
-make their appearance. The ESFP accomplishes this by taking an
-attitude of "walking by the graveyard whistling," refusing to
-recognize doom and gloom.
-
-ESFPs can be generous to a fault. What is theirs is yours, and
-what is yours is yours still. They give assistance to one and all
-without expectation of a return, just as they love freely without
-expecting something in return. ESFPs seem to view life as an
-eternal cornucopia from which flows an endless supply of pleasures
-that require no effort on their part to insure.
-
-ESFPs' talent for enjoying life can make them more subject to
-temptations than are other types. They are inclined to be
-impulsive, and thus both male and female ESFPs are vulnerable to
-psychological seduction, if not physical seduction, with an ESFP
-giving in easily and agreeably to the demands of others. As a
-parent, the ESFP will be entertaining, a friend, and a source of
-fun and excitement. When there is sickness, or trouble, however,
-ESFPs may become impatient and may want to absent themselves.
-
-ESFPs' tolerance for anxiety is the lowest of all types. Anxiety
-is avoided by ignoring the dark side of a situation as long as
-possible. They are inclined to be somewhat self-indulgent, but,
-rather than make an outward show of resistance or make waves, ESFPs
-will give apparent compliance - and then go their own way to what
-they enjoy.
-
-ESFPs prefer active jobs and should not be given lonely, solitary
-assignments. Outstanding in public relations, they love working
-with people. Decisions are made with personal warmth, based on
-personal reference or reference to significant others. This type
-relies on their personal experiences and generally show good common
-sense.
-
-The gregarious sociability and adaptability of ESFPs make them a
-source of warmth to others. They do not mind telephone or personal
-interruptions and are verbally facile in both situations. They can
-be counted on to have accurate data about the people around them,
-gaining these data through effortless and continuous observations.
-
-ESFPs are not deeply interested in scholastic pursuits, wanting
-knowledge only for immediate utility. They avoid science and
-engineering, gravitate toward business, and are adept at selling,
-particularly selling tangibles.
-
-They can be effective in education, especially elementary school
-teaching, and can enjoy nursing for its drama. They are good at
-working with people in crisis, a facility, which often leads ESFPs
-into social work. They also enjoy entertaining people and are thus
-drawn to the performing arts, thriving on the excitement of being
-in the limelight.
diff --git a/xtrn/smm/mb-estj.asc b/xtrn/smm/mb-estj.asc
deleted file mode 100644
index a58f235e23972f61f097e6ed7999204b4af43eae..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-estj.asc
+++ /dev/null
@@ -1,70 +0,0 @@
-ESTJs in short:
-
-Practical, realistic, matter-of-fact, with a natural head for
-business or mechanics. Not interested in subjects they see no use
-for, but can apply themselves when necessary. Like to organize and
-run activities. May make good administrators, especially if they
-remember to consider others' feelings and points of view.
-
-About 13% of the population.
-
-Details about ESTJs:
-
-ESTJs are very much in touch with the external environment. They
-know their community and usually are pillars of strength. The best
-adjective to describe ESTJs would be 'responsible.' They represent
-about 13 percent of the general population.
-
-ESTJs are outstanding at organizing procedures and in detailing
-rules and regulations. They like to see things done correctly.
-They tend to be impatient with those who do not carry out
-procedures with sufficient attention to those details, prescribed
-by those with the most experience, that will get the job done
-right.
-
-ESTJs are comfortable in evaluating others and tend to judge how a
-person is doing in terms of standard operating procedures. They
-may, at times, be abrupt with those who do not follow the rules
-correctly. ESTJs are realistic, matter-of-fact, and more curious
-about new devices and processes than about new principles and
-theories.
-
-ESTJs generally are loyal to their institutions, work, and
-community and make excellent, faithful mates and parents. They see
-where their duty lies and are not likely to shirk the doing of that
-duty, even when this requires considerable sacrifice on their part.
-
-They frequently rise to positions of responsibility in their jobs,
-in the community, and in their religious affiliations. They very
-often belong to several civic clubs and support them both through
-steady attendance and through their spoken attitudes. ESTJs
-themselves are punctual and expect others to be also.
-
-ESTJs may not always be responsive to points of view and emotions
-of others and may have a tendency to jump to conclusions too
-quickly at times. They may not always be willing to listen
-patiently to opposing views; they are especially vulnerable to this
-tendency when in positions of authority. They may need to make
-special effort to remain open to input from others who are
-dependent on them - their children, spouses, and employees.
-
-ESTJs are so in tune with the established, time-honored
-institutions and ways of behaving within those institutions that
-they cannot understand those who might wish to abandon or radically
-change those institutions. They follow routines well at home and
-at work, tending to have a place for everything and wanting
-everything in its place. They are usually neat and orderly at work
-and at play.
-
-They approach human relations through traditions and rituals,
-promoting harmony and contentment in their relationships through
-creating well-worked-out routines and procedures. Family
-traditions have meaning for ESTJs, and they willingly participate
-in observing these. They enjoy opportunities to see friends,
-former colleagues, and relatives at functions such as retirement
-dinners, annual picnics, Thanksgiving gatherings, and weddings.
-
-ESTJs are relatively easy to get to know; they do not tend to
-confuse people by sending double messages. They are dependable and
-consistent, and what they seem to be is what they are.
-
diff --git a/xtrn/smm/mb-estp.asc b/xtrn/smm/mb-estp.asc
deleted file mode 100644
index e8c8c956fe9f53f729444e80eff0fbb5a5567459..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-estp.asc
+++ /dev/null
@@ -1,119 +0,0 @@
-ESTPs in short:
-
-Matter-of-fact, do not worry or hurry, enjoy whatever comes along.
-Tend to like mechanical things and sports, with friends on the
-side. May be a bit blunt or insensitive. Adaptable, tolerant,
-generally conservative in values. Dislike long explanations. Are
-best with real things that can be worked, handled, taken apart or
-put together.
-
-About 13% of the population.
-
-Details about ESTPs:
-
-ESTPs are men and women of action. When someone of this
-personality is present, things begin to happen. The lights come
-on, the music plays, the game begins. And a game it is for the
-ESTP, The outstanding entrepreneur, the international diplomat, the
-conciliator, and the negotiator 'par excellence.'
-
-Approximately 13 percent of the general population are of this
-extroverted, sensing, thinking, perceiving type, and if only one
-adjective could be used to describe ESTPs 'resourceful' would be an
-apt choice.
-
-Life is never dull around ESTPs. Their attractive, friendly style
-has a theatrical flourish which makes even the most routine,
-mundane event seem exciting. ESTPs usually know the location of
-the best restaurants, and headwaiters are likely to call them by
-name. ESTPs are socially sophisticated, suave, and urbane and are
-master manipulators of the external environment.
-
-ESTPs are uncanny at observing people's motivations, somehow
-hypersensitive to minimal nonverbal cues which other types might
-miss. And they are masters at using these observations to "sell"
-the "client." The eye of the ESTP is ever on the eye of the
-beholder, and all actions are directed toward this audience.
-
-Witty, clever, and fun, ESTPs seem to possess an unusual amount of
-empathy, when in fact this is not the case; rather, they are so
-acutely aware of minimal signals from others that they are usually
-several jumps ahead in anticipation of another's position. And
-ESTPs can use information gained to the ends they have in mind -
-apparently with nerves of steel, engaging in what seems to others
-to be suicidal brinkmanship. Other types may find this exhausting,
-but ESTPs are exhilarated by working close to the edge of disaster.
-
-ESTPs are ruthless pragmatists and often offer the ends as
-justification for whatever means they see as necessary -
-regrettable, perhaps, but necessary. Usually, however, ESTPs do
-not care to justify actions, but prefer instead to get on to the
-next action.
-
-ESTPs are outstanding as initiators of enterprises that bring
-people together to negotiate. They make invaluable itinerant
-administrators who can pull troubled companies or institutions out
-of the red very quickly, and with style!
-
-They can sell an idea or project in a way no other type can, but
-won't follow through on the tedious administrative details of a
-project. This characteristic often causes ESTPs to be
-unappreciated for the extraordinary talents they have, for people
-lose sight of the idea contributed and focus on the details left
-undone, becoming critical of ESTPs' weaknesses rather than
-appreciating their strength.
-
-Few enterprises which are institutionally based use ESTPs as they
-should be used. When they strike out on their own, however, they
-do not always succeed, for their unwillingness to bother with
-follow-up details may cause an otherwise excellent project to fail.
-ESTPs need to be sure they have someone who will take care of
-follow-up if at all possible.
-
-If the promotional, entrepreneurial capabilities of ESTPs are used
-to constructive ends, an institution is fortunate for their
-presence.
-
-If their desire for excitement is not met constructively, however,
-these energies may be channeled into destructive, antisocial
-activities such as those of the confidence rackets -
-counterfeiting, bad-check artistry, safe-cracking, and swindling. A
-movie of the early 1970's which caught this use of the ESTP's
-talent was The Sting.
-
-ESTPs live in the immediate moment and as mates lend excitement -
-and unpredictability - to the relationship. The ESTP mate is
-usually extremely attentive in public and smooth in social rituals.
-They carry on amusing repartee, and laughter surrounds them as they
-recount from their endless supply of clever jokes and stories.
-
-Charm radiates from ESTPs. Nothing is too good for their friends,
-although family responsibilities may, at times, be given second
-priority. The ESTP's mate may in time come to feel like an object
-- the female a chattel and the male a negotiable commodity. Deep
-commitments do not always occur in the lives of ESTPs, although
-they are always popular and know many, many people by name.
-
-Relationships usually are conditional, and the condition is the
-consideration of what the ESTP has to gain from the relationship.
-Anything gained, however, is shared freely and generously with the
-mate. The unexpected gift, the impulsive trip to Paris, the
-extravagant surprise at Christmas - all these an ESTP brings to a
-mate. Fun, excitement, laughter, and that element of
-unpredictability are characteristic of their relationship.
-
-The ESTPs have a low tolerance for anxiety and are apt to avoid or
-leave situations that are consistently filled with interpersonal
-tensions. ESTPs are usually somewhat of a mystery to their mates
-and to others. Few people comprehend this unique personality.
-
-ESTPs themselves understand well the maxim, "He who travels
-fastest, travels alone." Still, ESTPs are not likely to be lonely
-for long.
-
-ESTPs meet life with a hearty appetite for the good things of the
-world, searching out excitement, perhaps as a warrior, an athlete,
-an adventurer, or as a professional gambler, but always seeking the
-thrill of courting Lady Luck in one fashion or another. A theme of
-seeking excitement through taking of risks runs through the lives
-of ESTPs.
diff --git a/xtrn/smm/mb-f.asc b/xtrn/smm/mb-f.asc
deleted file mode 100644
index 49cec2c04674a129e55f92a69445efb9fd231c59..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-f.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-The Feeler tends toward subjective & social values, personal feelings,
-harmony, intimacy, sympathy and devotion. The F overextends himself to meet
-others needs, enjoys serving people, tends to retract statements that offend
-others, asks himself 'how will this affect the people involved'.
-The feeler feels the thinker has ice in his veins.
-The population is equally divided between Ts and Fs, although more men tend
-to be Thinkers & more women tend to be Feelers.
diff --git a/xtrn/smm/mb-fp.asc b/xtrn/smm/mb-fp.asc
deleted file mode 100644
index cdc07cb81e34bdf64acbbb1968a2db2161de9bce..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-fp.asc
+++ /dev/null
@@ -1 +0,0 @@
-You should never have a party without an FP.
diff --git a/xtrn/smm/mb-i.asc b/xtrn/smm/mb-i.asc
deleted file mode 100644
index 8ff52b2d3e61ef668e0123b8e7e6f0e0bf8c6e62..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-i.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-An Introvert gets his energy from inside himself and needs his own space for
-recharging his batteries. An Introvert is drained by being around people.
-I is perceived as a good listener, tends to be shy, likes to share occasions
-with a few close friends, doesn't like interruptions, is suspicious if people
-are too complimentary, gets irritated if people repeat what has already been
-said. 'I' tends to consider - then speak, An 'I' is reluctant to reveal himself
-and may resist taking this test for fear of being exposed, but can complete
-the test in a short time without carefully considering & weighing each
-question. About 25% of the population are type I.
diff --git a/xtrn/smm/mb-infj.asc b/xtrn/smm/mb-infj.asc
deleted file mode 100644
index 73e1893f97ed90c324ce71ca53b6cea9830a5e98..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-infj.asc
+++ /dev/null
@@ -1,144 +0,0 @@
-INFJs in short:
-
-Succeed by perseverance, originality and desire to do whatever is
-needed or wanted. Put their best efforts into their work. Quietly
-forceful, conscientious, concerned for others. Respected for their
-firm principles. Likely to be honored and followed for their clear
-convictions as to how best to serve the common good.
-
-About 1% of the population.
-
-Details about INFJs:
-
-INFJs focus on possibilities, think in terms of values, and come
-easily to decisions. The small number of this type (1 percent) is
-regrettable, since INFJs have an unusually strong drive to
-contribute to the welfare of others and genuinely enjoy helping
-their fellow men. This type has great depth of personality; they
-are themselves complicated, and can understand and deal with
-complex issues and people.
-
-It is an INFJ who is likely to have visions of human events past,
-present, or future. If a person demonstrates an ability to
-understand psychic phenomenon better than most others, this person
-is likely to be an INFJ.
-
-Characteristically, INFJs have strong empathetic abilities and can
-be aware of another's emotions or intents even before that person
-is conscious of these. This can take the form of feeling the
-distress or illnesses of others to an extent which is difficult for
-other types. INFJs can intuit good and evil in others, although
-they seldom can tell how they came to know. Subsequent events tend
-to bear them out, however.
-
-INFJs are usually good students, achievers who exhibit an
-unostentatious creativity. They take their work seriously and
-enjoy academic activity. They can exhibit qualities of
-over-perfectionism and put more into a task than perhaps is
-justified by the nature of the task. They generally will not be
-visible leaders, but will quietly exert influence behind the
-scenes.
-
-INFJs are hard to get to know. They have an unusually rich inner
-life, but they are reserved and tend not to share their reactions
-with those they trust. Because of their vulnerability through a
-strong facility to interject, INFJs can be hurt rather easily by
-others, which, perhaps, is at least one reason they tend to be
-private people. People who have known an INFJ for years may find
-sides emerging which come as a surprise. Not that INFJs are
-inconsistent; they are very consistent and value integrity. But
-they have convoluted, complex personalities which sometimes puzzle
-even them.
-
-INFJs like to please others and tend to contribute their best
-efforts in all situations. They prefer and enjoy agreeing with
-others, and find conflict disagreeable and destructive. What is
-known as ESP is likely found in an INFJ.
-
-INFJs have vivid imaginations exercised both as memory and
-intuition, and this can amount to genius, resulting at times in an
-INFJs being seen as mystical. This unfettered imagination often
-will enable this person to compose complex and often aesthetic
-works of arts such as music, mathematical systems, poems, plays,
-and novels. In a sense the INFJ is the most poetic of all the
-types. INFJs can have uncanny communications with certain
-individuals at a distance.
-
-INFJs often select liberal arts as a college major and opt for
-occupations which involve interacting with people, but on a
-one-to-one basis. For example, the general practitioner in
-medicine might be an INFJ, or the psychiatrist or psychologist. As
-with all NFs, the ministry holds attraction, although the INFJ must
-develop an extroverted role here which requires a great deal of
-energy.
-
-INFJs may be attracted to writing as a profession, and often they
-use language which contains an unusual degree of imagery. They are
-masters of the metaphor, and both their verbal and written
-communications tend to be elegant and complex. Their great talent
-for language usually is directed toward people, describing people
-and writing to communicate with people in a personalized way. INFJs
-who write comment often that they write with a particular person in
-mind; writing to a faceless abstract audience leaves them
-uninspired.
-
-INFJs make outstanding individual therapists who have the ability
-to get in touch with the archetypes of their patients in a way some
-other types do not. The INFJs are also the most vulnerable of all
-types to the eruptions of their own archetypal material. As
-therapists, INFJs may choose counseling, clinical psychology, or
-psychiatry, or may choose to teach in these fields. Writing about
-these professions often intrigues an INFJ.
-
-Whatever their choice, they generally are successful in these
-fields because of their great personal warmth, their enthusiasm,
-their insight, their depth of concentration, their originality, and
-their organizational skills can all be brought into play.
-
-At work as well as socially, INFJs are highly sensitive in their
-handling of others and tend to work well in an organizational
-structure. They have a capacity for working at jobs which require
-solitude and concentration, but also do well when in contact with
-people, providing the human interaction is not superficial.
-
-INFJs enjoy problem-solving and can understand and use human
-systems creatively and humanistically. As employees and employers,
-INFJs are concerned with people's feelings and are able to provide
-in themselves a barometer of the feelings of individuals and groups
-within the organization. INFJs listen well and are willing and
-able to consult and cooperate with others. Once a decision is
-made, they work to implement it.
-
-INFJs are usually good at public relations and themselves have good
-interpersonal relations. They value staff harmony and want an
-organization to run smoothly and pleasantly, themselves making
-every effort to contribute to that end.
-
-They are crushed by too much criticism and can have their feelings
-hurt rather easily. They respond to praise and use approval as a
-means of motivating others, just as they, the INFJs, are motivated
-by approval. If they are subject to a hostile, unfriendly working
-condition or to constant criticism, they tend to lose confidence,
-become unhappy and immobilized, and finally become physically ill.
-
-As mates INFJs are devoted to their spouses, but may not always be
-open to physical approaches. They tend to be physically
-demonstrative at times, but wish to choose when, which is when they
-are in the mood. This may be quite confusing to an extroverted
-mate.
-
-Often an INFJs expressions of affection will be subtle, taking a
-humorous, unexpected turn. INFJs need and want harmony in their
-home and find constant conflict, overt or covert, extremely
-destructive to their psyches. Their friendship circle is likely to
-be small, deep, and longstanding.
-
-As parents, INFJs usually are fiercely devoted. A female INFJ,
-particularly, is linked to her children in a way different from the
-other types: with almost a psychic symbiosis. This deep bond can
-create an overdependency that can be unhealthy for both mother and
-child. At the same time, INFJs tend to be good friends with their
-children, while firm in discipline. They usually are concerned
-about the comfort of a home and most especially the comfort,
-physical health, and emotional well-being of both mates and
-children.
diff --git a/xtrn/smm/mb-infp.asc b/xtrn/smm/mb-infp.asc
deleted file mode 100644
index f99ff2b82f182c82526befe1da89b7e53bbebdba..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-infp.asc
+++ /dev/null
@@ -1,118 +0,0 @@
-INFPs in short:
-
-Full of enthusiasms and loyalties, but seldom talk of these until
-they know you well. Care about learning, ideas, language, and
-independent projects of their own. Tend to undertake too much,
-then somehow get it done. Friendly, but often too absorbed in what
-they are doing to be sociable. Little concerned with possessions
-or physical surroundings.
-
-About 1% of the population.
-
-Details about INFPs:
-
-INFPs present a calm, pleasant face to the world and are seen as
-reticent and even shy. Although they demonstrate a cool reserve
-toward others, inside they are anything but distant. They have a
-capacity for caring which is not always found in other types. They
-care deeply - indeed passionately - about a few special persons or
-cause. One word that captures this type is 'idealistic'. At
-times, this characteristic leaves them feeling isolated, especially
-since INFPs are found in only 1 percent of the general population.
-
-INFPs have a profound sense of honor derived from internal values.
-The INFP is the Prince or Princess of mythology, the King's
-champion, Defender of the Faith, and guardian of the castle. Sir
-Galahad and Joan of Arc are male and female prototypes of an INFP.
-To understand INFPs their cause must be understood, for they are
-willing to make unusual sacrifices for someone or something
-believed in.
-
-INFPs seek unity in their lives, unity of body and mind, emotions
-and intellect. They often have a subtle tragic motif running
-through their lives, but others seldom detect this inner minor key.
-The deep commitment of INFPs to the positive and the good causes
-them to be alert to the negative and the evil, which can take the
-form of a fascination with the profane. Thus INFPs may live a
-paradox, drawn toward purity and unity but looking over the
-shoulder toward the sullied and desecrated. When INFPs believe
-that they have yielded to an impure temptation, they may be given
-to acts of self-sacrifice in atonement. The atonement, however, is
-within the INFP, who does not feel compelled to make public the
-issue.
-
-INFPs prefer the valuing process over the purely logical. They
-respond to the beautiful versus the ugly, the good versus the bad,
-and the moral versus the immoral. Impressions are gained in a
-fluid, global, diffused way. Metaphors and similes come naturally
-but may be strained.
-
-INFPs have a gift of interpreting symbols, as well as creating
-them, and thus often write in lyric fashion. They may demonstrate
-a tendency to take deliberate liberties with logic. Unlike the NT,
-they see logic as something optional.
-
-INFPs also may, at times, assume an unwarranted familiarity with a
-domain, because their global, impressionistic way of dealing with
-reality may have failed to register a sufficient number of details
-for mastery. INFPs may have difficulty thinking in terms of a
-conditional framework; they see things as either real or fancied,
-and are impatient with the hypothetical.
-
-At work, INFPs are adaptable, welcome new ideas and new
-information, are well aware of people and their feelings, and
-relate well to most, albeit with some psychological distance.
-INFPs dislike telephone interruptions and work well alone, as well
-as with others. They are patient with complicated situations, but
-impatient with routine details. They can make errors of fact, but
-seldom of values. Their career choices may be toward the ministry,
-missionary work, college teaching, psychiatry, architecture,
-psychology - and away from business.
-
-They seem willing and usually are able to apply themselves
-scholastically to gain the necessary training for professional
-work, often doing better in college than in high school. They have
-a natural interest in scholarly activities and demonstrate, as do
-other NFs, a remarkable facility for languages. Often they hear a
-calling to go forth into the world to help others; they seem
-willing to make the necessary personal sacrifices involved in
-responding to that call, even if it means asking others to do
-likewise.
-
-INFPs can make outstanding novelists and character actors, for they
-able to efface their own personalities in their portrayal of a
-character in a way other types cannot.
-
-As mates, INFPs have a deep commitment to their pledges. They like
-to live in harmony and may go to great lengths to avoid constant
-conflict. They are sensitive to the feelings of others and enjoy
-pleasing those they care for. They may find it difficult to
-reconcile a romantic, idealized concept of conjugal life with the
-realities of everyday living with another person.
-
-At times, INFPs may seem fearful of exuberant attainment, afraid
-that current advances may have to be paid for with later
-sacrifices. The devil is sure to get his due if the INFP
-experiences too freely of success, or beauty, or health, or wealth,
-or knowledge. And thus, INFPs guard against giving way to relaxing
-in the happiness of mating. They may have difficulty in expressing
-affection directly, but communicate interest and affection
-indirectly.
-
-For INFPs, their home is their castle. As parents, they are fierce
-in protection of their home and family and are devoted to the
-welfare of family members. They have a strong capacity for
-devotion, sympathy, and adaptability in their relationships, and
-thus are easy to live with. They are loyal to their family and,
-although they may dream of greener pastures, they soon locate the
-nettles. The almost preconscious conviction that pleasure must be
-paid for with pain can cause a sense of uneasiness in the family
-system of an INFP, who may transmit an air of being ever-vigilant
-against invasion.
-
-In the routine rituals of daily living, INFPs tend to be compliant
-and may even prefer having decisions made on their behalf - until
-their value system is violated! Then INFPs dig in their heels and
-will not budge from ideals. Life with an INFP will go gently along
-for long periods, until an ideal is struck and violated. Then an
-INFP will resist and insist.
diff --git a/xtrn/smm/mb-intj.asc b/xtrn/smm/mb-intj.asc
deleted file mode 100644
index 18d1d03349d4806f6721f8a2e97282ff4ea8eb89..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-intj.asc
+++ /dev/null
@@ -1,169 +0,0 @@
-INTJs in short:
-
-Usually have original minds and great drive for their own ideas and
-purposes. In fields that appeal to them, they have a fine power to
-organize a job and carry it through with or without help.
-Skeptical, critical, independent, determined, often stubborn. Must
-learn to yield less important points in order to win the most
-important.
-
-About 1% of the population.
-
-Details about INTJs:
-
-INTJs are the most self-confident of all the types, having
-"self-power" awareness. Found in about 1 percent of the general
-population, the INTJs live in an introspective reality, focusing
-on possibilities, using thinking in the form of empirical logic,
-and preferring that events and people serve some positive use.
-Decisions come naturally to the INTJs; once a decision is made,
-INTJs are at rest. INTJs look to the future rather than the past,
-and a word which captures the essence of INTJs is 'builder' - a
-builder of systems and the applier of theoretical models.
-
-To INTJs, authority based on position, rank, title, or publication
-has absolutely no force. This type is not likely to succumb to the
-magic of slogans, watchwords, or shibboleths. If an idea or
-position makes sense to an INTJ, it will be adopted; if it doesn't,
-it won't, regardless of who took the position or generated the
-idea. As with the INTP, authority per se does not impress the
-INTJ.
-
-INTJs do, however, tend to conform to rules if they are useful, not
-because they believe in them, or because they make sense, but
-because of their unique view of reality. They are the supreme
-pragmatists, who see reality as something which is quite arbitrary
-and made up. Thus it can be used as a tool - or ignored.
-
-Reality is quite malleable and can be changed, conquered, or
-brought to a heel. Reality is a crucible for the refining of
-ideas, and in this sense, INTJs are the most theoretical of all the
-types. An INTJ sees reality as the pawn of ideas: No idea is too
-farfetched to be entertained. INTJs are natural brainstormers,
-always open to new concepts, and, in fact, aggressively seeking
-them.
-
-INTJs manipulate the world of theory as if on a gigantic chess
-board, always seeking strategies and tactics that have high payoff.
-In their penchant for logic, the INTJs resemble the INTPs. The
-logic of an INTJ, however, is not confined to the expressibly
-logical. Unlike INTPs, INTJs need only to have a vague, intuitive
-impression of the unexpressed logic of a system to continue surely
-on their way. Things need only 'seem' logical; this is entirely
-sufficient.
-
-Moreover, they always have a keen eye for the consequences of the
-application of new ideas or positions. They can be quite ruthless
-in the implementation of systems, seldom counting personal cost in
-terms of time and energy. Theories which cannot be made to work
-are quickly discarded by the INTJs.
-
-To understand INTJs, their way of dealing with reality rather than
-their way of dealing with ideas should be observed closely. Their
-conscious thought is extroverted and empirical. Hence, they are
-better at generalizing, classifying, summarizing, adducing
-evidence, proving and demonstrating than are the INTPs.
-
-The INTJs are somewhat less at home with pure reason, that is,
-systemic logic, where principles are explicit. In this respect
-they resemble the ENTJs. The INTJs, rather than using deductive
-logic, use their intuition to grasp coherence.
-
-INTJs have a drive to completion, always with an eye to long-term
-consequences. Ideas seem to carry their own force for INTJs,
-although they subject every idea to the test of usefulness.
-
-Difficulties are highly stimulating to INTJs, who love responding
-to a challenge that requires creativity. Those personality traits
-lead INTJs to occupations where theoretical models can be
-translated into actuality. They build data and human systems
-wherever they work if given even a slight opportunity. They can be
-outstanding in scientific research and also outstanding as
-executives who generate a plethora of implementations of ideas.
-
-Teamed with an INTP who is the architect of systems, the INTJ
-provides a dimension to an organization which insures that the work
-of the INTP does not gather dust on library shelves.
-
-INTJs can be very single-minded at times; this can be either a
-weakness or a strength in their careers, for they can ignore the
-points of view and wishes of others. INTJs usually rise to
-positions of responsibility, for they work long and hard and steady
-in their pursuit of goals, sparing neither time nor effort on their
-part or that of their colleagues and employees.
-
-INTJs live to see systems translated into substance; an INTP, by
-way of contrast, is content to design the system. In both, these
-types, however, coherence is the master. Both internal and
-external consistency are important, and if an INTJ finds that he or
-she is in a working situation where overlapping functions,
-duplication of effort, inefficient paper flow, and waste of human
-and material resources abound, the INTJ cannot rest until an effort
-is made to correct the situation. Cost-effectiveness is a concept
-which has a strong imperative for INTJs, who frequently select
-occupations in engineering, particularly human engineering.
-
-They also can be found in the physical sciences, in roles which
-require development, such as curriculum building, and, in general,
-any job which requires the creation and application of technology
-to complex areas.
-
-Fellow workers of INTJs often feel as if the INTJ can see right
-through them, and often believe that the INTJ finds them wanting.
-This tendency of people to feel transparent in the presence of the
-INTJ often results in relationships which have psychological
-distance. Thus colleagues find the INTJ apparently unemotional
-and, at times, cold and dispassionate. Because of their tendency
-to drive others as hard as themselves, INTJs often seem demanding
-and difficult to satisfy.
-
-INTJs are high achievers in school and on the job. On the job,
-they take the goals of the institution seriously and continually
-strive to respond to these goals. They make dedicated, loyal
-employees whose loyalties are directed toward the system, rather
-than toward individuals within the system. So as the people of an
-institution come and go, the INTJs have little difficulty - unlike
-the NFs, who have their loyalties involved more with persons than
-offices.
-
-INTJs ordinarily tend to verbalize the positive and eschew comments
-of a negative nature; they are more interested in moving an
-institution forward than commiserating about mistakes of the past.
-
-As mates, INTJs want harmony and order in the home and in
-relationships. They are the most independent of all the types.
-They will trust their intuitions about others when making choices
-of friends and mates, even in the face of contradictory evidence
-and pressures applied by others.
-
-The emotions of an INTJ are hard to read, and neither male nor
-female INTJ is apt to express emotional reactions. At times, both
-will seem cold, reserved, and unresponsive, while in fact INTJs are
-almost hypersensitive to signals of rejection from those for whom
-they care.
-
-In social situations, INTJs may also be unresponsive and may
-neglect to observe small rituals designed to put others at their
-ease. For example, INTJs may communicate that time is wasted if
-used for idle dialogue, and thus people receive a sense of hurry
-from an INTJ which is not always intended. In their interpersonal
-relationships, INTJs are usually better in a working situation than
-in recreational situations. They do not enjoy physical contact
-except with a chosen few.
-
-As parents, INTJs are dedicated and single-minded in their
-devotion: Their children are a major focus in life. They are
-supportive of their children and tend to allow them to develop in
-directions of their own choosing. INTJs usually are firm and
-consistent in their discipline and rarely care to repeat directions
-given to children - or others.
-
-Being the most independent of all the types, they have a strong
-need for autonomy; indifference or criticism from people in general
-does not particularly bother INTJs, if they believe that they are
-right. They also have a strong need for privacy.
-
-The most important preference of an INTJ is 'intuition', but this
-is seldom seen. Rather, the function of 'thinking' is used to deal
-with the world and with people. INTJs are vulnerable in the
-emotional area and may make serious mistakes here.
diff --git a/xtrn/smm/mb-intp.asc b/xtrn/smm/mb-intp.asc
deleted file mode 100644
index 97594584b51cc919a9a4f7e051f459220aa97e14..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-intp.asc
+++ /dev/null
@@ -1,118 +0,0 @@
-INTPs in short:
-
-Quiet, reserved, impersonal. Enjoy especially theoretical or
-scientific subjects. Logical to the point of hairsplitting.
-Usually interested mainly in ideas, with little liking for parties
-or small talk. Tend to have sharply defined interests. Need
-careers where some strong interest can be used and useful.
-
-About 1% of the population.
-
-Details on INTPs:
-
-INTPs exhibit the greatest precision in thought and language of all
-the types; they tend to see the distinctions and inconsistencies in
-thought and language instantaneously. The one word which captures
-the unique style of INTPs is 'architect' - the architect of ideas
-and systems as well as the architect of edifices. This type is
-found in only 1 percent of the population and therefore is not
-encountered as frequently as some of the other types.
-
-INTPs detect contradictions in statements no matter how distant in
-space or time the contradictory statements were produced. The
-intellectual scanning of INTPs has a principled quality; that is,
-INTPs search for whatever is relevant and pertinent to the issue at
-hand. Consequently, INTPs can concentrate better than any other
-type.
-
-Authority derived from office, position, or wide acceptance does
-not impress INTPs. External authority per se is irrelevant. INTPs
-abhor redundancy and incoherence.
-
-Possessing a desire to understand the universe, an INTP is
-constantly looking for natural law. Curiosity concerning these
-keys to the universe is a driving force in this type.
-
-INTPs prize intelligence in themselves and in others, but can
-become intellectual dilettantes as a result of their need to amass
-ideas, principles, or understanding of behavior. And once they
-know something, it is remembered.
-
-INTPs can become obsessed with analysis. Once caught up in a
-thought process that thought process seems to have a will of its
-own for INTPs, and they persevere until the issue is comprehended
-in all its complexity. They can be intellectual snobs and may show
-impatience at times with others less endowed intellectually. This
-quality, INTPs find, generates hostility and defensive behaviors on
-the part of others, who may describe an INTP as arrogant.
-
-For INTPs, the world exists primarily to be understood. Reality is
-trivial, a mere arena for proving ideas. It is essential that the
-universe is understood and that whatever is stated about the
-universe is stated correctly, with coherence and without
-redundancy. This is the INTP's final purpose. It matters not
-whether others understand or accept his or her truths.
-
-The INTP is the logician, the mathematician, the philosopher, the
-scientist; any pursuit requiring architecture of ideas intrigues
-this type.
-
-INTPs should not, however, be asked to work out the implementation
-of application of their models to the real world. The INTP is the
-architect of a system and leaves it to others to be the builder and
-the applicator. Very often, therefore, the INTP's work is not
-credited to him or her. The builder and the applier gains fame and
-fortune, while the INTP's name remains obscure. Appreciation of an
-INTP's theoretical work frequently comes posthumously - or the work
-may never be removed from library shelves at all and thus lost.
-
-INTPs tend not to be writers or to go into sales work. They are,
-however, often excellent teachers, particularly for advanced
-students, although INTPs do not always enjoy much popularity, for
-they can be hard taskmasters.
-
-They are not good at clerical tasks and are impatient with routine
-details. They prefer to work quietly, without interruption, and
-often alone. If an organization is to use the talents of an INTP
-appropriately, the INTP must be given an efficient support staff
-who can capture ideas as they emerge and before the INTP loses
-interest and turns to another idea.
-
-INTPs take their mating relationship seriously and usually are
-faithful and devoted - albeit preoccupied at times. They are not
-likely to welcome constant social activity or disorganization in
-the home.
-
-In all probability, the mate of an INTP will initiate and manage
-the social life. If left to his or her own devices, the INTP mate
-will retreat into the world of books and emerge only when physical
-needs become imperative.
-
-INTPs are, however, willing, compliant, and easy to live with,
-although somewhat forgetful of appointments, anniversaries, and the
-rituals of daily living - unless reminded. They may have
-difficulty expressing their emotions verbally, and the mate of an
-INTP may believe that he/she is somewhat taken for granted.
-
-As a parent, the INTP is devoted; they enjoy children and are
-serious about their upbringing. The home of an INTP parent is
-usually calm, low-key in discipline, but well run and ordered.
-
-INTPs deal with the environment primarily through intuition, and
-their strongest quality, the thinking function, remains relatively
-hidden except in close associations. Therefore, INTPs are often
-misunderstood, seen as difficult to know, and seldom perceived at
-their true level of competency.
-
-They are inclined to be shy except with close friends, and their
-reserve is difficult to penetrate. They are very adaptable until
-one of their principles is violated. Then INTPs are not adaptable
-at all!
-
-They may have difficulty in being understood by others because they
-tend to think in a complicated fashion and want to be precise,
-never redundant in their communications.
-
-Because their feeling qualities may be underdeveloped, they may be
-insensitive to the wants and wishes of others, often quiet unaware
-of the existence of these wants and wishes.
diff --git a/xtrn/smm/mb-intro.asc b/xtrn/smm/mb-intro.asc
deleted file mode 100644
index bdd60da67d3464895750139400e8d345bc9425f1..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-intro.asc
+++ /dev/null
@@ -1,18 +0,0 @@
-nyhThe Myers-Briggs Personality Test nc
-
-The test you are about to take is titled, "hThe Keirsey Temperament Sorternc".
-
-There are no "right" or "wrong" answers to the questions in this inventory.
-Your answers will help show how you like to look at things and how you like to
-go about deciding things. Knowing your own preferences and learning about
-other people's can help you understand where your special strengths are, what
-kind of work you might enjoy and be successful doing, and how people with
-different preferences can relate to each other and be valuable to society.
-
-Read each question carefully and indicate your answer by typing 'A', 'B' or
-'C' for cannot decide.
-
-Do not think too long about any question.
-
-The test consists of 70 questions.
-
diff --git a/xtrn/smm/mb-isfj.asc b/xtrn/smm/mb-isfj.asc
deleted file mode 100644
index c59d1d4a1930ac18c7ee6a63731e95fd0fe8c72c..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-isfj.asc
+++ /dev/null
@@ -1,116 +0,0 @@
-ISFJs in short:
-
-Quiet, friendly, responsible and conscientious. Work devotedly to
-meet their obligations. Lend stability to any project or group.
-Thorough, painstaking, accurate. May need time to master technical
-subjects, as their interests are usually not technical. Patient
-with detail and routine. Loyal, considerate, concerned with how
-other people feel.
-
-About 6% of the population.
-
-Details about ISFJs:
-
-Six out of every hundred people are ISFJs. Here the primary is to
-be of service and to minister to individual needs. ISFJs carry a
-sense of history, a sense of continuity with past events and
-relationships. Traditions and the conservation of resources are
-highly valued.
-
-The least hedonistic of all types, ISFJs believe work is good, play
-must be earned. ISFJs are willing to work long, long hours. When
-they undertake a task, it will be completed if at all humanly
-possible.
-
-Adhering to an established way of doing things and doing them well
-is valued and respected. The efficiency and effectiveness of an
-established procedure is not often questioned. Procedures dictated
-by handbooks are law. If others violate or ignore these standard
-operating procedures, ISFJs are annoyed and irritated, although
-they may not always display this reaction. Usually, such
-irritation is turned inward and may be experienced as fatigue and
-muscle tension.
-
-ISFJs are super-dependable and seldom are happy working in
-situations where rules are constantly changing. Their major need
-to be of service to others leads them into occupations such as
-nursing, teaching, secretarial work, medical practice (especially
-general practice), librarian work, and middle-management
-administrative jobs.
-
-They relate well to people who need them, for example, the sick,
-the ignorant, students, and the "boss." Much satisfaction comes to
-them when they are taking care of the needs of another and they
-render the service gently and helpfully. When the recipient is no
-longer in need, the relationship may change its character, the ISFJ
-becoming disinterested.
-
-They enjoy assisting the downtrodden and can handle better than
-other types servility of others. If a situation calls for such
-behavior on their part, they will show "due respect."
-
-ISFJs have an extraordinary sense of responsibility and an
-outstanding talent for executing routines which call for repeated,
-sequential procedures; for example, ISFJs make extraordinary
-secretaries, highly efficient nurses, and dedicated teachers.
-Speculation and theory do not intrigue ISFJs, who would rather
-leave the less practical matters to others while remaining
-themselves practical and down-to-earth.
-
-ISFJs tend to be devoted and loyal to a boss and tend to identify
-personally rather than institutionally. They expect others,
-including the boss, to follow procedures and are distressed and
-embarrassed when people do not behave as they are supposed to
-behave.
-
-ISFJs often seem to feel personally responsible for seeing to it
-that people in an institution or business carry out established
-rules and routines. They often are aware of status given by
-titles, environment, offices, and the like and can use this to
-advantage.
-
-They are aware of the value of material resources and abhor the
-squandering or misuse of these resources. To save, to put
-something aside against an unpredictable future, to prepare for
-emergencies - these are important actions.
-
-ISFJs may experience some discomfort when placed in positions of
-authority over others and may tend to try to do everything
-themselves rather than insist that others do their jobs. As a
-result, ISFJs are frequently overworked.
-
-ISFJs are devoted to mate and family and usually are excellent
-homemakers. The home of an ISFJ is likely to be well kept inside
-and out. Interior and exterior are meticulously maintained and
-appointed in the traditional manner.
-
-As a parent, the ISFJ expects children to conform to the rules of
-society and has a feeling of personal responsibility to see to it
-that these rules are honored.
-
-An ISFJ is apt to find the putting on of airs as offensive and
-tends to prefer modest, quiet friends rather than more boisterous
-ones. For the ISFJ, people should behave according to their
-position in life, and the ISFJ may be annoyed by others who act
-either above or below their social or economic station.
-
-The ISFJ female often displays a flair for making the interior of
-the home attractive in a time-honored style, provides attractive,
-nourishing meals, and maintains the environment in a neat and
-orderly state. To the ISFJ male and female, the home territory is
-important to own and to preserve.
-
-While ISFJs are super-dependable, they may be fascinated by and
-attracted to the irresponsible, the lush, the glutton. Many ISFJs
-marry alcoholics and then proceed to conduct a rescue-rejection
-game without end, with the rescuing phase taking the guise of an
-attempt to reform. Occasionally an ISFJ mother may reveal a
-tendency to find humor in the "waywardness" of a son, while raising
-her daughters to respect traditions and to do the Right Thing at
-the Right Time - always.
-
-ISFJs are frequently misunderstood and undervalued. Their
-contributions often are taken for granted, and the ISFJ as well is
-often taken for granted. This can cause an ISFJ to harbor feelings
-of resentment, and this bottled up emotion can gnaw inwardly,
-causing the ISFJ much undeserved suffering.
diff --git a/xtrn/smm/mb-isfp.asc b/xtrn/smm/mb-isfp.asc
deleted file mode 100644
index 4b9b4d322b01c9f64fde08c362edddc48c7c3784..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-isfp.asc
+++ /dev/null
@@ -1,166 +0,0 @@
-ISFPs in short:
-
-Retiring, quietly friendly, sensitive, kind, modest about their
-abilities. Shun disagreements, do not force their opinions or
-values on others. Usually do not care to lead but are often loyal
-followers. Often relaxed about getting things done, because they
-enjoy the present moment and do not want to spoil it by undue haste
-or exertion.
-
-About 5% of the population.
-
-Details about ISFPs:
-
-Although all SPs (Sensuous Performers) are artisans in their
-nature, they usually do not pursue their artistry with the same
-devotion and adornment as the ISFP. For whatever reason, the ISFP
-seems more inclined to the "fine arts" than the other SPs; so when
-an especially gifted composer, painter, or dancer shows up, he or
-she, more frequently than not, possesses the character of an ISFP.
-Beethoven, Toscanini, Rembrandt, and Nijinski, as shown by
-typohistorical research, were clear-cut ISFPs.
-
-But the ISFP temperament is very difficult to observe, even in the
-great artists, and so ISFP is probably the most misunderstood of
-all the types.
-
-A major source of misunderstanding is the tendency of ISFPs not to
-express themselves directly, but through action. If they find a
-medium of expression, some art form, then the character is
-expressed in some degree in the medium. If not, it simply doesn't
-come out, and no one knows them, this social reticence making the
-character all but invisible.
-
-Of course, in those rare cases where remarkable skill is achieved,
-such as in the virtuoso, ISFPs become celebrities, but their nature
-is still far from visible. Harpo Marx, a brilliant comedic actor,
-may well be seen as a prototype, in his simultaneous celebrity and
-mute invisibility.
-
-On close observation, these relatively infrequent SPs (5 percent of
-the population is ISFP, as compared to 15 percent ESFP) are just as
-hedonistic and impulsive as the other SPs. Here is no NF search
-for significance, nor for that matter any fascination with science
-(NT) or commerce (SJ).
-
-ISFPs live Epicurean lives in the here and now, and as gracefully
-as possible. They do not plan and prepare. Submergence in their
-artistry is not preparation for something later; rather they
-experience intensely, now. ISFPs do not wait, for to wait is to
-see their impulse wither and die; they want and value their
-impulses and see them as the center of their lives.
-
-Nor are ISFPs devoted or committed to artful play; rather they are
-caught, as by a magnet or a whirlwind. So then the long hours of
-"practice" the virtuoso "gives" to artistry is not practice at all
-and it is not given; it is doing and it is taken from the (willing)
-ISFP by the performance itself. The act is ISFP's master, not the
-reverse, so we must abandon any notion of ISFPs as careful and
-devoted planners and of dutiful preparation and rehearsal. They
-paint, or sing, or toot, or dance, or run, or skate, or pot, or
-whatever, simply because must: the mountain is climbed 'because it
-is there'.
-
-Because the ISFP is always caught up, so to speak, in whatever
-actions are underway, rather than practicing toward some distant
-goal, there is no question of the ISFP noticing fatigue, pain, or
-danger. They are usually quite oblivious to the accompaniments of
-many of their favorite activities. It is not that ISFPs are inured
-to them as much as it is that, wholly engaged by an action, they
-simply do not notice them. In this ISFP is similar to other SPs
-and different from all other types.
-
-ISFP, like other SPs, has a special kind of intelligence. Please
-recall that intelligence is defined in this book as doing things
-well under varying circumstances. This particular category of
-intelligence might be called "artisan concretized." Such talent
-differs from that possessed by NFs, NTs, and SJs (granting of
-course, that they too have their own unique and inherent
-abilities). This artisan concretization somehow keeps the ISFP
-more closely in touch with the very real.
-
-While the ISTP is attuned to the tool, so to speak, the ISFP is
-attuned to color, line, texture, shading - touch, motion, seeing,
-and hearing in harmony. The senses of the ISFP seem more keenly
-tuned than those of others. Rembrandt could almost taste colors so
-great was his discrimination. Toscanini could hear a single false
-note in the most complex operatic-orchestral score, and Hemingway's
-words tasted and smelled and felt the waves. This extreme
-concreteness and specificity seems to come naturally to the ISFP
-and is embedded "in the warp and woof of the man's make."
-
-The social side of the ISFP character must not be eclipsed by the
-more spectacular performances some of this group are capable of.
-The ISFP has to be the kindest of all the types with no near
-competitors. This kindness is unconditional. Here is sympathy, of
-which we are all capable, carried to its most extreme form. The
-ISFP is especially sensitive to the pain and suffering of others
-and, like St. Francis of Assisi, with sympathetic impulsivity
-gives freely to the sufferer.
-
-ISFP is usually not interested in developing facility in speaking,
-writing, or conversation. Speech, after all, is abstract, not
-concrete, ISFPs preferring to have their fingers on the pulse of
-life. That pulse must be felt - by touch, in the muscles, in the
-eyes, in the ears.
-
-This insistence on the senses being so closely attuned to reality
-can, in some ISFPs, occasion a breach with language, and language
-becomes a barrier to smooth interpersonal relations. So ISFPs are
-sometimes seen by others as reserved and private, tending to give
-up rather easily in their attempts to express themselves verbally.
-
-But this reluctant speech is not so much a lack of ability as it is
-disinterest. Hemingway broke that barrier, a splendid instance of
-an ISFP entering the world of words and making apparent
-inarticulateness into art, changing the face of 20th Century
-literature.
-
-The number of great artisans who, upon investigation, were found
-clearly to have been ISFPs, is truly awesome. The other SPs seem
-to have contributed far fewer masters to the fine arts. Gaugin and
-Puccini, both ESTPs, were in this sense exceptional. Music and the
-dance seems almost the province of ISFP, and surely investigation
-will show many of the great athletes come from this group.
-
-Of course, all ISFPs have not been and need not be artisans in the
-narrow sense of the word. Art, broadly conceived, is any action
-the next move of which is a free variable, and it is art thus
-conceived that is the forte of SPs in general and the ISFP in
-particular.
-
-Thus ISFPs have a lot of leeway in choice of occupation, especially
-if they do not drop out of school early (most SPs do, since the
-school offers little that is of interest to them or that challenges
-their special brand of intelligence). It is a sad day indeed when
-the ISFP chooses work wherein the operations are fixed by rule or
-necessity and not free. To be happy and productive the ISFP must
-choose variable actions and be rewarded for doing them.
-
-Finally, in many ISFPs may be found an instinctive longing for the
-natural, the pastoral, the bucolic. They are quite at home in the
-wilds, and nature seems to welcome them. Some have a remarkable
-way with animals, even wild animals, almost as if there were a bond
-of mutual sympathy and trust. In some instances a similar bond may
-be seen between the ISFP and young children, instant and unstudied.
-
-Perhaps the most important thing to understand about ISFPs is that
-they are SPs, with much in common with ESFPs especially, often
-resembling ISTPs, and even sharing some traits with the seemingly
-very different ESTP.
-
-To summarize this commonality with other SPs, ISFPs may be seen as
-optimistic and cheerful; egalitarian, fraternal, and insubordinate;
-tending to ward off obligation, duty, confinement, and fetters; a
-lover of freedom, easily bored, wanting excitement, risk, chance,
-and tests of luck; uncomplicated in motivation, trusting,
-receptive, generous, and in every sense of the word a spender
-rather than a saver.
-
-ISFPs are misunderstood not only because they are retiring,
-reserved, and even self-effacing, but because the Jungians have
-cast them as "introverted feeling types," and therefore very much
-like the INFPs. Watch a few thoroughgoing ISFPs and you'll find
-they have very little in common with INFPs. Other types are
-reminded to guard against the natural tendency to project their own
-traits of character onto the silent ISFP.
diff --git a/xtrn/smm/mb-istj.asc b/xtrn/smm/mb-istj.asc
deleted file mode 100644
index 399af67a1bde56e24327c2d24847a2ff999eba25..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-istj.asc
+++ /dev/null
@@ -1,121 +0,0 @@
-ISTJs in short:
-
-Serious, quiet, earn success by concentration and thoroughness.
-Practical, orderly, matter-of-fact, logical, realistic, and
-dependable. See to it that everything is well organized. Take
-responsibility. Make up their own minds as to what should be
-accomplished and work toward it steadily, regardless of protests or
-distractions.
-
-About 6% of the population.
-
-Details about ISTJs:
-
-ISTJs are characterized by decisiveness in practical affairs, are
-the guardians of time-honored institutions, and, if only one
-adjective could be selected, 'dependable' would best describe this
-type which represents about 6 percent of the general population.
-The word of ISTJs is their bond, and they experience great
-uneasiness by thoughts of a bankrupt nation, state, institution, or
-family.
-
-Whether at home or at work, this type is rather quiet and serious.
-ISTJs are extraordinary persevering and dependable. The thought of
-dishonoring a contract would appall a person of this type. When
-they give their word, they give their honor.
-
-ISTJs can be counted on to conserve the resources of the
-institution they serve and bring to their work a practical point of
-view. They perform their duties without flourish or fanfare;
-therefore, the dedication they bring to their work can go unnoticed
-and unappreciated.
-
-ISTJ's interest in thoroughness, details, justice, practical
-procedures, and smooth flow of personnel and material leads this
-type to occupations where these preferences are useful.
-
-For example, ISTJs make excellent bank examiners, auditors,
-accountants, or tax examiners. Investments in securities are
-likely to interest this type, particularly investments in blue chip
-securities, ISTJs are not likely to take chances with their own or
-others' money.
-
-ISTJs can handle difficult, detailed figures and make sense of
-them. They communicate a message of reliability and stability,
-which often makes them excellent supervisors of, for example, a
-ward of a hospital, a library, or a business operation.
-
-They would be capable of handling the duties of a mortician, a
-legal secretary, or a law researcher. High school teachers of
-business, home economics, physical education, and the physical
-sciences, are ISTJs, as are top-ranking officers of the Women's
-Army Corps. Often this type seem to have ice in their veins, for
-people fail to see an ISTJ's vulnerability to criticism.
-
-ISTJs are patient with their work and with procedures within an
-institution, although not always patient with the individual goals
-of people in that institution. ISTJs will see to it that resources
-are delivered when and where they are supposed to be; materiel will
-be in the right place at the right time. And ISTJs would prefer
-that this be the case with people, too.
-
-As a husband or wife, the ISTJ is a pillar of strength. Just as
-this type honors business contracts, so do they honor the marriage
-contract. Loyal and faithful mates, they take responsibilities to
-children and mate seriously, giving lifelong commitment to these.
-'Duty' is a word the ISTJ understands.
-
-The male ISTJ sees himself as the breadwinner of a family, although
-he can accept a working wife - as long as responsibilities to
-children are not shirked. The male ISTJ's concept of masculinity
-is patriarchal, and both female and male ISTJs make steady,
-dependable partners. The female ISTJ may abandon the frivolous for
-the sensible and may not always deepen her sensuality.
-
-As parents, ISTJs are consistent in handling children, and the
-rules of family are made clear. A rebellious, nonconformist child
-may have a difficult time, however, with an ISTJ parent - and vice
-versa. As a child, the ISTJ is apt to be obedient and a source of
-pleasure to parents and teachers.
-
-Although ISTJs are outstandingly practical and sensible, they can
-marry people who are thoroughly irresponsible, with the marriage
-developing into a relationship more parent-to-child than
-adult-to-adult.
-
-The ISTJ fluctuates from being rescuer to reformer of the wayward
-mate. The marriage then becomes a lifelong game: On one side,
-there is Irresponsibility, Promise of Reform, Brief Period of
-Reform, and Irresponsibility again; on the ISTJ's part, the cycle
-is Disapproval, Rescue, Scolding, Forgiveness, Acceptance of
-Promise To Do Better, and on and on.
-
-This pattern often is seen when an ISTJ marries an alcoholic and
-enters a life of care taking punctuated by periods of anger and
-rejection. Somehow, although ISTJs can accept periodic fickleness
-and selfishness in significant others, they do not see this kind of
-behavior as acceptable in themselves.
-
-ISTJs have a distaste for and distrust of fanciness in speech,
-dress, or home. The ostentatious is abhorred, and a neat, orderly,
-and functional home and work environment is preferred. Durability
-of furnishings are of primary concern, esthetics given slim
-consideration. The clothes of an ISTJ tend to be practical and
-durable rather than in the latest style or luxurious. "No
-nonsense" in both food and clothes seem characteristic of this type
-who tend not to be attracted by exotic foods, beverages, or places.
-
-The male ISTJ may enjoy stag, men-only parties and use a different
-sort of language when only men are present. The yearly hunting or
-fishing trip as a male ritual is often a part of recreation for an
-ISTJ. More than the female, the ISTJ male is apt to be involved in
-community service organizations that transmit traditional values to
-the young, such as Boy Scouting. They understand and appreciate
-the contributions these groups make in preserving the national
-heritage.
-
-Along with the SJs, the ISTJ takes particular delight in festive
-occasions held in the context of rituals, for example, weddings,
-holiday feasts, and birthdays. At work, the ISTJ is apt to see the
-holiday office party as a necessary nuisance and would be likely to
-participate and enjoy these events.
diff --git a/xtrn/smm/mb-istp.asc b/xtrn/smm/mb-istp.asc
deleted file mode 100644
index 6341a59e448c4715865140cc49099481e64b4b54..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-istp.asc
+++ /dev/null
@@ -1,191 +0,0 @@
-ISTPs in short:
-
-Cool-onlookers - quiet, reserved, observing and analyzing life with
-detached curiosity and unexpected flashes of original humor.
-Usually interested in impersonal principles, cause and effect, how
-and why mechanical things work. Exert themselves no more than they
-think necessary, because any waste of energy would be inefficient.
-
-About 13% of the population.
-
-Details about ISTPs:
-
-Just as impulsive as other SPs, the ISTP's life is artful action -
-and action is end in itself. Action for the ISTP is more
-gratifying if it is born of impulse rather than purpose. If the
-action is in the service of an end or aim, let the aim look out for
-itself; it cannot be allowed to influence execution. The act is
-self-directed, self-leading, containing its own imperatives which
-cannot be suborned to mere rules, regulations, or laws.
-
-ISTPs are egalitarian and can be fiercely loyal to "brothers." They
-can also be fiercely insubordinate seeing hierarchy and authority
-as unnecessary and even superfluous. It is not so much a matter of
-going against regulations as it is simply ignoring them.
-
-The ISTP must do his or her own thing, free to vary each next move.
-And ISTPs are, or want to be, proud of their ability to make the
-next move skillfully.
-
-ISTPs are often fearless, risking themselves more than other types,
-despite (even frequent) injury. Of all the types, ISTPs are most
-likely to pit themselves, or their technique, against chance, odds,
-or fate. They thrive on excitement; they crave some excitement
-each day, in the form of fast motion - racing, sky diving, or
-surfing, for instance. This hunger for action makes them much more
-subject to boredom than any other type, their urge driving them to
-a faster pace. Strangely, however, they are not bored while doing
-their thing, even though there may be long stretches when nothing
-happens, as during travel, surfing, hunting, or fishing.
-
-The ISTP nature is most easily seen in their mastery of tools,
-tools of any kind, from microscopic drill to supersonic jet. From
-an early age, they are drawn to tools as to a magnet; they must
-manipulate them, and tools fall into their hands demanding use.
-Many pilots knew by the age of five that they were going to be
-pilots.
-
-ISTPs tend to take up activities that allow them to use tools;
-driving, steering, operating. And if given a tool, whether scalpel
-or earth mover, is operated with a precision that defies belief,
-that operator is likely an ISTP. Others use tools, of course, but
-not with the virtuosity of the ISTP.
-
-Indeed, we must call ISTP's the tool artisans, for they above all
-others command the tool and bend it to their impulse. But again,
-ISTPs - personified in Michaelangelo and Leonardo - work (or
-better, play) with their tools on personal impulse and not on
-schedule. If an externally imposed schedule coincides with
-impulse, fine; if not, so much the worse for the schedule.
-
-One tool especially attractive to the ISTP is the weapon. Should
-ISTPs turn against society (for whatever reason), they wield their
-weapons with lethal genius to support their rejection. The hit man
-of today, the gunslinger of the American West, and the duelist of
-18th Century Europe, may be seen as virtuosos of precision
-homicide.
-
-Hit man, gunslinger, and duelist alike took pride in their prowess.
-Fortunately, they face their own kind in battle, the good warriors
-of the land: soldier, marshal, police, intelligence agent. This is
-not to say that all warriors, good or bad, are ISTPs, or that ISTPs
-are all weapons experts; rather that the weapon virtuoso is more
-frequently ISTP than not.
-
-ISTPs also play on impulse, taking off at any time just because
-they "feel like it." (We are advised not to try to stop the ISTP
-who "feels like" doing something.) The neurosurgeon does crop
-dusting on the side and rides a motorcycle to the airport, and the
-financier goes on a hunting trip in the middle of an audit (i.e.,
-SJ scrutiny). There can be no end to the ways ISTPs seek thrills
-in play.
-
-Although they may have the appearance of loners in their work, they
-nonetheless hang around their own kind in play. The climbers,
-racers, flyers, hunters, and in general, movers flock together. The
-companionship is mediated through the tool, and conversation is
-sparse and terse.
-
-Like the ISFPs, ISTPs communicate through action, and show little
-interest in developing verbal skills. Indeed, this lack of
-interest in communication may be mistaken for what well meaning but
-misguided medics and educators call "learning disability" or
-"dyslexia," both preposterous notions when meant as explanations.
-Let ISFPs get near a tool of any complexity and power and see how
-fast they pass up everybody in 'learning' to use it and how precise
-their 'lexicon' in talking of its features.
-
-Despite their egalitarianism, insubordination, and love of freedom,
-they can be leaders, even great ones. But they must be "up front,"
-sword in hand, leading the charge. That is to say, ISTPs can be
-very successful as battle leaders, for instance, no matter how
-large or small the force under their command. Their supreme
-realism, timing, and sense of expediency allows them to seize the
-moment and fully exploit whatever resources can be gotten (theirs
-or others) and capitalize on deficits and mistakes of their
-opponent.
-
-Theirs is an expediency or exploitative leadership, based on a
-special kind of intelligence which may be called artistic
-concreteness. Yes, for the ISTP battle leader, combat is an art,
-an intellectual game, not in the sense of strategy (that is for
-NTs), but rather using whatever is at hand to defeat the other with
-the least injury.
-
-Battle leaders are duellists. Patton was such a leader, and we
-must credit Marshall (an NTJ strategist) for seeing beneath that
-flamboyant, impulsive, insubordinate, and reckless exterior a
-peerless warrior. The same credit goes to Grant (another NTJ) for
-selecting Sheridan (STP), and to Hitler (ENFJ) for selecting Rommel
-(ISTP). Patton, Sheridan, and Rommel were cut from the same cloth
-and showed the same artistic espionage and rapier-like tactics.
-
-Glory is a pre-20th Century concept better understood by the ISTP
-than by others. Or at least the ISTP is more interested in it than
-most others. In battle there is glory, for it is in battle that
-one can exercise one's lethal skills with positive sanction.
-
-The Seven Samurai were glorified and so have been duellists down
-through the ages. Foss, Boyington, Fonck, and von Richtoffen, all
-virtuosos of the winged machine gun, are still glorified heroes.
-But there are hundreds of warriors just like them in nature. One
-can test one's mettle in lethal duel, there's glory in it, as the
-film The Great Waldo Pepper showed most poetically.
-
-The education and intelligence of the ISTP is worth special
-comment. Possessed of artisan intelligence, ISTP is not in the
-least interested in the clerical, interpretive, and "science"
-curricula that abound in the 20th Century school. The other SPs,
-equally bored by the school, will at least act as if they're trying
-to learn, but not ISTP. ISTP will stare coldly into the eyes of
-the teacher and not even say no. No amount of cajoling, bribing,
-rewarding, punishing, or threat will get them to do their school
-work.
-
-School work, quite apart from being irrelevant to the talents of
-SPs, is, after all, mere preparation for something the ISTPs figure
-they're never going to do anyway. SPs do not wish to prepare - for
-anything - and ISTPs are careful to make this clear to their
-would-be instructors.
-
-What is there to 'do', 'now', that is 'worthwhile'? ISTP will not
-sit still (literally) for the trivial fare dished out
-(sanctimoniously, in the eyes of the ISTP). Most seem to agree
-that ISTPs "should" do their school work. But why? The arguments
-are piddling and incoherent, warranting the scorn they get from the
-unshakable ISTP.
-
-ISTPs are not "minimally brain damaged," or "hyperactive," or
-"dyslexic"; they are active, and they are stubbornly insistent upon
-getting to do, in school, some things that allow them to test their
-intelligence and their mettle. Name-calling and pill-pushing won't
-change them, other than destroying their self confidence and
-perhaps creating a stimulant addict now and then. Give them a
-tool-centered curriculum and watch their speed.
-
-Behaviorally the ISTP is more like the ESTP than any other type,
-and the older they get, the greater the resemblance. When young,
-ISTPs may look very much like ISFPs, but as their confidence and
-pride increase this resemblance recedes. Jungians think ISTPs are
-just like INTPs with only minor differences, but this is based on
-the definition of ISTPs as "introverted thinking types."
-
-INTPs are logicians, philologists, and architects in the way they
-think, but ISTPs are completely disinterested in these pursuits.
-Even a cursory observation of a few clear-cut ISTPs will show how
-striking the contrast, and how trivial the resemblance.
-
-Still, the most important thing about the ISTPs is their
-commonality with other SPs. We might think that there would be
-some resemblance to the ISTJ, having as they do, "IST" in common.
-but no, their behavior is antithetical in almost every dimension of
-comparison. One is pessimistic while the other optimistic; one is
-parental, the other, fraternal; one saves, the other spends; one
-believes in rules, the other is instinctual insubordinate and
-recalcitrant to rules; and so on.
-
-ISTPs have infinitely more in common with the very different ESFP
-than they do with any NT or SJ; besides the above, their mood is
-one of good cheer, they are loyal to their equals, they want no
-obligations, duties, or confining promises, are uncomplicated in
-their desires, and are trusting, receptive, and generous.
diff --git a/xtrn/smm/mb-j.asc b/xtrn/smm/mb-j.asc
deleted file mode 100644
index 92c1cb6cbfb6de7c2ba943db5b7873a9b221b40f..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-j.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-The Judgement type tends toward planning, goal setting, deciding, and
-getting-things-done. Once the J makes a decision he tends to be fixed and
-inflexible. The J finds himself always waiting for others - who are always
-late; thinks that if everyone would do what they are supposed to, the world
-would be a better place, has a personal schedule for the day, and gets
-frustrated when the schedule is interrupted, doesn't like surprises, keeps
-lists, thrives on order, likes to finish-the-job.
-J creates an environment that is structured, scheduled, ordered, planned,
-and controlled; is decisive, deliberate.
-J's plan their work and work their plan.
-The population is equally divided between Js and Ps.
diff --git a/xtrn/smm/mb-n.asc b/xtrn/smm/mb-n.asc
deleted file mode 100644
index 3347e8fb90085b5856e368ae99d31c076274ae2d..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-n.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-The iNtuitive type gets his information from within himself, tends to favor
-hunches, bases his decisions on possibilities, is innovative, imaginative.
-An N tends to think about several things at once, finds future possibilities
-more intriguing than frightening, thinks 'boring details' is a redundancy,
-believes time is relative, likes to figure out how things work, is prone to
-puns & word games, thinks in terms of general directions rather than specific
-steps. About 25% of the population are type N.
diff --git a/xtrn/smm/mb-nf.asc b/xtrn/smm/mb-nf.asc
deleted file mode 100644
index 988b822688f39d23feb96c153e37df7762741872..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-nf.asc
+++ /dev/null
@@ -1,22 +0,0 @@
-The purpose of life for an NF is to find his purpose in life. NF is self in
-search of self & has difficulty understanding what seem to be the false goals
-of others. Search for identity, meaning, & actualization. Believes his real
-self is somewhat less than what it should be. Desires to be genuine,
-transparent; without masks or game-playing. Life is a drama; each encounter
-is pregnant with becoming. Very sensitive to non-verbal communication.
-Relationships can fall into a pattern of generous investment of energy followed
-by disappointment in what-could-have-been. Tend to be writers, poets, musicians
-teachers, counselors, actors; excellent communicators; gift of helping people
-grow; strong empathy. Good at appearing to be what the beholder wants to see.
-Seeks greater intensity in relationships, seeks elusive intimacy. At once both
-the audience and the actor. Often has difficulty putting limits on time &
-energy spent at work. Seeks perfection; and is often disappointed. Tends to
-romanticize experience. Hunger for relationships.
-NF strengths are a capacity for working with people & drawing out their best,
-being articulate & persuasive, a strong desire to help others, and the ability
-to affirm others freely & easily.
-As a manager, NF has difficulty being firm, tends to give workers too much
-leeway. As mate, NF has a deep need to give & receive affection and avoid
-conflict. As a teacher, NF makes each student feel important & cared about.
-Desire to please & comfortable with theory makes NF an excellent student.
-About 12% of the population.
diff --git a/xtrn/smm/mb-nt.asc b/xtrn/smm/mb-nt.asc
deleted file mode 100644
index 0b6ebfbf443cf8cabaf91305b0be804a4e9a5ac7..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-nt.asc
+++ /dev/null
@@ -1,32 +0,0 @@
-NT often feel like aliens in a world of SPs and SJs. The NT has a hunger for
-understanding, control & power; not over people as much as over things.
-Basic drives are for competence, abilities, skills, ingenuity. Loves doing
-things well. Addicted to storing up wisdom & acquiring intelligence. Has
-more interest in figuring things out than actually doing them. Self critical
-and self doubt to the point of paralysis. Perfectionist, tense, compulsive,
-fear-of-failure. Doesn't accept the conventional wisdom. Tries to lift others
-to his own exaggerated levels of competence and can be arrogant with those
-who choose not to see the complexity of his chosen area. His arrogance causes
-others to withhold their reactions for fear of being labeled 'stupid' and
-isolates him from the people around him. His speech tends to be terse,
-compact, logical, precise. Wastes few words. Doesn't like to state the obvious.
-Passion for knowing. Tends to seek complicated & exacting profession; engineer,
-mathematics, philosophy. Enjoys building systems, developing models, exploring
-ideas. Tends to be straightforward in dealing with others; others find him
-cold, remote, detached & enigmatic. Vulnerable to all-work-and-no-play.
-Enjoys playing with words, paradox, bad puns. Tends to focus on the future;
-the past is dead & gone. Is humiliated when others witness his errors.
-Not sensitive to emotions of others, capable of biting sarcasm.
-NT strengths are the ability to see the big picture, a talent for systems
-planning, insight into the internal logic & principles of systems, and the
-ability to speak & write clearly.
-As managers, NT is the strategic planner; as mate NT is more interested in
-intellectualizing feeling & emotions than in experiencing them; As parent
-NT provides a role model that is impossible to live up to; as teacher, NT
-clarity & precision can be both exciting & intimidating to students, but
-they can bore their students by working a point to death; in finances, NT
-probably has a plan, but at the same time is comfortable with high risk
-ventures.
-NT chooses clothes for comfort & utility, doesn't pay much attention to
-fashion.
-About 12% of the population.
diff --git a/xtrn/smm/mb-p.asc b/xtrn/smm/mb-p.asc
deleted file mode 100644
index 2cccc090a00033d51af214107930556be35cbcf3..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-p.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-The Perceptive type tends toward plan-as-you-go, flexibility, open-ended
-tentative agreements, and letting-life-unfold. P is easily distracted, loves
-to explore the unknown, doesn't plan tasks, depends on last-minute-spurts to
-meet deadlines, doesn't believe neatness counts, enjoys creativity, trys to turn
-work into play, doesn't like to be pinned down, tends toward non-judgemental
-statements. 'P' must generate alternatives for everything.
-Likes to keep his options open, but not always - it all depends.
-
-The population is equally divided between Js and Ps.
diff --git a/xtrn/smm/mb-s.asc b/xtrn/smm/mb-s.asc
deleted file mode 100644
index ef399f5634c69606dcc546f40685a54234a7538c..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-s.asc
+++ /dev/null
@@ -1,11 +0,0 @@
-The Sensor gets his information from external events; tends to be practical,
-base his decisions on experience, is down to earth, and notices details.
-An S prefers specific answers to specific questions, would rather DO something
-rather than think about it, likes to concentrate on the task at hand, likes
-tasks with tangible results, prefers facts to theories, thinks 'fantasy' is
-a dirty word, prefers clear/complete plans to vague guidelines, are very
-literal in use of words, very much a 'show me' person. An S may resist
-taking this test & quickly get bored with it because it is not practical
-and doesn't have an immediate application. S will take a long time to take
-this test, reading every question carefully.
-About 75% of the population are type S.
diff --git a/xtrn/smm/mb-sj.asc b/xtrn/smm/mb-sj.asc
deleted file mode 100644
index 78fc2553399dba0e0faa9a13f6739138c38a5405..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-sj.asc
+++ /dev/null
@@ -1,16 +0,0 @@
-The SJ exists to belong and be useful to his social group. A giver, provider,
-caretaker, parent; feels uncomfortable in a dependent role. Duty oriented,
-desires to serve, very aware of what-should-be-done. Is comfortable with
-obligations. Has a strong work ethic & desire for hierarchy & rule & order.
-Pessimistic, spends much energy in preparing for the future. Tradition &
-heritage are important. Has a keen sense for detecting ingratitude & lack of
-appreciation. Drawn to institutions; banking, teaching, government, service.
-Strong desire to conserve & store-up-for-the-future. Obligation to serve
-often overrides the fact that he is already overburdened. Backbone of society.
-SJ strengths are administration, dependability, ability to take charge.
-Home & hearth are cornerstones of SJ marriages, ritual & tradition is
-important. SJ makes very clear who is the parent & what is expected of
-children. As teacher SJ places high importance on neatness & punctuality.
-SJ's are the money - and moneyed - people of the world. Prefers classic,
-durable clothes. 60% of public school teachers are SJ.
-About 38% of the population.
diff --git a/xtrn/smm/mb-sp.asc b/xtrn/smm/mb-sp.asc
deleted file mode 100644
index 76882d4822516e5c46a7b13af950fcb6b25aca05..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-sp.asc
+++ /dev/null
@@ -1,20 +0,0 @@
-The SP must be free & will not be tied down with responsibility. Eat, drink &
-be merry, for tomorrow we die. In Aesop's fable of the ant & the grasshopper,
-the SP is the grasshopper. SP has the urge for impulsive action-for-right-now
-rather than practicing for some future event. Waiting is the same as death.
-Likes diversity & trying new things. Easy come easy go. Not goal oriented.
-Yet the SP shows long endurance; He wouldn't climb a mountain to get to the
-top, but for the thrill of every moment. Gravitates toward jobs where action
-is involved. Tends to be fraternal & loyal to his equals. Master of the grand
-gesture, but not of the small important acts or words. Capable of abruptly
-abandoning his path & striking out in a completely different direction.
-Optimistic, libertarian, social equality. Compulsion to perform.
-SP strengths are practicality, adept problem solving skills, resourcefulness.
-As manager, SP is excellent in a crisis - and is not above creating a crisis
-to give him a sense of purpose. As mate, enjoys intensity & a thrill a minute.
-As teachers, are best at practical-vocational, tend to shy away from
-theoretical or abstract. Not good at lesson plans. Dealing with money, SP is
-the original high roller. Not good at academics, poor spellers, least likely
-of all the types to receive a college degree.
-Chooses clothes for IMPACT.
-About 38% of the population.
diff --git a/xtrn/smm/mb-t.asc b/xtrn/smm/mb-t.asc
deleted file mode 100644
index b6d430d8b14021b716077a1097b23fc8210ec6cd..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-t.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-The Thinker tends toward logic, reason, laws, policy, principals, justice,
-and impersonal decisions. The T tends to favor critical analysis, stay calm
-& objective when others panic, enjoy proving their point, would rather be
-right than liked, remember facts better than faces.
-The thinker thinks the feeler is fuzzybrained.
-The population is equally divided between Ts and Fs, although more men tend
-to be Thinkers & more women tend to be Feelers.
diff --git a/xtrn/smm/mb-tj.asc b/xtrn/smm/mb-tj.asc
deleted file mode 100644
index a5c3dbeca2f99c0b95b65a0702a632ad7cb587b5..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-tj.asc
+++ /dev/null
@@ -1 +0,0 @@
-60 % of the world's managers are TJ.
diff --git a/xtrn/smm/mb-type.asc b/xtrn/smm/mb-type.asc
deleted file mode 100644
index efd263b45fe7c01c4eea68ee4a6e40cfa1efe6d4..0000000000000000000000000000000000000000
--- a/xtrn/smm/mb-type.asc
+++ /dev/null
@@ -1,20 +0,0 @@
-yhMyers-Briggs Personality Types:nc
-
-The first letter of the personality type indicates how you are energized
-(hEncxtroversion or hIncntroversion).
-
-The second letter of the personality type indicates how you obtain information
-for your decisions (hSncensation or ihNnctuition).
-
-The third letter of the personality type measures your preference to operate
-from your head to your heart (hTnchinking or hFnceeling).
-
-The fourth letter of the personality type indicates how you like to order your
-life (hJncudging or hPncerception).
-
-An asterisk (h*nc) in any of your letter positions indicates you are equally
-divided between the two personality tendancies.
-
-From here you can read definitions of letter combinations (types):
-hEnc, hInc, hSnc, hNnc, hTnc, hFnc, hJnc, hPnc, hTJnc, hSPnc, hSJnc, hNTnc, hNFnc, hENFPnc, hENFJnc, hENTPnc, hENTJnc, hESFPnc, hESFJnc,
-hESTPnc, hESTJnc, hINFPnc, hINFJnc, hINTPnc, hINTJnc, hISFPnc, hISFJnc, hISTPnc, and hISTJnc.
diff --git a/xtrn/smm/mb-type.que b/xtrn/smm/mb-type.que
deleted file mode 100644
index 987d79d569596870372afd7bab47c819ab32259e..0000000000000000000000000000000000000000
Binary files a/xtrn/smm/mb-type.que and /dev/null differ
diff --git a/xtrn/smm/purity-1.asc b/xtrn/smm/purity-1.asc
deleted file mode 100644
index 773f53d0a268533ae5d004bc9ae8940b4dc8aad3..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-1.asc
+++ /dev/null
@@ -1,16 +0,0 @@
-Section 1: Platonic Relations. 19 Questions.
-
-For this section, if you are mostly a:
-
- - heterosexual, then your partner in deed, often referred to
- by the word "someone" or "partner", is to be someone
- of the OPPOSITE gender.
-
- - homosexual, then your partner in deed, often referred to by the
- word "someone" or "partner", is to be someone of
- YOUR OWN gender.
-
- - 50-50 confirmed bisexual, then your partner in deed, often
- referred to by the word "someone" or "partner", is to
- be someone of the OPPOSITE gender.
-
diff --git a/xtrn/smm/purity-2.asc b/xtrn/smm/purity-2.asc
deleted file mode 100644
index b69f67e1b615f499890f2a8a87ef1beca4e19c8d..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-2.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-Section 2: Auto-erotica and Mono-sexualism. 51 Questions.
-
- Although this section is termed Auto-erotica and mono-sexualism, the
- events herein still count even if you are with someone else at the time.
- It was so named because these activities, like the harp, (and the
- porcelain goddess) are predominantly solo events.
-
diff --git a/xtrn/smm/purity-3.asc b/xtrn/smm/purity-3.asc
deleted file mode 100644
index 5c33111569d7280eac84a367aba80fe63c414e57..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-3.asc
+++ /dev/null
@@ -1,2 +0,0 @@
-Section 3: Legislative Misfits and Other Ethical Matters. 61 Questions.
-
diff --git a/xtrn/smm/purity-4.asc b/xtrn/smm/purity-4.asc
deleted file mode 100644
index 37289ae749fe509a0af279ca5d89a1ba95f27f36..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-4.asc
+++ /dev/null
@@ -1,2 +0,0 @@
-Section 4: Drugs. 43 Questions.
-
diff --git a/xtrn/smm/purity-5.asc b/xtrn/smm/purity-5.asc
deleted file mode 100644
index 14d44dda2ceaa5d8f6d2c288d9d7d740a1ff3818..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-5.asc
+++ /dev/null
@@ -1,16 +0,0 @@
-Section 5: Non Platonic Relations. 63 Questions.
-
-For this section, it you are mostly a:
-
- - heterosexual, then your partner in deed, often referred to by
- the word "someone" or "partner", is someone of the
- OPPOSITE gender.
-
- - homosexual, then your partner in deed, often referred to by the
- word "someone" or "partner", is to be someone of
- your OWN gender.
-
- - 50-50 confirmed bisexual, then your partner in deed, often referred
- to by the word "someone" or "partner", is to be
- someone of the OPPOSITE gender.
-
diff --git a/xtrn/smm/purity-6.asc b/xtrn/smm/purity-6.asc
deleted file mode 100644
index 3531a8ef778a37285eadbc69629b43a49bd368d3..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-6.asc
+++ /dev/null
@@ -1,18 +0,0 @@
-Section 6: Non Primary Choice Relations. 39 questions.
-
- This section of the test deals with whether you have done things with
- people whom you may not be altogether comfortable, therefore in this
- section of the test, if you are mostly a:
-
- - heterosexual, then your partner in deed, often referred to by the
- word "someone" or "partner", is to be someone of your
- OWN gender.
-
- - homosexual, then your partner in deed, often referred to by the
- word "someone" or "partner", is someone of the
- OPPOSITE gender.
-
- - 50-50 confirmed bisexual, then your partner in deed, often
- referred to by the word "someone" or "partner", is to
- be someone of your OWN gender.
-
diff --git a/xtrn/smm/purity-7.asc b/xtrn/smm/purity-7.asc
deleted file mode 100644
index 4cf23745bc29143dfd1c9ccc8977cc76b99a5e02..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-7.asc
+++ /dev/null
@@ -1,8 +0,0 @@
-Section 7: Alternate Choices. 26 questions.
-
- For any of the questions in this section, a yes answer is in order if it
- is something that you do as an alternative to other sexual gratifications
- or as an aid and/or in conjunction with other means of sexual
- gratification. In other words, have you done it in a serious basis?
- Trying it a few times to see what it's like does not count.
-
diff --git a/xtrn/smm/purity-8.asc b/xtrn/smm/purity-8.asc
deleted file mode 100644
index bad4ef2b31a91350ab10dcbbefd9966e1c76dc6e..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-8.asc
+++ /dev/null
@@ -1,7 +0,0 @@
-Section 8: Group Sexual Relations. 27 questions.
-
- This section relates to what you have or have not done. Accordingly, the
- group of people of which we are speaking are of both genders. In
- questions where groups of people are concerned, there must be at least
- one person in the group who is of the opposite gender.
-
diff --git a/xtrn/smm/purity-9.asc b/xtrn/smm/purity-9.asc
deleted file mode 100644
index 85a257e743f874233e8ec6a35211d1d1e8ed1041..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-9.asc
+++ /dev/null
@@ -1,6 +0,0 @@
-Section 9: Non sentient objects. 62 questions.
-
- This section measures your kinkiness. Therefore, the questions apply to
- actions and events which occurred while you were alone, as well as those
- which occurred while you were with someone else.
-
diff --git a/xtrn/smm/purity-a.asc b/xtrn/smm/purity-a.asc
deleted file mode 100644
index 3218f28900d925e24603aaf83b5ac584c7cc0c5d..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-a.asc
+++ /dev/null
@@ -1,5 +0,0 @@
-Section 10: Locality. 33 questions.
-
-This section tries to figure out how many places you have done it. It
-applies only to those situations in which you were with someone else.
-
diff --git a/xtrn/smm/purity-b.asc b/xtrn/smm/purity-b.asc
deleted file mode 100644
index ad61bbf6c6ad4f79cbc523232493cc16824e89e5..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity-b.asc
+++ /dev/null
@@ -1,2 +0,0 @@
-Section 11: Style. 76 questions.
-
diff --git a/xtrn/smm/purity.100 b/xtrn/smm/purity.100
deleted file mode 100644
index c97b56bea11a7bd40fdf3adfd7c99c4de4744912..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity.100
+++ /dev/null
@@ -1,100 +0,0 @@
-Had a date
-Been out on a date past 4 am
-Had a blind date
-Kissed a MOS
-Been french kissed
-Kissed a MOS in the horizontal position
-French kissed three or more MOS's in 24 hours
-Kissed a MOS in the last three months
-Necked for more than 2 hours consecutively
-Slow danced cheek-to-cheek
-Had an alcoholic drink
-Been drunk
-Driven while under the influence of alcohol or drugs
-Had a lapse of memory due to drinking or drugs
-Used alcohol or drugs to lower a MOS's resistance
-Smoked tobacco
-Smoked pot or hashish
-Used a stronger drug
-Taken 4 or more "recreational" drugs within 24 hours
-Read a pornographic book or magazine
-Seen a pornographic movie
-Seen a stripper
-Been arrested
-Been convicted of a crime
-Had an erection/clitoral erection
-Had an orgasm
-Had an orgasm in a dream
-Fondled a MOS's ass
-Caressed a MOS's thigh
-Fondled a breast or had your breast fondled
-Wrestled with a MOS
-Showered, bathed, jacuzzied, or saunaed with a MOS
-Gone coed skinny-dipping
-Gone through the motions of intercourse while fully clothed
-Spent the night in a MOS's room
-Slept in the same bed with a MOS
-Seen a naked post-pubescent MOS
-Been seen naked by a MOS after puberty
-Undressed or been undressed by a MOS
-Kissed a MOS on the breast or been kissed on the breast
-Fondled a MOS's genitals or had your genitals fondled by a MOS
-Had an orgasm due to manipulation by a MOS
-Kissed a MOS on the thigh
-Engaged in cunnilingus
-Engaged in fellatio
-Had sexual intercourse at a parents house while they were home
-Engaged in definitely sexual activity on the first date
-Masturbated
-Masturbated to a picture
-Masturbated with another person in the room
-Watched another person masturbate
-Been caught masturbating
-Simulated intercourse with an inanimate object
-Committed an act of voyeurism
-Committed an act of exhibitionism
-Massaged or been massaged by a MOS
-Unintentionally interrupted a couple in a significant state of undress
-Participated in a tickle orgy, gross out, truth or dare, etc.
-Experimented sexually before puberty
-Purchased contraceptives in a drug store
-Had sexual intercourse
-Had sexual intercourse more than 10 times
-Had sexual intercourse continuously for 1/2 hour
-Had sexual intercourse within the last 3 months
-Had sexual intercourse 3 or more times in 1 night
-Had sexual intercourse in 3 or more positions
-Had sexual intercourse in a car
-Had sexual intercourse using a condom
-Done sixty-nine
-Had sexual intercourse outdoors
-Had sexual intercourse with 3 different people
-Had sexual intercourse with a virgin
-Had sexual intercourse during menstruation
-Had sexual intercourse without using birth control
-Had sexual intercourse with 2 MOSs in 24 hours
-Had sexual intercourse in a public place
-Described a sexual experience to a separate party
-Committed statutory rape
-Been the object of travel or traveled 100 miles or more for sexual activity
-Impregnated a woman or been pregnant
-Arranged or had an abortion
-Displaced a roommate by staying with a MOS for 1 or more nights
-Shacked up with a MOS for a month or more
-Tasted semen
-Been propositioned by a prostitute or pimp
-Accepted
-Had anal intercourse
-Been tested for V.D. due to reasonable suspicion
-Had V.D.
-Picked up a strange MOS for sexual purposes
-Engaged in group sex
-Engaged in sadism or masochism for sexual enjoyment
-Been propositioned by a member of the same sex
-Accepted a proposition by a member of the same sex
-Been masturbated by a member of the same sex
-Been orally stimulated by a member of the same sex
-Committed incest
-Fondled a pre-pubescent MOS
-Engaged in transvestitism for sexual enjoyment
-Committed bestiality
diff --git a/xtrn/smm/purity.500 b/xtrn/smm/purity.500
deleted file mode 100644
index 5f389c7ea827353afce460ace6278b9e0af58297..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity.500
+++ /dev/null
@@ -1,511 +0,0 @@
-*PURITY-1.ASC
-Kissed a friend or stranger as a friendly gesture
-Held hands with someone
-Had a date
-Had a date past 1 a.m.
-Dated someone on a regular basis
-Picked someone up
-Been picked up
-Gone steady
-Slow danced
-Had the symptoms of Russian fingers (rushin' fingers)
-Had the symptoms of Roman hands (roamin' hands)
-Shared a bed with someone without anything steamy happening
-Given a back or neck rub or massage with no ulterior motive
-Used tickling as a pick-up get-to-know-you-better routine
-Directly asked someone if they were a virgin
-Used physical strength as a get-to-know-you-better routine
-Secretly lusted after someone without that person knowing
-Dropped subtle hints to someone hoping they would pick up on it
-Written anonymous 'love letters' to someone
-*PURITY-2.ASC
-Had an arousing dream (Wet dreams and the like.)
-Been sexually aroused
-Uttered/muttered/yelled/screamed obscenities
-Fantasized about your instructor or teacher
-Fantasized about your lawyer, doctor, nurse, psychiatrist
-Fantasized about someone you know personally but not closely
-Fantasized about anyone and masturbated at the same time
-Read or bought pornographic periodicals
-Ever had a subscription to pornographic periodicals
-Read sexually explicit literature
-Gone skinny dipping alone
-Made obscene phone calls
-Phoned up any recorded phone sex numbers
-Phoned up any live phone sex numbers
-Stuffed your bra or stuffed your pants
-Shaved your genital pubic hair
-Shaved your genital pubic hair on a fairly regular basis
-Colored or bleached your genital pubic hair
-Shaved or shaped your genital pubic hair in a particular design
-Masturbated
-Masturbated at least five times in one twenty-four hour period
-Masturbated on a fairly regular basis of no less than once a week
-Masturbated where you could have been discovered
-Masturbated out in the wilds or in nature
-Masturbated to orgasm
-Masturbated while reading sexually explicit materials
-Masturbated while driving a *moving* land vehicle
-Masturbated while on the phone
-Masturbated while in a bathroom of the opposite sex
-Masturbated while watching an R or X-rated show
-Seen any burlesque show (Rocky Horror counts)
-Been to a peep show
-Been to a private showing of a pornographic movie
-Seen a pornographic movie in a theater
-Walked around in your room/apartment/house/habitation in nude
-Walked around in a public or semi-public area bottomless
-Bought blatant sexual objects
-Owned any erotic art pieces
-Written your own fantasies for masturbatory purposes
-Sculpted erotic/obscene artworks in food
-Eaten any erotic food items (Chocolate tits, banana dicks)
-Sculpted erotic/obscene artworks in soap, wood, etc
-Made an X- or R-rated snowman or snowwoman
-Tasted your own orgasmic liquids
-Inserted your finger into your rectum
-Used ben-wa balls or anal beads
-Performed oral sex on yourself
-Willingly urinated on your garments while wearing them
-Willingly urinated on any part of your body
-Willingly defecated on your garments while wearing them
-Willingly defecated on yourself
-*PURITY-3.ASC
-Administered a whole Purity Test or in the process
-Taken Purity Tests of any versions more than 5 times
-Lied on any previous Purity Tests
-Exaggerated about any sexual experiences
-Gone to (or escorted someone to) a Planned Parenthood Clinic
-Broken your word, promise, or vow
-Lied to someone at someone else's request
-Lied about your sexual preference in order to avoid a date
-Written graffitti
-Plagiarized
-Shoplifted
-Stolen
-Made out a check that bounced
-Used someone else's credit card without their knowledge
-Committed breaking and entering
-Seen a snuff film
-Read someone else's diary without their knowledge or consent
-Searched someone's room without their knowledge or consent
-Told someone that you loved them when you did not
-Told someone that you loved them just for sex
-Fantasized about someone else while having sex
-Intentionally listened in on other people having sex
-Used alcohol to lower someone else's inhibitions for sex
-Used drugs to lower someone else's inhibitions for sex
-Drugged someone without their knowledge and/or consent
-Forced someone into having intimate physical relations with you
-Had dates with more than one person in the same night
-Gone steady with two or more people at the same time(secret)
-Gone steady with two or more people at the same time(known)
-Urinated on someone else intentionally (Piss fights!)
-Urinated in object that was not designed for such purpose
-Urinated anywhere other than commonly accepted piss hole
-Urinated from higher than the fifth floor or off a bridge
-Defecated anywhere other accepted shit hole
-Stored any excretia in a refrigerator/oven
-Stored evacuated excretia in your room/apartment
-Entered a bathroom of the opposite sex- unaccompanied
-Mooned or flashed someone from the front
-Farted (audibly) in mixed company
-Streaked/flashed or exposed yourself in public
-Streaked/flashed or exposed yourself at a formal gathering
-Been arrested (Picture taken and all)
-Received money to have sex or mutual masturbation with someone
-Given money to have sex mutual masturbation with someone
-Thought you might be or might have caused someoneto be pregnant
-Bought a home pregnancy test
-Bought condoms
-Borrowed/stolen/taken birth control devices from someone else
-Had or given someone an unwanted pregnancy
-Lied about being pregnant or about having made someone pregnant
-Had sex while either you or your partner were under age
-Thought you had VD
-Had VD of any sort (VD/STD's/the clap/crabs/herpes/etc.)
-Had an AIDS test due to reasonable suspicion or imagination
-Given a sympathy fuck
-Initiated sex with someone for the sake of sex only
-Willingly committed incest
-Committed adultery
-Bought lingerie/undergarments of the opposite sex
-Stolen the underwear of someone you knew not for joke
-Intentionally taken a stranger's underwear
-*PURITY-4.ASC
-Had an alcoholic drink
-Been intoxicated
-Thrown up from having drunk too much alcohol
-Passed out due to having drunk too much alcohol
-Forgotten events that occurred while you were drunk
-Smoked tobacco (cigarette/pipe/cigar/hookah)
-Chewed tobacco (snuff)
-Bought controlled/illicit drugs in violation of the law
-Sold or re-sold controlled/illicit substances
-Taken stimulants
-Taken depressants excluding alcohol
-Inhaled nitrous oxide while not visiting a dentist
-Inhaled anything containing butyl nitrate
-Used a commercial aphrodisiac
-Taken valium
-Smoked marijuana/sensemilia
-Smoked marijuana/sensemilia more than four times
-Eaten marijuana/sensemilia
-Eaten marijuana or sensemilia more than four times
-Taken opiate in any form
-Taken opiate in any form more than twice
-Used cocaine
-Used cocaine more than four times
-Injected any drugs into your body other than medical
-Injected any illegal drug into your body more than twice
-Taken Ecstasy/X
-Taken PCP
-Taken PCP more than twice
-Taken LSD-25, peyote or psilocybin
-Taken LSD/peyote or psilocybin more than twice
-Taken LSD more than six times
-Deliberately injured yourself so as to obtain medication
-Played any games in which drugs were the prize
-Gone to class or work while under the influence of drugs
-Mixed drugs (alcohol counts)
-Sold possessions in order to obtain drugs
-Had sex while under the influence of nitrous
-Had an orgasm while under the influence of nitrous
-Had sex while under the influence of cocaine
-Had sex while under the influence of marijuana/sensemilia
-Had sex while under the influence of Ecstasy/X
-Had sex while under the influence of LSD/peyote or psilocybin
-Had sex while under the influence with a unknowing partner
-*PURITY-5.ASC
-Propositioned someone for necking or petting
-Propositioned someone for sex/oral sex or mutual masturbation
-Pinched or patted someone else's buttocks
-French kissed
-Been kissed below the neck but not including arms or hands
-Kissed someone else below the neck not including arms or hands
-Necked
-Petted above the waist
-Petted below the waist
-Kissed on the first date
-Necked on the first date
-Petted above the waist on the first date
-Petted below the waist on the first date
-Given a hickey
-Received a hickey
-Worn specific clothes for the purpose of hiding hickeys
-Fondled or stroked someone else's clothed legs
-Fondled or stroked someone else's bare legs
-Fondled or stroked someone else's frontal chest/torso region
-Had your frontal chest/torso region fondled or stroked
-Been involved with pelvic thrusting while fully clothed
-Had your fingers licked or sucked
-Had your ear or ear region licked/sucked, or nibbled
-Licked, breathed onto, sucked, or nibbled an ear or ear region
-Licked or sucked someone else's finger(s)
-Fondled someone who was asleep
-Given a back massage with ulterior motives
-Given a back massage that led to something steamier
-Seen someone completely nude when under good light conditions
-Been seen nude by someone else under good lighting conditions
-Been in someone's company while both were completely nude
-Bathed or showered with someone
-Let someone else wash you when you were capable of doing it
-Gone skinny dipping in mixed company
-Been involved with the fondling of a woman's clothed breast
-Been involved with the fondling of a woman's bare breast
-Licked, sucked, or nibbled on someone else's nipple
-Had your nipple licked, sucked, or nibbled upon
-Petted/fondled or otherwise handled someone's covered genitals
-Had your covered genitals petted/fondled or handled
-Petted/fondled or otherwise handled someone's bare genitals
-Had your bare genitals petted/fondled or otherwise handled
-Had an orgasm while petting
-Given your partner an orgasm while petting
-Given finger scratch marks
-Received finger scratch marks
-Drawn blood by scratching during sex
-Drawn blood by biting during sex
-Given or received *scars* from scratches or bites during sex
-Performed oral sex
-Received oral sex
-Swallowed semen, or licked female liquids off of fingers
-Done sixty-nine
-Performed mutual masturbation
-Had sex (No need for orgasm; penetration counts.)
-Had sex on the first date
-Had sex without the use of birth control devices
-Had sex with a virgin (Not yourself.)
-Had sex with someone whose name you did not know
-Had sex with someone whose face you never saw
-Had sex with someone with a 20 year age difference
-Had sex with someone not of your own race
-Had sex with a religious officiary
-*PURITY-6.ASC
-Held hands or otherwise displayed public affection
-Kissed someone on the lips
-French kissed someone
-Necked
-Petted
-Received manual sex
-Given manual sex
-Received oral sex
-Given oral sex
-Had sex
-Had sex with a virgin (not yourself.)
-Had sex with someone with age difference of more than 20 years
-Had anal sex
-Been involved in fist-fucking
-Done 69 (simultaneous oral sex.)
-Propositioned someone for sex, oral sex, or mutual masturbation
-Yielded willingly to a proposition from someone for sex/oral sex
-Had sex with someone whose name you didn't know
-Had sex with someone whose face you never saw
-Been a participant in a who's-physically-better-equipped contest
-Been a judge in a contest such as above
-Gave money or favors for sex, oral sex, or mutual masturbation
-Received money or favors for sex/oral sex or mutual masturbation
-Fondled someone who was asleep
-Attempted to seduce someone
-Allowed yourself to be seduced
-Had an orgasm while petting
-Gave your partner an orgasm while petting
-Had an orgasm at all
-Had sex/oral sex or mutual masturbation with more than 10 people
-Stroked or fondled the clothed legs of someone
-Stroked or fondled the bare legs of someone
-Stroked or fondled the clothed chest/torso region of someone
-Stroked or fondled the bare chest/torso region of someone
-Fondled or handled the clothed genitals of someone else
-Stroked/fondled or handled the bare genitals of someone else
-Had sex/mutual masturbation with someone not of your own race
-Been in a menage-a-trois of people of the same sex
-Been involved in group sex/with all participants of the same sex
-*PURITY-7.ASC
-Been decidedly heterosexual
-Been decidedly homosexual
-Been decidedly bisexual
-Practiced bestiality (avec les animaux)
-Practiced transvesticism
-Practiced sadism
-Practiced masochism
-Practiced bondage
-Practiced domination
-Practiced submission
-Practiced sodomy (anal intercourse)
-Practiced cocrophilia (a marked interest in excrement)
-Practiced frotteurism
-Practiced infantilism(a dependency on diapers)
-Practiced klismaphilia (a dependency on being given an enema)
-Practiced necrophilia (copulation with a corpse)
-Practiced mysophilia (a dependency on something soiled)
-Practiced scoptophilia ( as in voyeurism)
-Practiced urophilia (being responsive to urine )
-Practiced role-playing
-Owned an underwear collection of underwear not belonging to you
-Been a foot fetishist to any degree
-Been a leather fetishist to any degree
-Been a rubber/latex fetishist to any degree
-Been a voyeur
-Been an exhibitionist
-Listened to dirty jokes in mixed company
-*PURITY-8.ASC
-Told dirty jokes in mixed company
-Discussed masturbation
-Watched a porn movie in mixed company
-Watched a porn movie with your own or someone else's parents
-Played a game which may require you or others to disrobe
-Played a game which may require you to perform action on others
-Been in contact with more than one person while all were nude
-Had oral sex with more than 10 people (not nec. at one time)
-Had sex with more than 10 people (not necessarily at one time)
-Had sex with more than 1 person in a 24 hour period
-Had sex with both genders in a 24 hour period
-Been in a menage-a-trois (MFM OR FMF)
-Walked in on others having sex (oops) and then joined in
-Had sex or oral sex with a person and his/her parent
-Had sex/mutual masturbation, with a person and his/her sibling
-Been involved in a two (or more) in one
-Been involved in a gang bang
-Been in a circle of fuck
-Been in a 69 circle
-Been to a (cooking, baby, Wesson) oil party
-Played naked Twister [tm] (with or without oil)
-Participated in a hetro orgy or been involved in group sex
-Participated in a bisexual orgy or group sex
-Propositioned a person or group of people for group sex
-Been propositioned for group sex
-Participated in a fuck-a-thon
-*PURITY-9.ASC
-Used a foreign object or something for masturbation
-Masturbated using the aid of food
-Eaten the food used in masturbation after masturbation
-Eaten a lab dissection
-Inserted food into your or someone else's anus
-Eaten food after it was extracted from your or someone's anus
-Received an enema for a purpose other than medical
-Received an enema consisting on a non-normal enema solution
-Actually measured your own or someone else's penis
-Used a mechanical device in aiding or replacing masturbation
-Used a feather or other device for the purpose of tickling
-Used tickling as a form of *arousal*
-Used ice for sexual purposes
-Used ice for something frozen as a dildo
-Used a strap-on dildo or male extension sheath
-Used whipped cream for sexual purposes
-Used hot/melted wax for sexual purposes
-Had sex in front of or under a mirror
-Put food on your partner's body, and then eaten it
-Used household syrup/etc or any like substance for sex purposes
-Used ropes, cuffs or any other such device for bondage purposes
-Used a whip, cat-o-nine-tails, or something similar for pain
-Worn edible underwear/lingerie
-Eaten edible underwear/lingerie off of someone
-Worn a leather or rubber suit
-Worn diapers for a sexual or masturbatory purpose
-Been diapered by someone else for a sex or masturbatory purpose
-Used a ball gag or other manufactured gag
-Worn a collar and/or leash
-Been completely tied down (spreadeagled, hogtied, etc.)
-Tied someone down completely
-Had sex while you or your partner was tied up
-Used nipple clips (clothespins count)
-Pierced a part of your body other than your ears or nose
-Found a prepubescent child sexually attractive/arousing
-Had sexual contact of any kind with a prepubescent child
-Used an inflatable doll
-Humped an inanimate object like a pillow, banana, etc
-Had sex or oral sex with a dead person
-Inserted a small animal or creature into your rectum
-Had sex or oral sex with your (dead) dinner animal
-Watched animals having sex
-Been aroused by the sight of animals having sex
-Attempted to have sex with a live animal, but failed
-Had sex/oral sex or (mutual) masturbation with smallish animal
-Had sex/oral sex or masturbation with domesticated farm animal
-Mutilated or killed any living animal for your pleasures
-Had sex with a live animal (Any size.)
-Received oral sex from a live animal (Any size.)
-Gave oral sex to a live animal (Any size.)
-Had sex or (mutual) masturbation with a animal more than once
-Had sex or masturbation with an animal in presence of others
-Cross dressed in the *undergarments* of the opposite sex
-Cross dressed in presence of others
-Stuffed your pants or bra while you were cross-dressed
-Had your head inserted into a urinal or toilet bowl willingly
-Worn groinal underwear on your head (Panties/jock-strap/etc.)
-Inserted a piece of groinal underwear into your mouth
-Deliberately sniffed or smelled a piece of groinal underwear
-Been gagged with someone's underwear (not your own)
-Played in or with shit
-Worn or used a used condom or feminine hygiene contraption
-*PURITY-A.ASC
-Necked or petted in a place of religion
-Had sex or been involved in a place of religion
-Necked or petted in a place of the dead (mortuary)
-Had sex or been involved in oral sex in a place of the dead
-Necked or petted in a contraption of the dead (hearse/etc)
-Had sex in a contraption of the dead
-Had sex in/on a construction site (house, office, etc.)
-Necked or petted in a vehicle of LESS THAN 30,000 pounds net
-Had sex in a vehicle of LESS THAN 30,000 pounds net
-Necked or petted in a vehicle of MORE THAN 30,000 pounds net
-Had sex in a vehicle of MORE THAN 30,000 pounds net
-Had sex in a land-based, non road dependant vehicle
-Necked in a water, manual powered vehicular transport medium
-Petted in a water/wind or prop driven transport medium
-Had sex in a water/wind driven transport MORE THAN 80 feet
-Had sex or oral sex in an aircraft
-Had sex in a household room other than a bedroom
-Had sex on the floor (but not the roof)
-Had sex on any furniture that is indoors but not a bed or table
-Had sex telephone booth, voting booth/etc
-Had sex in an elevator, people-mover, escalator, dumbwaiter
-Had sex up a tree but not in a tree house or similar structure
-Had sex in a suspension device of some kind (hammock)
-Had sex on the roof of a building in excess of 5 floors
-Had sex within the confines of a hedge, bush/etc
-Had sex, oral sex, or mutual masturbation in the snow
-Had sex in a place with the ambient temperature below freezing
-Had sex in a place where you could have been discovered
-Had sex in a water-filled bathtub, hot tub/etc
-Had sex, oral sex, or mutual masturbation in a body of water
-Had sex on the beach
-Had sex or mutual masturbation in a bathroom of the opposite sex
-Gone to a motel for the sole purpose of having sex
-*PURITY-B.ASC
-Watched while someone else masturbated
-Been watched while masturbating
-Orgasmed on somebody
-Orgasmed in somebody (male) or in you (female)
-Had more than one person orgasm on you at once
-Used a penis as a leash or bludgeoning device
-Been involved in oxygen deprivation for sexual enhancement
-Willingly made video tapes or pictures taken while having sex
-Physically watched others having sex
-Watched your partner of choice having sex with someone else
-Taken pictures of your partner having sex with someone else
-Willingly made audio recordings while having sex
-Talked dirty while having sex, oral sex, or mutual masturbation
-Intentionally made more noise than necessary while having sex
-Intentionally made 'animal' noises during sex
-Had a pet walk over you or your partner while during sex
-Had a general emergency arise while you were steeped in sex
-Had your sexual technique/style/skill openly praised by someone
-Taken nude pictures of someone else
-Had nude pictures of you taken
-Placed a personal ad
-Answered a personal ad
-Been involved in breast fucking (The Hawaiian Muscle Fuck)
-Participated in fist-fucking (see 'Caligula')
-Shaved someone's pubic hair (or had yours) as part of sex
-Had sex for more than three hours in a single session of sex
-Been bruised during sex, oral sex, or mutual masturbation
-Bruised someone else during sex, oral sex, or mutual masturbation
-Been injured during sex, oral sex, or mutual masturbation
-Orgasmed more than three times in one session of sex
-Had sex so many times or for so long that one involved runs dry
-Disturbed other people by making excessive noise during sex
-Had sex or received oral sex while you were driving
-Had sex doggie fashion
-Had sex in the female superior position
-Had sex sitting up
-Had sex standing up
-Had sex upside-down
-Gone through several sexual positions without need for re-entry
-Fallen asleep during sex
-Woken up to someone having sex with you
-Had sex while one person was passed out or unconscious
-Given or received a hickey on your upper inner thigh
-Been on the receiving of anal sex
-Been on the ramming end of anal sex (a dildo counts)
-Had sex more than 10 times with 1 person
-Had sex more than 5 times in a 24 hour period
-Had sex more than 10 times in a 24 hour period
-Had sex while someone other than your partner was watching
-Had sex while one or both were playing a musical instrument
-Performed oral sex after intercourse without washing or douching
-Kissed your partner on the lips after oral sex without rinsing
-Inflicted pain during sex
-Been involved in cunnilingus during the woman's period
-Had sex during the woman's period
-Foot masturbated someone
-Been foot masturbated
-Tongue bathed someone
-Been tongue bathed
-Licked or sucked on someone else's feet and/or toes
-Had your feet and/or toes licked or sucked by someone else
-Licked someone's anus
-Licked someone's anus while they were defecating
-Performed oral sex while the person was urinating
-Drank your own urine
-Tasted or drank someone else's urine
-Drank/drained an entire bladder-full of someone else's urine
-Drank human blood
-Tasted someone else's nasal mucous
-Been involved in a golden shower
-Swallowed your partner's orgasmic secretions
-Used the Purity Test as a checklist of things you could do
-Ever done something for purpose of lowering your Purity score
-Bought/read books to enhance sexual technique
-Participated in Purity Testing with an ulterior motive
-Become interested in person after hearing their Purity score
diff --git a/xtrn/smm/purity.asc b/xtrn/smm/purity.asc
deleted file mode 100644
index 3aae420c0007303289cce4c9a9ae8ef84d580b1d..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity.asc
+++ /dev/null
@@ -1,31 +0,0 @@
-nch THE UNISEX, OMNISEXUAL
-
-y P U R I T Y T E S T
-nc_______________________________________________________________________________
-
- rhiWARNINGnrh: THIS TEST MAY EASILY OFFEND YOU
-
-chInstructions for Use:
-nc
-This is a fairly long test consisting of hone hundred questionsnc. It starts out
-tame and gets progressively worse (or better, depending on your viewpoint).
-
-hDefinitions
-nc
-Any references to hMOSnc are references to a hMncember of the hOncpposite hSncex.
-
-All questions in this test pertain to events that have happened to you
-subsequent to your weaning and babyhood/infancy. Anything that may have
-happened before that time is considered not standing and void.
-
-The term mutual masturbation refers to someone masturbating you AND/OR you
-masturbating someone else, not exclusively both at the same time.
-
-We would also like to define having sex in the homosexual case; homosexual sex
-has occurred when both partners are of the same sex and one of the partners has
-an orgasm while there is some contact between the genitals of both partners.
-
-We would now like to bring to your attention that there is no passing nor
-failing score. Therefore, one really shouldn't worry too much about getting a
-high score... even if you do get giggled at for the rest of your life.
-
diff --git a/xtrn/smm/purity.que b/xtrn/smm/purity.que
deleted file mode 100644
index c97b56bea11a7bd40fdf3adfd7c99c4de4744912..0000000000000000000000000000000000000000
--- a/xtrn/smm/purity.que
+++ /dev/null
@@ -1,100 +0,0 @@
-Had a date
-Been out on a date past 4 am
-Had a blind date
-Kissed a MOS
-Been french kissed
-Kissed a MOS in the horizontal position
-French kissed three or more MOS's in 24 hours
-Kissed a MOS in the last three months
-Necked for more than 2 hours consecutively
-Slow danced cheek-to-cheek
-Had an alcoholic drink
-Been drunk
-Driven while under the influence of alcohol or drugs
-Had a lapse of memory due to drinking or drugs
-Used alcohol or drugs to lower a MOS's resistance
-Smoked tobacco
-Smoked pot or hashish
-Used a stronger drug
-Taken 4 or more "recreational" drugs within 24 hours
-Read a pornographic book or magazine
-Seen a pornographic movie
-Seen a stripper
-Been arrested
-Been convicted of a crime
-Had an erection/clitoral erection
-Had an orgasm
-Had an orgasm in a dream
-Fondled a MOS's ass
-Caressed a MOS's thigh
-Fondled a breast or had your breast fondled
-Wrestled with a MOS
-Showered, bathed, jacuzzied, or saunaed with a MOS
-Gone coed skinny-dipping
-Gone through the motions of intercourse while fully clothed
-Spent the night in a MOS's room
-Slept in the same bed with a MOS
-Seen a naked post-pubescent MOS
-Been seen naked by a MOS after puberty
-Undressed or been undressed by a MOS
-Kissed a MOS on the breast or been kissed on the breast
-Fondled a MOS's genitals or had your genitals fondled by a MOS
-Had an orgasm due to manipulation by a MOS
-Kissed a MOS on the thigh
-Engaged in cunnilingus
-Engaged in fellatio
-Had sexual intercourse at a parents house while they were home
-Engaged in definitely sexual activity on the first date
-Masturbated
-Masturbated to a picture
-Masturbated with another person in the room
-Watched another person masturbate
-Been caught masturbating
-Simulated intercourse with an inanimate object
-Committed an act of voyeurism
-Committed an act of exhibitionism
-Massaged or been massaged by a MOS
-Unintentionally interrupted a couple in a significant state of undress
-Participated in a tickle orgy, gross out, truth or dare, etc.
-Experimented sexually before puberty
-Purchased contraceptives in a drug store
-Had sexual intercourse
-Had sexual intercourse more than 10 times
-Had sexual intercourse continuously for 1/2 hour
-Had sexual intercourse within the last 3 months
-Had sexual intercourse 3 or more times in 1 night
-Had sexual intercourse in 3 or more positions
-Had sexual intercourse in a car
-Had sexual intercourse using a condom
-Done sixty-nine
-Had sexual intercourse outdoors
-Had sexual intercourse with 3 different people
-Had sexual intercourse with a virgin
-Had sexual intercourse during menstruation
-Had sexual intercourse without using birth control
-Had sexual intercourse with 2 MOSs in 24 hours
-Had sexual intercourse in a public place
-Described a sexual experience to a separate party
-Committed statutory rape
-Been the object of travel or traveled 100 miles or more for sexual activity
-Impregnated a woman or been pregnant
-Arranged or had an abortion
-Displaced a roommate by staying with a MOS for 1 or more nights
-Shacked up with a MOS for a month or more
-Tasted semen
-Been propositioned by a prostitute or pimp
-Accepted
-Had anal intercourse
-Been tested for V.D. due to reasonable suspicion
-Had V.D.
-Picked up a strange MOS for sexual purposes
-Engaged in group sex
-Engaged in sadism or masochism for sexual enjoyment
-Been propositioned by a member of the same sex
-Accepted a proposition by a member of the same sex
-Been masturbated by a member of the same sex
-Been orally stimulated by a member of the same sex
-Committed incest
-Fondled a pre-pubescent MOS
-Engaged in transvestitism for sexual enjoyment
-Committed bestiality
diff --git a/xtrn/smm/que.lst b/xtrn/smm/que.lst
deleted file mode 100644
index 95018ef15d5c40f4492698eb705092733f0d5aa3..0000000000000000000000000000000000000000
--- a/xtrn/smm/que.lst
+++ /dev/null
@@ -1,12 +0,0 @@
-BASIC
-Basic Personality
-0
-APPEAR
-Appearance
-0
-MATERIAL
-Material
-0
-ADULT
-Adult Sexuality
-18
diff --git a/xtrn/smm/smm.can b/xtrn/smm/smm.can
deleted file mode 100644
index 503ab7da423f090b526c1ca28cef26a0e5dcc34c..0000000000000000000000000000000000000000
--- a/xtrn/smm/smm.can
+++ /dev/null
@@ -1,4 +0,0 @@
-l
-p
-digital man
-fuck
diff --git a/xtrn/smm/smm.cfg b/xtrn/smm/smm.cfg
deleted file mode 100644
index 334011d05ec08c4f055ec6ce0adfe6da12461542..0000000000000000000000000000000000000000
--- a/xtrn/smm/smm.cfg
+++ /dev/null
@@ -1,22 +0,0 @@
-18
-15
-0
-
-
-
-
-0
-0
-30
-1
-
-0
-0
-0
-0
-0
-%!dsz portx %u,%i sz %f
-0
-
-
-90
diff --git a/xtrn/smm/smm.doc b/xtrn/smm/smm.doc
deleted file mode 100644
index 37939ac6251347c2c5170880f9ab1ec4995ef654..0000000000000000000000000000000000000000
--- a/xtrn/smm/smm.doc
+++ /dev/null
@@ -1,594 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Synchronet Match Maker Version 2.10 Copyright 1996 Digital Dynamics
- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-
- "Perhaps the most comprehensive Match Maker ever."
-
-
-Synchronet Installation (if you are using Synchronet BBS Software)
-==================================================================
-
-Synchronet Match Maker (SMM) comes pre-installed in Synchronet BBS v2.1 and
-later. If match maker has been pre-installed in your system, see the file
-UPGRADE.DOC for details on installing a newer version over an older version
-(upgrading).
-
-Create the following sub-directory off of your main Synchronet directory
-(e.g. C:\SBBS):
-
-XTRN\SMM (The XTRN directory should already exist)
-
-(example: C:\SBBS\XTRN\SMM)
-
-Copy the files included in the archive or on the floppy disk into this
-directory. The DEMO and registered versions of this program are identical.
-The registration number must be obtained from Digital Dynamics and entered
-into the Match Maker configuration program (SMMCFG) to convert the DEMO into
-a registered copy.
-
-Licenses for registered use of Synchronet Match Maker are sold separately from
-Synchronet BBS Software. Once a registration number has been issued, no refunds
-or returns of Synchronet Match Maker will be accepted.
-
-Run SCFG (Synchronet Configuration Program) and add the Match Maker to one
-of your External Program Sections and configure as follows:
-
- ����������������������������������������������������������ͻ
- � Synchronet Match Maker �
- ����������������������������������������������������������
- � �Name Synchronet Match Maker �
- � �Internal Code SMM �
- � �Start-up Directory ..\XTRN\SMM �
- � �Command Line smm �
- � �Clean-up Command Line �
- � �Multiple Concurrent Users Yes �
- � �Intercept I/O Interrupts No <-- Important �
- � �Swap BBS out of Memory Yes �
- � �Modify User Data Yes �
- � �Execute on Event No �
- � �BBS Drop File Type Synchronet XTRN.DAT �
- � �Place Drop File In Node Directory �
- ����������������������������������������������������������ͼ
-
-If you wish to have old profile entries and wall writings automatically deleted
-from your match maker, you will need to run the SMMUTIL program periodically to
-remove profiles that haven't been updated in a certain number of days
-(specified on the SMMUTIL command line). To set up a timed event in SCFG->
-External Programs->Timed Events for SMMUTIL:
-
- ��������������������������������������������������������������������ͻ
- � SMMUTIL Timed Event �
- ��������������������������������������������������������������������
- � �Internal Code SMMUTIL �
- � �Start-up Directory ..\XTRN\SMM �
- � �Command Line smmutil 90 7 > SMMSTATS.TXT �
- � �Execution Node 1 �
- � �Execution Days Sun Mon Tue Wed Thu Fri Sat �
- � �Execution Time 00:00 �
- � �Requires Exclusive Execution Yes �
- � �Force Users Off-line For Event No �
- ��������������������������������������������������������������������ͼ
-
-This would have SMMUTIL remove all profiles that haven't been updated in the
-past 90 days and all wall writings older than 7 days.
-
-It will also create the file SMMSTATS.TXT in your XTRN\SMM directory with
-detailed statistics on the demographics of the current SMM profile database.
-You may want to make this file available for download or as a viewable bulletin
-on your BBS.
-
-If you are currently on DOVE-Net or FidoNet and you carry the "Synchronet Data"
-(SYNCDATA) message area and wish to link your match maker database with other
-BBSs through this message area, set up the following two Timed Events in SCFG:
-
- ��������������������������������������������������������������������ͻ
- � SMB2SMM Timed Event �
- ��������������������������������������������������������������������
- � �Internal Code SMB2SMM �
- � �Start-up Directory ..\XTRN\SMM �
- � �Command Line smb2smm %jsubs\syncdata smm.dab �
- � �Execution Node 1 �
- � �Execution Days Sun Mon Tue Wed Thu Fri Sat �
- � �Execution Time 00:00 �
- � �Requires Exclusive Execution No �
- � �Force Users Off-line For Event No �
- ��������������������������������������������������������������������ͼ
-
- ��������������������������������������������������������������������ͻ
- � SMM2SMB Timed Event �
- ��������������������������������������������������������������������
- � �Internal Code SMM2SMB �
- � �Start-up Directory ..\XTRN\SMM �
- � �Command Line smm2smb smm.dab %jsubs\syncdata �
- � �Execution Node 1 �
- � �Execution Days Sun Mon Tue Wed Thu Fri Sat �
- � �Execution Time 00:00 �
- � �Requires Exclusive Execution No �
- � �Force Users Off-line For Event No �
- ��������������������������������������������������������������������ͼ
-
-Change "syncdata" in the above examples to the internal code you have used
-for the "Synchronet Data" echo. Also, if you are not running v2.1+ of
-Synchronet, you must specify the full path to the DATA directory instead of
-using the %j. If your "Synchronet Data" echo is stored on a different
-drive or in a different directory than SBBS, then you must specify that drive
-and path on the above command lines.
-
-To get your match maker database active immediately, you may want to reset
-your message pointers for the "Synchronet Data" echo on your hub BBS. If
-using QWKnet, you would accomplish this by posting the message in the
-"Synchronet Data" echo on your BBS to "SBBS" with a title of "RESET". The
-message body does not matter.
-
-Swapping
---------
-If you get memory allocation errors during the execution of any of the above
-event command lines, add that program name to your Global Swap List in SCFG.
-
-DOOR.SYS BBS Installation (if you are using BBS software OTHER than Synchronet)
-===============================================================================
-
-Your BBS software must be able to create the industry standard DOOR.SYS drop
-file (35 lines or more). If you wish to charge credits for specific match maker
-functions (adding profile, sending telegrams, etc) your BBS software must be
-able to READ BACK in the modified DOOR.SYS drop file (e.g. GAP BBS software).
-Credits are read from line 31 of the DOOR.SYS file (in K) and credits used
-while in SMM are written to line 30 of the DOOR.SYS (in K) and total credits
-after adjustment (in K) are written back to line 31 of the DOOR.SYS. Since the
-DOOR.SYS format only supports one set of flags (line 23), flag set 1 will be
-the only valid flag set to use for the security options in SMMCFG (i.e. flag
-sets 2-4 will not be used).
-
-Create a directory for Synchronet Match Maker (SMM) and copy all the files
-into it (example: C:\BBS\DOORS\SMM).
-
-Copy the files included in the archive or on the floppy disk into this
-directory. The DEMO and registered versions of this program are identical.
-The registration number must be obtained from Digital Dynamics and entered
-into the Match Maker configuration program (SMMCFG) to convert the DEMO into
-a registered copy.
-
-Once a registration number has been issued, no refunds or returns of Synchronet
-Match Maker will be accepted.
-
-If you are running a multinode BBS, you will need to have the DOOR.SYS created
-in a separate directory for each node (i.e. NOT the directory where SMM has
-been installed). This will prevent drop file collisions if two users enter SMM
-at the same time. The complete path to the DOOR.SYS must be specified on the
-command line, so each node must have a different path specified. Example:
-
-Node 1 Command Line: SMM C:\BBS\NODE1\DOOR.SYS
-Node 2 Command Line: SMM C:\BBS\NODE2\DOOR.SYS
-
-SHARE must be loaded in your CONFIG.SYS or AUTOEXEC.BAT for SMM to function
-(in single node or multinode environments).
-
-If non-standard IRQs or I/O addresses are used, they must be specified on the
-SMM command line using the Command Line Options. IRQs 2-15 are fully supported.
-Shared IRQs are not supported in UART mode.
-
-16550 FIFO buffered UARTs are detected and enabled.
-
-DTE rates up to 115200 baud are supported (higher with proprietary hardware).
-
-Command Line Options:
-====================
-
-Command line options override the values (if present) in the DOOR.SYS file.
-No command line options are required when used with Synchronet BBS software.
-
- /P# Set the COM port (0=local only) (normally not necessary)
-
- Example: /P1 to specify COM1
- /P0 to specify no COM port (local use)
-
- /C# Set the COM port type or I/O (D:DigiBoard, F:FOSSIL, E:EBIOS)
-
- Example: /CF to specify FOSSIL
- /C3e8 to specify I/O address 3e8 (hexadecimal)
-
- /I# Set the COM port IRQ or channel (only required if non-standard)
-
- Example: /I5 to specify IRQ 5
- /I0 to specify FOSSIL/Digi Channel 0
-
- /R# Set the COM port DTE rate (normally not necessary)
-
- Example: /R57600 to specify a DTE rate of 57600 baud
-
- /T# Set time-slice APIs supported (default: DESQview if detected)
-
- Example: /T1 to use INT28 time-slice API
- /T2 to use Win/OS2 time-slice API
- /T4 to disable DESQview detection and time-slice API
-
-If a user name is specified on the command line, that user's profile will be
-automatically looked up and displayed.
-
- Example (Synchronet): SMM JOHN DOE
-
- Example (non-Synchronet): SMM C:\BBS\NODE1\DOOR.SYS JOHN DOE
-
-The current directory MUST be the directory where SMM has been installed
-(e.g. C:\BBS\DOORS\SMM) when SMM is executed. Some non-Synchronet BBS packages
-may require a batch file to change drive and/or directory before running SMM
-and may require the same batch file re-load the BBS software. Example:
-
- @ECHO OFF
- CD \BBS\DOORS\SMM
- SMM \BBS\NODE1\DOOR.SYS
- REM The following may not be necessary with some BBS packages
- CD \BBS\NODE1
- BBS
-
-Configuration
-=============
-
-SMMCFG
-------
-SMMCFG.EXE is used to modify your SMM.CFG (Configuration) file. Hitting the F1
-key will display a help page on the currently selected menu or option.
-
- ����������������������������������������������������������ͻ
- � Synchronet Match Maker Configuration �
- ����������������������������������������������������������
- � �System Name MY BBS �
- � �Wall Security... �
- � �Profile Database Security... �
- � �Credit Cost for Adding Profile 0k �
- � �Credit Cost for Sending Telegram 0k �
- � �Credit Cost for Writing on the Wall 0k �
- � �Credit Cost for Reading Questionnaire 0k �
- � �Minimum Level to Send Telegrams 0 �
- � �Minimum Level to Read Questionnaires 0 �
- � �Sysop Level 90 �
- � �Minor Segregation (Protection) Age Disabled �
- � �Auto-Update Profiles 30 �
- � �Notify User of Activity 1 �
- � �Use Metric System No �
- � �Zmodem Send Command %!dsz portx %u,�
- � �Local Photo Viewer dvpeg %f �
- � �Registration Number UNREGISTERED �
- ����������������������������������������������������������ͼ
-
-System Name
------------
-The most important option in this program is your System Name (BBS Name). If
-you are running Synchronet BBS Software, this option does not have to be set
-here (it is automatically passed to SMM in the XTRN.DAT drop file from
-Synchronet). If it is set, it will override the name specified in SCFG->System
-->BBS Name.
-
-If you have registered SMM for non-Synchronet BBS Software, this option must be
-set to the exact BBS name you registered SMM for (not case sensitive).
-
-Once you have setup SMM and your BBS users have entered their profiles, it is
-important that you DO NOT change your BBS name, or you will lose those
-profiles (and likely upset your users). If you are networking your match maker
-database with other BBSs, it is important that you do not have the same System
-Name as another BBS in the network. Only the first 25 characters of the BBS
-name are used and every BBS in an SMM network must have a unique BBS name. Your
-System Name (configured in SMMCFG) does not have to match your actual BBS name
-(as configured in your BBS software). This allows you to change your System
-Name for match maker networks where your real BBS name is already in use.
-
-Profile Database Security
--------------------------
- �����������������������������������������������ͻ
- � Profile Database Security �
- �����������������������������������������������
- � �Minimum User Age to Add Profile 15 �
- � �Minimum User Age to Take Purity Test 18 �
- � �Minimum Security Level to Add Profile 30 �
- � �Required Flags (Set 1) to Add Profile �
- � �Required Flags (Set 2) to Add Profile �
- � �Required Flags (Set 3) to Add Profile �
- � �Required Flags (Set 4) to Add Profile �
- �����������������������������������������������ͼ
-
-The Profile Database Security sub-menu allows you to define who can add
-profiles by security level, age, and flags as well as the minimum age for
-the purity test. Flag sets 2-4 are used only with Synchronet BBS software.
-
-Minimum Levels
---------------
-From the SMMCFG main menu you can change the minimum levels required to
-send telegrams, write on the wall, read questionnaires, and perform sysop
-functions.
-
-Minor Segregation (Protection) Age
-----------------------------------
-This option separates all users into Minors (those users below the specified
-age) and Adults (those users at or above the specified age). When this option
-is used, adults cannot see minors' profiles or send them telegrams (and vice
-versa). This feature does not keep adult users on other non-segregated
-networked BBSs from sending telegrams to minors on your BBS (or minors on other
-BBSs from sending telegrams to adults on your BBS) - this can lead to confusion
-among users receiving telegrams from users that don't appear to be in the
-database (due to segregation on your system). This option is disabled by
-default.
-
-Auto-Update Profiles
---------------------
-This option allows you to change the number of days between automatic
-profile updates across a match maker network. Normally a user's profile will
-not be sent out across the network unless the user makes a change to their
-profile. This option allows you to have their profile automatically sent
-every so many days as long as the user is active in the match maker (enters
-the match maker and uses it). This is useful for keeping profile databases
-up-to-date across the network as new systems come online. Setting this option
-to 0 disables this feature. The default value (30) should be fine for most
-configurations.
-
-Notify User of Activity
------------------------
-This is the number of the user who will be notified of match maker activity
-(profiles added, telegrams sent, wall writings, etc). Normally this option will
-be set to 1 (for user #1, the sysop). Setting this option to 0 disables this
-feature.
-
-Use Metric System
------------------
-If you want all heights and weights to be displayed in centimeters and
-kilograms instead of inches and pounds, set this option to "Yes". Since all
-measurements are internally stored in inches and pounds, those (English)
-measurements are the most accurate. Some measurements may change slightly
-when converting from metric to English and back.
-
-Zmodem Send Command
--------------------
-This is the command line to execute to send a file via Zmodem to the remote
-user. The default command line (%!dsz portx %u,%i sz %f) should work for most
-system configurations (assuming DSZ is in your Synchronet EXEC directory or
-DOS search path and using UART serial ports on all nodes). The percent codes
-in the command line are called "Command Line Specifiers" and are explained
-later in this document.
-
-Local Photo Viewer
-------------------
-This is the command line to execute to view photos when running SMM locally.
-The percent codes in the command line are called "Command Line Specifiers" and
-are explained later in this document.
-
-Command Line Specifiers
------------------------
-%A User name
-%B Baud (DTE) Rate
-%C Connect (DCE) Rate
-%F File path
-%G Temp directory (blank if non-SBBS)
-%I UART IRQ Line
-%J DATA directory (blank if non-SBBS)
-%K CTRL directory (blank if non-SBBS)
-%N Node Directory (blank if non-SBBS)
-%O Sysop's name
-%P COM Port
-%Q System QWK ID (blank if non-SBBS)
-%R Users Screen Rows
-%S File Spec
-%T Time left in seconds
-%U UART I/O Address (in hex)
-%W Time-slice API type
-%Z TEXT Directory (blank if non-SBBS)
-%! EXEC Directory (blank if non-SBBS)
-%# Node number
-%* Node number (zero padded to three digits)
-%$ Credits
-%% %% for percent sign
-%1 User number
-%2 User number (zero padded to two digits)
-%3 User number (zero padded to three digits)
-%4 etc..
-
-SMM.CAN
--------
-
-The trash can file (SMM.CAN) can be used to specify a list of words or word
-combinations (one word or word combination per line) that will not be allowed
-in user information and wall entries.
-
-QUE.LST
--------
-
-The questionnaire list file (QUE.LST) can be edited with any ASCII text editor.
-The following is the stock QUE.LST containing the four stock questionnaires.
-
-BASIC
-Basic Personality
-0
-APPEAR
-Appearance
-0
-MATERIAL
-Material
-0
-ADULT
-Adult Sexuality
-18
-
-For each questionnaire, a code (up to eight valid DOS filename chars),
-a description (up to 25 chars), and minimum age are specified. A maximum
-of five questionnaires can be configured. If you are linked to the Synchronet
-Data echo, it is suggested you leave the four stock questionnaires intact
-(unmodified). If you change any of these questionnaires, you MUST change the
-code to something other than "BASIC, APPEAR, MATERIAL, or ADULT" as these codes
-are reserved specifically for the stock questionnaires. If you are not linked
-to the Synchronet Data echo, you can modify and remove any questionnaires you
-wish and use whatever code you wish except "PURITY" and "MB-TYPE" as these
-questionnaire names are specifically reserved by the Match Maker.
-
-The questionnaires are stored in files with the code for the name and .QUE
-as the file extension (e.g. BASIC.QUE, APPEAR.QUE, MATERIAL.QUE, etc).
-
-*.QUE Format
-------------
-
-A: First line is total number of questions (max: 20).
- All lines following are question and answers groups.
-
-B: Each group starts with the actual question (max: 79 characters).
-
-C: The next line in the group consists of the total number of answers
- (max: 16).
-
-D: The next line consists of the maximum number of answers this user can select
- for this question.
-
-E: A single line for each answer (total answers from line C).
-
-F: Repeat lines B-E for each question (total questions from line A).
-
-Special Questionnaire Files
----------------------------
-
-Two questionnaire files (MB-TYPE.QUE and PURITY.QUE) are unique in that they
-don't follow the above format at all and should need no modification.
-
-The MB-TYPE.QUE is used for the Myers-Briggs personality test and is a pretty
-standard questionnaire. The files MB-*.ASC are descriptions of the various
-personality types. The file MB-INTRO.ASC is displayed before the test and
-MB-TYPE.ASC is displayed when seeking descriptions of the various types.
-
-The PURITY.QUE is used for the purity test and the format is simply one
-"Have you ever" question per line. The default PURITY.QUE is a 100 question
-test of an adult nature. An optional 500 question purity test is also included
-as PURITY.500. To use this test in place of the 100 question version, copy
-PURITY.500 to PURITY.QUE. The 100 question version is also included as
-PURITY.100 as a back-up, in case you want to return to the 100 question
-version. The PURITY*.ASC files are displayed before and during the testing
-procedure.
-
-Sysop Commands
-==============
-
-From the Match Maker main menu, the sysop (any user with sysop security level)
-can use the (D)elete command to remove any profile from the database. Profiles
-can be undeleted with the '*' command (available only to sysops).
-
-When viewing profiles, sysops are shown the user name, number, and system
-name at the top of the profile. Normal users are not shown this information
-to maintain the anonymity of the users in the database.
-
-Hitting '!' will display a list of all networked BBSs that have contributed to
-the current profile database. If you see your BBS name in the list, either
-someone else is using the same BBS name as you (which is bad), or something has
-gone wrong in your network and you should contact Digital Dynamics to remedy
-the situation immediately. If someone else is using the exact same BBS name
-(not considering upper/lower case differences), one of you must change your BBS
-name by at least one character or you will definitely have problems with your
-users' Match Maker profiles and telegrams.
-
-Hitting '\' will rebuild the database index. If your database is corrupted,
-you should down all your nodes and use SMMUTIL instead of this command. If
-your SMM.IXB file disappears or becomes out-of-sync with your SMM.DAB file
-(which is unlikely to occur), you can use this command to quickly recreate
-it.
-
-Photographs
-===========
-
-You may use the included ADDPHOTO.EXE utility to import photographs into your
-local match maker database. The current directory must be the directory where
-SMM is installed when ADDPHOTO is run. The usage is:
-
-ADDPHOTO filename.ext user_number system_name
-
-where filename.ext is the path, filename, and extension of the photograph file
-to import (preferably, but not necessarily, a JPEG file with a .JPG extension).
-User_number is the user's number and system_name is the name of the system the
-user created their profile on.
-
-ADDPHOTO will create a directory called PHOTO off of the directory where SMM
-is installed (e.g. C:\SBBS\XTRN\SMM\PHOTO or C:\BBS\DOORS\SMM\PHOTO) and move
-the photograph file into this directory (changing the name, but leaving the
-extension (e.g. JPG, GIF, TIF, etc) intact.
-
-Example:
-
- ADDPHOTO JAMIEFAR.JPG 1 M.A.S.H BBS
-
-The DELPHOTO.EXE utility is used to remove photographs from your local match
-maker database. The usage is:
-
-DELPHOTO user_number system_name
-
-Example:
- DELPHOTO 1 M.A.S.H BBS
-
-The LSTPHOTO.EXE utility may be used to create a list of all users with photos
-in your local match maker database.
-
-Example:
- LSTPHOTO > PHOTO.LST
-
-PHOTO.ZIP
----------
-You can optionally, zip (using PKZIP) all the files in the PHOTO directory
-into a file called PHOTO.ZIP (in the SMM directory) and delete them from the
-PHOTO directory (to save disk space). When the photo is viewed or downloaded
-from SMM, it will be automatically extracted from the PHOTO.ZIP into the PHOTO
-directory (PKUNZIP.EXE must be in your DOS search path or your Synchronet
-EXEC directory). The ADDPHOTO utility will not automatically add new images to
-the PHOTO.ZIP (if you wish to use that storage method). Also, the files will
-not be automatically deleted from the PHOTO directory after download/viewing
-in SMM. This is so that popular image files will not have to be extracted each
-time. You may wish to periodically re-zip and delete the PHOTO directory
-(perhaps with an event) to preserve disk space.
-
-SYNCDATA Echo
--------------
-If your match maker is linked (via DOVE-Net or FidoNet) to the SYNCDATA echo,
-you do not need a scanner or the ADDPHOTO utility to get your users' photos
-into the database. Simply have your users send their photos along with your
-full and correct BBS name, their user number, and a xerox-copy of a current
-formal photo-ID (to verify identity only, IDs will not be scanned and all
-ID information will remain completely confidential) to Digital Dynamics.
-
-The photos must have a 2 inch square drawn around the area to be scanned. The
-photos will be scanned and distributed in JPEG format (with monthly
-redistribution) on the SYNCDATA echo by Digital Dynamics. This service is
-available to all users of SMM free of charge (this free offer _may_ expire
-on Feb 14th, 1996).
-
-Digital Dynamics reserves the right to refuse to scan and distribute any
-photos for any reason. Nudity or vulgarities will not be allowed.
-
-Photos and IDs included with a self-addressed _stamped_ enveloped will be
-returned.
-
-DEMO Version
-============
-
-The unregistered "DEMO" version of Synchronet Match Maker will not allow
-users to send Telegrams to other users in the database (through the
-message network), write on the Match Maker wall, or read other users'
-questionnaires.
-
-To register your copy of Synchronet Match Maker, complete the ORDER.TXT form
-included in this archive/directory and send it to Digital Dynamics, or call
-714-529-6328 (voice) or 714-529-9525 (BBS) to order with a credit card for
-faster processing.
-
-/* End of SMM.DOC */
diff --git a/xtrn/smm/smm_help.asc b/xtrn/smm/smm_help.asc
deleted file mode 100644
index c969ab434c583892813e19e505d1801208d2a3b4..0000000000000000000000000000000000000000
--- a/xtrn/smm/smm_help.asc
+++ /dev/null
@@ -1,27 +0,0 @@
-yhOverall Match (General Explanation):nc
-
-The overal match is a highly refined algorithm used to compute a percentage of
-preference match between a user and a prospective mate. The user's preferences
-are weighed more heavily than those of the prospective mate. More specific
-preferences will result in a higher match percentage potential and a wider
-range of match percentages. More vague preferences will result in a rather
-narrow range of match percentages, so it is best to keep your "hideal matenc"
-in mind when completing the preferred mate sections of your profile and
-questionnaires.
-
-yhGlobal Database:nc
-
-If your sysop has taken the steps to link this profile database with the
-international hSyncDatanc network, your profile will be automatically included
-in this global database for users on other BBSs around the world to view. The
-profiles you see in this database may very well be users in other counties,
-states, or countries and you can view their information here and communicate
-with them via hTelegramnc using this program.
-
-yhCredits:nc
-
-hPurity Test ncOriginal version from MIT's Baker House.
-
-hMyers-Briggs Type Indicator ncAdapted from the book "Please Understand Me"
- by David Keirsey and Marilyn Bates
-
diff --git a/xtrn/smm/smm_logo.asc b/xtrn/smm/smm_logo.asc
deleted file mode 100644
index c60c944dfc74384bdf6b04a08c09052ee0472738..0000000000000000000000000000000000000000
--- a/xtrn/smm/smm_logo.asc
+++ /dev/null
@@ -1,3 +0,0 @@
- nhrn h7������������������������������������������������n hr
- n k7nk7 nk7Find your mate or just a date, electronically! n hr
- nhrn hk7������������������������������������������������n hrn
diff --git a/xtrn/smm/smm_main.asc b/xtrn/smm/smm_main.asc
deleted file mode 100644
index b453ada7f35f8c3dd8a0d094f263283b686a7c32..0000000000000000000000000000000000000000
--- a/xtrn/smm/smm_main.asc
+++ /dev/null
@@ -1,9 +0,0 @@
-� nk7������������������������������������������������������������������0
-� 7 b[hRnb7] Read Profiles [hHnb7] Help/Info hk�0
-� 7 nb7[hLnb7] List Profiles [hMnb7] Myers-Briggs Types hk�0
-� 7 nb7[hUnb7] Update Your Profile [hPnb7] Toggle Screen Pause hk�0
-� 7 nb7[hDnb7] Delete Your Profile [hTnb7] Read Telegrams hk�0
-� 7 nb7[hNnb7] Scan for New Profiles [hSnb7] Send Telegrams hk�0
-� 7 nb7[hGnb7] Go to a Specific Profile [hVnb7] Visit the Wall hk�0
-� 7 nb7[hFnb7] Find Text in Profiles [hOnb7] Log-off (Hang-up) hk�0
-� nk7�h������������������������������������������������������������������n
diff --git a/xtrn/smm/smmevent.bat b/xtrn/smm/smmevent.bat
deleted file mode 100755
index 3f78ceff92b3b99a92e27a0ea7ccb3df1a7dbcc4..0000000000000000000000000000000000000000
--- a/xtrn/smm/smmevent.bat
+++ /dev/null
@@ -1,10 +0,0 @@
-@echo off
-rem ***************************************************************************
-rem MATCH MAKER IMPORT/EXPORT and MAINTENANCE
-rem ***************************************************************************
-smb2smm %sbbsdata%subs\syncdata smm.dab >> %sbbsdata%smb2smm.log
-smm2smb smm.dab %sbbsdata%subs\syncdata
-smmutil 90 7 > smmstats.txt
-outphoto smm.dab %sbbsdata%subs\syncdata
-rem ***************************************************************************
-
diff --git a/xtrn/smm/smmstats.txt b/xtrn/smm/smmstats.txt
deleted file mode 100644
index aefca33c85038ac73a86d518e97a1d4033c3539b..0000000000000000000000000000000000000000
--- a/xtrn/smm/smmstats.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-Synchronet Match Maker Statistics
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-Total : 0
-Photos : 0
-Networked : 0
diff --git a/xtrn/smm/upgrade.doc b/xtrn/smm/upgrade.doc
deleted file mode 100644
index be87c35f6229bc64df1869b8e140df213115ec87..0000000000000000000000000000000000000000
--- a/xtrn/smm/upgrade.doc
+++ /dev/null
@@ -1,241 +0,0 @@
-Upgrading from Synchronet Match Maker
--------------------------------------
-
-If you are a registered owner of SMM and upgrading from v1.10 or earlier,
-you'll need to optain your registration number from Digital Dynamics by calling
-voice at 714-529-6328. You will need to have your Synchronet registration
-number and control code on hand when you call.
-
-The most important change (in upgrading to v2.0) is to change "Intercept
-I/O Interrupts" in SCFG from "Yes" to "No". Example:
-
- ����������������������������������������������������������ͻ
- � Synchronet Match Maker �
- ����������������������������������������������������������
- � �Name Synchronet Match Maker �
- � �Internal Code SMM �
- � �Start-up Directory ..\XTRN\SMM �
- � �Command Line smm �
- � �Clean-up Command Line �
- � �Multiple Concurrent Users Yes �
- � �Intercept I/O Interrupts No <-- Important �
- � �Swap BBS out of Memory Yes �
- � �Modify User Data Yes �
- � �Execute on Event No �
- � �BBS Drop File Type Synchronet XTRN.DAT �
- � �Place Drop File In Node Directory �
- ����������������������������������������������������������ͼ
-
-The only files you need to update when converting from v2.01/2.02 to v2.10 are:
-
-SMM.DOC Sysop Documentation (v2.10)
-SMM.EXE Match Maker Program (v2.10)
-SMMCFG.EXE Match Maker Configuration Program (v2.10)
-SMMUTIL.EXE Repair/Maintenance Program (v2.01)
-
-The only files you need to update when converting from v2.00 to v2.10 are:
-
-SMM.DOC Sysop Documentation (v2.10)
-SMMCFG.EXE Match Maker Configuration Program (v2.10)
-SMMUTIL.EXE Repair/Maintenance Program (v2.01)
-SMB2SMM.EXE Import Program (v2.01)
-SMM2SMB.EXE Export Program (v2.01)
-ADDPHOTO.EXE Import Photographs locally (v1.01)
-DELPHOTO.EXE Delete Photographs locally (v1.00)
-LSTPHOTO.EXE List Profiles with Photographs (v1.00)
-
-The only files you need to update when converting from v1.x to v2.0 are:
-
-*.EXE Executables
-*.DOC Documentation
-LIST_HDR.ASC Condensed Listing Header
-
-If upgrading from v1.00 or v1.10, you will also need to update the following
-files:
-
-SMM_MAIN.ASC Main Menu
-SMM_HELP.ASC Help Screen (if upgrading from v1.00)
-PURITY.ASC Purity Explanation (if upgrading from v1.00)
-
-New in version 2.10
-~~~~~~~~~~~~~~~~~~~
-o Minor segregation (protection) now supported. This option separates all users
- into Adults and Minors (configurable separation age), disallowing adults to
- see minors' profiles or send them telegrams (and vice versa)
-o Minimum Age to access the wall now configurable in SMMCFG
-o XSDK v2.42 feature: Ctrl-T now displays current time, time used, and time
- left (similar to SBBS)
-o XSDK v2.42 feature: User is now warned on each of their last 5 minutes left
-
-New in version 2.02a
-~~~~~~~~~~~~~~~~~~~~
-o Fixed bug in SMM.EXE when using DOOR.SYS (non-Synchronet BBSs)
-
-New in version 2.02
-~~~~~~~~~~~~~~~~~~~
-o Low priority input now correctly supported (for giving up multitasker time
- slices even while accepting string input from the user) - this was an
- indirect bug fix in XSDK v2.41 most notably effecting OS/2 systems
-o "Searching..." text now displayed before possibly long searches to indicate
- to the user the system is not crashed
-o Sysop text searches now search user real names, system names and user numbers
- in addition to the normal user-viewable text fields
-
-New in version 2.01
-~~~~~~~~~~~~~~~~~~~
-o New DELPHOTO.EXE utility to delete photos from the database
-o New LSTPHOTO.EXE utility to create a list of all profiles with attached
- photos
-o SMB2SMM/SMM2SMB updated to detect and not import/export corrupted profiles
-o ADDPHOTO 1.01 now copies (instead of renames/moves) photo image files
-o SMB2SMM no longer deletes existing photo if CRC error detected on new photo
-o Wall security level (configured in SMMCFG) now correctly keeps users below
- that level from writing on the wall
-o FOSSIL channel number automatically determined by subtracting 1 from the
- COM port number (e.g. COM 1 is FOSSIL/Digi channel 0)
- /I command line switch may be used to set non-standard channel
-o New SMM, SMMCFG, and SMMUTIL fix 25 character BBS name limit
-o SMMUTIL (v2.00) now removes old photos (tallys photos and networked profiles)
-
-New in version 2.00
-~~~~~~~~~~~~~~~~~~~
-o Optionally reads from and writes to DOOR.SYS drop file
- (for compatibility with other [non-Synchronet] BBS programs)
-o MSG, UTI, and possibly JAM message base import/export utilities will be
- available soon (for match maker networking with non-SMB compatible BBSs)
-o Optional command line switches for com port configuration and time-slice APIs
- (for non-standard COM ports with other BBS programs)
-o Photographs (in any size or format) can be added to the database locally
- (with Zmodem download and local viewing)
-o Photographs are automatically imported from the SYNCDATA echo with SMB2SMM
- (other match maker networks will need to use their own distribution methods)
-o System name separately configurable in SMMCFG (to work around duplicate BBS
- names in a match maker network)
-o Metric measurements (centimeters and kilograms) can be enabled in SMMCFG
-o Sysop level defined in SMMCFG (no longer hard-coded at level 90)
-o Low priority input supported (based on SCFG Node toggle option if Synchronet,
- automatically enabled with other BBS programs)
-o Trailing spaces from user names are automatically removed
-
-New in version 1.31
-~~~~~~~~~~~~~~~~~~~
-o Ability to specify a user to search for on the command line
- displays extended profile on the user and then exits (just "SMM user name")
-o Messages can now be sent from Digital Dynamics to you (sysops, users, or
- both) inside SMM (not telegrams, but similar) to inform sysops and users of
- Match Maker progressions/news. All messages have pre-determined expiration
- dates and will automatically disappear when the date is reached. Sysop-only
- messages can be deleted immediately after they are read if the sysop wishes.
- Special ONE-time messages are displayed to users only once, while others
- may be displayed each time they enter SMM. (SMB2SMM v1.30 required)
-o New SMMUTIL (v1.15) fixes 4095 user limitation.
-
-New in version 1.30
-~~~~~~~~~~~~~~~~~~~
-o Ability to send telegrams directly from condensed user listings
-o Wall new-scans now correctly scan by date/time imported instead of the
- date/time written (must use SMB2SMM 1.22, SMM2SMB 1.12, and SMMUTIL 1.14)
-o Condensed Wall listings now clear the screen between each screen-full
- (faster screen draws) with a prompt allowing the user to read a profile,
- send a telegram, move backwards through the wall writings, or quit at the
- bottom of each screen-full (more intuitive and convenient)
-o Extended Wall listings now display wall writing in magenta if the author
- is female, green if the author is male (instant gender recognition)
- wall writings who can't be found in the database
-o Extended Wall listings allow sending telegrams directly (without reading
- profile first) and moving backwards through the wall writings
-o Extended Wall listings stay on current wall writing after reading profile
- or sending telegram
-o XSDK v2.33 fixes problem with flashing screen loops when a user hangs up
- with keys in the modem buffer
-o XSDK v2.33 fixes problem with sending double carriage returns at the end
- of each line (making captures difficult)
-o Fixed problem with selecting races above E
-o If the sysop hits '!' from the main menu, all systems connected to the
- database are listed
-o When reading a user's questionnaire, (P)revious and (Q)uit commands are now
- available on the pause prompt
-o Updated sysop documentation
-
-New in version 1.22
-~~~~~~~~~~~~~~~~~~~
-o New option for those seeking "any-sex non-romantic friendly matches" allows
- matches with both romantic/intimate mates and non-romantic mates (friends)
-o When displaying long user information, preference ranges (age, weight, etc)
- and specifics (hair color, marital status, etc) are high intensity (bright
- colors) if the preferencees are considered requirements by the user
-o The Wall was revamped to allow new-scans for new writings since a specific
- date only and optional display of extended user information allowing reading
- of questionnaires and sending of telegrams
-o Wall writings will now disallow any text in SMM.CAN (same as user aliases
- profiles, etc.)
-
-New in version 1.21
-~~~~~~~~~~~~~~~~~~~
-o Credits can be charged or given for reading questionnaires
-o New WALL inside Match Maker for public discussion
-o Credits can be charged or given for writing on the wall
-o Minimum level can be specified to allow writing on the wall
-o SMM2SMB v1.11 now creates unique profile messages that won't be deleted by
- duplicate message checking
-o SMM2SMB v1.11 and SMB2SMM v1.21 read/write wall writings from message base
-o SMMUTIL v1.11 now allows command line specification of maximum wall writing
- age before auto-deletion
-o Telegrams and Profile Personal Text no longer word wrap on last line (bugfix)
-o Telegrams now ask to Save (Y/n) when completed to allow last minute abort
-
-New in version 1.20
-~~~~~~~~~~~~~~~~~~~
-o DEMO and registered versions use the same executable files, unlocked with
- registration number obtained from Digital Dynamics (entered in SMMCFG)
-o Minimum level can be specified to allow the sending of telegrams
-o Minimum level can be specified to allow the reading of questionnaires
-o Sysops deleting their own profile, will not have to exit and re-enter
- before SMM will report their profile does not exist
-o Match Maker telegrams are stored in SMM and users are notified via BBS
- telegram of newly received SMM telegrams
-o Users can read awaiting telegrams and send telegrams from the SMM main menu
-o New customizable main menu (SMM_MAIN.ASC)
-o (W)rite Profile command changed to (U)pdate Profile, although 'W' can still
- be used
-o When sending telegrams, the destination user's detail is displayed to prevent
- users from sending telegrams to a wrong user (with the same name)
-o Automatically corrects user sex when not set to (M)ale or (F)emale
-o Questionnaire answers are aligned so they can be visually compared easily
-o SMMUTIL v1.10 generates statistics, run "SMMUTIL > stats.txt" to create file
- for display on your BBS
-
-New in version 1.10
-~~~~~~~~~~~~~~~~~~~
-o New configuration program (SMMCFG) instead of editing SMM.CFG with an
- ASCII editor.
-o Optional trash can file for keeping users from using profanity in profiles
- and users names.
-o SMB2SMM will not import profiles if the user age is less than you have
- specified in SMMCFG for minimum user age.
-o SMB2SMM will not import profiles that contains words found in your TRASH.CAN
- file (if it exists).
-o When listing profiles in SMM, you can go backwards to previous screens and
- read profiles directly from the listing. The (R)ead profile key automatically
- puts the user with the highest percentage on the current screen in the
- user name field.
-o User's can enter "Non-disclosed" for their yearly income, by hitting ENTER
- when asked.
-o User's can specify if they REQUIRE their matches to fall within certain
- ranges or REQUIRE specific features.
-o Profile screens were condensed to get all information on one page whenever
- possible.
-o SMMUTIL will scan for duplicate profiles or if specified, delete profiles
- that haven't been updated in a certain number of days. SMMUTIL also
- automatically condenses the data file, removing any deleted profiles and
- rebuilds the index file.
-o Users can be charged credits or given credits for adding profiles and
- sending telegrams. If a user adds a profile and then deletes it, the credit
- charges are reversed.
-o Auto-update feature will automatically re-hatch a users entry into the
- Global Database after a certain number of days, if the user is active in
- the match maker but hasn't made any profile changes.
-o Sysop can be notified automatically of added profiles and sent telegrams
- from the match maker
-
-/* End of UPGRADE.DOC */